summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsteve <steve@3ad0048d-3df7-0310-abae-a5850022a9f2>2016-05-30 16:57:13 +0000
committersteve <steve@3ad0048d-3df7-0310-abae-a5850022a9f2>2016-05-30 16:57:13 +0000
commit6b082ee8b43e52fe18c5799f8f4c82a8c7519f5b (patch)
treef906b179f5b20f4be91a286f8f5a01fc4fac51e2
parent554d71b9e544a9776797dcca9983060fd998fd0b (diff)
parentba5f910eaac131cb7d3553c9bef173a81c422a1c (diff)
downloadfpc-interfacertti.tar.gz
auto-merge: trunk -> InterfaceRTTIinterfacertti
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/interfacertti@33858 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r--compiler/aasmtai.pas12
-rw-r--r--compiler/aoptbase.pas10
-rw-r--r--compiler/aoptobj.pas63
-rw-r--r--compiler/avr/aoptcpu.pas2
-rw-r--r--compiler/dbgdwarf.pas10
-rw-r--r--compiler/fmodule.pas13
-rw-r--r--compiler/hlcgobj.pas151
-rw-r--r--compiler/i8086/cgcpu.pas7
-rw-r--r--compiler/llvm/aasmllvm.pas12
-rw-r--r--compiler/llvm/agllvm.pas19
-rw-r--r--compiler/llvm/hlcgllvm.pas19
-rw-r--r--compiler/llvm/llvmdef.pas24
-rw-r--r--compiler/llvm/nllvmadd.pas20
-rw-r--r--compiler/llvm/nllvmcnv.pas35
-rw-r--r--compiler/llvm/nllvmmat.pas8
-rw-r--r--compiler/llvm/nllvmutil.pas14
-rw-r--r--compiler/m68k/aasmcpu.pas39
-rw-r--r--compiler/m68k/ag68kgas.pas15
-rw-r--r--compiler/m68k/ag68kvasm.pas115
-rw-r--r--compiler/m68k/aoptcpu.pas38
-rw-r--r--compiler/m68k/cgcpu.pas297
-rw-r--r--compiler/m68k/cpubase.pas10
-rw-r--r--compiler/m68k/cpuinfo.pas35
-rw-r--r--compiler/m68k/cpunode.pas2
-rw-r--r--compiler/m68k/cputarg.pas1
-rw-r--r--compiler/m68k/itcpugas.pas2
-rw-r--r--compiler/m68k/n68kadd.pas210
-rw-r--r--compiler/m68k/n68kcnv.pas48
-rw-r--r--compiler/m68k/n68kmat.pas50
-rw-r--r--compiler/m68k/n68kmem.pas2
-rw-r--r--compiler/m68k/n68kset.pas138
-rw-r--r--compiler/nbas.pas17
-rw-r--r--compiler/ncal.pas19
-rw-r--r--compiler/ncgbas.pas4
-rw-r--r--compiler/ncgmem.pas5
-rw-r--r--compiler/ncgutil.pas4
-rw-r--r--compiler/ncnv.pas2
-rw-r--r--compiler/ngenutil.pas172
-rw-r--r--compiler/ninl.pas14
-rw-r--r--compiler/ogbase.pas44
-rw-r--r--compiler/pdecsub.pas16
-rw-r--r--compiler/pexpr.pas41
-rw-r--r--compiler/pgenutil.pas171
-rw-r--r--compiler/pkgutil.pas3
-rw-r--r--compiler/pmodules.pas2
-rw-r--r--compiler/ppu.pas2
-rw-r--r--compiler/psub.pas160
-rw-r--r--compiler/psystem.pas12
-rw-r--r--compiler/ptconst.pas17
-rw-r--r--compiler/scanner.pas6
-rw-r--r--compiler/symdef.pas5
-rw-r--r--compiler/systems.inc1
-rw-r--r--compiler/systems.pas1
-rw-r--r--compiler/systems/i_amiga.pas4
-rw-r--r--compiler/systems/i_morph.pas2
-rw-r--r--compiler/systems/i_msdos.pas3
-rw-r--r--compiler/systems/i_win16.pas1
-rw-r--r--compiler/x86/cgx86.pas9
-rw-r--r--compiler/x86/nx86inl.pas22
-rw-r--r--compiler/x86/nx86set.pas2
-rw-r--r--compiler/x86_64/nx64set.pas3
-rw-r--r--packages/fcl-base/fpmake.pp2
-rw-r--r--packages/fcl-base/src/advancedipc.pp313
-rw-r--r--packages/fcl-base/src/advancedsingleinstance.pas350
-rw-r--r--packages/fcl-base/src/custapp.pp6
-rw-r--r--packages/fcl-db/src/base/dsparams.inc11
-rw-r--r--packages/fcl-db/tests/sqldbtoolsunit.pas72
-rw-r--r--packages/fcl-db/tests/testbasics.pas2
-rw-r--r--packages/fcl-db/tests/toolsunit.pas4
-rw-r--r--packages/fcl-image/src/ftfont.pp5
-rw-r--r--packages/fcl-net/src/ssockets.pp89
-rw-r--r--packages/fcl-pdf/examples/testfppdf.lpr52
-rw-r--r--packages/fcl-pdf/fpmake.pp2
-rw-r--r--packages/fcl-pdf/src/fppdf.pp9
-rw-r--r--packages/fcl-pdf/src/fpttf.pp11
-rw-r--r--packages/fcl-process/examples/checkipcserver.lpi60
-rw-r--r--packages/fcl-process/examples/checkipcserver.lpr55
-rw-r--r--packages/fcl-process/examples/ipcclient.pp22
-rw-r--r--packages/fcl-process/examples/ipcserver.lpi4
-rw-r--r--packages/fcl-process/examples/ipcserver.pp62
-rw-r--r--packages/fcl-process/examples/simpleipcserver.lpi59
-rw-r--r--packages/fcl-process/examples/simpleipcserver.lpr81
-rw-r--r--packages/fcl-process/src/os2/simpleipc.inc14
-rw-r--r--packages/fcl-process/src/simpleipc.pp386
-rw-r--r--packages/fcl-process/src/unix/simpleipc.inc108
-rw-r--r--packages/fcl-process/src/winall/simpleipc.inc158
-rw-r--r--packages/fcl-web/examples/httpclient/httpget.pas4
-rw-r--r--packages/fcl-web/examples/httpserver/simplehttpserver.pas12
-rw-r--r--packages/fcl-web/src/base/custhttpapp.pp83
-rw-r--r--packages/fcl-web/src/base/fphttpclient.pp118
-rw-r--r--packages/fcl-web/src/base/fphttpserver.pp31
-rw-r--r--packages/fcl-web/src/base/fpoauth2.pp127
-rw-r--r--packages/googleapi/examples/generator/googleapiconv.pp70
-rw-r--r--packages/googleapi/fpmake.pp43
-rw-r--r--packages/googleapi/src/googleacceleratedmobilepageurl.pp493
-rw-r--r--packages/googleapi/src/googleadexchangebuyer.pp6060
-rw-r--r--packages/googleapi/src/googleadexchangebuyer2.pp1252
-rw-r--r--packages/googleapi/src/googleadexchangeseller.pp105
-rw-r--r--packages/googleapi/src/googleadmin.pp97
-rw-r--r--packages/googleapi/src/googleadsense.pp213
-rw-r--r--packages/googleapi/src/googleadsensehost.pp99
-rw-r--r--packages/googleapi/src/googleanalytics.pp1086
-rw-r--r--packages/googleapi/src/googleanalyticsreporting.pp3021
-rw-r--r--packages/googleapi/src/googleandroidenterprise.pp1622
-rw-r--r--packages/googleapi/src/googleandroidpublisher.pp1105
-rw-r--r--packages/googleapi/src/googleappengine.pp4370
-rw-r--r--packages/googleapi/src/googleappsactivity.pp123
-rw-r--r--packages/googleapi/src/googleappstate.pp37
-rw-r--r--packages/googleapi/src/googleautoscaler.pp287
-rw-r--r--packages/googleapi/src/googlebase.pp15
-rw-r--r--packages/googleapi/src/googlebigquery.pp1846
-rw-r--r--packages/googleapi/src/googleblogger.pp211
-rw-r--r--packages/googleapi/src/googlebooks.pp2334
-rw-r--r--packages/googleapi/src/googlecalendar.pp497
-rw-r--r--packages/googleapi/src/googlecivicinfo.pp343
-rw-r--r--packages/googleapi/src/googleclassroom.pp4445
-rw-r--r--packages/googleapi/src/googlecloudbilling.pp776
-rw-r--r--packages/googleapi/src/googlecloudbuild.pp1492
-rw-r--r--packages/googleapi/src/googleclouddebugger.pp2920
-rw-r--r--packages/googleapi/src/googleclouderrorreporting.pp1494
-rw-r--r--packages/googleapi/src/googlecloudlatencytest.pp43
-rw-r--r--packages/googleapi/src/googlecloudmonitoring.pp143
-rw-r--r--packages/googleapi/src/googlecloudresourcemanager.pp1015
-rw-r--r--packages/googleapi/src/googlecloudtrace.pp777
-rw-r--r--packages/googleapi/src/googleclouduseraccounts.pp3420
-rw-r--r--packages/googleapi/src/googlecompute.pp7367
-rw-r--r--packages/googleapi/src/googleconsumersurveys.pp1716
-rw-r--r--packages/googleapi/src/googlecontainer.pp1584
-rw-r--r--packages/googleapi/src/googlecontent.pp6387
-rw-r--r--packages/googleapi/src/googlecoordinate.pp119
-rw-r--r--packages/googleapi/src/googlecustomsearch.pp117
-rw-r--r--packages/googleapi/src/googledataflow.pp6201
-rw-r--r--packages/googleapi/src/googledataproc.pp4471
-rw-r--r--packages/googleapi/src/googledatastore.pp2265
-rw-r--r--packages/googleapi/src/googledeploymentmanager.pp1088
-rw-r--r--packages/googleapi/src/googledfareporting.pp3553
-rw-r--r--packages/googleapi/src/googlediscovery.pp265
-rw-r--r--packages/googleapi/src/googlediscoverytopas.pp19
-rw-r--r--packages/googleapi/src/googledns.pp97
-rw-r--r--packages/googleapi/src/googledoubleclickbidmanager.pp417
-rw-r--r--packages/googleapi/src/googledoubleclicksearch.pp176
-rw-r--r--packages/googleapi/src/googledrive.pp5046
-rw-r--r--packages/googleapi/src/googlefirebaserules.pp1244
-rw-r--r--packages/googleapi/src/googlefitness.pp797
-rw-r--r--packages/googleapi/src/googlefreebase.pp53
-rw-r--r--packages/googleapi/src/googlefusiontables.pp233
-rw-r--r--packages/googleapi/src/googlegames.pp1264
-rw-r--r--packages/googleapi/src/googlegamesconfiguration.pp (renamed from packages/googleapi/src/googlegamesConfiguration.pp)113
-rw-r--r--packages/googleapi/src/googlegamesmanagement.pp (renamed from packages/googleapi/src/googlegamesManagement.pp)206
-rw-r--r--packages/googleapi/src/googlegenomics.pp7399
-rw-r--r--packages/googleapi/src/googlegmail.pp435
-rw-r--r--packages/googleapi/src/googlegroupsmigration.pp19
-rw-r--r--packages/googleapi/src/googlegroupssettings.pp52
-rw-r--r--packages/googleapi/src/googleiam.pp1937
-rw-r--r--packages/googleapi/src/googleidentitytoolkit.pp1990
-rw-r--r--packages/googleapi/src/googlekgsearch.pp370
-rw-r--r--packages/googleapi/src/googlelicensing.pp25
-rw-r--r--packages/googleapi/src/googlelogging.pp2554
-rw-r--r--packages/googleapi/src/googlemirror.pp173
-rw-r--r--packages/googleapi/src/googlemonitoring.pp3702
-rw-r--r--packages/googleapi/src/googleoauth2.pp41
-rw-r--r--packages/googleapi/src/googlepagespeedonline.pp155
-rw-r--r--packages/googleapi/src/googlepartners.pp2690
-rw-r--r--packages/googleapi/src/googlepeople.pp3517
-rw-r--r--packages/googleapi/src/googleplaymoviespartner.pp3570
-rw-r--r--packages/googleapi/src/googleplus.pp1930
-rw-r--r--packages/googleapi/src/googleplusdomains.pp (renamed from packages/googleapi/src/googleplusDomains.pp)828
-rw-r--r--packages/googleapi/src/googleprediction.pp145
-rw-r--r--packages/googleapi/src/googleproximitybeacon.pp2506
-rw-r--r--packages/googleapi/src/googlepubsub.pp1433
-rw-r--r--packages/googleapi/src/googleqpxexpress.pp (renamed from packages/googleapi/src/googleqpxExpress.pp)235
-rw-r--r--packages/googleapi/src/googlereplicapool.pp185
-rw-r--r--packages/googleapi/src/googlereplicapoolupdater.pp284
-rw-r--r--packages/googleapi/src/googlereseller.pp207
-rw-r--r--packages/googleapi/src/googleresourceviews.pp117
-rw-r--r--packages/googleapi/src/googleruntimeconfig.pp1862
-rw-r--r--packages/googleapi/src/googlesafebrowsing.pp2011
-rw-r--r--packages/googleapi/src/googlescript.pp809
-rw-r--r--packages/googleapi/src/googleserviceregistry.pp1416
-rw-r--r--packages/googleapi/src/googlesheets.pp9330
-rw-r--r--packages/googleapi/src/googlesiteverification.pp (renamed from packages/googleapi/src/googlesiteVerification.pp)39
-rw-r--r--packages/googleapi/src/googlespectrum.pp325
-rw-r--r--packages/googleapi/src/googlesqladmin.pp777
-rw-r--r--packages/googleapi/src/googlestorage.pp326
-rw-r--r--packages/googleapi/src/googlestoragetransfer.pp2538
-rw-r--r--packages/googleapi/src/googletagmanager.pp1739
-rw-r--r--packages/googleapi/src/googletaskqueue.pp63
-rw-r--r--packages/googleapi/src/googletasks.pp55
-rw-r--r--packages/googleapi/src/googletoolresults.pp3412
-rw-r--r--packages/googleapi/src/googletranslate.pp41
-rw-r--r--packages/googleapi/src/googleurlshortener.pp73
-rw-r--r--packages/googleapi/src/googlevision.pp2018
-rw-r--r--packages/googleapi/src/googlewebfonts.pp47
-rw-r--r--packages/googleapi/src/googlewebmasters.pp633
-rw-r--r--packages/googleapi/src/googleyoutube.pp4586
-rw-r--r--packages/googleapi/src/googleyoutubeanalytics.pp (renamed from packages/googleapi/src/googleyoutubeAnalytics.pp)100
-rw-r--r--packages/googleapi/src/googleyoutubereporting.pp1274
-rw-r--r--packages/ibase/src/ibase60.inc3
-rw-r--r--packages/os4units/fpmake.pp2
-rw-r--r--packages/os4units/src/cybergraphics.pas257
-rw-r--r--packages/os4units/src/icon.pas321
-rw-r--r--packages/os4units/src/picasso96api.pas441
-rw-r--r--packages/rtl-extra/src/amiga/sockets.pp4
-rw-r--r--packages/rtl-objpas/src/inc/strutils.pp20
-rw-r--r--packages/rtl-unicode/src/collations/collation_ko.pas2
-rw-r--r--packages/rtl-unicode/src/collations/collation_ru.pas108
-rw-r--r--packages/rtl-unicode/src/collations/collation_ru_be.inc782
-rw-r--r--packages/rtl-unicode/src/collations/collation_ru_le.inc782
-rw-r--r--packages/sdl/src/sdl_mixer.pas2
-rw-r--r--packages/sdl/src/sdl_net.pas2
-rw-r--r--packages/sdl/src/sdl_ttf.pas2
-rw-r--r--packages/winunits-base/Makefile.fpc.fpcmake2
-rw-r--r--packages/winunits-base/fpmake.pp18
-rw-r--r--packages/winunits-base/src/buildwinutilsbase.pp2
-rw-r--r--packages/winunits-base/src/win9xwsmanager.pp215
-rw-r--r--packages/x11/src/x.pp3
-rw-r--r--packages/x11/src/xlib.pp41
-rw-r--r--rtl/amiga/system.pp9
-rw-r--r--rtl/embedded/system.pp1
-rw-r--r--rtl/i386/int64p.inc2
-rw-r--r--rtl/i8086/i8086.inc58
-rw-r--r--rtl/inc/compproc.inc3
-rw-r--r--rtl/inc/dynarr.inc27
-rw-r--r--rtl/inc/heap.inc50
-rw-r--r--rtl/inc/heaph.inc8
-rw-r--r--rtl/inc/heaptrc.pp12
-rw-r--r--rtl/inc/llvmintr.inc2
-rw-r--r--rtl/inc/resh.inc4
-rw-r--r--rtl/inc/sysres.inc4
-rw-r--r--rtl/inc/system.inc8
-rw-r--r--rtl/inc/thread.inc7
-rw-r--r--rtl/inc/threadvr.inc2
-rw-r--r--rtl/inc/tinyheap.inc82
-rw-r--r--rtl/inc/tnyheaph.inc8
-rw-r--r--rtl/m68k/m68k.inc89
-rw-r--r--rtl/msdos/sysfile.inc2
-rw-r--r--rtl/msdos/sysheap.inc33
-rw-r--r--rtl/msdos/system.pp1
-rw-r--r--rtl/nativent/Makefile170
-rw-r--r--rtl/nativent/Makefile.fpc8
-rw-r--r--rtl/nativent/buildrtl.pp1
-rw-r--r--rtl/nativent/dos.pp267
-rw-r--r--rtl/nativent/sysutils.pp30
-rw-r--r--rtl/objpas/rtlconst.inc1
-rw-r--r--rtl/objpas/sysconst.pp4
-rw-r--r--rtl/objpas/sysutils/syssb.inc674
-rw-r--r--rtl/objpas/sysutils/syssbh.inc112
-rw-r--r--rtl/objpas/sysutils/sysstr.inc38
-rw-r--r--rtl/objpas/sysutils/sysstrh.inc45
-rw-r--r--rtl/unix/genfdset.inc2
-rw-r--r--rtl/win/wininc/ascdef.inc1
-rw-r--r--rtl/win/wininc/ascfun.inc1
-rw-r--r--rtl/win/wininc/base.inc1
-rw-r--r--rtl/win/wininc/defines.inc112
-rw-r--r--rtl/win/wininc/func.inc46
-rw-r--r--rtl/win/wininc/struct.inc200
-rw-r--r--rtl/win/wininc/unidef.inc1
-rw-r--r--rtl/win/wininc/unifun.inc1
-rw-r--r--rtl/win16/sysfile.inc6
-rw-r--r--rtl/win16/system.pp10
-rw-r--r--tests/Makefile6
-rw-r--r--tests/Makefile.fpc6
-rw-r--r--tests/test/cg/tcalcla1.pp2
-rw-r--r--tests/test/cg/tcalcst1.pp2
-rw-r--r--tests/test/cg/tcalcst2.pp2
-rw-r--r--tests/test/cg/tcalcst3.pp2
-rw-r--r--tests/test/cg/tcalcst4.pp2
-rw-r--r--tests/test/cg/tcalcst5.pp2
-rw-r--r--tests/test/cg/tcalcst6.pp2
-rw-r--r--tests/test/cg/tcalcst7.pp2
-rw-r--r--tests/test/cg/tcalcst8.pp2
-rw-r--r--tests/test/cg/tcalfun1.pp2
-rw-r--r--tests/test/cg/tcalfun2.pp2
-rw-r--r--tests/test/cg/tcalfun3.pp2
-rw-r--r--tests/test/cg/tcalfun4.pp2
-rw-r--r--tests/test/cg/tcalfun6.pp2
-rw-r--r--tests/test/cg/tcalfun7.pp2
-rw-r--r--tests/test/cg/tcalfun8.pp2
-rw-r--r--tests/test/cg/tcalobj1.pp2
-rw-r--r--tests/test/cg/tcalobj2.pp2
-rw-r--r--tests/test/cg/tcalobj3.pp2
-rw-r--r--tests/test/cg/tcalobj4.pp2
-rw-r--r--tests/test/cg/tcalobj6.pp2
-rw-r--r--tests/test/cg/tcalobj7.pp2
-rw-r--r--tests/test/cg/tcalval1.pp2
-rw-r--r--tests/test/cg/tcalval2.pp2
-rw-r--r--tests/test/cg/tcalval3.pp2
-rw-r--r--tests/test/cg/tcalval4.pp2
-rw-r--r--tests/test/cg/tcalval5.pp2
-rw-r--r--tests/test/cg/tcalval7.pp2
-rw-r--r--tests/test/cg/tcalval8.pp2
-rw-r--r--tests/test/cg/tcalvar1.pp2
-rw-r--r--tests/test/cg/tcalvar2.pp2
-rw-r--r--tests/test/cg/tcalvar3.pp2
-rw-r--r--tests/test/cg/tcalvar4.pp2
-rw-r--r--tests/test/cg/tcalvar5.pp2
-rw-r--r--tests/test/cg/tcalvar6.pp2
-rw-r--r--tests/test/cg/tcalvar7.pp2
-rw-r--r--tests/test/cg/tcalvar8.pp2
-rw-r--r--tests/test/tgeneric102.pp11
-rw-r--r--tests/test/theap.pp2
-rw-r--r--tests/test/ugeneric102.pp72
-rw-r--r--tests/test/units/fpcunit/tcstrutils.pp59
-rw-r--r--tests/test/units/fpcunit/tstrutils.lpi139
-rw-r--r--tests/test/units/fpcunit/tstrutils.lpr1
-rw-r--r--tests/test/units/fpwidestring/CollationTest_NON_IGNORABLE_SHORT.txt54245
-rw-r--r--tests/test/units/fpwidestring/CollationTest_SHIFTED_SHORT.txt58395
-rw-r--r--tests/test/units/system/tseg.pp26
-rw-r--r--tests/test/units/windows/twinrawinput32.pp101
-rw-r--r--tests/test/units/windows/twinrawinput64.pp101
-rw-r--r--tests/utils/dotest.pp2
-rw-r--r--tests/webtbs/tw30119a.pp154
-rw-r--r--tests/webtbs/tw30119b.pp158
-rw-r--r--tests/webtbs/tw30166.pp32
-rw-r--r--utils/unicode/cldrhelper.pas631
-rw-r--r--utils/unicode/cldrparser.lpr99
-rw-r--r--utils/unicode/cldrtest.pas2283
-rw-r--r--utils/unicode/cldrtxt.pas687
-rw-r--r--utils/unicode/cldrxml.pas538
-rw-r--r--utils/unicode/grbtree.pas4
-rw-r--r--utils/unicode/helper.pas219
-rw-r--r--utils/unicode/unicodeset.pas91
322 files changed, 180667 insertions, 103743 deletions
diff --git a/compiler/aasmtai.pas b/compiler/aasmtai.pas
index 0e5bfe8310..8c53024f9f 100644
--- a/compiler/aasmtai.pas
+++ b/compiler/aasmtai.pas
@@ -230,6 +230,7 @@ interface
{$ifdef m68k}
{ m68k only }
,top_regset
+ ,top_realconst
{$endif m68k}
{$ifdef jvm}
{ jvm only}
@@ -419,7 +420,8 @@ interface
top_conditioncode : (cc : TAsmCond);
{$endif defined(arm) or defined(aarch64)}
{$ifdef m68k}
- top_regset : (dataregset,addrregset,fpuregset:^tcpuregisterset);
+ top_regset : (dataregset,addrregset,fpuregset: tcpuregisterset);
+ top_realconst : (val_real:bestreal);
{$endif m68k}
{$ifdef jvm}
top_single : (sval:single);
@@ -2686,14 +2688,6 @@ implementation
top_regset:
dispose(regset);
{$endif ARM}
-{$ifdef m68k}
- top_regset:
- begin
- dispose(dataregset);
- dispose(addrregset);
- dispose(fpuregset);
- end;
-{$endif m68k}
{$ifdef jvm}
top_string:
freemem(pcval);
diff --git a/compiler/aoptbase.pas b/compiler/aoptbase.pas
index 0d52bb3583..9c4678e020 100644
--- a/compiler/aoptbase.pas
+++ b/compiler/aoptbase.pas
@@ -101,6 +101,10 @@ unit aoptbase;
{ returns true if hp loads a value from reg }
function InstructionLoadsFromReg(const reg : TRegister; const hp : tai) : boolean; Virtual;
+
+ { compares reg1 and reg2 having the same type and being the same super registers
+ so the register size is neglected }
+ function SuperRegistersEqual(reg1,reg2 : TRegister) : Boolean;
end;
function labelCanBeSkipped(p: tai_label): boolean;
@@ -305,6 +309,12 @@ unit aoptbase;
end;
+ function TAOptBase.SuperRegistersEqual(reg1,reg2 : TRegister) : Boolean;
+ Begin
+ Result:=(getregtype(reg1) = getregtype(reg2)) and
+ (getsupreg(reg1) = getsupreg(Reg2));
+ end;
+
{ ******************* Processor dependent stuff *************************** }
Function TAOptBase.RegMaxSize(Reg: TRegister): TRegister;
diff --git a/compiler/aoptobj.pas b/compiler/aoptobj.pas
index 2576d9158a..0511bc534d 100644
--- a/compiler/aoptobj.pas
+++ b/compiler/aoptobj.pas
@@ -346,7 +346,9 @@ Unit AoptObj;
{ processor dependent methods }
// if it returns true, perform a "continue"
+ function PrePeepHoleOptsCpu(var p: tai): boolean; virtual;
function PeepHoleOptPass1Cpu(var p: tai): boolean; virtual;
+ function PeepHoleOptPass2Cpu(var p: tai): boolean; virtual;
function PostPeepHoleOptsCpu(var p: tai): boolean; virtual;
End;
@@ -1080,8 +1082,7 @@ Unit AoptObj;
(StartPai.typ = ait_regAlloc) Then
Begin
if (tai_regalloc(StartPai).ratype=ra_alloc) and
- (getregtype(tai_regalloc(StartPai).Reg) = getregtype(Reg)) and
- (getsupreg(tai_regalloc(StartPai).Reg) = getsupreg(Reg)) then
+ SuperRegistersEqual(tai_regalloc(StartPai).Reg,Reg) then
begin
Result:=tai_regalloc(StartPai);
exit;
@@ -1178,7 +1179,7 @@ Unit AoptObj;
{$push}
{$r-}
- function tAOptObj.getlabelwithsym(sym: tasmlabel): tai;
+ function TAOptObj.getlabelwithsym(sym: tasmlabel): tai;
begin
if (int64(sym.labelnr) >= int64(labelinfo^.lowlabel)) and
(int64(sym.labelnr) <= int64(labelinfo^.highlabel)) then { range check, a jump can go past an assembler block! }
@@ -1342,7 +1343,19 @@ Unit AoptObj;
procedure TAOptObj.PrePeepHoleOpts;
+ var
+ p: tai;
begin
+ p := BlockStart;
+ ClearUsedRegs;
+ while (p <> BlockEnd) Do
+ begin
+ UpdateUsedRegs(tai(p.next));
+ if PrePeepHoleOptsCpu(p) then
+ continue;
+ UpdateUsedRegs(p);
+ p:=tai(p.next);
+ end;
end;
@@ -1400,10 +1413,10 @@ Unit AoptObj;
no-line-info-start/end etc }
if hp1.typ<>ait_marker then
begin
- {$if defined(SPARC) or defined(MIPS) }
+{$if defined(SPARC) or defined(MIPS) }
if (hp1.typ=ait_instruction) and (taicpu(hp1).is_jmp) then
RemoveDelaySlot(hp1);
- {$endif SPARC or MIPS }
+{$endif SPARC or MIPS }
asml.remove(hp1);
hp1.free;
stoploop:=false;
@@ -1423,9 +1436,9 @@ Unit AoptObj;
(p<>blockstart) then
begin
tasmlabel(JumpTargetOp(taicpu(p))^.ref^.symbol).decrefs;
- {$if defined(SPARC) or defined(MIPS)}
+{$if defined(SPARC) or defined(MIPS)}
RemoveDelaySlot(p);
- {$endif SPARC or MIPS}
+{$endif SPARC or MIPS}
hp2:=tai(hp1.next);
asml.remove(p);
p.free;
@@ -1451,15 +1464,15 @@ Unit AoptObj;
FindLabel(tasmlabel(JumpTargetOp(taicpu(p))^.ref^.symbol), hp2) then
begin
if (taicpu(p).opcode=aopt_condjmp)
- {$if defined(arm) or defined(aarch64)}
+{$if defined(arm) or defined(aarch64)}
and (taicpu(p).condition<>C_None)
- {$endif arm or aarch64}
- {$if defined(aarch64)}
+{$endif arm or aarch64}
+{$if defined(aarch64)}
{ can't have conditional branches to
global labels on AArch64, because the
offset may become too big }
and (tasmlabel(JumpTargetOp(taicpu(hp1))^.ref^.symbol).bind=AB_LOCAL)
- {$endif aarch64}
+{$endif aarch64}
then
begin
taicpu(p).condition:=inverse_cond(taicpu(p).condition);
@@ -1470,9 +1483,9 @@ Unit AoptObj;
taicpu(p).oper[0]^.ref^.symbol.increfs;
}
- {$if defined(SPARC) or defined(MIPS)}
+{$if defined(SPARC) or defined(MIPS)}
RemoveDelaySlot(hp1);
- {$endif SPARC or MIPS}
+{$endif SPARC or MIPS}
asml.remove(hp1);
hp1.free;
stoploop:=false;
@@ -1504,7 +1517,19 @@ Unit AoptObj;
procedure TAOptObj.PeepHoleOptPass2;
+ var
+ p: tai;
begin
+ p := BlockStart;
+ ClearUsedRegs;
+ while (p <> BlockEnd) Do
+ begin
+ UpdateUsedRegs(tai(p.next));
+ if PeepHoleOptPass2Cpu(p) then
+ continue;
+ UpdateUsedRegs(p);
+ p:=tai(p.next);
+ end;
end;
@@ -1525,12 +1550,24 @@ Unit AoptObj;
end;
+ function TAOptObj.PrePeepHoleOptsCpu(var p : tai) : boolean;
+ begin
+ result := false;
+ end;
+
+
function TAOptObj.PeepHoleOptPass1Cpu(var p: tai): boolean;
begin
result := false;
end;
+ function TAOptObj.PeepHoleOptPass2Cpu(var p : tai) : boolean;
+ begin
+ result := false;
+ end;
+
+
function TAOptObj.PostPeepHoleOptsCpu(var p: tai): boolean;
begin
result := false;
diff --git a/compiler/avr/aoptcpu.pas b/compiler/avr/aoptcpu.pas
index 5a7860996a..95fba6b87c 100644
--- a/compiler/avr/aoptcpu.pas
+++ b/compiler/avr/aoptcpu.pas
@@ -800,7 +800,7 @@ Implementation
mov rX,...
mov rX,...
}
- else if taicpu(hp1).opcode=A_MOV then
+ else if (hp1.typ=ait_instruction) and (taicpu(hp1).opcode=A_MOV) then
while (hp1.typ=ait_instruction) and (taicpu(hp1).opcode=A_MOV) and
MatchOperand(taicpu(p).oper[0]^, taicpu(hp1).oper[0]^) and
{ don't remove the first mov if the second is a mov rX,rX }
diff --git a/compiler/dbgdwarf.pas b/compiler/dbgdwarf.pas
index d6be6c70b7..4b8626bcd6 100644
--- a/compiler/dbgdwarf.pas
+++ b/compiler/dbgdwarf.pas
@@ -1683,8 +1683,8 @@ implementation
procedure TDebugInfoDwarf.appenddef_array(list:TAsmList;def:tarraydef);
var
- size : aint;
- elesize : aint;
+ size : PInt;
+ elesize : PInt;
elestrideattr : tdwarf_attribute;
labsym: tasmlabel;
begin
@@ -2461,14 +2461,14 @@ implementation
{ This is only a minimal change to at least be able to get a value
in only one thread is present PM 2014-11-21, like for stabs format }
templist.concat(tai_const.create_8bit(ord(DW_OP_addr)));
- templist.concat(tai_const.Create_type_name(aitconst_ptr,sym.mangledname,
+ templist.concat(tai_const.Create_type_name(aitconst_ptr_unaligned,sym.mangledname,
offset+sizeof(pint)));
blocksize:=1+sizeof(puint);
end
else
begin
templist.concat(tai_const.create_8bit(ord(DW_OP_addr)));
- templist.concat(tai_const.Create_type_name(aitconst_ptr,sym.mangledname,offset));
+ templist.concat(tai_const.Create_type_name(aitconst_ptr_unaligned,sym.mangledname,offset));
blocksize:=1+sizeof(puint);
end;
end;
@@ -2929,7 +2929,7 @@ implementation
toasm :
begin
templist.concat(tai_const.create_8bit(3));
- templist.concat(tai_const.create_type_name(aitconst_ptr,sym.mangledname,0));
+ templist.concat(tai_const.create_type_name(aitconst_ptr_unaligned,sym.mangledname,0));
blocksize:=1+sizeof(puint);
end;
tovar:
diff --git a/compiler/fmodule.pas b/compiler/fmodule.pas
index e8f271eddd..32d7a2c22f 100644
--- a/compiler/fmodule.pas
+++ b/compiler/fmodule.pas
@@ -195,6 +195,9 @@ interface
non-generic typename and the data is a TFPObjectList of tgenericdummyentry
instances whereby the last one is the current top most one }
genericdummysyms: TFPHashObjectList;
+ { contains a list of specializations for which the method bodies need
+ to be generated }
+ pendingspecializations : TFPHashObjectList;
{ this contains a list of units that needs to be waited for until the
unit can be finished (code generated, etc.); this is needed to handle
@@ -585,6 +588,7 @@ implementation
checkforwarddefs:=TFPObjectList.Create(false);
extendeddefs:=TFPHashObjectList.Create(true);
genericdummysyms:=tfphashobjectlist.create(true);
+ pendingspecializations:=tfphashobjectlist.create(false);
waitingforunit:=tfpobjectlist.create(false);
waitingunits:=tfpobjectlist.create(false);
globalsymtable:=nil;
@@ -677,6 +681,7 @@ implementation
FImportLibraryList.Free;
extendeddefs.Free;
genericdummysyms.free;
+ pendingspecializations.free;
waitingforunit.free;
waitingunits.free;
stringdispose(asmprefix);
@@ -774,6 +779,8 @@ implementation
wpoinfo:=nil;
checkforwarddefs.free;
checkforwarddefs:=TFPObjectList.Create(false);
+ unitimportsyms.free;
+ unitimportsyms:=TFPObjectList.Create(false);
derefdata.free;
derefdata:=TDynamicArray.Create(1024);
if assigned(unitmap) then
@@ -806,6 +813,8 @@ implementation
dependent_units:=TLinkedList.Create;
resourcefiles.Free;
resourcefiles:=TCmdStrList.Create;
+ pendingspecializations.free;
+ pendingspecializations:=tfphashobjectlist.create(false);
linkunitofiles.Free;
linkunitofiles:=TLinkContainer.Create;
linkunitstaticlibs.Free;
@@ -1049,10 +1058,6 @@ implementation
macrosymtablestack.free;
macrosymtablestack:=nil;
end;
- extendeddefs.free;
- extendeddefs:=nil;
- genericdummysyms.free;
- genericdummysyms:=nil;
waitingforunit.free;
waitingforunit:=nil;
localmacrosymtable.free;
diff --git a/compiler/hlcgobj.pas b/compiler/hlcgobj.pas
index 1b690e2ad1..e25ea9682d 100644
--- a/compiler/hlcgobj.pas
+++ b/compiler/hlcgobj.pas
@@ -598,15 +598,8 @@ unit hlcgobj;
protected
{ helpers called by gen_initialize_code/gen_finalize_code }
procedure inittempvariables(list:TAsmList);virtual;
- procedure initialize_data(p:TObject;arg:pointer);virtual;
procedure finalizetempvariables(list:TAsmList);virtual;
procedure initialize_regvars(p:TObject;arg:pointer);virtual;
- procedure finalize_sym(asmlist:TAsmList;sym:tsym);virtual;
- { generates the code for finalisation of local variables }
- procedure finalize_local_vars(p:TObject;arg:pointer);virtual;
- { generates the code for finalization of static symtable and
- all local (static) typed consts }
- procedure finalize_static_data(p:TObject;arg:pointer);virtual;
{ generates the code for decrementing the reference count of parameters }
procedure final_paras(p:TObject;arg:pointer);
public
@@ -674,7 +667,7 @@ implementation
fmodule,export,
verbose,defutil,paramgr,
symtable,
- nbas,ncon,nld,ncgrtti,pass_1,pass_2,
+ nbas,ncon,nld,ncgrtti,pass_2,
cpuinfo,cgobj,cutils,procinfo,
{$ifdef x86}
cgx86,
@@ -4515,26 +4508,12 @@ implementation
procedure thlcgobj.gen_initialize_code(list: TAsmList);
begin
- { initialize local data like ansistrings }
+ { initialize register variables }
case current_procinfo.procdef.proctypeoption of
potype_unitinit:
- begin
- { this is also used for initialization of variables in a
- program which does not have a globalsymtable }
- if assigned(current_module.globalsymtable) then
- TSymtable(current_module.globalsymtable).SymList.ForEachCall(@initialize_data,list);
- TSymtable(current_module.localsymtable).SymList.ForEachCall(@initialize_data,list);
- TSymtable(current_module.localsymtable).SymList.ForEachCall(@initialize_regvars,list);
- end;
- { units have seperate code for initilization and finalization }
- potype_unitfinalize: ;
- { program init/final is generated in separate procedure }
+ TSymtable(current_module.localsymtable).SymList.ForEachCall(@initialize_regvars,list);
potype_proginit:
- begin
- TSymtable(current_module.localsymtable).SymList.ForEachCall(@initialize_regvars,list);
- end;
- else
- current_procinfo.procdef.localst.SymList.ForEachCall(@initialize_data,list);
+ TSymtable(current_module.localsymtable).SymList.ForEachCall(@initialize_regvars,list);
end;
{ initialises temp. ansi/wide string data }
@@ -4565,24 +4544,6 @@ implementation
{ finalize temporary data }
finalizetempvariables(list);
- { finalize local data like ansistrings}
- case current_procinfo.procdef.proctypeoption of
- potype_unitfinalize:
- begin
- { this is also used for initialization of variables in a
- program which does not have a globalsymtable }
- if assigned(current_module.globalsymtable) then
- TSymtable(current_module.globalsymtable).SymList.ForEachCall(@finalize_static_data,list);
- TSymtable(current_module.localsymtable).SymList.ForEachCall(@finalize_static_data,list);
- end;
- { units/progs have separate code for initialization and finalization }
- potype_unitinit: ;
- { program init/final is generated in separate procedure }
- potype_proginit: ;
- else
- current_procinfo.procdef.localst.SymList.ForEachCall(@finalize_local_vars,list);
- end;
-
{ finalize paras data }
if assigned(current_procinfo.procdef.parast) and
not(po_assembler in current_procinfo.procdef.procoptions) then
@@ -4682,35 +4643,6 @@ implementation
end;
end;
- procedure thlcgobj.initialize_data(p: TObject; arg: pointer);
- var
- OldAsmList : TAsmList;
- hp : tnode;
- begin
- if (tsym(p).typ = localvarsym) and
- { local (procedure or unit) variables only need initialization if
- they are used }
- ((tabstractvarsym(p).refs>0) or
- { managed return symbols must be inited }
- ((tsym(p).typ=localvarsym) and (vo_is_funcret in tlocalvarsym(p).varoptions))
- ) and
- not(vo_is_typed_const in tabstractvarsym(p).varoptions) and
- not(vo_is_external in tabstractvarsym(p).varoptions) and
- not(vo_is_default_var in tabstractvarsym(p).varoptions) and
- (is_managed_type(tabstractvarsym(p).vardef) or
- ((m_iso in current_settings.modeswitches) and (tabstractvarsym(p).vardef.typ=filedef))
- ) then
- begin
- OldAsmList:=current_asmdata.CurrAsmList;
- current_asmdata.CurrAsmList:=TAsmList(arg);
- hp:=cnodeutils.initialize_data_node(cloadnode.create(tsym(p),tsym(p).owner),false);
- firstpass(hp);
- secondpass(hp);
- hp.free;
- current_asmdata.CurrAsmList:=OldAsmList;
- end;
- end;
-
procedure thlcgobj.finalizetempvariables(list: TAsmList);
var
hp : ptemprecord;
@@ -4777,80 +4709,6 @@ implementation
end;
end;
- procedure thlcgobj.finalize_sym(asmlist: TAsmList; sym: tsym);
- var
- hp : tnode;
- OldAsmList : TAsmList;
- begin
- include(current_procinfo.flags,pi_needs_implicit_finally);
- OldAsmList:=current_asmdata.CurrAsmList;
- current_asmdata.CurrAsmList:=asmlist;
- hp:=cloadnode.create(sym,sym.owner);
- if (sym.typ=staticvarsym) and (vo_force_finalize in tstaticvarsym(sym).varoptions) then
- include(tloadnode(hp).loadnodeflags,loadnf_isinternal_ignoreconst);
- hp:=cnodeutils.finalize_data_node(hp);
- firstpass(hp);
- secondpass(hp);
- hp.free;
- current_asmdata.CurrAsmList:=OldAsmList;
- end;
-
- procedure thlcgobj.finalize_local_vars(p: TObject; arg: pointer);
- begin
- if (tsym(p).typ=localvarsym) and
- (tlocalvarsym(p).refs>0) and
- not(vo_is_external in tlocalvarsym(p).varoptions) and
- not(vo_is_funcret in tlocalvarsym(p).varoptions) and
- not(vo_is_default_var in tabstractvarsym(p).varoptions) and
- is_managed_type(tlocalvarsym(p).vardef) then
- finalize_sym(TAsmList(arg),tsym(p));
- end;
-
- procedure thlcgobj.finalize_static_data(p: TObject; arg: pointer);
- var
- i : longint;
- pd : tprocdef;
- begin
- case tsym(p).typ of
- staticvarsym :
- begin
- { local (procedure or unit) variables only need finalization
- if they are used
- }
- if ((tstaticvarsym(p).refs>0) or
- { global (unit) variables always need finalization, since
- they may also be used in another unit
- }
- (tstaticvarsym(p).owner.symtabletype=globalsymtable)) and
- (
- (tstaticvarsym(p).varspez<>vs_const) or
- (vo_force_finalize in tstaticvarsym(p).varoptions)
- ) and
- not(vo_is_funcret in tstaticvarsym(p).varoptions) and
- not(vo_is_external in tstaticvarsym(p).varoptions) and
- is_managed_type(tstaticvarsym(p).vardef) and
- not (
- assigned(tstaticvarsym(p).fieldvarsym) and
- assigned(tstaticvarsym(p).fieldvarsym.owner.defowner) and
- (df_generic in tdef(tstaticvarsym(p).fieldvarsym.owner.defowner).defoptions)
- )
- then
- finalize_sym(TAsmList(arg),tsym(p));
- end;
- procsym :
- begin
- for i:=0 to tprocsym(p).ProcdefList.Count-1 do
- begin
- pd:=tprocdef(tprocsym(p).ProcdefList[i]);
- if assigned(pd.localst) and
- (pd.procsym=tprocsym(p)) and
- (pd.localst.symtabletype<>staticsymtable) then
- pd.localst.SymList.ForEachCall(@finalize_static_data,arg);
- end;
- end;
- end;
- end;
-
procedure thlcgobj.final_paras(p: TObject; arg: pointer);
var
list : TAsmList;
@@ -4979,6 +4837,7 @@ implementation
else
highloc.loc:=LOC_INVALID;
eldef:=tarraydef(tparavarsym(p).vardef).elementdef;
+ g_ptrtypecast_ref(list,cpointerdef.getreusable(tparavarsym(p).vardef),cpointerdef.getreusable(eldef),href);
g_array_rtti_helper(list,eldef,href,highloc,'fpc_initialize_array');
end
else
diff --git a/compiler/i8086/cgcpu.pas b/compiler/i8086/cgcpu.pas
index 5de6eda307..2a5a4aa2a2 100644
--- a/compiler/i8086/cgcpu.pas
+++ b/compiler/i8086/cgcpu.pas
@@ -1809,6 +1809,13 @@ unit cgcpu;
procedure tcg8086.g_stackpointer_alloc(list : TAsmList;localsize: longint);
begin
+ if cs_check_stack in current_settings.localswitches then
+ begin
+ cg.getcpuregister(list,NR_AX);
+ cg.a_load_const_reg(list,OS_16, localsize,NR_AX);
+ cg.a_call_name(list,'FPC_STACKCHECK_I8086',false);
+ cg.ungetcpuregister(list, NR_AX);
+ end;
if localsize>0 then
list.concat(Taicpu.Op_const_reg(A_SUB,S_W,localsize,NR_STACK_POINTER_REG));
end;
diff --git a/compiler/llvm/aasmllvm.pas b/compiler/llvm/aasmllvm.pas
index 430754e101..af1ab28c03 100644
--- a/compiler/llvm/aasmllvm.pas
+++ b/compiler/llvm/aasmllvm.pas
@@ -142,11 +142,10 @@ interface
);
taillvmalias = class(tailineinfo)
- vis: tllvmvisibility;
- linkage: tllvmlinkage;
+ bind: tasmsymbind;
oldsym, newsym: TAsmSymbol;
def: tdef;
- constructor create(_oldsym: tasmsymbol; const newname: TSymStr; _def: tdef; _vis: tllvmvisibility; _linkage: tllvmlinkage);
+ constructor create(_oldsym: tasmsymbol; const newname: TSymStr; _def: tdef; _bind: tasmsymbind);
end;
taillvmdeclflag =
@@ -244,7 +243,7 @@ uses
{ taillvmalias }
- constructor taillvmalias.create(_oldsym: tasmsymbol; const newname: TSymStr; _def: tdef; _vis: tllvmvisibility; _linkage: tllvmlinkage);
+ constructor taillvmalias.create(_oldsym: tasmsymbol; const newname: TSymStr; _def: tdef; _bind: tasmsymbind);
begin
inherited Create;
typ:=ait_llvmalias;
@@ -252,8 +251,7 @@ uses
newsym:=current_asmdata.DefineAsmSymbol(newname,AB_GLOBAL,AT_FUNCTION);
newsym.declared:=true;
def:=_def;
- vis:=_vis;
- linkage:=_linkage;
+ bind:=_bind;
end;
@@ -584,7 +582,7 @@ uses
la_icmp, la_fcmp:
begin
case opnr of
- 0: result:=pasbool8type;
+ 0: result:=llvmbool1type;
3,4: result:=oper[2]^.def;
else
internalerror(2013110801);
diff --git a/compiler/llvm/agllvm.pas b/compiler/llvm/agllvm.pas
index 8921708e9b..f0c7a1a19d 100644
--- a/compiler/llvm/agllvm.pas
+++ b/compiler/llvm/agllvm.pas
@@ -731,13 +731,15 @@ implementation
procedure WriteLinkageVibilityFlags(bind: TAsmSymBind);
begin
case bind of
- AB_EXTERNAL:
+ AB_EXTERNAL,
+ AB_EXTERNAL_INDIRECT:
writer.AsmWrite(' external');
AB_COMMON:
writer.AsmWrite(' common');
AB_LOCAL:
writer.AsmWrite(' internal');
- AB_GLOBAL:
+ AB_GLOBAL,
+ AB_INDIRECT:
writer.AsmWrite('');
AB_WEAK_EXTERNAL:
writer.AsmWrite(' extern_weak');
@@ -1047,18 +1049,7 @@ implementation
begin
writer.AsmWrite(LlvmAsmSymName(taillvmalias(hp).newsym));
writer.AsmWrite(' = alias ');
- if taillvmalias(hp).linkage<>lll_default then
- begin
- str(taillvmalias(hp).linkage, s);
- writer.AsmWrite(copy(s, length('lll_')+1, 255));
- writer.AsmWrite(' ');
- end;
- if taillvmalias(hp).vis<>llv_default then
- begin
- str(taillvmalias(hp).vis, s);
- writer.AsmWrite(copy(s, length('llv_')+1, 255));
- writer.AsmWrite(' ');
- end;
+ WriteLinkageVibilityFlags(taillvmalias(hp).bind);
if taillvmalias(hp).def.typ=procdef then
writer.AsmWrite(llvmencodeproctype(tabstractprocdef(taillvmalias(hp).def), '', lpd_alias))
else
diff --git a/compiler/llvm/hlcgllvm.pas b/compiler/llvm/hlcgllvm.pas
index 805da16185..ac08930160 100644
--- a/compiler/llvm/hlcgllvm.pas
+++ b/compiler/llvm/hlcgllvm.pas
@@ -934,7 +934,7 @@ implementation
tmpsrc1:=getintregister(list,calcsize);
a_load_reg_reg(list,size,calcsize,dst,tmpsrc1);
location_reset(ovloc,LOC_REGISTER,OS_8);
- ovloc.register:=getintregister(list,pasbool8type);
+ ovloc.register:=getintregister(list,llvmbool1type);
list.concat(taillvm.op_reg_cond_size_reg_reg(la_icmp,ovloc.register,OC_NE,calcsize,tmpsrc1,tmpdst));
end;
@@ -950,6 +950,9 @@ implementation
if (size=pasbool8type) and
(cmp_op in [OC_EQ,OC_NE]) then
begin
+ { convert to an llvmbool1type and use directly }
+ tmpreg:=getintregister(list,llvmbool1type);
+ a_load_reg_reg(list,size,llvmbool1type,reg,tmpreg);
case cmp_op of
OC_EQ:
invert:=a=0;
@@ -967,7 +970,7 @@ implementation
l:=falselab;
falselab:=tmplab;
end;
- list.concat(taillvm.op_size_reg_lab_lab(la_br,pasbool8type,reg,l,falselab));
+ list.concat(taillvm.op_size_reg_lab_lab(la_br,llvmbool1type,tmpreg,l,falselab));
a_label(list,fallthroughlab);
exit;
end;
@@ -984,13 +987,13 @@ implementation
begin
if getregtype(reg1)<>getregtype(reg2) then
internalerror(2012111105);
- resreg:=getintregister(list,pasbool8type);
+ resreg:=getintregister(list,llvmbool1type);
current_asmdata.getjumplabel(falselab);
{ invert order of registers. In FPC, cmp_reg_reg(reg1,reg2) means that
e.g. OC_GT is true if "subl %reg1,%reg2" in x86 AT&T is >0. In LLVM,
OC_GT is true if op1>op2 }
list.concat(taillvm.op_reg_cond_size_reg_reg(la_icmp,resreg,cmp_op,size,reg2,reg1));
- list.concat(taillvm.op_size_reg_lab_lab(la_br,pasbool8type,resreg,l,falselab));
+ list.concat(taillvm.op_size_reg_lab_lab(la_br,llvmbool1type,resreg,l,falselab));
a_label(list,falselab);
end;
@@ -1037,7 +1040,7 @@ implementation
a_load_const_cgpara(list,u32inttype,maxalign,alignpara);
{ we don't know anything about volatility here, should become an extra
parameter to g_concatcopy }
- a_load_const_cgpara(list,pasbool8type,0,volatilepara);
+ a_load_const_cgpara(list,llvmbool1type,0,volatilepara);
g_call_system_proc(list,pd,[@destpara,@sourcepara,@sizepara,@alignpara,@volatilepara],nil).resetiftemp;
sourcepara.done;
destpara.done;
@@ -1171,7 +1174,7 @@ implementation
while assigned(item) do
begin
if mangledname<>item.Str then
- list.concat(taillvmalias.create(asmsym,item.str,current_procinfo.procdef,llv_default,lll_default));
+ list.concat(taillvmalias.create(asmsym,item.str,current_procinfo.procdef,asmsym.bind));
item:=TCmdStrListItem(item.next);
end;
list.concat(taillvmdecl.createdef(asmsym,current_procinfo.procdef,nil,sec_code,current_procinfo.procdef.alignment));
@@ -1292,7 +1295,7 @@ implementation
if ovloc.size<>OS_8 then
internalerror(2015122504);
current_asmdata.getjumplabel(hl);
- a_cmp_const_loc_label(list,pasbool8type,OC_EQ,0,ovloc,hl);
+ a_cmp_const_loc_label(list,llvmbool1type,OC_EQ,0,ovloc,hl);
g_call_system_proc(list,'fpc_overflow',[],nil);
a_label(list,hl);
end;
@@ -1901,7 +1904,7 @@ implementation
if po_external in procdef.procoptions then
exit;
asmsym:=current_asmdata.RefAsmSymbol(externalname,AT_FUNCTION);
- list.concat(taillvmalias.create(asmsym,procdef.mangledname,procdef,llv_default,lll_default));
+ list.concat(taillvmalias.create(asmsym,procdef.mangledname,procdef,asmsym.bind));
end;
diff --git a/compiler/llvm/llvmdef.pas b/compiler/llvm/llvmdef.pas
index be3c3972ca..17114cf8dd 100644
--- a/compiler/llvm/llvmdef.pas
+++ b/compiler/llvm/llvmdef.pas
@@ -211,17 +211,23 @@ implementation
end;
end;
end
- else if is_pasbool(fromsize) and
- not is_pasbool(tosize) then
+ else if (fromsize=llvmbool1type) and
+ (tosize<>llvmbool1type) then
begin
if is_cbool(tosize) then
result:=la_sext
else
result:=la_zext
end
- else if is_pasbool(tosize) and
- not is_pasbool(fromsize) then
- result:=la_trunc
+ else if (tosize=llvmbool1type) and
+ (fromsize<>llvmbool1type) then
+ begin
+ { would have to compare with 0, can't just take the lowest bit }
+ if is_cbool(fromsize) then
+ internalerror(2016052001)
+ else
+ result:=la_trunc
+ end
else
result:=la_bitcast;
end;
@@ -308,10 +314,10 @@ implementation
if is_void(def) then
encodedstr:=encodedstr+'void'
{ mainly required because comparison operations return i1, and
- otherwise we always have to immediatel extend them to i8 for
- no good reason; besides, Pascal booleans can only contain 0
- or 1 in valid code anyway (famous last words...) }
- else if torddef(def).ordtype=pasbool8 then
+ we need a way to represent the i1 type in Pascal. We don't
+ reuse pasbool8type, because putting an i1 in a record or
+ passing it as a parameter may result in unexpected behaviour }
+ else if def=llvmbool1type then
encodedstr:=encodedstr+'i1'
else
encodedstr:=encodedstr+'i'+tostr(def.size*8);
diff --git a/compiler/llvm/nllvmadd.pas b/compiler/llvm/nllvmadd.pas
index a348c4a6c5..d54b9c0eff 100644
--- a/compiler/llvm/nllvmadd.pas
+++ b/compiler/llvm/nllvmadd.pas
@@ -109,7 +109,7 @@ implementation
pass_left_right;
location_reset(location,LOC_REGISTER,OS_8);
- location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,pasbool8type);
+ location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,llvmbool1type);
force_reg_left_right(false,false);
@@ -143,11 +143,15 @@ implementation
else
internalerror(2012042701);
end;
+ tmpreg:=hlcg.getintregister(current_asmdata.CurrAsmList,resultdef);
+ hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,llvmbool1type,resultdef,location.register,tmpreg);
+ location.register:=tmpreg;
end;
procedure tllvmaddnode.second_cmpordinal;
var
+ tmpreg: tregister;
cmpop: topcmp;
unsigned : boolean;
begin
@@ -189,7 +193,7 @@ implementation
cmpop:=swap_opcmp(cmpop);
location_reset(location,LOC_REGISTER,OS_8);
- location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,resultdef);
+ location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,llvmbool1type);
if right.location.loc=LOC_CONSTANT then
current_asmdata.CurrAsmList.concat(taillvm.op_reg_cond_size_reg_const(la_icmp,
@@ -197,6 +201,10 @@ implementation
else
current_asmdata.CurrAsmList.concat(taillvm.op_reg_cond_size_reg_reg(la_icmp,
location.register,cmpop,left.resultdef,left.location.register,right.location.register));
+
+ tmpreg:=hlcg.getintregister(current_asmdata.CurrAsmList,resultdef);
+ hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,llvmbool1type,resultdef,location.register,tmpreg);
+ location.register:=tmpreg;
end;
@@ -214,6 +222,7 @@ implementation
procedure tllvmaddnode.second_addfloat;
var
+ tmpreg: tregister;
op : tllvmop;
llvmfpcmp : tllvmfpcmp;
size : tdef;
@@ -279,7 +288,7 @@ implementation
else
begin
location_reset(location,LOC_REGISTER,OS_8);
- location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,resultdef);
+ location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,llvmbool1type);
end;
{ see comment in thlcgllvm.a_loadfpu_ref_reg }
@@ -297,7 +306,10 @@ implementation
else
begin
current_asmdata.CurrAsmList.concat(taillvm.op_reg_fpcond_size_reg_reg(op,
- location.register,llvmfpcmp,size,left.location.register,right.location.register))
+ location.register,llvmfpcmp,size,left.location.register,right.location.register));
+ tmpreg:=hlcg.getintregister(current_asmdata.CurrAsmList,resultdef);
+ hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,llvmbool1type,resultdef,location.register,tmpreg);
+ location.register:=tmpreg;
end;
end;
diff --git a/compiler/llvm/nllvmcnv.pas b/compiler/llvm/nllvmcnv.pas
index 7db9df8aa0..e696f9ee09 100644
--- a/compiler/llvm/nllvmcnv.pas
+++ b/compiler/llvm/nllvmcnv.pas
@@ -50,7 +50,7 @@ interface
{ procedure second_cord_to_pointer;override; }
procedure second_proc_to_procvar;override;
procedure second_nil_to_methodprocvar; override;
- procedure second_bool_to_int;override;
+ { procedure second_bool_to_int;override; }
procedure second_int_to_bool;override;
{ procedure second_load_smallset;override; }
{ procedure second_ansistring_to_pchar;override; }
@@ -202,39 +202,6 @@ procedure tllvmtypeconvnode.second_nil_to_methodprocvar;
end;
-procedure tllvmtypeconvnode.second_bool_to_int;
- var
- pdef: tdef;
- hreg: tregister;
- begin
- inherited;
- { all boolean/integer of the same size are represented using the same type
- by FPC in LLVM, except for Pascal booleans, which are i1 -> convert
- the type if necessary. This never has to be done for registers on the
- assignment side, because we make everything that's explicitly typecasted
- on the assignment side non regable for llvm }
- if is_pasbool(left.resultdef) and
- (nf_explicit in flags) and
- not(left.location.loc in [LOC_FLAGS,LOC_JUMP]) and
- (resultdef.size=1) then
- case location.loc of
- LOC_REFERENCE,LOC_CREFERENCE:
- begin
- pdef:=cpointerdef.getreusable(resultdef);
- hreg:=hlcg.getaddressregister(current_asmdata.CurrAsmList,pdef);
- hlcg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,left.resultdef,pdef,location.reference,hreg);
- hlcg.reference_reset_base(location.reference,pdef,hreg,0,location.reference.alignment);
- end;
- LOC_REGISTER,LOC_CREGISTER:
- begin
- hreg:=hlcg.getintregister(current_asmdata.CurrAsmList,resultdef);
- hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,left.resultdef,resultdef,location.register,hreg);
- location.register:=hreg;
- end;
- end;
- end;
-
-
procedure tllvmtypeconvnode.second_int_to_bool;
var
truelabel,
diff --git a/compiler/llvm/nllvmmat.pas b/compiler/llvm/nllvmmat.pas
index 24c2a98948..031100feae 100644
--- a/compiler/llvm/nllvmmat.pas
+++ b/compiler/llvm/nllvmmat.pas
@@ -96,16 +96,16 @@ procedure tllvmmoddivnode.pass_generate_code;
begin
current_asmdata.getjumplabel(hl);
location_reset(ovloc,LOC_REGISTER,OS_8);
- ovloc.register:=hlcg.getintregister(current_asmdata.CurrAsmList,pasbool8type);
+ ovloc.register:=hlcg.getintregister(current_asmdata.CurrAsmList,llvmbool1type);
if right.nodetype=ordconstn then
current_asmdata.CurrAsmList.concat(taillvm.op_reg_cond_size_reg_const(la_icmp,ovloc.register,OC_EQ,resultdef,left.location.register,low(int64)))
else
begin
- tmpovreg1:=hlcg.getintregister(current_asmdata.CurrAsmList,pasbool8type);
- tmpovreg2:=hlcg.getintregister(current_asmdata.CurrAsmList,pasbool8type);
+ tmpovreg1:=hlcg.getintregister(current_asmdata.CurrAsmList,llvmbool1type);
+ tmpovreg2:=hlcg.getintregister(current_asmdata.CurrAsmList,llvmbool1type);
current_asmdata.CurrAsmList.concat(taillvm.op_reg_cond_size_reg_const(la_icmp,tmpovreg1,OC_EQ,resultdef,left.location.register,low(int64)));
current_asmdata.CurrAsmList.concat(taillvm.op_reg_cond_size_reg_const(la_icmp,tmpovreg2,OC_EQ,resultdef,right.location.register,-1));
- hlcg.a_op_reg_reg_reg(current_asmdata.CurrAsmList,OP_AND,pasbool8type,tmpovreg1,tmpovreg2,ovloc.register);
+ hlcg.a_op_reg_reg_reg(current_asmdata.CurrAsmList,OP_AND,llvmbool1type,tmpovreg1,tmpovreg2,ovloc.register);
end;
hlcg.g_overflowCheck_loc(current_asmdata.CurrAsmList,location,resultdef,ovloc);
end;
diff --git a/compiler/llvm/nllvmutil.pas b/compiler/llvm/nllvmutil.pas
index f33b2b38e1..fc8d204b4a 100644
--- a/compiler/llvm/nllvmutil.pas
+++ b/compiler/llvm/nllvmutil.pas
@@ -45,13 +45,16 @@ implementation
uses
verbose,cutils,globals,fmodule,systems,
aasmbase,aasmtai,cpubase,llvmbase,aasmllvm,
+ aasmcnst,
symbase,symtable,defutil,
llvmtype;
class procedure tllvmnodeutils.insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint; varalign: shortint);
var
- asmsym: tasmsymbol;
+ asmsym,
+ symind: tasmsymbol;
field1, field2: tsym;
+ tcb: ttai_typedconstbuilder;
begin
if sym.globalasmsym then
asmsym:=current_asmdata.DefineAsmSymbol(sym.mangledname,AB_GLOBAL,AT_DATA)
@@ -65,6 +68,15 @@ implementation
list.concat(taillvmdecl.createdef(asmsym,
get_threadvar_record(sym.vardef,field1,field2),
nil,sec_data,varalign));
+ symind:=current_asmdata.DefineAsmSymbol(sym.mangledname,AB_INDIRECT,AT_DATA);
+ tcb:=ctai_typedconstbuilder.create([tcalo_make_dead_strippable,tcalo_new_section]);
+ tcb.emit_tai(Tai_const.Create_sym_offset(asmsym,0),cpointerdef.getreusable(sym.vardef));
+ list.concatlist(tcb.get_final_asmlist(
+ symind,cpointerdef.getreusable(sym.vardef),
+ sec_rodata,
+ lower(sym.mangledname),
+ const_align(sym.vardef.alignment)));
+ tcb.free;
end;
diff --git a/compiler/m68k/aasmcpu.pas b/compiler/m68k/aasmcpu.pas
index 0dfc7d639a..f7c0ee7a53 100644
--- a/compiler/m68k/aasmcpu.pas
+++ b/compiler/m68k/aasmcpu.pas
@@ -42,6 +42,7 @@ type
opsize : topsize;
procedure loadregset(opidx:longint; const dataregs,addrregs,fpuregs:tcpuregisterset);
+ procedure loadrealconst(opidx:longint; const value_real: bestreal);
constructor op_none(op : tasmop);
constructor op_none(op : tasmop;_size : topsize);
@@ -57,6 +58,7 @@ type
constructor op_const_reg(op : tasmop;_size : topsize;_op1 : longint;_op2 : tregister);
constructor op_const_const(op : tasmop;_size : topsize;_op1,_op2 : longint);
constructor op_const_ref(op : tasmop;_size : topsize;_op1 : longint;_op2 : treference);
+ constructor op_realconst_reg(op : tasmop;_size : topsize;_op1: bestreal;_op2: tregister);
constructor op_ref_reg(op : tasmop;_size : topsize;_op1 : treference;_op2 : tregister);
{ this is only allowed if _op1 is an int value (_op1^.isintvalue=true) }
@@ -125,31 +127,40 @@ type
begin
if typ<>top_regset then
clearop(opidx);
- new(dataregset);
- new(addrregset);
- new(fpuregset);
- dataregset^:=dataregs;
- addrregset^:=addrregs;
- fpuregset^:=fpuregs;
+ dataregset:=dataregs;
+ addrregset:=addrregs;
+ fpuregset:=fpuregs;
typ:=top_regset;
for i:=RS_D0 to RS_D7 do
begin
- if assigned(add_reg_instruction_hook) and (i in dataregset^) then
+ if assigned(add_reg_instruction_hook) and (i in dataregset) then
add_reg_instruction_hook(self,newreg(R_INTREGISTER,i,R_SUBWHOLE));
end;
for i:=RS_A0 to RS_SP do
begin
- if assigned(add_reg_instruction_hook) and (i in addrregset^) then
+ if assigned(add_reg_instruction_hook) and (i in addrregset) then
add_reg_instruction_hook(self,newreg(R_ADDRESSREGISTER,i,R_SUBWHOLE));
end;
for i:=RS_FP0 to RS_FP7 do
begin
- if assigned(add_reg_instruction_hook) and (i in fpuregset^) then
+ if assigned(add_reg_instruction_hook) and (i in fpuregset) then
add_reg_instruction_hook(self,newreg(R_FPUREGISTER,i,R_SUBWHOLE));
end;
end;
end;
+ procedure taicpu.loadrealconst(opidx:longint; const value_real: bestreal);
+ begin
+ allocate_oper(opidx+1);
+ with oper[opidx]^ do
+ begin
+ if typ<>top_realconst then
+ clearop(opidx);
+ val_real:=value_real;
+ typ:=top_realconst;
+ end;
+ end;
+
procedure taicpu.init(_size : topsize);
begin
@@ -260,6 +271,14 @@ type
loadref(1,_op2);
end;
+ constructor taicpu.op_realconst_reg(op : tasmop;_size : topsize;_op1 : bestreal;_op2 : tregister);
+ begin
+ inherited create(op);
+ init(_size);
+ ops:=2;
+ loadrealconst(0,_op1);
+ loadreg(1,_op2);
+ end;
constructor taicpu.op_ref_reg(op : tasmop;_size : topsize;_op1 : treference;_op2 : tregister);
begin
@@ -479,7 +498,7 @@ type
A_ADD, A_ADDQ, A_ADDX, A_SUB, A_SUBQ, A_SUBX,
A_AND, A_LSR, A_LSL, A_ASR, A_ASL, A_EOR, A_EORI, A_OR,
A_ROL, A_ROR, A_ROXL, A_ROXR,
- A_MULS, A_MULU, A_DIVS, A_DIVU, A_DIVSL, A_DIVUL,
+ A_MULS, A_MULU, A_DIVS, A_DIVU, A_DIVSL, A_DIVUL, A_REMS, A_REMU,
A_BSET, A_BCLR:
if opnr=1 then
result:=operand_readwrite;
diff --git a/compiler/m68k/ag68kgas.pas b/compiler/m68k/ag68kgas.pas
index f140a6e251..5a5d18f6f9 100644
--- a/compiler/m68k/ag68kgas.pas
+++ b/compiler/m68k/ag68kgas.pas
@@ -163,23 +163,30 @@ interface
getopstr:='';
for i:=RS_D0 to RS_D7 do
begin
- if i in o.dataregset^ then
+ if i in o.dataregset then
getopstr:=getopstr+gas_regname(newreg(R_INTREGISTER,i,R_SUBWHOLE))+'/';
end;
for i:=RS_A0 to RS_SP do
begin
- if i in o.addrregset^ then
+ if i in o.addrregset then
getopstr:=getopstr+gas_regname(newreg(R_ADDRESSREGISTER,i,R_SUBWHOLE))+'/';
end;
for i:=RS_FP0 to RS_FP7 do
begin
- if i in o.fpuregset^ then
+ if i in o.fpuregset then
getopstr:=getopstr+gas_regname(newreg(R_FPUREGISTER,i,R_SUBNONE))+'/';
end;
delete(getopstr,length(getopstr),1);
end;
top_const:
getopstr:='#'+tostr(longint(o.val));
+ top_realconst:
+ begin
+ str(o.val_real,getopstr);
+ if getopstr[1]=' ' then
+ getopstr[1]:='+';
+ getopstr:='#0d'+getopstr;
+ end;
else internalerror(200405021);
end;
end;
@@ -288,7 +295,7 @@ interface
sep:=#9
else
if (i=2) and
- (op in [A_DIVSL,A_DIVUL,A_MULS,A_MULU,A_DIVS,A_DIVU]) then
+ (op in [A_DIVSL,A_DIVUL,A_MULS,A_MULU,A_DIVS,A_DIVU,A_REMS,A_REMU]) then
sep:=':'
else
sep:=',';
diff --git a/compiler/m68k/ag68kvasm.pas b/compiler/m68k/ag68kvasm.pas
new file mode 100644
index 0000000000..a597a7d963
--- /dev/null
+++ b/compiler/m68k/ag68kvasm.pas
@@ -0,0 +1,115 @@
+{
+ Copyright (c) 2016 by the Free Pascal development team
+
+ This unit is the VASM assembler writer for 68k
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+ ****************************************************************************
+}
+
+unit ag68kvasm;
+
+{$i fpcdefs.inc}
+
+ interface
+
+ uses
+ aasmbase,systems,
+ aasmtai,aasmdata,
+ aggas,ag68kgas,
+ cpubase,cgutils,
+ globtype;
+
+ type
+ tm68kvasm = class(Tm68kGNUassembler)
+ constructor create(info: pasminfo; smart: boolean); override;
+ function MakeCmdLine: TCmdStr; override;
+ end;
+
+ implementation
+
+ uses
+ cutils,cfileutl,globals,verbose,
+ cgbase,
+ assemble,script,
+ itcpugas,cpuinfo,
+ aasmcpu;
+
+
+{****************************************************************************}
+{ VASM m68k Assembler writer }
+{****************************************************************************}
+
+
+ constructor tm68kvasm.create(info: pasminfo; smart: boolean);
+ begin
+ inherited;
+ InstrWriter := Tm68kInstrWriter.create(self);
+ end;
+
+ function tm68kvasm.MakeCmdLine: TCmdStr;
+ var
+ objtype: string;
+ begin
+ result:=asminfo^.asmcmd;
+
+ case target_info.system of
+ system_m68k_amiga: objtype:='-Fhunk';
+ system_m68k_atari: objtype:='-Fvobj'; // fix me?
+ system_m68k_linux: objtype:='-Felf';
+ else
+ internalerror(2016052601);
+ end;
+
+ if (target_info.system = system_m68k_amiga) then
+ begin
+ Replace(result,'$ASM',maybequoted(ScriptFixFileName(Unix2AmigaPath(AsmFileName))));
+ Replace(result,'$OBJ',maybequoted(ScriptFixFileName(Unix2AmigaPath(ObjFileName))));
+ end
+ else
+ begin
+ Replace(result,'$ASM',maybequoted(ScriptFixFileName(AsmFileName)));
+ Replace(result,'$OBJ',maybequoted(ScriptFixFileName(ObjFileName)));
+ end;
+ Replace(result,'$ARCH','-m'+GasCpuTypeStr[current_settings.cputype]);
+ Replace(result,'$OTYPE',objtype);
+ Replace(result,'$EXTRAOPT',asmextraopt);
+ end;
+
+
+
+{*****************************************************************************
+ Initialize
+*****************************************************************************}
+
+ const
+ as_m68k_vasm_info : tasminfo =
+ (
+ id : as_m68k_vasm;
+
+ idtxt : 'VASM';
+ asmbin : 'vasmm68k_std';
+ asmcmd: '-quiet -elfregs -gas $OTYPE $ARCH -o $OBJ $EXTRAOPT $ASM';
+ supported_targets : [system_m68k_amiga,system_m68k_atari,system_m68k_linux];
+ flags : [af_needar,af_smartlink_sections];
+ labelprefix : '.L';
+ comment : '# ';
+ dollarsign: '$';
+ );
+
+begin
+ RegisterAssembler(as_m68k_vasm_info,tm68kvasm);
+end.
diff --git a/compiler/m68k/aoptcpu.pas b/compiler/m68k/aoptcpu.pas
index 4307c691f7..39ffcc9015 100644
--- a/compiler/m68k/aoptcpu.pas
+++ b/compiler/m68k/aoptcpu.pas
@@ -60,6 +60,7 @@ unit aoptcpu;
var
next: tai;
tmpref: treference;
+ tmpsingle: single;
begin
result:=false;
case p.typ of
@@ -135,6 +136,43 @@ unit aoptcpu;
taicpu(p).ops:=1;
result:=true;
end;
+ A_FCMP:
+ if (taicpu(p).oper[0]^.typ = top_realconst) then
+ begin
+ if (taicpu(p).oper[0]^.val_real = 0.0) then
+ begin
+ DebugMsg('Optimizer: FCMP #0.0 to FTST',p);
+ taicpu(p).opcode:=A_FTST;
+ taicpu(p).opsize:=S_FX;
+ taicpu(p).loadoper(0,taicpu(p).oper[1]^);
+ taicpu(p).clearop(1);
+ taicpu(p).ops:=1;
+ result:=true;
+ end
+ else
+ begin
+ tmpsingle:=taicpu(p).oper[0]^.val_real;
+ if (taicpu(p).opsize = S_FD) and
+ ((taicpu(p).oper[0]^.val_real - tmpsingle) = 0.0) then
+ begin
+ DebugMsg('Optimizer: FCMP const to lesser precision',p);
+ taicpu(p).opsize:=S_FS;
+ result:=true;
+ end;
+ end;
+ end;
+ A_FMOVE,A_FMUL,A_FADD,A_FSUB,A_FDIV:
+ if (taicpu(p).oper[0]^.typ = top_realconst) then
+ begin
+ tmpsingle:=taicpu(p).oper[0]^.val_real;
+ if (taicpu(p).opsize = S_FD) and
+ ((taicpu(p).oper[0]^.val_real - tmpsingle) = 0.0) then
+ begin
+ DebugMsg('Optimizer: FMOVE/FMUL/FADD/FSUB/FDIV const to lesser precision',p);
+ taicpu(p).opsize:=S_FS;
+ result:=true;
+ end;
+ end;
end;
end;
end;
diff --git a/compiler/m68k/cgcpu.pas b/compiler/m68k/cgcpu.pas
index 95547958bf..3a3ab84c0f 100644
--- a/compiler/m68k/cgcpu.pas
+++ b/compiler/m68k/cgcpu.pas
@@ -50,8 +50,10 @@ unit cgcpu;
procedure a_load_const_ref(list : TAsmList; tosize: tcgsize; a : tcgint;const ref : treference);override;
procedure a_load_reg_ref(list : TAsmList;fromsize,tosize : tcgsize;register : tregister;const ref : treference);override;
+ procedure a_load_reg_ref_unaligned(list : TAsmList;fromsize,tosize : tcgsize;register : tregister;const ref : treference);override;
procedure a_load_reg_reg(list : TAsmList;fromsize,tosize : tcgsize;reg1,reg2 : tregister);override;
procedure a_load_ref_reg(list : TAsmList;fromsize,tosize : tcgsize;const ref : treference;register : tregister);override;
+ procedure a_load_ref_reg_unaligned(list : TAsmList;fromsize,tosize : tcgsize;const ref : treference;register : tregister);override;
procedure a_load_ref_ref(list : TAsmList;fromsize,tosize : tcgsize;const sref : treference;const dref : treference);override;
procedure a_loadaddr_ref_reg(list : TAsmList;const ref : treference;r : tregister);override;
@@ -65,6 +67,7 @@ unit cgcpu;
procedure a_op_const_ref(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; const ref: TReference); override;
procedure a_op_reg_reg(list : TAsmList; Op: TOpCG; size: TCGSize; src, dst: TRegister); override;
procedure a_op_reg_ref(list : TAsmList; Op: TOpCG; size: TCGSize; reg: TRegister; const ref: TReference); override;
+ procedure a_op_ref_reg(list : TAsmList; Op: TOpCG; size: TCGSize; const ref: TReference; reg: TRegister); override;
procedure a_cmp_const_reg_label(list : TAsmList;size : tcgsize;cmp_op : topcmp;a : tcgint;reg : tregister; l : tasmlabel);override;
procedure a_cmp_const_ref_label(list : TAsmList;size : tcgsize;cmp_op : topcmp;a : tcgint;const ref : treference; l : tasmlabel); override;
@@ -108,6 +111,8 @@ unit cgcpu;
procedure a_op64_reg_reg(list : TAsmList;op:TOpCG; size: tcgsize; regsrc,regdst : tregister64);override;
procedure a_op64_const_reg(list : TAsmList;op:TOpCG; size: tcgsize; value : int64;regdst : tregister64);override;
procedure a_op64_ref_reg(list : TAsmList;op:TOpCG;size : tcgsize;const ref : treference;reg : tregister64);override;
+ procedure a_load64_reg_ref(list : TAsmList;reg : tregister64;const ref : treference); override;
+ procedure a_load64_ref_reg(list : TAsmList;const ref : treference;reg : tregister64); override;
end;
{ This function returns true if the reference+offset is valid.
@@ -359,14 +364,7 @@ unit cgcpu;
reference_reset_base(ref, NR_STACK_POINTER_REG, 0, tcgsize2size[pushsize]);
ref.direction := dir_dec;
- if tcgsize2size[paraloc^.size]<cgpara.alignment then
- begin
- tmpreg:=getintregister(list,pushsize);
- a_load_ref_reg(list,paraloc^.size,pushsize,href,tmpreg);
- list.concat(taicpu.op_reg_ref(A_MOVE,tcgsize2opsize[pushsize],tmpreg,ref));
- end
- else
- list.concat(taicpu.op_ref_ref(A_MOVE,tcgsize2opsize[pushsize],href,ref));
+ a_load_ref_ref(list,int_cgsize(tcgsize2size[paraloc^.size]),pushsize,href,ref);
end;
var
@@ -391,7 +389,7 @@ unit cgcpu;
if tcgsize2size[cgpara.size]<>tcgsize2size[size] then
internalerror(200501161);
{ We need to push the data in reverse order,
- therefor we use a recursive algorithm }
+ therefore we use a recursive algorithm }
pushdata(cgpara.location,0);
end
end
@@ -708,6 +706,12 @@ unit cgcpu;
hreg : tregister;
href : treference;
begin
+ if needs_unaligned(ref.alignment,tosize) then
+ begin
+ inherited;
+ exit;
+ end;
+
a:=longint(a);
href:=ref;
fixref(list,href,false);
@@ -752,6 +756,13 @@ unit cgcpu;
href : treference;
hreg : tregister;
begin
+ if needs_unaligned(ref.alignment,tosize) then
+ begin
+ //list.concat(tai_comment.create(strpnew('a_load_reg_ref calling unaligned')));
+ a_load_reg_ref_unaligned(list,fromsize,tosize,register,ref);
+ exit;
+ end;
+
href := ref;
hreg := register;
fixref(list,href,false);
@@ -765,6 +776,55 @@ unit cgcpu;
end;
+ procedure tcg68k.a_load_reg_ref_unaligned(list : TAsmList;fromsize,tosize : tcgsize;register : tregister;const ref : treference);
+ var
+ tmpref : treference;
+ tmpreg,
+ tmpreg2 : tregister;
+ begin
+ if not needs_unaligned(ref.alignment,tosize) then
+ begin
+ a_load_reg_ref(list,fromsize,tosize,register,ref);
+ exit;
+ end;
+
+ list.concat(tai_comment.create(strpnew('a_load_reg_ref_unaligned: generating unaligned store')));
+
+ tmpreg2:=getaddressregister(list);
+ tmpref:=ref;
+ inc(tmpref.offset,tcgsize2size[tosize]);
+ a_loadaddr_ref_reg(list,ref,tmpreg2);
+ reference_reset_base(tmpref,tmpreg2,0,1);
+ tmpref.direction:=dir_none;
+
+ tmpreg:=getintregister(list,tosize);
+ a_load_reg_reg(list,fromsize,tosize,register,tmpreg);
+
+ case tosize of
+ OS_16,OS_S16:
+ begin
+ list.concat(taicpu.op_reg_ref(A_MOVE,S_B,tmpreg,tmpref));
+ list.concat(taicpu.op_const_reg(A_LSR,S_W,8,tmpreg));
+ tmpref.direction:=dir_dec;
+ list.concat(taicpu.op_reg_ref(A_MOVE,S_B,tmpreg,tmpref));
+ end;
+ OS_32,OS_S32:
+ begin
+ list.concat(taicpu.op_reg_ref(A_MOVE,S_B,tmpreg,tmpref));
+ tmpref.direction:=dir_dec;
+ list.concat(taicpu.op_const_reg(A_LSR,S_W,8,tmpreg));
+ list.concat(taicpu.op_reg_ref(A_MOVE,S_B,tmpreg,tmpref));
+ list.concat(taicpu.op_reg(A_SWAP,S_L,tmpreg));
+ list.concat(taicpu.op_reg_ref(A_MOVE,S_B,tmpreg,tmpref));
+ list.concat(taicpu.op_const_reg(A_LSR,S_W,8,tmpreg));
+ list.concat(taicpu.op_reg_ref(A_MOVE,S_B,tmpreg,tmpref));
+ end
+ else
+ internalerror(2016052201);
+ end;
+ end;
+
+
procedure tcg68k.a_load_ref_ref(list : TAsmList;fromsize,tosize : tcgsize;const sref : treference;const dref : treference);
var
aref: treference;
@@ -773,24 +833,38 @@ unit cgcpu;
hreg: TRegister;
begin
usetemp:=TCGSize2OpSize[fromsize]<>TCGSize2OpSize[tosize];
+ usetemp:=usetemp or (needs_unaligned(sref.alignment,fromsize) or needs_unaligned(dref.alignment,tosize));
aref := sref;
bref := dref;
- fixref(list,aref,false);
if usetemp then
begin
- { if we will use a temp register, we don't need to fully resolve
- the dest ref, not even on coldfire }
- fixref(list,bref,false);
{ if we need to change the size then always use a temporary register }
hreg:=getintregister(list,fromsize);
- list.concat(taicpu.op_ref_reg(A_MOVE,TCGSize2OpSize[fromsize],aref,hreg));
- sign_extend(list,fromsize,tosize,hreg);
- list.concat(taicpu.op_reg_ref(A_MOVE,TCGSize2OpSize[tosize],hreg,bref));
+
+ if needs_unaligned(sref.alignment,fromsize) then
+ a_load_ref_reg_unaligned(list,fromsize,tosize,sref,hreg)
+ else
+ begin
+ fixref(list,aref,false);
+ list.concat(taicpu.op_ref_reg(A_MOVE,TCGSize2OpSize[fromsize],aref,hreg));
+ sign_extend(list,fromsize,tosize,hreg);
+ end;
+
+ if needs_unaligned(dref.alignment,tosize) then
+ a_load_reg_ref_unaligned(list,tosize,tosize,hreg,dref)
+ else
+ begin
+ { if we use a temp register, we don't need to fully resolve
+ the dest ref, not even on coldfire }
+ fixref(list,bref,false);
+ list.concat(taicpu.op_reg_ref(A_MOVE,TCGSize2OpSize[tosize],hreg,bref));
+ end;
end
else
begin
+ fixref(list,aref,false);
fixref(list,bref,current_settings.cputype in cpu_coldfire);
list.concat(taicpu.op_ref_ref(A_MOVE,TCGSize2OpSize[fromsize],aref,bref));
end;
@@ -822,7 +896,7 @@ unit cgcpu;
add_move_instruction(instr);
list.concat(instr);
end;
- sign_extend(list,fromsize,reg2);
+ sign_extend(list,fromsize,tosize,reg2);
end;
end;
@@ -833,27 +907,98 @@ unit cgcpu;
hreg : tregister;
size : tcgsize;
opsize: topsize;
+ needsext: boolean;
begin
+ if needs_unaligned(ref.alignment,fromsize) then
+ begin
+ //list.concat(tai_comment.create(strpnew('a_load_ref_reg calling unaligned')));
+ a_load_ref_reg_unaligned(list,fromsize,tosize,ref,register);
+ exit;
+ end;
+
href:=ref;
fixref(list,href,false);
- if tcgsize2size[fromsize]<tcgsize2size[tosize] then
+
+ needsext:=tcgsize2size[fromsize]<tcgsize2size[tosize];
+ if needsext then
size:=fromsize
else
size:=tosize;
opsize:=TCGSize2OpSize[size];
if isaddressregister(register) and not (opsize in [S_L]) then
+ hreg:=getintregister(list,OS_ADDR)
+ else
+ hreg:=register;
+
+ if needsext and (CPUM68K_HAS_MVSMVZ in cpu_capabilities[current_settings.cputype]) and not (opsize in [S_L]) then
begin
- hreg:=getintregister(list,OS_ADDR);
- list.concat(taicpu.op_ref_reg(A_MOVE,opsize,href,hreg));
- sign_extend(list,size,hreg);
- a_load_reg_reg(list,OS_ADDR,OS_ADDR,hreg,register);
+ if fromsize in [OS_S8,OS_S16] then
+ list.concat(taicpu.op_ref_reg(A_MVS,opsize,href,hreg))
+ else if fromsize in [OS_8,OS_16] then
+ list.concat(taicpu.op_ref_reg(A_MVZ,opsize,href,hreg))
+ else
+ internalerror(2016050502);
end
- else
+ else
begin
- list.concat(taicpu.op_ref_reg(A_MOVE,opsize,href,register));
- { extend the value in the register }
- sign_extend(list, size, register);
+ list.concat(taicpu.op_ref_reg(A_MOVE,opsize,href,hreg));
+ sign_extend(list,size,hreg);
end;
+
+ if hreg<>register then
+ a_load_reg_reg(list,OS_ADDR,OS_ADDR,hreg,register);
+ end;
+
+
+ procedure tcg68k.a_load_ref_reg_unaligned(list : TAsmList;fromsize,tosize : tcgsize;const ref : treference;register : tregister);
+ var
+ tmpref : treference;
+ tmpreg,
+ tmpreg2 : tregister;
+ begin
+ if not needs_unaligned(ref.alignment,fromsize) then
+ begin
+ a_load_ref_reg(list,fromsize,tosize,ref,register);
+ exit;
+ end;
+
+ list.concat(tai_comment.create(strpnew('a_load_ref_reg_unaligned: generating unaligned load')));
+
+ tmpreg2:=getaddressregister(list);
+ a_loadaddr_ref_reg(list,ref,tmpreg2);
+ reference_reset_base(tmpref,tmpreg2,0,1);
+ tmpref.direction:=dir_inc;
+
+ if isaddressregister(register) then
+ tmpreg:=getintregister(list,OS_ADDR)
+ else
+ tmpreg:=register;
+
+ case fromsize of
+ OS_16,OS_S16:
+ begin
+ list.concat(taicpu.op_ref_reg(A_MOVE,S_B,tmpref,tmpreg));
+ list.concat(taicpu.op_const_reg(A_LSL,S_W,8,tmpreg));
+ tmpref.direction:=dir_none;
+ list.concat(taicpu.op_ref_reg(A_MOVE,S_B,tmpref,tmpreg));
+ sign_extend(list,fromsize,tmpreg);
+ end;
+ OS_32,OS_S32:
+ begin
+ list.concat(taicpu.op_ref_reg(A_MOVE,S_B,tmpref,tmpreg));
+ list.concat(taicpu.op_const_reg(A_LSL,S_W,8,tmpreg));
+ list.concat(taicpu.op_ref_reg(A_MOVE,S_B,tmpref,tmpreg));
+ list.concat(taicpu.op_reg(A_SWAP,S_L,tmpreg));
+ list.concat(taicpu.op_ref_reg(A_MOVE,S_B,tmpref,tmpreg));
+ list.concat(taicpu.op_const_reg(A_LSL,S_W,8,tmpreg));
+ tmpref.direction:=dir_none;
+ list.concat(taicpu.op_ref_reg(A_MOVE,S_B,tmpref,tmpreg));
+ end
+ else
+ internalerror(2016052103);
+ end;
+ if tmpreg<>register then
+ a_load_reg_reg(list,OS_ADDR,OS_ADDR,tmpreg,register);
end;
@@ -1118,7 +1263,8 @@ unit cgcpu;
opsize := TCGSize2OpSize[size];
{ on ColdFire all arithmetic operations are only possible on 32bit }
- if ((current_settings.cputype in cpu_coldfire) and (opsize <> S_L)
+ if needs_unaligned(ref.alignment,size) or
+ ((current_settings.cputype in cpu_coldfire) and (opsize <> S_L)
and not (op in [OP_NONE,OP_MOVE])) then
begin
inherited;
@@ -1284,16 +1430,22 @@ unit cgcpu;
{ on ColdFire all arithmetic operations are only possible on 32bit
and addressing modes are limited }
- if ((current_settings.cputype in cpu_coldfire) and (opsize <> S_L)) then
+ if needs_unaligned(ref.alignment,size) or
+ ((current_settings.cputype in cpu_coldfire) and (opsize <> S_L)) then
begin
+ //list.concat(tai_comment.create(strpnew('a_op_reg_ref: inherited #1')));
inherited;
exit;
end;
case op of
OP_ADD,
- OP_SUB :
+ OP_SUB,
+ OP_OR,
+ OP_XOR,
+ OP_AND:
begin
+ //list.concat(tai_comment.create(strpnew('a_op_reg_ref: normal op')));
href:=ref;
fixref(list,href,false);
{ areg -> ref arithmetic operations are impossible on 68k }
@@ -1302,12 +1454,56 @@ unit cgcpu;
list.concat(taicpu.op_reg_ref(opcode, opsize, hreg, href));
end;
else begin
-// list.concat(tai_comment.create(strpnew('a_op_reg_ref inherited')));
+ //list.concat(tai_comment.create(strpnew('a_op_reg_ref inherited #2')));
inherited;
end;
end;
end;
+
+ procedure tcg68k.a_op_ref_reg(list : TAsmList; Op: TOpCG; size: TCGSize; const ref: TReference; reg: TRegister);
+ var
+ opcode : tasmop;
+ opsize : topsize;
+ href : treference;
+ hreg : tregister;
+ begin
+ opcode := topcg2tasmop[op];
+ opsize := TCGSize2OpSize[size];
+
+ { on ColdFire all arithmetic operations are only possible on 32bit
+ and addressing modes are limited }
+ if needs_unaligned(ref.alignment,size) or
+ ((current_settings.cputype in cpu_coldfire) and (opsize <> S_L)) then
+ begin
+ //list.concat(tai_comment.create(strpnew('a_op_ref_reg: inherited #1')));
+ inherited;
+ exit;
+ end;
+
+ case op of
+ OP_ADD,
+ OP_SUB,
+ OP_OR,
+ OP_AND,
+ OP_MUL,
+ OP_IMUL:
+ begin
+ //list.concat(tai_comment.create(strpnew('a_op_ref_reg: normal op')));
+ href:=ref;
+ { Coldfire doesn't support d(Ax,Dx) for long MULx... }
+ fixref(list,href,(op in [OP_MUL,OP_IMUL]) and
+ (current_settings.cputype in cpu_coldfire));
+ list.concat(taicpu.op_ref_reg(opcode, opsize, href, reg));
+ end;
+ else begin
+ //list.concat(tai_comment.create(strpnew('a_op_ref_reg inherited #2')));
+ inherited;
+ end;
+ end;
+ end;
+
+
procedure tcg68k.a_cmp_const_reg_label(list : TAsmList;size : tcgsize;cmp_op : topcmp;a : tcgint;reg : tregister;
l : tasmlabel);
var
@@ -1372,7 +1568,7 @@ unit cgcpu;
begin
{ optimize for usage of TST here, so ref compares against zero, which is the
most common case by far in the RTL code at least (KB) }
- if (a = 0) then
+ if not needs_unaligned(ref.alignment,size) and (a = 0) then
begin
//list.concat(tai_comment.create(strpnew('a_cmp_const_ref_label with TST')));
tmpref:=ref;
@@ -1513,7 +1709,7 @@ unit cgcpu;
a_loadaddr_ref_reg(list,source,iregister);
a_loadaddr_ref_reg(list,dest,jregister);
- if (current_settings.cputype <> cpu_mc68000) then
+ if not (needs_unaligned(source.alignment,OS_INT) or needs_unaligned(dest.alignment,OS_INT)) then
begin
if not ((len<=8) or (not(cs_opt_size in current_settings.optimizerswitches) and (len<=16))) then
begin
@@ -1570,7 +1766,7 @@ unit cgcpu;
list.concat(taicpu.op_sym(A_BPL,S_NO,hl));
end
else
- list.concat(taicpu.op_reg_sym(A_DBRA,S_L,hregister,hl));
+ list.concat(taicpu.op_reg_sym(A_DBRA,S_NO,hregister,hl));
end;
end;
@@ -1770,7 +1966,7 @@ unit cgcpu;
{ Copy registers to temp }
{ NOTE: virtual registers allocated here won't be translated --> no higher-level stuff. }
href:=current_procinfo.save_regs_ref;
- if (href.offset<low(smallint)) and (current_settings.cputype in cpu_coldfire) then
+ if (href.offset<low(smallint)) and (current_settings.cputype in cpu_coldfire+[cpu_mc68000]) then
begin
list.concat(taicpu.op_reg_reg(A_MOVE,S_L,href.base,NR_A0));
list.concat(taicpu.op_const_reg(A_ADDA,S_L,href.offset,NR_A0));
@@ -1858,7 +2054,7 @@ unit cgcpu;
{ Restore registers from temp }
href:=current_procinfo.save_regs_ref;
- if (href.offset<low(smallint)) and (current_settings.cputype in cpu_coldfire) then
+ if (href.offset<low(smallint)) and (current_settings.cputype in cpu_coldfire+[cpu_mc68000]) then
begin
list.concat(taicpu.op_reg_reg(A_MOVE,S_L,href.base,NR_A0));
list.concat(taicpu.op_const_reg(A_ADDA,S_L,href.offset,NR_A0));
@@ -2144,10 +2340,9 @@ unit cgcpu;
begin
tempref:=ref;
tcg68k(cg).fixref(list,tempref,false);
+ list.concat(taicpu.op_ref_reg(topcg2tasmop[op],S_L,tempref,reg.reghi));
inc(tempref.offset,4);
list.concat(taicpu.op_ref_reg(topcg2tasmop[op],S_L,tempref,reg.reglo));
- dec(tempref.offset,4);
- list.concat(taicpu.op_ref_reg(topcg2tasmop[op],S_L,tempref,reg.reghi));
end;
else
{ XOR does not allow reference for source; ADD/SUB do not allow reference for
@@ -2210,6 +2405,34 @@ unit cgcpu;
end;
+ procedure tcg64f68k.a_load64_reg_ref(list : TAsmList;reg : tregister64;const ref : treference);
+ var
+ tmpref: treference;
+ begin
+ tmpref:=ref;
+ tcg68k(cg).fixref(list,tmpref,false);
+ cg.a_load_reg_ref(list,OS_32,OS_32,reg.reghi,tmpref);
+ inc(tmpref.offset,4);
+ cg.a_load_reg_ref(list,OS_32,OS_32,reg.reglo,tmpref);
+ end;
+
+ procedure tcg64f68k.a_load64_ref_reg(list : TAsmList;const ref : treference;reg : tregister64);
+ var
+ tmpref: treference;
+ begin
+ { do not allow 64bit values to be loaded to address registers }
+ if isaddressregister(reg.reglo) or
+ isaddressregister(reg.reghi) then
+ internalerror(2016050501);
+
+ tmpref:=ref;
+ tcg68k(cg).fixref(list,tmpref,false);
+ cg.a_load_ref_reg(list,OS_32,OS_32,tmpref,reg.reghi);
+ inc(tmpref.offset,4);
+ cg.a_load_ref_reg(list,OS_32,OS_32,tmpref,reg.reglo);
+ end;
+
+
procedure create_codegen;
begin
cg := tcg68k.create;
diff --git a/compiler/m68k/cpubase.pas b/compiler/m68k/cpubase.pas
index 24b6322209..12479463c1 100644
--- a/compiler/m68k/cpubase.pas
+++ b/compiler/m68k/cpubase.pas
@@ -67,7 +67,7 @@ unit cpubase;
{ mc64040 instructions }
a_move16,
{ coldfire v4 instructions }
- a_mov3q,a_mvz,a_mvs,a_sats,a_byterev,a_ff1,
+ a_mov3q,a_mvz,a_mvs,a_sats,a_byterev,a_ff1,a_remu,a_rems,
{ fpu processor instructions - directly supported }
{ ieee aware and misc. condition codes not supported }
a_fabs,a_fadd,
@@ -364,6 +364,7 @@ unit cpubase;
function isintregister(reg : tregister) : boolean;
function fpuregopsize: TOpSize; {$ifdef USEINLINE}inline;{$endif USEINLINE}
function fpuregsize: aint; {$ifdef USEINLINE}inline;{$endif USEINLINE}
+ function needs_unaligned(const refalignment: aint; const size: tcgsize): boolean;
function isregoverlap(reg1: tregister; reg2: tregister): boolean;
function inverse_cond(const c: TAsmCond): TAsmCond; {$ifdef USEINLINE}inline;{$endif USEINLINE}
@@ -553,6 +554,13 @@ implementation
result:=fpu_regsize[current_settings.fputype = fpu_coldfire];
end;
+ function needs_unaligned(const refalignment: aint; const size: tcgsize): boolean;
+ begin
+ result:=not(CPUM68K_HAS_UNALIGNED in cpu_capabilities[current_settings.cputype]) and
+ (refalignment = 1) and
+ (tcgsize2size[size] > 1);
+ end;
+
// the function returns true, if the registers overlap (subreg of the same superregister and same type)
function isregoverlap(reg1: tregister; reg2: tregister): boolean;
begin
diff --git a/compiler/m68k/cpuinfo.pas b/compiler/m68k/cpuinfo.pas
index ea9a367b87..24fe1fdd95 100644
--- a/compiler/m68k/cpuinfo.pas
+++ b/compiler/m68k/cpuinfo.pas
@@ -38,6 +38,7 @@ Type
cpu_MC68000,
cpu_MC68020,
cpu_MC68040,
+ cpu_MC68060,
cpu_isa_a,
cpu_isa_a_p,
cpu_isa_b,
@@ -94,6 +95,7 @@ Const
'68000',
'68020',
'68040',
+ '68060',
'ISAA',
'ISAA+',
'ISAB',
@@ -105,6 +107,7 @@ Const
'68000',
'68020',
'68040',
+ '68060',
'isaa',
'isaaplus',
'isab',
@@ -142,25 +145,39 @@ type
CPUM68K_HAS_TAS, { CPU supports the TAS instruction }
CPUM68K_HAS_BRAL, { CPU supports the BRA.L/Bcc.L instructions }
CPUM68K_HAS_ROLROR, { CPU supports the ROL/ROR and ROXL/ROXR instructions }
- CPUM68K_HAS_BYTEREV { CPU supports the BYTEREV instruction }
+ CPUM68K_HAS_BYTEREV, { CPU supports the BYTEREV instruction }
+ CPUM68K_HAS_MVSMVZ, { CPU supports the MVZ and MVS instructions }
+ CPUM68K_HAS_MOVE16, { CPU supports the MOVE16 instruction }
+ CPUM68K_HAS_32BITMUL, { CPU supports MULS/MULU 32x32 -> 32bit }
+ CPUM68K_HAS_64BITMUL, { CPU supports MULS/MULU 32x32 -> 64bit }
+ CPUM68K_HAS_16BITDIV, { CPU supports DIVS/DIVU 32/16 -> 16bit }
+ CPUM68K_HAS_32BITDIV, { CPU supports DIVS/DIVU 32/32 -> 32bit }
+ CPUM68K_HAS_64BITDIV, { CPU supports DIVS/DIVU 64/32 -> 32bit }
+ CPUM68K_HAS_REMSREMU, { CPU supports the REMS/REMU instructions }
+ CPUM68K_HAS_UNALIGNED, { CPU supports unaligned access }
+ CPUM68K_HAS_BASEDISP { CPU supports addressing with 32bit base displacements }
);
const
cpu_capabilities : array[tcputype] of set of tcpuflags =
( { cpu_none } [],
- { cpu_68000 } [CPUM68K_HAS_DBRA,CPUM68K_HAS_TAS,CPUM68K_HAS_ROLROR],
- { cpu_68020 } [CPUM68K_HAS_DBRA,CPUM68K_HAS_CAS,CPUM68K_HAS_TAS,CPUM68K_HAS_BRAL,CPUM68K_HAS_ROLROR],
- { cpu_68040 } [CPUM68K_HAS_DBRA,CPUM68K_HAS_CAS,CPUM68K_HAS_TAS,CPUM68K_HAS_BRAL,CPUM68K_HAS_ROLROR],
- { cpu_isaa } [],
- { cpu_isaap } [CPUM68K_HAS_BRAL,CPUM68K_HAS_BYTEREV],
- { cpu_isab } [CPUM68K_HAS_TAS,CPUM68K_HAS_BRAL],
- { cpu_isac } [CPUM68K_HAS_TAS,CPUM68K_HAS_BYTEREV],
- { cpu_cfv4e } [CPUM68K_HAS_TAS,CPUM68K_HAS_BYTEREV]
+ { cpu_68000 } [CPUM68K_HAS_DBRA,CPUM68K_HAS_TAS,CPUM68K_HAS_ROLROR,CPUM68K_HAS_16BITDIV],
+ { cpu_68020 } [CPUM68K_HAS_DBRA,CPUM68K_HAS_CAS,CPUM68K_HAS_TAS,CPUM68K_HAS_BRAL,CPUM68K_HAS_ROLROR,CPUM68K_HAS_UNALIGNED,CPUM68K_HAS_BASEDISP,CPUM68K_HAS_32BITMUL,CPUM68K_HAS_64BITMUL,CPUM68K_HAS_16BITDIV,CPUM68K_HAS_32BITDIV,CPUM68K_HAS_64BITDIV],
+ { cpu_68040 } [CPUM68K_HAS_DBRA,CPUM68K_HAS_CAS,CPUM68K_HAS_TAS,CPUM68K_HAS_BRAL,CPUM68K_HAS_ROLROR,CPUM68K_HAS_UNALIGNED,CPUM68K_HAS_BASEDISP,CPUM68K_HAS_32BITMUL,CPUM68K_HAS_64BITMUL,CPUM68K_HAS_16BITDIV,CPUM68K_HAS_32BITDIV,CPUM68K_HAS_64BITDIV,CPUM68K_HAS_MOVE16],
+ { cpu_68060 } [CPUM68K_HAS_DBRA,CPUM68K_HAS_CAS,CPUM68K_HAS_TAS,CPUM68K_HAS_BRAL,CPUM68K_HAS_ROLROR,CPUM68K_HAS_UNALIGNED,CPUM68K_HAS_BASEDISP,CPUM68K_HAS_32BITMUL,CPUM68K_HAS_16BITDIV,CPUM68K_HAS_32BITDIV,CPUM68K_HAS_MOVE16],
+ { cpu_isaa } [CPUM68K_HAS_UNALIGNED,CPUM68K_HAS_32BITMUL,CPUM68K_HAS_16BITDIV,CPUM68K_HAS_32BITDIV,CPUM68K_HAS_REMSREMU],
+ { cpu_isaap } [CPUM68K_HAS_BRAL,CPUM68K_HAS_BYTEREV,CPUM68K_HAS_UNALIGNED,CPUM68K_HAS_32BITMUL,CPUM68K_HAS_16BITDIV,CPUM68K_HAS_32BITDIV,CPUM68K_HAS_REMSREMU],
+ { cpu_isab } [CPUM68K_HAS_TAS,CPUM68K_HAS_BRAL,CPUM68K_HAS_MVSMVZ,CPUM68K_HAS_UNALIGNED,CPUM68K_HAS_32BITMUL,CPUM68K_HAS_16BITDIV,CPUM68K_HAS_32BITDIV,CPUM68K_HAS_REMSREMU],
+ { cpu_isac } [CPUM68K_HAS_TAS,CPUM68K_HAS_BYTEREV,CPUM68K_HAS_MVSMVZ,CPUM68K_HAS_UNALIGNED,CPUM68K_HAS_32BITMUL,CPUM68K_HAS_16BITDIV,CPUM68K_HAS_32BITDIV,CPUM68K_HAS_REMSREMU],
+ { cpu_cfv4e } [CPUM68K_HAS_TAS,CPUM68K_HAS_BRAL,CPUM68K_HAS_MVSMVZ,CPUM68K_HAS_UNALIGNED,CPUM68K_HAS_32BITMUL,CPUM68K_HAS_16BITDIV,CPUM68K_HAS_32BITDIV,CPUM68K_HAS_REMSREMU]
);
{ all CPUs commonly called "coldfire" }
cpu_coldfire = [cpu_isa_a,cpu_isa_a_p,cpu_isa_b,cpu_isa_c,cpu_cfv4e];
+ { all CPUs commonly called "68020+" }
+ cpu_mc68020p = [cpu_mc68020,cpu_mc68040,cpu_mc68060];
+
Implementation
end.
diff --git a/compiler/m68k/cpunode.pas b/compiler/m68k/cpunode.pas
index d956bc9826..489da54e16 100644
--- a/compiler/m68k/cpunode.pas
+++ b/compiler/m68k/cpunode.pas
@@ -39,7 +39,7 @@ unit cpunode;
// nppccon,
// nppcflw,
n68kmem,
-// nppcset,
+ n68kset,
n68kinl,
// nppcopt,
{ this not really a node }
diff --git a/compiler/m68k/cputarg.pas b/compiler/m68k/cputarg.pas
index 38bd83ac35..e6e6cdbc9a 100644
--- a/compiler/m68k/cputarg.pas
+++ b/compiler/m68k/cputarg.pas
@@ -59,6 +59,7 @@ implementation
**************************************}
,ag68kgas
+ ,ag68kvasm
{**************************************
Debuginfo
diff --git a/compiler/m68k/itcpugas.pas b/compiler/m68k/itcpugas.pas
index f2b3fe9c3b..ee00e4b55b 100644
--- a/compiler/m68k/itcpugas.pas
+++ b/compiler/m68k/itcpugas.pas
@@ -61,7 +61,7 @@ interface
{ mc64040 instructions }
'move16',
{ coldfire v4 instructions }
- 'mov3q','mvz','mvs','sats','byterev','ff1',
+ 'mov3q','mvz','mvs','sats','byterev','ff1','remu','rems',
{ fpu processor instructions - directly supported }
{ ieee aware and misc. condition codes not supported }
'fabs','fadd',
diff --git a/compiler/m68k/n68kadd.pas b/compiler/m68k/n68kadd.pas
index af61b9cdb3..7af020029c 100644
--- a/compiler/m68k/n68kadd.pas
+++ b/compiler/m68k/n68kadd.pas
@@ -37,6 +37,7 @@ interface
protected
procedure second_addfloat;override;
procedure second_cmpfloat;override;
+ procedure second_addordinal;override;
procedure second_cmpordinal;override;
procedure second_cmpsmallset;override;
procedure second_cmp64bit;override;
@@ -171,23 +172,39 @@ implementation
case current_settings.fputype of
fpu_68881,fpu_coldfire:
begin
- { have left in the register, right can be a memory location }
- hlcg.location_force_fpureg(current_asmdata.CurrAsmList,left.location,left.resultdef,true);
-
{ initialize the result }
location_reset(location,LOC_FPUREGISTER,def_cgsize(resultdef));
- location.register := cg.getfpuregister(current_asmdata.CurrAsmList,location.size);
+
+ { have left in the register, right can be a memory location }
+ if not (current_settings.fputype = fpu_coldfire) and
+ (left.nodetype = realconstn) then
+ begin
+ location.register := cg.getfpuregister(current_asmdata.CurrAsmList,location.size);
+ current_asmdata.CurrAsmList.concat(taicpu.op_realconst_reg(A_FMOVE,tcgsize2opsize[left.location.size],trealconstnode(left).value_real,location.register))
+ end
+ else
+ begin
+ hlcg.location_force_fpureg(current_asmdata.CurrAsmList,left.location,left.resultdef,true);
+
+ location.register := cg.getfpuregister(current_asmdata.CurrAsmList,location.size);
+ cg.a_loadfpu_reg_reg(current_asmdata.CurrAsmlist,OS_NO,OS_NO,left.location.register,location.register);
+ end;
{ emit the actual operation }
- cg.a_loadfpu_reg_reg(current_asmdata.CurrAsmlist,OS_NO,OS_NO,left.location.register,location.register);
case right.location.loc of
LOC_FPUREGISTER,LOC_CFPUREGISTER:
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(op,fpuregopsize,right.location.register,location.register));
LOC_REFERENCE,LOC_CREFERENCE:
begin
- href:=right.location.reference;
- tcg68k(cg).fixref(current_asmdata.CurrAsmList,href,current_settings.fputype = fpu_coldfire);
- current_asmdata.CurrAsmList.concat(taicpu.op_ref_reg(op,tcgsize2opsize[right.location.size],href,location.register));
+ if not (current_settings.fputype = fpu_coldfire) and
+ (right.nodetype = realconstn) then
+ current_asmdata.CurrAsmList.concat(taicpu.op_realconst_reg(op,tcgsize2opsize[right.location.size],trealconstnode(right).value_real,location.register))
+ else
+ begin
+ href:=right.location.reference;
+ tcg68k(cg).fixref(current_asmdata.CurrAsmList,href,current_settings.fputype = fpu_coldfire);
+ current_asmdata.CurrAsmList.concat(taicpu.op_ref_reg(op,tcgsize2opsize[right.location.size],href,location.register));
+ end;
end
else
internalerror(2015021501);
@@ -214,17 +231,46 @@ implementation
fpu_68881,fpu_coldfire:
begin
{ force left fpureg as register, right can be reference }
- hlcg.location_force_fpureg(current_asmdata.CurrAsmList,left.location,left.resultdef,true);
{ emit compare }
case right.location.loc of
LOC_FPUREGISTER,LOC_CFPUREGISTER:
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_FCMP,fpuregopsize,right.location.register,left.location.register));
+ begin
+ hlcg.location_force_fpureg(current_asmdata.CurrAsmList,left.location,left.resultdef,true);
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_FCMP,fpuregopsize,right.location.register,left.location.register));
+ end;
LOC_REFERENCE,LOC_CREFERENCE:
begin
- href:=right.location.reference;
- tcg68k(cg).fixref(current_asmdata.CurrAsmList,href,current_settings.fputype = fpu_coldfire);
- current_asmdata.CurrAsmList.concat(taicpu.op_ref_reg(A_FCMP,tcgsize2opsize[right.location.size],href,left.location.register));
+ { use FTST, if realconst is 0.0, it would be very had to do this in the
+ optimized, because we would need to investigate the referenced value... }
+ if (right.nodetype = realconstn) and
+ (trealconstnode(right).value_real = 0.0) then
+ begin
+ if left.location.loc in [LOC_FPUREGISTER,LOC_CFPUREGISTER] then
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_FTST,fpuregopsize,left.location.register))
+ else
+ if left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE] then
+ begin
+ href:=left.location.reference;
+ tcg68k(cg).fixref(current_asmdata.CurrAsmList,href,false);
+ current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_FTST,tcgsize2opsize[left.location.size],href))
+ end
+ else
+ internalerror(2016051001);
+ end
+ else
+ begin
+ hlcg.location_force_fpureg(current_asmdata.CurrAsmList,left.location,left.resultdef,true);
+ if not (current_settings.fputype = fpu_coldfire) and
+ (right.nodetype = realconstn) then
+ current_asmdata.CurrAsmList.concat(taicpu.op_realconst_reg(A_FCMP,tcgsize2opsize[right.location.size],trealconstnode(right).value_real,left.location.register))
+ else
+ begin
+ href:=right.location.reference;
+ tcg68k(cg).fixref(current_asmdata.CurrAsmList,href,current_settings.fputype = fpu_coldfire);
+ current_asmdata.CurrAsmList.concat(taicpu.op_ref_reg(A_FCMP,tcgsize2opsize[right.location.size],href,left.location.register));
+ end;
+ end;
end
else
internalerror(2015021502);
@@ -298,6 +344,70 @@ implementation
Ordinals
*****************************************************************************}
+ procedure t68kaddnode.second_addordinal;
+ var
+ cgop : topcg;
+ begin
+ { if we need to handle overflow checking, fall back to the generic cg }
+ if (nodetype in [addn,subn,muln]) and
+ (left.resultdef.typ<>pointerdef) and
+ (right.resultdef.typ<>pointerdef) and
+ (cs_check_overflow in current_settings.localswitches) then
+ begin
+ inherited;
+ exit;
+ end;
+
+ case nodetype of
+ addn: cgop:=OP_ADD;
+ xorn: cgop:=OP_XOR;
+ orn : cgop:=OP_OR;
+ andn: cgop:=OP_AND;
+ subn: cgop:=OP_SUB;
+ muln:
+ begin
+ if not(is_signed(left.resultdef)) or
+ not(is_signed(right.resultdef)) then
+ cgop:=OP_MUL
+ else
+ cgop:=OP_IMUL;
+ end;
+ else
+ internalerror(2013120104);
+ end;
+
+ pass_left_right;
+ if (nodetype=subn) and (nf_swapped in flags) then
+ swapleftright;
+
+ hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false);
+
+ { initialize the result }
+ location_reset(location,LOC_REGISTER,def_cgsize(resultdef));
+ location.register := cg.getintregister(current_asmdata.CurrAsmList,location.size);
+ cg.a_load_reg_reg(current_asmdata.CurrAsmlist,left.location.size,location.size,left.location.register,location.register);
+
+ if (location.size <> right.location.size) or
+ not (right.location.loc in [LOC_REGISTER,LOC_CREGISTER,LOC_CONSTANT,LOC_REFERENCE,LOC_CREFERENCE]) or
+ (not(CPUM68K_HAS_32BITMUL in cpu_capabilities[current_settings.cputype]) and (nodetype = muln)) or
+ ((right.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and needs_unaligned(right.location.reference.alignment,def_cgsize(resultdef))) then
+ hlcg.location_force_reg(current_asmdata.CurrAsmList,right.location,right.resultdef,right.resultdef,true);
+
+ case right.location.loc of
+ LOC_REGISTER,
+ LOC_CREGISTER:
+ cg.a_op_reg_reg(current_asmdata.CurrAsmList,cgop,def_cgsize(resultdef),right.location.register,location.register);
+ LOC_CONSTANT:
+ cg.a_op_const_reg(current_asmdata.CurrAsmList,cgop,def_cgsize(resultdef),right.location.value,location.register);
+ LOC_REFERENCE,
+ LOC_CREFERENCE:
+ cg.a_op_ref_reg(current_asmdata.CurrAsmList,cgop,def_cgsize(resultdef),right.location.reference,location.register);
+ else
+ internalerror(2016052101);
+ end;
+ end;
+
+
procedure t68kaddnode.second_cmpordinal;
var
unsigned : boolean;
@@ -322,19 +432,25 @@ implementation
if (right.location.loc=LOC_CONSTANT) and (right.location.value=0) then
begin
{ Unsigned <0 or >=0 should not reach pass2, most likely }
- case left.location.loc of
- LOC_REFERENCE,
- LOC_CREFERENCE:
- begin
- href:=left.location.reference;
- tcg68k(cg).fixref(current_asmdata.CurrAsmList,href,false);
- current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_TST,opsize,href));
- location_freetemp(current_asmdata.CurrAsmList,left.location);
- end;
+ if (left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and not needs_unaligned(left.location.reference.alignment,cmpsize) then
+ begin
+ href:=left.location.reference;
+ tcg68k(cg).fixref(current_asmdata.CurrAsmList,href,false);
+ current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_TST,opsize,href));
+ location_freetemp(current_asmdata.CurrAsmList,left.location);
+ end
else
- hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true);
- current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,opsize,left.location.register));
- end;
+ begin
+ hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true);
+ if (current_settings.cputype = cpu_mc68000) and isaddressregister(left.location.register) then
+ begin
+ tmpreg:=cg.getintregister(current_asmdata.CurrAsmList,cmpsize);
+ cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,cmpsize,left.location.register,tmpreg);
+ end
+ else
+ tmpreg:=left.location.register;
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,opsize,tmpreg));
+ end;
location.resflags := getresflags(unsigned);
exit;
end;
@@ -361,6 +477,10 @@ implementation
toggleflag(nf_swapped);
end;
end;
+
+ if (right.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and needs_unaligned(right.location.reference.alignment,cmpsize) then
+ hlcg.location_force_reg(current_asmdata.CurrAsmList,right.location,right.resultdef,right.resultdef,true);
+
{ left is now in register }
case right.location.loc of
LOC_CONSTANT:
@@ -490,26 +610,25 @@ implementation
if (right.location.loc=LOC_CONSTANT) and (right.location.value64=0) and
(nodetype in [equaln,unequaln]) then
begin
- case left.location.loc of
- LOC_REFERENCE,
- LOC_CREFERENCE:
- begin
- href:=left.location.reference;
- tcg68k(cg).fixref(current_asmdata.CurrAsmList,href,false);
- current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_TST,S_L,href));
- firstjmp64bitcmp;
- inc(href.offset,4);
- current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_TST,S_L,href));
- secondjmp64bitcmp;
- location_freetemp(current_asmdata.CurrAsmList,left.location);
- end;
+ if (left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and not needs_unaligned(left.location.reference.alignment,OS_INT) then
+ begin
+ href:=left.location.reference;
+ tcg68k(cg).fixref(current_asmdata.CurrAsmList,href,false);
+ current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_TST,S_L,href));
+ firstjmp64bitcmp;
+ inc(href.offset,4);
+ current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_TST,S_L,href));
+ secondjmp64bitcmp;
+ location_freetemp(current_asmdata.CurrAsmList,left.location);
+ end
else
- hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true);
- current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,S_L,left.location.register64.reglo));
- firstjmp64bitcmp;
- current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,S_L,left.location.register64.reghi));
- secondjmp64bitcmp;
- end;
+ begin
+ hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true);
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,S_L,left.location.register64.reglo));
+ firstjmp64bitcmp;
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,S_L,left.location.register64.reghi));
+ secondjmp64bitcmp;
+ end;
exit;
end;
@@ -526,6 +645,9 @@ implementation
end;
end;
+ if (right.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and needs_unaligned(right.location.reference.alignment,OS_INT) then
+ hlcg.location_force_reg(current_asmdata.CurrAsmList,right.location,right.resultdef,right.resultdef,true);
+
{ left is now in register }
case right.location.loc of
LOC_REGISTER,LOC_CREGISTER:
diff --git a/compiler/m68k/n68kcnv.pas b/compiler/m68k/n68kcnv.pas
index f56885574f..61c02132dc 100644
--- a/compiler/m68k/n68kcnv.pas
+++ b/compiler/m68k/n68kcnv.pas
@@ -46,7 +46,7 @@ implementation
ncon,ncal,
ncgutil,
cpubase,cpuinfo,aasmcpu,
- rgobj,tgobj,cgobj,hlcgobj,cgutils,globtype,cgcpu;
+ rgobj,tgobj,cgobj,hlcgobj,cgutils,globtype,cgcpu,cutils;
{*****************************************************************************
@@ -191,7 +191,8 @@ implementation
newsize:=def_cgsize(resultdef);
opsize := def_cgsize(left.resultdef);
- if (left.location.loc in [LOC_SUBSETREG,LOC_CSUBSETREG,LOC_SUBSETREF,LOC_CSUBSETREF]) then
+ if (left.location.loc in [LOC_SUBSETREG,LOC_CSUBSETREG,LOC_SUBSETREF,LOC_CSUBSETREF]) or
+ ((left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and needs_unaligned(left.location.reference.alignment,opsize)) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true);
case left.location.loc of
@@ -199,51 +200,42 @@ implementation
begin
if opsize in [OS_64,OS_S64] then
begin
+ //current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('typeconvnode second_int_to_bool #1')));
reg64.reghi:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
reg64.reglo:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
cg64.a_load64_loc_reg(current_asmdata.CurrAsmList,left.location,reg64);
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_OR,S_L,reg64.reghi,reg64.reglo));
- current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,S_L,reg64.reglo));
+ // it's not necessary to call TST after OR, which sets the flags as required already
+ //current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,S_L,reg64.reglo));
end
else
begin
- { can we optimize it, or do we need to fix the ref. ? }
- if isvalidrefoffset(left.location.reference) then
- begin
- { Coldfire cannot handle tst.l 123(dX) }
- if (current_settings.cputype in (cpu_coldfire + [cpu_mc68000])) and
- isintregister(left.location.reference.base) then
- begin
- tmpreference:=left.location.reference;
- hreg2:=cg.getaddressregister(current_asmdata.CurrAsmList);
- tmpreference.base:=hreg2;
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_MOVE,S_L,left.location.reference.base,hreg2));
- current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_TST,TCGSize2OpSize[opsize],tmpreference));
- end
- else
- current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_TST,TCGSize2OpSize[opsize],left.location.reference));
- end
- else
- begin
- hreg2:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
- cg.a_load_ref_reg(current_asmdata.CurrAsmList,opsize,opsize,
- left.location.reference,hreg2);
- current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,TCGSize2OpSize[opsize],hreg2));
- end;
+ //current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('typeconvnode second_int_to_bool #2')));
+ tmpreference:=left.location.reference;
+ tcg68k(cg).fixref(current_asmdata.CurrAsmList,tmpreference,false);
+ current_asmdata.CurrAsmList.concat(taicpu.op_ref(A_TST,TCGSize2OpSize[opsize],tmpreference));
end;
end;
LOC_REGISTER,LOC_CREGISTER :
begin
if opsize in [OS_64,OS_S64] then
begin
+ //current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('typeconvnode second_int_to_bool #3')));
hreg2:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_MOVE,S_L,left.location.register64.reglo,hreg2));
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_OR,S_L,left.location.register64.reghi,hreg2));
- current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,S_L,hreg2));
+ // it's not necessary to call TST after OR, which sets the flags as required already
+ //current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,S_L,hreg2));
end
else
begin
- hreg2:=left.location.register;
+ if (current_settings.cputype = cpu_mc68000) and isaddressregister(left.location.register) then
+ begin
+ hreg2:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
+ cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,opsize,left.location.register,hreg2);
+ end
+ else
+ hreg2:=left.location.register;
current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,TCGSize2OpSize[opsize],hreg2));
end;
end;
diff --git a/compiler/m68k/n68kmat.pas b/compiler/m68k/n68kmat.pas
index 33a9f8b413..d755a90946 100644
--- a/compiler/m68k/n68kmat.pas
+++ b/compiler/m68k/n68kmat.pas
@@ -80,6 +80,10 @@ implementation
begin
secondpass(left);
opsize:=def_cgsize(resultdef);
+
+ if ((left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and needs_unaligned(left.location.reference.alignment,opsize)) then
+ hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,resultdef,true);
+
case left.location.loc of
LOC_FLAGS :
begin
@@ -117,7 +121,14 @@ implementation
else
begin
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,resultdef,true);
- current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,tcgsize2opsize[opsize],left.location.register));
+ if (current_settings.cputype = cpu_mc68000) and isaddressregister(left.location.register) then
+ begin
+ hreg:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
+ cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,opsize,left.location.register,hreg);
+ end
+ else
+ hreg:=left.location.register;
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,tcgsize2opsize[opsize],hreg));
end;
location_reset(location,LOC_FLAGS,OS_NO);
location.resflags:=F_E;
@@ -135,7 +146,7 @@ implementation
function tm68kmoddivnode.first_moddivint: tnode;
begin
- if current_settings.cputype=cpu_MC68020 then
+ if CPUM68K_HAS_32BITDIV in cpu_capabilities[current_settings.cputype] then
result:=nil
else
result:=inherited first_moddivint;
@@ -143,13 +154,12 @@ implementation
procedure tm68kmoddivnode.emit_div_reg_reg(signed: boolean;denum,num : tregister);
+ const
+ divudivs: array[boolean] of tasmop = (A_DIVU,A_DIVS);
begin
- if current_settings.cputype=cpu_MC68020 then
+ if CPUM68K_HAS_32BITDIV in cpu_capabilities[current_settings.cputype] then
begin
- if signed then
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_DIVS,S_L,denum,num))
- else
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_DIVU,S_L,denum,num));
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(divudivs[signed],S_L,denum,num));
end
else
InternalError(2014062801);
@@ -157,22 +167,22 @@ implementation
procedure tm68kmoddivnode.emit_mod_reg_reg(signed: boolean;denum,num : tregister);
+ const
+ remop: array[boolean,boolean] of tasmop = ((A_DIVU,A_DIVS),(A_REMU,A_REMS));
var
tmpreg : tregister;
begin
- if current_settings.cputype=cpu_MC68020 then
- begin
- tmpreg:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT);
- { copy the numerator to the tmpreg, so we can use it as quotient, which
- means we'll get the remainder immediately in the numerator }
- cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_INT,OS_INT,num,tmpreg);
- if signed then
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(A_DIVSL,S_L,denum,num,tmpreg))
- else
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(A_DIVUL,S_L,denum,num,tmpreg));
- end
- else
- InternalError(2014062802);
+ if CPUM68K_HAS_32BITDIV in cpu_capabilities[current_settings.cputype] then
+ begin
+ tmpreg:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT);
+ { copy the numerator to the tmpreg, so we can use it as quotient, which
+ means we'll get the remainder immediately in the numerator }
+ cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_INT,OS_INT,num,tmpreg);
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(
+ remop[CPUM68K_HAS_REMSREMU in cpu_capabilities[current_settings.cputype],signed],S_L,denum,num,tmpreg));
+ end
+ else
+ InternalError(2014062802);
end;
diff --git a/compiler/m68k/n68kmem.pas b/compiler/m68k/n68kmem.pas
index 63049bc4f0..af702b850d 100644
--- a/compiler/m68k/n68kmem.pas
+++ b/compiler/m68k/n68kmem.pas
@@ -90,7 +90,7 @@ implementation
end;
end;
- if (location.reference.base=NR_NO) and not (scaled) then
+ if (location.reference.base=NR_NO) and not (scaled) and not assigned(location.reference.symbol) then
begin
{ prefer an address reg, if we will be a base, for indexes any register works }
if isintregister(maybe_const_reg) then
diff --git a/compiler/m68k/n68kset.pas b/compiler/m68k/n68kset.pas
new file mode 100644
index 0000000000..8df6712ff0
--- /dev/null
+++ b/compiler/m68k/n68kset.pas
@@ -0,0 +1,138 @@
+{
+ Copyright (c) 2016 by the Free Pascal development team
+
+ Generate m68k assembler for in set/case labels
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+ ****************************************************************************
+}
+unit n68kset;
+
+{$i fpcdefs.inc}
+
+interface
+
+ uses
+ globtype,
+ symtype,
+ cgbase,cpuinfo,cpubase,
+ node,nset,ncgset;
+
+ type
+ tcpucasenode = class(tcgcasenode)
+ procedure genlinearlist(hp : pcaselabel); override;
+ end;
+
+implementation
+
+ uses
+ systems,globals,
+ cutils,verbose,
+ symdef,paramgr,
+ aasmtai,aasmdata,
+ nflw,constexp,
+ cgutils,cgobj,hlcgobj,
+ defutil;
+
+ procedure tcpucasenode.genlinearlist(hp : pcaselabel);
+
+ var
+ first : boolean;
+ last : TConstExprInt;
+ scratch_reg: tregister;
+ newsize: tcgsize;
+ newdef: tdef;
+
+ procedure genitem(t : pcaselabel);
+
+ begin
+ if assigned(t^.less) then
+ genitem(t^.less);
+ { do we need to test the first value? }
+ if first and (t^._low>get_min_value(left.resultdef)) then
+ hlcg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,opsize,jmp_lt,tcgint(t^._low.svalue),hregister,elselabel);
+ if t^._low=t^._high then
+ begin
+ if t^._low-last=0 then
+ hlcg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,opsize,OC_EQ,0,hregister,blocklabel(t^.blockid))
+ else
+ begin
+ hlcg.a_op_const_reg(current_asmdata.CurrAsmList, OP_SUB, opsize, tcgint(t^._low.svalue-last.svalue), hregister);
+ hlcg.a_jmp_flags(current_asmdata.CurrAsmList,F_E,blocklabel(t^.blockid));
+ end;
+ last:=t^._low;
+ end
+ else
+ begin
+ { it begins with the smallest label, if the value }
+ { is even smaller then jump immediately to the }
+ { ELSE-label }
+ if first then
+ begin
+ { have we to ajust the first value ? }
+ if (t^._low>get_min_value(left.resultdef)) or (get_min_value(left.resultdef)<>0) then
+ hlcg.a_op_const_reg(current_asmdata.CurrAsmList, OP_SUB, opsize, tcgint(t^._low.svalue), hregister);
+ end
+ else
+ begin
+ { if there is no unused label between the last and the }
+ { present label then the lower limit can be checked }
+ { immediately. else check the range in between: }
+ hlcg.a_op_const_reg(current_asmdata.CurrAsmList, OP_SUB, opsize, tcgint(t^._low.svalue-last.svalue), hregister);
+ hlcg.a_jmp_flags(current_asmdata.CurrAsmList,F_L,elselabel);
+ end;
+ hlcg.a_op_const_reg(current_asmdata.CurrAsmList, OP_SUB, opsize, tcgint(t^._high.svalue-t^._low.svalue), hregister);
+ hlcg.a_jmp_flags(current_asmdata.CurrAsmList,F_LE,blocklabel(t^.blockid));
+ last:=t^._high;
+ end;
+ first:=false;
+ if assigned(t^.greater) then
+ genitem(t^.greater);
+ end;
+
+ begin
+ { do we need to generate cmps? }
+ if (with_sign and (min_label<0)) then
+ genlinearcmplist(hp)
+ else
+ begin
+ { sign/zero extend the value to a full register before starting to
+ subtract values, so that on platforms that don't have
+ subregisters of the same size as the value we don't generate
+ sign/zero-extensions after every subtraction
+
+ make newsize always signed, since we only do this if the size in
+ bytes of the register is larger than the original opsize, so
+ the value can always be represented by a larger signed type }
+ newsize:=tcgsize2signed[reg_cgsize(hregister)];
+ if tcgsize2size[newsize]>opsize.size then
+ begin
+ newdef:=cgsize_orddef(newsize);
+ scratch_reg:=hlcg.getintregister(current_asmdata.CurrAsmList,newdef);
+ hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,opsize,newdef,hregister,scratch_reg);
+ hregister:=scratch_reg;
+ opsize:=newdef;
+ end;
+ last:=0;
+ first:=true;
+ genitem(hp);
+ hlcg.a_jmp_always(current_asmdata.CurrAsmList,elselabel);
+ end;
+ end;
+
+begin
+ ccasenode:=tcpucasenode;
+end.
diff --git a/compiler/nbas.pas b/compiler/nbas.pas
index dbedee8962..da328f4f3f 100644
--- a/compiler/nbas.pas
+++ b/compiler/nbas.pas
@@ -214,7 +214,6 @@ interface
tempinfo: ptempinfo;
constructor create(const temp: ttempcreatenode); virtual;
- constructor create_offset(const temp: ttempcreatenode;aoffset:longint);
constructor ppuload(t:tnodetype;ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure resolveppuidx;override;
@@ -224,8 +223,6 @@ interface
procedure mark_write;override;
function docompare(p: tnode): boolean; override;
procedure printnodedata(var t:text);override;
- protected
- offset : longint;
private
tempidx : longint;
end;
@@ -1024,14 +1021,6 @@ implementation
begin
inherited create(temprefn);
tempinfo := temp.tempinfo;
- offset:=0;
- end;
-
-
- constructor ttemprefnode.create_offset(const temp: ttempcreatenode;aoffset:longint);
- begin
- self.create(temp);
- offset := aoffset;
end;
@@ -1040,7 +1029,6 @@ implementation
n: ttemprefnode;
begin
n := ttemprefnode(inherited dogetcopy);
- n.offset := offset;
if assigned(tempinfo^.hookoncopy) then
{ if the temp has been copied, assume it becomes a new }
@@ -1073,7 +1061,6 @@ implementation
begin
inherited ppuload(t,ppufile);
tempidx:=ppufile.getlongint;
- offset:=ppufile.getlongint;
end;
@@ -1081,7 +1068,6 @@ implementation
begin
inherited ppuwrite(ppufile);
ppufile.putlongint(tempinfo^.owner.ppuidx);
- ppufile.putlongint(offset);
end;
@@ -1141,8 +1127,7 @@ implementation
begin
result :=
inherited docompare(p) and
- (ttemprefnode(p).tempinfo = tempinfo) and
- (ttemprefnode(p).offset = offset);
+ (ttemprefnode(p).tempinfo = tempinfo);
end;
diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index cdba28df6e..ea0ab5e33e 100644
--- a/compiler/ncal.pas
+++ b/compiler/ncal.pas
@@ -304,6 +304,7 @@ implementation
symconst,defutil,defcmp,
htypechk,pass_1,
ncnv,nflw,nld,ninl,nadd,ncon,nmem,nset,nobjc,
+ pgenutil,
ngenutil,objcutil,
procinfo,cpuinfo,
wpobase;
@@ -365,6 +366,8 @@ implementation
restype: byte;
selftemp: ttempcreatenode;
selfpara: tnode;
+ vardispatchparadef: trecorddef;
+ vardispatchfield: tsym;
names : ansistring;
variantdispatch : boolean;
@@ -465,7 +468,9 @@ implementation
end;
{ create a temp to store parameter values }
- params:=ctempcreatenode.create(cformaltype,0,tt_persistent,false);
+ vardispatchparadef:=crecorddef.create_global_internal('',voidpointertype.size,voidpointertype.size,current_settings.alignment.maxCrecordalign);
+ { the size will be set once the vardistpatchparadef record has been completed }
+ params:=ctempcreatenode.create(vardispatchparadef,0,tt_persistent,false);
addstatement(statements,params);
calldescnode:=cdataconstnode.create;
@@ -518,15 +523,14 @@ implementation
{ for Variants, we always pass a pointer, RTL helpers must handle it
depending on byref bit }
+ vardispatchfield:=vardispatchparadef.add_field_by_def('',assignmenttype);
if assignmenttype=voidpointertype then
addstatement(statements,cassignmentnode.create(
- ctypeconvnode.create_internal(ctemprefnode.create_offset(params,paramssize),
- voidpointertype),
+ csubscriptnode.create(vardispatchfield,ctemprefnode.create(params)),
ctypeconvnode.create_internal(caddrnode.create_internal(para.left),voidpointertype)))
else
addstatement(statements,cassignmentnode.create(
- ctypeconvnode.create_internal(ctemprefnode.create_offset(params,paramssize),
- assignmenttype),
+ csubscriptnode.create(vardispatchfield,ctemprefnode.create(params)),
ctypeconvnode.create_internal(para.left,assignmenttype)));
inc(paramssize,max(voidpointertype.size,assignmenttype.size));
@@ -536,6 +540,9 @@ implementation
para:=tcallparanode(para.nextpara);
end;
+ { finalize the parameter record }
+ trecordsymtable(vardispatchparadef.symtable).addalignmentpadding;
+
{ Set final size for parameter block }
params.size:=paramssize;
@@ -3597,6 +3604,8 @@ implementation
{ if the final procedure definition is not yet owned,
ensure that it is }
procdefinition.register_def;
+ if procdefinition.is_specialization and (procdefinition.typ=procdef) then
+ maybe_add_pending_specialization(procdefinition);
candidates.free;
end; { end of procedure to call determination }
diff --git a/compiler/ncgbas.pas b/compiler/ncgbas.pas
index 8161472ee8..b8880bfba1 100644
--- a/compiler/ncgbas.pas
+++ b/compiler/ncgbas.pas
@@ -490,8 +490,6 @@ interface
case tempinfo^.location.loc of
LOC_REFERENCE:
begin
- inc(location.reference.offset,offset);
- location.reference.alignment:=newalignment(location.reference.alignment,offset);
{ ti_valid should be excluded if it's a normal temp }
end;
LOC_REGISTER,
@@ -516,8 +514,6 @@ interface
tg.ChangeTempType(current_asmdata.CurrAsmList,tempinfo^.location.reference,tempinfo^.temptype);
{ adapt location }
location.reference := ref;
- inc(location.reference.offset,offset);
- location.reference.alignment:=newalignment(location.reference.alignment,offset);
end;
diff --git a/compiler/ncgmem.pas b/compiler/ncgmem.pas
index 1486988630..16611a41c4 100644
--- a/compiler/ncgmem.pas
+++ b/compiler/ncgmem.pas
@@ -926,12 +926,7 @@ implementation
LOC_REGISTER,
LOC_CREGISTER :
begin
-{$ifdef m68k}
- location.reference.base:=cg.getaddressregister(current_asmdata.CurrAsmList);
- cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,left.location.register,location.reference.base);
-{$else m68k}
hlcg.reference_reset_base(location.reference,left.resultdef,left.location.register,0,location.reference.alignment);
-{$endif m68k}
end;
LOC_CREFERENCE,
LOC_REFERENCE :
diff --git a/compiler/ncgutil.pas b/compiler/ncgutil.pas
index 447619b45f..b09c97306c 100644
--- a/compiler/ncgutil.pas
+++ b/compiler/ncgutil.pas
@@ -1308,7 +1308,9 @@ implementation
for i:=0 to current_procinfo.procdef.paras.count-1 do
begin
currpara:=tparavarsym(current_procinfo.procdef.paras[i]);
- gen_load_cgpara_loc(list,currpara.vardef,currpara.paraloc[calleeside],currpara.initialloc,paramanager.param_use_paraloc(currpara.paraloc[calleeside]));
+ { don't use currpara.vardef, as this will be wrong in case of
+ call-by-reference parameters (it won't contain the pointerdef) }
+ gen_load_cgpara_loc(list,currpara.paraloc[calleeside].def,currpara.paraloc[calleeside],currpara.initialloc,paramanager.param_use_paraloc(currpara.paraloc[calleeside]));
{ gen_load_cgpara_loc() already allocated the initialloc
-> don't allocate again }
if currpara.initialloc.loc in [LOC_CREGISTER,LOC_CFPUREGISTER,LOC_CMMREGISTER] then
diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas
index 404fd9c50c..dd83cd0f47 100644
--- a/compiler/ncnv.pas
+++ b/compiler/ncnv.pas
@@ -1760,7 +1760,7 @@ implementation
{ one dimensional }
addstatement(newstatement,cassignmentnode.create(
- ctemprefnode.create_offset(temp2,0),
+ ctemprefnode.create(temp2),
cordconstnode.create
(tarraydef(left.resultdef).highrange+1,s32inttype,true)));
{ create call to fpc_dynarr_setlength }
diff --git a/compiler/ngenutil.pas b/compiler/ngenutil.pas
index e7ea96fafa..0dcb142e64 100644
--- a/compiler/ngenutil.pas
+++ b/compiler/ngenutil.pas
@@ -37,6 +37,17 @@ interface
class function call_fail_node:tnode; virtual;
class function initialize_data_node(p:tnode; force: boolean):tnode; virtual;
class function finalize_data_node(p:tnode):tnode; virtual;
+ strict protected
+ class procedure sym_maybe_initialize(p: TObject; arg: pointer);
+ { generates the code for finalisation of local variables }
+ class procedure local_varsyms_finalize(p:TObject;arg:pointer);
+ { generates the code for finalization of static symtable and
+ all local (static) typed consts }
+ class procedure static_syms_finalize(p: TObject; arg: pointer);
+ class procedure sym_maybe_finalize(var stat: tstatementnode; sym: tsym);
+ public
+ class procedure procdef_block_add_implicit_initialize_nodes(pd: tprocdef; var stat: tstatementnode);
+ class procedure procdef_block_add_implicit_finalize_nodes(pd: tprocdef; var stat: tstatementnode);
{ returns true if the unit requires an initialisation section (e.g.,
to force class constructors for the JVM target to initialise global
records/arrays) }
@@ -260,6 +271,149 @@ implementation
end;
+ class procedure tnodeutils.sym_maybe_initialize(p: TObject; arg: pointer);
+ begin
+ if (tsym(p).typ = localvarsym) and
+ { local (procedure or unit) variables only need initialization if
+ they are used }
+ ((tabstractvarsym(p).refs>0) or
+ { managed return symbols must be inited }
+ ((tsym(p).typ=localvarsym) and (vo_is_funcret in tlocalvarsym(p).varoptions))
+ ) and
+ not(vo_is_typed_const in tabstractvarsym(p).varoptions) and
+ not(vo_is_external in tabstractvarsym(p).varoptions) and
+ not(vo_is_default_var in tabstractvarsym(p).varoptions) and
+ (is_managed_type(tabstractvarsym(p).vardef) or
+ ((m_iso in current_settings.modeswitches) and (tabstractvarsym(p).vardef.typ=filedef))
+ ) then
+ begin
+ addstatement(tstatementnode(arg^),initialize_data_node(cloadnode.create(tsym(p),tsym(p).owner),false));
+ end;
+ end;
+
+
+ class procedure tnodeutils.local_varsyms_finalize(p: TObject; arg: pointer);
+ begin
+ if (tsym(p).typ=localvarsym) and
+ (tlocalvarsym(p).refs>0) and
+ not(vo_is_external in tlocalvarsym(p).varoptions) and
+ not(vo_is_funcret in tlocalvarsym(p).varoptions) and
+ not(vo_is_default_var in tabstractvarsym(p).varoptions) and
+ is_managed_type(tlocalvarsym(p).vardef) then
+ sym_maybe_finalize(tstatementnode(arg^),tsym(p));
+ end;
+
+
+ class procedure tnodeutils.static_syms_finalize(p: TObject; arg: pointer);
+ var
+ i : longint;
+ pd : tprocdef;
+ begin
+ case tsym(p).typ of
+ staticvarsym :
+ begin
+ { local (procedure or unit) variables only need finalization
+ if they are used
+ }
+ if ((tstaticvarsym(p).refs>0) or
+ { global (unit) variables always need finalization, since
+ they may also be used in another unit
+ }
+ (tstaticvarsym(p).owner.symtabletype=globalsymtable)) and
+ (
+ (tstaticvarsym(p).varspez<>vs_const) or
+ (vo_force_finalize in tstaticvarsym(p).varoptions)
+ ) and
+ not(vo_is_funcret in tstaticvarsym(p).varoptions) and
+ not(vo_is_external in tstaticvarsym(p).varoptions) and
+ is_managed_type(tstaticvarsym(p).vardef) and
+ not (
+ assigned(tstaticvarsym(p).fieldvarsym) and
+ assigned(tstaticvarsym(p).fieldvarsym.owner.defowner) and
+ (df_generic in tdef(tstaticvarsym(p).fieldvarsym.owner.defowner).defoptions)
+ )
+ then
+ sym_maybe_finalize(tstatementnode(arg^),tsym(p));
+ end;
+ procsym :
+ begin
+ for i:=0 to tprocsym(p).ProcdefList.Count-1 do
+ begin
+ pd:=tprocdef(tprocsym(p).ProcdefList[i]);
+ if assigned(pd.localst) and
+ (pd.procsym=tprocsym(p)) and
+ (pd.localst.symtabletype<>staticsymtable) then
+ pd.localst.SymList.ForEachCall(@static_syms_finalize,arg);
+ end;
+ end;
+ end;
+ end;
+
+
+ class procedure tnodeutils.sym_maybe_finalize(var stat: tstatementnode; sym: tsym);
+ var
+ hp: tnode;
+ begin
+ include(current_procinfo.flags,pi_needs_implicit_finally);
+ hp:=cloadnode.create(sym,sym.owner);
+ if (sym.typ=staticvarsym) and (vo_force_finalize in tstaticvarsym(sym).varoptions) then
+ include(tloadnode(hp).loadnodeflags,loadnf_isinternal_ignoreconst);
+ addstatement(stat,finalize_data_node(hp));
+ end;
+
+
+ class procedure tnodeutils.procdef_block_add_implicit_initialize_nodes(pd: tprocdef; var stat: tstatementnode);
+ begin
+ { initialize local data like ansistrings }
+ case pd.proctypeoption of
+ potype_unitinit:
+ begin
+ { this is also used for initialization of variables in a
+ program which does not have a globalsymtable }
+ if assigned(current_module.globalsymtable) then
+ TSymtable(current_module.globalsymtable).SymList.ForEachCall(@sym_maybe_initialize,@stat);
+ TSymtable(current_module.localsymtable).SymList.ForEachCall(@sym_maybe_initialize,@stat);
+ TSymtable(current_module.localsymtable).SymList.ForEachCall(@sym_maybe_initialize,@stat);
+ end;
+ { units have seperate code for initilization and finalization }
+ potype_unitfinalize: ;
+ { program init/final is generated in separate procedure }
+ potype_proginit:
+ begin
+ TSymtable(current_module.localsymtable).SymList.ForEachCall(@sym_maybe_initialize,@stat);
+ end;
+ else
+ current_procinfo.procdef.localst.SymList.ForEachCall(@sym_maybe_initialize,@stat);
+ end;
+ end;
+
+
+ class procedure tnodeutils.procdef_block_add_implicit_finalize_nodes(pd: tprocdef; var stat: tstatementnode);
+ begin
+ { no finalization in exceptfilters, they /are/ the finalization code }
+ if current_procinfo.procdef.proctypeoption=potype_exceptfilter then
+ exit;
+
+ { finalize local data like ansistrings}
+ case current_procinfo.procdef.proctypeoption of
+ potype_unitfinalize:
+ begin
+ { this is also used for initialization of variables in a
+ program which does not have a globalsymtable }
+ if assigned(current_module.globalsymtable) then
+ TSymtable(current_module.globalsymtable).SymList.ForEachCall(@static_syms_finalize,@stat);
+ TSymtable(current_module.localsymtable).SymList.ForEachCall(@static_syms_finalize,@stat);
+ end;
+ { units/progs have separate code for initialization and finalization }
+ potype_unitinit: ;
+ { program init/final is generated in separate procedure }
+ potype_proginit: ;
+ else
+ current_procinfo.procdef.localst.SymList.ForEachCall(@local_varsyms_finalize,@stat);
+ end;
+ end;
+
+
class function tnodeutils.force_init: boolean;
begin
result:=
@@ -584,12 +738,15 @@ implementation
else
list.concat(Tai_datablock.create(sym.mangledname,size));
- { add the indirect symbol if needed }
- new_section(list,sec_rodata,lower(sym.mangledname),const_align(sym.vardef.alignment));
- symind:=current_asmdata.DefineAsmSymbol(sym.mangledname,AB_INDIRECT,AT_DATA);
- list.concat(Tai_symbol.Create_Global(symind,0));
- list.concat(Tai_const.Createname(sym.mangledname,AT_DATA,0));
- list.concat(tai_symbol_end.Create(symind));
+ if (tf_supports_packages in target_info.flags) then
+ begin
+ { add the indirect symbol if needed }
+ new_section(list,sec_rodata,lower(sym.mangledname),const_align(sym.vardef.alignment));
+ symind:=current_asmdata.DefineAsmSymbol(sym.mangledname,AB_INDIRECT,AT_DATA);
+ list.concat(Tai_symbol.Create_Global(symind,0));
+ list.concat(Tai_const.Createname(sym.mangledname,AT_DATA,0));
+ list.concat(tai_symbol_end.Create(symind));
+ end;
end;
@@ -1160,7 +1317,8 @@ implementation
);
tcb.free;
- if not(tf_no_generic_stackcheck in target_info.flags) then
+ if (tf_emit_stklen in target_info.flags) or
+ not(tf_no_generic_stackcheck in target_info.flags) then
begin
{ stacksize can be specified and is now simulated }
tcb:=ctai_typedconstbuilder.create([tcalo_new_section,tcalo_make_dead_strippable]);
diff --git a/compiler/ninl.pas b/compiler/ninl.pas
index 696097924e..3417e0890e 100644
--- a/compiler/ninl.pas
+++ b/compiler/ninl.pas
@@ -3958,7 +3958,7 @@ implementation
newblock:=internalstatements(newstatement);
{ get temp for array of lengths }
- temp:=ctempcreatenode.create(sinttype,dims*sinttype.size,tt_persistent,false);
+ temp:=ctempcreatenode.create(carraydef.getreusable(sinttype,dims),dims*sinttype.size,tt_persistent,false);
addstatement(newstatement,temp);
{ load array of lengths }
@@ -3967,7 +3967,10 @@ implementation
while assigned(ppn.right) do
begin
addstatement(newstatement,cassignmentnode.create(
- ctemprefnode.create_offset(temp,counter*sinttype.size),
+ cvecnode.create(
+ ctemprefnode.create(temp),
+ genintconstnode(counter)
+ ),
ppn.left));
ppn.left:=nil;
dec(counter);
@@ -3977,8 +3980,11 @@ implementation
ppn.left:=nil;
{ create call to fpc_dynarr_setlength }
- npara:=ccallparanode.create(caddrnode.create_internal
- (ctemprefnode.create(temp)),
+ npara:=ccallparanode.create(caddrnode.create_internal(
+ cvecnode.create(
+ ctemprefnode.create(temp),
+ genintconstnode(0)
+ )),
ccallparanode.create(cordconstnode.create
(dims,sinttype,true),
ccallparanode.create(caddrnode.create_internal
diff --git a/compiler/ogbase.pas b/compiler/ogbase.pas
index 16f16a8bb5..d27a23e9ba 100644
--- a/compiler/ogbase.pas
+++ b/compiler/ogbase.pas
@@ -192,7 +192,7 @@ interface
symidx : longint;
objsection : TObjSection;
offset,
- size : aword;
+ size : PUInt;
{ Used for external and common solving during linking }
exesymbol : TExeSymbol;
@@ -260,7 +260,7 @@ interface
SecAlign : shortint; { alignment of the section }
{ section Data }
Size,
- DataPos : aword;
+ DataPos : PUInt;
MemPos : qword;
Group : TObjSectionGroup;
DataAlignBytes : shortint;
@@ -272,19 +272,19 @@ interface
VTRefList : TFPObjectList;
constructor create(AList:TFPHashObjectList;const Aname:string;Aalign:shortint;Aoptions:TObjSectionOptions);virtual;
destructor destroy;override;
- function write(const d;l:aword):aword;
+ function write(const d;l:PUInt):PUInt;
{ writes string plus zero byte }
- function writestr(const s:string):aword;
- function WriteZeros(l:longword):aword;
+ function writestr(const s:string):PUInt;
+ function WriteZeros(l:longword):PUInt;
{ writes content of s without null termination }
- function WriteBytes(const s:string):aword;
+ function WriteBytes(const s:string):PUInt;
procedure writeReloc_internal(aTarget:TObjSection;offset:aword;len:byte;reltype:TObjRelocationType);virtual;
function setmempos(mpos:qword):qword;
- procedure setDatapos(var dpos:aword);
- procedure alloc(l:aword);
- procedure addsymReloc(ofs:aword;p:TObjSymbol;Reloctype:TObjRelocationType);
- procedure addsectionReloc(ofs:aword;aobjsec:TObjSection;Reloctype:TObjRelocationType);
- procedure addrawReloc(ofs:aword;p:TObjSymbol;RawReloctype:byte);
+ procedure setDatapos(var dpos:PUInt);
+ procedure alloc(l:PUInt);
+ procedure addsymReloc(ofs:PUInt;p:TObjSymbol;Reloctype:TObjRelocationType);
+ procedure addsectionReloc(ofs:PUInt;aobjsec:TObjSection;Reloctype:TObjRelocationType);
+ procedure addrawReloc(ofs:PUInt;p:TObjSymbol;RawReloctype:byte);
procedure ReleaseData;
function FullName:string;
{ string representation for the linker map file }
@@ -373,7 +373,7 @@ interface
procedure afteralloc;virtual;
procedure afterwrite;virtual;
procedure resetsections;
- procedure layoutsections(var datapos:aword);
+ procedure layoutsections(var datapos:PUInt);
property Name:TString80 read FName;
property CurrObjSec:TObjSection read FCurrObjSec;
property ObjSymbolList:TObjSymbolList read FObjSymbolList;
@@ -928,7 +928,7 @@ implementation
end;
- function TObjSection.write(const d;l:aword):aword;
+ function TObjSection.write(const d;l:PUInt):PUInt;
begin
result:=size;
if assigned(Data) then
@@ -947,7 +947,7 @@ implementation
end;
- function TObjSection.writestr(const s:string):aword;
+ function TObjSection.writestr(const s:string):PUInt;
var
b: byte;
begin
@@ -957,13 +957,13 @@ implementation
end;
- function TObjSection.WriteBytes(const s:string):aword;
+ function TObjSection.WriteBytes(const s:string):PUInt;
begin
result:=Write(s[1],length(s));
end;
- function TObjSection.WriteZeros(l:longword):aword;
+ function TObjSection.WriteZeros(l:longword):PUInt;
var
empty : array[0..1023] of byte;
begin
@@ -995,7 +995,7 @@ implementation
end;
- procedure TObjSection.setDatapos(var dpos:aword);
+ procedure TObjSection.setDatapos(var dpos:PUInt);
begin
if oso_Data in secoptions then
begin
@@ -1018,7 +1018,7 @@ implementation
end;
- procedure TObjSection.alloc(l:aword);
+ procedure TObjSection.alloc(l:PUInt);
begin
{$ifndef cpu64bitalu}
if (qword(size)+l)>high(size) then
@@ -1031,19 +1031,19 @@ implementation
end;
- procedure TObjSection.addsymReloc(ofs:aword;p:TObjSymbol;Reloctype:TObjRelocationType);
+ procedure TObjSection.addsymReloc(ofs:PUInt;p:TObjSymbol;Reloctype:TObjRelocationType);
begin
ObjRelocations.Add(TObjRelocation.CreateSymbol(ofs,p,reloctype));
end;
- procedure TObjSection.addsectionReloc(ofs:aword;aobjsec:TObjSection;Reloctype:TObjRelocationType);
+ procedure TObjSection.addsectionReloc(ofs:PUInt;aobjsec:TObjSection;Reloctype:TObjRelocationType);
begin
ObjRelocations.Add(TObjRelocation.CreateSection(ofs,aobjsec,reloctype));
end;
- procedure TObjSection.addrawReloc(ofs:aword;p:TObjSymbol;RawReloctype:byte);
+ procedure TObjSection.addrawReloc(ofs:PUInt;p:TObjSymbol;RawReloctype:byte);
begin
ObjRelocations.Add(TObjRelocation.CreateRaw(ofs,p,RawReloctype));
end;
@@ -1498,7 +1498,7 @@ implementation
end;
- procedure TObjData.layoutsections(var DataPos:aword);
+ procedure TObjData.layoutsections(var DataPos:PUInt);
var
i: longint;
begin
diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index f61f9b8983..fd3e596bf0 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -3229,6 +3229,7 @@ const
are written using ;procdir; or ['procdir'] syntax.
}
var
+ stoprecording,
res : boolean;
begin
if (m_mac in current_settings.modeswitches) and (cs_externally_visible in current_settings.localswitches) then
@@ -3257,6 +3258,17 @@ const
include(pd.procoptions,po_staticmethod);
end;
+ { for a generic routine we also need to record the procedure }
+ { directives, but only if we aren't already recording for a }
+ { surrounding generic }
+ if pd.is_generic and (pd.typ=procdef) and not current_scanner.is_recording_tokens then
+ begin
+ current_scanner.startrecordtokens(tprocdef(pd).genericdecltokenbuf);
+ stoprecording:=true;
+ end
+ else
+ stoprecording:=false;
+
while token in [_ID,_LECKKLAMMER] do
begin
if try_to_consume(_LECKKLAMMER) then
@@ -3302,6 +3314,10 @@ const
else
break;
end;
+
+ if stoprecording then
+ current_scanner.stoprecordtokens;
+
{ nostackframe requires assembler, but assembler
may be specified in the implementation part only,
and in not required if the function is first forward declared
diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 2a3bd396b8..529023521c 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -66,7 +66,7 @@ implementation
uses
{ common }
- cutils,
+ cutils,cclasses,
{ global }
verbose,
systems,widestr,
@@ -1717,28 +1717,39 @@ implementation
temp : ttempcreatenode;
paras : tcallparanode;
newblock : tnode;
- countindices : aint;
+ countindices : longint;
+ elements: tfplist;
+ arraydef: tdef;
begin
{ create statements with call initialize the arguments and
call fpc_dynarr_setlength }
newblock:=internalstatements(newstatement);
- { get temp for array of indicies,
- we set the real size later }
- temp:=ctempcreatenode.create(s32inttype,4,tt_persistent,false);
- addstatement(newstatement,temp);
-
+ { store all indices in a temporary array }
countindices:=0;
+ elements:=tfplist.Create;
repeat
p4:=comp_expr([ef_accept_equal]);
-
- addstatement(newstatement,cassignmentnode.create(
- ctemprefnode.create_offset(temp,countindices*s32inttype.size),p4));
- inc(countindices);
+ elements.add(p4);
until not try_to_consume(_COMMA);
- { set real size }
- temp.size:=countindices*s32inttype.size;
+ arraydef:=carraydef.getreusable(s32inttype,elements.count);
+ temp:=ctempcreatenode.create(arraydef,arraydef.size,tt_persistent,false);
+ addstatement(newstatement,temp);
+ for countindices:=0 to elements.count-1 do
+ begin
+ addstatement(newstatement,
+ cassignmentnode.create(
+ cvecnode.create(
+ ctemprefnode.create(temp),
+ genintconstnode(countindices)
+ ),
+ tnode(elements[countindices])
+ )
+ );
+ end;
+ countindices:=elements.count;
+ elements.free;
consume(_RECKKLAMMER);
@@ -1752,7 +1763,7 @@ implementation
paras:=ccallparanode.create(cordconstnode.create
(countindices,s32inttype,true),
ccallparanode.create(caddrnode.create_internal
- (ctemprefnode.create(temp)),
+ (cvecnode.create(ctemprefnode.create(temp),genintconstnode(0))),
ccallparanode.create(ctypeconvnode.create_internal(p4,cvarianttype),
ccallparanode.create(ctypeconvnode.create_internal(p1,cvarianttype)
,nil))));
@@ -1827,7 +1838,7 @@ implementation
{ one dimensional }
addstatement(newstatement,cassignmentnode.create(
- ctemprefnode.create_offset(temp2,0),
+ ctemprefnode.create(temp2),
cordconstnode.create
(paracount,s32inttype,true)));
{ create call to fpc_dynarr_setlength }
diff --git a/compiler/pgenutil.pas b/compiler/pgenutil.pas
index 1036c265c4..a1c7efd4cb 100644
--- a/compiler/pgenutil.pas
+++ b/compiler/pgenutil.pas
@@ -51,6 +51,9 @@ uses
function resolve_generic_dummysym(const name:tidstring):tsym;
function could_be_generic(const name:tidstring):boolean;inline;
+ procedure generate_specialization_procs;
+ procedure maybe_add_pending_specialization(def:tdef);
+
procedure specialization_init(genericdef:tdef;var state:tspecializationstate);
procedure specialization_done(var state:tspecializationstate);
@@ -70,7 +73,7 @@ uses
node,nobj,nmem,
{ parser }
scanner,
- pbase,pexpr,pdecsub,ptype;
+ pbase,pexpr,pdecsub,ptype,psub;
procedure maybe_add_waiting_unit(tt:tdef);
@@ -701,6 +704,7 @@ uses
item : tobject;
hintsprocessed : boolean;
pd : tprocdef;
+ pdflags : tpdflags;
begin
if not assigned(context) then
internalerror(2015052203);
@@ -995,6 +999,14 @@ uses
end;
procdef:
begin
+ pdflags:=[pd_body,pd_implemen];
+ if genericdef.owner.symtabletype=objectsymtable then
+ include(pdflags,pd_object)
+ else if genericdef.owner.symtabletype=recordsymtable then
+ include(pdflags,pd_record);
+ parse_proc_directives(pd,pdflags);
+ while try_consume_hintdirective(pd.symoptions,pd.deprecatedmsg) do
+ consume(_SEMICOLON);
handle_calling_convention(tprocdef(result),hcc_all);
proc_add_definition(tprocdef(result));
{ for partial specializations we implicitely declare the routine as
@@ -1060,6 +1072,10 @@ uses
tempst.free;
specialization_done(state);
+
+ { procdefs are only added once we know which overload we use }
+ if result.typ<>procdef then
+ current_module.pendingspecializations.add(result.typename,result);
end;
generictypelist.free;
@@ -1494,4 +1510,157 @@ uses
fillchar(state, sizeof(state), 0);
end;
+
+{****************************************************************************
+ SPECIALIZATION BODY GENERATION
+****************************************************************************}
+
+
+ procedure process_procdef(def:tprocdef;hmodule:tmodule);
+ var
+ oldcurrent_filepos : tfileposinfo;
+ begin
+ if assigned(def.genericdef) and
+ (def.genericdef.typ=procdef) and
+ assigned(tprocdef(def.genericdef).generictokenbuf) then
+ begin
+ if not assigned(tprocdef(def.genericdef).generictokenbuf) then
+ internalerror(2015061902);
+ oldcurrent_filepos:=current_filepos;
+ current_filepos:=tprocdef(def.genericdef).fileinfo;
+ { use the index the module got from the current compilation process }
+ current_filepos.moduleindex:=hmodule.unit_index;
+ current_tokenpos:=current_filepos;
+ current_scanner.startreplaytokens(tprocdef(def.genericdef).generictokenbuf);
+ read_proc_body(def);
+ current_filepos:=oldcurrent_filepos;
+ end
+ { synthetic routines will be implemented afterwards }
+ else if def.synthetickind=tsk_none then
+ MessagePos1(def.fileinfo,sym_e_forward_not_resolved,def.fullprocname(false));
+ end;
+
+
+ function process_abstractrecorddef(def:tabstractrecorddef):boolean;
+ var
+ i : longint;
+ hp : tdef;
+ hmodule : tmodule;
+ begin
+ result:=true;
+ hmodule:=find_module_from_symtable(def.genericdef.owner);
+ if hmodule=nil then
+ internalerror(201202041);
+ for i:=0 to def.symtable.DefList.Count-1 do
+ begin
+ hp:=tdef(def.symtable.DefList[i]);
+ if hp.typ=procdef then
+ begin
+ { only generate the code if we need a body }
+ if assigned(tprocdef(hp).struct) and not tprocdef(hp).forwarddef then
+ continue;
+ { and the body is available already (which is implicitely the
+ case if the generic routine is part of another unit) }
+ if (hmodule=current_module) and tprocdef(tprocdef(hp).genericdef).forwarddef then
+ begin
+ result:=false;
+ continue;
+ end;
+ process_procdef(tprocdef(hp),hmodule);
+ end
+ else
+ if hp.typ in [objectdef,recorddef] then
+ { generate code for subtypes as well }
+ result:=process_abstractrecorddef(tabstractrecorddef(hp)) and result;
+ end;
+ end;
+
+
+ procedure generate_specialization_procs;
+ var
+ i : longint;
+ list,
+ readdlist : tfpobjectlist;
+ def : tstoreddef;
+ state : tspecializationstate;
+ hmodule : tmodule;
+ begin
+ { first copy all entries and then work with that list to ensure that
+ we don't get an infinite recursion }
+ list:=tfpobjectlist.create(false);
+ readdlist:=tfpobjectlist.create(false);
+
+ for i:=0 to current_module.pendingspecializations.Count-1 do
+ list.add(current_module.pendingspecializations.Items[i]);
+
+ current_module.pendingspecializations.clear;
+
+ for i:=0 to list.count-1 do
+ begin
+ def:=tstoreddef(list[i]);
+ if not tstoreddef(def).is_specialization then
+ continue;
+ case def.typ of
+ procdef:
+ begin
+ { the use of forwarddef should not backfire as the
+ specialization always belongs to the current module }
+ if not tprocdef(def).forwarddef then
+ continue;
+ if not assigned(def.genericdef) then
+ internalerror(2015061903);
+ hmodule:=find_module_from_symtable(def.genericdef.owner);
+ if hmodule=nil then
+ internalerror(2015061904);
+ { we need to check for a forward declaration only if the
+ generic was declared in the same unit (otherwise there
+ should be one) }
+ if (hmodule=current_module) and tprocdef(def.genericdef).forwarddef then
+ begin
+ readdlist.add(def);
+ continue;
+ end;
+
+ specialization_init(tstoreddef(def).genericdef,state);
+
+ process_procdef(tprocdef(def),hmodule);
+
+ specialization_done(state);
+ end;
+ recorddef,
+ objectdef:
+ begin
+ specialization_init(tstoreddef(def).genericdef,state);
+
+ if not process_abstractrecorddef(tabstractrecorddef(def)) then
+ readdlist.add(def);
+
+ specialization_done(state);
+ end;
+ end;
+ end;
+
+ { add those defs back to the pending list for which we don't yet have
+ all method bodies }
+ for i:=0 to readdlist.count-1 do
+ current_module.pendingspecializations.add(tstoreddef(readdlist[i]).typename,readdlist[i]);
+
+ readdlist.free;
+ list.free;
+ end;
+
+
+ procedure maybe_add_pending_specialization(def:tdef);
+ var
+ hmodule : tmodule;
+ st : tsymtable;
+ begin
+ st:=def.owner;
+ while st.symtabletype in [localsymtable] do
+ st:=st.defowner.owner;
+ hmodule:=find_module_from_symtable(st);
+ if tstoreddef(def).is_specialization and (hmodule=current_module) then
+ current_module.pendingspecializations.add(def.typename,def);
+ end;
+
end.
diff --git a/compiler/pkgutil.pas b/compiler/pkgutil.pas
index d0536ae900..f8ad90db78 100644
--- a/compiler/pkgutil.pas
+++ b/compiler/pkgutil.pas
@@ -639,8 +639,7 @@ implementation
module:=tmodule(loaded_units.first);
while assigned(module) do
begin
- //if not assigned(module.package) then
- if (uf_in_library and module.flags)=0 then
+ if not assigned(module.package) then
processimportedsyms(module.unitimportsyms);
module:=tmodule(module.next);
end;
diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index c0f18cf9d5..e6b7f69fa5 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -47,7 +47,7 @@ implementation
objcgutl,
pkgutil,
wpobase,
- scanner,pbase,pexpr,psystem,psub,pdecsub,ncgvmt,ncgrtti,
+ scanner,pbase,pexpr,psystem,psub,pdecsub,pgenutil,ncgvmt,ncgrtti,
cpuinfo;
diff --git a/compiler/ppu.pas b/compiler/ppu.pas
index 91a04b35d2..c3c3e04ad9 100644
--- a/compiler/ppu.pas
+++ b/compiler/ppu.pas
@@ -43,7 +43,7 @@ type
{$endif Test_Double_checksum}
const
- CurrentPPUVersion = 182;
+ CurrentPPUVersion = 183;
ppubufsize = 16384;
diff --git a/compiler/psub.pas b/compiler/psub.pas
index 0d55369f67..2c0de413c8 100644
--- a/compiler/psub.pas
+++ b/compiler/psub.pas
@@ -85,9 +85,10 @@ interface
true) }
procedure read_proc(isclassmethod:boolean; usefwpd: tprocdef;isgeneric:boolean);
- procedure import_external_proc(pd:tprocdef);
+ { parses only the body of a non nested routine; needs a correctly setup pd }
+ procedure read_proc_body(pd:tprocdef);inline;
- procedure generate_specialization_procs;
+ procedure import_external_proc(pd:tprocdef);
implementation
@@ -756,6 +757,7 @@ implementation
begin
include(tocode.flags,nf_block_with_exit);
addstatement(newstatement,final_asmnode);
+ cnodeutils.procdef_block_add_implicit_finalize_nodes(procdef,newstatement);
final_used:=true;
end;
@@ -875,6 +877,7 @@ implementation
addstatement(newstatement,loadpara_asmnode);
addstatement(newstatement,stackcheck_asmnode);
addstatement(newstatement,entry_asmnode);
+ cnodeutils.procdef_block_add_implicit_initialize_nodes(procdef,newstatement);
addstatement(newstatement,init_asmnode);
addstatement(newstatement,bodyentrycode);
@@ -896,6 +899,7 @@ implementation
{ Generate code that will be in the try...finally }
finalcode:=internalstatements(codestatement);
addstatement(codestatement,final_asmnode);
+ cnodeutils.procdef_block_add_implicit_finalize_nodes(procdef,codestatement);
final_used:=true;
current_filepos:=entrypos;
@@ -929,9 +933,12 @@ implementation
if not is_constructor then
begin
addstatement(newstatement,final_asmnode);
+ cnodeutils.procdef_block_add_implicit_finalize_nodes(procdef,newstatement);
final_used:=true;
end;
end;
+ if not final_used then
+ cnodeutils.procdef_block_add_implicit_finalize_nodes(procdef,newstatement);
do_firstpass(newblock);
code:=newblock;
current_filepos:=oldfilepos;
@@ -2021,7 +2028,12 @@ implementation
if not isnestedproc then
begin
if not(df_generic in current_procinfo.procdef.defoptions) then
- tcgprocinfo(current_procinfo).generate_code_tree;
+ begin
+ { also generate the bodies for all previously done
+ specializations so that we might inline them }
+ generate_specialization_procs;
+ tcgprocinfo(current_procinfo).generate_code_tree;
+ end;
end;
{ reset _FAIL as _SELF normal }
@@ -2045,6 +2057,21 @@ implementation
end;
+ procedure read_proc_body(pd:tprocdef);
+ var
+ old_module_procinfo : tobject;
+ old_current_procinfo : tprocinfo;
+ begin
+ old_current_procinfo:=current_procinfo;
+ old_module_procinfo:=current_module.procinfo;
+ current_procinfo:=nil;
+ current_module.procinfo:=nil;
+ read_proc_body(nil,pd);
+ current_procinfo:=old_current_procinfo;
+ current_module.procinfo:=old_module_procinfo;
+ end;
+
+
procedure read_proc(isclassmethod:boolean; usefwpd: tprocdef;isgeneric:boolean);
{
Parses the procedure directives, then parses the procedure body, then
@@ -2492,131 +2519,4 @@ implementation
end;
-{****************************************************************************
- SPECIALIZATION BODY GENERATION
-****************************************************************************}
-
-
- procedure specialize_objectdefs(p:TObject;arg:pointer);
- var
- specobj : tabstractrecorddef;
- state : tspecializationstate;
-
- procedure process_procdef(def:tprocdef;hmodule:tmodule);
- var
- oldcurrent_filepos : tfileposinfo;
- begin
- if assigned(def.genericdef) and
- (def.genericdef.typ=procdef) and
- assigned(tprocdef(def.genericdef).generictokenbuf) then
- begin
- if not assigned(tprocdef(def.genericdef).generictokenbuf) then
- internalerror(2015061902);
- oldcurrent_filepos:=current_filepos;
- current_filepos:=tprocdef(def.genericdef).fileinfo;
- { use the index the module got from the current compilation process }
- current_filepos.moduleindex:=hmodule.unit_index;
- current_tokenpos:=current_filepos;
- current_scanner.startreplaytokens(tprocdef(def.genericdef).generictokenbuf);
- read_proc_body(nil,def);
- current_filepos:=oldcurrent_filepos;
- end
- { synthetic routines will be implemented afterwards }
- else if def.synthetickind=tsk_none then
- MessagePos1(def.fileinfo,sym_e_forward_not_resolved,def.fullprocname(false));
- end;
-
- procedure process_abstractrecorddef(def:tabstractrecorddef);
- var
- i : longint;
- hp : tdef;
- hmodule : tmodule;
- begin
- hmodule:=find_module_from_symtable(def.genericdef.owner);
- if hmodule=nil then
- internalerror(201202041);
- for i:=0 to def.symtable.DefList.Count-1 do
- begin
- hp:=tdef(def.symtable.DefList[i]);
- if hp.typ=procdef then
- begin
- { only generate the code if we need a body }
- if assigned(tprocdef(hp).struct) and not tprocdef(hp).forwarddef then
- continue;
- process_procdef(tprocdef(hp),hmodule);
- end
- else
- if hp.typ in [objectdef,recorddef] then
- { generate code for subtypes as well }
- process_abstractrecorddef(tabstractrecorddef(hp));
- end;
- end;
-
- procedure process_procsym(procsym:tprocsym);
- var
- i : longint;
- pd : tprocdef;
- state : tspecializationstate;
- hmodule : tmodule;
- begin
- for i:=0 to procsym.procdeflist.count-1 do
- begin
- pd:=tprocdef(procsym.procdeflist[i]);
- if not pd.is_specialization then
- continue;
- if not pd.forwarddef then
- continue;
- if not assigned(pd.genericdef) then
- internalerror(2015061903);
- hmodule:=find_module_from_symtable(pd.genericdef.owner);
- if hmodule=nil then
- internalerror(2015061904);
-
- specialization_init(pd.genericdef,state);
-
- process_procdef(pd,hmodule);
-
- specialization_done(state);
- end;
- end;
-
- begin
- if not((tsym(p).typ=typesym) and
- (ttypesym(p).typedef.typesym=tsym(p)) and
- (ttypesym(p).typedef.typ in [objectdef,recorddef])
- ) and
- not (tsym(p).typ=procsym) then
- exit;
-
- if tsym(p).typ=procsym then
- process_procsym(tprocsym(p))
- else
- if df_specialization in ttypesym(p).typedef.defoptions then
- begin
- { Setup symtablestack a definition time }
- specobj:=tabstractrecorddef(ttypesym(p).typedef);
-
- if not (is_class_or_object(specobj) or is_record(specobj) or is_javaclass(specobj)) then
- exit;
-
- specialization_init(specobj.genericdef,state);
-
- { procedure definitions for classes or objects }
- process_abstractrecorddef(specobj);
-
- specialization_done(state);
- end
- else
- tabstractrecorddef(ttypesym(p).typedef).symtable.symlist.whileeachcall(@specialize_objectdefs,nil);
- end;
-
-
- procedure generate_specialization_procs;
- begin
- if assigned(current_module.globalsymtable) then
- current_module.globalsymtable.SymList.WhileEachCall(@specialize_objectdefs,nil);
- if assigned(current_module.localsymtable) then
- current_module.localsymtable.SymList.WhileEachCall(@specialize_objectdefs,nil);
- end;
-
end.
diff --git a/compiler/psystem.pas b/compiler/psystem.pas
index 9901c1d42b..d7bd1d54a9 100644
--- a/compiler/psystem.pas
+++ b/compiler/psystem.pas
@@ -243,6 +243,9 @@ implementation
bool16type:=corddef.create(bool16bit,low(int64),high(int64),true);
bool32type:=corddef.create(bool32bit,low(int64),high(int64),true);
bool64type:=corddef.create(bool64bit,low(int64),high(int64),true);
+{$ifdef llvm}
+ llvmbool1type:=corddef.create(pasbool8,0,1,true);
+{$endif llvm}
cansichartype:=corddef.create(uchar,0,255,true);
cwidechartype:=corddef.create(uwidechar,0,65535,true);
cshortstringtype:=cstringdef.createshort(255,true);
@@ -413,6 +416,9 @@ implementation
addtype('WordBool',bool16type);
addtype('LongBool',bool32type);
addtype('QWordBool',bool64type);
+{$ifdef llvm}
+ addtype('LLVMBool1',llvmbool1type);
+{$endif llvm}
addtype('Byte',u8inttype);
addtype('ShortInt',s8inttype);
addtype('Word',u16inttype);
@@ -459,6 +465,9 @@ implementation
addtype('$wordbool',bool16type);
addtype('$longbool',bool32type);
addtype('$qwordbool',bool64type);
+{$ifdef llvm}
+ addtype('$llvmbool1',llvmbool1type);
+{$endif llvm}
addtype('$char_pointer',charpointertype);
addtype('$widechar_pointer',widecharpointertype);
addtype('$parentfp_void_pointer',parentfpvoidpointertype);
@@ -621,6 +630,9 @@ implementation
loadtype('longint_farpointer',longintfarpointertype);
{$endif i8086}
{$endif x86}
+{$ifdef llvm}
+ loadtype('llvmbool1',llvmbool1type);
+{$endif llvm}
loadtype('file',cfiletype);
if not(target_info.system in systems_managed_vm) then
begin
diff --git a/compiler/ptconst.pas b/compiler/ptconst.pas
index 7bfbe73d68..cf83de56c1 100644
--- a/compiler/ptconst.pas
+++ b/compiler/ptconst.pas
@@ -135,13 +135,16 @@ implementation
current_asmdata.asmlists[al_const].concatlist(datalist);
{ the (empty) lists themselves are freed by tcbuilder }
- { add indirect symbol }
- { ToDo: do we also need this for the else part? }
- new_section(list,sec_rodata,lower(sym.mangledname),const_align(sym.vardef.alignment));
- symind:=current_asmdata.DefineAsmSymbol(sym.mangledname,AB_INDIRECT,AT_DATA);
- list.concat(Tai_symbol.Create_Global(symind,0));
- list.concat(Tai_const.Createname(sym.mangledname,AT_DATA,0));
- list.concat(tai_symbol_end.Create(symind));
+ if (tf_supports_packages in target_info.flags) then
+ begin
+ { add indirect symbol }
+ { ToDo: do we also need this for the else part? }
+ new_section(list,sec_rodata,lower(sym.mangledname),const_align(sym.vardef.alignment));
+ symind:=current_asmdata.DefineAsmSymbol(sym.mangledname,AB_INDIRECT,AT_DATA);
+ list.concat(Tai_symbol.Create_Global(symind,0));
+ list.concat(Tai_const.Createname(sym.mangledname,AT_DATA,0));
+ list.concat(tai_symbol_end.Create(symind));
+ end;
end
else
begin
diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 0209efd453..f23db71695 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -177,6 +177,7 @@ interface
procedure recordtoken;
procedure startrecordtokens(buf:tdynamicarray);
procedure stoprecordtokens;
+ function is_recording_tokens:boolean;
procedure replaytoken;
procedure startreplaytokens(buf:tdynamicarray);
{ bit length asizeint is target depend }
@@ -2800,6 +2801,11 @@ type
recordtokenbuf:=nil;
end;
+ function tscannerfile.is_recording_tokens: boolean;
+ begin
+ result:=assigned(recordtokenbuf);
+ end;
+
procedure tscannerfile.writetoken(t : ttoken);
var
diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index a83b5da9a9..ab713a131a 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -1029,6 +1029,9 @@ interface
bool16type,
bool32type,
bool64type, { implement me }
+{$ifdef llvm}
+ llvmbool1type, { LLVM i1 type }
+{$endif llvm}
u8inttype, { 8-Bit unsigned integer }
s8inttype, { 8-Bit signed integer }
u16inttype, { 16-Bit unsigned integer }
@@ -5750,7 +5753,7 @@ implementation
assigned(returndef) and
not(is_void(returndef)) then
s:=s+':'+returndef.GetTypeName;
- if owner.symtabletype=localsymtable then
+ if assigned(owner) and (owner.symtabletype=localsymtable) then
s:=s+' is nested'
else if po_is_block in procoptions then
s:=s+' is block';
diff --git a/compiler/systems.inc b/compiler/systems.inc
index fbe654f1f6..75ccd91bbc 100644
--- a/compiler/systems.inc
+++ b/compiler/systems.inc
@@ -222,6 +222,7 @@
,as_llvm
,as_clang
,as_solaris_as
+ ,as_m68k_vasm
);
tlink = (ld_none,
diff --git a/compiler/systems.pas b/compiler/systems.pas
index 72c811c2b5..7f7e59a402 100644
--- a/compiler/systems.pas
+++ b/compiler/systems.pas
@@ -137,6 +137,7 @@ interface
tf_pic_default,
{ the os does some kind of stack checking and it can be converted into a rte 202 }
tf_no_generic_stackcheck,
+ tf_emit_stklen, // Means that the compiler should emit a _stklen variable with the stack size, even if tf_no_generic_stackcheck is specified
tf_has_winlike_resources,
tf_safecall_clearstack, // With this flag set, after safecall calls the caller cleans up the stack
tf_safecall_exceptions, // Exceptions in safecall calls are not raised, but passed to the caller as an ordinal (hresult) in the function result.
diff --git a/compiler/systems/i_amiga.pas b/compiler/systems/i_amiga.pas
index 9615e1840a..6d108e88a4 100644
--- a/compiler/systems/i_amiga.pas
+++ b/compiler/systems/i_amiga.pas
@@ -34,7 +34,7 @@ unit i_amiga;
system : system_m68k_Amiga;
name : 'Commodore Amiga';
shortname : 'amiga';
- flags : [tf_files_case_aware,tf_has_winlike_resources];
+ flags : [tf_files_case_aware,tf_requires_proper_alignment,tf_has_winlike_resources];
cpu : cpu_m68k;
unit_env : 'AMIGAUNITS';
extradefines : 'HASAMIGA;AMIGA68K';
@@ -97,7 +97,7 @@ unit i_amiga;
system : system_powerpc_Amiga;
name : 'AmigaOS for PowerPC';
shortname : 'amiga';
- flags : [tf_files_case_aware,tf_has_winlike_resources];
+ flags : [tf_files_case_aware,tf_requires_proper_alignment,tf_has_winlike_resources];
cpu : cpu_powerpc;
unit_env : 'AMIGAUNITS';
extradefines : 'PPC603;HASAMIGA;AMIGAOS4';
diff --git a/compiler/systems/i_morph.pas b/compiler/systems/i_morph.pas
index 8c1a6dadda..c5b8553593 100644
--- a/compiler/systems/i_morph.pas
+++ b/compiler/systems/i_morph.pas
@@ -34,7 +34,7 @@ unit i_morph;
system : system_powerpc_MorphOS;
name : 'MorphOS';
shortname : 'MorphOS';
- flags : [tf_files_case_aware,tf_smartlink_library,tf_has_winlike_resources];
+ flags : [tf_files_case_aware,tf_requires_proper_alignment,tf_smartlink_library,tf_has_winlike_resources];
cpu : cpu_powerpc;
unit_env : 'MORPHOSUNITS';
extradefines : 'HASAMIGA';
diff --git a/compiler/systems/i_msdos.pas b/compiler/systems/i_msdos.pas
index 13c86e1fa8..70e7ee145a 100644
--- a/compiler/systems/i_msdos.pas
+++ b/compiler/systems/i_msdos.pas
@@ -42,7 +42,8 @@ unit i_msdos;
name : 'MS-DOS 16-bit real mode';
shortname : 'MSDOS';
flags : [tf_use_8_3,tf_smartlink_library,
- tf_no_objectfiles_when_smartlinking,tf_cld];
+ tf_no_objectfiles_when_smartlinking,tf_cld,
+ tf_no_generic_stackcheck,tf_emit_stklen];
cpu : cpu_i8086;
unit_env : 'MSDOSUNITS';
extradefines : '';
diff --git a/compiler/systems/i_win16.pas b/compiler/systems/i_win16.pas
index 7f6bccf48b..e5c6e50ffe 100644
--- a/compiler/systems/i_win16.pas
+++ b/compiler/systems/i_win16.pas
@@ -43,6 +43,7 @@ unit i_win16;
shortname : 'Win16';
flags : [tf_use_8_3,tf_smartlink_library,
tf_no_objectfiles_when_smartlinking,tf_cld,
+ tf_no_generic_stackcheck,tf_emit_stklen,
tf_x86_far_procs_push_odd_bp];
cpu : cpu_i8086;
unit_env : 'WIN16UNITS';
diff --git a/compiler/x86/cgx86.pas b/compiler/x86/cgx86.pas
index b7f0457c49..40c436e09c 100644
--- a/compiler/x86/cgx86.pas
+++ b/compiler/x86/cgx86.pas
@@ -3067,7 +3067,14 @@ unit cgx86;
if current_procinfo.framepointer=NR_STACK_POINTER_REG then
current_asmdata.asmcfi.cfa_def_cfa_offset(list,localsize+sizeof(pint));
current_procinfo.final_localsize:=localsize;
- end;
+ end
+{$ifdef i8086}
+ else
+ { on i8086 we always call g_stackpointer_alloc, even with a zero size,
+ because it will generate code for stack checking, if stack checking is on }
+ g_stackpointer_alloc(list,0)
+{$endif i8086}
+ ;
{$ifdef i8086}
{ win16 exported proc prologue follow-up (see the huge comment above for details) }
diff --git a/compiler/x86/nx86inl.pas b/compiler/x86/nx86inl.pas
index 7f7c17a9ac..25b1055ecb 100644
--- a/compiler/x86/nx86inl.pas
+++ b/compiler/x86/nx86inl.pas
@@ -330,7 +330,7 @@ implementation
begin
secondpass(left);
if left.location.loc<>LOC_MMREGISTER then
- hlcg.location_force_mmregscalar(current_asmdata.CurrAsmList,left.location,left.resultdef,false);
+ hlcg.location_force_mmregscalar(current_asmdata.CurrAsmList,left.location,left.resultdef,UseAVX);
if UseAVX then
begin
location_reset(location,LOC_MMREGISTER,def_cgsize(resultdef));
@@ -377,24 +377,24 @@ implementation
if use_vectorfpu(left.resultdef) then
begin
secondpass(left);
- hlcg.location_force_mmregscalar(current_asmdata.CurrAsmList,left.location,left.resultdef,false);
+ hlcg.location_force_mmregscalar(current_asmdata.CurrAsmList,left.location,left.resultdef,true);
location_reset(location,LOC_REGISTER,OS_S64);
location.register:=cg.getintregister(current_asmdata.CurrAsmList,OS_S64);
if UseAVX then
case left.location.size of
OS_F32:
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_VCVTSS2SI,S_Q,left.location.register,location.register));
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_VCVTSS2SI,S_NO,left.location.register,location.register));
OS_F64:
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_VCVTSD2SI,S_Q,left.location.register,location.register));
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_VCVTSD2SI,S_NO,left.location.register,location.register));
else
internalerror(2007031402);
end
else
case left.location.size of
OS_F32:
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVTSS2SI,S_Q,left.location.register,location.register));
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVTSS2SI,S_NO,left.location.register,location.register));
OS_F64:
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVTSD2SI,S_Q,left.location.register,location.register));
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVTSD2SI,S_NO,left.location.register,location.register));
else
internalerror(2007031402);
end;
@@ -421,24 +421,24 @@ implementation
not((left.location.loc=LOC_FPUREGISTER) and (current_settings.fputype>=fpu_sse3)) then
begin
secondpass(left);
- hlcg.location_force_mmregscalar(current_asmdata.CurrAsmList,left.location,left.resultdef,false);
+ hlcg.location_force_mmregscalar(current_asmdata.CurrAsmList,left.location,left.resultdef,true);
location_reset(location,LOC_REGISTER,OS_S64);
location.register:=cg.getintregister(current_asmdata.CurrAsmList,OS_S64);
if UseAVX then
case left.location.size of
OS_F32:
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_VCVTTSS2SI,S_Q,left.location.register,location.register));
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_VCVTTSS2SI,S_NO,left.location.register,location.register));
OS_F64:
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_VCVTTSD2SI,S_Q,left.location.register,location.register));
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_VCVTTSD2SI,S_NO,left.location.register,location.register));
else
internalerror(2007031401);
end
else
case left.location.size of
OS_F32:
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVTTSS2SI,S_Q,left.location.register,location.register));
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVTTSS2SI,S_NO,left.location.register,location.register));
OS_F64:
- current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVTTSD2SI,S_Q,left.location.register,location.register));
+ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVTTSD2SI,S_NO,left.location.register,location.register));
else
internalerror(2007031401);
end;
diff --git a/compiler/x86/nx86set.pas b/compiler/x86/nx86set.pas
index e35a753439..dd98fb54fb 100644
--- a/compiler/x86/nx86set.pas
+++ b/compiler/x86/nx86set.pas
@@ -112,6 +112,8 @@ implementation
{ case expr greater than max_ => goto elselabel }
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,opcgsize,OC_A,aint(max_)-aint(min_),hregister,elselabel);
min_:=0;
+ { do not sign extend when we load the index register, as we applied an offset above }
+ opcgsize:=tcgsize2unsigned[opcgsize];
end;
current_asmdata.getglobaldatalabel(table);
{ make it a 32bit register }
diff --git a/compiler/x86_64/nx64set.pas b/compiler/x86_64/nx64set.pas
index 73f1ef5c6f..d24d5a29e7 100644
--- a/compiler/x86_64/nx64set.pas
+++ b/compiler/x86_64/nx64set.pas
@@ -112,7 +112,10 @@ implementation
{ case expr greater than max_ => goto elselabel }
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,opcgsize,OC_A,aint(max_)-aint(min_),hregister,elselabel);
min_:=0;
+ { do not sign extend when we load the index register, as we applied an offset above }
+ opcgsize:=tcgsize2unsigned[opcgsize];
end;
+
{ local label in order to avoid using GOT }
current_asmdata.getlabel(tablelabel,alt_data);
indexreg:=cg.makeregsize(current_asmdata.CurrAsmList,hregister,OS_ADDR);
diff --git a/packages/fcl-base/fpmake.pp b/packages/fcl-base/fpmake.pp
index 9a6ce8c072..e1a9b08b2d 100644
--- a/packages/fcl-base/fpmake.pp
+++ b/packages/fcl-base/fpmake.pp
@@ -124,6 +124,8 @@ begin
end;
T:=P.Targets.addUnit('advancedipc.pp');
T.ResourceStrings:=true;
+ T:=P.Targets.addUnit('advancedsingleinstance.pp');
+ T.ResourceStrings:=true;
// Additional sources
P.Sources.AddSrcFiles('src/win/fclel.*', P.Directory);
// Install windows resources
diff --git a/packages/fcl-base/src/advancedipc.pp b/packages/fcl-base/src/advancedipc.pp
index ca900c1d26..127108e478 100644
--- a/packages/fcl-base/src/advancedipc.pp
+++ b/packages/fcl-base/src/advancedipc.pp
@@ -168,43 +168,6 @@ type
EICPException = class(Exception);
- TSingleInstanceReceivedCustomMessage = procedure(Sender: TBaseSingleInstance; MsgID: Integer; MsgType: Integer; MsgData: TStream) of object;
-
- TAdvancedSingleInstance = class(TBaseSingleInstance)
- private
- FGlobal: Boolean;
- FID: string;
- FServer: TIPCServer;
- FClient: TIPCClient;
- FOnServerReceivedCustomRequest: TSingleInstanceReceivedCustomMessage;
- function GetIsClient: Boolean; override;
- function GetIsServer: Boolean; override;
- function GetStartResult: TSingleInstanceStart; override;
- procedure SetGlobal(const aGlobal: Boolean);
- procedure SetID(const aID: string);
- protected
- procedure DoServerReceivedCustomRequest(const aMsgID: Integer; const aMsgType: Integer; const aStream: TStream);
- public
- constructor Create(aOwner: TComponent); override;
- public
- function Start: TSingleInstanceStart; override;
- procedure Stop; override;
-
- procedure ServerCheckMessages; override;
- procedure ClientPostParams; override;
- public
- function ClientPostCustomRequest(const aMsgType: Integer; const aStream: TStream): Integer;
- function ClientSendCustomRequest(const aMsgType: Integer; const aStream: TStream): Boolean; overload;
- function ClientSendCustomRequest(const aMsgType: Integer; const aStream: TStream; out outRequestID: Integer): Boolean; overload;
- procedure ServerPostCustomResponse(const aRequestID: Integer; const aMsgType: Integer; const aStream: TStream);
- function ClientPeekCustomResponse(const aStream: TStream; out outMsgType: Integer): Boolean;
- public
- property ID: string read FID write SetID;
- property Global: Boolean read FGlobal write SetGlobal;
-
- property OnServerReceivedCustomRequest: TSingleInstanceReceivedCustomMessage read FOnServerReceivedCustomRequest write FOnServerReceivedCustomRequest;
- end;
-
resourcestring
SErrInvalidServerID = 'Invalid server ID "%s". Please use only alphanumerical characters and underlines.';
SErrSetGlobalActive = 'You cannot change the global property when the server is active.';
@@ -809,284 +772,8 @@ begin
FActive := False;
end;
-Resourcestring
- SErrSetSingleInstanceIDStarted = 'You cannot change the single instance ID when it''s been started.';
- SErrSetSingleInstanceGlobalStarted = 'You cannot change the single instance global property when it''s been started.';
- SErrStartSingleInstanceStarted = 'You cannot start single instance when it''s been already started.';
- SErrSingleInstanceStartResultNotAvailable = 'Single instance hasn''t been started yet.';
- SErrSingleInstanceNotClient = 'Current instance is not a client.';
- SErrSingleInstanceNotServer = 'Current instance is not a server.';
-
-Const
- MSGTYPE_CHECK = -1;
- MSGTYPE_CHECKRESPONSE = -2;
- MSGTYPE_PARAMS = -3;
- MSGTYPE_WAITFORINSTANCES = -4;
-
-{ TAdvancedSingleInstance }
-
-constructor TAdvancedSingleInstance.Create(aOwner: TComponent);
-var
- xID: RawByteString;
- I: Integer;
-begin
- inherited Create(aOwner);
-
- xID := 'SI_'+ExtractFileName(ParamStr(0));
- for I := 1 to Length(xID) do
- case xID[I] of
- 'a'..'z', 'A'..'Z', '0'..'9', '_': begin end;
- else
- xID[I] := '_';
- end;
- ID := xID;
-end;
-
-function TAdvancedSingleInstance.ClientPeekCustomResponse(
- const aStream: TStream; out outMsgType: Integer): Boolean;
-begin
- if not Assigned(FClient) then
- raise ESingleInstance.Create(SErrSingleInstanceNotClient);
-
- Result := FClient.PeekResponse(aStream, outMsgType, TimeOutMessages);
-end;
-
-function TAdvancedSingleInstance.ClientPostCustomRequest(
- const aMsgType: Integer; const aStream: TStream): Integer;
-begin
- if not Assigned(FClient) then
- raise ESingleInstance.Create(SErrSingleInstanceNotClient);
-
- Result := FClient.PostRequest(aMsgType, aStream);
-end;
-
-procedure TAdvancedSingleInstance.ClientPostParams;
-var
- xSL: TStringList;
- xStringStream: TStringStream;
- I: Integer;
-begin
- if not Assigned(FClient) then
- raise ESingleInstance.Create(SErrSingleInstanceNotClient);
-
- xSL := TStringList.Create;
- try
- for I := 0 to ParamCount do
- xSL.Add(ParamStr(I));
-
- xStringStream := TStringStream.Create(xSL.DelimitedText);
- try
- xStringStream.Position := 0;
- FClient.PostRequest(MSGTYPE_PARAMS, xStringStream);
- finally
- xStringStream.Free;
- end;
- finally
- xSL.Free;
- end;
-end;
-
-function TAdvancedSingleInstance.ClientSendCustomRequest(
- const aMsgType: Integer; const aStream: TStream): Boolean;
-begin
- if not Assigned(FClient) then
- raise ESingleInstance.Create(SErrSingleInstanceNotClient);
-
- Result := FClient.SendRequest(aMsgType, aStream, TimeOutMessages);
-end;
-
-function TAdvancedSingleInstance.ClientSendCustomRequest(
- const aMsgType: Integer; const aStream: TStream; out
- outRequestID: Integer): Boolean;
-begin
- if not Assigned(FClient) then
- raise ESingleInstance.Create(SErrSingleInstanceNotClient);
-
- Result := FClient.SendRequest(aMsgType, aStream, TimeOutMessages, outRequestID);
-end;
-
-procedure TAdvancedSingleInstance.DoServerReceivedCustomRequest(
- const aMsgID: Integer; const aMsgType: Integer; const aStream: TStream);
-begin
- if Assigned(FOnServerReceivedCustomRequest) then
- FOnServerReceivedCustomRequest(Self, aMsgID, aMsgType, aStream);
-end;
-
-function TAdvancedSingleInstance.GetIsClient: Boolean;
-begin
- Result := Assigned(FClient);
-end;
-
-function TAdvancedSingleInstance.GetIsServer: Boolean;
-begin
- Result := Assigned(FServer);
-end;
-
-function TAdvancedSingleInstance.GetStartResult: TSingleInstanceStart;
-begin
- if not(Assigned(FServer) or Assigned(FClient)) then
- raise ESingleInstance.Create(SErrSingleInstanceStartResultNotAvailable);
-
- Result := inherited GetStartResult;
-end;
-
-procedure TAdvancedSingleInstance.ServerCheckMessages;
-var
- xMsgID: Integer;
- xMsgType: Integer;
- xStream: TStream;
- xStringStream: TStringStream;
-begin
- if not Assigned(FServer) then
- raise ESingleInstance.Create(SErrSingleInstanceNotServer);
-
- if not FServer.PeekRequest(xMsgID, xMsgType) then
- Exit;
-
- case xMsgType of
- MSGTYPE_CHECK:
- begin
- FServer.DeleteRequest(xMsgID);
- FServer.PostResponse(xMsgID, MSGTYPE_CHECKRESPONSE, nil);
- end;
- MSGTYPE_PARAMS:
- begin
- xStringStream := TStringStream.Create('');
- try
- FServer.ReadRequest(xMsgID, xStringStream);
- DoServerReceivedParams(xStringStream.DataString);
- finally
- xStringStream.Free;
- end;
- end;
- MSGTYPE_WAITFORINSTANCES:
- FServer.DeleteRequest(xMsgID);
- else
- xStream := TMemoryStream.Create;
- try
- FServer.ReadRequest(xMsgID, xStream);
- DoServerReceivedCustomRequest(xMsgID, xMsgType, xStream);
- finally
- xStream.Free;
- end;
- end;
-end;
-
-procedure TAdvancedSingleInstance.ServerPostCustomResponse(
- const aRequestID: Integer; const aMsgType: Integer;
- const aStream: TStream);
-begin
- if not Assigned(FServer) then
- raise ESingleInstance.Create(SErrSingleInstanceNotServer);
-
- FServer.PostResponse(aRequestID, aMsgType, aStream);
-end;
-
-procedure TAdvancedSingleInstance.SetGlobal(const aGlobal: Boolean);
-begin
- if FGlobal = aGlobal then Exit;
- if Assigned(FServer) or Assigned(FClient) then
- raise ESingleInstance.Create(SErrSetSingleInstanceGlobalStarted);
- FGlobal := aGlobal;
-end;
-
-procedure TAdvancedSingleInstance.SetID(const aID: string);
-begin
- if FID = aID then Exit;
- if Assigned(FServer) or Assigned(FClient) then
- raise ESingleInstance.Create(SErrSetSingleInstanceIDStarted);
- FID := aID;
-end;
-
-function TAdvancedSingleInstance.Start: TSingleInstanceStart;
- {$IFNDEF MSWINDOWS}
- procedure UnixWorkaround(var bServerStarted: Boolean);
- var
- xWaitRequestID, xLastCount, xNewCount: Integer;
- xClient: TIPCClient;
- begin
- //file locking workaround for UNIX systems -> the server can be started twice if 2 processes are started in parallel
- //wait some time to see other clients
- FServer.StopServer(False);
- xClient := TIPCClient.Create(Self);
- try
- xClient.ServerID := FID;
- xClient.Global := FGlobal;
- xWaitRequestID := xClient.PostRequest(MSGTYPE_WAITFORINSTANCES, nil);
- xLastCount := -1;
- xNewCount := FServer.GetPendingRequestCount;
- while xLastCount <> xNewCount do
- begin
- xLastCount := xNewCount;
- Sleep(TimeOutWaitForInstances);
- xNewCount := FServer.GetPendingRequestCount;
- end;
- finally
- FreeAndNil(xClient);
- end;
-
- //find highest client that will be the server
- if FServer.FindHighestPendingRequestId = xWaitRequestID then
- begin
- bServerStarted := FServer.StartServer(False);
- end else
- begin
- //something went wrong, there are not-deleted waiting requests
- //use random sleep as workaround and try to restart the server
- Randomize;
- Sleep(Random(($3F+PtrInt(GetProcessID)) and $3F));//limit to $3F (63)
- bServerStarted := FServer.StartServer(False) and (FServer.GetPendingRequestCount > 0);
- end;
- end;
- {$ENDIF}
-var
- xStream: TStream;
- xMsgType: Integer;
- xServerStarted: Boolean;
-begin
- if Assigned(FServer) or Assigned(FClient) then
- raise ESingleInstance.Create(SErrStartSingleInstanceStarted);
-
- FServer := TIPCServer.Create(Self);
- FServer.ServerID := FID;
- FServer.Global := FGlobal;
- xServerStarted := FServer.StartServer(False);
- if xServerStarted then
- begin//this is single instance -> be server
- Result := siServer;
- {$IFNDEF MSWINDOWS}
- UnixWorkaround(xServerStarted);
- {$ENDIF}
- end;
- if not xServerStarted then
- begin//instance found -> be client
- FreeAndNil(FServer);
- FClient := TIPCClient.Create(Self);
- FClient.ServerID := FID;
- FClient.Global := FGlobal;
- FClient.PostRequest(MSGTYPE_CHECK, nil);
- xStream := TMemoryStream.Create;
- try
- if FClient.PeekResponse(xStream, xMsgType, TimeOutMessages) then
- Result := siClient
- else
- Result := siNotResponding;
- finally
- xStream.Free;
- end;
- end;
- SetStartResult(Result);
-end;
-
-procedure TAdvancedSingleInstance.Stop;
-begin
- FreeAndNil(FServer);
- FreeAndNil(FClient);
-end;
-
initialization
InitCriticalSection(CreateUniqueRequestCritSec);
- DefaultSingleInstanceClass:=TAdvancedSingleInstance;
finalization
DoneCriticalsection(CreateUniqueRequestCritSec);
diff --git a/packages/fcl-base/src/advancedsingleinstance.pas b/packages/fcl-base/src/advancedsingleinstance.pas
new file mode 100644
index 0000000000..222a9a3efd
--- /dev/null
+++ b/packages/fcl-base/src/advancedsingleinstance.pas
@@ -0,0 +1,350 @@
+{
+ This file is part of the Free Component Library (FCL)
+ Copyright (c) 2015 by Ondrej Pokorny
+
+ Unit implementing Single Instance functionality.
+
+ The order of message processing is not deterministic (if there are more
+ pending messages, the server won't process them in the order they have
+ been sent to the server.
+ SendRequest and PostRequest+PeekResponse sequences from 1 client are
+ blocking and processed in correct order.
+
+ See the file COPYING.FPC, included in this distribution,
+ for details about the copyright.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+unit AdvancedSingleInstance;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils, AdvancedIPC, singleinstance;
+
+type
+
+ TSingleInstanceReceivedCustomMessage = procedure(Sender: TBaseSingleInstance; MsgID: Integer; MsgType: Integer; MsgData: TStream) of object;
+
+ TAdvancedSingleInstance = class(TBaseSingleInstance)
+ private
+ FGlobal: Boolean;
+ FID: string;
+ FServer: TIPCServer;
+ FClient: TIPCClient;
+ FOnServerReceivedCustomRequest: TSingleInstanceReceivedCustomMessage;
+ procedure SetGlobal(const aGlobal: Boolean);
+ procedure SetID(const aID: string);
+ protected
+ procedure DoServerReceivedCustomRequest(const aMsgID: Integer; const aMsgType: Integer; const aStream: TStream);
+ function GetIsClient: Boolean; override;
+ function GetIsServer: Boolean; override;
+ function GetStartResult: TSingleInstanceStart; override;
+ public
+ constructor Create(aOwner: TComponent); override;
+ public
+ function Start: TSingleInstanceStart; override;
+ procedure Stop; override;
+ procedure ServerCheckMessages; override;
+ procedure ClientPostParams; override;
+ public
+ function ClientPostCustomRequest(const aMsgType: Integer; const aStream: TStream): Integer;
+ function ClientSendCustomRequest(const aMsgType: Integer; const aStream: TStream): Boolean; overload;
+ function ClientSendCustomRequest(const aMsgType: Integer; const aStream: TStream; out outRequestID: Integer): Boolean; overload;
+ procedure ServerPostCustomResponse(const aRequestID: Integer; const aMsgType: Integer; const aStream: TStream);
+ function ClientPeekCustomResponse(const aStream: TStream; out outMsgType: Integer): Boolean;
+ public
+ property ID: string read FID write SetID;
+ property Global: Boolean read FGlobal write SetGlobal;
+
+ property OnServerReceivedCustomRequest: TSingleInstanceReceivedCustomMessage read FOnServerReceivedCustomRequest write FOnServerReceivedCustomRequest;
+ end;
+
+implementation
+
+Resourcestring
+ SErrSetSingleInstanceIDStarted = 'You cannot change the single instance ID when it''s been started.';
+ SErrSetSingleInstanceGlobalStarted = 'You cannot change the single instance global property when it''s been started.';
+ SErrStartSingleInstanceStarted = 'You cannot start single instance when it''s been already started.';
+ SErrSingleInstanceStartResultNotAvailable = 'Single instance hasn''t been started yet.';
+ SErrSingleInstanceNotClient = 'Current instance is not a client.';
+ SErrSingleInstanceNotServer = 'Current instance is not a server.';
+
+Const
+ MSGTYPE_CHECK = -1;
+ MSGTYPE_CHECKRESPONSE = -2;
+ MSGTYPE_PARAMS = -3;
+ MSGTYPE_WAITFORINSTANCES = -4;
+
+{ TAdvancedSingleInstance }
+
+constructor TAdvancedSingleInstance.Create(aOwner: TComponent);
+var
+ xID: RawByteString;
+ I: Integer;
+begin
+ inherited Create(aOwner);
+
+ xID := 'SI_'+ExtractFileName(ParamStr(0));
+ for I := 1 to Length(xID) do
+ case xID[I] of
+ 'a'..'z', 'A'..'Z', '0'..'9', '_': begin end;
+ else
+ xID[I] := '_';
+ end;
+ ID := xID;
+end;
+
+function TAdvancedSingleInstance.ClientPeekCustomResponse(
+ const aStream: TStream; out outMsgType: Integer): Boolean;
+begin
+ if not Assigned(FClient) then
+ raise ESingleInstance.Create(SErrSingleInstanceNotClient);
+
+ Result := FClient.PeekResponse(aStream, outMsgType, TimeOutMessages);
+end;
+
+function TAdvancedSingleInstance.ClientPostCustomRequest(
+ const aMsgType: Integer; const aStream: TStream): Integer;
+begin
+ if not Assigned(FClient) then
+ raise ESingleInstance.Create(SErrSingleInstanceNotClient);
+
+ Result := FClient.PostRequest(aMsgType, aStream);
+end;
+
+procedure TAdvancedSingleInstance.ClientPostParams;
+var
+ xSL: TStringList;
+ xStringStream: TStringStream;
+ I: Integer;
+begin
+ if not Assigned(FClient) then
+ raise ESingleInstance.Create(SErrSingleInstanceNotClient);
+
+ xSL := TStringList.Create;
+ try
+ for I := 0 to ParamCount do
+ xSL.Add(ParamStr(I));
+
+ xStringStream := TStringStream.Create(xSL.DelimitedText);
+ try
+ xStringStream.Position := 0;
+ FClient.PostRequest(MSGTYPE_PARAMS, xStringStream);
+ finally
+ xStringStream.Free;
+ end;
+ finally
+ xSL.Free;
+ end;
+end;
+
+function TAdvancedSingleInstance.ClientSendCustomRequest(
+ const aMsgType: Integer; const aStream: TStream): Boolean;
+begin
+ if not Assigned(FClient) then
+ raise ESingleInstance.Create(SErrSingleInstanceNotClient);
+
+ Result := FClient.SendRequest(aMsgType, aStream, TimeOutMessages);
+end;
+
+function TAdvancedSingleInstance.ClientSendCustomRequest(
+ const aMsgType: Integer; const aStream: TStream; out
+ outRequestID: Integer): Boolean;
+begin
+ if not Assigned(FClient) then
+ raise ESingleInstance.Create(SErrSingleInstanceNotClient);
+
+ Result := FClient.SendRequest(aMsgType, aStream, TimeOutMessages, outRequestID);
+end;
+
+procedure TAdvancedSingleInstance.DoServerReceivedCustomRequest(
+ const aMsgID: Integer; const aMsgType: Integer; const aStream: TStream);
+begin
+ if Assigned(FOnServerReceivedCustomRequest) then
+ FOnServerReceivedCustomRequest(Self, aMsgID, aMsgType, aStream);
+end;
+
+function TAdvancedSingleInstance.GetIsClient: Boolean;
+begin
+ Result := Assigned(FClient);
+end;
+
+function TAdvancedSingleInstance.GetIsServer: Boolean;
+begin
+ Result := Assigned(FServer);
+end;
+
+function TAdvancedSingleInstance.GetStartResult: TSingleInstanceStart;
+begin
+ if not(Assigned(FServer) or Assigned(FClient)) then
+ raise ESingleInstance.Create(SErrSingleInstanceStartResultNotAvailable);
+
+ Result := inherited GetStartResult;
+end;
+
+procedure TAdvancedSingleInstance.ServerCheckMessages;
+var
+ xMsgID: Integer;
+ xMsgType: Integer;
+ xStream: TStream;
+ xStringStream: TStringStream;
+begin
+ if not Assigned(FServer) then
+ raise ESingleInstance.Create(SErrSingleInstanceNotServer);
+
+ if not FServer.PeekRequest(xMsgID, xMsgType) then
+ Exit;
+
+ case xMsgType of
+ MSGTYPE_CHECK:
+ begin
+ FServer.DeleteRequest(xMsgID);
+ FServer.PostResponse(xMsgID, MSGTYPE_CHECKRESPONSE, nil);
+ end;
+ MSGTYPE_PARAMS:
+ begin
+ xStringStream := TStringStream.Create('');
+ try
+ FServer.ReadRequest(xMsgID, xStringStream);
+ DoServerReceivedParams(xStringStream.DataString);
+ finally
+ xStringStream.Free;
+ end;
+ end;
+ MSGTYPE_WAITFORINSTANCES:
+ FServer.DeleteRequest(xMsgID);
+ else
+ xStream := TMemoryStream.Create;
+ try
+ FServer.ReadRequest(xMsgID, xStream);
+ DoServerReceivedCustomRequest(xMsgID, xMsgType, xStream);
+ finally
+ xStream.Free;
+ end;
+ end;
+end;
+
+procedure TAdvancedSingleInstance.ServerPostCustomResponse(
+ const aRequestID: Integer; const aMsgType: Integer;
+ const aStream: TStream);
+begin
+ if not Assigned(FServer) then
+ raise ESingleInstance.Create(SErrSingleInstanceNotServer);
+
+ FServer.PostResponse(aRequestID, aMsgType, aStream);
+end;
+
+procedure TAdvancedSingleInstance.SetGlobal(const aGlobal: Boolean);
+begin
+ if FGlobal = aGlobal then Exit;
+ if Assigned(FServer) or Assigned(FClient) then
+ raise ESingleInstance.Create(SErrSetSingleInstanceGlobalStarted);
+ FGlobal := aGlobal;
+end;
+
+procedure TAdvancedSingleInstance.SetID(const aID: string);
+begin
+ if FID = aID then Exit;
+ if Assigned(FServer) or Assigned(FClient) then
+ raise ESingleInstance.Create(SErrSetSingleInstanceIDStarted);
+ FID := aID;
+end;
+
+function TAdvancedSingleInstance.Start: TSingleInstanceStart;
+ {$IFNDEF MSWINDOWS}
+ procedure UnixWorkaround(var bServerStarted: Boolean);
+ var
+ xWaitRequestID, xLastCount, xNewCount: Integer;
+ xClient: TIPCClient;
+ begin
+ //file locking workaround for UNIX systems -> the server can be started twice if 2 processes are started in parallel
+ //wait some time to see other clients
+ FServer.StopServer(False);
+ xClient := TIPCClient.Create(Self);
+ try
+ xClient.ServerID := FID;
+ xClient.Global := FGlobal;
+ xWaitRequestID := xClient.PostRequest(MSGTYPE_WAITFORINSTANCES, nil);
+ xLastCount := -1;
+ xNewCount := FServer.GetPendingRequestCount;
+ while xLastCount <> xNewCount do
+ begin
+ xLastCount := xNewCount;
+ Sleep(TimeOutWaitForInstances);
+ xNewCount := FServer.GetPendingRequestCount;
+ end;
+ finally
+ FreeAndNil(xClient);
+ end;
+
+ //find highest client that will be the server
+ if FServer.FindHighestPendingRequestId = xWaitRequestID then
+ begin
+ bServerStarted := FServer.StartServer(False);
+ end else
+ begin
+ //something went wrong, there are not-deleted waiting requests
+ //use random sleep as workaround and try to restart the server
+ Randomize;
+ Sleep(Random(($3F+PtrInt(GetProcessID)) and $3F));//limit to $3F (63)
+ bServerStarted := FServer.StartServer(False) and (FServer.GetPendingRequestCount > 0);
+ end;
+ end;
+ {$ENDIF}
+var
+ xStream: TStream;
+ xMsgType: Integer;
+ xServerStarted: Boolean;
+begin
+ if Assigned(FServer) or Assigned(FClient) then
+ raise ESingleInstance.Create(SErrStartSingleInstanceStarted);
+
+ FServer := TIPCServer.Create(Self);
+ FServer.ServerID := FID;
+ FServer.Global := FGlobal;
+ xServerStarted := FServer.StartServer(False);
+ if xServerStarted then
+ begin//this is single instance -> be server
+ Result := siServer;
+ {$IFNDEF MSWINDOWS}
+ UnixWorkaround(xServerStarted);
+ {$ENDIF}
+ end;
+ if not xServerStarted then
+ begin//instance found -> be client
+ FreeAndNil(FServer);
+ FClient := TIPCClient.Create(Self);
+ FClient.ServerID := FID;
+ FClient.Global := FGlobal;
+ FClient.PostRequest(MSGTYPE_CHECK, nil);
+ xStream := TMemoryStream.Create;
+ try
+ if FClient.PeekResponse(xStream, xMsgType, TimeOutMessages) then
+ Result := siClient
+ else
+ Result := siNotResponding;
+ finally
+ xStream.Free;
+ end;
+ end;
+ SetStartResult(Result);
+end;
+
+procedure TAdvancedSingleInstance.Stop;
+begin
+ FreeAndNil(FServer);
+ FreeAndNil(FClient);
+end;
+
+initialization
+ DefaultSingleInstanceClass:=TAdvancedSingleInstance;
+
+end.
+
diff --git a/packages/fcl-base/src/custapp.pp b/packages/fcl-base/src/custapp.pp
index d186bac37c..2bf2ece974 100644
--- a/packages/fcl-base/src/custapp.pp
+++ b/packages/fcl-base/src/custapp.pp
@@ -285,7 +285,7 @@ begin
except
On E : Exception do
Log(etError,Format('Error formatting message "%s" with %d arguments: %s',[Fmt,Length(Args),E.Message]));
- end
+ end
end;
constructor TCustomApplication.Create(AOwner: TComponent);
@@ -597,7 +597,7 @@ begin
If (Length(O)=0) or (O[1]<>FOptionChar) then
begin
If Assigned(NonOpts) then
- NonOpts.Add(O)
+ NonOpts.Add(O);
end
else
begin
@@ -623,7 +623,7 @@ begin
If FindLongopt(O) then
begin
If HaveArg then
- AddToResult(Format(SErrNoOptionAllowed,[I,O]))
+ AddToResult(Format(SErrNoOptionAllowed,[I,O]));
end
else
begin // Required argument
diff --git a/packages/fcl-db/src/base/dsparams.inc b/packages/fcl-db/src/base/dsparams.inc
index dbe32f5d85..b09830ee38 100644
--- a/packages/fcl-db/src/base/dsparams.inc
+++ b/packages/fcl-db/src/base/dsparams.inc
@@ -257,14 +257,17 @@ begin
if p^='*' then // /* */ comment
begin
Result := True;
- repeat
- Inc(p);
+ Inc(p);
+ while p^ <> #0 do
+ begin
if p^='*' then // possible end of comment
begin
Inc(p);
if p^='/' then Break; // end of comment
- end;
- until p^=#0;
+ end
+ else
+ Inc(p);
+ end;
if p^='/' then Inc(p); // skip final /
end;
end;
diff --git a/packages/fcl-db/tests/sqldbtoolsunit.pas b/packages/fcl-db/tests/sqldbtoolsunit.pas
index 02956a39cb..f7a0fd9f13 100644
--- a/packages/fcl-db/tests/sqldbtoolsunit.pas
+++ b/packages/fcl-db/tests/sqldbtoolsunit.pas
@@ -357,6 +357,11 @@ begin
testStringValues[i] := TrimRight(testStringValues[i]);
end;
+ if SQLServerType in [ssMSSQL, ssSQLite, ssSybase] then
+ // Some DB's do not support sql compliant boolean data type.
+ for i := 0 to testValuesCount-1 do
+ testValues[ftBoolean, i] := BoolToStr(testBooleanValues[i], '1', '0');
+
if SQLServerType in [ssMySQL] then
begin
// Some DB's do not support milliseconds in datetime and time fields.
@@ -498,46 +503,35 @@ begin
begin
sql := sql + ',F' + Fieldtypenames[FType];
if testValues[FType,CountID] <> '' then
- case FType of
- ftBlob, ftBytes, ftGraphic, ftVarBytes:
- if SQLServerType in [ssOracle] then
- // Oracle does not accept string literals in blob insert statements
- // convert 'DEADBEEF' hex literal to binary:
- sql1 := sql1 + ', HEXTORAW(' + QuotedStr(String2Hex(testValues[FType,CountID])) + ') '
- else // other dbs have no problems with the original string values
- sql1 := sql1 + ',' + QuotedStr(testValues[FType,CountID]);
- ftCurrency:
- sql1 := sql1 + ',' + testValues[FType,CountID];
- ftDate:
- // Oracle requires date conversion; otherwise
- // ORA-01861: literal does not match format string
- if SQLServerType in [ssOracle] then
- // ANSI/ISO date literal:
- sql1 := sql1 + ', DATE ' + QuotedStr(testValues[FType,CountID])
- else
- sql1 := sql1 + ',' + QuotedStr(testValues[FType,CountID]);
- ftDateTime:
- // similar to ftDate handling
- if SQLServerType in [ssOracle] then
- begin
- // Could be a real date+time or only date. Does not consider only time.
- if pos(' ',testValues[FType,CountID])>0 then
- sql1 := sql1 + ', TIMESTAMP ' + QuotedStr(testValues[FType,CountID])
- else
- sql1 := sql1 + ', DATE ' + QuotedStr(testValues[FType,CountID]);
- end
- else
- sql1 := sql1 + ',' + QuotedStr(testValues[FType,CountID]);
- ftTime:
- // similar to ftDate handling
- if SQLServerType in [ssOracle] then
- // More or less arbitrary default time; there is no time-only data type in Oracle.
- sql1 := sql1 + ', TIMESTAMP ' + QuotedStr('0001-01-01 '+testValues[FType,CountID])
- else
- sql1 := sql1 + ',' + QuotedStr(testValues[FType,CountID]);
- else
- sql1 := sql1 + ',' + QuotedStr(testValues[FType,CountID])
+ if FType in [ftBoolean, ftCurrency] then
+ sql1 := sql1 + ',' + testValues[FType,CountID]
+ else if (FType in [ftBlob, ftBytes, ftGraphic, ftVarBytes]) and
+ (SQLServerType = ssOracle) then
+ // Oracle does not accept string literals in blob insert statements
+ // convert 'DEADBEEF' hex literal to binary:
+ sql1 := sql1 + ', HEXTORAW(' + QuotedStr(String2Hex(testValues[FType,CountID])) + ') '
+ else if (FType = ftDate) and
+ (SQLServerType = ssOracle) then
+ // Oracle requires date conversion; otherwise
+ // ORA-01861: literal does not match format string
+ // ANSI/ISO date literal:
+ sql1 := sql1 + ', DATE ' + QuotedStr(testValues[FType,CountID])
+ else if (FType = ftDateTime) and
+ (SQLServerType = ssOracle) then begin
+ // similar to ftDate handling
+ // Could be a real date+time or only date. Does not consider only time.
+ if pos(' ',testValues[FType,CountID])>0 then
+ sql1 := sql1 + ', TIMESTAMP ' + QuotedStr(testValues[FType,CountID])
+ else
+ sql1 := sql1 + ', DATE ' + QuotedStr(testValues[FType,CountID]);
end
+ else if (FType = ftTime) and
+ (SQLServerType = ssOracle) then
+ // similar to ftDate handling
+ // More or less arbitrary default time; there is no time-only data type in Oracle.
+ sql1 := sql1 + ', TIMESTAMP ' + QuotedStr('0001-01-01 '+testValues[FType,CountID])
+ else
+ sql1 := sql1 + ',' + QuotedStr(testValues[FType,CountID])
else
sql1 := sql1 + ',NULL';
end;
diff --git a/packages/fcl-db/tests/testbasics.pas b/packages/fcl-db/tests/testbasics.pas
index 6fa029435e..69ee0ea3be 100644
--- a/packages/fcl-db/tests/testbasics.pas
+++ b/packages/fcl-db/tests/testbasics.pas
@@ -145,6 +145,8 @@ begin
// Bracketed comment
AssertEquals( 'select * from table where id=/*comment :c*/$1-$2',
Params.ParseSQL('select * from table where id=/*comment :c*/:a-:b', True, True, True, psPostgreSQL));
+ AssertEquals( 'select * from table where id=/*comment :c**/$1-$2',
+ Params.ParseSQL('select * from table where id=/*comment :c**/:a-:b', True, True, True, psPostgreSQL));
// Consecutive comments, with quote in second comment
AssertEquals( '--c1'#10'--c'''#10'select '':a'' from table where id=$1',
Params.ParseSQL('--c1'#10'--c'''#10'select '':a'' from table where id=:id', True, True, True, psPostgreSQL));
diff --git a/packages/fcl-db/tests/toolsunit.pas b/packages/fcl-db/tests/toolsunit.pas
index b3ab9625e3..1580f6fed2 100644
--- a/packages/fcl-db/tests/toolsunit.pas
+++ b/packages/fcl-db/tests/toolsunit.pas
@@ -526,8 +526,6 @@ end;
procedure InitialiseDBConnector;
-const B: array[boolean] of char=('0','1'); // should be exported from some main db unit, as SQL true/false?
-
var DBConnectorClass : TPersistentClass;
i : integer;
FormatSettings : TFormatSettings;
@@ -548,7 +546,7 @@ begin
testValues[ftFMTBcd] := testFmtBCDValues;
for i := 0 to testValuesCount-1 do
begin
- testValues[ftBoolean,i] := B[testBooleanValues[i]];
+ testValues[ftBoolean,i] := BoolToStr(testBooleanValues[i], True);
testValues[ftFloat,i] := FloatToStr(testFloatValues[i],FormatSettings);
testValues[ftSmallint,i] := IntToStr(testSmallIntValues[i]);
testValues[ftInteger,i] := IntToStr(testIntValues[i]);
diff --git a/packages/fcl-image/src/ftfont.pp b/packages/fcl-image/src/ftfont.pp
index 183f5c690b..27cb9d2850 100644
--- a/packages/fcl-image/src/ftfont.pp
+++ b/packages/fcl-image/src/ftfont.pp
@@ -59,7 +59,7 @@ type
end;
var
- FontMgr : TFontManager;
+ FontMgr : TFontManager = nil;
procedure InitEngine;
procedure DoneEngine;
@@ -78,8 +78,7 @@ end;
procedure DoneEngine;
begin
- if assigned (FontMgr) then
- FontMgr.Free;
+ FreeAndNil(FontMgr);
end;
constructor TFreeTypeFont.Create;
diff --git a/packages/fcl-net/src/ssockets.pp b/packages/fcl-net/src/ssockets.pp
index f64e39cb37..8908a43062 100644
--- a/packages/fcl-net/src/ssockets.pp
+++ b/packages/fcl-net/src/ssockets.pp
@@ -18,7 +18,8 @@ unit ssockets;
interface
uses
- SysUtils, Classes, ctypes, sockets;
+// This must be here, to prevent it from overriding the sockets definitions... :/
+ SysUtils, Classes, ctypes, sockets;
type
@@ -111,6 +112,7 @@ type
TSocketServer = Class(TObject)
Private
+ FIdleTimeOut: Cardinal;
FOnAcceptError: TOnAcceptError;
FOnIdle : TNotifyEvent;
FNonBlocking : Boolean;
@@ -139,6 +141,7 @@ type
Function SockToStream (ASocket : Longint) : TSocketStream;Virtual;Abstract;
Procedure Close; Virtual;
Procedure Abort;
+ Function RunIdleLoop : Boolean;
function GetConnection: TSocketStream; virtual; abstract;
Function HandleAcceptError(E : ESocketError) : TAcceptErrorAction;
Property Handler : TSocketHandler Read FHandler;
@@ -166,6 +169,9 @@ type
Property ReuseAddress : Boolean Read GetReuseAddress Write SetReuseAddress;
// -1 means no linger. Any value >=0 sets linger on.
Property Linger: Integer Read GetLinger Write Setlinger;
+ // Accept Timeout in milliseconds.
+ // If Different from 0, then there will be an idle loop before accepting new connections, Calling OnIdle if no new connection appeared in the specified timeout.
+ Property AcceptIdleTimeOut : Cardinal Read FIdleTimeOut Write FIdleTimeout;
end;
{ TInetServer }
@@ -239,7 +245,10 @@ Implementation
uses
{$ifdef unix}
- BaseUnix, Unix,
+ BaseUnix,Unix,
+{$endif}
+{$ifdef windows}
+ winsock2, windows,
{$endif}
resolve;
@@ -296,7 +305,8 @@ end;
function TSocketHandler.Shutdown(BiDirectional: Boolean): boolean;
begin
- CheckSocket
+ CheckSocket ;
+ Result:=False;
end;
function TSocketHandler.Recv(Const Buffer; Count: Integer): Integer;
@@ -445,20 +455,20 @@ begin
Result:=FHandler.Send(Buffer,Count);
end;
-function TSocketStream.GetLocalAddress: TSockAddr;
+function TSocketStream.GetLocalAddress: sockets.TSockAddr;
var
len: LongInt;
begin
- len := SizeOf(TSockAddr);
+ len := SizeOf(sockets.TSockAddr);
if fpGetSockName(Handle, @Result, @len) <> 0 then
FillChar(Result, SizeOf(Result), 0);
end;
-function TSocketStream.GetRemoteAddress: TSockAddr;
+function TSocketStream.GetRemoteAddress: sockets.TSockAddr;
var
len: LongInt;
begin
- len := SizeOf(TSockAddr);
+ len := SizeOf(sockets.TSockAddr);
if fpGetPeerName(Handle, @Result, @len) <> 0 then
FillChar(Result, SizeOf(Result), 0);
end;
@@ -499,7 +509,7 @@ end;
TSocketServer
---------------------------------------------------------------------}
-Constructor TSocketServer.Create(ASocket : Longint; AHandler : TSocketHandler);
+constructor TSocketServer.Create(ASocket: Longint; AHandler: TSocketHandler);
begin
FSocket:=ASocket;
@@ -510,7 +520,7 @@ begin
FHandler:=AHandler;
end;
-Destructor TSocketServer.Destroy;
+destructor TSocketServer.Destroy;
begin
Close;
@@ -518,7 +528,7 @@ begin
Inherited;
end;
-Procedure TSocketServer.Close;
+procedure TSocketServer.Close;
begin
If FSocket<>-1 Then
@@ -542,7 +552,40 @@ begin
{$endif}
end;
-Procedure TSocketServer.Listen;
+function TSocketServer.RunIdleLoop: Boolean;
+
+// Run Accept idle loop. Return True if there is a new connection waiting
+{$if defined(unix) or defined(windows)}
+var
+ FDS: TFDSet;
+ TimeV: TTimeVal;
+{$endif}
+begin
+ Repeat
+ Result:=False;
+{$if defined(unix) or defined(windows)}
+ TimeV.tv_usec := (AcceptIdleTimeout mod 1000) * 1000;
+ TimeV.tv_sec := AcceptIdleTimeout div 1000;
+{$endif}
+{$ifdef unix}
+ FDS := Default(TFDSet);
+ fpFD_Zero(FDS);
+ fpFD_Set(FSocket, FDS);
+ Result := fpSelect(FSocket + 1, @FDS, @FDS, @FDS, @TimeV) > 0;
+{$else}
+{$ifdef windows}
+ FDS := Default(TFDSet);
+ FD_Zero(FDS);
+ FD_Set(FSocket, FDS);
+ Result := Select(FSocket + 1, @FDS, @FDS, @FDS, @TimeV) > 0;
+{$endif}
+{$endif}
+ If not Result then
+ DoOnIdle;
+ Until Result or (Not FAccepting);
+end;
+
+procedure TSocketServer.Listen;
begin
If Not FBound then
@@ -551,7 +594,7 @@ begin
Raise ESocketError.Create(seListenFailed,[FSocket,SocketError]);
end;
-function TSocketServer.GetSockopt(ALevel, AOptName: cint; Var optval;
+function TSocketServer.GetSockopt(ALevel, AOptName: cint; var optval;
var optlen: tsocklen): Boolean;
begin
Result:=fpGetSockOpt(FSocket,ALevel,AOptName,@optval,@optlen)<>-1;
@@ -589,7 +632,7 @@ begin
FOnAcceptError(Self,FSocket,E,Result);
end;
-Procedure TSocketServer.StartAccepting;
+procedure TSocketServer.StartAccepting;
Var
NoConnections : Integer;
@@ -602,7 +645,10 @@ begin
Repeat
Repeat
Try
- Stream:=GetConnection;
+ If (AcceptIdleTimeOut=0) or RunIdleLoop then
+ Stream:=GetConnection
+ else
+ Stream:=Nil;
if Assigned(Stream) then
begin
Inc (NoConnections);
@@ -633,7 +679,7 @@ begin
Abort;
end;
-Procedure TSocketServer.DoOnIdle;
+procedure TSocketServer.DoOnIdle;
begin
If Assigned(FOnIdle) then
@@ -689,14 +735,14 @@ begin
Result:=l.l_linger;
end;
-Procedure TSocketServer.DoConnect(ASocket : TSocketStream);
+procedure TSocketServer.DoConnect(ASocket: TSocketStream);
begin
If Assigned(FOnConnect) Then
FOnConnect(Self,ASocket);
end;
-Function TSocketServer.DoConnectQuery(ASocket : Longint) : Boolean;
+function TSocketServer.DoConnectQuery(ASocket: longint): Boolean;
begin
Result:=True;
@@ -704,7 +750,7 @@ begin
FOnConnectQuery(Self,ASocket,Result);
end;
-Procedure TSocketServer.SetNonBlocking;
+procedure TSocketServer.SetNonBlocking;
begin
{$ifdef Unix}
@@ -812,8 +858,11 @@ begin
{$endif}
if (Result<0) or Not (FAccepting and FHandler.Accept) then
begin
- CloseSocket(Result);
- Raise ESocketError.Create(seAcceptFailed,[Socket,SocketError])
+ If (Result>=0) then
+ CloseSocket(Result);
+ // Do not raise an error if we've stopped accepting.
+ if FAccepting then
+ Raise ESocketError.Create(seAcceptFailed,[Socket,SocketError])
end;
end;
diff --git a/packages/fcl-pdf/examples/testfppdf.lpr b/packages/fcl-pdf/examples/testfppdf.lpr
index 3e39ce269d..3e97d2221c 100644
--- a/packages/fcl-pdf/examples/testfppdf.lpr
+++ b/packages/fcl-pdf/examples/testfppdf.lpr
@@ -21,7 +21,8 @@ uses
fpimage,
fpreadjpeg,
fppdf,
- fpparsettf;
+ fpparsettf,
+ typinfo;
type
@@ -42,6 +43,7 @@ type
procedure SimpleImage(D: TPDFDocument; APage: integer);
procedure SimpleShapes(D: TPDFDocument; APage: integer);
procedure SampleMatrixTransform(D: TPDFDocument; APage: integer);
+ procedure SampleLandscape(D: TPDFDocument; APage: integer);
protected
procedure DoRun; override;
public
@@ -81,7 +83,7 @@ begin
Result.StartDocument;
S := Result.Sections.AddSection; // we always need at least one section
- lPageCount := 6;
+ lPageCount := 7;
if Fpg <> -1 then
lPageCount := 1;
for i := 1 to lPageCount do
@@ -426,6 +428,42 @@ begin
OutputSample;
end;
+procedure TPDFTestApp.SampleLandscape(D: TPDFDocument; APage: integer);
+var
+ P: TPDFPage;
+ FtTitle: integer;
+
+ function PaperTypeToString(AEnum: TPDFPaperType): string;
+ begin
+ result := GetEnumName(TypeInfo(TPDFPaperType), Ord(AEnum));
+ end;
+
+ function PixelsToMM(AValue: integer): integer;
+ begin
+ Result := Round((AValue / 72) * 25.4);
+ end;
+
+begin
+ P:=D.Pages[APage];
+ P.Orientation := ppoLandscape;
+
+ // create the fonts to be used (use one of the 14 Adobe PDF standard fonts)
+ FtTitle := D.AddFont('Helvetica', clBlack);
+
+ { Page title }
+ P.SetFont(FtTitle,23);
+ P.SetColor(clBlack);
+ P.WriteText(25, 20, 'Landscape Page');
+
+ P.SetFont(FtTitle, 12);
+ P.WriteText(100, 80, 'Page PaperType:');
+ P.WriteText(145, 80, PaperTypeToString(P.PaperType));
+
+ P.WriteText(100, 90, 'Page Size:');
+ P.WriteText(145, 90, Format('%d x %d (pixels)', [P.Paper.W, P.Paper.H]));
+ P.WriteText(145, 95, Format('%d x %d (mm)', [PixelsToMM(P.Paper.W), PixelsToMM(P.Paper.H)]));
+end;
+
{ TPDFTestApp }
procedure TPDFTestApp.DoRun;
@@ -474,9 +512,9 @@ begin
if HasOption('p', '') then
begin
Fpg := StrToInt(GetOptionValue('p', ''));
- if (Fpg < 1) or (Fpg > 5) then
+ if (Fpg < 1) or (Fpg > 7) then
begin
- Writeln('Error in -p parameter. Valid range is 1-5.');
+ Writeln('Error in -p parameter. Valid range is 1-7.');
Writeln('');
Terminate;
Exit;
@@ -500,6 +538,7 @@ begin
SimpleLinesRaw(FDoc, 3);
SimpleImage(FDoc, 4);
SampleMatrixTransform(FDoc, 5);
+ SampleLandscape(FDoc, 6);
end
else
begin
@@ -510,6 +549,7 @@ begin
4: SimpleLinesRaw(FDoc, 0);
5: SimpleImage(FDoc, 0);
6: SampleMatrixTransform(FDoc, 0);
+ 7: SampleLandscape(FDoc, 0);
end;
end;
@@ -526,8 +566,8 @@ procedure TPDFTestApp.WriteHelp;
begin
writeln('Usage:');
writeln(' -h Show this help.');
- writeln(' -p <n> Generate only one page. Valid range is 1-5.' + LineEnding +
- ' If this option is not specified, then all 5 pages are' + LineEnding +
+ writeln(' -p <n> Generate only one page. Valid range is 1-7.' + LineEnding +
+ ' If this option is not specified, then all 7 pages are' + LineEnding +
' generated.');
writeln(' -f <0|1> Toggle embedded font compression. A value of 0' + LineEnding +
' disables compression. A value of 1 enables compression.');
diff --git a/packages/fcl-pdf/fpmake.pp b/packages/fcl-pdf/fpmake.pp
index 6f3f7fb6d8..b47549b6c9 100644
--- a/packages/fcl-pdf/fpmake.pp
+++ b/packages/fcl-pdf/fpmake.pp
@@ -23,7 +23,7 @@ begin
P.Email := '';
P.Description := 'PDF generating and TTF file info library';
P.NeedLibC:= false;
- P.OSes:=P.OSes-[embedded,win16,msdos];
+ P.OSes:=P.OSes-[embedded,win16,msdos,nativent];
P.Dependencies.Add('rtl-objpas');
P.Dependencies.Add('fcl-base');
P.Dependencies.Add('fcl-image');
diff --git a/packages/fcl-pdf/src/fppdf.pp b/packages/fcl-pdf/src/fppdf.pp
index 72e38bc27e..efede1ccc2 100644
--- a/packages/fcl-pdf/src/fppdf.pp
+++ b/packages/fcl-pdf/src/fppdf.pp
@@ -14,7 +14,7 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
-unit fppdf;
+unit fpPDF;
{$mode objfpc}{$H+}
@@ -1560,6 +1560,7 @@ begin
if FOrientation=AValue then Exit;
FOrientation:=AValue;
CalcPaperSize;
+ AdjustMatrix;
end;
procedure TPDFPage.CalcPaperSize;
@@ -1590,6 +1591,7 @@ begin
if FPaperType=AValue then Exit;
FPaperType:=AValue;
CalcPaperSize;
+ AdjustMatrix;
end;
procedure TPDFPage.AddTextToLookupLists(AText: UTF8String);
@@ -2113,6 +2115,11 @@ function TPDFImageItem.Equals(AImage: TFPCustomImage): boolean;
var
x, y: Integer;
begin
+ if AImage = nil then
+ begin
+ Result := False;
+ exit;
+ end;
Result := True;
for x := 0 to Image.Width-1 do
for y := 0 to Image.Height-1 do
diff --git a/packages/fcl-pdf/src/fpttf.pp b/packages/fcl-pdf/src/fpttf.pp
index 419e3e338d..ba2bee7677 100644
--- a/packages/fcl-pdf/src/fpttf.pp
+++ b/packages/fcl-pdf/src/fpttf.pp
@@ -72,6 +72,8 @@ type
FDPI: integer;
procedure SearchForFonts(const AFontPath: String);
procedure SetDPI(AValue: integer);
+ { Set any / or \ path delimiters to the OS specific delimiter }
+ procedure FixPathDelimiters;
protected
function GetCount: integer; virtual;
function GetItem(AIndex: Integer): TFPFontCacheItem; virtual;
@@ -322,6 +324,14 @@ begin
FDPI := AValue;
end;
+procedure TFPFontCacheList.FixPathDelimiters;
+var
+ i: integer;
+begin
+ for i := 0 to FSearchPath.Count-1 do
+ FSearchPath[i] := SetDirSeparators(FSearchPath[i]);
+end;
+
function TFPFontCacheList.GetCount: integer;
begin
Result := FList.Count;
@@ -360,6 +370,7 @@ begin
if FSearchPath.Count < 1 then
raise ETTF.Create(rsNoSearchPathDefined);
+ FixPathDelimiters;
for i := 0 to FSearchPath.Count-1 do
begin
lPath := FSearchPath[i];
diff --git a/packages/fcl-process/examples/checkipcserver.lpi b/packages/fcl-process/examples/checkipcserver.lpi
new file mode 100644
index 0000000000..0bd7335dfd
--- /dev/null
+++ b/packages/fcl-process/examples/checkipcserver.lpi
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+ <ProjectOptions>
+ <Version Value="9"/>
+ <General>
+ <Flags>
+ <MainUnitHasCreateFormStatements Value="False"/>
+ </Flags>
+ <SessionStorage Value="InProjectDir"/>
+ <MainUnit Value="0"/>
+ <Title Value="IPC Client"/>
+ <UseAppBundle Value="False"/>
+ <ResourceType Value="res"/>
+ </General>
+ <VersionInfo>
+ <StringTable ProductVersion=""/>
+ </VersionInfo>
+ <BuildModes Count="1">
+ <Item1 Name="Default" Default="True"/>
+ </BuildModes>
+ <PublishOptions>
+ <Version Value="2"/>
+ </PublishOptions>
+ <RunParams>
+ <local>
+ <FormatVersion Value="1"/>
+ </local>
+ </RunParams>
+ <Units Count="1">
+ <Unit0>
+ <Filename Value="checkipcserver.lpr"/>
+ <IsPartOfProject Value="True"/>
+ </Unit0>
+ </Units>
+ </ProjectOptions>
+ <CompilerOptions>
+ <Version Value="11"/>
+ <Target>
+ <Filename Value="checkipcserver"/>
+ </Target>
+ <SearchPaths>
+ <IncludeFiles Value="$(ProjOutDir)"/>
+ <OtherUnitFiles Value="../units/$(TargetCPU)-$(TargetOS)"/>
+ <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+ </SearchPaths>
+ </CompilerOptions>
+ <Debugging>
+ <Exceptions Count="3">
+ <Item1>
+ <Name Value="EAbort"/>
+ </Item1>
+ <Item2>
+ <Name Value="ECodetoolError"/>
+ </Item2>
+ <Item3>
+ <Name Value="EFOpenError"/>
+ </Item3>
+ </Exceptions>
+ </Debugging>
+</CONFIG>
diff --git a/packages/fcl-process/examples/checkipcserver.lpr b/packages/fcl-process/examples/checkipcserver.lpr
new file mode 100644
index 0000000000..b285a987e0
--- /dev/null
+++ b/packages/fcl-process/examples/checkipcserver.lpr
@@ -0,0 +1,55 @@
+program checkipcserver;
+
+{$mode objfpc}{$H+}
+
+uses
+ {$IFDEF UNIX}{$IFDEF UseCThreads}
+ cthreads,
+ {$ENDIF}{$ENDIF}
+ Classes, SysUtils, CustApp, simpleipc
+ { you can add units after this };
+
+type
+
+ { TSimpleIPCClientApp }
+
+ TSimpleIPCClientApp = class(TCustomApplication)
+ protected
+ procedure DoRun; override;
+ public
+ constructor Create(TheOwner: TComponent); override;
+ end;
+
+{ TSimpleIPCClientApp }
+
+procedure TSimpleIPCClientApp.DoRun;
+var
+ IPCClient: TSimpleIPCClient;
+begin
+ IPCClient := TSimpleIPCClient.Create(nil);
+ IPCClient.ServerID:= 'ipc_test_crash';
+
+ if IPCClient.ServerRunning then
+ WriteLn('Server is runnning')
+ else
+ WriteLn('Server is NOT runnning');
+
+ IPCClient.Destroy;
+ Terminate;
+end;
+
+constructor TSimpleIPCClientApp.Create(TheOwner: TComponent);
+begin
+ inherited Create(TheOwner);
+ StopOnException:=True;
+end;
+
+var
+ Application: TSimpleIPCClientApp;
+begin
+ Application:=TSimpleIPCClientApp.Create(nil);
+ Application.Title:='IPC Client';
+ Application.Run;
+ Application.Free;
+end.
+
diff --git a/packages/fcl-process/examples/ipcclient.pp b/packages/fcl-process/examples/ipcclient.pp
index 4e00a37c58..595878e813 100644
--- a/packages/fcl-process/examples/ipcclient.pp
+++ b/packages/fcl-process/examples/ipcclient.pp
@@ -2,16 +2,32 @@
{$h+}
program ipcclient;
-uses simpleipc;
+uses sysutils,simpleipc;
+
+Var
+ I,Count : Integer;
+ DoStop : Boolean;
begin
+ Count:=1;
With TSimpleIPCClient.Create(Nil) do
try
ServerID:='ipcserver';
If (ParamCount>0) then
- ServerInstance:=Paramstr(1);
+ begin
+ DoStop:=(ParamStr(1)='-s') or (paramstr(1)='--stop');
+ if DoStop then
+ ServerInstance:=Paramstr(2)
+ else
+ ServerInstance:=Paramstr(1);
+ if (Not DoStop) and (ParamCount>1) then
+ Count:=StrToIntDef(ParamStr(2),1);
+ end;
Active:=True;
- SendStringMessage('Testmessage from client');
+ if DoStop then
+ SendStringMessage('stop')
+ else for I:=1 to Count do
+ SendStringMessage(Format('Testmessage %d from client',[i]));
Active:=False;
finally
Free;
diff --git a/packages/fcl-process/examples/ipcserver.lpi b/packages/fcl-process/examples/ipcserver.lpi
index 1f218ec1a8..159da48a86 100644
--- a/packages/fcl-process/examples/ipcserver.lpi
+++ b/packages/fcl-process/examples/ipcserver.lpi
@@ -6,7 +6,6 @@
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
- <UseDefaultCompilerOptions Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
@@ -29,6 +28,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
+ <CommandLineParams Value="-t"/>
</local>
</RunParams>
<Units Count="1">
@@ -44,6 +44,8 @@
<Filename Value="ipcserver"/>
</Target>
<SearchPaths>
+ <IncludeFiles Value="$(ProjOutDir)"/>
+ <OtherUnitFiles Value="../units/$(TargetCPU)-$(TargetOS)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
</CompilerOptions>
diff --git a/packages/fcl-process/examples/ipcserver.pp b/packages/fcl-process/examples/ipcserver.pp
index eb4fa753b1..250e3ec83d 100644
--- a/packages/fcl-process/examples/ipcserver.pp
+++ b/packages/fcl-process/examples/ipcserver.pp
@@ -5,31 +5,79 @@ program ipcserver;
{$APPTYPE CONSOLE}
uses
+ {$ifdef unix}cthreads,{$endif}
SysUtils,
+ Classes,
simpleipc;
+Type
+ TApp = Class(TObject)
+ Srv : TSimpleIPCServer;
+ DoStop : Boolean;
+ Procedure MessageQueued(Sender : TObject);
+ procedure Run;
+ Procedure PrintMessage;
+ end;
+
+Procedure TApp.PrintMessage;
+
+Var
+ S : String;
+
+begin
+ S:=Srv.StringMessage;
+ Writeln('Received message : ',S);
+ DoStop:=DoStop or (S='stop');
+end;
+
+Procedure TApp.MessageQueued(Sender : TObject);
+
+begin
+ Srv.ReadMessage;
+ PrintMessage;
+end;
+
+
+Procedure TApp.Run;
+
Var
- Srv : TSimpleIPCServer;
S : String;
+ Threaded : Boolean;
begin
Srv:=TSimpleIPCServer.Create(Nil);
Try
+ S:= ParamStr(1);
+ Threaded:=(S='-t') or (S='--threaded');
Srv.ServerID:='ipcserver';
Srv.Global:=True;
- Srv.StartServer;
- Writeln('Server started. Listening for messages');
+ if Threaded then
+ Srv.OnMessageQueued:=@MessageQueued;
+ Srv.StartServer(Threaded);
+
+ Writeln('Server started. Listening for messages. Send "stop" message to stop server.');
Repeat
- If Srv.PeekMessage(1,True) then
+ If Threaded then
begin
- S:=Srv.StringMessage;
- Writeln('Received message : ',S);
+ Sleep(10);
+ CheckSynchronize;
end
+ else if Srv.PeekMessage(10,True) then
+ PrintMessage
else
Sleep(10);
- Until CompareText(S,'stop')=0;
+ Until DoStop;
Finally
Srv.Free;
end;
+end;
+
+begin
+ With TApp.Create do
+ try
+ Run
+ finally
+ Free;
+ end;
end.
diff --git a/packages/fcl-process/examples/simpleipcserver.lpi b/packages/fcl-process/examples/simpleipcserver.lpi
new file mode 100644
index 0000000000..47c73aec2e
--- /dev/null
+++ b/packages/fcl-process/examples/simpleipcserver.lpi
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+ <ProjectOptions>
+ <Version Value="9"/>
+ <General>
+ <Flags>
+ <MainUnitHasCreateFormStatements Value="False"/>
+ </Flags>
+ <SessionStorage Value="InProjectDir"/>
+ <MainUnit Value="0"/>
+ <Title Value="IPC Server"/>
+ <UseAppBundle Value="False"/>
+ <ResourceType Value="res"/>
+ </General>
+ <VersionInfo>
+ <StringTable ProductVersion=""/>
+ </VersionInfo>
+ <BuildModes Count="1">
+ <Item1 Name="Default" Default="True"/>
+ </BuildModes>
+ <PublishOptions>
+ <Version Value="2"/>
+ </PublishOptions>
+ <RunParams>
+ <local>
+ <FormatVersion Value="1"/>
+ </local>
+ </RunParams>
+ <Units Count="1">
+ <Unit0>
+ <Filename Value="simpleipcserver.lpr"/>
+ <IsPartOfProject Value="True"/>
+ </Unit0>
+ </Units>
+ </ProjectOptions>
+ <CompilerOptions>
+ <Version Value="11"/>
+ <Target>
+ <Filename Value="simpleipcserver"/>
+ </Target>
+ <SearchPaths>
+ <IncludeFiles Value="$(ProjOutDir)"/>
+ <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+ </SearchPaths>
+ </CompilerOptions>
+ <Debugging>
+ <Exceptions Count="3">
+ <Item1>
+ <Name Value="EAbort"/>
+ </Item1>
+ <Item2>
+ <Name Value="ECodetoolError"/>
+ </Item2>
+ <Item3>
+ <Name Value="EFOpenError"/>
+ </Item3>
+ </Exceptions>
+ </Debugging>
+</CONFIG>
diff --git a/packages/fcl-process/examples/simpleipcserver.lpr b/packages/fcl-process/examples/simpleipcserver.lpr
new file mode 100644
index 0000000000..cd81f838cf
--- /dev/null
+++ b/packages/fcl-process/examples/simpleipcserver.lpr
@@ -0,0 +1,81 @@
+program simpleipcserver;
+
+{$mode objfpc}{$H+}
+
+uses
+ {$IFDEF UNIX}
+ BaseUnix,
+ {$ENDIF}
+ {$IFDEF windows}
+ Windows,
+ {$ENDIF}
+ Classes, SysUtils, CustApp, simpleipc, Crt;
+
+type
+
+ { TSimpleIPCServerApp }
+
+ TSimpleIPCServerApp = class(TCustomApplication)
+ protected
+ procedure DoRun; override;
+ public
+ constructor Create(TheOwner: TComponent); override;
+ end;
+
+{ TSimpleIPCServerApp }
+
+procedure TSimpleIPCServerApp.DoRun;
+var
+ IPCServer: TSimpleIPCServer;
+ Key: Char;
+ NullObj: TObject;
+begin
+ IPCServer := TSimpleIPCServer.Create(nil);
+ IPCServer.ServerID:='ipc_test_crash';
+ IPCServer.Global:=True;
+ IPCServer.StartServer;
+ NullObj := nil;
+
+ WriteLn('Server started');
+ WriteLn(' Press e to finish with an exception');
+ WriteLn(' Press t to terminate through OS api - ', {$IFDEF UNIX}'Kill'{$ELSE}'TerminateProcess'{$ENDIF});
+ WriteLn(' Press any other key to finish normally');
+ Key := ReadKey;
+
+ case Key of
+ 'e':
+ begin
+ NullObj.AfterConstruction;
+ end;
+ 't':
+ begin
+ {$ifdef unix}
+ FpKill(FpGetpid, 9);
+ {$endif}
+ {$ifdef windows}
+ TerminateProcess(GetCurrentProcess, 0);
+ {$endif}
+ end;
+ end;
+
+ IPCServer.Active:=False;
+ WriteLn('Server stopped');
+ IPCServer.Destroy;
+ Terminate;
+end;
+
+constructor TSimpleIPCServerApp.Create(TheOwner: TComponent);
+begin
+ inherited Create(TheOwner);
+ StopOnException:=True;
+end;
+
+var
+ Application: TSimpleIPCServerApp;
+begin
+ Application:=TSimpleIPCServerApp.Create(nil);
+ Application.Title:='IPC Server';
+ Application.Run;
+ Application.Free;
+end.
+
diff --git a/packages/fcl-process/src/os2/simpleipc.inc b/packages/fcl-process/src/os2/simpleipc.inc
index 92ca900012..adf3b7af25 100644
--- a/packages/fcl-process/src/os2/simpleipc.inc
+++ b/packages/fcl-process/src/os2/simpleipc.inc
@@ -164,19 +164,13 @@ end;
procedure TPipeServerComm.ReadMessage;
+
var
Hdr: TMsgHeader;
+
begin
- FStream.ReadBuffer (Hdr, SizeOf (Hdr));
- Owner.FMsgType := Hdr.MsgType;
- if Hdr.MsgLen > 0 then
- begin
- Owner.FMsgData.Size:=0;
- Owner.FMsgData.Seek (0, soFromBeginning);
- Owner.FMsgData.CopyFrom (FStream, Hdr.MsgLen);
- end
- else
- Owner.FMsgData.Size := 0;
+ FStream.ReadBuffer(Hdr,SizeOf(Hdr));
+ PushMessage(Hdr,FStream);
end;
function TPipeServerComm.GetInstanceID: string;
diff --git a/packages/fcl-process/src/simpleipc.pp b/packages/fcl-process/src/simpleipc.pp
index 5892762ad8..fd4bd8d4b8 100644
--- a/packages/fcl-process/src/simpleipc.pp
+++ b/packages/fcl-process/src/simpleipc.pp
@@ -20,11 +20,12 @@ unit simpleipc;
interface
uses
- Classes, SysUtils;
+ Contnrs, Classes, SysUtils;
Const
MsgVersion = 1;
-
+ DefaultThreadTimeOut = 50;
+
//Message types
mtUnknown = 0;
mtString = 1;
@@ -33,7 +34,6 @@ type
TIPCMessageOverflowAction = (ipcmoaNone, ipcmoaDiscardOld, ipcmoaDiscardNew, ipcmoaError);
var
- // Currently implemented only for Windows platform!
DefaultIPCMessageOverflowAction: TIPCMessageOverflowAction = ipcmoaNone;
DefaultIPCMessageQueueLimit: Integer = 0;
@@ -49,6 +49,36 @@ Type
TSimpleIPCServer = class;
TSimpleIPCClient = class;
+ TIPCServerMsg = class
+ strict private
+ FStream: TStream;
+ FMsgType: TMessageType;
+ public
+ constructor Create;
+ destructor Destroy; override;
+ property Stream: TStream read FStream;
+ property MsgType: TMessageType read FMsgType write FMsgType;
+ end;
+
+ TIPCServerMsgQueue = class
+ strict private
+ FList: TFPObjectList;
+ FMaxCount: Integer;
+ FMaxAction: TIPCMessageOverflowAction;
+ function GetCount: Integer;
+ procedure DeleteAndFree(Index: Integer);
+ function PrepareToPush: Boolean;
+ public
+ constructor Create;
+ destructor Destroy; override;
+ procedure Clear;
+ procedure Push(AItem: TIPCServerMsg);
+ function Pop: TIPCServerMsg;
+ property Count: Integer read GetCount;
+ property MaxCount: Integer read FMaxCount write FMaxCount;
+ property MaxAction: TIPCMessageOverflowAction read FMaxAction write FMaxAction;
+ end;
+
{ TIPCServerComm }
TIPCServerComm = Class(TObject)
@@ -57,14 +87,16 @@ Type
Protected
Function GetInstanceID : String; virtual; abstract;
Procedure DoError(const Msg : String; const Args : Array of const);
- Procedure SetMsgType(AMsgType: TMessageType);
- Function MsgData : TStream;
+ Procedure PushMessage(Const Hdr : TMsgHeader; AStream : TStream);
+ Procedure PushMessage(Msg : TIPCServerMsg);
Public
Constructor Create(AOwner : TSimpleIPCServer); virtual;
Property Owner : TSimpleIPCServer read FOwner;
Procedure StartServer; virtual; Abstract;
Procedure StopServer;virtual; Abstract;
+ // May push messages on the queue
Function PeekMessage(TimeOut : Integer) : Boolean;virtual; Abstract;
+ // Must put message on the queue.
Procedure ReadMessage ;virtual; Abstract;
Property InstanceID : String read GetInstanceID;
end;
@@ -93,24 +125,46 @@ Type
{ TSimpleIPCServer }
+ TMessageQueueEvent = Procedure(Sender : TObject; Msg : TIPCServerMsg) of object;
+
TSimpleIPCServer = Class(TSimpleIPC)
- private
+ protected
+ Private
+ FOnMessageError: TMessageQueueEvent;
+ FOnMessageQueued: TNotifyEvent;
+ FQueue : TIPCServerMsgQueue;
FGlobal: Boolean;
FOnMessage: TNotifyEvent;
FMsgType: TMessageType;
FMsgData : TStream;
+ FThreadTimeOut: Integer;
+ FThread : TThread;
+ FLock : TRTLCriticalSection;
+ FErrMsg : TIPCServerMsg;
+ procedure DoMessageQueued;
+ procedure DoMessageError;
function GetInstanceID: String;
+ function GetMaxAction: TIPCMessageOverflowAction;
+ function GetMaxQueue: Integer;
function GetStringMessage: String;
procedure SetGlobal(const AValue: Boolean);
+ procedure SetMaxAction(AValue: TIPCMessageOverflowAction);
+ procedure SetMaxQueue(AValue: Integer);
Protected
FIPCComm: TIPCServerComm;
+ procedure StartThread; virtual;
+ procedure StopThread; virtual;
Function CommClass : TIPCServerCommClass; virtual;
+ Procedure PushMessage(Msg : TIPCServerMsg); virtual;
+ function PopMessage: Boolean; virtual;
Procedure Activate; override;
Procedure Deactivate; override;
+ Property Queue : TIPCServerMsgQueue Read FQueue;
+ Property Thread : TThread Read FThread;
Public
Constructor Create(AOwner : TComponent); override;
Destructor Destroy; override;
- Procedure StartServer;
+ Procedure StartServer(Threaded : Boolean = False);
Procedure StopServer;
Function PeekMessage(TimeOut : Integer; DoReadMessage : Boolean): Boolean;
Procedure ReadMessage;
@@ -120,8 +174,18 @@ Type
Property MsgData : TStream Read FMsgData;
Property InstanceID : String Read GetInstanceID;
Published
+ Property ThreadTimeOut : Integer Read FThreadTimeOut Write FThreadTimeOut;
Property Global : Boolean Read FGlobal Write SetGlobal;
+ // Called during ReadMessage
Property OnMessage : TNotifyEvent Read FOnMessage Write FOnMessage;
+ // Called when a message is pushed on the queue.
+ Property OnMessageQueued : TNotifyEvent Read FOnMessageQueued Write FOnMessageQueued;
+ // Called when the queue overflows and MaxAction = ipcmoaError.
+ Property OnMessageError : TMessageQueueEvent Read FOnMessageError Write FOnMessageError;
+ // Maximum number of messages to keep in the queue
+ property MaxQueue: Integer read GetMaxQueue write SetMaxQueue;
+ // What to do when the queue overflows
+ property MaxAction: TIPCMessageOverflowAction read GetMaxAction write SetMaxAction;
end;
@@ -194,6 +258,103 @@ implementation
{$i simpleipc.inc}
+Resourcestring
+ SErrMessageQueueOverflow = 'Message queue overflow (limit %s)';
+
+{ ---------------------------------------------------------------------
+ TIPCServerMsg
+ ---------------------------------------------------------------------}
+
+
+constructor TIPCServerMsg.Create;
+begin
+ FMsgType := 0;
+ FStream := TMemoryStream.Create;
+end;
+
+destructor TIPCServerMsg.Destroy;
+begin
+ FStream.Free;
+end;
+
+{ ---------------------------------------------------------------------
+ TIPCServerMsgQueue
+ ---------------------------------------------------------------------}
+
+constructor TIPCServerMsgQueue.Create;
+begin
+ FMaxCount := DefaultIPCMessageQueueLimit;
+ FMaxAction := DefaultIPCMessageOverflowAction;
+ FList := TFPObjectList.Create(False); // FreeObjects = False!
+end;
+
+destructor TIPCServerMsgQueue.Destroy;
+begin
+ Clear;
+ FList.Free;
+end;
+
+procedure TIPCServerMsgQueue.Clear;
+begin
+ while FList.Count > 0 do
+ DeleteAndFree(FList.Count - 1);
+end;
+
+procedure TIPCServerMsgQueue.DeleteAndFree(Index: Integer);
+begin
+ FList[Index].Free; // Free objects manually!
+ FList.Delete(Index);
+end;
+
+function TIPCServerMsgQueue.GetCount: Integer;
+begin
+ Result := FList.Count;
+end;
+
+function TIPCServerMsgQueue.PrepareToPush: Boolean;
+begin
+ Result := True;
+ case FMaxAction of
+ ipcmoaDiscardOld:
+ begin
+ while (FList.Count >= FMaxCount) do
+ DeleteAndFree(FList.Count - 1);
+ end;
+ ipcmoaDiscardNew:
+ begin
+ Result := (FList.Count < FMaxCount);
+ end;
+ ipcmoaError:
+ begin
+ if (FList.Count >= FMaxCount) then
+ // Caller is expected to catch this exception, so not using Owner.DoError()
+ raise EIPCError.CreateFmt(SErrMessageQueueOverflow, [IntToStr(FMaxCount)]);
+ end;
+ end;
+end;
+
+procedure TIPCServerMsgQueue.Push(AItem: TIPCServerMsg);
+begin
+ if PrepareToPush then
+ FList.Insert(0, AItem);
+end;
+
+function TIPCServerMsgQueue.Pop: TIPCServerMsg;
+var
+ Index: Integer;
+begin
+ Index := FList.Count - 1;
+ if Index >= 0 then
+ begin
+ // Caller is responsible for freeing the object.
+ Result := TIPCServerMsg(FList[Index]);
+ FList.Delete(Index);
+ end
+ else
+ Result := nil;
+end;
+
+
{ ---------------------------------------------------------------------
TIPCServerComm
---------------------------------------------------------------------}
@@ -203,22 +364,33 @@ begin
FOwner:=AOWner;
end;
-Procedure TIPCServerComm.DoError(const Msg : String; const Args : Array of const);
+procedure TIPCServerComm.DoError(const Msg: String; const Args: array of const);
begin
FOwner.DoError(Msg,Args);
-end;
+end;
-Function TIPCServerComm.MsgData : TStream;
+procedure TIPCServerComm.PushMessage(const Hdr: TMsgHeader; AStream: TStream);
+
+Var
+ M : TIPCServerMsg;
begin
- Result:=FOwner.FMsgData;
+ M:=TIPCServerMsg.Create;
+ try
+ M.MsgType:=Hdr.MsgType;
+ if Hdr.MsgLen>0 then
+ M.Stream.CopyFrom(AStream,Hdr.MsgLen);
+ except
+ M.Free;
+ Raise;
+ end;
+ PushMessage(M);
end;
-Procedure TIPCServerComm.SetMsgType(AMsgType: TMessageType);
-
+procedure TIPCServerComm.PushMessage(Msg: TIPCServerMsg);
begin
- Fowner.FMsgType:=AMsgType;
+ FOwner.PushMessage(Msg);
end;
{ ---------------------------------------------------------------------
@@ -314,11 +486,14 @@ begin
FActive:=False;
FBusy:=False;
FMsgData:=TStringStream.Create('');
+ FQueue:=TIPCServerMsgQueue.Create;
+ FThreadTimeOut:=DefaultThreadTimeOut;
end;
destructor TSimpleIPCServer.Destroy;
begin
Active:=False;
+ FreeAndNil(FQueue);
FreeAndNil(FMsgData);
inherited Destroy;
end;
@@ -332,11 +507,31 @@ begin
end;
end;
+procedure TSimpleIPCServer.SetMaxAction(AValue: TIPCMessageOverflowAction);
+begin
+ FQueue.MaxAction:=AValue;
+end;
+
+procedure TSimpleIPCServer.SetMaxQueue(AValue: Integer);
+begin
+ FQueue.MaxCount:=AValue;
+end;
+
function TSimpleIPCServer.GetInstanceID: String;
begin
Result:=FIPCComm.InstanceID;
end;
+function TSimpleIPCServer.GetMaxAction: TIPCMessageOverflowAction;
+begin
+ Result:=FQueue.MaxAction;
+end;
+
+function TSimpleIPCServer.GetMaxQueue: Integer;
+begin
+ Result:=FQueue.MaxCount;
+end;
+
function TSimpleIPCServer.GetStringMessage: String;
begin
@@ -344,7 +539,7 @@ begin
end;
-procedure TSimpleIPCServer.StartServer;
+procedure TSimpleIPCServer.StartServer(Threaded : Boolean = False);
begin
if Not Assigned(FIPCComm) then
begin
@@ -354,47 +549,135 @@ begin
FIPCComm.StartServer;
end;
FActive:=True;
+ If Threaded then
+ StartThread;
+end;
+
+Type
+
+ { TServerThread }
+
+ TServerThread = Class(TThread)
+ private
+ FServer: TSimpleIPCServer;
+ FThreadTimeout: Integer;
+ Public
+ Constructor Create(AServer : TSimpleIPCServer; ATimeout : integer);
+ procedure Execute; override;
+ Property Server : TSimpleIPCServer Read FServer;
+ Property ThreadTimeout : Integer Read FThreadTimeout;
+ end;
+
+{ TServerThread }
+
+constructor TServerThread.Create(AServer: TSimpleIPCServer; ATimeout: integer);
+begin
+ FServer:=AServer;
+ FThreadTimeout:=ATimeOut;
+ Inherited Create(False);
+end;
+
+procedure TServerThread.Execute;
+begin
+ While Not Terminated do
+ FServer.PeekMessage(ThreadTimeout,False);
+end;
+
+procedure TSimpleIPCServer.StartThread;
+
+begin
+ InitCriticalSection(FLock);
+ FThread:=TServerThread.Create(Self,ThreadTimeOut);
+end;
+
+procedure TSimpleIPCServer.StopThread;
+
+begin
+ if Assigned(FThread) then
+ begin
+ FThread.Terminate;
+ FThread.WaitFor;
+ FreeAndNil(FThread);
+ DoneCriticalSection(FLock);
+ end;
end;
procedure TSimpleIPCServer.StopServer;
begin
+ StopThread;
If Assigned(FIPCComm) then
begin
FIPCComm.StopServer;
FreeAndNil(FIPCComm);
end;
+ FQueue.Clear;
FActive:=False;
end;
// TimeOut values:
-// > 0 -- number of milliseconds to wait
+// > 0 -- Number of milliseconds to wait
// = 0 -- return immediately
// = -1 -- wait infinitely
// < -1 -- wait infinitely (force to -1)
function TSimpleIPCServer.PeekMessage(TimeOut: Integer; DoReadMessage: Boolean): Boolean;
begin
CheckActive;
- if TimeOut < -1 then
- TimeOut := -1;
- FBusy:=True;
- Try
- Result:=FIPCComm.PeekMessage(Timeout);
- Finally
- FBusy:=False;
- end;
+ Result:=Queue.Count>0;
+ If Not Result then
+ begin
+ if TimeOut < -1 then
+ TimeOut := -1;
+ FBusy:=True;
+ Try
+ Result:=FIPCComm.PeekMessage(Timeout);
+ Finally
+ FBusy:=False;
+ end;
+ end;
If Result then
If DoReadMessage then
Readmessage;
end;
+function TSimpleIPCServer.PopMessage: Boolean;
+
+var
+ MsgItem: TIPCServerMsg;
+ DoLock : Boolean;
+
+begin
+ DoLock:=Assigned(FThread);
+ if DoLock then
+ EnterCriticalsection(Flock);
+ try
+ MsgItem:=FQueue.Pop;
+ finally
+ LeaveCriticalsection(FLock);
+ end;
+ Result:=Assigned(MsgItem);
+ if Result then
+ try
+ FMsgType := MsgItem.MsgType;
+ MsgItem.Stream.Position := 0;
+ FMsgData.Size := 0;
+ FMsgData.CopyFrom(MsgItem.Stream, MsgItem.Stream.Size);
+ finally
+ MsgItem.Free;
+ end;
+end;
+
procedure TSimpleIPCServer.ReadMessage;
+
begin
CheckActive;
FBusy:=True;
Try
- FIPCComm.ReadMessage;
- If Assigned(FOnMessage) then
- FOnMessage(Self);
+ if (FQueue.Count=0) then
+ // Readmessage pushes a message to the queue
+ FIPCComm.ReadMessage;
+ if PopMessage then
+ If Assigned(FOnMessage) then
+ FOnMessage(Self);
Finally
FBusy:=False;
end;
@@ -416,6 +699,55 @@ begin
end;
+procedure TSimpleIPCServer.DoMessageQueued;
+
+begin
+ if Assigned(FOnMessageQueued) then
+ FOnMessageQueued(Self);
+end;
+
+procedure TSimpleIPCServer.DoMessageError;
+begin
+ try
+ if Assigned(FOnMessageQueued) then
+ FOnMessageError(Self,FErrMsg);
+ finally
+ FreeAndNil(FErrMsg)
+ end;
+end;
+
+procedure TSimpleIPCServer.PushMessage(Msg: TIPCServerMsg);
+
+Var
+ DoLock : Boolean;
+
+begin
+ try
+ DoLock:=Assigned(FThread);
+ If DoLock then
+ EnterCriticalsection(FLock);
+ try
+ Queue.Push(Msg);
+ finally
+ If DoLock then
+ LeaveCriticalsection(FLock);
+ end;
+ if DoLock then
+ TThread.Synchronize(FThread,@DoMessageQueued)
+ else
+ DoMessageQueued;
+ except
+ On E : Exception do
+ FErrMsg:=Msg;
+ end;
+ if Assigned(FErrMsg) then
+ if DoLock then
+ TThread.Synchronize(FThread,@DoMessageError)
+ else
+ DoMessageQueued;
+
+end;
+
{ ---------------------------------------------------------------------
diff --git a/packages/fcl-process/src/unix/simpleipc.inc b/packages/fcl-process/src/unix/simpleipc.inc
index f64a2bccca..85b471be65 100644
--- a/packages/fcl-process/src/unix/simpleipc.inc
+++ b/packages/fcl-process/src/unix/simpleipc.inc
@@ -26,10 +26,6 @@ uses sysutils, classes, simpleipc, baseunix;
uses baseunix;
{$endif}
-{$DEFINE OSNEEDIPCINITDONE}
-
-
-
ResourceString
SErrFailedToCreatePipe = 'Failed to create named pipe: %s';
@@ -58,57 +54,6 @@ Type
implementation
{$endif}
-Var
- SocketFiles : TStringList;
-
-Procedure IPCInit;
-
-begin
-end;
-
-Procedure IPCDone;
-
-Var
- I : integer;
-
-begin
- if Assigned(SocketFiles) then
- try
- For I:=0 to SocketFiles.Count-1 do
- DeleteFile(SocketFiles[i]);
- finally
- FreeAndNil(SocketFiles);
- end;
-end;
-
-
-Procedure RegisterSocketFile(Const AFileName : String);
-
-begin
- If Not Assigned(SocketFiles) then
- begin
- SocketFiles:=TStringList.Create;
- SocketFiles.Sorted:=True;
- end;
- SocketFiles.Add(AFileName);
-end;
-
-Procedure UnRegisterSocketFile(Const AFileName : String);
-
-Var
- I : Integer;
-begin
- If Assigned(SocketFiles) then
- begin
- I:=SocketFiles.IndexOf(AFileName);
- If (I<>-1) then
- SocketFiles.Delete(I);
- If (SocketFiles.Count=0) then
- FreeAndNil(SocketFiles);
- end;
-end;
-
-
constructor TPipeClientComm.Create(AOWner: TSimpleIPCClient);
begin
inherited Create(AOWner);
@@ -140,7 +85,6 @@ procedure TPipeClientComm.SendMessage(MsgType : TMessagetype; AStream: TStream);
Var
Hdr : TMsgHeader;
- P,L,Count : Integer;
begin
Hdr.Version:=MsgVersion;
@@ -180,10 +124,15 @@ end;
---------------------------------------------------------------------}
Type
+
+ { TPipeServerComm }
+
TPipeServerComm = Class(TIPCServerComm)
Private
FFileName: String;
FStream: TFileStream;
+ Protected
+ Procedure DoReadMessage; virtual;
Public
Constructor Create(AOWner : TSimpleIPCServer); override;
Procedure StartServer; override;
@@ -195,6 +144,16 @@ Type
Property Stream : TFileStream Read FStream;
end;
+procedure TPipeServerComm.DoReadMessage;
+
+Var
+ Hdr : TMsgHeader;
+
+begin
+ FStream.ReadBuffer(Hdr,SizeOf(Hdr));
+ PushMessage(Hdr,FStream);
+end;
+
constructor TPipeServerComm.Create(AOWner: TSimpleIPCServer);
begin
inherited Create(AOWner);
@@ -218,12 +177,10 @@ begin
If (fpmkFifo(FFileName,438)<>0) then
DoError(SErrFailedToCreatePipe,[FFileName]);
FStream:=TFileStream.Create(FFileName,fmOpenReadWrite+fmShareDenyNone,Rights[Owner.Global]);
- RegisterSocketFile(FFileName);
end;
procedure TPipeServerComm.StopServer;
begin
- UnregisterSocketFile(FFileName);
FreeAndNil(FStream);
if Not DeleteFile(FFileName) then
DoError(SErrFailedtoRemovePipe,[FFileName]);
@@ -237,40 +194,33 @@ Var
begin
fpfd_zero(FDS);
fpfd_set(FStream.Handle,FDS);
- Result:=fpSelect(FStream.Handle+1,@FDS,Nil,Nil,TimeOut)>0;
+ Result:=False;
+ While fpSelect(FStream.Handle+1,@FDS,Nil,Nil,TimeOut)>0 do
+ begin
+ DoReadMessage;
+ Result:=True;
+ end;
end;
procedure TPipeServerComm.ReadMessage;
-Var
- L,P,Count : Integer;
- Hdr : TMsgHeader;
- M : TStream;
begin
- FStream.ReadBuffer(Hdr,SizeOf(Hdr));
- SetMsgType(Hdr.MsgType);
- Count:=Hdr.MsgLen;
- M:=MsgData;
- if count > 0 then
- begin
- M.Size:=0;
- M.Seek(0,soFrombeginning);
- M.CopyFrom(FStream,Count);
- end
- else
- M.Size := 0;
+ DoReadMessage;
end;
+
function TPipeServerComm.GetInstanceID: String;
begin
Result:=IntToStr(fpGetPID);
end;
+
{ ---------------------------------------------------------------------
Set TSimpleIPCClient / TSimpleIPCServer defaults.
---------------------------------------------------------------------}
+
{$ifndef ipcunit}
-Function TSimpleIPCServer.CommClass : TIPCServerCommClass;
+function TSimpleIPCServer.CommClass: TIPCServerCommClass;
begin
if (DefaultIPCServerClass<>Nil) then
@@ -288,10 +238,6 @@ begin
end;
{$else ipcunit}
-initialization
- IPCInit;
-
-Finalization
- IPCDone;
+
end.
{$endif}
diff --git a/packages/fcl-process/src/winall/simpleipc.inc b/packages/fcl-process/src/winall/simpleipc.inc
index 99eeac8634..1c70dcce09 100644
--- a/packages/fcl-process/src/winall/simpleipc.inc
+++ b/packages/fcl-process/src/winall/simpleipc.inc
@@ -14,7 +14,7 @@
**********************************************************************}
-uses Windows,messages,contnrs;
+uses Windows,messages;
const
MsgWndClassName: WideString = 'FPCMsgWindowCls';
@@ -22,7 +22,6 @@ const
resourcestring
SErrFailedToRegisterWindowClass = 'Failed to register message window class';
SErrFailedToCreateWindow = 'Failed to create message window %s';
- SErrMessageQueueOverflow = 'Message queue overflow (limit %s)';
var
MsgWindowClass: TWndClassW = (
@@ -38,43 +37,12 @@ var
lpszClassName: nil);
type
- TWinMsgServerMsg = class
- strict private
- FStream: TStream;
- FMsgType: TMessageType;
- public
- constructor Create;
- destructor Destroy; override;
- property Stream: TStream read FStream;
- property MsgType: TMessageType read FMsgType write FMsgType;
- end;
-
- TWinMsgServerMsgQueue = class
- strict private
- FList: TFPObjectList;
- FMaxCount: Integer;
- FMaxAction: TIPCMessageOverflowAction;
- function GetCount: Integer;
- procedure DeleteAndFree(Index: Integer);
- function PrepareToPush: Boolean;
- public
- constructor Create;
- destructor Destroy; override;
- procedure Clear;
- procedure Push(AItem: TWinMsgServerMsg);
- function Pop: TWinMsgServerMsg;
- property Count: Integer read GetCount;
- property MaxCount: Integer read FMaxCount write FMaxCount;
- property MaxAction: TIPCMessageOverflowAction read FMaxAction write FMaxAction;
- end;
-
TWinMsgServerComm = Class(TIPCServerComm)
strict private
FHWND : HWND;
FWindowName : String;
FWndProcException: Boolean;
FWndProcExceptionMsg: String;
- FMsgQueue: TWinMsgServerMsgQueue;
function AllocateHWnd(const aWindowName: WideString) : HWND;
procedure ProcessMessages;
procedure ProcessMessagesWait(TimeOut: Integer);
@@ -97,95 +65,6 @@ type
Property WindowName : String Read FWindowName;
end;
- { ---------------------------------------------------------------------
- TWinMsgServerMsg / TWinMsgServerMsgQueue
- ---------------------------------------------------------------------}
-
-constructor TWinMsgServerMsg.Create;
-begin
- FMsgType := 0;
- FStream := TMemoryStream.Create;
-end;
-
-destructor TWinMsgServerMsg.Destroy;
-begin
- FStream.Free;
-end;
-
-
-constructor TWinMsgServerMsgQueue.Create;
-begin
- FMaxCount := DefaultIPCMessageQueueLimit;
- FMaxAction := DefaultIPCMessageOverflowAction;
- FList := TFPObjectList.Create(False); // FreeObjects = False!
-end;
-
-destructor TWinMsgServerMsgQueue.Destroy;
-begin
- Clear;
- FList.Free;
-end;
-
-procedure TWinMsgServerMsgQueue.Clear;
-begin
- while FList.Count > 0 do
- DeleteAndFree(FList.Count - 1);
-end;
-
-procedure TWinMsgServerMsgQueue.DeleteAndFree(Index: Integer);
-begin
- FList[Index].Free; // Free objects manually!
- FList.Delete(Index);
-end;
-
-function TWinMsgServerMsgQueue.GetCount: Integer;
-begin
- Result := FList.Count;
-end;
-
-function TWinMsgServerMsgQueue.PrepareToPush: Boolean;
-begin
- Result := True;
- case FMaxAction of
- ipcmoaDiscardOld:
- begin
- while (FList.Count >= FMaxCount) do
- DeleteAndFree(FList.Count - 1);
- end;
- ipcmoaDiscardNew:
- begin
- Result := (FList.Count < FMaxCount);
- end;
- ipcmoaError:
- begin
- if (FList.Count >= FMaxCount) then
- // Caller is expected to catch this exception, so not using Owner.DoError()
- raise EIPCError.CreateFmt(SErrMessageQueueOverflow, [IntToStr(FMaxCount)]);
- end;
- end;
-end;
-
-procedure TWinMsgServerMsgQueue.Push(AItem: TWinMsgServerMsg);
-begin
- if PrepareToPush then
- FList.Insert(0, AItem);
-end;
-
-function TWinMsgServerMsgQueue.Pop: TWinMsgServerMsg;
-var
- Index: Integer;
-begin
- Index := FList.Count - 1;
- if Index >= 0 then
- begin
- // Caller is responsible for freeing the object.
- Result := TWinMsgServerMsg(FList[Index]);
- FList.Delete(Index);
- end
- else
- Result := nil;
-end;
-
{ ---------------------------------------------------------------------
MsgWndProc
---------------------------------------------------------------------}
@@ -257,13 +136,11 @@ begin
FWindowName := FWindowName+'_'+InstanceID;
FWndProcException := False;
FWndProcExceptionMsg := '';
- FMsgQueue := TWinMsgServerMsgQueue.Create;
end;
destructor TWinMsgServerComm.Destroy;
begin
StopServer;
- FMsgQueue.Free;
inherited;
end;
@@ -275,7 +152,6 @@ end;
procedure TWinMsgServerComm.StopServer;
begin
- FMsgQueue.Clear;
if FHWND <> 0 then
begin
DestroyWindow(FHWND);
@@ -304,12 +180,12 @@ end;
function TWinMsgServerComm.HaveQueuedMessages: Boolean; inline;
begin
- Result := (FMsgQueue.Count > 0);
+ Result := (Owner.Queue.Count > 0);
end;
function TWinMsgServerComm.CountQueuedMessages: Integer; inline;
begin
- Result := FMsgQueue.Count;
+ Result := Owner.Queue.Count;
end;
procedure TWinMsgServerComm.HandlePostedMessage(const Msg: TMsg); inline;
@@ -397,10 +273,11 @@ end;
procedure TWinMsgServerComm.ReadMsgData(var Msg: TMsg);
var
CDS: PCopyDataStruct;
- MsgItem: TWinMsgServerMsg;
+ MsgItem: TIPCServerMsg;
+
begin
CDS := PCopyDataStruct(Msg.lParam);
- MsgItem := TWinMsgServerMsg.Create;
+ MsgItem := TIPCServerMsg.Create;
try
MsgItem.MsgType := CDS^.dwData;
MsgItem.Stream.WriteBuffer(CDS^.lpData^,CDS^.cbData);
@@ -409,7 +286,7 @@ begin
// Caller is expected to catch this exception, so not using Owner.DoError()
raise;
end;
- FMsgQueue.Push(MsgItem);
+ PushMessage(MsgItem);
end;
function TWinMsgServerComm.TryReadMsgData(var Msg: TMsg; out Error: String): Boolean;
@@ -426,21 +303,8 @@ begin
end;
procedure TWinMsgServerComm.ReadMessage;
-var
- MsgItem: TWinMsgServerMsg;
begin
- MsgItem := FMsgQueue.Pop;
- if Assigned(MsgItem) then
- try
- // Load message from the queue into the owner's message data.
- MsgItem.Stream.Position := 0;
- Owner.FMsgData.Size := 0;
- Owner.FMsgType := MsgItem.MsgType;
- Owner.FMsgData.CopyFrom(MsgItem.Stream, MsgItem.Stream.Size);
- finally
- // We are responsible for freeing the message from the queue.
- MsgItem.Free;
- end;
+ // Do nothing, PeekMessages has pushed messages to the queue.
end;
function TWinMsgServerComm.GetInstanceID: String;
@@ -451,7 +315,7 @@ end;
{ ---------------------------------------------------------------------
TWinMsgClientComm
---------------------------------------------------------------------}
-
+
Type
TWinMsgClientComm = Class(TIPCClientComm)
Private
@@ -544,7 +408,7 @@ Function TSimpleIPCServer.CommClass : TIPCServerCommClass;
begin
if (DefaultIPCServerClass<>Nil) then
Result:=DefaultIPCServerClass
- else
+ else
Result:=TWinMsgServerComm;
end;
@@ -553,7 +417,7 @@ Function TSimpleIPCClient.CommClass : TIPCClientCommClass;
begin
if (DefaultIPCClientClass<>Nil) then
Result:=DefaultIPCClientClass
- else
+ else
Result:=TWinMsgClientComm;
end;
diff --git a/packages/fcl-web/examples/httpclient/httpget.pas b/packages/fcl-web/examples/httpclient/httpget.pas
index 6eb6d076fb..f8cae0aa74 100644
--- a/packages/fcl-web/examples/httpclient/httpget.pas
+++ b/packages/fcl-web/examples/httpclient/httpget.pas
@@ -92,6 +92,10 @@ begin
OnPassword:=@DoPassword;
OnDataReceived:=@DoProgress;
OnHeaders:=@DoHeaders;
+ { Set this if you want to try a proxy.
+ Proxy.Host:='195.207.46.20';
+ Proxy.Port:=8080;
+ }
Get(ParamStr(1),ParamStr(2));
finally
Free;
diff --git a/packages/fcl-web/examples/httpserver/simplehttpserver.pas b/packages/fcl-web/examples/httpserver/simplehttpserver.pas
index 23d20d3625..607d266bbd 100644
--- a/packages/fcl-web/examples/httpserver/simplehttpserver.pas
+++ b/packages/fcl-web/examples/httpserver/simplehttpserver.pas
@@ -7,7 +7,7 @@ uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
- sysutils, Classes, fphttpserver, fpmimetypes;
+ sysutils, Classes, fphttpserver, fpmimetypes, wmecho;
Type
@@ -21,13 +21,16 @@ Type
FMimeTypesFile: String;
procedure SetBaseDir(const AValue: String);
Protected
+ Procedure DoIdle(Sender : TObject);
procedure CheckMimeLoaded;
+
Property MimeLoaded : Boolean Read FMimeLoaded;
public
procedure HandleRequest(Var ARequest: TFPHTTPConnectionRequest;
Var AResponse : TFPHTTPConnectionResponse); override;
Property BaseDir : String Read FBaseDir Write SetBaseDir;
Property MimeTypesFile : String Read FMimeTypesFile Write FMimeTypesFile;
+
end;
Var
@@ -42,6 +45,11 @@ begin
FBaseDir:=IncludeTrailingPathDelimiter(FBaseDir);
end;
+procedure TTestHTTPServer.DoIdle(Sender: TObject);
+begin
+ Writeln('Idle, waiting for connections');
+end;
+
procedure TTestHTTPServer.CheckMimeLoaded;
begin
If (Not MimeLoaded) and (MimeTypesFile<>'') then
@@ -98,6 +106,8 @@ begin
{$endif}
Serv.Threaded:=False;
Serv.Port:=8080;
+ Serv.AcceptIdleTimeout:=1000;
+ Serv.OnAcceptIdle:=@Serv.DoIdle;
Serv.Active:=True;
finally
Serv.Free;
diff --git a/packages/fcl-web/src/base/custhttpapp.pp b/packages/fcl-web/src/base/custhttpapp.pp
index 69501fc571..70fedc49be 100644
--- a/packages/fcl-web/src/base/custhttpapp.pp
+++ b/packages/fcl-web/src/base/custhttpapp.pp
@@ -37,6 +37,8 @@ Type
Procedure InitResponse(AResponse : TFPHTTPConnectionResponse); override;
Property WebHandler : TFPHTTPServerHandler Read FWebHandler;
Property Active;
+ Property OnAcceptIdle;
+ Property AcceptIdleTimeout;
end;
{ TFCgiHandler }
@@ -49,9 +51,13 @@ Type
FServer: TEmbeddedHTTPServer;
function GetAllowConnect: TConnectQuery;
function GetAddress: string;
+ function GetIdle: TNotifyEvent;
+ function GetIDleTimeOut: Cardinal;
function GetPort: Word;
function GetQueueSize: Word;
function GetThreaded: Boolean;
+ procedure SetIdle(AValue: TNotifyEvent);
+ procedure SetIDleTimeOut(AValue: Cardinal);
procedure SetOnAllowConnect(const AValue: TConnectQuery);
procedure SetAddress(const AValue: string);
procedure SetPort(const AValue: Word);
@@ -86,13 +92,22 @@ Type
Property OnRequestError : TRequestErrorHandler Read FOnRequestError Write FOnRequestError;
// Should addresses be matched to hostnames ? (expensive)
Property LookupHostNames : Boolean Read GetLookupHostNames Write SetLookupHostNames;
+ // Event handler called when going Idle while waiting for a connection
+ Property OnAcceptIdle : TNotifyEvent Read GetIdle Write SetIdle;
+ // If >0, when no new connection appeared after timeout, OnAcceptIdle is called.
+ Property AcceptIdleTimeout : Cardinal Read GetIDleTimeOut Write SetIDleTimeOut;
end;
{ TCustomHTTPApplication }
TCustomHTTPApplication = Class(TCustomWebApplication)
private
+ procedure FakeConnect;
+ function GetIdle: TNotifyEvent;
+ function GetIDleTimeOut: Cardinal;
function GetLookupHostNames : Boolean;
+ procedure SetIdle(AValue: TNotifyEvent);
+ procedure SetIDleTimeOut(AValue: Cardinal);
Procedure SetLookupHostnames(Avalue : Boolean);
function GetAllowConnect: TConnectQuery;
function GetAddress: String;
@@ -108,6 +123,7 @@ Type
function InitializeWebHandler: TWebHandler; override;
Function HTTPHandler : TFPHTTPServerHandler;
Public
+ procedure Terminate; override;
Property Address : string Read GetAddress Write SetAddress;
Property Port : Word Read GetPort Write SetPort Default 80;
// Max connections on queue (for Listen call)
@@ -118,6 +134,10 @@ Type
property Threaded : Boolean read GetThreaded Write SetThreaded;
// Should addresses be matched to hostnames ? (expensive)
Property LookupHostNames : Boolean Read GetLookupHostNames Write SetLookupHostNames;
+ // Event handler called when going Idle while waiting for a connection
+ Property OnAcceptIdle : TNotifyEvent Read GetIdle Write SetIdle;
+ // If >0, when no new connection appeared after timeout, OnAcceptIdle is called.
+ Property AcceptIdleTimeout : Cardinal Read GetIDleTimeOut Write SetIDleTimeOut;
end;
@@ -143,13 +163,33 @@ uses
{ TCustomHTTPApplication }
+function TCustomHTTPApplication.GetIdle: TNotifyEvent;
+begin
+ Result:=HTTPHandler.OnAcceptIdle;
+end;
+
+function TCustomHTTPApplication.GetIDleTimeOut: Cardinal;
+begin
+ Result:=HTTPHandler.AcceptIdleTimeout;
+end;
+
function TCustomHTTPApplication.GetLookupHostNames : Boolean;
begin
Result:=HTTPHandler.LookupHostNames;
end;
-Procedure TCustomHTTPApplication.SetLookupHostnames(Avalue : Boolean);
+procedure TCustomHTTPApplication.SetIdle(AValue: TNotifyEvent);
+begin
+ HTTPHandler.OnAcceptIdle:=AValue;
+end;
+
+procedure TCustomHTTPApplication.SetIDleTimeOut(AValue: Cardinal);
+begin
+ HTTPHandler.AcceptIdleTimeOut:=AValue;
+end;
+
+procedure TCustomHTTPApplication.SetLookupHostnames(Avalue: Boolean);
begin
HTTPHandler.LookupHostNames:=AValue;
@@ -215,6 +255,25 @@ begin
Result:=Webhandler as TFPHTTPServerHandler;
end;
+procedure TCustomHTTPApplication.FakeConnect;
+
+begin
+ try
+ TInetSocket.Create('localhost',Self.Port).Free;
+ except
+ // Ignore errors this may raise.
+ end
+end;
+
+procedure TCustomHTTPApplication.Terminate;
+
+begin
+ inherited Terminate;
+ // We need to break the accept loop. Do a fake connect.
+ if Threaded And (AcceptIdleTimeout=0) then
+ FakeConnect;
+end;
+
{ TFPHTTPServerHandler }
procedure TFPHTTPServerHandler.HandleRequestError(Sender: TObject; E: Exception
@@ -251,7 +310,7 @@ begin
Result:=FServer.LookupHostNames;
end;
-Procedure TFPHTTPServerHandler.SetLookupHostnames(Avalue : Boolean);
+procedure TFPHTTPServerHandler.SetLookupHostnames(Avalue: Boolean);
begin
FServer.LookupHostNames:=AValue;
@@ -267,6 +326,16 @@ begin
Result:=FServer.Address;
end;
+function TFPHTTPServerHandler.GetIdle: TNotifyEvent;
+begin
+ Result:=FServer.OnAcceptIdle;
+end;
+
+function TFPHTTPServerHandler.GetIDleTimeOut: Cardinal;
+begin
+ Result:=FServer.AcceptIdleTimeout;
+end;
+
function TFPHTTPServerHandler.GetPort: Word;
begin
Result:=FServer.Port;
@@ -282,6 +351,16 @@ begin
Result:=FServer.Threaded;
end;
+procedure TFPHTTPServerHandler.SetIdle(AValue: TNotifyEvent);
+begin
+ FServer.OnAcceptIdle:=AValue;
+end;
+
+procedure TFPHTTPServerHandler.SetIDleTimeOut(AValue: Cardinal);
+begin
+ FServer.AcceptIdleTimeOut:=AValue;
+end;
+
procedure TFPHTTPServerHandler.SetOnAllowConnect(const AValue: TConnectQuery);
begin
FServer.OnAllowConnect:=Avalue
diff --git a/packages/fcl-web/src/base/fphttpclient.pp b/packages/fcl-web/src/base/fphttpclient.pp
index 2856362591..ec0e1da073 100644
--- a/packages/fcl-web/src/base/fphttpclient.pp
+++ b/packages/fcl-web/src/base/fphttpclient.pp
@@ -42,6 +42,28 @@ Type
// Use this to set up a socket handler. UseSSL is true if protocol was https
TGetSocketHandlerEvent = Procedure (Sender : TObject; Const UseSSL : Boolean; Out AHandler : TSocketHandler) of object;
+ TFPCustomHTTPClient = Class;
+
+ { TProxyData }
+
+ TProxyData = Class (TPersistent)
+ private
+ FHost: string;
+ FPassword: String;
+ FPort: Word;
+ FUserName: String;
+ FHTTPClient : TFPCustomHTTPClient;
+ Protected
+ Function GetProxyHeaders : String; virtual;
+ Property HTTPClient : TFPCustomHTTPClient Read FHTTPClient;
+ Public
+ Procedure Assign(Source: TPersistent); override;
+ Property Host: string Read FHost Write FHost;
+ Property Port: Word Read FPort Write FPort;
+ Property UserName : String Read FUserName Write FUserName;
+ Property Password : String Read FPassword Write FPassword;
+ end;
+
{ TFPCustomHTTPClient }
TFPCustomHTTPClient = Class(TComponent)
private
@@ -68,14 +90,21 @@ Type
FBuffer : Ansistring;
FUserName: String;
FOnGetSocketHandler : TGetSocketHandlerEvent;
+ FProxy : TProxyData;
function CheckContentLength: Int64;
function CheckTransferEncoding: string;
function GetCookies: TStrings;
+ function GetProxy: TProxyData;
Procedure ResetResponse;
Procedure SetCookies(const AValue: TStrings);
+ procedure SetProxy(AValue: TProxyData);
Procedure SetRequestHeaders(const AValue: TStrings);
procedure SetIOTimeout(AValue: Integer);
protected
+ // True if we need to use a proxy: ProxyData Assigned and Hostname Set
+ Function ProxyActive : Boolean;
+ // Override this if you want to create a custom instance of proxy.
+ Function CreateProxyData : TProxyData;
// Called whenever data is read.
Procedure DoDataRead; virtual;
// Parse response status line. Saves status text and protocol, returns numerical code. Exception if invalid line.
@@ -241,6 +270,8 @@ Type
// Called On redirect. Dest URL can be edited.
// If The DEST url is empty on return, the method is aborted (with redirect status).
Property OnRedirect : TRedirectEvent Read FOnRedirect Write FOnRedirect;
+ // Proxy support
+ Property Proxy : TProxyData Read GetProxy Write SetProxy;
// Authentication.
// When set, they override the credentials found in the URI.
// They also override any Authenticate: header in Requestheaders.
@@ -255,11 +286,12 @@ Type
Property OnHeaders : TNotifyEvent Read FOnHeaders Write FOnHeaders;
// Called to create socket handler. If not set, or Nil is returned, a standard socket handler is created.
Property OnGetSocketHandler : TGetSocketHandlerEvent Read FOnGetSocketHandler Write FOnGetSocketHandler;
+
end;
TFPHTTPClient = Class(TFPCustomHTTPClient)
- Public
+ Published
Property IOTimeout;
Property RequestHeaders;
Property RequestBody;
@@ -278,6 +310,7 @@ Type
Property OnDataReceived;
Property OnHeaders;
Property OnGetSocketHandler;
+ Property Proxy;
end;
EHTTPClient = Class(EHTTP);
@@ -381,6 +414,33 @@ begin
SetLength(Result, P-Pchar(Result));
end;
+{ TProxyData }
+
+function TProxyData.GetProxyHeaders: String;
+begin
+ Result:='';
+ if (UserName<>'') then
+ Result:='Proxy-Authorization: Basic ' + EncodeStringBase64(UserName+':'+UserName);
+end;
+
+procedure TProxyData.Assign(Source: TPersistent);
+
+Var
+ D : TProxyData;
+
+begin
+ if Source is TProxyData then
+ begin
+ D:=Source as TProxyData;
+ Host:=D.Host;
+ Port:=D.Port;
+ UserName:=D.UserName;
+ Password:=D.Password;
+ end
+ else
+ inherited Assign(Source);
+end;
+
{ TFPCustomHTTPClient }
procedure TFPCustomHTTPClient.SetRequestHeaders(const AValue: TStrings);
@@ -397,6 +457,16 @@ begin
FSocket.IOTimeout:=AValue;
end;
+function TFPCustomHTTPClient.ProxyActive: Boolean;
+begin
+ Result:=Assigned(FProxy) and (FProxy.Host<>'') and (FProxy.Port>0);
+end;
+
+function TFPCustomHTTPClient.CreateProxyData: TProxyData;
+begin
+ Result:=TProxyData.Create;
+end;
+
procedure TFPCustomHTTPClient.DoDataRead;
begin
If Assigned(FOnDataReceived) Then
@@ -437,6 +507,12 @@ begin
Result:=D+URI.Document;
if (URI.Params<>'') then
Result:=Result+'?'+URI.Params;
+ if ProxyActive then
+ begin
+ if URI.Port>0 then
+ Result:=':'+IntToStr(URI.Port)+Result;
+ Result:=URI.Protocol+'://'+URI.Host+Result;
+ end;
end;
function TFPCustomHTTPClient.GetSocketHandler(const UseSSL: Boolean): TSocketHandler;
@@ -494,7 +570,7 @@ end;
procedure TFPCustomHTTPClient.SendRequest(const AMethod: String; URI: TURI);
Var
- UN,PW,S,L : String;
+ PH,UN,PW,S,L : String;
I : Integer;
begin
@@ -513,6 +589,12 @@ begin
If I<>-1 then
RequestHeaders.Delete(i);
end;
+ if Assigned(FProxy) and (FProxy.Host<>'') then
+ begin
+ PH:=FProxy.GetProxyHeaders;
+ if (PH<>'') then
+ S:=S+PH+CRLF;
+ end;
S:=S+'Host: '+URI.Host;
If (URI.Port<>0) then
S:=S+':'+IntToStr(URI.Port);
@@ -773,12 +855,28 @@ begin
Result:=FCookies;
end;
+function TFPCustomHTTPClient.GetProxy: TProxyData;
+begin
+ If not Assigned(FProxy) then
+ begin
+ FProxy:=CreateProxyData;
+ FProxy.FHTTPClient:=Self;
+ end;
+ Result:=FProxy;
+end;
+
procedure TFPCustomHTTPClient.SetCookies(const AValue: TStrings);
begin
if GetCookies=AValue then exit;
GetCookies.Assign(AValue);
end;
+procedure TFPCustomHTTPClient.SetProxy(AValue: TProxyData);
+begin
+ if (AValue=FProxy) then exit;
+ Proxy.Assign(AValue);
+end;
+
procedure TFPCustomHTTPClient.ReadResponse(Stream: TStream;
const AllowedResponseCodes: array of Integer; HeadersOnly: Boolean);
@@ -951,7 +1049,8 @@ procedure TFPCustomHTTPClient.DoMethod(const AMethod, AURL: String;
Var
URI : TURI;
- P : String;
+ P,CHost : String;
+ CPort : Word;
begin
ResetResponse;
@@ -959,7 +1058,17 @@ begin
p:=LowerCase(URI.Protocol);
If Not ((P='http') or (P='https')) then
Raise EHTTPClient.CreateFmt(SErrInvalidProtocol,[URI.Protocol]);
- ConnectToServer(URI.Host,URI.Port,P='https');
+ if ProxyActive then
+ begin
+ CHost:=Proxy.Host;
+ CPort:=Proxy.Port;
+ end
+ else
+ begin
+ CHost:=URI.Host;
+ CPort:=URI.Port;
+ end;
+ ConnectToServer(CHost,CPort,P='https');
try
SendRequest(AMethod,URI);
ReadResponse(Stream,AllowedResponseCodes,CompareText(AMethod,'HEAD')=0);
@@ -981,6 +1090,7 @@ end;
destructor TFPCustomHTTPClient.Destroy;
begin
+ FreeAndNil(FProxy);
FreeAndNil(FCookies);
FreeAndNil(FSentCookies);
FreeAndNil(FRequestHeaders);
diff --git a/packages/fcl-web/src/base/fphttpserver.pp b/packages/fcl-web/src/base/fphttpserver.pp
index ed5f6e41f4..48be9cf477 100644
--- a/packages/fcl-web/src/base/fphttpserver.pp
+++ b/packages/fcl-web/src/base/fphttpserver.pp
@@ -101,8 +101,10 @@ Type
TFPCustomHttpServer = Class(TComponent)
Private
+ FAcceptIdleTimeout: Cardinal;
FAdminMail: string;
FAdminName: string;
+ FOnAcceptIdle: TNotifyEvent;
FOnAllowConnect: TConnectQuery;
FOnRequest: THTTPServerRequestHandler;
FOnRequestError: TRequestErrorHandler;
@@ -116,7 +118,9 @@ Type
FThreaded: Boolean;
FConnectionCount : Integer;
function GetActive: Boolean;
+ procedure SetAcceptIdleTimeout(AValue: Cardinal);
procedure SetActive(const AValue: Boolean);
+ procedure SetIdle(AValue: TNotifyEvent);
procedure SetOnAllowConnect(const AValue: TConnectQuery);
procedure SetAddress(const AValue: string);
procedure SetPort(const AValue: Word);
@@ -175,6 +179,10 @@ Type
Property OnRequest : THTTPServerRequestHandler Read FOnRequest Write FOnRequest;
// Called when an unexpected error occurs during handling of the request. Sender is the TFPHTTPConnection.
Property OnRequestError : TRequestErrorHandler Read FOnRequestError Write FOnRequestError;
+ // Called when there are no connections waiting.
+ Property OnAcceptIdle : TNotifyEvent Read FOnAcceptIdle Write SetIdle;
+ // If >0, when no new connection appeared after timeout, OnAcceptIdle is called.
+ Property AcceptIdleTimeout : Cardinal Read FAcceptIdleTimeout Write SetAcceptIdleTimeout;
published
//aditional server information
property AdminMail: string read FAdminMail write FAdminMail;
@@ -192,6 +200,8 @@ Type
property Threaded;
Property OnRequest;
Property OnRequestError;
+ Property OnAcceptIdle;
+ Property AcceptIdleTimeout;
end;
EHTTPServer = Class(EHTTP);
@@ -638,9 +648,17 @@ begin
Result:=Assigned(FServer);
end;
+procedure TFPCustomHttpServer.SetAcceptIdleTimeout(AValue: Cardinal);
+begin
+ if FAcceptIdleTimeout=AValue then Exit;
+ FAcceptIdleTimeout:=AValue;
+ If Assigned(FServer) then
+ FServer.AcceptIdleTimeOut:=AValue;
+end;
+
procedure TFPCustomHttpServer.StopServerSocket;
begin
- FServer.StopAccepting(True);
+ FServer.StopAccepting(False);
end;
procedure TFPCustomHttpServer.SetActive(const AValue: Boolean);
@@ -659,6 +677,13 @@ begin
StopServerSocket;
end;
+procedure TFPCustomHttpServer.SetIdle(AValue: TNotifyEvent);
+begin
+ FOnAcceptIdle:=AValue;
+ if Assigned(FServer) then
+ FServer.OnIdle:=AValue;
+end;
+
procedure TFPCustomHttpServer.SetOnAllowConnect(const AValue: TConnectQuery);
begin
if FOnAllowConnect=AValue then exit;
@@ -771,6 +796,8 @@ begin
FServer.OnConnectQuery:=OnAllowConnect;
FServer.OnConnect:=@DOConnect;
FServer.OnAcceptError:=@DoAcceptError;
+ FServer.OnIdle:=OnAcceptIdle;
+ FServer.AcceptIdleTimeOut:=AcceptIdleTimeout;
end;
procedure TFPCustomHttpServer.StartServerSocket;
@@ -800,7 +827,7 @@ begin
FServerBanner := 'Freepascal';
end;
-Procedure TFPCustomHttpServer.WaitForRequests;
+procedure TFPCustomHttpServer.WaitForRequests;
Var
FLastCount,ACount : Integer;
diff --git a/packages/fcl-web/src/base/fpoauth2.pp b/packages/fcl-web/src/base/fpoauth2.pp
index e9cbf3d8e3..6358a4a67c 100644
--- a/packages/fcl-web/src/base/fpoauth2.pp
+++ b/packages/fcl-web/src/base/fpoauth2.pp
@@ -162,31 +162,35 @@ Type
TOAuth2Handler = Class(TAbstractRequestSigner)
private
- FAutoStore: Boolean;
+ FAutoConfig: Boolean;
+ FAutoSession: Boolean;
+ FConfigLoaded: Boolean;
+ FSessionLoaded: Boolean;
FClaimsClass: TClaimsClass;
FConfig: TOAuth2Config;
- FConfigLoaded: Boolean;
+ FSession: TOAuth2Session;
FIDToken: TJWTIDToken;
+ FWebClient: TAbstractWebClient;
+ FStore : TAbstracTOAuth2ConfigStore;
FOnAuthSessionChange: TOnAuthSessionChangeHandler;
FOnIDTokenChange: TOnIDTokenChangeHandler;
- FSession: TOAuth2Session;
+ FOnSignRequest: TOnAuthConfigChangeHandler;
FOnAuthConfigChange: TOnAuthConfigChangeHandler;
- FOnSignRequest: TOnAuthSessionChangeHandler;
FOnUserConsent: TUserConsentHandler;
- FSessionLoaded: Boolean;
- FWebClient: TAbstractWebClient;
- FStore : TAbstracTOAuth2ConfigStore;
+ Function GetAutoStore : Boolean;
+ Procedure SetAutoStore(AValue : Boolean);
procedure SetConfig(AValue: TOAuth2Config);
procedure SetSession(AValue: TOAuth2Session);
procedure SetStore(AValue: TAbstracTOAuth2ConfigStore);
Protected
+ function CheckHostedDomain(URL: String): String; virtual;
Function RefreshToken: Boolean; virtual;
Function CreateOauth2Config : TOAuth2Config; virtual;
Function CreateOauth2Session : TOAuth2Session; virtual;
Function CreateIDToken : TJWTIDToken; virtual;
Procedure Notification(AComponent: TComponent; Operation: TOperation); override;
Procedure DoAuthConfigChange; virtual;
- Procedure DoAuthSessionChange; virtual;
+ Procedure DoAuthSessionChange(Const AUser : String = ''); virtual;
Procedure DoSignRequest(ARequest: TWebClientRequest); override;
Property ConfigLoaded : Boolean Read FConfigLoaded;
Property SessionLoaded : Boolean Read FSessionLoaded;
@@ -199,6 +203,8 @@ Type
// Variable name for AuthScope in authentication URL.
// Default = scope. Descendents can override this to provide correct behaviour.
Class Function AuthScopeVariableName : String; virtual;
+ // Default for hosted domain, if any
+ Class function DefaultHostedDomain: String; virtual;
// Check if config is authenticated.
Function IsAuthenticated : Boolean; virtual;
// Generate an authentication URL
@@ -207,11 +213,11 @@ Type
// Do whatever is necessary to mark the request as 'authenticated'.
Function Authenticate: TAuthenticateAction; virtual;
// Load config from store
- procedure LoadConfig;
+ procedure LoadConfig(Force : Boolean = false);
// Save config to store
procedure SaveConfig;
- // Load Session from store.If AUser is empty, then ID Token.GetUniqueUser is used.
- procedure LoadSession(Const AUser : String = '');
+ // Load Session from store.If AUser is empty, then ID Token.GetUniqueUser is used.
+ procedure LoadSession(Const AUser : String = ''; AForce : Boolean = False);
// Save session in store. If AUser is empty, then ID Token.GetUniqueUser is used. Will call OnAuthSessionChange
procedure SaveSession(Const AUser : String = '');
// Refresh ID token from Session.IDToken. Called after token is refreshed or session is loaded.
@@ -237,11 +243,15 @@ Type
// Called when the IDToken information changes
Property OnIDTokenChange : TOnIDTokenChangeHandler Read FOnIDTokenChange Write FOnIDTokenChange;
// Called when a request is signed
- Property OnSignRequest : TOnAuthSessionChangeHandler Read FOnSignRequest Write FOnSignRequest;
+ Property OnSignRequest : TOnAuthConfigChangeHandler Read FOnSignRequest Write FOnSignRequest;
// User to load/store parts of the config store.
Property Store : TAbstracTOAuth2ConfigStore Read FStore Write SetStore;
- // Call storing automatically when needed.
- Property AutoStore : Boolean Read FAutoStore Write FAutoStore;
+ // Call storing session/config automatically when needed.
+ Property AutoStore : Boolean Read GetAutoStore Write SetAutoStore;
+ // AutoSession = True makes sure the load/save of the session as needed.
+ Property AutoSession : Boolean Read FAutoSession Write FAutoSession default True;
+ // AutoConfig = True will enable the load of config as needed.
+ Property AutoConfig : Boolean Read FAutoConfig Write FAutoConfig default True;
end;
TOAuth2HandlerClass = Class of TOAuth2Handler;
@@ -347,13 +357,33 @@ begin
end;
end;
+function TOAuth2Handler.CheckHostedDomain(URL : String): String;
+
+Var
+ HD : String;
+
+begin
+ HD:=Config.HostedDomain;
+ if (HD='') then
+ Result:=DefaultHostedDomain;
+ Result:=StringReplace(URL,'%HostedDomain%',Config.HostedDomain,[rfIgnoreCase]);
+end;
+
+Class function TOAuth2Handler.DefaultHostedDomain : String;
+
+begin
+ Result:='';
+end;
+
function TOAuth2Handler.AuthenticateURL: String;
+
begin
Result:=Config.AuthURL
+ '?'+ AuthScopeVariableName+'='+HTTPEncode(Config.AuthScope)
+'&redirect_uri='+HTTPEncode(Config.RedirectUri)
+'&client_id='+HTTPEncode(Config.ClientID)
+'&response_type=code'; // Request refresh token.
+ Result:=CheckHostedDomain(Result);
if Assigned(Session) then
begin
if (Session.LoginHint<>'') then
@@ -376,14 +406,15 @@ begin
FSession.Assign(AValue);
end;
-procedure TOAuth2Handler.LoadConfig;
+procedure TOAuth2Handler.LoadConfig(Force : Boolean = False);
begin
- if Assigned(Store) and not ConfigLoaded then
- begin
- Store.LoadConfig(Config);
- FConfigLoaded:=True;
- end;
+ if Assigned(Store) then
+ if Force or not ConfigLoaded then
+ begin
+ Store.LoadConfig(Config);
+ FConfigLoaded:=True;
+ end;
end;
procedure TOAuth2Handler.SaveConfig;
@@ -395,22 +426,23 @@ begin
end;
end;
-procedure TOAuth2Handler.LoadSession(const AUser: String);
+procedure TOAuth2Handler.LoadSession(const AUser: String; AForce : Boolean = False);
Var
U : String;
begin
if Assigned(Store) then
- begin
- U:=AUser;
- If (U='') and Assigned(FIDToken) then
- U:=FIDToken.GetUniqueUserID;
- Store.LoadSession(Session,AUser);
- FSessionLoaded:=True;
- if (Session.IDToken<>'') then
- RefreshIDToken;
- end;
+ if AForce or Not SessionLoaded then
+ begin
+ U:=AUser;
+ If (U='') and Assigned(FIDToken) then
+ U:=FIDToken.GetUniqueUserID;
+ Store.LoadSession(Session,AUser);
+ FSessionLoaded:=True;
+ if (Session.IDToken<>'') then
+ RefreshIDToken;
+ end;
end;
procedure TOAuth2Handler.SaveSession(const AUser: String);
@@ -428,6 +460,19 @@ begin
end;
end;
+Function TOAuth2Handler.GetAutoStore : Boolean;
+
+begin
+ Result:=AutoSession and AutoConfig;
+end;
+
+Procedure TOAuth2Handler.SetAutoStore(AValue : Boolean);
+
+begin
+ AutoSession:=True;
+ AutoConfig:=True;
+end;
+
procedure TOAuth2Handler.RefreshIDToken;
begin
FreeAndNil(FIDToken);
@@ -449,14 +494,15 @@ Var
Resp: TWebClientResponse;
begin
- LoadConfig;
+ if AutoConfig and not ConfigLoaded then
+ LoadConfig;
Req:=Nil;
Resp:=Nil;
D:=Nil;
try
Req:=WebClient.CreateRequest;
Req.Headers.Values['Content-Type']:='application/x-www-form-urlencoded';
- url:=Config.TOKENURL;
+ url:=CheckHostedDomain(Config.TOKENURL);
Body:='client_id='+HTTPEncode(Config.ClientID)+
'&client_secret='+ HTTPEncode(Config.ClientSecret);
if (Session.RefreshToken<>'') then
@@ -475,10 +521,11 @@ begin
if Result then
begin
Session.LoadTokensFromJSONResponse(Resp.GetContentAsString);
- If (Session.IDToken)<>'' then
+ If (Session.IDToken<>'') then
begin
RefreshIDToken;
- DoAuthSessionChange;
+ if AutoSession then
+ DoAuthSessionChange(IDToken.GetUniqueUserName);
end;
end
else
@@ -518,9 +565,10 @@ end;
function TOAuth2Handler.IsAuthenticated: Boolean;
begin
- LoadConfig;
+ If AutoConfig then
+ LoadConfig;
// See if we need to load the session
- if (Session.RefreshToken='') then
+ if (Session.RefreshToken='') and AutoSession then
LoadSession;
Result:=(Session.AccessToken<>'');
If Result then
@@ -553,11 +601,12 @@ begin
SaveConfig;
end;
-procedure TOAuth2Handler.DoAuthSessionChange;
+procedure TOAuth2Handler.DoAuthSessionChange(Const AUser : String = '');
+
begin
If Assigned(FOnAuthSessionChange) then
FOnAuthSessionChange(Self,Session);
- SaveSession;
+ SaveSession(AUser);
end;
procedure TOAuth2Handler.DoSignRequest(ARequest: TWebClientRequest);
@@ -580,6 +629,8 @@ begin
inherited Create(AOwner);
FConfig:=CreateOauth2Config;
FSession:=CreateOauth2Session;
+ FAutoSession:=True;
+ FAutoConfig:=True;
end;
destructor TOAuth2Handler.Destroy;
diff --git a/packages/googleapi/examples/generator/googleapiconv.pp b/packages/googleapi/examples/generator/googleapiconv.pp
index 4220ba0000..d19dc1b06c 100644
--- a/packages/googleapi/examples/generator/googleapiconv.pp
+++ b/packages/googleapi/examples/generator/googleapiconv.pp
@@ -54,7 +54,9 @@ Type
TGoogleAPIConverter = CLass(TCustomApplication)
private
+ FDownloadOnly: Boolean;
FKeepJSON: Boolean;
+ FUnitPrefix: String;
FVerbose: Boolean;
procedure ConversionLog(Sender: TObject; LogType: TCodegenLogType; const Msg: String);
procedure CreateFPMake(FileName: String; L: TAPIEntries);
@@ -71,6 +73,8 @@ Type
Procedure DoRun; override;
Property KeepJSON : Boolean Read FKeepJSON Write FKeepJSON;
Property Verbose : Boolean Read FVerbose Write FVerbose;
+ Property DownloadOnly : Boolean Read FDownloadOnly Write FDownloadOnly;
+ Property UnitPrefix : String Read FUnitPrefix Write FUnitPrefix;
end;
{ TAPIEntries }
@@ -85,19 +89,21 @@ begin
Result:=Add as TAPIEntry;
end;
-constructor TGoogleAPIConverter.Create(AOwner: TComponent);
+Constructor TGoogleAPIConverter.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
StopOnException:=True;
TDiscoveryJSONToPas.RegisterAllObjects;
+ UnitPrefix:='google';
end;
-destructor TGoogleAPIConverter.Destroy;
+Destructor TGoogleAPIConverter.Destroy;
begin
inherited Destroy;
end;
-function TGoogleAPIConverter.HttpGetJSON(const URL: String; Response: TStream): Boolean;
+Function TGoogleAPIConverter.HttpGetJSON(Const URL: String; Response: TStream
+ ): Boolean;
Var
Webclient : TAbstractWebClient;
@@ -116,6 +122,7 @@ begin
try
Req:=WebClient.CreateRequest;
Req.ResponseContent:=Response;
+ ConversionLog(Self,cltInfo,'Downloading: '+URL);
Resp:=WebClient.ExecuteRequest('GET',URL,Req);
Result:=(Resp<>Nil);
finally
@@ -155,6 +162,10 @@ begin
Writeln('-u --url=URL URL to download the REST description from.');
Writeln('-v --serviceversion=v Service version to download the REST description for.');
Writeln('-V --verbose Write some diagnostic messages');
+ Writeln('-k --keepjson Keep the downloaded JSON files');
+ Writeln('-d --onlydownload Just download the files, do not actually convert.');
+ Writeln(' Only effective if -k or --keepjson is also specified.');
+ Writeln('-f --unitprefix Prefix for generated unit names. Default is "google"');
Writeln('If the outputfilename is empty and cannot be determined, an error is returned');
Halt(Ord(Msg<>''));
end;
@@ -355,7 +366,7 @@ begin
if AllVersions or O.Get('preferred',false) then
begin
RU:=O.get('discoveryRestUrl');
- LFN:=O.get('name');
+ LFN:=UnitPrefix+O.get('name');
if AllVersions then
LFN:=LFN+'_'+StringReplace(O.get('version'),'.','',[rfReplaceAll]);
if (OFN='') then
@@ -377,33 +388,37 @@ begin
RS.Position:=0;
U:=UL.AddEntry;
U.FileName:=LFN;
- DoConversion(RS,U);
+ if not DownloadOnly then
+ DoConversion(RS,U);
finally
RS.Free;
end;
end;
end;
- if HasOption('R','register') then
- RegisterUnit(GetOptionValue('R','register'),UL);
- if HasOption('m','fpmake') then
- CreateFpMake(GetOptionValue('m','fpmake'),UL);
+ if not DownloadOnly then
+ begin
+ if HasOption('R','register') then
+ RegisterUnit(GetOptionValue('R','register'),UL);
+ if HasOption('m','fpmake') then
+ CreateFpMake(GetOptionValue('m','fpmake'),UL);
+ end;
if HasOption('I','icon') then
For I:=0 to UL.Count-1 do
DownloadIcon(UL[i]);
-
finally
UL.Free;
D.Free;
end;
end;
-procedure TGoogleAPIConverter.DoRun;
+Procedure TGoogleAPIConverter.DoRun;
Const
- MyO : Array[1..19] of ansistring
+ MyO : Array[1..21] of ansistring
= ('help','input:','output:','extraunits:','baseclass:','classprefix:',
'url:','service:','serviceversion:','resourcesuffix:','license:',
- 'All','all','register','icon','fpmake:','timestamp','verbose','keepjson');
+ 'All','all','register','icon','fpmake:','timestamp','verbose','keepjson',
+ 'onlydownload','unitprefix');
Var
O,NonOpts : TStrings;
@@ -419,7 +434,7 @@ begin
try
O:=TStringList.Create;
For S in MyO do O.Add(S);
- S:=Checkoptions('hi:o:e:b:p:u:s:v:r:L:aAR:Im:tVk',O,TStrings(Nil),NonOpts,True);
+ S:=Checkoptions('hi:o:e:b:p:u:s:v:r:L:aAR:Im:tVkdf',O,TStrings(Nil),NonOpts,True);
if NonOpts.Count>0 then
IFN:=NonOpts[0];
if NonOpts.Count>1 then
@@ -430,6 +445,10 @@ begin
end;
FVerbose:=HasOption('V','verbose');
FKeepJSON:=HasOption('k','keepjson');
+ if HasOption('f','unitprefix') then
+ UnitPrefix:=GetOptionValue('f','unitprefix');
+ If FKeepJSON Then
+ FDownLoadOnly:=HasOption('d','onlydownload');
if (S<>'') or HasOption('h','help') then
Usage(S);
DoAllServices:=HasOption('a','all') or HasOption('A','All');
@@ -455,7 +474,7 @@ begin
if (IFN<>'') then
OFN:=ChangeFileExt(IFN,'.pp')
else if getOptionValue('s','service')<>'' then
- OFN:='google'+getOptionValue('s','service')+'.pp';
+ OFN:=UnitPrefix+getOptionValue('s','service')+'.pp';
if (OFN='') and Not DoAllServices then
Usage('Need an output filename');
if DoAllServices then
@@ -480,15 +499,16 @@ begin
else
JS:=TFileStream.Create(IFN,fmOpenRead or fmShareDenyWrite);
try
- APIEntry:=TAPIEntry.Create(Nil);
- try
- APIEntry.FileName:=OFN;
- DoConversion(JS,APIEntry);
- if HasOption('I','icon') then
- DownloadIcon(APIEntry);
- finally
- APIEntry.Free;
- end;
+ if not DownLoadOnly then
+ APIEntry:=TAPIEntry.Create(Nil);
+ try
+ APIEntry.FileName:=OFN;
+ DoConversion(JS,APIEntry);
+ if HasOption('I','icon') then
+ DownloadIcon(APIEntry);
+ finally
+ APIEntry.Free;
+ end;
finally
JS.Free;
end;
@@ -517,7 +537,7 @@ begin
end;
end;
-procedure TGoogleAPIConverter.DoConversion(JS: TStream; AEntry: TAPIEntry);
+Procedure TGoogleAPIConverter.DoConversion(JS: TStream; AEntry: TAPIEntry);
Var
L: String;
diff --git a/packages/googleapi/fpmake.pp b/packages/googleapi/fpmake.pp
index 6bc2aac69f..2390ee2a70 100644
--- a/packages/googleapi/fpmake.pp
+++ b/packages/googleapi/fpmake.pp
@@ -82,8 +82,8 @@ begin
T:=StdDep(P.Targets.AddUnit('googlefreebase.pp'));
T:=StdDep(P.Targets.AddUnit('googlefusiontables.pp'));
T:=StdDep(P.Targets.AddUnit('googlegames.pp'));
- T:=StdDep(P.Targets.AddUnit('googlegamesConfiguration.pp'));
- T:=StdDep(P.Targets.AddUnit('googlegamesManagement.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlegamesconfiguration.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlegamesmanagement.pp'));
T:=StdDep(P.Targets.AddUnit('googlegan.pp'));
T:=StdDep(P.Targets.AddUnit('googlegenomics.pp'));
T:=StdDep(P.Targets.AddUnit('googlegmail.pp'));
@@ -97,15 +97,15 @@ begin
T:=StdDep(P.Targets.AddUnit('googleoauth2.pp'));
T:=StdDep(P.Targets.AddUnit('googlepagespeedonline.pp'));
T:=StdDep(P.Targets.AddUnit('googleplus.pp'));
- T:=StdDep(P.Targets.AddUnit('googleplusDomains.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleplusdomains.pp'));
T:=StdDep(P.Targets.AddUnit('googleprediction.pp'));
T:=StdDep(P.Targets.AddUnit('googlepubsub.pp'));
- T:=StdDep(P.Targets.AddUnit('googleqpxExpress.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleqpxexpress.pp'));
T:=StdDep(P.Targets.AddUnit('googlereplicapool.pp'));
T:=StdDep(P.Targets.AddUnit('googlereplicapoolupdater.pp'));
T:=StdDep(P.Targets.AddUnit('googlereseller.pp'));
T:=StdDep(P.Targets.AddUnit('googleresourceviews.pp'));
- T:=StdDep(P.Targets.AddUnit('googlesiteVerification.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlesiteverification.pp'));
T:=StdDep(P.Targets.AddUnit('googlespectrum.pp'));
T:=StdDep(P.Targets.AddUnit('googlesqladmin.pp'));
T:=StdDep(P.Targets.AddUnit('googlestorage.pp'));
@@ -117,10 +117,41 @@ begin
T:=StdDep(P.Targets.AddUnit('googlewebfonts.pp'));
T:=StdDep(P.Targets.AddUnit('googlewebmasters.pp'));
T:=StdDep(P.Targets.AddUnit('googleyoutube.pp'));
- T:=StdDep(P.Targets.AddUnit('googleyoutubeAnalytics.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleyoutubeanalytics.pp'));
T:=StdDep(P.Targets.AddUnit('googlecloudlatencytest.pp'));
T:=StdDep(P.Targets.AddUnit('googlecloudsearch.pp'));
T:=StdDep(P.Targets.AddUnit('googlelogging.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleacceleratedmobilepageurl.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleadexchangebuyer2.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleanalyticsreporting.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleappengine.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleclassroom.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlecloudbilling.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlecloudbuild.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleclouddebugger.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleclouderrorreporting.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlecloudresourcemanager.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlecloudtrace.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleclouduseraccounts.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleconsumersurveys.pp'));
+ T:=StdDep(P.Targets.AddUnit('googledataproc.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlefirebaserules.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleiam.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlekgsearch.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlemonitoring.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlepartners.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlepeople.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleplaymoviespartner.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleproximitybeacon.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleruntimeconfig.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlesafebrowsing.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlescript.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleserviceregistry.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlesheets.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlestoragetransfer.pp'));
+ T:=StdDep(P.Targets.AddUnit('googletoolresults.pp'));
+ T:=StdDep(P.Targets.AddUnit('googlevision.pp'));
+ T:=StdDep(P.Targets.AddUnit('googleyoutubereporting.pp'));
end;
end;
diff --git a/packages/googleapi/src/googleacceleratedmobilepageurl.pp b/packages/googleapi/src/googleacceleratedmobilepageurl.pp
new file mode 100644
index 0000000000..110468c3d0
--- /dev/null
+++ b/packages/googleapi/src/googleacceleratedmobilepageurl.pp
@@ -0,0 +1,493 @@
+unit googleacceleratedmobilepageurl;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TAmpUrl = Class;
+ TAmpUrlError = Class;
+ TBatchGetAmpUrlsRequest = Class;
+ TBatchGetAmpUrlsResponse = Class;
+ TAmpUrlArray = Array of TAmpUrl;
+ TAmpUrlErrorArray = Array of TAmpUrlError;
+ TBatchGetAmpUrlsRequestArray = Array of TBatchGetAmpUrlsRequest;
+ TBatchGetAmpUrlsResponseArray = Array of TBatchGetAmpUrlsResponse;
+ //Anonymous types, using auto-generated names
+ TBatchGetAmpUrlsResponseTypeurlErrorsArray = Array of TAmpUrlError;
+ TBatchGetAmpUrlsResponseTypeampUrlsArray = Array of TAmpUrl;
+
+ { --------------------------------------------------------------------
+ TAmpUrl
+ --------------------------------------------------------------------}
+
+ TAmpUrl = Class(TGoogleBaseObject)
+ Private
+ FampUrl : String;
+ ForiginalUrl : String;
+ FcdnAmpUrl : String;
+ Protected
+ //Property setters
+ Procedure SetampUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoriginalUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcdnAmpUrl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property ampUrl : String Index 0 Read FampUrl Write SetampUrl;
+ Property originalUrl : String Index 8 Read ForiginalUrl Write SetoriginalUrl;
+ Property cdnAmpUrl : String Index 16 Read FcdnAmpUrl Write SetcdnAmpUrl;
+ end;
+ TAmpUrlClass = Class of TAmpUrl;
+
+ { --------------------------------------------------------------------
+ TAmpUrlError
+ --------------------------------------------------------------------}
+
+ TAmpUrlError = Class(TGoogleBaseObject)
+ Private
+ ForiginalUrl : String;
+ FerrorCode : String;
+ FerrorMessage : String;
+ Protected
+ //Property setters
+ Procedure SetoriginalUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeterrorCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeterrorMessage(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property originalUrl : String Index 0 Read ForiginalUrl Write SetoriginalUrl;
+ Property errorCode : String Index 8 Read FerrorCode Write SeterrorCode;
+ Property errorMessage : String Index 16 Read FerrorMessage Write SeterrorMessage;
+ end;
+ TAmpUrlErrorClass = Class of TAmpUrlError;
+
+ { --------------------------------------------------------------------
+ TBatchGetAmpUrlsRequest
+ --------------------------------------------------------------------}
+
+ TBatchGetAmpUrlsRequest = Class(TGoogleBaseObject)
+ Private
+ Furls : TStringArray;
+ Protected
+ //Property setters
+ Procedure Seturls(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 urls : TStringArray Index 0 Read Furls Write Seturls;
+ end;
+ TBatchGetAmpUrlsRequestClass = Class of TBatchGetAmpUrlsRequest;
+
+ { --------------------------------------------------------------------
+ TBatchGetAmpUrlsResponse
+ --------------------------------------------------------------------}
+
+ TBatchGetAmpUrlsResponse = Class(TGoogleBaseObject)
+ Private
+ FurlErrors : TBatchGetAmpUrlsResponseTypeurlErrorsArray;
+ FampUrls : TBatchGetAmpUrlsResponseTypeampUrlsArray;
+ Protected
+ //Property setters
+ Procedure SeturlErrors(AIndex : Integer; const AValue : TBatchGetAmpUrlsResponseTypeurlErrorsArray); virtual;
+ Procedure SetampUrls(AIndex : Integer; const AValue : TBatchGetAmpUrlsResponseTypeampUrlsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property urlErrors : TBatchGetAmpUrlsResponseTypeurlErrorsArray Index 0 Read FurlErrors Write SeturlErrors;
+ Property ampUrls : TBatchGetAmpUrlsResponseTypeampUrlsArray Index 8 Read FampUrls Write SetampUrls;
+ end;
+ TBatchGetAmpUrlsResponseClass = Class of TBatchGetAmpUrlsResponse;
+
+ { --------------------------------------------------------------------
+ TAmpUrlsResource
+ --------------------------------------------------------------------}
+
+ TAmpUrlsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function BatchGet(aBatchGetAmpUrlsRequest : TBatchGetAmpUrlsRequest) : TBatchGetAmpUrlsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAcceleratedmobilepageurlAPI
+ --------------------------------------------------------------------}
+
+ TAcceleratedmobilepageurlAPI = Class(TGoogleAPI)
+ Private
+ FAmpUrlsInstance : TAmpUrlsResource;
+ Function GetAmpUrlsInstance : TAmpUrlsResource;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 CreateAmpUrlsResource(AOwner : TComponent) : TAmpUrlsResource;virtual;overload;
+ Function CreateAmpUrlsResource : TAmpUrlsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property AmpUrlsResource : TAmpUrlsResource Read GetAmpUrlsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TAmpUrl
+ --------------------------------------------------------------------}
+
+
+Procedure TAmpUrl.SetampUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FampUrl=AValue) then exit;
+ FampUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAmpUrl.SetoriginalUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForiginalUrl=AValue) then exit;
+ ForiginalUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAmpUrl.SetcdnAmpUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcdnAmpUrl=AValue) then exit;
+ FcdnAmpUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAmpUrlError
+ --------------------------------------------------------------------}
+
+
+Procedure TAmpUrlError.SetoriginalUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForiginalUrl=AValue) then exit;
+ ForiginalUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAmpUrlError.SeterrorCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FerrorCode=AValue) then exit;
+ FerrorCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAmpUrlError.SeterrorMessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FerrorMessage=AValue) then exit;
+ FerrorMessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBatchGetAmpUrlsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TBatchGetAmpUrlsRequest.Seturls(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Furls=AValue) then exit;
+ Furls:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchGetAmpUrlsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'urls' : SetLength(Furls,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBatchGetAmpUrlsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TBatchGetAmpUrlsResponse.SeturlErrors(AIndex : Integer; const AValue : TBatchGetAmpUrlsResponseTypeurlErrorsArray);
+
+begin
+ If (FurlErrors=AValue) then exit;
+ FurlErrors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBatchGetAmpUrlsResponse.SetampUrls(AIndex : Integer; const AValue : TBatchGetAmpUrlsResponseTypeampUrlsArray);
+
+begin
+ If (FampUrls=AValue) then exit;
+ FampUrls:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchGetAmpUrlsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'urlerrors' : SetLength(FurlErrors,ALength);
+ 'ampurls' : SetLength(FampUrls,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAmpUrlsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAmpUrlsResource.ResourceName : String;
+
+begin
+ Result:='ampUrls';
+end;
+
+Class Function TAmpUrlsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TacceleratedmobilepageurlAPI;
+end;
+
+Function TAmpUrlsResource.BatchGet(aBatchGetAmpUrlsRequest : TBatchGetAmpUrlsRequest) : TBatchGetAmpUrlsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/ampUrls:batchGet';
+ _Methodid = 'acceleratedmobilepageurl.ampUrls.batchGet';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aBatchGetAmpUrlsRequest,TBatchGetAmpUrlsResponse) as TBatchGetAmpUrlsResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAcceleratedmobilepageurlAPI
+ --------------------------------------------------------------------}
+
+Class Function TAcceleratedmobilepageurlAPI.APIName : String;
+
+begin
+ Result:='acceleratedmobilepageurl';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIRevision : String;
+
+begin
+ Result:='20160518';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIID : String;
+
+begin
+ Result:='acceleratedmobilepageurl:v1';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APITitle : String;
+
+begin
+ Result:='Accelerated Mobile Page (AMP) URL API';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIDescription : String;
+
+begin
+ Result:='This API contains a single method, [batchGet](/amp/cache/reference/acceleratedmobilepageurl/rest/v1/ampUrls/batchGet). Call this method to retrieve the AMP URL (and equivalent AMP Cache URL) for given public URL(s). For more information, see [Link to AMP Content](/amp/cache/use-amp-url).';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/amp/cache/';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIrootUrl : string;
+
+begin
+ Result:='https://acceleratedmobilepageurl.googleapis.com/';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIbaseURL : String;
+
+begin
+ Result:='https://acceleratedmobilepageurl.googleapis.com/';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,0);
+
+end;
+
+Class Function TAcceleratedmobilepageurlAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=False;
+end;
+
+Class Procedure TAcceleratedmobilepageurlAPI.RegisterAPIResources;
+
+begin
+ TAmpUrl.RegisterObject;
+ TAmpUrlError.RegisterObject;
+ TBatchGetAmpUrlsRequest.RegisterObject;
+ TBatchGetAmpUrlsResponse.RegisterObject;
+end;
+
+
+Function TAcceleratedmobilepageurlAPI.GetAmpUrlsInstance : TAmpUrlsResource;
+
+begin
+ if (FAmpUrlsInstance=Nil) then
+ FAmpUrlsInstance:=CreateAmpUrlsResource;
+ Result:=FAmpUrlsInstance;
+end;
+
+Function TAcceleratedmobilepageurlAPI.CreateAmpUrlsResource : TAmpUrlsResource;
+
+begin
+ Result:=CreateAmpUrlsResource(Self);
+end;
+
+
+Function TAcceleratedmobilepageurlAPI.CreateAmpUrlsResource(AOwner : TComponent) : TAmpUrlsResource;
+
+begin
+ Result:=TAmpUrlsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TAcceleratedmobilepageurlAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleadexchangebuyer.pp b/packages/googleapi/src/googleadexchangebuyer.pp
index c980dad681..3bc8885cfa 100644
--- a/packages/googleapi/src/googleadexchangebuyer.pp
+++ b/packages/googleapi/src/googleadexchangebuyer.pp
@@ -1,19 +1,4 @@
unit googleadexchangebuyer;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:57
{$MODE objfpc}
{$H+}
@@ -26,52 +11,183 @@ type
//Top-level schema types
TAccount = Class;
TAccountsList = Class;
+ TAddOrderDealsRequest = Class;
+ TAddOrderDealsResponse = Class;
+ TAddOrderNotesRequest = Class;
+ TAddOrderNotesResponse = Class;
TBillingInfo = Class;
TBillingInfoList = Class;
TBudget = Class;
+ TBuyer = Class;
+ TContactInformation = Class;
+ TCreateOrdersRequest = Class;
+ TCreateOrdersResponse = Class;
TCreative = Class;
TCreativesList = Class;
- TDirectDeal = Class;
- TDirectDealsList = Class;
+ TDealServingMetadata = Class;
+ TDealServingMetadataDealPauseStatus = Class;
+ TDealTerms = Class;
+ TDealTermsGuaranteedFixedPriceTerms = Class;
+ TDealTermsGuaranteedFixedPriceTermsBillingInfo = Class;
+ TDealTermsNonGuaranteedAuctionTerms = Class;
+ TDealTermsNonGuaranteedFixedPriceTerms = Class;
+ TDeleteOrderDealsRequest = Class;
+ TDeleteOrderDealsResponse = Class;
+ TDeliveryControl = Class;
+ TDeliveryControlFrequencyCap = Class;
+ TDimension = Class;
+ TDimensionDimensionValue = Class;
+ TEditAllOrderDealsRequest = Class;
+ TEditAllOrderDealsResponse = Class;
+ TGetOffersResponse = Class;
+ TGetOrderDealsResponse = Class;
+ TGetOrderNotesResponse = Class;
+ TGetOrdersResponse = Class;
+ TGetPublisherProfilesByAccountIdResponse = Class;
+ TMarketplaceDeal = Class;
+ TMarketplaceDealParty = Class;
+ TMarketplaceLabel = Class;
+ TMarketplaceNote = Class;
TPerformanceReport = Class;
TPerformanceReportList = Class;
TPretargetingConfig = Class;
TPretargetingConfigList = Class;
+ TPrice = Class;
+ TPricePerBuyer = Class;
+ TPrivateData = Class;
+ TProduct = Class;
+ TProposal = Class;
+ TPublisherProfileApiProto = Class;
+ TPublisherProvidedForecast = Class;
+ TSeller = Class;
+ TSharedTargeting = Class;
+ TTargetingValue = Class;
+ TTargetingValueCreativeSize = Class;
+ TTargetingValueDayPartTargeting = Class;
+ TTargetingValueDayPartTargetingDayPart = Class;
+ TTargetingValueSize = Class;
+ TUpdatePrivateAuctionProposalRequest = Class;
TAccountArray = Array of TAccount;
TAccountsListArray = Array of TAccountsList;
+ TAddOrderDealsRequestArray = Array of TAddOrderDealsRequest;
+ TAddOrderDealsResponseArray = Array of TAddOrderDealsResponse;
+ TAddOrderNotesRequestArray = Array of TAddOrderNotesRequest;
+ TAddOrderNotesResponseArray = Array of TAddOrderNotesResponse;
TBillingInfoArray = Array of TBillingInfo;
TBillingInfoListArray = Array of TBillingInfoList;
TBudgetArray = Array of TBudget;
+ TBuyerArray = Array of TBuyer;
+ TContactInformationArray = Array of TContactInformation;
+ TCreateOrdersRequestArray = Array of TCreateOrdersRequest;
+ TCreateOrdersResponseArray = Array of TCreateOrdersResponse;
TCreativeArray = Array of TCreative;
TCreativesListArray = Array of TCreativesList;
- TDirectDealArray = Array of TDirectDeal;
- TDirectDealsListArray = Array of TDirectDealsList;
+ TDealServingMetadataArray = Array of TDealServingMetadata;
+ TDealServingMetadataDealPauseStatusArray = Array of TDealServingMetadataDealPauseStatus;
+ TDealTermsArray = Array of TDealTerms;
+ TDealTermsGuaranteedFixedPriceTermsArray = Array of TDealTermsGuaranteedFixedPriceTerms;
+ TDealTermsGuaranteedFixedPriceTermsBillingInfoArray = Array of TDealTermsGuaranteedFixedPriceTermsBillingInfo;
+ TDealTermsNonGuaranteedAuctionTermsArray = Array of TDealTermsNonGuaranteedAuctionTerms;
+ TDealTermsNonGuaranteedFixedPriceTermsArray = Array of TDealTermsNonGuaranteedFixedPriceTerms;
+ TDeleteOrderDealsRequestArray = Array of TDeleteOrderDealsRequest;
+ TDeleteOrderDealsResponseArray = Array of TDeleteOrderDealsResponse;
+ TDeliveryControlArray = Array of TDeliveryControl;
+ TDeliveryControlFrequencyCapArray = Array of TDeliveryControlFrequencyCap;
+ TDimensionArray = Array of TDimension;
+ TDimensionDimensionValueArray = Array of TDimensionDimensionValue;
+ TEditAllOrderDealsRequestArray = Array of TEditAllOrderDealsRequest;
+ TEditAllOrderDealsResponseArray = Array of TEditAllOrderDealsResponse;
+ TGetOffersResponseArray = Array of TGetOffersResponse;
+ TGetOrderDealsResponseArray = Array of TGetOrderDealsResponse;
+ TGetOrderNotesResponseArray = Array of TGetOrderNotesResponse;
+ TGetOrdersResponseArray = Array of TGetOrdersResponse;
+ TGetPublisherProfilesByAccountIdResponseArray = Array of TGetPublisherProfilesByAccountIdResponse;
+ TMarketplaceDealArray = Array of TMarketplaceDeal;
+ TMarketplaceDealPartyArray = Array of TMarketplaceDealParty;
+ TMarketplaceLabelArray = Array of TMarketplaceLabel;
+ TMarketplaceNoteArray = Array of TMarketplaceNote;
TPerformanceReportArray = Array of TPerformanceReport;
TPerformanceReportListArray = Array of TPerformanceReportList;
TPretargetingConfigArray = Array of TPretargetingConfig;
TPretargetingConfigListArray = Array of TPretargetingConfigList;
+ TPriceArray = Array of TPrice;
+ TPricePerBuyerArray = Array of TPricePerBuyer;
+ TPrivateDataArray = Array of TPrivateData;
+ TProductArray = Array of TProduct;
+ TProposalArray = Array of TProposal;
+ TPublisherProfileApiProtoArray = Array of TPublisherProfileApiProto;
+ TPublisherProvidedForecastArray = Array of TPublisherProvidedForecast;
+ TSellerArray = Array of TSeller;
+ TSharedTargetingArray = Array of TSharedTargeting;
+ TTargetingValueArray = Array of TTargetingValue;
+ TTargetingValueCreativeSizeArray = Array of TTargetingValueCreativeSize;
+ TTargetingValueDayPartTargetingArray = Array of TTargetingValueDayPartTargeting;
+ TTargetingValueDayPartTargetingDayPartArray = Array of TTargetingValueDayPartTargetingDayPart;
+ TTargetingValueSizeArray = Array of TTargetingValueSize;
+ TUpdatePrivateAuctionProposalRequestArray = Array of TUpdatePrivateAuctionProposalRequest;
//Anonymous types, using auto-generated names
TAccountTypebidderLocationItem = Class;
TCreativeTypecorrectionsItem = Class;
- TCreativeTypedisapprovalReasonsItem = Class;
TCreativeTypefilteringReasonsTypereasonsItem = Class;
TCreativeTypefilteringReasons = Class;
+ TCreativeTypenativeAdTypeappIcon = Class;
+ TCreativeTypenativeAdTypeimage = Class;
+ TCreativeTypenativeAdTypelogo = Class;
+ TCreativeTypenativeAd = Class;
+ TCreativeTypeservingRestrictionsItemTypecontextsItem = Class;
+ TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem = Class;
+ TCreativeTypeservingRestrictionsItem = Class;
TPretargetingConfigTypedimensionsItem = Class;
TPretargetingConfigTypeexcludedPlacementsItem = Class;
TPretargetingConfigTypeplacementsItem = Class;
+ TPretargetingConfigTypevideoPlayerSizesItem = Class;
TAccountTypebidderLocationArray = Array of TAccountTypebidderLocationItem;
TAccountsListTypeitemsArray = Array of TAccount;
+ TAddOrderDealsRequestTypedealsArray = Array of TMarketplaceDeal;
+ TAddOrderDealsResponseTypedealsArray = Array of TMarketplaceDeal;
+ TAddOrderNotesRequestTypenotesArray = Array of TMarketplaceNote;
+ TAddOrderNotesResponseTypenotesArray = Array of TMarketplaceNote;
TBillingInfoListTypeitemsArray = Array of TBillingInfo;
+ TCreateOrdersRequestTypeproposalsArray = Array of TProposal;
+ TCreateOrdersResponseTypeproposalsArray = Array of TProposal;
TCreativeTypecorrectionsArray = Array of TCreativeTypecorrectionsItem;
- TCreativeTypedisapprovalReasonsArray = Array of TCreativeTypedisapprovalReasonsItem;
TCreativeTypefilteringReasonsTypereasonsArray = Array of TCreativeTypefilteringReasonsTypereasonsItem;
+ TCreativeTypeservingRestrictionsItemTypecontextsArray = Array of TCreativeTypeservingRestrictionsItemTypecontextsItem;
+ TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsArray = Array of TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem;
+ TCreativeTypeservingRestrictionsArray = Array of TCreativeTypeservingRestrictionsItem;
TCreativesListTypeitemsArray = Array of TCreative;
- TDirectDealsListTypedirectDealsArray = Array of TDirectDeal;
+ TDealTermsGuaranteedFixedPriceTermsTypefixedPricesArray = Array of TPricePerBuyer;
+ TDealTermsNonGuaranteedAuctionTermsTypereservePricePerBuyersArray = Array of TPricePerBuyer;
+ TDealTermsNonGuaranteedFixedPriceTermsTypefixedPricesArray = Array of TPricePerBuyer;
+ TDeleteOrderDealsResponseTypedealsArray = Array of TMarketplaceDeal;
+ TDeliveryControlTypefrequencyCapsArray = Array of TDeliveryControlFrequencyCap;
+ TDimensionTypedimensionValuesArray = Array of TDimensionDimensionValue;
+ TEditAllOrderDealsRequestTypedealsArray = Array of TMarketplaceDeal;
+ TEditAllOrderDealsResponseTypedealsArray = Array of TMarketplaceDeal;
+ TGetOffersResponseTypeproductsArray = Array of TProduct;
+ TGetOrderDealsResponseTypedealsArray = Array of TMarketplaceDeal;
+ TGetOrderNotesResponseTypenotesArray = Array of TMarketplaceNote;
+ TGetOrdersResponseTypeproposalsArray = Array of TProposal;
+ TGetPublisherProfilesByAccountIdResponseTypeprofilesArray = Array of TPublisherProfileApiProto;
+ TMarketplaceDealTypesellerContactsArray = Array of TContactInformation;
+ TMarketplaceDealTypesharedTargetingsArray = Array of TSharedTargeting;
TPerformanceReportListTypeperformanceReportArray = Array of TPerformanceReport;
TPretargetingConfigTypedimensionsArray = Array of TPretargetingConfigTypedimensionsItem;
TPretargetingConfigTypeexcludedPlacementsArray = Array of TPretargetingConfigTypeexcludedPlacementsItem;
TPretargetingConfigTypeplacementsArray = Array of TPretargetingConfigTypeplacementsItem;
+ TPretargetingConfigTypevideoPlayerSizesArray = Array of TPretargetingConfigTypevideoPlayerSizesItem;
TPretargetingConfigListTypeitemsArray = Array of TPretargetingConfig;
+ TProductTypecreatorContactsArray = Array of TContactInformation;
+ TProductTypelabelsArray = Array of TMarketplaceLabel;
+ TProductTypesharedTargetingsArray = Array of TSharedTargeting;
+ TProposalTypebuyerContactsArray = Array of TContactInformation;
+ TProposalTypelabelsArray = Array of TMarketplaceLabel;
+ TProposalTypesellerContactsArray = Array of TContactInformation;
+ TPublisherProvidedForecastTypedimensionsArray = Array of TDimension;
+ TSharedTargetingTypeexclusionsArray = Array of TTargetingValue;
+ TSharedTargetingTypeinclusionsArray = Array of TTargetingValue;
+ TTargetingValueCreativeSizeTypecompanionSizesArray = Array of TTargetingValueSize;
+ TTargetingValueDayPartTargetingTypedayPartsArray = Array of TTargetingValueDayPartTargetingDayPart;
{ --------------------------------------------------------------------
TAccountTypebidderLocationItem
@@ -79,19 +195,22 @@ type
TAccountTypebidderLocationItem = Class(TGoogleBaseObject)
Private
+ FbidProtocol : String;
FmaximumQps : integer;
Fregion : String;
Furl : String;
Protected
//Property setters
- Procedure SetmaximumQps(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetbidProtocol(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmaximumQps(AIndex : Integer; const AValue : integer); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property maximumQps : integer Index 0 Read FmaximumQps Write SetmaximumQps;
- Property region : String Index 8 Read Fregion Write Setregion;
- Property url : String Index 16 Read Furl Write Seturl;
+ Property bidProtocol : String Index 0 Read FbidProtocol Write SetbidProtocol;
+ Property maximumQps : integer Index 8 Read FmaximumQps Write SetmaximumQps;
+ Property region : String Index 16 Read Fregion Write Setregion;
+ Property url : String Index 24 Read Furl Write Seturl;
end;
TAccountTypebidderLocationItemClass = Class of TAccountTypebidderLocationItem;
@@ -111,14 +230,14 @@ type
FnumberActiveCreatives : integer;
Protected
//Property setters
- Procedure SetbidderLocation(AIndex : Integer; AValue : TAccountTypebidderLocationArray); virtual;
+ Procedure SetbidderLocation(AIndex : Integer; const AValue : TAccountTypebidderLocationArray); virtual;
Procedure SetcookieMatchingNid(AIndex : Integer; const AValue : String); virtual;
Procedure SetcookieMatchingUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaximumActiveCreatives(AIndex : Integer; AValue : integer); virtual;
- Procedure SetmaximumTotalQps(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnumberActiveCreatives(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmaximumActiveCreatives(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaximumTotalQps(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumberActiveCreatives(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -146,7 +265,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAccountsListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAccountsListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -160,6 +279,95 @@ type
TAccountsListClass = Class of TAccountsList;
{ --------------------------------------------------------------------
+ TAddOrderDealsRequest
+ --------------------------------------------------------------------}
+
+ TAddOrderDealsRequest = Class(TGoogleBaseObject)
+ Private
+ Fdeals : TAddOrderDealsRequestTypedealsArray;
+ FproposalRevisionNumber : String;
+ FupdateAction : String;
+ Protected
+ //Property setters
+ Procedure Setdeals(AIndex : Integer; const AValue : TAddOrderDealsRequestTypedealsArray); virtual;
+ Procedure SetproposalRevisionNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupdateAction(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 deals : TAddOrderDealsRequestTypedealsArray Index 0 Read Fdeals Write Setdeals;
+ Property proposalRevisionNumber : String Index 8 Read FproposalRevisionNumber Write SetproposalRevisionNumber;
+ Property updateAction : String Index 16 Read FupdateAction Write SetupdateAction;
+ end;
+ TAddOrderDealsRequestClass = Class of TAddOrderDealsRequest;
+
+ { --------------------------------------------------------------------
+ TAddOrderDealsResponse
+ --------------------------------------------------------------------}
+
+ TAddOrderDealsResponse = Class(TGoogleBaseObject)
+ Private
+ Fdeals : TAddOrderDealsResponseTypedealsArray;
+ FproposalRevisionNumber : String;
+ Protected
+ //Property setters
+ Procedure Setdeals(AIndex : Integer; const AValue : TAddOrderDealsResponseTypedealsArray); virtual;
+ Procedure SetproposalRevisionNumber(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 deals : TAddOrderDealsResponseTypedealsArray Index 0 Read Fdeals Write Setdeals;
+ Property proposalRevisionNumber : String Index 8 Read FproposalRevisionNumber Write SetproposalRevisionNumber;
+ end;
+ TAddOrderDealsResponseClass = Class of TAddOrderDealsResponse;
+
+ { --------------------------------------------------------------------
+ TAddOrderNotesRequest
+ --------------------------------------------------------------------}
+
+ TAddOrderNotesRequest = Class(TGoogleBaseObject)
+ Private
+ Fnotes : TAddOrderNotesRequestTypenotesArray;
+ Protected
+ //Property setters
+ Procedure Setnotes(AIndex : Integer; const AValue : TAddOrderNotesRequestTypenotesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property notes : TAddOrderNotesRequestTypenotesArray Index 0 Read Fnotes Write Setnotes;
+ end;
+ TAddOrderNotesRequestClass = Class of TAddOrderNotesRequest;
+
+ { --------------------------------------------------------------------
+ TAddOrderNotesResponse
+ --------------------------------------------------------------------}
+
+ TAddOrderNotesResponse = Class(TGoogleBaseObject)
+ Private
+ Fnotes : TAddOrderNotesResponseTypenotesArray;
+ Protected
+ //Property setters
+ Procedure Setnotes(AIndex : Integer; const AValue : TAddOrderNotesResponseTypenotesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property notes : TAddOrderNotesResponseTypenotesArray Index 0 Read Fnotes Write Setnotes;
+ end;
+ TAddOrderNotesResponseClass = Class of TAddOrderNotesResponse;
+
+ { --------------------------------------------------------------------
TBillingInfo
--------------------------------------------------------------------}
@@ -171,9 +379,9 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetaccountId(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetaccountId(AIndex : Integer; const AValue : integer); virtual;
Procedure SetaccountName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbillingId(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetbillingId(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -198,7 +406,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TBillingInfoListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TBillingInfoListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -243,39 +451,94 @@ type
TBudgetClass = Class of TBudget;
{ --------------------------------------------------------------------
- TCreativeTypecorrectionsItem
+ TBuyer
--------------------------------------------------------------------}
- TCreativeTypecorrectionsItem = Class(TGoogleBaseObject)
+ TBuyer = Class(TGoogleBaseObject)
Private
- Fdetails : TStringArray;
- Freason : String;
+ FaccountId : String;
Protected
//Property setters
- Procedure Setdetails(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property accountId : String Index 0 Read FaccountId Write SetaccountId;
+ end;
+ TBuyerClass = Class of TBuyer;
+
+ { --------------------------------------------------------------------
+ TContactInformation
+ --------------------------------------------------------------------}
+
+ TContactInformation = Class(TGoogleBaseObject)
+ Private
+ Femail : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property email : String Index 0 Read Femail Write Setemail;
+ Property name : String Index 8 Read Fname Write Setname;
+ end;
+ TContactInformationClass = Class of TContactInformation;
+
+ { --------------------------------------------------------------------
+ TCreateOrdersRequest
+ --------------------------------------------------------------------}
+
+ TCreateOrdersRequest = Class(TGoogleBaseObject)
+ Private
+ Fproposals : TCreateOrdersRequestTypeproposalsArray;
+ FwebPropertyCode : String;
+ Protected
+ //Property setters
+ Procedure Setproposals(AIndex : Integer; const AValue : TCreateOrdersRequestTypeproposalsArray); virtual;
+ Procedure SetwebPropertyCode(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 details : TStringArray Index 0 Read Fdetails Write Setdetails;
- Property reason : String Index 8 Read Freason Write Setreason;
+ Property proposals : TCreateOrdersRequestTypeproposalsArray Index 0 Read Fproposals Write Setproposals;
+ Property webPropertyCode : String Index 8 Read FwebPropertyCode Write SetwebPropertyCode;
end;
- TCreativeTypecorrectionsItemClass = Class of TCreativeTypecorrectionsItem;
+ TCreateOrdersRequestClass = Class of TCreateOrdersRequest;
{ --------------------------------------------------------------------
- TCreativeTypedisapprovalReasonsItem
+ TCreateOrdersResponse
--------------------------------------------------------------------}
- TCreativeTypedisapprovalReasonsItem = Class(TGoogleBaseObject)
+ TCreateOrdersResponse = Class(TGoogleBaseObject)
+ Private
+ Fproposals : TCreateOrdersResponseTypeproposalsArray;
+ Protected
+ //Property setters
+ Procedure Setproposals(AIndex : Integer; const AValue : TCreateOrdersResponseTypeproposalsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property proposals : TCreateOrdersResponseTypeproposalsArray Index 0 Read Fproposals Write Setproposals;
+ end;
+ TCreateOrdersResponseClass = Class of TCreateOrdersResponse;
+
+ { --------------------------------------------------------------------
+ TCreativeTypecorrectionsItem
+ --------------------------------------------------------------------}
+
+ TCreativeTypecorrectionsItem = Class(TGoogleBaseObject)
Private
Fdetails : TStringArray;
Freason : String;
Protected
//Property setters
- Procedure Setdetails(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -286,7 +549,7 @@ type
Property details : TStringArray Index 0 Read Fdetails Write Setdetails;
Property reason : String Index 8 Read Freason Write Setreason;
end;
- TCreativeTypedisapprovalReasonsItemClass = Class of TCreativeTypedisapprovalReasonsItem;
+ TCreativeTypecorrectionsItemClass = Class of TCreativeTypecorrectionsItem;
{ --------------------------------------------------------------------
TCreativeTypefilteringReasonsTypereasonsItem
@@ -299,7 +562,7 @@ type
Protected
//Property setters
Procedure SetfilteringCount(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfilteringStatus(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetfilteringStatus(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property filteringCount : String Index 0 Read FfilteringCount Write SetfilteringCount;
@@ -318,7 +581,7 @@ type
Protected
//Property setters
Procedure Setdate(AIndex : Integer; const AValue : String); virtual;
- Procedure Setreasons(AIndex : Integer; AValue : TCreativeTypefilteringReasonsTypereasonsArray); virtual;
+ Procedure Setreasons(AIndex : Integer; const AValue : TCreativeTypefilteringReasonsTypereasonsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -331,6 +594,203 @@ type
TCreativeTypefilteringReasonsClass = Class of TCreativeTypefilteringReasons;
{ --------------------------------------------------------------------
+ TCreativeTypenativeAdTypeappIcon
+ --------------------------------------------------------------------}
+
+ TCreativeTypenativeAdTypeappIcon = Class(TGoogleBaseObject)
+ Private
+ Fheight : integer;
+ Furl : String;
+ Fwidth : integer;
+ Protected
+ //Property setters
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property height : integer Index 0 Read Fheight Write Setheight;
+ Property url : String Index 8 Read Furl Write Seturl;
+ Property width : integer Index 16 Read Fwidth Write Setwidth;
+ end;
+ TCreativeTypenativeAdTypeappIconClass = Class of TCreativeTypenativeAdTypeappIcon;
+
+ { --------------------------------------------------------------------
+ TCreativeTypenativeAdTypeimage
+ --------------------------------------------------------------------}
+
+ TCreativeTypenativeAdTypeimage = Class(TGoogleBaseObject)
+ Private
+ Fheight : integer;
+ Furl : String;
+ Fwidth : integer;
+ Protected
+ //Property setters
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property height : integer Index 0 Read Fheight Write Setheight;
+ Property url : String Index 8 Read Furl Write Seturl;
+ Property width : integer Index 16 Read Fwidth Write Setwidth;
+ end;
+ TCreativeTypenativeAdTypeimageClass = Class of TCreativeTypenativeAdTypeimage;
+
+ { --------------------------------------------------------------------
+ TCreativeTypenativeAdTypelogo
+ --------------------------------------------------------------------}
+
+ TCreativeTypenativeAdTypelogo = Class(TGoogleBaseObject)
+ Private
+ Fheight : integer;
+ Furl : String;
+ Fwidth : integer;
+ Protected
+ //Property setters
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property height : integer Index 0 Read Fheight Write Setheight;
+ Property url : String Index 8 Read Furl Write Seturl;
+ Property width : integer Index 16 Read Fwidth Write Setwidth;
+ end;
+ TCreativeTypenativeAdTypelogoClass = Class of TCreativeTypenativeAdTypelogo;
+
+ { --------------------------------------------------------------------
+ TCreativeTypenativeAd
+ --------------------------------------------------------------------}
+
+ TCreativeTypenativeAd = Class(TGoogleBaseObject)
+ Private
+ Fadvertiser : String;
+ FappIcon : TCreativeTypenativeAdTypeappIcon;
+ Fbody : String;
+ FcallToAction : String;
+ FclickTrackingUrl : String;
+ Fheadline : String;
+ Fimage : TCreativeTypenativeAdTypeimage;
+ FimpressionTrackingUrl : TStringArray;
+ Flogo : TCreativeTypenativeAdTypelogo;
+ Fprice : String;
+ FstarRating : double;
+ Fstore : String;
+ Protected
+ //Property setters
+ Procedure Setadvertiser(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetappIcon(AIndex : Integer; const AValue : TCreativeTypenativeAdTypeappIcon); virtual;
+ Procedure Setbody(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcallToAction(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclickTrackingUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setheadline(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TCreativeTypenativeAdTypeimage); virtual;
+ Procedure SetimpressionTrackingUrl(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setlogo(AIndex : Integer; const AValue : TCreativeTypenativeAdTypelogo); virtual;
+ Procedure Setprice(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstarRating(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setstore(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 advertiser : String Index 0 Read Fadvertiser Write Setadvertiser;
+ Property appIcon : TCreativeTypenativeAdTypeappIcon Index 8 Read FappIcon Write SetappIcon;
+ Property body : String Index 16 Read Fbody Write Setbody;
+ Property callToAction : String Index 24 Read FcallToAction Write SetcallToAction;
+ Property clickTrackingUrl : String Index 32 Read FclickTrackingUrl Write SetclickTrackingUrl;
+ Property headline : String Index 40 Read Fheadline Write Setheadline;
+ Property image : TCreativeTypenativeAdTypeimage Index 48 Read Fimage Write Setimage;
+ Property impressionTrackingUrl : TStringArray Index 56 Read FimpressionTrackingUrl Write SetimpressionTrackingUrl;
+ Property logo : TCreativeTypenativeAdTypelogo Index 64 Read Flogo Write Setlogo;
+ Property price : String Index 72 Read Fprice Write Setprice;
+ Property starRating : double Index 80 Read FstarRating Write SetstarRating;
+ Property store : String Index 88 Read Fstore Write Setstore;
+ end;
+ TCreativeTypenativeAdClass = Class of TCreativeTypenativeAd;
+
+ { --------------------------------------------------------------------
+ TCreativeTypeservingRestrictionsItemTypecontextsItem
+ --------------------------------------------------------------------}
+
+ TCreativeTypeservingRestrictionsItemTypecontextsItem = Class(TGoogleBaseObject)
+ Private
+ FauctionType : TStringArray;
+ FcontextType : String;
+ FgeoCriteriaId : TintegerArray;
+ Fplatform : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetauctionType(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetcontextType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetgeoCriteriaId(AIndex : Integer; const AValue : TintegerArray); virtual;
+ Procedure Setplatform(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 auctionType : TStringArray Index 0 Read FauctionType Write SetauctionType;
+ Property contextType : String Index 8 Read FcontextType Write SetcontextType;
+ Property geoCriteriaId : TintegerArray Index 16 Read FgeoCriteriaId Write SetgeoCriteriaId;
+ Property platform : TStringArray Index 24 Read Fplatform Write Setplatform;
+ end;
+ TCreativeTypeservingRestrictionsItemTypecontextsItemClass = Class of TCreativeTypeservingRestrictionsItemTypecontextsItem;
+
+ { --------------------------------------------------------------------
+ TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem
+ --------------------------------------------------------------------}
+
+ TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem = Class(TGoogleBaseObject)
+ Private
+ Fdetails : TStringArray;
+ Freason : String;
+ Protected
+ //Property setters
+ Procedure Setdetails(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setreason(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 details : TStringArray Index 0 Read Fdetails Write Setdetails;
+ Property reason : String Index 8 Read Freason Write Setreason;
+ end;
+ TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItemClass = Class of TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem;
+
+ { --------------------------------------------------------------------
+ TCreativeTypeservingRestrictionsItem
+ --------------------------------------------------------------------}
+
+ TCreativeTypeservingRestrictionsItem = Class(TGoogleBaseObject)
+ Private
+ Fcontexts : TCreativeTypeservingRestrictionsItemTypecontextsArray;
+ FdisapprovalReasons : TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsArray;
+ Freason : String;
+ Protected
+ //Property setters
+ Procedure Setcontexts(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsItemTypecontextsArray); virtual;
+ Procedure SetdisapprovalReasons(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsArray); virtual;
+ Procedure Setreason(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 contexts : TCreativeTypeservingRestrictionsItemTypecontextsArray Index 0 Read Fcontexts Write Setcontexts;
+ Property disapprovalReasons : TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsArray Index 8 Read FdisapprovalReasons Write SetdisapprovalReasons;
+ Property reason : String Index 16 Read Freason Write Setreason;
+ end;
+ TCreativeTypeservingRestrictionsItemClass = Class of TCreativeTypeservingRestrictionsItem;
+
+ { --------------------------------------------------------------------
TCreative
--------------------------------------------------------------------}
@@ -338,46 +798,58 @@ type
Private
FHTMLSnippet : String;
FaccountId : integer;
+ FadChoicesDestinationUrl : String;
FadvertiserId : TStringArray;
FadvertiserName : String;
FagencyId : String;
+ FapiUploadTimestamp : TDatetime;
Fattribute : TintegerArray;
FbuyerCreativeId : String;
FclickThroughUrl : TStringArray;
Fcorrections : TCreativeTypecorrectionsArray;
- FdisapprovalReasons : TCreativeTypedisapprovalReasonsArray;
+ FdealsStatus : String;
FfilteringReasons : TCreativeTypefilteringReasons;
Fheight : integer;
+ FimpressionTrackingUrl : TStringArray;
Fkind : String;
+ FnativeAd : TCreativeTypenativeAd;
+ FopenAuctionStatus : String;
FproductCategories : TintegerArray;
FrestrictedCategories : TintegerArray;
FsensitiveCategories : TintegerArray;
- Fstatus : String;
+ FservingRestrictions : TCreativeTypeservingRestrictionsArray;
FvendorType : TintegerArray;
+ Fversion : integer;
FvideoURL : String;
Fwidth : integer;
Protected
//Property setters
Procedure SetHTMLSnippet(AIndex : Integer; const AValue : String); virtual;
- Procedure SetaccountId(AIndex : Integer; AValue : integer); virtual;
- Procedure SetadvertiserId(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetaccountId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetadChoicesDestinationUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetadvertiserId(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetadvertiserName(AIndex : Integer; const AValue : String); virtual;
Procedure SetagencyId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setattribute(AIndex : Integer; AValue : TintegerArray); virtual;
+ Procedure SetapiUploadTimestamp(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setattribute(AIndex : Integer; const AValue : TintegerArray); virtual;
Procedure SetbuyerCreativeId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetclickThroughUrl(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setcorrections(AIndex : Integer; AValue : TCreativeTypecorrectionsArray); virtual;
- Procedure SetdisapprovalReasons(AIndex : Integer; AValue : TCreativeTypedisapprovalReasonsArray); virtual;
- Procedure SetfilteringReasons(AIndex : Integer; AValue : TCreativeTypefilteringReasons); virtual;
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetclickThroughUrl(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setcorrections(AIndex : Integer; const AValue : TCreativeTypecorrectionsArray); virtual;
+ Procedure SetdealsStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfilteringReasons(AIndex : Integer; const AValue : TCreativeTypefilteringReasons); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetimpressionTrackingUrl(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetproductCategories(AIndex : Integer; AValue : TintegerArray); virtual;
- Procedure SetrestrictedCategories(AIndex : Integer; AValue : TintegerArray); virtual;
- Procedure SetsensitiveCategories(AIndex : Integer; AValue : TintegerArray); virtual;
- Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvendorType(AIndex : Integer; AValue : TintegerArray); virtual;
+ Procedure SetnativeAd(AIndex : Integer; const AValue : TCreativeTypenativeAd); virtual;
+ Procedure SetopenAuctionStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproductCategories(AIndex : Integer; const AValue : TintegerArray); virtual;
+ Procedure SetrestrictedCategories(AIndex : Integer; const AValue : TintegerArray); virtual;
+ Procedure SetsensitiveCategories(AIndex : Integer; const AValue : TintegerArray); virtual;
+ Procedure SetservingRestrictions(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsArray); virtual;
+ Procedure SetvendorType(AIndex : Integer; const AValue : TintegerArray); virtual;
+ Procedure Setversion(AIndex : Integer; const AValue : integer); virtual;
Procedure SetvideoURL(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -386,24 +858,30 @@ type
Published
Property HTMLSnippet : String Index 0 Read FHTMLSnippet Write SetHTMLSnippet;
Property accountId : integer Index 8 Read FaccountId Write SetaccountId;
- Property advertiserId : TStringArray Index 16 Read FadvertiserId Write SetadvertiserId;
- Property advertiserName : String Index 24 Read FadvertiserName Write SetadvertiserName;
- Property agencyId : String Index 32 Read FagencyId Write SetagencyId;
- Property attribute : TintegerArray Index 40 Read Fattribute Write Setattribute;
- Property buyerCreativeId : String Index 48 Read FbuyerCreativeId Write SetbuyerCreativeId;
- Property clickThroughUrl : TStringArray Index 56 Read FclickThroughUrl Write SetclickThroughUrl;
- Property corrections : TCreativeTypecorrectionsArray Index 64 Read Fcorrections Write Setcorrections;
- Property disapprovalReasons : TCreativeTypedisapprovalReasonsArray Index 72 Read FdisapprovalReasons Write SetdisapprovalReasons;
- Property filteringReasons : TCreativeTypefilteringReasons Index 80 Read FfilteringReasons Write SetfilteringReasons;
- Property height : integer Index 88 Read Fheight Write Setheight;
- Property kind : String Index 96 Read Fkind Write Setkind;
- Property productCategories : TintegerArray Index 104 Read FproductCategories Write SetproductCategories;
- Property restrictedCategories : TintegerArray Index 112 Read FrestrictedCategories Write SetrestrictedCategories;
- Property sensitiveCategories : TintegerArray Index 120 Read FsensitiveCategories Write SetsensitiveCategories;
- Property status : String Index 128 Read Fstatus Write Setstatus;
- Property vendorType : TintegerArray Index 136 Read FvendorType Write SetvendorType;
- Property videoURL : String Index 144 Read FvideoURL Write SetvideoURL;
- Property width : integer Index 152 Read Fwidth Write Setwidth;
+ Property adChoicesDestinationUrl : String Index 16 Read FadChoicesDestinationUrl Write SetadChoicesDestinationUrl;
+ Property advertiserId : TStringArray Index 24 Read FadvertiserId Write SetadvertiserId;
+ Property advertiserName : String Index 32 Read FadvertiserName Write SetadvertiserName;
+ Property agencyId : String Index 40 Read FagencyId Write SetagencyId;
+ Property apiUploadTimestamp : TDatetime Index 48 Read FapiUploadTimestamp Write SetapiUploadTimestamp;
+ Property attribute : TintegerArray Index 56 Read Fattribute Write Setattribute;
+ Property buyerCreativeId : String Index 64 Read FbuyerCreativeId Write SetbuyerCreativeId;
+ Property clickThroughUrl : TStringArray Index 72 Read FclickThroughUrl Write SetclickThroughUrl;
+ Property corrections : TCreativeTypecorrectionsArray Index 80 Read Fcorrections Write Setcorrections;
+ Property dealsStatus : String Index 88 Read FdealsStatus Write SetdealsStatus;
+ Property filteringReasons : TCreativeTypefilteringReasons Index 96 Read FfilteringReasons Write SetfilteringReasons;
+ Property height : integer Index 104 Read Fheight Write Setheight;
+ Property impressionTrackingUrl : TStringArray Index 112 Read FimpressionTrackingUrl Write SetimpressionTrackingUrl;
+ Property kind : String Index 120 Read Fkind Write Setkind;
+ Property nativeAd : TCreativeTypenativeAd Index 128 Read FnativeAd Write SetnativeAd;
+ Property openAuctionStatus : String Index 136 Read FopenAuctionStatus Write SetopenAuctionStatus;
+ Property productCategories : TintegerArray Index 144 Read FproductCategories Write SetproductCategories;
+ Property restrictedCategories : TintegerArray Index 152 Read FrestrictedCategories Write SetrestrictedCategories;
+ Property sensitiveCategories : TintegerArray Index 160 Read FsensitiveCategories Write SetsensitiveCategories;
+ Property servingRestrictions : TCreativeTypeservingRestrictionsArray Index 168 Read FservingRestrictions Write SetservingRestrictions;
+ Property vendorType : TintegerArray Index 176 Read FvendorType Write SetvendorType;
+ Property version : integer Index 184 Read Fversion Write Setversion;
+ Property videoURL : String Index 192 Read FvideoURL Write SetvideoURL;
+ Property width : integer Index 200 Read Fwidth Write Setwidth;
end;
TCreativeClass = Class of TCreative;
@@ -418,7 +896,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TCreativesListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCreativesListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -434,76 +912,632 @@ type
TCreativesListClass = Class of TCreativesList;
{ --------------------------------------------------------------------
- TDirectDeal
+ TDealServingMetadata
--------------------------------------------------------------------}
- TDirectDeal = Class(TGoogleBaseObject)
+ TDealServingMetadata = Class(TGoogleBaseObject)
Private
- FaccountId : integer;
- Fadvertiser : String;
- FcurrencyCode : String;
- FendTime : String;
- FfixedCpm : String;
- Fid : String;
- Fkind : String;
+ FdealPauseStatus : TDealServingMetadataDealPauseStatus;
+ Protected
+ //Property setters
+ Procedure SetdealPauseStatus(AIndex : Integer; const AValue : TDealServingMetadataDealPauseStatus); virtual;
+ Public
+ Published
+ Property dealPauseStatus : TDealServingMetadataDealPauseStatus Index 0 Read FdealPauseStatus Write SetdealPauseStatus;
+ end;
+ TDealServingMetadataClass = Class of TDealServingMetadata;
+
+ { --------------------------------------------------------------------
+ TDealServingMetadataDealPauseStatus
+ --------------------------------------------------------------------}
+
+ TDealServingMetadataDealPauseStatus = Class(TGoogleBaseObject)
+ Private
+ FfirstPausedBy : String;
+ FhasBuyerPaused : boolean;
+ FhasSellerPaused : boolean;
+ Protected
+ //Property setters
+ Procedure SetfirstPausedBy(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethasBuyerPaused(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SethasSellerPaused(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property firstPausedBy : String Index 0 Read FfirstPausedBy Write SetfirstPausedBy;
+ Property hasBuyerPaused : boolean Index 8 Read FhasBuyerPaused Write SethasBuyerPaused;
+ Property hasSellerPaused : boolean Index 16 Read FhasSellerPaused Write SethasSellerPaused;
+ end;
+ TDealServingMetadataDealPauseStatusClass = Class of TDealServingMetadataDealPauseStatus;
+
+ { --------------------------------------------------------------------
+ TDealTerms
+ --------------------------------------------------------------------}
+
+ TDealTerms = Class(TGoogleBaseObject)
+ Private
+ FbrandingType : String;
+ Fdescription : String;
+ FestimatedGrossSpend : TPrice;
+ FestimatedImpressionsPerDay : String;
+ FguaranteedFixedPriceTerms : TDealTermsGuaranteedFixedPriceTerms;
+ FnonGuaranteedAuctionTerms : TDealTermsNonGuaranteedAuctionTerms;
+ FnonGuaranteedFixedPriceTerms : TDealTermsNonGuaranteedFixedPriceTerms;
+ FsellerTimeZone : String;
+ Protected
+ //Property setters
+ Procedure SetbrandingType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetestimatedGrossSpend(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetestimatedImpressionsPerDay(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetguaranteedFixedPriceTerms(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTerms); virtual;
+ Procedure SetnonGuaranteedAuctionTerms(AIndex : Integer; const AValue : TDealTermsNonGuaranteedAuctionTerms); virtual;
+ Procedure SetnonGuaranteedFixedPriceTerms(AIndex : Integer; const AValue : TDealTermsNonGuaranteedFixedPriceTerms); virtual;
+ Procedure SetsellerTimeZone(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property brandingType : String Index 0 Read FbrandingType Write SetbrandingType;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property estimatedGrossSpend : TPrice Index 16 Read FestimatedGrossSpend Write SetestimatedGrossSpend;
+ Property estimatedImpressionsPerDay : String Index 24 Read FestimatedImpressionsPerDay Write SetestimatedImpressionsPerDay;
+ Property guaranteedFixedPriceTerms : TDealTermsGuaranteedFixedPriceTerms Index 32 Read FguaranteedFixedPriceTerms Write SetguaranteedFixedPriceTerms;
+ Property nonGuaranteedAuctionTerms : TDealTermsNonGuaranteedAuctionTerms Index 40 Read FnonGuaranteedAuctionTerms Write SetnonGuaranteedAuctionTerms;
+ Property nonGuaranteedFixedPriceTerms : TDealTermsNonGuaranteedFixedPriceTerms Index 48 Read FnonGuaranteedFixedPriceTerms Write SetnonGuaranteedFixedPriceTerms;
+ Property sellerTimeZone : String Index 56 Read FsellerTimeZone Write SetsellerTimeZone;
+ end;
+ TDealTermsClass = Class of TDealTerms;
+
+ { --------------------------------------------------------------------
+ TDealTermsGuaranteedFixedPriceTerms
+ --------------------------------------------------------------------}
+
+ TDealTermsGuaranteedFixedPriceTerms = Class(TGoogleBaseObject)
+ Private
+ FbillingInfo : TDealTermsGuaranteedFixedPriceTermsBillingInfo;
+ FfixedPrices : TDealTermsGuaranteedFixedPriceTermsTypefixedPricesArray;
+ FguaranteedImpressions : String;
+ FguaranteedLooks : String;
+ Protected
+ //Property setters
+ Procedure SetbillingInfo(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTermsBillingInfo); virtual;
+ Procedure SetfixedPrices(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTermsTypefixedPricesArray); virtual;
+ Procedure SetguaranteedImpressions(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetguaranteedLooks(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 billingInfo : TDealTermsGuaranteedFixedPriceTermsBillingInfo Index 0 Read FbillingInfo Write SetbillingInfo;
+ Property fixedPrices : TDealTermsGuaranteedFixedPriceTermsTypefixedPricesArray Index 8 Read FfixedPrices Write SetfixedPrices;
+ Property guaranteedImpressions : String Index 16 Read FguaranteedImpressions Write SetguaranteedImpressions;
+ Property guaranteedLooks : String Index 24 Read FguaranteedLooks Write SetguaranteedLooks;
+ end;
+ TDealTermsGuaranteedFixedPriceTermsClass = Class of TDealTermsGuaranteedFixedPriceTerms;
+
+ { --------------------------------------------------------------------
+ TDealTermsGuaranteedFixedPriceTermsBillingInfo
+ --------------------------------------------------------------------}
+
+ TDealTermsGuaranteedFixedPriceTermsBillingInfo = Class(TGoogleBaseObject)
+ Private
+ FcurrencyConversionTimeMs : String;
+ ForiginalContractedQuantity : String;
+ Fprice : TPrice;
+ Protected
+ //Property setters
+ Procedure SetcurrencyConversionTimeMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoriginalContractedQuantity(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual;
+ Public
+ Published
+ Property currencyConversionTimeMs : String Index 0 Read FcurrencyConversionTimeMs Write SetcurrencyConversionTimeMs;
+ Property originalContractedQuantity : String Index 8 Read ForiginalContractedQuantity Write SetoriginalContractedQuantity;
+ Property price : TPrice Index 16 Read Fprice Write Setprice;
+ end;
+ TDealTermsGuaranteedFixedPriceTermsBillingInfoClass = Class of TDealTermsGuaranteedFixedPriceTermsBillingInfo;
+
+ { --------------------------------------------------------------------
+ TDealTermsNonGuaranteedAuctionTerms
+ --------------------------------------------------------------------}
+
+ TDealTermsNonGuaranteedAuctionTerms = Class(TGoogleBaseObject)
+ Private
+ FautoOptimizePrivateAuction : boolean;
+ FreservePricePerBuyers : TDealTermsNonGuaranteedAuctionTermsTypereservePricePerBuyersArray;
+ Protected
+ //Property setters
+ Procedure SetautoOptimizePrivateAuction(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetreservePricePerBuyers(AIndex : Integer; const AValue : TDealTermsNonGuaranteedAuctionTermsTypereservePricePerBuyersArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property autoOptimizePrivateAuction : boolean Index 0 Read FautoOptimizePrivateAuction Write SetautoOptimizePrivateAuction;
+ Property reservePricePerBuyers : TDealTermsNonGuaranteedAuctionTermsTypereservePricePerBuyersArray Index 8 Read FreservePricePerBuyers Write SetreservePricePerBuyers;
+ end;
+ TDealTermsNonGuaranteedAuctionTermsClass = Class of TDealTermsNonGuaranteedAuctionTerms;
+
+ { --------------------------------------------------------------------
+ TDealTermsNonGuaranteedFixedPriceTerms
+ --------------------------------------------------------------------}
+
+ TDealTermsNonGuaranteedFixedPriceTerms = Class(TGoogleBaseObject)
+ Private
+ FfixedPrices : TDealTermsNonGuaranteedFixedPriceTermsTypefixedPricesArray;
+ Protected
+ //Property setters
+ Procedure SetfixedPrices(AIndex : Integer; const AValue : TDealTermsNonGuaranteedFixedPriceTermsTypefixedPricesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property fixedPrices : TDealTermsNonGuaranteedFixedPriceTermsTypefixedPricesArray Index 0 Read FfixedPrices Write SetfixedPrices;
+ end;
+ TDealTermsNonGuaranteedFixedPriceTermsClass = Class of TDealTermsNonGuaranteedFixedPriceTerms;
+
+ { --------------------------------------------------------------------
+ TDeleteOrderDealsRequest
+ --------------------------------------------------------------------}
+
+ TDeleteOrderDealsRequest = Class(TGoogleBaseObject)
+ Private
+ FdealIds : TStringArray;
+ FproposalRevisionNumber : String;
+ FupdateAction : String;
+ Protected
+ //Property setters
+ Procedure SetdealIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetproposalRevisionNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupdateAction(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 dealIds : TStringArray Index 0 Read FdealIds Write SetdealIds;
+ Property proposalRevisionNumber : String Index 8 Read FproposalRevisionNumber Write SetproposalRevisionNumber;
+ Property updateAction : String Index 16 Read FupdateAction Write SetupdateAction;
+ end;
+ TDeleteOrderDealsRequestClass = Class of TDeleteOrderDealsRequest;
+
+ { --------------------------------------------------------------------
+ TDeleteOrderDealsResponse
+ --------------------------------------------------------------------}
+
+ TDeleteOrderDealsResponse = Class(TGoogleBaseObject)
+ Private
+ Fdeals : TDeleteOrderDealsResponseTypedealsArray;
+ FproposalRevisionNumber : String;
+ Protected
+ //Property setters
+ Procedure Setdeals(AIndex : Integer; const AValue : TDeleteOrderDealsResponseTypedealsArray); virtual;
+ Procedure SetproposalRevisionNumber(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 deals : TDeleteOrderDealsResponseTypedealsArray Index 0 Read Fdeals Write Setdeals;
+ Property proposalRevisionNumber : String Index 8 Read FproposalRevisionNumber Write SetproposalRevisionNumber;
+ end;
+ TDeleteOrderDealsResponseClass = Class of TDeleteOrderDealsResponse;
+
+ { --------------------------------------------------------------------
+ TDeliveryControl
+ --------------------------------------------------------------------}
+
+ TDeliveryControl = Class(TGoogleBaseObject)
+ Private
+ FcreativeBlockingLevel : String;
+ FdeliveryRateType : String;
+ FfrequencyCaps : TDeliveryControlTypefrequencyCapsArray;
+ Protected
+ //Property setters
+ Procedure SetcreativeBlockingLevel(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdeliveryRateType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfrequencyCaps(AIndex : Integer; const AValue : TDeliveryControlTypefrequencyCapsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property creativeBlockingLevel : String Index 0 Read FcreativeBlockingLevel Write SetcreativeBlockingLevel;
+ Property deliveryRateType : String Index 8 Read FdeliveryRateType Write SetdeliveryRateType;
+ Property frequencyCaps : TDeliveryControlTypefrequencyCapsArray Index 16 Read FfrequencyCaps Write SetfrequencyCaps;
+ end;
+ TDeliveryControlClass = Class of TDeliveryControl;
+
+ { --------------------------------------------------------------------
+ TDeliveryControlFrequencyCap
+ --------------------------------------------------------------------}
+
+ TDeliveryControlFrequencyCap = Class(TGoogleBaseObject)
+ Private
+ FmaxImpressions : integer;
+ FnumTimeUnits : integer;
+ FtimeUnitType : String;
+ Protected
+ //Property setters
+ Procedure SetmaxImpressions(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumTimeUnits(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettimeUnitType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property maxImpressions : integer Index 0 Read FmaxImpressions Write SetmaxImpressions;
+ Property numTimeUnits : integer Index 8 Read FnumTimeUnits Write SetnumTimeUnits;
+ Property timeUnitType : String Index 16 Read FtimeUnitType Write SettimeUnitType;
+ end;
+ TDeliveryControlFrequencyCapClass = Class of TDeliveryControlFrequencyCap;
+
+ { --------------------------------------------------------------------
+ TDimension
+ --------------------------------------------------------------------}
+
+ TDimension = Class(TGoogleBaseObject)
+ Private
+ FdimensionType : String;
+ FdimensionValues : TDimensionTypedimensionValuesArray;
+ Protected
+ //Property setters
+ Procedure SetdimensionType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdimensionValues(AIndex : Integer; const AValue : TDimensionTypedimensionValuesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property dimensionType : String Index 0 Read FdimensionType Write SetdimensionType;
+ Property dimensionValues : TDimensionTypedimensionValuesArray Index 8 Read FdimensionValues Write SetdimensionValues;
+ end;
+ TDimensionClass = Class of TDimension;
+
+ { --------------------------------------------------------------------
+ TDimensionDimensionValue
+ --------------------------------------------------------------------}
+
+ TDimensionDimensionValue = Class(TGoogleBaseObject)
+ Private
+ Fid : integer;
Fname : String;
- FprivateExchangeMinCpm : String;
- FpublisherBlocksOverriden : boolean;
- FsellerNetwork : String;
- FstartTime : String;
Protected
//Property setters
- Procedure SetaccountId(AIndex : Integer; AValue : integer); virtual;
- Procedure Setadvertiser(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfixedCpm(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : integer); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprivateExchangeMinCpm(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublisherBlocksOverriden(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsellerNetwork(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property accountId : integer Index 0 Read FaccountId Write SetaccountId;
- Property advertiser : String Index 8 Read Fadvertiser Write Setadvertiser;
- Property currencyCode : String Index 16 Read FcurrencyCode Write SetcurrencyCode;
- Property endTime : String Index 24 Read FendTime Write SetendTime;
- Property fixedCpm : String Index 32 Read FfixedCpm Write SetfixedCpm;
- Property id : String Index 40 Read Fid Write Setid;
- Property kind : String Index 48 Read Fkind Write Setkind;
- Property name : String Index 56 Read Fname Write Setname;
- Property privateExchangeMinCpm : String Index 64 Read FprivateExchangeMinCpm Write SetprivateExchangeMinCpm;
- Property publisherBlocksOverriden : boolean Index 72 Read FpublisherBlocksOverriden Write SetpublisherBlocksOverriden;
- Property sellerNetwork : String Index 80 Read FsellerNetwork Write SetsellerNetwork;
- Property startTime : String Index 88 Read FstartTime Write SetstartTime;
+ Property id : integer Index 0 Read Fid Write Setid;
+ Property name : String Index 8 Read Fname Write Setname;
+ end;
+ TDimensionDimensionValueClass = Class of TDimensionDimensionValue;
+
+ { --------------------------------------------------------------------
+ TEditAllOrderDealsRequest
+ --------------------------------------------------------------------}
+
+ TEditAllOrderDealsRequest = Class(TGoogleBaseObject)
+ Private
+ Fdeals : TEditAllOrderDealsRequestTypedealsArray;
+ Fproposal : TProposal;
+ FproposalRevisionNumber : String;
+ FupdateAction : String;
+ Protected
+ //Property setters
+ Procedure Setdeals(AIndex : Integer; const AValue : TEditAllOrderDealsRequestTypedealsArray); virtual;
+ Procedure Setproposal(AIndex : Integer; const AValue : TProposal); virtual;
+ Procedure SetproposalRevisionNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupdateAction(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 deals : TEditAllOrderDealsRequestTypedealsArray Index 0 Read Fdeals Write Setdeals;
+ Property proposal : TProposal Index 8 Read Fproposal Write Setproposal;
+ Property proposalRevisionNumber : String Index 16 Read FproposalRevisionNumber Write SetproposalRevisionNumber;
+ Property updateAction : String Index 24 Read FupdateAction Write SetupdateAction;
+ end;
+ TEditAllOrderDealsRequestClass = Class of TEditAllOrderDealsRequest;
+
+ { --------------------------------------------------------------------
+ TEditAllOrderDealsResponse
+ --------------------------------------------------------------------}
+
+ TEditAllOrderDealsResponse = Class(TGoogleBaseObject)
+ Private
+ Fdeals : TEditAllOrderDealsResponseTypedealsArray;
+ ForderRevisionNumber : String;
+ Protected
+ //Property setters
+ Procedure Setdeals(AIndex : Integer; const AValue : TEditAllOrderDealsResponseTypedealsArray); virtual;
+ Procedure SetorderRevisionNumber(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 deals : TEditAllOrderDealsResponseTypedealsArray Index 0 Read Fdeals Write Setdeals;
+ Property orderRevisionNumber : String Index 8 Read ForderRevisionNumber Write SetorderRevisionNumber;
+ end;
+ TEditAllOrderDealsResponseClass = Class of TEditAllOrderDealsResponse;
+
+ { --------------------------------------------------------------------
+ TGetOffersResponse
+ --------------------------------------------------------------------}
+
+ TGetOffersResponse = Class(TGoogleBaseObject)
+ Private
+ Fproducts : TGetOffersResponseTypeproductsArray;
+ Protected
+ //Property setters
+ Procedure Setproducts(AIndex : Integer; const AValue : TGetOffersResponseTypeproductsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property products : TGetOffersResponseTypeproductsArray Index 0 Read Fproducts Write Setproducts;
+ end;
+ TGetOffersResponseClass = Class of TGetOffersResponse;
+
+ { --------------------------------------------------------------------
+ TGetOrderDealsResponse
+ --------------------------------------------------------------------}
+
+ TGetOrderDealsResponse = Class(TGoogleBaseObject)
+ Private
+ Fdeals : TGetOrderDealsResponseTypedealsArray;
+ Protected
+ //Property setters
+ Procedure Setdeals(AIndex : Integer; const AValue : TGetOrderDealsResponseTypedealsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property deals : TGetOrderDealsResponseTypedealsArray Index 0 Read Fdeals Write Setdeals;
+ end;
+ TGetOrderDealsResponseClass = Class of TGetOrderDealsResponse;
+
+ { --------------------------------------------------------------------
+ TGetOrderNotesResponse
+ --------------------------------------------------------------------}
+
+ TGetOrderNotesResponse = Class(TGoogleBaseObject)
+ Private
+ Fnotes : TGetOrderNotesResponseTypenotesArray;
+ Protected
+ //Property setters
+ Procedure Setnotes(AIndex : Integer; const AValue : TGetOrderNotesResponseTypenotesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property notes : TGetOrderNotesResponseTypenotesArray Index 0 Read Fnotes Write Setnotes;
+ end;
+ TGetOrderNotesResponseClass = Class of TGetOrderNotesResponse;
+
+ { --------------------------------------------------------------------
+ TGetOrdersResponse
+ --------------------------------------------------------------------}
+
+ TGetOrdersResponse = Class(TGoogleBaseObject)
+ Private
+ Fproposals : TGetOrdersResponseTypeproposalsArray;
+ Protected
+ //Property setters
+ Procedure Setproposals(AIndex : Integer; const AValue : TGetOrdersResponseTypeproposalsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property proposals : TGetOrdersResponseTypeproposalsArray Index 0 Read Fproposals Write Setproposals;
end;
- TDirectDealClass = Class of TDirectDeal;
+ TGetOrdersResponseClass = Class of TGetOrdersResponse;
{ --------------------------------------------------------------------
- TDirectDealsList
+ TGetPublisherProfilesByAccountIdResponse
--------------------------------------------------------------------}
- TDirectDealsList = Class(TGoogleBaseObject)
+ TGetPublisherProfilesByAccountIdResponse = Class(TGoogleBaseObject)
Private
- FdirectDeals : TDirectDealsListTypedirectDealsArray;
+ Fprofiles : TGetPublisherProfilesByAccountIdResponseTypeprofilesArray;
+ Protected
+ //Property setters
+ Procedure Setprofiles(AIndex : Integer; const AValue : TGetPublisherProfilesByAccountIdResponseTypeprofilesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property profiles : TGetPublisherProfilesByAccountIdResponseTypeprofilesArray Index 0 Read Fprofiles Write Setprofiles;
+ end;
+ TGetPublisherProfilesByAccountIdResponseClass = Class of TGetPublisherProfilesByAccountIdResponse;
+
+ { --------------------------------------------------------------------
+ TMarketplaceDeal
+ --------------------------------------------------------------------}
+
+ TMarketplaceDeal = Class(TGoogleBaseObject)
+ Private
+ FbuyerPrivateData : TPrivateData;
+ FcreationTimeMs : String;
+ FcreativePreApprovalPolicy : String;
+ FcreativeSafeFrameCompatibility : String;
+ FdealId : String;
+ FdealServingMetadata : TDealServingMetadata;
+ FdeliveryControl : TDeliveryControl;
+ FexternalDealId : String;
+ FflightEndTimeMs : String;
+ FflightStartTimeMs : String;
+ FinventoryDescription : String;
Fkind : String;
+ FlastUpdateTimeMs : String;
+ Fname : String;
+ FproductId : String;
+ FproductRevisionNumber : String;
+ FprogrammaticCreativeSource : String;
+ FproposalId : String;
+ FsellerContacts : TMarketplaceDealTypesellerContactsArray;
+ FsharedTargetings : TMarketplaceDealTypesharedTargetingsArray;
+ FsyndicationProduct : String;
+ Fterms : TDealTerms;
+ FwebPropertyCode : String;
Protected
//Property setters
- Procedure SetdirectDeals(AIndex : Integer; AValue : TDirectDealsListTypedirectDealsArray); virtual;
+ Procedure SetbuyerPrivateData(AIndex : Integer; const AValue : TPrivateData); virtual;
+ Procedure SetcreationTimeMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreativePreApprovalPolicy(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreativeSafeFrameCompatibility(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdealId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdealServingMetadata(AIndex : Integer; const AValue : TDealServingMetadata); virtual;
+ Procedure SetdeliveryControl(AIndex : Integer; const AValue : TDeliveryControl); virtual;
+ Procedure SetexternalDealId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetflightEndTimeMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetflightStartTimeMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinventoryDescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlastUpdateTimeMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproductRevisionNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprogrammaticCreativeSource(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproposalId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsellerContacts(AIndex : Integer; const AValue : TMarketplaceDealTypesellerContactsArray); virtual;
+ Procedure SetsharedTargetings(AIndex : Integer; const AValue : TMarketplaceDealTypesharedTargetingsArray); virtual;
+ Procedure SetsyndicationProduct(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setterms(AIndex : Integer; const AValue : TDealTerms); virtual;
+ Procedure SetwebPropertyCode(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 directDeals : TDirectDealsListTypedirectDealsArray Index 0 Read FdirectDeals Write SetdirectDeals;
- Property kind : String Index 8 Read Fkind Write Setkind;
+ Property buyerPrivateData : TPrivateData Index 0 Read FbuyerPrivateData Write SetbuyerPrivateData;
+ Property creationTimeMs : String Index 8 Read FcreationTimeMs Write SetcreationTimeMs;
+ Property creativePreApprovalPolicy : String Index 16 Read FcreativePreApprovalPolicy Write SetcreativePreApprovalPolicy;
+ Property creativeSafeFrameCompatibility : String Index 24 Read FcreativeSafeFrameCompatibility Write SetcreativeSafeFrameCompatibility;
+ Property dealId : String Index 32 Read FdealId Write SetdealId;
+ Property dealServingMetadata : TDealServingMetadata Index 40 Read FdealServingMetadata Write SetdealServingMetadata;
+ Property deliveryControl : TDeliveryControl Index 48 Read FdeliveryControl Write SetdeliveryControl;
+ Property externalDealId : String Index 56 Read FexternalDealId Write SetexternalDealId;
+ Property flightEndTimeMs : String Index 64 Read FflightEndTimeMs Write SetflightEndTimeMs;
+ Property flightStartTimeMs : String Index 72 Read FflightStartTimeMs Write SetflightStartTimeMs;
+ Property inventoryDescription : String Index 80 Read FinventoryDescription Write SetinventoryDescription;
+ Property kind : String Index 88 Read Fkind Write Setkind;
+ Property lastUpdateTimeMs : String Index 96 Read FlastUpdateTimeMs Write SetlastUpdateTimeMs;
+ Property name : String Index 104 Read Fname Write Setname;
+ Property productId : String Index 112 Read FproductId Write SetproductId;
+ Property productRevisionNumber : String Index 120 Read FproductRevisionNumber Write SetproductRevisionNumber;
+ Property programmaticCreativeSource : String Index 128 Read FprogrammaticCreativeSource Write SetprogrammaticCreativeSource;
+ Property proposalId : String Index 136 Read FproposalId Write SetproposalId;
+ Property sellerContacts : TMarketplaceDealTypesellerContactsArray Index 144 Read FsellerContacts Write SetsellerContacts;
+ Property sharedTargetings : TMarketplaceDealTypesharedTargetingsArray Index 152 Read FsharedTargetings Write SetsharedTargetings;
+ Property syndicationProduct : String Index 160 Read FsyndicationProduct Write SetsyndicationProduct;
+ Property terms : TDealTerms Index 168 Read Fterms Write Setterms;
+ Property webPropertyCode : String Index 176 Read FwebPropertyCode Write SetwebPropertyCode;
+ end;
+ TMarketplaceDealClass = Class of TMarketplaceDeal;
+
+ { --------------------------------------------------------------------
+ TMarketplaceDealParty
+ --------------------------------------------------------------------}
+
+ TMarketplaceDealParty = Class(TGoogleBaseObject)
+ Private
+ Fbuyer : TBuyer;
+ Fseller : TSeller;
+ Protected
+ //Property setters
+ Procedure Setbuyer(AIndex : Integer; const AValue : TBuyer); virtual;
+ Procedure Setseller(AIndex : Integer; const AValue : TSeller); virtual;
+ Public
+ Published
+ Property buyer : TBuyer Index 0 Read Fbuyer Write Setbuyer;
+ Property seller : TSeller Index 8 Read Fseller Write Setseller;
+ end;
+ TMarketplaceDealPartyClass = Class of TMarketplaceDealParty;
+
+ { --------------------------------------------------------------------
+ TMarketplaceLabel
+ --------------------------------------------------------------------}
+
+ TMarketplaceLabel = Class(TGoogleBaseObject)
+ Private
+ FaccountId : String;
+ FcreateTimeMs : String;
+ FdeprecatedMarketplaceDealParty : TMarketplaceDealParty;
+ F_label : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreateTimeMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdeprecatedMarketplaceDealParty(AIndex : Integer; const AValue : TMarketplaceDealParty); virtual;
+ Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property accountId : String Index 0 Read FaccountId Write SetaccountId;
+ Property createTimeMs : String Index 8 Read FcreateTimeMs Write SetcreateTimeMs;
+ Property deprecatedMarketplaceDealParty : TMarketplaceDealParty Index 16 Read FdeprecatedMarketplaceDealParty Write SetdeprecatedMarketplaceDealParty;
+ Property _label : String Index 24 Read F_label Write Set_label;
+ end;
+ TMarketplaceLabelClass = Class of TMarketplaceLabel;
+
+ { --------------------------------------------------------------------
+ TMarketplaceNote
+ --------------------------------------------------------------------}
+
+ TMarketplaceNote = Class(TGoogleBaseObject)
+ Private
+ FcreatorRole : String;
+ FdealId : String;
+ Fkind : String;
+ Fnote : String;
+ FnoteId : String;
+ FproposalId : String;
+ FproposalRevisionNumber : String;
+ FtimestampMs : String;
+ Protected
+ //Property setters
+ Procedure SetcreatorRole(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdealId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnote(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnoteId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproposalId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproposalRevisionNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettimestampMs(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property creatorRole : String Index 0 Read FcreatorRole Write SetcreatorRole;
+ Property dealId : String Index 8 Read FdealId Write SetdealId;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property note : String Index 24 Read Fnote Write Setnote;
+ Property noteId : String Index 32 Read FnoteId Write SetnoteId;
+ Property proposalId : String Index 40 Read FproposalId Write SetproposalId;
+ Property proposalRevisionNumber : String Index 48 Read FproposalRevisionNumber Write SetproposalRevisionNumber;
+ Property timestampMs : String Index 56 Read FtimestampMs Write SettimestampMs;
end;
- TDirectDealsListClass = Class of TDirectDealsList;
+ TMarketplaceNoteClass = Class of TMarketplaceNote;
{ --------------------------------------------------------------------
TPerformanceReport
@@ -511,10 +1545,14 @@ type
TPerformanceReport = Class(TGoogleBaseObject)
Private
+ FbidRate : double;
+ FbidRequestRate : double;
FcalloutStatusRate : TTJSONSchemaArray;
FcookieMatcherStatusRate : TTJSONSchemaArray;
FcreativeStatusRate : TTJSONSchemaArray;
+ FfilteredBidRate : double;
FhostedMatchStatusRate : TTJSONSchemaArray;
+ FinventoryMatchRate : double;
Fkind : String;
Flatency50thPercentile : double;
Flatency85thPercentile : double;
@@ -526,47 +1564,61 @@ type
FquotaConfiguredLimit : double;
FquotaThrottledLimit : double;
Fregion : String;
+ FsuccessfulRequestRate : double;
Ftimestamp : String;
+ FunsuccessfulRequestRate : double;
Protected
//Property setters
- Procedure SetcalloutStatusRate(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
- Procedure SetcookieMatcherStatusRate(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
- Procedure SetcreativeStatusRate(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
- Procedure SethostedMatchStatusRate(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
+ Procedure SetbidRate(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetbidRequestRate(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetcalloutStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
+ Procedure SetcookieMatcherStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
+ Procedure SetcreativeStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
+ Procedure SetfilteredBidRate(AIndex : Integer; const AValue : double); virtual;
+ Procedure SethostedMatchStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
+ Procedure SetinventoryMatchRate(AIndex : Integer; const AValue : double); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlatency50thPercentile(AIndex : Integer; AValue : double); virtual;
- Procedure Setlatency85thPercentile(AIndex : Integer; AValue : double); virtual;
- Procedure Setlatency95thPercentile(AIndex : Integer; AValue : double); virtual;
- Procedure SetnoQuotaInRegion(AIndex : Integer; AValue : double); virtual;
- Procedure SetoutOfQuota(AIndex : Integer; AValue : double); virtual;
- Procedure SetpixelMatchRequests(AIndex : Integer; AValue : double); virtual;
- Procedure SetpixelMatchResponses(AIndex : Integer; AValue : double); virtual;
- Procedure SetquotaConfiguredLimit(AIndex : Integer; AValue : double); virtual;
- Procedure SetquotaThrottledLimit(AIndex : Integer; AValue : double); virtual;
+ Procedure Setlatency50thPercentile(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlatency85thPercentile(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlatency95thPercentile(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetnoQuotaInRegion(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetoutOfQuota(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetpixelMatchRequests(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetpixelMatchResponses(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetquotaConfiguredLimit(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetquotaThrottledLimit(AIndex : Integer; const AValue : double); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsuccessfulRequestRate(AIndex : Integer; const AValue : double); virtual;
Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetunsuccessfulRequestRate(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 calloutStatusRate : TTJSONSchemaArray Index 0 Read FcalloutStatusRate Write SetcalloutStatusRate;
- Property cookieMatcherStatusRate : TTJSONSchemaArray Index 8 Read FcookieMatcherStatusRate Write SetcookieMatcherStatusRate;
- Property creativeStatusRate : TTJSONSchemaArray Index 16 Read FcreativeStatusRate Write SetcreativeStatusRate;
- Property hostedMatchStatusRate : TTJSONSchemaArray Index 24 Read FhostedMatchStatusRate Write SethostedMatchStatusRate;
- Property kind : String Index 32 Read Fkind Write Setkind;
- Property latency50thPercentile : double Index 40 Read Flatency50thPercentile Write Setlatency50thPercentile;
- Property latency85thPercentile : double Index 48 Read Flatency85thPercentile Write Setlatency85thPercentile;
- Property latency95thPercentile : double Index 56 Read Flatency95thPercentile Write Setlatency95thPercentile;
- Property noQuotaInRegion : double Index 64 Read FnoQuotaInRegion Write SetnoQuotaInRegion;
- Property outOfQuota : double Index 72 Read FoutOfQuota Write SetoutOfQuota;
- Property pixelMatchRequests : double Index 80 Read FpixelMatchRequests Write SetpixelMatchRequests;
- Property pixelMatchResponses : double Index 88 Read FpixelMatchResponses Write SetpixelMatchResponses;
- Property quotaConfiguredLimit : double Index 96 Read FquotaConfiguredLimit Write SetquotaConfiguredLimit;
- Property quotaThrottledLimit : double Index 104 Read FquotaThrottledLimit Write SetquotaThrottledLimit;
- Property region : String Index 112 Read Fregion Write Setregion;
- Property timestamp : String Index 120 Read Ftimestamp Write Settimestamp;
+ Property bidRate : double Index 0 Read FbidRate Write SetbidRate;
+ Property bidRequestRate : double Index 8 Read FbidRequestRate Write SetbidRequestRate;
+ Property calloutStatusRate : TTJSONSchemaArray Index 16 Read FcalloutStatusRate Write SetcalloutStatusRate;
+ Property cookieMatcherStatusRate : TTJSONSchemaArray Index 24 Read FcookieMatcherStatusRate Write SetcookieMatcherStatusRate;
+ Property creativeStatusRate : TTJSONSchemaArray Index 32 Read FcreativeStatusRate Write SetcreativeStatusRate;
+ Property filteredBidRate : double Index 40 Read FfilteredBidRate Write SetfilteredBidRate;
+ Property hostedMatchStatusRate : TTJSONSchemaArray Index 48 Read FhostedMatchStatusRate Write SethostedMatchStatusRate;
+ Property inventoryMatchRate : double Index 56 Read FinventoryMatchRate Write SetinventoryMatchRate;
+ Property kind : String Index 64 Read Fkind Write Setkind;
+ Property latency50thPercentile : double Index 72 Read Flatency50thPercentile Write Setlatency50thPercentile;
+ Property latency85thPercentile : double Index 80 Read Flatency85thPercentile Write Setlatency85thPercentile;
+ Property latency95thPercentile : double Index 88 Read Flatency95thPercentile Write Setlatency95thPercentile;
+ Property noQuotaInRegion : double Index 96 Read FnoQuotaInRegion Write SetnoQuotaInRegion;
+ Property outOfQuota : double Index 104 Read FoutOfQuota Write SetoutOfQuota;
+ Property pixelMatchRequests : double Index 112 Read FpixelMatchRequests Write SetpixelMatchRequests;
+ Property pixelMatchResponses : double Index 120 Read FpixelMatchResponses Write SetpixelMatchResponses;
+ Property quotaConfiguredLimit : double Index 128 Read FquotaConfiguredLimit Write SetquotaConfiguredLimit;
+ Property quotaThrottledLimit : double Index 136 Read FquotaThrottledLimit Write SetquotaThrottledLimit;
+ Property region : String Index 144 Read Fregion Write Setregion;
+ Property successfulRequestRate : double Index 152 Read FsuccessfulRequestRate Write SetsuccessfulRequestRate;
+ Property timestamp : String Index 160 Read Ftimestamp Write Settimestamp;
+ Property unsuccessfulRequestRate : double Index 168 Read FunsuccessfulRequestRate Write SetunsuccessfulRequestRate;
end;
TPerformanceReportClass = Class of TPerformanceReport;
@@ -581,7 +1633,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetperformanceReport(AIndex : Integer; AValue : TPerformanceReportListTypeperformanceReportArray); virtual;
+ Procedure SetperformanceReport(AIndex : Integer; const AValue : TPerformanceReportListTypeperformanceReportArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -653,6 +1705,28 @@ type
TPretargetingConfigTypeplacementsItemClass = Class of TPretargetingConfigTypeplacementsItem;
{ --------------------------------------------------------------------
+ TPretargetingConfigTypevideoPlayerSizesItem
+ --------------------------------------------------------------------}
+
+ TPretargetingConfigTypevideoPlayerSizesItem = Class(TGoogleBaseObject)
+ Private
+ FaspectRatio : String;
+ FminHeight : String;
+ FminWidth : String;
+ Protected
+ //Property setters
+ Procedure SetaspectRatio(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetminHeight(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetminWidth(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property aspectRatio : String Index 0 Read FaspectRatio Write SetaspectRatio;
+ Property minHeight : String Index 8 Read FminHeight Write SetminHeight;
+ Property minWidth : String Index 16 Read FminWidth Write SetminWidth;
+ end;
+ TPretargetingConfigTypevideoPlayerSizesItemClass = Class of TPretargetingConfigTypevideoPlayerSizesItem;
+
+ { --------------------------------------------------------------------
TPretargetingConfig
--------------------------------------------------------------------}
@@ -681,31 +1755,33 @@ type
FuserLists : TStringArray;
FvendorTypes : TStringArray;
Fverticals : TStringArray;
+ FvideoPlayerSizes : TPretargetingConfigTypevideoPlayerSizesArray;
Protected
//Property setters
Procedure SetbillingId(AIndex : Integer; const AValue : String); virtual;
Procedure SetconfigId(AIndex : Integer; const AValue : String); virtual;
Procedure SetconfigName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreativeType(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setdimensions(AIndex : Integer; AValue : TPretargetingConfigTypedimensionsArray); virtual;
- Procedure SetexcludedContentLabels(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetexcludedGeoCriteriaIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetexcludedPlacements(AIndex : Integer; AValue : TPretargetingConfigTypeexcludedPlacementsArray); virtual;
- Procedure SetexcludedUserLists(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetexcludedVerticals(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetgeoCriteriaIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetisActive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcreativeType(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setdimensions(AIndex : Integer; const AValue : TPretargetingConfigTypedimensionsArray); virtual;
+ Procedure SetexcludedContentLabels(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetexcludedGeoCriteriaIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetexcludedPlacements(AIndex : Integer; const AValue : TPretargetingConfigTypeexcludedPlacementsArray); virtual;
+ Procedure SetexcludedUserLists(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetexcludedVerticals(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetgeoCriteriaIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetisActive(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlanguages(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetmobileCarriers(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetmobileDevices(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetmobileOperatingSystemVersions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setplacements(AIndex : Integer; AValue : TPretargetingConfigTypeplacementsArray); virtual;
- Procedure Setplatforms(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsupportedCreativeAttributes(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetuserLists(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetvendorTypes(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setverticals(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setlanguages(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetmobileCarriers(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetmobileDevices(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetmobileOperatingSystemVersions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setplacements(AIndex : Integer; const AValue : TPretargetingConfigTypeplacementsArray); virtual;
+ Procedure Setplatforms(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetsupportedCreativeAttributes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetuserLists(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetvendorTypes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setverticals(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetvideoPlayerSizes(AIndex : Integer; const AValue : TPretargetingConfigTypevideoPlayerSizesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -735,6 +1811,7 @@ type
Property userLists : TStringArray Index 160 Read FuserLists Write SetuserLists;
Property vendorTypes : TStringArray Index 168 Read FvendorTypes Write SetvendorTypes;
Property verticals : TStringArray Index 176 Read Fverticals Write Setverticals;
+ Property videoPlayerSizes : TPretargetingConfigTypevideoPlayerSizesArray Index 184 Read FvideoPlayerSizes Write SetvideoPlayerSizes;
end;
TPretargetingConfigClass = Class of TPretargetingConfig;
@@ -748,7 +1825,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TPretargetingConfigListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPretargetingConfigListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -762,6 +1839,541 @@ type
TPretargetingConfigListClass = Class of TPretargetingConfigList;
{ --------------------------------------------------------------------
+ TPrice
+ --------------------------------------------------------------------}
+
+ TPrice = Class(TGoogleBaseObject)
+ Private
+ FamountMicros : double;
+ FcurrencyCode : String;
+ FpricingType : String;
+ Protected
+ //Property setters
+ Procedure SetamountMicros(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpricingType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property amountMicros : double Index 0 Read FamountMicros Write SetamountMicros;
+ Property currencyCode : String Index 8 Read FcurrencyCode Write SetcurrencyCode;
+ Property pricingType : String Index 16 Read FpricingType Write SetpricingType;
+ end;
+ TPriceClass = Class of TPrice;
+
+ { --------------------------------------------------------------------
+ TPricePerBuyer
+ --------------------------------------------------------------------}
+
+ TPricePerBuyer = Class(TGoogleBaseObject)
+ Private
+ FauctionTier : String;
+ Fbuyer : TBuyer;
+ Fprice : TPrice;
+ Protected
+ //Property setters
+ Procedure SetauctionTier(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setbuyer(AIndex : Integer; const AValue : TBuyer); virtual;
+ Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual;
+ Public
+ Published
+ Property auctionTier : String Index 0 Read FauctionTier Write SetauctionTier;
+ Property buyer : TBuyer Index 8 Read Fbuyer Write Setbuyer;
+ Property price : TPrice Index 16 Read Fprice Write Setprice;
+ end;
+ TPricePerBuyerClass = Class of TPricePerBuyer;
+
+ { --------------------------------------------------------------------
+ TPrivateData
+ --------------------------------------------------------------------}
+
+ TPrivateData = Class(TGoogleBaseObject)
+ Private
+ FreferenceId : String;
+ FreferencePayload : String;
+ Protected
+ //Property setters
+ Procedure SetreferenceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferencePayload(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property referenceId : String Index 0 Read FreferenceId Write SetreferenceId;
+ Property referencePayload : String Index 8 Read FreferencePayload Write SetreferencePayload;
+ end;
+ TPrivateDataClass = Class of TPrivateData;
+
+ { --------------------------------------------------------------------
+ TProduct
+ --------------------------------------------------------------------}
+
+ TProduct = Class(TGoogleBaseObject)
+ Private
+ FcreationTimeMs : String;
+ FcreatorContacts : TProductTypecreatorContactsArray;
+ FdeliveryControl : TDeliveryControl;
+ FflightEndTimeMs : String;
+ FflightStartTimeMs : String;
+ FhasCreatorSignedOff : boolean;
+ FinventorySource : String;
+ Fkind : String;
+ Flabels : TProductTypelabelsArray;
+ FlastUpdateTimeMs : String;
+ FlegacyOfferId : String;
+ Fname : String;
+ FprivateAuctionId : String;
+ FproductId : String;
+ FpublisherProfileId : String;
+ FpublisherProvidedForecast : TPublisherProvidedForecast;
+ FrevisionNumber : String;
+ Fseller : TSeller;
+ FsharedTargetings : TProductTypesharedTargetingsArray;
+ Fstate : String;
+ FsyndicationProduct : String;
+ Fterms : TDealTerms;
+ FwebPropertyCode : String;
+ Protected
+ //Property setters
+ Procedure SetcreationTimeMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreatorContacts(AIndex : Integer; const AValue : TProductTypecreatorContactsArray); virtual;
+ Procedure SetdeliveryControl(AIndex : Integer; const AValue : TDeliveryControl); virtual;
+ Procedure SetflightEndTimeMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetflightStartTimeMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethasCreatorSignedOff(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetinventorySource(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TProductTypelabelsArray); virtual;
+ Procedure SetlastUpdateTimeMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlegacyOfferId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprivateAuctionId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpublisherProfileId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpublisherProvidedForecast(AIndex : Integer; const AValue : TPublisherProvidedForecast); virtual;
+ Procedure SetrevisionNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setseller(AIndex : Integer; const AValue : TSeller); virtual;
+ Procedure SetsharedTargetings(AIndex : Integer; const AValue : TProductTypesharedTargetingsArray); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsyndicationProduct(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setterms(AIndex : Integer; const AValue : TDealTerms); virtual;
+ Procedure SetwebPropertyCode(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 creationTimeMs : String Index 0 Read FcreationTimeMs Write SetcreationTimeMs;
+ Property creatorContacts : TProductTypecreatorContactsArray Index 8 Read FcreatorContacts Write SetcreatorContacts;
+ Property deliveryControl : TDeliveryControl Index 16 Read FdeliveryControl Write SetdeliveryControl;
+ Property flightEndTimeMs : String Index 24 Read FflightEndTimeMs Write SetflightEndTimeMs;
+ Property flightStartTimeMs : String Index 32 Read FflightStartTimeMs Write SetflightStartTimeMs;
+ Property hasCreatorSignedOff : boolean Index 40 Read FhasCreatorSignedOff Write SethasCreatorSignedOff;
+ Property inventorySource : String Index 48 Read FinventorySource Write SetinventorySource;
+ Property kind : String Index 56 Read Fkind Write Setkind;
+ Property labels : TProductTypelabelsArray Index 64 Read Flabels Write Setlabels;
+ Property lastUpdateTimeMs : String Index 72 Read FlastUpdateTimeMs Write SetlastUpdateTimeMs;
+ Property legacyOfferId : String Index 80 Read FlegacyOfferId Write SetlegacyOfferId;
+ Property name : String Index 88 Read Fname Write Setname;
+ Property privateAuctionId : String Index 96 Read FprivateAuctionId Write SetprivateAuctionId;
+ Property productId : String Index 104 Read FproductId Write SetproductId;
+ Property publisherProfileId : String Index 112 Read FpublisherProfileId Write SetpublisherProfileId;
+ Property publisherProvidedForecast : TPublisherProvidedForecast Index 120 Read FpublisherProvidedForecast Write SetpublisherProvidedForecast;
+ Property revisionNumber : String Index 128 Read FrevisionNumber Write SetrevisionNumber;
+ Property seller : TSeller Index 136 Read Fseller Write Setseller;
+ Property sharedTargetings : TProductTypesharedTargetingsArray Index 144 Read FsharedTargetings Write SetsharedTargetings;
+ Property state : String Index 152 Read Fstate Write Setstate;
+ Property syndicationProduct : String Index 160 Read FsyndicationProduct Write SetsyndicationProduct;
+ Property terms : TDealTerms Index 168 Read Fterms Write Setterms;
+ Property webPropertyCode : String Index 176 Read FwebPropertyCode Write SetwebPropertyCode;
+ end;
+ TProductClass = Class of TProduct;
+
+ { --------------------------------------------------------------------
+ TProposal
+ --------------------------------------------------------------------}
+
+ TProposal = Class(TGoogleBaseObject)
+ Private
+ FbilledBuyer : TBuyer;
+ Fbuyer : TBuyer;
+ FbuyerContacts : TProposalTypebuyerContactsArray;
+ FbuyerPrivateData : TPrivateData;
+ FhasBuyerSignedOff : boolean;
+ FhasSellerSignedOff : boolean;
+ FinventorySource : String;
+ FisRenegotiating : boolean;
+ FisSetupComplete : boolean;
+ Fkind : String;
+ Flabels : TProposalTypelabelsArray;
+ FlastUpdaterOrCommentorRole : String;
+ Fname : String;
+ FnegotiationId : String;
+ ForiginatorRole : String;
+ FprivateAuctionId : String;
+ FproposalId : String;
+ FproposalState : String;
+ FrevisionNumber : String;
+ FrevisionTimeMs : String;
+ Fseller : TSeller;
+ FsellerContacts : TProposalTypesellerContactsArray;
+ Protected
+ //Property setters
+ Procedure SetbilledBuyer(AIndex : Integer; const AValue : TBuyer); virtual;
+ Procedure Setbuyer(AIndex : Integer; const AValue : TBuyer); virtual;
+ Procedure SetbuyerContacts(AIndex : Integer; const AValue : TProposalTypebuyerContactsArray); virtual;
+ Procedure SetbuyerPrivateData(AIndex : Integer; const AValue : TPrivateData); virtual;
+ Procedure SethasBuyerSignedOff(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SethasSellerSignedOff(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetinventorySource(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetisRenegotiating(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisSetupComplete(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TProposalTypelabelsArray); virtual;
+ Procedure SetlastUpdaterOrCommentorRole(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnegotiationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoriginatorRole(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprivateAuctionId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproposalId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproposalState(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrevisionNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrevisionTimeMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setseller(AIndex : Integer; const AValue : TSeller); virtual;
+ Procedure SetsellerContacts(AIndex : Integer; const AValue : TProposalTypesellerContactsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property billedBuyer : TBuyer Index 0 Read FbilledBuyer Write SetbilledBuyer;
+ Property buyer : TBuyer Index 8 Read Fbuyer Write Setbuyer;
+ Property buyerContacts : TProposalTypebuyerContactsArray Index 16 Read FbuyerContacts Write SetbuyerContacts;
+ Property buyerPrivateData : TPrivateData Index 24 Read FbuyerPrivateData Write SetbuyerPrivateData;
+ Property hasBuyerSignedOff : boolean Index 32 Read FhasBuyerSignedOff Write SethasBuyerSignedOff;
+ Property hasSellerSignedOff : boolean Index 40 Read FhasSellerSignedOff Write SethasSellerSignedOff;
+ Property inventorySource : String Index 48 Read FinventorySource Write SetinventorySource;
+ Property isRenegotiating : boolean Index 56 Read FisRenegotiating Write SetisRenegotiating;
+ Property isSetupComplete : boolean Index 64 Read FisSetupComplete Write SetisSetupComplete;
+ Property kind : String Index 72 Read Fkind Write Setkind;
+ Property labels : TProposalTypelabelsArray Index 80 Read Flabels Write Setlabels;
+ Property lastUpdaterOrCommentorRole : String Index 88 Read FlastUpdaterOrCommentorRole Write SetlastUpdaterOrCommentorRole;
+ Property name : String Index 96 Read Fname Write Setname;
+ Property negotiationId : String Index 104 Read FnegotiationId Write SetnegotiationId;
+ Property originatorRole : String Index 112 Read ForiginatorRole Write SetoriginatorRole;
+ Property privateAuctionId : String Index 120 Read FprivateAuctionId Write SetprivateAuctionId;
+ Property proposalId : String Index 128 Read FproposalId Write SetproposalId;
+ Property proposalState : String Index 136 Read FproposalState Write SetproposalState;
+ Property revisionNumber : String Index 144 Read FrevisionNumber Write SetrevisionNumber;
+ Property revisionTimeMs : String Index 152 Read FrevisionTimeMs Write SetrevisionTimeMs;
+ Property seller : TSeller Index 160 Read Fseller Write Setseller;
+ Property sellerContacts : TProposalTypesellerContactsArray Index 168 Read FsellerContacts Write SetsellerContacts;
+ end;
+ TProposalClass = Class of TProposal;
+
+ { --------------------------------------------------------------------
+ TPublisherProfileApiProto
+ --------------------------------------------------------------------}
+
+ TPublisherProfileApiProto = Class(TGoogleBaseObject)
+ Private
+ FaccountId : String;
+ Faudience : String;
+ FbuyerPitchStatement : String;
+ FdirectContact : String;
+ Fexchange : String;
+ FgooglePlusLink : String;
+ FisParent : boolean;
+ FisPublished : boolean;
+ Fkind : String;
+ FlogoUrl : String;
+ FmediaKitLink : String;
+ Fname : String;
+ Foverview : String;
+ FprofileId : integer;
+ FprogrammaticContact : String;
+ FpublisherDomains : TStringArray;
+ FpublisherProfileId : String;
+ FpublisherProvidedForecast : TPublisherProvidedForecast;
+ FrateCardInfoLink : String;
+ FsamplePageLink : String;
+ Fseller : TSeller;
+ Fstate : String;
+ FtopHeadlines : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setaudience(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbuyerPitchStatement(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdirectContact(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setexchange(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetgooglePlusLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetisParent(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisPublished(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlogoUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmediaKitLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setoverview(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprofileId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetprogrammaticContact(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpublisherDomains(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetpublisherProfileId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpublisherProvidedForecast(AIndex : Integer; const AValue : TPublisherProvidedForecast); virtual;
+ Procedure SetrateCardInfoLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsamplePageLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setseller(AIndex : Integer; const AValue : TSeller); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettopHeadlines(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 accountId : String Index 0 Read FaccountId Write SetaccountId;
+ Property audience : String Index 8 Read Faudience Write Setaudience;
+ Property buyerPitchStatement : String Index 16 Read FbuyerPitchStatement Write SetbuyerPitchStatement;
+ Property directContact : String Index 24 Read FdirectContact Write SetdirectContact;
+ Property exchange : String Index 32 Read Fexchange Write Setexchange;
+ Property googlePlusLink : String Index 40 Read FgooglePlusLink Write SetgooglePlusLink;
+ Property isParent : boolean Index 48 Read FisParent Write SetisParent;
+ Property isPublished : boolean Index 56 Read FisPublished Write SetisPublished;
+ Property kind : String Index 64 Read Fkind Write Setkind;
+ Property logoUrl : String Index 72 Read FlogoUrl Write SetlogoUrl;
+ Property mediaKitLink : String Index 80 Read FmediaKitLink Write SetmediaKitLink;
+ Property name : String Index 88 Read Fname Write Setname;
+ Property overview : String Index 96 Read Foverview Write Setoverview;
+ Property profileId : integer Index 104 Read FprofileId Write SetprofileId;
+ Property programmaticContact : String Index 112 Read FprogrammaticContact Write SetprogrammaticContact;
+ Property publisherDomains : TStringArray Index 120 Read FpublisherDomains Write SetpublisherDomains;
+ Property publisherProfileId : String Index 128 Read FpublisherProfileId Write SetpublisherProfileId;
+ Property publisherProvidedForecast : TPublisherProvidedForecast Index 136 Read FpublisherProvidedForecast Write SetpublisherProvidedForecast;
+ Property rateCardInfoLink : String Index 144 Read FrateCardInfoLink Write SetrateCardInfoLink;
+ Property samplePageLink : String Index 152 Read FsamplePageLink Write SetsamplePageLink;
+ Property seller : TSeller Index 160 Read Fseller Write Setseller;
+ Property state : String Index 168 Read Fstate Write Setstate;
+ Property topHeadlines : TStringArray Index 176 Read FtopHeadlines Write SettopHeadlines;
+ end;
+ TPublisherProfileApiProtoClass = Class of TPublisherProfileApiProto;
+
+ { --------------------------------------------------------------------
+ TPublisherProvidedForecast
+ --------------------------------------------------------------------}
+
+ TPublisherProvidedForecast = Class(TGoogleBaseObject)
+ Private
+ Fdimensions : TPublisherProvidedForecastTypedimensionsArray;
+ FweeklyImpressions : String;
+ FweeklyUniques : String;
+ Protected
+ //Property setters
+ Procedure Setdimensions(AIndex : Integer; const AValue : TPublisherProvidedForecastTypedimensionsArray); virtual;
+ Procedure SetweeklyImpressions(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetweeklyUniques(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 dimensions : TPublisherProvidedForecastTypedimensionsArray Index 0 Read Fdimensions Write Setdimensions;
+ Property weeklyImpressions : String Index 8 Read FweeklyImpressions Write SetweeklyImpressions;
+ Property weeklyUniques : String Index 16 Read FweeklyUniques Write SetweeklyUniques;
+ end;
+ TPublisherProvidedForecastClass = Class of TPublisherProvidedForecast;
+
+ { --------------------------------------------------------------------
+ TSeller
+ --------------------------------------------------------------------}
+
+ TSeller = Class(TGoogleBaseObject)
+ Private
+ FaccountId : String;
+ FsubAccountId : String;
+ Protected
+ //Property setters
+ Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsubAccountId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property accountId : String Index 0 Read FaccountId Write SetaccountId;
+ Property subAccountId : String Index 8 Read FsubAccountId Write SetsubAccountId;
+ end;
+ TSellerClass = Class of TSeller;
+
+ { --------------------------------------------------------------------
+ TSharedTargeting
+ --------------------------------------------------------------------}
+
+ TSharedTargeting = Class(TGoogleBaseObject)
+ Private
+ Fexclusions : TSharedTargetingTypeexclusionsArray;
+ Finclusions : TSharedTargetingTypeinclusionsArray;
+ Fkey : String;
+ Protected
+ //Property setters
+ Procedure Setexclusions(AIndex : Integer; const AValue : TSharedTargetingTypeexclusionsArray); virtual;
+ Procedure Setinclusions(AIndex : Integer; const AValue : TSharedTargetingTypeinclusionsArray); virtual;
+ Procedure Setkey(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 exclusions : TSharedTargetingTypeexclusionsArray Index 0 Read Fexclusions Write Setexclusions;
+ Property inclusions : TSharedTargetingTypeinclusionsArray Index 8 Read Finclusions Write Setinclusions;
+ Property key : String Index 16 Read Fkey Write Setkey;
+ end;
+ TSharedTargetingClass = Class of TSharedTargeting;
+
+ { --------------------------------------------------------------------
+ TTargetingValue
+ --------------------------------------------------------------------}
+
+ TTargetingValue = Class(TGoogleBaseObject)
+ Private
+ FcreativeSizeValue : TTargetingValueCreativeSize;
+ FdayPartTargetingValue : TTargetingValueDayPartTargeting;
+ FlongValue : String;
+ FstringValue : String;
+ Protected
+ //Property setters
+ Procedure SetcreativeSizeValue(AIndex : Integer; const AValue : TTargetingValueCreativeSize); virtual;
+ Procedure SetdayPartTargetingValue(AIndex : Integer; const AValue : TTargetingValueDayPartTargeting); virtual;
+ Procedure SetlongValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property creativeSizeValue : TTargetingValueCreativeSize Index 0 Read FcreativeSizeValue Write SetcreativeSizeValue;
+ Property dayPartTargetingValue : TTargetingValueDayPartTargeting Index 8 Read FdayPartTargetingValue Write SetdayPartTargetingValue;
+ Property longValue : String Index 16 Read FlongValue Write SetlongValue;
+ Property stringValue : String Index 24 Read FstringValue Write SetstringValue;
+ end;
+ TTargetingValueClass = Class of TTargetingValue;
+
+ { --------------------------------------------------------------------
+ TTargetingValueCreativeSize
+ --------------------------------------------------------------------}
+
+ TTargetingValueCreativeSize = Class(TGoogleBaseObject)
+ Private
+ FcompanionSizes : TTargetingValueCreativeSizeTypecompanionSizesArray;
+ FcreativeSizeType : String;
+ Fsize : TTargetingValueSize;
+ Protected
+ //Property setters
+ Procedure SetcompanionSizes(AIndex : Integer; const AValue : TTargetingValueCreativeSizeTypecompanionSizesArray); virtual;
+ Procedure SetcreativeSizeType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsize(AIndex : Integer; const AValue : TTargetingValueSize); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property companionSizes : TTargetingValueCreativeSizeTypecompanionSizesArray Index 0 Read FcompanionSizes Write SetcompanionSizes;
+ Property creativeSizeType : String Index 8 Read FcreativeSizeType Write SetcreativeSizeType;
+ Property size : TTargetingValueSize Index 16 Read Fsize Write Setsize;
+ end;
+ TTargetingValueCreativeSizeClass = Class of TTargetingValueCreativeSize;
+
+ { --------------------------------------------------------------------
+ TTargetingValueDayPartTargeting
+ --------------------------------------------------------------------}
+
+ TTargetingValueDayPartTargeting = Class(TGoogleBaseObject)
+ Private
+ FdayParts : TTargetingValueDayPartTargetingTypedayPartsArray;
+ FtimeZoneType : String;
+ Protected
+ //Property setters
+ Procedure SetdayParts(AIndex : Integer; const AValue : TTargetingValueDayPartTargetingTypedayPartsArray); virtual;
+ Procedure SettimeZoneType(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 dayParts : TTargetingValueDayPartTargetingTypedayPartsArray Index 0 Read FdayParts Write SetdayParts;
+ Property timeZoneType : String Index 8 Read FtimeZoneType Write SettimeZoneType;
+ end;
+ TTargetingValueDayPartTargetingClass = Class of TTargetingValueDayPartTargeting;
+
+ { --------------------------------------------------------------------
+ TTargetingValueDayPartTargetingDayPart
+ --------------------------------------------------------------------}
+
+ TTargetingValueDayPartTargetingDayPart = Class(TGoogleBaseObject)
+ Private
+ FdayOfWeek : String;
+ FendHour : integer;
+ FendMinute : integer;
+ FstartHour : integer;
+ FstartMinute : integer;
+ Protected
+ //Property setters
+ Procedure SetdayOfWeek(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendHour(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetendMinute(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetstartHour(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetstartMinute(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property dayOfWeek : String Index 0 Read FdayOfWeek Write SetdayOfWeek;
+ Property endHour : integer Index 8 Read FendHour Write SetendHour;
+ Property endMinute : integer Index 16 Read FendMinute Write SetendMinute;
+ Property startHour : integer Index 24 Read FstartHour Write SetstartHour;
+ Property startMinute : integer Index 32 Read FstartMinute Write SetstartMinute;
+ end;
+ TTargetingValueDayPartTargetingDayPartClass = Class of TTargetingValueDayPartTargetingDayPart;
+
+ { --------------------------------------------------------------------
+ TTargetingValueSize
+ --------------------------------------------------------------------}
+
+ TTargetingValueSize = Class(TGoogleBaseObject)
+ Private
+ Fheight : integer;
+ Fwidth : integer;
+ Protected
+ //Property setters
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property height : integer Index 0 Read Fheight Write Setheight;
+ Property width : integer Index 8 Read Fwidth Write Setwidth;
+ end;
+ TTargetingValueSizeClass = Class of TTargetingValueSize;
+
+ { --------------------------------------------------------------------
+ TUpdatePrivateAuctionProposalRequest
+ --------------------------------------------------------------------}
+
+ TUpdatePrivateAuctionProposalRequest = Class(TGoogleBaseObject)
+ Private
+ FexternalDealId : String;
+ Fnote : TMarketplaceNote;
+ FproposalRevisionNumber : String;
+ FupdateAction : String;
+ Protected
+ //Property setters
+ Procedure SetexternalDealId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnote(AIndex : Integer; const AValue : TMarketplaceNote); virtual;
+ Procedure SetproposalRevisionNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupdateAction(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property externalDealId : String Index 0 Read FexternalDealId Write SetexternalDealId;
+ Property note : TMarketplaceNote Index 8 Read Fnote Write Setnote;
+ Property proposalRevisionNumber : String Index 16 Read FproposalRevisionNumber Write SetproposalRevisionNumber;
+ Property updateAction : String Index 24 Read FupdateAction Write SetupdateAction;
+ end;
+ TUpdatePrivateAuctionProposalRequestClass = Class of TUpdatePrivateAuctionProposalRequest;
+
+ { --------------------------------------------------------------------
TAccountsResource
--------------------------------------------------------------------}
@@ -813,32 +2425,70 @@ type
TCreativesListOptions = Record
accountId : integer;
buyerCreativeId : String;
+ dealsStatusFilter : String;
maxResults : integer;
+ openAuctionStatusFilter : String;
pageToken : String;
- statusFilter : String;
end;
TCreativesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure AddDeal(accountId: integer; buyerCreativeId: string; dealId: string);
Function Get(accountId: integer; buyerCreativeId: string) : TCreative;
Function Insert(aCreative : TCreative) : TCreative;
Function List(AQuery : string = '') : TCreativesList;
Function List(AQuery : TCreativeslistOptions) : TCreativesList;
+ Procedure RemoveDeal(accountId: integer; buyerCreativeId: string; dealId: string);
+ end;
+
+
+ { --------------------------------------------------------------------
+ TMarketplacedealsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TMarketplacedealsResource, method List
+
+ TMarketplacedealsListOptions = Record
+ pqlQuery : String;
+ end;
+
+ TMarketplacedealsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Delete(proposalId: string; aDeleteOrderDealsRequest : TDeleteOrderDealsRequest) : TDeleteOrderDealsResponse;
+ Function Insert(proposalId: string; aAddOrderDealsRequest : TAddOrderDealsRequest) : TAddOrderDealsResponse;
+ Function List(proposalId: string; AQuery : string = '') : TGetOrderDealsResponse;
+ Function List(proposalId: string; AQuery : TMarketplacedealslistOptions) : TGetOrderDealsResponse;
+ Function Update(proposalId: string; aEditAllOrderDealsRequest : TEditAllOrderDealsRequest) : TEditAllOrderDealsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TMarketplacenotesResource
+ --------------------------------------------------------------------}
+
+ TMarketplacenotesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Insert(proposalId: string; aAddOrderNotesRequest : TAddOrderNotesRequest) : TAddOrderNotesResponse;
+ Function List(proposalId: string) : TGetOrderNotesResponse;
end;
{ --------------------------------------------------------------------
- TDirectDealsResource
+ TMarketplaceprivateauctionResource
--------------------------------------------------------------------}
- TDirectDealsResource = Class(TGoogleResource)
+ TMarketplaceprivateauctionResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(id: string) : TDirectDeal;
- Function List : TDirectDealsList;
+ Procedure Updateproposal(privateAuctionId: string; aUpdatePrivateAuctionProposalRequest : TUpdatePrivateAuctionProposalRequest);
end;
@@ -884,6 +2534,64 @@ type
{ --------------------------------------------------------------------
+ TProductsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProductsResource, method Search
+
+ TProductsSearchOptions = Record
+ pqlQuery : String;
+ end;
+
+ TProductsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(productId: string) : TProduct;
+ Function Search(AQuery : string = '') : TGetOffersResponse;
+ Function Search(AQuery : TProductssearchOptions) : TGetOffersResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProposalsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProposalsResource, method Search
+
+ TProposalsSearchOptions = Record
+ pqlQuery : String;
+ end;
+
+ TProposalsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(proposalId: string) : TProposal;
+ Function Insert(aCreateOrdersRequest : TCreateOrdersRequest) : TCreateOrdersResponse;
+ Function Patch(proposalId: string; revisionNumber: string; _updateAction: string; aProposal : TProposal) : TProposal;
+ Function Search(AQuery : string = '') : TGetOrdersResponse;
+ Function Search(AQuery : TProposalssearchOptions) : TGetOrdersResponse;
+ Procedure Setupcomplete(proposalId: string);
+ Function Update(proposalId: string; revisionNumber: string; _updateAction: string; aProposal : TProposal) : TProposal;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TPubprofilesResource
+ --------------------------------------------------------------------}
+
+ TPubprofilesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(accountId: integer) : TGetPublisherProfilesByAccountIdResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
TAdexchangebuyerAPI
--------------------------------------------------------------------}
@@ -893,16 +2601,26 @@ type
FBillingInfoInstance : TBillingInfoResource;
FBudgetInstance : TBudgetResource;
FCreativesInstance : TCreativesResource;
- FDirectDealsInstance : TDirectDealsResource;
+ FMarketplacedealsInstance : TMarketplacedealsResource;
+ FMarketplacenotesInstance : TMarketplacenotesResource;
+ FMarketplaceprivateauctionInstance : TMarketplaceprivateauctionResource;
FPerformanceReportInstance : TPerformanceReportResource;
FPretargetingConfigInstance : TPretargetingConfigResource;
+ FProductsInstance : TProductsResource;
+ FProposalsInstance : TProposalsResource;
+ FPubprofilesInstance : TPubprofilesResource;
Function GetAccountsInstance : TAccountsResource;virtual;
Function GetBillingInfoInstance : TBillingInfoResource;virtual;
Function GetBudgetInstance : TBudgetResource;virtual;
Function GetCreativesInstance : TCreativesResource;virtual;
- Function GetDirectDealsInstance : TDirectDealsResource;virtual;
+ Function GetMarketplacedealsInstance : TMarketplacedealsResource;virtual;
+ Function GetMarketplacenotesInstance : TMarketplacenotesResource;virtual;
+ Function GetMarketplaceprivateauctionInstance : TMarketplaceprivateauctionResource;virtual;
Function GetPerformanceReportInstance : TPerformanceReportResource;virtual;
Function GetPretargetingConfigInstance : TPretargetingConfigResource;virtual;
+ Function GetProductsInstance : TProductsResource;virtual;
+ Function GetProposalsInstance : TProposalsResource;virtual;
+ Function GetPubprofilesInstance : TPubprofilesResource;virtual;
Public
//Override class functions with API info
Class Function APIName : String; override;
@@ -934,20 +2652,35 @@ type
Function CreateBudgetResource : TBudgetResource;virtual;overload;
Function CreateCreativesResource(AOwner : TComponent) : TCreativesResource;virtual;overload;
Function CreateCreativesResource : TCreativesResource;virtual;overload;
- Function CreateDirectDealsResource(AOwner : TComponent) : TDirectDealsResource;virtual;overload;
- Function CreateDirectDealsResource : TDirectDealsResource;virtual;overload;
+ Function CreateMarketplacedealsResource(AOwner : TComponent) : TMarketplacedealsResource;virtual;overload;
+ Function CreateMarketplacedealsResource : TMarketplacedealsResource;virtual;overload;
+ Function CreateMarketplacenotesResource(AOwner : TComponent) : TMarketplacenotesResource;virtual;overload;
+ Function CreateMarketplacenotesResource : TMarketplacenotesResource;virtual;overload;
+ Function CreateMarketplaceprivateauctionResource(AOwner : TComponent) : TMarketplaceprivateauctionResource;virtual;overload;
+ Function CreateMarketplaceprivateauctionResource : TMarketplaceprivateauctionResource;virtual;overload;
Function CreatePerformanceReportResource(AOwner : TComponent) : TPerformanceReportResource;virtual;overload;
Function CreatePerformanceReportResource : TPerformanceReportResource;virtual;overload;
Function CreatePretargetingConfigResource(AOwner : TComponent) : TPretargetingConfigResource;virtual;overload;
Function CreatePretargetingConfigResource : TPretargetingConfigResource;virtual;overload;
+ Function CreateProductsResource(AOwner : TComponent) : TProductsResource;virtual;overload;
+ Function CreateProductsResource : TProductsResource;virtual;overload;
+ Function CreateProposalsResource(AOwner : TComponent) : TProposalsResource;virtual;overload;
+ Function CreateProposalsResource : TProposalsResource;virtual;overload;
+ Function CreatePubprofilesResource(AOwner : TComponent) : TPubprofilesResource;virtual;overload;
+ Function CreatePubprofilesResource : TPubprofilesResource;virtual;overload;
//Add default on-demand instances for resources
Property AccountsResource : TAccountsResource Read GetAccountsInstance;
Property BillingInfoResource : TBillingInfoResource Read GetBillingInfoInstance;
Property BudgetResource : TBudgetResource Read GetBudgetInstance;
Property CreativesResource : TCreativesResource Read GetCreativesInstance;
- Property DirectDealsResource : TDirectDealsResource Read GetDirectDealsInstance;
+ Property MarketplacedealsResource : TMarketplacedealsResource Read GetMarketplacedealsInstance;
+ Property MarketplacenotesResource : TMarketplacenotesResource Read GetMarketplacenotesInstance;
+ Property MarketplaceprivateauctionResource : TMarketplaceprivateauctionResource Read GetMarketplaceprivateauctionInstance;
Property PerformanceReportResource : TPerformanceReportResource Read GetPerformanceReportInstance;
Property PretargetingConfigResource : TPretargetingConfigResource Read GetPretargetingConfigInstance;
+ Property ProductsResource : TProductsResource Read GetProductsInstance;
+ Property ProposalsResource : TProposalsResource Read GetProposalsInstance;
+ Property PubprofilesResource : TPubprofilesResource Read GetPubprofilesInstance;
end;
implementation
@@ -958,7 +2691,17 @@ implementation
--------------------------------------------------------------------}
-Procedure TAccountTypebidderLocationItem.SetmaximumQps(AIndex : Integer; AValue : integer);
+Procedure TAccountTypebidderLocationItem.SetbidProtocol(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbidProtocol=AValue) then exit;
+ FbidProtocol:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAccountTypebidderLocationItem.SetmaximumQps(AIndex : Integer; const AValue : integer);
begin
If (FmaximumQps=AValue) then exit;
@@ -995,7 +2738,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccount.SetbidderLocation(AIndex : Integer; AValue : TAccountTypebidderLocationArray);
+Procedure TAccount.SetbidderLocation(AIndex : Integer; const AValue : TAccountTypebidderLocationArray);
begin
If (FbidderLocation=AValue) then exit;
@@ -1025,7 +2768,7 @@ end;
-Procedure TAccount.Setid(AIndex : Integer; AValue : integer);
+Procedure TAccount.Setid(AIndex : Integer; const AValue : integer);
begin
If (Fid=AValue) then exit;
@@ -1045,7 +2788,7 @@ end;
-Procedure TAccount.SetmaximumActiveCreatives(AIndex : Integer; AValue : integer);
+Procedure TAccount.SetmaximumActiveCreatives(AIndex : Integer; const AValue : integer);
begin
If (FmaximumActiveCreatives=AValue) then exit;
@@ -1055,7 +2798,7 @@ end;
-Procedure TAccount.SetmaximumTotalQps(AIndex : Integer; AValue : integer);
+Procedure TAccount.SetmaximumTotalQps(AIndex : Integer; const AValue : integer);
begin
If (FmaximumTotalQps=AValue) then exit;
@@ -1065,7 +2808,7 @@ end;
-Procedure TAccount.SetnumberActiveCreatives(AIndex : Integer; AValue : integer);
+Procedure TAccount.SetnumberActiveCreatives(AIndex : Integer; const AValue : integer);
begin
If (FnumberActiveCreatives=AValue) then exit;
@@ -1095,7 +2838,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountsList.Setitems(AIndex : Integer; AValue : TAccountsListTypeitemsArray);
+Procedure TAccountsList.Setitems(AIndex : Integer; const AValue : TAccountsListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1131,11 +2874,161 @@ end;
{ --------------------------------------------------------------------
+ TAddOrderDealsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAddOrderDealsRequest.Setdeals(AIndex : Integer; const AValue : TAddOrderDealsRequestTypedealsArray);
+
+begin
+ If (Fdeals=AValue) then exit;
+ Fdeals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddOrderDealsRequest.SetproposalRevisionNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproposalRevisionNumber=AValue) then exit;
+ FproposalRevisionNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddOrderDealsRequest.SetupdateAction(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdateAction=AValue) then exit;
+ FupdateAction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAddOrderDealsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'deals' : SetLength(Fdeals,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddOrderDealsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TAddOrderDealsResponse.Setdeals(AIndex : Integer; const AValue : TAddOrderDealsResponseTypedealsArray);
+
+begin
+ If (Fdeals=AValue) then exit;
+ Fdeals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddOrderDealsResponse.SetproposalRevisionNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproposalRevisionNumber=AValue) then exit;
+ FproposalRevisionNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAddOrderDealsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'deals' : SetLength(Fdeals,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddOrderNotesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAddOrderNotesRequest.Setnotes(AIndex : Integer; const AValue : TAddOrderNotesRequestTypenotesArray);
+
+begin
+ If (Fnotes=AValue) then exit;
+ Fnotes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAddOrderNotesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'notes' : SetLength(Fnotes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddOrderNotesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TAddOrderNotesResponse.Setnotes(AIndex : Integer; const AValue : TAddOrderNotesResponseTypenotesArray);
+
+begin
+ If (Fnotes=AValue) then exit;
+ Fnotes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAddOrderNotesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'notes' : SetLength(Fnotes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TBillingInfo
--------------------------------------------------------------------}
-Procedure TBillingInfo.SetaccountId(AIndex : Integer; AValue : integer);
+Procedure TBillingInfo.SetaccountId(AIndex : Integer; const AValue : integer);
begin
If (FaccountId=AValue) then exit;
@@ -1155,7 +3048,7 @@ end;
-Procedure TBillingInfo.SetbillingId(AIndex : Integer; AValue : TStringArray);
+Procedure TBillingInfo.SetbillingId(AIndex : Integer; const AValue : TStringArray);
begin
If (FbillingId=AValue) then exit;
@@ -1195,7 +3088,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBillingInfoList.Setitems(AIndex : Integer; AValue : TBillingInfoListTypeitemsArray);
+Procedure TBillingInfoList.Setitems(AIndex : Integer; const AValue : TBillingInfoListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1298,36 +3191,80 @@ end;
{ --------------------------------------------------------------------
- TCreativeTypecorrectionsItem
+ TBuyer
--------------------------------------------------------------------}
-Procedure TCreativeTypecorrectionsItem.Setdetails(AIndex : Integer; AValue : TStringArray);
+Procedure TBuyer.SetaccountId(AIndex : Integer; const AValue : String);
begin
- If (Fdetails=AValue) then exit;
- Fdetails:=AValue;
+ If (FaccountId=AValue) then exit;
+ FaccountId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCreativeTypecorrectionsItem.Setreason(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TContactInformation
+ --------------------------------------------------------------------}
+
+
+Procedure TContactInformation.Setemail(AIndex : Integer; const AValue : String);
begin
- If (Freason=AValue) then exit;
- Freason:=AValue;
+ If (Femail=AValue) then exit;
+ Femail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TContactInformation.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreateOrdersRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TCreateOrdersRequest.Setproposals(AIndex : Integer; const AValue : TCreateOrdersRequestTypeproposalsArray);
+
+begin
+ If (Fproposals=AValue) then exit;
+ Fproposals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreateOrdersRequest.SetwebPropertyCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FwebPropertyCode=AValue) then exit;
+ FwebPropertyCode:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TCreativeTypecorrectionsItem.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TCreateOrdersRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'details' : SetLength(Fdetails,ALength);
+ 'proposals' : SetLength(Fproposals,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1338,11 +3275,41 @@ end;
{ --------------------------------------------------------------------
- TCreativeTypedisapprovalReasonsItem
+ TCreateOrdersResponse
--------------------------------------------------------------------}
-Procedure TCreativeTypedisapprovalReasonsItem.Setdetails(AIndex : Integer; AValue : TStringArray);
+Procedure TCreateOrdersResponse.Setproposals(AIndex : Integer; const AValue : TCreateOrdersResponseTypeproposalsArray);
+
+begin
+ If (Fproposals=AValue) then exit;
+ Fproposals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreateOrdersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'proposals' : SetLength(Fproposals,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreativeTypecorrectionsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TCreativeTypecorrectionsItem.Setdetails(AIndex : Integer; const AValue : TStringArray);
begin
If (Fdetails=AValue) then exit;
@@ -1352,7 +3319,7 @@ end;
-Procedure TCreativeTypedisapprovalReasonsItem.Setreason(AIndex : Integer; const AValue : String);
+Procedure TCreativeTypecorrectionsItem.Setreason(AIndex : Integer; const AValue : String);
begin
If (Freason=AValue) then exit;
@@ -1363,7 +3330,7 @@ end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TCreativeTypedisapprovalReasonsItem.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TCreativeTypecorrectionsItem.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
@@ -1392,7 +3359,7 @@ end;
-Procedure TCreativeTypefilteringReasonsTypereasonsItem.SetfilteringStatus(AIndex : Integer; AValue : integer);
+Procedure TCreativeTypefilteringReasonsTypereasonsItem.SetfilteringStatus(AIndex : Integer; const AValue : integer);
begin
If (FfilteringStatus=AValue) then exit;
@@ -1419,7 +3386,7 @@ end;
-Procedure TCreativeTypefilteringReasons.Setreasons(AIndex : Integer; AValue : TCreativeTypefilteringReasonsTypereasonsArray);
+Procedure TCreativeTypefilteringReasons.Setreasons(AIndex : Integer; const AValue : TCreativeTypefilteringReasonsTypereasonsArray);
begin
If (Freasons=AValue) then exit;
@@ -1445,6 +3412,410 @@ end;
{ --------------------------------------------------------------------
+ TCreativeTypenativeAdTypeappIcon
+ --------------------------------------------------------------------}
+
+
+Procedure TCreativeTypenativeAdTypeappIcon.Setheight(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fheight=AValue) then exit;
+ Fheight:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAdTypeappIcon.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAdTypeappIcon.Setwidth(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fwidth=AValue) then exit;
+ Fwidth:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreativeTypenativeAdTypeimage
+ --------------------------------------------------------------------}
+
+
+Procedure TCreativeTypenativeAdTypeimage.Setheight(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fheight=AValue) then exit;
+ Fheight:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAdTypeimage.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAdTypeimage.Setwidth(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fwidth=AValue) then exit;
+ Fwidth:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreativeTypenativeAdTypelogo
+ --------------------------------------------------------------------}
+
+
+Procedure TCreativeTypenativeAdTypelogo.Setheight(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fheight=AValue) then exit;
+ Fheight:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAdTypelogo.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAdTypelogo.Setwidth(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fwidth=AValue) then exit;
+ Fwidth:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreativeTypenativeAd
+ --------------------------------------------------------------------}
+
+
+Procedure TCreativeTypenativeAd.Setadvertiser(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fadvertiser=AValue) then exit;
+ Fadvertiser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAd.SetappIcon(AIndex : Integer; const AValue : TCreativeTypenativeAdTypeappIcon);
+
+begin
+ If (FappIcon=AValue) then exit;
+ FappIcon:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAd.Setbody(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fbody=AValue) then exit;
+ Fbody:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAd.SetcallToAction(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcallToAction=AValue) then exit;
+ FcallToAction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAd.SetclickTrackingUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclickTrackingUrl=AValue) then exit;
+ FclickTrackingUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAd.Setheadline(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fheadline=AValue) then exit;
+ Fheadline:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAd.Setimage(AIndex : Integer; const AValue : TCreativeTypenativeAdTypeimage);
+
+begin
+ If (Fimage=AValue) then exit;
+ Fimage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAd.SetimpressionTrackingUrl(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FimpressionTrackingUrl=AValue) then exit;
+ FimpressionTrackingUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAd.Setlogo(AIndex : Integer; const AValue : TCreativeTypenativeAdTypelogo);
+
+begin
+ If (Flogo=AValue) then exit;
+ Flogo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAd.Setprice(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fprice=AValue) then exit;
+ Fprice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAd.SetstarRating(AIndex : Integer; const AValue : double);
+
+begin
+ If (FstarRating=AValue) then exit;
+ FstarRating:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypenativeAd.Setstore(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstore=AValue) then exit;
+ Fstore:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreativeTypenativeAd.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'impressiontrackingurl' : SetLength(FimpressionTrackingUrl,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreativeTypeservingRestrictionsItemTypecontextsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TCreativeTypeservingRestrictionsItemTypecontextsItem.SetauctionType(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FauctionType=AValue) then exit;
+ FauctionType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypeservingRestrictionsItemTypecontextsItem.SetcontextType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcontextType=AValue) then exit;
+ FcontextType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypeservingRestrictionsItemTypecontextsItem.SetgeoCriteriaId(AIndex : Integer; const AValue : TintegerArray);
+
+begin
+ If (FgeoCriteriaId=AValue) then exit;
+ FgeoCriteriaId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypeservingRestrictionsItemTypecontextsItem.Setplatform(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fplatform=AValue) then exit;
+ Fplatform:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreativeTypeservingRestrictionsItemTypecontextsItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'auctiontype' : SetLength(FauctionType,ALength);
+ 'geocriteriaid' : SetLength(FgeoCriteriaId,ALength);
+ 'platform' : SetLength(Fplatform,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem.Setdetails(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'details' : SetLength(Fdetails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreativeTypeservingRestrictionsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TCreativeTypeservingRestrictionsItem.Setcontexts(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsItemTypecontextsArray);
+
+begin
+ If (Fcontexts=AValue) then exit;
+ Fcontexts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypeservingRestrictionsItem.SetdisapprovalReasons(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsArray);
+
+begin
+ If (FdisapprovalReasons=AValue) then exit;
+ FdisapprovalReasons:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreativeTypeservingRestrictionsItem.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreativeTypeservingRestrictionsItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'contexts' : SetLength(Fcontexts,ALength);
+ 'disapprovalreasons' : SetLength(FdisapprovalReasons,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TCreative
--------------------------------------------------------------------}
@@ -1459,7 +3830,7 @@ end;
-Procedure TCreative.SetaccountId(AIndex : Integer; AValue : integer);
+Procedure TCreative.SetaccountId(AIndex : Integer; const AValue : integer);
begin
If (FaccountId=AValue) then exit;
@@ -1469,7 +3840,17 @@ end;
-Procedure TCreative.SetadvertiserId(AIndex : Integer; AValue : TStringArray);
+Procedure TCreative.SetadChoicesDestinationUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FadChoicesDestinationUrl=AValue) then exit;
+ FadChoicesDestinationUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreative.SetadvertiserId(AIndex : Integer; const AValue : TStringArray);
begin
If (FadvertiserId=AValue) then exit;
@@ -1499,7 +3880,17 @@ end;
-Procedure TCreative.Setattribute(AIndex : Integer; AValue : TintegerArray);
+Procedure TCreative.SetapiUploadTimestamp(AIndex : Integer; const AValue : TDatetime);
+
+begin
+ If (FapiUploadTimestamp=AValue) then exit;
+ FapiUploadTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreative.Setattribute(AIndex : Integer; const AValue : TintegerArray);
begin
If (Fattribute=AValue) then exit;
@@ -1519,7 +3910,7 @@ end;
-Procedure TCreative.SetclickThroughUrl(AIndex : Integer; AValue : TStringArray);
+Procedure TCreative.SetclickThroughUrl(AIndex : Integer; const AValue : TStringArray);
begin
If (FclickThroughUrl=AValue) then exit;
@@ -1529,7 +3920,7 @@ end;
-Procedure TCreative.Setcorrections(AIndex : Integer; AValue : TCreativeTypecorrectionsArray);
+Procedure TCreative.Setcorrections(AIndex : Integer; const AValue : TCreativeTypecorrectionsArray);
begin
If (Fcorrections=AValue) then exit;
@@ -1539,17 +3930,17 @@ end;
-Procedure TCreative.SetdisapprovalReasons(AIndex : Integer; AValue : TCreativeTypedisapprovalReasonsArray);
+Procedure TCreative.SetdealsStatus(AIndex : Integer; const AValue : String);
begin
- If (FdisapprovalReasons=AValue) then exit;
- FdisapprovalReasons:=AValue;
+ If (FdealsStatus=AValue) then exit;
+ FdealsStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCreative.SetfilteringReasons(AIndex : Integer; AValue : TCreativeTypefilteringReasons);
+Procedure TCreative.SetfilteringReasons(AIndex : Integer; const AValue : TCreativeTypefilteringReasons);
begin
If (FfilteringReasons=AValue) then exit;
@@ -1559,7 +3950,7 @@ end;
-Procedure TCreative.Setheight(AIndex : Integer; AValue : integer);
+Procedure TCreative.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -1569,6 +3960,16 @@ end;
+Procedure TCreative.SetimpressionTrackingUrl(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FimpressionTrackingUrl=AValue) then exit;
+ FimpressionTrackingUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TCreative.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -1579,7 +3980,27 @@ end;
-Procedure TCreative.SetproductCategories(AIndex : Integer; AValue : TintegerArray);
+Procedure TCreative.SetnativeAd(AIndex : Integer; const AValue : TCreativeTypenativeAd);
+
+begin
+ If (FnativeAd=AValue) then exit;
+ FnativeAd:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreative.SetopenAuctionStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FopenAuctionStatus=AValue) then exit;
+ FopenAuctionStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreative.SetproductCategories(AIndex : Integer; const AValue : TintegerArray);
begin
If (FproductCategories=AValue) then exit;
@@ -1589,7 +4010,7 @@ end;
-Procedure TCreative.SetrestrictedCategories(AIndex : Integer; AValue : TintegerArray);
+Procedure TCreative.SetrestrictedCategories(AIndex : Integer; const AValue : TintegerArray);
begin
If (FrestrictedCategories=AValue) then exit;
@@ -1599,7 +4020,7 @@ end;
-Procedure TCreative.SetsensitiveCategories(AIndex : Integer; AValue : TintegerArray);
+Procedure TCreative.SetsensitiveCategories(AIndex : Integer; const AValue : TintegerArray);
begin
If (FsensitiveCategories=AValue) then exit;
@@ -1609,17 +4030,17 @@ end;
-Procedure TCreative.Setstatus(AIndex : Integer; const AValue : String);
+Procedure TCreative.SetservingRestrictions(AIndex : Integer; const AValue : TCreativeTypeservingRestrictionsArray);
begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
+ If (FservingRestrictions=AValue) then exit;
+ FservingRestrictions:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCreative.SetvendorType(AIndex : Integer; AValue : TintegerArray);
+Procedure TCreative.SetvendorType(AIndex : Integer; const AValue : TintegerArray);
begin
If (FvendorType=AValue) then exit;
@@ -1629,6 +4050,16 @@ end;
+Procedure TCreative.Setversion(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fversion=AValue) then exit;
+ Fversion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TCreative.SetvideoURL(AIndex : Integer; const AValue : String);
begin
@@ -1639,7 +4070,7 @@ end;
-Procedure TCreative.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TCreative.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -1658,10 +4089,11 @@ begin
'attribute' : SetLength(Fattribute,ALength);
'clickthroughurl' : SetLength(FclickThroughUrl,ALength);
'corrections' : SetLength(Fcorrections,ALength);
- 'disapprovalreasons' : SetLength(FdisapprovalReasons,ALength);
+ 'impressiontrackingurl' : SetLength(FimpressionTrackingUrl,ALength);
'productcategories' : SetLength(FproductCategories,ALength);
'restrictedcategories' : SetLength(FrestrictedCategories,ALength);
'sensitivecategories' : SetLength(FsensitiveCategories,ALength);
+ 'servingrestrictions' : SetLength(FservingRestrictions,ALength);
'vendortype' : SetLength(FvendorType,ALength);
else
Inherited SetArrayLength(AName,ALength);
@@ -1677,7 +4109,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCreativesList.Setitems(AIndex : Integer; AValue : TCreativesListTypeitemsArray);
+Procedure TCreativesList.Setitems(AIndex : Integer; const AValue : TCreativesListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1723,81 +4155,546 @@ end;
{ --------------------------------------------------------------------
- TDirectDeal
+ TDealServingMetadata
--------------------------------------------------------------------}
-Procedure TDirectDeal.SetaccountId(AIndex : Integer; AValue : integer);
+Procedure TDealServingMetadata.SetdealPauseStatus(AIndex : Integer; const AValue : TDealServingMetadataDealPauseStatus);
begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
+ If (FdealPauseStatus=AValue) then exit;
+ FdealPauseStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDirectDeal.Setadvertiser(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TDealServingMetadataDealPauseStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TDealServingMetadataDealPauseStatus.SetfirstPausedBy(AIndex : Integer; const AValue : String);
begin
- If (Fadvertiser=AValue) then exit;
- Fadvertiser:=AValue;
+ If (FfirstPausedBy=AValue) then exit;
+ FfirstPausedBy:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDirectDeal.SetcurrencyCode(AIndex : Integer; const AValue : String);
+Procedure TDealServingMetadataDealPauseStatus.SethasBuyerPaused(AIndex : Integer; const AValue : boolean);
begin
- If (FcurrencyCode=AValue) then exit;
- FcurrencyCode:=AValue;
+ If (FhasBuyerPaused=AValue) then exit;
+ FhasBuyerPaused:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDealServingMetadataDealPauseStatus.SethasSellerPaused(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasSellerPaused=AValue) then exit;
+ FhasSellerPaused:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDirectDeal.SetendTime(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TDealTerms
+ --------------------------------------------------------------------}
+
+
+Procedure TDealTerms.SetbrandingType(AIndex : Integer; const AValue : String);
begin
- If (FendTime=AValue) then exit;
- FendTime:=AValue;
+ If (FbrandingType=AValue) then exit;
+ FbrandingType:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDirectDeal.SetfixedCpm(AIndex : Integer; const AValue : String);
+Procedure TDealTerms.Setdescription(AIndex : Integer; const AValue : String);
begin
- If (FfixedCpm=AValue) then exit;
- FfixedCpm:=AValue;
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDirectDeal.Setid(AIndex : Integer; const AValue : String);
+Procedure TDealTerms.SetestimatedGrossSpend(AIndex : Integer; const AValue : TPrice);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (FestimatedGrossSpend=AValue) then exit;
+ FestimatedGrossSpend:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDirectDeal.Setkind(AIndex : Integer; const AValue : String);
+Procedure TDealTerms.SetestimatedImpressionsPerDay(AIndex : Integer; const AValue : String);
begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
+ If (FestimatedImpressionsPerDay=AValue) then exit;
+ FestimatedImpressionsPerDay:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDealTerms.SetguaranteedFixedPriceTerms(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTerms);
+
+begin
+ If (FguaranteedFixedPriceTerms=AValue) then exit;
+ FguaranteedFixedPriceTerms:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDealTerms.SetnonGuaranteedAuctionTerms(AIndex : Integer; const AValue : TDealTermsNonGuaranteedAuctionTerms);
+
+begin
+ If (FnonGuaranteedAuctionTerms=AValue) then exit;
+ FnonGuaranteedAuctionTerms:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDirectDeal.Setname(AIndex : Integer; const AValue : String);
+Procedure TDealTerms.SetnonGuaranteedFixedPriceTerms(AIndex : Integer; const AValue : TDealTermsNonGuaranteedFixedPriceTerms);
+
+begin
+ If (FnonGuaranteedFixedPriceTerms=AValue) then exit;
+ FnonGuaranteedFixedPriceTerms:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDealTerms.SetsellerTimeZone(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsellerTimeZone=AValue) then exit;
+ FsellerTimeZone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDealTermsGuaranteedFixedPriceTerms
+ --------------------------------------------------------------------}
+
+
+Procedure TDealTermsGuaranteedFixedPriceTerms.SetbillingInfo(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTermsBillingInfo);
+
+begin
+ If (FbillingInfo=AValue) then exit;
+ FbillingInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDealTermsGuaranteedFixedPriceTerms.SetfixedPrices(AIndex : Integer; const AValue : TDealTermsGuaranteedFixedPriceTermsTypefixedPricesArray);
+
+begin
+ If (FfixedPrices=AValue) then exit;
+ FfixedPrices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDealTermsGuaranteedFixedPriceTerms.SetguaranteedImpressions(AIndex : Integer; const AValue : String);
+
+begin
+ If (FguaranteedImpressions=AValue) then exit;
+ FguaranteedImpressions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDealTermsGuaranteedFixedPriceTerms.SetguaranteedLooks(AIndex : Integer; const AValue : String);
+
+begin
+ If (FguaranteedLooks=AValue) then exit;
+ FguaranteedLooks:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDealTermsGuaranteedFixedPriceTerms.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'fixedprices' : SetLength(FfixedPrices,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDealTermsGuaranteedFixedPriceTermsBillingInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TDealTermsGuaranteedFixedPriceTermsBillingInfo.SetcurrencyConversionTimeMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcurrencyConversionTimeMs=AValue) then exit;
+ FcurrencyConversionTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDealTermsGuaranteedFixedPriceTermsBillingInfo.SetoriginalContractedQuantity(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForiginalContractedQuantity=AValue) then exit;
+ ForiginalContractedQuantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDealTermsGuaranteedFixedPriceTermsBillingInfo.Setprice(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Fprice=AValue) then exit;
+ Fprice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDealTermsNonGuaranteedAuctionTerms
+ --------------------------------------------------------------------}
+
+
+Procedure TDealTermsNonGuaranteedAuctionTerms.SetautoOptimizePrivateAuction(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FautoOptimizePrivateAuction=AValue) then exit;
+ FautoOptimizePrivateAuction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDealTermsNonGuaranteedAuctionTerms.SetreservePricePerBuyers(AIndex : Integer; const AValue : TDealTermsNonGuaranteedAuctionTermsTypereservePricePerBuyersArray);
+
+begin
+ If (FreservePricePerBuyers=AValue) then exit;
+ FreservePricePerBuyers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDealTermsNonGuaranteedAuctionTerms.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'reservepriceperbuyers' : SetLength(FreservePricePerBuyers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDealTermsNonGuaranteedFixedPriceTerms
+ --------------------------------------------------------------------}
+
+
+Procedure TDealTermsNonGuaranteedFixedPriceTerms.SetfixedPrices(AIndex : Integer; const AValue : TDealTermsNonGuaranteedFixedPriceTermsTypefixedPricesArray);
+
+begin
+ If (FfixedPrices=AValue) then exit;
+ FfixedPrices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDealTermsNonGuaranteedFixedPriceTerms.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'fixedprices' : SetLength(FfixedPrices,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeleteOrderDealsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDeleteOrderDealsRequest.SetdealIds(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FdealIds=AValue) then exit;
+ FdealIds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeleteOrderDealsRequest.SetproposalRevisionNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproposalRevisionNumber=AValue) then exit;
+ FproposalRevisionNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeleteOrderDealsRequest.SetupdateAction(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdateAction=AValue) then exit;
+ FupdateAction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDeleteOrderDealsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dealids' : SetLength(FdealIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeleteOrderDealsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TDeleteOrderDealsResponse.Setdeals(AIndex : Integer; const AValue : TDeleteOrderDealsResponseTypedealsArray);
+
+begin
+ If (Fdeals=AValue) then exit;
+ Fdeals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeleteOrderDealsResponse.SetproposalRevisionNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproposalRevisionNumber=AValue) then exit;
+ FproposalRevisionNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDeleteOrderDealsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'deals' : SetLength(Fdeals,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeliveryControl
+ --------------------------------------------------------------------}
+
+
+Procedure TDeliveryControl.SetcreativeBlockingLevel(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreativeBlockingLevel=AValue) then exit;
+ FcreativeBlockingLevel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeliveryControl.SetdeliveryRateType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdeliveryRateType=AValue) then exit;
+ FdeliveryRateType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeliveryControl.SetfrequencyCaps(AIndex : Integer; const AValue : TDeliveryControlTypefrequencyCapsArray);
+
+begin
+ If (FfrequencyCaps=AValue) then exit;
+ FfrequencyCaps:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDeliveryControl.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'frequencycaps' : SetLength(FfrequencyCaps,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeliveryControlFrequencyCap
+ --------------------------------------------------------------------}
+
+
+Procedure TDeliveryControlFrequencyCap.SetmaxImpressions(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaxImpressions=AValue) then exit;
+ FmaxImpressions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeliveryControlFrequencyCap.SetnumTimeUnits(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FnumTimeUnits=AValue) then exit;
+ FnumTimeUnits:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeliveryControlFrequencyCap.SettimeUnitType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtimeUnitType=AValue) then exit;
+ FtimeUnitType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDimension
+ --------------------------------------------------------------------}
+
+
+Procedure TDimension.SetdimensionType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdimensionType=AValue) then exit;
+ FdimensionType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimension.SetdimensionValues(AIndex : Integer; const AValue : TDimensionTypedimensionValuesArray);
+
+begin
+ If (FdimensionValues=AValue) then exit;
+ FdimensionValues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDimension.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dimensionvalues' : SetLength(FdimensionValues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDimensionDimensionValue
+ --------------------------------------------------------------------}
+
+
+Procedure TDimensionDimensionValue.Setid(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimensionDimensionValue.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
@@ -1807,64 +4704,374 @@ end;
-Procedure TDirectDeal.SetprivateExchangeMinCpm(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TEditAllOrderDealsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TEditAllOrderDealsRequest.Setdeals(AIndex : Integer; const AValue : TEditAllOrderDealsRequestTypedealsArray);
begin
- If (FprivateExchangeMinCpm=AValue) then exit;
- FprivateExchangeMinCpm:=AValue;
+ If (Fdeals=AValue) then exit;
+ Fdeals:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDirectDeal.SetpublisherBlocksOverriden(AIndex : Integer; AValue : boolean);
+Procedure TEditAllOrderDealsRequest.Setproposal(AIndex : Integer; const AValue : TProposal);
begin
- If (FpublisherBlocksOverriden=AValue) then exit;
- FpublisherBlocksOverriden:=AValue;
+ If (Fproposal=AValue) then exit;
+ Fproposal:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDirectDeal.SetsellerNetwork(AIndex : Integer; const AValue : String);
+Procedure TEditAllOrderDealsRequest.SetproposalRevisionNumber(AIndex : Integer; const AValue : String);
begin
- If (FsellerNetwork=AValue) then exit;
- FsellerNetwork:=AValue;
+ If (FproposalRevisionNumber=AValue) then exit;
+ FproposalRevisionNumber:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDirectDeal.SetstartTime(AIndex : Integer; const AValue : String);
+Procedure TEditAllOrderDealsRequest.SetupdateAction(AIndex : Integer; const AValue : String);
begin
- If (FstartTime=AValue) then exit;
- FstartTime:=AValue;
+ If (FupdateAction=AValue) then exit;
+ FupdateAction:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEditAllOrderDealsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'deals' : SetLength(Fdeals,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
{ --------------------------------------------------------------------
- TDirectDealsList
+ TEditAllOrderDealsResponse
--------------------------------------------------------------------}
-Procedure TDirectDealsList.SetdirectDeals(AIndex : Integer; AValue : TDirectDealsListTypedirectDealsArray);
+Procedure TEditAllOrderDealsResponse.Setdeals(AIndex : Integer; const AValue : TEditAllOrderDealsResponseTypedealsArray);
begin
- If (FdirectDeals=AValue) then exit;
- FdirectDeals:=AValue;
+ If (Fdeals=AValue) then exit;
+ Fdeals:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDirectDealsList.Setkind(AIndex : Integer; const AValue : String);
+Procedure TEditAllOrderDealsResponse.SetorderRevisionNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForderRevisionNumber=AValue) then exit;
+ ForderRevisionNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEditAllOrderDealsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'deals' : SetLength(Fdeals,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGetOffersResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TGetOffersResponse.Setproducts(AIndex : Integer; const AValue : TGetOffersResponseTypeproductsArray);
+
+begin
+ If (Fproducts=AValue) then exit;
+ Fproducts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGetOffersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'products' : SetLength(Fproducts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGetOrderDealsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TGetOrderDealsResponse.Setdeals(AIndex : Integer; const AValue : TGetOrderDealsResponseTypedealsArray);
+
+begin
+ If (Fdeals=AValue) then exit;
+ Fdeals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGetOrderDealsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'deals' : SetLength(Fdeals,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGetOrderNotesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TGetOrderNotesResponse.Setnotes(AIndex : Integer; const AValue : TGetOrderNotesResponseTypenotesArray);
+
+begin
+ If (Fnotes=AValue) then exit;
+ Fnotes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGetOrderNotesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'notes' : SetLength(Fnotes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGetOrdersResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TGetOrdersResponse.Setproposals(AIndex : Integer; const AValue : TGetOrdersResponseTypeproposalsArray);
+
+begin
+ If (Fproposals=AValue) then exit;
+ Fproposals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGetOrdersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'proposals' : SetLength(Fproposals,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGetPublisherProfilesByAccountIdResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TGetPublisherProfilesByAccountIdResponse.Setprofiles(AIndex : Integer; const AValue : TGetPublisherProfilesByAccountIdResponseTypeprofilesArray);
+
+begin
+ If (Fprofiles=AValue) then exit;
+ Fprofiles:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGetPublisherProfilesByAccountIdResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'profiles' : SetLength(Fprofiles,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMarketplaceDeal
+ --------------------------------------------------------------------}
+
+
+Procedure TMarketplaceDeal.SetbuyerPrivateData(AIndex : Integer; const AValue : TPrivateData);
+
+begin
+ If (FbuyerPrivateData=AValue) then exit;
+ FbuyerPrivateData:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetcreationTimeMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimeMs=AValue) then exit;
+ FcreationTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetcreativePreApprovalPolicy(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreativePreApprovalPolicy=AValue) then exit;
+ FcreativePreApprovalPolicy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetcreativeSafeFrameCompatibility(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreativeSafeFrameCompatibility=AValue) then exit;
+ FcreativeSafeFrameCompatibility:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetdealId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdealId=AValue) then exit;
+ FdealId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetdealServingMetadata(AIndex : Integer; const AValue : TDealServingMetadata);
+
+begin
+ If (FdealServingMetadata=AValue) then exit;
+ FdealServingMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetdeliveryControl(AIndex : Integer; const AValue : TDeliveryControl);
+
+begin
+ If (FdeliveryControl=AValue) then exit;
+ FdeliveryControl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetexternalDealId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexternalDealId=AValue) then exit;
+ FexternalDealId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetflightEndTimeMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FflightEndTimeMs=AValue) then exit;
+ FflightEndTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetflightStartTimeMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FflightStartTimeMs=AValue) then exit;
+ FflightStartTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetinventoryDescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinventoryDescription=AValue) then exit;
+ FinventoryDescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
@@ -1873,13 +5080,124 @@ begin
end;
+
+Procedure TMarketplaceDeal.SetlastUpdateTimeMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlastUpdateTimeMs=AValue) then exit;
+ FlastUpdateTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetproductId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproductId=AValue) then exit;
+ FproductId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetproductRevisionNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproductRevisionNumber=AValue) then exit;
+ FproductRevisionNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetprogrammaticCreativeSource(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprogrammaticCreativeSource=AValue) then exit;
+ FprogrammaticCreativeSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetproposalId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproposalId=AValue) then exit;
+ FproposalId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetsellerContacts(AIndex : Integer; const AValue : TMarketplaceDealTypesellerContactsArray);
+
+begin
+ If (FsellerContacts=AValue) then exit;
+ FsellerContacts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetsharedTargetings(AIndex : Integer; const AValue : TMarketplaceDealTypesharedTargetingsArray);
+
+begin
+ If (FsharedTargetings=AValue) then exit;
+ FsharedTargetings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetsyndicationProduct(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsyndicationProduct=AValue) then exit;
+ FsyndicationProduct:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.Setterms(AIndex : Integer; const AValue : TDealTerms);
+
+begin
+ If (Fterms=AValue) then exit;
+ Fterms:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDeal.SetwebPropertyCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FwebPropertyCode=AValue) then exit;
+ FwebPropertyCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TDirectDealsList.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TMarketplaceDeal.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'directdeals' : SetLength(FdirectDeals,ALength);
+ 'sellercontacts' : SetLength(FsellerContacts,ALength);
+ 'sharedtargetings' : SetLength(FsharedTargetings,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1890,11 +5208,203 @@ end;
{ --------------------------------------------------------------------
+ TMarketplaceDealParty
+ --------------------------------------------------------------------}
+
+
+Procedure TMarketplaceDealParty.Setbuyer(AIndex : Integer; const AValue : TBuyer);
+
+begin
+ If (Fbuyer=AValue) then exit;
+ Fbuyer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceDealParty.Setseller(AIndex : Integer; const AValue : TSeller);
+
+begin
+ If (Fseller=AValue) then exit;
+ Fseller:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TMarketplaceLabel
+ --------------------------------------------------------------------}
+
+
+Procedure TMarketplaceLabel.SetaccountId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaccountId=AValue) then exit;
+ FaccountId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceLabel.SetcreateTimeMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreateTimeMs=AValue) then exit;
+ FcreateTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceLabel.SetdeprecatedMarketplaceDealParty(AIndex : Integer; const AValue : TMarketplaceDealParty);
+
+begin
+ If (FdeprecatedMarketplaceDealParty=AValue) then exit;
+ FdeprecatedMarketplaceDealParty:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceLabel.Set_label(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_label=AValue) then exit;
+ F_label:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TMarketplaceLabel.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_label' : Result:='label';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TMarketplaceNote
+ --------------------------------------------------------------------}
+
+
+Procedure TMarketplaceNote.SetcreatorRole(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreatorRole=AValue) then exit;
+ FcreatorRole:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceNote.SetdealId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdealId=AValue) then exit;
+ FdealId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceNote.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceNote.Setnote(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fnote=AValue) then exit;
+ Fnote:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceNote.SetnoteId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnoteId=AValue) then exit;
+ FnoteId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceNote.SetproposalId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproposalId=AValue) then exit;
+ FproposalId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceNote.SetproposalRevisionNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproposalRevisionNumber=AValue) then exit;
+ FproposalRevisionNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMarketplaceNote.SettimestampMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtimestampMs=AValue) then exit;
+ FtimestampMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TPerformanceReport
--------------------------------------------------------------------}
-Procedure TPerformanceReport.SetcalloutStatusRate(AIndex : Integer; AValue : TTJSONSchemaArray);
+Procedure TPerformanceReport.SetbidRate(AIndex : Integer; const AValue : double);
+
+begin
+ If (FbidRate=AValue) then exit;
+ FbidRate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerformanceReport.SetbidRequestRate(AIndex : Integer; const AValue : double);
+
+begin
+ If (FbidRequestRate=AValue) then exit;
+ FbidRequestRate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerformanceReport.SetcalloutStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray);
begin
If (FcalloutStatusRate=AValue) then exit;
@@ -1904,7 +5414,7 @@ end;
-Procedure TPerformanceReport.SetcookieMatcherStatusRate(AIndex : Integer; AValue : TTJSONSchemaArray);
+Procedure TPerformanceReport.SetcookieMatcherStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray);
begin
If (FcookieMatcherStatusRate=AValue) then exit;
@@ -1914,7 +5424,7 @@ end;
-Procedure TPerformanceReport.SetcreativeStatusRate(AIndex : Integer; AValue : TTJSONSchemaArray);
+Procedure TPerformanceReport.SetcreativeStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray);
begin
If (FcreativeStatusRate=AValue) then exit;
@@ -1924,7 +5434,17 @@ end;
-Procedure TPerformanceReport.SethostedMatchStatusRate(AIndex : Integer; AValue : TTJSONSchemaArray);
+Procedure TPerformanceReport.SetfilteredBidRate(AIndex : Integer; const AValue : double);
+
+begin
+ If (FfilteredBidRate=AValue) then exit;
+ FfilteredBidRate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerformanceReport.SethostedMatchStatusRate(AIndex : Integer; const AValue : TTJSONSchemaArray);
begin
If (FhostedMatchStatusRate=AValue) then exit;
@@ -1934,6 +5454,16 @@ end;
+Procedure TPerformanceReport.SetinventoryMatchRate(AIndex : Integer; const AValue : double);
+
+begin
+ If (FinventoryMatchRate=AValue) then exit;
+ FinventoryMatchRate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TPerformanceReport.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -1944,7 +5474,7 @@ end;
-Procedure TPerformanceReport.Setlatency50thPercentile(AIndex : Integer; AValue : double);
+Procedure TPerformanceReport.Setlatency50thPercentile(AIndex : Integer; const AValue : double);
begin
If (Flatency50thPercentile=AValue) then exit;
@@ -1954,7 +5484,7 @@ end;
-Procedure TPerformanceReport.Setlatency85thPercentile(AIndex : Integer; AValue : double);
+Procedure TPerformanceReport.Setlatency85thPercentile(AIndex : Integer; const AValue : double);
begin
If (Flatency85thPercentile=AValue) then exit;
@@ -1964,7 +5494,7 @@ end;
-Procedure TPerformanceReport.Setlatency95thPercentile(AIndex : Integer; AValue : double);
+Procedure TPerformanceReport.Setlatency95thPercentile(AIndex : Integer; const AValue : double);
begin
If (Flatency95thPercentile=AValue) then exit;
@@ -1974,7 +5504,7 @@ end;
-Procedure TPerformanceReport.SetnoQuotaInRegion(AIndex : Integer; AValue : double);
+Procedure TPerformanceReport.SetnoQuotaInRegion(AIndex : Integer; const AValue : double);
begin
If (FnoQuotaInRegion=AValue) then exit;
@@ -1984,7 +5514,7 @@ end;
-Procedure TPerformanceReport.SetoutOfQuota(AIndex : Integer; AValue : double);
+Procedure TPerformanceReport.SetoutOfQuota(AIndex : Integer; const AValue : double);
begin
If (FoutOfQuota=AValue) then exit;
@@ -1994,7 +5524,7 @@ end;
-Procedure TPerformanceReport.SetpixelMatchRequests(AIndex : Integer; AValue : double);
+Procedure TPerformanceReport.SetpixelMatchRequests(AIndex : Integer; const AValue : double);
begin
If (FpixelMatchRequests=AValue) then exit;
@@ -2004,7 +5534,7 @@ end;
-Procedure TPerformanceReport.SetpixelMatchResponses(AIndex : Integer; AValue : double);
+Procedure TPerformanceReport.SetpixelMatchResponses(AIndex : Integer; const AValue : double);
begin
If (FpixelMatchResponses=AValue) then exit;
@@ -2014,7 +5544,7 @@ end;
-Procedure TPerformanceReport.SetquotaConfiguredLimit(AIndex : Integer; AValue : double);
+Procedure TPerformanceReport.SetquotaConfiguredLimit(AIndex : Integer; const AValue : double);
begin
If (FquotaConfiguredLimit=AValue) then exit;
@@ -2024,7 +5554,7 @@ end;
-Procedure TPerformanceReport.SetquotaThrottledLimit(AIndex : Integer; AValue : double);
+Procedure TPerformanceReport.SetquotaThrottledLimit(AIndex : Integer; const AValue : double);
begin
If (FquotaThrottledLimit=AValue) then exit;
@@ -2044,6 +5574,16 @@ end;
+Procedure TPerformanceReport.SetsuccessfulRequestRate(AIndex : Integer; const AValue : double);
+
+begin
+ If (FsuccessfulRequestRate=AValue) then exit;
+ FsuccessfulRequestRate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TPerformanceReport.Settimestamp(AIndex : Integer; const AValue : String);
begin
@@ -2053,6 +5593,16 @@ begin
end;
+
+Procedure TPerformanceReport.SetunsuccessfulRequestRate(AIndex : Integer; const AValue : double);
+
+begin
+ If (FunsuccessfulRequestRate=AValue) then exit;
+ FunsuccessfulRequestRate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPerformanceReport.SetArrayLength(Const AName : String; ALength : Longint);
@@ -2087,7 +5637,7 @@ end;
-Procedure TPerformanceReportList.SetperformanceReport(AIndex : Integer; AValue : TPerformanceReportListTypeperformanceReportArray);
+Procedure TPerformanceReportList.SetperformanceReport(AIndex : Integer; const AValue : TPerformanceReportListTypeperformanceReportArray);
begin
If (FperformanceReport=AValue) then exit;
@@ -2216,6 +5766,43 @@ end;
{ --------------------------------------------------------------------
+ TPretargetingConfigTypevideoPlayerSizesItem
+ --------------------------------------------------------------------}
+
+
+Procedure TPretargetingConfigTypevideoPlayerSizesItem.SetaspectRatio(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaspectRatio=AValue) then exit;
+ FaspectRatio:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPretargetingConfigTypevideoPlayerSizesItem.SetminHeight(AIndex : Integer; const AValue : String);
+
+begin
+ If (FminHeight=AValue) then exit;
+ FminHeight:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPretargetingConfigTypevideoPlayerSizesItem.SetminWidth(AIndex : Integer; const AValue : String);
+
+begin
+ If (FminWidth=AValue) then exit;
+ FminWidth:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TPretargetingConfig
--------------------------------------------------------------------}
@@ -2250,7 +5837,7 @@ end;
-Procedure TPretargetingConfig.SetcreativeType(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetcreativeType(AIndex : Integer; const AValue : TStringArray);
begin
If (FcreativeType=AValue) then exit;
@@ -2260,7 +5847,7 @@ end;
-Procedure TPretargetingConfig.Setdimensions(AIndex : Integer; AValue : TPretargetingConfigTypedimensionsArray);
+Procedure TPretargetingConfig.Setdimensions(AIndex : Integer; const AValue : TPretargetingConfigTypedimensionsArray);
begin
If (Fdimensions=AValue) then exit;
@@ -2270,7 +5857,7 @@ end;
-Procedure TPretargetingConfig.SetexcludedContentLabels(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetexcludedContentLabels(AIndex : Integer; const AValue : TStringArray);
begin
If (FexcludedContentLabels=AValue) then exit;
@@ -2280,7 +5867,7 @@ end;
-Procedure TPretargetingConfig.SetexcludedGeoCriteriaIds(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetexcludedGeoCriteriaIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FexcludedGeoCriteriaIds=AValue) then exit;
@@ -2290,7 +5877,7 @@ end;
-Procedure TPretargetingConfig.SetexcludedPlacements(AIndex : Integer; AValue : TPretargetingConfigTypeexcludedPlacementsArray);
+Procedure TPretargetingConfig.SetexcludedPlacements(AIndex : Integer; const AValue : TPretargetingConfigTypeexcludedPlacementsArray);
begin
If (FexcludedPlacements=AValue) then exit;
@@ -2300,7 +5887,7 @@ end;
-Procedure TPretargetingConfig.SetexcludedUserLists(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetexcludedUserLists(AIndex : Integer; const AValue : TStringArray);
begin
If (FexcludedUserLists=AValue) then exit;
@@ -2310,7 +5897,7 @@ end;
-Procedure TPretargetingConfig.SetexcludedVerticals(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetexcludedVerticals(AIndex : Integer; const AValue : TStringArray);
begin
If (FexcludedVerticals=AValue) then exit;
@@ -2320,7 +5907,7 @@ end;
-Procedure TPretargetingConfig.SetgeoCriteriaIds(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetgeoCriteriaIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FgeoCriteriaIds=AValue) then exit;
@@ -2330,7 +5917,7 @@ end;
-Procedure TPretargetingConfig.SetisActive(AIndex : Integer; AValue : boolean);
+Procedure TPretargetingConfig.SetisActive(AIndex : Integer; const AValue : boolean);
begin
If (FisActive=AValue) then exit;
@@ -2350,7 +5937,7 @@ end;
-Procedure TPretargetingConfig.Setlanguages(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.Setlanguages(AIndex : Integer; const AValue : TStringArray);
begin
If (Flanguages=AValue) then exit;
@@ -2360,7 +5947,7 @@ end;
-Procedure TPretargetingConfig.SetmobileCarriers(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetmobileCarriers(AIndex : Integer; const AValue : TStringArray);
begin
If (FmobileCarriers=AValue) then exit;
@@ -2370,7 +5957,7 @@ end;
-Procedure TPretargetingConfig.SetmobileDevices(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetmobileDevices(AIndex : Integer; const AValue : TStringArray);
begin
If (FmobileDevices=AValue) then exit;
@@ -2380,7 +5967,7 @@ end;
-Procedure TPretargetingConfig.SetmobileOperatingSystemVersions(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetmobileOperatingSystemVersions(AIndex : Integer; const AValue : TStringArray);
begin
If (FmobileOperatingSystemVersions=AValue) then exit;
@@ -2390,7 +5977,7 @@ end;
-Procedure TPretargetingConfig.Setplacements(AIndex : Integer; AValue : TPretargetingConfigTypeplacementsArray);
+Procedure TPretargetingConfig.Setplacements(AIndex : Integer; const AValue : TPretargetingConfigTypeplacementsArray);
begin
If (Fplacements=AValue) then exit;
@@ -2400,7 +5987,7 @@ end;
-Procedure TPretargetingConfig.Setplatforms(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.Setplatforms(AIndex : Integer; const AValue : TStringArray);
begin
If (Fplatforms=AValue) then exit;
@@ -2410,7 +5997,7 @@ end;
-Procedure TPretargetingConfig.SetsupportedCreativeAttributes(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetsupportedCreativeAttributes(AIndex : Integer; const AValue : TStringArray);
begin
If (FsupportedCreativeAttributes=AValue) then exit;
@@ -2420,7 +6007,7 @@ end;
-Procedure TPretargetingConfig.SetuserLists(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetuserLists(AIndex : Integer; const AValue : TStringArray);
begin
If (FuserLists=AValue) then exit;
@@ -2430,7 +6017,7 @@ end;
-Procedure TPretargetingConfig.SetvendorTypes(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.SetvendorTypes(AIndex : Integer; const AValue : TStringArray);
begin
If (FvendorTypes=AValue) then exit;
@@ -2440,7 +6027,7 @@ end;
-Procedure TPretargetingConfig.Setverticals(AIndex : Integer; AValue : TStringArray);
+Procedure TPretargetingConfig.Setverticals(AIndex : Integer; const AValue : TStringArray);
begin
If (Fverticals=AValue) then exit;
@@ -2449,6 +6036,16 @@ begin
end;
+
+Procedure TPretargetingConfig.SetvideoPlayerSizes(AIndex : Integer; const AValue : TPretargetingConfigTypevideoPlayerSizesArray);
+
+begin
+ If (FvideoPlayerSizes=AValue) then exit;
+ FvideoPlayerSizes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPretargetingConfig.SetArrayLength(Const AName : String; ALength : Longint);
@@ -2473,6 +6070,7 @@ begin
'userlists' : SetLength(FuserLists,ALength);
'vendortypes' : SetLength(FvendorTypes,ALength);
'verticals' : SetLength(Fverticals,ALength);
+ 'videoplayersizes' : SetLength(FvideoPlayerSizes,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -2487,7 +6085,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPretargetingConfigList.Setitems(AIndex : Integer; AValue : TPretargetingConfigListTypeitemsArray);
+Procedure TPretargetingConfigList.Setitems(AIndex : Integer; const AValue : TPretargetingConfigListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2523,6 +6121,1248 @@ end;
{ --------------------------------------------------------------------
+ TPrice
+ --------------------------------------------------------------------}
+
+
+Procedure TPrice.SetamountMicros(AIndex : Integer; const AValue : double);
+
+begin
+ If (FamountMicros=AValue) then exit;
+ FamountMicros:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPrice.SetcurrencyCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcurrencyCode=AValue) then exit;
+ FcurrencyCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPrice.SetpricingType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpricingType=AValue) then exit;
+ FpricingType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPricePerBuyer
+ --------------------------------------------------------------------}
+
+
+Procedure TPricePerBuyer.SetauctionTier(AIndex : Integer; const AValue : String);
+
+begin
+ If (FauctionTier=AValue) then exit;
+ FauctionTier:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPricePerBuyer.Setbuyer(AIndex : Integer; const AValue : TBuyer);
+
+begin
+ If (Fbuyer=AValue) then exit;
+ Fbuyer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPricePerBuyer.Setprice(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Fprice=AValue) then exit;
+ Fprice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPrivateData
+ --------------------------------------------------------------------}
+
+
+Procedure TPrivateData.SetreferenceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreferenceId=AValue) then exit;
+ FreferenceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPrivateData.SetreferencePayload(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreferencePayload=AValue) then exit;
+ FreferencePayload:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TProduct
+ --------------------------------------------------------------------}
+
+
+Procedure TProduct.SetcreationTimeMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimeMs=AValue) then exit;
+ FcreationTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetcreatorContacts(AIndex : Integer; const AValue : TProductTypecreatorContactsArray);
+
+begin
+ If (FcreatorContacts=AValue) then exit;
+ FcreatorContacts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetdeliveryControl(AIndex : Integer; const AValue : TDeliveryControl);
+
+begin
+ If (FdeliveryControl=AValue) then exit;
+ FdeliveryControl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetflightEndTimeMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FflightEndTimeMs=AValue) then exit;
+ FflightEndTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetflightStartTimeMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FflightStartTimeMs=AValue) then exit;
+ FflightStartTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SethasCreatorSignedOff(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasCreatorSignedOff=AValue) then exit;
+ FhasCreatorSignedOff:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetinventorySource(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinventorySource=AValue) then exit;
+ FinventorySource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.Setlabels(AIndex : Integer; const AValue : TProductTypelabelsArray);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetlastUpdateTimeMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlastUpdateTimeMs=AValue) then exit;
+ FlastUpdateTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetlegacyOfferId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlegacyOfferId=AValue) then exit;
+ FlegacyOfferId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetprivateAuctionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprivateAuctionId=AValue) then exit;
+ FprivateAuctionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetproductId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproductId=AValue) then exit;
+ FproductId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetpublisherProfileId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpublisherProfileId=AValue) then exit;
+ FpublisherProfileId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetpublisherProvidedForecast(AIndex : Integer; const AValue : TPublisherProvidedForecast);
+
+begin
+ If (FpublisherProvidedForecast=AValue) then exit;
+ FpublisherProvidedForecast:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetrevisionNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrevisionNumber=AValue) then exit;
+ FrevisionNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.Setseller(AIndex : Integer; const AValue : TSeller);
+
+begin
+ If (Fseller=AValue) then exit;
+ Fseller:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetsharedTargetings(AIndex : Integer; const AValue : TProductTypesharedTargetingsArray);
+
+begin
+ If (FsharedTargetings=AValue) then exit;
+ FsharedTargetings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetsyndicationProduct(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsyndicationProduct=AValue) then exit;
+ FsyndicationProduct:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.Setterms(AIndex : Integer; const AValue : TDealTerms);
+
+begin
+ If (Fterms=AValue) then exit;
+ Fterms:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetwebPropertyCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FwebPropertyCode=AValue) then exit;
+ FwebPropertyCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TProduct.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'creatorcontacts' : SetLength(FcreatorContacts,ALength);
+ 'labels' : SetLength(Flabels,ALength);
+ 'sharedtargetings' : SetLength(FsharedTargetings,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TProposal
+ --------------------------------------------------------------------}
+
+
+Procedure TProposal.SetbilledBuyer(AIndex : Integer; const AValue : TBuyer);
+
+begin
+ If (FbilledBuyer=AValue) then exit;
+ FbilledBuyer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.Setbuyer(AIndex : Integer; const AValue : TBuyer);
+
+begin
+ If (Fbuyer=AValue) then exit;
+ Fbuyer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetbuyerContacts(AIndex : Integer; const AValue : TProposalTypebuyerContactsArray);
+
+begin
+ If (FbuyerContacts=AValue) then exit;
+ FbuyerContacts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetbuyerPrivateData(AIndex : Integer; const AValue : TPrivateData);
+
+begin
+ If (FbuyerPrivateData=AValue) then exit;
+ FbuyerPrivateData:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SethasBuyerSignedOff(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasBuyerSignedOff=AValue) then exit;
+ FhasBuyerSignedOff:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SethasSellerSignedOff(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasSellerSignedOff=AValue) then exit;
+ FhasSellerSignedOff:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetinventorySource(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinventorySource=AValue) then exit;
+ FinventorySource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetisRenegotiating(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisRenegotiating=AValue) then exit;
+ FisRenegotiating:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetisSetupComplete(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisSetupComplete=AValue) then exit;
+ FisSetupComplete:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.Setlabels(AIndex : Integer; const AValue : TProposalTypelabelsArray);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetlastUpdaterOrCommentorRole(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlastUpdaterOrCommentorRole=AValue) then exit;
+ FlastUpdaterOrCommentorRole:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetnegotiationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnegotiationId=AValue) then exit;
+ FnegotiationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetoriginatorRole(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForiginatorRole=AValue) then exit;
+ ForiginatorRole:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetprivateAuctionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprivateAuctionId=AValue) then exit;
+ FprivateAuctionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetproposalId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproposalId=AValue) then exit;
+ FproposalId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetproposalState(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproposalState=AValue) then exit;
+ FproposalState:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetrevisionNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrevisionNumber=AValue) then exit;
+ FrevisionNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetrevisionTimeMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrevisionTimeMs=AValue) then exit;
+ FrevisionTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.Setseller(AIndex : Integer; const AValue : TSeller);
+
+begin
+ If (Fseller=AValue) then exit;
+ Fseller:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProposal.SetsellerContacts(AIndex : Integer; const AValue : TProposalTypesellerContactsArray);
+
+begin
+ If (FsellerContacts=AValue) then exit;
+ FsellerContacts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TProposal.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'buyercontacts' : SetLength(FbuyerContacts,ALength);
+ 'labels' : SetLength(Flabels,ALength);
+ 'sellercontacts' : SetLength(FsellerContacts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPublisherProfileApiProto
+ --------------------------------------------------------------------}
+
+
+Procedure TPublisherProfileApiProto.SetaccountId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaccountId=AValue) then exit;
+ FaccountId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.Setaudience(AIndex : Integer; const AValue : String);
+
+begin
+ If (Faudience=AValue) then exit;
+ Faudience:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetbuyerPitchStatement(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbuyerPitchStatement=AValue) then exit;
+ FbuyerPitchStatement:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetdirectContact(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdirectContact=AValue) then exit;
+ FdirectContact:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.Setexchange(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fexchange=AValue) then exit;
+ Fexchange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetgooglePlusLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FgooglePlusLink=AValue) then exit;
+ FgooglePlusLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetisParent(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisParent=AValue) then exit;
+ FisParent:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetisPublished(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisPublished=AValue) then exit;
+ FisPublished:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetlogoUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlogoUrl=AValue) then exit;
+ FlogoUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetmediaKitLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmediaKitLink=AValue) then exit;
+ FmediaKitLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.Setoverview(AIndex : Integer; const AValue : String);
+
+begin
+ If (Foverview=AValue) then exit;
+ Foverview:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetprofileId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FprofileId=AValue) then exit;
+ FprofileId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetprogrammaticContact(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprogrammaticContact=AValue) then exit;
+ FprogrammaticContact:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetpublisherDomains(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FpublisherDomains=AValue) then exit;
+ FpublisherDomains:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetpublisherProfileId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpublisherProfileId=AValue) then exit;
+ FpublisherProfileId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetpublisherProvidedForecast(AIndex : Integer; const AValue : TPublisherProvidedForecast);
+
+begin
+ If (FpublisherProvidedForecast=AValue) then exit;
+ FpublisherProvidedForecast:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetrateCardInfoLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrateCardInfoLink=AValue) then exit;
+ FrateCardInfoLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SetsamplePageLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsamplePageLink=AValue) then exit;
+ FsamplePageLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.Setseller(AIndex : Integer; const AValue : TSeller);
+
+begin
+ If (Fseller=AValue) then exit;
+ Fseller:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProfileApiProto.SettopHeadlines(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FtopHeadlines=AValue) then exit;
+ FtopHeadlines:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPublisherProfileApiProto.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'publisherdomains' : SetLength(FpublisherDomains,ALength);
+ 'topheadlines' : SetLength(FtopHeadlines,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPublisherProvidedForecast
+ --------------------------------------------------------------------}
+
+
+Procedure TPublisherProvidedForecast.Setdimensions(AIndex : Integer; const AValue : TPublisherProvidedForecastTypedimensionsArray);
+
+begin
+ If (Fdimensions=AValue) then exit;
+ Fdimensions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProvidedForecast.SetweeklyImpressions(AIndex : Integer; const AValue : String);
+
+begin
+ If (FweeklyImpressions=AValue) then exit;
+ FweeklyImpressions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublisherProvidedForecast.SetweeklyUniques(AIndex : Integer; const AValue : String);
+
+begin
+ If (FweeklyUniques=AValue) then exit;
+ FweeklyUniques:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPublisherProvidedForecast.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dimensions' : SetLength(Fdimensions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSeller
+ --------------------------------------------------------------------}
+
+
+Procedure TSeller.SetaccountId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaccountId=AValue) then exit;
+ FaccountId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSeller.SetsubAccountId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsubAccountId=AValue) then exit;
+ FsubAccountId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSharedTargeting
+ --------------------------------------------------------------------}
+
+
+Procedure TSharedTargeting.Setexclusions(AIndex : Integer; const AValue : TSharedTargetingTypeexclusionsArray);
+
+begin
+ If (Fexclusions=AValue) then exit;
+ Fexclusions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSharedTargeting.Setinclusions(AIndex : Integer; const AValue : TSharedTargetingTypeinclusionsArray);
+
+begin
+ If (Finclusions=AValue) then exit;
+ Finclusions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSharedTargeting.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSharedTargeting.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'exclusions' : SetLength(Fexclusions,ALength);
+ 'inclusions' : SetLength(Finclusions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTargetingValue
+ --------------------------------------------------------------------}
+
+
+Procedure TTargetingValue.SetcreativeSizeValue(AIndex : Integer; const AValue : TTargetingValueCreativeSize);
+
+begin
+ If (FcreativeSizeValue=AValue) then exit;
+ FcreativeSizeValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetingValue.SetdayPartTargetingValue(AIndex : Integer; const AValue : TTargetingValueDayPartTargeting);
+
+begin
+ If (FdayPartTargetingValue=AValue) then exit;
+ FdayPartTargetingValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetingValue.SetlongValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlongValue=AValue) then exit;
+ FlongValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetingValue.SetstringValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstringValue=AValue) then exit;
+ FstringValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTargetingValueCreativeSize
+ --------------------------------------------------------------------}
+
+
+Procedure TTargetingValueCreativeSize.SetcompanionSizes(AIndex : Integer; const AValue : TTargetingValueCreativeSizeTypecompanionSizesArray);
+
+begin
+ If (FcompanionSizes=AValue) then exit;
+ FcompanionSizes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetingValueCreativeSize.SetcreativeSizeType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreativeSizeType=AValue) then exit;
+ FcreativeSizeType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetingValueCreativeSize.Setsize(AIndex : Integer; const AValue : TTargetingValueSize);
+
+begin
+ If (Fsize=AValue) then exit;
+ Fsize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTargetingValueCreativeSize.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'companionsizes' : SetLength(FcompanionSizes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTargetingValueDayPartTargeting
+ --------------------------------------------------------------------}
+
+
+Procedure TTargetingValueDayPartTargeting.SetdayParts(AIndex : Integer; const AValue : TTargetingValueDayPartTargetingTypedayPartsArray);
+
+begin
+ If (FdayParts=AValue) then exit;
+ FdayParts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetingValueDayPartTargeting.SettimeZoneType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtimeZoneType=AValue) then exit;
+ FtimeZoneType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTargetingValueDayPartTargeting.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dayparts' : SetLength(FdayParts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTargetingValueDayPartTargetingDayPart
+ --------------------------------------------------------------------}
+
+
+Procedure TTargetingValueDayPartTargetingDayPart.SetdayOfWeek(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdayOfWeek=AValue) then exit;
+ FdayOfWeek:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetingValueDayPartTargetingDayPart.SetendHour(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FendHour=AValue) then exit;
+ FendHour:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetingValueDayPartTargetingDayPart.SetendMinute(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FendMinute=AValue) then exit;
+ FendMinute:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetingValueDayPartTargetingDayPart.SetstartHour(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartHour=AValue) then exit;
+ FstartHour:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetingValueDayPartTargetingDayPart.SetstartMinute(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartMinute=AValue) then exit;
+ FstartMinute:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTargetingValueSize
+ --------------------------------------------------------------------}
+
+
+Procedure TTargetingValueSize.Setheight(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fheight=AValue) then exit;
+ Fheight:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetingValueSize.Setwidth(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fwidth=AValue) then exit;
+ Fwidth:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdatePrivateAuctionProposalRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdatePrivateAuctionProposalRequest.SetexternalDealId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexternalDealId=AValue) then exit;
+ FexternalDealId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdatePrivateAuctionProposalRequest.Setnote(AIndex : Integer; const AValue : TMarketplaceNote);
+
+begin
+ If (Fnote=AValue) then exit;
+ Fnote:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdatePrivateAuctionProposalRequest.SetproposalRevisionNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproposalRevisionNumber=AValue) then exit;
+ FproposalRevisionNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdatePrivateAuctionProposalRequest.SetupdateAction(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdateAction=AValue) then exit;
+ FupdateAction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TAccountsResource
--------------------------------------------------------------------}
@@ -2723,6 +7563,21 @@ begin
Result:=TadexchangebuyerAPI;
end;
+Procedure TCreativesResource.AddDeal(accountId: integer; buyerCreativeId: string; dealId: string);
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'creatives/{accountId}/{buyerCreativeId}/addDeal/{dealId}';
+ _Methodid = 'adexchangebuyer.creatives.addDeal';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'buyerCreativeId',buyerCreativeId,'dealId',dealId]);
+ ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+end;
+
Function TCreativesResource.Get(accountId: integer; buyerCreativeId: string) : TCreative;
Const
@@ -2770,55 +7625,200 @@ begin
_Q:='';
AddToQuery(_Q,'accountId',AQuery.accountId);
AddToQuery(_Q,'buyerCreativeId',AQuery.buyerCreativeId);
+ AddToQuery(_Q,'dealsStatusFilter',AQuery.dealsStatusFilter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'openAuctionStatusFilter',AQuery.openAuctionStatusFilter);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'statusFilter',AQuery.statusFilter);
Result:=List(_Q);
end;
+Procedure TCreativesResource.RemoveDeal(accountId: integer; buyerCreativeId: string; dealId: string);
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'creatives/{accountId}/{buyerCreativeId}/removeDeal/{dealId}';
+ _Methodid = 'adexchangebuyer.creatives.removeDeal';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'buyerCreativeId',buyerCreativeId,'dealId',dealId]);
+ ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+end;
+
{ --------------------------------------------------------------------
- TDirectDealsResource
+ TMarketplacedealsResource
--------------------------------------------------------------------}
-Class Function TDirectDealsResource.ResourceName : String;
+Class Function TMarketplacedealsResource.ResourceName : String;
begin
- Result:='directDeals';
+ Result:='marketplacedeals';
end;
-Class Function TDirectDealsResource.DefaultAPI : TGoogleAPIClass;
+Class Function TMarketplacedealsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TadexchangebuyerAPI;
end;
-Function TDirectDealsResource.Get(id: string) : TDirectDeal;
+Function TMarketplacedealsResource.Delete(proposalId: string; aDeleteOrderDealsRequest : TDeleteOrderDealsRequest) : TDeleteOrderDealsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'proposals/{proposalId}/deals/delete';
+ _Methodid = 'adexchangebuyer.marketplacedeals.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['proposalId',proposalId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aDeleteOrderDealsRequest,TDeleteOrderDealsResponse) as TDeleteOrderDealsResponse;
+end;
+
+Function TMarketplacedealsResource.Insert(proposalId: string; aAddOrderDealsRequest : TAddOrderDealsRequest) : TAddOrderDealsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'proposals/{proposalId}/deals/insert';
+ _Methodid = 'adexchangebuyer.marketplacedeals.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['proposalId',proposalId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aAddOrderDealsRequest,TAddOrderDealsResponse) as TAddOrderDealsResponse;
+end;
+
+Function TMarketplacedealsResource.List(proposalId: string; AQuery : string = '') : TGetOrderDealsResponse;
Const
_HTTPMethod = 'GET';
- _Path = 'directdeals/{id}';
- _Methodid = 'adexchangebuyer.directDeals.get';
+ _Path = 'proposals/{proposalId}/deals';
+ _Methodid = 'adexchangebuyer.marketplacedeals.list';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['id',id]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDirectDeal) as TDirectDeal;
+ _P:=SubstitutePath(_Path,['proposalId',proposalId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TGetOrderDealsResponse) as TGetOrderDealsResponse;
+end;
+
+
+Function TMarketplacedealsResource.List(proposalId: string; AQuery : TMarketplacedealslistOptions) : TGetOrderDealsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pqlQuery',AQuery.pqlQuery);
+ Result:=List(proposalId,_Q);
end;
-Function TDirectDealsResource.List : TDirectDealsList;
+Function TMarketplacedealsResource.Update(proposalId: string; aEditAllOrderDealsRequest : TEditAllOrderDealsRequest) : TEditAllOrderDealsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'proposals/{proposalId}/deals/update';
+ _Methodid = 'adexchangebuyer.marketplacedeals.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['proposalId',proposalId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aEditAllOrderDealsRequest,TEditAllOrderDealsResponse) as TEditAllOrderDealsResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TMarketplacenotesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TMarketplacenotesResource.ResourceName : String;
+
+begin
+ Result:='marketplacenotes';
+end;
+
+Class Function TMarketplacenotesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TadexchangebuyerAPI;
+end;
+
+Function TMarketplacenotesResource.Insert(proposalId: string; aAddOrderNotesRequest : TAddOrderNotesRequest) : TAddOrderNotesResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'proposals/{proposalId}/notes/insert';
+ _Methodid = 'adexchangebuyer.marketplacenotes.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['proposalId',proposalId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aAddOrderNotesRequest,TAddOrderNotesResponse) as TAddOrderNotesResponse;
+end;
+
+Function TMarketplacenotesResource.List(proposalId: string) : TGetOrderNotesResponse;
Const
_HTTPMethod = 'GET';
- _Path = 'directdeals';
- _Methodid = 'adexchangebuyer.directDeals.list';
+ _Path = 'proposals/{proposalId}/notes';
+ _Methodid = 'adexchangebuyer.marketplacenotes.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['proposalId',proposalId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TGetOrderNotesResponse) as TGetOrderNotesResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TMarketplaceprivateauctionResource
+ --------------------------------------------------------------------}
+
+
+Class Function TMarketplaceprivateauctionResource.ResourceName : String;
+
+begin
+ Result:='marketplaceprivateauction';
+end;
+
+Class Function TMarketplaceprivateauctionResource.DefaultAPI : TGoogleAPIClass;
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TDirectDealsList) as TDirectDealsList;
+ Result:=TadexchangebuyerAPI;
+end;
+
+Procedure TMarketplaceprivateauctionResource.Updateproposal(privateAuctionId: string; aUpdatePrivateAuctionProposalRequest : TUpdatePrivateAuctionProposalRequest);
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'privateauction/{privateAuctionId}/updateproposal';
+ _Methodid = 'adexchangebuyer.marketplaceprivateauction.updateproposal';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['privateAuctionId',privateAuctionId]);
+ ServiceCall(_HTTPMethod,_P,'',aUpdatePrivateAuctionProposalRequest,Nil);
end;
@@ -2979,6 +7979,210 @@ end;
{ --------------------------------------------------------------------
+ TProductsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProductsResource.ResourceName : String;
+
+begin
+ Result:='products';
+end;
+
+Class Function TProductsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TadexchangebuyerAPI;
+end;
+
+Function TProductsResource.Get(productId: string) : TProduct;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'products/{productId}';
+ _Methodid = 'adexchangebuyer.products.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['productId',productId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProduct) as TProduct;
+end;
+
+Function TProductsResource.Search(AQuery : string = '') : TGetOffersResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'products/search';
+ _Methodid = 'adexchangebuyer.products.search';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TGetOffersResponse) as TGetOffersResponse;
+end;
+
+
+Function TProductsResource.Search(AQuery : TProductssearchOptions) : TGetOffersResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pqlQuery',AQuery.pqlQuery);
+ Result:=Search(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProposalsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProposalsResource.ResourceName : String;
+
+begin
+ Result:='proposals';
+end;
+
+Class Function TProposalsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TadexchangebuyerAPI;
+end;
+
+Function TProposalsResource.Get(proposalId: string) : TProposal;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'proposals/{proposalId}';
+ _Methodid = 'adexchangebuyer.proposals.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['proposalId',proposalId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProposal) as TProposal;
+end;
+
+Function TProposalsResource.Insert(aCreateOrdersRequest : TCreateOrdersRequest) : TCreateOrdersResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'proposals/insert';
+ _Methodid = 'adexchangebuyer.proposals.insert';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aCreateOrdersRequest,TCreateOrdersResponse) as TCreateOrdersResponse;
+end;
+
+Function TProposalsResource.Patch(proposalId: string; revisionNumber: string; _updateAction: string; aProposal : TProposal) : TProposal;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'proposals/{proposalId}/{revisionNumber}/{updateAction}';
+ _Methodid = 'adexchangebuyer.proposals.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['proposalId',proposalId,'revisionNumber',revisionNumber,'updateAction',_updateAction]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aProposal,TProposal) as TProposal;
+end;
+
+Function TProposalsResource.Search(AQuery : string = '') : TGetOrdersResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'proposals/search';
+ _Methodid = 'adexchangebuyer.proposals.search';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TGetOrdersResponse) as TGetOrdersResponse;
+end;
+
+
+Function TProposalsResource.Search(AQuery : TProposalssearchOptions) : TGetOrdersResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pqlQuery',AQuery.pqlQuery);
+ Result:=Search(_Q);
+end;
+
+Procedure TProposalsResource.Setupcomplete(proposalId: string);
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'proposals/{proposalId}/setupcomplete';
+ _Methodid = 'adexchangebuyer.proposals.setupcomplete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['proposalId',proposalId]);
+ ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+end;
+
+Function TProposalsResource.Update(proposalId: string; revisionNumber: string; _updateAction: string; aProposal : TProposal) : TProposal;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'proposals/{proposalId}/{revisionNumber}/{updateAction}';
+ _Methodid = 'adexchangebuyer.proposals.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['proposalId',proposalId,'revisionNumber',revisionNumber,'updateAction',_updateAction]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aProposal,TProposal) as TProposal;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TPubprofilesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TPubprofilesResource.ResourceName : String;
+
+begin
+ Result:='pubprofiles';
+end;
+
+Class Function TPubprofilesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TadexchangebuyerAPI;
+end;
+
+Function TPubprofilesResource.List(accountId: integer) : TGetPublisherProfilesByAccountIdResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'publisher/{accountId}/profiles';
+ _Methodid = 'adexchangebuyer.pubprofiles.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TGetPublisherProfilesByAccountIdResponse) as TGetPublisherProfilesByAccountIdResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
TAdexchangebuyerAPI
--------------------------------------------------------------------}
@@ -2991,19 +8195,19 @@ end;
Class Function TAdexchangebuyerAPI.APIVersion : String;
begin
- Result:='v1.3';
+ Result:='v1.4';
end;
Class Function TAdexchangebuyerAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160509';
end;
Class Function TAdexchangebuyerAPI.APIID : String;
begin
- Result:='adexchangebuyer:v1.3';
+ Result:='adexchangebuyer:v1.4';
end;
Class Function TAdexchangebuyerAPI.APITitle : String;
@@ -3051,19 +8255,19 @@ end;
Class Function TAdexchangebuyerAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TAdexchangebuyerAPI.APIbasePath : string;
begin
- Result:='/adexchangebuyer/v1.3/';
+ Result:='/adexchangebuyer/v1.4/';
end;
Class Function TAdexchangebuyerAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/adexchangebuyer/v1.3/';
+ Result:='https://www.googleapis.com/adexchangebuyer/v1.4/';
end;
Class Function TAdexchangebuyerAPI.APIProtocol : string;
@@ -3075,7 +8279,7 @@ end;
Class Function TAdexchangebuyerAPI.APIservicePath : string;
begin
- Result:='adexchangebuyer/v1.3/';
+ Result:='adexchangebuyer/v1.4/';
end;
Class Function TAdexchangebuyerAPI.APIbatchPath : String;
@@ -3105,24 +8309,76 @@ begin
TAccountTypebidderLocationItem.RegisterObject;
TAccount.RegisterObject;
TAccountsList.RegisterObject;
+ TAddOrderDealsRequest.RegisterObject;
+ TAddOrderDealsResponse.RegisterObject;
+ TAddOrderNotesRequest.RegisterObject;
+ TAddOrderNotesResponse.RegisterObject;
TBillingInfo.RegisterObject;
TBillingInfoList.RegisterObject;
TBudget.RegisterObject;
+ TBuyer.RegisterObject;
+ TContactInformation.RegisterObject;
+ TCreateOrdersRequest.RegisterObject;
+ TCreateOrdersResponse.RegisterObject;
TCreativeTypecorrectionsItem.RegisterObject;
- TCreativeTypedisapprovalReasonsItem.RegisterObject;
TCreativeTypefilteringReasonsTypereasonsItem.RegisterObject;
TCreativeTypefilteringReasons.RegisterObject;
+ TCreativeTypenativeAdTypeappIcon.RegisterObject;
+ TCreativeTypenativeAdTypeimage.RegisterObject;
+ TCreativeTypenativeAdTypelogo.RegisterObject;
+ TCreativeTypenativeAd.RegisterObject;
+ TCreativeTypeservingRestrictionsItemTypecontextsItem.RegisterObject;
+ TCreativeTypeservingRestrictionsItemTypedisapprovalReasonsItem.RegisterObject;
+ TCreativeTypeservingRestrictionsItem.RegisterObject;
TCreative.RegisterObject;
TCreativesList.RegisterObject;
- TDirectDeal.RegisterObject;
- TDirectDealsList.RegisterObject;
+ TDealServingMetadata.RegisterObject;
+ TDealServingMetadataDealPauseStatus.RegisterObject;
+ TDealTerms.RegisterObject;
+ TDealTermsGuaranteedFixedPriceTerms.RegisterObject;
+ TDealTermsGuaranteedFixedPriceTermsBillingInfo.RegisterObject;
+ TDealTermsNonGuaranteedAuctionTerms.RegisterObject;
+ TDealTermsNonGuaranteedFixedPriceTerms.RegisterObject;
+ TDeleteOrderDealsRequest.RegisterObject;
+ TDeleteOrderDealsResponse.RegisterObject;
+ TDeliveryControl.RegisterObject;
+ TDeliveryControlFrequencyCap.RegisterObject;
+ TDimension.RegisterObject;
+ TDimensionDimensionValue.RegisterObject;
+ TEditAllOrderDealsRequest.RegisterObject;
+ TEditAllOrderDealsResponse.RegisterObject;
+ TGetOffersResponse.RegisterObject;
+ TGetOrderDealsResponse.RegisterObject;
+ TGetOrderNotesResponse.RegisterObject;
+ TGetOrdersResponse.RegisterObject;
+ TGetPublisherProfilesByAccountIdResponse.RegisterObject;
+ TMarketplaceDeal.RegisterObject;
+ TMarketplaceDealParty.RegisterObject;
+ TMarketplaceLabel.RegisterObject;
+ TMarketplaceNote.RegisterObject;
TPerformanceReport.RegisterObject;
TPerformanceReportList.RegisterObject;
TPretargetingConfigTypedimensionsItem.RegisterObject;
TPretargetingConfigTypeexcludedPlacementsItem.RegisterObject;
TPretargetingConfigTypeplacementsItem.RegisterObject;
+ TPretargetingConfigTypevideoPlayerSizesItem.RegisterObject;
TPretargetingConfig.RegisterObject;
TPretargetingConfigList.RegisterObject;
+ TPrice.RegisterObject;
+ TPricePerBuyer.RegisterObject;
+ TPrivateData.RegisterObject;
+ TProduct.RegisterObject;
+ TProposal.RegisterObject;
+ TPublisherProfileApiProto.RegisterObject;
+ TPublisherProvidedForecast.RegisterObject;
+ TSeller.RegisterObject;
+ TSharedTargeting.RegisterObject;
+ TTargetingValue.RegisterObject;
+ TTargetingValueCreativeSize.RegisterObject;
+ TTargetingValueDayPartTargeting.RegisterObject;
+ TTargetingValueDayPartTargetingDayPart.RegisterObject;
+ TTargetingValueSize.RegisterObject;
+ TUpdatePrivateAuctionProposalRequest.RegisterObject;
end;
@@ -3222,25 +8478,73 @@ end;
-Function TAdexchangebuyerAPI.GetDirectDealsInstance : TDirectDealsResource;
+Function TAdexchangebuyerAPI.GetMarketplacedealsInstance : TMarketplacedealsResource;
begin
- if (FDirectDealsInstance=Nil) then
- FDirectDealsInstance:=CreateDirectDealsResource;
- Result:=FDirectDealsInstance;
+ if (FMarketplacedealsInstance=Nil) then
+ FMarketplacedealsInstance:=CreateMarketplacedealsResource;
+ Result:=FMarketplacedealsInstance;
end;
-Function TAdexchangebuyerAPI.CreateDirectDealsResource : TDirectDealsResource;
+Function TAdexchangebuyerAPI.CreateMarketplacedealsResource : TMarketplacedealsResource;
begin
- Result:=CreateDirectDealsResource(Self);
+ Result:=CreateMarketplacedealsResource(Self);
end;
-Function TAdexchangebuyerAPI.CreateDirectDealsResource(AOwner : TComponent) : TDirectDealsResource;
+Function TAdexchangebuyerAPI.CreateMarketplacedealsResource(AOwner : TComponent) : TMarketplacedealsResource;
begin
- Result:=TDirectDealsResource.Create(AOwner);
+ Result:=TMarketplacedealsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAdexchangebuyerAPI.GetMarketplacenotesInstance : TMarketplacenotesResource;
+
+begin
+ if (FMarketplacenotesInstance=Nil) then
+ FMarketplacenotesInstance:=CreateMarketplacenotesResource;
+ Result:=FMarketplacenotesInstance;
+end;
+
+Function TAdexchangebuyerAPI.CreateMarketplacenotesResource : TMarketplacenotesResource;
+
+begin
+ Result:=CreateMarketplacenotesResource(Self);
+end;
+
+
+Function TAdexchangebuyerAPI.CreateMarketplacenotesResource(AOwner : TComponent) : TMarketplacenotesResource;
+
+begin
+ Result:=TMarketplacenotesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAdexchangebuyerAPI.GetMarketplaceprivateauctionInstance : TMarketplaceprivateauctionResource;
+
+begin
+ if (FMarketplaceprivateauctionInstance=Nil) then
+ FMarketplaceprivateauctionInstance:=CreateMarketplaceprivateauctionResource;
+ Result:=FMarketplaceprivateauctionInstance;
+end;
+
+Function TAdexchangebuyerAPI.CreateMarketplaceprivateauctionResource : TMarketplaceprivateauctionResource;
+
+begin
+ Result:=CreateMarketplaceprivateauctionResource(Self);
+end;
+
+
+Function TAdexchangebuyerAPI.CreateMarketplaceprivateauctionResource(AOwner : TComponent) : TMarketplaceprivateauctionResource;
+
+begin
+ Result:=TMarketplaceprivateauctionResource.Create(AOwner);
Result.API:=Self.API;
end;
@@ -3294,6 +8598,78 @@ end;
+Function TAdexchangebuyerAPI.GetProductsInstance : TProductsResource;
+
+begin
+ if (FProductsInstance=Nil) then
+ FProductsInstance:=CreateProductsResource;
+ Result:=FProductsInstance;
+end;
+
+Function TAdexchangebuyerAPI.CreateProductsResource : TProductsResource;
+
+begin
+ Result:=CreateProductsResource(Self);
+end;
+
+
+Function TAdexchangebuyerAPI.CreateProductsResource(AOwner : TComponent) : TProductsResource;
+
+begin
+ Result:=TProductsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAdexchangebuyerAPI.GetProposalsInstance : TProposalsResource;
+
+begin
+ if (FProposalsInstance=Nil) then
+ FProposalsInstance:=CreateProposalsResource;
+ Result:=FProposalsInstance;
+end;
+
+Function TAdexchangebuyerAPI.CreateProposalsResource : TProposalsResource;
+
+begin
+ Result:=CreateProposalsResource(Self);
+end;
+
+
+Function TAdexchangebuyerAPI.CreateProposalsResource(AOwner : TComponent) : TProposalsResource;
+
+begin
+ Result:=TProposalsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAdexchangebuyerAPI.GetPubprofilesInstance : TPubprofilesResource;
+
+begin
+ if (FPubprofilesInstance=Nil) then
+ FPubprofilesInstance:=CreatePubprofilesResource;
+ Result:=FPubprofilesInstance;
+end;
+
+Function TAdexchangebuyerAPI.CreatePubprofilesResource : TPubprofilesResource;
+
+begin
+ Result:=CreatePubprofilesResource(Self);
+end;
+
+
+Function TAdexchangebuyerAPI.CreatePubprofilesResource(AOwner : TComponent) : TPubprofilesResource;
+
+begin
+ Result:=TPubprofilesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
initialization
TAdexchangebuyerAPI.RegisterAPI;
end.
diff --git a/packages/googleapi/src/googleadexchangebuyer2.pp b/packages/googleapi/src/googleadexchangebuyer2.pp
new file mode 100644
index 0000000000..626dec6a09
--- /dev/null
+++ b/packages/googleapi/src/googleadexchangebuyer2.pp
@@ -0,0 +1,1252 @@
+unit googleadexchangebuyer2;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TClientUser = Class;
+ TClientUserInvitation = Class;
+ TListClientUserInvitationsResponse = Class;
+ TListClientUsersResponse = Class;
+ TClient = Class;
+ TListClientsResponse = Class;
+ TClientUserArray = Array of TClientUser;
+ TClientUserInvitationArray = Array of TClientUserInvitation;
+ TListClientUserInvitationsResponseArray = Array of TListClientUserInvitationsResponse;
+ TListClientUsersResponseArray = Array of TListClientUsersResponse;
+ TClientArray = Array of TClient;
+ TListClientsResponseArray = Array of TListClientsResponse;
+ //Anonymous types, using auto-generated names
+ TListClientUserInvitationsResponseTypeinvitationsArray = Array of TClientUserInvitation;
+ TListClientUsersResponseTypeusersArray = Array of TClientUser;
+ TListClientsResponseTypeclientsArray = Array of TClient;
+
+ { --------------------------------------------------------------------
+ TClientUser
+ --------------------------------------------------------------------}
+
+ TClientUser = Class(TGoogleBaseObject)
+ Private
+ Femail : String;
+ FclientAccountId : String;
+ Fstatus : String;
+ FuserId : String;
+ Protected
+ //Property setters
+ Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclientAccountId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property email : String Index 0 Read Femail Write Setemail;
+ Property clientAccountId : String Index 8 Read FclientAccountId Write SetclientAccountId;
+ Property status : String Index 16 Read Fstatus Write Setstatus;
+ Property userId : String Index 24 Read FuserId Write SetuserId;
+ end;
+ TClientUserClass = Class of TClientUser;
+
+ { --------------------------------------------------------------------
+ TClientUserInvitation
+ --------------------------------------------------------------------}
+
+ TClientUserInvitation = Class(TGoogleBaseObject)
+ Private
+ Femail : String;
+ FclientAccountId : String;
+ FinvitationId : String;
+ Protected
+ //Property setters
+ Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclientAccountId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinvitationId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property email : String Index 0 Read Femail Write Setemail;
+ Property clientAccountId : String Index 8 Read FclientAccountId Write SetclientAccountId;
+ Property invitationId : String Index 16 Read FinvitationId Write SetinvitationId;
+ end;
+ TClientUserInvitationClass = Class of TClientUserInvitation;
+
+ { --------------------------------------------------------------------
+ TListClientUserInvitationsResponse
+ --------------------------------------------------------------------}
+
+ TListClientUserInvitationsResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ Finvitations : TListClientUserInvitationsResponseTypeinvitationsArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setinvitations(AIndex : Integer; const AValue : TListClientUserInvitationsResponseTypeinvitationsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property invitations : TListClientUserInvitationsResponseTypeinvitationsArray Index 8 Read Finvitations Write Setinvitations;
+ end;
+ TListClientUserInvitationsResponseClass = Class of TListClientUserInvitationsResponse;
+
+ { --------------------------------------------------------------------
+ TListClientUsersResponse
+ --------------------------------------------------------------------}
+
+ TListClientUsersResponse = Class(TGoogleBaseObject)
+ Private
+ Fusers : TListClientUsersResponseTypeusersArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setusers(AIndex : Integer; const AValue : TListClientUsersResponseTypeusersArray); 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 users : TListClientUsersResponseTypeusersArray Index 0 Read Fusers Write Setusers;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListClientUsersResponseClass = Class of TListClientUsersResponse;
+
+ { --------------------------------------------------------------------
+ TClient
+ --------------------------------------------------------------------}
+
+ TClient = Class(TGoogleBaseObject)
+ Private
+ FvisibleToSeller : boolean;
+ Fstatus : String;
+ FentityType : String;
+ Frole : String;
+ FclientName : String;
+ FclientAccountId : String;
+ FentityId : String;
+ FentityName : String;
+ Protected
+ //Property setters
+ Procedure SetvisibleToSeller(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetentityType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclientName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclientAccountId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetentityId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetentityName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property visibleToSeller : boolean Index 0 Read FvisibleToSeller Write SetvisibleToSeller;
+ Property status : String Index 8 Read Fstatus Write Setstatus;
+ Property entityType : String Index 16 Read FentityType Write SetentityType;
+ Property role : String Index 24 Read Frole Write Setrole;
+ Property clientName : String Index 32 Read FclientName Write SetclientName;
+ Property clientAccountId : String Index 40 Read FclientAccountId Write SetclientAccountId;
+ Property entityId : String Index 48 Read FentityId Write SetentityId;
+ Property entityName : String Index 56 Read FentityName Write SetentityName;
+ end;
+ TClientClass = Class of TClient;
+
+ { --------------------------------------------------------------------
+ TListClientsResponse
+ --------------------------------------------------------------------}
+
+ TListClientsResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ Fclients : TListClientsResponseTypeclientsArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setclients(AIndex : Integer; const AValue : TListClientsResponseTypeclientsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property clients : TListClientsResponseTypeclientsArray Index 8 Read Fclients Write Setclients;
+ end;
+ TListClientsResponseClass = Class of TListClientsResponse;
+
+ { --------------------------------------------------------------------
+ TAccountsClientsUsersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAccountsClientsUsersResource, method List
+
+ TAccountsClientsUsersListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TAccountsClientsUsersResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Update(clientAccountId: string; userId: string; accountId: string; aClientUser : TClientUser) : TClientUser;
+ Function Get(clientAccountId: string; userId: string; accountId: string) : TClientUser;
+ Function List(clientAccountId: string; accountId: string; AQuery : string = '') : TListClientUsersResponse;
+ Function List(clientAccountId: string; accountId: string; AQuery : TAccountsClientsUserslistOptions) : TListClientUsersResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsClientsInvitationsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAccountsClientsInvitationsResource, method List
+
+ TAccountsClientsInvitationsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TAccountsClientsInvitationsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(clientAccountId: string; accountId: string; aClientUserInvitation : TClientUserInvitation) : TClientUserInvitation;overload;
+ Function Get(clientAccountId: string; invitationId: string; accountId: string) : TClientUserInvitation;
+ Function List(clientAccountId: string; accountId: string; AQuery : string = '') : TListClientUserInvitationsResponse;
+ Function List(clientAccountId: string; accountId: string; AQuery : TAccountsClientsInvitationslistOptions) : TListClientUserInvitationsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsClientsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAccountsClientsResource, method List
+
+ TAccountsClientsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TAccountsClientsResource = Class(TGoogleResource)
+ Private
+ FUsersInstance : TAccountsClientsUsersResource;
+ FInvitationsInstance : TAccountsClientsInvitationsResource;
+ Function GetUsersInstance : TAccountsClientsUsersResource;virtual;
+ Function GetInvitationsInstance : TAccountsClientsInvitationsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Update(clientAccountId: string; accountId: string; aClient : TClient) : TClient;
+ Function Get(clientAccountId: string; accountId: string) : TClient;
+ Function Create(accountId: string; aClient : TClient) : TClient;overload;
+ Function List(accountId: string; AQuery : string = '') : TListClientsResponse;
+ Function List(accountId: string; AQuery : TAccountsClientslistOptions) : TListClientsResponse;
+ Function CreateUsersResource(AOwner : TComponent) : TAccountsClientsUsersResource;virtual;overload;
+ Function CreateUsersResource : TAccountsClientsUsersResource;virtual;overload;
+ Function CreateInvitationsResource(AOwner : TComponent) : TAccountsClientsInvitationsResource;virtual;overload;
+ Function CreateInvitationsResource : TAccountsClientsInvitationsResource;virtual;overload;
+ Property UsersResource : TAccountsClientsUsersResource Read GetUsersInstance;
+ Property InvitationsResource : TAccountsClientsInvitationsResource Read GetInvitationsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsResource
+ --------------------------------------------------------------------}
+
+ TAccountsResource = Class(TGoogleResource)
+ Private
+ FClientsUsersInstance : TAccountsClientsUsersResource;
+ FClientsInvitationsInstance : TAccountsClientsInvitationsResource;
+ FClientsInstance : TAccountsClientsResource;
+ Function GetClientsUsersInstance : TAccountsClientsUsersResource;virtual;
+ Function GetClientsInvitationsInstance : TAccountsClientsInvitationsResource;virtual;
+ Function GetClientsInstance : TAccountsClientsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CreateClientsUsersResource(AOwner : TComponent) : TAccountsClientsUsersResource;virtual;overload;
+ Function CreateClientsUsersResource : TAccountsClientsUsersResource;virtual;overload;
+ Function CreateClientsInvitationsResource(AOwner : TComponent) : TAccountsClientsInvitationsResource;virtual;overload;
+ Function CreateClientsInvitationsResource : TAccountsClientsInvitationsResource;virtual;overload;
+ Function CreateClientsResource(AOwner : TComponent) : TAccountsClientsResource;virtual;overload;
+ Function CreateClientsResource : TAccountsClientsResource;virtual;overload;
+ Property ClientsUsersResource : TAccountsClientsUsersResource Read GetClientsUsersInstance;
+ Property ClientsInvitationsResource : TAccountsClientsInvitationsResource Read GetClientsInvitationsInstance;
+ Property ClientsResource : TAccountsClientsResource Read GetClientsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAdexchangebuyer2API
+ --------------------------------------------------------------------}
+
+ TAdexchangebuyer2API = Class(TGoogleAPI)
+ Private
+ FAccountsClientsUsersInstance : TAccountsClientsUsersResource;
+ FAccountsClientsInvitationsInstance : TAccountsClientsInvitationsResource;
+ FAccountsClientsInstance : TAccountsClientsResource;
+ FAccountsInstance : TAccountsResource;
+ Function GetAccountsClientsUsersInstance : TAccountsClientsUsersResource;virtual;
+ Function GetAccountsClientsInvitationsInstance : TAccountsClientsInvitationsResource;virtual;
+ Function GetAccountsClientsInstance : TAccountsClientsResource;virtual;
+ Function GetAccountsInstance : TAccountsResource;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 CreateAccountsClientsUsersResource(AOwner : TComponent) : TAccountsClientsUsersResource;virtual;overload;
+ Function CreateAccountsClientsUsersResource : TAccountsClientsUsersResource;virtual;overload;
+ Function CreateAccountsClientsInvitationsResource(AOwner : TComponent) : TAccountsClientsInvitationsResource;virtual;overload;
+ Function CreateAccountsClientsInvitationsResource : TAccountsClientsInvitationsResource;virtual;overload;
+ Function CreateAccountsClientsResource(AOwner : TComponent) : TAccountsClientsResource;virtual;overload;
+ Function CreateAccountsClientsResource : TAccountsClientsResource;virtual;overload;
+ Function CreateAccountsResource(AOwner : TComponent) : TAccountsResource;virtual;overload;
+ Function CreateAccountsResource : TAccountsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property AccountsClientsUsersResource : TAccountsClientsUsersResource Read GetAccountsClientsUsersInstance;
+ Property AccountsClientsInvitationsResource : TAccountsClientsInvitationsResource Read GetAccountsClientsInvitationsInstance;
+ Property AccountsClientsResource : TAccountsClientsResource Read GetAccountsClientsInstance;
+ Property AccountsResource : TAccountsResource Read GetAccountsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TClientUser
+ --------------------------------------------------------------------}
+
+
+Procedure TClientUser.Setemail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Femail=AValue) then exit;
+ Femail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClientUser.SetclientAccountId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclientAccountId=AValue) then exit;
+ FclientAccountId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClientUser.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClientUser.SetuserId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuserId=AValue) then exit;
+ FuserId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TClientUserInvitation
+ --------------------------------------------------------------------}
+
+
+Procedure TClientUserInvitation.Setemail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Femail=AValue) then exit;
+ Femail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClientUserInvitation.SetclientAccountId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclientAccountId=AValue) then exit;
+ FclientAccountId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClientUserInvitation.SetinvitationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinvitationId=AValue) then exit;
+ FinvitationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListClientUserInvitationsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListClientUserInvitationsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListClientUserInvitationsResponse.Setinvitations(AIndex : Integer; const AValue : TListClientUserInvitationsResponseTypeinvitationsArray);
+
+begin
+ If (Finvitations=AValue) then exit;
+ Finvitations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListClientUserInvitationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'invitations' : SetLength(Finvitations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListClientUsersResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListClientUsersResponse.Setusers(AIndex : Integer; const AValue : TListClientUsersResponseTypeusersArray);
+
+begin
+ If (Fusers=AValue) then exit;
+ Fusers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListClientUsersResponse.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 TListClientUsersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'users' : SetLength(Fusers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TClient
+ --------------------------------------------------------------------}
+
+
+Procedure TClient.SetvisibleToSeller(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FvisibleToSeller=AValue) then exit;
+ FvisibleToSeller:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClient.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClient.SetentityType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FentityType=AValue) then exit;
+ FentityType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClient.Setrole(AIndex : Integer; const AValue : String);
+
+begin
+ If (Frole=AValue) then exit;
+ Frole:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClient.SetclientName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclientName=AValue) then exit;
+ FclientName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClient.SetclientAccountId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclientAccountId=AValue) then exit;
+ FclientAccountId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClient.SetentityId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FentityId=AValue) then exit;
+ FentityId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClient.SetentityName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FentityName=AValue) then exit;
+ FentityName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListClientsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListClientsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListClientsResponse.Setclients(AIndex : Integer; const AValue : TListClientsResponseTypeclientsArray);
+
+begin
+ If (Fclients=AValue) then exit;
+ Fclients:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListClientsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'clients' : SetLength(Fclients,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsClientsUsersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsClientsUsersResource.ResourceName : String;
+
+begin
+ Result:='users';
+end;
+
+Class Function TAccountsClientsUsersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=Tadexchangebuyer2API;
+end;
+
+Function TAccountsClientsUsersResource.Update(clientAccountId: string; userId: string; accountId: string; aClientUser : TClientUser) : TClientUser;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v2beta1/accounts/{accountId}/clients/{clientAccountId}/users/{userId}';
+ _Methodid = 'adexchangebuyer2.accounts.clients.users.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clientAccountId',clientAccountId,'userId',userId,'accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aClientUser,TClientUser) as TClientUser;
+end;
+
+Function TAccountsClientsUsersResource.Get(clientAccountId: string; userId: string; accountId: string) : TClientUser;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2beta1/accounts/{accountId}/clients/{clientAccountId}/users/{userId}';
+ _Methodid = 'adexchangebuyer2.accounts.clients.users.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clientAccountId',clientAccountId,'userId',userId,'accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TClientUser) as TClientUser;
+end;
+
+Function TAccountsClientsUsersResource.List(clientAccountId: string; accountId: string; AQuery : string = '') : TListClientUsersResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2beta1/accounts/{accountId}/clients/{clientAccountId}/users';
+ _Methodid = 'adexchangebuyer2.accounts.clients.users.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clientAccountId',clientAccountId,'accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListClientUsersResponse) as TListClientUsersResponse;
+end;
+
+
+Function TAccountsClientsUsersResource.List(clientAccountId: string; accountId: string; AQuery : TAccountsClientsUserslistOptions) : TListClientUsersResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(clientAccountId,accountId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsClientsInvitationsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsClientsInvitationsResource.ResourceName : String;
+
+begin
+ Result:='invitations';
+end;
+
+Class Function TAccountsClientsInvitationsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=Tadexchangebuyer2API;
+end;
+
+Function TAccountsClientsInvitationsResource.Create(clientAccountId: string; accountId: string; aClientUserInvitation : TClientUserInvitation) : TClientUserInvitation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v2beta1/accounts/{accountId}/clients/{clientAccountId}/invitations';
+ _Methodid = 'adexchangebuyer2.accounts.clients.invitations.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clientAccountId',clientAccountId,'accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aClientUserInvitation,TClientUserInvitation) as TClientUserInvitation;
+end;
+
+Function TAccountsClientsInvitationsResource.Get(clientAccountId: string; invitationId: string; accountId: string) : TClientUserInvitation;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2beta1/accounts/{accountId}/clients/{clientAccountId}/invitations/{invitationId}';
+ _Methodid = 'adexchangebuyer2.accounts.clients.invitations.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clientAccountId',clientAccountId,'invitationId',invitationId,'accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TClientUserInvitation) as TClientUserInvitation;
+end;
+
+Function TAccountsClientsInvitationsResource.List(clientAccountId: string; accountId: string; AQuery : string = '') : TListClientUserInvitationsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2beta1/accounts/{accountId}/clients/{clientAccountId}/invitations';
+ _Methodid = 'adexchangebuyer2.accounts.clients.invitations.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clientAccountId',clientAccountId,'accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListClientUserInvitationsResponse) as TListClientUserInvitationsResponse;
+end;
+
+
+Function TAccountsClientsInvitationsResource.List(clientAccountId: string; accountId: string; AQuery : TAccountsClientsInvitationslistOptions) : TListClientUserInvitationsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(clientAccountId,accountId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsClientsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsClientsResource.ResourceName : String;
+
+begin
+ Result:='clients';
+end;
+
+Class Function TAccountsClientsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=Tadexchangebuyer2API;
+end;
+
+Function TAccountsClientsResource.Update(clientAccountId: string; accountId: string; aClient : TClient) : TClient;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v2beta1/accounts/{accountId}/clients/{clientAccountId}';
+ _Methodid = 'adexchangebuyer2.accounts.clients.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clientAccountId',clientAccountId,'accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aClient,TClient) as TClient;
+end;
+
+Function TAccountsClientsResource.Get(clientAccountId: string; accountId: string) : TClient;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2beta1/accounts/{accountId}/clients/{clientAccountId}';
+ _Methodid = 'adexchangebuyer2.accounts.clients.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clientAccountId',clientAccountId,'accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TClient) as TClient;
+end;
+
+Function TAccountsClientsResource.Create(accountId: string; aClient : TClient) : TClient;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v2beta1/accounts/{accountId}/clients';
+ _Methodid = 'adexchangebuyer2.accounts.clients.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aClient,TClient) as TClient;
+end;
+
+Function TAccountsClientsResource.List(accountId: string; AQuery : string = '') : TListClientsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2beta1/accounts/{accountId}/clients';
+ _Methodid = 'adexchangebuyer2.accounts.clients.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListClientsResponse) as TListClientsResponse;
+end;
+
+
+Function TAccountsClientsResource.List(accountId: string; AQuery : TAccountsClientslistOptions) : TListClientsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(accountId,_Q);
+end;
+
+
+
+Function TAccountsClientsResource.GetUsersInstance : TAccountsClientsUsersResource;
+
+begin
+ if (FUsersInstance=Nil) then
+ FUsersInstance:=CreateUsersResource;
+ Result:=FUsersInstance;
+end;
+
+Function TAccountsClientsResource.CreateUsersResource : TAccountsClientsUsersResource;
+
+begin
+ Result:=CreateUsersResource(Self);
+end;
+
+
+Function TAccountsClientsResource.CreateUsersResource(AOwner : TComponent) : TAccountsClientsUsersResource;
+
+begin
+ Result:=TAccountsClientsUsersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsClientsResource.GetInvitationsInstance : TAccountsClientsInvitationsResource;
+
+begin
+ if (FInvitationsInstance=Nil) then
+ FInvitationsInstance:=CreateInvitationsResource;
+ Result:=FInvitationsInstance;
+end;
+
+Function TAccountsClientsResource.CreateInvitationsResource : TAccountsClientsInvitationsResource;
+
+begin
+ Result:=CreateInvitationsResource(Self);
+end;
+
+
+Function TAccountsClientsResource.CreateInvitationsResource(AOwner : TComponent) : TAccountsClientsInvitationsResource;
+
+begin
+ Result:=TAccountsClientsInvitationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsResource.ResourceName : String;
+
+begin
+ Result:='accounts';
+end;
+
+Class Function TAccountsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=Tadexchangebuyer2API;
+end;
+
+
+
+Function TAccountsResource.GetClientsUsersInstance : TAccountsClientsUsersResource;
+
+begin
+ if (FClientsUsersInstance=Nil) then
+ FClientsUsersInstance:=CreateClientsUsersResource;
+ Result:=FClientsUsersInstance;
+end;
+
+Function TAccountsResource.CreateClientsUsersResource : TAccountsClientsUsersResource;
+
+begin
+ Result:=CreateClientsUsersResource(Self);
+end;
+
+
+Function TAccountsResource.CreateClientsUsersResource(AOwner : TComponent) : TAccountsClientsUsersResource;
+
+begin
+ Result:=TAccountsClientsUsersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetClientsInvitationsInstance : TAccountsClientsInvitationsResource;
+
+begin
+ if (FClientsInvitationsInstance=Nil) then
+ FClientsInvitationsInstance:=CreateClientsInvitationsResource;
+ Result:=FClientsInvitationsInstance;
+end;
+
+Function TAccountsResource.CreateClientsInvitationsResource : TAccountsClientsInvitationsResource;
+
+begin
+ Result:=CreateClientsInvitationsResource(Self);
+end;
+
+
+Function TAccountsResource.CreateClientsInvitationsResource(AOwner : TComponent) : TAccountsClientsInvitationsResource;
+
+begin
+ Result:=TAccountsClientsInvitationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetClientsInstance : TAccountsClientsResource;
+
+begin
+ if (FClientsInstance=Nil) then
+ FClientsInstance:=CreateClientsResource;
+ Result:=FClientsInstance;
+end;
+
+Function TAccountsResource.CreateClientsResource : TAccountsClientsResource;
+
+begin
+ Result:=CreateClientsResource(Self);
+end;
+
+
+Function TAccountsResource.CreateClientsResource(AOwner : TComponent) : TAccountsClientsResource;
+
+begin
+ Result:=TAccountsClientsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAdexchangebuyer2API
+ --------------------------------------------------------------------}
+
+Class Function TAdexchangebuyer2API.APIName : String;
+
+begin
+ Result:='adexchangebuyer2';
+end;
+
+Class Function TAdexchangebuyer2API.APIVersion : String;
+
+begin
+ Result:='v2beta1';
+end;
+
+Class Function TAdexchangebuyer2API.APIRevision : String;
+
+begin
+ Result:='20160519';
+end;
+
+Class Function TAdexchangebuyer2API.APIID : String;
+
+begin
+ Result:='adexchangebuyer2:v2beta1';
+end;
+
+Class Function TAdexchangebuyer2API.APITitle : String;
+
+begin
+ Result:='Ad Exchange Buyer API II';
+end;
+
+Class Function TAdexchangebuyer2API.APIDescription : String;
+
+begin
+ Result:='Accesses the latest features for managing Ad Exchange accounts and Real-Time Bidding configurations.';
+end;
+
+Class Function TAdexchangebuyer2API.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TAdexchangebuyer2API.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TAdexchangebuyer2API.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TAdexchangebuyer2API.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TAdexchangebuyer2API.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/ad-exchange/buyer-rest/guides/client-access/';
+end;
+
+Class Function TAdexchangebuyer2API.APIrootUrl : string;
+
+begin
+ Result:='https://adexchangebuyer.googleapis.com/';
+end;
+
+Class Function TAdexchangebuyer2API.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TAdexchangebuyer2API.APIbaseURL : String;
+
+begin
+ Result:='https://adexchangebuyer.googleapis.com/';
+end;
+
+Class Function TAdexchangebuyer2API.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TAdexchangebuyer2API.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TAdexchangebuyer2API.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TAdexchangebuyer2API.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/adexchange.buyer';
+ Result[0].Description:='Manage your Ad Exchange buyer account configuration';
+
+end;
+
+Class Function TAdexchangebuyer2API.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TAdexchangebuyer2API.RegisterAPIResources;
+
+begin
+ TClientUser.RegisterObject;
+ TClientUserInvitation.RegisterObject;
+ TListClientUserInvitationsResponse.RegisterObject;
+ TListClientUsersResponse.RegisterObject;
+ TClient.RegisterObject;
+ TListClientsResponse.RegisterObject;
+end;
+
+
+Function TAdexchangebuyer2API.GetAccountsClientsUsersInstance : TAccountsClientsUsersResource;
+
+begin
+ if (FAccountsClientsUsersInstance=Nil) then
+ FAccountsClientsUsersInstance:=CreateAccountsClientsUsersResource;
+ Result:=FAccountsClientsUsersInstance;
+end;
+
+Function TAdexchangebuyer2API.CreateAccountsClientsUsersResource : TAccountsClientsUsersResource;
+
+begin
+ Result:=CreateAccountsClientsUsersResource(Self);
+end;
+
+
+Function TAdexchangebuyer2API.CreateAccountsClientsUsersResource(AOwner : TComponent) : TAccountsClientsUsersResource;
+
+begin
+ Result:=TAccountsClientsUsersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAdexchangebuyer2API.GetAccountsClientsInvitationsInstance : TAccountsClientsInvitationsResource;
+
+begin
+ if (FAccountsClientsInvitationsInstance=Nil) then
+ FAccountsClientsInvitationsInstance:=CreateAccountsClientsInvitationsResource;
+ Result:=FAccountsClientsInvitationsInstance;
+end;
+
+Function TAdexchangebuyer2API.CreateAccountsClientsInvitationsResource : TAccountsClientsInvitationsResource;
+
+begin
+ Result:=CreateAccountsClientsInvitationsResource(Self);
+end;
+
+
+Function TAdexchangebuyer2API.CreateAccountsClientsInvitationsResource(AOwner : TComponent) : TAccountsClientsInvitationsResource;
+
+begin
+ Result:=TAccountsClientsInvitationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAdexchangebuyer2API.GetAccountsClientsInstance : TAccountsClientsResource;
+
+begin
+ if (FAccountsClientsInstance=Nil) then
+ FAccountsClientsInstance:=CreateAccountsClientsResource;
+ Result:=FAccountsClientsInstance;
+end;
+
+Function TAdexchangebuyer2API.CreateAccountsClientsResource : TAccountsClientsResource;
+
+begin
+ Result:=CreateAccountsClientsResource(Self);
+end;
+
+
+Function TAdexchangebuyer2API.CreateAccountsClientsResource(AOwner : TComponent) : TAccountsClientsResource;
+
+begin
+ Result:=TAccountsClientsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAdexchangebuyer2API.GetAccountsInstance : TAccountsResource;
+
+begin
+ if (FAccountsInstance=Nil) then
+ FAccountsInstance:=CreateAccountsResource;
+ Result:=FAccountsInstance;
+end;
+
+Function TAdexchangebuyer2API.CreateAccountsResource : TAccountsResource;
+
+begin
+ Result:=CreateAccountsResource(Self);
+end;
+
+
+Function TAdexchangebuyer2API.CreateAccountsResource(AOwner : TComponent) : TAccountsResource;
+
+begin
+ Result:=TAccountsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TAdexchangebuyer2API.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleadexchangeseller.pp b/packages/googleapi/src/googleadexchangeseller.pp
index a75ec2f86d..4e2d3516c7 100644
--- a/packages/googleapi/src/googleadexchangeseller.pp
+++ b/packages/googleapi/src/googleadexchangeseller.pp
@@ -1,19 +1,4 @@
unit googleadexchangeseller;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:57
{$MODE objfpc}
{$H+}
@@ -107,7 +92,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAccountsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -136,11 +121,11 @@ type
FsupportsReporting : boolean;
Protected
//Property setters
- Procedure SetarcOptIn(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetarcOptIn(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetproductCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsupportsReporting(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetsupportsReporting(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property arcOptIn : boolean Index 0 Read FarcOptIn Write SetarcOptIn;
@@ -164,7 +149,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAdClientsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAdClientsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -219,7 +204,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAlertsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAlertsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -274,7 +259,7 @@ type
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SettargetingInfo(AIndex : Integer; AValue : TCustomChannelTypetargetingInfo); virtual;
+ Procedure SettargetingInfo(AIndex : Integer; const AValue : TCustomChannelTypetargetingInfo); virtual;
Public
Published
Property code : String Index 0 Read Fcode Write Setcode;
@@ -298,7 +283,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TCustomChannelsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCustomChannelsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -324,7 +309,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TMetadataTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -384,7 +369,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TPreferredDealsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPreferredDealsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -435,13 +420,13 @@ type
Fwarnings : TStringArray;
Protected
//Property setters
- Procedure Setaverages(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setheaders(AIndex : Integer; AValue : TReportTypeheadersArray); virtual;
+ Procedure Setaverages(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setheaders(AIndex : Integer; const AValue : TReportTypeheadersArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TReportTyperowsArray); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TReportTyperowsArray); virtual;
Procedure SettotalMatchedRows(AIndex : Integer; const AValue : String); virtual;
- Procedure Settotals(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Settotals(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -473,13 +458,13 @@ type
FsupportedProducts : TStringArray;
Protected
//Property setters
- Procedure SetcompatibleDimensions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetcompatibleMetrics(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetcompatibleDimensions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetcompatibleMetrics(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrequiredDimensions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetrequiredMetrics(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsupportedProducts(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetrequiredDimensions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetrequiredMetrics(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetsupportedProducts(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -531,7 +516,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TSavedReportsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSavedReportsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -582,7 +567,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TUrlChannelsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TUrlChannelsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1022,7 +1007,7 @@ end;
-Procedure TAccounts.Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray);
+Procedure TAccounts.Setitems(AIndex : Integer; const AValue : TAccountsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1072,7 +1057,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdClient.SetarcOptIn(AIndex : Integer; AValue : boolean);
+Procedure TAdClient.SetarcOptIn(AIndex : Integer; const AValue : boolean);
begin
If (FarcOptIn=AValue) then exit;
@@ -1112,7 +1097,7 @@ end;
-Procedure TAdClient.SetsupportsReporting(AIndex : Integer; AValue : boolean);
+Procedure TAdClient.SetsupportsReporting(AIndex : Integer; const AValue : boolean);
begin
If (FsupportsReporting=AValue) then exit;
@@ -1139,7 +1124,7 @@ end;
-Procedure TAdClients.Setitems(AIndex : Integer; AValue : TAdClientsTypeitemsArray);
+Procedure TAdClients.Setitems(AIndex : Integer; const AValue : TAdClientsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1257,7 +1242,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAlerts.Setitems(AIndex : Integer; AValue : TAlertsTypeitemsArray);
+Procedure TAlerts.Setitems(AIndex : Integer; const AValue : TAlertsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1384,7 +1369,7 @@ end;
-Procedure TCustomChannel.SettargetingInfo(AIndex : Integer; AValue : TCustomChannelTypetargetingInfo);
+Procedure TCustomChannel.SettargetingInfo(AIndex : Integer; const AValue : TCustomChannelTypetargetingInfo);
begin
If (FtargetingInfo=AValue) then exit;
@@ -1411,7 +1396,7 @@ end;
-Procedure TCustomChannels.Setitems(AIndex : Integer; AValue : TCustomChannelsTypeitemsArray);
+Procedure TCustomChannels.Setitems(AIndex : Integer; const AValue : TCustomChannelsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1461,7 +1446,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMetadata.Setitems(AIndex : Integer; AValue : TMetadataTypeitemsArray);
+Procedure TMetadata.Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1588,7 +1573,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPreferredDeals.Setitems(AIndex : Integer; AValue : TPreferredDealsTypeitemsArray);
+Procedure TPreferredDeals.Setitems(AIndex : Integer; const AValue : TPreferredDealsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1676,7 +1661,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReport.Setaverages(AIndex : Integer; AValue : TStringArray);
+Procedure TReport.Setaverages(AIndex : Integer; const AValue : TStringArray);
begin
If (Faverages=AValue) then exit;
@@ -1686,7 +1671,7 @@ end;
-Procedure TReport.Setheaders(AIndex : Integer; AValue : TReportTypeheadersArray);
+Procedure TReport.Setheaders(AIndex : Integer; const AValue : TReportTypeheadersArray);
begin
If (Fheaders=AValue) then exit;
@@ -1706,7 +1691,7 @@ end;
-Procedure TReport.Setrows(AIndex : Integer; AValue : TReportTyperowsArray);
+Procedure TReport.Setrows(AIndex : Integer; const AValue : TReportTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -1726,7 +1711,7 @@ end;
-Procedure TReport.Settotals(AIndex : Integer; AValue : TStringArray);
+Procedure TReport.Settotals(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftotals=AValue) then exit;
@@ -1736,7 +1721,7 @@ end;
-Procedure TReport.Setwarnings(AIndex : Integer; AValue : TStringArray);
+Procedure TReport.Setwarnings(AIndex : Integer; const AValue : TStringArray);
begin
If (Fwarnings=AValue) then exit;
@@ -1770,7 +1755,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportingMetadataEntry.SetcompatibleDimensions(AIndex : Integer; AValue : TStringArray);
+Procedure TReportingMetadataEntry.SetcompatibleDimensions(AIndex : Integer; const AValue : TStringArray);
begin
If (FcompatibleDimensions=AValue) then exit;
@@ -1780,7 +1765,7 @@ end;
-Procedure TReportingMetadataEntry.SetcompatibleMetrics(AIndex : Integer; AValue : TStringArray);
+Procedure TReportingMetadataEntry.SetcompatibleMetrics(AIndex : Integer; const AValue : TStringArray);
begin
If (FcompatibleMetrics=AValue) then exit;
@@ -1810,7 +1795,7 @@ end;
-Procedure TReportingMetadataEntry.SetrequiredDimensions(AIndex : Integer; AValue : TStringArray);
+Procedure TReportingMetadataEntry.SetrequiredDimensions(AIndex : Integer; const AValue : TStringArray);
begin
If (FrequiredDimensions=AValue) then exit;
@@ -1820,7 +1805,7 @@ end;
-Procedure TReportingMetadataEntry.SetrequiredMetrics(AIndex : Integer; AValue : TStringArray);
+Procedure TReportingMetadataEntry.SetrequiredMetrics(AIndex : Integer; const AValue : TStringArray);
begin
If (FrequiredMetrics=AValue) then exit;
@@ -1830,7 +1815,7 @@ end;
-Procedure TReportingMetadataEntry.SetsupportedProducts(AIndex : Integer; AValue : TStringArray);
+Procedure TReportingMetadataEntry.SetsupportedProducts(AIndex : Integer; const AValue : TStringArray);
begin
If (FsupportedProducts=AValue) then exit;
@@ -1911,7 +1896,7 @@ end;
-Procedure TSavedReports.Setitems(AIndex : Integer; AValue : TSavedReportsTypeitemsArray);
+Procedure TSavedReports.Setitems(AIndex : Integer; const AValue : TSavedReportsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2008,7 +1993,7 @@ end;
-Procedure TUrlChannels.Setitems(AIndex : Integer; AValue : TUrlChannelsTypeitemsArray);
+Procedure TUrlChannels.Setitems(AIndex : Integer; const AValue : TUrlChannelsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2910,7 +2895,7 @@ end;
Class Function TAdexchangesellerAPI.APIRevision : String;
begin
- Result:='20150401';
+ Result:='20160513';
end;
Class Function TAdexchangesellerAPI.APIID : String;
@@ -2964,7 +2949,7 @@ end;
Class Function TAdexchangesellerAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TAdexchangesellerAPI.APIbasePath : string;
@@ -2976,7 +2961,7 @@ end;
Class Function TAdexchangesellerAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/adexchangeseller/v2.0/';
+ Result:='https://www.googleapis.com/adexchangeseller/v2.0/';
end;
Class Function TAdexchangesellerAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googleadmin.pp b/packages/googleapi/src/googleadmin.pp
index ac89c0ee93..42ccde0978 100644
--- a/packages/googleapi/src/googleadmin.pp
+++ b/packages/googleapi/src/googleadmin.pp
@@ -1,19 +1,4 @@
unit googleadmin;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:57
{$MODE objfpc}
{$H+}
@@ -67,7 +52,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TActivitiesTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TActivitiesTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -122,10 +107,10 @@ type
Fvalue : String;
Protected
//Property setters
- Procedure SetboolValue(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetboolValue(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetintValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmultiIntValue(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetmultiValue(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetmultiIntValue(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetmultiValue(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -156,7 +141,7 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparameters(AIndex : Integer; AValue : TActivityTypeeventsItemTypeparametersArray); virtual;
+ Procedure Setparameters(AIndex : Integer; const AValue : TActivityTypeeventsItemTypeparametersArray); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -184,7 +169,7 @@ type
//Property setters
Procedure SetapplicationName(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomerId(AIndex : Integer; const AValue : String); virtual;
- Procedure Settime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Settime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetuniqueQualifier(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -210,10 +195,10 @@ type
FownerDomain : String;
Protected
//Property setters
- Procedure Setactor(AIndex : Integer; AValue : TActivityTypeactor); virtual;
+ Procedure Setactor(AIndex : Integer; const AValue : TActivityTypeactor); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setevents(AIndex : Integer; AValue : TActivityTypeeventsArray); virtual;
- Procedure Setid(AIndex : Integer; AValue : TActivityTypeid); virtual;
+ Procedure Setevents(AIndex : Integer; const AValue : TActivityTypeeventsArray); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : TActivityTypeid); virtual;
Procedure SetipAddress(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetownerDomain(AIndex : Integer; const AValue : String); virtual;
@@ -270,8 +255,8 @@ type
Procedure Setexpiration(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparams(AIndex : Integer; AValue : TChannelTypeparams); virtual;
- Procedure Setpayload(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setparams(AIndex : Integer; const AValue : TChannelTypeparams); virtual;
+ Procedure Setpayload(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetresourceId(AIndex : Integer; const AValue : String); virtual;
Procedure SetresourceUri(AIndex : Integer; const AValue : String); virtual;
Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
@@ -345,10 +330,10 @@ type
FstringValue : String;
Protected
//Property setters
- Procedure SetboolValue(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetdatetimeValue(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetboolValue(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdatetimeValue(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetintValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmsgValue(AIndex : Integer; AValue : TUsageReportTypeparametersItemTypemsgValueArray); virtual;
+ Procedure SetmsgValue(AIndex : Integer; const AValue : TUsageReportTypeparametersItemTypemsgValueArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -380,10 +365,10 @@ type
Protected
//Property setters
Procedure Setdate(AIndex : Integer; const AValue : String); virtual;
- Procedure Setentity(AIndex : Integer; AValue : TUsageReportTypeentity); virtual;
+ Procedure Setentity(AIndex : Integer; const AValue : TUsageReportTypeentity); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparameters(AIndex : Integer; AValue : TUsageReportTypeparametersArray); virtual;
+ Procedure Setparameters(AIndex : Integer; const AValue : TUsageReportTypeparametersArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -429,7 +414,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TUsageReportsTypewarningsItemTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TUsageReportsTypewarningsItemTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -459,8 +444,8 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetusageReports(AIndex : Integer; AValue : TUsageReportsTypeusageReportsArray); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TUsageReportsTypewarningsArray); virtual;
+ Procedure SetusageReports(AIndex : Integer; const AValue : TUsageReportsTypeusageReportsArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TUsageReportsTypewarningsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -646,7 +631,7 @@ end;
-Procedure TActivities.Setitems(AIndex : Integer; AValue : TActivitiesTypeitemsArray);
+Procedure TActivities.Setitems(AIndex : Integer; const AValue : TActivitiesTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -743,7 +728,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityTypeeventsItemTypeparametersItem.SetboolValue(AIndex : Integer; AValue : boolean);
+Procedure TActivityTypeeventsItemTypeparametersItem.SetboolValue(AIndex : Integer; const AValue : boolean);
begin
If (FboolValue=AValue) then exit;
@@ -763,7 +748,7 @@ end;
-Procedure TActivityTypeeventsItemTypeparametersItem.SetmultiIntValue(AIndex : Integer; AValue : TStringArray);
+Procedure TActivityTypeeventsItemTypeparametersItem.SetmultiIntValue(AIndex : Integer; const AValue : TStringArray);
begin
If (FmultiIntValue=AValue) then exit;
@@ -773,7 +758,7 @@ end;
-Procedure TActivityTypeeventsItemTypeparametersItem.SetmultiValue(AIndex : Integer; AValue : TStringArray);
+Procedure TActivityTypeeventsItemTypeparametersItem.SetmultiValue(AIndex : Integer; const AValue : TStringArray);
begin
If (FmultiValue=AValue) then exit;
@@ -834,7 +819,7 @@ end;
-Procedure TActivityTypeeventsItem.Setparameters(AIndex : Integer; AValue : TActivityTypeeventsItemTypeparametersArray);
+Procedure TActivityTypeeventsItem.Setparameters(AIndex : Integer; const AValue : TActivityTypeeventsItemTypeparametersArray);
begin
If (Fparameters=AValue) then exit;
@@ -905,7 +890,7 @@ end;
-Procedure TActivityTypeid.Settime(AIndex : Integer; AValue : TDatetime);
+Procedure TActivityTypeid.Settime(AIndex : Integer; const AValue : TDatetime);
begin
If (Ftime=AValue) then exit;
@@ -932,7 +917,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivity.Setactor(AIndex : Integer; AValue : TActivityTypeactor);
+Procedure TActivity.Setactor(AIndex : Integer; const AValue : TActivityTypeactor);
begin
If (Factor=AValue) then exit;
@@ -952,7 +937,7 @@ end;
-Procedure TActivity.Setevents(AIndex : Integer; AValue : TActivityTypeeventsArray);
+Procedure TActivity.Setevents(AIndex : Integer; const AValue : TActivityTypeeventsArray);
begin
If (Fevents=AValue) then exit;
@@ -962,7 +947,7 @@ end;
-Procedure TActivity.Setid(AIndex : Integer; AValue : TActivityTypeid);
+Procedure TActivity.Setid(AIndex : Integer; const AValue : TActivityTypeid);
begin
If (Fid=AValue) then exit;
@@ -1075,7 +1060,7 @@ end;
-Procedure TChannel.Setparams(AIndex : Integer; AValue : TChannelTypeparams);
+Procedure TChannel.Setparams(AIndex : Integer; const AValue : TChannelTypeparams);
begin
If (Fparams=AValue) then exit;
@@ -1085,7 +1070,7 @@ end;
-Procedure TChannel.Setpayload(AIndex : Integer; AValue : boolean);
+Procedure TChannel.Setpayload(AIndex : Integer; const AValue : boolean);
begin
If (Fpayload=AValue) then exit;
@@ -1224,7 +1209,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUsageReportTypeparametersItem.SetboolValue(AIndex : Integer; AValue : boolean);
+Procedure TUsageReportTypeparametersItem.SetboolValue(AIndex : Integer; const AValue : boolean);
begin
If (FboolValue=AValue) then exit;
@@ -1234,7 +1219,7 @@ end;
-Procedure TUsageReportTypeparametersItem.SetdatetimeValue(AIndex : Integer; AValue : TDatetime);
+Procedure TUsageReportTypeparametersItem.SetdatetimeValue(AIndex : Integer; const AValue : TDatetime);
begin
If (FdatetimeValue=AValue) then exit;
@@ -1254,7 +1239,7 @@ end;
-Procedure TUsageReportTypeparametersItem.SetmsgValue(AIndex : Integer; AValue : TUsageReportTypeparametersItemTypemsgValueArray);
+Procedure TUsageReportTypeparametersItem.SetmsgValue(AIndex : Integer; const AValue : TUsageReportTypeparametersItemTypemsgValueArray);
begin
If (FmsgValue=AValue) then exit;
@@ -1314,7 +1299,7 @@ end;
-Procedure TUsageReport.Setentity(AIndex : Integer; AValue : TUsageReportTypeentity);
+Procedure TUsageReport.Setentity(AIndex : Integer; const AValue : TUsageReportTypeentity);
begin
If (Fentity=AValue) then exit;
@@ -1344,7 +1329,7 @@ end;
-Procedure TUsageReport.Setparameters(AIndex : Integer; AValue : TUsageReportTypeparametersArray);
+Procedure TUsageReport.Setparameters(AIndex : Integer; const AValue : TUsageReportTypeparametersArray);
begin
If (Fparameters=AValue) then exit;
@@ -1411,7 +1396,7 @@ end;
-Procedure TUsageReportsTypewarningsItem.Setdata(AIndex : Integer; AValue : TUsageReportsTypewarningsItemTypedataArray);
+Procedure TUsageReportsTypewarningsItem.Setdata(AIndex : Integer; const AValue : TUsageReportsTypewarningsItemTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -1481,7 +1466,7 @@ end;
-Procedure TUsageReports.SetusageReports(AIndex : Integer; AValue : TUsageReportsTypeusageReportsArray);
+Procedure TUsageReports.SetusageReports(AIndex : Integer; const AValue : TUsageReportsTypeusageReportsArray);
begin
If (FusageReports=AValue) then exit;
@@ -1491,7 +1476,7 @@ end;
-Procedure TUsageReports.Setwarnings(AIndex : Integer; AValue : TUsageReportsTypewarningsArray);
+Procedure TUsageReports.Setwarnings(AIndex : Integer; const AValue : TUsageReportsTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
@@ -1751,7 +1736,7 @@ end;
Class Function TAdminAPI.APIRevision : String;
begin
- Result:='20150429';
+ Result:='20151113';
end;
Class Function TAdminAPI.APIID : String;
@@ -1805,7 +1790,7 @@ end;
Class Function TAdminAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TAdminAPI.APIbasePath : string;
@@ -1817,7 +1802,7 @@ end;
Class Function TAdminAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/admin/reports/v1/';
+ Result:='https://www.googleapis.com/admin/reports/v1/';
end;
Class Function TAdminAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googleadsense.pp b/packages/googleapi/src/googleadsense.pp
index 650e31e87c..43cefffc1d 100644
--- a/packages/googleapi/src/googleadsense.pp
+++ b/packages/googleapi/src/googleadsense.pp
@@ -1,19 +1,4 @@
unit googleadsense;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:57
{$MODE objfpc}
{$H+}
@@ -99,6 +84,7 @@ type
TAccount = Class(TGoogleBaseObject)
Private
+ Fcreation_time : String;
Fid : String;
Fkind : String;
Fname : String;
@@ -107,11 +93,12 @@ type
Ftimezone : String;
Protected
//Property setters
+ Procedure Setcreation_time(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpremium(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsubAccounts(AIndex : Integer; AValue : TAccountTypesubAccountsArray); virtual;
+ Procedure Setpremium(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsubAccounts(AIndex : Integer; const AValue : TAccountTypesubAccountsArray); virtual;
Procedure Settimezone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -119,12 +106,13 @@ type
{$ENDIF VER2_6}
Public
Published
- Property id : String Index 0 Read Fid Write Setid;
- Property kind : String Index 8 Read Fkind Write Setkind;
- Property name : String Index 16 Read Fname Write Setname;
- Property premium : boolean Index 24 Read Fpremium Write Setpremium;
- Property subAccounts : TAccountTypesubAccountsArray Index 32 Read FsubAccounts Write SetsubAccounts;
- Property timezone : String Index 40 Read Ftimezone Write Settimezone;
+ Property creation_time : String Index 0 Read Fcreation_time Write Setcreation_time;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property name : String Index 24 Read Fname Write Setname;
+ Property premium : boolean Index 32 Read Fpremium Write Setpremium;
+ Property subAccounts : TAccountTypesubAccountsArray Index 40 Read FsubAccounts Write SetsubAccounts;
+ Property timezone : String Index 48 Read Ftimezone Write Settimezone;
end;
TAccountClass = Class of TAccount;
@@ -141,7 +129,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAccountsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -164,27 +152,24 @@ type
TAdClient = Class(TGoogleBaseObject)
Private
FarcOptIn : boolean;
- FarcReviewMode : String;
Fid : String;
Fkind : String;
FproductCode : String;
FsupportsReporting : boolean;
Protected
//Property setters
- Procedure SetarcOptIn(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetarcReviewMode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetarcOptIn(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetproductCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsupportsReporting(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetsupportsReporting(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property arcOptIn : boolean Index 0 Read FarcOptIn Write SetarcOptIn;
- Property arcReviewMode : String Index 8 Read FarcReviewMode Write SetarcReviewMode;
- Property id : String Index 16 Read Fid Write Setid;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property productCode : String Index 32 Read FproductCode Write SetproductCode;
- Property supportsReporting : boolean Index 40 Read FsupportsReporting Write SetsupportsReporting;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property productCode : String Index 24 Read FproductCode Write SetproductCode;
+ Property supportsReporting : boolean Index 32 Read FsupportsReporting Write SetsupportsReporting;
end;
TAdClientClass = Class of TAdClient;
@@ -201,7 +186,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAdClientsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAdClientsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -295,9 +280,9 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setcolors(AIndex : Integer; AValue : TAdStyleTypecolors); virtual;
+ Procedure Setcolors(AIndex : Integer; const AValue : TAdStyleTypecolors); virtual;
Procedure Setcorners(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfont(AIndex : Integer; AValue : TAdStyleTypefont); virtual;
+ Procedure Setfont(AIndex : Integer; const AValue : TAdStyleTypefont); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -343,7 +328,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetbackupOption(AIndex : Integer; AValue : TAdUnitTypecontentAdsSettingsTypebackupOption); virtual;
+ Procedure SetbackupOption(AIndex : Integer; const AValue : TAdUnitTypecontentAdsSettingsTypebackupOption); virtual;
Procedure Setsize(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
@@ -368,8 +353,8 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetadPosition(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfrequency(AIndex : Integer; AValue : integer); virtual;
- Procedure SetminimumWordCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setfrequency(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetminimumWordCount(AIndex : Integer; const AValue : integer); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -425,12 +410,12 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontentAdsSettings(AIndex : Integer; AValue : TAdUnitTypecontentAdsSettings); virtual;
- Procedure SetcustomStyle(AIndex : Integer; AValue : TAdStyle); virtual;
- Procedure SetfeedAdsSettings(AIndex : Integer; AValue : TAdUnitTypefeedAdsSettings); virtual;
+ Procedure SetcontentAdsSettings(AIndex : Integer; const AValue : TAdUnitTypecontentAdsSettings); virtual;
+ Procedure SetcustomStyle(AIndex : Integer; const AValue : TAdStyle); virtual;
+ Procedure SetfeedAdsSettings(AIndex : Integer; const AValue : TAdUnitTypefeedAdsSettings); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmobileContentAdsSettings(AIndex : Integer; AValue : TAdUnitTypemobileContentAdsSettings); virtual;
+ Procedure SetmobileContentAdsSettings(AIndex : Integer; const AValue : TAdUnitTypemobileContentAdsSettings); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetsavedStyleId(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
@@ -462,7 +447,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAdUnitsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAdUnitsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -518,15 +503,15 @@ type
Fwarnings : TStringArray;
Protected
//Property setters
- Procedure Setaverages(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setaverages(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
- Procedure Setheaders(AIndex : Integer; AValue : TAdsenseReportsGenerateResponseTypeheadersArray); virtual;
+ Procedure Setheaders(AIndex : Integer; const AValue : TAdsenseReportsGenerateResponseTypeheadersArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TAdsenseReportsGenerateResponseTyperowsArray); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TAdsenseReportsGenerateResponseTyperowsArray); virtual;
Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalMatchedRows(AIndex : Integer; const AValue : String); virtual;
- Procedure Settotals(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Settotals(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -561,7 +546,7 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisDismissible(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisDismissible(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
Procedure Setseverity(AIndex : Integer; const AValue : String); virtual;
@@ -587,7 +572,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAlertsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAlertsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -642,7 +627,7 @@ type
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SettargetingInfo(AIndex : Integer; AValue : TCustomChannelTypetargetingInfo); virtual;
+ Procedure SettargetingInfo(AIndex : Integer; const AValue : TCustomChannelTypetargetingInfo); virtual;
Public
Published
Property code : String Index 0 Read Fcode Write Setcode;
@@ -666,7 +651,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TCustomChannelsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCustomChannelsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -692,7 +677,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TMetadataTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -743,7 +728,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TPaymentsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPaymentsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -771,13 +756,13 @@ type
FsupportedProducts : TStringArray;
Protected
//Property setters
- Procedure SetcompatibleDimensions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetcompatibleMetrics(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetcompatibleDimensions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetcompatibleMetrics(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrequiredDimensions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetrequiredMetrics(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsupportedProducts(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetrequiredDimensions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetrequiredMetrics(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetsupportedProducts(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -806,7 +791,7 @@ type
Fname : String;
Protected
//Property setters
- Procedure SetadStyle(AIndex : Integer; AValue : TAdStyle); virtual;
+ Procedure SetadStyle(AIndex : Integer; const AValue : TAdStyle); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
@@ -832,7 +817,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TSavedAdStylesTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSavedAdStylesTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -883,7 +868,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TSavedReportsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSavedReportsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -934,7 +919,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TUrlChannelsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TUrlChannelsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1785,6 +1770,16 @@ implementation
--------------------------------------------------------------------}
+Procedure TAccount.Setcreation_time(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcreation_time=AValue) then exit;
+ Fcreation_time:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TAccount.Setid(AIndex : Integer; const AValue : String);
begin
@@ -1815,7 +1810,7 @@ end;
-Procedure TAccount.Setpremium(AIndex : Integer; AValue : boolean);
+Procedure TAccount.Setpremium(AIndex : Integer; const AValue : boolean);
begin
If (Fpremium=AValue) then exit;
@@ -1825,7 +1820,7 @@ end;
-Procedure TAccount.SetsubAccounts(AIndex : Integer; AValue : TAccountTypesubAccountsArray);
+Procedure TAccount.SetsubAccounts(AIndex : Integer; const AValue : TAccountTypesubAccountsArray);
begin
If (FsubAccounts=AValue) then exit;
@@ -1875,7 +1870,7 @@ end;
-Procedure TAccounts.Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray);
+Procedure TAccounts.Setitems(AIndex : Integer; const AValue : TAccountsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1925,7 +1920,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdClient.SetarcOptIn(AIndex : Integer; AValue : boolean);
+Procedure TAdClient.SetarcOptIn(AIndex : Integer; const AValue : boolean);
begin
If (FarcOptIn=AValue) then exit;
@@ -1935,16 +1930,6 @@ end;
-Procedure TAdClient.SetarcReviewMode(AIndex : Integer; const AValue : String);
-
-begin
- If (FarcReviewMode=AValue) then exit;
- FarcReviewMode:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TAdClient.Setid(AIndex : Integer; const AValue : String);
begin
@@ -1975,7 +1960,7 @@ end;
-Procedure TAdClient.SetsupportsReporting(AIndex : Integer; AValue : boolean);
+Procedure TAdClient.SetsupportsReporting(AIndex : Integer; const AValue : boolean);
begin
If (FsupportsReporting=AValue) then exit;
@@ -2002,7 +1987,7 @@ end;
-Procedure TAdClients.Setitems(AIndex : Integer; AValue : TAdClientsTypeitemsArray);
+Procedure TAdClients.Setitems(AIndex : Integer; const AValue : TAdClientsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2163,7 +2148,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdStyle.Setcolors(AIndex : Integer; AValue : TAdStyleTypecolors);
+Procedure TAdStyle.Setcolors(AIndex : Integer; const AValue : TAdStyleTypecolors);
begin
If (Fcolors=AValue) then exit;
@@ -2183,7 +2168,7 @@ end;
-Procedure TAdStyle.Setfont(AIndex : Integer; AValue : TAdStyleTypefont);
+Procedure TAdStyle.Setfont(AIndex : Integer; const AValue : TAdStyleTypefont);
begin
If (Ffont=AValue) then exit;
@@ -2258,7 +2243,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdUnitTypecontentAdsSettings.SetbackupOption(AIndex : Integer; AValue : TAdUnitTypecontentAdsSettingsTypebackupOption);
+Procedure TAdUnitTypecontentAdsSettings.SetbackupOption(AIndex : Integer; const AValue : TAdUnitTypecontentAdsSettingsTypebackupOption);
begin
If (FbackupOption=AValue) then exit;
@@ -2316,7 +2301,7 @@ end;
-Procedure TAdUnitTypefeedAdsSettings.Setfrequency(AIndex : Integer; AValue : integer);
+Procedure TAdUnitTypefeedAdsSettings.Setfrequency(AIndex : Integer; const AValue : integer);
begin
If (Ffrequency=AValue) then exit;
@@ -2326,7 +2311,7 @@ end;
-Procedure TAdUnitTypefeedAdsSettings.SetminimumWordCount(AIndex : Integer; AValue : integer);
+Procedure TAdUnitTypefeedAdsSettings.SetminimumWordCount(AIndex : Integer; const AValue : integer);
begin
If (FminimumWordCount=AValue) then exit;
@@ -2432,7 +2417,7 @@ end;
-Procedure TAdUnit.SetcontentAdsSettings(AIndex : Integer; AValue : TAdUnitTypecontentAdsSettings);
+Procedure TAdUnit.SetcontentAdsSettings(AIndex : Integer; const AValue : TAdUnitTypecontentAdsSettings);
begin
If (FcontentAdsSettings=AValue) then exit;
@@ -2442,7 +2427,7 @@ end;
-Procedure TAdUnit.SetcustomStyle(AIndex : Integer; AValue : TAdStyle);
+Procedure TAdUnit.SetcustomStyle(AIndex : Integer; const AValue : TAdStyle);
begin
If (FcustomStyle=AValue) then exit;
@@ -2452,7 +2437,7 @@ end;
-Procedure TAdUnit.SetfeedAdsSettings(AIndex : Integer; AValue : TAdUnitTypefeedAdsSettings);
+Procedure TAdUnit.SetfeedAdsSettings(AIndex : Integer; const AValue : TAdUnitTypefeedAdsSettings);
begin
If (FfeedAdsSettings=AValue) then exit;
@@ -2482,7 +2467,7 @@ end;
-Procedure TAdUnit.SetmobileContentAdsSettings(AIndex : Integer; AValue : TAdUnitTypemobileContentAdsSettings);
+Procedure TAdUnit.SetmobileContentAdsSettings(AIndex : Integer; const AValue : TAdUnitTypemobileContentAdsSettings);
begin
If (FmobileContentAdsSettings=AValue) then exit;
@@ -2539,7 +2524,7 @@ end;
-Procedure TAdUnits.Setitems(AIndex : Integer; AValue : TAdUnitsTypeitemsArray);
+Procedure TAdUnits.Setitems(AIndex : Integer; const AValue : TAdUnitsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2637,7 +2622,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdsenseReportsGenerateResponse.Setaverages(AIndex : Integer; AValue : TStringArray);
+Procedure TAdsenseReportsGenerateResponse.Setaverages(AIndex : Integer; const AValue : TStringArray);
begin
If (Faverages=AValue) then exit;
@@ -2657,7 +2642,7 @@ end;
-Procedure TAdsenseReportsGenerateResponse.Setheaders(AIndex : Integer; AValue : TAdsenseReportsGenerateResponseTypeheadersArray);
+Procedure TAdsenseReportsGenerateResponse.Setheaders(AIndex : Integer; const AValue : TAdsenseReportsGenerateResponseTypeheadersArray);
begin
If (Fheaders=AValue) then exit;
@@ -2677,7 +2662,7 @@ end;
-Procedure TAdsenseReportsGenerateResponse.Setrows(AIndex : Integer; AValue : TAdsenseReportsGenerateResponseTyperowsArray);
+Procedure TAdsenseReportsGenerateResponse.Setrows(AIndex : Integer; const AValue : TAdsenseReportsGenerateResponseTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -2707,7 +2692,7 @@ end;
-Procedure TAdsenseReportsGenerateResponse.Settotals(AIndex : Integer; AValue : TStringArray);
+Procedure TAdsenseReportsGenerateResponse.Settotals(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftotals=AValue) then exit;
@@ -2717,7 +2702,7 @@ end;
-Procedure TAdsenseReportsGenerateResponse.Setwarnings(AIndex : Integer; AValue : TStringArray);
+Procedure TAdsenseReportsGenerateResponse.Setwarnings(AIndex : Integer; const AValue : TStringArray);
begin
If (Fwarnings=AValue) then exit;
@@ -2761,7 +2746,7 @@ end;
-Procedure TAlert.SetisDismissible(AIndex : Integer; AValue : boolean);
+Procedure TAlert.SetisDismissible(AIndex : Integer; const AValue : boolean);
begin
If (FisDismissible=AValue) then exit;
@@ -2829,7 +2814,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAlerts.Setitems(AIndex : Integer; AValue : TAlertsTypeitemsArray);
+Procedure TAlerts.Setitems(AIndex : Integer; const AValue : TAlertsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2956,7 +2941,7 @@ end;
-Procedure TCustomChannel.SettargetingInfo(AIndex : Integer; AValue : TCustomChannelTypetargetingInfo);
+Procedure TCustomChannel.SettargetingInfo(AIndex : Integer; const AValue : TCustomChannelTypetargetingInfo);
begin
If (FtargetingInfo=AValue) then exit;
@@ -2983,7 +2968,7 @@ end;
-Procedure TCustomChannels.Setitems(AIndex : Integer; AValue : TCustomChannelsTypeitemsArray);
+Procedure TCustomChannels.Setitems(AIndex : Integer; const AValue : TCustomChannelsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3033,7 +3018,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMetadata.Setitems(AIndex : Integer; AValue : TMetadataTypeitemsArray);
+Procedure TMetadata.Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3130,7 +3115,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPayments.Setitems(AIndex : Integer; AValue : TPaymentsTypeitemsArray);
+Procedure TPayments.Setitems(AIndex : Integer; const AValue : TPaymentsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3170,7 +3155,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportingMetadataEntry.SetcompatibleDimensions(AIndex : Integer; AValue : TStringArray);
+Procedure TReportingMetadataEntry.SetcompatibleDimensions(AIndex : Integer; const AValue : TStringArray);
begin
If (FcompatibleDimensions=AValue) then exit;
@@ -3180,7 +3165,7 @@ end;
-Procedure TReportingMetadataEntry.SetcompatibleMetrics(AIndex : Integer; AValue : TStringArray);
+Procedure TReportingMetadataEntry.SetcompatibleMetrics(AIndex : Integer; const AValue : TStringArray);
begin
If (FcompatibleMetrics=AValue) then exit;
@@ -3210,7 +3195,7 @@ end;
-Procedure TReportingMetadataEntry.SetrequiredDimensions(AIndex : Integer; AValue : TStringArray);
+Procedure TReportingMetadataEntry.SetrequiredDimensions(AIndex : Integer; const AValue : TStringArray);
begin
If (FrequiredDimensions=AValue) then exit;
@@ -3220,7 +3205,7 @@ end;
-Procedure TReportingMetadataEntry.SetrequiredMetrics(AIndex : Integer; AValue : TStringArray);
+Procedure TReportingMetadataEntry.SetrequiredMetrics(AIndex : Integer; const AValue : TStringArray);
begin
If (FrequiredMetrics=AValue) then exit;
@@ -3230,7 +3215,7 @@ end;
-Procedure TReportingMetadataEntry.SetsupportedProducts(AIndex : Integer; AValue : TStringArray);
+Procedure TReportingMetadataEntry.SetsupportedProducts(AIndex : Integer; const AValue : TStringArray);
begin
If (FsupportedProducts=AValue) then exit;
@@ -3264,7 +3249,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSavedAdStyle.SetadStyle(AIndex : Integer; AValue : TAdStyle);
+Procedure TSavedAdStyle.SetadStyle(AIndex : Integer; const AValue : TAdStyle);
begin
If (FadStyle=AValue) then exit;
@@ -3321,7 +3306,7 @@ end;
-Procedure TSavedAdStyles.Setitems(AIndex : Integer; AValue : TSavedAdStylesTypeitemsArray);
+Procedure TSavedAdStyles.Setitems(AIndex : Integer; const AValue : TSavedAdStylesTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3418,7 +3403,7 @@ end;
-Procedure TSavedReports.Setitems(AIndex : Integer; AValue : TSavedReportsTypeitemsArray);
+Procedure TSavedReports.Setitems(AIndex : Integer; const AValue : TSavedReportsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3515,7 +3500,7 @@ end;
-Procedure TUrlChannels.Setitems(AIndex : Integer; AValue : TUrlChannelsTypeitemsArray);
+Procedure TUrlChannels.Setitems(AIndex : Integer; const AValue : TUrlChannelsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -5397,7 +5382,7 @@ end;
Class Function TAdsenseAPI.APIRevision : String;
begin
- Result:='20150401';
+ Result:='20160522';
end;
Class Function TAdsenseAPI.APIID : String;
@@ -5415,7 +5400,7 @@ end;
Class Function TAdsenseAPI.APIDescription : String;
begin
- Result:='Gives AdSense publishers access to their inventory and the ability to generate reports';
+ Result:='Accesses AdSense publishers'' inventory and generates performance reports.';
end;
Class Function TAdsenseAPI.APIOwnerDomain : String;
@@ -5451,7 +5436,7 @@ end;
Class Function TAdsenseAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TAdsenseAPI.APIbasePath : string;
@@ -5463,7 +5448,7 @@ end;
Class Function TAdsenseAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/adsense/v1.4/';
+ Result:='https://www.googleapis.com/adsense/v1.4/';
end;
Class Function TAdsenseAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googleadsensehost.pp b/packages/googleapi/src/googleadsensehost.pp
index ffdbf60440..5315e188e8 100644
--- a/packages/googleapi/src/googleadsensehost.pp
+++ b/packages/googleapi/src/googleadsensehost.pp
@@ -1,19 +1,4 @@
unit googleadsensehost;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:57
{$MODE objfpc}
{$H+}
@@ -104,7 +89,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAccountsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -131,11 +116,11 @@ type
FsupportsReporting : boolean;
Protected
//Property setters
- Procedure SetarcOptIn(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetarcOptIn(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetproductCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsupportsReporting(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetsupportsReporting(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property arcOptIn : boolean Index 0 Read FarcOptIn Write SetarcOptIn;
@@ -159,7 +144,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAdClientsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAdClientsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -253,9 +238,9 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setcolors(AIndex : Integer; AValue : TAdStyleTypecolors); virtual;
+ Procedure Setcolors(AIndex : Integer; const AValue : TAdStyleTypecolors); virtual;
Procedure Setcorners(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfont(AIndex : Integer; AValue : TAdStyleTypefont); virtual;
+ Procedure Setfont(AIndex : Integer; const AValue : TAdStyleTypefont); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -301,7 +286,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetbackupOption(AIndex : Integer; AValue : TAdUnitTypecontentAdsSettingsTypebackupOption); virtual;
+ Procedure SetbackupOption(AIndex : Integer; const AValue : TAdUnitTypecontentAdsSettingsTypebackupOption); virtual;
Procedure Setsize(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
@@ -355,11 +340,11 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontentAdsSettings(AIndex : Integer; AValue : TAdUnitTypecontentAdsSettings); virtual;
- Procedure SetcustomStyle(AIndex : Integer; AValue : TAdStyle); virtual;
+ Procedure SetcontentAdsSettings(AIndex : Integer; const AValue : TAdUnitTypecontentAdsSettings); virtual;
+ Procedure SetcustomStyle(AIndex : Integer; const AValue : TAdStyle); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmobileContentAdsSettings(AIndex : Integer; AValue : TAdUnitTypemobileContentAdsSettings); virtual;
+ Procedure SetmobileContentAdsSettings(AIndex : Integer; const AValue : TAdUnitTypemobileContentAdsSettings); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Public
@@ -388,7 +373,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAdUnitsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAdUnitsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -424,7 +409,7 @@ type
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetproductCodes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetproductCodes(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetredirectUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetuserLocale(AIndex : Integer; const AValue : String); virtual;
@@ -486,7 +471,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TCustomChannelsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCustomChannelsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -540,13 +525,13 @@ type
Fwarnings : TStringArray;
Protected
//Property setters
- Procedure Setaverages(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setheaders(AIndex : Integer; AValue : TReportTypeheadersArray); virtual;
+ Procedure Setaverages(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setheaders(AIndex : Integer; const AValue : TReportTypeheadersArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TReportTyperowsArray); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TReportTyperowsArray); virtual;
Procedure SettotalMatchedRows(AIndex : Integer; const AValue : String); virtual;
- Procedure Settotals(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Settotals(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -598,7 +583,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TUrlChannelsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TUrlChannelsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1026,7 +1011,7 @@ end;
-Procedure TAccounts.Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray);
+Procedure TAccounts.Setitems(AIndex : Integer; const AValue : TAccountsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1066,7 +1051,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdClient.SetarcOptIn(AIndex : Integer; AValue : boolean);
+Procedure TAdClient.SetarcOptIn(AIndex : Integer; const AValue : boolean);
begin
If (FarcOptIn=AValue) then exit;
@@ -1106,7 +1091,7 @@ end;
-Procedure TAdClient.SetsupportsReporting(AIndex : Integer; AValue : boolean);
+Procedure TAdClient.SetsupportsReporting(AIndex : Integer; const AValue : boolean);
begin
If (FsupportsReporting=AValue) then exit;
@@ -1133,7 +1118,7 @@ end;
-Procedure TAdClients.Setitems(AIndex : Integer; AValue : TAdClientsTypeitemsArray);
+Procedure TAdClients.Setitems(AIndex : Integer; const AValue : TAdClientsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1294,7 +1279,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdStyle.Setcolors(AIndex : Integer; AValue : TAdStyleTypecolors);
+Procedure TAdStyle.Setcolors(AIndex : Integer; const AValue : TAdStyleTypecolors);
begin
If (Fcolors=AValue) then exit;
@@ -1314,7 +1299,7 @@ end;
-Procedure TAdStyle.Setfont(AIndex : Integer; AValue : TAdStyleTypefont);
+Procedure TAdStyle.Setfont(AIndex : Integer; const AValue : TAdStyleTypefont);
begin
If (Ffont=AValue) then exit;
@@ -1389,7 +1374,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdUnitTypecontentAdsSettings.SetbackupOption(AIndex : Integer; AValue : TAdUnitTypecontentAdsSettingsTypebackupOption);
+Procedure TAdUnitTypecontentAdsSettings.SetbackupOption(AIndex : Integer; const AValue : TAdUnitTypecontentAdsSettingsTypebackupOption);
begin
If (FbackupOption=AValue) then exit;
@@ -1505,7 +1490,7 @@ end;
-Procedure TAdUnit.SetcontentAdsSettings(AIndex : Integer; AValue : TAdUnitTypecontentAdsSettings);
+Procedure TAdUnit.SetcontentAdsSettings(AIndex : Integer; const AValue : TAdUnitTypecontentAdsSettings);
begin
If (FcontentAdsSettings=AValue) then exit;
@@ -1515,7 +1500,7 @@ end;
-Procedure TAdUnit.SetcustomStyle(AIndex : Integer; AValue : TAdStyle);
+Procedure TAdUnit.SetcustomStyle(AIndex : Integer; const AValue : TAdStyle);
begin
If (FcustomStyle=AValue) then exit;
@@ -1545,7 +1530,7 @@ end;
-Procedure TAdUnit.SetmobileContentAdsSettings(AIndex : Integer; AValue : TAdUnitTypemobileContentAdsSettings);
+Procedure TAdUnit.SetmobileContentAdsSettings(AIndex : Integer; const AValue : TAdUnitTypemobileContentAdsSettings);
begin
If (FmobileContentAdsSettings=AValue) then exit;
@@ -1592,7 +1577,7 @@ end;
-Procedure TAdUnits.Setitems(AIndex : Integer; AValue : TAdUnitsTypeitemsArray);
+Procedure TAdUnits.Setitems(AIndex : Integer; const AValue : TAdUnitsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1672,7 +1657,7 @@ end;
-Procedure TAssociationSession.SetproductCodes(AIndex : Integer; AValue : TStringArray);
+Procedure TAssociationSession.SetproductCodes(AIndex : Integer; const AValue : TStringArray);
begin
If (FproductCodes=AValue) then exit;
@@ -1809,7 +1794,7 @@ end;
-Procedure TCustomChannels.Setitems(AIndex : Integer; AValue : TCustomChannelsTypeitemsArray);
+Procedure TCustomChannels.Setitems(AIndex : Integer; const AValue : TCustomChannelsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1907,7 +1892,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReport.Setaverages(AIndex : Integer; AValue : TStringArray);
+Procedure TReport.Setaverages(AIndex : Integer; const AValue : TStringArray);
begin
If (Faverages=AValue) then exit;
@@ -1917,7 +1902,7 @@ end;
-Procedure TReport.Setheaders(AIndex : Integer; AValue : TReportTypeheadersArray);
+Procedure TReport.Setheaders(AIndex : Integer; const AValue : TReportTypeheadersArray);
begin
If (Fheaders=AValue) then exit;
@@ -1937,7 +1922,7 @@ end;
-Procedure TReport.Setrows(AIndex : Integer; AValue : TReportTyperowsArray);
+Procedure TReport.Setrows(AIndex : Integer; const AValue : TReportTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -1957,7 +1942,7 @@ end;
-Procedure TReport.Settotals(AIndex : Integer; AValue : TStringArray);
+Procedure TReport.Settotals(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftotals=AValue) then exit;
@@ -1967,7 +1952,7 @@ end;
-Procedure TReport.Setwarnings(AIndex : Integer; AValue : TStringArray);
+Procedure TReport.Setwarnings(AIndex : Integer; const AValue : TStringArray);
begin
If (Fwarnings=AValue) then exit;
@@ -2048,7 +2033,7 @@ end;
-Procedure TUrlChannels.Setitems(AIndex : Integer; AValue : TUrlChannelsTypeitemsArray);
+Procedure TUrlChannels.Setitems(AIndex : Integer; const AValue : TUrlChannelsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2906,7 +2891,7 @@ end;
Class Function TAdsensehostAPI.APIRevision : String;
begin
- Result:='20150505';
+ Result:='20160522';
end;
Class Function TAdsensehostAPI.APIID : String;
@@ -2924,7 +2909,7 @@ end;
Class Function TAdsensehostAPI.APIDescription : String;
begin
- Result:='Gives AdSense Hosts access to report generation, ad code generation, and publisher management capabilities.';
+ Result:='Generates performance reports, generates ad codes, and provides publisher management capabilities for AdSense Hosts.';
end;
Class Function TAdsensehostAPI.APIOwnerDomain : String;
@@ -2960,7 +2945,7 @@ end;
Class Function TAdsensehostAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TAdsensehostAPI.APIbasePath : string;
@@ -2972,7 +2957,7 @@ end;
Class Function TAdsensehostAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/adsensehost/v4.1/';
+ Result:='https://www.googleapis.com/adsensehost/v4.1/';
end;
Class Function TAdsensehostAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googleanalytics.pp b/packages/googleapi/src/googleanalytics.pp
index 494a7148fe..9c292f6cda 100644
--- a/packages/googleapi/src/googleanalytics.pp
+++ b/packages/googleapi/src/googleanalytics.pp
@@ -1,19 +1,4 @@
unit googleanalytics;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:58
{$MODE objfpc}
{$H+}
@@ -235,7 +220,7 @@ type
Feffective : TStringArray;
Protected
//Property setters
- Procedure Seteffective(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Seteffective(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -259,17 +244,19 @@ type
Fname : String;
Fpermissions : TAccountTypepermissions;
FselfLink : String;
+ Fstarred : boolean;
Fupdated : TDatetime;
Protected
//Property setters
- Procedure SetchildLink(AIndex : Integer; AValue : TAccountTypechildLink); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetchildLink(AIndex : Integer; const AValue : TAccountTypechildLink); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpermissions(AIndex : Integer; AValue : TAccountTypepermissions); virtual;
+ Procedure Setpermissions(AIndex : Integer; const AValue : TAccountTypepermissions); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setstarred(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property childLink : TAccountTypechildLink Index 0 Read FchildLink Write SetchildLink;
@@ -279,7 +266,8 @@ type
Property name : String Index 32 Read Fname Write Setname;
Property permissions : TAccountTypepermissions Index 40 Read Fpermissions Write Setpermissions;
Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
- Property updated : TDatetime Index 56 Read Fupdated Write Setupdated;
+ Property starred : boolean Index 56 Read Fstarred Write Setstarred;
+ Property updated : TDatetime Index 64 Read Fupdated Write Setupdated;
end;
TAccountClass = Class of TAccount;
@@ -324,13 +312,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAccountSummariesTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAccountSummariesTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -358,13 +346,15 @@ type
Fid : String;
Fkind : String;
Fname : String;
+ Fstarred : boolean;
FwebProperties : TAccountSummaryTypewebPropertiesArray;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetwebProperties(AIndex : Integer; AValue : TAccountSummaryTypewebPropertiesArray); virtual;
+ Procedure Setstarred(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetwebProperties(AIndex : Integer; const AValue : TAccountSummaryTypewebPropertiesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -374,7 +364,8 @@ type
Property id : String Index 0 Read Fid Write Setid;
Property kind : String Index 8 Read Fkind Write Setkind;
Property name : String Index 16 Read Fname Write Setname;
- Property webProperties : TAccountSummaryTypewebPropertiesArray Index 24 Read FwebProperties Write SetwebProperties;
+ Property starred : boolean Index 24 Read Fstarred Write Setstarred;
+ Property webProperties : TAccountSummaryTypewebPropertiesArray Index 32 Read FwebProperties Write SetwebProperties;
end;
TAccountSummaryClass = Class of TAccountSummary;
@@ -392,12 +383,12 @@ type
Fwebproperty : TWebproperty;
Protected
//Property setters
- Procedure Setaccount(AIndex : Integer; AValue : TAccount); virtual;
+ Procedure Setaccount(AIndex : Integer; const AValue : TAccount); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprofile(AIndex : Integer; AValue : TProfile); virtual;
+ Procedure Setprofile(AIndex : Integer; const AValue : TProfile); virtual;
Procedure SetredirectUri(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwebproperty(AIndex : Integer; AValue : TWebproperty); virtual;
+ Procedure Setwebproperty(AIndex : Integer; const AValue : TWebproperty); virtual;
Public
Published
Property account : TAccount Index 0 Read Faccount Write Setaccount;
@@ -425,13 +416,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAccountsTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -461,7 +452,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetautoTaggingEnabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetautoTaggingEnabled(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcustomerId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
@@ -481,7 +472,7 @@ type
FcustomDataImportUids : TStringArray;
Protected
//Property setters
- Procedure SetcustomDataImportUids(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetcustomDataImportUids(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -517,7 +508,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setattributes(AIndex : Integer; AValue : TColumnTypeattributes); virtual;
+ Procedure Setattributes(AIndex : Integer; const AValue : TColumnTypeattributes); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
@@ -541,11 +532,11 @@ type
FtotalResults : integer;
Protected
//Property setters
- Procedure SetattributeNames(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetattributeNames(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TColumnsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TColumnsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -625,18 +616,18 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetchildLink(AIndex : Integer; AValue : TCustomDataSourceTypechildLink); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetchildLink(AIndex : Integer; const AValue : TCustomDataSourceTypechildLink); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetimportBehavior(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetparentLink(AIndex : Integer; AValue : TCustomDataSourceTypeparentLink); virtual;
- Procedure SetprofilesLinked(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetparentLink(AIndex : Integer; const AValue : TCustomDataSourceTypeparentLink); virtual;
+ Procedure SetprofilesLinked(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetuploadType(AIndex : Integer; const AValue : String); virtual;
Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -679,13 +670,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TCustomDataSourcesTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCustomDataSourcesTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -745,16 +736,16 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setindex(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetparentLink(AIndex : Integer; AValue : TCustomDimensionTypeparentLink); virtual;
+ Procedure SetparentLink(AIndex : Integer; const AValue : TCustomDimensionTypeparentLink); virtual;
Procedure Setscope(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -789,13 +780,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TCustomDimensionsTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCustomDimensionsTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -859,19 +850,19 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setindex(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setmax_value(AIndex : Integer; const AValue : String); virtual;
Procedure Setmin_value(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetparentLink(AIndex : Integer; AValue : TCustomMetricTypeparentLink); virtual;
+ Procedure SetparentLink(AIndex : Integer; const AValue : TCustomMetricTypeparentLink); virtual;
Procedure Setscope(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -909,13 +900,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TCustomMetricsTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCustomMetricsTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -943,7 +934,7 @@ type
FwebPropertyRef : TWebPropertyRef;
Protected
//Property setters
- Procedure SetwebPropertyRef(AIndex : Integer; AValue : TWebPropertyRef); virtual;
+ Procedure SetwebPropertyRef(AIndex : Integer; const AValue : TWebPropertyRef); virtual;
Public
Published
Property webPropertyRef : TWebPropertyRef Index 0 Read FwebPropertyRef Write SetwebPropertyRef;
@@ -965,12 +956,12 @@ type
FselfLink : String;
Protected
//Property setters
- Procedure SetadWordsAccounts(AIndex : Integer; AValue : TEntityAdWordsLinkTypeadWordsAccountsArray); virtual;
- Procedure Setentity(AIndex : Integer; AValue : TEntityAdWordsLinkTypeentity); virtual;
+ Procedure SetadWordsAccounts(AIndex : Integer; const AValue : TEntityAdWordsLinkTypeadWordsAccountsArray); virtual;
+ Procedure Setentity(AIndex : Integer; const AValue : TEntityAdWordsLinkTypeentity); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprofileIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetprofileIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1003,13 +994,13 @@ type
FtotalResults : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TEntityAdWordsLinksTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TEntityAdWordsLinksTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1037,9 +1028,9 @@ type
FwebPropertyRef : TWebPropertyRef;
Protected
//Property setters
- Procedure SetaccountRef(AIndex : Integer; AValue : TAccountRef); virtual;
- Procedure SetprofileRef(AIndex : Integer; AValue : TProfileRef); virtual;
- Procedure SetwebPropertyRef(AIndex : Integer; AValue : TWebPropertyRef); virtual;
+ Procedure SetaccountRef(AIndex : Integer; const AValue : TAccountRef); virtual;
+ Procedure SetprofileRef(AIndex : Integer; const AValue : TProfileRef); virtual;
+ Procedure SetwebPropertyRef(AIndex : Integer; const AValue : TWebPropertyRef); virtual;
Public
Published
Property accountRef : TAccountRef Index 0 Read FaccountRef Write SetaccountRef;
@@ -1058,8 +1049,8 @@ type
Flocal : TStringArray;
Protected
//Property setters
- Procedure Seteffective(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setlocal(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Seteffective(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setlocal(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1085,12 +1076,12 @@ type
FuserRef : TUserRef;
Protected
//Property setters
- Procedure Setentity(AIndex : Integer; AValue : TEntityUserLinkTypeentity); virtual;
+ Procedure Setentity(AIndex : Integer; const AValue : TEntityUserLinkTypeentity); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpermissions(AIndex : Integer; AValue : TEntityUserLinkTypepermissions); virtual;
+ Procedure Setpermissions(AIndex : Integer; const AValue : TEntityUserLinkTypepermissions); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserRef(AIndex : Integer; AValue : TUserRef); virtual;
+ Procedure SetuserRef(AIndex : Integer; const AValue : TUserRef); virtual;
Public
Published
Property entity : TEntityUserLinkTypeentity Index 0 Read Fentity Write Setentity;
@@ -1117,13 +1108,13 @@ type
FtotalResults : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TEntityUserLinksTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TEntityUserLinksTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1176,8 +1167,8 @@ type
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setweight(AIndex : Integer; AValue : double); virtual;
- Procedure Setwon(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setweight(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setwon(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
@@ -1225,33 +1216,33 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SeteditableInGaUi(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetendTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetequalWeighting(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SeteditableInGaUi(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetequalWeighting(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetminimumExperimentLengthInDays(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetminimumExperimentLengthInDays(AIndex : Integer; const AValue : integer); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetobjectiveMetric(AIndex : Integer; const AValue : String); virtual;
Procedure SetoptimizationType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetparentLink(AIndex : Integer; AValue : TExperimentTypeparentLink); virtual;
+ Procedure SetparentLink(AIndex : Integer; const AValue : TExperimentTypeparentLink); virtual;
Procedure SetprofileId(AIndex : Integer; const AValue : String); virtual;
Procedure SetreasonExperimentEnded(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrewriteVariationUrlsAsOriginal(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetrewriteVariationUrlsAsOriginal(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetservingFramework(AIndex : Integer; const AValue : String); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SettrafficCoverage(AIndex : Integer; AValue : double); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setvariations(AIndex : Integer; AValue : TExperimentTypevariationsArray); virtual;
+ Procedure SettrafficCoverage(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setvariations(AIndex : Integer; const AValue : TExperimentTypevariationsArray); virtual;
Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetwinnerConfidenceLevel(AIndex : Integer; AValue : double); virtual;
- Procedure SetwinnerFound(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetwinnerConfidenceLevel(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetwinnerFound(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1305,13 +1296,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TExperimentsTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TExperimentsTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1351,19 +1342,19 @@ type
FoverrideOutputField : boolean;
Protected
//Property setters
- Procedure SetcaseSensitive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcaseSensitive(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetextractA(AIndex : Integer; const AValue : String); virtual;
Procedure SetextractB(AIndex : Integer; const AValue : String); virtual;
Procedure SetfieldA(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfieldAIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SetfieldARequired(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetfieldAIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetfieldARequired(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetfieldB(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfieldBIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SetfieldBRequired(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetfieldBIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetfieldBRequired(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetoutputConstructor(AIndex : Integer; const AValue : String); virtual;
Procedure SetoutputToField(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoutputToFieldIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SetoverrideOutputField(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetoutputToFieldIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetoverrideOutputField(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property caseSensitive : boolean Index 0 Read FcaseSensitive Write SetcaseSensitive;
@@ -1393,7 +1384,7 @@ type
Protected
//Property setters
Procedure Setfield(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfieldIndex(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetfieldIndex(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property field : String Index 0 Read Ffield Write Setfield;
@@ -1434,9 +1425,9 @@ type
FsearchString : String;
Protected
//Property setters
- Procedure SetcaseSensitive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcaseSensitive(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setfield(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfieldIndex(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetfieldIndex(AIndex : Integer; const AValue : integer); virtual;
Procedure SetreplaceString(AIndex : Integer; const AValue : String); virtual;
Procedure SetsearchString(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1460,7 +1451,7 @@ type
Protected
//Property setters
Procedure Setfield(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfieldIndex(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetfieldIndex(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property field : String Index 0 Read Ffield Write Setfield;
@@ -1493,20 +1484,20 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvancedDetails(AIndex : Integer; AValue : TFilterTypeadvancedDetails); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetexcludeDetails(AIndex : Integer; AValue : TFilterExpression); virtual;
+ Procedure SetadvancedDetails(AIndex : Integer; const AValue : TFilterTypeadvancedDetails); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetexcludeDetails(AIndex : Integer; const AValue : TFilterExpression); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetincludeDetails(AIndex : Integer; AValue : TFilterExpression); virtual;
+ Procedure SetincludeDetails(AIndex : Integer; const AValue : TFilterExpression); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlowercaseDetails(AIndex : Integer; AValue : TFilterTypelowercaseDetails); virtual;
+ Procedure SetlowercaseDetails(AIndex : Integer; const AValue : TFilterTypelowercaseDetails); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetparentLink(AIndex : Integer; AValue : TFilterTypeparentLink); virtual;
- Procedure SetsearchAndReplaceDetails(AIndex : Integer; AValue : TFilterTypesearchAndReplaceDetails); virtual;
+ Procedure SetparentLink(AIndex : Integer; const AValue : TFilterTypeparentLink); virtual;
+ Procedure SetsearchAndReplaceDetails(AIndex : Integer; const AValue : TFilterTypesearchAndReplaceDetails); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetuppercaseDetails(AIndex : Integer; AValue : TFilterTypeuppercaseDetails); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetuppercaseDetails(AIndex : Integer; const AValue : TFilterTypeuppercaseDetails); virtual;
Public
Published
Property accountId : String Index 0 Read FaccountId Write SetaccountId;
@@ -1541,10 +1532,10 @@ type
FmatchType : String;
Protected
//Property setters
- Procedure SetcaseSensitive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcaseSensitive(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetexpressionValue(AIndex : Integer; const AValue : String); virtual;
Procedure Setfield(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfieldIndex(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetfieldIndex(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetmatchType(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1602,13 +1593,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TFiltersTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TFiltersTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1697,7 +1688,7 @@ type
Fc : TGaDataTypedataTableTyperowsItemTypecArray;
Protected
//Property setters
- Procedure Setc(AIndex : Integer; AValue : TGaDataTypedataTableTyperowsItemTypecArray); virtual;
+ Procedure Setc(AIndex : Integer; const AValue : TGaDataTypedataTableTyperowsItemTypecArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1718,8 +1709,8 @@ type
Frows : TGaDataTypedataTableTyperowsArray;
Protected
//Property setters
- Procedure Setcols(AIndex : Integer; AValue : TGaDataTypedataTableTypecolsArray); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TGaDataTypedataTableTyperowsArray); virtual;
+ Procedure Setcols(AIndex : Integer; const AValue : TGaDataTypedataTableTypecolsArray); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TGaDataTypedataTableTyperowsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1786,13 +1777,13 @@ type
Procedure Setenddate(AIndex : Integer; const AValue : String); virtual;
Procedure Setfilters(AIndex : Integer; const AValue : String); virtual;
Procedure Setids(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmaxresults(AIndex : Integer; AValue : integer); virtual;
- Procedure Setmetrics(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setmaxresults(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetsamplingLevel(AIndex : Integer; const AValue : String); virtual;
Procedure Setsegment(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsort(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setsort(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setstartdate(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstartindex(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setstartindex(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1851,22 +1842,22 @@ type
FtotalsForAllResults : TGaDataTypetotalsForAllResults;
Protected
//Property setters
- Procedure SetcolumnHeaders(AIndex : Integer; AValue : TGaDataTypecolumnHeadersArray); virtual;
- Procedure SetcontainsSampledData(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetdataTable(AIndex : Integer; AValue : TGaDataTypedataTable); virtual;
+ Procedure SetcolumnHeaders(AIndex : Integer; const AValue : TGaDataTypecolumnHeadersArray); virtual;
+ Procedure SetcontainsSampledData(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdataTable(AIndex : Integer; const AValue : TGaDataTypedataTable); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprofileInfo(AIndex : Integer; AValue : TGaDataTypeprofileInfo); virtual;
- Procedure Setquery(AIndex : Integer; AValue : TGaDataTypequery); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TGaDataTyperowsArray); virtual;
+ Procedure SetprofileInfo(AIndex : Integer; const AValue : TGaDataTypeprofileInfo); virtual;
+ Procedure Setquery(AIndex : Integer; const AValue : TGaDataTypequery); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TGaDataTyperowsArray); virtual;
Procedure SetsampleSize(AIndex : Integer; const AValue : String); virtual;
Procedure SetsampleSpace(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalsForAllResults(AIndex : Integer; AValue : TGaDataTypetotalsForAllResults); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalsForAllResults(AIndex : Integer; const AValue : TGaDataTypetotalsForAllResults); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1931,8 +1922,8 @@ type
FuseEventValue : boolean;
Protected
//Property setters
- Procedure SeteventConditions(AIndex : Integer; AValue : TGoalTypeeventDetailsTypeeventConditionsArray); virtual;
- Procedure SetuseEventValue(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SeteventConditions(AIndex : Integer; const AValue : TGoalTypeeventDetailsTypeeventConditionsArray); virtual;
+ Procedure SetuseEventValue(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1976,7 +1967,7 @@ type
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnumber(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setnumber(AIndex : Integer; const AValue : integer); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1999,10 +1990,10 @@ type
Furl : String;
Protected
//Property setters
- Procedure SetcaseSensitive(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetfirstStepRequired(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcaseSensitive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetfirstStepRequired(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetmatchType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsteps(AIndex : Integer; AValue : TGoalTypeurlDestinationDetailsTypestepsArray); virtual;
+ Procedure Setsteps(AIndex : Integer; const AValue : TGoalTypeurlDestinationDetailsTypestepsArray); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2084,22 +2075,22 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SeteventDetails(AIndex : Integer; AValue : TGoalTypeeventDetails); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SeteventDetails(AIndex : Integer; const AValue : TGoalTypeeventDetails); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetparentLink(AIndex : Integer; AValue : TGoalTypeparentLink); virtual;
+ Procedure SetparentLink(AIndex : Integer; const AValue : TGoalTypeparentLink); virtual;
Procedure SetprofileId(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SeturlDestinationDetails(AIndex : Integer; AValue : TGoalTypeurlDestinationDetails); virtual;
- Procedure Setvalue(AIndex : Integer; AValue : integer); virtual;
- Procedure SetvisitNumPagesDetails(AIndex : Integer; AValue : TGoalTypevisitNumPagesDetails); virtual;
- Procedure SetvisitTimeOnSiteDetails(AIndex : Integer; AValue : TGoalTypevisitTimeOnSiteDetails); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SeturlDestinationDetails(AIndex : Integer; const AValue : TGoalTypeurlDestinationDetails); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetvisitNumPagesDetails(AIndex : Integer; const AValue : TGoalTypevisitNumPagesDetails); virtual;
+ Procedure SetvisitTimeOnSiteDetails(AIndex : Integer; const AValue : TGoalTypevisitTimeOnSiteDetails); virtual;
Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2140,13 +2131,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TGoalsTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TGoalsTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2242,13 +2233,13 @@ type
Procedure Setenddate(AIndex : Integer; const AValue : String); virtual;
Procedure Setfilters(AIndex : Integer; const AValue : String); virtual;
Procedure Setids(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmaxresults(AIndex : Integer; AValue : integer); virtual;
- Procedure Setmetrics(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setmaxresults(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetsamplingLevel(AIndex : Integer; const AValue : String); virtual;
Procedure Setsegment(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsort(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setsort(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setstartdate(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstartindex(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setstartindex(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2298,7 +2289,7 @@ type
FprimitiveValue : String;
Protected
//Property setters
- Procedure SetconversionPathValue(AIndex : Integer; AValue : TMcfDataTyperowsItemItemTypeconversionPathValueArray); virtual;
+ Procedure SetconversionPathValue(AIndex : Integer; const AValue : TMcfDataTyperowsItemItemTypeconversionPathValueArray); virtual;
Procedure SetprimitiveValue(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2348,21 +2339,21 @@ type
FtotalsForAllResults : TMcfDataTypetotalsForAllResults;
Protected
//Property setters
- Procedure SetcolumnHeaders(AIndex : Integer; AValue : TMcfDataTypecolumnHeadersArray); virtual;
- Procedure SetcontainsSampledData(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcolumnHeaders(AIndex : Integer; const AValue : TMcfDataTypecolumnHeadersArray); virtual;
+ Procedure SetcontainsSampledData(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprofileInfo(AIndex : Integer; AValue : TMcfDataTypeprofileInfo); virtual;
- Procedure Setquery(AIndex : Integer; AValue : TMcfDataTypequery); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TMcfDataTyperowsArray); virtual;
+ Procedure SetprofileInfo(AIndex : Integer; const AValue : TMcfDataTypeprofileInfo); virtual;
+ Procedure Setquery(AIndex : Integer; const AValue : TMcfDataTypequery); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TMcfDataTyperowsArray); virtual;
Procedure SetsampleSize(AIndex : Integer; const AValue : String); virtual;
Procedure SetsampleSpace(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalsForAllResults(AIndex : Integer; AValue : TMcfDataTypetotalsForAllResults); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalsForAllResults(AIndex : Integer; const AValue : TMcfDataTypetotalsForAllResults); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2436,7 +2427,7 @@ type
Feffective : TStringArray;
Protected
//Property setters
- Procedure Seteffective(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Seteffective(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2454,6 +2445,7 @@ type
TProfile = Class(TGoogleBaseObject)
Private
FaccountId : String;
+ FbotFilteringEnabled : boolean;
FchildLink : TProfileTypechildLink;
Fcreated : TDatetime;
Fcurrency : String;
@@ -2470,6 +2462,7 @@ type
FselfLink : String;
FsiteSearchCategoryParameters : String;
FsiteSearchQueryParameters : String;
+ Fstarred : boolean;
FstripSiteSearchCategoryParameters : boolean;
FstripSiteSearchQueryParameters : boolean;
Ftimezone : String;
@@ -2481,55 +2474,59 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetchildLink(AIndex : Integer; AValue : TProfileTypechildLink); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetbotFilteringEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetchildLink(AIndex : Integer; const AValue : TProfileTypechildLink); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultPage(AIndex : Integer; const AValue : String); virtual;
- Procedure SeteCommerceTracking(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetenhancedECommerceTracking(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SeteCommerceTracking(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetenhancedECommerceTracking(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetexcludeQueryParameters(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinternalWebPropertyId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetparentLink(AIndex : Integer; AValue : TProfileTypeparentLink); virtual;
- Procedure Setpermissions(AIndex : Integer; AValue : TProfileTypepermissions); virtual;
+ Procedure SetparentLink(AIndex : Integer; const AValue : TProfileTypeparentLink); virtual;
+ Procedure Setpermissions(AIndex : Integer; const AValue : TProfileTypepermissions); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetsiteSearchCategoryParameters(AIndex : Integer; const AValue : String); virtual;
Procedure SetsiteSearchQueryParameters(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstripSiteSearchCategoryParameters(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetstripSiteSearchQueryParameters(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setstarred(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetstripSiteSearchCategoryParameters(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetstripSiteSearchQueryParameters(AIndex : Integer; const AValue : boolean); virtual;
Procedure Settimezone(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual;
Procedure SetwebsiteUrl(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property childLink : TProfileTypechildLink Index 8 Read FchildLink Write SetchildLink;
- Property created : TDatetime Index 16 Read Fcreated Write Setcreated;
- Property currency : String Index 24 Read Fcurrency Write Setcurrency;
- Property defaultPage : String Index 32 Read FdefaultPage Write SetdefaultPage;
- Property eCommerceTracking : boolean Index 40 Read FeCommerceTracking Write SeteCommerceTracking;
- Property enhancedECommerceTracking : boolean Index 48 Read FenhancedECommerceTracking Write SetenhancedECommerceTracking;
- Property excludeQueryParameters : String Index 56 Read FexcludeQueryParameters Write SetexcludeQueryParameters;
- Property id : String Index 64 Read Fid Write Setid;
- Property internalWebPropertyId : String Index 72 Read FinternalWebPropertyId Write SetinternalWebPropertyId;
- Property kind : String Index 80 Read Fkind Write Setkind;
- Property name : String Index 88 Read Fname Write Setname;
- Property parentLink : TProfileTypeparentLink Index 96 Read FparentLink Write SetparentLink;
- Property permissions : TProfileTypepermissions Index 104 Read Fpermissions Write Setpermissions;
- Property selfLink : String Index 112 Read FselfLink Write SetselfLink;
- Property siteSearchCategoryParameters : String Index 120 Read FsiteSearchCategoryParameters Write SetsiteSearchCategoryParameters;
- Property siteSearchQueryParameters : String Index 128 Read FsiteSearchQueryParameters Write SetsiteSearchQueryParameters;
- Property stripSiteSearchCategoryParameters : boolean Index 136 Read FstripSiteSearchCategoryParameters Write SetstripSiteSearchCategoryParameters;
- Property stripSiteSearchQueryParameters : boolean Index 144 Read FstripSiteSearchQueryParameters Write SetstripSiteSearchQueryParameters;
- Property timezone : String Index 152 Read Ftimezone Write Settimezone;
- Property _type : String Index 160 Read F_type Write Set_type;
- Property updated : TDatetime Index 168 Read Fupdated Write Setupdated;
- Property webPropertyId : String Index 176 Read FwebPropertyId Write SetwebPropertyId;
- Property websiteUrl : String Index 184 Read FwebsiteUrl Write SetwebsiteUrl;
+ Property botFilteringEnabled : boolean Index 8 Read FbotFilteringEnabled Write SetbotFilteringEnabled;
+ Property childLink : TProfileTypechildLink Index 16 Read FchildLink Write SetchildLink;
+ Property created : TDatetime Index 24 Read Fcreated Write Setcreated;
+ Property currency : String Index 32 Read Fcurrency Write Setcurrency;
+ Property defaultPage : String Index 40 Read FdefaultPage Write SetdefaultPage;
+ Property eCommerceTracking : boolean Index 48 Read FeCommerceTracking Write SeteCommerceTracking;
+ Property enhancedECommerceTracking : boolean Index 56 Read FenhancedECommerceTracking Write SetenhancedECommerceTracking;
+ Property excludeQueryParameters : String Index 64 Read FexcludeQueryParameters Write SetexcludeQueryParameters;
+ Property id : String Index 72 Read Fid Write Setid;
+ Property internalWebPropertyId : String Index 80 Read FinternalWebPropertyId Write SetinternalWebPropertyId;
+ Property kind : String Index 88 Read Fkind Write Setkind;
+ Property name : String Index 96 Read Fname Write Setname;
+ Property parentLink : TProfileTypeparentLink Index 104 Read FparentLink Write SetparentLink;
+ Property permissions : TProfileTypepermissions Index 112 Read Fpermissions Write Setpermissions;
+ Property selfLink : String Index 120 Read FselfLink Write SetselfLink;
+ Property siteSearchCategoryParameters : String Index 128 Read FsiteSearchCategoryParameters Write SetsiteSearchCategoryParameters;
+ Property siteSearchQueryParameters : String Index 136 Read FsiteSearchQueryParameters Write SetsiteSearchQueryParameters;
+ Property starred : boolean Index 144 Read Fstarred Write Setstarred;
+ Property stripSiteSearchCategoryParameters : boolean Index 152 Read FstripSiteSearchCategoryParameters Write SetstripSiteSearchCategoryParameters;
+ Property stripSiteSearchQueryParameters : boolean Index 160 Read FstripSiteSearchQueryParameters Write SetstripSiteSearchQueryParameters;
+ Property timezone : String Index 168 Read Ftimezone Write Settimezone;
+ Property _type : String Index 176 Read F_type Write Set_type;
+ Property updated : TDatetime Index 184 Read Fupdated Write Setupdated;
+ Property webPropertyId : String Index 192 Read FwebPropertyId Write SetwebPropertyId;
+ Property websiteUrl : String Index 200 Read FwebsiteUrl Write SetwebsiteUrl;
end;
TProfileClass = Class of TProfile;
@@ -2547,11 +2544,11 @@ type
FselfLink : String;
Protected
//Property setters
- Procedure SetfilterRef(AIndex : Integer; AValue : TFilterRef); virtual;
+ Procedure SetfilterRef(AIndex : Integer; const AValue : TFilterRef); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprofileRef(AIndex : Integer; AValue : TProfileRef); virtual;
- Procedure Setrank(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetprofileRef(AIndex : Integer; const AValue : TProfileRef); virtual;
+ Procedure Setrank(AIndex : Integer; const AValue : integer); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2580,13 +2577,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TProfileFilterLinksTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TProfileFilterLinksTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2648,6 +2645,7 @@ type
Fid : String;
Fkind : String;
Fname : String;
+ Fstarred : boolean;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
@@ -2655,13 +2653,15 @@ type
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstarred(AIndex : Integer; const AValue : boolean); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property kind : String Index 8 Read Fkind Write Setkind;
Property name : String Index 16 Read Fname Write Setname;
- Property _type : String Index 24 Read F_type Write Set_type;
+ Property starred : boolean Index 24 Read Fstarred Write Setstarred;
+ Property _type : String Index 32 Read F_type Write Set_type;
end;
TProfileSummaryClass = Class of TProfileSummary;
@@ -2681,13 +2681,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TProfilesTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TProfilesTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2777,9 +2777,9 @@ type
Procedure Setdimensions(AIndex : Integer; const AValue : String); virtual;
Procedure Setfilters(AIndex : Integer; const AValue : String); virtual;
Procedure Setids(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmaxresults(AIndex : Integer; AValue : integer); virtual;
- Procedure Setmetrics(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setsort(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setmaxresults(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setsort(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2826,15 +2826,15 @@ type
FtotalsForAllResults : TRealtimeDataTypetotalsForAllResults;
Protected
//Property setters
- Procedure SetcolumnHeaders(AIndex : Integer; AValue : TRealtimeDataTypecolumnHeadersArray); virtual;
+ Procedure SetcolumnHeaders(AIndex : Integer; const AValue : TRealtimeDataTypecolumnHeadersArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprofileInfo(AIndex : Integer; AValue : TRealtimeDataTypeprofileInfo); virtual;
- Procedure Setquery(AIndex : Integer; AValue : TRealtimeDataTypequery); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TRealtimeDataTyperowsArray); virtual;
+ Procedure SetprofileInfo(AIndex : Integer; const AValue : TRealtimeDataTypeprofileInfo); virtual;
+ Procedure Setquery(AIndex : Integer; const AValue : TRealtimeDataTypequery); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TRealtimeDataTyperowsArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalsForAllResults(AIndex : Integer; AValue : TRealtimeDataTypetotalsForAllResults); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalsForAllResults(AIndex : Integer; const AValue : TRealtimeDataTypetotalsForAllResults); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2871,7 +2871,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setdefinition(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
@@ -2879,7 +2879,7 @@ type
Procedure SetsegmentId(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property created : TDatetime Index 0 Read Fcreated Write Setcreated;
@@ -2910,13 +2910,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TSegmentsTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSegmentsTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2999,11 +2999,11 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcloudStorageDownloadDetails(AIndex : Integer; AValue : TUnsampledReportTypecloudStorageDownloadDetails); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetcloudStorageDownloadDetails(AIndex : Integer; const AValue : TUnsampledReportTypecloudStorageDownloadDetails); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setdimensions(AIndex : Integer; const AValue : String); virtual;
Procedure SetdownloadType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdriveDownloadDetails(AIndex : Integer; AValue : TUnsampledReportTypedriveDownloadDetails); virtual;
+ Procedure SetdriveDownloadDetails(AIndex : Integer; const AValue : TUnsampledReportTypedriveDownloadDetails); virtual;
Procedure Setenddate(AIndex : Integer; const AValue : String); virtual;
Procedure Setfilters(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
@@ -3015,7 +3015,7 @@ type
Procedure Setstartdate(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetwebPropertyId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -3057,13 +3057,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TUnsampledReportsTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TUnsampledReportsTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3098,7 +3098,7 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomDataSourceId(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
@@ -3132,13 +3132,13 @@ type
FtotalResults : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TUploadsTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TUploadsTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3220,6 +3220,7 @@ type
Flevel : String;
Fname : String;
Fprofiles : TWebPropertySummaryTypeprofilesArray;
+ Fstarred : boolean;
FwebsiteUrl : String;
Protected
//Property setters
@@ -3228,7 +3229,8 @@ type
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlevel(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprofiles(AIndex : Integer; AValue : TWebPropertySummaryTypeprofilesArray); virtual;
+ Procedure Setprofiles(AIndex : Integer; const AValue : TWebPropertySummaryTypeprofilesArray); virtual;
+ Procedure Setstarred(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetwebsiteUrl(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3242,7 +3244,8 @@ type
Property level : String Index 24 Read Flevel Write Setlevel;
Property name : String Index 32 Read Fname Write Setname;
Property profiles : TWebPropertySummaryTypeprofilesArray Index 40 Read Fprofiles Write Setprofiles;
- Property websiteUrl : String Index 48 Read FwebsiteUrl Write SetwebsiteUrl;
+ Property starred : boolean Index 48 Read Fstarred Write Setstarred;
+ Property websiteUrl : String Index 56 Read FwebsiteUrl Write SetwebsiteUrl;
end;
TWebPropertySummaryClass = Class of TWebPropertySummary;
@@ -3262,13 +3265,13 @@ type
Fusername : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TWebpropertiesTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TWebpropertiesTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetpreviousLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3336,7 +3339,7 @@ type
Feffective : TStringArray;
Protected
//Property setters
- Procedure Seteffective(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Seteffective(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3367,13 +3370,14 @@ type
Fpermissions : TWebpropertyTypepermissions;
FprofileCount : integer;
FselfLink : String;
+ Fstarred : boolean;
Fupdated : TDatetime;
FwebsiteUrl : String;
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetchildLink(AIndex : Integer; AValue : TWebpropertyTypechildLink); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetchildLink(AIndex : Integer; const AValue : TWebpropertyTypechildLink); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetdefaultProfileId(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetindustryVertical(AIndex : Integer; const AValue : String); virtual;
@@ -3381,11 +3385,12 @@ type
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlevel(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetparentLink(AIndex : Integer; AValue : TWebpropertyTypeparentLink); virtual;
- Procedure Setpermissions(AIndex : Integer; AValue : TWebpropertyTypepermissions); virtual;
- Procedure SetprofileCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetparentLink(AIndex : Integer; const AValue : TWebpropertyTypeparentLink); virtual;
+ Procedure Setpermissions(AIndex : Integer; const AValue : TWebpropertyTypepermissions); virtual;
+ Procedure SetprofileCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setstarred(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetwebsiteUrl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -3403,8 +3408,9 @@ type
Property permissions : TWebpropertyTypepermissions Index 88 Read Fpermissions Write Setpermissions;
Property profileCount : integer Index 96 Read FprofileCount Write SetprofileCount;
Property selfLink : String Index 104 Read FselfLink Write SetselfLink;
- Property updated : TDatetime Index 112 Read Fupdated Write Setupdated;
- Property websiteUrl : String Index 120 Read FwebsiteUrl Write SetwebsiteUrl;
+ Property starred : boolean Index 112 Read Fstarred Write Setstarred;
+ Property updated : TDatetime Index 120 Read Fupdated Write Setupdated;
+ Property websiteUrl : String Index 128 Read FwebsiteUrl Write SetwebsiteUrl;
end;
TWebpropertyClass = Class of TWebproperty;
@@ -3420,6 +3426,7 @@ type
enddate : String;
filters : String;
ids : String;
+ includeemptyrows : boolean;
maxresults : integer;
metrics : String;
output : String;
@@ -3879,6 +3886,7 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure Delete(accountId: string; profileId: string; unsampledReportId: string; webPropertyId: string);
Function Get(accountId: string; profileId: string; unsampledReportId: string; webPropertyId: string) : TUnsampledReport;
Function Insert(accountId: string; profileId: string; webPropertyId: string; aUnsampledReport : TUnsampledReport) : TUnsampledReport;
Function List(accountId: string; profileId: string; webPropertyId: string; AQuery : string = '') : TUnsampledReports;
@@ -4336,7 +4344,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountTypepermissions.Seteffective(AIndex : Integer; AValue : TStringArray);
+Procedure TAccountTypepermissions.Seteffective(AIndex : Integer; const AValue : TStringArray);
begin
If (Feffective=AValue) then exit;
@@ -4366,7 +4374,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccount.SetchildLink(AIndex : Integer; AValue : TAccountTypechildLink);
+Procedure TAccount.SetchildLink(AIndex : Integer; const AValue : TAccountTypechildLink);
begin
If (FchildLink=AValue) then exit;
@@ -4376,7 +4384,7 @@ end;
-Procedure TAccount.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TAccount.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -4416,7 +4424,7 @@ end;
-Procedure TAccount.Setpermissions(AIndex : Integer; AValue : TAccountTypepermissions);
+Procedure TAccount.Setpermissions(AIndex : Integer; const AValue : TAccountTypepermissions);
begin
If (Fpermissions=AValue) then exit;
@@ -4436,7 +4444,17 @@ end;
-Procedure TAccount.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TAccount.Setstarred(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fstarred=AValue) then exit;
+ Fstarred:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAccount.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -4500,7 +4518,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountSummaries.Setitems(AIndex : Integer; AValue : TAccountSummariesTypeitemsArray);
+Procedure TAccountSummaries.Setitems(AIndex : Integer; const AValue : TAccountSummariesTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -4510,7 +4528,7 @@ end;
-Procedure TAccountSummaries.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TAccountSummaries.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -4550,7 +4568,7 @@ end;
-Procedure TAccountSummaries.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TAccountSummaries.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -4560,7 +4578,7 @@ end;
-Procedure TAccountSummaries.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TAccountSummaries.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -4630,7 +4648,17 @@ end;
-Procedure TAccountSummary.SetwebProperties(AIndex : Integer; AValue : TAccountSummaryTypewebPropertiesArray);
+Procedure TAccountSummary.Setstarred(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fstarred=AValue) then exit;
+ Fstarred:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAccountSummary.SetwebProperties(AIndex : Integer; const AValue : TAccountSummaryTypewebPropertiesArray);
begin
If (FwebProperties=AValue) then exit;
@@ -4660,7 +4688,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountTicket.Setaccount(AIndex : Integer; AValue : TAccount);
+Procedure TAccountTicket.Setaccount(AIndex : Integer; const AValue : TAccount);
begin
If (Faccount=AValue) then exit;
@@ -4690,7 +4718,7 @@ end;
-Procedure TAccountTicket.Setprofile(AIndex : Integer; AValue : TProfile);
+Procedure TAccountTicket.Setprofile(AIndex : Integer; const AValue : TProfile);
begin
If (Fprofile=AValue) then exit;
@@ -4710,7 +4738,7 @@ end;
-Procedure TAccountTicket.Setwebproperty(AIndex : Integer; AValue : TWebproperty);
+Procedure TAccountTicket.Setwebproperty(AIndex : Integer; const AValue : TWebproperty);
begin
If (Fwebproperty=AValue) then exit;
@@ -4727,7 +4755,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccounts.Setitems(AIndex : Integer; AValue : TAccountsTypeitemsArray);
+Procedure TAccounts.Setitems(AIndex : Integer; const AValue : TAccountsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -4737,7 +4765,7 @@ end;
-Procedure TAccounts.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TAccounts.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -4777,7 +4805,7 @@ end;
-Procedure TAccounts.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TAccounts.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -4787,7 +4815,7 @@ end;
-Procedure TAccounts.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TAccounts.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -4827,7 +4855,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdWordsAccount.SetautoTaggingEnabled(AIndex : Integer; AValue : boolean);
+Procedure TAdWordsAccount.SetautoTaggingEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FautoTaggingEnabled=AValue) then exit;
@@ -4864,7 +4892,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnalyticsDataimportDeleteUploadDataRequest.SetcustomDataImportUids(AIndex : Integer; AValue : TStringArray);
+Procedure TAnalyticsDataimportDeleteUploadDataRequest.SetcustomDataImportUids(AIndex : Integer; const AValue : TStringArray);
begin
If (FcustomDataImportUids=AValue) then exit;
@@ -4907,7 +4935,7 @@ end;
--------------------------------------------------------------------}
-Procedure TColumn.Setattributes(AIndex : Integer; AValue : TColumnTypeattributes);
+Procedure TColumn.Setattributes(AIndex : Integer; const AValue : TColumnTypeattributes);
begin
If (Fattributes=AValue) then exit;
@@ -4944,7 +4972,7 @@ end;
--------------------------------------------------------------------}
-Procedure TColumns.SetattributeNames(AIndex : Integer; AValue : TStringArray);
+Procedure TColumns.SetattributeNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FattributeNames=AValue) then exit;
@@ -4964,7 +4992,7 @@ end;
-Procedure TColumns.Setitems(AIndex : Integer; AValue : TColumnsTypeitemsArray);
+Procedure TColumns.Setitems(AIndex : Integer; const AValue : TColumnsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -4984,7 +5012,7 @@ end;
-Procedure TColumns.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TColumns.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -5101,7 +5129,7 @@ end;
-Procedure TCustomDataSource.SetchildLink(AIndex : Integer; AValue : TCustomDataSourceTypechildLink);
+Procedure TCustomDataSource.SetchildLink(AIndex : Integer; const AValue : TCustomDataSourceTypechildLink);
begin
If (FchildLink=AValue) then exit;
@@ -5111,7 +5139,7 @@ end;
-Procedure TCustomDataSource.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TCustomDataSource.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -5171,7 +5199,7 @@ end;
-Procedure TCustomDataSource.SetparentLink(AIndex : Integer; AValue : TCustomDataSourceTypeparentLink);
+Procedure TCustomDataSource.SetparentLink(AIndex : Integer; const AValue : TCustomDataSourceTypeparentLink);
begin
If (FparentLink=AValue) then exit;
@@ -5181,7 +5209,7 @@ end;
-Procedure TCustomDataSource.SetprofilesLinked(AIndex : Integer; AValue : TStringArray);
+Procedure TCustomDataSource.SetprofilesLinked(AIndex : Integer; const AValue : TStringArray);
begin
If (FprofilesLinked=AValue) then exit;
@@ -5211,7 +5239,7 @@ end;
-Procedure TCustomDataSource.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TCustomDataSource.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -5272,7 +5300,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCustomDataSources.Setitems(AIndex : Integer; AValue : TCustomDataSourcesTypeitemsArray);
+Procedure TCustomDataSources.Setitems(AIndex : Integer; const AValue : TCustomDataSourcesTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -5282,7 +5310,7 @@ end;
-Procedure TCustomDataSources.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TCustomDataSources.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -5322,7 +5350,7 @@ end;
-Procedure TCustomDataSources.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TCustomDataSources.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -5332,7 +5360,7 @@ end;
-Procedure TCustomDataSources.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TCustomDataSources.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -5420,7 +5448,7 @@ end;
-Procedure TCustomDimension.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TCustomDimension.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -5430,7 +5458,7 @@ end;
-Procedure TCustomDimension.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TCustomDimension.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -5450,7 +5478,7 @@ end;
-Procedure TCustomDimension.Setindex(AIndex : Integer; AValue : integer);
+Procedure TCustomDimension.Setindex(AIndex : Integer; const AValue : integer);
begin
If (Findex=AValue) then exit;
@@ -5480,7 +5508,7 @@ end;
-Procedure TCustomDimension.SetparentLink(AIndex : Integer; AValue : TCustomDimensionTypeparentLink);
+Procedure TCustomDimension.SetparentLink(AIndex : Integer; const AValue : TCustomDimensionTypeparentLink);
begin
If (FparentLink=AValue) then exit;
@@ -5510,7 +5538,7 @@ end;
-Procedure TCustomDimension.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TCustomDimension.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -5537,7 +5565,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCustomDimensions.Setitems(AIndex : Integer; AValue : TCustomDimensionsTypeitemsArray);
+Procedure TCustomDimensions.Setitems(AIndex : Integer; const AValue : TCustomDimensionsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -5547,7 +5575,7 @@ end;
-Procedure TCustomDimensions.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TCustomDimensions.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -5587,7 +5615,7 @@ end;
-Procedure TCustomDimensions.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TCustomDimensions.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -5597,7 +5625,7 @@ end;
-Procedure TCustomDimensions.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TCustomDimensions.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -5685,7 +5713,7 @@ end;
-Procedure TCustomMetric.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TCustomMetric.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -5695,7 +5723,7 @@ end;
-Procedure TCustomMetric.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TCustomMetric.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -5715,7 +5743,7 @@ end;
-Procedure TCustomMetric.Setindex(AIndex : Integer; AValue : integer);
+Procedure TCustomMetric.Setindex(AIndex : Integer; const AValue : integer);
begin
If (Findex=AValue) then exit;
@@ -5765,7 +5793,7 @@ end;
-Procedure TCustomMetric.SetparentLink(AIndex : Integer; AValue : TCustomMetricTypeparentLink);
+Procedure TCustomMetric.SetparentLink(AIndex : Integer; const AValue : TCustomMetricTypeparentLink);
begin
If (FparentLink=AValue) then exit;
@@ -5805,7 +5833,7 @@ end;
-Procedure TCustomMetric.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TCustomMetric.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -5843,7 +5871,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCustomMetrics.Setitems(AIndex : Integer; AValue : TCustomMetricsTypeitemsArray);
+Procedure TCustomMetrics.Setitems(AIndex : Integer; const AValue : TCustomMetricsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -5853,7 +5881,7 @@ end;
-Procedure TCustomMetrics.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TCustomMetrics.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -5893,7 +5921,7 @@ end;
-Procedure TCustomMetrics.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TCustomMetrics.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -5903,7 +5931,7 @@ end;
-Procedure TCustomMetrics.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TCustomMetrics.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -5943,7 +5971,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEntityAdWordsLinkTypeentity.SetwebPropertyRef(AIndex : Integer; AValue : TWebPropertyRef);
+Procedure TEntityAdWordsLinkTypeentity.SetwebPropertyRef(AIndex : Integer; const AValue : TWebPropertyRef);
begin
If (FwebPropertyRef=AValue) then exit;
@@ -5960,7 +5988,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEntityAdWordsLink.SetadWordsAccounts(AIndex : Integer; AValue : TEntityAdWordsLinkTypeadWordsAccountsArray);
+Procedure TEntityAdWordsLink.SetadWordsAccounts(AIndex : Integer; const AValue : TEntityAdWordsLinkTypeadWordsAccountsArray);
begin
If (FadWordsAccounts=AValue) then exit;
@@ -5970,7 +5998,7 @@ end;
-Procedure TEntityAdWordsLink.Setentity(AIndex : Integer; AValue : TEntityAdWordsLinkTypeentity);
+Procedure TEntityAdWordsLink.Setentity(AIndex : Integer; const AValue : TEntityAdWordsLinkTypeentity);
begin
If (Fentity=AValue) then exit;
@@ -6010,7 +6038,7 @@ end;
-Procedure TEntityAdWordsLink.SetprofileIds(AIndex : Integer; AValue : TStringArray);
+Procedure TEntityAdWordsLink.SetprofileIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FprofileIds=AValue) then exit;
@@ -6051,7 +6079,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEntityAdWordsLinks.Setitems(AIndex : Integer; AValue : TEntityAdWordsLinksTypeitemsArray);
+Procedure TEntityAdWordsLinks.Setitems(AIndex : Integer; const AValue : TEntityAdWordsLinksTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6061,7 +6089,7 @@ end;
-Procedure TEntityAdWordsLinks.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TEntityAdWordsLinks.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -6101,7 +6129,7 @@ end;
-Procedure TEntityAdWordsLinks.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TEntityAdWordsLinks.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -6111,7 +6139,7 @@ end;
-Procedure TEntityAdWordsLinks.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TEntityAdWordsLinks.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -6141,7 +6169,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEntityUserLinkTypeentity.SetaccountRef(AIndex : Integer; AValue : TAccountRef);
+Procedure TEntityUserLinkTypeentity.SetaccountRef(AIndex : Integer; const AValue : TAccountRef);
begin
If (FaccountRef=AValue) then exit;
@@ -6151,7 +6179,7 @@ end;
-Procedure TEntityUserLinkTypeentity.SetprofileRef(AIndex : Integer; AValue : TProfileRef);
+Procedure TEntityUserLinkTypeentity.SetprofileRef(AIndex : Integer; const AValue : TProfileRef);
begin
If (FprofileRef=AValue) then exit;
@@ -6161,7 +6189,7 @@ end;
-Procedure TEntityUserLinkTypeentity.SetwebPropertyRef(AIndex : Integer; AValue : TWebPropertyRef);
+Procedure TEntityUserLinkTypeentity.SetwebPropertyRef(AIndex : Integer; const AValue : TWebPropertyRef);
begin
If (FwebPropertyRef=AValue) then exit;
@@ -6178,7 +6206,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEntityUserLinkTypepermissions.Seteffective(AIndex : Integer; AValue : TStringArray);
+Procedure TEntityUserLinkTypepermissions.Seteffective(AIndex : Integer; const AValue : TStringArray);
begin
If (Feffective=AValue) then exit;
@@ -6188,7 +6216,7 @@ end;
-Procedure TEntityUserLinkTypepermissions.Setlocal(AIndex : Integer; AValue : TStringArray);
+Procedure TEntityUserLinkTypepermissions.Setlocal(AIndex : Integer; const AValue : TStringArray);
begin
If (Flocal=AValue) then exit;
@@ -6219,7 +6247,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEntityUserLink.Setentity(AIndex : Integer; AValue : TEntityUserLinkTypeentity);
+Procedure TEntityUserLink.Setentity(AIndex : Integer; const AValue : TEntityUserLinkTypeentity);
begin
If (Fentity=AValue) then exit;
@@ -6249,7 +6277,7 @@ end;
-Procedure TEntityUserLink.Setpermissions(AIndex : Integer; AValue : TEntityUserLinkTypepermissions);
+Procedure TEntityUserLink.Setpermissions(AIndex : Integer; const AValue : TEntityUserLinkTypepermissions);
begin
If (Fpermissions=AValue) then exit;
@@ -6269,7 +6297,7 @@ end;
-Procedure TEntityUserLink.SetuserRef(AIndex : Integer; AValue : TUserRef);
+Procedure TEntityUserLink.SetuserRef(AIndex : Integer; const AValue : TUserRef);
begin
If (FuserRef=AValue) then exit;
@@ -6286,7 +6314,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEntityUserLinks.Setitems(AIndex : Integer; AValue : TEntityUserLinksTypeitemsArray);
+Procedure TEntityUserLinks.Setitems(AIndex : Integer; const AValue : TEntityUserLinksTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6296,7 +6324,7 @@ end;
-Procedure TEntityUserLinks.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TEntityUserLinks.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -6336,7 +6364,7 @@ end;
-Procedure TEntityUserLinks.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TEntityUserLinks.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -6346,7 +6374,7 @@ end;
-Procedure TEntityUserLinks.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TEntityUserLinks.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -6444,7 +6472,7 @@ end;
-Procedure TExperimentTypevariationsItem.Setweight(AIndex : Integer; AValue : double);
+Procedure TExperimentTypevariationsItem.Setweight(AIndex : Integer; const AValue : double);
begin
If (Fweight=AValue) then exit;
@@ -6454,7 +6482,7 @@ end;
-Procedure TExperimentTypevariationsItem.Setwon(AIndex : Integer; AValue : boolean);
+Procedure TExperimentTypevariationsItem.Setwon(AIndex : Integer; const AValue : boolean);
begin
If (Fwon=AValue) then exit;
@@ -6481,7 +6509,7 @@ end;
-Procedure TExperiment.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TExperiment.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -6501,7 +6529,7 @@ end;
-Procedure TExperiment.SeteditableInGaUi(AIndex : Integer; AValue : boolean);
+Procedure TExperiment.SeteditableInGaUi(AIndex : Integer; const AValue : boolean);
begin
If (FeditableInGaUi=AValue) then exit;
@@ -6511,7 +6539,7 @@ end;
-Procedure TExperiment.SetendTime(AIndex : Integer; AValue : TDatetime);
+Procedure TExperiment.SetendTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FendTime=AValue) then exit;
@@ -6521,7 +6549,7 @@ end;
-Procedure TExperiment.SetequalWeighting(AIndex : Integer; AValue : boolean);
+Procedure TExperiment.SetequalWeighting(AIndex : Integer; const AValue : boolean);
begin
If (FequalWeighting=AValue) then exit;
@@ -6561,7 +6589,7 @@ end;
-Procedure TExperiment.SetminimumExperimentLengthInDays(AIndex : Integer; AValue : integer);
+Procedure TExperiment.SetminimumExperimentLengthInDays(AIndex : Integer; const AValue : integer);
begin
If (FminimumExperimentLengthInDays=AValue) then exit;
@@ -6601,7 +6629,7 @@ end;
-Procedure TExperiment.SetparentLink(AIndex : Integer; AValue : TExperimentTypeparentLink);
+Procedure TExperiment.SetparentLink(AIndex : Integer; const AValue : TExperimentTypeparentLink);
begin
If (FparentLink=AValue) then exit;
@@ -6631,7 +6659,7 @@ end;
-Procedure TExperiment.SetrewriteVariationUrlsAsOriginal(AIndex : Integer; AValue : boolean);
+Procedure TExperiment.SetrewriteVariationUrlsAsOriginal(AIndex : Integer; const AValue : boolean);
begin
If (FrewriteVariationUrlsAsOriginal=AValue) then exit;
@@ -6671,7 +6699,7 @@ end;
-Procedure TExperiment.SetstartTime(AIndex : Integer; AValue : TDatetime);
+Procedure TExperiment.SetstartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FstartTime=AValue) then exit;
@@ -6691,7 +6719,7 @@ end;
-Procedure TExperiment.SettrafficCoverage(AIndex : Integer; AValue : double);
+Procedure TExperiment.SettrafficCoverage(AIndex : Integer; const AValue : double);
begin
If (FtrafficCoverage=AValue) then exit;
@@ -6701,7 +6729,7 @@ end;
-Procedure TExperiment.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TExperiment.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -6711,7 +6739,7 @@ end;
-Procedure TExperiment.Setvariations(AIndex : Integer; AValue : TExperimentTypevariationsArray);
+Procedure TExperiment.Setvariations(AIndex : Integer; const AValue : TExperimentTypevariationsArray);
begin
If (Fvariations=AValue) then exit;
@@ -6731,7 +6759,7 @@ end;
-Procedure TExperiment.SetwinnerConfidenceLevel(AIndex : Integer; AValue : double);
+Procedure TExperiment.SetwinnerConfidenceLevel(AIndex : Integer; const AValue : double);
begin
If (FwinnerConfidenceLevel=AValue) then exit;
@@ -6741,7 +6769,7 @@ end;
-Procedure TExperiment.SetwinnerFound(AIndex : Integer; AValue : boolean);
+Procedure TExperiment.SetwinnerFound(AIndex : Integer; const AValue : boolean);
begin
If (FwinnerFound=AValue) then exit;
@@ -6771,7 +6799,7 @@ end;
--------------------------------------------------------------------}
-Procedure TExperiments.Setitems(AIndex : Integer; AValue : TExperimentsTypeitemsArray);
+Procedure TExperiments.Setitems(AIndex : Integer; const AValue : TExperimentsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6781,7 +6809,7 @@ end;
-Procedure TExperiments.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TExperiments.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -6821,7 +6849,7 @@ end;
-Procedure TExperiments.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TExperiments.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -6831,7 +6859,7 @@ end;
-Procedure TExperiments.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TExperiments.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -6871,7 +6899,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFilterTypeadvancedDetails.SetcaseSensitive(AIndex : Integer; AValue : boolean);
+Procedure TFilterTypeadvancedDetails.SetcaseSensitive(AIndex : Integer; const AValue : boolean);
begin
If (FcaseSensitive=AValue) then exit;
@@ -6911,7 +6939,7 @@ end;
-Procedure TFilterTypeadvancedDetails.SetfieldAIndex(AIndex : Integer; AValue : integer);
+Procedure TFilterTypeadvancedDetails.SetfieldAIndex(AIndex : Integer; const AValue : integer);
begin
If (FfieldAIndex=AValue) then exit;
@@ -6921,7 +6949,7 @@ end;
-Procedure TFilterTypeadvancedDetails.SetfieldARequired(AIndex : Integer; AValue : boolean);
+Procedure TFilterTypeadvancedDetails.SetfieldARequired(AIndex : Integer; const AValue : boolean);
begin
If (FfieldARequired=AValue) then exit;
@@ -6941,7 +6969,7 @@ end;
-Procedure TFilterTypeadvancedDetails.SetfieldBIndex(AIndex : Integer; AValue : integer);
+Procedure TFilterTypeadvancedDetails.SetfieldBIndex(AIndex : Integer; const AValue : integer);
begin
If (FfieldBIndex=AValue) then exit;
@@ -6951,7 +6979,7 @@ end;
-Procedure TFilterTypeadvancedDetails.SetfieldBRequired(AIndex : Integer; AValue : boolean);
+Procedure TFilterTypeadvancedDetails.SetfieldBRequired(AIndex : Integer; const AValue : boolean);
begin
If (FfieldBRequired=AValue) then exit;
@@ -6981,7 +7009,7 @@ end;
-Procedure TFilterTypeadvancedDetails.SetoutputToFieldIndex(AIndex : Integer; AValue : integer);
+Procedure TFilterTypeadvancedDetails.SetoutputToFieldIndex(AIndex : Integer; const AValue : integer);
begin
If (FoutputToFieldIndex=AValue) then exit;
@@ -6991,7 +7019,7 @@ end;
-Procedure TFilterTypeadvancedDetails.SetoverrideOutputField(AIndex : Integer; AValue : boolean);
+Procedure TFilterTypeadvancedDetails.SetoverrideOutputField(AIndex : Integer; const AValue : boolean);
begin
If (FoverrideOutputField=AValue) then exit;
@@ -7018,7 +7046,7 @@ end;
-Procedure TFilterTypelowercaseDetails.SetfieldIndex(AIndex : Integer; AValue : integer);
+Procedure TFilterTypelowercaseDetails.SetfieldIndex(AIndex : Integer; const AValue : integer);
begin
If (FfieldIndex=AValue) then exit;
@@ -7073,7 +7101,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFilterTypesearchAndReplaceDetails.SetcaseSensitive(AIndex : Integer; AValue : boolean);
+Procedure TFilterTypesearchAndReplaceDetails.SetcaseSensitive(AIndex : Integer; const AValue : boolean);
begin
If (FcaseSensitive=AValue) then exit;
@@ -7093,7 +7121,7 @@ end;
-Procedure TFilterTypesearchAndReplaceDetails.SetfieldIndex(AIndex : Integer; AValue : integer);
+Procedure TFilterTypesearchAndReplaceDetails.SetfieldIndex(AIndex : Integer; const AValue : integer);
begin
If (FfieldIndex=AValue) then exit;
@@ -7140,7 +7168,7 @@ end;
-Procedure TFilterTypeuppercaseDetails.SetfieldIndex(AIndex : Integer; AValue : integer);
+Procedure TFilterTypeuppercaseDetails.SetfieldIndex(AIndex : Integer; const AValue : integer);
begin
If (FfieldIndex=AValue) then exit;
@@ -7167,7 +7195,7 @@ end;
-Procedure TFilter.SetadvancedDetails(AIndex : Integer; AValue : TFilterTypeadvancedDetails);
+Procedure TFilter.SetadvancedDetails(AIndex : Integer; const AValue : TFilterTypeadvancedDetails);
begin
If (FadvancedDetails=AValue) then exit;
@@ -7177,7 +7205,7 @@ end;
-Procedure TFilter.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TFilter.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -7187,7 +7215,7 @@ end;
-Procedure TFilter.SetexcludeDetails(AIndex : Integer; AValue : TFilterExpression);
+Procedure TFilter.SetexcludeDetails(AIndex : Integer; const AValue : TFilterExpression);
begin
If (FexcludeDetails=AValue) then exit;
@@ -7207,7 +7235,7 @@ end;
-Procedure TFilter.SetincludeDetails(AIndex : Integer; AValue : TFilterExpression);
+Procedure TFilter.SetincludeDetails(AIndex : Integer; const AValue : TFilterExpression);
begin
If (FincludeDetails=AValue) then exit;
@@ -7227,7 +7255,7 @@ end;
-Procedure TFilter.SetlowercaseDetails(AIndex : Integer; AValue : TFilterTypelowercaseDetails);
+Procedure TFilter.SetlowercaseDetails(AIndex : Integer; const AValue : TFilterTypelowercaseDetails);
begin
If (FlowercaseDetails=AValue) then exit;
@@ -7247,7 +7275,7 @@ end;
-Procedure TFilter.SetparentLink(AIndex : Integer; AValue : TFilterTypeparentLink);
+Procedure TFilter.SetparentLink(AIndex : Integer; const AValue : TFilterTypeparentLink);
begin
If (FparentLink=AValue) then exit;
@@ -7257,7 +7285,7 @@ end;
-Procedure TFilter.SetsearchAndReplaceDetails(AIndex : Integer; AValue : TFilterTypesearchAndReplaceDetails);
+Procedure TFilter.SetsearchAndReplaceDetails(AIndex : Integer; const AValue : TFilterTypesearchAndReplaceDetails);
begin
If (FsearchAndReplaceDetails=AValue) then exit;
@@ -7287,7 +7315,7 @@ end;
-Procedure TFilter.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TFilter.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -7297,7 +7325,7 @@ end;
-Procedure TFilter.SetuppercaseDetails(AIndex : Integer; AValue : TFilterTypeuppercaseDetails);
+Procedure TFilter.SetuppercaseDetails(AIndex : Integer; const AValue : TFilterTypeuppercaseDetails);
begin
If (FuppercaseDetails=AValue) then exit;
@@ -7325,7 +7353,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFilterExpression.SetcaseSensitive(AIndex : Integer; AValue : boolean);
+Procedure TFilterExpression.SetcaseSensitive(AIndex : Integer; const AValue : boolean);
begin
If (FcaseSensitive=AValue) then exit;
@@ -7355,7 +7383,7 @@ end;
-Procedure TFilterExpression.SetfieldIndex(AIndex : Integer; AValue : integer);
+Procedure TFilterExpression.SetfieldIndex(AIndex : Integer; const AValue : integer);
begin
If (FfieldIndex=AValue) then exit;
@@ -7449,7 +7477,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFilters.Setitems(AIndex : Integer; AValue : TFiltersTypeitemsArray);
+Procedure TFilters.Setitems(AIndex : Integer; const AValue : TFiltersTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -7459,7 +7487,7 @@ end;
-Procedure TFilters.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TFilters.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -7499,7 +7527,7 @@ end;
-Procedure TFilters.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TFilters.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -7509,7 +7537,7 @@ end;
-Procedure TFilters.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TFilters.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -7652,7 +7680,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGaDataTypedataTableTyperowsItem.Setc(AIndex : Integer; AValue : TGaDataTypedataTableTyperowsItemTypecArray);
+Procedure TGaDataTypedataTableTyperowsItem.Setc(AIndex : Integer; const AValue : TGaDataTypedataTableTyperowsItemTypecArray);
begin
If (Fc=AValue) then exit;
@@ -7682,7 +7710,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGaDataTypedataTable.Setcols(AIndex : Integer; AValue : TGaDataTypedataTableTypecolsArray);
+Procedure TGaDataTypedataTable.Setcols(AIndex : Integer; const AValue : TGaDataTypedataTableTypecolsArray);
begin
If (Fcols=AValue) then exit;
@@ -7692,7 +7720,7 @@ end;
-Procedure TGaDataTypedataTable.Setrows(AIndex : Integer; AValue : TGaDataTypedataTableTyperowsArray);
+Procedure TGaDataTypedataTable.Setrows(AIndex : Integer; const AValue : TGaDataTypedataTableTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -7830,7 +7858,7 @@ end;
-Procedure TGaDataTypequery.Setmaxresults(AIndex : Integer; AValue : integer);
+Procedure TGaDataTypequery.Setmaxresults(AIndex : Integer; const AValue : integer);
begin
If (Fmaxresults=AValue) then exit;
@@ -7840,7 +7868,7 @@ end;
-Procedure TGaDataTypequery.Setmetrics(AIndex : Integer; AValue : TStringArray);
+Procedure TGaDataTypequery.Setmetrics(AIndex : Integer; const AValue : TStringArray);
begin
If (Fmetrics=AValue) then exit;
@@ -7870,7 +7898,7 @@ end;
-Procedure TGaDataTypequery.Setsort(AIndex : Integer; AValue : TStringArray);
+Procedure TGaDataTypequery.Setsort(AIndex : Integer; const AValue : TStringArray);
begin
If (Fsort=AValue) then exit;
@@ -7890,7 +7918,7 @@ end;
-Procedure TGaDataTypequery.Setstartindex(AIndex : Integer; AValue : integer);
+Procedure TGaDataTypequery.Setstartindex(AIndex : Integer; const AValue : integer);
begin
If (Fstartindex=AValue) then exit;
@@ -7948,7 +7976,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGaData.SetcolumnHeaders(AIndex : Integer; AValue : TGaDataTypecolumnHeadersArray);
+Procedure TGaData.SetcolumnHeaders(AIndex : Integer; const AValue : TGaDataTypecolumnHeadersArray);
begin
If (FcolumnHeaders=AValue) then exit;
@@ -7958,7 +7986,7 @@ end;
-Procedure TGaData.SetcontainsSampledData(AIndex : Integer; AValue : boolean);
+Procedure TGaData.SetcontainsSampledData(AIndex : Integer; const AValue : boolean);
begin
If (FcontainsSampledData=AValue) then exit;
@@ -7968,7 +7996,7 @@ end;
-Procedure TGaData.SetdataTable(AIndex : Integer; AValue : TGaDataTypedataTable);
+Procedure TGaData.SetdataTable(AIndex : Integer; const AValue : TGaDataTypedataTable);
begin
If (FdataTable=AValue) then exit;
@@ -7988,7 +8016,7 @@ end;
-Procedure TGaData.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TGaData.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -8028,7 +8056,7 @@ end;
-Procedure TGaData.SetprofileInfo(AIndex : Integer; AValue : TGaDataTypeprofileInfo);
+Procedure TGaData.SetprofileInfo(AIndex : Integer; const AValue : TGaDataTypeprofileInfo);
begin
If (FprofileInfo=AValue) then exit;
@@ -8038,7 +8066,7 @@ end;
-Procedure TGaData.Setquery(AIndex : Integer; AValue : TGaDataTypequery);
+Procedure TGaData.Setquery(AIndex : Integer; const AValue : TGaDataTypequery);
begin
If (Fquery=AValue) then exit;
@@ -8048,7 +8076,7 @@ end;
-Procedure TGaData.Setrows(AIndex : Integer; AValue : TGaDataTyperowsArray);
+Procedure TGaData.Setrows(AIndex : Integer; const AValue : TGaDataTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -8088,7 +8116,7 @@ end;
-Procedure TGaData.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TGaData.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -8098,7 +8126,7 @@ end;
-Procedure TGaData.SettotalsForAllResults(AIndex : Integer; AValue : TGaDataTypetotalsForAllResults);
+Procedure TGaData.SettotalsForAllResults(AIndex : Integer; const AValue : TGaDataTypetotalsForAllResults);
begin
If (FtotalsForAllResults=AValue) then exit;
@@ -8197,7 +8225,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGoalTypeeventDetails.SeteventConditions(AIndex : Integer; AValue : TGoalTypeeventDetailsTypeeventConditionsArray);
+Procedure TGoalTypeeventDetails.SeteventConditions(AIndex : Integer; const AValue : TGoalTypeeventDetailsTypeeventConditionsArray);
begin
If (FeventConditions=AValue) then exit;
@@ -8207,7 +8235,7 @@ end;
-Procedure TGoalTypeeventDetails.SetuseEventValue(AIndex : Integer; AValue : boolean);
+Procedure TGoalTypeeventDetails.SetuseEventValue(AIndex : Integer; const AValue : boolean);
begin
If (FuseEventValue=AValue) then exit;
@@ -8285,7 +8313,7 @@ end;
-Procedure TGoalTypeurlDestinationDetailsTypestepsItem.Setnumber(AIndex : Integer; AValue : integer);
+Procedure TGoalTypeurlDestinationDetailsTypestepsItem.Setnumber(AIndex : Integer; const AValue : integer);
begin
If (Fnumber=AValue) then exit;
@@ -8312,7 +8340,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGoalTypeurlDestinationDetails.SetcaseSensitive(AIndex : Integer; AValue : boolean);
+Procedure TGoalTypeurlDestinationDetails.SetcaseSensitive(AIndex : Integer; const AValue : boolean);
begin
If (FcaseSensitive=AValue) then exit;
@@ -8322,7 +8350,7 @@ end;
-Procedure TGoalTypeurlDestinationDetails.SetfirstStepRequired(AIndex : Integer; AValue : boolean);
+Procedure TGoalTypeurlDestinationDetails.SetfirstStepRequired(AIndex : Integer; const AValue : boolean);
begin
If (FfirstStepRequired=AValue) then exit;
@@ -8342,7 +8370,7 @@ end;
-Procedure TGoalTypeurlDestinationDetails.Setsteps(AIndex : Integer; AValue : TGoalTypeurlDestinationDetailsTypestepsArray);
+Procedure TGoalTypeurlDestinationDetails.Setsteps(AIndex : Integer; const AValue : TGoalTypeurlDestinationDetailsTypestepsArray);
begin
If (Fsteps=AValue) then exit;
@@ -8446,7 +8474,7 @@ end;
-Procedure TGoal.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TGoal.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -8456,7 +8484,7 @@ end;
-Procedure TGoal.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TGoal.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -8466,7 +8494,7 @@ end;
-Procedure TGoal.SeteventDetails(AIndex : Integer; AValue : TGoalTypeeventDetails);
+Procedure TGoal.SeteventDetails(AIndex : Integer; const AValue : TGoalTypeeventDetails);
begin
If (FeventDetails=AValue) then exit;
@@ -8516,7 +8544,7 @@ end;
-Procedure TGoal.SetparentLink(AIndex : Integer; AValue : TGoalTypeparentLink);
+Procedure TGoal.SetparentLink(AIndex : Integer; const AValue : TGoalTypeparentLink);
begin
If (FparentLink=AValue) then exit;
@@ -8556,7 +8584,7 @@ end;
-Procedure TGoal.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TGoal.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -8566,7 +8594,7 @@ end;
-Procedure TGoal.SeturlDestinationDetails(AIndex : Integer; AValue : TGoalTypeurlDestinationDetails);
+Procedure TGoal.SeturlDestinationDetails(AIndex : Integer; const AValue : TGoalTypeurlDestinationDetails);
begin
If (FurlDestinationDetails=AValue) then exit;
@@ -8576,7 +8604,7 @@ end;
-Procedure TGoal.Setvalue(AIndex : Integer; AValue : integer);
+Procedure TGoal.Setvalue(AIndex : Integer; const AValue : integer);
begin
If (Fvalue=AValue) then exit;
@@ -8586,7 +8614,7 @@ end;
-Procedure TGoal.SetvisitNumPagesDetails(AIndex : Integer; AValue : TGoalTypevisitNumPagesDetails);
+Procedure TGoal.SetvisitNumPagesDetails(AIndex : Integer; const AValue : TGoalTypevisitNumPagesDetails);
begin
If (FvisitNumPagesDetails=AValue) then exit;
@@ -8596,7 +8624,7 @@ end;
-Procedure TGoal.SetvisitTimeOnSiteDetails(AIndex : Integer; AValue : TGoalTypevisitTimeOnSiteDetails);
+Procedure TGoal.SetvisitTimeOnSiteDetails(AIndex : Integer; const AValue : TGoalTypevisitTimeOnSiteDetails);
begin
If (FvisitTimeOnSiteDetails=AValue) then exit;
@@ -8634,7 +8662,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGoals.Setitems(AIndex : Integer; AValue : TGoalsTypeitemsArray);
+Procedure TGoals.Setitems(AIndex : Integer; const AValue : TGoalsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -8644,7 +8672,7 @@ end;
-Procedure TGoals.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TGoals.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -8684,7 +8712,7 @@ end;
-Procedure TGoals.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TGoals.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -8694,7 +8722,7 @@ end;
-Procedure TGoals.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TGoals.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -8878,7 +8906,7 @@ end;
-Procedure TMcfDataTypequery.Setmaxresults(AIndex : Integer; AValue : integer);
+Procedure TMcfDataTypequery.Setmaxresults(AIndex : Integer; const AValue : integer);
begin
If (Fmaxresults=AValue) then exit;
@@ -8888,7 +8916,7 @@ end;
-Procedure TMcfDataTypequery.Setmetrics(AIndex : Integer; AValue : TStringArray);
+Procedure TMcfDataTypequery.Setmetrics(AIndex : Integer; const AValue : TStringArray);
begin
If (Fmetrics=AValue) then exit;
@@ -8918,7 +8946,7 @@ end;
-Procedure TMcfDataTypequery.Setsort(AIndex : Integer; AValue : TStringArray);
+Procedure TMcfDataTypequery.Setsort(AIndex : Integer; const AValue : TStringArray);
begin
If (Fsort=AValue) then exit;
@@ -8938,7 +8966,7 @@ end;
-Procedure TMcfDataTypequery.Setstartindex(AIndex : Integer; AValue : integer);
+Procedure TMcfDataTypequery.Setstartindex(AIndex : Integer; const AValue : integer);
begin
If (Fstartindex=AValue) then exit;
@@ -9010,7 +9038,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMcfDataTyperowsItemItem.SetconversionPathValue(AIndex : Integer; AValue : TMcfDataTyperowsItemItemTypeconversionPathValueArray);
+Procedure TMcfDataTyperowsItemItem.SetconversionPathValue(AIndex : Integer; const AValue : TMcfDataTyperowsItemItemTypeconversionPathValueArray);
begin
If (FconversionPathValue=AValue) then exit;
@@ -9063,7 +9091,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMcfData.SetcolumnHeaders(AIndex : Integer; AValue : TMcfDataTypecolumnHeadersArray);
+Procedure TMcfData.SetcolumnHeaders(AIndex : Integer; const AValue : TMcfDataTypecolumnHeadersArray);
begin
If (FcolumnHeaders=AValue) then exit;
@@ -9073,7 +9101,7 @@ end;
-Procedure TMcfData.SetcontainsSampledData(AIndex : Integer; AValue : boolean);
+Procedure TMcfData.SetcontainsSampledData(AIndex : Integer; const AValue : boolean);
begin
If (FcontainsSampledData=AValue) then exit;
@@ -9093,7 +9121,7 @@ end;
-Procedure TMcfData.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TMcfData.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -9133,7 +9161,7 @@ end;
-Procedure TMcfData.SetprofileInfo(AIndex : Integer; AValue : TMcfDataTypeprofileInfo);
+Procedure TMcfData.SetprofileInfo(AIndex : Integer; const AValue : TMcfDataTypeprofileInfo);
begin
If (FprofileInfo=AValue) then exit;
@@ -9143,7 +9171,7 @@ end;
-Procedure TMcfData.Setquery(AIndex : Integer; AValue : TMcfDataTypequery);
+Procedure TMcfData.Setquery(AIndex : Integer; const AValue : TMcfDataTypequery);
begin
If (Fquery=AValue) then exit;
@@ -9153,7 +9181,7 @@ end;
-Procedure TMcfData.Setrows(AIndex : Integer; AValue : TMcfDataTyperowsArray);
+Procedure TMcfData.Setrows(AIndex : Integer; const AValue : TMcfDataTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -9193,7 +9221,7 @@ end;
-Procedure TMcfData.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TMcfData.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -9203,7 +9231,7 @@ end;
-Procedure TMcfData.SettotalsForAllResults(AIndex : Integer; AValue : TMcfDataTypetotalsForAllResults);
+Procedure TMcfData.SettotalsForAllResults(AIndex : Integer; const AValue : TMcfDataTypetotalsForAllResults);
begin
If (FtotalsForAllResults=AValue) then exit;
@@ -9310,7 +9338,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProfileTypepermissions.Seteffective(AIndex : Integer; AValue : TStringArray);
+Procedure TProfileTypepermissions.Seteffective(AIndex : Integer; const AValue : TStringArray);
begin
If (Feffective=AValue) then exit;
@@ -9350,7 +9378,17 @@ end;
-Procedure TProfile.SetchildLink(AIndex : Integer; AValue : TProfileTypechildLink);
+Procedure TProfile.SetbotFilteringEnabled(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FbotFilteringEnabled=AValue) then exit;
+ FbotFilteringEnabled:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProfile.SetchildLink(AIndex : Integer; const AValue : TProfileTypechildLink);
begin
If (FchildLink=AValue) then exit;
@@ -9360,7 +9398,7 @@ end;
-Procedure TProfile.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TProfile.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -9390,7 +9428,7 @@ end;
-Procedure TProfile.SeteCommerceTracking(AIndex : Integer; AValue : boolean);
+Procedure TProfile.SeteCommerceTracking(AIndex : Integer; const AValue : boolean);
begin
If (FeCommerceTracking=AValue) then exit;
@@ -9400,7 +9438,7 @@ end;
-Procedure TProfile.SetenhancedECommerceTracking(AIndex : Integer; AValue : boolean);
+Procedure TProfile.SetenhancedECommerceTracking(AIndex : Integer; const AValue : boolean);
begin
If (FenhancedECommerceTracking=AValue) then exit;
@@ -9460,7 +9498,7 @@ end;
-Procedure TProfile.SetparentLink(AIndex : Integer; AValue : TProfileTypeparentLink);
+Procedure TProfile.SetparentLink(AIndex : Integer; const AValue : TProfileTypeparentLink);
begin
If (FparentLink=AValue) then exit;
@@ -9470,7 +9508,7 @@ end;
-Procedure TProfile.Setpermissions(AIndex : Integer; AValue : TProfileTypepermissions);
+Procedure TProfile.Setpermissions(AIndex : Integer; const AValue : TProfileTypepermissions);
begin
If (Fpermissions=AValue) then exit;
@@ -9510,7 +9548,17 @@ end;
-Procedure TProfile.SetstripSiteSearchCategoryParameters(AIndex : Integer; AValue : boolean);
+Procedure TProfile.Setstarred(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fstarred=AValue) then exit;
+ Fstarred:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProfile.SetstripSiteSearchCategoryParameters(AIndex : Integer; const AValue : boolean);
begin
If (FstripSiteSearchCategoryParameters=AValue) then exit;
@@ -9520,7 +9568,7 @@ end;
-Procedure TProfile.SetstripSiteSearchQueryParameters(AIndex : Integer; AValue : boolean);
+Procedure TProfile.SetstripSiteSearchQueryParameters(AIndex : Integer; const AValue : boolean);
begin
If (FstripSiteSearchQueryParameters=AValue) then exit;
@@ -9550,7 +9598,7 @@ end;
-Procedure TProfile.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TProfile.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -9598,7 +9646,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProfileFilterLink.SetfilterRef(AIndex : Integer; AValue : TFilterRef);
+Procedure TProfileFilterLink.SetfilterRef(AIndex : Integer; const AValue : TFilterRef);
begin
If (FfilterRef=AValue) then exit;
@@ -9628,7 +9676,7 @@ end;
-Procedure TProfileFilterLink.SetprofileRef(AIndex : Integer; AValue : TProfileRef);
+Procedure TProfileFilterLink.SetprofileRef(AIndex : Integer; const AValue : TProfileRef);
begin
If (FprofileRef=AValue) then exit;
@@ -9638,7 +9686,7 @@ end;
-Procedure TProfileFilterLink.Setrank(AIndex : Integer; AValue : integer);
+Procedure TProfileFilterLink.Setrank(AIndex : Integer; const AValue : integer);
begin
If (Frank=AValue) then exit;
@@ -9665,7 +9713,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProfileFilterLinks.Setitems(AIndex : Integer; AValue : TProfileFilterLinksTypeitemsArray);
+Procedure TProfileFilterLinks.Setitems(AIndex : Integer; const AValue : TProfileFilterLinksTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -9675,7 +9723,7 @@ end;
-Procedure TProfileFilterLinks.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TProfileFilterLinks.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -9715,7 +9763,7 @@ end;
-Procedure TProfileFilterLinks.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TProfileFilterLinks.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -9725,7 +9773,7 @@ end;
-Procedure TProfileFilterLinks.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TProfileFilterLinks.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -9872,6 +9920,16 @@ end;
+Procedure TProfileSummary.Setstarred(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fstarred=AValue) then exit;
+ Fstarred:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TProfileSummary.Set_type(AIndex : Integer; const AValue : String);
begin
@@ -9900,7 +9958,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProfiles.Setitems(AIndex : Integer; AValue : TProfilesTypeitemsArray);
+Procedure TProfiles.Setitems(AIndex : Integer; const AValue : TProfilesTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -9910,7 +9968,7 @@ end;
-Procedure TProfiles.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TProfiles.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -9950,7 +10008,7 @@ end;
-Procedure TProfiles.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TProfiles.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -9960,7 +10018,7 @@ end;
-Procedure TProfiles.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TProfiles.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -10134,7 +10192,7 @@ end;
-Procedure TRealtimeDataTypequery.Setmaxresults(AIndex : Integer; AValue : integer);
+Procedure TRealtimeDataTypequery.Setmaxresults(AIndex : Integer; const AValue : integer);
begin
If (Fmaxresults=AValue) then exit;
@@ -10144,7 +10202,7 @@ end;
-Procedure TRealtimeDataTypequery.Setmetrics(AIndex : Integer; AValue : TStringArray);
+Procedure TRealtimeDataTypequery.Setmetrics(AIndex : Integer; const AValue : TStringArray);
begin
If (Fmetrics=AValue) then exit;
@@ -10154,7 +10212,7 @@ end;
-Procedure TRealtimeDataTypequery.Setsort(AIndex : Integer; AValue : TStringArray);
+Procedure TRealtimeDataTypequery.Setsort(AIndex : Integer; const AValue : TStringArray);
begin
If (Fsort=AValue) then exit;
@@ -10209,7 +10267,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRealtimeData.SetcolumnHeaders(AIndex : Integer; AValue : TRealtimeDataTypecolumnHeadersArray);
+Procedure TRealtimeData.SetcolumnHeaders(AIndex : Integer; const AValue : TRealtimeDataTypecolumnHeadersArray);
begin
If (FcolumnHeaders=AValue) then exit;
@@ -10239,7 +10297,7 @@ end;
-Procedure TRealtimeData.SetprofileInfo(AIndex : Integer; AValue : TRealtimeDataTypeprofileInfo);
+Procedure TRealtimeData.SetprofileInfo(AIndex : Integer; const AValue : TRealtimeDataTypeprofileInfo);
begin
If (FprofileInfo=AValue) then exit;
@@ -10249,7 +10307,7 @@ end;
-Procedure TRealtimeData.Setquery(AIndex : Integer; AValue : TRealtimeDataTypequery);
+Procedure TRealtimeData.Setquery(AIndex : Integer; const AValue : TRealtimeDataTypequery);
begin
If (Fquery=AValue) then exit;
@@ -10259,7 +10317,7 @@ end;
-Procedure TRealtimeData.Setrows(AIndex : Integer; AValue : TRealtimeDataTyperowsArray);
+Procedure TRealtimeData.Setrows(AIndex : Integer; const AValue : TRealtimeDataTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -10279,7 +10337,7 @@ end;
-Procedure TRealtimeData.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TRealtimeData.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -10289,7 +10347,7 @@ end;
-Procedure TRealtimeData.SettotalsForAllResults(AIndex : Integer; AValue : TRealtimeDataTypetotalsForAllResults);
+Procedure TRealtimeData.SettotalsForAllResults(AIndex : Integer; const AValue : TRealtimeDataTypetotalsForAllResults);
begin
If (FtotalsForAllResults=AValue) then exit;
@@ -10320,7 +10378,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSegment.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TSegment.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -10400,7 +10458,7 @@ end;
-Procedure TSegment.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TSegment.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -10428,7 +10486,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSegments.Setitems(AIndex : Integer; AValue : TSegmentsTypeitemsArray);
+Procedure TSegments.Setitems(AIndex : Integer; const AValue : TSegmentsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -10438,7 +10496,7 @@ end;
-Procedure TSegments.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TSegments.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -10478,7 +10536,7 @@ end;
-Procedure TSegments.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TSegments.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -10488,7 +10546,7 @@ end;
-Procedure TSegments.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TSegments.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -10582,7 +10640,7 @@ end;
-Procedure TUnsampledReport.SetcloudStorageDownloadDetails(AIndex : Integer; AValue : TUnsampledReportTypecloudStorageDownloadDetails);
+Procedure TUnsampledReport.SetcloudStorageDownloadDetails(AIndex : Integer; const AValue : TUnsampledReportTypecloudStorageDownloadDetails);
begin
If (FcloudStorageDownloadDetails=AValue) then exit;
@@ -10592,7 +10650,7 @@ end;
-Procedure TUnsampledReport.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TUnsampledReport.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -10622,7 +10680,7 @@ end;
-Procedure TUnsampledReport.SetdriveDownloadDetails(AIndex : Integer; AValue : TUnsampledReportTypedriveDownloadDetails);
+Procedure TUnsampledReport.SetdriveDownloadDetails(AIndex : Integer; const AValue : TUnsampledReportTypedriveDownloadDetails);
begin
If (FdriveDownloadDetails=AValue) then exit;
@@ -10742,7 +10800,7 @@ end;
-Procedure TUnsampledReport.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TUnsampledReport.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -10781,7 +10839,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUnsampledReports.Setitems(AIndex : Integer; AValue : TUnsampledReportsTypeitemsArray);
+Procedure TUnsampledReports.Setitems(AIndex : Integer; const AValue : TUnsampledReportsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -10791,7 +10849,7 @@ end;
-Procedure TUnsampledReports.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TUnsampledReports.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -10831,7 +10889,7 @@ end;
-Procedure TUnsampledReports.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TUnsampledReports.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -10841,7 +10899,7 @@ end;
-Procedure TUnsampledReports.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TUnsampledReports.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -10901,7 +10959,7 @@ end;
-Procedure TUpload.Seterrors(AIndex : Integer; AValue : TStringArray);
+Procedure TUpload.Seterrors(AIndex : Integer; const AValue : TStringArray);
begin
If (Ferrors=AValue) then exit;
@@ -10961,7 +11019,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUploads.Setitems(AIndex : Integer; AValue : TUploadsTypeitemsArray);
+Procedure TUploads.Setitems(AIndex : Integer; const AValue : TUploadsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -10971,7 +11029,7 @@ end;
-Procedure TUploads.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TUploads.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -11011,7 +11069,7 @@ end;
-Procedure TUploads.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TUploads.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -11021,7 +11079,7 @@ end;
-Procedure TUploads.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TUploads.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -11205,7 +11263,7 @@ end;
-Procedure TWebPropertySummary.Setprofiles(AIndex : Integer; AValue : TWebPropertySummaryTypeprofilesArray);
+Procedure TWebPropertySummary.Setprofiles(AIndex : Integer; const AValue : TWebPropertySummaryTypeprofilesArray);
begin
If (Fprofiles=AValue) then exit;
@@ -11215,6 +11273,16 @@ end;
+Procedure TWebPropertySummary.Setstarred(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fstarred=AValue) then exit;
+ Fstarred:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TWebPropertySummary.SetwebsiteUrl(AIndex : Integer; const AValue : String);
begin
@@ -11245,7 +11313,7 @@ end;
--------------------------------------------------------------------}
-Procedure TWebproperties.Setitems(AIndex : Integer; AValue : TWebpropertiesTypeitemsArray);
+Procedure TWebproperties.Setitems(AIndex : Integer; const AValue : TWebpropertiesTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -11255,7 +11323,7 @@ end;
-Procedure TWebproperties.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TWebproperties.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -11295,7 +11363,7 @@ end;
-Procedure TWebproperties.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TWebproperties.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -11305,7 +11373,7 @@ end;
-Procedure TWebproperties.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TWebproperties.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -11421,7 +11489,7 @@ end;
--------------------------------------------------------------------}
-Procedure TWebpropertyTypepermissions.Seteffective(AIndex : Integer; AValue : TStringArray);
+Procedure TWebpropertyTypepermissions.Seteffective(AIndex : Integer; const AValue : TStringArray);
begin
If (Feffective=AValue) then exit;
@@ -11461,7 +11529,7 @@ end;
-Procedure TWebproperty.SetchildLink(AIndex : Integer; AValue : TWebpropertyTypechildLink);
+Procedure TWebproperty.SetchildLink(AIndex : Integer; const AValue : TWebpropertyTypechildLink);
begin
If (FchildLink=AValue) then exit;
@@ -11471,7 +11539,7 @@ end;
-Procedure TWebproperty.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TWebproperty.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -11551,7 +11619,7 @@ end;
-Procedure TWebproperty.SetparentLink(AIndex : Integer; AValue : TWebpropertyTypeparentLink);
+Procedure TWebproperty.SetparentLink(AIndex : Integer; const AValue : TWebpropertyTypeparentLink);
begin
If (FparentLink=AValue) then exit;
@@ -11561,7 +11629,7 @@ end;
-Procedure TWebproperty.Setpermissions(AIndex : Integer; AValue : TWebpropertyTypepermissions);
+Procedure TWebproperty.Setpermissions(AIndex : Integer; const AValue : TWebpropertyTypepermissions);
begin
If (Fpermissions=AValue) then exit;
@@ -11571,7 +11639,7 @@ end;
-Procedure TWebproperty.SetprofileCount(AIndex : Integer; AValue : integer);
+Procedure TWebproperty.SetprofileCount(AIndex : Integer; const AValue : integer);
begin
If (FprofileCount=AValue) then exit;
@@ -11591,7 +11659,17 @@ end;
-Procedure TWebproperty.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TWebproperty.Setstarred(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fstarred=AValue) then exit;
+ Fstarred:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TWebproperty.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -11653,6 +11731,7 @@ begin
AddToQuery(_Q,'end-date',AQuery.enddate);
AddToQuery(_Q,'filters',AQuery.filters);
AddToQuery(_Q,'ids',AQuery.ids);
+ AddToQuery(_Q,'include-empty-rows',AQuery.includeemptyrows);
AddToQuery(_Q,'max-results',AQuery.maxresults);
AddToQuery(_Q,'metrics',AQuery.metrics);
AddToQuery(_Q,'output',AQuery.output);
@@ -13089,6 +13168,21 @@ begin
Result:=TanalyticsAPI;
end;
+Procedure TManagementUnsampledReportsResource.Delete(accountId: string; profileId: string; unsampledReportId: string; webPropertyId: string);
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'management/accounts/{accountId}/webproperties/{webPropertyId}/profiles/{profileId}/unsampledReports/{unsampledReportId}';
+ _Methodid = 'analytics.management.unsampledReports.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'profileId',profileId,'unsampledReportId',unsampledReportId,'webPropertyId',webPropertyId]);
+ ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+end;
+
Function TManagementUnsampledReportsResource.Get(accountId: string; profileId: string; unsampledReportId: string; webPropertyId: string) : TUnsampledReport;
Const
@@ -14139,7 +14233,7 @@ end;
Class Function TAnalyticsAPI.APIRevision : String;
begin
- Result:='20150417';
+ Result:='20160401';
end;
Class Function TAnalyticsAPI.APIID : String;
@@ -14157,7 +14251,7 @@ end;
Class Function TAnalyticsAPI.APIDescription : String;
begin
- Result:='View and manage your Google Analytics data';
+ Result:='Views and manages your Google Analytics data.';
end;
Class Function TAnalyticsAPI.APIOwnerDomain : String;
@@ -14193,7 +14287,7 @@ end;
Class Function TAnalyticsAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TAnalyticsAPI.APIbasePath : string;
@@ -14205,7 +14299,7 @@ end;
Class Function TAnalyticsAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/analytics/v3/';
+ Result:='https://www.googleapis.com/analytics/v3/';
end;
Class Function TAnalyticsAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googleanalyticsreporting.pp b/packages/googleapi/src/googleanalyticsreporting.pp
new file mode 100644
index 0000000000..3688eac41e
--- /dev/null
+++ b/packages/googleapi/src/googleanalyticsreporting.pp
@@ -0,0 +1,3021 @@
+unit googleanalyticsreporting;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TPivotHeader = Class;
+ TMetric = Class;
+ TColumnHeader = Class;
+ TDynamicSegment = Class;
+ TMetricHeader = Class;
+ TReport = Class;
+ TSegmentFilterClause = Class;
+ TDimensionFilter = Class;
+ TSegmentDimensionFilter = Class;
+ TReportRequest = Class;
+ TSimpleSegment = Class;
+ TSegmentDefinition = Class;
+ TSegmentMetricFilter = Class;
+ TReportData = Class;
+ TGetReportsRequest = Class;
+ TOrderBy = Class;
+ TCohort = Class;
+ TOrFiltersForSegment = Class;
+ TSequenceSegment = Class;
+ TSegmentFilter = Class;
+ TPivotHeaderEntry = Class;
+ TDimensionFilterClause = Class;
+ TSegmentSequenceStep = Class;
+ TPivot = Class;
+ TDateRangeValues = Class;
+ TMetricFilterClause = Class;
+ TSegment = Class;
+ TDateRange = Class;
+ TReportRow = Class;
+ TCohortGroup = Class;
+ TGetReportsResponse = Class;
+ TMetricHeaderEntry = Class;
+ TMetricFilter = Class;
+ TDimension = Class;
+ TPivotValueRegion = Class;
+ TPivotHeaderArray = Array of TPivotHeader;
+ TMetricArray = Array of TMetric;
+ TColumnHeaderArray = Array of TColumnHeader;
+ TDynamicSegmentArray = Array of TDynamicSegment;
+ TMetricHeaderArray = Array of TMetricHeader;
+ TReportArray = Array of TReport;
+ TSegmentFilterClauseArray = Array of TSegmentFilterClause;
+ TDimensionFilterArray = Array of TDimensionFilter;
+ TSegmentDimensionFilterArray = Array of TSegmentDimensionFilter;
+ TReportRequestArray = Array of TReportRequest;
+ TSimpleSegmentArray = Array of TSimpleSegment;
+ TSegmentDefinitionArray = Array of TSegmentDefinition;
+ TSegmentMetricFilterArray = Array of TSegmentMetricFilter;
+ TReportDataArray = Array of TReportData;
+ TGetReportsRequestArray = Array of TGetReportsRequest;
+ TOrderByArray = Array of TOrderBy;
+ TCohortArray = Array of TCohort;
+ TOrFiltersForSegmentArray = Array of TOrFiltersForSegment;
+ TSequenceSegmentArray = Array of TSequenceSegment;
+ TSegmentFilterArray = Array of TSegmentFilter;
+ TPivotHeaderEntryArray = Array of TPivotHeaderEntry;
+ TDimensionFilterClauseArray = Array of TDimensionFilterClause;
+ TSegmentSequenceStepArray = Array of TSegmentSequenceStep;
+ TPivotArray = Array of TPivot;
+ TDateRangeValuesArray = Array of TDateRangeValues;
+ TMetricFilterClauseArray = Array of TMetricFilterClause;
+ TSegmentArray = Array of TSegment;
+ TDateRangeArray = Array of TDateRange;
+ TReportRowArray = Array of TReportRow;
+ TCohortGroupArray = Array of TCohortGroup;
+ TGetReportsResponseArray = Array of TGetReportsResponse;
+ TMetricHeaderEntryArray = Array of TMetricHeaderEntry;
+ TMetricFilterArray = Array of TMetricFilter;
+ TDimensionArray = Array of TDimension;
+ TPivotValueRegionArray = Array of TPivotValueRegion;
+ //Anonymous types, using auto-generated names
+ TPivotHeaderTypepivotHeaderEntriesArray = Array of TPivotHeaderEntry;
+ TMetricHeaderTypemetricHeaderEntriesArray = Array of TMetricHeaderEntry;
+ TMetricHeaderTypepivotHeadersArray = Array of TPivotHeader;
+ TReportRequestTypedimensionsArray = Array of TDimension;
+ TReportRequestTypemetricFilterClausesArray = Array of TMetricFilterClause;
+ TReportRequestTypedimensionFilterClausesArray = Array of TDimensionFilterClause;
+ TReportRequestTypepivotsArray = Array of TPivot;
+ TReportRequestTypedateRangesArray = Array of TDateRange;
+ TReportRequestTypesegmentsArray = Array of TSegment;
+ TReportRequestTypemetricsArray = Array of TMetric;
+ TReportRequestTypeorderBysArray = Array of TOrderBy;
+ TSimpleSegmentTypeorFiltersForSegmentArray = Array of TOrFiltersForSegment;
+ TSegmentDefinitionTypesegmentFiltersArray = Array of TSegmentFilter;
+ TReportDataTypemaximumsArray = Array of TDateRangeValues;
+ TReportDataTypeminimumsArray = Array of TDateRangeValues;
+ TReportDataTyperowsArray = Array of TReportRow;
+ TReportDataTypetotalsArray = Array of TDateRangeValues;
+ TGetReportsRequestTypereportRequestsArray = Array of TReportRequest;
+ TOrFiltersForSegmentTypesegmentFilterClausesArray = Array of TSegmentFilterClause;
+ TSequenceSegmentTypesegmentSequenceStepsArray = Array of TSegmentSequenceStep;
+ TDimensionFilterClauseTypefiltersArray = Array of TDimensionFilter;
+ TSegmentSequenceStepTypeorFiltersForSegmentArray = Array of TOrFiltersForSegment;
+ TPivotTypedimensionsArray = Array of TDimension;
+ TPivotTypemetricsArray = Array of TMetric;
+ TPivotTypedimensionFilterClausesArray = Array of TDimensionFilterClause;
+ TDateRangeValuesTypepivotValueRegionsArray = Array of TPivotValueRegion;
+ TMetricFilterClauseTypefiltersArray = Array of TMetricFilter;
+ TReportRowTypemetricsArray = Array of TDateRangeValues;
+ TCohortGroupTypecohortsArray = Array of TCohort;
+ TGetReportsResponseTypereportsArray = Array of TReport;
+
+ { --------------------------------------------------------------------
+ TPivotHeader
+ --------------------------------------------------------------------}
+
+ TPivotHeader = Class(TGoogleBaseObject)
+ Private
+ FtotalPivotGroupsCount : integer;
+ FpivotHeaderEntries : TPivotHeaderTypepivotHeaderEntriesArray;
+ Protected
+ //Property setters
+ Procedure SettotalPivotGroupsCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetpivotHeaderEntries(AIndex : Integer; const AValue : TPivotHeaderTypepivotHeaderEntriesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property totalPivotGroupsCount : integer Index 0 Read FtotalPivotGroupsCount Write SettotalPivotGroupsCount;
+ Property pivotHeaderEntries : TPivotHeaderTypepivotHeaderEntriesArray Index 8 Read FpivotHeaderEntries Write SetpivotHeaderEntries;
+ end;
+ TPivotHeaderClass = Class of TPivotHeader;
+
+ { --------------------------------------------------------------------
+ TMetric
+ --------------------------------------------------------------------}
+
+ TMetric = Class(TGoogleBaseObject)
+ Private
+ Falias : String;
+ FformattingType : String;
+ Fexpression : String;
+ Protected
+ //Property setters
+ Procedure Setalias(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattingType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setexpression(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property alias : String Index 0 Read Falias Write Setalias;
+ Property formattingType : String Index 8 Read FformattingType Write SetformattingType;
+ Property expression : String Index 16 Read Fexpression Write Setexpression;
+ end;
+ TMetricClass = Class of TMetric;
+
+ { --------------------------------------------------------------------
+ TColumnHeader
+ --------------------------------------------------------------------}
+
+ TColumnHeader = Class(TGoogleBaseObject)
+ Private
+ Fdimensions : TStringArray;
+ FmetricHeader : TMetricHeader;
+ Protected
+ //Property setters
+ Procedure Setdimensions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetmetricHeader(AIndex : Integer; const AValue : TMetricHeader); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property dimensions : TStringArray Index 0 Read Fdimensions Write Setdimensions;
+ Property metricHeader : TMetricHeader Index 8 Read FmetricHeader Write SetmetricHeader;
+ end;
+ TColumnHeaderClass = Class of TColumnHeader;
+
+ { --------------------------------------------------------------------
+ TDynamicSegment
+ --------------------------------------------------------------------}
+
+ TDynamicSegment = Class(TGoogleBaseObject)
+ Private
+ FsessionSegment : TSegmentDefinition;
+ Fname : String;
+ FuserSegment : TSegmentDefinition;
+ Protected
+ //Property setters
+ Procedure SetsessionSegment(AIndex : Integer; const AValue : TSegmentDefinition); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserSegment(AIndex : Integer; const AValue : TSegmentDefinition); virtual;
+ Public
+ Published
+ Property sessionSegment : TSegmentDefinition Index 0 Read FsessionSegment Write SetsessionSegment;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property userSegment : TSegmentDefinition Index 16 Read FuserSegment Write SetuserSegment;
+ end;
+ TDynamicSegmentClass = Class of TDynamicSegment;
+
+ { --------------------------------------------------------------------
+ TMetricHeader
+ --------------------------------------------------------------------}
+
+ TMetricHeader = Class(TGoogleBaseObject)
+ Private
+ FmetricHeaderEntries : TMetricHeaderTypemetricHeaderEntriesArray;
+ FpivotHeaders : TMetricHeaderTypepivotHeadersArray;
+ Protected
+ //Property setters
+ Procedure SetmetricHeaderEntries(AIndex : Integer; const AValue : TMetricHeaderTypemetricHeaderEntriesArray); virtual;
+ Procedure SetpivotHeaders(AIndex : Integer; const AValue : TMetricHeaderTypepivotHeadersArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property metricHeaderEntries : TMetricHeaderTypemetricHeaderEntriesArray Index 0 Read FmetricHeaderEntries Write SetmetricHeaderEntries;
+ Property pivotHeaders : TMetricHeaderTypepivotHeadersArray Index 8 Read FpivotHeaders Write SetpivotHeaders;
+ end;
+ TMetricHeaderClass = Class of TMetricHeader;
+
+ { --------------------------------------------------------------------
+ TReport
+ --------------------------------------------------------------------}
+
+ TReport = Class(TGoogleBaseObject)
+ Private
+ FcolumnHeader : TColumnHeader;
+ Fdata : TReportData;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetcolumnHeader(AIndex : Integer; const AValue : TColumnHeader); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TReportData); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property columnHeader : TColumnHeader Index 0 Read FcolumnHeader Write SetcolumnHeader;
+ Property data : TReportData Index 8 Read Fdata Write Setdata;
+ Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TReportClass = Class of TReport;
+
+ { --------------------------------------------------------------------
+ TSegmentFilterClause
+ --------------------------------------------------------------------}
+
+ TSegmentFilterClause = Class(TGoogleBaseObject)
+ Private
+ FdimensionFilter : TSegmentDimensionFilter;
+ FmetricFilter : TSegmentMetricFilter;
+ F_not : boolean;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetdimensionFilter(AIndex : Integer; const AValue : TSegmentDimensionFilter); virtual;
+ Procedure SetmetricFilter(AIndex : Integer; const AValue : TSegmentMetricFilter); virtual;
+ Procedure Set_not(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property dimensionFilter : TSegmentDimensionFilter Index 0 Read FdimensionFilter Write SetdimensionFilter;
+ Property metricFilter : TSegmentMetricFilter Index 8 Read FmetricFilter Write SetmetricFilter;
+ Property _not : boolean Index 16 Read F_not Write Set_not;
+ end;
+ TSegmentFilterClauseClass = Class of TSegmentFilterClause;
+
+ { --------------------------------------------------------------------
+ TDimensionFilter
+ --------------------------------------------------------------------}
+
+ TDimensionFilter = Class(TGoogleBaseObject)
+ Private
+ FdimensionName : String;
+ F_operator : String;
+ FcaseSensitive : boolean;
+ Fexpressions : TStringArray;
+ F_not : boolean;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetdimensionName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcaseSensitive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setexpressions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Set_not(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 dimensionName : String Index 0 Read FdimensionName Write SetdimensionName;
+ Property _operator : String Index 8 Read F_operator Write Set_operator;
+ Property caseSensitive : boolean Index 16 Read FcaseSensitive Write SetcaseSensitive;
+ Property expressions : TStringArray Index 24 Read Fexpressions Write Setexpressions;
+ Property _not : boolean Index 32 Read F_not Write Set_not;
+ end;
+ TDimensionFilterClass = Class of TDimensionFilter;
+
+ { --------------------------------------------------------------------
+ TSegmentDimensionFilter
+ --------------------------------------------------------------------}
+
+ TSegmentDimensionFilter = Class(TGoogleBaseObject)
+ Private
+ FmaxComparisonValue : String;
+ FdimensionName : String;
+ FcaseSensitive : boolean;
+ F_operator : String;
+ Fexpressions : TStringArray;
+ FminComparisonValue : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetmaxComparisonValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdimensionName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcaseSensitive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setexpressions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetminComparisonValue(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 maxComparisonValue : String Index 0 Read FmaxComparisonValue Write SetmaxComparisonValue;
+ Property dimensionName : String Index 8 Read FdimensionName Write SetdimensionName;
+ Property caseSensitive : boolean Index 16 Read FcaseSensitive Write SetcaseSensitive;
+ Property _operator : String Index 24 Read F_operator Write Set_operator;
+ Property expressions : TStringArray Index 32 Read Fexpressions Write Setexpressions;
+ Property minComparisonValue : String Index 40 Read FminComparisonValue Write SetminComparisonValue;
+ end;
+ TSegmentDimensionFilterClass = Class of TSegmentDimensionFilter;
+
+ { --------------------------------------------------------------------
+ TReportRequest
+ --------------------------------------------------------------------}
+
+ TReportRequest = Class(TGoogleBaseObject)
+ Private
+ FcohortGroup : TCohortGroup;
+ Fdimensions : TReportRequestTypedimensionsArray;
+ FmetricFilterClauses : TReportRequestTypemetricFilterClausesArray;
+ FhideTotals : boolean;
+ FincludeEmptyRows : boolean;
+ FdimensionFilterClauses : TReportRequestTypedimensionFilterClausesArray;
+ Fpivots : TReportRequestTypepivotsArray;
+ FdateRanges : TReportRequestTypedateRangesArray;
+ Fsegments : TReportRequestTypesegmentsArray;
+ FsamplingLevel : String;
+ Fmetrics : TReportRequestTypemetricsArray;
+ FpageSize : integer;
+ ForderBys : TReportRequestTypeorderBysArray;
+ FfiltersExpression : String;
+ FhideValueRanges : boolean;
+ FviewId : String;
+ FpageToken : String;
+ Protected
+ //Property setters
+ Procedure SetcohortGroup(AIndex : Integer; const AValue : TCohortGroup); virtual;
+ Procedure Setdimensions(AIndex : Integer; const AValue : TReportRequestTypedimensionsArray); virtual;
+ Procedure SetmetricFilterClauses(AIndex : Integer; const AValue : TReportRequestTypemetricFilterClausesArray); virtual;
+ Procedure SethideTotals(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetincludeEmptyRows(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdimensionFilterClauses(AIndex : Integer; const AValue : TReportRequestTypedimensionFilterClausesArray); virtual;
+ Procedure Setpivots(AIndex : Integer; const AValue : TReportRequestTypepivotsArray); virtual;
+ Procedure SetdateRanges(AIndex : Integer; const AValue : TReportRequestTypedateRangesArray); virtual;
+ Procedure Setsegments(AIndex : Integer; const AValue : TReportRequestTypesegmentsArray); virtual;
+ Procedure SetsamplingLevel(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TReportRequestTypemetricsArray); virtual;
+ Procedure SetpageSize(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetorderBys(AIndex : Integer; const AValue : TReportRequestTypeorderBysArray); virtual;
+ Procedure SetfiltersExpression(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethideValueRanges(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetviewId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageToken(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 cohortGroup : TCohortGroup Index 0 Read FcohortGroup Write SetcohortGroup;
+ Property dimensions : TReportRequestTypedimensionsArray Index 8 Read Fdimensions Write Setdimensions;
+ Property metricFilterClauses : TReportRequestTypemetricFilterClausesArray Index 16 Read FmetricFilterClauses Write SetmetricFilterClauses;
+ Property hideTotals : boolean Index 24 Read FhideTotals Write SethideTotals;
+ Property includeEmptyRows : boolean Index 32 Read FincludeEmptyRows Write SetincludeEmptyRows;
+ Property dimensionFilterClauses : TReportRequestTypedimensionFilterClausesArray Index 40 Read FdimensionFilterClauses Write SetdimensionFilterClauses;
+ Property pivots : TReportRequestTypepivotsArray Index 48 Read Fpivots Write Setpivots;
+ Property dateRanges : TReportRequestTypedateRangesArray Index 56 Read FdateRanges Write SetdateRanges;
+ Property segments : TReportRequestTypesegmentsArray Index 64 Read Fsegments Write Setsegments;
+ Property samplingLevel : String Index 72 Read FsamplingLevel Write SetsamplingLevel;
+ Property metrics : TReportRequestTypemetricsArray Index 80 Read Fmetrics Write Setmetrics;
+ Property pageSize : integer Index 88 Read FpageSize Write SetpageSize;
+ Property orderBys : TReportRequestTypeorderBysArray Index 96 Read ForderBys Write SetorderBys;
+ Property filtersExpression : String Index 104 Read FfiltersExpression Write SetfiltersExpression;
+ Property hideValueRanges : boolean Index 112 Read FhideValueRanges Write SethideValueRanges;
+ Property viewId : String Index 120 Read FviewId Write SetviewId;
+ Property pageToken : String Index 128 Read FpageToken Write SetpageToken;
+ end;
+ TReportRequestClass = Class of TReportRequest;
+
+ { --------------------------------------------------------------------
+ TSimpleSegment
+ --------------------------------------------------------------------}
+
+ TSimpleSegment = Class(TGoogleBaseObject)
+ Private
+ ForFiltersForSegment : TSimpleSegmentTypeorFiltersForSegmentArray;
+ Protected
+ //Property setters
+ Procedure SetorFiltersForSegment(AIndex : Integer; const AValue : TSimpleSegmentTypeorFiltersForSegmentArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property orFiltersForSegment : TSimpleSegmentTypeorFiltersForSegmentArray Index 0 Read ForFiltersForSegment Write SetorFiltersForSegment;
+ end;
+ TSimpleSegmentClass = Class of TSimpleSegment;
+
+ { --------------------------------------------------------------------
+ TSegmentDefinition
+ --------------------------------------------------------------------}
+
+ TSegmentDefinition = Class(TGoogleBaseObject)
+ Private
+ FsegmentFilters : TSegmentDefinitionTypesegmentFiltersArray;
+ Protected
+ //Property setters
+ Procedure SetsegmentFilters(AIndex : Integer; const AValue : TSegmentDefinitionTypesegmentFiltersArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property segmentFilters : TSegmentDefinitionTypesegmentFiltersArray Index 0 Read FsegmentFilters Write SetsegmentFilters;
+ end;
+ TSegmentDefinitionClass = Class of TSegmentDefinition;
+
+ { --------------------------------------------------------------------
+ TSegmentMetricFilter
+ --------------------------------------------------------------------}
+
+ TSegmentMetricFilter = Class(TGoogleBaseObject)
+ Private
+ FmetricName : String;
+ F_operator : String;
+ FcomparisonValue : String;
+ Fscope : String;
+ FmaxComparisonValue : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetmetricName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcomparisonValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setscope(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmaxComparisonValue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metricName : String Index 0 Read FmetricName Write SetmetricName;
+ Property _operator : String Index 8 Read F_operator Write Set_operator;
+ Property comparisonValue : String Index 16 Read FcomparisonValue Write SetcomparisonValue;
+ Property scope : String Index 24 Read Fscope Write Setscope;
+ Property maxComparisonValue : String Index 32 Read FmaxComparisonValue Write SetmaxComparisonValue;
+ end;
+ TSegmentMetricFilterClass = Class of TSegmentMetricFilter;
+
+ { --------------------------------------------------------------------
+ TReportData
+ --------------------------------------------------------------------}
+
+ TReportData = Class(TGoogleBaseObject)
+ Private
+ FrowCount : integer;
+ FsamplingSpaceSizes : TStringArray;
+ Fmaximums : TReportDataTypemaximumsArray;
+ FsamplesReadCounts : TStringArray;
+ Fminimums : TReportDataTypeminimumsArray;
+ Frows : TReportDataTyperowsArray;
+ Ftotals : TReportDataTypetotalsArray;
+ FisDataGolden : boolean;
+ Protected
+ //Property setters
+ Procedure SetrowCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetsamplingSpaceSizes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setmaximums(AIndex : Integer; const AValue : TReportDataTypemaximumsArray); virtual;
+ Procedure SetsamplesReadCounts(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setminimums(AIndex : Integer; const AValue : TReportDataTypeminimumsArray); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TReportDataTyperowsArray); virtual;
+ Procedure Settotals(AIndex : Integer; const AValue : TReportDataTypetotalsArray); virtual;
+ Procedure SetisDataGolden(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 rowCount : integer Index 0 Read FrowCount Write SetrowCount;
+ Property samplingSpaceSizes : TStringArray Index 8 Read FsamplingSpaceSizes Write SetsamplingSpaceSizes;
+ Property maximums : TReportDataTypemaximumsArray Index 16 Read Fmaximums Write Setmaximums;
+ Property samplesReadCounts : TStringArray Index 24 Read FsamplesReadCounts Write SetsamplesReadCounts;
+ Property minimums : TReportDataTypeminimumsArray Index 32 Read Fminimums Write Setminimums;
+ Property rows : TReportDataTyperowsArray Index 40 Read Frows Write Setrows;
+ Property totals : TReportDataTypetotalsArray Index 48 Read Ftotals Write Settotals;
+ Property isDataGolden : boolean Index 56 Read FisDataGolden Write SetisDataGolden;
+ end;
+ TReportDataClass = Class of TReportData;
+
+ { --------------------------------------------------------------------
+ TGetReportsRequest
+ --------------------------------------------------------------------}
+
+ TGetReportsRequest = Class(TGoogleBaseObject)
+ Private
+ FreportRequests : TGetReportsRequestTypereportRequestsArray;
+ Protected
+ //Property setters
+ Procedure SetreportRequests(AIndex : Integer; const AValue : TGetReportsRequestTypereportRequestsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property reportRequests : TGetReportsRequestTypereportRequestsArray Index 0 Read FreportRequests Write SetreportRequests;
+ end;
+ TGetReportsRequestClass = Class of TGetReportsRequest;
+
+ { --------------------------------------------------------------------
+ TOrderBy
+ --------------------------------------------------------------------}
+
+ TOrderBy = Class(TGoogleBaseObject)
+ Private
+ FsortOrder : String;
+ ForderType : String;
+ FfieldName : String;
+ Protected
+ //Property setters
+ Procedure SetsortOrder(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetorderType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfieldName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property sortOrder : String Index 0 Read FsortOrder Write SetsortOrder;
+ Property orderType : String Index 8 Read ForderType Write SetorderType;
+ Property fieldName : String Index 16 Read FfieldName Write SetfieldName;
+ end;
+ TOrderByClass = Class of TOrderBy;
+
+ { --------------------------------------------------------------------
+ TCohort
+ --------------------------------------------------------------------}
+
+ TCohort = Class(TGoogleBaseObject)
+ Private
+ F_type : String;
+ FdateRange : TDateRange;
+ Fname : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdateRange(AIndex : Integer; const AValue : TDateRange); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property _type : String Index 0 Read F_type Write Set_type;
+ Property dateRange : TDateRange Index 8 Read FdateRange Write SetdateRange;
+ Property name : String Index 16 Read Fname Write Setname;
+ end;
+ TCohortClass = Class of TCohort;
+
+ { --------------------------------------------------------------------
+ TOrFiltersForSegment
+ --------------------------------------------------------------------}
+
+ TOrFiltersForSegment = Class(TGoogleBaseObject)
+ Private
+ FsegmentFilterClauses : TOrFiltersForSegmentTypesegmentFilterClausesArray;
+ Protected
+ //Property setters
+ Procedure SetsegmentFilterClauses(AIndex : Integer; const AValue : TOrFiltersForSegmentTypesegmentFilterClausesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property segmentFilterClauses : TOrFiltersForSegmentTypesegmentFilterClausesArray Index 0 Read FsegmentFilterClauses Write SetsegmentFilterClauses;
+ end;
+ TOrFiltersForSegmentClass = Class of TOrFiltersForSegment;
+
+ { --------------------------------------------------------------------
+ TSequenceSegment
+ --------------------------------------------------------------------}
+
+ TSequenceSegment = Class(TGoogleBaseObject)
+ Private
+ FfirstStepShouldMatchFirstHit : boolean;
+ FsegmentSequenceSteps : TSequenceSegmentTypesegmentSequenceStepsArray;
+ Protected
+ //Property setters
+ Procedure SetfirstStepShouldMatchFirstHit(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsegmentSequenceSteps(AIndex : Integer; const AValue : TSequenceSegmentTypesegmentSequenceStepsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property firstStepShouldMatchFirstHit : boolean Index 0 Read FfirstStepShouldMatchFirstHit Write SetfirstStepShouldMatchFirstHit;
+ Property segmentSequenceSteps : TSequenceSegmentTypesegmentSequenceStepsArray Index 8 Read FsegmentSequenceSteps Write SetsegmentSequenceSteps;
+ end;
+ TSequenceSegmentClass = Class of TSequenceSegment;
+
+ { --------------------------------------------------------------------
+ TSegmentFilter
+ --------------------------------------------------------------------}
+
+ TSegmentFilter = Class(TGoogleBaseObject)
+ Private
+ FsequenceSegment : TSequenceSegment;
+ F_not : boolean;
+ FsimpleSegment : TSimpleSegment;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetsequenceSegment(AIndex : Integer; const AValue : TSequenceSegment); virtual;
+ Procedure Set_not(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsimpleSegment(AIndex : Integer; const AValue : TSimpleSegment); virtual;
+ Public
+ Published
+ Property sequenceSegment : TSequenceSegment Index 0 Read FsequenceSegment Write SetsequenceSegment;
+ Property _not : boolean Index 8 Read F_not Write Set_not;
+ Property simpleSegment : TSimpleSegment Index 16 Read FsimpleSegment Write SetsimpleSegment;
+ end;
+ TSegmentFilterClass = Class of TSegmentFilter;
+
+ { --------------------------------------------------------------------
+ TPivotHeaderEntry
+ --------------------------------------------------------------------}
+
+ TPivotHeaderEntry = Class(TGoogleBaseObject)
+ Private
+ FdimensionNames : TStringArray;
+ FdimensionValues : TStringArray;
+ Fmetric : TMetricHeaderEntry;
+ Protected
+ //Property setters
+ Procedure SetdimensionNames(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetdimensionValues(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setmetric(AIndex : Integer; const AValue : TMetricHeaderEntry); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property dimensionNames : TStringArray Index 0 Read FdimensionNames Write SetdimensionNames;
+ Property dimensionValues : TStringArray Index 8 Read FdimensionValues Write SetdimensionValues;
+ Property metric : TMetricHeaderEntry Index 16 Read Fmetric Write Setmetric;
+ end;
+ TPivotHeaderEntryClass = Class of TPivotHeaderEntry;
+
+ { --------------------------------------------------------------------
+ TDimensionFilterClause
+ --------------------------------------------------------------------}
+
+ TDimensionFilterClause = Class(TGoogleBaseObject)
+ Private
+ F_operator : String;
+ Ffilters : TDimensionFilterClauseTypefiltersArray;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfilters(AIndex : Integer; const AValue : TDimensionFilterClauseTypefiltersArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property _operator : String Index 0 Read F_operator Write Set_operator;
+ Property filters : TDimensionFilterClauseTypefiltersArray Index 8 Read Ffilters Write Setfilters;
+ end;
+ TDimensionFilterClauseClass = Class of TDimensionFilterClause;
+
+ { --------------------------------------------------------------------
+ TSegmentSequenceStep
+ --------------------------------------------------------------------}
+
+ TSegmentSequenceStep = Class(TGoogleBaseObject)
+ Private
+ FmatchType : String;
+ ForFiltersForSegment : TSegmentSequenceStepTypeorFiltersForSegmentArray;
+ Protected
+ //Property setters
+ Procedure SetmatchType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetorFiltersForSegment(AIndex : Integer; const AValue : TSegmentSequenceStepTypeorFiltersForSegmentArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property matchType : String Index 0 Read FmatchType Write SetmatchType;
+ Property orFiltersForSegment : TSegmentSequenceStepTypeorFiltersForSegmentArray Index 8 Read ForFiltersForSegment Write SetorFiltersForSegment;
+ end;
+ TSegmentSequenceStepClass = Class of TSegmentSequenceStep;
+
+ { --------------------------------------------------------------------
+ TPivot
+ --------------------------------------------------------------------}
+
+ TPivot = Class(TGoogleBaseObject)
+ Private
+ Fdimensions : TPivotTypedimensionsArray;
+ Fmetrics : TPivotTypemetricsArray;
+ FmaxGroupCount : integer;
+ FdimensionFilterClauses : TPivotTypedimensionFilterClausesArray;
+ FstartGroup : integer;
+ Protected
+ //Property setters
+ Procedure Setdimensions(AIndex : Integer; const AValue : TPivotTypedimensionsArray); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TPivotTypemetricsArray); virtual;
+ Procedure SetmaxGroupCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetdimensionFilterClauses(AIndex : Integer; const AValue : TPivotTypedimensionFilterClausesArray); virtual;
+ Procedure SetstartGroup(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 dimensions : TPivotTypedimensionsArray Index 0 Read Fdimensions Write Setdimensions;
+ Property metrics : TPivotTypemetricsArray Index 8 Read Fmetrics Write Setmetrics;
+ Property maxGroupCount : integer Index 16 Read FmaxGroupCount Write SetmaxGroupCount;
+ Property dimensionFilterClauses : TPivotTypedimensionFilterClausesArray Index 24 Read FdimensionFilterClauses Write SetdimensionFilterClauses;
+ Property startGroup : integer Index 32 Read FstartGroup Write SetstartGroup;
+ end;
+ TPivotClass = Class of TPivot;
+
+ { --------------------------------------------------------------------
+ TDateRangeValues
+ --------------------------------------------------------------------}
+
+ TDateRangeValues = Class(TGoogleBaseObject)
+ Private
+ Fvalues : TStringArray;
+ FpivotValueRegions : TDateRangeValuesTypepivotValueRegionsArray;
+ Protected
+ //Property setters
+ Procedure Setvalues(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetpivotValueRegions(AIndex : Integer; const AValue : TDateRangeValuesTypepivotValueRegionsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property values : TStringArray Index 0 Read Fvalues Write Setvalues;
+ Property pivotValueRegions : TDateRangeValuesTypepivotValueRegionsArray Index 8 Read FpivotValueRegions Write SetpivotValueRegions;
+ end;
+ TDateRangeValuesClass = Class of TDateRangeValues;
+
+ { --------------------------------------------------------------------
+ TMetricFilterClause
+ --------------------------------------------------------------------}
+
+ TMetricFilterClause = Class(TGoogleBaseObject)
+ Private
+ F_operator : String;
+ Ffilters : TMetricFilterClauseTypefiltersArray;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfilters(AIndex : Integer; const AValue : TMetricFilterClauseTypefiltersArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property _operator : String Index 0 Read F_operator Write Set_operator;
+ Property filters : TMetricFilterClauseTypefiltersArray Index 8 Read Ffilters Write Setfilters;
+ end;
+ TMetricFilterClauseClass = Class of TMetricFilterClause;
+
+ { --------------------------------------------------------------------
+ TSegment
+ --------------------------------------------------------------------}
+
+ TSegment = Class(TGoogleBaseObject)
+ Private
+ FdynamicSegment : TDynamicSegment;
+ FsegmentId : String;
+ Protected
+ //Property setters
+ Procedure SetdynamicSegment(AIndex : Integer; const AValue : TDynamicSegment); virtual;
+ Procedure SetsegmentId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property dynamicSegment : TDynamicSegment Index 0 Read FdynamicSegment Write SetdynamicSegment;
+ Property segmentId : String Index 8 Read FsegmentId Write SetsegmentId;
+ end;
+ TSegmentClass = Class of TSegment;
+
+ { --------------------------------------------------------------------
+ TDateRange
+ --------------------------------------------------------------------}
+
+ TDateRange = Class(TGoogleBaseObject)
+ Private
+ FstartDate : String;
+ FendDate : String;
+ Protected
+ //Property setters
+ Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property startDate : String Index 0 Read FstartDate Write SetstartDate;
+ Property endDate : String Index 8 Read FendDate Write SetendDate;
+ end;
+ TDateRangeClass = Class of TDateRange;
+
+ { --------------------------------------------------------------------
+ TReportRow
+ --------------------------------------------------------------------}
+
+ TReportRow = Class(TGoogleBaseObject)
+ Private
+ Fdimensions : TStringArray;
+ Fmetrics : TReportRowTypemetricsArray;
+ Protected
+ //Property setters
+ Procedure Setdimensions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TReportRowTypemetricsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property dimensions : TStringArray Index 0 Read Fdimensions Write Setdimensions;
+ Property metrics : TReportRowTypemetricsArray Index 8 Read Fmetrics Write Setmetrics;
+ end;
+ TReportRowClass = Class of TReportRow;
+
+ { --------------------------------------------------------------------
+ TCohortGroup
+ --------------------------------------------------------------------}
+
+ TCohortGroup = Class(TGoogleBaseObject)
+ Private
+ FlifetimeValue : boolean;
+ Fcohorts : TCohortGroupTypecohortsArray;
+ Protected
+ //Property setters
+ Procedure SetlifetimeValue(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setcohorts(AIndex : Integer; const AValue : TCohortGroupTypecohortsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property lifetimeValue : boolean Index 0 Read FlifetimeValue Write SetlifetimeValue;
+ Property cohorts : TCohortGroupTypecohortsArray Index 8 Read Fcohorts Write Setcohorts;
+ end;
+ TCohortGroupClass = Class of TCohortGroup;
+
+ { --------------------------------------------------------------------
+ TGetReportsResponse
+ --------------------------------------------------------------------}
+
+ TGetReportsResponse = Class(TGoogleBaseObject)
+ Private
+ Freports : TGetReportsResponseTypereportsArray;
+ Protected
+ //Property setters
+ Procedure Setreports(AIndex : Integer; const AValue : TGetReportsResponseTypereportsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property reports : TGetReportsResponseTypereportsArray Index 0 Read Freports Write Setreports;
+ end;
+ TGetReportsResponseClass = Class of TGetReportsResponse;
+
+ { --------------------------------------------------------------------
+ TMetricHeaderEntry
+ --------------------------------------------------------------------}
+
+ TMetricHeaderEntry = Class(TGoogleBaseObject)
+ Private
+ F_type : String;
+ Fname : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property _type : String Index 0 Read F_type Write Set_type;
+ Property name : String Index 8 Read Fname Write Setname;
+ end;
+ TMetricHeaderEntryClass = Class of TMetricHeaderEntry;
+
+ { --------------------------------------------------------------------
+ TMetricFilter
+ --------------------------------------------------------------------}
+
+ TMetricFilter = Class(TGoogleBaseObject)
+ Private
+ FmetricName : String;
+ F_operator : String;
+ FcomparisonValue : String;
+ F_not : boolean;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetmetricName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcomparisonValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_not(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property metricName : String Index 0 Read FmetricName Write SetmetricName;
+ Property _operator : String Index 8 Read F_operator Write Set_operator;
+ Property comparisonValue : String Index 16 Read FcomparisonValue Write SetcomparisonValue;
+ Property _not : boolean Index 24 Read F_not Write Set_not;
+ end;
+ TMetricFilterClass = Class of TMetricFilter;
+
+ { --------------------------------------------------------------------
+ TDimension
+ --------------------------------------------------------------------}
+
+ TDimension = Class(TGoogleBaseObject)
+ Private
+ FhistogramBuckets : TStringArray;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure SethistogramBuckets(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setname(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 histogramBuckets : TStringArray Index 0 Read FhistogramBuckets Write SethistogramBuckets;
+ Property name : String Index 8 Read Fname Write Setname;
+ end;
+ TDimensionClass = Class of TDimension;
+
+ { --------------------------------------------------------------------
+ TPivotValueRegion
+ --------------------------------------------------------------------}
+
+ TPivotValueRegion = Class(TGoogleBaseObject)
+ Private
+ Fvalues : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setvalues(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 values : TStringArray Index 0 Read Fvalues Write Setvalues;
+ end;
+ TPivotValueRegionClass = Class of TPivotValueRegion;
+
+ { --------------------------------------------------------------------
+ TReportsResource
+ --------------------------------------------------------------------}
+
+ TReportsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function BatchGet(aGetReportsRequest : TGetReportsRequest) : TGetReportsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAnalyticsreportingAPI
+ --------------------------------------------------------------------}
+
+ TAnalyticsreportingAPI = Class(TGoogleAPI)
+ Private
+ FReportsInstance : TReportsResource;
+ Function GetReportsInstance : TReportsResource;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 CreateReportsResource(AOwner : TComponent) : TReportsResource;virtual;overload;
+ Function CreateReportsResource : TReportsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ReportsResource : TReportsResource Read GetReportsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TPivotHeader
+ --------------------------------------------------------------------}
+
+
+Procedure TPivotHeader.SettotalPivotGroupsCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalPivotGroupsCount=AValue) then exit;
+ FtotalPivotGroupsCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotHeader.SetpivotHeaderEntries(AIndex : Integer; const AValue : TPivotHeaderTypepivotHeaderEntriesArray);
+
+begin
+ If (FpivotHeaderEntries=AValue) then exit;
+ FpivotHeaderEntries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPivotHeader.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'pivotheaderentries' : SetLength(FpivotHeaderEntries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMetric
+ --------------------------------------------------------------------}
+
+
+Procedure TMetric.Setalias(AIndex : Integer; const AValue : String);
+
+begin
+ If (Falias=AValue) then exit;
+ Falias:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetric.SetformattingType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattingType=AValue) then exit;
+ FformattingType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetric.Setexpression(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fexpression=AValue) then exit;
+ Fexpression:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TColumnHeader
+ --------------------------------------------------------------------}
+
+
+Procedure TColumnHeader.Setdimensions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fdimensions=AValue) then exit;
+ Fdimensions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TColumnHeader.SetmetricHeader(AIndex : Integer; const AValue : TMetricHeader);
+
+begin
+ If (FmetricHeader=AValue) then exit;
+ FmetricHeader:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TColumnHeader.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dimensions' : SetLength(Fdimensions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDynamicSegment
+ --------------------------------------------------------------------}
+
+
+Procedure TDynamicSegment.SetsessionSegment(AIndex : Integer; const AValue : TSegmentDefinition);
+
+begin
+ If (FsessionSegment=AValue) then exit;
+ FsessionSegment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDynamicSegment.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDynamicSegment.SetuserSegment(AIndex : Integer; const AValue : TSegmentDefinition);
+
+begin
+ If (FuserSegment=AValue) then exit;
+ FuserSegment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TMetricHeader
+ --------------------------------------------------------------------}
+
+
+Procedure TMetricHeader.SetmetricHeaderEntries(AIndex : Integer; const AValue : TMetricHeaderTypemetricHeaderEntriesArray);
+
+begin
+ If (FmetricHeaderEntries=AValue) then exit;
+ FmetricHeaderEntries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricHeader.SetpivotHeaders(AIndex : Integer; const AValue : TMetricHeaderTypepivotHeadersArray);
+
+begin
+ If (FpivotHeaders=AValue) then exit;
+ FpivotHeaders:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMetricHeader.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'metricheaderentries' : SetLength(FmetricHeaderEntries,ALength);
+ 'pivotheaders' : SetLength(FpivotHeaders,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TReport
+ --------------------------------------------------------------------}
+
+
+Procedure TReport.SetcolumnHeader(AIndex : Integer; const AValue : TColumnHeader);
+
+begin
+ If (FcolumnHeader=AValue) then exit;
+ FcolumnHeader:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReport.Setdata(AIndex : Integer; const AValue : TReportData);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReport.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSegmentFilterClause
+ --------------------------------------------------------------------}
+
+
+Procedure TSegmentFilterClause.SetdimensionFilter(AIndex : Integer; const AValue : TSegmentDimensionFilter);
+
+begin
+ If (FdimensionFilter=AValue) then exit;
+ FdimensionFilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentFilterClause.SetmetricFilter(AIndex : Integer; const AValue : TSegmentMetricFilter);
+
+begin
+ If (FmetricFilter=AValue) then exit;
+ FmetricFilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentFilterClause.Set_not(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (F_not=AValue) then exit;
+ F_not:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TSegmentFilterClause.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_not' : Result:='not';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TDimensionFilter
+ --------------------------------------------------------------------}
+
+
+Procedure TDimensionFilter.SetdimensionName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdimensionName=AValue) then exit;
+ FdimensionName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimensionFilter.Set_operator(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_operator=AValue) then exit;
+ F_operator:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimensionFilter.SetcaseSensitive(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FcaseSensitive=AValue) then exit;
+ FcaseSensitive:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimensionFilter.Setexpressions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fexpressions=AValue) then exit;
+ Fexpressions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimensionFilter.Set_not(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (F_not=AValue) then exit;
+ F_not:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TDimensionFilter.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_operator' : Result:='operator';
+ '_not' : Result:='not';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDimensionFilter.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'expressions' : SetLength(Fexpressions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSegmentDimensionFilter
+ --------------------------------------------------------------------}
+
+
+Procedure TSegmentDimensionFilter.SetmaxComparisonValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmaxComparisonValue=AValue) then exit;
+ FmaxComparisonValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentDimensionFilter.SetdimensionName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdimensionName=AValue) then exit;
+ FdimensionName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentDimensionFilter.SetcaseSensitive(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FcaseSensitive=AValue) then exit;
+ FcaseSensitive:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentDimensionFilter.Set_operator(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_operator=AValue) then exit;
+ F_operator:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentDimensionFilter.Setexpressions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fexpressions=AValue) then exit;
+ Fexpressions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentDimensionFilter.SetminComparisonValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FminComparisonValue=AValue) then exit;
+ FminComparisonValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TSegmentDimensionFilter.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_operator' : Result:='operator';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSegmentDimensionFilter.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'expressions' : SetLength(Fexpressions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TReportRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TReportRequest.SetcohortGroup(AIndex : Integer; const AValue : TCohortGroup);
+
+begin
+ If (FcohortGroup=AValue) then exit;
+ FcohortGroup:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.Setdimensions(AIndex : Integer; const AValue : TReportRequestTypedimensionsArray);
+
+begin
+ If (Fdimensions=AValue) then exit;
+ Fdimensions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SetmetricFilterClauses(AIndex : Integer; const AValue : TReportRequestTypemetricFilterClausesArray);
+
+begin
+ If (FmetricFilterClauses=AValue) then exit;
+ FmetricFilterClauses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SethideTotals(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhideTotals=AValue) then exit;
+ FhideTotals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SetincludeEmptyRows(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FincludeEmptyRows=AValue) then exit;
+ FincludeEmptyRows:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SetdimensionFilterClauses(AIndex : Integer; const AValue : TReportRequestTypedimensionFilterClausesArray);
+
+begin
+ If (FdimensionFilterClauses=AValue) then exit;
+ FdimensionFilterClauses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.Setpivots(AIndex : Integer; const AValue : TReportRequestTypepivotsArray);
+
+begin
+ If (Fpivots=AValue) then exit;
+ Fpivots:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SetdateRanges(AIndex : Integer; const AValue : TReportRequestTypedateRangesArray);
+
+begin
+ If (FdateRanges=AValue) then exit;
+ FdateRanges:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.Setsegments(AIndex : Integer; const AValue : TReportRequestTypesegmentsArray);
+
+begin
+ If (Fsegments=AValue) then exit;
+ Fsegments:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SetsamplingLevel(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsamplingLevel=AValue) then exit;
+ FsamplingLevel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.Setmetrics(AIndex : Integer; const AValue : TReportRequestTypemetricsArray);
+
+begin
+ If (Fmetrics=AValue) then exit;
+ Fmetrics:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SetpageSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FpageSize=AValue) then exit;
+ FpageSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SetorderBys(AIndex : Integer; const AValue : TReportRequestTypeorderBysArray);
+
+begin
+ If (ForderBys=AValue) then exit;
+ ForderBys:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SetfiltersExpression(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfiltersExpression=AValue) then exit;
+ FfiltersExpression:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SethideValueRanges(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhideValueRanges=AValue) then exit;
+ FhideValueRanges:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SetviewId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FviewId=AValue) then exit;
+ FviewId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRequest.SetpageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpageToken=AValue) then exit;
+ FpageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReportRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dimensions' : SetLength(Fdimensions,ALength);
+ 'metricfilterclauses' : SetLength(FmetricFilterClauses,ALength);
+ 'dimensionfilterclauses' : SetLength(FdimensionFilterClauses,ALength);
+ 'pivots' : SetLength(Fpivots,ALength);
+ 'dateranges' : SetLength(FdateRanges,ALength);
+ 'segments' : SetLength(Fsegments,ALength);
+ 'metrics' : SetLength(Fmetrics,ALength);
+ 'orderbys' : SetLength(ForderBys,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSimpleSegment
+ --------------------------------------------------------------------}
+
+
+Procedure TSimpleSegment.SetorFiltersForSegment(AIndex : Integer; const AValue : TSimpleSegmentTypeorFiltersForSegmentArray);
+
+begin
+ If (ForFiltersForSegment=AValue) then exit;
+ ForFiltersForSegment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSimpleSegment.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'orfiltersforsegment' : SetLength(ForFiltersForSegment,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSegmentDefinition
+ --------------------------------------------------------------------}
+
+
+Procedure TSegmentDefinition.SetsegmentFilters(AIndex : Integer; const AValue : TSegmentDefinitionTypesegmentFiltersArray);
+
+begin
+ If (FsegmentFilters=AValue) then exit;
+ FsegmentFilters:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSegmentDefinition.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'segmentfilters' : SetLength(FsegmentFilters,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSegmentMetricFilter
+ --------------------------------------------------------------------}
+
+
+Procedure TSegmentMetricFilter.SetmetricName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmetricName=AValue) then exit;
+ FmetricName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentMetricFilter.Set_operator(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_operator=AValue) then exit;
+ F_operator:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentMetricFilter.SetcomparisonValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcomparisonValue=AValue) then exit;
+ FcomparisonValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentMetricFilter.Setscope(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fscope=AValue) then exit;
+ Fscope:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentMetricFilter.SetmaxComparisonValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmaxComparisonValue=AValue) then exit;
+ FmaxComparisonValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TSegmentMetricFilter.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_operator' : Result:='operator';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TReportData
+ --------------------------------------------------------------------}
+
+
+Procedure TReportData.SetrowCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FrowCount=AValue) then exit;
+ FrowCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportData.SetsamplingSpaceSizes(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FsamplingSpaceSizes=AValue) then exit;
+ FsamplingSpaceSizes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportData.Setmaximums(AIndex : Integer; const AValue : TReportDataTypemaximumsArray);
+
+begin
+ If (Fmaximums=AValue) then exit;
+ Fmaximums:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportData.SetsamplesReadCounts(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FsamplesReadCounts=AValue) then exit;
+ FsamplesReadCounts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportData.Setminimums(AIndex : Integer; const AValue : TReportDataTypeminimumsArray);
+
+begin
+ If (Fminimums=AValue) then exit;
+ Fminimums:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportData.Setrows(AIndex : Integer; const AValue : TReportDataTyperowsArray);
+
+begin
+ If (Frows=AValue) then exit;
+ Frows:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportData.Settotals(AIndex : Integer; const AValue : TReportDataTypetotalsArray);
+
+begin
+ If (Ftotals=AValue) then exit;
+ Ftotals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportData.SetisDataGolden(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisDataGolden=AValue) then exit;
+ FisDataGolden:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReportData.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'samplingspacesizes' : SetLength(FsamplingSpaceSizes,ALength);
+ 'maximums' : SetLength(Fmaximums,ALength);
+ 'samplesreadcounts' : SetLength(FsamplesReadCounts,ALength);
+ 'minimums' : SetLength(Fminimums,ALength);
+ 'rows' : SetLength(Frows,ALength);
+ 'totals' : SetLength(Ftotals,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGetReportsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TGetReportsRequest.SetreportRequests(AIndex : Integer; const AValue : TGetReportsRequestTypereportRequestsArray);
+
+begin
+ If (FreportRequests=AValue) then exit;
+ FreportRequests:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGetReportsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'reportrequests' : SetLength(FreportRequests,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderBy
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderBy.SetsortOrder(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsortOrder=AValue) then exit;
+ FsortOrder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderBy.SetorderType(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForderType=AValue) then exit;
+ ForderType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderBy.SetfieldName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfieldName=AValue) then exit;
+ FfieldName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCohort
+ --------------------------------------------------------------------}
+
+
+Procedure TCohort.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCohort.SetdateRange(AIndex : Integer; const AValue : TDateRange);
+
+begin
+ If (FdateRange=AValue) then exit;
+ FdateRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCohort.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TCohort.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrFiltersForSegment
+ --------------------------------------------------------------------}
+
+
+Procedure TOrFiltersForSegment.SetsegmentFilterClauses(AIndex : Integer; const AValue : TOrFiltersForSegmentTypesegmentFilterClausesArray);
+
+begin
+ If (FsegmentFilterClauses=AValue) then exit;
+ FsegmentFilterClauses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOrFiltersForSegment.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'segmentfilterclauses' : SetLength(FsegmentFilterClauses,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSequenceSegment
+ --------------------------------------------------------------------}
+
+
+Procedure TSequenceSegment.SetfirstStepShouldMatchFirstHit(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FfirstStepShouldMatchFirstHit=AValue) then exit;
+ FfirstStepShouldMatchFirstHit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSequenceSegment.SetsegmentSequenceSteps(AIndex : Integer; const AValue : TSequenceSegmentTypesegmentSequenceStepsArray);
+
+begin
+ If (FsegmentSequenceSteps=AValue) then exit;
+ FsegmentSequenceSteps:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSequenceSegment.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'segmentsequencesteps' : SetLength(FsegmentSequenceSteps,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSegmentFilter
+ --------------------------------------------------------------------}
+
+
+Procedure TSegmentFilter.SetsequenceSegment(AIndex : Integer; const AValue : TSequenceSegment);
+
+begin
+ If (FsequenceSegment=AValue) then exit;
+ FsequenceSegment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentFilter.Set_not(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (F_not=AValue) then exit;
+ F_not:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentFilter.SetsimpleSegment(AIndex : Integer; const AValue : TSimpleSegment);
+
+begin
+ If (FsimpleSegment=AValue) then exit;
+ FsimpleSegment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TSegmentFilter.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_not' : Result:='not';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TPivotHeaderEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TPivotHeaderEntry.SetdimensionNames(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FdimensionNames=AValue) then exit;
+ FdimensionNames:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotHeaderEntry.SetdimensionValues(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FdimensionValues=AValue) then exit;
+ FdimensionValues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotHeaderEntry.Setmetric(AIndex : Integer; const AValue : TMetricHeaderEntry);
+
+begin
+ If (Fmetric=AValue) then exit;
+ Fmetric:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPivotHeaderEntry.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dimensionnames' : SetLength(FdimensionNames,ALength);
+ 'dimensionvalues' : SetLength(FdimensionValues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDimensionFilterClause
+ --------------------------------------------------------------------}
+
+
+Procedure TDimensionFilterClause.Set_operator(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_operator=AValue) then exit;
+ F_operator:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimensionFilterClause.Setfilters(AIndex : Integer; const AValue : TDimensionFilterClauseTypefiltersArray);
+
+begin
+ If (Ffilters=AValue) then exit;
+ Ffilters:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TDimensionFilterClause.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_operator' : Result:='operator';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDimensionFilterClause.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'filters' : SetLength(Ffilters,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSegmentSequenceStep
+ --------------------------------------------------------------------}
+
+
+Procedure TSegmentSequenceStep.SetmatchType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmatchType=AValue) then exit;
+ FmatchType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegmentSequenceStep.SetorFiltersForSegment(AIndex : Integer; const AValue : TSegmentSequenceStepTypeorFiltersForSegmentArray);
+
+begin
+ If (ForFiltersForSegment=AValue) then exit;
+ ForFiltersForSegment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSegmentSequenceStep.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'orfiltersforsegment' : SetLength(ForFiltersForSegment,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPivot
+ --------------------------------------------------------------------}
+
+
+Procedure TPivot.Setdimensions(AIndex : Integer; const AValue : TPivotTypedimensionsArray);
+
+begin
+ If (Fdimensions=AValue) then exit;
+ Fdimensions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivot.Setmetrics(AIndex : Integer; const AValue : TPivotTypemetricsArray);
+
+begin
+ If (Fmetrics=AValue) then exit;
+ Fmetrics:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivot.SetmaxGroupCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaxGroupCount=AValue) then exit;
+ FmaxGroupCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivot.SetdimensionFilterClauses(AIndex : Integer; const AValue : TPivotTypedimensionFilterClausesArray);
+
+begin
+ If (FdimensionFilterClauses=AValue) then exit;
+ FdimensionFilterClauses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivot.SetstartGroup(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartGroup=AValue) then exit;
+ FstartGroup:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPivot.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dimensions' : SetLength(Fdimensions,ALength);
+ 'metrics' : SetLength(Fmetrics,ALength);
+ 'dimensionfilterclauses' : SetLength(FdimensionFilterClauses,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDateRangeValues
+ --------------------------------------------------------------------}
+
+
+Procedure TDateRangeValues.Setvalues(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fvalues=AValue) then exit;
+ Fvalues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDateRangeValues.SetpivotValueRegions(AIndex : Integer; const AValue : TDateRangeValuesTypepivotValueRegionsArray);
+
+begin
+ If (FpivotValueRegions=AValue) then exit;
+ FpivotValueRegions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDateRangeValues.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'values' : SetLength(Fvalues,ALength);
+ 'pivotvalueregions' : SetLength(FpivotValueRegions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMetricFilterClause
+ --------------------------------------------------------------------}
+
+
+Procedure TMetricFilterClause.Set_operator(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_operator=AValue) then exit;
+ F_operator:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricFilterClause.Setfilters(AIndex : Integer; const AValue : TMetricFilterClauseTypefiltersArray);
+
+begin
+ If (Ffilters=AValue) then exit;
+ Ffilters:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TMetricFilterClause.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_operator' : Result:='operator';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMetricFilterClause.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'filters' : SetLength(Ffilters,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSegment
+ --------------------------------------------------------------------}
+
+
+Procedure TSegment.SetdynamicSegment(AIndex : Integer; const AValue : TDynamicSegment);
+
+begin
+ If (FdynamicSegment=AValue) then exit;
+ FdynamicSegment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSegment.SetsegmentId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsegmentId=AValue) then exit;
+ FsegmentId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDateRange
+ --------------------------------------------------------------------}
+
+
+Procedure TDateRange.SetstartDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartDate=AValue) then exit;
+ FstartDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDateRange.SetendDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendDate=AValue) then exit;
+ FendDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TReportRow
+ --------------------------------------------------------------------}
+
+
+Procedure TReportRow.Setdimensions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fdimensions=AValue) then exit;
+ Fdimensions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportRow.Setmetrics(AIndex : Integer; const AValue : TReportRowTypemetricsArray);
+
+begin
+ If (Fmetrics=AValue) then exit;
+ Fmetrics:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReportRow.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dimensions' : SetLength(Fdimensions,ALength);
+ 'metrics' : SetLength(Fmetrics,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCohortGroup
+ --------------------------------------------------------------------}
+
+
+Procedure TCohortGroup.SetlifetimeValue(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FlifetimeValue=AValue) then exit;
+ FlifetimeValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCohortGroup.Setcohorts(AIndex : Integer; const AValue : TCohortGroupTypecohortsArray);
+
+begin
+ If (Fcohorts=AValue) then exit;
+ Fcohorts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCohortGroup.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'cohorts' : SetLength(Fcohorts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGetReportsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TGetReportsResponse.Setreports(AIndex : Integer; const AValue : TGetReportsResponseTypereportsArray);
+
+begin
+ If (Freports=AValue) then exit;
+ Freports:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGetReportsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'reports' : SetLength(Freports,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMetricHeaderEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TMetricHeaderEntry.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricHeaderEntry.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TMetricHeaderEntry.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TMetricFilter
+ --------------------------------------------------------------------}
+
+
+Procedure TMetricFilter.SetmetricName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmetricName=AValue) then exit;
+ FmetricName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricFilter.Set_operator(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_operator=AValue) then exit;
+ F_operator:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricFilter.SetcomparisonValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcomparisonValue=AValue) then exit;
+ FcomparisonValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricFilter.Set_not(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (F_not=AValue) then exit;
+ F_not:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TMetricFilter.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_operator' : Result:='operator';
+ '_not' : Result:='not';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TDimension
+ --------------------------------------------------------------------}
+
+
+Procedure TDimension.SethistogramBuckets(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FhistogramBuckets=AValue) then exit;
+ FhistogramBuckets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimension.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDimension.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'histogrambuckets' : SetLength(FhistogramBuckets,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPivotValueRegion
+ --------------------------------------------------------------------}
+
+
+Procedure TPivotValueRegion.Setvalues(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fvalues=AValue) then exit;
+ Fvalues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPivotValueRegion.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'values' : SetLength(Fvalues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TReportsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TReportsResource.ResourceName : String;
+
+begin
+ Result:='reports';
+end;
+
+Class Function TReportsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TanalyticsreportingAPI;
+end;
+
+Function TReportsResource.BatchGet(aGetReportsRequest : TGetReportsRequest) : TGetReportsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v4/reports:batchGet';
+ _Methodid = 'analyticsreporting.reports.batchGet';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aGetReportsRequest,TGetReportsResponse) as TGetReportsResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAnalyticsreportingAPI
+ --------------------------------------------------------------------}
+
+Class Function TAnalyticsreportingAPI.APIName : String;
+
+begin
+ Result:='analyticsreporting';
+end;
+
+Class Function TAnalyticsreportingAPI.APIVersion : String;
+
+begin
+ Result:='v4';
+end;
+
+Class Function TAnalyticsreportingAPI.APIRevision : String;
+
+begin
+ Result:='20160512';
+end;
+
+Class Function TAnalyticsreportingAPI.APIID : String;
+
+begin
+ Result:='analyticsreporting:v4';
+end;
+
+Class Function TAnalyticsreportingAPI.APITitle : String;
+
+begin
+ Result:='Google Analytics Reporting API';
+end;
+
+Class Function TAnalyticsreportingAPI.APIDescription : String;
+
+begin
+ Result:='Accesses Analytics report data.';
+end;
+
+Class Function TAnalyticsreportingAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TAnalyticsreportingAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TAnalyticsreportingAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TAnalyticsreportingAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TAnalyticsreportingAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/analytics/devguides/reporting/core/v4/';
+end;
+
+Class Function TAnalyticsreportingAPI.APIrootUrl : string;
+
+begin
+ Result:='https://analyticsreporting.googleapis.com/';
+end;
+
+Class Function TAnalyticsreportingAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TAnalyticsreportingAPI.APIbaseURL : String;
+
+begin
+ Result:='https://analyticsreporting.googleapis.com/';
+end;
+
+Class Function TAnalyticsreportingAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TAnalyticsreportingAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TAnalyticsreportingAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TAnalyticsreportingAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,2);
+ Result[0].Name:='https://www.googleapis.com/auth/analytics.readonly';
+ Result[0].Description:='View your Google Analytics data';
+ Result[1].Name:='https://www.googleapis.com/auth/analytics';
+ Result[1].Description:='View and manage your Google Analytics data';
+
+end;
+
+Class Function TAnalyticsreportingAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TAnalyticsreportingAPI.RegisterAPIResources;
+
+begin
+ TPivotHeader.RegisterObject;
+ TMetric.RegisterObject;
+ TColumnHeader.RegisterObject;
+ TDynamicSegment.RegisterObject;
+ TMetricHeader.RegisterObject;
+ TReport.RegisterObject;
+ TSegmentFilterClause.RegisterObject;
+ TDimensionFilter.RegisterObject;
+ TSegmentDimensionFilter.RegisterObject;
+ TReportRequest.RegisterObject;
+ TSimpleSegment.RegisterObject;
+ TSegmentDefinition.RegisterObject;
+ TSegmentMetricFilter.RegisterObject;
+ TReportData.RegisterObject;
+ TGetReportsRequest.RegisterObject;
+ TOrderBy.RegisterObject;
+ TCohort.RegisterObject;
+ TOrFiltersForSegment.RegisterObject;
+ TSequenceSegment.RegisterObject;
+ TSegmentFilter.RegisterObject;
+ TPivotHeaderEntry.RegisterObject;
+ TDimensionFilterClause.RegisterObject;
+ TSegmentSequenceStep.RegisterObject;
+ TPivot.RegisterObject;
+ TDateRangeValues.RegisterObject;
+ TMetricFilterClause.RegisterObject;
+ TSegment.RegisterObject;
+ TDateRange.RegisterObject;
+ TReportRow.RegisterObject;
+ TCohortGroup.RegisterObject;
+ TGetReportsResponse.RegisterObject;
+ TMetricHeaderEntry.RegisterObject;
+ TMetricFilter.RegisterObject;
+ TDimension.RegisterObject;
+ TPivotValueRegion.RegisterObject;
+end;
+
+
+Function TAnalyticsreportingAPI.GetReportsInstance : TReportsResource;
+
+begin
+ if (FReportsInstance=Nil) then
+ FReportsInstance:=CreateReportsResource;
+ Result:=FReportsInstance;
+end;
+
+Function TAnalyticsreportingAPI.CreateReportsResource : TReportsResource;
+
+begin
+ Result:=CreateReportsResource(Self);
+end;
+
+
+Function TAnalyticsreportingAPI.CreateReportsResource(AOwner : TComponent) : TReportsResource;
+
+begin
+ Result:=TReportsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TAnalyticsreportingAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleandroidenterprise.pp b/packages/googleapi/src/googleandroidenterprise.pp
index af4bb602a5..ca7a2ec68c 100644
--- a/packages/googleapi/src/googleandroidenterprise.pp
+++ b/packages/googleapi/src/googleandroidenterprise.pp
@@ -1,19 +1,4 @@
unit googleandroidenterprise;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:58
{$MODE objfpc}
{$H+}
@@ -27,6 +12,8 @@ type
TAppRestrictionsSchema = Class;
TAppRestrictionsSchemaRestriction = Class;
TAppRestrictionsSchemaRestrictionRestrictionValue = Class;
+ TAppVersion = Class;
+ TApprovalUrlInfo = Class;
TCollection = Class;
TCollectionViewersListResponse = Class;
TCollectionsListResponse = Class;
@@ -36,6 +23,7 @@ type
TEnterprise = Class;
TEnterpriseAccount = Class;
TEnterprisesListResponse = Class;
+ TEnterprisesSendTestPushNotificationResponse = Class;
TEntitlement = Class;
TEntitlementsListResponse = Class;
TGroupLicense = Class;
@@ -43,16 +31,30 @@ type
TGroupLicensesListResponse = Class;
TInstall = Class;
TInstallsListResponse = Class;
+ TLocalizedText = Class;
+ TPageInfo = Class;
TPermission = Class;
TProduct = Class;
TProductPermission = Class;
TProductPermissions = Class;
+ TProductSet = Class;
+ TProductsApproveRequest = Class;
+ TProductsGenerateApprovalUrlResponse = Class;
+ TProductsListResponse = Class;
+ TStoreCluster = Class;
+ TStoreLayout = Class;
+ TStoreLayoutClustersListResponse = Class;
+ TStoreLayoutPagesListResponse = Class;
+ TStorePage = Class;
+ TTokenPagination = Class;
TUser = Class;
TUserToken = Class;
TUsersListResponse = Class;
TAppRestrictionsSchemaArray = Array of TAppRestrictionsSchema;
TAppRestrictionsSchemaRestrictionArray = Array of TAppRestrictionsSchemaRestriction;
TAppRestrictionsSchemaRestrictionRestrictionValueArray = Array of TAppRestrictionsSchemaRestrictionRestrictionValue;
+ TAppVersionArray = Array of TAppVersion;
+ TApprovalUrlInfoArray = Array of TApprovalUrlInfo;
TCollectionArray = Array of TCollection;
TCollectionViewersListResponseArray = Array of TCollectionViewersListResponse;
TCollectionsListResponseArray = Array of TCollectionsListResponse;
@@ -62,6 +64,7 @@ type
TEnterpriseArray = Array of TEnterprise;
TEnterpriseAccountArray = Array of TEnterpriseAccount;
TEnterprisesListResponseArray = Array of TEnterprisesListResponse;
+ TEnterprisesSendTestPushNotificationResponseArray = Array of TEnterprisesSendTestPushNotificationResponse;
TEntitlementArray = Array of TEntitlement;
TEntitlementsListResponseArray = Array of TEntitlementsListResponse;
TGroupLicenseArray = Array of TGroupLicense;
@@ -69,10 +72,22 @@ type
TGroupLicensesListResponseArray = Array of TGroupLicensesListResponse;
TInstallArray = Array of TInstall;
TInstallsListResponseArray = Array of TInstallsListResponse;
+ TLocalizedTextArray = Array of TLocalizedText;
+ TPageInfoArray = Array of TPageInfo;
TPermissionArray = Array of TPermission;
TProductArray = Array of TProduct;
TProductPermissionArray = Array of TProductPermission;
TProductPermissionsArray = Array of TProductPermissions;
+ TProductSetArray = Array of TProductSet;
+ TProductsApproveRequestArray = Array of TProductsApproveRequest;
+ TProductsGenerateApprovalUrlResponseArray = Array of TProductsGenerateApprovalUrlResponse;
+ TProductsListResponseArray = Array of TProductsListResponse;
+ TStoreClusterArray = Array of TStoreCluster;
+ TStoreLayoutArray = Array of TStoreLayout;
+ TStoreLayoutClustersListResponseArray = Array of TStoreLayoutClustersListResponse;
+ TStoreLayoutPagesListResponseArray = Array of TStoreLayoutPagesListResponse;
+ TStorePageArray = Array of TStorePage;
+ TTokenPaginationArray = Array of TTokenPagination;
TUserArray = Array of TUser;
TUserTokenArray = Array of TUserToken;
TUsersListResponseArray = Array of TUsersListResponse;
@@ -86,7 +101,13 @@ type
TGroupLicenseUsersListResponseTypeuserArray = Array of TUser;
TGroupLicensesListResponseTypegroupLicenseArray = Array of TGroupLicense;
TInstallsListResponseTypeinstallArray = Array of TInstall;
+ TProductTypeappVersionArray = Array of TAppVersion;
TProductPermissionsTypepermissionArray = Array of TProductPermission;
+ TProductsListResponseTypeproductArray = Array of TProduct;
+ TStoreClusterTypenameArray = Array of TLocalizedText;
+ TStoreLayoutClustersListResponseTypeclusterArray = Array of TStoreCluster;
+ TStoreLayoutPagesListResponseTypepageArray = Array of TStorePage;
+ TStorePageTypenameArray = Array of TLocalizedText;
TUsersListResponseTypeuserArray = Array of TUser;
{ --------------------------------------------------------------------
@@ -95,17 +116,20 @@ type
TAppRestrictionsSchema = Class(TGoogleBaseObject)
Private
+ Fkind : String;
Frestrictions : TAppRestrictionsSchemaTyperestrictionsArray;
Protected
//Property setters
- Procedure Setrestrictions(AIndex : Integer; AValue : TAppRestrictionsSchemaTyperestrictionsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrestrictions(AIndex : Integer; const AValue : TAppRestrictionsSchemaTyperestrictionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property restrictions : TAppRestrictionsSchemaTyperestrictionsArray Index 0 Read Frestrictions Write Setrestrictions;
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property restrictions : TAppRestrictionsSchemaTyperestrictionsArray Index 8 Read Frestrictions Write Setrestrictions;
end;
TAppRestrictionsSchemaClass = Class of TAppRestrictionsSchema;
@@ -124,10 +148,10 @@ type
Ftitle : String;
Protected
//Property setters
- Procedure SetdefaultValue(AIndex : Integer; AValue : TAppRestrictionsSchemaRestrictionRestrictionValue); virtual;
+ Procedure SetdefaultValue(AIndex : Integer; const AValue : TAppRestrictionsSchemaRestrictionRestrictionValue); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setentry(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetentryValue(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setentry(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetentryValue(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure SetrestrictionType(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
@@ -162,9 +186,9 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvalueBool(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetvalueInteger(AIndex : Integer; AValue : integer); virtual;
- Procedure SetvalueMultiselect(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetvalueBool(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetvalueInteger(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetvalueMultiselect(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetvalueString(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -181,6 +205,44 @@ type
TAppRestrictionsSchemaRestrictionRestrictionValueClass = Class of TAppRestrictionsSchemaRestrictionRestrictionValue;
{ --------------------------------------------------------------------
+ TAppVersion
+ --------------------------------------------------------------------}
+
+ TAppVersion = Class(TGoogleBaseObject)
+ Private
+ FversionCode : integer;
+ FversionString : String;
+ Protected
+ //Property setters
+ Procedure SetversionCode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetversionString(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property versionCode : integer Index 0 Read FversionCode Write SetversionCode;
+ Property versionString : String Index 8 Read FversionString Write SetversionString;
+ end;
+ TAppVersionClass = Class of TAppVersion;
+
+ { --------------------------------------------------------------------
+ TApprovalUrlInfo
+ --------------------------------------------------------------------}
+
+ TApprovalUrlInfo = Class(TGoogleBaseObject)
+ Private
+ FapprovalUrl : String;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SetapprovalUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property approvalUrl : String Index 0 Read FapprovalUrl Write SetapprovalUrl;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TApprovalUrlInfoClass = Class of TApprovalUrlInfo;
+
+ { --------------------------------------------------------------------
TCollection
--------------------------------------------------------------------}
@@ -196,7 +258,7 @@ type
Procedure SetcollectionId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetproductId(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetproductId(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -223,7 +285,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setuser(AIndex : Integer; AValue : TCollectionViewersListResponseTypeuserArray); virtual;
+ Procedure Setuser(AIndex : Integer; const AValue : TCollectionViewersListResponseTypeuserArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -245,7 +307,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setcollection(AIndex : Integer; AValue : TCollectionsListResponseTypecollectionArray); virtual;
+ Procedure Setcollection(AIndex : Integer; const AValue : TCollectionsListResponseTypecollectionArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -309,7 +371,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setdevice(AIndex : Integer; AValue : TDevicesListResponseTypedeviceArray); virtual;
+ Procedure Setdevice(AIndex : Integer; const AValue : TDevicesListResponseTypedeviceArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -376,7 +438,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setenterprise(AIndex : Integer; AValue : TEnterprisesListResponseTypeenterpriseArray); virtual;
+ Procedure Setenterprise(AIndex : Integer; const AValue : TEnterprisesListResponseTypeenterpriseArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -390,6 +452,25 @@ type
TEnterprisesListResponseClass = Class of TEnterprisesListResponse;
{ --------------------------------------------------------------------
+ TEnterprisesSendTestPushNotificationResponse
+ --------------------------------------------------------------------}
+
+ TEnterprisesSendTestPushNotificationResponse = Class(TGoogleBaseObject)
+ Private
+ FmessageId : String;
+ FtopicName : String;
+ Protected
+ //Property setters
+ Procedure SetmessageId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettopicName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property messageId : String Index 0 Read FmessageId Write SetmessageId;
+ Property topicName : String Index 8 Read FtopicName Write SettopicName;
+ end;
+ TEnterprisesSendTestPushNotificationResponseClass = Class of TEnterprisesSendTestPushNotificationResponse;
+
+ { --------------------------------------------------------------------
TEntitlement
--------------------------------------------------------------------}
@@ -421,7 +502,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setentitlement(AIndex : Integer; AValue : TEntitlementsListResponseTypeentitlementArray); virtual;
+ Procedure Setentitlement(AIndex : Integer; const AValue : TEntitlementsListResponseTypeentitlementArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -451,8 +532,8 @@ type
Procedure SetacquisitionKind(AIndex : Integer; const AValue : String); virtual;
Procedure Setapproval(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnumProvisioned(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnumPurchased(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetnumProvisioned(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumPurchased(AIndex : Integer; const AValue : integer); virtual;
Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -476,7 +557,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setuser(AIndex : Integer; AValue : TGroupLicenseUsersListResponseTypeuserArray); virtual;
+ Procedure Setuser(AIndex : Integer; const AValue : TGroupLicenseUsersListResponseTypeuserArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -498,7 +579,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetgroupLicense(AIndex : Integer; AValue : TGroupLicensesListResponseTypegroupLicenseArray); virtual;
+ Procedure SetgroupLicense(AIndex : Integer; const AValue : TGroupLicensesListResponseTypegroupLicenseArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -526,7 +607,7 @@ type
Procedure SetinstallState(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetversionCode(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetversionCode(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property installState : String Index 0 Read FinstallState Write SetinstallState;
@@ -546,7 +627,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setinstall(AIndex : Integer; AValue : TInstallsListResponseTypeinstallArray); virtual;
+ Procedure Setinstall(AIndex : Integer; const AValue : TInstallsListResponseTypeinstallArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -560,6 +641,47 @@ type
TInstallsListResponseClass = Class of TInstallsListResponse;
{ --------------------------------------------------------------------
+ TLocalizedText
+ --------------------------------------------------------------------}
+
+ TLocalizedText = Class(TGoogleBaseObject)
+ Private
+ Flocale : String;
+ Ftext : String;
+ Protected
+ //Property setters
+ Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settext(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property locale : String Index 0 Read Flocale Write Setlocale;
+ Property text : String Index 8 Read Ftext Write Settext;
+ end;
+ TLocalizedTextClass = Class of TLocalizedText;
+
+ { --------------------------------------------------------------------
+ TPageInfo
+ --------------------------------------------------------------------}
+
+ TPageInfo = Class(TGoogleBaseObject)
+ Private
+ FresultPerPage : integer;
+ FstartIndex : integer;
+ FtotalResults : integer;
+ Protected
+ //Property setters
+ Procedure SetresultPerPage(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property resultPerPage : integer Index 0 Read FresultPerPage Write SetresultPerPage;
+ Property startIndex : integer Index 8 Read FstartIndex Write SetstartIndex;
+ Property totalResults : integer Index 16 Read FtotalResults Write SettotalResults;
+ end;
+ TPageInfoClass = Class of TPageInfo;
+
+ { --------------------------------------------------------------------
TPermission
--------------------------------------------------------------------}
@@ -590,34 +712,50 @@ type
TProduct = Class(TGoogleBaseObject)
Private
+ FappVersion : TProductTypeappVersionArray;
FauthorName : String;
FdetailsUrl : String;
+ FdistributionChannel : String;
FiconUrl : String;
Fkind : String;
FproductId : String;
+ FproductPricing : String;
FrequiresContainerApp : boolean;
+ FsmallIconUrl : String;
Ftitle : String;
FworkDetailsUrl : String;
Protected
//Property setters
+ Procedure SetappVersion(AIndex : Integer; const AValue : TProductTypeappVersionArray); virtual;
Procedure SetauthorName(AIndex : Integer; const AValue : String); virtual;
Procedure SetdetailsUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdistributionChannel(AIndex : Integer; const AValue : String); virtual;
Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrequiresContainerApp(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetproductPricing(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrequiresContainerApp(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsmallIconUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure SetworkDetailsUrl(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 authorName : String Index 0 Read FauthorName Write SetauthorName;
- Property detailsUrl : String Index 8 Read FdetailsUrl Write SetdetailsUrl;
- Property iconUrl : String Index 16 Read FiconUrl Write SeticonUrl;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property productId : String Index 32 Read FproductId Write SetproductId;
- Property requiresContainerApp : boolean Index 40 Read FrequiresContainerApp Write SetrequiresContainerApp;
- Property title : String Index 48 Read Ftitle Write Settitle;
- Property workDetailsUrl : String Index 56 Read FworkDetailsUrl Write SetworkDetailsUrl;
+ Property appVersion : TProductTypeappVersionArray Index 0 Read FappVersion Write SetappVersion;
+ Property authorName : String Index 8 Read FauthorName Write SetauthorName;
+ Property detailsUrl : String Index 16 Read FdetailsUrl Write SetdetailsUrl;
+ Property distributionChannel : String Index 24 Read FdistributionChannel Write SetdistributionChannel;
+ Property iconUrl : String Index 32 Read FiconUrl Write SeticonUrl;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property productId : String Index 48 Read FproductId Write SetproductId;
+ Property productPricing : String Index 56 Read FproductPricing Write SetproductPricing;
+ Property requiresContainerApp : boolean Index 64 Read FrequiresContainerApp Write SetrequiresContainerApp;
+ Property smallIconUrl : String Index 72 Read FsmallIconUrl Write SetsmallIconUrl;
+ Property title : String Index 80 Read Ftitle Write Settitle;
+ Property workDetailsUrl : String Index 88 Read FworkDetailsUrl Write SetworkDetailsUrl;
end;
TProductClass = Class of TProduct;
@@ -652,7 +790,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpermission(AIndex : Integer; AValue : TProductPermissionsTypepermissionArray); virtual;
+ Procedure Setpermission(AIndex : Integer; const AValue : TProductPermissionsTypepermissionArray); virtual;
Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -667,6 +805,235 @@ type
TProductPermissionsClass = Class of TProductPermissions;
{ --------------------------------------------------------------------
+ TProductSet
+ --------------------------------------------------------------------}
+
+ TProductSet = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ FproductId : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproductId(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 kind : String Index 0 Read Fkind Write Setkind;
+ Property productId : TStringArray Index 8 Read FproductId Write SetproductId;
+ end;
+ TProductSetClass = Class of TProductSet;
+
+ { --------------------------------------------------------------------
+ TProductsApproveRequest
+ --------------------------------------------------------------------}
+
+ TProductsApproveRequest = Class(TGoogleBaseObject)
+ Private
+ FapprovalUrlInfo : TApprovalUrlInfo;
+ Protected
+ //Property setters
+ Procedure SetapprovalUrlInfo(AIndex : Integer; const AValue : TApprovalUrlInfo); virtual;
+ Public
+ Published
+ Property approvalUrlInfo : TApprovalUrlInfo Index 0 Read FapprovalUrlInfo Write SetapprovalUrlInfo;
+ end;
+ TProductsApproveRequestClass = Class of TProductsApproveRequest;
+
+ { --------------------------------------------------------------------
+ TProductsGenerateApprovalUrlResponse
+ --------------------------------------------------------------------}
+
+ TProductsGenerateApprovalUrlResponse = Class(TGoogleBaseObject)
+ Private
+ Furl : String;
+ Protected
+ //Property setters
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property url : String Index 0 Read Furl Write Seturl;
+ end;
+ TProductsGenerateApprovalUrlResponseClass = Class of TProductsGenerateApprovalUrlResponse;
+
+ { --------------------------------------------------------------------
+ TProductsListResponse
+ --------------------------------------------------------------------}
+
+ TProductsListResponse = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ FpageInfo : TPageInfo;
+ Fproduct : TProductsListResponseTypeproductArray;
+ FtokenPagination : TTokenPagination;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
+ Procedure Setproduct(AIndex : Integer; const AValue : TProductsListResponseTypeproductArray); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property pageInfo : TPageInfo Index 8 Read FpageInfo Write SetpageInfo;
+ Property product : TProductsListResponseTypeproductArray Index 16 Read Fproduct Write Setproduct;
+ Property tokenPagination : TTokenPagination Index 24 Read FtokenPagination Write SettokenPagination;
+ end;
+ TProductsListResponseClass = Class of TProductsListResponse;
+
+ { --------------------------------------------------------------------
+ TStoreCluster
+ --------------------------------------------------------------------}
+
+ TStoreCluster = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fkind : String;
+ Fname : TStoreClusterTypenameArray;
+ ForderInPage : String;
+ FproductId : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TStoreClusterTypenameArray); virtual;
+ Procedure SetorderInPage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproductId(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 id : String Index 0 Read Fid Write Setid;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property name : TStoreClusterTypenameArray Index 16 Read Fname Write Setname;
+ Property orderInPage : String Index 24 Read ForderInPage Write SetorderInPage;
+ Property productId : TStringArray Index 32 Read FproductId Write SetproductId;
+ end;
+ TStoreClusterClass = Class of TStoreCluster;
+
+ { --------------------------------------------------------------------
+ TStoreLayout
+ --------------------------------------------------------------------}
+
+ TStoreLayout = Class(TGoogleBaseObject)
+ Private
+ FhomepageId : String;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SethomepageId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property homepageId : String Index 0 Read FhomepageId Write SethomepageId;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TStoreLayoutClass = Class of TStoreLayout;
+
+ { --------------------------------------------------------------------
+ TStoreLayoutClustersListResponse
+ --------------------------------------------------------------------}
+
+ TStoreLayoutClustersListResponse = Class(TGoogleBaseObject)
+ Private
+ Fcluster : TStoreLayoutClustersListResponseTypeclusterArray;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure Setcluster(AIndex : Integer; const AValue : TStoreLayoutClustersListResponseTypeclusterArray); 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 cluster : TStoreLayoutClustersListResponseTypeclusterArray Index 0 Read Fcluster Write Setcluster;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TStoreLayoutClustersListResponseClass = Class of TStoreLayoutClustersListResponse;
+
+ { --------------------------------------------------------------------
+ TStoreLayoutPagesListResponse
+ --------------------------------------------------------------------}
+
+ TStoreLayoutPagesListResponse = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ Fpage : TStoreLayoutPagesListResponseTypepageArray;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpage(AIndex : Integer; const AValue : TStoreLayoutPagesListResponseTypepageArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property page : TStoreLayoutPagesListResponseTypepageArray Index 8 Read Fpage Write Setpage;
+ end;
+ TStoreLayoutPagesListResponseClass = Class of TStoreLayoutPagesListResponse;
+
+ { --------------------------------------------------------------------
+ TStorePage
+ --------------------------------------------------------------------}
+
+ TStorePage = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fkind : String;
+ Flink : TStringArray;
+ Fname : TStorePageTypenameArray;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlink(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TStorePageTypenameArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property link : TStringArray Index 16 Read Flink Write Setlink;
+ Property name : TStorePageTypenameArray Index 24 Read Fname Write Setname;
+ end;
+ TStorePageClass = Class of TStorePage;
+
+ { --------------------------------------------------------------------
+ TTokenPagination
+ --------------------------------------------------------------------}
+
+ TTokenPagination = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ FpreviousPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpreviousPageToken(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property previousPageToken : String Index 8 Read FpreviousPageToken Write SetpreviousPageToken;
+ end;
+ TTokenPaginationClass = Class of TTokenPagination;
+
+ { --------------------------------------------------------------------
TUser
--------------------------------------------------------------------}
@@ -721,7 +1088,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setuser(AIndex : Integer; AValue : TUsersListResponseTypeuserArray); virtual;
+ Procedure Setuser(AIndex : Integer; const AValue : TUsersListResponseTypeuserArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -814,11 +1181,14 @@ type
Function Enroll(aEnterprise : TEnterprise; AQuery : string = '') : TEnterprise;
Function Enroll(aEnterprise : TEnterprise; AQuery : TEnterprisesenrollOptions) : TEnterprise;
Function Get(enterpriseId: string) : TEnterprise;
+ Function GetStoreLayout(enterpriseId: string) : TStoreLayout;
Function Insert(aEnterprise : TEnterprise; AQuery : string = '') : TEnterprise;
Function Insert(aEnterprise : TEnterprise; AQuery : TEnterprisesinsertOptions) : TEnterprise;
Function List(AQuery : string = '') : TEnterprisesListResponse;
Function List(AQuery : TEnterpriseslistOptions) : TEnterprisesListResponse;
+ Function SendTestPushNotification(enterpriseId: string) : TEnterprisesSendTestPushNotificationResponse;
Function SetAccount(enterpriseId: string; aEnterpriseAccount : TEnterpriseAccount) : TEnterpriseAccount;
+ Function SetStoreLayout(enterpriseId: string; aStoreLayout : TStoreLayout) : TStoreLayout;
Procedure Unenroll(enterpriseId: string);
end;
@@ -921,6 +1291,13 @@ type
--------------------------------------------------------------------}
+ //Optional query Options for TProductsResource, method GenerateApprovalUrl
+
+ TProductsGenerateApprovalUrlOptions = Record
+ languageCode : String;
+ end;
+
+
//Optional query Options for TProductsResource, method Get
TProductsGetOptions = Record
@@ -934,20 +1311,70 @@ type
language : String;
end;
+
+ //Optional query Options for TProductsResource, method List
+
+ TProductsListOptions = Record
+ approved : boolean;
+ language : String;
+ maxResults : integer;
+ query : String;
+ token : String;
+ end;
+
TProductsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure Approve(enterpriseId: string; productId: string; aProductsApproveRequest : TProductsApproveRequest);
+ Function GenerateApprovalUrl(enterpriseId: string; productId: string; AQuery : string = '') : TProductsGenerateApprovalUrlResponse;
+ Function GenerateApprovalUrl(enterpriseId: string; productId: string; AQuery : TProductsgenerateApprovalUrlOptions) : TProductsGenerateApprovalUrlResponse;
Function Get(enterpriseId: string; productId: string; AQuery : string = '') : TProduct;
Function Get(enterpriseId: string; productId: string; AQuery : TProductsgetOptions) : TProduct;
Function GetAppRestrictionsSchema(enterpriseId: string; productId: string; AQuery : string = '') : TAppRestrictionsSchema;
Function GetAppRestrictionsSchema(enterpriseId: string; productId: string; AQuery : TProductsgetAppRestrictionsSchemaOptions) : TAppRestrictionsSchema;
Function GetPermissions(enterpriseId: string; productId: string) : TProductPermissions;
+ Function List(enterpriseId: string; AQuery : string = '') : TProductsListResponse;
+ Function List(enterpriseId: string; AQuery : TProductslistOptions) : TProductsListResponse;
Function UpdatePermissions(enterpriseId: string; productId: string; aProductPermissions : TProductPermissions) : TProductPermissions;
end;
{ --------------------------------------------------------------------
+ TStorelayoutclustersResource
+ --------------------------------------------------------------------}
+
+ TStorelayoutclustersResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure Delete(clusterId: string; enterpriseId: string; pageId: string);
+ Function Get(clusterId: string; enterpriseId: string; pageId: string) : TStoreCluster;
+ Function Insert(enterpriseId: string; pageId: string; aStoreCluster : TStoreCluster) : TStoreCluster;
+ Function List(enterpriseId: string; pageId: string) : TStoreLayoutClustersListResponse;
+ Function Patch(clusterId: string; enterpriseId: string; pageId: string; aStoreCluster : TStoreCluster) : TStoreCluster;
+ Function Update(clusterId: string; enterpriseId: string; pageId: string; aStoreCluster : TStoreCluster) : TStoreCluster;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TStorelayoutpagesResource
+ --------------------------------------------------------------------}
+
+ TStorelayoutpagesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure Delete(enterpriseId: string; pageId: string);
+ Function Get(enterpriseId: string; pageId: string) : TStorePage;
+ Function Insert(enterpriseId: string; aStorePage : TStorePage) : TStorePage;
+ Function List(enterpriseId: string) : TStoreLayoutPagesListResponse;
+ Function Patch(enterpriseId: string; pageId: string; aStorePage : TStorePage) : TStorePage;
+ Function Update(enterpriseId: string; pageId: string; aStorePage : TStorePage) : TStorePage;
+ end;
+
+
+ { --------------------------------------------------------------------
TUsersResource
--------------------------------------------------------------------}
@@ -964,9 +1391,11 @@ type
Class Function DefaultAPI : TGoogleAPIClass; override;
Function GenerateToken(enterpriseId: string; userId: string) : TUserToken;
Function Get(enterpriseId: string; userId: string) : TUser;
+ Function GetAvailableProductSet(enterpriseId: string; userId: string) : TProductSet;
Function List(enterpriseId: string; AQuery : string = '') : TUsersListResponse;
Function List(enterpriseId: string; AQuery : TUserslistOptions) : TUsersListResponse;
Procedure RevokeToken(enterpriseId: string; userId: string);
+ Function SetAvailableProductSet(enterpriseId: string; userId: string; aProductSet : TProductSet) : TProductSet;
end;
@@ -986,6 +1415,8 @@ type
FInstallsInstance : TInstallsResource;
FPermissionsInstance : TPermissionsResource;
FProductsInstance : TProductsResource;
+ FStorelayoutclustersInstance : TStorelayoutclustersResource;
+ FStorelayoutpagesInstance : TStorelayoutpagesResource;
FUsersInstance : TUsersResource;
Function GetCollectionsInstance : TCollectionsResource;virtual;
Function GetCollectionviewersInstance : TCollectionviewersResource;virtual;
@@ -997,6 +1428,8 @@ type
Function GetInstallsInstance : TInstallsResource;virtual;
Function GetPermissionsInstance : TPermissionsResource;virtual;
Function GetProductsInstance : TProductsResource;virtual;
+ Function GetStorelayoutclustersInstance : TStorelayoutclustersResource;virtual;
+ Function GetStorelayoutpagesInstance : TStorelayoutpagesResource;virtual;
Function GetUsersInstance : TUsersResource;virtual;
Public
//Override class functions with API info
@@ -1041,6 +1474,10 @@ type
Function CreatePermissionsResource : TPermissionsResource;virtual;overload;
Function CreateProductsResource(AOwner : TComponent) : TProductsResource;virtual;overload;
Function CreateProductsResource : TProductsResource;virtual;overload;
+ Function CreateStorelayoutclustersResource(AOwner : TComponent) : TStorelayoutclustersResource;virtual;overload;
+ Function CreateStorelayoutclustersResource : TStorelayoutclustersResource;virtual;overload;
+ Function CreateStorelayoutpagesResource(AOwner : TComponent) : TStorelayoutpagesResource;virtual;overload;
+ Function CreateStorelayoutpagesResource : TStorelayoutpagesResource;virtual;overload;
Function CreateUsersResource(AOwner : TComponent) : TUsersResource;virtual;overload;
Function CreateUsersResource : TUsersResource;virtual;overload;
//Add default on-demand instances for resources
@@ -1054,6 +1491,8 @@ type
Property InstallsResource : TInstallsResource Read GetInstallsInstance;
Property PermissionsResource : TPermissionsResource Read GetPermissionsInstance;
Property ProductsResource : TProductsResource Read GetProductsInstance;
+ Property StorelayoutclustersResource : TStorelayoutclustersResource Read GetStorelayoutclustersInstance;
+ Property StorelayoutpagesResource : TStorelayoutpagesResource Read GetStorelayoutpagesInstance;
Property UsersResource : TUsersResource Read GetUsersInstance;
end;
@@ -1065,7 +1504,17 @@ implementation
--------------------------------------------------------------------}
-Procedure TAppRestrictionsSchema.Setrestrictions(AIndex : Integer; AValue : TAppRestrictionsSchemaTyperestrictionsArray);
+Procedure TAppRestrictionsSchema.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAppRestrictionsSchema.Setrestrictions(AIndex : Integer; const AValue : TAppRestrictionsSchemaTyperestrictionsArray);
begin
If (Frestrictions=AValue) then exit;
@@ -1095,7 +1544,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAppRestrictionsSchemaRestriction.SetdefaultValue(AIndex : Integer; AValue : TAppRestrictionsSchemaRestrictionRestrictionValue);
+Procedure TAppRestrictionsSchemaRestriction.SetdefaultValue(AIndex : Integer; const AValue : TAppRestrictionsSchemaRestrictionRestrictionValue);
begin
If (FdefaultValue=AValue) then exit;
@@ -1115,7 +1564,7 @@ end;
-Procedure TAppRestrictionsSchemaRestriction.Setentry(AIndex : Integer; AValue : TStringArray);
+Procedure TAppRestrictionsSchemaRestriction.Setentry(AIndex : Integer; const AValue : TStringArray);
begin
If (Fentry=AValue) then exit;
@@ -1125,7 +1574,7 @@ end;
-Procedure TAppRestrictionsSchemaRestriction.SetentryValue(AIndex : Integer; AValue : TStringArray);
+Procedure TAppRestrictionsSchemaRestriction.SetentryValue(AIndex : Integer; const AValue : TStringArray);
begin
If (FentryValue=AValue) then exit;
@@ -1196,7 +1645,7 @@ end;
-Procedure TAppRestrictionsSchemaRestrictionRestrictionValue.SetvalueBool(AIndex : Integer; AValue : boolean);
+Procedure TAppRestrictionsSchemaRestrictionRestrictionValue.SetvalueBool(AIndex : Integer; const AValue : boolean);
begin
If (FvalueBool=AValue) then exit;
@@ -1206,7 +1655,7 @@ end;
-Procedure TAppRestrictionsSchemaRestrictionRestrictionValue.SetvalueInteger(AIndex : Integer; AValue : integer);
+Procedure TAppRestrictionsSchemaRestrictionRestrictionValue.SetvalueInteger(AIndex : Integer; const AValue : integer);
begin
If (FvalueInteger=AValue) then exit;
@@ -1216,7 +1665,7 @@ end;
-Procedure TAppRestrictionsSchemaRestrictionRestrictionValue.SetvalueMultiselect(AIndex : Integer; AValue : TStringArray);
+Procedure TAppRestrictionsSchemaRestrictionRestrictionValue.SetvalueMultiselect(AIndex : Integer; const AValue : TStringArray);
begin
If (FvalueMultiselect=AValue) then exit;
@@ -1263,6 +1712,60 @@ end;
{ --------------------------------------------------------------------
+ TAppVersion
+ --------------------------------------------------------------------}
+
+
+Procedure TAppVersion.SetversionCode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FversionCode=AValue) then exit;
+ FversionCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAppVersion.SetversionString(AIndex : Integer; const AValue : String);
+
+begin
+ If (FversionString=AValue) then exit;
+ FversionString:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TApprovalUrlInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TApprovalUrlInfo.SetapprovalUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FapprovalUrl=AValue) then exit;
+ FapprovalUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApprovalUrlInfo.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TCollection
--------------------------------------------------------------------}
@@ -1297,7 +1800,7 @@ end;
-Procedure TCollection.SetproductId(AIndex : Integer; AValue : TStringArray);
+Procedure TCollection.SetproductId(AIndex : Integer; const AValue : TStringArray);
begin
If (FproductId=AValue) then exit;
@@ -1347,7 +1850,7 @@ end;
-Procedure TCollectionViewersListResponse.Setuser(AIndex : Integer; AValue : TCollectionViewersListResponseTypeuserArray);
+Procedure TCollectionViewersListResponse.Setuser(AIndex : Integer; const AValue : TCollectionViewersListResponseTypeuserArray);
begin
If (Fuser=AValue) then exit;
@@ -1377,7 +1880,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCollectionsListResponse.Setcollection(AIndex : Integer; AValue : TCollectionsListResponseTypecollectionArray);
+Procedure TCollectionsListResponse.Setcollection(AIndex : Integer; const AValue : TCollectionsListResponseTypecollectionArray);
begin
If (Fcollection=AValue) then exit;
@@ -1481,7 +1984,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDevicesListResponse.Setdevice(AIndex : Integer; AValue : TDevicesListResponseTypedeviceArray);
+Procedure TDevicesListResponse.Setdevice(AIndex : Integer; const AValue : TDevicesListResponseTypedeviceArray);
begin
If (Fdevice=AValue) then exit;
@@ -1595,7 +2098,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEnterprisesListResponse.Setenterprise(AIndex : Integer; AValue : TEnterprisesListResponseTypeenterpriseArray);
+Procedure TEnterprisesListResponse.Setenterprise(AIndex : Integer; const AValue : TEnterprisesListResponseTypeenterpriseArray);
begin
If (Fenterprise=AValue) then exit;
@@ -1631,6 +2134,33 @@ end;
{ --------------------------------------------------------------------
+ TEnterprisesSendTestPushNotificationResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TEnterprisesSendTestPushNotificationResponse.SetmessageId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmessageId=AValue) then exit;
+ FmessageId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnterprisesSendTestPushNotificationResponse.SettopicName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtopicName=AValue) then exit;
+ FtopicName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TEntitlement
--------------------------------------------------------------------}
@@ -1672,7 +2202,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEntitlementsListResponse.Setentitlement(AIndex : Integer; AValue : TEntitlementsListResponseTypeentitlementArray);
+Procedure TEntitlementsListResponse.Setentitlement(AIndex : Integer; const AValue : TEntitlementsListResponseTypeentitlementArray);
begin
If (Fentitlement=AValue) then exit;
@@ -1742,7 +2272,7 @@ end;
-Procedure TGroupLicense.SetnumProvisioned(AIndex : Integer; AValue : integer);
+Procedure TGroupLicense.SetnumProvisioned(AIndex : Integer; const AValue : integer);
begin
If (FnumProvisioned=AValue) then exit;
@@ -1752,7 +2282,7 @@ end;
-Procedure TGroupLicense.SetnumPurchased(AIndex : Integer; AValue : integer);
+Procedure TGroupLicense.SetnumPurchased(AIndex : Integer; const AValue : integer);
begin
If (FnumPurchased=AValue) then exit;
@@ -1789,7 +2319,7 @@ end;
-Procedure TGroupLicenseUsersListResponse.Setuser(AIndex : Integer; AValue : TGroupLicenseUsersListResponseTypeuserArray);
+Procedure TGroupLicenseUsersListResponse.Setuser(AIndex : Integer; const AValue : TGroupLicenseUsersListResponseTypeuserArray);
begin
If (Fuser=AValue) then exit;
@@ -1819,7 +2349,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGroupLicensesListResponse.SetgroupLicense(AIndex : Integer; AValue : TGroupLicensesListResponseTypegroupLicenseArray);
+Procedure TGroupLicensesListResponse.SetgroupLicense(AIndex : Integer; const AValue : TGroupLicensesListResponseTypegroupLicenseArray);
begin
If (FgroupLicense=AValue) then exit;
@@ -1889,7 +2419,7 @@ end;
-Procedure TInstall.SetversionCode(AIndex : Integer; AValue : integer);
+Procedure TInstall.SetversionCode(AIndex : Integer; const AValue : integer);
begin
If (FversionCode=AValue) then exit;
@@ -1906,7 +2436,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstallsListResponse.Setinstall(AIndex : Integer; AValue : TInstallsListResponseTypeinstallArray);
+Procedure TInstallsListResponse.Setinstall(AIndex : Integer; const AValue : TInstallsListResponseTypeinstallArray);
begin
If (Finstall=AValue) then exit;
@@ -1942,6 +2472,70 @@ end;
{ --------------------------------------------------------------------
+ TLocalizedText
+ --------------------------------------------------------------------}
+
+
+Procedure TLocalizedText.Setlocale(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocale=AValue) then exit;
+ Flocale:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLocalizedText.Settext(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftext=AValue) then exit;
+ Ftext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPageInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TPageInfo.SetresultPerPage(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FresultPerPage=AValue) then exit;
+ FresultPerPage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPageInfo.SetstartIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartIndex=AValue) then exit;
+ FstartIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPageInfo.SettotalResults(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalResults=AValue) then exit;
+ FtotalResults:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TPermission
--------------------------------------------------------------------}
@@ -1993,6 +2587,16 @@ end;
--------------------------------------------------------------------}
+Procedure TProduct.SetappVersion(AIndex : Integer; const AValue : TProductTypeappVersionArray);
+
+begin
+ If (FappVersion=AValue) then exit;
+ FappVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TProduct.SetauthorName(AIndex : Integer; const AValue : String);
begin
@@ -2013,6 +2617,16 @@ end;
+Procedure TProduct.SetdistributionChannel(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdistributionChannel=AValue) then exit;
+ FdistributionChannel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TProduct.SeticonUrl(AIndex : Integer; const AValue : String);
begin
@@ -2043,7 +2657,17 @@ end;
-Procedure TProduct.SetrequiresContainerApp(AIndex : Integer; AValue : boolean);
+Procedure TProduct.SetproductPricing(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproductPricing=AValue) then exit;
+ FproductPricing:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetrequiresContainerApp(AIndex : Integer; const AValue : boolean);
begin
If (FrequiresContainerApp=AValue) then exit;
@@ -2053,6 +2677,16 @@ end;
+Procedure TProduct.SetsmallIconUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsmallIconUrl=AValue) then exit;
+ FsmallIconUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TProduct.Settitle(AIndex : Integer; const AValue : String);
begin
@@ -2072,6 +2706,19 @@ begin
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TProduct.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'appversion' : SetLength(FappVersion,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
@@ -2117,7 +2764,7 @@ end;
-Procedure TProductPermissions.Setpermission(AIndex : Integer; AValue : TProductPermissionsTypepermissionArray);
+Procedure TProductPermissions.Setpermission(AIndex : Integer; const AValue : TProductPermissionsTypepermissionArray);
begin
If (Fpermission=AValue) then exit;
@@ -2153,6 +2800,406 @@ end;
{ --------------------------------------------------------------------
+ TProductSet
+ --------------------------------------------------------------------}
+
+
+Procedure TProductSet.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProductSet.SetproductId(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FproductId=AValue) then exit;
+ FproductId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TProductSet.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'productid' : SetLength(FproductId,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TProductsApproveRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TProductsApproveRequest.SetapprovalUrlInfo(AIndex : Integer; const AValue : TApprovalUrlInfo);
+
+begin
+ If (FapprovalUrlInfo=AValue) then exit;
+ FapprovalUrlInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TProductsGenerateApprovalUrlResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TProductsGenerateApprovalUrlResponse.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TProductsListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TProductsListResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProductsListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
+
+begin
+ If (FpageInfo=AValue) then exit;
+ FpageInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProductsListResponse.Setproduct(AIndex : Integer; const AValue : TProductsListResponseTypeproductArray);
+
+begin
+ If (Fproduct=AValue) then exit;
+ Fproduct:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProductsListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
+
+begin
+ If (FtokenPagination=AValue) then exit;
+ FtokenPagination:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TProductsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'product' : SetLength(Fproduct,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TStoreCluster
+ --------------------------------------------------------------------}
+
+
+Procedure TStoreCluster.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreCluster.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreCluster.Setname(AIndex : Integer; const AValue : TStoreClusterTypenameArray);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreCluster.SetorderInPage(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForderInPage=AValue) then exit;
+ ForderInPage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreCluster.SetproductId(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FproductId=AValue) then exit;
+ FproductId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStoreCluster.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'name' : SetLength(Fname,ALength);
+ 'productid' : SetLength(FproductId,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TStoreLayout
+ --------------------------------------------------------------------}
+
+
+Procedure TStoreLayout.SethomepageId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhomepageId=AValue) then exit;
+ FhomepageId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreLayout.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStoreLayoutClustersListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TStoreLayoutClustersListResponse.Setcluster(AIndex : Integer; const AValue : TStoreLayoutClustersListResponseTypeclusterArray);
+
+begin
+ If (Fcluster=AValue) then exit;
+ Fcluster:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreLayoutClustersListResponse.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 TStoreLayoutClustersListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'cluster' : SetLength(Fcluster,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TStoreLayoutPagesListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TStoreLayoutPagesListResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreLayoutPagesListResponse.Setpage(AIndex : Integer; const AValue : TStoreLayoutPagesListResponseTypepageArray);
+
+begin
+ If (Fpage=AValue) then exit;
+ Fpage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStoreLayoutPagesListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'page' : SetLength(Fpage,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TStorePage
+ --------------------------------------------------------------------}
+
+
+Procedure TStorePage.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStorePage.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStorePage.Setlink(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Flink=AValue) then exit;
+ Flink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStorePage.Setname(AIndex : Integer; const AValue : TStorePageTypenameArray);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStorePage.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'link' : SetLength(Flink,ALength);
+ 'name' : SetLength(Fname,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTokenPagination
+ --------------------------------------------------------------------}
+
+
+Procedure TTokenPagination.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTokenPagination.SetpreviousPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpreviousPageToken=AValue) then exit;
+ FpreviousPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TUser
--------------------------------------------------------------------}
@@ -2241,7 +3288,7 @@ end;
-Procedure TUsersListResponse.Setuser(AIndex : Integer; AValue : TUsersListResponseTypeuserArray);
+Procedure TUsersListResponse.Setuser(AIndex : Integer; const AValue : TUsersListResponseTypeuserArray);
begin
If (Fuser=AValue) then exit;
@@ -2618,6 +3665,21 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEnterprise) as TEnterprise;
end;
+Function TEnterprisesResource.GetStoreLayout(enterpriseId: string) : TStoreLayout;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'enterprises/{enterpriseId}/storeLayout';
+ _Methodid = 'androidenterprise.enterprises.getStoreLayout';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TStoreLayout) as TStoreLayout;
+end;
+
Function TEnterprisesResource.Insert(aEnterprise : TEnterprise; AQuery : string = '') : TEnterprise;
Const
@@ -2664,6 +3726,21 @@ begin
Result:=List(_Q);
end;
+Function TEnterprisesResource.SendTestPushNotification(enterpriseId: string) : TEnterprisesSendTestPushNotificationResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'enterprises/{enterpriseId}/sendTestPushNotification';
+ _Methodid = 'androidenterprise.enterprises.sendTestPushNotification';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEnterprisesSendTestPushNotificationResponse) as TEnterprisesSendTestPushNotificationResponse;
+end;
+
Function TEnterprisesResource.SetAccount(enterpriseId: string; aEnterpriseAccount : TEnterpriseAccount) : TEnterpriseAccount;
Const
@@ -2679,6 +3756,21 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',aEnterpriseAccount,TEnterpriseAccount) as TEnterpriseAccount;
end;
+Function TEnterprisesResource.SetStoreLayout(enterpriseId: string; aStoreLayout : TStoreLayout) : TStoreLayout;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'enterprises/{enterpriseId}/storeLayout';
+ _Methodid = 'androidenterprise.enterprises.setStoreLayout';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aStoreLayout,TStoreLayout) as TStoreLayout;
+end;
+
Procedure TEnterprisesResource.Unenroll(enterpriseId: string);
Const
@@ -3054,6 +4146,48 @@ begin
Result:=TandroidenterpriseAPI;
end;
+Procedure TProductsResource.Approve(enterpriseId: string; productId: string; aProductsApproveRequest : TProductsApproveRequest);
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'enterprises/{enterpriseId}/products/{productId}/approve';
+ _Methodid = 'androidenterprise.products.approve';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId,'productId',productId]);
+ ServiceCall(_HTTPMethod,_P,'',aProductsApproveRequest,Nil);
+end;
+
+Function TProductsResource.GenerateApprovalUrl(enterpriseId: string; productId: string; AQuery : string = '') : TProductsGenerateApprovalUrlResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'enterprises/{enterpriseId}/products/{productId}/generateApprovalUrl';
+ _Methodid = 'androidenterprise.products.generateApprovalUrl';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId,'productId',productId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TProductsGenerateApprovalUrlResponse) as TProductsGenerateApprovalUrlResponse;
+end;
+
+
+Function TProductsResource.GenerateApprovalUrl(enterpriseId: string; productId: string; AQuery : TProductsgenerateApprovalUrlOptions) : TProductsGenerateApprovalUrlResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'languageCode',AQuery.languageCode);
+ Result:=GenerateApprovalUrl(enterpriseId,productId,_Q);
+end;
+
Function TProductsResource.Get(enterpriseId: string; productId: string; AQuery : string = '') : TProduct;
Const
@@ -3123,6 +4257,37 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProductPermissions) as TProductPermissions;
end;
+Function TProductsResource.List(enterpriseId: string; AQuery : string = '') : TProductsListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'enterprises/{enterpriseId}/products';
+ _Methodid = 'androidenterprise.products.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TProductsListResponse) as TProductsListResponse;
+end;
+
+
+Function TProductsResource.List(enterpriseId: string; AQuery : TProductslistOptions) : TProductsListResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'approved',AQuery.approved);
+ AddToQuery(_Q,'language',AQuery.language);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'query',AQuery.query);
+ AddToQuery(_Q,'token',AQuery.token);
+ Result:=List(enterpriseId,_Q);
+end;
+
Function TProductsResource.UpdatePermissions(enterpriseId: string; productId: string; aProductPermissions : TProductPermissions) : TProductPermissions;
Const
@@ -3141,6 +4306,224 @@ end;
{ --------------------------------------------------------------------
+ TStorelayoutclustersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TStorelayoutclustersResource.ResourceName : String;
+
+begin
+ Result:='storelayoutclusters';
+end;
+
+Class Function TStorelayoutclustersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TandroidenterpriseAPI;
+end;
+
+Procedure TStorelayoutclustersResource.Delete(clusterId: string; enterpriseId: string; pageId: string);
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages/{pageId}/clusters/{clusterId}';
+ _Methodid = 'androidenterprise.storelayoutclusters.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clusterId',clusterId,'enterpriseId',enterpriseId,'pageId',pageId]);
+ ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+end;
+
+Function TStorelayoutclustersResource.Get(clusterId: string; enterpriseId: string; pageId: string) : TStoreCluster;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages/{pageId}/clusters/{clusterId}';
+ _Methodid = 'androidenterprise.storelayoutclusters.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clusterId',clusterId,'enterpriseId',enterpriseId,'pageId',pageId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TStoreCluster) as TStoreCluster;
+end;
+
+Function TStorelayoutclustersResource.Insert(enterpriseId: string; pageId: string; aStoreCluster : TStoreCluster) : TStoreCluster;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages/{pageId}/clusters';
+ _Methodid = 'androidenterprise.storelayoutclusters.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId,'pageId',pageId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aStoreCluster,TStoreCluster) as TStoreCluster;
+end;
+
+Function TStorelayoutclustersResource.List(enterpriseId: string; pageId: string) : TStoreLayoutClustersListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages/{pageId}/clusters';
+ _Methodid = 'androidenterprise.storelayoutclusters.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId,'pageId',pageId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TStoreLayoutClustersListResponse) as TStoreLayoutClustersListResponse;
+end;
+
+Function TStorelayoutclustersResource.Patch(clusterId: string; enterpriseId: string; pageId: string; aStoreCluster : TStoreCluster) : TStoreCluster;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages/{pageId}/clusters/{clusterId}';
+ _Methodid = 'androidenterprise.storelayoutclusters.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clusterId',clusterId,'enterpriseId',enterpriseId,'pageId',pageId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aStoreCluster,TStoreCluster) as TStoreCluster;
+end;
+
+Function TStorelayoutclustersResource.Update(clusterId: string; enterpriseId: string; pageId: string; aStoreCluster : TStoreCluster) : TStoreCluster;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages/{pageId}/clusters/{clusterId}';
+ _Methodid = 'androidenterprise.storelayoutclusters.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['clusterId',clusterId,'enterpriseId',enterpriseId,'pageId',pageId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aStoreCluster,TStoreCluster) as TStoreCluster;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TStorelayoutpagesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TStorelayoutpagesResource.ResourceName : String;
+
+begin
+ Result:='storelayoutpages';
+end;
+
+Class Function TStorelayoutpagesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TandroidenterpriseAPI;
+end;
+
+Procedure TStorelayoutpagesResource.Delete(enterpriseId: string; pageId: string);
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages/{pageId}';
+ _Methodid = 'androidenterprise.storelayoutpages.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId,'pageId',pageId]);
+ ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+end;
+
+Function TStorelayoutpagesResource.Get(enterpriseId: string; pageId: string) : TStorePage;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages/{pageId}';
+ _Methodid = 'androidenterprise.storelayoutpages.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId,'pageId',pageId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TStorePage) as TStorePage;
+end;
+
+Function TStorelayoutpagesResource.Insert(enterpriseId: string; aStorePage : TStorePage) : TStorePage;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages';
+ _Methodid = 'androidenterprise.storelayoutpages.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aStorePage,TStorePage) as TStorePage;
+end;
+
+Function TStorelayoutpagesResource.List(enterpriseId: string) : TStoreLayoutPagesListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages';
+ _Methodid = 'androidenterprise.storelayoutpages.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TStoreLayoutPagesListResponse) as TStoreLayoutPagesListResponse;
+end;
+
+Function TStorelayoutpagesResource.Patch(enterpriseId: string; pageId: string; aStorePage : TStorePage) : TStorePage;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages/{pageId}';
+ _Methodid = 'androidenterprise.storelayoutpages.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId,'pageId',pageId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aStorePage,TStorePage) as TStorePage;
+end;
+
+Function TStorelayoutpagesResource.Update(enterpriseId: string; pageId: string; aStorePage : TStorePage) : TStorePage;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'enterprises/{enterpriseId}/storeLayout/pages/{pageId}';
+ _Methodid = 'androidenterprise.storelayoutpages.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId,'pageId',pageId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aStorePage,TStorePage) as TStorePage;
+end;
+
+
+
+{ --------------------------------------------------------------------
TUsersResource
--------------------------------------------------------------------}
@@ -3187,6 +4570,21 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TUser) as TUser;
end;
+Function TUsersResource.GetAvailableProductSet(enterpriseId: string; userId: string) : TProductSet;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'enterprises/{enterpriseId}/users/{userId}/availableProductSet';
+ _Methodid = 'androidenterprise.users.getAvailableProductSet';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId,'userId',userId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProductSet) as TProductSet;
+end;
+
Function TUsersResource.List(enterpriseId: string; AQuery : string = '') : TUsersListResponse;
Const
@@ -3229,6 +4627,21 @@ begin
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;
+Function TUsersResource.SetAvailableProductSet(enterpriseId: string; userId: string; aProductSet : TProductSet) : TProductSet;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'enterprises/{enterpriseId}/users/{userId}/availableProductSet';
+ _Methodid = 'androidenterprise.users.setAvailableProductSet';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['enterpriseId',enterpriseId,'userId',userId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aProductSet,TProductSet) as TProductSet;
+end;
+
{ --------------------------------------------------------------------
@@ -3250,7 +4663,7 @@ end;
Class Function TAndroidenterpriseAPI.APIRevision : String;
begin
- Result:='20141112';
+ Result:='20160511';
end;
Class Function TAndroidenterpriseAPI.APIID : String;
@@ -3268,7 +4681,7 @@ end;
Class Function TAndroidenterpriseAPI.APIDescription : String;
begin
- Result:='Allows MDMs/EMMs and enterprises to manage the deployment of apps to Android for Work users.';
+ Result:='Manages the deployment of apps to Android for Work users.';
end;
Class Function TAndroidenterpriseAPI.APIOwnerDomain : String;
@@ -3298,13 +4711,13 @@ end;
Class Function TAndroidenterpriseAPI.APIdocumentationLink : String;
begin
- Result:='';
+ Result:='https://developers.google.com/android/work/play/emm-api';
end;
Class Function TAndroidenterpriseAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TAndroidenterpriseAPI.APIbasePath : string;
@@ -3316,7 +4729,7 @@ end;
Class Function TAndroidenterpriseAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/androidenterprise/v1/';
+ Result:='https://www.googleapis.com/androidenterprise/v1/';
end;
Class Function TAndroidenterpriseAPI.APIProtocol : string;
@@ -3358,6 +4771,8 @@ begin
TAppRestrictionsSchema.RegisterObject;
TAppRestrictionsSchemaRestriction.RegisterObject;
TAppRestrictionsSchemaRestrictionRestrictionValue.RegisterObject;
+ TAppVersion.RegisterObject;
+ TApprovalUrlInfo.RegisterObject;
TCollection.RegisterObject;
TCollectionViewersListResponse.RegisterObject;
TCollectionsListResponse.RegisterObject;
@@ -3367,6 +4782,7 @@ begin
TEnterprise.RegisterObject;
TEnterpriseAccount.RegisterObject;
TEnterprisesListResponse.RegisterObject;
+ TEnterprisesSendTestPushNotificationResponse.RegisterObject;
TEntitlement.RegisterObject;
TEntitlementsListResponse.RegisterObject;
TGroupLicense.RegisterObject;
@@ -3374,10 +4790,22 @@ begin
TGroupLicensesListResponse.RegisterObject;
TInstall.RegisterObject;
TInstallsListResponse.RegisterObject;
+ TLocalizedText.RegisterObject;
+ TPageInfo.RegisterObject;
TPermission.RegisterObject;
TProduct.RegisterObject;
TProductPermission.RegisterObject;
TProductPermissions.RegisterObject;
+ TProductSet.RegisterObject;
+ TProductsApproveRequest.RegisterObject;
+ TProductsGenerateApprovalUrlResponse.RegisterObject;
+ TProductsListResponse.RegisterObject;
+ TStoreCluster.RegisterObject;
+ TStoreLayout.RegisterObject;
+ TStoreLayoutClustersListResponse.RegisterObject;
+ TStoreLayoutPagesListResponse.RegisterObject;
+ TStorePage.RegisterObject;
+ TTokenPagination.RegisterObject;
TUser.RegisterObject;
TUserToken.RegisterObject;
TUsersListResponse.RegisterObject;
@@ -3624,6 +5052,54 @@ end;
+Function TAndroidenterpriseAPI.GetStorelayoutclustersInstance : TStorelayoutclustersResource;
+
+begin
+ if (FStorelayoutclustersInstance=Nil) then
+ FStorelayoutclustersInstance:=CreateStorelayoutclustersResource;
+ Result:=FStorelayoutclustersInstance;
+end;
+
+Function TAndroidenterpriseAPI.CreateStorelayoutclustersResource : TStorelayoutclustersResource;
+
+begin
+ Result:=CreateStorelayoutclustersResource(Self);
+end;
+
+
+Function TAndroidenterpriseAPI.CreateStorelayoutclustersResource(AOwner : TComponent) : TStorelayoutclustersResource;
+
+begin
+ Result:=TStorelayoutclustersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAndroidenterpriseAPI.GetStorelayoutpagesInstance : TStorelayoutpagesResource;
+
+begin
+ if (FStorelayoutpagesInstance=Nil) then
+ FStorelayoutpagesInstance:=CreateStorelayoutpagesResource;
+ Result:=FStorelayoutpagesInstance;
+end;
+
+Function TAndroidenterpriseAPI.CreateStorelayoutpagesResource : TStorelayoutpagesResource;
+
+begin
+ Result:=CreateStorelayoutpagesResource(Self);
+end;
+
+
+Function TAndroidenterpriseAPI.CreateStorelayoutpagesResource(AOwner : TComponent) : TStorelayoutpagesResource;
+
+begin
+ Result:=TStorelayoutpagesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TAndroidenterpriseAPI.GetUsersInstance : TUsersResource;
begin
diff --git a/packages/googleapi/src/googleandroidpublisher.pp b/packages/googleapi/src/googleandroidpublisher.pp
index 016e30079f..de85faa76e 100644
--- a/packages/googleapi/src/googleandroidpublisher.pp
+++ b/packages/googleapi/src/googleandroidpublisher.pp
@@ -1,19 +1,4 @@
unit googleandroidpublisher;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:58
{$MODE objfpc}
{$H+}
@@ -33,6 +18,8 @@ type
TApksListResponse = Class;
TAppDetails = Class;
TAppEdit = Class;
+ TComment = Class;
+ TDeveloperComment = Class;
TEntitlement = Class;
TEntitlementsListResponse = Class;
TExpansionFile = Class;
@@ -60,15 +47,23 @@ type
TPageInfo = Class;
TPrice = Class;
TProductPurchase = Class;
+ TProrate = Class;
+ TReview = Class;
+ TReviewReplyResult = Class;
+ TReviewsListResponse = Class;
+ TReviewsReplyRequest = Class;
+ TReviewsReplyResponse = Class;
TSeason = Class;
TSubscriptionDeferralInfo = Class;
TSubscriptionPurchase = Class;
TSubscriptionPurchasesDeferRequest = Class;
TSubscriptionPurchasesDeferResponse = Class;
TTesters = Class;
+ TTimestamp = Class;
TTokenPagination = Class;
TTrack = Class;
TTracksListResponse = Class;
+ TUserComment = Class;
TApkArray = Array of TApk;
TApkBinaryArray = Array of TApkBinary;
TApkListingArray = Array of TApkListing;
@@ -78,6 +73,8 @@ type
TApksListResponseArray = Array of TApksListResponse;
TAppDetailsArray = Array of TAppDetails;
TAppEditArray = Array of TAppEdit;
+ TCommentArray = Array of TComment;
+ TDeveloperCommentArray = Array of TDeveloperComment;
TEntitlementArray = Array of TEntitlement;
TEntitlementsListResponseArray = Array of TEntitlementsListResponse;
TExpansionFileArray = Array of TExpansionFile;
@@ -105,15 +102,23 @@ type
TPageInfoArray = Array of TPageInfo;
TPriceArray = Array of TPrice;
TProductPurchaseArray = Array of TProductPurchase;
+ TProrateArray = Array of TProrate;
+ TReviewArray = Array of TReview;
+ TReviewReplyResultArray = Array of TReviewReplyResult;
+ TReviewsListResponseArray = Array of TReviewsListResponse;
+ TReviewsReplyRequestArray = Array of TReviewsReplyRequest;
+ TReviewsReplyResponseArray = Array of TReviewsReplyResponse;
TSeasonArray = Array of TSeason;
TSubscriptionDeferralInfoArray = Array of TSubscriptionDeferralInfo;
TSubscriptionPurchaseArray = Array of TSubscriptionPurchase;
TSubscriptionPurchasesDeferRequestArray = Array of TSubscriptionPurchasesDeferRequest;
TSubscriptionPurchasesDeferResponseArray = Array of TSubscriptionPurchasesDeferResponse;
TTestersArray = Array of TTesters;
+ TTimestampArray = Array of TTimestamp;
TTokenPaginationArray = Array of TTokenPagination;
TTrackArray = Array of TTrack;
TTracksListResponseArray = Array of TTracksListResponse;
+ TUserCommentArray = Array of TUserComment;
//Anonymous types, using auto-generated names
TInAppProductTypelistings = Class;
TInAppProductTypeprices = Class;
@@ -127,6 +132,9 @@ type
TInappproductsBatchResponseTypeentrysArray = Array of TInappproductsBatchResponseEntry;
TInappproductsListResponseTypeinappproductArray = Array of TInAppProduct;
TListingsListResponseTypelistingsArray = Array of TListing;
+ TReviewTypecommentsArray = Array of TComment;
+ TReviewsListResponseTypereviewsArray = Array of TReview;
+ TSeasonTypeprorationsArray = Array of TProrate;
TTracksListResponseTypetracksArray = Array of TTrack;
{ --------------------------------------------------------------------
@@ -139,8 +147,8 @@ type
FversionCode : integer;
Protected
//Property setters
- Procedure Setbinary(AIndex : Integer; AValue : TApkBinary); virtual;
- Procedure SetversionCode(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setbinary(AIndex : Integer; const AValue : TApkBinary); virtual;
+ Procedure SetversionCode(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property binary : TApkBinary Index 0 Read Fbinary Write Setbinary;
@@ -194,7 +202,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlistings(AIndex : Integer; AValue : TApkListingsListResponseTypelistingsArray); virtual;
+ Procedure Setlistings(AIndex : Integer; const AValue : TApkListingsListResponseTypelistingsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -215,7 +223,7 @@ type
FexternallyHostedApk : TExternallyHostedApk;
Protected
//Property setters
- Procedure SetexternallyHostedApk(AIndex : Integer; AValue : TExternallyHostedApk); virtual;
+ Procedure SetexternallyHostedApk(AIndex : Integer; const AValue : TExternallyHostedApk); virtual;
Public
Published
Property externallyHostedApk : TExternallyHostedApk Index 0 Read FexternallyHostedApk Write SetexternallyHostedApk;
@@ -231,7 +239,7 @@ type
FexternallyHostedApk : TExternallyHostedApk;
Protected
//Property setters
- Procedure SetexternallyHostedApk(AIndex : Integer; AValue : TExternallyHostedApk); virtual;
+ Procedure SetexternallyHostedApk(AIndex : Integer; const AValue : TExternallyHostedApk); virtual;
Public
Published
Property externallyHostedApk : TExternallyHostedApk Index 0 Read FexternallyHostedApk Write SetexternallyHostedApk;
@@ -248,7 +256,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setapks(AIndex : Integer; AValue : TApksListResponseTypeapksArray); virtual;
+ Procedure Setapks(AIndex : Integer; const AValue : TApksListResponseTypeapksArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -306,6 +314,44 @@ type
TAppEditClass = Class of TAppEdit;
{ --------------------------------------------------------------------
+ TComment
+ --------------------------------------------------------------------}
+
+ TComment = Class(TGoogleBaseObject)
+ Private
+ FdeveloperComment : TDeveloperComment;
+ FuserComment : TUserComment;
+ Protected
+ //Property setters
+ Procedure SetdeveloperComment(AIndex : Integer; const AValue : TDeveloperComment); virtual;
+ Procedure SetuserComment(AIndex : Integer; const AValue : TUserComment); virtual;
+ Public
+ Published
+ Property developerComment : TDeveloperComment Index 0 Read FdeveloperComment Write SetdeveloperComment;
+ Property userComment : TUserComment Index 8 Read FuserComment Write SetuserComment;
+ end;
+ TCommentClass = Class of TComment;
+
+ { --------------------------------------------------------------------
+ TDeveloperComment
+ --------------------------------------------------------------------}
+
+ TDeveloperComment = Class(TGoogleBaseObject)
+ Private
+ FlastModified : TTimestamp;
+ Ftext : String;
+ Protected
+ //Property setters
+ Procedure SetlastModified(AIndex : Integer; const AValue : TTimestamp); virtual;
+ Procedure Settext(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property lastModified : TTimestamp Index 0 Read FlastModified Write SetlastModified;
+ Property text : String Index 8 Read Ftext Write Settext;
+ end;
+ TDeveloperCommentClass = Class of TDeveloperComment;
+
+ { --------------------------------------------------------------------
TEntitlement
--------------------------------------------------------------------}
@@ -341,9 +387,9 @@ type
FtokenPagination : TTokenPagination;
Protected
//Property setters
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TEntitlementsListResponseTyperesourcesArray); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TEntitlementsListResponseTyperesourcesArray); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -367,7 +413,7 @@ type
Protected
//Property setters
Procedure SetfileSize(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferencesVersion(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetreferencesVersion(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property fileSize : String Index 0 Read FfileSize Write SetfileSize;
@@ -384,7 +430,7 @@ type
FexpansionFile : TExpansionFile;
Protected
//Property setters
- Procedure SetexpansionFile(AIndex : Integer; AValue : TExpansionFile); virtual;
+ Procedure SetexpansionFile(AIndex : Integer; const AValue : TExpansionFile); virtual;
Public
Published
Property expansionFile : TExpansionFile Index 0 Read FexpansionFile Write SetexpansionFile;
@@ -415,19 +461,19 @@ type
Protected
//Property setters
Procedure SetapplicationLabel(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcertificateBase64s(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetcertificateBase64s(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetexternallyHostedUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileSha1Base64(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileSha256Base64(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileSize(AIndex : Integer; const AValue : String); virtual;
Procedure SeticonBase64(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaximumSdk(AIndex : Integer; AValue : integer); virtual;
- Procedure SetminimumSdk(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnativeCodes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetmaximumSdk(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetminimumSdk(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnativeCodes(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetpackageName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetusesFeatures(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetusesPermissions(AIndex : Integer; AValue : TExternallyHostedApkTypeusesPermissionsArray); virtual;
- Procedure SetversionCode(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetusesFeatures(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetusesPermissions(AIndex : Integer; const AValue : TExternallyHostedApkTypeusesPermissionsArray); virtual;
+ Procedure SetversionCode(AIndex : Integer; const AValue : integer); virtual;
Procedure SetversionName(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -463,7 +509,7 @@ type
Fname : String;
Protected
//Property setters
- Procedure SetmaxSdkVersion(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmaxSdkVersion(AIndex : Integer; const AValue : integer); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -503,7 +549,7 @@ type
Fdeleted : TImagesDeleteAllResponseTypedeletedArray;
Protected
//Property setters
- Procedure Setdeleted(AIndex : Integer; AValue : TImagesDeleteAllResponseTypedeletedArray); virtual;
+ Procedure Setdeleted(AIndex : Integer; const AValue : TImagesDeleteAllResponseTypedeletedArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -523,7 +569,7 @@ type
Fimages : TImagesListResponseTypeimagesArray;
Protected
//Property setters
- Procedure Setimages(AIndex : Integer; AValue : TImagesListResponseTypeimagesArray); virtual;
+ Procedure Setimages(AIndex : Integer; const AValue : TImagesListResponseTypeimagesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -543,7 +589,7 @@ type
Fimage : TImage;
Protected
//Property setters
- Procedure Setimage(AIndex : Integer; AValue : TImage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TImage); virtual;
Public
Published
Property image : TImage Index 0 Read Fimage Write Setimage;
@@ -598,12 +644,12 @@ type
Protected
//Property setters
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdefaultPrice(AIndex : Integer; AValue : TPrice); virtual;
- Procedure Setlistings(AIndex : Integer; AValue : TInAppProductTypelistings); virtual;
+ Procedure SetdefaultPrice(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure Setlistings(AIndex : Integer; const AValue : TInAppProductTypelistings); virtual;
Procedure SetpackageName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprices(AIndex : Integer; AValue : TInAppProductTypeprices); virtual;
+ Procedure Setprices(AIndex : Integer; const AValue : TInAppProductTypeprices); virtual;
Procedure SetpurchaseType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setseason(AIndex : Integer; AValue : TSeason); virtual;
+ Procedure Setseason(AIndex : Integer; const AValue : TSeason); virtual;
Procedure Setsku(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetsubscriptionPeriod(AIndex : Integer; const AValue : String); virtual;
@@ -652,7 +698,7 @@ type
Fentrys : TInappproductsBatchRequestTypeentrysArray;
Protected
//Property setters
- Procedure Setentrys(AIndex : Integer; AValue : TInappproductsBatchRequestTypeentrysArray); virtual;
+ Procedure Setentrys(AIndex : Integer; const AValue : TInappproductsBatchRequestTypeentrysArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -675,9 +721,9 @@ type
FmethodName : String;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Setinappproductsinsertrequest(AIndex : Integer; AValue : TInappproductsInsertRequest); virtual;
- Procedure Setinappproductsupdaterequest(AIndex : Integer; AValue : TInappproductsUpdateRequest); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setinappproductsinsertrequest(AIndex : Integer; const AValue : TInappproductsInsertRequest); virtual;
+ Procedure Setinappproductsupdaterequest(AIndex : Integer; const AValue : TInappproductsUpdateRequest); virtual;
Procedure SetmethodName(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -698,7 +744,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setentrys(AIndex : Integer; AValue : TInappproductsBatchResponseTypeentrysArray); virtual;
+ Procedure Setentrys(AIndex : Integer; const AValue : TInappproductsBatchResponseTypeentrysArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -722,9 +768,9 @@ type
Finappproductsupdateresponse : TInappproductsUpdateResponse;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Setinappproductsinsertresponse(AIndex : Integer; AValue : TInappproductsInsertResponse); virtual;
- Procedure Setinappproductsupdateresponse(AIndex : Integer; AValue : TInappproductsUpdateResponse); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setinappproductsinsertresponse(AIndex : Integer; const AValue : TInappproductsInsertResponse); virtual;
+ Procedure Setinappproductsupdateresponse(AIndex : Integer; const AValue : TInappproductsUpdateResponse); virtual;
Public
Published
Property batchId : integer Index 0 Read FbatchId Write SetbatchId;
@@ -742,7 +788,7 @@ type
Finappproduct : TInAppProduct;
Protected
//Property setters
- Procedure Setinappproduct(AIndex : Integer; AValue : TInAppProduct); virtual;
+ Procedure Setinappproduct(AIndex : Integer; const AValue : TInAppProduct); virtual;
Public
Published
Property inappproduct : TInAppProduct Index 0 Read Finappproduct Write Setinappproduct;
@@ -758,7 +804,7 @@ type
Finappproduct : TInAppProduct;
Protected
//Property setters
- Procedure Setinappproduct(AIndex : Integer; AValue : TInAppProduct); virtual;
+ Procedure Setinappproduct(AIndex : Integer; const AValue : TInAppProduct); virtual;
Public
Published
Property inappproduct : TInAppProduct Index 0 Read Finappproduct Write Setinappproduct;
@@ -777,10 +823,10 @@ type
FtokenPagination : TTokenPagination;
Protected
//Property setters
- Procedure Setinappproduct(AIndex : Integer; AValue : TInappproductsListResponseTypeinappproductArray); virtual;
+ Procedure Setinappproduct(AIndex : Integer; const AValue : TInappproductsListResponseTypeinappproductArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -803,7 +849,7 @@ type
Finappproduct : TInAppProduct;
Protected
//Property setters
- Procedure Setinappproduct(AIndex : Integer; AValue : TInAppProduct); virtual;
+ Procedure Setinappproduct(AIndex : Integer; const AValue : TInAppProduct); virtual;
Public
Published
Property inappproduct : TInAppProduct Index 0 Read Finappproduct Write Setinappproduct;
@@ -819,7 +865,7 @@ type
Finappproduct : TInAppProduct;
Protected
//Property setters
- Procedure Setinappproduct(AIndex : Integer; AValue : TInAppProduct); virtual;
+ Procedure Setinappproduct(AIndex : Integer; const AValue : TInAppProduct); virtual;
Public
Published
Property inappproduct : TInAppProduct Index 0 Read Finappproduct Write Setinappproduct;
@@ -865,7 +911,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlistings(AIndex : Integer; AValue : TListingsListResponseTypelistingsArray); virtual;
+ Procedure Setlistings(AIndex : Integer; const AValue : TListingsListResponseTypelistingsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -887,8 +933,8 @@ type
Fmonth : integer;
Protected
//Property setters
- Procedure Setday(AIndex : Integer; AValue : integer); virtual;
- Procedure Setmonth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setday(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmonth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property day : integer Index 0 Read Fday Write Setday;
@@ -907,9 +953,9 @@ type
FtotalResults : integer;
Protected
//Property setters
- Procedure SetresultPerPage(AIndex : Integer; AValue : integer); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetresultPerPage(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property resultPerPage : integer Index 0 Read FresultPerPage Write SetresultPerPage;
@@ -950,10 +996,10 @@ type
FpurchaseTimeMillis : String;
Protected
//Property setters
- Procedure SetconsumptionState(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetconsumptionState(AIndex : Integer; const AValue : integer); virtual;
Procedure SetdeveloperPayload(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpurchaseState(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetpurchaseState(AIndex : Integer; const AValue : integer); virtual;
Procedure SetpurchaseTimeMillis(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -966,22 +1012,151 @@ type
TProductPurchaseClass = Class of TProductPurchase;
{ --------------------------------------------------------------------
+ TProrate
+ --------------------------------------------------------------------}
+
+ TProrate = Class(TGoogleBaseObject)
+ Private
+ FdefaultPrice : TPrice;
+ Fstart : TMonthDay;
+ Protected
+ //Property setters
+ Procedure SetdefaultPrice(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : TMonthDay); virtual;
+ Public
+ Published
+ Property defaultPrice : TPrice Index 0 Read FdefaultPrice Write SetdefaultPrice;
+ Property start : TMonthDay Index 8 Read Fstart Write Setstart;
+ end;
+ TProrateClass = Class of TProrate;
+
+ { --------------------------------------------------------------------
+ TReview
+ --------------------------------------------------------------------}
+
+ TReview = Class(TGoogleBaseObject)
+ Private
+ FauthorName : String;
+ Fcomments : TReviewTypecommentsArray;
+ FreviewId : String;
+ Protected
+ //Property setters
+ Procedure SetauthorName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcomments(AIndex : Integer; const AValue : TReviewTypecommentsArray); virtual;
+ Procedure SetreviewId(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 authorName : String Index 0 Read FauthorName Write SetauthorName;
+ Property comments : TReviewTypecommentsArray Index 8 Read Fcomments Write Setcomments;
+ Property reviewId : String Index 16 Read FreviewId Write SetreviewId;
+ end;
+ TReviewClass = Class of TReview;
+
+ { --------------------------------------------------------------------
+ TReviewReplyResult
+ --------------------------------------------------------------------}
+
+ TReviewReplyResult = Class(TGoogleBaseObject)
+ Private
+ FlastEdited : TTimestamp;
+ FreplyText : String;
+ Protected
+ //Property setters
+ Procedure SetlastEdited(AIndex : Integer; const AValue : TTimestamp); virtual;
+ Procedure SetreplyText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property lastEdited : TTimestamp Index 0 Read FlastEdited Write SetlastEdited;
+ Property replyText : String Index 8 Read FreplyText Write SetreplyText;
+ end;
+ TReviewReplyResultClass = Class of TReviewReplyResult;
+
+ { --------------------------------------------------------------------
+ TReviewsListResponse
+ --------------------------------------------------------------------}
+
+ TReviewsListResponse = Class(TGoogleBaseObject)
+ Private
+ FpageInfo : TPageInfo;
+ Freviews : TReviewsListResponseTypereviewsArray;
+ FtokenPagination : TTokenPagination;
+ Protected
+ //Property setters
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
+ Procedure Setreviews(AIndex : Integer; const AValue : TReviewsListResponseTypereviewsArray); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property pageInfo : TPageInfo Index 0 Read FpageInfo Write SetpageInfo;
+ Property reviews : TReviewsListResponseTypereviewsArray Index 8 Read Freviews Write Setreviews;
+ Property tokenPagination : TTokenPagination Index 16 Read FtokenPagination Write SettokenPagination;
+ end;
+ TReviewsListResponseClass = Class of TReviewsListResponse;
+
+ { --------------------------------------------------------------------
+ TReviewsReplyRequest
+ --------------------------------------------------------------------}
+
+ TReviewsReplyRequest = Class(TGoogleBaseObject)
+ Private
+ FreplyText : String;
+ Protected
+ //Property setters
+ Procedure SetreplyText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property replyText : String Index 0 Read FreplyText Write SetreplyText;
+ end;
+ TReviewsReplyRequestClass = Class of TReviewsReplyRequest;
+
+ { --------------------------------------------------------------------
+ TReviewsReplyResponse
+ --------------------------------------------------------------------}
+
+ TReviewsReplyResponse = Class(TGoogleBaseObject)
+ Private
+ Fresult : TReviewReplyResult;
+ Protected
+ //Property setters
+ Procedure Setresult(AIndex : Integer; const AValue : TReviewReplyResult); virtual;
+ Public
+ Published
+ Property result : TReviewReplyResult Index 0 Read Fresult Write Setresult;
+ end;
+ TReviewsReplyResponseClass = Class of TReviewsReplyResponse;
+
+ { --------------------------------------------------------------------
TSeason
--------------------------------------------------------------------}
TSeason = Class(TGoogleBaseObject)
Private
F_end : TMonthDay;
+ Fprorations : TSeasonTypeprorationsArray;
Fstart : TMonthDay;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_end(AIndex : Integer; AValue : TMonthDay); virtual;
- Procedure Setstart(AIndex : Integer; AValue : TMonthDay); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : TMonthDay); virtual;
+ Procedure Setprorations(AIndex : Integer; const AValue : TSeasonTypeprorationsArray); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : TMonthDay); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
Property _end : TMonthDay Index 0 Read F_end Write Set_end;
- Property start : TMonthDay Index 8 Read Fstart Write Setstart;
+ Property prorations : TSeasonTypeprorationsArray Index 8 Read Fprorations Write Setprorations;
+ Property start : TMonthDay Index 16 Read Fstart Write Setstart;
end;
TSeasonClass = Class of TSeason;
@@ -1011,21 +1186,39 @@ type
TSubscriptionPurchase = Class(TGoogleBaseObject)
Private
FautoRenewing : boolean;
+ FcancelReason : integer;
+ FcountryCode : String;
+ FdeveloperPayload : String;
FexpiryTimeMillis : String;
Fkind : String;
+ FpaymentState : integer;
+ FpriceAmountMicros : String;
+ FpriceCurrencyCode : String;
FstartTimeMillis : String;
Protected
//Property setters
- Procedure SetautoRenewing(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetautoRenewing(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcancelReason(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetcountryCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdeveloperPayload(AIndex : Integer; const AValue : String); virtual;
Procedure SetexpiryTimeMillis(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpaymentState(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetpriceAmountMicros(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpriceCurrencyCode(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTimeMillis(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property autoRenewing : boolean Index 0 Read FautoRenewing Write SetautoRenewing;
- Property expiryTimeMillis : String Index 8 Read FexpiryTimeMillis Write SetexpiryTimeMillis;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property startTimeMillis : String Index 24 Read FstartTimeMillis Write SetstartTimeMillis;
+ Property cancelReason : integer Index 8 Read FcancelReason Write SetcancelReason;
+ Property countryCode : String Index 16 Read FcountryCode Write SetcountryCode;
+ Property developerPayload : String Index 24 Read FdeveloperPayload Write SetdeveloperPayload;
+ Property expiryTimeMillis : String Index 32 Read FexpiryTimeMillis Write SetexpiryTimeMillis;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property paymentState : integer Index 48 Read FpaymentState Write SetpaymentState;
+ Property priceAmountMicros : String Index 56 Read FpriceAmountMicros Write SetpriceAmountMicros;
+ Property priceCurrencyCode : String Index 64 Read FpriceCurrencyCode Write SetpriceCurrencyCode;
+ Property startTimeMillis : String Index 72 Read FstartTimeMillis Write SetstartTimeMillis;
end;
TSubscriptionPurchaseClass = Class of TSubscriptionPurchase;
@@ -1038,7 +1231,7 @@ type
FdeferralInfo : TSubscriptionDeferralInfo;
Protected
//Property setters
- Procedure SetdeferralInfo(AIndex : Integer; AValue : TSubscriptionDeferralInfo); virtual;
+ Procedure SetdeferralInfo(AIndex : Integer; const AValue : TSubscriptionDeferralInfo); virtual;
Public
Published
Property deferralInfo : TSubscriptionDeferralInfo Index 0 Read FdeferralInfo Write SetdeferralInfo;
@@ -1071,8 +1264,8 @@ type
FgooglePlusCommunities : TStringArray;
Protected
//Property setters
- Procedure SetgoogleGroups(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetgooglePlusCommunities(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetgoogleGroups(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetgooglePlusCommunities(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1085,6 +1278,25 @@ type
TTestersClass = Class of TTesters;
{ --------------------------------------------------------------------
+ TTimestamp
+ --------------------------------------------------------------------}
+
+ TTimestamp = Class(TGoogleBaseObject)
+ Private
+ Fnanos : integer;
+ Fseconds : String;
+ Protected
+ //Property setters
+ Procedure Setnanos(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setseconds(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property nanos : integer Index 0 Read Fnanos Write Setnanos;
+ Property seconds : String Index 8 Read Fseconds Write Setseconds;
+ end;
+ TTimestampClass = Class of TTimestamp;
+
+ { --------------------------------------------------------------------
TTokenPagination
--------------------------------------------------------------------}
@@ -1115,8 +1327,8 @@ type
Protected
//Property setters
Procedure Settrack(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserFraction(AIndex : Integer; AValue : double); virtual;
- Procedure SetversionCodes(AIndex : Integer; AValue : TintegerArray); virtual;
+ Procedure SetuserFraction(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetversionCodes(AIndex : Integer; const AValue : TintegerArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1140,7 +1352,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Settracks(AIndex : Integer; AValue : TTracksListResponseTypetracksArray); virtual;
+ Procedure Settracks(AIndex : Integer; const AValue : TTracksListResponseTypetracksArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1153,6 +1365,43 @@ type
TTracksListResponseClass = Class of TTracksListResponse;
{ --------------------------------------------------------------------
+ TUserComment
+ --------------------------------------------------------------------}
+
+ TUserComment = Class(TGoogleBaseObject)
+ Private
+ FandroidOsVersion : integer;
+ FappVersionCode : integer;
+ FappVersionName : String;
+ Fdevice : String;
+ FlastModified : TTimestamp;
+ FreviewerLanguage : String;
+ FstarRating : integer;
+ Ftext : String;
+ Protected
+ //Property setters
+ Procedure SetandroidOsVersion(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetappVersionCode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetappVersionName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdevice(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlastModified(AIndex : Integer; const AValue : TTimestamp); virtual;
+ Procedure SetreviewerLanguage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstarRating(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Settext(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property androidOsVersion : integer Index 0 Read FandroidOsVersion Write SetandroidOsVersion;
+ Property appVersionCode : integer Index 8 Read FappVersionCode Write SetappVersionCode;
+ Property appVersionName : String Index 16 Read FappVersionName Write SetappVersionName;
+ Property device : String Index 24 Read Fdevice Write Setdevice;
+ Property lastModified : TTimestamp Index 32 Read FlastModified Write SetlastModified;
+ Property reviewerLanguage : String Index 40 Read FreviewerLanguage Write SetreviewerLanguage;
+ Property starRating : integer Index 48 Read FstarRating Write SetstarRating;
+ Property text : String Index 56 Read Ftext Write Settext;
+ end;
+ TUserCommentClass = Class of TUserComment;
+
+ { --------------------------------------------------------------------
TEditsApklistingsResource
--------------------------------------------------------------------}
@@ -1456,6 +1705,30 @@ type
{ --------------------------------------------------------------------
+ TReviewsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TReviewsResource, method List
+
+ TReviewsListOptions = Record
+ maxResults : integer;
+ startIndex : integer;
+ token : String;
+ end;
+
+ TReviewsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(packageName: string; reviewId: string) : TReview;
+ Function List(packageName: string; AQuery : string = '') : TReviewsListResponse;
+ Function List(packageName: string; AQuery : TReviewslistOptions) : TReviewsListResponse;
+ Function Reply(packageName: string; reviewId: string; aReviewsReplyRequest : TReviewsReplyRequest) : TReviewsReplyResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
TAndroidpublisherAPI
--------------------------------------------------------------------}
@@ -1475,6 +1748,7 @@ type
FPurchasesProductsInstance : TPurchasesProductsResource;
FPurchasesSubscriptionsInstance : TPurchasesSubscriptionsResource;
FPurchasesInstance : TPurchasesResource;
+ FReviewsInstance : TReviewsResource;
Function GetEditsApklistingsInstance : TEditsApklistingsResource;virtual;
Function GetEditsApksInstance : TEditsApksResource;virtual;
Function GetEditsDetailsInstance : TEditsDetailsResource;virtual;
@@ -1489,6 +1763,7 @@ type
Function GetPurchasesProductsInstance : TPurchasesProductsResource;virtual;
Function GetPurchasesSubscriptionsInstance : TPurchasesSubscriptionsResource;virtual;
Function GetPurchasesInstance : TPurchasesResource;virtual;
+ Function GetReviewsInstance : TReviewsResource;virtual;
Public
//Override class functions with API info
Class Function APIName : String; override;
@@ -1540,6 +1815,8 @@ type
Function CreatePurchasesSubscriptionsResource : TPurchasesSubscriptionsResource;virtual;overload;
Function CreatePurchasesResource(AOwner : TComponent) : TPurchasesResource;virtual;overload;
Function CreatePurchasesResource : TPurchasesResource;virtual;overload;
+ Function CreateReviewsResource(AOwner : TComponent) : TReviewsResource;virtual;overload;
+ Function CreateReviewsResource : TReviewsResource;virtual;overload;
//Add default on-demand instances for resources
Property EditsApklistingsResource : TEditsApklistingsResource Read GetEditsApklistingsInstance;
Property EditsApksResource : TEditsApksResource Read GetEditsApksInstance;
@@ -1555,6 +1832,7 @@ type
Property PurchasesProductsResource : TPurchasesProductsResource Read GetPurchasesProductsInstance;
Property PurchasesSubscriptionsResource : TPurchasesSubscriptionsResource Read GetPurchasesSubscriptionsInstance;
Property PurchasesResource : TPurchasesResource Read GetPurchasesInstance;
+ Property ReviewsResource : TReviewsResource Read GetReviewsInstance;
end;
implementation
@@ -1565,7 +1843,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TApk.Setbinary(AIndex : Integer; AValue : TApkBinary);
+Procedure TApk.Setbinary(AIndex : Integer; const AValue : TApkBinary);
begin
If (Fbinary=AValue) then exit;
@@ -1575,7 +1853,7 @@ end;
-Procedure TApk.SetversionCode(AIndex : Integer; AValue : integer);
+Procedure TApk.SetversionCode(AIndex : Integer; const AValue : integer);
begin
If (FversionCode=AValue) then exit;
@@ -1646,7 +1924,7 @@ end;
-Procedure TApkListingsListResponse.Setlistings(AIndex : Integer; AValue : TApkListingsListResponseTypelistingsArray);
+Procedure TApkListingsListResponse.Setlistings(AIndex : Integer; const AValue : TApkListingsListResponseTypelistingsArray);
begin
If (Flistings=AValue) then exit;
@@ -1676,7 +1954,7 @@ end;
--------------------------------------------------------------------}
-Procedure TApksAddExternallyHostedRequest.SetexternallyHostedApk(AIndex : Integer; AValue : TExternallyHostedApk);
+Procedure TApksAddExternallyHostedRequest.SetexternallyHostedApk(AIndex : Integer; const AValue : TExternallyHostedApk);
begin
If (FexternallyHostedApk=AValue) then exit;
@@ -1693,7 +1971,7 @@ end;
--------------------------------------------------------------------}
-Procedure TApksAddExternallyHostedResponse.SetexternallyHostedApk(AIndex : Integer; AValue : TExternallyHostedApk);
+Procedure TApksAddExternallyHostedResponse.SetexternallyHostedApk(AIndex : Integer; const AValue : TExternallyHostedApk);
begin
If (FexternallyHostedApk=AValue) then exit;
@@ -1710,7 +1988,7 @@ end;
--------------------------------------------------------------------}
-Procedure TApksListResponse.Setapks(AIndex : Integer; AValue : TApksListResponseTypeapksArray);
+Procedure TApksListResponse.Setapks(AIndex : Integer; const AValue : TApksListResponseTypeapksArray);
begin
If (Fapks=AValue) then exit;
@@ -1820,6 +2098,60 @@ end;
{ --------------------------------------------------------------------
+ TComment
+ --------------------------------------------------------------------}
+
+
+Procedure TComment.SetdeveloperComment(AIndex : Integer; const AValue : TDeveloperComment);
+
+begin
+ If (FdeveloperComment=AValue) then exit;
+ FdeveloperComment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TComment.SetuserComment(AIndex : Integer; const AValue : TUserComment);
+
+begin
+ If (FuserComment=AValue) then exit;
+ FuserComment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeveloperComment
+ --------------------------------------------------------------------}
+
+
+Procedure TDeveloperComment.SetlastModified(AIndex : Integer; const AValue : TTimestamp);
+
+begin
+ If (FlastModified=AValue) then exit;
+ FlastModified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeveloperComment.Settext(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftext=AValue) then exit;
+ Ftext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TEntitlement
--------------------------------------------------------------------}
@@ -1871,7 +2203,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEntitlementsListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TEntitlementsListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -1881,7 +2213,7 @@ end;
-Procedure TEntitlementsListResponse.Setresources(AIndex : Integer; AValue : TEntitlementsListResponseTyperesourcesArray);
+Procedure TEntitlementsListResponse.Setresources(AIndex : Integer; const AValue : TEntitlementsListResponseTyperesourcesArray);
begin
If (Fresources=AValue) then exit;
@@ -1891,7 +2223,7 @@ end;
-Procedure TEntitlementsListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TEntitlementsListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -1931,7 +2263,7 @@ end;
-Procedure TExpansionFile.SetreferencesVersion(AIndex : Integer; AValue : integer);
+Procedure TExpansionFile.SetreferencesVersion(AIndex : Integer; const AValue : integer);
begin
If (FreferencesVersion=AValue) then exit;
@@ -1948,7 +2280,7 @@ end;
--------------------------------------------------------------------}
-Procedure TExpansionFilesUploadResponse.SetexpansionFile(AIndex : Integer; AValue : TExpansionFile);
+Procedure TExpansionFilesUploadResponse.SetexpansionFile(AIndex : Integer; const AValue : TExpansionFile);
begin
If (FexpansionFile=AValue) then exit;
@@ -1975,7 +2307,7 @@ end;
-Procedure TExternallyHostedApk.SetcertificateBase64s(AIndex : Integer; AValue : TStringArray);
+Procedure TExternallyHostedApk.SetcertificateBase64s(AIndex : Integer; const AValue : TStringArray);
begin
If (FcertificateBase64s=AValue) then exit;
@@ -2035,7 +2367,7 @@ end;
-Procedure TExternallyHostedApk.SetmaximumSdk(AIndex : Integer; AValue : integer);
+Procedure TExternallyHostedApk.SetmaximumSdk(AIndex : Integer; const AValue : integer);
begin
If (FmaximumSdk=AValue) then exit;
@@ -2045,7 +2377,7 @@ end;
-Procedure TExternallyHostedApk.SetminimumSdk(AIndex : Integer; AValue : integer);
+Procedure TExternallyHostedApk.SetminimumSdk(AIndex : Integer; const AValue : integer);
begin
If (FminimumSdk=AValue) then exit;
@@ -2055,7 +2387,7 @@ end;
-Procedure TExternallyHostedApk.SetnativeCodes(AIndex : Integer; AValue : TStringArray);
+Procedure TExternallyHostedApk.SetnativeCodes(AIndex : Integer; const AValue : TStringArray);
begin
If (FnativeCodes=AValue) then exit;
@@ -2075,7 +2407,7 @@ end;
-Procedure TExternallyHostedApk.SetusesFeatures(AIndex : Integer; AValue : TStringArray);
+Procedure TExternallyHostedApk.SetusesFeatures(AIndex : Integer; const AValue : TStringArray);
begin
If (FusesFeatures=AValue) then exit;
@@ -2085,7 +2417,7 @@ end;
-Procedure TExternallyHostedApk.SetusesPermissions(AIndex : Integer; AValue : TExternallyHostedApkTypeusesPermissionsArray);
+Procedure TExternallyHostedApk.SetusesPermissions(AIndex : Integer; const AValue : TExternallyHostedApkTypeusesPermissionsArray);
begin
If (FusesPermissions=AValue) then exit;
@@ -2095,7 +2427,7 @@ end;
-Procedure TExternallyHostedApk.SetversionCode(AIndex : Integer; AValue : integer);
+Procedure TExternallyHostedApk.SetversionCode(AIndex : Integer; const AValue : integer);
begin
If (FversionCode=AValue) then exit;
@@ -2138,7 +2470,7 @@ end;
--------------------------------------------------------------------}
-Procedure TExternallyHostedApkUsesPermission.SetmaxSdkVersion(AIndex : Integer; AValue : integer);
+Procedure TExternallyHostedApkUsesPermission.SetmaxSdkVersion(AIndex : Integer; const AValue : integer);
begin
If (FmaxSdkVersion=AValue) then exit;
@@ -2202,7 +2534,7 @@ end;
--------------------------------------------------------------------}
-Procedure TImagesDeleteAllResponse.Setdeleted(AIndex : Integer; AValue : TImagesDeleteAllResponseTypedeletedArray);
+Procedure TImagesDeleteAllResponse.Setdeleted(AIndex : Integer; const AValue : TImagesDeleteAllResponseTypedeletedArray);
begin
If (Fdeleted=AValue) then exit;
@@ -2232,7 +2564,7 @@ end;
--------------------------------------------------------------------}
-Procedure TImagesListResponse.Setimages(AIndex : Integer; AValue : TImagesListResponseTypeimagesArray);
+Procedure TImagesListResponse.Setimages(AIndex : Integer; const AValue : TImagesListResponseTypeimagesArray);
begin
If (Fimages=AValue) then exit;
@@ -2262,7 +2594,7 @@ end;
--------------------------------------------------------------------}
-Procedure TImagesUploadResponse.Setimage(AIndex : Integer; AValue : TImage);
+Procedure TImagesUploadResponse.Setimage(AIndex : Integer; const AValue : TImage);
begin
If (Fimage=AValue) then exit;
@@ -2315,7 +2647,7 @@ end;
-Procedure TInAppProduct.SetdefaultPrice(AIndex : Integer; AValue : TPrice);
+Procedure TInAppProduct.SetdefaultPrice(AIndex : Integer; const AValue : TPrice);
begin
If (FdefaultPrice=AValue) then exit;
@@ -2325,7 +2657,7 @@ end;
-Procedure TInAppProduct.Setlistings(AIndex : Integer; AValue : TInAppProductTypelistings);
+Procedure TInAppProduct.Setlistings(AIndex : Integer; const AValue : TInAppProductTypelistings);
begin
If (Flistings=AValue) then exit;
@@ -2345,7 +2677,7 @@ end;
-Procedure TInAppProduct.Setprices(AIndex : Integer; AValue : TInAppProductTypeprices);
+Procedure TInAppProduct.Setprices(AIndex : Integer; const AValue : TInAppProductTypeprices);
begin
If (Fprices=AValue) then exit;
@@ -2365,7 +2697,7 @@ end;
-Procedure TInAppProduct.Setseason(AIndex : Integer; AValue : TSeason);
+Procedure TInAppProduct.Setseason(AIndex : Integer; const AValue : TSeason);
begin
If (Fseason=AValue) then exit;
@@ -2449,7 +2781,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInappproductsBatchRequest.Setentrys(AIndex : Integer; AValue : TInappproductsBatchRequestTypeentrysArray);
+Procedure TInappproductsBatchRequest.Setentrys(AIndex : Integer; const AValue : TInappproductsBatchRequestTypeentrysArray);
begin
If (Fentrys=AValue) then exit;
@@ -2479,7 +2811,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInappproductsBatchRequestEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TInappproductsBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -2489,7 +2821,7 @@ end;
-Procedure TInappproductsBatchRequestEntry.Setinappproductsinsertrequest(AIndex : Integer; AValue : TInappproductsInsertRequest);
+Procedure TInappproductsBatchRequestEntry.Setinappproductsinsertrequest(AIndex : Integer; const AValue : TInappproductsInsertRequest);
begin
If (Finappproductsinsertrequest=AValue) then exit;
@@ -2499,7 +2831,7 @@ end;
-Procedure TInappproductsBatchRequestEntry.Setinappproductsupdaterequest(AIndex : Integer; AValue : TInappproductsUpdateRequest);
+Procedure TInappproductsBatchRequestEntry.Setinappproductsupdaterequest(AIndex : Integer; const AValue : TInappproductsUpdateRequest);
begin
If (Finappproductsupdaterequest=AValue) then exit;
@@ -2526,7 +2858,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInappproductsBatchResponse.Setentrys(AIndex : Integer; AValue : TInappproductsBatchResponseTypeentrysArray);
+Procedure TInappproductsBatchResponse.Setentrys(AIndex : Integer; const AValue : TInappproductsBatchResponseTypeentrysArray);
begin
If (Fentrys=AValue) then exit;
@@ -2566,7 +2898,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInappproductsBatchResponseEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TInappproductsBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -2576,7 +2908,7 @@ end;
-Procedure TInappproductsBatchResponseEntry.Setinappproductsinsertresponse(AIndex : Integer; AValue : TInappproductsInsertResponse);
+Procedure TInappproductsBatchResponseEntry.Setinappproductsinsertresponse(AIndex : Integer; const AValue : TInappproductsInsertResponse);
begin
If (Finappproductsinsertresponse=AValue) then exit;
@@ -2586,7 +2918,7 @@ end;
-Procedure TInappproductsBatchResponseEntry.Setinappproductsupdateresponse(AIndex : Integer; AValue : TInappproductsUpdateResponse);
+Procedure TInappproductsBatchResponseEntry.Setinappproductsupdateresponse(AIndex : Integer; const AValue : TInappproductsUpdateResponse);
begin
If (Finappproductsupdateresponse=AValue) then exit;
@@ -2603,7 +2935,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInappproductsInsertRequest.Setinappproduct(AIndex : Integer; AValue : TInAppProduct);
+Procedure TInappproductsInsertRequest.Setinappproduct(AIndex : Integer; const AValue : TInAppProduct);
begin
If (Finappproduct=AValue) then exit;
@@ -2620,7 +2952,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInappproductsInsertResponse.Setinappproduct(AIndex : Integer; AValue : TInAppProduct);
+Procedure TInappproductsInsertResponse.Setinappproduct(AIndex : Integer; const AValue : TInAppProduct);
begin
If (Finappproduct=AValue) then exit;
@@ -2637,7 +2969,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInappproductsListResponse.Setinappproduct(AIndex : Integer; AValue : TInappproductsListResponseTypeinappproductArray);
+Procedure TInappproductsListResponse.Setinappproduct(AIndex : Integer; const AValue : TInappproductsListResponseTypeinappproductArray);
begin
If (Finappproduct=AValue) then exit;
@@ -2657,7 +2989,7 @@ end;
-Procedure TInappproductsListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TInappproductsListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -2667,7 +2999,7 @@ end;
-Procedure TInappproductsListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TInappproductsListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -2697,7 +3029,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInappproductsUpdateRequest.Setinappproduct(AIndex : Integer; AValue : TInAppProduct);
+Procedure TInappproductsUpdateRequest.Setinappproduct(AIndex : Integer; const AValue : TInAppProduct);
begin
If (Finappproduct=AValue) then exit;
@@ -2714,7 +3046,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInappproductsUpdateResponse.Setinappproduct(AIndex : Integer; AValue : TInAppProduct);
+Procedure TInappproductsUpdateResponse.Setinappproduct(AIndex : Integer; const AValue : TInAppProduct);
begin
If (Finappproduct=AValue) then exit;
@@ -2798,7 +3130,7 @@ end;
-Procedure TListingsListResponse.Setlistings(AIndex : Integer; AValue : TListingsListResponseTypelistingsArray);
+Procedure TListingsListResponse.Setlistings(AIndex : Integer; const AValue : TListingsListResponseTypelistingsArray);
begin
If (Flistings=AValue) then exit;
@@ -2828,7 +3160,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMonthDay.Setday(AIndex : Integer; AValue : integer);
+Procedure TMonthDay.Setday(AIndex : Integer; const AValue : integer);
begin
If (Fday=AValue) then exit;
@@ -2838,7 +3170,7 @@ end;
-Procedure TMonthDay.Setmonth(AIndex : Integer; AValue : integer);
+Procedure TMonthDay.Setmonth(AIndex : Integer; const AValue : integer);
begin
If (Fmonth=AValue) then exit;
@@ -2855,7 +3187,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPageInfo.SetresultPerPage(AIndex : Integer; AValue : integer);
+Procedure TPageInfo.SetresultPerPage(AIndex : Integer; const AValue : integer);
begin
If (FresultPerPage=AValue) then exit;
@@ -2865,7 +3197,7 @@ end;
-Procedure TPageInfo.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TPageInfo.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -2875,7 +3207,7 @@ end;
-Procedure TPageInfo.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TPageInfo.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -2919,7 +3251,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProductPurchase.SetconsumptionState(AIndex : Integer; AValue : integer);
+Procedure TProductPurchase.SetconsumptionState(AIndex : Integer; const AValue : integer);
begin
If (FconsumptionState=AValue) then exit;
@@ -2949,7 +3281,7 @@ end;
-Procedure TProductPurchase.SetpurchaseState(AIndex : Integer; AValue : integer);
+Procedure TProductPurchase.SetpurchaseState(AIndex : Integer; const AValue : integer);
begin
If (FpurchaseState=AValue) then exit;
@@ -2972,11 +3304,199 @@ end;
{ --------------------------------------------------------------------
+ TProrate
+ --------------------------------------------------------------------}
+
+
+Procedure TProrate.SetdefaultPrice(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (FdefaultPrice=AValue) then exit;
+ FdefaultPrice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProrate.Setstart(AIndex : Integer; const AValue : TMonthDay);
+
+begin
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TReview
+ --------------------------------------------------------------------}
+
+
+Procedure TReview.SetauthorName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FauthorName=AValue) then exit;
+ FauthorName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReview.Setcomments(AIndex : Integer; const AValue : TReviewTypecommentsArray);
+
+begin
+ If (Fcomments=AValue) then exit;
+ Fcomments:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReview.SetreviewId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreviewId=AValue) then exit;
+ FreviewId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReview.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'comments' : SetLength(Fcomments,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TReviewReplyResult
+ --------------------------------------------------------------------}
+
+
+Procedure TReviewReplyResult.SetlastEdited(AIndex : Integer; const AValue : TTimestamp);
+
+begin
+ If (FlastEdited=AValue) then exit;
+ FlastEdited:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReviewReplyResult.SetreplyText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreplyText=AValue) then exit;
+ FreplyText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TReviewsListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TReviewsListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
+
+begin
+ If (FpageInfo=AValue) then exit;
+ FpageInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReviewsListResponse.Setreviews(AIndex : Integer; const AValue : TReviewsListResponseTypereviewsArray);
+
+begin
+ If (Freviews=AValue) then exit;
+ Freviews:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReviewsListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
+
+begin
+ If (FtokenPagination=AValue) then exit;
+ FtokenPagination:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReviewsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'reviews' : SetLength(Freviews,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TReviewsReplyRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TReviewsReplyRequest.SetreplyText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreplyText=AValue) then exit;
+ FreplyText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TReviewsReplyResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TReviewsReplyResponse.Setresult(AIndex : Integer; const AValue : TReviewReplyResult);
+
+begin
+ If (Fresult=AValue) then exit;
+ Fresult:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TSeason
--------------------------------------------------------------------}
-Procedure TSeason.Set_end(AIndex : Integer; AValue : TMonthDay);
+Procedure TSeason.Set_end(AIndex : Integer; const AValue : TMonthDay);
begin
If (F_end=AValue) then exit;
@@ -2986,7 +3506,17 @@ end;
-Procedure TSeason.Setstart(AIndex : Integer; AValue : TMonthDay);
+Procedure TSeason.Setprorations(AIndex : Integer; const AValue : TSeasonTypeprorationsArray);
+
+begin
+ If (Fprorations=AValue) then exit;
+ Fprorations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSeason.Setstart(AIndex : Integer; const AValue : TMonthDay);
begin
If (Fstart=AValue) then exit;
@@ -3006,6 +3536,19 @@ begin
end;
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSeason.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'prorations' : SetLength(Fprorations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
@@ -3041,7 +3584,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSubscriptionPurchase.SetautoRenewing(AIndex : Integer; AValue : boolean);
+Procedure TSubscriptionPurchase.SetautoRenewing(AIndex : Integer; const AValue : boolean);
begin
If (FautoRenewing=AValue) then exit;
@@ -3051,6 +3594,36 @@ end;
+Procedure TSubscriptionPurchase.SetcancelReason(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FcancelReason=AValue) then exit;
+ FcancelReason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubscriptionPurchase.SetcountryCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcountryCode=AValue) then exit;
+ FcountryCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubscriptionPurchase.SetdeveloperPayload(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdeveloperPayload=AValue) then exit;
+ FdeveloperPayload:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TSubscriptionPurchase.SetexpiryTimeMillis(AIndex : Integer; const AValue : String);
begin
@@ -3071,6 +3644,36 @@ end;
+Procedure TSubscriptionPurchase.SetpaymentState(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FpaymentState=AValue) then exit;
+ FpaymentState:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubscriptionPurchase.SetpriceAmountMicros(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpriceAmountMicros=AValue) then exit;
+ FpriceAmountMicros:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubscriptionPurchase.SetpriceCurrencyCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpriceCurrencyCode=AValue) then exit;
+ FpriceCurrencyCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TSubscriptionPurchase.SetstartTimeMillis(AIndex : Integer; const AValue : String);
begin
@@ -3088,7 +3691,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSubscriptionPurchasesDeferRequest.SetdeferralInfo(AIndex : Integer; AValue : TSubscriptionDeferralInfo);
+Procedure TSubscriptionPurchasesDeferRequest.SetdeferralInfo(AIndex : Integer; const AValue : TSubscriptionDeferralInfo);
begin
If (FdeferralInfo=AValue) then exit;
@@ -3122,7 +3725,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTesters.SetgoogleGroups(AIndex : Integer; AValue : TStringArray);
+Procedure TTesters.SetgoogleGroups(AIndex : Integer; const AValue : TStringArray);
begin
If (FgoogleGroups=AValue) then exit;
@@ -3132,7 +3735,7 @@ end;
-Procedure TTesters.SetgooglePlusCommunities(AIndex : Integer; AValue : TStringArray);
+Procedure TTesters.SetgooglePlusCommunities(AIndex : Integer; const AValue : TStringArray);
begin
If (FgooglePlusCommunities=AValue) then exit;
@@ -3159,6 +3762,33 @@ end;
{ --------------------------------------------------------------------
+ TTimestamp
+ --------------------------------------------------------------------}
+
+
+Procedure TTimestamp.Setnanos(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fnanos=AValue) then exit;
+ Fnanos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimestamp.Setseconds(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fseconds=AValue) then exit;
+ Fseconds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TTokenPagination
--------------------------------------------------------------------}
@@ -3200,7 +3830,7 @@ end;
-Procedure TTrack.SetuserFraction(AIndex : Integer; AValue : double);
+Procedure TTrack.SetuserFraction(AIndex : Integer; const AValue : double);
begin
If (FuserFraction=AValue) then exit;
@@ -3210,7 +3840,7 @@ end;
-Procedure TTrack.SetversionCodes(AIndex : Integer; AValue : TintegerArray);
+Procedure TTrack.SetversionCodes(AIndex : Integer; const AValue : TintegerArray);
begin
If (FversionCodes=AValue) then exit;
@@ -3250,7 +3880,7 @@ end;
-Procedure TTracksListResponse.Settracks(AIndex : Integer; AValue : TTracksListResponseTypetracksArray);
+Procedure TTracksListResponse.Settracks(AIndex : Integer; const AValue : TTracksListResponseTypetracksArray);
begin
If (Ftracks=AValue) then exit;
@@ -3276,6 +3906,93 @@ end;
{ --------------------------------------------------------------------
+ TUserComment
+ --------------------------------------------------------------------}
+
+
+Procedure TUserComment.SetandroidOsVersion(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FandroidOsVersion=AValue) then exit;
+ FandroidOsVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserComment.SetappVersionCode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FappVersionCode=AValue) then exit;
+ FappVersionCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserComment.SetappVersionName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FappVersionName=AValue) then exit;
+ FappVersionName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserComment.Setdevice(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdevice=AValue) then exit;
+ Fdevice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserComment.SetlastModified(AIndex : Integer; const AValue : TTimestamp);
+
+begin
+ If (FlastModified=AValue) then exit;
+ FlastModified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserComment.SetreviewerLanguage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreviewerLanguage=AValue) then exit;
+ FreviewerLanguage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserComment.SetstarRating(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstarRating=AValue) then exit;
+ FstarRating:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserComment.Settext(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftext=AValue) then exit;
+ Ftext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TEditsApklistingsResource
--------------------------------------------------------------------}
@@ -4623,6 +5340,84 @@ end;
{ --------------------------------------------------------------------
+ TReviewsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TReviewsResource.ResourceName : String;
+
+begin
+ Result:='reviews';
+end;
+
+Class Function TReviewsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TandroidpublisherAPI;
+end;
+
+Function TReviewsResource.Get(packageName: string; reviewId: string) : TReview;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{packageName}/reviews/{reviewId}';
+ _Methodid = 'androidpublisher.reviews.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['packageName',packageName,'reviewId',reviewId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TReview) as TReview;
+end;
+
+Function TReviewsResource.List(packageName: string; AQuery : string = '') : TReviewsListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{packageName}/reviews';
+ _Methodid = 'androidpublisher.reviews.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['packageName',packageName]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TReviewsListResponse) as TReviewsListResponse;
+end;
+
+
+Function TReviewsResource.List(packageName: string; AQuery : TReviewslistOptions) : TReviewsListResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'startIndex',AQuery.startIndex);
+ AddToQuery(_Q,'token',AQuery.token);
+ Result:=List(packageName,_Q);
+end;
+
+Function TReviewsResource.Reply(packageName: string; reviewId: string; aReviewsReplyRequest : TReviewsReplyRequest) : TReviewsReplyResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{packageName}/reviews/{reviewId}:reply';
+ _Methodid = 'androidpublisher.reviews.reply';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['packageName',packageName,'reviewId',reviewId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aReviewsReplyRequest,TReviewsReplyResponse) as TReviewsReplyResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
TAndroidpublisherAPI
--------------------------------------------------------------------}
@@ -4641,7 +5436,7 @@ end;
Class Function TAndroidpublisherAPI.APIRevision : String;
begin
- Result:='20150316';
+ Result:='20160516';
end;
Class Function TAndroidpublisherAPI.APIID : String;
@@ -4695,7 +5490,7 @@ end;
Class Function TAndroidpublisherAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TAndroidpublisherAPI.APIbasePath : string;
@@ -4707,7 +5502,7 @@ end;
Class Function TAndroidpublisherAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/androidpublisher/v2/applications/';
+ Result:='https://www.googleapis.com/androidpublisher/v2/applications/';
end;
Class Function TAndroidpublisherAPI.APIProtocol : string;
@@ -4755,6 +5550,8 @@ begin
TApksListResponse.RegisterObject;
TAppDetails.RegisterObject;
TAppEdit.RegisterObject;
+ TComment.RegisterObject;
+ TDeveloperComment.RegisterObject;
TEntitlement.RegisterObject;
TEntitlementsListResponse.RegisterObject;
TExpansionFile.RegisterObject;
@@ -4784,15 +5581,23 @@ begin
TPageInfo.RegisterObject;
TPrice.RegisterObject;
TProductPurchase.RegisterObject;
+ TProrate.RegisterObject;
+ TReview.RegisterObject;
+ TReviewReplyResult.RegisterObject;
+ TReviewsListResponse.RegisterObject;
+ TReviewsReplyRequest.RegisterObject;
+ TReviewsReplyResponse.RegisterObject;
TSeason.RegisterObject;
TSubscriptionDeferralInfo.RegisterObject;
TSubscriptionPurchase.RegisterObject;
TSubscriptionPurchasesDeferRequest.RegisterObject;
TSubscriptionPurchasesDeferResponse.RegisterObject;
TTesters.RegisterObject;
+ TTimestamp.RegisterObject;
TTokenPagination.RegisterObject;
TTrack.RegisterObject;
TTracksListResponse.RegisterObject;
+ TUserComment.RegisterObject;
end;
@@ -5132,6 +5937,30 @@ end;
+Function TAndroidpublisherAPI.GetReviewsInstance : TReviewsResource;
+
+begin
+ if (FReviewsInstance=Nil) then
+ FReviewsInstance:=CreateReviewsResource;
+ Result:=FReviewsInstance;
+end;
+
+Function TAndroidpublisherAPI.CreateReviewsResource : TReviewsResource;
+
+begin
+ Result:=CreateReviewsResource(Self);
+end;
+
+
+Function TAndroidpublisherAPI.CreateReviewsResource(AOwner : TComponent) : TReviewsResource;
+
+begin
+ Result:=TReviewsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
initialization
TAndroidpublisherAPI.RegisterAPI;
end.
diff --git a/packages/googleapi/src/googleappengine.pp b/packages/googleapi/src/googleappengine.pp
new file mode 100644
index 0000000000..b79354e1ec
--- /dev/null
+++ b/packages/googleapi/src/googleappengine.pp
@@ -0,0 +1,4370 @@
+unit googleappengine;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TOperation = Class;
+ TStatus = Class;
+ TListOperationsResponse = Class;
+ TApplication = Class;
+ TUrlDispatchRule = Class;
+ TVersion = Class;
+ TAutomaticScaling = Class;
+ TCpuUtilization = Class;
+ TRequestUtilization = Class;
+ TDiskUtilization = Class;
+ TNetworkUtilization = Class;
+ TBasicScaling = Class;
+ TManualScaling = Class;
+ TNetwork = Class;
+ TResources = Class;
+ TUrlMap = Class;
+ TStaticFilesHandler = Class;
+ TScriptHandler = Class;
+ TApiEndpointHandler = Class;
+ TErrorHandler = Class;
+ TLibrary = Class;
+ TApiConfigHandler = Class;
+ THealthCheck = Class;
+ TDeployment = Class;
+ TFileInfo = Class;
+ TContainerInfo = Class;
+ TSourceReference = Class;
+ TListVersionsResponse = Class;
+ TService = Class;
+ TTrafficSplit = Class;
+ TListServicesResponse = Class;
+ TListInstancesResponse = Class;
+ TInstance = Class;
+ TOperationMetadata = Class;
+ TOperationMetadataV1Beta5 = Class;
+ TOperationArray = Array of TOperation;
+ TStatusArray = Array of TStatus;
+ TListOperationsResponseArray = Array of TListOperationsResponse;
+ TApplicationArray = Array of TApplication;
+ TUrlDispatchRuleArray = Array of TUrlDispatchRule;
+ TVersionArray = Array of TVersion;
+ TAutomaticScalingArray = Array of TAutomaticScaling;
+ TCpuUtilizationArray = Array of TCpuUtilization;
+ TRequestUtilizationArray = Array of TRequestUtilization;
+ TDiskUtilizationArray = Array of TDiskUtilization;
+ TNetworkUtilizationArray = Array of TNetworkUtilization;
+ TBasicScalingArray = Array of TBasicScaling;
+ TManualScalingArray = Array of TManualScaling;
+ TNetworkArray = Array of TNetwork;
+ TResourcesArray = Array of TResources;
+ TUrlMapArray = Array of TUrlMap;
+ TStaticFilesHandlerArray = Array of TStaticFilesHandler;
+ TScriptHandlerArray = Array of TScriptHandler;
+ TApiEndpointHandlerArray = Array of TApiEndpointHandler;
+ TErrorHandlerArray = Array of TErrorHandler;
+ TLibraryArray = Array of TLibrary;
+ TApiConfigHandlerArray = Array of TApiConfigHandler;
+ THealthCheckArray = Array of THealthCheck;
+ TDeploymentArray = Array of TDeployment;
+ TFileInfoArray = Array of TFileInfo;
+ TContainerInfoArray = Array of TContainerInfo;
+ TSourceReferenceArray = Array of TSourceReference;
+ TListVersionsResponseArray = Array of TListVersionsResponse;
+ TServiceArray = Array of TService;
+ TTrafficSplitArray = Array of TTrafficSplit;
+ TListServicesResponseArray = Array of TListServicesResponse;
+ TListInstancesResponseArray = Array of TListInstancesResponse;
+ TInstanceArray = Array of TInstance;
+ TOperationMetadataArray = Array of TOperationMetadata;
+ TOperationMetadataV1Beta5Array = Array of TOperationMetadataV1Beta5;
+ //Anonymous types, using auto-generated names
+ TOperationTypemetadata = Class;
+ TOperationTyperesponse = Class;
+ TStatusTypedetailsItem = Class;
+ TVersionTypebetaSettings = Class;
+ TVersionTypeenvVariables = Class;
+ TStaticFilesHandlerTypehttpHeaders = Class;
+ TDeploymentTypefiles = Class;
+ TTrafficSplitTypeallocations = Class;
+ TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
+ TListOperationsResponseTypeoperationsArray = Array of TOperation;
+ TApplicationTypedispatchRulesArray = Array of TUrlDispatchRule;
+ TVersionTypehandlersArray = Array of TUrlMap;
+ TVersionTypeerrorHandlersArray = Array of TErrorHandler;
+ TVersionTypelibrariesArray = Array of TLibrary;
+ TDeploymentTypesourceReferencesArray = Array of TSourceReference;
+ TListVersionsResponseTypeversionsArray = Array of TVersion;
+ TListServicesResponseTypeservicesArray = Array of TService;
+ TListInstancesResponseTypeinstancesArray = Array of TInstance;
+
+ { --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+ TOperationTypemetadata = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTypemetadataClass = Class of TOperationTypemetadata;
+
+ { --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+ TOperationTyperesponse = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTyperesponseClass = Class of TOperationTyperesponse;
+
+ { --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+ TOperation = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fmetadata : TOperationTypemetadata;
+ Fdone : boolean;
+ Ferror : TStatus;
+ Fresponse : TOperationTyperesponse;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); virtual;
+ Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
+ Procedure Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property metadata : TOperationTypemetadata Index 8 Read Fmetadata Write Setmetadata;
+ Property done : boolean Index 16 Read Fdone Write Setdone;
+ Property error : TStatus Index 24 Read Ferror Write Seterror;
+ Property response : TOperationTyperesponse Index 32 Read Fresponse Write Setresponse;
+ end;
+ TOperationClass = Class of TOperation;
+
+ { --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+ TStatusTypedetailsItem = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
+
+ { --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+ TStatus = Class(TGoogleBaseObject)
+ Private
+ Fcode : integer;
+ Fmessage : String;
+ Fdetails : TStatusTypedetailsArray;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property code : integer Index 0 Read Fcode Write Setcode;
+ Property message : String Index 8 Read Fmessage Write Setmessage;
+ Property details : TStatusTypedetailsArray Index 16 Read Fdetails Write Setdetails;
+ end;
+ TStatusClass = Class of TStatus;
+
+ { --------------------------------------------------------------------
+ TListOperationsResponse
+ --------------------------------------------------------------------}
+
+ TListOperationsResponse = Class(TGoogleBaseObject)
+ Private
+ Foperations : TListOperationsResponseTypeoperationsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray); 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 operations : TListOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListOperationsResponseClass = Class of TListOperationsResponse;
+
+ { --------------------------------------------------------------------
+ TApplication
+ --------------------------------------------------------------------}
+
+ TApplication = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fid : String;
+ FdispatchRules : TApplicationTypedispatchRulesArray;
+ FauthDomain : String;
+ Flocation : String;
+ FcodeBucket : String;
+ FdefaultCookieExpiration : String;
+ FdefaultHostname : String;
+ FdefaultBucket : String;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdispatchRules(AIndex : Integer; const AValue : TApplicationTypedispatchRulesArray); virtual;
+ Procedure SetauthDomain(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcodeBucket(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdefaultCookieExpiration(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdefaultHostname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdefaultBucket(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 name : String Index 0 Read Fname Write Setname;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property dispatchRules : TApplicationTypedispatchRulesArray Index 16 Read FdispatchRules Write SetdispatchRules;
+ Property authDomain : String Index 24 Read FauthDomain Write SetauthDomain;
+ Property location : String Index 32 Read Flocation Write Setlocation;
+ Property codeBucket : String Index 40 Read FcodeBucket Write SetcodeBucket;
+ Property defaultCookieExpiration : String Index 48 Read FdefaultCookieExpiration Write SetdefaultCookieExpiration;
+ Property defaultHostname : String Index 56 Read FdefaultHostname Write SetdefaultHostname;
+ Property defaultBucket : String Index 64 Read FdefaultBucket Write SetdefaultBucket;
+ end;
+ TApplicationClass = Class of TApplication;
+
+ { --------------------------------------------------------------------
+ TUrlDispatchRule
+ --------------------------------------------------------------------}
+
+ TUrlDispatchRule = Class(TGoogleBaseObject)
+ Private
+ Fdomain : String;
+ Fpath : String;
+ Fservice : String;
+ Protected
+ //Property setters
+ Procedure Setdomain(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setservice(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property domain : String Index 0 Read Fdomain Write Setdomain;
+ Property path : String Index 8 Read Fpath Write Setpath;
+ Property service : String Index 16 Read Fservice Write Setservice;
+ end;
+ TUrlDispatchRuleClass = Class of TUrlDispatchRule;
+
+ { --------------------------------------------------------------------
+ TVersionTypebetaSettings
+ --------------------------------------------------------------------}
+
+ TVersionTypebetaSettings = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TVersionTypebetaSettingsClass = Class of TVersionTypebetaSettings;
+
+ { --------------------------------------------------------------------
+ TVersionTypeenvVariables
+ --------------------------------------------------------------------}
+
+ TVersionTypeenvVariables = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TVersionTypeenvVariablesClass = Class of TVersionTypeenvVariables;
+
+ { --------------------------------------------------------------------
+ TVersion
+ --------------------------------------------------------------------}
+
+ TVersion = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fid : String;
+ FautomaticScaling : TAutomaticScaling;
+ FbasicScaling : TBasicScaling;
+ FmanualScaling : TManualScaling;
+ FinboundServices : TStringArray;
+ FinstanceClass : String;
+ Fnetwork : TNetwork;
+ Fresources : TResources;
+ Fruntime : String;
+ Fthreadsafe : boolean;
+ Fvm : boolean;
+ FbetaSettings : TVersionTypebetaSettings;
+ Fenv : String;
+ FservingStatus : String;
+ Fdeployer : String;
+ FcreationTime : String;
+ FdiskUsageBytes : String;
+ Fhandlers : TVersionTypehandlersArray;
+ FerrorHandlers : TVersionTypeerrorHandlersArray;
+ Flibraries : TVersionTypelibrariesArray;
+ FapiConfig : TApiConfigHandler;
+ FenvVariables : TVersionTypeenvVariables;
+ FdefaultExpiration : String;
+ FhealthCheck : THealthCheck;
+ FnobuildFilesRegex : String;
+ Fdeployment : TDeployment;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetautomaticScaling(AIndex : Integer; const AValue : TAutomaticScaling); virtual;
+ Procedure SetbasicScaling(AIndex : Integer; const AValue : TBasicScaling); virtual;
+ Procedure SetmanualScaling(AIndex : Integer; const AValue : TManualScaling); virtual;
+ Procedure SetinboundServices(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetinstanceClass(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnetwork(AIndex : Integer; const AValue : TNetwork); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TResources); virtual;
+ Procedure Setruntime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setthreadsafe(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setvm(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetbetaSettings(AIndex : Integer; const AValue : TVersionTypebetaSettings); virtual;
+ Procedure Setenv(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetservingStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdeployer(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdiskUsageBytes(AIndex : Integer; const AValue : String); virtual;
+ Procedure Sethandlers(AIndex : Integer; const AValue : TVersionTypehandlersArray); virtual;
+ Procedure SeterrorHandlers(AIndex : Integer; const AValue : TVersionTypeerrorHandlersArray); virtual;
+ Procedure Setlibraries(AIndex : Integer; const AValue : TVersionTypelibrariesArray); virtual;
+ Procedure SetapiConfig(AIndex : Integer; const AValue : TApiConfigHandler); virtual;
+ Procedure SetenvVariables(AIndex : Integer; const AValue : TVersionTypeenvVariables); virtual;
+ Procedure SetdefaultExpiration(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethealthCheck(AIndex : Integer; const AValue : THealthCheck); virtual;
+ Procedure SetnobuildFilesRegex(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdeployment(AIndex : Integer; const AValue : TDeployment); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property automaticScaling : TAutomaticScaling Index 16 Read FautomaticScaling Write SetautomaticScaling;
+ Property basicScaling : TBasicScaling Index 24 Read FbasicScaling Write SetbasicScaling;
+ Property manualScaling : TManualScaling Index 32 Read FmanualScaling Write SetmanualScaling;
+ Property inboundServices : TStringArray Index 40 Read FinboundServices Write SetinboundServices;
+ Property instanceClass : String Index 48 Read FinstanceClass Write SetinstanceClass;
+ Property network : TNetwork Index 56 Read Fnetwork Write Setnetwork;
+ Property resources : TResources Index 64 Read Fresources Write Setresources;
+ Property runtime : String Index 72 Read Fruntime Write Setruntime;
+ Property threadsafe : boolean Index 80 Read Fthreadsafe Write Setthreadsafe;
+ Property vm : boolean Index 88 Read Fvm Write Setvm;
+ Property betaSettings : TVersionTypebetaSettings Index 96 Read FbetaSettings Write SetbetaSettings;
+ Property env : String Index 104 Read Fenv Write Setenv;
+ Property servingStatus : String Index 112 Read FservingStatus Write SetservingStatus;
+ Property deployer : String Index 120 Read Fdeployer Write Setdeployer;
+ Property creationTime : String Index 128 Read FcreationTime Write SetcreationTime;
+ Property diskUsageBytes : String Index 136 Read FdiskUsageBytes Write SetdiskUsageBytes;
+ Property handlers : TVersionTypehandlersArray Index 144 Read Fhandlers Write Sethandlers;
+ Property errorHandlers : TVersionTypeerrorHandlersArray Index 152 Read FerrorHandlers Write SeterrorHandlers;
+ Property libraries : TVersionTypelibrariesArray Index 160 Read Flibraries Write Setlibraries;
+ Property apiConfig : TApiConfigHandler Index 168 Read FapiConfig Write SetapiConfig;
+ Property envVariables : TVersionTypeenvVariables Index 176 Read FenvVariables Write SetenvVariables;
+ Property defaultExpiration : String Index 184 Read FdefaultExpiration Write SetdefaultExpiration;
+ Property healthCheck : THealthCheck Index 192 Read FhealthCheck Write SethealthCheck;
+ Property nobuildFilesRegex : String Index 200 Read FnobuildFilesRegex Write SetnobuildFilesRegex;
+ Property deployment : TDeployment Index 208 Read Fdeployment Write Setdeployment;
+ end;
+ TVersionClass = Class of TVersion;
+
+ { --------------------------------------------------------------------
+ TAutomaticScaling
+ --------------------------------------------------------------------}
+
+ TAutomaticScaling = Class(TGoogleBaseObject)
+ Private
+ FcoolDownPeriod : String;
+ FcpuUtilization : TCpuUtilization;
+ FmaxConcurrentRequests : integer;
+ FmaxIdleInstances : integer;
+ FmaxTotalInstances : integer;
+ FmaxPendingLatency : String;
+ FminIdleInstances : integer;
+ FminTotalInstances : integer;
+ FminPendingLatency : String;
+ FrequestUtilization : TRequestUtilization;
+ FdiskUtilization : TDiskUtilization;
+ FnetworkUtilization : TNetworkUtilization;
+ Protected
+ //Property setters
+ Procedure SetcoolDownPeriod(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcpuUtilization(AIndex : Integer; const AValue : TCpuUtilization); virtual;
+ Procedure SetmaxConcurrentRequests(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaxIdleInstances(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaxTotalInstances(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaxPendingLatency(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetminIdleInstances(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetminTotalInstances(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetminPendingLatency(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrequestUtilization(AIndex : Integer; const AValue : TRequestUtilization); virtual;
+ Procedure SetdiskUtilization(AIndex : Integer; const AValue : TDiskUtilization); virtual;
+ Procedure SetnetworkUtilization(AIndex : Integer; const AValue : TNetworkUtilization); virtual;
+ Public
+ Published
+ Property coolDownPeriod : String Index 0 Read FcoolDownPeriod Write SetcoolDownPeriod;
+ Property cpuUtilization : TCpuUtilization Index 8 Read FcpuUtilization Write SetcpuUtilization;
+ Property maxConcurrentRequests : integer Index 16 Read FmaxConcurrentRequests Write SetmaxConcurrentRequests;
+ Property maxIdleInstances : integer Index 24 Read FmaxIdleInstances Write SetmaxIdleInstances;
+ Property maxTotalInstances : integer Index 32 Read FmaxTotalInstances Write SetmaxTotalInstances;
+ Property maxPendingLatency : String Index 40 Read FmaxPendingLatency Write SetmaxPendingLatency;
+ Property minIdleInstances : integer Index 48 Read FminIdleInstances Write SetminIdleInstances;
+ Property minTotalInstances : integer Index 56 Read FminTotalInstances Write SetminTotalInstances;
+ Property minPendingLatency : String Index 64 Read FminPendingLatency Write SetminPendingLatency;
+ Property requestUtilization : TRequestUtilization Index 72 Read FrequestUtilization Write SetrequestUtilization;
+ Property diskUtilization : TDiskUtilization Index 80 Read FdiskUtilization Write SetdiskUtilization;
+ Property networkUtilization : TNetworkUtilization Index 88 Read FnetworkUtilization Write SetnetworkUtilization;
+ end;
+ TAutomaticScalingClass = Class of TAutomaticScaling;
+
+ { --------------------------------------------------------------------
+ TCpuUtilization
+ --------------------------------------------------------------------}
+
+ TCpuUtilization = Class(TGoogleBaseObject)
+ Private
+ FaggregationWindowLength : String;
+ FtargetUtilization : double;
+ Protected
+ //Property setters
+ Procedure SetaggregationWindowLength(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettargetUtilization(AIndex : Integer; const AValue : double); virtual;
+ Public
+ Published
+ Property aggregationWindowLength : String Index 0 Read FaggregationWindowLength Write SetaggregationWindowLength;
+ Property targetUtilization : double Index 8 Read FtargetUtilization Write SettargetUtilization;
+ end;
+ TCpuUtilizationClass = Class of TCpuUtilization;
+
+ { --------------------------------------------------------------------
+ TRequestUtilization
+ --------------------------------------------------------------------}
+
+ TRequestUtilization = Class(TGoogleBaseObject)
+ Private
+ FtargetRequestCountPerSec : integer;
+ FtargetConcurrentRequests : integer;
+ Protected
+ //Property setters
+ Procedure SettargetRequestCountPerSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettargetConcurrentRequests(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property targetRequestCountPerSec : integer Index 0 Read FtargetRequestCountPerSec Write SettargetRequestCountPerSec;
+ Property targetConcurrentRequests : integer Index 8 Read FtargetConcurrentRequests Write SettargetConcurrentRequests;
+ end;
+ TRequestUtilizationClass = Class of TRequestUtilization;
+
+ { --------------------------------------------------------------------
+ TDiskUtilization
+ --------------------------------------------------------------------}
+
+ TDiskUtilization = Class(TGoogleBaseObject)
+ Private
+ FtargetWriteBytesPerSec : integer;
+ FtargetWriteOpsPerSec : integer;
+ FtargetReadBytesPerSec : integer;
+ FtargetReadOpsPerSec : integer;
+ Protected
+ //Property setters
+ Procedure SettargetWriteBytesPerSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettargetWriteOpsPerSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettargetReadBytesPerSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettargetReadOpsPerSec(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property targetWriteBytesPerSec : integer Index 0 Read FtargetWriteBytesPerSec Write SettargetWriteBytesPerSec;
+ Property targetWriteOpsPerSec : integer Index 8 Read FtargetWriteOpsPerSec Write SettargetWriteOpsPerSec;
+ Property targetReadBytesPerSec : integer Index 16 Read FtargetReadBytesPerSec Write SettargetReadBytesPerSec;
+ Property targetReadOpsPerSec : integer Index 24 Read FtargetReadOpsPerSec Write SettargetReadOpsPerSec;
+ end;
+ TDiskUtilizationClass = Class of TDiskUtilization;
+
+ { --------------------------------------------------------------------
+ TNetworkUtilization
+ --------------------------------------------------------------------}
+
+ TNetworkUtilization = Class(TGoogleBaseObject)
+ Private
+ FtargetSentBytesPerSec : integer;
+ FtargetSentPacketsPerSec : integer;
+ FtargetReceivedBytesPerSec : integer;
+ FtargetReceivedPacketsPerSec : integer;
+ Protected
+ //Property setters
+ Procedure SettargetSentBytesPerSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettargetSentPacketsPerSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettargetReceivedBytesPerSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettargetReceivedPacketsPerSec(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property targetSentBytesPerSec : integer Index 0 Read FtargetSentBytesPerSec Write SettargetSentBytesPerSec;
+ Property targetSentPacketsPerSec : integer Index 8 Read FtargetSentPacketsPerSec Write SettargetSentPacketsPerSec;
+ Property targetReceivedBytesPerSec : integer Index 16 Read FtargetReceivedBytesPerSec Write SettargetReceivedBytesPerSec;
+ Property targetReceivedPacketsPerSec : integer Index 24 Read FtargetReceivedPacketsPerSec Write SettargetReceivedPacketsPerSec;
+ end;
+ TNetworkUtilizationClass = Class of TNetworkUtilization;
+
+ { --------------------------------------------------------------------
+ TBasicScaling
+ --------------------------------------------------------------------}
+
+ TBasicScaling = Class(TGoogleBaseObject)
+ Private
+ FidleTimeout : String;
+ FmaxInstances : integer;
+ Protected
+ //Property setters
+ Procedure SetidleTimeout(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmaxInstances(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property idleTimeout : String Index 0 Read FidleTimeout Write SetidleTimeout;
+ Property maxInstances : integer Index 8 Read FmaxInstances Write SetmaxInstances;
+ end;
+ TBasicScalingClass = Class of TBasicScaling;
+
+ { --------------------------------------------------------------------
+ TManualScaling
+ --------------------------------------------------------------------}
+
+ TManualScaling = Class(TGoogleBaseObject)
+ Private
+ Finstances : integer;
+ Protected
+ //Property setters
+ Procedure Setinstances(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property instances : integer Index 0 Read Finstances Write Setinstances;
+ end;
+ TManualScalingClass = Class of TManualScaling;
+
+ { --------------------------------------------------------------------
+ TNetwork
+ --------------------------------------------------------------------}
+
+ TNetwork = Class(TGoogleBaseObject)
+ Private
+ FforwardedPorts : TStringArray;
+ FinstanceTag : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure SetforwardedPorts(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetinstanceTag(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(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 forwardedPorts : TStringArray Index 0 Read FforwardedPorts Write SetforwardedPorts;
+ Property instanceTag : String Index 8 Read FinstanceTag Write SetinstanceTag;
+ Property name : String Index 16 Read Fname Write Setname;
+ end;
+ TNetworkClass = Class of TNetwork;
+
+ { --------------------------------------------------------------------
+ TResources
+ --------------------------------------------------------------------}
+
+ TResources = Class(TGoogleBaseObject)
+ Private
+ Fcpu : double;
+ FdiskGb : double;
+ FmemoryGb : double;
+ Protected
+ //Property setters
+ Procedure Setcpu(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetdiskGb(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetmemoryGb(AIndex : Integer; const AValue : double); virtual;
+ Public
+ Published
+ Property cpu : double Index 0 Read Fcpu Write Setcpu;
+ Property diskGb : double Index 8 Read FdiskGb Write SetdiskGb;
+ Property memoryGb : double Index 16 Read FmemoryGb Write SetmemoryGb;
+ end;
+ TResourcesClass = Class of TResources;
+
+ { --------------------------------------------------------------------
+ TUrlMap
+ --------------------------------------------------------------------}
+
+ TUrlMap = Class(TGoogleBaseObject)
+ Private
+ FurlRegex : String;
+ FstaticFiles : TStaticFilesHandler;
+ Fscript : TScriptHandler;
+ FapiEndpoint : TApiEndpointHandler;
+ FsecurityLevel : String;
+ Flogin : String;
+ FauthFailAction : String;
+ FredirectHttpResponseCode : String;
+ Protected
+ //Property setters
+ Procedure SeturlRegex(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstaticFiles(AIndex : Integer; const AValue : TStaticFilesHandler); virtual;
+ Procedure Setscript(AIndex : Integer; const AValue : TScriptHandler); virtual;
+ Procedure SetapiEndpoint(AIndex : Integer; const AValue : TApiEndpointHandler); virtual;
+ Procedure SetsecurityLevel(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlogin(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetauthFailAction(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetredirectHttpResponseCode(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property urlRegex : String Index 0 Read FurlRegex Write SeturlRegex;
+ Property staticFiles : TStaticFilesHandler Index 8 Read FstaticFiles Write SetstaticFiles;
+ Property script : TScriptHandler Index 16 Read Fscript Write Setscript;
+ Property apiEndpoint : TApiEndpointHandler Index 24 Read FapiEndpoint Write SetapiEndpoint;
+ Property securityLevel : String Index 32 Read FsecurityLevel Write SetsecurityLevel;
+ Property login : String Index 40 Read Flogin Write Setlogin;
+ Property authFailAction : String Index 48 Read FauthFailAction Write SetauthFailAction;
+ Property redirectHttpResponseCode : String Index 56 Read FredirectHttpResponseCode Write SetredirectHttpResponseCode;
+ end;
+ TUrlMapClass = Class of TUrlMap;
+
+ { --------------------------------------------------------------------
+ TStaticFilesHandlerTypehttpHeaders
+ --------------------------------------------------------------------}
+
+ TStaticFilesHandlerTypehttpHeaders = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TStaticFilesHandlerTypehttpHeadersClass = Class of TStaticFilesHandlerTypehttpHeaders;
+
+ { --------------------------------------------------------------------
+ TStaticFilesHandler
+ --------------------------------------------------------------------}
+
+ TStaticFilesHandler = Class(TGoogleBaseObject)
+ Private
+ Fpath : String;
+ FuploadPathRegex : String;
+ FhttpHeaders : TStaticFilesHandlerTypehttpHeaders;
+ FmimeType : String;
+ Fexpiration : String;
+ FrequireMatchingFile : boolean;
+ FapplicationReadable : boolean;
+ Protected
+ //Property setters
+ Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuploadPathRegex(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethttpHeaders(AIndex : Integer; const AValue : TStaticFilesHandlerTypehttpHeaders); virtual;
+ Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setexpiration(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrequireMatchingFile(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetapplicationReadable(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property path : String Index 0 Read Fpath Write Setpath;
+ Property uploadPathRegex : String Index 8 Read FuploadPathRegex Write SetuploadPathRegex;
+ Property httpHeaders : TStaticFilesHandlerTypehttpHeaders Index 16 Read FhttpHeaders Write SethttpHeaders;
+ Property mimeType : String Index 24 Read FmimeType Write SetmimeType;
+ Property expiration : String Index 32 Read Fexpiration Write Setexpiration;
+ Property requireMatchingFile : boolean Index 40 Read FrequireMatchingFile Write SetrequireMatchingFile;
+ Property applicationReadable : boolean Index 48 Read FapplicationReadable Write SetapplicationReadable;
+ end;
+ TStaticFilesHandlerClass = Class of TStaticFilesHandler;
+
+ { --------------------------------------------------------------------
+ TScriptHandler
+ --------------------------------------------------------------------}
+
+ TScriptHandler = Class(TGoogleBaseObject)
+ Private
+ FscriptPath : String;
+ Protected
+ //Property setters
+ Procedure SetscriptPath(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property scriptPath : String Index 0 Read FscriptPath Write SetscriptPath;
+ end;
+ TScriptHandlerClass = Class of TScriptHandler;
+
+ { --------------------------------------------------------------------
+ TApiEndpointHandler
+ --------------------------------------------------------------------}
+
+ TApiEndpointHandler = Class(TGoogleBaseObject)
+ Private
+ FscriptPath : String;
+ Protected
+ //Property setters
+ Procedure SetscriptPath(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property scriptPath : String Index 0 Read FscriptPath Write SetscriptPath;
+ end;
+ TApiEndpointHandlerClass = Class of TApiEndpointHandler;
+
+ { --------------------------------------------------------------------
+ TErrorHandler
+ --------------------------------------------------------------------}
+
+ TErrorHandler = Class(TGoogleBaseObject)
+ Private
+ FerrorCode : String;
+ FstaticFile : String;
+ FmimeType : String;
+ Protected
+ //Property setters
+ Procedure SeterrorCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstaticFile(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property errorCode : String Index 0 Read FerrorCode Write SeterrorCode;
+ Property staticFile : String Index 8 Read FstaticFile Write SetstaticFile;
+ Property mimeType : String Index 16 Read FmimeType Write SetmimeType;
+ end;
+ TErrorHandlerClass = Class of TErrorHandler;
+
+ { --------------------------------------------------------------------
+ TLibrary
+ --------------------------------------------------------------------}
+
+ TLibrary = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fversion : String;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property version : String Index 8 Read Fversion Write Setversion;
+ end;
+ TLibraryClass = Class of TLibrary;
+
+ { --------------------------------------------------------------------
+ TApiConfigHandler
+ --------------------------------------------------------------------}
+
+ TApiConfigHandler = Class(TGoogleBaseObject)
+ Private
+ FauthFailAction : String;
+ Flogin : String;
+ Fscript : String;
+ FsecurityLevel : String;
+ Furl : String;
+ Protected
+ //Property setters
+ Procedure SetauthFailAction(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlogin(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setscript(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsecurityLevel(AIndex : Integer; const AValue : String); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property authFailAction : String Index 0 Read FauthFailAction Write SetauthFailAction;
+ Property login : String Index 8 Read Flogin Write Setlogin;
+ Property script : String Index 16 Read Fscript Write Setscript;
+ Property securityLevel : String Index 24 Read FsecurityLevel Write SetsecurityLevel;
+ Property url : String Index 32 Read Furl Write Seturl;
+ end;
+ TApiConfigHandlerClass = Class of TApiConfigHandler;
+
+ { --------------------------------------------------------------------
+ THealthCheck
+ --------------------------------------------------------------------}
+
+ THealthCheck = Class(TGoogleBaseObject)
+ Private
+ FdisableHealthCheck : boolean;
+ Fhost : String;
+ FhealthyThreshold : integer;
+ FunhealthyThreshold : integer;
+ FrestartThreshold : integer;
+ FcheckInterval : String;
+ Ftimeout : String;
+ Protected
+ //Property setters
+ Procedure SetdisableHealthCheck(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetunhealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetrestartThreshold(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetcheckInterval(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settimeout(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property disableHealthCheck : boolean Index 0 Read FdisableHealthCheck Write SetdisableHealthCheck;
+ Property host : String Index 8 Read Fhost Write Sethost;
+ Property healthyThreshold : integer Index 16 Read FhealthyThreshold Write SethealthyThreshold;
+ Property unhealthyThreshold : integer Index 24 Read FunhealthyThreshold Write SetunhealthyThreshold;
+ Property restartThreshold : integer Index 32 Read FrestartThreshold Write SetrestartThreshold;
+ Property checkInterval : String Index 40 Read FcheckInterval Write SetcheckInterval;
+ Property timeout : String Index 48 Read Ftimeout Write Settimeout;
+ end;
+ THealthCheckClass = Class of THealthCheck;
+
+ { --------------------------------------------------------------------
+ TDeploymentTypefiles
+ --------------------------------------------------------------------}
+
+ TDeploymentTypefiles = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TDeploymentTypefilesClass = Class of TDeploymentTypefiles;
+
+ { --------------------------------------------------------------------
+ TDeployment
+ --------------------------------------------------------------------}
+
+ TDeployment = Class(TGoogleBaseObject)
+ Private
+ Ffiles : TDeploymentTypefiles;
+ Fcontainer : TContainerInfo;
+ FsourceReferences : TDeploymentTypesourceReferencesArray;
+ Protected
+ //Property setters
+ Procedure Setfiles(AIndex : Integer; const AValue : TDeploymentTypefiles); virtual;
+ Procedure Setcontainer(AIndex : Integer; const AValue : TContainerInfo); virtual;
+ Procedure SetsourceReferences(AIndex : Integer; const AValue : TDeploymentTypesourceReferencesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property files : TDeploymentTypefiles Index 0 Read Ffiles Write Setfiles;
+ Property container : TContainerInfo Index 8 Read Fcontainer Write Setcontainer;
+ Property sourceReferences : TDeploymentTypesourceReferencesArray Index 16 Read FsourceReferences Write SetsourceReferences;
+ end;
+ TDeploymentClass = Class of TDeployment;
+
+ { --------------------------------------------------------------------
+ TFileInfo
+ --------------------------------------------------------------------}
+
+ TFileInfo = Class(TGoogleBaseObject)
+ Private
+ FsourceUrl : String;
+ Fsha1Sum : String;
+ FmimeType : String;
+ Protected
+ //Property setters
+ Procedure SetsourceUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsha1Sum(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property sourceUrl : String Index 0 Read FsourceUrl Write SetsourceUrl;
+ Property sha1Sum : String Index 8 Read Fsha1Sum Write Setsha1Sum;
+ Property mimeType : String Index 16 Read FmimeType Write SetmimeType;
+ end;
+ TFileInfoClass = Class of TFileInfo;
+
+ { --------------------------------------------------------------------
+ TContainerInfo
+ --------------------------------------------------------------------}
+
+ TContainerInfo = Class(TGoogleBaseObject)
+ Private
+ Fimage : String;
+ Protected
+ //Property setters
+ Procedure Setimage(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property image : String Index 0 Read Fimage Write Setimage;
+ end;
+ TContainerInfoClass = Class of TContainerInfo;
+
+ { --------------------------------------------------------------------
+ TSourceReference
+ --------------------------------------------------------------------}
+
+ TSourceReference = Class(TGoogleBaseObject)
+ Private
+ Frepository : String;
+ FrevisionId : String;
+ Protected
+ //Property setters
+ Procedure Setrepository(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrevisionId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property repository : String Index 0 Read Frepository Write Setrepository;
+ Property revisionId : String Index 8 Read FrevisionId Write SetrevisionId;
+ end;
+ TSourceReferenceClass = Class of TSourceReference;
+
+ { --------------------------------------------------------------------
+ TListVersionsResponse
+ --------------------------------------------------------------------}
+
+ TListVersionsResponse = Class(TGoogleBaseObject)
+ Private
+ Fversions : TListVersionsResponseTypeversionsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setversions(AIndex : Integer; const AValue : TListVersionsResponseTypeversionsArray); 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 versions : TListVersionsResponseTypeversionsArray Index 0 Read Fversions Write Setversions;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListVersionsResponseClass = Class of TListVersionsResponse;
+
+ { --------------------------------------------------------------------
+ TService
+ --------------------------------------------------------------------}
+
+ TService = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fid : String;
+ Fsplit : TTrafficSplit;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsplit(AIndex : Integer; const AValue : TTrafficSplit); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property split : TTrafficSplit Index 16 Read Fsplit Write Setsplit;
+ end;
+ TServiceClass = Class of TService;
+
+ { --------------------------------------------------------------------
+ TTrafficSplitTypeallocations
+ --------------------------------------------------------------------}
+
+ TTrafficSplitTypeallocations = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TTrafficSplitTypeallocationsClass = Class of TTrafficSplitTypeallocations;
+
+ { --------------------------------------------------------------------
+ TTrafficSplit
+ --------------------------------------------------------------------}
+
+ TTrafficSplit = Class(TGoogleBaseObject)
+ Private
+ FshardBy : String;
+ Fallocations : TTrafficSplitTypeallocations;
+ Protected
+ //Property setters
+ Procedure SetshardBy(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setallocations(AIndex : Integer; const AValue : TTrafficSplitTypeallocations); virtual;
+ Public
+ Published
+ Property shardBy : String Index 0 Read FshardBy Write SetshardBy;
+ Property allocations : TTrafficSplitTypeallocations Index 8 Read Fallocations Write Setallocations;
+ end;
+ TTrafficSplitClass = Class of TTrafficSplit;
+
+ { --------------------------------------------------------------------
+ TListServicesResponse
+ --------------------------------------------------------------------}
+
+ TListServicesResponse = Class(TGoogleBaseObject)
+ Private
+ Fservices : TListServicesResponseTypeservicesArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setservices(AIndex : Integer; const AValue : TListServicesResponseTypeservicesArray); 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 services : TListServicesResponseTypeservicesArray Index 0 Read Fservices Write Setservices;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListServicesResponseClass = Class of TListServicesResponse;
+
+ { --------------------------------------------------------------------
+ TListInstancesResponse
+ --------------------------------------------------------------------}
+
+ TListInstancesResponse = Class(TGoogleBaseObject)
+ Private
+ Finstances : TListInstancesResponseTypeinstancesArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setinstances(AIndex : Integer; const AValue : TListInstancesResponseTypeinstancesArray); 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 instances : TListInstancesResponseTypeinstancesArray Index 0 Read Finstances Write Setinstances;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListInstancesResponseClass = Class of TListInstancesResponse;
+
+ { --------------------------------------------------------------------
+ TInstance
+ --------------------------------------------------------------------}
+
+ TInstance = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fid : String;
+ FappEngineRelease : String;
+ Favailability : String;
+ FvmName : String;
+ FvmZoneName : String;
+ FvmId : String;
+ FstartTimestamp : String;
+ Frequests : integer;
+ Ferrors : integer;
+ Fqps : integer;
+ FaverageLatency : integer;
+ FmemoryUsage : String;
+ FvmStatus : String;
+ FvmUnlocked : boolean;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetappEngineRelease(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setavailability(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvmName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvmZoneName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvmId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrequests(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setqps(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetaverageLatency(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmemoryUsage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvmStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvmUnlocked(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property appEngineRelease : String Index 16 Read FappEngineRelease Write SetappEngineRelease;
+ Property availability : String Index 24 Read Favailability Write Setavailability;
+ Property vmName : String Index 32 Read FvmName Write SetvmName;
+ Property vmZoneName : String Index 40 Read FvmZoneName Write SetvmZoneName;
+ Property vmId : String Index 48 Read FvmId Write SetvmId;
+ Property startTimestamp : String Index 56 Read FstartTimestamp Write SetstartTimestamp;
+ Property requests : integer Index 64 Read Frequests Write Setrequests;
+ Property errors : integer Index 72 Read Ferrors Write Seterrors;
+ Property qps : integer Index 80 Read Fqps Write Setqps;
+ Property averageLatency : integer Index 88 Read FaverageLatency Write SetaverageLatency;
+ Property memoryUsage : String Index 96 Read FmemoryUsage Write SetmemoryUsage;
+ Property vmStatus : String Index 104 Read FvmStatus Write SetvmStatus;
+ Property vmUnlocked : boolean Index 112 Read FvmUnlocked Write SetvmUnlocked;
+ end;
+ TInstanceClass = Class of TInstance;
+
+ { --------------------------------------------------------------------
+ TOperationMetadata
+ --------------------------------------------------------------------}
+
+ TOperationMetadata = Class(TGoogleBaseObject)
+ Private
+ FoperationType : String;
+ FinsertTime : String;
+ FendTime : String;
+ Fuser : String;
+ Ftarget : String;
+ Fmethod : String;
+ Protected
+ //Property setters
+ Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property operationType : String Index 0 Read FoperationType Write SetoperationType;
+ Property insertTime : String Index 8 Read FinsertTime Write SetinsertTime;
+ Property endTime : String Index 16 Read FendTime Write SetendTime;
+ Property user : String Index 24 Read Fuser Write Setuser;
+ Property target : String Index 32 Read Ftarget Write Settarget;
+ Property method : String Index 40 Read Fmethod Write Setmethod;
+ end;
+ TOperationMetadataClass = Class of TOperationMetadata;
+
+ { --------------------------------------------------------------------
+ TOperationMetadataV1Beta5
+ --------------------------------------------------------------------}
+
+ TOperationMetadataV1Beta5 = Class(TGoogleBaseObject)
+ Private
+ Fmethod : String;
+ FinsertTime : String;
+ FendTime : String;
+ Fuser : String;
+ Ftarget : String;
+ Protected
+ //Property setters
+ Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property method : String Index 0 Read Fmethod Write Setmethod;
+ Property insertTime : String Index 8 Read FinsertTime Write SetinsertTime;
+ Property endTime : String Index 16 Read FendTime Write SetendTime;
+ Property user : String Index 24 Read Fuser Write Setuser;
+ Property target : String Index 32 Read Ftarget Write Settarget;
+ end;
+ TOperationMetadataV1Beta5Class = Class of TOperationMetadataV1Beta5;
+
+ { --------------------------------------------------------------------
+ TAppsOperationsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAppsOperationsResource, method List
+
+ TAppsOperationsListOptions = Record
+ filter : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TAppsOperationsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(appsId: string; operationsId: string) : TOperation;
+ Function List(appsId: string; AQuery : string = '') : TListOperationsResponse;
+ Function List(appsId: string; AQuery : TAppsOperationslistOptions) : TListOperationsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAppsServicesVersionsInstancesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAppsServicesVersionsInstancesResource, method List
+
+ TAppsServicesVersionsInstancesListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TAppsServicesVersionsInstancesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(appsId: string; servicesId: string; versionsId: string; AQuery : string = '') : TListInstancesResponse;
+ Function List(appsId: string; servicesId: string; versionsId: string; AQuery : TAppsServicesVersionsInstanceslistOptions) : TListInstancesResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAppsServicesVersionsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAppsServicesVersionsResource, method Get
+
+ TAppsServicesVersionsGetOptions = Record
+ view : String;
+ end;
+
+
+ //Optional query Options for TAppsServicesVersionsResource, method List
+
+ TAppsServicesVersionsListOptions = Record
+ view : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TAppsServicesVersionsResource, method Patch
+
+ TAppsServicesVersionsPatchOptions = Record
+ mask : String;
+ end;
+
+ TAppsServicesVersionsResource = Class(TGoogleResource)
+ Private
+ FInstancesInstance : TAppsServicesVersionsInstancesResource;
+ Function GetInstancesInstance : TAppsServicesVersionsInstancesResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(appsId: string; servicesId: string; aVersion : TVersion) : TOperation;overload;
+ Function Delete(appsId: string; servicesId: string; versionsId: string) : TOperation;
+ Function Get(appsId: string; servicesId: string; versionsId: string; AQuery : string = '') : TVersion;
+ Function Get(appsId: string; servicesId: string; versionsId: string; AQuery : TAppsServicesVersionsgetOptions) : TVersion;
+ Function List(appsId: string; servicesId: string; AQuery : string = '') : TListVersionsResponse;
+ Function List(appsId: string; servicesId: string; AQuery : TAppsServicesVersionslistOptions) : TListVersionsResponse;
+ Function Patch(appsId: string; servicesId: string; versionsId: string; aVersion : TVersion; AQuery : string = '') : TOperation;
+ Function Patch(appsId: string; servicesId: string; versionsId: string; aVersion : TVersion; AQuery : TAppsServicesVersionspatchOptions) : TOperation;
+ Function CreateInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;virtual;overload;
+ Function CreateInstancesResource : TAppsServicesVersionsInstancesResource;virtual;overload;
+ Property InstancesResource : TAppsServicesVersionsInstancesResource Read GetInstancesInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAppsServicesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAppsServicesResource, method List
+
+ TAppsServicesListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TAppsServicesResource, method Patch
+
+ TAppsServicesPatchOptions = Record
+ mask : String;
+ migrateTraffic : boolean;
+ end;
+
+ TAppsServicesResource = Class(TGoogleResource)
+ Private
+ FVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
+ FVersionsInstance : TAppsServicesVersionsResource;
+ Function GetVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;virtual;
+ Function GetVersionsInstance : TAppsServicesVersionsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Delete(appsId: string; servicesId: string) : TOperation;
+ Function Get(appsId: string; servicesId: string) : TService;
+ Function List(appsId: string; AQuery : string = '') : TListServicesResponse;
+ Function List(appsId: string; AQuery : TAppsServiceslistOptions) : TListServicesResponse;
+ Function Patch(appsId: string; servicesId: string; aService : TService; AQuery : string = '') : TOperation;
+ Function Patch(appsId: string; servicesId: string; aService : TService; AQuery : TAppsServicespatchOptions) : TOperation;
+ Function CreateVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;virtual;overload;
+ Function CreateVersionsInstancesResource : TAppsServicesVersionsInstancesResource;virtual;overload;
+ Function CreateVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;virtual;overload;
+ Function CreateVersionsResource : TAppsServicesVersionsResource;virtual;overload;
+ Property VersionsInstancesResource : TAppsServicesVersionsInstancesResource Read GetVersionsInstancesInstance;
+ Property VersionsResource : TAppsServicesVersionsResource Read GetVersionsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAppsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAppsResource, method Get
+
+ TAppsGetOptions = Record
+ ensureResourcesExist : boolean;
+ end;
+
+ TAppsResource = Class(TGoogleResource)
+ Private
+ FOperationsInstance : TAppsOperationsResource;
+ FServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
+ FServicesVersionsInstance : TAppsServicesVersionsResource;
+ FServicesInstance : TAppsServicesResource;
+ Function GetOperationsInstance : TAppsOperationsResource;virtual;
+ Function GetServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;virtual;
+ Function GetServicesVersionsInstance : TAppsServicesVersionsResource;virtual;
+ Function GetServicesInstance : TAppsServicesResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(appsId: string; AQuery : string = '') : TApplication;
+ Function Get(appsId: string; AQuery : TAppsgetOptions) : TApplication;
+ Function CreateOperationsResource(AOwner : TComponent) : TAppsOperationsResource;virtual;overload;
+ Function CreateOperationsResource : TAppsOperationsResource;virtual;overload;
+ Function CreateServicesVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;virtual;overload;
+ Function CreateServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource;virtual;overload;
+ Function CreateServicesVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;virtual;overload;
+ Function CreateServicesVersionsResource : TAppsServicesVersionsResource;virtual;overload;
+ Function CreateServicesResource(AOwner : TComponent) : TAppsServicesResource;virtual;overload;
+ Function CreateServicesResource : TAppsServicesResource;virtual;overload;
+ Property OperationsResource : TAppsOperationsResource Read GetOperationsInstance;
+ Property ServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource Read GetServicesVersionsInstancesInstance;
+ Property ServicesVersionsResource : TAppsServicesVersionsResource Read GetServicesVersionsInstance;
+ Property ServicesResource : TAppsServicesResource Read GetServicesInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAppengineAPI
+ --------------------------------------------------------------------}
+
+ TAppengineAPI = Class(TGoogleAPI)
+ Private
+ FAppsOperationsInstance : TAppsOperationsResource;
+ FAppsServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
+ FAppsServicesVersionsInstance : TAppsServicesVersionsResource;
+ FAppsServicesInstance : TAppsServicesResource;
+ FAppsInstance : TAppsResource;
+ Function GetAppsOperationsInstance : TAppsOperationsResource;virtual;
+ Function GetAppsServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;virtual;
+ Function GetAppsServicesVersionsInstance : TAppsServicesVersionsResource;virtual;
+ Function GetAppsServicesInstance : TAppsServicesResource;virtual;
+ Function GetAppsInstance : TAppsResource;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 CreateAppsOperationsResource(AOwner : TComponent) : TAppsOperationsResource;virtual;overload;
+ Function CreateAppsOperationsResource : TAppsOperationsResource;virtual;overload;
+ Function CreateAppsServicesVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;virtual;overload;
+ Function CreateAppsServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource;virtual;overload;
+ Function CreateAppsServicesVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;virtual;overload;
+ Function CreateAppsServicesVersionsResource : TAppsServicesVersionsResource;virtual;overload;
+ Function CreateAppsServicesResource(AOwner : TComponent) : TAppsServicesResource;virtual;overload;
+ Function CreateAppsServicesResource : TAppsServicesResource;virtual;overload;
+ Function CreateAppsResource(AOwner : TComponent) : TAppsResource;virtual;overload;
+ Function CreateAppsResource : TAppsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property AppsOperationsResource : TAppsOperationsResource Read GetAppsOperationsInstance;
+ Property AppsServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource Read GetAppsServicesVersionsInstancesInstance;
+ Property AppsServicesVersionsResource : TAppsServicesVersionsResource Read GetAppsServicesVersionsInstance;
+ Property AppsServicesResource : TAppsServicesResource Read GetAppsServicesInstance;
+ Property AppsResource : TAppsResource Read GetAppsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTypemetadata.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTyperesponse.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fdone=AValue) then exit;
+ Fdone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
+
+begin
+ If (Fresponse=AValue) then exit;
+ Fresponse:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+
+Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'details' : SetLength(Fdetails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListOperationsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListOperationsResponse.Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray);
+
+begin
+ If (Foperations=AValue) then exit;
+ Foperations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListOperationsResponse.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 TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'operations' : SetLength(Foperations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TApplication
+ --------------------------------------------------------------------}
+
+
+Procedure TApplication.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApplication.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApplication.SetdispatchRules(AIndex : Integer; const AValue : TApplicationTypedispatchRulesArray);
+
+begin
+ If (FdispatchRules=AValue) then exit;
+ FdispatchRules:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApplication.SetauthDomain(AIndex : Integer; const AValue : String);
+
+begin
+ If (FauthDomain=AValue) then exit;
+ FauthDomain:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApplication.Setlocation(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocation=AValue) then exit;
+ Flocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApplication.SetcodeBucket(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcodeBucket=AValue) then exit;
+ FcodeBucket:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApplication.SetdefaultCookieExpiration(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdefaultCookieExpiration=AValue) then exit;
+ FdefaultCookieExpiration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApplication.SetdefaultHostname(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdefaultHostname=AValue) then exit;
+ FdefaultHostname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApplication.SetdefaultBucket(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdefaultBucket=AValue) then exit;
+ FdefaultBucket:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TApplication.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dispatchrules' : SetLength(FdispatchRules,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TUrlDispatchRule
+ --------------------------------------------------------------------}
+
+
+Procedure TUrlDispatchRule.Setdomain(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdomain=AValue) then exit;
+ Fdomain:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrlDispatchRule.Setpath(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fpath=AValue) then exit;
+ Fpath:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrlDispatchRule.Setservice(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fservice=AValue) then exit;
+ Fservice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TVersionTypebetaSettings
+ --------------------------------------------------------------------}
+
+
+Class Function TVersionTypebetaSettings.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TVersionTypeenvVariables
+ --------------------------------------------------------------------}
+
+
+Class Function TVersionTypeenvVariables.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TVersion
+ --------------------------------------------------------------------}
+
+
+Procedure TVersion.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetautomaticScaling(AIndex : Integer; const AValue : TAutomaticScaling);
+
+begin
+ If (FautomaticScaling=AValue) then exit;
+ FautomaticScaling:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetbasicScaling(AIndex : Integer; const AValue : TBasicScaling);
+
+begin
+ If (FbasicScaling=AValue) then exit;
+ FbasicScaling:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetmanualScaling(AIndex : Integer; const AValue : TManualScaling);
+
+begin
+ If (FmanualScaling=AValue) then exit;
+ FmanualScaling:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetinboundServices(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FinboundServices=AValue) then exit;
+ FinboundServices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetinstanceClass(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceClass=AValue) then exit;
+ FinstanceClass:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.Setnetwork(AIndex : Integer; const AValue : TNetwork);
+
+begin
+ If (Fnetwork=AValue) then exit;
+ Fnetwork:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.Setresources(AIndex : Integer; const AValue : TResources);
+
+begin
+ If (Fresources=AValue) then exit;
+ Fresources:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.Setruntime(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fruntime=AValue) then exit;
+ Fruntime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.Setthreadsafe(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fthreadsafe=AValue) then exit;
+ Fthreadsafe:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.Setvm(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fvm=AValue) then exit;
+ Fvm:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetbetaSettings(AIndex : Integer; const AValue : TVersionTypebetaSettings);
+
+begin
+ If (FbetaSettings=AValue) then exit;
+ FbetaSettings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.Setenv(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fenv=AValue) then exit;
+ Fenv:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetservingStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FservingStatus=AValue) then exit;
+ FservingStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.Setdeployer(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdeployer=AValue) then exit;
+ Fdeployer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetcreationTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTime=AValue) then exit;
+ FcreationTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetdiskUsageBytes(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdiskUsageBytes=AValue) then exit;
+ FdiskUsageBytes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.Sethandlers(AIndex : Integer; const AValue : TVersionTypehandlersArray);
+
+begin
+ If (Fhandlers=AValue) then exit;
+ Fhandlers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SeterrorHandlers(AIndex : Integer; const AValue : TVersionTypeerrorHandlersArray);
+
+begin
+ If (FerrorHandlers=AValue) then exit;
+ FerrorHandlers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.Setlibraries(AIndex : Integer; const AValue : TVersionTypelibrariesArray);
+
+begin
+ If (Flibraries=AValue) then exit;
+ Flibraries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetapiConfig(AIndex : Integer; const AValue : TApiConfigHandler);
+
+begin
+ If (FapiConfig=AValue) then exit;
+ FapiConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetenvVariables(AIndex : Integer; const AValue : TVersionTypeenvVariables);
+
+begin
+ If (FenvVariables=AValue) then exit;
+ FenvVariables:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetdefaultExpiration(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdefaultExpiration=AValue) then exit;
+ FdefaultExpiration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SethealthCheck(AIndex : Integer; const AValue : THealthCheck);
+
+begin
+ If (FhealthCheck=AValue) then exit;
+ FhealthCheck:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.SetnobuildFilesRegex(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnobuildFilesRegex=AValue) then exit;
+ FnobuildFilesRegex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVersion.Setdeployment(AIndex : Integer; const AValue : TDeployment);
+
+begin
+ If (Fdeployment=AValue) then exit;
+ Fdeployment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TVersion.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'inboundservices' : SetLength(FinboundServices,ALength);
+ 'handlers' : SetLength(Fhandlers,ALength);
+ 'errorhandlers' : SetLength(FerrorHandlers,ALength);
+ 'libraries' : SetLength(Flibraries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutomaticScaling
+ --------------------------------------------------------------------}
+
+
+Procedure TAutomaticScaling.SetcoolDownPeriod(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcoolDownPeriod=AValue) then exit;
+ FcoolDownPeriod:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutomaticScaling.SetcpuUtilization(AIndex : Integer; const AValue : TCpuUtilization);
+
+begin
+ If (FcpuUtilization=AValue) then exit;
+ FcpuUtilization:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutomaticScaling.SetmaxConcurrentRequests(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaxConcurrentRequests=AValue) then exit;
+ FmaxConcurrentRequests:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutomaticScaling.SetmaxIdleInstances(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaxIdleInstances=AValue) then exit;
+ FmaxIdleInstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutomaticScaling.SetmaxTotalInstances(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaxTotalInstances=AValue) then exit;
+ FmaxTotalInstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutomaticScaling.SetmaxPendingLatency(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmaxPendingLatency=AValue) then exit;
+ FmaxPendingLatency:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutomaticScaling.SetminIdleInstances(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FminIdleInstances=AValue) then exit;
+ FminIdleInstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutomaticScaling.SetminTotalInstances(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FminTotalInstances=AValue) then exit;
+ FminTotalInstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutomaticScaling.SetminPendingLatency(AIndex : Integer; const AValue : String);
+
+begin
+ If (FminPendingLatency=AValue) then exit;
+ FminPendingLatency:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutomaticScaling.SetrequestUtilization(AIndex : Integer; const AValue : TRequestUtilization);
+
+begin
+ If (FrequestUtilization=AValue) then exit;
+ FrequestUtilization:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutomaticScaling.SetdiskUtilization(AIndex : Integer; const AValue : TDiskUtilization);
+
+begin
+ If (FdiskUtilization=AValue) then exit;
+ FdiskUtilization:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutomaticScaling.SetnetworkUtilization(AIndex : Integer; const AValue : TNetworkUtilization);
+
+begin
+ If (FnetworkUtilization=AValue) then exit;
+ FnetworkUtilization:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCpuUtilization
+ --------------------------------------------------------------------}
+
+
+Procedure TCpuUtilization.SetaggregationWindowLength(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaggregationWindowLength=AValue) then exit;
+ FaggregationWindowLength:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCpuUtilization.SettargetUtilization(AIndex : Integer; const AValue : double);
+
+begin
+ If (FtargetUtilization=AValue) then exit;
+ FtargetUtilization:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TRequestUtilization
+ --------------------------------------------------------------------}
+
+
+Procedure TRequestUtilization.SettargetRequestCountPerSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtargetRequestCountPerSec=AValue) then exit;
+ FtargetRequestCountPerSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestUtilization.SettargetConcurrentRequests(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtargetConcurrentRequests=AValue) then exit;
+ FtargetConcurrentRequests:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDiskUtilization
+ --------------------------------------------------------------------}
+
+
+Procedure TDiskUtilization.SettargetWriteBytesPerSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtargetWriteBytesPerSec=AValue) then exit;
+ FtargetWriteBytesPerSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiskUtilization.SettargetWriteOpsPerSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtargetWriteOpsPerSec=AValue) then exit;
+ FtargetWriteOpsPerSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiskUtilization.SettargetReadBytesPerSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtargetReadBytesPerSec=AValue) then exit;
+ FtargetReadBytesPerSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiskUtilization.SettargetReadOpsPerSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtargetReadOpsPerSec=AValue) then exit;
+ FtargetReadOpsPerSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TNetworkUtilization
+ --------------------------------------------------------------------}
+
+
+Procedure TNetworkUtilization.SettargetSentBytesPerSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtargetSentBytesPerSec=AValue) then exit;
+ FtargetSentBytesPerSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNetworkUtilization.SettargetSentPacketsPerSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtargetSentPacketsPerSec=AValue) then exit;
+ FtargetSentPacketsPerSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNetworkUtilization.SettargetReceivedBytesPerSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtargetReceivedBytesPerSec=AValue) then exit;
+ FtargetReceivedBytesPerSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNetworkUtilization.SettargetReceivedPacketsPerSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtargetReceivedPacketsPerSec=AValue) then exit;
+ FtargetReceivedPacketsPerSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBasicScaling
+ --------------------------------------------------------------------}
+
+
+Procedure TBasicScaling.SetidleTimeout(AIndex : Integer; const AValue : String);
+
+begin
+ If (FidleTimeout=AValue) then exit;
+ FidleTimeout:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicScaling.SetmaxInstances(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaxInstances=AValue) then exit;
+ FmaxInstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TManualScaling
+ --------------------------------------------------------------------}
+
+
+Procedure TManualScaling.Setinstances(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Finstances=AValue) then exit;
+ Finstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TNetwork
+ --------------------------------------------------------------------}
+
+
+Procedure TNetwork.SetforwardedPorts(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FforwardedPorts=AValue) then exit;
+ FforwardedPorts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNetwork.SetinstanceTag(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceTag=AValue) then exit;
+ FinstanceTag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNetwork.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TNetwork.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'forwardedports' : SetLength(FforwardedPorts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TResources
+ --------------------------------------------------------------------}
+
+
+Procedure TResources.Setcpu(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fcpu=AValue) then exit;
+ Fcpu:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResources.SetdiskGb(AIndex : Integer; const AValue : double);
+
+begin
+ If (FdiskGb=AValue) then exit;
+ FdiskGb:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResources.SetmemoryGb(AIndex : Integer; const AValue : double);
+
+begin
+ If (FmemoryGb=AValue) then exit;
+ FmemoryGb:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUrlMap
+ --------------------------------------------------------------------}
+
+
+Procedure TUrlMap.SeturlRegex(AIndex : Integer; const AValue : String);
+
+begin
+ If (FurlRegex=AValue) then exit;
+ FurlRegex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrlMap.SetstaticFiles(AIndex : Integer; const AValue : TStaticFilesHandler);
+
+begin
+ If (FstaticFiles=AValue) then exit;
+ FstaticFiles:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrlMap.Setscript(AIndex : Integer; const AValue : TScriptHandler);
+
+begin
+ If (Fscript=AValue) then exit;
+ Fscript:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrlMap.SetapiEndpoint(AIndex : Integer; const AValue : TApiEndpointHandler);
+
+begin
+ If (FapiEndpoint=AValue) then exit;
+ FapiEndpoint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrlMap.SetsecurityLevel(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsecurityLevel=AValue) then exit;
+ FsecurityLevel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrlMap.Setlogin(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flogin=AValue) then exit;
+ Flogin:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrlMap.SetauthFailAction(AIndex : Integer; const AValue : String);
+
+begin
+ If (FauthFailAction=AValue) then exit;
+ FauthFailAction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrlMap.SetredirectHttpResponseCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FredirectHttpResponseCode=AValue) then exit;
+ FredirectHttpResponseCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStaticFilesHandlerTypehttpHeaders
+ --------------------------------------------------------------------}
+
+
+Class Function TStaticFilesHandlerTypehttpHeaders.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TStaticFilesHandler
+ --------------------------------------------------------------------}
+
+
+Procedure TStaticFilesHandler.Setpath(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fpath=AValue) then exit;
+ Fpath:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStaticFilesHandler.SetuploadPathRegex(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuploadPathRegex=AValue) then exit;
+ FuploadPathRegex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStaticFilesHandler.SethttpHeaders(AIndex : Integer; const AValue : TStaticFilesHandlerTypehttpHeaders);
+
+begin
+ If (FhttpHeaders=AValue) then exit;
+ FhttpHeaders:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStaticFilesHandler.SetmimeType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmimeType=AValue) then exit;
+ FmimeType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStaticFilesHandler.Setexpiration(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fexpiration=AValue) then exit;
+ Fexpiration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStaticFilesHandler.SetrequireMatchingFile(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FrequireMatchingFile=AValue) then exit;
+ FrequireMatchingFile:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStaticFilesHandler.SetapplicationReadable(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FapplicationReadable=AValue) then exit;
+ FapplicationReadable:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TScriptHandler
+ --------------------------------------------------------------------}
+
+
+Procedure TScriptHandler.SetscriptPath(AIndex : Integer; const AValue : String);
+
+begin
+ If (FscriptPath=AValue) then exit;
+ FscriptPath:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TApiEndpointHandler
+ --------------------------------------------------------------------}
+
+
+Procedure TApiEndpointHandler.SetscriptPath(AIndex : Integer; const AValue : String);
+
+begin
+ If (FscriptPath=AValue) then exit;
+ FscriptPath:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TErrorHandler
+ --------------------------------------------------------------------}
+
+
+Procedure TErrorHandler.SeterrorCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FerrorCode=AValue) then exit;
+ FerrorCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorHandler.SetstaticFile(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstaticFile=AValue) then exit;
+ FstaticFile:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorHandler.SetmimeType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmimeType=AValue) then exit;
+ FmimeType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLibrary
+ --------------------------------------------------------------------}
+
+
+Procedure TLibrary.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLibrary.Setversion(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fversion=AValue) then exit;
+ Fversion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TApiConfigHandler
+ --------------------------------------------------------------------}
+
+
+Procedure TApiConfigHandler.SetauthFailAction(AIndex : Integer; const AValue : String);
+
+begin
+ If (FauthFailAction=AValue) then exit;
+ FauthFailAction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApiConfigHandler.Setlogin(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flogin=AValue) then exit;
+ Flogin:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApiConfigHandler.Setscript(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fscript=AValue) then exit;
+ Fscript:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApiConfigHandler.SetsecurityLevel(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsecurityLevel=AValue) then exit;
+ FsecurityLevel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApiConfigHandler.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ THealthCheck
+ --------------------------------------------------------------------}
+
+
+Procedure THealthCheck.SetdisableHealthCheck(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FdisableHealthCheck=AValue) then exit;
+ FdisableHealthCheck:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THealthCheck.Sethost(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fhost=AValue) then exit;
+ Fhost:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THealthCheck.SethealthyThreshold(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FhealthyThreshold=AValue) then exit;
+ FhealthyThreshold:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THealthCheck.SetunhealthyThreshold(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FunhealthyThreshold=AValue) then exit;
+ FunhealthyThreshold:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THealthCheck.SetrestartThreshold(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FrestartThreshold=AValue) then exit;
+ FrestartThreshold:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THealthCheck.SetcheckInterval(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcheckInterval=AValue) then exit;
+ FcheckInterval:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THealthCheck.Settimeout(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftimeout=AValue) then exit;
+ Ftimeout:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeploymentTypefiles
+ --------------------------------------------------------------------}
+
+
+Class Function TDeploymentTypefiles.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TDeployment
+ --------------------------------------------------------------------}
+
+
+Procedure TDeployment.Setfiles(AIndex : Integer; const AValue : TDeploymentTypefiles);
+
+begin
+ If (Ffiles=AValue) then exit;
+ Ffiles:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeployment.Setcontainer(AIndex : Integer; const AValue : TContainerInfo);
+
+begin
+ If (Fcontainer=AValue) then exit;
+ Fcontainer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeployment.SetsourceReferences(AIndex : Integer; const AValue : TDeploymentTypesourceReferencesArray);
+
+begin
+ If (FsourceReferences=AValue) then exit;
+ FsourceReferences:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDeployment.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sourcereferences' : SetLength(FsourceReferences,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TFileInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TFileInfo.SetsourceUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsourceUrl=AValue) then exit;
+ FsourceUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFileInfo.Setsha1Sum(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsha1Sum=AValue) then exit;
+ Fsha1Sum:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFileInfo.SetmimeType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmimeType=AValue) then exit;
+ FmimeType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TContainerInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TContainerInfo.Setimage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fimage=AValue) then exit;
+ Fimage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSourceReference
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceReference.Setrepository(AIndex : Integer; const AValue : String);
+
+begin
+ If (Frepository=AValue) then exit;
+ Frepository:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceReference.SetrevisionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrevisionId=AValue) then exit;
+ FrevisionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListVersionsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListVersionsResponse.Setversions(AIndex : Integer; const AValue : TListVersionsResponseTypeversionsArray);
+
+begin
+ If (Fversions=AValue) then exit;
+ Fversions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListVersionsResponse.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 TListVersionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'versions' : SetLength(Fversions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TService
+ --------------------------------------------------------------------}
+
+
+Procedure TService.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TService.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TService.Setsplit(AIndex : Integer; const AValue : TTrafficSplit);
+
+begin
+ If (Fsplit=AValue) then exit;
+ Fsplit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTrafficSplitTypeallocations
+ --------------------------------------------------------------------}
+
+
+Class Function TTrafficSplitTypeallocations.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TTrafficSplit
+ --------------------------------------------------------------------}
+
+
+Procedure TTrafficSplit.SetshardBy(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshardBy=AValue) then exit;
+ FshardBy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTrafficSplit.Setallocations(AIndex : Integer; const AValue : TTrafficSplitTypeallocations);
+
+begin
+ If (Fallocations=AValue) then exit;
+ Fallocations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListServicesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListServicesResponse.Setservices(AIndex : Integer; const AValue : TListServicesResponseTypeservicesArray);
+
+begin
+ If (Fservices=AValue) then exit;
+ Fservices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListServicesResponse.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 TListServicesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'services' : SetLength(Fservices,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListInstancesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListInstancesResponse.Setinstances(AIndex : Integer; const AValue : TListInstancesResponseTypeinstancesArray);
+
+begin
+ If (Finstances=AValue) then exit;
+ Finstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListInstancesResponse.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 TListInstancesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'instances' : SetLength(Finstances,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstance
+ --------------------------------------------------------------------}
+
+
+Procedure TInstance.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.SetappEngineRelease(AIndex : Integer; const AValue : String);
+
+begin
+ If (FappEngineRelease=AValue) then exit;
+ FappEngineRelease:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.Setavailability(AIndex : Integer; const AValue : String);
+
+begin
+ If (Favailability=AValue) then exit;
+ Favailability:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.SetvmName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvmName=AValue) then exit;
+ FvmName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.SetvmZoneName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvmZoneName=AValue) then exit;
+ FvmZoneName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.SetvmId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvmId=AValue) then exit;
+ FvmId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.SetstartTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTimestamp=AValue) then exit;
+ FstartTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.Setrequests(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Frequests=AValue) then exit;
+ Frequests:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.Seterrors(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Ferrors=AValue) then exit;
+ Ferrors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.Setqps(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fqps=AValue) then exit;
+ Fqps:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.SetaverageLatency(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FaverageLatency=AValue) then exit;
+ FaverageLatency:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.SetmemoryUsage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmemoryUsage=AValue) then exit;
+ FmemoryUsage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.SetvmStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvmStatus=AValue) then exit;
+ FvmStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstance.SetvmUnlocked(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FvmUnlocked=AValue) then exit;
+ FvmUnlocked:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationMetadata
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationMetadata.SetoperationType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationType=AValue) then exit;
+ FoperationType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.SetinsertTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinsertTime=AValue) then exit;
+ FinsertTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.SetendTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.Setuser(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fuser=AValue) then exit;
+ Fuser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.Settarget(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftarget=AValue) then exit;
+ Ftarget:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.Setmethod(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmethod=AValue) then exit;
+ Fmethod:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationMetadataV1Beta5
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationMetadataV1Beta5.Setmethod(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmethod=AValue) then exit;
+ Fmethod:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadataV1Beta5.SetinsertTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinsertTime=AValue) then exit;
+ FinsertTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadataV1Beta5.SetendTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadataV1Beta5.Setuser(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fuser=AValue) then exit;
+ Fuser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadataV1Beta5.Settarget(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftarget=AValue) then exit;
+ Ftarget:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAppsOperationsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAppsOperationsResource.ResourceName : String;
+
+begin
+ Result:='operations';
+end;
+
+Class Function TAppsOperationsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TappengineAPI;
+end;
+
+Function TAppsOperationsResource.Get(appsId: string; operationsId: string) : TOperation;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta5/apps/{appsId}/operations/{operationsId}';
+ _Methodid = 'appengine.apps.operations.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId,'operationsId',operationsId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TAppsOperationsResource.List(appsId: string; AQuery : string = '') : TListOperationsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta5/apps/{appsId}/operations';
+ _Methodid = 'appengine.apps.operations.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListOperationsResponse) as TListOperationsResponse;
+end;
+
+
+Function TAppsOperationsResource.List(appsId: string; AQuery : TAppsOperationslistOptions) : TListOperationsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(appsId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAppsServicesVersionsInstancesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAppsServicesVersionsInstancesResource.ResourceName : String;
+
+begin
+ Result:='instances';
+end;
+
+Class Function TAppsServicesVersionsInstancesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TappengineAPI;
+end;
+
+Function TAppsServicesVersionsInstancesResource.List(appsId: string; servicesId: string; versionsId: string; AQuery : string = '') : TListInstancesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions/{versionsId}/instances';
+ _Methodid = 'appengine.apps.services.versions.instances.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId,'versionsId',versionsId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListInstancesResponse) as TListInstancesResponse;
+end;
+
+
+Function TAppsServicesVersionsInstancesResource.List(appsId: string; servicesId: string; versionsId: string; AQuery : TAppsServicesVersionsInstanceslistOptions) : TListInstancesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(appsId,servicesId,versionsId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAppsServicesVersionsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAppsServicesVersionsResource.ResourceName : String;
+
+begin
+ Result:='versions';
+end;
+
+Class Function TAppsServicesVersionsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TappengineAPI;
+end;
+
+Function TAppsServicesVersionsResource.Create(appsId: string; servicesId: string; aVersion : TVersion) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions';
+ _Methodid = 'appengine.apps.services.versions.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aVersion,TOperation) as TOperation;
+end;
+
+Function TAppsServicesVersionsResource.Delete(appsId: string; servicesId: string; versionsId: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions/{versionsId}';
+ _Methodid = 'appengine.apps.services.versions.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId,'versionsId',versionsId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TAppsServicesVersionsResource.Get(appsId: string; servicesId: string; versionsId: string; AQuery : string = '') : TVersion;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions/{versionsId}';
+ _Methodid = 'appengine.apps.services.versions.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId,'versionsId',versionsId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVersion) as TVersion;
+end;
+
+
+Function TAppsServicesVersionsResource.Get(appsId: string; servicesId: string; versionsId: string; AQuery : TAppsServicesVersionsgetOptions) : TVersion;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'view',AQuery.view);
+ Result:=Get(appsId,servicesId,versionsId,_Q);
+end;
+
+Function TAppsServicesVersionsResource.List(appsId: string; servicesId: string; AQuery : string = '') : TListVersionsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions';
+ _Methodid = 'appengine.apps.services.versions.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListVersionsResponse) as TListVersionsResponse;
+end;
+
+
+Function TAppsServicesVersionsResource.List(appsId: string; servicesId: string; AQuery : TAppsServicesVersionslistOptions) : TListVersionsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'view',AQuery.view);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(appsId,servicesId,_Q);
+end;
+
+Function TAppsServicesVersionsResource.Patch(appsId: string; servicesId: string; versionsId: string; aVersion : TVersion; AQuery : string = '') : TOperation;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions/{versionsId}';
+ _Methodid = 'appengine.apps.services.versions.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId,'versionsId',versionsId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aVersion,TOperation) as TOperation;
+end;
+
+
+Function TAppsServicesVersionsResource.Patch(appsId: string; servicesId: string; versionsId: string; aVersion : TVersion; AQuery : TAppsServicesVersionspatchOptions) : TOperation;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'mask',AQuery.mask);
+ Result:=Patch(appsId,servicesId,versionsId,aVersion,_Q);
+end;
+
+
+
+Function TAppsServicesVersionsResource.GetInstancesInstance : TAppsServicesVersionsInstancesResource;
+
+begin
+ if (FInstancesInstance=Nil) then
+ FInstancesInstance:=CreateInstancesResource;
+ Result:=FInstancesInstance;
+end;
+
+Function TAppsServicesVersionsResource.CreateInstancesResource : TAppsServicesVersionsInstancesResource;
+
+begin
+ Result:=CreateInstancesResource(Self);
+end;
+
+
+Function TAppsServicesVersionsResource.CreateInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;
+
+begin
+ Result:=TAppsServicesVersionsInstancesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAppsServicesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAppsServicesResource.ResourceName : String;
+
+begin
+ Result:='services';
+end;
+
+Class Function TAppsServicesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TappengineAPI;
+end;
+
+Function TAppsServicesResource.Delete(appsId: string; servicesId: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1beta5/apps/{appsId}/services/{servicesId}';
+ _Methodid = 'appengine.apps.services.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TAppsServicesResource.Get(appsId: string; servicesId: string) : TService;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta5/apps/{appsId}/services/{servicesId}';
+ _Methodid = 'appengine.apps.services.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TService) as TService;
+end;
+
+Function TAppsServicesResource.List(appsId: string; AQuery : string = '') : TListServicesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta5/apps/{appsId}/services';
+ _Methodid = 'appengine.apps.services.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListServicesResponse) as TListServicesResponse;
+end;
+
+
+Function TAppsServicesResource.List(appsId: string; AQuery : TAppsServiceslistOptions) : TListServicesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(appsId,_Q);
+end;
+
+Function TAppsServicesResource.Patch(appsId: string; servicesId: string; aService : TService; AQuery : string = '') : TOperation;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'v1beta5/apps/{appsId}/services/{servicesId}';
+ _Methodid = 'appengine.apps.services.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aService,TOperation) as TOperation;
+end;
+
+
+Function TAppsServicesResource.Patch(appsId: string; servicesId: string; aService : TService; AQuery : TAppsServicespatchOptions) : TOperation;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'mask',AQuery.mask);
+ AddToQuery(_Q,'migrateTraffic',AQuery.migrateTraffic);
+ Result:=Patch(appsId,servicesId,aService,_Q);
+end;
+
+
+
+Function TAppsServicesResource.GetVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
+
+begin
+ if (FVersionsInstancesInstance=Nil) then
+ FVersionsInstancesInstance:=CreateVersionsInstancesResource;
+ Result:=FVersionsInstancesInstance;
+end;
+
+Function TAppsServicesResource.CreateVersionsInstancesResource : TAppsServicesVersionsInstancesResource;
+
+begin
+ Result:=CreateVersionsInstancesResource(Self);
+end;
+
+
+Function TAppsServicesResource.CreateVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;
+
+begin
+ Result:=TAppsServicesVersionsInstancesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAppsServicesResource.GetVersionsInstance : TAppsServicesVersionsResource;
+
+begin
+ if (FVersionsInstance=Nil) then
+ FVersionsInstance:=CreateVersionsResource;
+ Result:=FVersionsInstance;
+end;
+
+Function TAppsServicesResource.CreateVersionsResource : TAppsServicesVersionsResource;
+
+begin
+ Result:=CreateVersionsResource(Self);
+end;
+
+
+Function TAppsServicesResource.CreateVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;
+
+begin
+ Result:=TAppsServicesVersionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAppsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAppsResource.ResourceName : String;
+
+begin
+ Result:='apps';
+end;
+
+Class Function TAppsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TappengineAPI;
+end;
+
+Function TAppsResource.Get(appsId: string; AQuery : string = '') : TApplication;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta5/apps/{appsId}';
+ _Methodid = 'appengine.apps.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['appsId',appsId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TApplication) as TApplication;
+end;
+
+
+Function TAppsResource.Get(appsId: string; AQuery : TAppsgetOptions) : TApplication;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'ensureResourcesExist',AQuery.ensureResourcesExist);
+ Result:=Get(appsId,_Q);
+end;
+
+
+
+Function TAppsResource.GetOperationsInstance : TAppsOperationsResource;
+
+begin
+ if (FOperationsInstance=Nil) then
+ FOperationsInstance:=CreateOperationsResource;
+ Result:=FOperationsInstance;
+end;
+
+Function TAppsResource.CreateOperationsResource : TAppsOperationsResource;
+
+begin
+ Result:=CreateOperationsResource(Self);
+end;
+
+
+Function TAppsResource.CreateOperationsResource(AOwner : TComponent) : TAppsOperationsResource;
+
+begin
+ Result:=TAppsOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAppsResource.GetServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
+
+begin
+ if (FServicesVersionsInstancesInstance=Nil) then
+ FServicesVersionsInstancesInstance:=CreateServicesVersionsInstancesResource;
+ Result:=FServicesVersionsInstancesInstance;
+end;
+
+Function TAppsResource.CreateServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource;
+
+begin
+ Result:=CreateServicesVersionsInstancesResource(Self);
+end;
+
+
+Function TAppsResource.CreateServicesVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;
+
+begin
+ Result:=TAppsServicesVersionsInstancesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAppsResource.GetServicesVersionsInstance : TAppsServicesVersionsResource;
+
+begin
+ if (FServicesVersionsInstance=Nil) then
+ FServicesVersionsInstance:=CreateServicesVersionsResource;
+ Result:=FServicesVersionsInstance;
+end;
+
+Function TAppsResource.CreateServicesVersionsResource : TAppsServicesVersionsResource;
+
+begin
+ Result:=CreateServicesVersionsResource(Self);
+end;
+
+
+Function TAppsResource.CreateServicesVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;
+
+begin
+ Result:=TAppsServicesVersionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAppsResource.GetServicesInstance : TAppsServicesResource;
+
+begin
+ if (FServicesInstance=Nil) then
+ FServicesInstance:=CreateServicesResource;
+ Result:=FServicesInstance;
+end;
+
+Function TAppsResource.CreateServicesResource : TAppsServicesResource;
+
+begin
+ Result:=CreateServicesResource(Self);
+end;
+
+
+Function TAppsResource.CreateServicesResource(AOwner : TComponent) : TAppsServicesResource;
+
+begin
+ Result:=TAppsServicesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAppengineAPI
+ --------------------------------------------------------------------}
+
+Class Function TAppengineAPI.APIName : String;
+
+begin
+ Result:='appengine';
+end;
+
+Class Function TAppengineAPI.APIVersion : String;
+
+begin
+ Result:='v1beta5';
+end;
+
+Class Function TAppengineAPI.APIRevision : String;
+
+begin
+ Result:='20160407';
+end;
+
+Class Function TAppengineAPI.APIID : String;
+
+begin
+ Result:='appengine:v1beta5';
+end;
+
+Class Function TAppengineAPI.APITitle : String;
+
+begin
+ Result:='Google App Engine Admin API';
+end;
+
+Class Function TAppengineAPI.APIDescription : String;
+
+begin
+ Result:='Provisions and manages App Engine applications.';
+end;
+
+Class Function TAppengineAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TAppengineAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TAppengineAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TAppengineAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TAppengineAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/appengine/docs/admin-api/';
+end;
+
+Class Function TAppengineAPI.APIrootUrl : string;
+
+begin
+ Result:='https://appengine.googleapis.com/';
+end;
+
+Class Function TAppengineAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TAppengineAPI.APIbaseURL : String;
+
+begin
+ Result:='https://appengine.googleapis.com/';
+end;
+
+Class Function TAppengineAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TAppengineAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TAppengineAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TAppengineAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+
+end;
+
+Class Function TAppengineAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TAppengineAPI.RegisterAPIResources;
+
+begin
+ TOperationTypemetadata.RegisterObject;
+ TOperationTyperesponse.RegisterObject;
+ TOperation.RegisterObject;
+ TStatusTypedetailsItem.RegisterObject;
+ TStatus.RegisterObject;
+ TListOperationsResponse.RegisterObject;
+ TApplication.RegisterObject;
+ TUrlDispatchRule.RegisterObject;
+ TVersionTypebetaSettings.RegisterObject;
+ TVersionTypeenvVariables.RegisterObject;
+ TVersion.RegisterObject;
+ TAutomaticScaling.RegisterObject;
+ TCpuUtilization.RegisterObject;
+ TRequestUtilization.RegisterObject;
+ TDiskUtilization.RegisterObject;
+ TNetworkUtilization.RegisterObject;
+ TBasicScaling.RegisterObject;
+ TManualScaling.RegisterObject;
+ TNetwork.RegisterObject;
+ TResources.RegisterObject;
+ TUrlMap.RegisterObject;
+ TStaticFilesHandlerTypehttpHeaders.RegisterObject;
+ TStaticFilesHandler.RegisterObject;
+ TScriptHandler.RegisterObject;
+ TApiEndpointHandler.RegisterObject;
+ TErrorHandler.RegisterObject;
+ TLibrary.RegisterObject;
+ TApiConfigHandler.RegisterObject;
+ THealthCheck.RegisterObject;
+ TDeploymentTypefiles.RegisterObject;
+ TDeployment.RegisterObject;
+ TFileInfo.RegisterObject;
+ TContainerInfo.RegisterObject;
+ TSourceReference.RegisterObject;
+ TListVersionsResponse.RegisterObject;
+ TService.RegisterObject;
+ TTrafficSplitTypeallocations.RegisterObject;
+ TTrafficSplit.RegisterObject;
+ TListServicesResponse.RegisterObject;
+ TListInstancesResponse.RegisterObject;
+ TInstance.RegisterObject;
+ TOperationMetadata.RegisterObject;
+ TOperationMetadataV1Beta5.RegisterObject;
+end;
+
+
+Function TAppengineAPI.GetAppsOperationsInstance : TAppsOperationsResource;
+
+begin
+ if (FAppsOperationsInstance=Nil) then
+ FAppsOperationsInstance:=CreateAppsOperationsResource;
+ Result:=FAppsOperationsInstance;
+end;
+
+Function TAppengineAPI.CreateAppsOperationsResource : TAppsOperationsResource;
+
+begin
+ Result:=CreateAppsOperationsResource(Self);
+end;
+
+
+Function TAppengineAPI.CreateAppsOperationsResource(AOwner : TComponent) : TAppsOperationsResource;
+
+begin
+ Result:=TAppsOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAppengineAPI.GetAppsServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
+
+begin
+ if (FAppsServicesVersionsInstancesInstance=Nil) then
+ FAppsServicesVersionsInstancesInstance:=CreateAppsServicesVersionsInstancesResource;
+ Result:=FAppsServicesVersionsInstancesInstance;
+end;
+
+Function TAppengineAPI.CreateAppsServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource;
+
+begin
+ Result:=CreateAppsServicesVersionsInstancesResource(Self);
+end;
+
+
+Function TAppengineAPI.CreateAppsServicesVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;
+
+begin
+ Result:=TAppsServicesVersionsInstancesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAppengineAPI.GetAppsServicesVersionsInstance : TAppsServicesVersionsResource;
+
+begin
+ if (FAppsServicesVersionsInstance=Nil) then
+ FAppsServicesVersionsInstance:=CreateAppsServicesVersionsResource;
+ Result:=FAppsServicesVersionsInstance;
+end;
+
+Function TAppengineAPI.CreateAppsServicesVersionsResource : TAppsServicesVersionsResource;
+
+begin
+ Result:=CreateAppsServicesVersionsResource(Self);
+end;
+
+
+Function TAppengineAPI.CreateAppsServicesVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;
+
+begin
+ Result:=TAppsServicesVersionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAppengineAPI.GetAppsServicesInstance : TAppsServicesResource;
+
+begin
+ if (FAppsServicesInstance=Nil) then
+ FAppsServicesInstance:=CreateAppsServicesResource;
+ Result:=FAppsServicesInstance;
+end;
+
+Function TAppengineAPI.CreateAppsServicesResource : TAppsServicesResource;
+
+begin
+ Result:=CreateAppsServicesResource(Self);
+end;
+
+
+Function TAppengineAPI.CreateAppsServicesResource(AOwner : TComponent) : TAppsServicesResource;
+
+begin
+ Result:=TAppsServicesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAppengineAPI.GetAppsInstance : TAppsResource;
+
+begin
+ if (FAppsInstance=Nil) then
+ FAppsInstance:=CreateAppsResource;
+ Result:=FAppsInstance;
+end;
+
+Function TAppengineAPI.CreateAppsResource : TAppsResource;
+
+begin
+ Result:=CreateAppsResource(Self);
+end;
+
+
+Function TAppengineAPI.CreateAppsResource(AOwner : TComponent) : TAppsResource;
+
+begin
+ Result:=TAppsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TAppengineAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleappsactivity.pp b/packages/googleapi/src/googleappsactivity.pp
index 70f4633f0d..90eebd05a2 100644
--- a/packages/googleapi/src/googleappsactivity.pp
+++ b/packages/googleapi/src/googleappsactivity.pp
@@ -1,19 +1,4 @@
unit googleappsactivity;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:58
{$MODE objfpc}
{$H+}
@@ -65,8 +50,8 @@ type
FsingleEvents : TActivityTypesingleEventsArray;
Protected
//Property setters
- Procedure SetcombinedEvent(AIndex : Integer; AValue : TEvent); virtual;
- Procedure SetsingleEvents(AIndex : Integer; AValue : TActivityTypesingleEventsArray); virtual;
+ Procedure SetcombinedEvent(AIndex : Integer; const AValue : TEvent); virtual;
+ Procedure SetsingleEvents(AIndex : Integer; const AValue : TActivityTypesingleEventsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -95,15 +80,15 @@ type
Fuser : TUser;
Protected
//Property setters
- Procedure SetadditionalEventTypes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetadditionalEventTypes(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SeteventTimeMillis(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfromUserDeletion(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setmove(AIndex : Integer; AValue : TMove); virtual;
- Procedure SetpermissionChanges(AIndex : Integer; AValue : TEventTypepermissionChangesArray); virtual;
+ Procedure SetfromUserDeletion(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setmove(AIndex : Integer; const AValue : TMove); virtual;
+ Procedure SetpermissionChanges(AIndex : Integer; const AValue : TEventTypepermissionChangesArray); virtual;
Procedure SetprimaryEventType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrename(AIndex : Integer; AValue : TRename); virtual;
- Procedure Settarget(AIndex : Integer; AValue : TTarget); virtual;
- Procedure Setuser(AIndex : Integer; AValue : TUser); virtual;
+ Procedure Setrename(AIndex : Integer; const AValue : TRename); virtual;
+ Procedure Settarget(AIndex : Integer; const AValue : TTarget); virtual;
+ Procedure Setuser(AIndex : Integer; const AValue : TUser); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -132,7 +117,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setactivities(AIndex : Integer; AValue : TListActivitiesResponseTypeactivitiesArray); virtual;
+ Procedure Setactivities(AIndex : Integer; const AValue : TListActivitiesResponseTypeactivitiesArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -155,8 +140,8 @@ type
FremovedParents : TMoveTyperemovedParentsArray;
Protected
//Property setters
- Procedure SetaddedParents(AIndex : Integer; AValue : TMoveTypeaddedParentsArray); virtual;
- Procedure SetremovedParents(AIndex : Integer; AValue : TMoveTyperemovedParentsArray); virtual;
+ Procedure SetaddedParents(AIndex : Integer; const AValue : TMoveTypeaddedParentsArray); virtual;
+ Procedure SetremovedParents(AIndex : Integer; const AValue : TMoveTyperemovedParentsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -180,7 +165,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisRoot(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisRoot(AIndex : Integer; const AValue : boolean); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -209,8 +194,8 @@ type
Procedure SetpermissionId(AIndex : Integer; const AValue : String); virtual;
Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setuser(AIndex : Integer; AValue : TUser); virtual;
- Procedure SetwithLink(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setuser(AIndex : Integer; const AValue : TUser); virtual;
+ Procedure SetwithLink(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
@@ -232,8 +217,8 @@ type
FremovedPermissions : TPermissionChangeTyperemovedPermissionsArray;
Protected
//Property setters
- Procedure SetaddedPermissions(AIndex : Integer; AValue : TPermissionChangeTypeaddedPermissionsArray); virtual;
- Procedure SetremovedPermissions(AIndex : Integer; AValue : TPermissionChangeTyperemovedPermissionsArray); virtual;
+ Procedure SetaddedPermissions(AIndex : Integer; const AValue : TPermissionChangeTypeaddedPermissionsArray); virtual;
+ Procedure SetremovedPermissions(AIndex : Integer; const AValue : TPermissionChangeTyperemovedPermissionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -308,16 +293,22 @@ type
TUser = Class(TGoogleBaseObject)
Private
+ FisDeleted : boolean;
Fname : String;
+ FpermissionId : String;
Fphoto : TPhoto;
Protected
//Property setters
+ Procedure SetisDeleted(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setphoto(AIndex : Integer; AValue : TPhoto); virtual;
+ Procedure SetpermissionId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setphoto(AIndex : Integer; const AValue : TPhoto); virtual;
Public
Published
- Property name : String Index 0 Read Fname Write Setname;
- Property photo : TPhoto Index 8 Read Fphoto Write Setphoto;
+ Property isDeleted : boolean Index 0 Read FisDeleted Write SetisDeleted;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property permissionId : String Index 16 Read FpermissionId Write SetpermissionId;
+ Property photo : TPhoto Index 24 Read Fphoto Write Setphoto;
end;
TUserClass = Class of TUser;
@@ -392,7 +383,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TActivity.SetcombinedEvent(AIndex : Integer; AValue : TEvent);
+Procedure TActivity.SetcombinedEvent(AIndex : Integer; const AValue : TEvent);
begin
If (FcombinedEvent=AValue) then exit;
@@ -402,7 +393,7 @@ end;
-Procedure TActivity.SetsingleEvents(AIndex : Integer; AValue : TActivityTypesingleEventsArray);
+Procedure TActivity.SetsingleEvents(AIndex : Integer; const AValue : TActivityTypesingleEventsArray);
begin
If (FsingleEvents=AValue) then exit;
@@ -432,7 +423,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEvent.SetadditionalEventTypes(AIndex : Integer; AValue : TStringArray);
+Procedure TEvent.SetadditionalEventTypes(AIndex : Integer; const AValue : TStringArray);
begin
If (FadditionalEventTypes=AValue) then exit;
@@ -452,7 +443,7 @@ end;
-Procedure TEvent.SetfromUserDeletion(AIndex : Integer; AValue : boolean);
+Procedure TEvent.SetfromUserDeletion(AIndex : Integer; const AValue : boolean);
begin
If (FfromUserDeletion=AValue) then exit;
@@ -462,7 +453,7 @@ end;
-Procedure TEvent.Setmove(AIndex : Integer; AValue : TMove);
+Procedure TEvent.Setmove(AIndex : Integer; const AValue : TMove);
begin
If (Fmove=AValue) then exit;
@@ -472,7 +463,7 @@ end;
-Procedure TEvent.SetpermissionChanges(AIndex : Integer; AValue : TEventTypepermissionChangesArray);
+Procedure TEvent.SetpermissionChanges(AIndex : Integer; const AValue : TEventTypepermissionChangesArray);
begin
If (FpermissionChanges=AValue) then exit;
@@ -492,7 +483,7 @@ end;
-Procedure TEvent.Setrename(AIndex : Integer; AValue : TRename);
+Procedure TEvent.Setrename(AIndex : Integer; const AValue : TRename);
begin
If (Frename=AValue) then exit;
@@ -502,7 +493,7 @@ end;
-Procedure TEvent.Settarget(AIndex : Integer; AValue : TTarget);
+Procedure TEvent.Settarget(AIndex : Integer; const AValue : TTarget);
begin
If (Ftarget=AValue) then exit;
@@ -512,7 +503,7 @@ end;
-Procedure TEvent.Setuser(AIndex : Integer; AValue : TUser);
+Procedure TEvent.Setuser(AIndex : Integer; const AValue : TUser);
begin
If (Fuser=AValue) then exit;
@@ -543,7 +534,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListActivitiesResponse.Setactivities(AIndex : Integer; AValue : TListActivitiesResponseTypeactivitiesArray);
+Procedure TListActivitiesResponse.Setactivities(AIndex : Integer; const AValue : TListActivitiesResponseTypeactivitiesArray);
begin
If (Factivities=AValue) then exit;
@@ -583,7 +574,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMove.SetaddedParents(AIndex : Integer; AValue : TMoveTypeaddedParentsArray);
+Procedure TMove.SetaddedParents(AIndex : Integer; const AValue : TMoveTypeaddedParentsArray);
begin
If (FaddedParents=AValue) then exit;
@@ -593,7 +584,7 @@ end;
-Procedure TMove.SetremovedParents(AIndex : Integer; AValue : TMoveTyperemovedParentsArray);
+Procedure TMove.SetremovedParents(AIndex : Integer; const AValue : TMoveTyperemovedParentsArray);
begin
If (FremovedParents=AValue) then exit;
@@ -634,7 +625,7 @@ end;
-Procedure TParent.SetisRoot(AIndex : Integer; AValue : boolean);
+Procedure TParent.SetisRoot(AIndex : Integer; const AValue : boolean);
begin
If (FisRoot=AValue) then exit;
@@ -701,7 +692,7 @@ end;
-Procedure TPermission.Setuser(AIndex : Integer; AValue : TUser);
+Procedure TPermission.Setuser(AIndex : Integer; const AValue : TUser);
begin
If (Fuser=AValue) then exit;
@@ -711,7 +702,7 @@ end;
-Procedure TPermission.SetwithLink(AIndex : Integer; AValue : boolean);
+Procedure TPermission.SetwithLink(AIndex : Integer; const AValue : boolean);
begin
If (FwithLink=AValue) then exit;
@@ -739,7 +730,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPermissionChange.SetaddedPermissions(AIndex : Integer; AValue : TPermissionChangeTypeaddedPermissionsArray);
+Procedure TPermissionChange.SetaddedPermissions(AIndex : Integer; const AValue : TPermissionChangeTypeaddedPermissionsArray);
begin
If (FaddedPermissions=AValue) then exit;
@@ -749,7 +740,7 @@ end;
-Procedure TPermissionChange.SetremovedPermissions(AIndex : Integer; AValue : TPermissionChangeTyperemovedPermissionsArray);
+Procedure TPermissionChange.SetremovedPermissions(AIndex : Integer; const AValue : TPermissionChangeTyperemovedPermissionsArray);
begin
If (FremovedPermissions=AValue) then exit;
@@ -861,6 +852,16 @@ end;
--------------------------------------------------------------------}
+Procedure TUser.SetisDeleted(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisDeleted=AValue) then exit;
+ FisDeleted:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TUser.Setname(AIndex : Integer; const AValue : String);
begin
@@ -871,7 +872,17 @@ end;
-Procedure TUser.Setphoto(AIndex : Integer; AValue : TPhoto);
+Procedure TUser.SetpermissionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpermissionId=AValue) then exit;
+ FpermissionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUser.Setphoto(AIndex : Integer; const AValue : TPhoto);
begin
If (Fphoto=AValue) then exit;
@@ -950,7 +961,7 @@ end;
Class Function TAppsactivityAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160129';
end;
Class Function TAppsactivityAPI.APIID : String;
@@ -1004,7 +1015,7 @@ end;
Class Function TAppsactivityAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TAppsactivityAPI.APIbasePath : string;
@@ -1016,7 +1027,7 @@ end;
Class Function TAppsactivityAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/appsactivity/v1/';
+ Result:='https://www.googleapis.com/appsactivity/v1/';
end;
Class Function TAppsactivityAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googleappstate.pp b/packages/googleapi/src/googleappstate.pp
index 799881e825..5265f8e56f 100644
--- a/packages/googleapi/src/googleappstate.pp
+++ b/packages/googleapi/src/googleappstate.pp
@@ -1,19 +1,4 @@
unit googleappstate;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:58
{$MODE objfpc}
{$H+}
@@ -50,7 +35,7 @@ type
Procedure SetcurrentStateVersion(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstateKey(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstateKey(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property currentStateVersion : String Index 0 Read FcurrentStateVersion Write SetcurrentStateVersion;
@@ -71,9 +56,9 @@ type
FmaximumKeyCount : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaximumKeyCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmaximumKeyCount(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -118,7 +103,7 @@ type
//Property setters
Procedure SetcurrentStateVersion(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstateKey(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstateKey(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property currentStateVersion : String Index 0 Read FcurrentStateVersion Write SetcurrentStateVersion;
@@ -242,7 +227,7 @@ end;
-Procedure TGetResponse.SetstateKey(AIndex : Integer; AValue : integer);
+Procedure TGetResponse.SetstateKey(AIndex : Integer; const AValue : integer);
begin
If (FstateKey=AValue) then exit;
@@ -259,7 +244,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListResponse.Setitems(AIndex : Integer; AValue : TListResponseTypeitemsArray);
+Procedure TListResponse.Setitems(AIndex : Integer; const AValue : TListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -279,7 +264,7 @@ end;
-Procedure TListResponse.SetmaximumKeyCount(AIndex : Integer; AValue : integer);
+Procedure TListResponse.SetmaximumKeyCount(AIndex : Integer; const AValue : integer);
begin
If (FmaximumKeyCount=AValue) then exit;
@@ -356,7 +341,7 @@ end;
-Procedure TWriteResult.SetstateKey(AIndex : Integer; AValue : integer);
+Procedure TWriteResult.SetstateKey(AIndex : Integer; const AValue : integer);
begin
If (FstateKey=AValue) then exit;
@@ -513,7 +498,7 @@ end;
Class Function TAppstateAPI.APIRevision : String;
begin
- Result:='20150512';
+ Result:='20160519';
end;
Class Function TAppstateAPI.APIID : String;
@@ -567,7 +552,7 @@ end;
Class Function TAppstateAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TAppstateAPI.APIbasePath : string;
@@ -579,7 +564,7 @@ end;
Class Function TAppstateAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/appstate/v1/';
+ Result:='https://www.googleapis.com/appstate/v1/';
end;
Class Function TAppstateAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googleautoscaler.pp b/packages/googleapi/src/googleautoscaler.pp
index 7bb0d84374..8f36da790f 100644
--- a/packages/googleapi/src/googleautoscaler.pp
+++ b/packages/googleapi/src/googleautoscaler.pp
@@ -1,19 +1,4 @@
unit googleautoscaler;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:59
{$MODE objfpc}
{$H+}
@@ -51,14 +36,12 @@ type
TOperationTypeerror = Class;
TOperationTypewarningsItemTypedataItem = Class;
TOperationTypewarningsItem = Class;
- TZoneTypemaintenanceWindowsItem = Class;
TAutoscalerListResponseTypeitemsArray = Array of TAutoscaler;
TAutoscalingPolicyTypecustomMetricUtilizationsArray = Array of TAutoscalingPolicyCustomMetricUtilization;
TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
TOperationTypewarningsArray = Array of TOperationTypewarningsItem;
TOperationListTypeitemsArray = Array of TOperation;
- TZoneTypemaintenanceWindowsArray = Array of TZoneTypemaintenanceWindowsItem;
TZoneListTypeitemsArray = Array of TZone;
{ --------------------------------------------------------------------
@@ -77,7 +60,7 @@ type
Ftarget : String;
Protected
//Property setters
- Procedure SetautoscalingPolicy(AIndex : Integer; AValue : TAutoscalingPolicy); virtual;
+ Procedure SetautoscalingPolicy(AIndex : Integer; const AValue : TAutoscalingPolicy); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
@@ -109,7 +92,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAutoscalerListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAutoscalerListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -138,12 +121,12 @@ type
FminNumReplicas : integer;
Protected
//Property setters
- Procedure SetcoolDownPeriodSec(AIndex : Integer; AValue : integer); virtual;
- Procedure SetcpuUtilization(AIndex : Integer; AValue : TAutoscalingPolicyCpuUtilization); virtual;
- Procedure SetcustomMetricUtilizations(AIndex : Integer; AValue : TAutoscalingPolicyTypecustomMetricUtilizationsArray); virtual;
- Procedure SetloadBalancingUtilization(AIndex : Integer; AValue : TAutoscalingPolicyLoadBalancingUtilization); virtual;
- Procedure SetmaxNumReplicas(AIndex : Integer; AValue : integer); virtual;
- Procedure SetminNumReplicas(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetcoolDownPeriodSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetcpuUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyCpuUtilization); virtual;
+ Procedure SetcustomMetricUtilizations(AIndex : Integer; const AValue : TAutoscalingPolicyTypecustomMetricUtilizationsArray); virtual;
+ Procedure SetloadBalancingUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyLoadBalancingUtilization); virtual;
+ Procedure SetmaxNumReplicas(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetminNumReplicas(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -168,7 +151,7 @@ type
FutilizationTarget : double;
Protected
//Property setters
- Procedure SetutilizationTarget(AIndex : Integer; AValue : double); virtual;
+ Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property utilizationTarget : double Index 0 Read FutilizationTarget Write SetutilizationTarget;
@@ -187,7 +170,7 @@ type
Protected
//Property setters
Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
- Procedure SetutilizationTarget(AIndex : Integer; AValue : double); virtual;
+ Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
Procedure SetutilizationTargetType(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -206,7 +189,7 @@ type
FutilizationTarget : double;
Protected
//Property setters
- Procedure SetutilizationTarget(AIndex : Integer; AValue : double); virtual;
+ Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property utilizationTarget : double Index 0 Read FutilizationTarget Write SetutilizationTarget;
@@ -272,7 +255,7 @@ type
Ferrors : TOperationTypeerrorTypeerrorsArray;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -314,7 +297,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -336,6 +319,7 @@ type
Private
FclientOperationId : String;
FcreationTimestamp : String;
+ Fdescription : String;
FendTime : String;
Ferror : TOperationTypeerror;
FhttpErrorMessage : String;
@@ -360,16 +344,17 @@ type
//Property setters
Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TOperationTypeerror); virtual;
Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
- Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
+ Procedure SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprogress(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
@@ -378,7 +363,7 @@ type
Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -388,26 +373,27 @@ type
Published
Property clientOperationId : String Index 0 Read FclientOperationId Write SetclientOperationId;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
- Property endTime : String Index 16 Read FendTime Write SetendTime;
- Property error : TOperationTypeerror Index 24 Read Ferror Write Seterror;
- Property httpErrorMessage : String Index 32 Read FhttpErrorMessage Write SethttpErrorMessage;
- Property httpErrorStatusCode : integer Index 40 Read FhttpErrorStatusCode Write SethttpErrorStatusCode;
- Property id : String Index 48 Read Fid Write Setid;
- Property insertTime : String Index 56 Read FinsertTime Write SetinsertTime;
- Property kind : String Index 64 Read Fkind Write Setkind;
- Property name : String Index 72 Read Fname Write Setname;
- Property operationType : String Index 80 Read FoperationType Write SetoperationType;
- Property progress : integer Index 88 Read Fprogress Write Setprogress;
- Property region : String Index 96 Read Fregion Write Setregion;
- Property selfLink : String Index 104 Read FselfLink Write SetselfLink;
- Property startTime : String Index 112 Read FstartTime Write SetstartTime;
- Property status : String Index 120 Read Fstatus Write Setstatus;
- Property statusMessage : String Index 128 Read FstatusMessage Write SetstatusMessage;
- Property targetId : String Index 136 Read FtargetId Write SettargetId;
- Property targetLink : String Index 144 Read FtargetLink Write SettargetLink;
- Property user : String Index 152 Read Fuser Write Setuser;
- Property warnings : TOperationTypewarningsArray Index 160 Read Fwarnings Write Setwarnings;
- Property zone : String Index 168 Read Fzone Write Setzone;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ Property endTime : String Index 24 Read FendTime Write SetendTime;
+ Property error : TOperationTypeerror Index 32 Read Ferror Write Seterror;
+ Property httpErrorMessage : String Index 40 Read FhttpErrorMessage Write SethttpErrorMessage;
+ Property httpErrorStatusCode : integer Index 48 Read FhttpErrorStatusCode Write SethttpErrorStatusCode;
+ Property id : String Index 56 Read Fid Write Setid;
+ Property insertTime : String Index 64 Read FinsertTime Write SetinsertTime;
+ Property kind : String Index 72 Read Fkind Write Setkind;
+ Property name : String Index 80 Read Fname Write Setname;
+ Property operationType : String Index 88 Read FoperationType Write SetoperationType;
+ Property progress : integer Index 96 Read Fprogress Write Setprogress;
+ Property region : String Index 104 Read Fregion Write Setregion;
+ Property selfLink : String Index 112 Read FselfLink Write SetselfLink;
+ Property startTime : String Index 120 Read FstartTime Write SetstartTime;
+ Property status : String Index 128 Read Fstatus Write Setstatus;
+ Property statusMessage : String Index 136 Read FstatusMessage Write SetstatusMessage;
+ Property targetId : String Index 144 Read FtargetId Write SettargetId;
+ Property targetLink : String Index 152 Read FtargetLink Write SettargetLink;
+ Property user : String Index 160 Read Fuser Write Setuser;
+ Property warnings : TOperationTypewarningsArray Index 168 Read Fwarnings Write Setwarnings;
+ Property zone : String Index 176 Read Fzone Write Setzone;
end;
TOperationClass = Class of TOperation;
@@ -425,7 +411,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -444,31 +430,6 @@ type
TOperationListClass = Class of TOperationList;
{ --------------------------------------------------------------------
- TZoneTypemaintenanceWindowsItem
- --------------------------------------------------------------------}
-
- TZoneTypemaintenanceWindowsItem = Class(TGoogleBaseObject)
- Private
- FbeginTime : String;
- Fdescription : String;
- FendTime : String;
- Fname : String;
- Protected
- //Property setters
- Procedure SetbeginTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property beginTime : String Index 0 Read FbeginTime Write SetbeginTime;
- Property description : String Index 8 Read Fdescription Write Setdescription;
- Property endTime : String Index 16 Read FendTime Write SetendTime;
- Property name : String Index 24 Read Fname Write Setname;
- end;
- TZoneTypemaintenanceWindowsItemClass = Class of TZoneTypemaintenanceWindowsItem;
-
- { --------------------------------------------------------------------
TZone
--------------------------------------------------------------------}
@@ -479,7 +440,6 @@ type
Fdescription : String;
Fid : String;
Fkind : String;
- FmaintenanceWindows : TZoneTypemaintenanceWindowsArray;
Fname : String;
Fregion : String;
FselfLink : String;
@@ -487,19 +447,14 @@ type
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus); virtual;
+ Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaintenanceWindows(AIndex : Integer; AValue : TZoneTypemaintenanceWindowsArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
@@ -507,11 +462,10 @@ type
Property description : String Index 16 Read Fdescription Write Setdescription;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
- Property maintenanceWindows : TZoneTypemaintenanceWindowsArray Index 40 Read FmaintenanceWindows Write SetmaintenanceWindows;
- Property name : String Index 48 Read Fname Write Setname;
- Property region : String Index 56 Read Fregion Write Setregion;
- Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
- Property status : String Index 72 Read Fstatus Write Setstatus;
+ Property name : String Index 40 Read Fname Write Setname;
+ Property region : String Index 48 Read Fregion Write Setregion;
+ Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
+ Property status : String Index 64 Read Fstatus Write Setstatus;
end;
TZoneClass = Class of TZone;
@@ -529,7 +483,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TZoneListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TZoneListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -609,14 +563,15 @@ type
filter : String;
maxResults : integer;
pageToken : String;
+ project : String;
end;
TZonesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(project: string; AQuery : string = '') : TZoneList;
- Function List(project: string; AQuery : TZoneslistOptions) : TZoneList;
+ Function List(AQuery : string = '') : TZoneList;
+ Function List(AQuery : TZoneslistOptions) : TZoneList;
end;
@@ -675,7 +630,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TAutoscaler.SetautoscalingPolicy(AIndex : Integer; AValue : TAutoscalingPolicy);
+Procedure TAutoscaler.SetautoscalingPolicy(AIndex : Integer; const AValue : TAutoscalingPolicy);
begin
If (FautoscalingPolicy=AValue) then exit;
@@ -762,7 +717,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAutoscalerListResponse.Setitems(AIndex : Integer; AValue : TAutoscalerListResponseTypeitemsArray);
+Procedure TAutoscalerListResponse.Setitems(AIndex : Integer; const AValue : TAutoscalerListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -812,7 +767,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAutoscalingPolicy.SetcoolDownPeriodSec(AIndex : Integer; AValue : integer);
+Procedure TAutoscalingPolicy.SetcoolDownPeriodSec(AIndex : Integer; const AValue : integer);
begin
If (FcoolDownPeriodSec=AValue) then exit;
@@ -822,7 +777,7 @@ end;
-Procedure TAutoscalingPolicy.SetcpuUtilization(AIndex : Integer; AValue : TAutoscalingPolicyCpuUtilization);
+Procedure TAutoscalingPolicy.SetcpuUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyCpuUtilization);
begin
If (FcpuUtilization=AValue) then exit;
@@ -832,7 +787,7 @@ end;
-Procedure TAutoscalingPolicy.SetcustomMetricUtilizations(AIndex : Integer; AValue : TAutoscalingPolicyTypecustomMetricUtilizationsArray);
+Procedure TAutoscalingPolicy.SetcustomMetricUtilizations(AIndex : Integer; const AValue : TAutoscalingPolicyTypecustomMetricUtilizationsArray);
begin
If (FcustomMetricUtilizations=AValue) then exit;
@@ -842,7 +797,7 @@ end;
-Procedure TAutoscalingPolicy.SetloadBalancingUtilization(AIndex : Integer; AValue : TAutoscalingPolicyLoadBalancingUtilization);
+Procedure TAutoscalingPolicy.SetloadBalancingUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyLoadBalancingUtilization);
begin
If (FloadBalancingUtilization=AValue) then exit;
@@ -852,7 +807,7 @@ end;
-Procedure TAutoscalingPolicy.SetmaxNumReplicas(AIndex : Integer; AValue : integer);
+Procedure TAutoscalingPolicy.SetmaxNumReplicas(AIndex : Integer; const AValue : integer);
begin
If (FmaxNumReplicas=AValue) then exit;
@@ -862,7 +817,7 @@ end;
-Procedure TAutoscalingPolicy.SetminNumReplicas(AIndex : Integer; AValue : integer);
+Procedure TAutoscalingPolicy.SetminNumReplicas(AIndex : Integer; const AValue : integer);
begin
If (FminNumReplicas=AValue) then exit;
@@ -892,7 +847,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAutoscalingPolicyCpuUtilization.SetutilizationTarget(AIndex : Integer; AValue : double);
+Procedure TAutoscalingPolicyCpuUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double);
begin
If (FutilizationTarget=AValue) then exit;
@@ -919,7 +874,7 @@ end;
-Procedure TAutoscalingPolicyCustomMetricUtilization.SetutilizationTarget(AIndex : Integer; AValue : double);
+Procedure TAutoscalingPolicyCustomMetricUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double);
begin
If (FutilizationTarget=AValue) then exit;
@@ -946,7 +901,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAutoscalingPolicyLoadBalancingUtilization.SetutilizationTarget(AIndex : Integer; AValue : double);
+Procedure TAutoscalingPolicyLoadBalancingUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double);
begin
If (FutilizationTarget=AValue) then exit;
@@ -1057,7 +1012,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOperationTypeerror.Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray);
+Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -1124,7 +1079,7 @@ end;
-Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray);
+Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -1184,6 +1139,16 @@ end;
+Procedure TOperation.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String);
begin
@@ -1194,7 +1159,7 @@ end;
-Procedure TOperation.Seterror(AIndex : Integer; AValue : TOperationTypeerror);
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror);
begin
If (Ferror=AValue) then exit;
@@ -1214,7 +1179,7 @@ end;
-Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; AValue : integer);
+Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer);
begin
If (FhttpErrorStatusCode=AValue) then exit;
@@ -1274,7 +1239,7 @@ end;
-Procedure TOperation.Setprogress(AIndex : Integer; AValue : integer);
+Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer);
begin
If (Fprogress=AValue) then exit;
@@ -1364,7 +1329,7 @@ end;
-Procedure TOperation.Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray);
+Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
@@ -1414,7 +1379,7 @@ end;
-Procedure TOperationList.Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray);
+Procedure TOperationList.Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1470,53 +1435,6 @@ end;
{ --------------------------------------------------------------------
- TZoneTypemaintenanceWindowsItem
- --------------------------------------------------------------------}
-
-
-Procedure TZoneTypemaintenanceWindowsItem.SetbeginTime(AIndex : Integer; const AValue : String);
-
-begin
- If (FbeginTime=AValue) then exit;
- FbeginTime:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TZoneTypemaintenanceWindowsItem.Setdescription(AIndex : Integer; const AValue : String);
-
-begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TZoneTypemaintenanceWindowsItem.SetendTime(AIndex : Integer; const AValue : String);
-
-begin
- If (FendTime=AValue) then exit;
- FendTime:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TZoneTypemaintenanceWindowsItem.Setname(AIndex : Integer; const AValue : String);
-
-begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
TZone
--------------------------------------------------------------------}
@@ -1531,7 +1449,7 @@ end;
-Procedure TZone.Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus);
+Procedure TZone.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus);
begin
If (Fdeprecated=AValue) then exit;
@@ -1571,16 +1489,6 @@ end;
-Procedure TZone.SetmaintenanceWindows(AIndex : Integer; AValue : TZoneTypemaintenanceWindowsArray);
-
-begin
- If (FmaintenanceWindows=AValue) then exit;
- FmaintenanceWindows:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TZone.Setname(AIndex : Integer; const AValue : String);
begin
@@ -1620,19 +1528,6 @@ begin
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TZone.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'maintenancewindows' : SetLength(FmaintenanceWindows,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
@@ -1651,7 +1546,7 @@ end;
-Procedure TZoneList.Setitems(AIndex : Integer; AValue : TZoneListTypeitemsArray);
+Procedure TZoneList.Setitems(AIndex : Integer; const AValue : TZoneListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1924,23 +1819,19 @@ begin
Result:=TautoscalerAPI;
end;
-Function TZonesResource.List(project: string; AQuery : string = '') : TZoneList;
+Function TZonesResource.List(AQuery : string = '') : TZoneList;
Const
_HTTPMethod = 'GET';
- _Path = '{project}/zones';
+ _Path = 'zones';
_Methodid = 'autoscaler.zones.list';
-Var
- _P : String;
-
begin
- _P:=SubstitutePath(_Path,['project',project]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TZoneList) as TZoneList;
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TZoneList) as TZoneList;
end;
-Function TZonesResource.List(project: string; AQuery : TZoneslistOptions) : TZoneList;
+Function TZonesResource.List(AQuery : TZoneslistOptions) : TZoneList;
Var
_Q : String;
@@ -1950,7 +1841,8 @@ begin
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(project,_Q);
+ AddToQuery(_Q,'project',AQuery.project);
+ Result:=List(_Q);
end;
@@ -1974,7 +1866,7 @@ end;
Class Function TAutoscalerAPI.APIRevision : String;
begin
- Result:='20141112';
+ Result:='20160511';
end;
Class Function TAutoscalerAPI.APIID : String;
@@ -2028,7 +1920,7 @@ end;
Class Function TAutoscalerAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TAutoscalerAPI.APIbasePath : string;
@@ -2040,7 +1932,7 @@ end;
Class Function TAutoscalerAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/autoscaler/v1beta2/';
+ Result:='https://www.googleapis.com/autoscaler/v1beta2/';
end;
Class Function TAutoscalerAPI.APIProtocol : string;
@@ -2094,7 +1986,6 @@ begin
TOperationTypewarningsItem.RegisterObject;
TOperation.RegisterObject;
TOperationList.RegisterObject;
- TZoneTypemaintenanceWindowsItem.RegisterObject;
TZone.RegisterObject;
TZoneList.RegisterObject;
end;
diff --git a/packages/googleapi/src/googlebase.pp b/packages/googleapi/src/googlebase.pp
index 6cb07b07c3..a8e2415eb0 100644
--- a/packages/googleapi/src/googlebase.pp
+++ b/packages/googleapi/src/googlebase.pp
@@ -43,7 +43,11 @@ Type
Type
- TGoogleBaseObject = CLass(TBaseObject);
+ { TGoogleBaseObject }
+
+ TGoogleBaseObject = CLass(TBaseObject)
+ Class Function AllowAdditionalProperties: Boolean; override;
+ end;
TGoogleBaseObjectClass = Class of TGoogleBaseObject;
TGoogleObjectArray = Array of TGoogleBaseObject;
@@ -70,6 +74,15 @@ begin
Result:=RestFactory;
end;
+{ TGoogleBaseObject }
+
+Class Function TGoogleBaseObject.AllowAdditionalProperties: Boolean;
+begin
+ // We override this, so people don't get caught whenn google inadvertently adds properties.
+ // (see e.g. 30174)
+ Result:=True;
+end;
+
{ TGoogleBaseObjectList }
function TGoogleBaseObjectList.GetO(Aindex: Integer): TGoogleBaseObject;
diff --git a/packages/googleapi/src/googlebigquery.pp b/packages/googleapi/src/googlebigquery.pp
index 7e73e28748..29b3fcf6f9 100644
--- a/packages/googleapi/src/googlebigquery.pp
+++ b/packages/googleapi/src/googlebigquery.pp
@@ -1,19 +1,4 @@
unit googlebigquery;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:59
{$MODE objfpc}
{$H+}
@@ -25,17 +10,23 @@ type
//Top-level schema types
TJsonValue = TJSONSchema;
+ TBigtableColumn = Class;
+ TBigtableColumnFamily = Class;
+ TBigtableOptions = Class;
TCsvOptions = Class;
TDataset = Class;
TDatasetList = Class;
TDatasetReference = Class;
TErrorProto = Class;
+ TExplainQueryStage = Class;
+ TExplainQueryStep = Class;
TExternalDataConfiguration = Class;
TGetQueryResultsResponse = Class;
+ TGoogleSheetsOptions = Class;
TJob = Class;
+ TJobCancelResponse = Class;
TJobConfiguration = Class;
TJobConfigurationExtract = Class;
- TJobConfigurationLink = Class;
TJobConfigurationLoad = Class;
TJobConfigurationQuery = Class;
TJobConfigurationTableCopy = Class;
@@ -51,6 +42,7 @@ type
TProjectReference = Class;
TQueryRequest = Class;
TQueryResponse = Class;
+ TStreamingbuffer = Class;
TTable = Class;
TTableCell = Class;
TTableDataInsertAllRequest = Class;
@@ -61,18 +53,26 @@ type
TTableReference = Class;
TTableRow = Class;
TTableSchema = Class;
+ TTimePartitioning = Class;
+ TUserDefinedFunctionResource = Class;
TViewDefinition = Class;
+ TBigtableColumnArray = Array of TBigtableColumn;
+ TBigtableColumnFamilyArray = Array of TBigtableColumnFamily;
+ TBigtableOptionsArray = Array of TBigtableOptions;
TCsvOptionsArray = Array of TCsvOptions;
TDatasetArray = Array of TDataset;
TDatasetListArray = Array of TDatasetList;
TDatasetReferenceArray = Array of TDatasetReference;
TErrorProtoArray = Array of TErrorProto;
+ TExplainQueryStageArray = Array of TExplainQueryStage;
+ TExplainQueryStepArray = Array of TExplainQueryStep;
TExternalDataConfigurationArray = Array of TExternalDataConfiguration;
TGetQueryResultsResponseArray = Array of TGetQueryResultsResponse;
+ TGoogleSheetsOptionsArray = Array of TGoogleSheetsOptions;
TJobArray = Array of TJob;
+ TJobCancelResponseArray = Array of TJobCancelResponse;
TJobConfigurationArray = Array of TJobConfiguration;
TJobConfigurationExtractArray = Array of TJobConfigurationExtract;
- TJobConfigurationLinkArray = Array of TJobConfigurationLink;
TJobConfigurationLoadArray = Array of TJobConfigurationLoad;
TJobConfigurationQueryArray = Array of TJobConfigurationQuery;
TJobConfigurationTableCopyArray = Array of TJobConfigurationTableCopy;
@@ -88,6 +88,7 @@ type
TProjectReferenceArray = Array of TProjectReference;
TQueryRequestArray = Array of TQueryRequest;
TQueryResponseArray = Array of TQueryResponse;
+ TStreamingbufferArray = Array of TStreamingbuffer;
TTableArray = Array of TTable;
TTableCellArray = Array of TTableCell;
TTableDataInsertAllRequestArray = Array of TTableDataInsertAllRequest;
@@ -98,6 +99,8 @@ type
TTableReferenceArray = Array of TTableReference;
TTableRowArray = Array of TTableRow;
TTableSchemaArray = Array of TTableSchema;
+ TTimePartitioningArray = Array of TTimePartitioning;
+ TUserDefinedFunctionResourceArray = Array of TUserDefinedFunctionResource;
TViewDefinitionArray = Array of TViewDefinition;
//Anonymous types, using auto-generated names
TDatasetTypeaccessItem = Class;
@@ -108,13 +111,21 @@ type
TTableDataInsertAllRequestTyperowsItem = Class;
TTableDataInsertAllResponseTypeinsertErrorsItem = Class;
TTableListTypetablesItem = Class;
+ TBigtableColumnFamilyTypecolumnsArray = Array of TBigtableColumn;
+ TBigtableOptionsTypecolumnFamiliesArray = Array of TBigtableColumnFamily;
TDatasetTypeaccessArray = Array of TDatasetTypeaccessItem;
TDatasetListTypedatasetsArray = Array of TDatasetListTypedatasetsItem;
+ TExplainQueryStageTypestepsArray = Array of TExplainQueryStep;
+ TGetQueryResultsResponseTypeerrorsArray = Array of TErrorProto;
TGetQueryResultsResponseTyperowsArray = Array of TTableRow;
+ TJobConfigurationQueryTypeuserDefinedFunctionResourcesArray = Array of TUserDefinedFunctionResource;
TJobConfigurationTableCopyTypesourceTablesArray = Array of TTableReference;
TJobListTypejobsArray = Array of TJobListTypejobsItem;
+ TJobStatistics2TypequeryPlanArray = Array of TExplainQueryStage;
+ TJobStatistics2TypereferencedTablesArray = Array of TTableReference;
TJobStatusTypeerrorsArray = Array of TErrorProto;
TProjectListTypeprojectsArray = Array of TProjectListTypeprojectsItem;
+ TQueryResponseTypeerrorsArray = Array of TErrorProto;
TQueryResponseTyperowsArray = Array of TTableRow;
TTableDataInsertAllRequestTyperowsArray = Array of TTableDataInsertAllRequestTyperowsItem;
TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray = Array of TErrorProto;
@@ -124,6 +135,95 @@ type
TTableListTypetablesArray = Array of TTableListTypetablesItem;
TTableRowTypefArray = Array of TTableCell;
TTableSchemaTypefieldsArray = Array of TTableFieldSchema;
+ TViewDefinitionTypeuserDefinedFunctionResourcesArray = Array of TUserDefinedFunctionResource;
+
+ { --------------------------------------------------------------------
+ TBigtableColumn
+ --------------------------------------------------------------------}
+
+ TBigtableColumn = Class(TGoogleBaseObject)
+ Private
+ Fencoding : String;
+ FfieldName : String;
+ FonlyReadLatest : boolean;
+ FqualifierEncoded : String;
+ FqualifierString : String;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setencoding(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfieldName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetonlyReadLatest(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetqualifierEncoded(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetqualifierString(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property encoding : String Index 0 Read Fencoding Write Setencoding;
+ Property fieldName : String Index 8 Read FfieldName Write SetfieldName;
+ Property onlyReadLatest : boolean Index 16 Read FonlyReadLatest Write SetonlyReadLatest;
+ Property qualifierEncoded : String Index 24 Read FqualifierEncoded Write SetqualifierEncoded;
+ Property qualifierString : String Index 32 Read FqualifierString Write SetqualifierString;
+ Property _type : String Index 40 Read F_type Write Set_type;
+ end;
+ TBigtableColumnClass = Class of TBigtableColumn;
+
+ { --------------------------------------------------------------------
+ TBigtableColumnFamily
+ --------------------------------------------------------------------}
+
+ TBigtableColumnFamily = Class(TGoogleBaseObject)
+ Private
+ Fcolumns : TBigtableColumnFamilyTypecolumnsArray;
+ Fencoding : String;
+ FfamilyId : String;
+ FonlyReadLatest : boolean;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setcolumns(AIndex : Integer; const AValue : TBigtableColumnFamilyTypecolumnsArray); virtual;
+ Procedure Setencoding(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfamilyId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetonlyReadLatest(AIndex : Integer; const AValue : boolean); 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 columns : TBigtableColumnFamilyTypecolumnsArray Index 0 Read Fcolumns Write Setcolumns;
+ Property encoding : String Index 8 Read Fencoding Write Setencoding;
+ Property familyId : String Index 16 Read FfamilyId Write SetfamilyId;
+ Property onlyReadLatest : boolean Index 24 Read FonlyReadLatest Write SetonlyReadLatest;
+ Property _type : String Index 32 Read F_type Write Set_type;
+ end;
+ TBigtableColumnFamilyClass = Class of TBigtableColumnFamily;
+
+ { --------------------------------------------------------------------
+ TBigtableOptions
+ --------------------------------------------------------------------}
+
+ TBigtableOptions = Class(TGoogleBaseObject)
+ Private
+ FcolumnFamilies : TBigtableOptionsTypecolumnFamiliesArray;
+ FignoreUnspecifiedColumnFamilies : boolean;
+ Protected
+ //Property setters
+ Procedure SetcolumnFamilies(AIndex : Integer; const AValue : TBigtableOptionsTypecolumnFamiliesArray); virtual;
+ Procedure SetignoreUnspecifiedColumnFamilies(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 columnFamilies : TBigtableOptionsTypecolumnFamiliesArray Index 0 Read FcolumnFamilies Write SetcolumnFamilies;
+ Property ignoreUnspecifiedColumnFamilies : boolean Index 8 Read FignoreUnspecifiedColumnFamilies Write SetignoreUnspecifiedColumnFamilies;
+ end;
+ TBigtableOptionsClass = Class of TBigtableOptions;
{ --------------------------------------------------------------------
TCsvOptions
@@ -136,15 +236,15 @@ type
Fencoding : String;
FfieldDelimiter : String;
Fquote : String;
- FskipLeadingRows : integer;
+ FskipLeadingRows : String;
Protected
//Property setters
- Procedure SetallowJaggedRows(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetallowQuotedNewlines(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetallowJaggedRows(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetallowQuotedNewlines(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setencoding(AIndex : Integer; const AValue : String); virtual;
Procedure SetfieldDelimiter(AIndex : Integer; const AValue : String); virtual;
Procedure Setquote(AIndex : Integer; const AValue : String); virtual;
- Procedure SetskipLeadingRows(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetskipLeadingRows(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property allowJaggedRows : boolean Index 0 Read FallowJaggedRows Write SetallowJaggedRows;
@@ -152,7 +252,7 @@ type
Property encoding : String Index 16 Read Fencoding Write Setencoding;
Property fieldDelimiter : String Index 24 Read FfieldDelimiter Write SetfieldDelimiter;
Property quote : String Index 32 Read Fquote Write Setquote;
- Property skipLeadingRows : integer Index 40 Read FskipLeadingRows Write SetskipLeadingRows;
+ Property skipLeadingRows : String Index 40 Read FskipLeadingRows Write SetskipLeadingRows;
end;
TCsvOptionsClass = Class of TCsvOptions;
@@ -175,7 +275,7 @@ type
Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
Procedure SetspecialGroup(AIndex : Integer; const AValue : String); virtual;
Procedure SetuserByEmail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setview(AIndex : Integer; AValue : TTableReference); virtual;
+ Procedure Setview(AIndex : Integer; const AValue : TTableReference); virtual;
Public
Published
Property domain : String Index 0 Read Fdomain Write Setdomain;
@@ -207,9 +307,9 @@ type
FselfLink : String;
Protected
//Property setters
- Procedure Setaccess(AIndex : Integer; AValue : TDatasetTypeaccessArray); virtual;
+ Procedure Setaccess(AIndex : Integer; const AValue : TDatasetTypeaccessArray); virtual;
Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdatasetReference(AIndex : Integer; AValue : TDatasetReference); virtual;
+ Procedure SetdatasetReference(AIndex : Integer; const AValue : TDatasetReference); virtual;
Procedure SetdefaultTableExpirationMs(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
@@ -252,7 +352,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetdatasetReference(AIndex : Integer; AValue : TDatasetReference); virtual;
+ Procedure SetdatasetReference(AIndex : Integer; const AValue : TDatasetReference); virtual;
Procedure SetfriendlyName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
@@ -277,7 +377,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setdatasets(AIndex : Integer; AValue : TDatasetListTypedatasetsArray); virtual;
+ Procedure Setdatasets(AIndex : Integer; const AValue : TDatasetListTypedatasetsArray); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
@@ -339,13 +439,95 @@ type
TErrorProtoClass = Class of TErrorProto;
{ --------------------------------------------------------------------
+ TExplainQueryStage
+ --------------------------------------------------------------------}
+
+ TExplainQueryStage = Class(TGoogleBaseObject)
+ Private
+ FcomputeRatioAvg : double;
+ FcomputeRatioMax : double;
+ Fid : String;
+ Fname : String;
+ FreadRatioAvg : double;
+ FreadRatioMax : double;
+ FrecordsRead : String;
+ FrecordsWritten : String;
+ Fsteps : TExplainQueryStageTypestepsArray;
+ FwaitRatioAvg : double;
+ FwaitRatioMax : double;
+ FwriteRatioAvg : double;
+ FwriteRatioMax : double;
+ Protected
+ //Property setters
+ Procedure SetcomputeRatioAvg(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetcomputeRatioMax(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreadRatioAvg(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetreadRatioMax(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetrecordsRead(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrecordsWritten(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsteps(AIndex : Integer; const AValue : TExplainQueryStageTypestepsArray); virtual;
+ Procedure SetwaitRatioAvg(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetwaitRatioMax(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetwriteRatioAvg(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetwriteRatioMax(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 computeRatioAvg : double Index 0 Read FcomputeRatioAvg Write SetcomputeRatioAvg;
+ Property computeRatioMax : double Index 8 Read FcomputeRatioMax Write SetcomputeRatioMax;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property name : String Index 24 Read Fname Write Setname;
+ Property readRatioAvg : double Index 32 Read FreadRatioAvg Write SetreadRatioAvg;
+ Property readRatioMax : double Index 40 Read FreadRatioMax Write SetreadRatioMax;
+ Property recordsRead : String Index 48 Read FrecordsRead Write SetrecordsRead;
+ Property recordsWritten : String Index 56 Read FrecordsWritten Write SetrecordsWritten;
+ Property steps : TExplainQueryStageTypestepsArray Index 64 Read Fsteps Write Setsteps;
+ Property waitRatioAvg : double Index 72 Read FwaitRatioAvg Write SetwaitRatioAvg;
+ Property waitRatioMax : double Index 80 Read FwaitRatioMax Write SetwaitRatioMax;
+ Property writeRatioAvg : double Index 88 Read FwriteRatioAvg Write SetwriteRatioAvg;
+ Property writeRatioMax : double Index 96 Read FwriteRatioMax Write SetwriteRatioMax;
+ end;
+ TExplainQueryStageClass = Class of TExplainQueryStage;
+
+ { --------------------------------------------------------------------
+ TExplainQueryStep
+ --------------------------------------------------------------------}
+
+ TExplainQueryStep = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ Fsubsteps : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsubsteps(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 kind : String Index 0 Read Fkind Write Setkind;
+ Property substeps : TStringArray Index 8 Read Fsubsteps Write Setsubsteps;
+ end;
+ TExplainQueryStepClass = Class of TExplainQueryStep;
+
+ { --------------------------------------------------------------------
TExternalDataConfiguration
--------------------------------------------------------------------}
TExternalDataConfiguration = Class(TGoogleBaseObject)
Private
+ Fautodetect : boolean;
+ FbigtableOptions : TBigtableOptions;
Fcompression : String;
FcsvOptions : TCsvOptions;
+ FgoogleSheetsOptions : TGoogleSheetsOptions;
FignoreUnknownValues : boolean;
FmaxBadRecords : integer;
Fschema : TTableSchema;
@@ -353,26 +535,32 @@ type
FsourceUris : TStringArray;
Protected
//Property setters
+ Procedure Setautodetect(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetbigtableOptions(AIndex : Integer; const AValue : TBigtableOptions); virtual;
Procedure Setcompression(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcsvOptions(AIndex : Integer; AValue : TCsvOptions); virtual;
- Procedure SetignoreUnknownValues(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetmaxBadRecords(AIndex : Integer; AValue : integer); virtual;
- Procedure Setschema(AIndex : Integer; AValue : TTableSchema); virtual;
+ Procedure SetcsvOptions(AIndex : Integer; const AValue : TCsvOptions); virtual;
+ Procedure SetgoogleSheetsOptions(AIndex : Integer; const AValue : TGoogleSheetsOptions); virtual;
+ Procedure SetignoreUnknownValues(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetmaxBadRecords(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
Procedure SetsourceFormat(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsourceUris(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetsourceUris(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 compression : String Index 0 Read Fcompression Write Setcompression;
- Property csvOptions : TCsvOptions Index 8 Read FcsvOptions Write SetcsvOptions;
- Property ignoreUnknownValues : boolean Index 16 Read FignoreUnknownValues Write SetignoreUnknownValues;
- Property maxBadRecords : integer Index 24 Read FmaxBadRecords Write SetmaxBadRecords;
- Property schema : TTableSchema Index 32 Read Fschema Write Setschema;
- Property sourceFormat : String Index 40 Read FsourceFormat Write SetsourceFormat;
- Property sourceUris : TStringArray Index 48 Read FsourceUris Write SetsourceUris;
+ Property autodetect : boolean Index 0 Read Fautodetect Write Setautodetect;
+ Property bigtableOptions : TBigtableOptions Index 8 Read FbigtableOptions Write SetbigtableOptions;
+ Property compression : String Index 16 Read Fcompression Write Setcompression;
+ Property csvOptions : TCsvOptions Index 24 Read FcsvOptions Write SetcsvOptions;
+ Property googleSheetsOptions : TGoogleSheetsOptions Index 32 Read FgoogleSheetsOptions Write SetgoogleSheetsOptions;
+ Property ignoreUnknownValues : boolean Index 40 Read FignoreUnknownValues Write SetignoreUnknownValues;
+ Property maxBadRecords : integer Index 48 Read FmaxBadRecords Write SetmaxBadRecords;
+ Property schema : TTableSchema Index 56 Read Fschema Write Setschema;
+ Property sourceFormat : String Index 64 Read FsourceFormat Write SetsourceFormat;
+ Property sourceUris : TStringArray Index 72 Read FsourceUris Write SetsourceUris;
end;
TExternalDataConfigurationClass = Class of TExternalDataConfiguration;
@@ -383,6 +571,7 @@ type
TGetQueryResultsResponse = Class(TGoogleBaseObject)
Private
FcacheHit : boolean;
+ Ferrors : TGetQueryResultsResponseTypeerrorsArray;
Fetag : String;
FjobComplete : boolean;
FjobReference : TJobReference;
@@ -394,14 +583,15 @@ type
FtotalRows : String;
Protected
//Property setters
- Procedure SetcacheHit(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcacheHit(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TGetQueryResultsResponseTypeerrorsArray); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure SetjobComplete(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetjobReference(AIndex : Integer; AValue : TJobReference); virtual;
+ Procedure SetjobComplete(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetjobReference(AIndex : Integer; const AValue : TJobReference); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TGetQueryResultsResponseTyperowsArray); virtual;
- Procedure Setschema(AIndex : Integer; AValue : TTableSchema); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TGetQueryResultsResponseTyperowsArray); virtual;
+ Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
Procedure SettotalBytesProcessed(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalRows(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -411,19 +601,36 @@ type
Public
Published
Property cacheHit : boolean Index 0 Read FcacheHit Write SetcacheHit;
- Property etag : String Index 8 Read Fetag Write Setetag;
- Property jobComplete : boolean Index 16 Read FjobComplete Write SetjobComplete;
- Property jobReference : TJobReference Index 24 Read FjobReference Write SetjobReference;
- Property kind : String Index 32 Read Fkind Write Setkind;
- Property pageToken : String Index 40 Read FpageToken Write SetpageToken;
- Property rows : TGetQueryResultsResponseTyperowsArray Index 48 Read Frows Write Setrows;
- Property schema : TTableSchema Index 56 Read Fschema Write Setschema;
- Property totalBytesProcessed : String Index 64 Read FtotalBytesProcessed Write SettotalBytesProcessed;
- Property totalRows : String Index 72 Read FtotalRows Write SettotalRows;
+ Property errors : TGetQueryResultsResponseTypeerrorsArray Index 8 Read Ferrors Write Seterrors;
+ Property etag : String Index 16 Read Fetag Write Setetag;
+ Property jobComplete : boolean Index 24 Read FjobComplete Write SetjobComplete;
+ Property jobReference : TJobReference Index 32 Read FjobReference Write SetjobReference;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property pageToken : String Index 48 Read FpageToken Write SetpageToken;
+ Property rows : TGetQueryResultsResponseTyperowsArray Index 56 Read Frows Write Setrows;
+ Property schema : TTableSchema Index 64 Read Fschema Write Setschema;
+ Property totalBytesProcessed : String Index 72 Read FtotalBytesProcessed Write SettotalBytesProcessed;
+ Property totalRows : String Index 80 Read FtotalRows Write SettotalRows;
end;
TGetQueryResultsResponseClass = Class of TGetQueryResultsResponse;
{ --------------------------------------------------------------------
+ TGoogleSheetsOptions
+ --------------------------------------------------------------------}
+
+ TGoogleSheetsOptions = Class(TGoogleBaseObject)
+ Private
+ FskipLeadingRows : String;
+ Protected
+ //Property setters
+ Procedure SetskipLeadingRows(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property skipLeadingRows : String Index 0 Read FskipLeadingRows Write SetskipLeadingRows;
+ end;
+ TGoogleSheetsOptionsClass = Class of TGoogleSheetsOptions;
+
+ { --------------------------------------------------------------------
TJob
--------------------------------------------------------------------}
@@ -440,14 +647,14 @@ type
Fuser_email : String;
Protected
//Property setters
- Procedure Setconfiguration(AIndex : Integer; AValue : TJobConfiguration); virtual;
+ Procedure Setconfiguration(AIndex : Integer; const AValue : TJobConfiguration); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetjobReference(AIndex : Integer; AValue : TJobReference); virtual;
+ Procedure SetjobReference(AIndex : Integer; const AValue : TJobReference); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstatistics(AIndex : Integer; AValue : TJobStatistics); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TJobStatus); virtual;
+ Procedure Setstatistics(AIndex : Integer; const AValue : TJobStatistics); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TJobStatus); virtual;
Procedure Setuser_email(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -464,6 +671,25 @@ type
TJobClass = Class of TJob;
{ --------------------------------------------------------------------
+ TJobCancelResponse
+ --------------------------------------------------------------------}
+
+ TJobCancelResponse = Class(TGoogleBaseObject)
+ Private
+ Fjob : TJob;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure Setjob(AIndex : Integer; const AValue : TJob); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property job : TJob Index 0 Read Fjob Write Setjob;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TJobCancelResponseClass = Class of TJobCancelResponse;
+
+ { --------------------------------------------------------------------
TJobConfiguration
--------------------------------------------------------------------}
@@ -472,25 +698,22 @@ type
Fcopy : TJobConfigurationTableCopy;
FdryRun : boolean;
Fextract : TJobConfigurationExtract;
- Flink : TJobConfigurationLink;
Fload : TJobConfigurationLoad;
Fquery : TJobConfigurationQuery;
Protected
//Property setters
- Procedure Setcopy(AIndex : Integer; AValue : TJobConfigurationTableCopy); virtual;
- Procedure SetdryRun(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setextract(AIndex : Integer; AValue : TJobConfigurationExtract); virtual;
- Procedure Setlink(AIndex : Integer; AValue : TJobConfigurationLink); virtual;
- Procedure Setload(AIndex : Integer; AValue : TJobConfigurationLoad); virtual;
- Procedure Setquery(AIndex : Integer; AValue : TJobConfigurationQuery); virtual;
+ Procedure Setcopy(AIndex : Integer; const AValue : TJobConfigurationTableCopy); virtual;
+ Procedure SetdryRun(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setextract(AIndex : Integer; const AValue : TJobConfigurationExtract); virtual;
+ Procedure Setload(AIndex : Integer; const AValue : TJobConfigurationLoad); virtual;
+ Procedure Setquery(AIndex : Integer; const AValue : TJobConfigurationQuery); virtual;
Public
Published
Property copy : TJobConfigurationTableCopy Index 0 Read Fcopy Write Setcopy;
Property dryRun : boolean Index 8 Read FdryRun Write SetdryRun;
Property extract : TJobConfigurationExtract Index 16 Read Fextract Write Setextract;
- Property link : TJobConfigurationLink Index 24 Read Flink Write Setlink;
- Property load : TJobConfigurationLoad Index 32 Read Fload Write Setload;
- Property query : TJobConfigurationQuery Index 40 Read Fquery Write Setquery;
+ Property load : TJobConfigurationLoad Index 24 Read Fload Write Setload;
+ Property query : TJobConfigurationQuery Index 32 Read Fquery Write Setquery;
end;
TJobConfigurationClass = Class of TJobConfiguration;
@@ -512,10 +735,10 @@ type
Procedure Setcompression(AIndex : Integer; const AValue : String); virtual;
Procedure SetdestinationFormat(AIndex : Integer; const AValue : String); virtual;
Procedure SetdestinationUri(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdestinationUris(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetdestinationUris(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetfieldDelimiter(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprintHeader(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsourceTable(AIndex : Integer; AValue : TTableReference); virtual;
+ Procedure SetprintHeader(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsourceTable(AIndex : Integer; const AValue : TTableReference); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -533,35 +756,6 @@ type
TJobConfigurationExtractClass = Class of TJobConfigurationExtract;
{ --------------------------------------------------------------------
- TJobConfigurationLink
- --------------------------------------------------------------------}
-
- TJobConfigurationLink = Class(TGoogleBaseObject)
- Private
- FcreateDisposition : String;
- FdestinationTable : TTableReference;
- FsourceUri : TStringArray;
- FwriteDisposition : String;
- Protected
- //Property setters
- Procedure SetcreateDisposition(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdestinationTable(AIndex : Integer; AValue : TTableReference); virtual;
- Procedure SetsourceUri(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetwriteDisposition(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 createDisposition : String Index 0 Read FcreateDisposition Write SetcreateDisposition;
- Property destinationTable : TTableReference Index 8 Read FdestinationTable Write SetdestinationTable;
- Property sourceUri : TStringArray Index 16 Read FsourceUri Write SetsourceUri;
- Property writeDisposition : String Index 24 Read FwriteDisposition Write SetwriteDisposition;
- end;
- TJobConfigurationLinkClass = Class of TJobConfigurationLink;
-
- { --------------------------------------------------------------------
TJobConfigurationLoad
--------------------------------------------------------------------}
@@ -569,6 +763,7 @@ type
Private
FallowJaggedRows : boolean;
FallowQuotedNewlines : boolean;
+ Fautodetect : boolean;
FcreateDisposition : String;
FdestinationTable : TTableReference;
Fencoding : String;
@@ -586,22 +781,23 @@ type
FwriteDisposition : String;
Protected
//Property setters
- Procedure SetallowJaggedRows(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetallowQuotedNewlines(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetallowJaggedRows(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetallowQuotedNewlines(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setautodetect(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcreateDisposition(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdestinationTable(AIndex : Integer; AValue : TTableReference); virtual;
+ Procedure SetdestinationTable(AIndex : Integer; const AValue : TTableReference); virtual;
Procedure Setencoding(AIndex : Integer; const AValue : String); virtual;
Procedure SetfieldDelimiter(AIndex : Integer; const AValue : String); virtual;
- Procedure SetignoreUnknownValues(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetmaxBadRecords(AIndex : Integer; AValue : integer); virtual;
- Procedure SetprojectionFields(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetignoreUnknownValues(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetmaxBadRecords(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetprojectionFields(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setquote(AIndex : Integer; const AValue : String); virtual;
- Procedure Setschema(AIndex : Integer; AValue : TTableSchema); virtual;
+ Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
Procedure SetschemaInline(AIndex : Integer; const AValue : String); virtual;
Procedure SetschemaInlineFormat(AIndex : Integer; const AValue : String); virtual;
- Procedure SetskipLeadingRows(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetskipLeadingRows(AIndex : Integer; const AValue : integer); virtual;
Procedure SetsourceFormat(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsourceUris(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetsourceUris(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetwriteDisposition(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -611,21 +807,22 @@ type
Published
Property allowJaggedRows : boolean Index 0 Read FallowJaggedRows Write SetallowJaggedRows;
Property allowQuotedNewlines : boolean Index 8 Read FallowQuotedNewlines Write SetallowQuotedNewlines;
- Property createDisposition : String Index 16 Read FcreateDisposition Write SetcreateDisposition;
- Property destinationTable : TTableReference Index 24 Read FdestinationTable Write SetdestinationTable;
- Property encoding : String Index 32 Read Fencoding Write Setencoding;
- Property fieldDelimiter : String Index 40 Read FfieldDelimiter Write SetfieldDelimiter;
- Property ignoreUnknownValues : boolean Index 48 Read FignoreUnknownValues Write SetignoreUnknownValues;
- Property maxBadRecords : integer Index 56 Read FmaxBadRecords Write SetmaxBadRecords;
- Property projectionFields : TStringArray Index 64 Read FprojectionFields Write SetprojectionFields;
- Property quote : String Index 72 Read Fquote Write Setquote;
- Property schema : TTableSchema Index 80 Read Fschema Write Setschema;
- Property schemaInline : String Index 88 Read FschemaInline Write SetschemaInline;
- Property schemaInlineFormat : String Index 96 Read FschemaInlineFormat Write SetschemaInlineFormat;
- Property skipLeadingRows : integer Index 104 Read FskipLeadingRows Write SetskipLeadingRows;
- Property sourceFormat : String Index 112 Read FsourceFormat Write SetsourceFormat;
- Property sourceUris : TStringArray Index 120 Read FsourceUris Write SetsourceUris;
- Property writeDisposition : String Index 128 Read FwriteDisposition Write SetwriteDisposition;
+ Property autodetect : boolean Index 16 Read Fautodetect Write Setautodetect;
+ Property createDisposition : String Index 24 Read FcreateDisposition Write SetcreateDisposition;
+ Property destinationTable : TTableReference Index 32 Read FdestinationTable Write SetdestinationTable;
+ Property encoding : String Index 40 Read Fencoding Write Setencoding;
+ Property fieldDelimiter : String Index 48 Read FfieldDelimiter Write SetfieldDelimiter;
+ Property ignoreUnknownValues : boolean Index 56 Read FignoreUnknownValues Write SetignoreUnknownValues;
+ Property maxBadRecords : integer Index 64 Read FmaxBadRecords Write SetmaxBadRecords;
+ Property projectionFields : TStringArray Index 72 Read FprojectionFields Write SetprojectionFields;
+ Property quote : String Index 80 Read Fquote Write Setquote;
+ Property schema : TTableSchema Index 88 Read Fschema Write Setschema;
+ Property schemaInline : String Index 96 Read FschemaInline Write SetschemaInline;
+ Property schemaInlineFormat : String Index 104 Read FschemaInlineFormat Write SetschemaInlineFormat;
+ Property skipLeadingRows : integer Index 112 Read FskipLeadingRows Write SetskipLeadingRows;
+ Property sourceFormat : String Index 120 Read FsourceFormat Write SetsourceFormat;
+ Property sourceUris : TStringArray Index 128 Read FsourceUris Write SetsourceUris;
+ Property writeDisposition : String Index 136 Read FwriteDisposition Write SetwriteDisposition;
end;
TJobConfigurationLoadClass = Class of TJobConfigurationLoad;
@@ -654,25 +851,35 @@ type
FdefaultDataset : TDatasetReference;
FdestinationTable : TTableReference;
FflattenResults : boolean;
+ FmaximumBillingTier : integer;
FpreserveNulls : boolean;
Fpriority : String;
Fquery : String;
FtableDefinitions : TJobConfigurationQueryTypetableDefinitions;
+ FuseLegacySql : boolean;
FuseQueryCache : boolean;
+ FuserDefinedFunctionResources : TJobConfigurationQueryTypeuserDefinedFunctionResourcesArray;
FwriteDisposition : String;
Protected
//Property setters
- Procedure SetallowLargeResults(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetallowLargeResults(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcreateDisposition(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdefaultDataset(AIndex : Integer; AValue : TDatasetReference); virtual;
- Procedure SetdestinationTable(AIndex : Integer; AValue : TTableReference); virtual;
- Procedure SetflattenResults(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetpreserveNulls(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdefaultDataset(AIndex : Integer; const AValue : TDatasetReference); virtual;
+ Procedure SetdestinationTable(AIndex : Integer; const AValue : TTableReference); virtual;
+ Procedure SetflattenResults(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetmaximumBillingTier(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetpreserveNulls(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setpriority(AIndex : Integer; const AValue : String); virtual;
Procedure Setquery(AIndex : Integer; const AValue : String); virtual;
- Procedure SettableDefinitions(AIndex : Integer; AValue : TJobConfigurationQueryTypetableDefinitions); virtual;
- Procedure SetuseQueryCache(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SettableDefinitions(AIndex : Integer; const AValue : TJobConfigurationQueryTypetableDefinitions); virtual;
+ Procedure SetuseLegacySql(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetuseQueryCache(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetuserDefinedFunctionResources(AIndex : Integer; const AValue : TJobConfigurationQueryTypeuserDefinedFunctionResourcesArray); virtual;
Procedure SetwriteDisposition(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 allowLargeResults : boolean Index 0 Read FallowLargeResults Write SetallowLargeResults;
@@ -680,12 +887,15 @@ type
Property defaultDataset : TDatasetReference Index 16 Read FdefaultDataset Write SetdefaultDataset;
Property destinationTable : TTableReference Index 24 Read FdestinationTable Write SetdestinationTable;
Property flattenResults : boolean Index 32 Read FflattenResults Write SetflattenResults;
- Property preserveNulls : boolean Index 40 Read FpreserveNulls Write SetpreserveNulls;
- Property priority : String Index 48 Read Fpriority Write Setpriority;
- Property query : String Index 56 Read Fquery Write Setquery;
- Property tableDefinitions : TJobConfigurationQueryTypetableDefinitions Index 64 Read FtableDefinitions Write SettableDefinitions;
- Property useQueryCache : boolean Index 72 Read FuseQueryCache Write SetuseQueryCache;
- Property writeDisposition : String Index 80 Read FwriteDisposition Write SetwriteDisposition;
+ Property maximumBillingTier : integer Index 40 Read FmaximumBillingTier Write SetmaximumBillingTier;
+ Property preserveNulls : boolean Index 48 Read FpreserveNulls Write SetpreserveNulls;
+ Property priority : String Index 56 Read Fpriority Write Setpriority;
+ Property query : String Index 64 Read Fquery Write Setquery;
+ Property tableDefinitions : TJobConfigurationQueryTypetableDefinitions Index 72 Read FtableDefinitions Write SettableDefinitions;
+ Property useLegacySql : boolean Index 80 Read FuseLegacySql Write SetuseLegacySql;
+ Property useQueryCache : boolean Index 88 Read FuseQueryCache Write SetuseQueryCache;
+ Property userDefinedFunctionResources : TJobConfigurationQueryTypeuserDefinedFunctionResourcesArray Index 96 Read FuserDefinedFunctionResources Write SetuserDefinedFunctionResources;
+ Property writeDisposition : String Index 104 Read FwriteDisposition Write SetwriteDisposition;
end;
TJobConfigurationQueryClass = Class of TJobConfigurationQuery;
@@ -703,9 +913,9 @@ type
Protected
//Property setters
Procedure SetcreateDisposition(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdestinationTable(AIndex : Integer; AValue : TTableReference); virtual;
- Procedure SetsourceTable(AIndex : Integer; AValue : TTableReference); virtual;
- Procedure SetsourceTables(AIndex : Integer; AValue : TJobConfigurationTableCopyTypesourceTablesArray); virtual;
+ Procedure SetdestinationTable(AIndex : Integer; const AValue : TTableReference); virtual;
+ Procedure SetsourceTable(AIndex : Integer; const AValue : TTableReference); virtual;
+ Procedure SetsourceTables(AIndex : Integer; const AValue : TJobConfigurationTableCopyTypesourceTablesArray); virtual;
Procedure SetwriteDisposition(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -738,14 +948,14 @@ type
Fuser_email : String;
Protected
//Property setters
- Procedure Setconfiguration(AIndex : Integer; AValue : TJobConfiguration); virtual;
- Procedure SeterrorResult(AIndex : Integer; AValue : TErrorProto); virtual;
+ Procedure Setconfiguration(AIndex : Integer; const AValue : TJobConfiguration); virtual;
+ Procedure SeterrorResult(AIndex : Integer; const AValue : TErrorProto); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetjobReference(AIndex : Integer; AValue : TJobReference); virtual;
+ Procedure SetjobReference(AIndex : Integer; const AValue : TJobReference); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstatistics(AIndex : Integer; AValue : TJobStatistics); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TJobStatus); virtual;
+ Procedure Setstatistics(AIndex : Integer; const AValue : TJobStatistics); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TJobStatus); virtual;
Procedure Setuser_email(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -771,14 +981,12 @@ type
Fjobs : TJobListTypejobsArray;
Fkind : String;
FnextPageToken : String;
- FtotalItems : integer;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setjobs(AIndex : Integer; AValue : TJobListTypejobsArray); virtual;
+ Procedure Setjobs(AIndex : Integer; const AValue : TJobListTypejobsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -789,7 +997,6 @@ type
Property jobs : TJobListTypejobsArray Index 8 Read Fjobs Write Setjobs;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
- Property totalItems : integer Index 32 Read FtotalItems Write SettotalItems;
end;
TJobListClass = Class of TJobList;
@@ -829,9 +1036,9 @@ type
//Property setters
Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setextract(AIndex : Integer; AValue : TJobStatistics4); virtual;
- Procedure Setload(AIndex : Integer; AValue : TJobStatistics3); virtual;
- Procedure Setquery(AIndex : Integer; AValue : TJobStatistics2); virtual;
+ Procedure Setextract(AIndex : Integer; const AValue : TJobStatistics4); virtual;
+ Procedure Setload(AIndex : Integer; const AValue : TJobStatistics3); virtual;
+ Procedure Setquery(AIndex : Integer; const AValue : TJobStatistics2); virtual;
Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalBytesProcessed(AIndex : Integer; const AValue : String); virtual;
Public
@@ -852,16 +1059,35 @@ type
TJobStatistics2 = Class(TGoogleBaseObject)
Private
+ FbillingTier : integer;
FcacheHit : boolean;
+ FqueryPlan : TJobStatistics2TypequeryPlanArray;
+ FreferencedTables : TJobStatistics2TypereferencedTablesArray;
+ Fschema : TTableSchema;
+ FtotalBytesBilled : String;
FtotalBytesProcessed : String;
Protected
//Property setters
- Procedure SetcacheHit(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetbillingTier(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetcacheHit(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetqueryPlan(AIndex : Integer; const AValue : TJobStatistics2TypequeryPlanArray); virtual;
+ Procedure SetreferencedTables(AIndex : Integer; const AValue : TJobStatistics2TypereferencedTablesArray); virtual;
+ Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
+ Procedure SettotalBytesBilled(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalBytesProcessed(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 cacheHit : boolean Index 0 Read FcacheHit Write SetcacheHit;
- Property totalBytesProcessed : String Index 8 Read FtotalBytesProcessed Write SettotalBytesProcessed;
+ Property billingTier : integer Index 0 Read FbillingTier Write SetbillingTier;
+ Property cacheHit : boolean Index 8 Read FcacheHit Write SetcacheHit;
+ Property queryPlan : TJobStatistics2TypequeryPlanArray Index 16 Read FqueryPlan Write SetqueryPlan;
+ Property referencedTables : TJobStatistics2TypereferencedTablesArray Index 24 Read FreferencedTables Write SetreferencedTables;
+ Property schema : TTableSchema Index 32 Read Fschema Write Setschema;
+ Property totalBytesBilled : String Index 40 Read FtotalBytesBilled Write SettotalBytesBilled;
+ Property totalBytesProcessed : String Index 48 Read FtotalBytesProcessed Write SettotalBytesProcessed;
end;
TJobStatistics2Class = Class of TJobStatistics2;
@@ -899,7 +1125,7 @@ type
FdestinationUriFileCounts : TStringArray;
Protected
//Property setters
- Procedure SetdestinationUriFileCounts(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetdestinationUriFileCounts(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -921,8 +1147,8 @@ type
Fstate : String;
Protected
//Property setters
- Procedure SeterrorResult(AIndex : Integer; AValue : TErrorProto); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TJobStatusTypeerrorsArray); virtual;
+ Procedure SeterrorResult(AIndex : Integer; const AValue : TErrorProto); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TJobStatusTypeerrorsArray); virtual;
Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -967,7 +1193,7 @@ type
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnumericId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectReference(AIndex : Integer; AValue : TProjectReference); virtual;
+ Procedure SetprojectReference(AIndex : Integer; const AValue : TProjectReference); virtual;
Public
Published
Property friendlyName : String Index 0 Read FfriendlyName Write SetfriendlyName;
@@ -994,8 +1220,8 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprojects(AIndex : Integer; AValue : TProjectListTypeprojectsArray); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setprojects(AIndex : Integer; const AValue : TProjectListTypeprojectsArray); 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;
@@ -1039,17 +1265,19 @@ type
FpreserveNulls : boolean;
Fquery : String;
FtimeoutMs : integer;
+ FuseLegacySql : boolean;
FuseQueryCache : boolean;
Protected
//Property setters
- Procedure SetdefaultDataset(AIndex : Integer; AValue : TDatasetReference); virtual;
- Procedure SetdryRun(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdefaultDataset(AIndex : Integer; const AValue : TDatasetReference); virtual;
+ Procedure SetdryRun(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxResults(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpreserveNulls(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetmaxResults(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetpreserveNulls(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setquery(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeoutMs(AIndex : Integer; AValue : integer); virtual;
- Procedure SetuseQueryCache(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SettimeoutMs(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetuseLegacySql(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetuseQueryCache(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property defaultDataset : TDatasetReference Index 0 Read FdefaultDataset Write SetdefaultDataset;
@@ -1059,7 +1287,8 @@ type
Property preserveNulls : boolean Index 32 Read FpreserveNulls Write SetpreserveNulls;
Property query : String Index 40 Read Fquery Write Setquery;
Property timeoutMs : integer Index 48 Read FtimeoutMs Write SettimeoutMs;
- Property useQueryCache : boolean Index 56 Read FuseQueryCache Write SetuseQueryCache;
+ Property useLegacySql : boolean Index 56 Read FuseLegacySql Write SetuseLegacySql;
+ Property useQueryCache : boolean Index 64 Read FuseQueryCache Write SetuseQueryCache;
end;
TQueryRequestClass = Class of TQueryRequest;
@@ -1070,6 +1299,7 @@ type
TQueryResponse = Class(TGoogleBaseObject)
Private
FcacheHit : boolean;
+ Ferrors : TQueryResponseTypeerrorsArray;
FjobComplete : boolean;
FjobReference : TJobReference;
Fkind : String;
@@ -1080,13 +1310,14 @@ type
FtotalRows : String;
Protected
//Property setters
- Procedure SetcacheHit(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetjobComplete(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetjobReference(AIndex : Integer; AValue : TJobReference); virtual;
+ Procedure SetcacheHit(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TQueryResponseTypeerrorsArray); virtual;
+ Procedure SetjobComplete(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetjobReference(AIndex : Integer; const AValue : TJobReference); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TQueryResponseTyperowsArray); virtual;
- Procedure Setschema(AIndex : Integer; AValue : TTableSchema); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TQueryResponseTyperowsArray); virtual;
+ Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
Procedure SettotalBytesProcessed(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalRows(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1096,18 +1327,41 @@ type
Public
Published
Property cacheHit : boolean Index 0 Read FcacheHit Write SetcacheHit;
- Property jobComplete : boolean Index 8 Read FjobComplete Write SetjobComplete;
- Property jobReference : TJobReference Index 16 Read FjobReference Write SetjobReference;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property pageToken : String Index 32 Read FpageToken Write SetpageToken;
- Property rows : TQueryResponseTyperowsArray Index 40 Read Frows Write Setrows;
- Property schema : TTableSchema Index 48 Read Fschema Write Setschema;
- Property totalBytesProcessed : String Index 56 Read FtotalBytesProcessed Write SettotalBytesProcessed;
- Property totalRows : String Index 64 Read FtotalRows Write SettotalRows;
+ Property errors : TQueryResponseTypeerrorsArray Index 8 Read Ferrors Write Seterrors;
+ Property jobComplete : boolean Index 16 Read FjobComplete Write SetjobComplete;
+ Property jobReference : TJobReference Index 24 Read FjobReference Write SetjobReference;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property pageToken : String Index 40 Read FpageToken Write SetpageToken;
+ Property rows : TQueryResponseTyperowsArray Index 48 Read Frows Write Setrows;
+ Property schema : TTableSchema Index 56 Read Fschema Write Setschema;
+ Property totalBytesProcessed : String Index 64 Read FtotalBytesProcessed Write SettotalBytesProcessed;
+ Property totalRows : String Index 72 Read FtotalRows Write SettotalRows;
end;
TQueryResponseClass = Class of TQueryResponse;
{ --------------------------------------------------------------------
+ TStreamingbuffer
+ --------------------------------------------------------------------}
+
+ TStreamingbuffer = Class(TGoogleBaseObject)
+ Private
+ FestimatedBytes : String;
+ FestimatedRows : String;
+ FoldestEntryTime : String;
+ Protected
+ //Property setters
+ Procedure SetestimatedBytes(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetestimatedRows(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoldestEntryTime(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property estimatedBytes : String Index 0 Read FestimatedBytes Write SetestimatedBytes;
+ Property estimatedRows : String Index 8 Read FestimatedRows Write SetestimatedRows;
+ Property oldestEntryTime : String Index 16 Read FoldestEntryTime Write SetoldestEntryTime;
+ end;
+ TStreamingbufferClass = Class of TStreamingbuffer;
+
+ { --------------------------------------------------------------------
TTable
--------------------------------------------------------------------}
@@ -1117,15 +1371,20 @@ type
Fdescription : String;
Fetag : String;
FexpirationTime : String;
+ FexternalDataConfiguration : TExternalDataConfiguration;
FfriendlyName : String;
Fid : String;
Fkind : String;
FlastModifiedTime : String;
+ Flocation : String;
FnumBytes : String;
+ FnumLongTermBytes : String;
FnumRows : String;
Fschema : TTableSchema;
FselfLink : String;
+ FstreamingBuffer : TStreamingbuffer;
FtableReference : TTableReference;
+ FtimePartitioning : TTimePartitioning;
F_type : String;
Fview : TViewDefinition;
Protected
@@ -1135,34 +1394,44 @@ type
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SetexpirationTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexternalDataConfiguration(AIndex : Integer; const AValue : TExternalDataConfiguration); virtual;
Procedure SetfriendlyName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastModifiedTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
Procedure SetnumBytes(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnumLongTermBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetnumRows(AIndex : Integer; const AValue : String); virtual;
- Procedure Setschema(AIndex : Integer; AValue : TTableSchema); virtual;
+ Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettableReference(AIndex : Integer; AValue : TTableReference); virtual;
+ Procedure SetstreamingBuffer(AIndex : Integer; const AValue : TStreamingbuffer); virtual;
+ Procedure SettableReference(AIndex : Integer; const AValue : TTableReference); virtual;
+ Procedure SettimePartitioning(AIndex : Integer; const AValue : TTimePartitioning); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setview(AIndex : Integer; AValue : TViewDefinition); virtual;
+ Procedure Setview(AIndex : Integer; const AValue : TViewDefinition); virtual;
Public
Published
Property creationTime : String Index 0 Read FcreationTime Write SetcreationTime;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property etag : String Index 16 Read Fetag Write Setetag;
Property expirationTime : String Index 24 Read FexpirationTime Write SetexpirationTime;
- Property friendlyName : String Index 32 Read FfriendlyName Write SetfriendlyName;
- Property id : String Index 40 Read Fid Write Setid;
- Property kind : String Index 48 Read Fkind Write Setkind;
- Property lastModifiedTime : String Index 56 Read FlastModifiedTime Write SetlastModifiedTime;
- Property numBytes : String Index 64 Read FnumBytes Write SetnumBytes;
- Property numRows : String Index 72 Read FnumRows Write SetnumRows;
- Property schema : TTableSchema Index 80 Read Fschema Write Setschema;
- Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
- Property tableReference : TTableReference Index 96 Read FtableReference Write SettableReference;
- Property _type : String Index 104 Read F_type Write Set_type;
- Property view : TViewDefinition Index 112 Read Fview Write Setview;
+ Property externalDataConfiguration : TExternalDataConfiguration Index 32 Read FexternalDataConfiguration Write SetexternalDataConfiguration;
+ Property friendlyName : String Index 40 Read FfriendlyName Write SetfriendlyName;
+ Property id : String Index 48 Read Fid Write Setid;
+ Property kind : String Index 56 Read Fkind Write Setkind;
+ Property lastModifiedTime : String Index 64 Read FlastModifiedTime Write SetlastModifiedTime;
+ Property location : String Index 72 Read Flocation Write Setlocation;
+ Property numBytes : String Index 80 Read FnumBytes Write SetnumBytes;
+ Property numLongTermBytes : String Index 88 Read FnumLongTermBytes Write SetnumLongTermBytes;
+ Property numRows : String Index 96 Read FnumRows Write SetnumRows;
+ Property schema : TTableSchema Index 104 Read Fschema Write Setschema;
+ Property selfLink : String Index 112 Read FselfLink Write SetselfLink;
+ Property streamingBuffer : TStreamingbuffer Index 120 Read FstreamingBuffer Write SetstreamingBuffer;
+ Property tableReference : TTableReference Index 128 Read FtableReference Write SettableReference;
+ Property timePartitioning : TTimePartitioning Index 136 Read FtimePartitioning Write SettimePartitioning;
+ Property _type : String Index 144 Read F_type Write Set_type;
+ Property view : TViewDefinition Index 152 Read Fview Write Setview;
end;
TTableClass = Class of TTable;
@@ -1175,7 +1444,7 @@ type
Fv : TJSONSchema;
Protected
//Property setters
- Procedure Setv(AIndex : Integer; AValue : TJSONSchema); virtual;
+ Procedure Setv(AIndex : Integer; const AValue : TJSONSchema); virtual;
Public
Published
Property v : TJSONSchema Index 0 Read Fv Write Setv;
@@ -1193,7 +1462,7 @@ type
Protected
//Property setters
Procedure SetinsertId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setjson(AIndex : Integer; AValue : TJsonObject); virtual;
+ Procedure Setjson(AIndex : Integer; const AValue : TJsonObject); virtual;
Public
Published
Property insertId : String Index 0 Read FinsertId Write SetinsertId;
@@ -1211,12 +1480,14 @@ type
Fkind : String;
Frows : TTableDataInsertAllRequestTyperowsArray;
FskipInvalidRows : boolean;
+ FtemplateSuffix : String;
Protected
//Property setters
- Procedure SetignoreUnknownValues(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetignoreUnknownValues(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TTableDataInsertAllRequestTyperowsArray); virtual;
- Procedure SetskipInvalidRows(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TTableDataInsertAllRequestTyperowsArray); virtual;
+ Procedure SetskipInvalidRows(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SettemplateSuffix(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1227,6 +1498,7 @@ type
Property kind : String Index 8 Read Fkind Write Setkind;
Property rows : TTableDataInsertAllRequestTyperowsArray Index 16 Read Frows Write Setrows;
Property skipInvalidRows : boolean Index 24 Read FskipInvalidRows Write SetskipInvalidRows;
+ Property templateSuffix : String Index 32 Read FtemplateSuffix Write SettemplateSuffix;
end;
TTableDataInsertAllRequestClass = Class of TTableDataInsertAllRequest;
@@ -1240,8 +1512,8 @@ type
Findex : integer;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray); virtual;
- Procedure Setindex(AIndex : Integer; AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray); virtual;
+ Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1263,7 +1535,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetinsertErrors(AIndex : Integer; AValue : TTableDataInsertAllResponseTypeinsertErrorsArray); virtual;
+ Procedure SetinsertErrors(AIndex : Integer; const AValue : TTableDataInsertAllResponseTypeinsertErrorsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1292,7 +1564,7 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TTableDataListTyperowsArray); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TTableDataListTyperowsArray); virtual;
Procedure SettotalRows(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1323,7 +1595,7 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfields(AIndex : Integer; AValue : TTableFieldSchemaTypefieldsArray); virtual;
+ Procedure Setfields(AIndex : Integer; const AValue : TTableFieldSchemaTypefieldsArray); virtual;
Procedure Setmode(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
@@ -1358,7 +1630,7 @@ type
Procedure SetfriendlyName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SettableReference(AIndex : Integer; AValue : TTableReference); virtual;
+ Procedure SettableReference(AIndex : Integer; const AValue : TTableReference); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1386,8 +1658,8 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Settables(AIndex : Integer; AValue : TTableListTypetablesArray); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure Settables(AIndex : Integer; const AValue : TTableListTypetablesArray); 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;
@@ -1433,7 +1705,7 @@ type
Ff : TTableRowTypefArray;
Protected
//Property setters
- Procedure Setf(AIndex : Integer; AValue : TTableRowTypefArray); virtual;
+ Procedure Setf(AIndex : Integer; const AValue : TTableRowTypefArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1453,7 +1725,7 @@ type
Ffields : TTableSchemaTypefieldsArray;
Protected
//Property setters
- Procedure Setfields(AIndex : Integer; AValue : TTableSchemaTypefieldsArray); virtual;
+ Procedure Setfields(AIndex : Integer; const AValue : TTableSchemaTypefieldsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1465,18 +1737,64 @@ type
TTableSchemaClass = Class of TTableSchema;
{ --------------------------------------------------------------------
+ TTimePartitioning
+ --------------------------------------------------------------------}
+
+ TTimePartitioning = Class(TGoogleBaseObject)
+ Private
+ FexpirationMs : String;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetexpirationMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property expirationMs : String Index 0 Read FexpirationMs Write SetexpirationMs;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ end;
+ TTimePartitioningClass = Class of TTimePartitioning;
+
+ { --------------------------------------------------------------------
+ TUserDefinedFunctionResource
+ --------------------------------------------------------------------}
+
+ TUserDefinedFunctionResource = Class(TGoogleBaseObject)
+ Private
+ FinlineCode : String;
+ FresourceUri : String;
+ Protected
+ //Property setters
+ Procedure SetinlineCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetresourceUri(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property inlineCode : String Index 0 Read FinlineCode Write SetinlineCode;
+ Property resourceUri : String Index 8 Read FresourceUri Write SetresourceUri;
+ end;
+ TUserDefinedFunctionResourceClass = Class of TUserDefinedFunctionResource;
+
+ { --------------------------------------------------------------------
TViewDefinition
--------------------------------------------------------------------}
TViewDefinition = Class(TGoogleBaseObject)
Private
Fquery : String;
+ FuserDefinedFunctionResources : TViewDefinitionTypeuserDefinedFunctionResourcesArray;
Protected
//Property setters
Procedure Setquery(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserDefinedFunctionResources(AIndex : Integer; const AValue : TViewDefinitionTypeuserDefinedFunctionResourcesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
Property query : String Index 0 Read Fquery Write Setquery;
+ Property userDefinedFunctionResources : TViewDefinitionTypeuserDefinedFunctionResourcesArray Index 8 Read FuserDefinedFunctionResources Write SetuserDefinedFunctionResources;
end;
TViewDefinitionClass = Class of TViewDefinition;
@@ -1544,6 +1862,7 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Cancel(jobId: string; projectId: string) : TJobCancelResponse;
Function Get(jobId: string; projectId: string) : TJob;
Function GetQueryResults(jobId: string; projectId: string; AQuery : string = '') : TGetQueryResultsResponse;
Function GetQueryResults(jobId: string; projectId: string; AQuery : TJobsgetQueryResultsOptions) : TGetQueryResultsResponse;
@@ -1685,11 +2004,210 @@ implementation
{ --------------------------------------------------------------------
+ TBigtableColumn
+ --------------------------------------------------------------------}
+
+
+Procedure TBigtableColumn.Setencoding(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fencoding=AValue) then exit;
+ Fencoding:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBigtableColumn.SetfieldName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfieldName=AValue) then exit;
+ FfieldName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBigtableColumn.SetonlyReadLatest(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FonlyReadLatest=AValue) then exit;
+ FonlyReadLatest:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBigtableColumn.SetqualifierEncoded(AIndex : Integer; const AValue : String);
+
+begin
+ If (FqualifierEncoded=AValue) then exit;
+ FqualifierEncoded:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBigtableColumn.SetqualifierString(AIndex : Integer; const AValue : String);
+
+begin
+ If (FqualifierString=AValue) then exit;
+ FqualifierString:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBigtableColumn.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TBigtableColumn.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TBigtableColumnFamily
+ --------------------------------------------------------------------}
+
+
+Procedure TBigtableColumnFamily.Setcolumns(AIndex : Integer; const AValue : TBigtableColumnFamilyTypecolumnsArray);
+
+begin
+ If (Fcolumns=AValue) then exit;
+ Fcolumns:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBigtableColumnFamily.Setencoding(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fencoding=AValue) then exit;
+ Fencoding:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBigtableColumnFamily.SetfamilyId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfamilyId=AValue) then exit;
+ FfamilyId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBigtableColumnFamily.SetonlyReadLatest(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FonlyReadLatest=AValue) then exit;
+ FonlyReadLatest:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBigtableColumnFamily.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TBigtableColumnFamily.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 TBigtableColumnFamily.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'columns' : SetLength(Fcolumns,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBigtableOptions
+ --------------------------------------------------------------------}
+
+
+Procedure TBigtableOptions.SetcolumnFamilies(AIndex : Integer; const AValue : TBigtableOptionsTypecolumnFamiliesArray);
+
+begin
+ If (FcolumnFamilies=AValue) then exit;
+ FcolumnFamilies:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBigtableOptions.SetignoreUnspecifiedColumnFamilies(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FignoreUnspecifiedColumnFamilies=AValue) then exit;
+ FignoreUnspecifiedColumnFamilies:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBigtableOptions.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'columnfamilies' : SetLength(FcolumnFamilies,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TCsvOptions
--------------------------------------------------------------------}
-Procedure TCsvOptions.SetallowJaggedRows(AIndex : Integer; AValue : boolean);
+Procedure TCsvOptions.SetallowJaggedRows(AIndex : Integer; const AValue : boolean);
begin
If (FallowJaggedRows=AValue) then exit;
@@ -1699,7 +2217,7 @@ end;
-Procedure TCsvOptions.SetallowQuotedNewlines(AIndex : Integer; AValue : boolean);
+Procedure TCsvOptions.SetallowQuotedNewlines(AIndex : Integer; const AValue : boolean);
begin
If (FallowQuotedNewlines=AValue) then exit;
@@ -1739,7 +2257,7 @@ end;
-Procedure TCsvOptions.SetskipLeadingRows(AIndex : Integer; AValue : integer);
+Procedure TCsvOptions.SetskipLeadingRows(AIndex : Integer; const AValue : String);
begin
If (FskipLeadingRows=AValue) then exit;
@@ -1806,7 +2324,7 @@ end;
-Procedure TDatasetTypeaccessItem.Setview(AIndex : Integer; AValue : TTableReference);
+Procedure TDatasetTypeaccessItem.Setview(AIndex : Integer; const AValue : TTableReference);
begin
If (Fview=AValue) then exit;
@@ -1823,7 +2341,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDataset.Setaccess(AIndex : Integer; AValue : TDatasetTypeaccessArray);
+Procedure TDataset.Setaccess(AIndex : Integer; const AValue : TDatasetTypeaccessArray);
begin
If (Faccess=AValue) then exit;
@@ -1843,7 +2361,7 @@ end;
-Procedure TDataset.SetdatasetReference(AIndex : Integer; AValue : TDatasetReference);
+Procedure TDataset.SetdatasetReference(AIndex : Integer; const AValue : TDatasetReference);
begin
If (FdatasetReference=AValue) then exit;
@@ -1963,7 +2481,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatasetListTypedatasetsItem.SetdatasetReference(AIndex : Integer; AValue : TDatasetReference);
+Procedure TDatasetListTypedatasetsItem.SetdatasetReference(AIndex : Integer; const AValue : TDatasetReference);
begin
If (FdatasetReference=AValue) then exit;
@@ -2010,7 +2528,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatasetList.Setdatasets(AIndex : Integer; AValue : TDatasetListTypedatasetsArray);
+Procedure TDatasetList.Setdatasets(AIndex : Integer; const AValue : TDatasetListTypedatasetsArray);
begin
If (Fdatasets=AValue) then exit;
@@ -2140,10 +2658,220 @@ end;
{ --------------------------------------------------------------------
+ TExplainQueryStage
+ --------------------------------------------------------------------}
+
+
+Procedure TExplainQueryStage.SetcomputeRatioAvg(AIndex : Integer; const AValue : double);
+
+begin
+ If (FcomputeRatioAvg=AValue) then exit;
+ FcomputeRatioAvg:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.SetcomputeRatioMax(AIndex : Integer; const AValue : double);
+
+begin
+ If (FcomputeRatioMax=AValue) then exit;
+ FcomputeRatioMax:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.SetreadRatioAvg(AIndex : Integer; const AValue : double);
+
+begin
+ If (FreadRatioAvg=AValue) then exit;
+ FreadRatioAvg:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.SetreadRatioMax(AIndex : Integer; const AValue : double);
+
+begin
+ If (FreadRatioMax=AValue) then exit;
+ FreadRatioMax:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.SetrecordsRead(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrecordsRead=AValue) then exit;
+ FrecordsRead:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.SetrecordsWritten(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrecordsWritten=AValue) then exit;
+ FrecordsWritten:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.Setsteps(AIndex : Integer; const AValue : TExplainQueryStageTypestepsArray);
+
+begin
+ If (Fsteps=AValue) then exit;
+ Fsteps:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.SetwaitRatioAvg(AIndex : Integer; const AValue : double);
+
+begin
+ If (FwaitRatioAvg=AValue) then exit;
+ FwaitRatioAvg:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.SetwaitRatioMax(AIndex : Integer; const AValue : double);
+
+begin
+ If (FwaitRatioMax=AValue) then exit;
+ FwaitRatioMax:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.SetwriteRatioAvg(AIndex : Integer; const AValue : double);
+
+begin
+ If (FwriteRatioAvg=AValue) then exit;
+ FwriteRatioAvg:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStage.SetwriteRatioMax(AIndex : Integer; const AValue : double);
+
+begin
+ If (FwriteRatioMax=AValue) then exit;
+ FwriteRatioMax:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TExplainQueryStage.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'steps' : SetLength(Fsteps,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TExplainQueryStep
+ --------------------------------------------------------------------}
+
+
+Procedure TExplainQueryStep.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExplainQueryStep.Setsubsteps(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fsubsteps=AValue) then exit;
+ Fsubsteps:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TExplainQueryStep.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'substeps' : SetLength(Fsubsteps,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TExternalDataConfiguration
--------------------------------------------------------------------}
+Procedure TExternalDataConfiguration.Setautodetect(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fautodetect=AValue) then exit;
+ Fautodetect:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExternalDataConfiguration.SetbigtableOptions(AIndex : Integer; const AValue : TBigtableOptions);
+
+begin
+ If (FbigtableOptions=AValue) then exit;
+ FbigtableOptions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TExternalDataConfiguration.Setcompression(AIndex : Integer; const AValue : String);
begin
@@ -2154,7 +2882,7 @@ end;
-Procedure TExternalDataConfiguration.SetcsvOptions(AIndex : Integer; AValue : TCsvOptions);
+Procedure TExternalDataConfiguration.SetcsvOptions(AIndex : Integer; const AValue : TCsvOptions);
begin
If (FcsvOptions=AValue) then exit;
@@ -2164,7 +2892,17 @@ end;
-Procedure TExternalDataConfiguration.SetignoreUnknownValues(AIndex : Integer; AValue : boolean);
+Procedure TExternalDataConfiguration.SetgoogleSheetsOptions(AIndex : Integer; const AValue : TGoogleSheetsOptions);
+
+begin
+ If (FgoogleSheetsOptions=AValue) then exit;
+ FgoogleSheetsOptions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExternalDataConfiguration.SetignoreUnknownValues(AIndex : Integer; const AValue : boolean);
begin
If (FignoreUnknownValues=AValue) then exit;
@@ -2174,7 +2912,7 @@ end;
-Procedure TExternalDataConfiguration.SetmaxBadRecords(AIndex : Integer; AValue : integer);
+Procedure TExternalDataConfiguration.SetmaxBadRecords(AIndex : Integer; const AValue : integer);
begin
If (FmaxBadRecords=AValue) then exit;
@@ -2184,7 +2922,7 @@ end;
-Procedure TExternalDataConfiguration.Setschema(AIndex : Integer; AValue : TTableSchema);
+Procedure TExternalDataConfiguration.Setschema(AIndex : Integer; const AValue : TTableSchema);
begin
If (Fschema=AValue) then exit;
@@ -2204,7 +2942,7 @@ end;
-Procedure TExternalDataConfiguration.SetsourceUris(AIndex : Integer; AValue : TStringArray);
+Procedure TExternalDataConfiguration.SetsourceUris(AIndex : Integer; const AValue : TStringArray);
begin
If (FsourceUris=AValue) then exit;
@@ -2234,7 +2972,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGetQueryResultsResponse.SetcacheHit(AIndex : Integer; AValue : boolean);
+Procedure TGetQueryResultsResponse.SetcacheHit(AIndex : Integer; const AValue : boolean);
begin
If (FcacheHit=AValue) then exit;
@@ -2244,6 +2982,16 @@ end;
+Procedure TGetQueryResultsResponse.Seterrors(AIndex : Integer; const AValue : TGetQueryResultsResponseTypeerrorsArray);
+
+begin
+ If (Ferrors=AValue) then exit;
+ Ferrors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TGetQueryResultsResponse.Setetag(AIndex : Integer; const AValue : String);
begin
@@ -2254,7 +3002,7 @@ end;
-Procedure TGetQueryResultsResponse.SetjobComplete(AIndex : Integer; AValue : boolean);
+Procedure TGetQueryResultsResponse.SetjobComplete(AIndex : Integer; const AValue : boolean);
begin
If (FjobComplete=AValue) then exit;
@@ -2264,7 +3012,7 @@ end;
-Procedure TGetQueryResultsResponse.SetjobReference(AIndex : Integer; AValue : TJobReference);
+Procedure TGetQueryResultsResponse.SetjobReference(AIndex : Integer; const AValue : TJobReference);
begin
If (FjobReference=AValue) then exit;
@@ -2294,7 +3042,7 @@ end;
-Procedure TGetQueryResultsResponse.Setrows(AIndex : Integer; AValue : TGetQueryResultsResponseTyperowsArray);
+Procedure TGetQueryResultsResponse.Setrows(AIndex : Integer; const AValue : TGetQueryResultsResponseTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -2304,7 +3052,7 @@ end;
-Procedure TGetQueryResultsResponse.Setschema(AIndex : Integer; AValue : TTableSchema);
+Procedure TGetQueryResultsResponse.Setschema(AIndex : Integer; const AValue : TTableSchema);
begin
If (Fschema=AValue) then exit;
@@ -2339,6 +3087,7 @@ Procedure TGetQueryResultsResponse.SetArrayLength(Const AName : String; ALength
begin
Case AName of
+ 'errors' : SetLength(Ferrors,ALength);
'rows' : SetLength(Frows,ALength);
else
Inherited SetArrayLength(AName,ALength);
@@ -2350,11 +3099,28 @@ end;
{ --------------------------------------------------------------------
+ TGoogleSheetsOptions
+ --------------------------------------------------------------------}
+
+
+Procedure TGoogleSheetsOptions.SetskipLeadingRows(AIndex : Integer; const AValue : String);
+
+begin
+ If (FskipLeadingRows=AValue) then exit;
+ FskipLeadingRows:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TJob
--------------------------------------------------------------------}
-Procedure TJob.Setconfiguration(AIndex : Integer; AValue : TJobConfiguration);
+Procedure TJob.Setconfiguration(AIndex : Integer; const AValue : TJobConfiguration);
begin
If (Fconfiguration=AValue) then exit;
@@ -2384,7 +3150,7 @@ end;
-Procedure TJob.SetjobReference(AIndex : Integer; AValue : TJobReference);
+Procedure TJob.SetjobReference(AIndex : Integer; const AValue : TJobReference);
begin
If (FjobReference=AValue) then exit;
@@ -2414,7 +3180,7 @@ end;
-Procedure TJob.Setstatistics(AIndex : Integer; AValue : TJobStatistics);
+Procedure TJob.Setstatistics(AIndex : Integer; const AValue : TJobStatistics);
begin
If (Fstatistics=AValue) then exit;
@@ -2424,7 +3190,7 @@ end;
-Procedure TJob.Setstatus(AIndex : Integer; AValue : TJobStatus);
+Procedure TJob.Setstatus(AIndex : Integer; const AValue : TJobStatus);
begin
If (Fstatus=AValue) then exit;
@@ -2447,51 +3213,68 @@ end;
{ --------------------------------------------------------------------
- TJobConfiguration
+ TJobCancelResponse
--------------------------------------------------------------------}
-Procedure TJobConfiguration.Setcopy(AIndex : Integer; AValue : TJobConfigurationTableCopy);
+Procedure TJobCancelResponse.Setjob(AIndex : Integer; const AValue : TJob);
begin
- If (Fcopy=AValue) then exit;
- Fcopy:=AValue;
+ If (Fjob=AValue) then exit;
+ Fjob:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJobConfiguration.SetdryRun(AIndex : Integer; AValue : boolean);
+Procedure TJobCancelResponse.Setkind(AIndex : Integer; const AValue : String);
begin
- If (FdryRun=AValue) then exit;
- FdryRun:=AValue;
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJobConfiguration.Setextract(AIndex : Integer; AValue : TJobConfigurationExtract);
+
+
+{ --------------------------------------------------------------------
+ TJobConfiguration
+ --------------------------------------------------------------------}
+
+
+Procedure TJobConfiguration.Setcopy(AIndex : Integer; const AValue : TJobConfigurationTableCopy);
begin
- If (Fextract=AValue) then exit;
- Fextract:=AValue;
+ If (Fcopy=AValue) then exit;
+ Fcopy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJobConfiguration.SetdryRun(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FdryRun=AValue) then exit;
+ FdryRun:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJobConfiguration.Setlink(AIndex : Integer; AValue : TJobConfigurationLink);
+Procedure TJobConfiguration.Setextract(AIndex : Integer; const AValue : TJobConfigurationExtract);
begin
- If (Flink=AValue) then exit;
- Flink:=AValue;
+ If (Fextract=AValue) then exit;
+ Fextract:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJobConfiguration.Setload(AIndex : Integer; AValue : TJobConfigurationLoad);
+Procedure TJobConfiguration.Setload(AIndex : Integer; const AValue : TJobConfigurationLoad);
begin
If (Fload=AValue) then exit;
@@ -2501,7 +3284,7 @@ end;
-Procedure TJobConfiguration.Setquery(AIndex : Integer; AValue : TJobConfigurationQuery);
+Procedure TJobConfiguration.Setquery(AIndex : Integer; const AValue : TJobConfigurationQuery);
begin
If (Fquery=AValue) then exit;
@@ -2548,7 +3331,7 @@ end;
-Procedure TJobConfigurationExtract.SetdestinationUris(AIndex : Integer; AValue : TStringArray);
+Procedure TJobConfigurationExtract.SetdestinationUris(AIndex : Integer; const AValue : TStringArray);
begin
If (FdestinationUris=AValue) then exit;
@@ -2568,7 +3351,7 @@ end;
-Procedure TJobConfigurationExtract.SetprintHeader(AIndex : Integer; AValue : boolean);
+Procedure TJobConfigurationExtract.SetprintHeader(AIndex : Integer; const AValue : boolean);
begin
If (FprintHeader=AValue) then exit;
@@ -2578,7 +3361,7 @@ end;
-Procedure TJobConfigurationExtract.SetsourceTable(AIndex : Integer; AValue : TTableReference);
+Procedure TJobConfigurationExtract.SetsourceTable(AIndex : Integer; const AValue : TTableReference);
begin
If (FsourceTable=AValue) then exit;
@@ -2604,85 +3387,35 @@ end;
{ --------------------------------------------------------------------
- TJobConfigurationLink
+ TJobConfigurationLoad
--------------------------------------------------------------------}
-Procedure TJobConfigurationLink.SetcreateDisposition(AIndex : Integer; const AValue : String);
-
-begin
- If (FcreateDisposition=AValue) then exit;
- FcreateDisposition:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TJobConfigurationLink.SetdestinationTable(AIndex : Integer; AValue : TTableReference);
-
-begin
- If (FdestinationTable=AValue) then exit;
- FdestinationTable:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TJobConfigurationLink.SetsourceUri(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FsourceUri=AValue) then exit;
- FsourceUri:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TJobConfigurationLink.SetwriteDisposition(AIndex : Integer; const AValue : String);
+Procedure TJobConfigurationLoad.SetallowJaggedRows(AIndex : Integer; const AValue : boolean);
begin
- If (FwriteDisposition=AValue) then exit;
- FwriteDisposition:=AValue;
+ If (FallowJaggedRows=AValue) then exit;
+ FallowJaggedRows:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TJobConfigurationLink.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'sourceuri' : SetLength(FsourceUri,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
- TJobConfigurationLoad
- --------------------------------------------------------------------}
-
-Procedure TJobConfigurationLoad.SetallowJaggedRows(AIndex : Integer; AValue : boolean);
+Procedure TJobConfigurationLoad.SetallowQuotedNewlines(AIndex : Integer; const AValue : boolean);
begin
- If (FallowJaggedRows=AValue) then exit;
- FallowJaggedRows:=AValue;
+ If (FallowQuotedNewlines=AValue) then exit;
+ FallowQuotedNewlines:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJobConfigurationLoad.SetallowQuotedNewlines(AIndex : Integer; AValue : boolean);
+Procedure TJobConfigurationLoad.Setautodetect(AIndex : Integer; const AValue : boolean);
begin
- If (FallowQuotedNewlines=AValue) then exit;
- FallowQuotedNewlines:=AValue;
+ If (Fautodetect=AValue) then exit;
+ Fautodetect:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -2698,7 +3431,7 @@ end;
-Procedure TJobConfigurationLoad.SetdestinationTable(AIndex : Integer; AValue : TTableReference);
+Procedure TJobConfigurationLoad.SetdestinationTable(AIndex : Integer; const AValue : TTableReference);
begin
If (FdestinationTable=AValue) then exit;
@@ -2728,7 +3461,7 @@ end;
-Procedure TJobConfigurationLoad.SetignoreUnknownValues(AIndex : Integer; AValue : boolean);
+Procedure TJobConfigurationLoad.SetignoreUnknownValues(AIndex : Integer; const AValue : boolean);
begin
If (FignoreUnknownValues=AValue) then exit;
@@ -2738,7 +3471,7 @@ end;
-Procedure TJobConfigurationLoad.SetmaxBadRecords(AIndex : Integer; AValue : integer);
+Procedure TJobConfigurationLoad.SetmaxBadRecords(AIndex : Integer; const AValue : integer);
begin
If (FmaxBadRecords=AValue) then exit;
@@ -2748,7 +3481,7 @@ end;
-Procedure TJobConfigurationLoad.SetprojectionFields(AIndex : Integer; AValue : TStringArray);
+Procedure TJobConfigurationLoad.SetprojectionFields(AIndex : Integer; const AValue : TStringArray);
begin
If (FprojectionFields=AValue) then exit;
@@ -2768,7 +3501,7 @@ end;
-Procedure TJobConfigurationLoad.Setschema(AIndex : Integer; AValue : TTableSchema);
+Procedure TJobConfigurationLoad.Setschema(AIndex : Integer; const AValue : TTableSchema);
begin
If (Fschema=AValue) then exit;
@@ -2798,7 +3531,7 @@ end;
-Procedure TJobConfigurationLoad.SetskipLeadingRows(AIndex : Integer; AValue : integer);
+Procedure TJobConfigurationLoad.SetskipLeadingRows(AIndex : Integer; const AValue : integer);
begin
If (FskipLeadingRows=AValue) then exit;
@@ -2818,7 +3551,7 @@ end;
-Procedure TJobConfigurationLoad.SetsourceUris(AIndex : Integer; AValue : TStringArray);
+Procedure TJobConfigurationLoad.SetsourceUris(AIndex : Integer; const AValue : TStringArray);
begin
If (FsourceUris=AValue) then exit;
@@ -2872,7 +3605,7 @@ end;
--------------------------------------------------------------------}
-Procedure TJobConfigurationQuery.SetallowLargeResults(AIndex : Integer; AValue : boolean);
+Procedure TJobConfigurationQuery.SetallowLargeResults(AIndex : Integer; const AValue : boolean);
begin
If (FallowLargeResults=AValue) then exit;
@@ -2892,7 +3625,7 @@ end;
-Procedure TJobConfigurationQuery.SetdefaultDataset(AIndex : Integer; AValue : TDatasetReference);
+Procedure TJobConfigurationQuery.SetdefaultDataset(AIndex : Integer; const AValue : TDatasetReference);
begin
If (FdefaultDataset=AValue) then exit;
@@ -2902,7 +3635,7 @@ end;
-Procedure TJobConfigurationQuery.SetdestinationTable(AIndex : Integer; AValue : TTableReference);
+Procedure TJobConfigurationQuery.SetdestinationTable(AIndex : Integer; const AValue : TTableReference);
begin
If (FdestinationTable=AValue) then exit;
@@ -2912,7 +3645,7 @@ end;
-Procedure TJobConfigurationQuery.SetflattenResults(AIndex : Integer; AValue : boolean);
+Procedure TJobConfigurationQuery.SetflattenResults(AIndex : Integer; const AValue : boolean);
begin
If (FflattenResults=AValue) then exit;
@@ -2922,7 +3655,17 @@ end;
-Procedure TJobConfigurationQuery.SetpreserveNulls(AIndex : Integer; AValue : boolean);
+Procedure TJobConfigurationQuery.SetmaximumBillingTier(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaximumBillingTier=AValue) then exit;
+ FmaximumBillingTier:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJobConfigurationQuery.SetpreserveNulls(AIndex : Integer; const AValue : boolean);
begin
If (FpreserveNulls=AValue) then exit;
@@ -2952,7 +3695,7 @@ end;
-Procedure TJobConfigurationQuery.SettableDefinitions(AIndex : Integer; AValue : TJobConfigurationQueryTypetableDefinitions);
+Procedure TJobConfigurationQuery.SettableDefinitions(AIndex : Integer; const AValue : TJobConfigurationQueryTypetableDefinitions);
begin
If (FtableDefinitions=AValue) then exit;
@@ -2962,7 +3705,17 @@ end;
-Procedure TJobConfigurationQuery.SetuseQueryCache(AIndex : Integer; AValue : boolean);
+Procedure TJobConfigurationQuery.SetuseLegacySql(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FuseLegacySql=AValue) then exit;
+ FuseLegacySql:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJobConfigurationQuery.SetuseQueryCache(AIndex : Integer; const AValue : boolean);
begin
If (FuseQueryCache=AValue) then exit;
@@ -2972,6 +3725,16 @@ end;
+Procedure TJobConfigurationQuery.SetuserDefinedFunctionResources(AIndex : Integer; const AValue : TJobConfigurationQueryTypeuserDefinedFunctionResourcesArray);
+
+begin
+ If (FuserDefinedFunctionResources=AValue) then exit;
+ FuserDefinedFunctionResources:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TJobConfigurationQuery.SetwriteDisposition(AIndex : Integer; const AValue : String);
begin
@@ -2981,6 +3744,19 @@ begin
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJobConfigurationQuery.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'userdefinedfunctionresources' : SetLength(FuserDefinedFunctionResources,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
@@ -2999,7 +3775,7 @@ end;
-Procedure TJobConfigurationTableCopy.SetdestinationTable(AIndex : Integer; AValue : TTableReference);
+Procedure TJobConfigurationTableCopy.SetdestinationTable(AIndex : Integer; const AValue : TTableReference);
begin
If (FdestinationTable=AValue) then exit;
@@ -3009,7 +3785,7 @@ end;
-Procedure TJobConfigurationTableCopy.SetsourceTable(AIndex : Integer; AValue : TTableReference);
+Procedure TJobConfigurationTableCopy.SetsourceTable(AIndex : Integer; const AValue : TTableReference);
begin
If (FsourceTable=AValue) then exit;
@@ -3019,7 +3795,7 @@ end;
-Procedure TJobConfigurationTableCopy.SetsourceTables(AIndex : Integer; AValue : TJobConfigurationTableCopyTypesourceTablesArray);
+Procedure TJobConfigurationTableCopy.SetsourceTables(AIndex : Integer; const AValue : TJobConfigurationTableCopyTypesourceTablesArray);
begin
If (FsourceTables=AValue) then exit;
@@ -3059,7 +3835,7 @@ end;
--------------------------------------------------------------------}
-Procedure TJobListTypejobsItem.Setconfiguration(AIndex : Integer; AValue : TJobConfiguration);
+Procedure TJobListTypejobsItem.Setconfiguration(AIndex : Integer; const AValue : TJobConfiguration);
begin
If (Fconfiguration=AValue) then exit;
@@ -3069,7 +3845,7 @@ end;
-Procedure TJobListTypejobsItem.SeterrorResult(AIndex : Integer; AValue : TErrorProto);
+Procedure TJobListTypejobsItem.SeterrorResult(AIndex : Integer; const AValue : TErrorProto);
begin
If (FerrorResult=AValue) then exit;
@@ -3089,7 +3865,7 @@ end;
-Procedure TJobListTypejobsItem.SetjobReference(AIndex : Integer; AValue : TJobReference);
+Procedure TJobListTypejobsItem.SetjobReference(AIndex : Integer; const AValue : TJobReference);
begin
If (FjobReference=AValue) then exit;
@@ -3119,7 +3895,7 @@ end;
-Procedure TJobListTypejobsItem.Setstatistics(AIndex : Integer; AValue : TJobStatistics);
+Procedure TJobListTypejobsItem.Setstatistics(AIndex : Integer; const AValue : TJobStatistics);
begin
If (Fstatistics=AValue) then exit;
@@ -3129,7 +3905,7 @@ end;
-Procedure TJobListTypejobsItem.Setstatus(AIndex : Integer; AValue : TJobStatus);
+Procedure TJobListTypejobsItem.Setstatus(AIndex : Integer; const AValue : TJobStatus);
begin
If (Fstatus=AValue) then exit;
@@ -3166,7 +3942,7 @@ end;
-Procedure TJobList.Setjobs(AIndex : Integer; AValue : TJobListTypejobsArray);
+Procedure TJobList.Setjobs(AIndex : Integer; const AValue : TJobListTypejobsArray);
begin
If (Fjobs=AValue) then exit;
@@ -3195,16 +3971,6 @@ begin
end;
-
-Procedure TJobList.SettotalItems(AIndex : Integer; AValue : integer);
-
-begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TJobList.SetArrayLength(Const AName : String; ALength : Longint);
@@ -3273,7 +4039,7 @@ end;
-Procedure TJobStatistics.Setextract(AIndex : Integer; AValue : TJobStatistics4);
+Procedure TJobStatistics.Setextract(AIndex : Integer; const AValue : TJobStatistics4);
begin
If (Fextract=AValue) then exit;
@@ -3283,7 +4049,7 @@ end;
-Procedure TJobStatistics.Setload(AIndex : Integer; AValue : TJobStatistics3);
+Procedure TJobStatistics.Setload(AIndex : Integer; const AValue : TJobStatistics3);
begin
If (Fload=AValue) then exit;
@@ -3293,7 +4059,7 @@ end;
-Procedure TJobStatistics.Setquery(AIndex : Integer; AValue : TJobStatistics2);
+Procedure TJobStatistics.Setquery(AIndex : Integer; const AValue : TJobStatistics2);
begin
If (Fquery=AValue) then exit;
@@ -3330,7 +4096,17 @@ end;
--------------------------------------------------------------------}
-Procedure TJobStatistics2.SetcacheHit(AIndex : Integer; AValue : boolean);
+Procedure TJobStatistics2.SetbillingTier(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FbillingTier=AValue) then exit;
+ FbillingTier:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJobStatistics2.SetcacheHit(AIndex : Integer; const AValue : boolean);
begin
If (FcacheHit=AValue) then exit;
@@ -3340,6 +4116,46 @@ end;
+Procedure TJobStatistics2.SetqueryPlan(AIndex : Integer; const AValue : TJobStatistics2TypequeryPlanArray);
+
+begin
+ If (FqueryPlan=AValue) then exit;
+ FqueryPlan:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJobStatistics2.SetreferencedTables(AIndex : Integer; const AValue : TJobStatistics2TypereferencedTablesArray);
+
+begin
+ If (FreferencedTables=AValue) then exit;
+ FreferencedTables:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJobStatistics2.Setschema(AIndex : Integer; const AValue : TTableSchema);
+
+begin
+ If (Fschema=AValue) then exit;
+ Fschema:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJobStatistics2.SettotalBytesBilled(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtotalBytesBilled=AValue) then exit;
+ FtotalBytesBilled:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TJobStatistics2.SettotalBytesProcessed(AIndex : Integer; const AValue : String);
begin
@@ -3349,6 +4165,20 @@ begin
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJobStatistics2.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'queryplan' : SetLength(FqueryPlan,ALength);
+ 'referencedtables' : SetLength(FreferencedTables,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
@@ -3404,7 +4234,7 @@ end;
--------------------------------------------------------------------}
-Procedure TJobStatistics4.SetdestinationUriFileCounts(AIndex : Integer; AValue : TStringArray);
+Procedure TJobStatistics4.SetdestinationUriFileCounts(AIndex : Integer; const AValue : TStringArray);
begin
If (FdestinationUriFileCounts=AValue) then exit;
@@ -3434,7 +4264,7 @@ end;
--------------------------------------------------------------------}
-Procedure TJobStatus.SeterrorResult(AIndex : Integer; AValue : TErrorProto);
+Procedure TJobStatus.SeterrorResult(AIndex : Integer; const AValue : TErrorProto);
begin
If (FerrorResult=AValue) then exit;
@@ -3444,7 +4274,7 @@ end;
-Procedure TJobStatus.Seterrors(AIndex : Integer; AValue : TJobStatusTypeerrorsArray);
+Procedure TJobStatus.Seterrors(AIndex : Integer; const AValue : TJobStatusTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -3537,7 +4367,7 @@ end;
-Procedure TProjectListTypeprojectsItem.SetprojectReference(AIndex : Integer; AValue : TProjectReference);
+Procedure TProjectListTypeprojectsItem.SetprojectReference(AIndex : Integer; const AValue : TProjectReference);
begin
If (FprojectReference=AValue) then exit;
@@ -3584,7 +4414,7 @@ end;
-Procedure TProjectList.Setprojects(AIndex : Integer; AValue : TProjectListTypeprojectsArray);
+Procedure TProjectList.Setprojects(AIndex : Integer; const AValue : TProjectListTypeprojectsArray);
begin
If (Fprojects=AValue) then exit;
@@ -3594,7 +4424,7 @@ end;
-Procedure TProjectList.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TProjectList.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -3641,7 +4471,7 @@ end;
--------------------------------------------------------------------}
-Procedure TQueryRequest.SetdefaultDataset(AIndex : Integer; AValue : TDatasetReference);
+Procedure TQueryRequest.SetdefaultDataset(AIndex : Integer; const AValue : TDatasetReference);
begin
If (FdefaultDataset=AValue) then exit;
@@ -3651,7 +4481,7 @@ end;
-Procedure TQueryRequest.SetdryRun(AIndex : Integer; AValue : boolean);
+Procedure TQueryRequest.SetdryRun(AIndex : Integer; const AValue : boolean);
begin
If (FdryRun=AValue) then exit;
@@ -3671,7 +4501,7 @@ end;
-Procedure TQueryRequest.SetmaxResults(AIndex : Integer; AValue : integer);
+Procedure TQueryRequest.SetmaxResults(AIndex : Integer; const AValue : integer);
begin
If (FmaxResults=AValue) then exit;
@@ -3681,7 +4511,7 @@ end;
-Procedure TQueryRequest.SetpreserveNulls(AIndex : Integer; AValue : boolean);
+Procedure TQueryRequest.SetpreserveNulls(AIndex : Integer; const AValue : boolean);
begin
If (FpreserveNulls=AValue) then exit;
@@ -3701,7 +4531,7 @@ end;
-Procedure TQueryRequest.SettimeoutMs(AIndex : Integer; AValue : integer);
+Procedure TQueryRequest.SettimeoutMs(AIndex : Integer; const AValue : integer);
begin
If (FtimeoutMs=AValue) then exit;
@@ -3711,7 +4541,17 @@ end;
-Procedure TQueryRequest.SetuseQueryCache(AIndex : Integer; AValue : boolean);
+Procedure TQueryRequest.SetuseLegacySql(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FuseLegacySql=AValue) then exit;
+ FuseLegacySql:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TQueryRequest.SetuseQueryCache(AIndex : Integer; const AValue : boolean);
begin
If (FuseQueryCache=AValue) then exit;
@@ -3728,7 +4568,7 @@ end;
--------------------------------------------------------------------}
-Procedure TQueryResponse.SetcacheHit(AIndex : Integer; AValue : boolean);
+Procedure TQueryResponse.SetcacheHit(AIndex : Integer; const AValue : boolean);
begin
If (FcacheHit=AValue) then exit;
@@ -3738,7 +4578,17 @@ end;
-Procedure TQueryResponse.SetjobComplete(AIndex : Integer; AValue : boolean);
+Procedure TQueryResponse.Seterrors(AIndex : Integer; const AValue : TQueryResponseTypeerrorsArray);
+
+begin
+ If (Ferrors=AValue) then exit;
+ Ferrors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TQueryResponse.SetjobComplete(AIndex : Integer; const AValue : boolean);
begin
If (FjobComplete=AValue) then exit;
@@ -3748,7 +4598,7 @@ end;
-Procedure TQueryResponse.SetjobReference(AIndex : Integer; AValue : TJobReference);
+Procedure TQueryResponse.SetjobReference(AIndex : Integer; const AValue : TJobReference);
begin
If (FjobReference=AValue) then exit;
@@ -3778,7 +4628,7 @@ end;
-Procedure TQueryResponse.Setrows(AIndex : Integer; AValue : TQueryResponseTyperowsArray);
+Procedure TQueryResponse.Setrows(AIndex : Integer; const AValue : TQueryResponseTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -3788,7 +4638,7 @@ end;
-Procedure TQueryResponse.Setschema(AIndex : Integer; AValue : TTableSchema);
+Procedure TQueryResponse.Setschema(AIndex : Integer; const AValue : TTableSchema);
begin
If (Fschema=AValue) then exit;
@@ -3823,6 +4673,7 @@ Procedure TQueryResponse.SetArrayLength(Const AName : String; ALength : Longint)
begin
Case AName of
+ 'errors' : SetLength(Ferrors,ALength);
'rows' : SetLength(Frows,ALength);
else
Inherited SetArrayLength(AName,ALength);
@@ -3834,6 +4685,43 @@ end;
{ --------------------------------------------------------------------
+ TStreamingbuffer
+ --------------------------------------------------------------------}
+
+
+Procedure TStreamingbuffer.SetestimatedBytes(AIndex : Integer; const AValue : String);
+
+begin
+ If (FestimatedBytes=AValue) then exit;
+ FestimatedBytes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStreamingbuffer.SetestimatedRows(AIndex : Integer; const AValue : String);
+
+begin
+ If (FestimatedRows=AValue) then exit;
+ FestimatedRows:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStreamingbuffer.SetoldestEntryTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoldestEntryTime=AValue) then exit;
+ FoldestEntryTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TTable
--------------------------------------------------------------------}
@@ -3878,6 +4766,16 @@ end;
+Procedure TTable.SetexternalDataConfiguration(AIndex : Integer; const AValue : TExternalDataConfiguration);
+
+begin
+ If (FexternalDataConfiguration=AValue) then exit;
+ FexternalDataConfiguration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TTable.SetfriendlyName(AIndex : Integer; const AValue : String);
begin
@@ -3918,6 +4816,16 @@ end;
+Procedure TTable.Setlocation(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocation=AValue) then exit;
+ Flocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TTable.SetnumBytes(AIndex : Integer; const AValue : String);
begin
@@ -3928,6 +4836,16 @@ end;
+Procedure TTable.SetnumLongTermBytes(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnumLongTermBytes=AValue) then exit;
+ FnumLongTermBytes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TTable.SetnumRows(AIndex : Integer; const AValue : String);
begin
@@ -3938,7 +4856,7 @@ end;
-Procedure TTable.Setschema(AIndex : Integer; AValue : TTableSchema);
+Procedure TTable.Setschema(AIndex : Integer; const AValue : TTableSchema);
begin
If (Fschema=AValue) then exit;
@@ -3958,7 +4876,17 @@ end;
-Procedure TTable.SettableReference(AIndex : Integer; AValue : TTableReference);
+Procedure TTable.SetstreamingBuffer(AIndex : Integer; const AValue : TStreamingbuffer);
+
+begin
+ If (FstreamingBuffer=AValue) then exit;
+ FstreamingBuffer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTable.SettableReference(AIndex : Integer; const AValue : TTableReference);
begin
If (FtableReference=AValue) then exit;
@@ -3968,6 +4896,16 @@ end;
+Procedure TTable.SettimePartitioning(AIndex : Integer; const AValue : TTimePartitioning);
+
+begin
+ If (FtimePartitioning=AValue) then exit;
+ FtimePartitioning:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TTable.Set_type(AIndex : Integer; const AValue : String);
begin
@@ -3978,7 +4916,7 @@ end;
-Procedure TTable.Setview(AIndex : Integer; AValue : TViewDefinition);
+Procedure TTable.Setview(AIndex : Integer; const AValue : TViewDefinition);
begin
If (Fview=AValue) then exit;
@@ -4006,7 +4944,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTableCell.Setv(AIndex : Integer; AValue : TJSONSchema);
+Procedure TTableCell.Setv(AIndex : Integer; const AValue : TJSONSchema);
begin
If (Fv=AValue) then exit;
@@ -4033,7 +4971,7 @@ end;
-Procedure TTableDataInsertAllRequestTyperowsItem.Setjson(AIndex : Integer; AValue : TJsonObject);
+Procedure TTableDataInsertAllRequestTyperowsItem.Setjson(AIndex : Integer; const AValue : TJsonObject);
begin
If (Fjson=AValue) then exit;
@@ -4050,7 +4988,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTableDataInsertAllRequest.SetignoreUnknownValues(AIndex : Integer; AValue : boolean);
+Procedure TTableDataInsertAllRequest.SetignoreUnknownValues(AIndex : Integer; const AValue : boolean);
begin
If (FignoreUnknownValues=AValue) then exit;
@@ -4070,7 +5008,7 @@ end;
-Procedure TTableDataInsertAllRequest.Setrows(AIndex : Integer; AValue : TTableDataInsertAllRequestTyperowsArray);
+Procedure TTableDataInsertAllRequest.Setrows(AIndex : Integer; const AValue : TTableDataInsertAllRequestTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -4080,7 +5018,7 @@ end;
-Procedure TTableDataInsertAllRequest.SetskipInvalidRows(AIndex : Integer; AValue : boolean);
+Procedure TTableDataInsertAllRequest.SetskipInvalidRows(AIndex : Integer; const AValue : boolean);
begin
If (FskipInvalidRows=AValue) then exit;
@@ -4089,6 +5027,16 @@ begin
end;
+
+Procedure TTableDataInsertAllRequest.SettemplateSuffix(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtemplateSuffix=AValue) then exit;
+ FtemplateSuffix:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTableDataInsertAllRequest.SetArrayLength(Const AName : String; ALength : Longint);
@@ -4110,7 +5058,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTableDataInsertAllResponseTypeinsertErrorsItem.Seterrors(AIndex : Integer; AValue : TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray);
+Procedure TTableDataInsertAllResponseTypeinsertErrorsItem.Seterrors(AIndex : Integer; const AValue : TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -4120,7 +5068,7 @@ end;
-Procedure TTableDataInsertAllResponseTypeinsertErrorsItem.Setindex(AIndex : Integer; AValue : integer);
+Procedure TTableDataInsertAllResponseTypeinsertErrorsItem.Setindex(AIndex : Integer; const AValue : integer);
begin
If (Findex=AValue) then exit;
@@ -4150,7 +5098,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTableDataInsertAllResponse.SetinsertErrors(AIndex : Integer; AValue : TTableDataInsertAllResponseTypeinsertErrorsArray);
+Procedure TTableDataInsertAllResponse.SetinsertErrors(AIndex : Integer; const AValue : TTableDataInsertAllResponseTypeinsertErrorsArray);
begin
If (FinsertErrors=AValue) then exit;
@@ -4220,7 +5168,7 @@ end;
-Procedure TTableDataList.Setrows(AIndex : Integer; AValue : TTableDataListTyperowsArray);
+Procedure TTableDataList.Setrows(AIndex : Integer; const AValue : TTableDataListTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -4270,7 +5218,7 @@ end;
-Procedure TTableFieldSchema.Setfields(AIndex : Integer; AValue : TTableFieldSchemaTypefieldsArray);
+Procedure TTableFieldSchema.Setfields(AIndex : Integer; const AValue : TTableFieldSchemaTypefieldsArray);
begin
If (Ffields=AValue) then exit;
@@ -4371,7 +5319,7 @@ end;
-Procedure TTableListTypetablesItem.SettableReference(AIndex : Integer; AValue : TTableReference);
+Procedure TTableListTypetablesItem.SettableReference(AIndex : Integer; const AValue : TTableReference);
begin
If (FtableReference=AValue) then exit;
@@ -4439,7 +5387,7 @@ end;
-Procedure TTableList.Settables(AIndex : Integer; AValue : TTableListTypetablesArray);
+Procedure TTableList.Settables(AIndex : Integer; const AValue : TTableListTypetablesArray);
begin
If (Ftables=AValue) then exit;
@@ -4449,7 +5397,7 @@ end;
-Procedure TTableList.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TTableList.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -4516,7 +5464,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTableRow.Setf(AIndex : Integer; AValue : TTableRowTypefArray);
+Procedure TTableRow.Setf(AIndex : Integer; const AValue : TTableRowTypefArray);
begin
If (Ff=AValue) then exit;
@@ -4546,7 +5494,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTableSchema.Setfields(AIndex : Integer; AValue : TTableSchemaTypefieldsArray);
+Procedure TTableSchema.Setfields(AIndex : Integer; const AValue : TTableSchemaTypefieldsArray);
begin
If (Ffields=AValue) then exit;
@@ -4572,6 +5520,71 @@ end;
{ --------------------------------------------------------------------
+ TTimePartitioning
+ --------------------------------------------------------------------}
+
+
+Procedure TTimePartitioning.SetexpirationMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexpirationMs=AValue) then exit;
+ FexpirationMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimePartitioning.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TTimePartitioning.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TUserDefinedFunctionResource
+ --------------------------------------------------------------------}
+
+
+Procedure TUserDefinedFunctionResource.SetinlineCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinlineCode=AValue) then exit;
+ FinlineCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserDefinedFunctionResource.SetresourceUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FresourceUri=AValue) then exit;
+ FresourceUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TViewDefinition
--------------------------------------------------------------------}
@@ -4586,6 +5599,29 @@ end;
+Procedure TViewDefinition.SetuserDefinedFunctionResources(AIndex : Integer; const AValue : TViewDefinitionTypeuserDefinedFunctionResourcesArray);
+
+begin
+ If (FuserDefinedFunctionResources=AValue) then exit;
+ FuserDefinedFunctionResources:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TViewDefinition.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'userdefinedfunctionresources' : SetLength(FuserDefinedFunctionResources,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
{ --------------------------------------------------------------------
@@ -4740,6 +5776,21 @@ begin
Result:=TbigqueryAPI;
end;
+Function TJobsResource.Cancel(jobId: string; projectId: string) : TJobCancelResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'project/{projectId}/jobs/{jobId}/cancel';
+ _Methodid = 'bigquery.jobs.cancel';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['jobId',jobId,'projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TJobCancelResponse) as TJobCancelResponse;
+end;
+
Function TJobsResource.Get(jobId: string; projectId: string) : TJob;
Const
@@ -5095,7 +6146,7 @@ end;
Class Function TBigqueryAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160511';
end;
Class Function TBigqueryAPI.APIID : String;
@@ -5149,7 +6200,7 @@ end;
Class Function TBigqueryAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TBigqueryAPI.APIbasePath : string;
@@ -5161,7 +6212,7 @@ end;
Class Function TBigqueryAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/bigquery/v2/';
+ Result:='https://www.googleapis.com/bigquery/v2/';
end;
Class Function TBigqueryAPI.APIProtocol : string;
@@ -5185,19 +6236,21 @@ end;
Class Function TBigqueryAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,6);
+ SetLength(Result,7);
Result[0].Name:='https://www.googleapis.com/auth/bigquery';
Result[0].Description:='View and manage your data in Google BigQuery';
Result[1].Name:='https://www.googleapis.com/auth/bigquery.insertdata';
Result[1].Description:='Insert data into Google BigQuery';
Result[2].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[2].Description:='View and manage your data across Google Cloud Platform services';
- Result[3].Name:='https://www.googleapis.com/auth/devstorage.full_control';
- Result[3].Description:='Manage your data and permissions in Google Cloud Storage';
- Result[4].Name:='https://www.googleapis.com/auth/devstorage.read_only';
- Result[4].Description:='View your data in Google Cloud Storage';
- Result[5].Name:='https://www.googleapis.com/auth/devstorage.read_write';
- Result[5].Description:='Manage your data in Google Cloud Storage';
+ Result[3].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
+ Result[3].Description:='View your data across Google Cloud Platform services';
+ Result[4].Name:='https://www.googleapis.com/auth/devstorage.full_control';
+ Result[4].Description:='Manage your data and permissions in Google Cloud Storage';
+ Result[5].Name:='https://www.googleapis.com/auth/devstorage.read_only';
+ Result[5].Description:='View your data in Google Cloud Storage';
+ Result[6].Name:='https://www.googleapis.com/auth/devstorage.read_write';
+ Result[6].Description:='Manage your data in Google Cloud Storage';
end;
@@ -5210,6 +6263,9 @@ end;
Class Procedure TBigqueryAPI.RegisterAPIResources;
begin
+ TBigtableColumn.RegisterObject;
+ TBigtableColumnFamily.RegisterObject;
+ TBigtableOptions.RegisterObject;
TCsvOptions.RegisterObject;
TDatasetTypeaccessItem.RegisterObject;
TDataset.RegisterObject;
@@ -5217,12 +6273,15 @@ begin
TDatasetList.RegisterObject;
TDatasetReference.RegisterObject;
TErrorProto.RegisterObject;
+ TExplainQueryStage.RegisterObject;
+ TExplainQueryStep.RegisterObject;
TExternalDataConfiguration.RegisterObject;
TGetQueryResultsResponse.RegisterObject;
+ TGoogleSheetsOptions.RegisterObject;
TJob.RegisterObject;
+ TJobCancelResponse.RegisterObject;
TJobConfiguration.RegisterObject;
TJobConfigurationExtract.RegisterObject;
- TJobConfigurationLink.RegisterObject;
TJobConfigurationLoad.RegisterObject;
TJobConfigurationQueryTypetableDefinitions.RegisterObject;
TJobConfigurationQuery.RegisterObject;
@@ -5241,6 +6300,7 @@ begin
TProjectReference.RegisterObject;
TQueryRequest.RegisterObject;
TQueryResponse.RegisterObject;
+ TStreamingbuffer.RegisterObject;
TTable.RegisterObject;
TTableCell.RegisterObject;
TTableDataInsertAllRequestTyperowsItem.RegisterObject;
@@ -5254,6 +6314,8 @@ begin
TTableReference.RegisterObject;
TTableRow.RegisterObject;
TTableSchema.RegisterObject;
+ TTimePartitioning.RegisterObject;
+ TUserDefinedFunctionResource.RegisterObject;
TViewDefinition.RegisterObject;
end;
diff --git a/packages/googleapi/src/googleblogger.pp b/packages/googleapi/src/googleblogger.pp
index 91be25681d..b90fca92c6 100644
--- a/packages/googleapi/src/googleblogger.pp
+++ b/packages/googleapi/src/googleblogger.pp
@@ -1,19 +1,4 @@
unit googleblogger;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:59
{$MODE objfpc}
{$H+}
@@ -119,7 +104,7 @@ type
Protected
//Property setters
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
@@ -138,9 +123,9 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TBlogTypepostsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TBlogTypepostsTypeitemsArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); 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;
@@ -179,14 +164,14 @@ type
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocale(AIndex : Integer; AValue : TBlogTypelocale); virtual;
+ Procedure Setlocale(AIndex : Integer; const AValue : TBlogTypelocale); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpages(AIndex : Integer; AValue : TBlogTypepages); virtual;
- Procedure Setposts(AIndex : Integer; AValue : TBlogTypeposts); virtual;
- Procedure Set_published(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setpages(AIndex : Integer; const AValue : TBlogTypepages); virtual;
+ Procedure Setposts(AIndex : Integer; const AValue : TBlogTypeposts); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -217,8 +202,8 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetblogUserInfos(AIndex : Integer; AValue : TBlogListTypeblogUserInfosArray); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TBlogListTypeitemsArray); virtual;
+ Procedure SetblogUserInfos(AIndex : Integer; const AValue : TBlogListTypeblogUserInfosArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TBlogListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -247,7 +232,7 @@ type
Protected
//Property setters
Procedure SetblogId(AIndex : Integer; const AValue : String); virtual;
- Procedure SethasAdminAccess(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SethasAdminAccess(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetphotosAlbumKey(AIndex : Integer; const AValue : String); virtual;
Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
@@ -274,8 +259,8 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setblog(AIndex : Integer; AValue : TBlog); virtual;
- Procedure Setblog_user_info(AIndex : Integer; AValue : TBlogPerUserInfo); virtual;
+ Procedure Setblog(AIndex : Integer; const AValue : TBlog); virtual;
+ Procedure Setblog_user_info(AIndex : Integer; const AValue : TBlogPerUserInfo); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -315,7 +300,7 @@ type
//Property setters
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TCommentTypeauthorTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TCommentTypeauthorTypeimage); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -394,17 +379,17 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setauthor(AIndex : Integer; AValue : TCommentTypeauthor); virtual;
- Procedure Setblog(AIndex : Integer; AValue : TCommentTypeblog); virtual;
+ Procedure Setauthor(AIndex : Integer; const AValue : TCommentTypeauthor); virtual;
+ Procedure Setblog(AIndex : Integer; const AValue : TCommentTypeblog); virtual;
Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinReplyTo(AIndex : Integer; AValue : TCommentTypeinReplyTo); virtual;
+ Procedure SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyTo); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpost(AIndex : Integer; AValue : TCommentTypepost); virtual;
- Procedure Set_published(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setpost(AIndex : Integer; const AValue : TCommentTypepost); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property author : TCommentTypeauthor Index 0 Read Fauthor Write Setauthor;
@@ -435,7 +420,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TCommentListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCommentListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
@@ -483,7 +468,7 @@ type
//Property setters
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TPageTypeauthorTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TPageTypeauthorTypeimage); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -531,17 +516,17 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setauthor(AIndex : Integer; AValue : TPageTypeauthor); virtual;
- Procedure Setblog(AIndex : Integer; AValue : TPageTypeblog); virtual;
+ Procedure Setauthor(AIndex : Integer; const AValue : TPageTypeauthor); virtual;
+ Procedure Setblog(AIndex : Integer; const AValue : TPageTypeblog); virtual;
Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_published(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -573,7 +558,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TPageListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPageListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -620,7 +605,7 @@ type
Protected
//Property setters
Procedure SetblogId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcounts(AIndex : Integer; AValue : TPageviewsTypecountsArray); virtual;
+ Procedure Setcounts(AIndex : Integer; const AValue : TPageviewsTypecountsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -664,7 +649,7 @@ type
//Property setters
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TPostTypeauthorTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TPostTypeauthorTypeimage); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -719,8 +704,8 @@ type
Fspan : String;
Protected
//Property setters
- Procedure Setlat(AIndex : Integer; AValue : double); virtual;
- Procedure Setlng(AIndex : Integer; AValue : double); virtual;
+ Procedure Setlat(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlng(AIndex : Integer; const AValue : double); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setspan(AIndex : Integer; const AValue : String); virtual;
Public
@@ -743,7 +728,7 @@ type
FtotalItems : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TPostTyperepliesTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPostTyperepliesTypeitemsArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalItems(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -786,24 +771,24 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setauthor(AIndex : Integer; AValue : TPostTypeauthor); virtual;
- Procedure Setblog(AIndex : Integer; AValue : TPostTypeblog); virtual;
+ Procedure Setauthor(AIndex : Integer; const AValue : TPostTypeauthor); virtual;
+ Procedure Setblog(AIndex : Integer; const AValue : TPostTypeblog); virtual;
Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomMetaData(AIndex : Integer; const AValue : String); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimages(AIndex : Integer; AValue : TPostTypeimagesArray); virtual;
+ Procedure Setimages(AIndex : Integer; const AValue : TPostTypeimagesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlabels(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setlocation(AIndex : Integer; AValue : TPostTypelocation); virtual;
- Procedure Set_published(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TPostTypelocation); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetreaderComments(AIndex : Integer; const AValue : String); virtual;
- Procedure Setreplies(AIndex : Integer; AValue : TPostTypereplies); virtual;
+ Procedure Setreplies(AIndex : Integer; const AValue : TPostTypereplies); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure SettitleLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -846,7 +831,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TPostListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPostListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -876,7 +861,7 @@ type
Protected
//Property setters
Procedure SetblogId(AIndex : Integer; const AValue : String); virtual;
- Procedure SethasEditAccess(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SethasEditAccess(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetpostId(AIndex : Integer; const AValue : String); virtual;
Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
@@ -902,8 +887,8 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpost(AIndex : Integer; AValue : TPost); virtual;
- Procedure Setpost_user_info(AIndex : Integer; AValue : TPostPerUserInfo); virtual;
+ Procedure Setpost(AIndex : Integer; const AValue : TPost); virtual;
+ Procedure Setpost_user_info(AIndex : Integer; const AValue : TPostPerUserInfo); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
@@ -923,7 +908,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TPostUserInfosListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPostUserInfosListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -994,12 +979,12 @@ type
Protected
//Property setters
Procedure Setabout(AIndex : Integer; const AValue : String); virtual;
- Procedure Setblogs(AIndex : Integer; AValue : TUserTypeblogs); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setblogs(AIndex : Integer; const AValue : TUserTypeblogs); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocale(AIndex : Integer; AValue : TUserTypelocale); virtual;
+ Procedure Setlocale(AIndex : Integer; const AValue : TUserTypelocale); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1504,7 +1489,7 @@ end;
-Procedure TBlogTypepages.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TBlogTypepages.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -1521,7 +1506,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBlogTypeposts.Setitems(AIndex : Integer; AValue : TBlogTypepostsTypeitemsArray);
+Procedure TBlogTypeposts.Setitems(AIndex : Integer; const AValue : TBlogTypepostsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1541,7 +1526,7 @@ end;
-Procedure TBlogTypeposts.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TBlogTypeposts.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -1611,7 +1596,7 @@ end;
-Procedure TBlog.Setlocale(AIndex : Integer; AValue : TBlogTypelocale);
+Procedure TBlog.Setlocale(AIndex : Integer; const AValue : TBlogTypelocale);
begin
If (Flocale=AValue) then exit;
@@ -1631,7 +1616,7 @@ end;
-Procedure TBlog.Setpages(AIndex : Integer; AValue : TBlogTypepages);
+Procedure TBlog.Setpages(AIndex : Integer; const AValue : TBlogTypepages);
begin
If (Fpages=AValue) then exit;
@@ -1641,7 +1626,7 @@ end;
-Procedure TBlog.Setposts(AIndex : Integer; AValue : TBlogTypeposts);
+Procedure TBlog.Setposts(AIndex : Integer; const AValue : TBlogTypeposts);
begin
If (Fposts=AValue) then exit;
@@ -1651,7 +1636,7 @@ end;
-Procedure TBlog.Set_published(AIndex : Integer; AValue : TDatetime);
+Procedure TBlog.Set_published(AIndex : Integer; const AValue : TDatetime);
begin
If (F_published=AValue) then exit;
@@ -1681,7 +1666,7 @@ end;
-Procedure TBlog.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TBlog.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -1719,7 +1704,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBlogList.SetblogUserInfos(AIndex : Integer; AValue : TBlogListTypeblogUserInfosArray);
+Procedure TBlogList.SetblogUserInfos(AIndex : Integer; const AValue : TBlogListTypeblogUserInfosArray);
begin
If (FblogUserInfos=AValue) then exit;
@@ -1729,7 +1714,7 @@ end;
-Procedure TBlogList.Setitems(AIndex : Integer; AValue : TBlogListTypeitemsArray);
+Procedure TBlogList.Setitems(AIndex : Integer; const AValue : TBlogListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1780,7 +1765,7 @@ end;
-Procedure TBlogPerUserInfo.SethasAdminAccess(AIndex : Integer; AValue : boolean);
+Procedure TBlogPerUserInfo.SethasAdminAccess(AIndex : Integer; const AValue : boolean);
begin
If (FhasAdminAccess=AValue) then exit;
@@ -1837,7 +1822,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBlogUserInfo.Setblog(AIndex : Integer; AValue : TBlog);
+Procedure TBlogUserInfo.Setblog(AIndex : Integer; const AValue : TBlog);
begin
If (Fblog=AValue) then exit;
@@ -1847,7 +1832,7 @@ end;
-Procedure TBlogUserInfo.Setblog_user_info(AIndex : Integer; AValue : TBlogPerUserInfo);
+Procedure TBlogUserInfo.Setblog_user_info(AIndex : Integer; const AValue : TBlogPerUserInfo);
begin
If (Fblog_user_info=AValue) then exit;
@@ -1911,7 +1896,7 @@ end;
-Procedure TCommentTypeauthor.Setimage(AIndex : Integer; AValue : TCommentTypeauthorTypeimage);
+Procedure TCommentTypeauthor.Setimage(AIndex : Integer; const AValue : TCommentTypeauthorTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -1989,7 +1974,7 @@ end;
--------------------------------------------------------------------}
-Procedure TComment.Setauthor(AIndex : Integer; AValue : TCommentTypeauthor);
+Procedure TComment.Setauthor(AIndex : Integer; const AValue : TCommentTypeauthor);
begin
If (Fauthor=AValue) then exit;
@@ -1999,7 +1984,7 @@ end;
-Procedure TComment.Setblog(AIndex : Integer; AValue : TCommentTypeblog);
+Procedure TComment.Setblog(AIndex : Integer; const AValue : TCommentTypeblog);
begin
If (Fblog=AValue) then exit;
@@ -2029,7 +2014,7 @@ end;
-Procedure TComment.SetinReplyTo(AIndex : Integer; AValue : TCommentTypeinReplyTo);
+Procedure TComment.SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyTo);
begin
If (FinReplyTo=AValue) then exit;
@@ -2049,7 +2034,7 @@ end;
-Procedure TComment.Setpost(AIndex : Integer; AValue : TCommentTypepost);
+Procedure TComment.Setpost(AIndex : Integer; const AValue : TCommentTypepost);
begin
If (Fpost=AValue) then exit;
@@ -2059,7 +2044,7 @@ end;
-Procedure TComment.Set_published(AIndex : Integer; AValue : TDatetime);
+Procedure TComment.Set_published(AIndex : Integer; const AValue : TDatetime);
begin
If (F_published=AValue) then exit;
@@ -2089,7 +2074,7 @@ end;
-Procedure TComment.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TComment.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -2127,7 +2112,7 @@ end;
-Procedure TCommentList.Setitems(AIndex : Integer; AValue : TCommentListTypeitemsArray);
+Procedure TCommentList.Setitems(AIndex : Integer; const AValue : TCommentListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2224,7 +2209,7 @@ end;
-Procedure TPageTypeauthor.Setimage(AIndex : Integer; AValue : TPageTypeauthorTypeimage);
+Procedure TPageTypeauthor.Setimage(AIndex : Integer; const AValue : TPageTypeauthorTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -2268,7 +2253,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPage.Setauthor(AIndex : Integer; AValue : TPageTypeauthor);
+Procedure TPage.Setauthor(AIndex : Integer; const AValue : TPageTypeauthor);
begin
If (Fauthor=AValue) then exit;
@@ -2278,7 +2263,7 @@ end;
-Procedure TPage.Setblog(AIndex : Integer; AValue : TPageTypeblog);
+Procedure TPage.Setblog(AIndex : Integer; const AValue : TPageTypeblog);
begin
If (Fblog=AValue) then exit;
@@ -2328,7 +2313,7 @@ end;
-Procedure TPage.Set_published(AIndex : Integer; AValue : TDatetime);
+Procedure TPage.Set_published(AIndex : Integer; const AValue : TDatetime);
begin
If (F_published=AValue) then exit;
@@ -2368,7 +2353,7 @@ end;
-Procedure TPage.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TPage.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -2416,7 +2401,7 @@ end;
-Procedure TPageList.Setitems(AIndex : Integer; AValue : TPageListTypeitemsArray);
+Procedure TPageList.Setitems(AIndex : Integer; const AValue : TPageListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2503,7 +2488,7 @@ end;
-Procedure TPageviews.Setcounts(AIndex : Integer; AValue : TPageviewsTypecountsArray);
+Procedure TPageviews.Setcounts(AIndex : Integer; const AValue : TPageviewsTypecountsArray);
begin
If (Fcounts=AValue) then exit;
@@ -2580,7 +2565,7 @@ end;
-Procedure TPostTypeauthor.Setimage(AIndex : Integer; AValue : TPostTypeauthorTypeimage);
+Procedure TPostTypeauthor.Setimage(AIndex : Integer; const AValue : TPostTypeauthorTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -2641,7 +2626,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPostTypelocation.Setlat(AIndex : Integer; AValue : double);
+Procedure TPostTypelocation.Setlat(AIndex : Integer; const AValue : double);
begin
If (Flat=AValue) then exit;
@@ -2651,7 +2636,7 @@ end;
-Procedure TPostTypelocation.Setlng(AIndex : Integer; AValue : double);
+Procedure TPostTypelocation.Setlng(AIndex : Integer; const AValue : double);
begin
If (Flng=AValue) then exit;
@@ -2688,7 +2673,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPostTypereplies.Setitems(AIndex : Integer; AValue : TPostTyperepliesTypeitemsArray);
+Procedure TPostTypereplies.Setitems(AIndex : Integer; const AValue : TPostTyperepliesTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2738,7 +2723,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPost.Setauthor(AIndex : Integer; AValue : TPostTypeauthor);
+Procedure TPost.Setauthor(AIndex : Integer; const AValue : TPostTypeauthor);
begin
If (Fauthor=AValue) then exit;
@@ -2748,7 +2733,7 @@ end;
-Procedure TPost.Setblog(AIndex : Integer; AValue : TPostTypeblog);
+Procedure TPost.Setblog(AIndex : Integer; const AValue : TPostTypeblog);
begin
If (Fblog=AValue) then exit;
@@ -2798,7 +2783,7 @@ end;
-Procedure TPost.Setimages(AIndex : Integer; AValue : TPostTypeimagesArray);
+Procedure TPost.Setimages(AIndex : Integer; const AValue : TPostTypeimagesArray);
begin
If (Fimages=AValue) then exit;
@@ -2818,7 +2803,7 @@ end;
-Procedure TPost.Setlabels(AIndex : Integer; AValue : TStringArray);
+Procedure TPost.Setlabels(AIndex : Integer; const AValue : TStringArray);
begin
If (Flabels=AValue) then exit;
@@ -2828,7 +2813,7 @@ end;
-Procedure TPost.Setlocation(AIndex : Integer; AValue : TPostTypelocation);
+Procedure TPost.Setlocation(AIndex : Integer; const AValue : TPostTypelocation);
begin
If (Flocation=AValue) then exit;
@@ -2838,7 +2823,7 @@ end;
-Procedure TPost.Set_published(AIndex : Integer; AValue : TDatetime);
+Procedure TPost.Set_published(AIndex : Integer; const AValue : TDatetime);
begin
If (F_published=AValue) then exit;
@@ -2858,7 +2843,7 @@ end;
-Procedure TPost.Setreplies(AIndex : Integer; AValue : TPostTypereplies);
+Procedure TPost.Setreplies(AIndex : Integer; const AValue : TPostTypereplies);
begin
If (Freplies=AValue) then exit;
@@ -2908,7 +2893,7 @@ end;
-Procedure TPost.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TPost.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -2970,7 +2955,7 @@ end;
-Procedure TPostList.Setitems(AIndex : Integer; AValue : TPostListTypeitemsArray);
+Procedure TPostList.Setitems(AIndex : Integer; const AValue : TPostListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3030,7 +3015,7 @@ end;
-Procedure TPostPerUserInfo.SethasEditAccess(AIndex : Integer; AValue : boolean);
+Procedure TPostPerUserInfo.SethasEditAccess(AIndex : Integer; const AValue : boolean);
begin
If (FhasEditAccess=AValue) then exit;
@@ -3087,7 +3072,7 @@ end;
-Procedure TPostUserInfo.Setpost(AIndex : Integer; AValue : TPost);
+Procedure TPostUserInfo.Setpost(AIndex : Integer; const AValue : TPost);
begin
If (Fpost=AValue) then exit;
@@ -3097,7 +3082,7 @@ end;
-Procedure TPostUserInfo.Setpost_user_info(AIndex : Integer; AValue : TPostPerUserInfo);
+Procedure TPostUserInfo.Setpost_user_info(AIndex : Integer; const AValue : TPostPerUserInfo);
begin
If (Fpost_user_info=AValue) then exit;
@@ -3114,7 +3099,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPostUserInfosList.Setitems(AIndex : Integer; AValue : TPostUserInfosListTypeitemsArray);
+Procedure TPostUserInfosList.Setitems(AIndex : Integer; const AValue : TPostUserInfosListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3228,7 +3213,7 @@ end;
-Procedure TUser.Setblogs(AIndex : Integer; AValue : TUserTypeblogs);
+Procedure TUser.Setblogs(AIndex : Integer; const AValue : TUserTypeblogs);
begin
If (Fblogs=AValue) then exit;
@@ -3238,7 +3223,7 @@ end;
-Procedure TUser.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TUser.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -3278,7 +3263,7 @@ end;
-Procedure TUser.Setlocale(AIndex : Integer; AValue : TUserTypelocale);
+Procedure TUser.Setlocale(AIndex : Integer; const AValue : TUserTypelocale);
begin
If (Flocale=AValue) then exit;
@@ -4358,7 +4343,7 @@ end;
Class Function TBloggerAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TBloggerAPI.APIbasePath : string;
@@ -4370,7 +4355,7 @@ end;
Class Function TBloggerAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/blogger/v3/';
+ Result:='https://www.googleapis.com/blogger/v3/';
end;
Class Function TBloggerAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlebooks.pp b/packages/googleapi/src/googlebooks.pp
index 64a177f161..3b16541019 100644
--- a/packages/googleapi/src/googlebooks.pp
+++ b/packages/googleapi/src/googlebooks.pp
@@ -1,19 +1,4 @@
unit googlebooks;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:59
{$MODE objfpc}
{$H+}
@@ -37,22 +22,27 @@ type
TCategory = Class;
TConcurrentAccessRestriction = Class;
TDictlayerdata = Class;
+ TDiscoveryclusters = Class;
TDownloadAccessRestriction = Class;
TDownloadAccesses = Class;
TGeolayerdata = Class;
TLayersummaries = Class;
TLayersummary = Class;
TMetadata = Class;
+ TNotification = Class;
TOffers = Class;
TReadingPosition = Class;
TRequestAccess = Class;
TReview = Class;
+ TSeries = Class;
+ TSeriesmembership = Class;
TUsersettings = Class;
TVolume = Class;
TVolume2 = Class;
TVolumeannotation = Class;
TVolumeannotations = Class;
TVolumes = Class;
+ TVolumeseriesinfo = Class;
TAnnotationArray = Array of TAnnotation;
TAnnotationdataArray = Array of TAnnotationdata;
TAnnotationsArray = Array of TAnnotations;
@@ -66,22 +56,27 @@ type
TCategoryArray = Array of TCategory;
TConcurrentAccessRestrictionArray = Array of TConcurrentAccessRestriction;
TDictlayerdataArray = Array of TDictlayerdata;
+ TDiscoveryclustersArray = Array of TDiscoveryclusters;
TDownloadAccessRestrictionArray = Array of TDownloadAccessRestriction;
TDownloadAccessesArray = Array of TDownloadAccesses;
TGeolayerdataArray = Array of TGeolayerdata;
TLayersummariesArray = Array of TLayersummaries;
TLayersummaryArray = Array of TLayersummary;
TMetadataArray = Array of TMetadata;
+ TNotificationArray = Array of TNotification;
TOffersArray = Array of TOffers;
TReadingPositionArray = Array of TReadingPosition;
TRequestAccessArray = Array of TRequestAccess;
TReviewArray = Array of TReview;
+ TSeriesArray = Array of TSeries;
+ TSeriesmembershipArray = Array of TSeriesmembership;
TUsersettingsArray = Array of TUsersettings;
TVolumeArray = Array of TVolume;
TVolume2Array = Array of TVolume2;
TVolumeannotationArray = Array of TVolumeannotation;
TVolumeannotationsArray = Array of TVolumeannotations;
TVolumesArray = Array of TVolumes;
+ TVolumeseriesinfoArray = Array of TVolumeseriesinfo;
//Anonymous types, using auto-generated names
TAnnotationTypeclientVersionRanges = Class;
TAnnotationTypecurrentVersionRanges = Class;
@@ -105,6 +100,8 @@ type
TDictlayerdataTypedictTypewordsItemTypesource = Class;
TDictlayerdataTypedictTypewordsItem = Class;
TDictlayerdataTypedict = Class;
+ TDiscoveryclustersTypeclustersItemTypebanner_with_content_container = Class;
+ TDiscoveryclustersTypeclustersItem = Class;
TGeolayerdataTypecommon = Class;
TGeolayerdataTypegeoTypeboundaryItemItem = Class;
TGeolayerdataTypegeoTypeviewportTypehi = Class;
@@ -116,7 +113,10 @@ type
TOffersTypeitemsItem = Class;
TReviewTypeauthor = Class;
TReviewTypesource = Class;
+ TSeriesTypeseriesItem = Class;
TUsersettingsTypenotesExport = Class;
+ TUsersettingsTypenotificationTypemoreFromAuthors = Class;
+ TUsersettingsTypenotification = Class;
TVolumeTypeaccessInfoTypeepub = Class;
TVolumeTypeaccessInfoTypepdf = Class;
TVolumeTypeaccessInfo = Class;
@@ -132,6 +132,7 @@ type
TVolumeTypesaleInfo = Class;
TVolumeTypesearchInfo = Class;
TVolumeTypeuserInfoTypecopy = Class;
+ TVolumeTypeuserInfoTypefamilySharing = Class;
TVolumeTypeuserInfoTyperentalPeriod = Class;
TVolumeTypeuserInfoTypeuserUploadedVolumeInfo = Class;
TVolumeTypeuserInfo = Class;
@@ -140,6 +141,8 @@ type
TVolumeTypevolumeInfoTypeindustryIdentifiersItem = Class;
TVolumeTypevolumeInfo = Class;
TVolumeannotationTypecontentRanges = Class;
+ TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem = Class;
+ TVolumeseriesinfoTypevolumeSeriesItem = Class;
TAnnotationsTypeitemsArray = Array of TAnnotation;
TAnnotationsSummaryTypelayersArray = Array of TAnnotationsSummaryTypelayersItem;
TAnnotationsdataTypeitemsArray = Array of TAnnotationdata;
@@ -153,6 +156,8 @@ type
TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsArray = Array of TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem;
TDictlayerdataTypedictTypewordsItemTypesensesArray = Array of TDictlayerdataTypedictTypewordsItemTypesensesItem;
TDictlayerdataTypedictTypewordsArray = Array of TDictlayerdataTypedictTypewordsItem;
+ TDiscoveryclustersTypeclustersItemTypevolumesArray = Array of TVolume;
+ TDiscoveryclustersTypeclustersArray = Array of TDiscoveryclustersTypeclustersItem;
TDownloadAccessesTypedownloadAccessListArray = Array of TDownloadAccessRestriction;
TGeolayerdataTypegeoTypeboundaryItemArray = Array of TGeolayerdataTypegeoTypeboundaryItemItem;
TGeolayerdataTypegeoTypeboundaryArray = Array of TGeolayerdataTypegeoTypeboundaryItemArray;
@@ -160,12 +165,16 @@ type
TMetadataTypeitemsArray = Array of TMetadataTypeitemsItem;
TOffersTypeitemsItemTypeitemsArray = Array of TOffersTypeitemsItemTypeitemsItem;
TOffersTypeitemsArray = Array of TOffersTypeitemsItem;
+ TSeriesTypeseriesArray = Array of TSeriesTypeseriesItem;
+ TSeriesmembershipTypememberArray = Array of TVolume;
TVolumeTypelayerInfoTypelayersArray = Array of TVolumeTypelayerInfoTypelayersItem;
TVolumeTypesaleInfoTypeoffersArray = Array of TVolumeTypesaleInfoTypeoffersItem;
TVolumeTypevolumeInfoTypeindustryIdentifiersArray = Array of TVolumeTypevolumeInfoTypeindustryIdentifiersItem;
TVolume2TypeitemsArray = Array of TVolume;
TVolumeannotationsTypeitemsArray = Array of TVolumeannotation;
TVolumesTypeitemsArray = Array of TVolume;
+ TVolumeseriesinfoTypevolumeSeriesItemTypeissueArray = Array of TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem;
+ TVolumeseriesinfoTypevolumeSeriesArray = Array of TVolumeseriesinfoTypevolumeSeriesItem;
{ --------------------------------------------------------------------
TAnnotationTypeclientVersionRanges
@@ -180,11 +189,11 @@ type
FimageCfiRange : TBooksAnnotationsRange;
Protected
//Property setters
- Procedure SetcfiRange(AIndex : Integer; AValue : TBooksAnnotationsRange); virtual;
+ Procedure SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual;
Procedure SetcontentVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetgbImageRange(AIndex : Integer; AValue : TBooksAnnotationsRange); virtual;
- Procedure SetgbTextRange(AIndex : Integer; AValue : TBooksAnnotationsRange); virtual;
- Procedure SetimageCfiRange(AIndex : Integer; AValue : TBooksAnnotationsRange); virtual;
+ Procedure SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual;
+ Procedure SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual;
+ Procedure SetimageCfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual;
Public
Published
Property cfiRange : TBooksAnnotationsRange Index 0 Read FcfiRange Write SetcfiRange;
@@ -208,11 +217,11 @@ type
FimageCfiRange : TBooksAnnotationsRange;
Protected
//Property setters
- Procedure SetcfiRange(AIndex : Integer; AValue : TBooksAnnotationsRange); virtual;
+ Procedure SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual;
Procedure SetcontentVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetgbImageRange(AIndex : Integer; AValue : TBooksAnnotationsRange); virtual;
- Procedure SetgbTextRange(AIndex : Integer; AValue : TBooksAnnotationsRange); virtual;
- Procedure SetimageCfiRange(AIndex : Integer; AValue : TBooksAnnotationsRange); virtual;
+ Procedure SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual;
+ Procedure SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual;
+ Procedure SetimageCfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual;
Public
Published
Property cfiRange : TBooksAnnotationsRange Index 0 Read FcfiRange Write SetcfiRange;
@@ -234,9 +243,9 @@ type
FremainingCharacterCount : integer;
Protected
//Property setters
- Procedure SetallowedCharacterCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetallowedCharacterCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetlimitType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetremainingCharacterCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetremainingCharacterCount(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property allowedCharacterCount : integer Index 0 Read FallowedCharacterCount Write SetallowedCharacterCount;
@@ -272,20 +281,20 @@ type
//Property setters
Procedure SetafterSelectedText(AIndex : Integer; const AValue : String); virtual;
Procedure SetbeforeSelectedText(AIndex : Integer; const AValue : String); virtual;
- Procedure SetclientVersionRanges(AIndex : Integer; AValue : TAnnotationTypeclientVersionRanges); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetcurrentVersionRanges(AIndex : Integer; AValue : TAnnotationTypecurrentVersionRanges); virtual;
+ Procedure SetclientVersionRanges(AIndex : Integer; const AValue : TAnnotationTypeclientVersionRanges); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetcurrentVersionRanges(AIndex : Integer; const AValue : TAnnotationTypecurrentVersionRanges); virtual;
Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual;
Procedure SethighlightStyle(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlayerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlayerSummary(AIndex : Integer; AValue : TAnnotationTypelayerSummary); virtual;
- Procedure SetpageIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetlayerSummary(AIndex : Integer; const AValue : TAnnotationTypelayerSummary); virtual;
+ Procedure SetpageIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetselectedText(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -331,13 +340,13 @@ type
Protected
//Property setters
Procedure SetannotationType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TJSONSchema); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TJSONSchema); virtual;
Procedure Setencoded_data(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlayerId(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -365,10 +374,10 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAnnotationsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAnnotationsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); 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;
@@ -395,11 +404,11 @@ type
Fupdated : TDatetime;
Protected
//Property setters
- Procedure SetallowedCharacterCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetallowedCharacterCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetlayerId(AIndex : Integer; const AValue : String); virtual;
Procedure SetlimitType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetremainingCharacterCount(AIndex : Integer; AValue : integer); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetremainingCharacterCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property allowedCharacterCount : integer Index 0 Read FallowedCharacterCount Write SetallowedCharacterCount;
@@ -421,7 +430,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlayers(AIndex : Integer; AValue : TAnnotationsSummaryTypelayersArray); virtual;
+ Procedure Setlayers(AIndex : Integer; const AValue : TAnnotationsSummaryTypelayersArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -445,10 +454,10 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAnnotationsdataTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAnnotationsdataTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); 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;
@@ -547,15 +556,15 @@ type
Protected
//Property setters
Procedure Setaccess(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetvolumeCount(AIndex : Integer; AValue : integer); virtual;
- Procedure SetvolumesLastUpdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetvolumeCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetvolumesLastUpdated(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property access : String Index 0 Read Faccess Write Setaccess;
@@ -581,7 +590,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TBookshelvesTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TBookshelvesTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -626,7 +635,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TCategoryTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCategoryTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -658,16 +667,16 @@ type
FvolumeId : String;
Protected
//Property setters
- Procedure SetdeviceAllowed(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdeviceAllowed(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxConcurrentDevices(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmaxConcurrentDevices(AIndex : Integer; const AValue : integer); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
Procedure Setnonce(AIndex : Integer; const AValue : String); virtual;
Procedure SetreasonCode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrestricted(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setrestricted(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setsignature(AIndex : Integer; const AValue : String); virtual;
Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeWindowSeconds(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettimeWindowSeconds(AIndex : Integer; const AValue : integer); virtual;
Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -749,7 +758,7 @@ type
Ftext : String;
Protected
//Property setters
- Procedure Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource); virtual;
Procedure Settext(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -787,7 +796,7 @@ type
Ftext : String;
Protected
//Property setters
- Procedure Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource); virtual;
Procedure Settext(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -845,7 +854,7 @@ type
Ftext : String;
Protected
//Property setters
- Procedure Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource); virtual;
Procedure Settext(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -865,7 +874,7 @@ type
Protected
//Property setters
Procedure Setdefinition(AIndex : Integer; const AValue : String); virtual;
- Procedure Setexamples(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesArray); virtual;
+ Procedure Setexamples(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -925,7 +934,7 @@ type
Ftext : String;
Protected
//Property setters
- Procedure Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource); virtual;
Procedure Settext(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -950,14 +959,14 @@ type
Fsynonyms : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsArray;
Protected
//Property setters
- Procedure Setconjugations(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsArray); virtual;
- Procedure Setdefinitions(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsArray); virtual;
+ Procedure Setconjugations(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsArray); virtual;
+ Procedure Setdefinitions(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsArray); virtual;
Procedure SetpartOfSpeech(AIndex : Integer; const AValue : String); virtual;
Procedure Setpronunciation(AIndex : Integer; const AValue : String); virtual;
Procedure SetpronunciationUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource); virtual;
Procedure Setsyllabification(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsynonyms(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsArray); virtual;
+ Procedure Setsynonyms(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1006,10 +1015,10 @@ type
Fsource : TDictlayerdataTypedictTypewordsItemTypesource;
Protected
//Property setters
- Procedure Setderivatives(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypederivativesArray); virtual;
- Procedure Setexamples(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesArray); virtual;
- Procedure Setsenses(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesArray); virtual;
- Procedure Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesource); virtual;
+ Procedure Setderivatives(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypederivativesArray); virtual;
+ Procedure Setexamples(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesArray); virtual;
+ Procedure Setsenses(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesArray); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesource); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1033,8 +1042,8 @@ type
Fwords : TDictlayerdataTypedictTypewordsArray;
Protected
//Property setters
- Procedure Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypesource); virtual;
- Procedure Setwords(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsArray); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypesource); virtual;
+ Procedure Setwords(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1057,8 +1066,8 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setcommon(AIndex : Integer; AValue : TDictlayerdataTypecommon); virtual;
- Procedure Setdict(AIndex : Integer; AValue : TDictlayerdataTypedict); virtual;
+ Procedure Setcommon(AIndex : Integer; const AValue : TDictlayerdataTypecommon); virtual;
+ Procedure Setdict(AIndex : Integer; const AValue : TDictlayerdataTypedict); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1069,6 +1078,98 @@ type
TDictlayerdataClass = Class of TDictlayerdata;
{ --------------------------------------------------------------------
+ TDiscoveryclustersTypeclustersItemTypebanner_with_content_container
+ --------------------------------------------------------------------}
+
+ TDiscoveryclustersTypeclustersItemTypebanner_with_content_container = Class(TGoogleBaseObject)
+ Private
+ FfillColorArgb : String;
+ FimageUrl : String;
+ FmaskColorArgb : String;
+ FmoreButtonText : String;
+ FmoreButtonUrl : String;
+ FtextColorArgb : String;
+ Protected
+ //Property setters
+ Procedure SetfillColorArgb(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetimageUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmaskColorArgb(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmoreButtonText(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmoreButtonUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettextColorArgb(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property fillColorArgb : String Index 0 Read FfillColorArgb Write SetfillColorArgb;
+ Property imageUrl : String Index 8 Read FimageUrl Write SetimageUrl;
+ Property maskColorArgb : String Index 16 Read FmaskColorArgb Write SetmaskColorArgb;
+ Property moreButtonText : String Index 24 Read FmoreButtonText Write SetmoreButtonText;
+ Property moreButtonUrl : String Index 32 Read FmoreButtonUrl Write SetmoreButtonUrl;
+ Property textColorArgb : String Index 40 Read FtextColorArgb Write SettextColorArgb;
+ end;
+ TDiscoveryclustersTypeclustersItemTypebanner_with_content_containerClass = Class of TDiscoveryclustersTypeclustersItemTypebanner_with_content_container;
+
+ { --------------------------------------------------------------------
+ TDiscoveryclustersTypeclustersItem
+ --------------------------------------------------------------------}
+
+ TDiscoveryclustersTypeclustersItem = Class(TGoogleBaseObject)
+ Private
+ Fbanner_with_content_container : TDiscoveryclustersTypeclustersItemTypebanner_with_content_container;
+ FsubTitle : String;
+ Ftitle : String;
+ FtotalVolumes : integer;
+ Fuid : String;
+ Fvolumes : TDiscoveryclustersTypeclustersItemTypevolumesArray;
+ Protected
+ //Property setters
+ Procedure Setbanner_with_content_container(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersItemTypebanner_with_content_container); virtual;
+ Procedure SetsubTitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettotalVolumes(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setuid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvolumes(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersItemTypevolumesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property banner_with_content_container : TDiscoveryclustersTypeclustersItemTypebanner_with_content_container Index 0 Read Fbanner_with_content_container Write Setbanner_with_content_container;
+ Property subTitle : String Index 8 Read FsubTitle Write SetsubTitle;
+ Property title : String Index 16 Read Ftitle Write Settitle;
+ Property totalVolumes : integer Index 24 Read FtotalVolumes Write SettotalVolumes;
+ Property uid : String Index 32 Read Fuid Write Setuid;
+ Property volumes : TDiscoveryclustersTypeclustersItemTypevolumesArray Index 40 Read Fvolumes Write Setvolumes;
+ end;
+ TDiscoveryclustersTypeclustersItemClass = Class of TDiscoveryclustersTypeclustersItem;
+
+ { --------------------------------------------------------------------
+ TDiscoveryclusters
+ --------------------------------------------------------------------}
+
+ TDiscoveryclusters = Class(TGoogleBaseObject)
+ Private
+ Fclusters : TDiscoveryclustersTypeclustersArray;
+ Fkind : String;
+ FtotalClusters : integer;
+ Protected
+ //Property setters
+ Procedure Setclusters(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettotalClusters(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 clusters : TDiscoveryclustersTypeclustersArray Index 0 Read Fclusters Write Setclusters;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property totalClusters : integer Index 16 Read FtotalClusters Write SettotalClusters;
+ end;
+ TDiscoveryclustersClass = Class of TDiscoveryclusters;
+
+ { --------------------------------------------------------------------
TDownloadAccessRestriction
--------------------------------------------------------------------}
@@ -1088,15 +1189,15 @@ type
FvolumeId : String;
Protected
//Property setters
- Procedure SetdeviceAllowed(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetdownloadsAcquired(AIndex : Integer; AValue : integer); virtual;
- Procedure SetjustAcquired(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdeviceAllowed(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdownloadsAcquired(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetjustAcquired(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxDownloadDevices(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmaxDownloadDevices(AIndex : Integer; const AValue : integer); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
Procedure Setnonce(AIndex : Integer; const AValue : String); virtual;
Procedure SetreasonCode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrestricted(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setrestricted(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setsignature(AIndex : Integer; const AValue : String); virtual;
Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual;
@@ -1127,7 +1228,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetdownloadAccessList(AIndex : Integer; AValue : TDownloadAccessesTypedownloadAccessListArray); virtual;
+ Procedure SetdownloadAccessList(AIndex : Integer; const AValue : TDownloadAccessesTypedownloadAccessListArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1178,8 +1279,8 @@ type
Flongitude : integer;
Protected
//Property setters
- Procedure Setlatitude(AIndex : Integer; AValue : integer); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setlatitude(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setlongitude(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property latitude : integer Index 0 Read Flatitude Write Setlatitude;
@@ -1197,8 +1298,8 @@ type
Flongitude : double;
Protected
//Property setters
- Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
+ 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;
@@ -1216,8 +1317,8 @@ type
Flongitude : double;
Protected
//Property setters
- Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
+ 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;
@@ -1235,8 +1336,8 @@ type
Flo : TGeolayerdataTypegeoTypeviewportTypelo;
Protected
//Property setters
- Procedure Sethi(AIndex : Integer; AValue : TGeolayerdataTypegeoTypeviewportTypehi); virtual;
- Procedure Setlo(AIndex : Integer; AValue : TGeolayerdataTypegeoTypeviewportTypelo); virtual;
+ Procedure Sethi(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewportTypehi); virtual;
+ Procedure Setlo(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewportTypelo); virtual;
Public
Published
Property hi : TGeolayerdataTypegeoTypeviewportTypehi Index 0 Read Fhi Write Sethi;
@@ -1260,14 +1361,14 @@ type
Fzoom : integer;
Protected
//Property setters
- Procedure Setboundary(AIndex : Integer; AValue : TGeolayerdataTypegeoTypeboundaryArray); virtual;
+ Procedure Setboundary(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeboundaryArray); virtual;
Procedure SetcachePolicy(AIndex : Integer; const AValue : String); virtual;
Procedure SetcountryCode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
+ Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual;
Procedure SetmapType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setviewport(AIndex : Integer; AValue : TGeolayerdataTypegeoTypeviewport); virtual;
- Procedure Setzoom(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setviewport(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewport); virtual;
+ Procedure Setzoom(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1296,8 +1397,8 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setcommon(AIndex : Integer; AValue : TGeolayerdataTypecommon); virtual;
- Procedure Setgeo(AIndex : Integer; AValue : TGeolayerdataTypegeo); virtual;
+ Procedure Setcommon(AIndex : Integer; const AValue : TGeolayerdataTypecommon); virtual;
+ Procedure Setgeo(AIndex : Integer; const AValue : TGeolayerdataTypegeo); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1318,9 +1419,9 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TLayersummariesTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TLayersummariesTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); 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;
@@ -1354,17 +1455,17 @@ type
FvolumeId : String;
Protected
//Property setters
- Procedure SetannotationCount(AIndex : Integer; AValue : integer); virtual;
- Procedure SetannotationTypes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetannotationCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetannotationTypes(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetannotationsDataLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetannotationsLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdataCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetdataCount(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlayerId(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetvolumeAnnotationsVersion(AIndex : Integer; const AValue : String); virtual;
Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1427,7 +1528,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TMetadataTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1441,6 +1542,62 @@ type
TMetadataClass = Class of TMetadata;
{ --------------------------------------------------------------------
+ TNotification
+ --------------------------------------------------------------------}
+
+ TNotification = Class(TGoogleBaseObject)
+ Private
+ Fbody : String;
+ FcrmExperimentIds : TStringArray;
+ Fdoc_id : String;
+ Fdoc_type : String;
+ Fdont_show_notification : boolean;
+ FiconUrl : String;
+ Fkind : String;
+ Fnotification_type : String;
+ Fpcampaign_id : String;
+ Freason : String;
+ Fshow_notification_settings_action : boolean;
+ FtargetUrl : String;
+ Ftitle : String;
+ Protected
+ //Property setters
+ Procedure Setbody(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcrmExperimentIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setdoc_id(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdoc_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdont_show_notification(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnotification_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpcampaign_id(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setshow_notification_settings_action(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SettargetUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(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 body : String Index 0 Read Fbody Write Setbody;
+ Property crmExperimentIds : TStringArray Index 8 Read FcrmExperimentIds Write SetcrmExperimentIds;
+ Property doc_id : String Index 16 Read Fdoc_id Write Setdoc_id;
+ Property doc_type : String Index 24 Read Fdoc_type Write Setdoc_type;
+ Property dont_show_notification : boolean Index 32 Read Fdont_show_notification Write Setdont_show_notification;
+ Property iconUrl : String Index 40 Read FiconUrl Write SeticonUrl;
+ Property kind : String Index 48 Read Fkind Write Setkind;
+ Property notification_type : String Index 56 Read Fnotification_type Write Setnotification_type;
+ Property pcampaign_id : String Index 64 Read Fpcampaign_id Write Setpcampaign_id;
+ Property reason : String Index 72 Read Freason Write Setreason;
+ Property show_notification_settings_action : boolean Index 80 Read Fshow_notification_settings_action Write Setshow_notification_settings_action;
+ Property targetUrl : String Index 88 Read FtargetUrl Write SettargetUrl;
+ Property title : String Index 96 Read Ftitle Write Settitle;
+ end;
+ TNotificationClass = Class of TNotification;
+
+ { --------------------------------------------------------------------
TOffersTypeitemsItemTypeitemsItem
--------------------------------------------------------------------}
@@ -1486,7 +1643,7 @@ type
Procedure SetartUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetgservicesKey(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TOffersTypeitemsItemTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TOffersTypeitemsItemTypeitemsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1510,7 +1667,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TOffersTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TOffersTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1543,7 +1700,7 @@ type
Procedure SetgbTextPosition(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetpdfPosition(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1568,8 +1725,8 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetconcurrentAccess(AIndex : Integer; AValue : TConcurrentAccessRestriction); virtual;
- Procedure SetdownloadAccess(AIndex : Integer; AValue : TDownloadAccessRestriction); virtual;
+ Procedure SetconcurrentAccess(AIndex : Integer; const AValue : TConcurrentAccessRestriction); virtual;
+ Procedure SetdownloadAccess(AIndex : Integer; const AValue : TDownloadAccessRestriction); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1636,13 +1793,13 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setauthor(AIndex : Integer; AValue : TReviewTypeauthor); virtual;
+ Procedure Setauthor(AIndex : Integer; const AValue : TReviewTypeauthor); virtual;
Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
Procedure Setdate(AIndex : Integer; const AValue : String); virtual;
Procedure SetfullTextUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setrating(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsource(AIndex : Integer; AValue : TReviewTypesource); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TReviewTypesource); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual;
@@ -1662,6 +1819,83 @@ type
TReviewClass = Class of TReview;
{ --------------------------------------------------------------------
+ TSeriesTypeseriesItem
+ --------------------------------------------------------------------}
+
+ TSeriesTypeseriesItem = Class(TGoogleBaseObject)
+ Private
+ FbannerImageUrl : String;
+ FimageUrl : String;
+ FseriesId : String;
+ FseriesType : String;
+ Ftitle : String;
+ Protected
+ //Property setters
+ Procedure SetbannerImageUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetimageUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseriesId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseriesType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property bannerImageUrl : String Index 0 Read FbannerImageUrl Write SetbannerImageUrl;
+ Property imageUrl : String Index 8 Read FimageUrl Write SetimageUrl;
+ Property seriesId : String Index 16 Read FseriesId Write SetseriesId;
+ Property seriesType : String Index 24 Read FseriesType Write SetseriesType;
+ Property title : String Index 32 Read Ftitle Write Settitle;
+ end;
+ TSeriesTypeseriesItemClass = Class of TSeriesTypeseriesItem;
+
+ { --------------------------------------------------------------------
+ TSeries
+ --------------------------------------------------------------------}
+
+ TSeries = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ Fseries : TSeriesTypeseriesArray;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setseries(AIndex : Integer; const AValue : TSeriesTypeseriesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property series : TSeriesTypeseriesArray Index 8 Read Fseries Write Setseries;
+ end;
+ TSeriesClass = Class of TSeries;
+
+ { --------------------------------------------------------------------
+ TSeriesmembership
+ --------------------------------------------------------------------}
+
+ TSeriesmembership = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ Fmember : TSeriesmembershipTypememberArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmember(AIndex : Integer; const AValue : TSeriesmembershipTypememberArray); 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 kind : String Index 0 Read Fkind Write Setkind;
+ Property member : TSeriesmembershipTypememberArray Index 8 Read Fmember Write Setmember;
+ Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TSeriesmembershipClass = Class of TSeriesmembership;
+
+ { --------------------------------------------------------------------
TUsersettingsTypenotesExport
--------------------------------------------------------------------}
@@ -1672,7 +1906,7 @@ type
Protected
//Property setters
Procedure SetfolderName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisEnabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisEnabled(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property folderName : String Index 0 Read FfolderName Write SetfolderName;
@@ -1681,6 +1915,38 @@ type
TUsersettingsTypenotesExportClass = Class of TUsersettingsTypenotesExport;
{ --------------------------------------------------------------------
+ TUsersettingsTypenotificationTypemoreFromAuthors
+ --------------------------------------------------------------------}
+
+ TUsersettingsTypenotificationTypemoreFromAuthors = Class(TGoogleBaseObject)
+ Private
+ Fopted_state : String;
+ Protected
+ //Property setters
+ Procedure Setopted_state(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property opted_state : String Index 0 Read Fopted_state Write Setopted_state;
+ end;
+ TUsersettingsTypenotificationTypemoreFromAuthorsClass = Class of TUsersettingsTypenotificationTypemoreFromAuthors;
+
+ { --------------------------------------------------------------------
+ TUsersettingsTypenotification
+ --------------------------------------------------------------------}
+
+ TUsersettingsTypenotification = Class(TGoogleBaseObject)
+ Private
+ FmoreFromAuthors : TUsersettingsTypenotificationTypemoreFromAuthors;
+ Protected
+ //Property setters
+ Procedure SetmoreFromAuthors(AIndex : Integer; const AValue : TUsersettingsTypenotificationTypemoreFromAuthors); virtual;
+ Public
+ Published
+ Property moreFromAuthors : TUsersettingsTypenotificationTypemoreFromAuthors Index 0 Read FmoreFromAuthors Write SetmoreFromAuthors;
+ end;
+ TUsersettingsTypenotificationClass = Class of TUsersettingsTypenotification;
+
+ { --------------------------------------------------------------------
TUsersettings
--------------------------------------------------------------------}
@@ -1688,14 +1954,17 @@ type
Private
Fkind : String;
FnotesExport : TUsersettingsTypenotesExport;
+ Fnotification : TUsersettingsTypenotification;
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnotesExport(AIndex : Integer; AValue : TUsersettingsTypenotesExport); virtual;
+ Procedure SetnotesExport(AIndex : Integer; const AValue : TUsersettingsTypenotesExport); virtual;
+ Procedure Setnotification(AIndex : Integer; const AValue : TUsersettingsTypenotification); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
Property notesExport : TUsersettingsTypenotesExport Index 8 Read FnotesExport Write SetnotesExport;
+ Property notification : TUsersettingsTypenotification Index 16 Read Fnotification Write Setnotification;
end;
TUsersettingsClass = Class of TUsersettings;
@@ -1712,7 +1981,7 @@ type
//Property setters
Procedure SetacsTokenLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetdownloadLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisAvailable(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisAvailable(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property acsTokenLink : String Index 0 Read FacsTokenLink Write SetacsTokenLink;
@@ -1734,7 +2003,7 @@ type
//Property setters
Procedure SetacsTokenLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetdownloadLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisAvailable(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisAvailable(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property acsTokenLink : String Index 0 Read FacsTokenLink Write SetacsTokenLink;
@@ -1767,14 +2036,14 @@ type
//Property setters
Procedure SetaccessViewStatus(AIndex : Integer; const AValue : String); virtual;
Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdownloadAccess(AIndex : Integer; AValue : TDownloadAccessRestriction); virtual;
+ Procedure SetdownloadAccess(AIndex : Integer; const AValue : TDownloadAccessRestriction); virtual;
Procedure SetdriveImportedContentLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setembeddable(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setepub(AIndex : Integer; AValue : TVolumeTypeaccessInfoTypeepub); virtual;
- Procedure SetexplicitOfflineLicenseManagement(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setpdf(AIndex : Integer; AValue : TVolumeTypeaccessInfoTypepdf); virtual;
- Procedure SetpublicDomain(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetquoteSharingAllowed(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setembeddable(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setepub(AIndex : Integer; const AValue : TVolumeTypeaccessInfoTypeepub); virtual;
+ Procedure SetexplicitOfflineLicenseManagement(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setpdf(AIndex : Integer; const AValue : TVolumeTypeaccessInfoTypepdf); virtual;
+ Procedure SetpublicDomain(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetquoteSharingAllowed(AIndex : Integer; const AValue : boolean); virtual;
Procedure SettextToSpeechPermission(AIndex : Integer; const AValue : String); virtual;
Procedure SetviewOrderUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setviewability(AIndex : Integer; const AValue : String); virtual;
@@ -1826,7 +2095,7 @@ type
Flayers : TVolumeTypelayerInfoTypelayersArray;
Protected
//Property setters
- Procedure Setlayers(AIndex : Integer; AValue : TVolumeTypelayerInfoTypelayersArray); virtual;
+ Procedure Setlayers(AIndex : Integer; const AValue : TVolumeTypelayerInfoTypelayersArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1863,7 +2132,7 @@ type
FcurrencyCode : String;
Protected
//Property setters
- Procedure Setamount(AIndex : Integer; AValue : double); virtual;
+ Procedure Setamount(AIndex : Integer; const AValue : double); virtual;
Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1882,7 +2151,7 @@ type
FcurrencyCode : String;
Protected
//Property setters
- Procedure SetamountInMicros(AIndex : Integer; AValue : double); virtual;
+ Procedure SetamountInMicros(AIndex : Integer; const AValue : double); virtual;
Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1902,7 +2171,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setcount(AIndex : Integer; AValue : double); virtual;
+ Procedure Setcount(AIndex : Integer; const AValue : double); virtual;
Procedure Set_unit(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1921,7 +2190,7 @@ type
FcurrencyCode : String;
Protected
//Property setters
- Procedure SetamountInMicros(AIndex : Integer; AValue : double); virtual;
+ Procedure SetamountInMicros(AIndex : Integer; const AValue : double); virtual;
Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1942,10 +2211,10 @@ type
FretailPrice : TVolumeTypesaleInfoTypeoffersItemTyperetailPrice;
Protected
//Property setters
- Procedure SetfinskyOfferType(AIndex : Integer; AValue : integer); virtual;
- Procedure SetlistPrice(AIndex : Integer; AValue : TVolumeTypesaleInfoTypeoffersItemTypelistPrice); virtual;
- Procedure SetrentalDuration(AIndex : Integer; AValue : TVolumeTypesaleInfoTypeoffersItemTyperentalDuration); virtual;
- Procedure SetretailPrice(AIndex : Integer; AValue : TVolumeTypesaleInfoTypeoffersItemTyperetailPrice); virtual;
+ Procedure SetfinskyOfferType(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetlistPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTypelistPrice); virtual;
+ Procedure SetrentalDuration(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTyperentalDuration); virtual;
+ Procedure SetretailPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTyperetailPrice); virtual;
Public
Published
Property finskyOfferType : integer Index 0 Read FfinskyOfferType Write SetfinskyOfferType;
@@ -1965,7 +2234,7 @@ type
FcurrencyCode : String;
Protected
//Property setters
- Procedure Setamount(AIndex : Integer; AValue : double); virtual;
+ Procedure Setamount(AIndex : Integer; const AValue : double); virtual;
Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1992,11 +2261,11 @@ type
//Property setters
Procedure SetbuyLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisEbook(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetlistPrice(AIndex : Integer; AValue : TVolumeTypesaleInfoTypelistPrice); virtual;
- Procedure Setoffers(AIndex : Integer; AValue : TVolumeTypesaleInfoTypeoffersArray); virtual;
- Procedure SetonSaleDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetretailPrice(AIndex : Integer; AValue : TVolumeTypesaleInfoTyperetailPrice); virtual;
+ Procedure SetisEbook(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetlistPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypelistPrice); virtual;
+ Procedure Setoffers(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersArray); virtual;
+ Procedure SetonSaleDate(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetretailPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTyperetailPrice); virtual;
Procedure Setsaleability(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2043,10 +2312,10 @@ type
Fupdated : TDatetime;
Protected
//Property setters
- Procedure SetallowedCharacterCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetallowedCharacterCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetlimitType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetremainingCharacterCount(AIndex : Integer; AValue : integer); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetremainingCharacterCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property allowedCharacterCount : integer Index 0 Read FallowedCharacterCount Write SetallowedCharacterCount;
@@ -2057,6 +2326,28 @@ type
TVolumeTypeuserInfoTypecopyClass = Class of TVolumeTypeuserInfoTypecopy;
{ --------------------------------------------------------------------
+ TVolumeTypeuserInfoTypefamilySharing
+ --------------------------------------------------------------------}
+
+ TVolumeTypeuserInfoTypefamilySharing = Class(TGoogleBaseObject)
+ Private
+ FfamilyRole : String;
+ FisSharingAllowed : boolean;
+ FisSharingDisabledByFop : boolean;
+ Protected
+ //Property setters
+ Procedure SetfamilyRole(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetisSharingAllowed(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisSharingDisabledByFop(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property familyRole : String Index 0 Read FfamilyRole Write SetfamilyRole;
+ Property isSharingAllowed : boolean Index 8 Read FisSharingAllowed Write SetisSharingAllowed;
+ Property isSharingDisabledByFop : boolean Index 16 Read FisSharingDisabledByFop Write SetisSharingDisabledByFop;
+ end;
+ TVolumeTypeuserInfoTypefamilySharingClass = Class of TVolumeTypeuserInfoTypefamilySharing;
+
+ { --------------------------------------------------------------------
TVolumeTypeuserInfoTyperentalPeriod
--------------------------------------------------------------------}
@@ -2097,7 +2388,15 @@ type
TVolumeTypeuserInfo = Class(TGoogleBaseObject)
Private
+ FacquiredTime : TDatetime;
+ FacquisitionType : integer;
Fcopy : TVolumeTypeuserInfoTypecopy;
+ FentitlementType : integer;
+ FfamilySharing : TVolumeTypeuserInfoTypefamilySharing;
+ FisFamilySharedFromUser : boolean;
+ FisFamilySharedToUser : boolean;
+ FisFamilySharingAllowed : boolean;
+ FisFamilySharingDisabledByFop : boolean;
FisInMyBooks : boolean;
FisPreordered : boolean;
FisPurchased : boolean;
@@ -2110,30 +2409,46 @@ type
FuserUploadedVolumeInfo : TVolumeTypeuserInfoTypeuserUploadedVolumeInfo;
Protected
//Property setters
- Procedure Setcopy(AIndex : Integer; AValue : TVolumeTypeuserInfoTypecopy); virtual;
- Procedure SetisInMyBooks(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisPreordered(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisPurchased(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisUploaded(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetreadingPosition(AIndex : Integer; AValue : TReadingPosition); virtual;
- Procedure SetrentalPeriod(AIndex : Integer; AValue : TVolumeTypeuserInfoTyperentalPeriod); virtual;
+ Procedure SetacquiredTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetacquisitionType(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setcopy(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypecopy); virtual;
+ Procedure SetentitlementType(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetfamilySharing(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypefamilySharing); virtual;
+ Procedure SetisFamilySharedFromUser(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisFamilySharedToUser(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisFamilySharingAllowed(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisFamilySharingDisabledByFop(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisInMyBooks(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisPreordered(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisPurchased(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisUploaded(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetreadingPosition(AIndex : Integer; const AValue : TReadingPosition); virtual;
+ Procedure SetrentalPeriod(AIndex : Integer; const AValue : TVolumeTypeuserInfoTyperentalPeriod); virtual;
Procedure SetrentalState(AIndex : Integer; const AValue : String); virtual;
- Procedure Setreview(AIndex : Integer; AValue : TReview); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetuserUploadedVolumeInfo(AIndex : Integer; AValue : TVolumeTypeuserInfoTypeuserUploadedVolumeInfo); virtual;
+ Procedure Setreview(AIndex : Integer; const AValue : TReview); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetuserUploadedVolumeInfo(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypeuserUploadedVolumeInfo); virtual;
Public
Published
- Property copy : TVolumeTypeuserInfoTypecopy Index 0 Read Fcopy Write Setcopy;
- Property isInMyBooks : boolean Index 8 Read FisInMyBooks Write SetisInMyBooks;
- Property isPreordered : boolean Index 16 Read FisPreordered Write SetisPreordered;
- Property isPurchased : boolean Index 24 Read FisPurchased Write SetisPurchased;
- Property isUploaded : boolean Index 32 Read FisUploaded Write SetisUploaded;
- Property readingPosition : TReadingPosition Index 40 Read FreadingPosition Write SetreadingPosition;
- Property rentalPeriod : TVolumeTypeuserInfoTyperentalPeriod Index 48 Read FrentalPeriod Write SetrentalPeriod;
- Property rentalState : String Index 56 Read FrentalState Write SetrentalState;
- Property review : TReview Index 64 Read Freview Write Setreview;
- Property updated : TDatetime Index 72 Read Fupdated Write Setupdated;
- Property userUploadedVolumeInfo : TVolumeTypeuserInfoTypeuserUploadedVolumeInfo Index 80 Read FuserUploadedVolumeInfo Write SetuserUploadedVolumeInfo;
+ Property acquiredTime : TDatetime Index 0 Read FacquiredTime Write SetacquiredTime;
+ Property acquisitionType : integer Index 8 Read FacquisitionType Write SetacquisitionType;
+ Property copy : TVolumeTypeuserInfoTypecopy Index 16 Read Fcopy Write Setcopy;
+ Property entitlementType : integer Index 24 Read FentitlementType Write SetentitlementType;
+ Property familySharing : TVolumeTypeuserInfoTypefamilySharing Index 32 Read FfamilySharing Write SetfamilySharing;
+ Property isFamilySharedFromUser : boolean Index 40 Read FisFamilySharedFromUser Write SetisFamilySharedFromUser;
+ Property isFamilySharedToUser : boolean Index 48 Read FisFamilySharedToUser Write SetisFamilySharedToUser;
+ Property isFamilySharingAllowed : boolean Index 56 Read FisFamilySharingAllowed Write SetisFamilySharingAllowed;
+ Property isFamilySharingDisabledByFop : boolean Index 64 Read FisFamilySharingDisabledByFop Write SetisFamilySharingDisabledByFop;
+ Property isInMyBooks : boolean Index 72 Read FisInMyBooks Write SetisInMyBooks;
+ Property isPreordered : boolean Index 80 Read FisPreordered Write SetisPreordered;
+ Property isPurchased : boolean Index 88 Read FisPurchased Write SetisPurchased;
+ Property isUploaded : boolean Index 96 Read FisUploaded Write SetisUploaded;
+ Property readingPosition : TReadingPosition Index 104 Read FreadingPosition Write SetreadingPosition;
+ Property rentalPeriod : TVolumeTypeuserInfoTyperentalPeriod Index 112 Read FrentalPeriod Write SetrentalPeriod;
+ Property rentalState : String Index 120 Read FrentalState Write SetrentalState;
+ Property review : TReview Index 128 Read Freview Write Setreview;
+ Property updated : TDatetime Index 136 Read Fupdated Write Setupdated;
+ Property userUploadedVolumeInfo : TVolumeTypeuserInfoTypeuserUploadedVolumeInfo Index 144 Read FuserUploadedVolumeInfo Write SetuserUploadedVolumeInfo;
end;
TVolumeTypeuserInfoClass = Class of TVolumeTypeuserInfo;
@@ -2239,33 +2554,35 @@ type
FratingsCount : integer;
FreadingModes : TJSONSchema;
FsamplePageCount : integer;
+ FseriesInfo : TVolumeseriesinfo;
Fsubtitle : String;
Ftitle : String;
Protected
//Property setters
- Procedure SetallowAnonLogging(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setauthors(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetaverageRating(AIndex : Integer; AValue : double); virtual;
+ Procedure SetallowAnonLogging(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setauthors(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetaverageRating(AIndex : Integer; const AValue : double); virtual;
Procedure SetcanonicalVolumeLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcategories(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setcategories(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetcontentVersion(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdimensions(AIndex : Integer; AValue : TVolumeTypevolumeInfoTypedimensions); virtual;
- Procedure SetimageLinks(AIndex : Integer; AValue : TVolumeTypevolumeInfoTypeimageLinks); virtual;
- Procedure SetindustryIdentifiers(AIndex : Integer; AValue : TVolumeTypevolumeInfoTypeindustryIdentifiersArray); virtual;
+ Procedure Setdimensions(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypedimensions); virtual;
+ Procedure SetimageLinks(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypeimageLinks); virtual;
+ Procedure SetindustryIdentifiers(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypeindustryIdentifiersArray); virtual;
Procedure SetinfoLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
Procedure SetmainCategory(AIndex : Integer; const AValue : String); virtual;
Procedure SetmaturityRating(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetpageCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetpreviewLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetprintType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprintedPageCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetprintedPageCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetpublishedDate(AIndex : Integer; const AValue : String); virtual;
Procedure Setpublisher(AIndex : Integer; const AValue : String); virtual;
- Procedure SetratingsCount(AIndex : Integer; AValue : integer); virtual;
- Procedure SetreadingModes(AIndex : Integer; AValue : TJSONSchema); virtual;
- Procedure SetsamplePageCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetratingsCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetreadingModes(AIndex : Integer; const AValue : TJSONSchema); virtual;
+ Procedure SetsamplePageCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetseriesInfo(AIndex : Integer; const AValue : TVolumeseriesinfo); virtual;
Procedure Setsubtitle(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2297,8 +2614,9 @@ type
Property ratingsCount : integer Index 160 Read FratingsCount Write SetratingsCount;
Property readingModes : TJSONSchema Index 168 Read FreadingModes Write SetreadingModes;
Property samplePageCount : integer Index 176 Read FsamplePageCount Write SetsamplePageCount;
- Property subtitle : String Index 184 Read Fsubtitle Write Setsubtitle;
- Property title : String Index 192 Read Ftitle Write Settitle;
+ Property seriesInfo : TVolumeseriesinfo Index 184 Read FseriesInfo Write SetseriesInfo;
+ Property subtitle : String Index 192 Read Fsubtitle Write Setsubtitle;
+ Property title : String Index 200 Read Ftitle Write Settitle;
end;
TVolumeTypevolumeInfoClass = Class of TVolumeTypevolumeInfo;
@@ -2321,17 +2639,17 @@ type
FvolumeInfo : TVolumeTypevolumeInfo;
Protected
//Property setters
- Procedure SetaccessInfo(AIndex : Integer; AValue : TVolumeTypeaccessInfo); virtual;
+ Procedure SetaccessInfo(AIndex : Integer; const AValue : TVolumeTypeaccessInfo); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlayerInfo(AIndex : Integer; AValue : TVolumeTypelayerInfo); virtual;
- Procedure SetrecommendedInfo(AIndex : Integer; AValue : TVolumeTyperecommendedInfo); virtual;
- Procedure SetsaleInfo(AIndex : Integer; AValue : TVolumeTypesaleInfo); virtual;
- Procedure SetsearchInfo(AIndex : Integer; AValue : TVolumeTypesearchInfo); virtual;
+ Procedure SetlayerInfo(AIndex : Integer; const AValue : TVolumeTypelayerInfo); virtual;
+ Procedure SetrecommendedInfo(AIndex : Integer; const AValue : TVolumeTyperecommendedInfo); virtual;
+ Procedure SetsaleInfo(AIndex : Integer; const AValue : TVolumeTypesaleInfo); virtual;
+ Procedure SetsearchInfo(AIndex : Integer; const AValue : TVolumeTypesearchInfo); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserInfo(AIndex : Integer; AValue : TVolumeTypeuserInfo); virtual;
- Procedure SetvolumeInfo(AIndex : Integer; AValue : TVolumeTypevolumeInfo); virtual;
+ Procedure SetuserInfo(AIndex : Integer; const AValue : TVolumeTypeuserInfo); virtual;
+ Procedure SetvolumeInfo(AIndex : Integer; const AValue : TVolumeTypevolumeInfo); virtual;
Public
Published
Property accessInfo : TVolumeTypeaccessInfo Index 0 Read FaccessInfo Write SetaccessInfo;
@@ -2359,7 +2677,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TVolume2TypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TVolume2TypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2386,10 +2704,10 @@ type
FgbTextRange : TBooksAnnotationsRange;
Protected
//Property setters
- Procedure SetcfiRange(AIndex : Integer; AValue : TBooksAnnotationsRange); virtual;
+ Procedure SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual;
Procedure SetcontentVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetgbImageRange(AIndex : Integer; AValue : TBooksAnnotationsRange); virtual;
- Procedure SetgbTextRange(AIndex : Integer; AValue : TBooksAnnotationsRange); virtual;
+ Procedure SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual;
+ Procedure SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange); virtual;
Public
Published
Property cfiRange : TBooksAnnotationsRange Index 0 Read FcfiRange Write SetcfiRange;
@@ -2424,16 +2742,16 @@ type
Procedure SetannotationDataId(AIndex : Integer; const AValue : String); virtual;
Procedure SetannotationDataLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetannotationType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontentRanges(AIndex : Integer; AValue : TVolumeannotationTypecontentRanges); virtual;
+ Procedure SetcontentRanges(AIndex : Integer; const AValue : TVolumeannotationTypecontentRanges); virtual;
Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlayerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetpageIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetselectedText(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetvolumeId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2471,10 +2789,10 @@ type
Fversion : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TVolumeannotationsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TVolumeannotationsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2501,9 +2819,9 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TVolumesTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TVolumesTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); 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;
@@ -2517,6 +2835,83 @@ type
TVolumesClass = Class of TVolumes;
{ --------------------------------------------------------------------
+ TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem
+ --------------------------------------------------------------------}
+
+ TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem = Class(TGoogleBaseObject)
+ Private
+ FissueDisplayNumber : String;
+ FissueOrderNumber : integer;
+ Protected
+ //Property setters
+ Procedure SetissueDisplayNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetissueOrderNumber(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property issueDisplayNumber : String Index 0 Read FissueDisplayNumber Write SetissueDisplayNumber;
+ Property issueOrderNumber : integer Index 8 Read FissueOrderNumber Write SetissueOrderNumber;
+ end;
+ TVolumeseriesinfoTypevolumeSeriesItemTypeissueItemClass = Class of TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem;
+
+ { --------------------------------------------------------------------
+ TVolumeseriesinfoTypevolumeSeriesItem
+ --------------------------------------------------------------------}
+
+ TVolumeseriesinfoTypevolumeSeriesItem = Class(TGoogleBaseObject)
+ Private
+ Fissue : TVolumeseriesinfoTypevolumeSeriesItemTypeissueArray;
+ ForderNumber : integer;
+ FseriesBookType : String;
+ FseriesId : String;
+ Protected
+ //Property setters
+ Procedure Setissue(AIndex : Integer; const AValue : TVolumeseriesinfoTypevolumeSeriesItemTypeissueArray); virtual;
+ Procedure SetorderNumber(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetseriesBookType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseriesId(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 issue : TVolumeseriesinfoTypevolumeSeriesItemTypeissueArray Index 0 Read Fissue Write Setissue;
+ Property orderNumber : integer Index 8 Read ForderNumber Write SetorderNumber;
+ Property seriesBookType : String Index 16 Read FseriesBookType Write SetseriesBookType;
+ Property seriesId : String Index 24 Read FseriesId Write SetseriesId;
+ end;
+ TVolumeseriesinfoTypevolumeSeriesItemClass = Class of TVolumeseriesinfoTypevolumeSeriesItem;
+
+ { --------------------------------------------------------------------
+ TVolumeseriesinfo
+ --------------------------------------------------------------------}
+
+ TVolumeseriesinfo = Class(TGoogleBaseObject)
+ Private
+ FbookDisplayNumber : String;
+ Fkind : String;
+ FshortSeriesBookTitle : String;
+ FvolumeSeries : TVolumeseriesinfoTypevolumeSeriesArray;
+ Protected
+ //Property setters
+ Procedure SetbookDisplayNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetshortSeriesBookTitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvolumeSeries(AIndex : Integer; const AValue : TVolumeseriesinfoTypevolumeSeriesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property bookDisplayNumber : String Index 0 Read FbookDisplayNumber Write SetbookDisplayNumber;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property shortSeriesBookTitle : String Index 16 Read FshortSeriesBookTitle Write SetshortSeriesBookTitle;
+ Property volumeSeries : TVolumeseriesinfoTypevolumeSeriesArray Index 24 Read FvolumeSeries Write SetvolumeSeries;
+ end;
+ TVolumeseriesinfoClass = Class of TVolumeseriesinfo;
+
+ { --------------------------------------------------------------------
TBookshelvesVolumesResource
--------------------------------------------------------------------}
@@ -2790,6 +3185,7 @@ type
TMyconfigSyncVolumeLicensesOptions = Record
cpksver : String;
features : String;
+ includeNonComicsSeries : boolean;
locale : String;
nonce : String;
showPreorders : boolean;
@@ -3051,6 +3447,28 @@ type
{ --------------------------------------------------------------------
+ TNotificationResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TNotificationResource, method Get
+
+ TNotificationGetOptions = Record
+ locale : String;
+ notification_id : String;
+ source : String;
+ end;
+
+ TNotificationResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(AQuery : string = '') : TNotification;
+ Function Get(AQuery : TNotificationgetOptions) : TNotification;
+ end;
+
+
+ { --------------------------------------------------------------------
TOnboardingResource
--------------------------------------------------------------------}
@@ -3084,6 +3502,28 @@ type
{ --------------------------------------------------------------------
+ TPersonalizedstreamResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TPersonalizedstreamResource, method Get
+
+ TPersonalizedstreamGetOptions = Record
+ locale : String;
+ maxAllowedMaturityRating : String;
+ source : String;
+ end;
+
+ TPersonalizedstreamResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(AQuery : string = '') : TDiscoveryclusters;
+ Function Get(AQuery : TPersonalizedstreamgetOptions) : TDiscoveryclusters;
+ end;
+
+
+ { --------------------------------------------------------------------
TPromoofferResource
--------------------------------------------------------------------}
@@ -3140,6 +3580,54 @@ type
{ --------------------------------------------------------------------
+ TSeriesMembershipResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TSeriesMembershipResource, method Get
+
+ TSeriesMembershipGetOptions = Record
+ page_size : integer;
+ page_token : String;
+ series_id : String;
+ end;
+
+ TSeriesMembershipResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(AQuery : string = '') : TSeriesmembership;
+ Function Get(AQuery : TSeriesMembershipgetOptions) : TSeriesmembership;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TSeriesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TSeriesResource, method Get
+
+ TSeriesGetOptions = Record
+ series_id : String;
+ end;
+
+ TSeriesResource = Class(TGoogleResource)
+ Private
+ FMembershipInstance : TSeriesMembershipResource;
+ Function GetMembershipInstance : TSeriesMembershipResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(AQuery : string = '') : TSeries;
+ Function Get(AQuery : TSeriesgetOptions) : TSeries;
+ Function CreateMembershipResource(AOwner : TComponent) : TSeriesMembershipResource;virtual;overload;
+ Function CreateMembershipResource : TSeriesMembershipResource;virtual;overload;
+ Property MembershipResource : TSeriesMembershipResource Read GetMembershipInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
TVolumesAssociatedResource
--------------------------------------------------------------------}
@@ -3171,6 +3659,7 @@ type
TVolumesMybooksListOptions = Record
acquireMethod : String;
+ country : String;
locale : String;
maxResults : integer;
processingState : String;
@@ -3255,6 +3744,7 @@ type
TVolumesGetOptions = Record
country : String;
+ includeNonComicsSeries : boolean;
partner : String;
projection : String;
source : String;
@@ -3331,8 +3821,12 @@ type
FMylibraryBookshelvesInstance : TMylibraryBookshelvesResource;
FMylibraryReadingpositionsInstance : TMylibraryReadingpositionsResource;
FMylibraryInstance : TMylibraryResource;
+ FNotificationInstance : TNotificationResource;
FOnboardingInstance : TOnboardingResource;
+ FPersonalizedstreamInstance : TPersonalizedstreamResource;
FPromoofferInstance : TPromoofferResource;
+ FSeriesMembershipInstance : TSeriesMembershipResource;
+ FSeriesInstance : TSeriesResource;
FVolumesAssociatedInstance : TVolumesAssociatedResource;
FVolumesMybooksInstance : TVolumesMybooksResource;
FVolumesRecommendedInstance : TVolumesRecommendedResource;
@@ -3351,8 +3845,12 @@ type
Function GetMylibraryBookshelvesInstance : TMylibraryBookshelvesResource;virtual;
Function GetMylibraryReadingpositionsInstance : TMylibraryReadingpositionsResource;virtual;
Function GetMylibraryInstance : TMylibraryResource;virtual;
+ Function GetNotificationInstance : TNotificationResource;virtual;
Function GetOnboardingInstance : TOnboardingResource;virtual;
+ Function GetPersonalizedstreamInstance : TPersonalizedstreamResource;virtual;
Function GetPromoofferInstance : TPromoofferResource;virtual;
+ Function GetSeriesMembershipInstance : TSeriesMembershipResource;virtual;
+ Function GetSeriesInstance : TSeriesResource;virtual;
Function GetVolumesAssociatedInstance : TVolumesAssociatedResource;virtual;
Function GetVolumesMybooksInstance : TVolumesMybooksResource;virtual;
Function GetVolumesRecommendedInstance : TVolumesRecommendedResource;virtual;
@@ -3407,10 +3905,18 @@ type
Function CreateMylibraryReadingpositionsResource : TMylibraryReadingpositionsResource;virtual;overload;
Function CreateMylibraryResource(AOwner : TComponent) : TMylibraryResource;virtual;overload;
Function CreateMylibraryResource : TMylibraryResource;virtual;overload;
+ Function CreateNotificationResource(AOwner : TComponent) : TNotificationResource;virtual;overload;
+ Function CreateNotificationResource : TNotificationResource;virtual;overload;
Function CreateOnboardingResource(AOwner : TComponent) : TOnboardingResource;virtual;overload;
Function CreateOnboardingResource : TOnboardingResource;virtual;overload;
+ Function CreatePersonalizedstreamResource(AOwner : TComponent) : TPersonalizedstreamResource;virtual;overload;
+ Function CreatePersonalizedstreamResource : TPersonalizedstreamResource;virtual;overload;
Function CreatePromoofferResource(AOwner : TComponent) : TPromoofferResource;virtual;overload;
Function CreatePromoofferResource : TPromoofferResource;virtual;overload;
+ Function CreateSeriesMembershipResource(AOwner : TComponent) : TSeriesMembershipResource;virtual;overload;
+ Function CreateSeriesMembershipResource : TSeriesMembershipResource;virtual;overload;
+ Function CreateSeriesResource(AOwner : TComponent) : TSeriesResource;virtual;overload;
+ Function CreateSeriesResource : TSeriesResource;virtual;overload;
Function CreateVolumesAssociatedResource(AOwner : TComponent) : TVolumesAssociatedResource;virtual;overload;
Function CreateVolumesAssociatedResource : TVolumesAssociatedResource;virtual;overload;
Function CreateVolumesMybooksResource(AOwner : TComponent) : TVolumesMybooksResource;virtual;overload;
@@ -3435,8 +3941,12 @@ type
Property MylibraryBookshelvesResource : TMylibraryBookshelvesResource Read GetMylibraryBookshelvesInstance;
Property MylibraryReadingpositionsResource : TMylibraryReadingpositionsResource Read GetMylibraryReadingpositionsInstance;
Property MylibraryResource : TMylibraryResource Read GetMylibraryInstance;
+ Property NotificationResource : TNotificationResource Read GetNotificationInstance;
Property OnboardingResource : TOnboardingResource Read GetOnboardingInstance;
+ Property PersonalizedstreamResource : TPersonalizedstreamResource Read GetPersonalizedstreamInstance;
Property PromoofferResource : TPromoofferResource Read GetPromoofferInstance;
+ Property SeriesMembershipResource : TSeriesMembershipResource Read GetSeriesMembershipInstance;
+ Property SeriesResource : TSeriesResource Read GetSeriesInstance;
Property VolumesAssociatedResource : TVolumesAssociatedResource Read GetVolumesAssociatedInstance;
Property VolumesMybooksResource : TVolumesMybooksResource Read GetVolumesMybooksInstance;
Property VolumesRecommendedResource : TVolumesRecommendedResource Read GetVolumesRecommendedInstance;
@@ -3452,7 +3962,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TAnnotationTypeclientVersionRanges.SetcfiRange(AIndex : Integer; AValue : TBooksAnnotationsRange);
+Procedure TAnnotationTypeclientVersionRanges.SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange);
begin
If (FcfiRange=AValue) then exit;
@@ -3472,7 +3982,7 @@ end;
-Procedure TAnnotationTypeclientVersionRanges.SetgbImageRange(AIndex : Integer; AValue : TBooksAnnotationsRange);
+Procedure TAnnotationTypeclientVersionRanges.SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange);
begin
If (FgbImageRange=AValue) then exit;
@@ -3482,7 +3992,7 @@ end;
-Procedure TAnnotationTypeclientVersionRanges.SetgbTextRange(AIndex : Integer; AValue : TBooksAnnotationsRange);
+Procedure TAnnotationTypeclientVersionRanges.SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange);
begin
If (FgbTextRange=AValue) then exit;
@@ -3492,7 +4002,7 @@ end;
-Procedure TAnnotationTypeclientVersionRanges.SetimageCfiRange(AIndex : Integer; AValue : TBooksAnnotationsRange);
+Procedure TAnnotationTypeclientVersionRanges.SetimageCfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange);
begin
If (FimageCfiRange=AValue) then exit;
@@ -3509,7 +4019,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnnotationTypecurrentVersionRanges.SetcfiRange(AIndex : Integer; AValue : TBooksAnnotationsRange);
+Procedure TAnnotationTypecurrentVersionRanges.SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange);
begin
If (FcfiRange=AValue) then exit;
@@ -3529,7 +4039,7 @@ end;
-Procedure TAnnotationTypecurrentVersionRanges.SetgbImageRange(AIndex : Integer; AValue : TBooksAnnotationsRange);
+Procedure TAnnotationTypecurrentVersionRanges.SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange);
begin
If (FgbImageRange=AValue) then exit;
@@ -3539,7 +4049,7 @@ end;
-Procedure TAnnotationTypecurrentVersionRanges.SetgbTextRange(AIndex : Integer; AValue : TBooksAnnotationsRange);
+Procedure TAnnotationTypecurrentVersionRanges.SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange);
begin
If (FgbTextRange=AValue) then exit;
@@ -3549,7 +4059,7 @@ end;
-Procedure TAnnotationTypecurrentVersionRanges.SetimageCfiRange(AIndex : Integer; AValue : TBooksAnnotationsRange);
+Procedure TAnnotationTypecurrentVersionRanges.SetimageCfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange);
begin
If (FimageCfiRange=AValue) then exit;
@@ -3566,7 +4076,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnnotationTypelayerSummary.SetallowedCharacterCount(AIndex : Integer; AValue : integer);
+Procedure TAnnotationTypelayerSummary.SetallowedCharacterCount(AIndex : Integer; const AValue : integer);
begin
If (FallowedCharacterCount=AValue) then exit;
@@ -3586,7 +4096,7 @@ end;
-Procedure TAnnotationTypelayerSummary.SetremainingCharacterCount(AIndex : Integer; AValue : integer);
+Procedure TAnnotationTypelayerSummary.SetremainingCharacterCount(AIndex : Integer; const AValue : integer);
begin
If (FremainingCharacterCount=AValue) then exit;
@@ -3623,7 +4133,7 @@ end;
-Procedure TAnnotation.SetclientVersionRanges(AIndex : Integer; AValue : TAnnotationTypeclientVersionRanges);
+Procedure TAnnotation.SetclientVersionRanges(AIndex : Integer; const AValue : TAnnotationTypeclientVersionRanges);
begin
If (FclientVersionRanges=AValue) then exit;
@@ -3633,7 +4143,7 @@ end;
-Procedure TAnnotation.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TAnnotation.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -3643,7 +4153,7 @@ end;
-Procedure TAnnotation.SetcurrentVersionRanges(AIndex : Integer; AValue : TAnnotationTypecurrentVersionRanges);
+Procedure TAnnotation.SetcurrentVersionRanges(AIndex : Integer; const AValue : TAnnotationTypecurrentVersionRanges);
begin
If (FcurrentVersionRanges=AValue) then exit;
@@ -3663,7 +4173,7 @@ end;
-Procedure TAnnotation.Setdeleted(AIndex : Integer; AValue : boolean);
+Procedure TAnnotation.Setdeleted(AIndex : Integer; const AValue : boolean);
begin
If (Fdeleted=AValue) then exit;
@@ -3713,7 +4223,7 @@ end;
-Procedure TAnnotation.SetlayerSummary(AIndex : Integer; AValue : TAnnotationTypelayerSummary);
+Procedure TAnnotation.SetlayerSummary(AIndex : Integer; const AValue : TAnnotationTypelayerSummary);
begin
If (FlayerSummary=AValue) then exit;
@@ -3723,7 +4233,7 @@ end;
-Procedure TAnnotation.SetpageIds(AIndex : Integer; AValue : TStringArray);
+Procedure TAnnotation.SetpageIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FpageIds=AValue) then exit;
@@ -3753,7 +4263,7 @@ end;
-Procedure TAnnotation.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TAnnotation.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -3803,7 +4313,7 @@ end;
-Procedure TAnnotationdata.Setdata(AIndex : Integer; AValue : TJSONSchema);
+Procedure TAnnotationdata.Setdata(AIndex : Integer; const AValue : TJSONSchema);
begin
If (Fdata=AValue) then exit;
@@ -3863,7 +4373,7 @@ end;
-Procedure TAnnotationdata.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TAnnotationdata.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -3890,7 +4400,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnnotations.Setitems(AIndex : Integer; AValue : TAnnotationsTypeitemsArray);
+Procedure TAnnotations.Setitems(AIndex : Integer; const AValue : TAnnotationsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3920,7 +4430,7 @@ end;
-Procedure TAnnotations.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TAnnotations.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -3950,7 +4460,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnnotationsSummaryTypelayersItem.SetallowedCharacterCount(AIndex : Integer; AValue : integer);
+Procedure TAnnotationsSummaryTypelayersItem.SetallowedCharacterCount(AIndex : Integer; const AValue : integer);
begin
If (FallowedCharacterCount=AValue) then exit;
@@ -3980,7 +4490,7 @@ end;
-Procedure TAnnotationsSummaryTypelayersItem.SetremainingCharacterCount(AIndex : Integer; AValue : integer);
+Procedure TAnnotationsSummaryTypelayersItem.SetremainingCharacterCount(AIndex : Integer; const AValue : integer);
begin
If (FremainingCharacterCount=AValue) then exit;
@@ -3990,7 +4500,7 @@ end;
-Procedure TAnnotationsSummaryTypelayersItem.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TAnnotationsSummaryTypelayersItem.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -4017,7 +4527,7 @@ end;
-Procedure TAnnotationsSummary.Setlayers(AIndex : Integer; AValue : TAnnotationsSummaryTypelayersArray);
+Procedure TAnnotationsSummary.Setlayers(AIndex : Integer; const AValue : TAnnotationsSummaryTypelayersArray);
begin
If (Flayers=AValue) then exit;
@@ -4047,7 +4557,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnnotationsdata.Setitems(AIndex : Integer; AValue : TAnnotationsdataTypeitemsArray);
+Procedure TAnnotationsdata.Setitems(AIndex : Integer; const AValue : TAnnotationsdataTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -4077,7 +4587,7 @@ end;
-Procedure TAnnotationsdata.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TAnnotationsdata.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -4228,7 +4738,7 @@ end;
-Procedure TBookshelf.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TBookshelf.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -4248,7 +4758,7 @@ end;
-Procedure TBookshelf.Setid(AIndex : Integer; AValue : integer);
+Procedure TBookshelf.Setid(AIndex : Integer; const AValue : integer);
begin
If (Fid=AValue) then exit;
@@ -4288,7 +4798,7 @@ end;
-Procedure TBookshelf.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TBookshelf.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -4298,7 +4808,7 @@ end;
-Procedure TBookshelf.SetvolumeCount(AIndex : Integer; AValue : integer);
+Procedure TBookshelf.SetvolumeCount(AIndex : Integer; const AValue : integer);
begin
If (FvolumeCount=AValue) then exit;
@@ -4308,7 +4818,7 @@ end;
-Procedure TBookshelf.SetvolumesLastUpdated(AIndex : Integer; AValue : TDatetime);
+Procedure TBookshelf.SetvolumesLastUpdated(AIndex : Integer; const AValue : TDatetime);
begin
If (FvolumesLastUpdated=AValue) then exit;
@@ -4325,7 +4835,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBookshelves.Setitems(AIndex : Integer; AValue : TBookshelvesTypeitemsArray);
+Procedure TBookshelves.Setitems(AIndex : Integer; const AValue : TBookshelvesTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -4402,7 +4912,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCategory.Setitems(AIndex : Integer; AValue : TCategoryTypeitemsArray);
+Procedure TCategory.Setitems(AIndex : Integer; const AValue : TCategoryTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -4442,7 +4952,7 @@ end;
--------------------------------------------------------------------}
-Procedure TConcurrentAccessRestriction.SetdeviceAllowed(AIndex : Integer; AValue : boolean);
+Procedure TConcurrentAccessRestriction.SetdeviceAllowed(AIndex : Integer; const AValue : boolean);
begin
If (FdeviceAllowed=AValue) then exit;
@@ -4462,7 +4972,7 @@ end;
-Procedure TConcurrentAccessRestriction.SetmaxConcurrentDevices(AIndex : Integer; AValue : integer);
+Procedure TConcurrentAccessRestriction.SetmaxConcurrentDevices(AIndex : Integer; const AValue : integer);
begin
If (FmaxConcurrentDevices=AValue) then exit;
@@ -4502,7 +5012,7 @@ end;
-Procedure TConcurrentAccessRestriction.Setrestricted(AIndex : Integer; AValue : boolean);
+Procedure TConcurrentAccessRestriction.Setrestricted(AIndex : Integer; const AValue : boolean);
begin
If (Frestricted=AValue) then exit;
@@ -4532,7 +5042,7 @@ end;
-Procedure TConcurrentAccessRestriction.SettimeWindowSeconds(AIndex : Integer; AValue : integer);
+Procedure TConcurrentAccessRestriction.SettimeWindowSeconds(AIndex : Integer; const AValue : integer);
begin
If (FtimeWindowSeconds=AValue) then exit;
@@ -4630,7 +5140,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDictlayerdataTypedictTypewordsItemTypederivativesItem.Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource);
+Procedure TDictlayerdataTypedictTypewordsItemTypederivativesItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypederivativesItemTypesource);
begin
If (Fsource=AValue) then exit;
@@ -4684,7 +5194,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDictlayerdataTypedictTypewordsItemTypeexamplesItem.Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource);
+Procedure TDictlayerdataTypedictTypewordsItemTypeexamplesItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesItemTypesource);
begin
If (Fsource=AValue) then exit;
@@ -4776,7 +5286,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItem.Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource);
+Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesItemTypesource);
begin
If (Fsource=AValue) then exit;
@@ -4813,7 +5323,7 @@ end;
-Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem.Setexamples(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesArray);
+Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItem.Setexamples(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsItemTypeexamplesArray);
begin
If (Fexamples=AValue) then exit;
@@ -4897,7 +5407,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem.Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource);
+Procedure TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsItemTypesource);
begin
If (Fsource=AValue) then exit;
@@ -4924,7 +5434,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setconjugations(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsArray);
+Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setconjugations(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypeconjugationsArray);
begin
If (Fconjugations=AValue) then exit;
@@ -4934,7 +5444,7 @@ end;
-Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setdefinitions(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsArray);
+Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setdefinitions(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypedefinitionsArray);
begin
If (Fdefinitions=AValue) then exit;
@@ -4974,7 +5484,7 @@ end;
-Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource);
+Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesource);
begin
If (Fsource=AValue) then exit;
@@ -4994,7 +5504,7 @@ end;
-Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setsynonyms(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsArray);
+Procedure TDictlayerdataTypedictTypewordsItemTypesensesItem.Setsynonyms(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesItemTypesynonymsArray);
begin
If (Fsynonyms=AValue) then exit;
@@ -5053,7 +5563,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDictlayerdataTypedictTypewordsItem.Setderivatives(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypederivativesArray);
+Procedure TDictlayerdataTypedictTypewordsItem.Setderivatives(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypederivativesArray);
begin
If (Fderivatives=AValue) then exit;
@@ -5063,7 +5573,7 @@ end;
-Procedure TDictlayerdataTypedictTypewordsItem.Setexamples(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesArray);
+Procedure TDictlayerdataTypedictTypewordsItem.Setexamples(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypeexamplesArray);
begin
If (Fexamples=AValue) then exit;
@@ -5073,7 +5583,7 @@ end;
-Procedure TDictlayerdataTypedictTypewordsItem.Setsenses(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesensesArray);
+Procedure TDictlayerdataTypedictTypewordsItem.Setsenses(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesensesArray);
begin
If (Fsenses=AValue) then exit;
@@ -5083,7 +5593,7 @@ end;
-Procedure TDictlayerdataTypedictTypewordsItem.Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsItemTypesource);
+Procedure TDictlayerdataTypedictTypewordsItem.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsItemTypesource);
begin
If (Fsource=AValue) then exit;
@@ -5115,7 +5625,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDictlayerdataTypedict.Setsource(AIndex : Integer; AValue : TDictlayerdataTypedictTypesource);
+Procedure TDictlayerdataTypedict.Setsource(AIndex : Integer; const AValue : TDictlayerdataTypedictTypesource);
begin
If (Fsource=AValue) then exit;
@@ -5125,7 +5635,7 @@ end;
-Procedure TDictlayerdataTypedict.Setwords(AIndex : Integer; AValue : TDictlayerdataTypedictTypewordsArray);
+Procedure TDictlayerdataTypedict.Setwords(AIndex : Integer; const AValue : TDictlayerdataTypedictTypewordsArray);
begin
If (Fwords=AValue) then exit;
@@ -5155,7 +5665,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDictlayerdata.Setcommon(AIndex : Integer; AValue : TDictlayerdataTypecommon);
+Procedure TDictlayerdata.Setcommon(AIndex : Integer; const AValue : TDictlayerdataTypecommon);
begin
If (Fcommon=AValue) then exit;
@@ -5165,7 +5675,7 @@ end;
-Procedure TDictlayerdata.Setdict(AIndex : Integer; AValue : TDictlayerdataTypedict);
+Procedure TDictlayerdata.Setdict(AIndex : Integer; const AValue : TDictlayerdataTypedict);
begin
If (Fdict=AValue) then exit;
@@ -5188,11 +5698,208 @@ end;
{ --------------------------------------------------------------------
+ TDiscoveryclustersTypeclustersItemTypebanner_with_content_container
+ --------------------------------------------------------------------}
+
+
+Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SetfillColorArgb(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfillColorArgb=AValue) then exit;
+ FfillColorArgb:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SetimageUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FimageUrl=AValue) then exit;
+ FimageUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SetmaskColorArgb(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmaskColorArgb=AValue) then exit;
+ FmaskColorArgb:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SetmoreButtonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmoreButtonText=AValue) then exit;
+ FmoreButtonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SetmoreButtonUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmoreButtonUrl=AValue) then exit;
+ FmoreButtonUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.SettextColorArgb(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtextColorArgb=AValue) then exit;
+ FtextColorArgb:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDiscoveryclustersTypeclustersItem
+ --------------------------------------------------------------------}
+
+
+Procedure TDiscoveryclustersTypeclustersItem.Setbanner_with_content_container(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersItemTypebanner_with_content_container);
+
+begin
+ If (Fbanner_with_content_container=AValue) then exit;
+ Fbanner_with_content_container:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclustersTypeclustersItem.SetsubTitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsubTitle=AValue) then exit;
+ FsubTitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclustersTypeclustersItem.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclustersTypeclustersItem.SettotalVolumes(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalVolumes=AValue) then exit;
+ FtotalVolumes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclustersTypeclustersItem.Setuid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fuid=AValue) then exit;
+ Fuid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclustersTypeclustersItem.Setvolumes(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersItemTypevolumesArray);
+
+begin
+ If (Fvolumes=AValue) then exit;
+ Fvolumes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDiscoveryclustersTypeclustersItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'volumes' : SetLength(Fvolumes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDiscoveryclusters
+ --------------------------------------------------------------------}
+
+
+Procedure TDiscoveryclusters.Setclusters(AIndex : Integer; const AValue : TDiscoveryclustersTypeclustersArray);
+
+begin
+ If (Fclusters=AValue) then exit;
+ Fclusters:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclusters.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiscoveryclusters.SettotalClusters(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalClusters=AValue) then exit;
+ FtotalClusters:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDiscoveryclusters.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'clusters' : SetLength(Fclusters,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TDownloadAccessRestriction
--------------------------------------------------------------------}
-Procedure TDownloadAccessRestriction.SetdeviceAllowed(AIndex : Integer; AValue : boolean);
+Procedure TDownloadAccessRestriction.SetdeviceAllowed(AIndex : Integer; const AValue : boolean);
begin
If (FdeviceAllowed=AValue) then exit;
@@ -5202,7 +5909,7 @@ end;
-Procedure TDownloadAccessRestriction.SetdownloadsAcquired(AIndex : Integer; AValue : integer);
+Procedure TDownloadAccessRestriction.SetdownloadsAcquired(AIndex : Integer; const AValue : integer);
begin
If (FdownloadsAcquired=AValue) then exit;
@@ -5212,7 +5919,7 @@ end;
-Procedure TDownloadAccessRestriction.SetjustAcquired(AIndex : Integer; AValue : boolean);
+Procedure TDownloadAccessRestriction.SetjustAcquired(AIndex : Integer; const AValue : boolean);
begin
If (FjustAcquired=AValue) then exit;
@@ -5232,7 +5939,7 @@ end;
-Procedure TDownloadAccessRestriction.SetmaxDownloadDevices(AIndex : Integer; AValue : integer);
+Procedure TDownloadAccessRestriction.SetmaxDownloadDevices(AIndex : Integer; const AValue : integer);
begin
If (FmaxDownloadDevices=AValue) then exit;
@@ -5272,7 +5979,7 @@ end;
-Procedure TDownloadAccessRestriction.Setrestricted(AIndex : Integer; AValue : boolean);
+Procedure TDownloadAccessRestriction.Setrestricted(AIndex : Integer; const AValue : boolean);
begin
If (Frestricted=AValue) then exit;
@@ -5319,7 +6026,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDownloadAccesses.SetdownloadAccessList(AIndex : Integer; AValue : TDownloadAccessesTypedownloadAccessListArray);
+Procedure TDownloadAccesses.SetdownloadAccessList(AIndex : Integer; const AValue : TDownloadAccessesTypedownloadAccessListArray);
begin
If (FdownloadAccessList=AValue) then exit;
@@ -5416,7 +6123,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeolayerdataTypegeoTypeboundaryItemItem.Setlatitude(AIndex : Integer; AValue : integer);
+Procedure TGeolayerdataTypegeoTypeboundaryItemItem.Setlatitude(AIndex : Integer; const AValue : integer);
begin
If (Flatitude=AValue) then exit;
@@ -5426,7 +6133,7 @@ end;
-Procedure TGeolayerdataTypegeoTypeboundaryItemItem.Setlongitude(AIndex : Integer; AValue : integer);
+Procedure TGeolayerdataTypegeoTypeboundaryItemItem.Setlongitude(AIndex : Integer; const AValue : integer);
begin
If (Flongitude=AValue) then exit;
@@ -5443,7 +6150,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeolayerdataTypegeoTypeviewportTypehi.Setlatitude(AIndex : Integer; AValue : double);
+Procedure TGeolayerdataTypegeoTypeviewportTypehi.Setlatitude(AIndex : Integer; const AValue : double);
begin
If (Flatitude=AValue) then exit;
@@ -5453,7 +6160,7 @@ end;
-Procedure TGeolayerdataTypegeoTypeviewportTypehi.Setlongitude(AIndex : Integer; AValue : double);
+Procedure TGeolayerdataTypegeoTypeviewportTypehi.Setlongitude(AIndex : Integer; const AValue : double);
begin
If (Flongitude=AValue) then exit;
@@ -5470,7 +6177,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeolayerdataTypegeoTypeviewportTypelo.Setlatitude(AIndex : Integer; AValue : double);
+Procedure TGeolayerdataTypegeoTypeviewportTypelo.Setlatitude(AIndex : Integer; const AValue : double);
begin
If (Flatitude=AValue) then exit;
@@ -5480,7 +6187,7 @@ end;
-Procedure TGeolayerdataTypegeoTypeviewportTypelo.Setlongitude(AIndex : Integer; AValue : double);
+Procedure TGeolayerdataTypegeoTypeviewportTypelo.Setlongitude(AIndex : Integer; const AValue : double);
begin
If (Flongitude=AValue) then exit;
@@ -5497,7 +6204,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeolayerdataTypegeoTypeviewport.Sethi(AIndex : Integer; AValue : TGeolayerdataTypegeoTypeviewportTypehi);
+Procedure TGeolayerdataTypegeoTypeviewport.Sethi(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewportTypehi);
begin
If (Fhi=AValue) then exit;
@@ -5507,7 +6214,7 @@ end;
-Procedure TGeolayerdataTypegeoTypeviewport.Setlo(AIndex : Integer; AValue : TGeolayerdataTypegeoTypeviewportTypelo);
+Procedure TGeolayerdataTypegeoTypeviewport.Setlo(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewportTypelo);
begin
If (Flo=AValue) then exit;
@@ -5524,7 +6231,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeolayerdataTypegeo.Setboundary(AIndex : Integer; AValue : TGeolayerdataTypegeoTypeboundaryArray);
+Procedure TGeolayerdataTypegeo.Setboundary(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeboundaryArray);
begin
If (Fboundary=AValue) then exit;
@@ -5554,7 +6261,7 @@ end;
-Procedure TGeolayerdataTypegeo.Setlatitude(AIndex : Integer; AValue : double);
+Procedure TGeolayerdataTypegeo.Setlatitude(AIndex : Integer; const AValue : double);
begin
If (Flatitude=AValue) then exit;
@@ -5564,7 +6271,7 @@ end;
-Procedure TGeolayerdataTypegeo.Setlongitude(AIndex : Integer; AValue : double);
+Procedure TGeolayerdataTypegeo.Setlongitude(AIndex : Integer; const AValue : double);
begin
If (Flongitude=AValue) then exit;
@@ -5584,7 +6291,7 @@ end;
-Procedure TGeolayerdataTypegeo.Setviewport(AIndex : Integer; AValue : TGeolayerdataTypegeoTypeviewport);
+Procedure TGeolayerdataTypegeo.Setviewport(AIndex : Integer; const AValue : TGeolayerdataTypegeoTypeviewport);
begin
If (Fviewport=AValue) then exit;
@@ -5594,7 +6301,7 @@ end;
-Procedure TGeolayerdataTypegeo.Setzoom(AIndex : Integer; AValue : integer);
+Procedure TGeolayerdataTypegeo.Setzoom(AIndex : Integer; const AValue : integer);
begin
If (Fzoom=AValue) then exit;
@@ -5624,7 +6331,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeolayerdata.Setcommon(AIndex : Integer; AValue : TGeolayerdataTypecommon);
+Procedure TGeolayerdata.Setcommon(AIndex : Integer; const AValue : TGeolayerdataTypecommon);
begin
If (Fcommon=AValue) then exit;
@@ -5634,7 +6341,7 @@ end;
-Procedure TGeolayerdata.Setgeo(AIndex : Integer; AValue : TGeolayerdataTypegeo);
+Procedure TGeolayerdata.Setgeo(AIndex : Integer; const AValue : TGeolayerdataTypegeo);
begin
If (Fgeo=AValue) then exit;
@@ -5661,7 +6368,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLayersummaries.Setitems(AIndex : Integer; AValue : TLayersummariesTypeitemsArray);
+Procedure TLayersummaries.Setitems(AIndex : Integer; const AValue : TLayersummariesTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -5681,7 +6388,7 @@ end;
-Procedure TLayersummaries.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TLayersummaries.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -5711,7 +6418,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLayersummary.SetannotationCount(AIndex : Integer; AValue : integer);
+Procedure TLayersummary.SetannotationCount(AIndex : Integer; const AValue : integer);
begin
If (FannotationCount=AValue) then exit;
@@ -5721,7 +6428,7 @@ end;
-Procedure TLayersummary.SetannotationTypes(AIndex : Integer; AValue : TStringArray);
+Procedure TLayersummary.SetannotationTypes(AIndex : Integer; const AValue : TStringArray);
begin
If (FannotationTypes=AValue) then exit;
@@ -5761,7 +6468,7 @@ end;
-Procedure TLayersummary.SetdataCount(AIndex : Integer; AValue : integer);
+Procedure TLayersummary.SetdataCount(AIndex : Integer; const AValue : integer);
begin
If (FdataCount=AValue) then exit;
@@ -5811,7 +6518,7 @@ end;
-Procedure TLayersummary.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TLayersummary.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -5918,7 +6625,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMetadata.Setitems(AIndex : Integer; AValue : TMetadataTypeitemsArray);
+Procedure TMetadata.Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -5954,6 +6661,156 @@ end;
{ --------------------------------------------------------------------
+ TNotification
+ --------------------------------------------------------------------}
+
+
+Procedure TNotification.Setbody(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fbody=AValue) then exit;
+ Fbody:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.SetcrmExperimentIds(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FcrmExperimentIds=AValue) then exit;
+ FcrmExperimentIds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.Setdoc_id(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdoc_id=AValue) then exit;
+ Fdoc_id:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.Setdoc_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdoc_type=AValue) then exit;
+ Fdoc_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.Setdont_show_notification(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fdont_show_notification=AValue) then exit;
+ Fdont_show_notification:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.SeticonUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FiconUrl=AValue) then exit;
+ FiconUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.Setnotification_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fnotification_type=AValue) then exit;
+ Fnotification_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.Setpcampaign_id(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fpcampaign_id=AValue) then exit;
+ Fpcampaign_id:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.Setshow_notification_settings_action(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fshow_notification_settings_action=AValue) then exit;
+ Fshow_notification_settings_action:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.SettargetUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtargetUrl=AValue) then exit;
+ FtargetUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotification.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TNotification.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'crmexperimentids' : SetLength(FcrmExperimentIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TOffersTypeitemsItemTypeitemsItem
--------------------------------------------------------------------}
@@ -6055,7 +6912,7 @@ end;
-Procedure TOffersTypeitemsItem.Setitems(AIndex : Integer; AValue : TOffersTypeitemsItemTypeitemsArray);
+Procedure TOffersTypeitemsItem.Setitems(AIndex : Integer; const AValue : TOffersTypeitemsItemTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6085,7 +6942,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOffers.Setitems(AIndex : Integer; AValue : TOffersTypeitemsArray);
+Procedure TOffers.Setitems(AIndex : Integer; const AValue : TOffersTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6175,7 +7032,7 @@ end;
-Procedure TReadingPosition.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TReadingPosition.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -6202,7 +7059,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRequestAccess.SetconcurrentAccess(AIndex : Integer; AValue : TConcurrentAccessRestriction);
+Procedure TRequestAccess.SetconcurrentAccess(AIndex : Integer; const AValue : TConcurrentAccessRestriction);
begin
If (FconcurrentAccess=AValue) then exit;
@@ -6212,7 +7069,7 @@ end;
-Procedure TRequestAccess.SetdownloadAccess(AIndex : Integer; AValue : TDownloadAccessRestriction);
+Procedure TRequestAccess.SetdownloadAccess(AIndex : Integer; const AValue : TDownloadAccessRestriction);
begin
If (FdownloadAccess=AValue) then exit;
@@ -6293,7 +7150,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReview.Setauthor(AIndex : Integer; AValue : TReviewTypeauthor);
+Procedure TReview.Setauthor(AIndex : Integer; const AValue : TReviewTypeauthor);
begin
If (Fauthor=AValue) then exit;
@@ -6353,7 +7210,7 @@ end;
-Procedure TReview.Setsource(AIndex : Integer; AValue : TReviewTypesource);
+Procedure TReview.Setsource(AIndex : Integer; const AValue : TReviewTypesource);
begin
If (Fsource=AValue) then exit;
@@ -6407,6 +7264,153 @@ end;
{ --------------------------------------------------------------------
+ TSeriesTypeseriesItem
+ --------------------------------------------------------------------}
+
+
+Procedure TSeriesTypeseriesItem.SetbannerImageUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbannerImageUrl=AValue) then exit;
+ FbannerImageUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSeriesTypeseriesItem.SetimageUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FimageUrl=AValue) then exit;
+ FimageUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSeriesTypeseriesItem.SetseriesId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseriesId=AValue) then exit;
+ FseriesId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSeriesTypeseriesItem.SetseriesType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseriesType=AValue) then exit;
+ FseriesType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSeriesTypeseriesItem.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSeries
+ --------------------------------------------------------------------}
+
+
+Procedure TSeries.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSeries.Setseries(AIndex : Integer; const AValue : TSeriesTypeseriesArray);
+
+begin
+ If (Fseries=AValue) then exit;
+ Fseries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSeries.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'series' : SetLength(Fseries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSeriesmembership
+ --------------------------------------------------------------------}
+
+
+Procedure TSeriesmembership.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSeriesmembership.Setmember(AIndex : Integer; const AValue : TSeriesmembershipTypememberArray);
+
+begin
+ If (Fmember=AValue) then exit;
+ Fmember:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSeriesmembership.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 TSeriesmembership.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'member' : SetLength(Fmember,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TUsersettingsTypenotesExport
--------------------------------------------------------------------}
@@ -6421,7 +7425,7 @@ end;
-Procedure TUsersettingsTypenotesExport.SetisEnabled(AIndex : Integer; AValue : boolean);
+Procedure TUsersettingsTypenotesExport.SetisEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FisEnabled=AValue) then exit;
@@ -6434,6 +7438,40 @@ end;
{ --------------------------------------------------------------------
+ TUsersettingsTypenotificationTypemoreFromAuthors
+ --------------------------------------------------------------------}
+
+
+Procedure TUsersettingsTypenotificationTypemoreFromAuthors.Setopted_state(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fopted_state=AValue) then exit;
+ Fopted_state:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUsersettingsTypenotification
+ --------------------------------------------------------------------}
+
+
+Procedure TUsersettingsTypenotification.SetmoreFromAuthors(AIndex : Integer; const AValue : TUsersettingsTypenotificationTypemoreFromAuthors);
+
+begin
+ If (FmoreFromAuthors=AValue) then exit;
+ FmoreFromAuthors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TUsersettings
--------------------------------------------------------------------}
@@ -6448,7 +7486,7 @@ end;
-Procedure TUsersettings.SetnotesExport(AIndex : Integer; AValue : TUsersettingsTypenotesExport);
+Procedure TUsersettings.SetnotesExport(AIndex : Integer; const AValue : TUsersettingsTypenotesExport);
begin
If (FnotesExport=AValue) then exit;
@@ -6458,6 +7496,16 @@ end;
+Procedure TUsersettings.Setnotification(AIndex : Integer; const AValue : TUsersettingsTypenotification);
+
+begin
+ If (Fnotification=AValue) then exit;
+ Fnotification:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -6485,7 +7533,7 @@ end;
-Procedure TVolumeTypeaccessInfoTypeepub.SetisAvailable(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypeaccessInfoTypeepub.SetisAvailable(AIndex : Integer; const AValue : boolean);
begin
If (FisAvailable=AValue) then exit;
@@ -6522,7 +7570,7 @@ end;
-Procedure TVolumeTypeaccessInfoTypepdf.SetisAvailable(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypeaccessInfoTypepdf.SetisAvailable(AIndex : Integer; const AValue : boolean);
begin
If (FisAvailable=AValue) then exit;
@@ -6559,7 +7607,7 @@ end;
-Procedure TVolumeTypeaccessInfo.SetdownloadAccess(AIndex : Integer; AValue : TDownloadAccessRestriction);
+Procedure TVolumeTypeaccessInfo.SetdownloadAccess(AIndex : Integer; const AValue : TDownloadAccessRestriction);
begin
If (FdownloadAccess=AValue) then exit;
@@ -6579,7 +7627,7 @@ end;
-Procedure TVolumeTypeaccessInfo.Setembeddable(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypeaccessInfo.Setembeddable(AIndex : Integer; const AValue : boolean);
begin
If (Fembeddable=AValue) then exit;
@@ -6589,7 +7637,7 @@ end;
-Procedure TVolumeTypeaccessInfo.Setepub(AIndex : Integer; AValue : TVolumeTypeaccessInfoTypeepub);
+Procedure TVolumeTypeaccessInfo.Setepub(AIndex : Integer; const AValue : TVolumeTypeaccessInfoTypeepub);
begin
If (Fepub=AValue) then exit;
@@ -6599,7 +7647,7 @@ end;
-Procedure TVolumeTypeaccessInfo.SetexplicitOfflineLicenseManagement(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypeaccessInfo.SetexplicitOfflineLicenseManagement(AIndex : Integer; const AValue : boolean);
begin
If (FexplicitOfflineLicenseManagement=AValue) then exit;
@@ -6609,7 +7657,7 @@ end;
-Procedure TVolumeTypeaccessInfo.Setpdf(AIndex : Integer; AValue : TVolumeTypeaccessInfoTypepdf);
+Procedure TVolumeTypeaccessInfo.Setpdf(AIndex : Integer; const AValue : TVolumeTypeaccessInfoTypepdf);
begin
If (Fpdf=AValue) then exit;
@@ -6619,7 +7667,7 @@ end;
-Procedure TVolumeTypeaccessInfo.SetpublicDomain(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypeaccessInfo.SetpublicDomain(AIndex : Integer; const AValue : boolean);
begin
If (FpublicDomain=AValue) then exit;
@@ -6629,7 +7677,7 @@ end;
-Procedure TVolumeTypeaccessInfo.SetquoteSharingAllowed(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypeaccessInfo.SetquoteSharingAllowed(AIndex : Integer; const AValue : boolean);
begin
If (FquoteSharingAllowed=AValue) then exit;
@@ -6713,7 +7761,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeTypelayerInfo.Setlayers(AIndex : Integer; AValue : TVolumeTypelayerInfoTypelayersArray);
+Procedure TVolumeTypelayerInfo.Setlayers(AIndex : Integer; const AValue : TVolumeTypelayerInfoTypelayersArray);
begin
If (Flayers=AValue) then exit;
@@ -6760,7 +7808,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeTypesaleInfoTypelistPrice.Setamount(AIndex : Integer; AValue : double);
+Procedure TVolumeTypesaleInfoTypelistPrice.Setamount(AIndex : Integer; const AValue : double);
begin
If (Famount=AValue) then exit;
@@ -6787,7 +7835,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeTypesaleInfoTypeoffersItemTypelistPrice.SetamountInMicros(AIndex : Integer; AValue : double);
+Procedure TVolumeTypesaleInfoTypeoffersItemTypelistPrice.SetamountInMicros(AIndex : Integer; const AValue : double);
begin
If (FamountInMicros=AValue) then exit;
@@ -6814,7 +7862,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeTypesaleInfoTypeoffersItemTyperentalDuration.Setcount(AIndex : Integer; AValue : double);
+Procedure TVolumeTypesaleInfoTypeoffersItemTyperentalDuration.Setcount(AIndex : Integer; const AValue : double);
begin
If (Fcount=AValue) then exit;
@@ -6852,7 +7900,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeTypesaleInfoTypeoffersItemTyperetailPrice.SetamountInMicros(AIndex : Integer; AValue : double);
+Procedure TVolumeTypesaleInfoTypeoffersItemTyperetailPrice.SetamountInMicros(AIndex : Integer; const AValue : double);
begin
If (FamountInMicros=AValue) then exit;
@@ -6879,7 +7927,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeTypesaleInfoTypeoffersItem.SetfinskyOfferType(AIndex : Integer; AValue : integer);
+Procedure TVolumeTypesaleInfoTypeoffersItem.SetfinskyOfferType(AIndex : Integer; const AValue : integer);
begin
If (FfinskyOfferType=AValue) then exit;
@@ -6889,7 +7937,7 @@ end;
-Procedure TVolumeTypesaleInfoTypeoffersItem.SetlistPrice(AIndex : Integer; AValue : TVolumeTypesaleInfoTypeoffersItemTypelistPrice);
+Procedure TVolumeTypesaleInfoTypeoffersItem.SetlistPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTypelistPrice);
begin
If (FlistPrice=AValue) then exit;
@@ -6899,7 +7947,7 @@ end;
-Procedure TVolumeTypesaleInfoTypeoffersItem.SetrentalDuration(AIndex : Integer; AValue : TVolumeTypesaleInfoTypeoffersItemTyperentalDuration);
+Procedure TVolumeTypesaleInfoTypeoffersItem.SetrentalDuration(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTyperentalDuration);
begin
If (FrentalDuration=AValue) then exit;
@@ -6909,7 +7957,7 @@ end;
-Procedure TVolumeTypesaleInfoTypeoffersItem.SetretailPrice(AIndex : Integer; AValue : TVolumeTypesaleInfoTypeoffersItemTyperetailPrice);
+Procedure TVolumeTypesaleInfoTypeoffersItem.SetretailPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersItemTyperetailPrice);
begin
If (FretailPrice=AValue) then exit;
@@ -6926,7 +7974,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeTypesaleInfoTyperetailPrice.Setamount(AIndex : Integer; AValue : double);
+Procedure TVolumeTypesaleInfoTyperetailPrice.Setamount(AIndex : Integer; const AValue : double);
begin
If (Famount=AValue) then exit;
@@ -6973,7 +8021,7 @@ end;
-Procedure TVolumeTypesaleInfo.SetisEbook(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypesaleInfo.SetisEbook(AIndex : Integer; const AValue : boolean);
begin
If (FisEbook=AValue) then exit;
@@ -6983,7 +8031,7 @@ end;
-Procedure TVolumeTypesaleInfo.SetlistPrice(AIndex : Integer; AValue : TVolumeTypesaleInfoTypelistPrice);
+Procedure TVolumeTypesaleInfo.SetlistPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypelistPrice);
begin
If (FlistPrice=AValue) then exit;
@@ -6993,7 +8041,7 @@ end;
-Procedure TVolumeTypesaleInfo.Setoffers(AIndex : Integer; AValue : TVolumeTypesaleInfoTypeoffersArray);
+Procedure TVolumeTypesaleInfo.Setoffers(AIndex : Integer; const AValue : TVolumeTypesaleInfoTypeoffersArray);
begin
If (Foffers=AValue) then exit;
@@ -7003,7 +8051,7 @@ end;
-Procedure TVolumeTypesaleInfo.SetonSaleDate(AIndex : Integer; AValue : TDatetime);
+Procedure TVolumeTypesaleInfo.SetonSaleDate(AIndex : Integer; const AValue : TDatetime);
begin
If (FonSaleDate=AValue) then exit;
@@ -7013,7 +8061,7 @@ end;
-Procedure TVolumeTypesaleInfo.SetretailPrice(AIndex : Integer; AValue : TVolumeTypesaleInfoTyperetailPrice);
+Procedure TVolumeTypesaleInfo.SetretailPrice(AIndex : Integer; const AValue : TVolumeTypesaleInfoTyperetailPrice);
begin
If (FretailPrice=AValue) then exit;
@@ -7070,7 +8118,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeTypeuserInfoTypecopy.SetallowedCharacterCount(AIndex : Integer; AValue : integer);
+Procedure TVolumeTypeuserInfoTypecopy.SetallowedCharacterCount(AIndex : Integer; const AValue : integer);
begin
If (FallowedCharacterCount=AValue) then exit;
@@ -7090,7 +8138,7 @@ end;
-Procedure TVolumeTypeuserInfoTypecopy.SetremainingCharacterCount(AIndex : Integer; AValue : integer);
+Procedure TVolumeTypeuserInfoTypecopy.SetremainingCharacterCount(AIndex : Integer; const AValue : integer);
begin
If (FremainingCharacterCount=AValue) then exit;
@@ -7100,7 +8148,7 @@ end;
-Procedure TVolumeTypeuserInfoTypecopy.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TVolumeTypeuserInfoTypecopy.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -7113,6 +8161,43 @@ end;
{ --------------------------------------------------------------------
+ TVolumeTypeuserInfoTypefamilySharing
+ --------------------------------------------------------------------}
+
+
+Procedure TVolumeTypeuserInfoTypefamilySharing.SetfamilyRole(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfamilyRole=AValue) then exit;
+ FfamilyRole:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeTypeuserInfoTypefamilySharing.SetisSharingAllowed(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisSharingAllowed=AValue) then exit;
+ FisSharingAllowed:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeTypeuserInfoTypefamilySharing.SetisSharingDisabledByFop(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisSharingDisabledByFop=AValue) then exit;
+ FisSharingDisabledByFop:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TVolumeTypeuserInfoTyperentalPeriod
--------------------------------------------------------------------}
@@ -7161,7 +8246,27 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeTypeuserInfo.Setcopy(AIndex : Integer; AValue : TVolumeTypeuserInfoTypecopy);
+Procedure TVolumeTypeuserInfo.SetacquiredTime(AIndex : Integer; const AValue : TDatetime);
+
+begin
+ If (FacquiredTime=AValue) then exit;
+ FacquiredTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeTypeuserInfo.SetacquisitionType(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FacquisitionType=AValue) then exit;
+ FacquisitionType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeTypeuserInfo.Setcopy(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypecopy);
begin
If (Fcopy=AValue) then exit;
@@ -7171,7 +8276,67 @@ end;
-Procedure TVolumeTypeuserInfo.SetisInMyBooks(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypeuserInfo.SetentitlementType(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FentitlementType=AValue) then exit;
+ FentitlementType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeTypeuserInfo.SetfamilySharing(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypefamilySharing);
+
+begin
+ If (FfamilySharing=AValue) then exit;
+ FfamilySharing:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeTypeuserInfo.SetisFamilySharedFromUser(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisFamilySharedFromUser=AValue) then exit;
+ FisFamilySharedFromUser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeTypeuserInfo.SetisFamilySharedToUser(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisFamilySharedToUser=AValue) then exit;
+ FisFamilySharedToUser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeTypeuserInfo.SetisFamilySharingAllowed(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisFamilySharingAllowed=AValue) then exit;
+ FisFamilySharingAllowed:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeTypeuserInfo.SetisFamilySharingDisabledByFop(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisFamilySharingDisabledByFop=AValue) then exit;
+ FisFamilySharingDisabledByFop:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeTypeuserInfo.SetisInMyBooks(AIndex : Integer; const AValue : boolean);
begin
If (FisInMyBooks=AValue) then exit;
@@ -7181,7 +8346,7 @@ end;
-Procedure TVolumeTypeuserInfo.SetisPreordered(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypeuserInfo.SetisPreordered(AIndex : Integer; const AValue : boolean);
begin
If (FisPreordered=AValue) then exit;
@@ -7191,7 +8356,7 @@ end;
-Procedure TVolumeTypeuserInfo.SetisPurchased(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypeuserInfo.SetisPurchased(AIndex : Integer; const AValue : boolean);
begin
If (FisPurchased=AValue) then exit;
@@ -7201,7 +8366,7 @@ end;
-Procedure TVolumeTypeuserInfo.SetisUploaded(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypeuserInfo.SetisUploaded(AIndex : Integer; const AValue : boolean);
begin
If (FisUploaded=AValue) then exit;
@@ -7211,7 +8376,7 @@ end;
-Procedure TVolumeTypeuserInfo.SetreadingPosition(AIndex : Integer; AValue : TReadingPosition);
+Procedure TVolumeTypeuserInfo.SetreadingPosition(AIndex : Integer; const AValue : TReadingPosition);
begin
If (FreadingPosition=AValue) then exit;
@@ -7221,7 +8386,7 @@ end;
-Procedure TVolumeTypeuserInfo.SetrentalPeriod(AIndex : Integer; AValue : TVolumeTypeuserInfoTyperentalPeriod);
+Procedure TVolumeTypeuserInfo.SetrentalPeriod(AIndex : Integer; const AValue : TVolumeTypeuserInfoTyperentalPeriod);
begin
If (FrentalPeriod=AValue) then exit;
@@ -7241,7 +8406,7 @@ end;
-Procedure TVolumeTypeuserInfo.Setreview(AIndex : Integer; AValue : TReview);
+Procedure TVolumeTypeuserInfo.Setreview(AIndex : Integer; const AValue : TReview);
begin
If (Freview=AValue) then exit;
@@ -7251,7 +8416,7 @@ end;
-Procedure TVolumeTypeuserInfo.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TVolumeTypeuserInfo.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -7261,7 +8426,7 @@ end;
-Procedure TVolumeTypeuserInfo.SetuserUploadedVolumeInfo(AIndex : Integer; AValue : TVolumeTypeuserInfoTypeuserUploadedVolumeInfo);
+Procedure TVolumeTypeuserInfo.SetuserUploadedVolumeInfo(AIndex : Integer; const AValue : TVolumeTypeuserInfoTypeuserUploadedVolumeInfo);
begin
If (FuserUploadedVolumeInfo=AValue) then exit;
@@ -7420,7 +8585,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeTypevolumeInfo.SetallowAnonLogging(AIndex : Integer; AValue : boolean);
+Procedure TVolumeTypevolumeInfo.SetallowAnonLogging(AIndex : Integer; const AValue : boolean);
begin
If (FallowAnonLogging=AValue) then exit;
@@ -7430,7 +8595,7 @@ end;
-Procedure TVolumeTypevolumeInfo.Setauthors(AIndex : Integer; AValue : TStringArray);
+Procedure TVolumeTypevolumeInfo.Setauthors(AIndex : Integer; const AValue : TStringArray);
begin
If (Fauthors=AValue) then exit;
@@ -7440,7 +8605,7 @@ end;
-Procedure TVolumeTypevolumeInfo.SetaverageRating(AIndex : Integer; AValue : double);
+Procedure TVolumeTypevolumeInfo.SetaverageRating(AIndex : Integer; const AValue : double);
begin
If (FaverageRating=AValue) then exit;
@@ -7460,7 +8625,7 @@ end;
-Procedure TVolumeTypevolumeInfo.Setcategories(AIndex : Integer; AValue : TStringArray);
+Procedure TVolumeTypevolumeInfo.Setcategories(AIndex : Integer; const AValue : TStringArray);
begin
If (Fcategories=AValue) then exit;
@@ -7490,7 +8655,7 @@ end;
-Procedure TVolumeTypevolumeInfo.Setdimensions(AIndex : Integer; AValue : TVolumeTypevolumeInfoTypedimensions);
+Procedure TVolumeTypevolumeInfo.Setdimensions(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypedimensions);
begin
If (Fdimensions=AValue) then exit;
@@ -7500,7 +8665,7 @@ end;
-Procedure TVolumeTypevolumeInfo.SetimageLinks(AIndex : Integer; AValue : TVolumeTypevolumeInfoTypeimageLinks);
+Procedure TVolumeTypevolumeInfo.SetimageLinks(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypeimageLinks);
begin
If (FimageLinks=AValue) then exit;
@@ -7510,7 +8675,7 @@ end;
-Procedure TVolumeTypevolumeInfo.SetindustryIdentifiers(AIndex : Integer; AValue : TVolumeTypevolumeInfoTypeindustryIdentifiersArray);
+Procedure TVolumeTypevolumeInfo.SetindustryIdentifiers(AIndex : Integer; const AValue : TVolumeTypevolumeInfoTypeindustryIdentifiersArray);
begin
If (FindustryIdentifiers=AValue) then exit;
@@ -7560,7 +8725,7 @@ end;
-Procedure TVolumeTypevolumeInfo.SetpageCount(AIndex : Integer; AValue : integer);
+Procedure TVolumeTypevolumeInfo.SetpageCount(AIndex : Integer; const AValue : integer);
begin
If (FpageCount=AValue) then exit;
@@ -7590,7 +8755,7 @@ end;
-Procedure TVolumeTypevolumeInfo.SetprintedPageCount(AIndex : Integer; AValue : integer);
+Procedure TVolumeTypevolumeInfo.SetprintedPageCount(AIndex : Integer; const AValue : integer);
begin
If (FprintedPageCount=AValue) then exit;
@@ -7620,7 +8785,7 @@ end;
-Procedure TVolumeTypevolumeInfo.SetratingsCount(AIndex : Integer; AValue : integer);
+Procedure TVolumeTypevolumeInfo.SetratingsCount(AIndex : Integer; const AValue : integer);
begin
If (FratingsCount=AValue) then exit;
@@ -7630,7 +8795,7 @@ end;
-Procedure TVolumeTypevolumeInfo.SetreadingModes(AIndex : Integer; AValue : TJSONSchema);
+Procedure TVolumeTypevolumeInfo.SetreadingModes(AIndex : Integer; const AValue : TJSONSchema);
begin
If (FreadingModes=AValue) then exit;
@@ -7640,7 +8805,7 @@ end;
-Procedure TVolumeTypevolumeInfo.SetsamplePageCount(AIndex : Integer; AValue : integer);
+Procedure TVolumeTypevolumeInfo.SetsamplePageCount(AIndex : Integer; const AValue : integer);
begin
If (FsamplePageCount=AValue) then exit;
@@ -7650,6 +8815,16 @@ end;
+Procedure TVolumeTypevolumeInfo.SetseriesInfo(AIndex : Integer; const AValue : TVolumeseriesinfo);
+
+begin
+ If (FseriesInfo=AValue) then exit;
+ FseriesInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TVolumeTypevolumeInfo.Setsubtitle(AIndex : Integer; const AValue : String);
begin
@@ -7692,7 +8867,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolume.SetaccessInfo(AIndex : Integer; AValue : TVolumeTypeaccessInfo);
+Procedure TVolume.SetaccessInfo(AIndex : Integer; const AValue : TVolumeTypeaccessInfo);
begin
If (FaccessInfo=AValue) then exit;
@@ -7732,7 +8907,7 @@ end;
-Procedure TVolume.SetlayerInfo(AIndex : Integer; AValue : TVolumeTypelayerInfo);
+Procedure TVolume.SetlayerInfo(AIndex : Integer; const AValue : TVolumeTypelayerInfo);
begin
If (FlayerInfo=AValue) then exit;
@@ -7742,7 +8917,7 @@ end;
-Procedure TVolume.SetrecommendedInfo(AIndex : Integer; AValue : TVolumeTyperecommendedInfo);
+Procedure TVolume.SetrecommendedInfo(AIndex : Integer; const AValue : TVolumeTyperecommendedInfo);
begin
If (FrecommendedInfo=AValue) then exit;
@@ -7752,7 +8927,7 @@ end;
-Procedure TVolume.SetsaleInfo(AIndex : Integer; AValue : TVolumeTypesaleInfo);
+Procedure TVolume.SetsaleInfo(AIndex : Integer; const AValue : TVolumeTypesaleInfo);
begin
If (FsaleInfo=AValue) then exit;
@@ -7762,7 +8937,7 @@ end;
-Procedure TVolume.SetsearchInfo(AIndex : Integer; AValue : TVolumeTypesearchInfo);
+Procedure TVolume.SetsearchInfo(AIndex : Integer; const AValue : TVolumeTypesearchInfo);
begin
If (FsearchInfo=AValue) then exit;
@@ -7782,7 +8957,7 @@ end;
-Procedure TVolume.SetuserInfo(AIndex : Integer; AValue : TVolumeTypeuserInfo);
+Procedure TVolume.SetuserInfo(AIndex : Integer; const AValue : TVolumeTypeuserInfo);
begin
If (FuserInfo=AValue) then exit;
@@ -7792,7 +8967,7 @@ end;
-Procedure TVolume.SetvolumeInfo(AIndex : Integer; AValue : TVolumeTypevolumeInfo);
+Procedure TVolume.SetvolumeInfo(AIndex : Integer; const AValue : TVolumeTypevolumeInfo);
begin
If (FvolumeInfo=AValue) then exit;
@@ -7809,7 +8984,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolume2.Setitems(AIndex : Integer; AValue : TVolume2TypeitemsArray);
+Procedure TVolume2.Setitems(AIndex : Integer; const AValue : TVolume2TypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -7859,7 +9034,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeannotationTypecontentRanges.SetcfiRange(AIndex : Integer; AValue : TBooksAnnotationsRange);
+Procedure TVolumeannotationTypecontentRanges.SetcfiRange(AIndex : Integer; const AValue : TBooksAnnotationsRange);
begin
If (FcfiRange=AValue) then exit;
@@ -7879,7 +9054,7 @@ end;
-Procedure TVolumeannotationTypecontentRanges.SetgbImageRange(AIndex : Integer; AValue : TBooksAnnotationsRange);
+Procedure TVolumeannotationTypecontentRanges.SetgbImageRange(AIndex : Integer; const AValue : TBooksAnnotationsRange);
begin
If (FgbImageRange=AValue) then exit;
@@ -7889,7 +9064,7 @@ end;
-Procedure TVolumeannotationTypecontentRanges.SetgbTextRange(AIndex : Integer; AValue : TBooksAnnotationsRange);
+Procedure TVolumeannotationTypecontentRanges.SetgbTextRange(AIndex : Integer; const AValue : TBooksAnnotationsRange);
begin
If (FgbTextRange=AValue) then exit;
@@ -7936,7 +9111,7 @@ end;
-Procedure TVolumeannotation.SetcontentRanges(AIndex : Integer; AValue : TVolumeannotationTypecontentRanges);
+Procedure TVolumeannotation.SetcontentRanges(AIndex : Integer; const AValue : TVolumeannotationTypecontentRanges);
begin
If (FcontentRanges=AValue) then exit;
@@ -7956,7 +9131,7 @@ end;
-Procedure TVolumeannotation.Setdeleted(AIndex : Integer; AValue : boolean);
+Procedure TVolumeannotation.Setdeleted(AIndex : Integer; const AValue : boolean);
begin
If (Fdeleted=AValue) then exit;
@@ -7996,7 +9171,7 @@ end;
-Procedure TVolumeannotation.SetpageIds(AIndex : Integer; AValue : TStringArray);
+Procedure TVolumeannotation.SetpageIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FpageIds=AValue) then exit;
@@ -8026,7 +9201,7 @@ end;
-Procedure TVolumeannotation.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TVolumeannotation.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -8066,7 +9241,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumeannotations.Setitems(AIndex : Integer; AValue : TVolumeannotationsTypeitemsArray);
+Procedure TVolumeannotations.Setitems(AIndex : Integer; const AValue : TVolumeannotationsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -8096,7 +9271,7 @@ end;
-Procedure TVolumeannotations.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TVolumeannotations.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -8136,7 +9311,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVolumes.Setitems(AIndex : Integer; AValue : TVolumesTypeitemsArray);
+Procedure TVolumes.Setitems(AIndex : Integer; const AValue : TVolumesTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -8156,7 +9331,7 @@ end;
-Procedure TVolumes.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TVolumes.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -8182,6 +9357,153 @@ end;
{ --------------------------------------------------------------------
+ TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem
+ --------------------------------------------------------------------}
+
+
+Procedure TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem.SetissueDisplayNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FissueDisplayNumber=AValue) then exit;
+ FissueDisplayNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem.SetissueOrderNumber(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FissueOrderNumber=AValue) then exit;
+ FissueOrderNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TVolumeseriesinfoTypevolumeSeriesItem
+ --------------------------------------------------------------------}
+
+
+Procedure TVolumeseriesinfoTypevolumeSeriesItem.Setissue(AIndex : Integer; const AValue : TVolumeseriesinfoTypevolumeSeriesItemTypeissueArray);
+
+begin
+ If (Fissue=AValue) then exit;
+ Fissue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeseriesinfoTypevolumeSeriesItem.SetorderNumber(AIndex : Integer; const AValue : integer);
+
+begin
+ If (ForderNumber=AValue) then exit;
+ ForderNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeseriesinfoTypevolumeSeriesItem.SetseriesBookType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseriesBookType=AValue) then exit;
+ FseriesBookType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeseriesinfoTypevolumeSeriesItem.SetseriesId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseriesId=AValue) then exit;
+ FseriesId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TVolumeseriesinfoTypevolumeSeriesItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'issue' : SetLength(Fissue,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TVolumeseriesinfo
+ --------------------------------------------------------------------}
+
+
+Procedure TVolumeseriesinfo.SetbookDisplayNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbookDisplayNumber=AValue) then exit;
+ FbookDisplayNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeseriesinfo.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeseriesinfo.SetshortSeriesBookTitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshortSeriesBookTitle=AValue) then exit;
+ FshortSeriesBookTitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVolumeseriesinfo.SetvolumeSeries(AIndex : Integer; const AValue : TVolumeseriesinfoTypevolumeSeriesArray);
+
+begin
+ If (FvolumeSeries=AValue) then exit;
+ FvolumeSeries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TVolumeseriesinfo.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'volumeseries' : SetLength(FvolumeSeries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TBookshelvesVolumesResource
--------------------------------------------------------------------}
@@ -8851,6 +10173,7 @@ begin
_Q:='';
AddToQuery(_Q,'cpksver',AQuery.cpksver);
AddToQuery(_Q,'features',AQuery.features);
+ AddToQuery(_Q,'includeNonComicsSeries',AQuery.includeNonComicsSeries);
AddToQuery(_Q,'locale',AQuery.locale);
AddToQuery(_Q,'nonce',AQuery.nonce);
AddToQuery(_Q,'showPreorders',AQuery.showPreorders);
@@ -9480,6 +10803,50 @@ end;
{ --------------------------------------------------------------------
+ TNotificationResource
+ --------------------------------------------------------------------}
+
+
+Class Function TNotificationResource.ResourceName : String;
+
+begin
+ Result:='notification';
+end;
+
+Class Function TNotificationResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TbooksAPI;
+end;
+
+Function TNotificationResource.Get(AQuery : string = '') : TNotification;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'notification/get';
+ _Methodid = 'books.notification.get';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TNotification) as TNotification;
+end;
+
+
+Function TNotificationResource.Get(AQuery : TNotificationgetOptions) : TNotification;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'locale',AQuery.locale);
+ AddToQuery(_Q,'notification_id',AQuery.notification_id);
+ AddToQuery(_Q,'source',AQuery.source);
+ Result:=Get(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
TOnboardingResource
--------------------------------------------------------------------}
@@ -9549,6 +10916,50 @@ end;
{ --------------------------------------------------------------------
+ TPersonalizedstreamResource
+ --------------------------------------------------------------------}
+
+
+Class Function TPersonalizedstreamResource.ResourceName : String;
+
+begin
+ Result:='personalizedstream';
+end;
+
+Class Function TPersonalizedstreamResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TbooksAPI;
+end;
+
+Function TPersonalizedstreamResource.Get(AQuery : string = '') : TDiscoveryclusters;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'personalizedstream/get';
+ _Methodid = 'books.personalizedstream.get';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TDiscoveryclusters) as TDiscoveryclusters;
+end;
+
+
+Function TPersonalizedstreamResource.Get(AQuery : TPersonalizedstreamgetOptions) : TDiscoveryclusters;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'locale',AQuery.locale);
+ AddToQuery(_Q,'maxAllowedMaturityRating',AQuery.maxAllowedMaturityRating);
+ AddToQuery(_Q,'source',AQuery.source);
+ Result:=Get(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
TPromoofferResource
--------------------------------------------------------------------}
@@ -9655,6 +11066,116 @@ end;
{ --------------------------------------------------------------------
+ TSeriesMembershipResource
+ --------------------------------------------------------------------}
+
+
+Class Function TSeriesMembershipResource.ResourceName : String;
+
+begin
+ Result:='membership';
+end;
+
+Class Function TSeriesMembershipResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TbooksAPI;
+end;
+
+Function TSeriesMembershipResource.Get(AQuery : string = '') : TSeriesmembership;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'series/membership/get';
+ _Methodid = 'books.series.membership.get';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSeriesmembership) as TSeriesmembership;
+end;
+
+
+Function TSeriesMembershipResource.Get(AQuery : TSeriesMembershipgetOptions) : TSeriesmembership;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'page_size',AQuery.page_size);
+ AddToQuery(_Q,'page_token',AQuery.page_token);
+ AddToQuery(_Q,'series_id',AQuery.series_id);
+ Result:=Get(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSeriesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TSeriesResource.ResourceName : String;
+
+begin
+ Result:='series';
+end;
+
+Class Function TSeriesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TbooksAPI;
+end;
+
+Function TSeriesResource.Get(AQuery : string = '') : TSeries;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'series/get';
+ _Methodid = 'books.series.get';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSeries) as TSeries;
+end;
+
+
+Function TSeriesResource.Get(AQuery : TSeriesgetOptions) : TSeries;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'series_id',AQuery.series_id);
+ Result:=Get(_Q);
+end;
+
+
+
+Function TSeriesResource.GetMembershipInstance : TSeriesMembershipResource;
+
+begin
+ if (FMembershipInstance=Nil) then
+ FMembershipInstance:=CreateMembershipResource;
+ Result:=FMembershipInstance;
+end;
+
+Function TSeriesResource.CreateMembershipResource : TSeriesMembershipResource;
+
+begin
+ Result:=CreateMembershipResource(Self);
+end;
+
+
+Function TSeriesResource.CreateMembershipResource(AOwner : TComponent) : TSeriesMembershipResource;
+
+begin
+ Result:=TSeriesMembershipResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
TVolumesAssociatedResource
--------------------------------------------------------------------}
@@ -9740,6 +11261,7 @@ Var
begin
_Q:='';
AddToQuery(_Q,'acquireMethod',AQuery.acquireMethod);
+ AddToQuery(_Q,'country',AQuery.country);
AddToQuery(_Q,'locale',AQuery.locale);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'processingState',AQuery.processingState);
@@ -9908,6 +11430,7 @@ Var
begin
_Q:='';
AddToQuery(_Q,'country',AQuery.country);
+ AddToQuery(_Q,'includeNonComicsSeries',AQuery.includeNonComicsSeries);
AddToQuery(_Q,'partner',AQuery.partner);
AddToQuery(_Q,'projection',AQuery.projection);
AddToQuery(_Q,'source',AQuery.source);
@@ -10067,7 +11590,7 @@ end;
Class Function TBooksAPI.APIRevision : String;
begin
- Result:='20150318';
+ Result:='20160411';
end;
Class Function TBooksAPI.APIID : String;
@@ -10121,7 +11644,7 @@ end;
Class Function TBooksAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TBooksAPI.APIbasePath : string;
@@ -10133,7 +11656,7 @@ end;
Class Function TBooksAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/books/v1/';
+ Result:='https://www.googleapis.com/books/v1/';
end;
Class Function TBooksAPI.APIProtocol : string;
@@ -10207,6 +11730,9 @@ begin
TDictlayerdataTypedictTypewordsItem.RegisterObject;
TDictlayerdataTypedict.RegisterObject;
TDictlayerdata.RegisterObject;
+ TDiscoveryclustersTypeclustersItemTypebanner_with_content_container.RegisterObject;
+ TDiscoveryclustersTypeclustersItem.RegisterObject;
+ TDiscoveryclusters.RegisterObject;
TDownloadAccessRestriction.RegisterObject;
TDownloadAccesses.RegisterObject;
TGeolayerdataTypecommon.RegisterObject;
@@ -10220,6 +11746,7 @@ begin
TLayersummary.RegisterObject;
TMetadataTypeitemsItem.RegisterObject;
TMetadata.RegisterObject;
+ TNotification.RegisterObject;
TOffersTypeitemsItemTypeitemsItem.RegisterObject;
TOffersTypeitemsItem.RegisterObject;
TOffers.RegisterObject;
@@ -10228,7 +11755,12 @@ begin
TReviewTypeauthor.RegisterObject;
TReviewTypesource.RegisterObject;
TReview.RegisterObject;
+ TSeriesTypeseriesItem.RegisterObject;
+ TSeries.RegisterObject;
+ TSeriesmembership.RegisterObject;
TUsersettingsTypenotesExport.RegisterObject;
+ TUsersettingsTypenotificationTypemoreFromAuthors.RegisterObject;
+ TUsersettingsTypenotification.RegisterObject;
TUsersettings.RegisterObject;
TVolumeTypeaccessInfoTypeepub.RegisterObject;
TVolumeTypeaccessInfoTypepdf.RegisterObject;
@@ -10245,6 +11777,7 @@ begin
TVolumeTypesaleInfo.RegisterObject;
TVolumeTypesearchInfo.RegisterObject;
TVolumeTypeuserInfoTypecopy.RegisterObject;
+ TVolumeTypeuserInfoTypefamilySharing.RegisterObject;
TVolumeTypeuserInfoTyperentalPeriod.RegisterObject;
TVolumeTypeuserInfoTypeuserUploadedVolumeInfo.RegisterObject;
TVolumeTypeuserInfo.RegisterObject;
@@ -10258,6 +11791,9 @@ begin
TVolumeannotation.RegisterObject;
TVolumeannotations.RegisterObject;
TVolumes.RegisterObject;
+ TVolumeseriesinfoTypevolumeSeriesItemTypeissueItem.RegisterObject;
+ TVolumeseriesinfoTypevolumeSeriesItem.RegisterObject;
+ TVolumeseriesinfo.RegisterObject;
end;
@@ -10573,6 +12109,30 @@ end;
+Function TBooksAPI.GetNotificationInstance : TNotificationResource;
+
+begin
+ if (FNotificationInstance=Nil) then
+ FNotificationInstance:=CreateNotificationResource;
+ Result:=FNotificationInstance;
+end;
+
+Function TBooksAPI.CreateNotificationResource : TNotificationResource;
+
+begin
+ Result:=CreateNotificationResource(Self);
+end;
+
+
+Function TBooksAPI.CreateNotificationResource(AOwner : TComponent) : TNotificationResource;
+
+begin
+ Result:=TNotificationResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TBooksAPI.GetOnboardingInstance : TOnboardingResource;
begin
@@ -10597,6 +12157,30 @@ end;
+Function TBooksAPI.GetPersonalizedstreamInstance : TPersonalizedstreamResource;
+
+begin
+ if (FPersonalizedstreamInstance=Nil) then
+ FPersonalizedstreamInstance:=CreatePersonalizedstreamResource;
+ Result:=FPersonalizedstreamInstance;
+end;
+
+Function TBooksAPI.CreatePersonalizedstreamResource : TPersonalizedstreamResource;
+
+begin
+ Result:=CreatePersonalizedstreamResource(Self);
+end;
+
+
+Function TBooksAPI.CreatePersonalizedstreamResource(AOwner : TComponent) : TPersonalizedstreamResource;
+
+begin
+ Result:=TPersonalizedstreamResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TBooksAPI.GetPromoofferInstance : TPromoofferResource;
begin
@@ -10621,6 +12205,54 @@ end;
+Function TBooksAPI.GetSeriesMembershipInstance : TSeriesMembershipResource;
+
+begin
+ if (FSeriesMembershipInstance=Nil) then
+ FSeriesMembershipInstance:=CreateSeriesMembershipResource;
+ Result:=FSeriesMembershipInstance;
+end;
+
+Function TBooksAPI.CreateSeriesMembershipResource : TSeriesMembershipResource;
+
+begin
+ Result:=CreateSeriesMembershipResource(Self);
+end;
+
+
+Function TBooksAPI.CreateSeriesMembershipResource(AOwner : TComponent) : TSeriesMembershipResource;
+
+begin
+ Result:=TSeriesMembershipResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TBooksAPI.GetSeriesInstance : TSeriesResource;
+
+begin
+ if (FSeriesInstance=Nil) then
+ FSeriesInstance:=CreateSeriesResource;
+ Result:=FSeriesInstance;
+end;
+
+Function TBooksAPI.CreateSeriesResource : TSeriesResource;
+
+begin
+ Result:=CreateSeriesResource(Self);
+end;
+
+
+Function TBooksAPI.CreateSeriesResource(AOwner : TComponent) : TSeriesResource;
+
+begin
+ Result:=TSeriesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TBooksAPI.GetVolumesAssociatedInstance : TVolumesAssociatedResource;
begin
diff --git a/packages/googleapi/src/googlecalendar.pp b/packages/googleapi/src/googlecalendar.pp
index 3941126dd7..c17c9a8524 100644
--- a/packages/googleapi/src/googlecalendar.pp
+++ b/packages/googleapi/src/googlecalendar.pp
@@ -1,19 +1,4 @@
unit googlecalendar;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:52:59
{$MODE objfpc}
{$H+}
@@ -93,6 +78,7 @@ type
TCalendarListTypeitemsArray = Array of TCalendarListEntry;
TCalendarListEntryTypedefaultRemindersArray = Array of TEventReminder;
TCalendarListEntryTypenotificationSettingsTypenotificationsArray = Array of TCalendarNotification;
+ TEventTypeattachmentsArray = Array of TEventAttachment;
TEventTypeattendeesArray = Array of TEventAttendee;
TEventTyperemindersTypeoverridesArray = Array of TEventReminder;
TEventsTypedefaultRemindersArray = Array of TEventReminder;
@@ -117,7 +103,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAclTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextSyncToken(AIndex : Integer; const AValue : String); virtual;
@@ -172,7 +158,7 @@ type
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
- Procedure Setscope(AIndex : Integer; AValue : TAclRuleTypescope); virtual;
+ Procedure Setscope(AIndex : Integer; const AValue : TAclRuleTypescope); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -231,7 +217,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TCalendarListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCalendarListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextSyncToken(AIndex : Integer; const AValue : String); virtual;
@@ -258,7 +244,7 @@ type
Fnotifications : TCalendarListEntryTypenotificationSettingsTypenotificationsArray;
Protected
//Property setters
- Procedure Setnotifications(AIndex : Integer; AValue : TCalendarListEntryTypenotificationSettingsTypenotificationsArray); virtual;
+ Procedure Setnotifications(AIndex : Integer; const AValue : TCalendarListEntryTypenotificationSettingsTypenotificationsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -298,18 +284,18 @@ type
Procedure SetaccessRole(AIndex : Integer; const AValue : String); virtual;
Procedure SetbackgroundColor(AIndex : Integer; const AValue : String); virtual;
Procedure SetcolorId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdefaultReminders(AIndex : Integer; AValue : TCalendarListEntryTypedefaultRemindersArray); virtual;
- Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdefaultReminders(AIndex : Integer; const AValue : TCalendarListEntryTypedefaultRemindersArray); virtual;
+ Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SetforegroundColor(AIndex : Integer; const AValue : String); virtual;
- Procedure Sethidden(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Sethidden(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnotificationSettings(AIndex : Integer; AValue : TCalendarListEntryTypenotificationSettings); virtual;
- Procedure Setprimary(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setselected(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetnotificationSettings(AIndex : Integer; const AValue : TCalendarListEntryTypenotificationSettings); virtual;
+ Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setselected(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setsummary(AIndex : Integer; const AValue : String); virtual;
Procedure SetsummaryOverride(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeZone(AIndex : Integer; const AValue : String); virtual;
@@ -397,8 +383,8 @@ type
Procedure Setexpiration(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparams(AIndex : Integer; AValue : TChannelTypeparams); virtual;
- Procedure Setpayload(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setparams(AIndex : Integer; const AValue : TChannelTypeparams); virtual;
+ Procedure Setpayload(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetresourceId(AIndex : Integer; const AValue : String); virtual;
Procedure SetresourceUri(AIndex : Integer; const AValue : String); virtual;
Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
@@ -477,10 +463,10 @@ type
Fupdated : TDatetime;
Protected
//Property setters
- Procedure Setcalendar(AIndex : Integer; AValue : TColorsTypecalendar); virtual;
- Procedure Setevent(AIndex : Integer; AValue : TColorsTypeevent); virtual;
+ Procedure Setcalendar(AIndex : Integer; const AValue : TColorsTypecalendar); virtual;
+ Procedure Setevent(AIndex : Integer; const AValue : TColorsTypeevent); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property calendar : TColorsTypecalendar Index 0 Read Fcalendar Write Setcalendar;
@@ -525,7 +511,7 @@ type
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_self(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Set_self(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
@@ -574,8 +560,8 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_private(AIndex : Integer; AValue : TEventTypeextendedPropertiesTypeprivate); virtual;
- Procedure Setshared(AIndex : Integer; AValue : TEventTypeextendedPropertiesTypeshared); virtual;
+ Procedure Set_private(AIndex : Integer; const AValue : TEventTypeextendedPropertiesTypeprivate); virtual;
+ Procedure Setshared(AIndex : Integer; const AValue : TEventTypeextendedPropertiesTypeshared); virtual;
Public
Published
Property _private : TEventTypeextendedPropertiesTypeprivate Index 0 Read F_private Write Set_private;
@@ -615,13 +601,13 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setdisplay(AIndex : Integer; const AValue : String); virtual;
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure SeticonLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setlink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpreferences(AIndex : Integer; AValue : TEventTypegadgetTypepreferences); virtual;
+ Procedure Setpreferences(AIndex : Integer; const AValue : TEventTypegadgetTypepreferences); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property display : String Index 0 Read Fdisplay Write Setdisplay;
@@ -651,7 +637,7 @@ type
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_self(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Set_self(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
@@ -671,8 +657,8 @@ type
FuseDefault : boolean;
Protected
//Property setters
- Procedure Setoverrides(AIndex : Integer; AValue : TEventTyperemindersTypeoverridesArray); virtual;
- Procedure SetuseDefault(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setoverrides(AIndex : Integer; const AValue : TEventTyperemindersTypeoverridesArray); virtual;
+ Procedure SetuseDefault(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -710,6 +696,7 @@ type
TEvent = Class(TGoogleBaseObject)
Private
FanyoneCanAddSelf : boolean;
+ Fattachments : TEventTypeattachmentsArray;
Fattendees : TEventTypeattendeesArray;
FattendeesOmitted : boolean;
FcolorId : String;
@@ -748,41 +735,42 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetanyoneCanAddSelf(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setattendees(AIndex : Integer; AValue : TEventTypeattendeesArray); virtual;
- Procedure SetattendeesOmitted(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetanyoneCanAddSelf(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setattachments(AIndex : Integer; const AValue : TEventTypeattachmentsArray); virtual;
+ Procedure Setattendees(AIndex : Integer; const AValue : TEventTypeattendeesArray); virtual;
+ Procedure SetattendeesOmitted(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcolorId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setcreator(AIndex : Integer; AValue : TEventTypecreator); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setcreator(AIndex : Integer; const AValue : TEventTypecreator); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_end(AIndex : Integer; AValue : TEventDateTime); virtual;
- Procedure SetendTimeUnspecified(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : TEventDateTime); virtual;
+ Procedure SetendTimeUnspecified(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure SetextendedProperties(AIndex : Integer; AValue : TEventTypeextendedProperties); virtual;
- Procedure Setgadget(AIndex : Integer; AValue : TEventTypegadget); virtual;
- Procedure SetguestsCanInviteOthers(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetguestsCanModify(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetguestsCanSeeOtherGuests(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetextendedProperties(AIndex : Integer; const AValue : TEventTypeextendedProperties); virtual;
+ Procedure Setgadget(AIndex : Integer; const AValue : TEventTypegadget); virtual;
+ Procedure SetguestsCanInviteOthers(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetguestsCanModify(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetguestsCanSeeOtherGuests(AIndex : Integer; const AValue : boolean); virtual;
Procedure SethangoutLink(AIndex : Integer; const AValue : String); virtual;
Procedure SethtmlLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetiCalUID(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocked(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setorganizer(AIndex : Integer; AValue : TEventTypeorganizer); virtual;
- Procedure SetoriginalStartTime(AIndex : Integer; AValue : TEventDateTime); virtual;
- Procedure SetprivateCopy(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setrecurrence(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setlocked(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setorganizer(AIndex : Integer; const AValue : TEventTypeorganizer); virtual;
+ Procedure SetoriginalStartTime(AIndex : Integer; const AValue : TEventDateTime); virtual;
+ Procedure SetprivateCopy(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setrecurrence(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetrecurringEventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setreminders(AIndex : Integer; AValue : TEventTypereminders); virtual;
- Procedure Setsequence(AIndex : Integer; AValue : integer); virtual;
- Procedure Setsource(AIndex : Integer; AValue : TEventTypesource); virtual;
- Procedure Setstart(AIndex : Integer; AValue : TEventDateTime); virtual;
+ Procedure Setreminders(AIndex : Integer; const AValue : TEventTypereminders); virtual;
+ Procedure Setsequence(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TEventTypesource); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : TEventDateTime); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure Setsummary(AIndex : Integer; const AValue : String); virtual;
Procedure Settransparency(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -791,41 +779,42 @@ type
Public
Published
Property anyoneCanAddSelf : boolean Index 0 Read FanyoneCanAddSelf Write SetanyoneCanAddSelf;
- Property attendees : TEventTypeattendeesArray Index 8 Read Fattendees Write Setattendees;
- Property attendeesOmitted : boolean Index 16 Read FattendeesOmitted Write SetattendeesOmitted;
- Property colorId : String Index 24 Read FcolorId Write SetcolorId;
- Property created : TDatetime Index 32 Read Fcreated Write Setcreated;
- Property creator : TEventTypecreator Index 40 Read Fcreator Write Setcreator;
- Property description : String Index 48 Read Fdescription Write Setdescription;
- Property _end : TEventDateTime Index 56 Read F_end Write Set_end;
- Property endTimeUnspecified : boolean Index 64 Read FendTimeUnspecified Write SetendTimeUnspecified;
- Property etag : String Index 72 Read Fetag Write Setetag;
- Property extendedProperties : TEventTypeextendedProperties Index 80 Read FextendedProperties Write SetextendedProperties;
- Property gadget : TEventTypegadget Index 88 Read Fgadget Write Setgadget;
- Property guestsCanInviteOthers : boolean Index 96 Read FguestsCanInviteOthers Write SetguestsCanInviteOthers;
- Property guestsCanModify : boolean Index 104 Read FguestsCanModify Write SetguestsCanModify;
- Property guestsCanSeeOtherGuests : boolean Index 112 Read FguestsCanSeeOtherGuests Write SetguestsCanSeeOtherGuests;
- Property hangoutLink : String Index 120 Read FhangoutLink Write SethangoutLink;
- Property htmlLink : String Index 128 Read FhtmlLink Write SethtmlLink;
- Property iCalUID : String Index 136 Read FiCalUID Write SetiCalUID;
- Property id : String Index 144 Read Fid Write Setid;
- Property kind : String Index 152 Read Fkind Write Setkind;
- Property location : String Index 160 Read Flocation Write Setlocation;
- Property locked : boolean Index 168 Read Flocked Write Setlocked;
- Property organizer : TEventTypeorganizer Index 176 Read Forganizer Write Setorganizer;
- Property originalStartTime : TEventDateTime Index 184 Read ForiginalStartTime Write SetoriginalStartTime;
- Property privateCopy : boolean Index 192 Read FprivateCopy Write SetprivateCopy;
- Property recurrence : TStringArray Index 200 Read Frecurrence Write Setrecurrence;
- Property recurringEventId : String Index 208 Read FrecurringEventId Write SetrecurringEventId;
- Property reminders : TEventTypereminders Index 216 Read Freminders Write Setreminders;
- Property sequence : integer Index 224 Read Fsequence Write Setsequence;
- Property source : TEventTypesource Index 232 Read Fsource Write Setsource;
- Property start : TEventDateTime Index 240 Read Fstart Write Setstart;
- Property status : String Index 248 Read Fstatus Write Setstatus;
- Property summary : String Index 256 Read Fsummary Write Setsummary;
- Property transparency : String Index 264 Read Ftransparency Write Settransparency;
- Property updated : TDatetime Index 272 Read Fupdated Write Setupdated;
- Property visibility : String Index 280 Read Fvisibility Write Setvisibility;
+ Property attachments : TEventTypeattachmentsArray Index 8 Read Fattachments Write Setattachments;
+ Property attendees : TEventTypeattendeesArray Index 16 Read Fattendees Write Setattendees;
+ Property attendeesOmitted : boolean Index 24 Read FattendeesOmitted Write SetattendeesOmitted;
+ Property colorId : String Index 32 Read FcolorId Write SetcolorId;
+ Property created : TDatetime Index 40 Read Fcreated Write Setcreated;
+ Property creator : TEventTypecreator Index 48 Read Fcreator Write Setcreator;
+ Property description : String Index 56 Read Fdescription Write Setdescription;
+ Property _end : TEventDateTime Index 64 Read F_end Write Set_end;
+ Property endTimeUnspecified : boolean Index 72 Read FendTimeUnspecified Write SetendTimeUnspecified;
+ Property etag : String Index 80 Read Fetag Write Setetag;
+ Property extendedProperties : TEventTypeextendedProperties Index 88 Read FextendedProperties Write SetextendedProperties;
+ Property gadget : TEventTypegadget Index 96 Read Fgadget Write Setgadget;
+ Property guestsCanInviteOthers : boolean Index 104 Read FguestsCanInviteOthers Write SetguestsCanInviteOthers;
+ Property guestsCanModify : boolean Index 112 Read FguestsCanModify Write SetguestsCanModify;
+ Property guestsCanSeeOtherGuests : boolean Index 120 Read FguestsCanSeeOtherGuests Write SetguestsCanSeeOtherGuests;
+ Property hangoutLink : String Index 128 Read FhangoutLink Write SethangoutLink;
+ Property htmlLink : String Index 136 Read FhtmlLink Write SethtmlLink;
+ Property iCalUID : String Index 144 Read FiCalUID Write SetiCalUID;
+ Property id : String Index 152 Read Fid Write Setid;
+ Property kind : String Index 160 Read Fkind Write Setkind;
+ Property location : String Index 168 Read Flocation Write Setlocation;
+ Property locked : boolean Index 176 Read Flocked Write Setlocked;
+ Property organizer : TEventTypeorganizer Index 184 Read Forganizer Write Setorganizer;
+ Property originalStartTime : TEventDateTime Index 192 Read ForiginalStartTime Write SetoriginalStartTime;
+ Property privateCopy : boolean Index 200 Read FprivateCopy Write SetprivateCopy;
+ Property recurrence : TStringArray Index 208 Read Frecurrence Write Setrecurrence;
+ Property recurringEventId : String Index 216 Read FrecurringEventId Write SetrecurringEventId;
+ Property reminders : TEventTypereminders Index 224 Read Freminders Write Setreminders;
+ Property sequence : integer Index 232 Read Fsequence Write Setsequence;
+ Property source : TEventTypesource Index 240 Read Fsource Write Setsource;
+ Property start : TEventDateTime Index 248 Read Fstart Write Setstart;
+ Property status : String Index 256 Read Fstatus Write Setstatus;
+ Property summary : String Index 264 Read Fsummary Write Setsummary;
+ Property transparency : String Index 272 Read Ftransparency Write Settransparency;
+ Property updated : TDatetime Index 280 Read Fupdated Write Setupdated;
+ Property visibility : String Index 288 Read Fvisibility Write Setvisibility;
end;
TEventClass = Class of TEvent;
@@ -835,10 +824,25 @@ type
TEventAttachment = Class(TGoogleBaseObject)
Private
+ FfileId : String;
+ FfileUrl : String;
+ FiconLink : String;
+ FmimeType : String;
+ Ftitle : String;
Protected
//Property setters
+ Procedure SetfileId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfileUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeticonLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
+ Property fileId : String Index 0 Read FfileId Write SetfileId;
+ Property fileUrl : String Index 8 Read FfileUrl Write SetfileUrl;
+ Property iconLink : String Index 16 Read FiconLink Write SeticonLink;
+ Property mimeType : String Index 24 Read FmimeType Write SetmimeType;
+ Property title : String Index 32 Read Ftitle Write Settitle;
end;
TEventAttachmentClass = Class of TEventAttachment;
@@ -861,16 +865,16 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetadditionalGuests(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetadditionalGuests(AIndex : Integer; const AValue : integer); virtual;
Procedure Setcomment(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setoptional(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setorganizer(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setresource(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setoptional(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setorganizer(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setresource(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetresponseStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_self(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Set_self(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property additionalGuests : integer Index 0 Read FadditionalGuests Write SetadditionalGuests;
@@ -897,8 +901,8 @@ type
FtimeZone : String;
Protected
//Property setters
- Procedure Setdate(AIndex : Integer; AValue : TDate); virtual;
- Procedure SetdateTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setdate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure SetdateTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SettimeZone(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -919,7 +923,7 @@ type
Protected
//Property setters
Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
- Procedure Setminutes(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setminutes(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property method : String Index 0 Read Fmethod Write Setmethod;
@@ -947,16 +951,16 @@ type
Protected
//Property setters
Procedure SetaccessRole(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdefaultReminders(AIndex : Integer; AValue : TEventsTypedefaultRemindersArray); virtual;
+ Procedure SetdefaultReminders(AIndex : Integer; const AValue : TEventsTypedefaultRemindersArray); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TEventsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TEventsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextSyncToken(AIndex : Integer; const AValue : String); virtual;
Procedure Setsummary(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeZone(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -987,8 +991,8 @@ type
Ferrors : TFreeBusyCalendarTypeerrorsArray;
Protected
//Property setters
- Procedure Setbusy(AIndex : Integer; AValue : TFreeBusyCalendarTypebusyArray); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TFreeBusyCalendarTypeerrorsArray); virtual;
+ Procedure Setbusy(AIndex : Integer; const AValue : TFreeBusyCalendarTypebusyArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TFreeBusyCalendarTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1010,8 +1014,8 @@ type
Ferrors : TFreeBusyGroupTypeerrorsArray;
Protected
//Property setters
- Procedure Setcalendars(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TFreeBusyGroupTypeerrorsArray); virtual;
+ Procedure Setcalendars(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TFreeBusyGroupTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1037,11 +1041,11 @@ type
FtimeZone : String;
Protected
//Property setters
- Procedure SetcalendarExpansionMax(AIndex : Integer; AValue : integer); virtual;
- Procedure SetgroupExpansionMax(AIndex : Integer; AValue : integer); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TFreeBusyRequestTypeitemsArray); virtual;
- Procedure SettimeMax(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SettimeMin(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetcalendarExpansionMax(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetgroupExpansionMax(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TFreeBusyRequestTypeitemsArray); virtual;
+ Procedure SettimeMax(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SettimeMin(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SettimeZone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1115,11 +1119,11 @@ type
FtimeMin : TDatetime;
Protected
//Property setters
- Procedure Setcalendars(AIndex : Integer; AValue : TFreeBusyResponseTypecalendars); virtual;
- Procedure Setgroups(AIndex : Integer; AValue : TFreeBusyResponseTypegroups); virtual;
+ Procedure Setcalendars(AIndex : Integer; const AValue : TFreeBusyResponseTypecalendars); virtual;
+ Procedure Setgroups(AIndex : Integer; const AValue : TFreeBusyResponseTypegroups); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeMax(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SettimeMin(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SettimeMax(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SettimeMin(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property calendars : TFreeBusyResponseTypecalendars Index 0 Read Fcalendars Write Setcalendars;
@@ -1169,7 +1173,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TSettingsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSettingsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextSyncToken(AIndex : Integer; const AValue : String); virtual;
@@ -1198,8 +1202,8 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_end(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setstart(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property _end : TDatetime Index 0 Read F_end Write Set_end;
@@ -1377,11 +1381,19 @@ type
end;
+ //Optional query Options for TEventsResource, method Import
+
+ TEventsImportOptions = Record
+ supportsAttachments : boolean;
+ end;
+
+
//Optional query Options for TEventsResource, method Insert
TEventsInsertOptions = Record
maxAttendees : integer;
sendNotifications : boolean;
+ supportsAttachments : boolean;
end;
@@ -1437,6 +1449,7 @@ type
alwaysIncludeEmail : boolean;
maxAttendees : integer;
sendNotifications : boolean;
+ supportsAttachments : boolean;
end;
@@ -1454,6 +1467,7 @@ type
alwaysIncludeEmail : boolean;
maxAttendees : integer;
sendNotifications : boolean;
+ supportsAttachments : boolean;
end;
@@ -1487,7 +1501,8 @@ type
Procedure Delete(calendarId: string; eventId: string; AQuery : TEventsdeleteOptions);
Function Get(calendarId: string; eventId: string; AQuery : string = '') : TEvent;
Function Get(calendarId: string; eventId: string; AQuery : TEventsgetOptions) : TEvent;
- Function Import(calendarId: string; aEvent : TEvent) : TEvent;
+ Function Import(calendarId: string; aEvent : TEvent; AQuery : string = '') : TEvent;
+ Function Import(calendarId: string; aEvent : TEvent; AQuery : TEventsimportOptions) : TEvent;
Function Insert(calendarId: string; aEvent : TEvent; AQuery : string = '') : TEvent;
Function Insert(calendarId: string; aEvent : TEvent; AQuery : TEventsinsertOptions) : TEvent;
Function Instances(calendarId: string; eventId: string; AQuery : string = '') : TEvents;
@@ -1643,7 +1658,7 @@ end;
-Procedure TAcl.Setitems(AIndex : Integer; AValue : TAclTypeitemsArray);
+Procedure TAcl.Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1781,7 +1796,7 @@ end;
-Procedure TAclRule.Setscope(AIndex : Integer; AValue : TAclRuleTypescope);
+Procedure TAclRule.Setscope(AIndex : Integer; const AValue : TAclRuleTypescope);
begin
If (Fscope=AValue) then exit;
@@ -1885,7 +1900,7 @@ end;
-Procedure TCalendarList.Setitems(AIndex : Integer; AValue : TCalendarListTypeitemsArray);
+Procedure TCalendarList.Setitems(AIndex : Integer; const AValue : TCalendarListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1945,7 +1960,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCalendarListEntryTypenotificationSettings.Setnotifications(AIndex : Integer; AValue : TCalendarListEntryTypenotificationSettingsTypenotificationsArray);
+Procedure TCalendarListEntryTypenotificationSettings.Setnotifications(AIndex : Integer; const AValue : TCalendarListEntryTypenotificationSettingsTypenotificationsArray);
begin
If (Fnotifications=AValue) then exit;
@@ -2005,7 +2020,7 @@ end;
-Procedure TCalendarListEntry.SetdefaultReminders(AIndex : Integer; AValue : TCalendarListEntryTypedefaultRemindersArray);
+Procedure TCalendarListEntry.SetdefaultReminders(AIndex : Integer; const AValue : TCalendarListEntryTypedefaultRemindersArray);
begin
If (FdefaultReminders=AValue) then exit;
@@ -2015,7 +2030,7 @@ end;
-Procedure TCalendarListEntry.Setdeleted(AIndex : Integer; AValue : boolean);
+Procedure TCalendarListEntry.Setdeleted(AIndex : Integer; const AValue : boolean);
begin
If (Fdeleted=AValue) then exit;
@@ -2055,7 +2070,7 @@ end;
-Procedure TCalendarListEntry.Sethidden(AIndex : Integer; AValue : boolean);
+Procedure TCalendarListEntry.Sethidden(AIndex : Integer; const AValue : boolean);
begin
If (Fhidden=AValue) then exit;
@@ -2095,7 +2110,7 @@ end;
-Procedure TCalendarListEntry.SetnotificationSettings(AIndex : Integer; AValue : TCalendarListEntryTypenotificationSettings);
+Procedure TCalendarListEntry.SetnotificationSettings(AIndex : Integer; const AValue : TCalendarListEntryTypenotificationSettings);
begin
If (FnotificationSettings=AValue) then exit;
@@ -2105,7 +2120,7 @@ end;
-Procedure TCalendarListEntry.Setprimary(AIndex : Integer; AValue : boolean);
+Procedure TCalendarListEntry.Setprimary(AIndex : Integer; const AValue : boolean);
begin
If (Fprimary=AValue) then exit;
@@ -2115,7 +2130,7 @@ end;
-Procedure TCalendarListEntry.Setselected(AIndex : Integer; AValue : boolean);
+Procedure TCalendarListEntry.Setselected(AIndex : Integer; const AValue : boolean);
begin
If (Fselected=AValue) then exit;
@@ -2266,7 +2281,7 @@ end;
-Procedure TChannel.Setparams(AIndex : Integer; AValue : TChannelTypeparams);
+Procedure TChannel.Setparams(AIndex : Integer; const AValue : TChannelTypeparams);
begin
If (Fparams=AValue) then exit;
@@ -2276,7 +2291,7 @@ end;
-Procedure TChannel.Setpayload(AIndex : Integer; AValue : boolean);
+Procedure TChannel.Setpayload(AIndex : Integer; const AValue : boolean);
begin
If (Fpayload=AValue) then exit;
@@ -2397,7 +2412,7 @@ end;
--------------------------------------------------------------------}
-Procedure TColors.Setcalendar(AIndex : Integer; AValue : TColorsTypecalendar);
+Procedure TColors.Setcalendar(AIndex : Integer; const AValue : TColorsTypecalendar);
begin
If (Fcalendar=AValue) then exit;
@@ -2407,7 +2422,7 @@ end;
-Procedure TColors.Setevent(AIndex : Integer; AValue : TColorsTypeevent);
+Procedure TColors.Setevent(AIndex : Integer; const AValue : TColorsTypeevent);
begin
If (Fevent=AValue) then exit;
@@ -2427,7 +2442,7 @@ end;
-Procedure TColors.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TColors.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -2501,7 +2516,7 @@ end;
-Procedure TEventTypecreator.Set_self(AIndex : Integer; AValue : boolean);
+Procedure TEventTypecreator.Set_self(AIndex : Integer; const AValue : boolean);
begin
If (F_self=AValue) then exit;
@@ -2555,7 +2570,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEventTypeextendedProperties.Set_private(AIndex : Integer; AValue : TEventTypeextendedPropertiesTypeprivate);
+Procedure TEventTypeextendedProperties.Set_private(AIndex : Integer; const AValue : TEventTypeextendedPropertiesTypeprivate);
begin
If (F_private=AValue) then exit;
@@ -2565,7 +2580,7 @@ end;
-Procedure TEventTypeextendedProperties.Setshared(AIndex : Integer; AValue : TEventTypeextendedPropertiesTypeshared);
+Procedure TEventTypeextendedProperties.Setshared(AIndex : Integer; const AValue : TEventTypeextendedPropertiesTypeshared);
begin
If (Fshared=AValue) then exit;
@@ -2616,7 +2631,7 @@ end;
-Procedure TEventTypegadget.Setheight(AIndex : Integer; AValue : integer);
+Procedure TEventTypegadget.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -2646,7 +2661,7 @@ end;
-Procedure TEventTypegadget.Setpreferences(AIndex : Integer; AValue : TEventTypegadgetTypepreferences);
+Procedure TEventTypegadget.Setpreferences(AIndex : Integer; const AValue : TEventTypegadgetTypepreferences);
begin
If (Fpreferences=AValue) then exit;
@@ -2676,7 +2691,7 @@ end;
-Procedure TEventTypegadget.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TEventTypegadget.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -2734,7 +2749,7 @@ end;
-Procedure TEventTypeorganizer.Set_self(AIndex : Integer; AValue : boolean);
+Procedure TEventTypeorganizer.Set_self(AIndex : Integer; const AValue : boolean);
begin
If (F_self=AValue) then exit;
@@ -2762,7 +2777,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEventTypereminders.Setoverrides(AIndex : Integer; AValue : TEventTyperemindersTypeoverridesArray);
+Procedure TEventTypereminders.Setoverrides(AIndex : Integer; const AValue : TEventTyperemindersTypeoverridesArray);
begin
If (Foverrides=AValue) then exit;
@@ -2772,7 +2787,7 @@ end;
-Procedure TEventTypereminders.SetuseDefault(AIndex : Integer; AValue : boolean);
+Procedure TEventTypereminders.SetuseDefault(AIndex : Integer; const AValue : boolean);
begin
If (FuseDefault=AValue) then exit;
@@ -2829,7 +2844,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEvent.SetanyoneCanAddSelf(AIndex : Integer; AValue : boolean);
+Procedure TEvent.SetanyoneCanAddSelf(AIndex : Integer; const AValue : boolean);
begin
If (FanyoneCanAddSelf=AValue) then exit;
@@ -2839,7 +2854,17 @@ end;
-Procedure TEvent.Setattendees(AIndex : Integer; AValue : TEventTypeattendeesArray);
+Procedure TEvent.Setattachments(AIndex : Integer; const AValue : TEventTypeattachmentsArray);
+
+begin
+ If (Fattachments=AValue) then exit;
+ Fattachments:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEvent.Setattendees(AIndex : Integer; const AValue : TEventTypeattendeesArray);
begin
If (Fattendees=AValue) then exit;
@@ -2849,7 +2874,7 @@ end;
-Procedure TEvent.SetattendeesOmitted(AIndex : Integer; AValue : boolean);
+Procedure TEvent.SetattendeesOmitted(AIndex : Integer; const AValue : boolean);
begin
If (FattendeesOmitted=AValue) then exit;
@@ -2869,7 +2894,7 @@ end;
-Procedure TEvent.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TEvent.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -2879,7 +2904,7 @@ end;
-Procedure TEvent.Setcreator(AIndex : Integer; AValue : TEventTypecreator);
+Procedure TEvent.Setcreator(AIndex : Integer; const AValue : TEventTypecreator);
begin
If (Fcreator=AValue) then exit;
@@ -2899,7 +2924,7 @@ end;
-Procedure TEvent.Set_end(AIndex : Integer; AValue : TEventDateTime);
+Procedure TEvent.Set_end(AIndex : Integer; const AValue : TEventDateTime);
begin
If (F_end=AValue) then exit;
@@ -2909,7 +2934,7 @@ end;
-Procedure TEvent.SetendTimeUnspecified(AIndex : Integer; AValue : boolean);
+Procedure TEvent.SetendTimeUnspecified(AIndex : Integer; const AValue : boolean);
begin
If (FendTimeUnspecified=AValue) then exit;
@@ -2929,7 +2954,7 @@ end;
-Procedure TEvent.SetextendedProperties(AIndex : Integer; AValue : TEventTypeextendedProperties);
+Procedure TEvent.SetextendedProperties(AIndex : Integer; const AValue : TEventTypeextendedProperties);
begin
If (FextendedProperties=AValue) then exit;
@@ -2939,7 +2964,7 @@ end;
-Procedure TEvent.Setgadget(AIndex : Integer; AValue : TEventTypegadget);
+Procedure TEvent.Setgadget(AIndex : Integer; const AValue : TEventTypegadget);
begin
If (Fgadget=AValue) then exit;
@@ -2949,7 +2974,7 @@ end;
-Procedure TEvent.SetguestsCanInviteOthers(AIndex : Integer; AValue : boolean);
+Procedure TEvent.SetguestsCanInviteOthers(AIndex : Integer; const AValue : boolean);
begin
If (FguestsCanInviteOthers=AValue) then exit;
@@ -2959,7 +2984,7 @@ end;
-Procedure TEvent.SetguestsCanModify(AIndex : Integer; AValue : boolean);
+Procedure TEvent.SetguestsCanModify(AIndex : Integer; const AValue : boolean);
begin
If (FguestsCanModify=AValue) then exit;
@@ -2969,7 +2994,7 @@ end;
-Procedure TEvent.SetguestsCanSeeOtherGuests(AIndex : Integer; AValue : boolean);
+Procedure TEvent.SetguestsCanSeeOtherGuests(AIndex : Integer; const AValue : boolean);
begin
If (FguestsCanSeeOtherGuests=AValue) then exit;
@@ -3039,7 +3064,7 @@ end;
-Procedure TEvent.Setlocked(AIndex : Integer; AValue : boolean);
+Procedure TEvent.Setlocked(AIndex : Integer; const AValue : boolean);
begin
If (Flocked=AValue) then exit;
@@ -3049,7 +3074,7 @@ end;
-Procedure TEvent.Setorganizer(AIndex : Integer; AValue : TEventTypeorganizer);
+Procedure TEvent.Setorganizer(AIndex : Integer; const AValue : TEventTypeorganizer);
begin
If (Forganizer=AValue) then exit;
@@ -3059,7 +3084,7 @@ end;
-Procedure TEvent.SetoriginalStartTime(AIndex : Integer; AValue : TEventDateTime);
+Procedure TEvent.SetoriginalStartTime(AIndex : Integer; const AValue : TEventDateTime);
begin
If (ForiginalStartTime=AValue) then exit;
@@ -3069,7 +3094,7 @@ end;
-Procedure TEvent.SetprivateCopy(AIndex : Integer; AValue : boolean);
+Procedure TEvent.SetprivateCopy(AIndex : Integer; const AValue : boolean);
begin
If (FprivateCopy=AValue) then exit;
@@ -3079,7 +3104,7 @@ end;
-Procedure TEvent.Setrecurrence(AIndex : Integer; AValue : TStringArray);
+Procedure TEvent.Setrecurrence(AIndex : Integer; const AValue : TStringArray);
begin
If (Frecurrence=AValue) then exit;
@@ -3099,7 +3124,7 @@ end;
-Procedure TEvent.Setreminders(AIndex : Integer; AValue : TEventTypereminders);
+Procedure TEvent.Setreminders(AIndex : Integer; const AValue : TEventTypereminders);
begin
If (Freminders=AValue) then exit;
@@ -3109,7 +3134,7 @@ end;
-Procedure TEvent.Setsequence(AIndex : Integer; AValue : integer);
+Procedure TEvent.Setsequence(AIndex : Integer; const AValue : integer);
begin
If (Fsequence=AValue) then exit;
@@ -3119,7 +3144,7 @@ end;
-Procedure TEvent.Setsource(AIndex : Integer; AValue : TEventTypesource);
+Procedure TEvent.Setsource(AIndex : Integer; const AValue : TEventTypesource);
begin
If (Fsource=AValue) then exit;
@@ -3129,7 +3154,7 @@ end;
-Procedure TEvent.Setstart(AIndex : Integer; AValue : TEventDateTime);
+Procedure TEvent.Setstart(AIndex : Integer; const AValue : TEventDateTime);
begin
If (Fstart=AValue) then exit;
@@ -3169,7 +3194,7 @@ end;
-Procedure TEvent.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TEvent.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -3205,6 +3230,7 @@ Procedure TEvent.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
+ 'attachments' : SetLength(Fattachments,ALength);
'attendees' : SetLength(Fattendees,ALength);
'recurrence' : SetLength(Frecurrence,ALength);
else
@@ -3221,6 +3247,56 @@ end;
--------------------------------------------------------------------}
+Procedure TEventAttachment.SetfileId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfileId=AValue) then exit;
+ FfileId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEventAttachment.SetfileUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfileUrl=AValue) then exit;
+ FfileUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEventAttachment.SeticonLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FiconLink=AValue) then exit;
+ FiconLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEventAttachment.SetmimeType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmimeType=AValue) then exit;
+ FmimeType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEventAttachment.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -3228,7 +3304,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEventAttendee.SetadditionalGuests(AIndex : Integer; AValue : integer);
+Procedure TEventAttendee.SetadditionalGuests(AIndex : Integer; const AValue : integer);
begin
If (FadditionalGuests=AValue) then exit;
@@ -3278,7 +3354,7 @@ end;
-Procedure TEventAttendee.Setoptional(AIndex : Integer; AValue : boolean);
+Procedure TEventAttendee.Setoptional(AIndex : Integer; const AValue : boolean);
begin
If (Foptional=AValue) then exit;
@@ -3288,7 +3364,7 @@ end;
-Procedure TEventAttendee.Setorganizer(AIndex : Integer; AValue : boolean);
+Procedure TEventAttendee.Setorganizer(AIndex : Integer; const AValue : boolean);
begin
If (Forganizer=AValue) then exit;
@@ -3298,7 +3374,7 @@ end;
-Procedure TEventAttendee.Setresource(AIndex : Integer; AValue : boolean);
+Procedure TEventAttendee.Setresource(AIndex : Integer; const AValue : boolean);
begin
If (Fresource=AValue) then exit;
@@ -3318,7 +3394,7 @@ end;
-Procedure TEventAttendee.Set_self(AIndex : Integer; AValue : boolean);
+Procedure TEventAttendee.Set_self(AIndex : Integer; const AValue : boolean);
begin
If (F_self=AValue) then exit;
@@ -3346,7 +3422,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEventDateTime.Setdate(AIndex : Integer; AValue : TDate);
+Procedure TEventDateTime.Setdate(AIndex : Integer; const AValue : TDate);
begin
If (Fdate=AValue) then exit;
@@ -3356,7 +3432,7 @@ end;
-Procedure TEventDateTime.SetdateTime(AIndex : Integer; AValue : TDatetime);
+Procedure TEventDateTime.SetdateTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FdateTime=AValue) then exit;
@@ -3393,7 +3469,7 @@ end;
-Procedure TEventReminder.Setminutes(AIndex : Integer; AValue : integer);
+Procedure TEventReminder.Setminutes(AIndex : Integer; const AValue : integer);
begin
If (Fminutes=AValue) then exit;
@@ -3420,7 +3496,7 @@ end;
-Procedure TEvents.SetdefaultReminders(AIndex : Integer; AValue : TEventsTypedefaultRemindersArray);
+Procedure TEvents.SetdefaultReminders(AIndex : Integer; const AValue : TEventsTypedefaultRemindersArray);
begin
If (FdefaultReminders=AValue) then exit;
@@ -3450,7 +3526,7 @@ end;
-Procedure TEvents.Setitems(AIndex : Integer; AValue : TEventsTypeitemsArray);
+Procedure TEvents.Setitems(AIndex : Integer; const AValue : TEventsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3510,7 +3586,7 @@ end;
-Procedure TEvents.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TEvents.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -3541,7 +3617,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFreeBusyCalendar.Setbusy(AIndex : Integer; AValue : TFreeBusyCalendarTypebusyArray);
+Procedure TFreeBusyCalendar.Setbusy(AIndex : Integer; const AValue : TFreeBusyCalendarTypebusyArray);
begin
If (Fbusy=AValue) then exit;
@@ -3551,7 +3627,7 @@ end;
-Procedure TFreeBusyCalendar.Seterrors(AIndex : Integer; AValue : TFreeBusyCalendarTypeerrorsArray);
+Procedure TFreeBusyCalendar.Seterrors(AIndex : Integer; const AValue : TFreeBusyCalendarTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -3582,7 +3658,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFreeBusyGroup.Setcalendars(AIndex : Integer; AValue : TStringArray);
+Procedure TFreeBusyGroup.Setcalendars(AIndex : Integer; const AValue : TStringArray);
begin
If (Fcalendars=AValue) then exit;
@@ -3592,7 +3668,7 @@ end;
-Procedure TFreeBusyGroup.Seterrors(AIndex : Integer; AValue : TFreeBusyGroupTypeerrorsArray);
+Procedure TFreeBusyGroup.Seterrors(AIndex : Integer; const AValue : TFreeBusyGroupTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -3623,7 +3699,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFreeBusyRequest.SetcalendarExpansionMax(AIndex : Integer; AValue : integer);
+Procedure TFreeBusyRequest.SetcalendarExpansionMax(AIndex : Integer; const AValue : integer);
begin
If (FcalendarExpansionMax=AValue) then exit;
@@ -3633,7 +3709,7 @@ end;
-Procedure TFreeBusyRequest.SetgroupExpansionMax(AIndex : Integer; AValue : integer);
+Procedure TFreeBusyRequest.SetgroupExpansionMax(AIndex : Integer; const AValue : integer);
begin
If (FgroupExpansionMax=AValue) then exit;
@@ -3643,7 +3719,7 @@ end;
-Procedure TFreeBusyRequest.Setitems(AIndex : Integer; AValue : TFreeBusyRequestTypeitemsArray);
+Procedure TFreeBusyRequest.Setitems(AIndex : Integer; const AValue : TFreeBusyRequestTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3653,7 +3729,7 @@ end;
-Procedure TFreeBusyRequest.SettimeMax(AIndex : Integer; AValue : TDatetime);
+Procedure TFreeBusyRequest.SettimeMax(AIndex : Integer; const AValue : TDatetime);
begin
If (FtimeMax=AValue) then exit;
@@ -3663,7 +3739,7 @@ end;
-Procedure TFreeBusyRequest.SettimeMin(AIndex : Integer; AValue : TDatetime);
+Procedure TFreeBusyRequest.SettimeMin(AIndex : Integer; const AValue : TDatetime);
begin
If (FtimeMin=AValue) then exit;
@@ -3746,7 +3822,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFreeBusyResponse.Setcalendars(AIndex : Integer; AValue : TFreeBusyResponseTypecalendars);
+Procedure TFreeBusyResponse.Setcalendars(AIndex : Integer; const AValue : TFreeBusyResponseTypecalendars);
begin
If (Fcalendars=AValue) then exit;
@@ -3756,7 +3832,7 @@ end;
-Procedure TFreeBusyResponse.Setgroups(AIndex : Integer; AValue : TFreeBusyResponseTypegroups);
+Procedure TFreeBusyResponse.Setgroups(AIndex : Integer; const AValue : TFreeBusyResponseTypegroups);
begin
If (Fgroups=AValue) then exit;
@@ -3776,7 +3852,7 @@ end;
-Procedure TFreeBusyResponse.SettimeMax(AIndex : Integer; AValue : TDatetime);
+Procedure TFreeBusyResponse.SettimeMax(AIndex : Integer; const AValue : TDatetime);
begin
If (FtimeMax=AValue) then exit;
@@ -3786,7 +3862,7 @@ end;
-Procedure TFreeBusyResponse.SettimeMin(AIndex : Integer; AValue : TDatetime);
+Procedure TFreeBusyResponse.SettimeMin(AIndex : Integer; const AValue : TDatetime);
begin
If (FtimeMin=AValue) then exit;
@@ -3860,7 +3936,7 @@ end;
-Procedure TSettings.Setitems(AIndex : Integer; AValue : TSettingsTypeitemsArray);
+Procedure TSettings.Setitems(AIndex : Integer; const AValue : TSettingsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3920,7 +3996,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTimePeriod.Set_end(AIndex : Integer; AValue : TDatetime);
+Procedure TTimePeriod.Set_end(AIndex : Integer; const AValue : TDatetime);
begin
If (F_end=AValue) then exit;
@@ -3930,7 +4006,7 @@ end;
-Procedure TTimePeriod.Setstart(AIndex : Integer; AValue : TDatetime);
+Procedure TTimePeriod.Setstart(AIndex : Integer; const AValue : TDatetime);
begin
If (Fstart=AValue) then exit;
@@ -4527,7 +4603,7 @@ begin
Result:=Get(calendarId,eventId,_Q);
end;
-Function TEventsResource.Import(calendarId: string; aEvent : TEvent) : TEvent;
+Function TEventsResource.Import(calendarId: string; aEvent : TEvent; AQuery : string = '') : TEvent;
Const
_HTTPMethod = 'POST';
@@ -4539,7 +4615,19 @@ Var
begin
_P:=SubstitutePath(_Path,['calendarId',calendarId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aEvent,TEvent) as TEvent;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aEvent,TEvent) as TEvent;
+end;
+
+
+Function TEventsResource.Import(calendarId: string; aEvent : TEvent; AQuery : TEventsimportOptions) : TEvent;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'supportsAttachments',AQuery.supportsAttachments);
+ Result:=Import(calendarId,aEvent,_Q);
end;
Function TEventsResource.Insert(calendarId: string; aEvent : TEvent; AQuery : string = '') : TEvent;
@@ -4567,6 +4655,7 @@ begin
_Q:='';
AddToQuery(_Q,'maxAttendees',AQuery.maxAttendees);
AddToQuery(_Q,'sendNotifications',AQuery.sendNotifications);
+ AddToQuery(_Q,'supportsAttachments',AQuery.supportsAttachments);
Result:=Insert(calendarId,aEvent,_Q);
end;
@@ -4702,6 +4791,7 @@ begin
AddToQuery(_Q,'alwaysIncludeEmail',AQuery.alwaysIncludeEmail);
AddToQuery(_Q,'maxAttendees',AQuery.maxAttendees);
AddToQuery(_Q,'sendNotifications',AQuery.sendNotifications);
+ AddToQuery(_Q,'supportsAttachments',AQuery.supportsAttachments);
Result:=Patch(calendarId,eventId,aEvent,_Q);
end;
@@ -4759,6 +4849,7 @@ begin
AddToQuery(_Q,'alwaysIncludeEmail',AQuery.alwaysIncludeEmail);
AddToQuery(_Q,'maxAttendees',AQuery.maxAttendees);
AddToQuery(_Q,'sendNotifications',AQuery.sendNotifications);
+ AddToQuery(_Q,'supportsAttachments',AQuery.supportsAttachments);
Result:=Update(calendarId,eventId,aEvent,_Q);
end;
@@ -4940,7 +5031,7 @@ end;
Class Function TCalendarAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160515';
end;
Class Function TCalendarAPI.APIID : String;
@@ -4958,7 +5049,7 @@ end;
Class Function TCalendarAPI.APIDescription : String;
begin
- Result:='Lets you manipulate events and other calendar data.';
+ Result:='Manipulates events and other calendar data.';
end;
Class Function TCalendarAPI.APIOwnerDomain : String;
@@ -4994,7 +5085,7 @@ end;
Class Function TCalendarAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TCalendarAPI.APIbasePath : string;
@@ -5006,7 +5097,7 @@ end;
Class Function TCalendarAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/calendar/v3/';
+ Result:='https://www.googleapis.com/calendar/v3/';
end;
Class Function TCalendarAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlecivicinfo.pp b/packages/googleapi/src/googlecivicinfo.pp
index 58297fa433..da2898e892 100644
--- a/packages/googleapi/src/googlecivicinfo.pp
+++ b/packages/googleapi/src/googlecivicinfo.pp
@@ -1,19 +1,4 @@
unit googlecivicinfo;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:00
{$MODE objfpc}
{$H+}
@@ -102,11 +87,11 @@ type
Fsources : TAdministrationRegionTypesourcesArray;
Protected
//Property setters
- Procedure SetelectionAdministrationBody(AIndex : Integer; AValue : TAdministrativeBody); virtual;
+ Procedure SetelectionAdministrationBody(AIndex : Integer; const AValue : TAdministrativeBody); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocal_jurisdiction(AIndex : Integer; AValue : TAdministrationRegion); virtual;
+ Procedure Setlocal_jurisdiction(AIndex : Integer; const AValue : TAdministrationRegion); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsources(AIndex : Integer; AValue : TAdministrationRegionTypesourcesArray); virtual;
+ Procedure Setsources(AIndex : Integer; const AValue : TAdministrationRegionTypesourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -144,16 +129,16 @@ type
//Property setters
Procedure SetabsenteeVotingInfoUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetballotInfoUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcorrespondenceAddress(AIndex : Integer; AValue : TSimpleAddressType); virtual;
+ Procedure SetcorrespondenceAddress(AIndex : Integer; const AValue : TSimpleAddressType); virtual;
Procedure SetelectionInfoUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetelectionOfficials(AIndex : Integer; AValue : TAdministrativeBodyTypeelectionOfficialsArray); virtual;
+ Procedure SetelectionOfficials(AIndex : Integer; const AValue : TAdministrativeBodyTypeelectionOfficialsArray); virtual;
Procedure SetelectionRegistrationConfirmationUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetelectionRegistrationUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetelectionRulesUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SethoursOfOperation(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetphysicalAddress(AIndex : Integer; AValue : TSimpleAddressType); virtual;
- Procedure Setvoter_services(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetphysicalAddress(AIndex : Integer; const AValue : TSimpleAddressType); virtual;
+ Procedure Setvoter_services(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetvotingLocationFinderUrl(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -194,7 +179,7 @@ type
Protected
//Property setters
Procedure SetcandidateUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setchannels(AIndex : Integer; AValue : TCandidateTypechannelsArray); virtual;
+ Procedure Setchannels(AIndex : Integer; const AValue : TCandidateTypechannelsArray); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetorderOnBallot(AIndex : Integer; const AValue : String); virtual;
@@ -254,7 +239,14 @@ type
FnumberVotingFor : String;
Foffice : String;
FprimaryParty : String;
+ FreferendumBallotResponses : TStringArray;
+ FreferendumBrief : String;
+ FreferendumConStatement : String;
+ FreferendumEffectOfAbstain : String;
+ FreferendumPassageThreshold : String;
+ FreferendumProStatement : String;
FreferendumSubtitle : String;
+ FreferendumText : String;
FreferendumTitle : String;
FreferendumUrl : String;
Froles : TStringArray;
@@ -265,20 +257,27 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetballotPlacement(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcandidates(AIndex : Integer; AValue : TContestTypecandidatesArray); virtual;
- Procedure Setdistrict(AIndex : Integer; AValue : TElectoralDistrict); virtual;
+ Procedure Setcandidates(AIndex : Integer; const AValue : TContestTypecandidatesArray); virtual;
+ Procedure Setdistrict(AIndex : Integer; const AValue : TElectoralDistrict); virtual;
Procedure SetelectorateSpecifications(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlevel(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setlevel(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetnumberElected(AIndex : Integer; const AValue : String); virtual;
Procedure SetnumberVotingFor(AIndex : Integer; const AValue : String); virtual;
Procedure Setoffice(AIndex : Integer; const AValue : String); virtual;
Procedure SetprimaryParty(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferendumBallotResponses(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetreferendumBrief(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferendumConStatement(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferendumEffectOfAbstain(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferendumPassageThreshold(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferendumProStatement(AIndex : Integer; const AValue : String); virtual;
Procedure SetreferendumSubtitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferendumText(AIndex : Integer; const AValue : String); virtual;
Procedure SetreferendumTitle(AIndex : Integer; const AValue : String); virtual;
Procedure SetreferendumUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setroles(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setsources(AIndex : Integer; AValue : TContestTypesourcesArray); virtual;
+ Procedure Setroles(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setsources(AIndex : Integer; const AValue : TContestTypesourcesArray); virtual;
Procedure Setspecial(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -297,13 +296,20 @@ type
Property numberVotingFor : String Index 56 Read FnumberVotingFor Write SetnumberVotingFor;
Property office : String Index 64 Read Foffice Write Setoffice;
Property primaryParty : String Index 72 Read FprimaryParty Write SetprimaryParty;
- Property referendumSubtitle : String Index 80 Read FreferendumSubtitle Write SetreferendumSubtitle;
- Property referendumTitle : String Index 88 Read FreferendumTitle Write SetreferendumTitle;
- Property referendumUrl : String Index 96 Read FreferendumUrl Write SetreferendumUrl;
- Property roles : TStringArray Index 104 Read Froles Write Setroles;
- Property sources : TContestTypesourcesArray Index 112 Read Fsources Write Setsources;
- Property special : String Index 120 Read Fspecial Write Setspecial;
- Property _type : String Index 128 Read F_type Write Set_type;
+ Property referendumBallotResponses : TStringArray Index 80 Read FreferendumBallotResponses Write SetreferendumBallotResponses;
+ Property referendumBrief : String Index 88 Read FreferendumBrief Write SetreferendumBrief;
+ Property referendumConStatement : String Index 96 Read FreferendumConStatement Write SetreferendumConStatement;
+ Property referendumEffectOfAbstain : String Index 104 Read FreferendumEffectOfAbstain Write SetreferendumEffectOfAbstain;
+ Property referendumPassageThreshold : String Index 112 Read FreferendumPassageThreshold Write SetreferendumPassageThreshold;
+ Property referendumProStatement : String Index 120 Read FreferendumProStatement Write SetreferendumProStatement;
+ Property referendumSubtitle : String Index 128 Read FreferendumSubtitle Write SetreferendumSubtitle;
+ Property referendumText : String Index 136 Read FreferendumText Write SetreferendumText;
+ Property referendumTitle : String Index 144 Read FreferendumTitle Write SetreferendumTitle;
+ Property referendumUrl : String Index 152 Read FreferendumUrl Write SetreferendumUrl;
+ Property roles : TStringArray Index 160 Read Froles Write Setroles;
+ Property sources : TContestTypesourcesArray Index 168 Read Fsources Write Setsources;
+ Property special : String Index 176 Read Fspecial Write Setspecial;
+ Property _type : String Index 184 Read F_type Write Set_type;
end;
TContestClass = Class of TContest;
@@ -318,7 +324,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresults(AIndex : Integer; AValue : TDivisionSearchResponseTyperesultsArray); virtual;
+ Procedure Setresults(AIndex : Integer; const AValue : TDivisionSearchResponseTyperesultsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -341,7 +347,7 @@ type
FocdId : String;
Protected
//Property setters
- Procedure Setaliases(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setaliases(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetocdId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -365,16 +371,19 @@ type
FelectionDay : String;
Fid : String;
Fname : String;
+ FocdDivisionId : String;
Protected
//Property setters
Procedure SetelectionDay(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetocdDivisionId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property electionDay : String Index 0 Read FelectionDay Write SetelectionDay;
Property id : String Index 8 Read Fid Write Setid;
Property name : String Index 16 Read Fname Write Setname;
+ Property ocdDivisionId : String Index 24 Read FocdDivisionId Write SetocdDivisionId;
end;
TElectionClass = Class of TElection;
@@ -416,7 +425,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setelections(AIndex : Integer; AValue : TElectionsQueryResponseTypeelectionsArray); virtual;
+ Procedure Setelections(AIndex : Integer; const AValue : TElectionsQueryResponseTypeelectionsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -462,9 +471,9 @@ type
FofficeIndices : TintegerArray;
Protected
//Property setters
- Procedure SetalsoKnownAs(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetalsoKnownAs(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetofficeIndices(AIndex : Integer; AValue : TintegerArray); virtual;
+ Procedure SetofficeIndices(AIndex : Integer; const AValue : TintegerArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -492,11 +501,11 @@ type
Protected
//Property setters
Procedure SetdivisionId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlevels(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setlevels(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetofficialIndices(AIndex : Integer; AValue : TintegerArray); virtual;
- Procedure Setroles(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setsources(AIndex : Integer; AValue : TOfficeTypesourcesArray); virtual;
+ Procedure SetofficialIndices(AIndex : Integer; const AValue : TintegerArray); virtual;
+ Procedure Setroles(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setsources(AIndex : Integer; const AValue : TOfficeTypesourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -528,14 +537,14 @@ type
Furls : TStringArray;
Protected
//Property setters
- Procedure Setaddress(AIndex : Integer; AValue : TOfficialTypeaddressArray); virtual;
- Procedure Setchannels(AIndex : Integer; AValue : TOfficialTypechannelsArray); virtual;
- Procedure Setemails(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setaddress(AIndex : Integer; const AValue : TOfficialTypeaddressArray); virtual;
+ Procedure Setchannels(AIndex : Integer; const AValue : TOfficialTypechannelsArray); virtual;
+ Procedure Setemails(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setparty(AIndex : Integer; const AValue : String); virtual;
- Procedure Setphones(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setphones(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturls(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Seturls(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -570,13 +579,13 @@ type
FvoterServices : String;
Protected
//Property setters
- Procedure Setaddress(AIndex : Integer; AValue : TSimpleAddressType); virtual;
+ Procedure Setaddress(AIndex : Integer; const AValue : TSimpleAddressType); virtual;
Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
Procedure SetpollingHours(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsources(AIndex : Integer; AValue : TPollingLocationTypesourcesArray); virtual;
+ Procedure Setsources(AIndex : Integer; const AValue : TPollingLocationTypesourcesArray); virtual;
Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
Procedure SetvoterServices(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -622,9 +631,9 @@ type
Fofficials : TRepresentativeInfoDataTypeofficialsArray;
Protected
//Property setters
- Procedure Setdivisions(AIndex : Integer; AValue : TRepresentativeInfoDataTypedivisions); virtual;
- Procedure Setoffices(AIndex : Integer; AValue : TRepresentativeInfoDataTypeofficesArray); virtual;
- Procedure Setofficials(AIndex : Integer; AValue : TRepresentativeInfoDataTypeofficialsArray); virtual;
+ Procedure Setdivisions(AIndex : Integer; const AValue : TRepresentativeInfoDataTypedivisions); virtual;
+ Procedure Setoffices(AIndex : Integer; const AValue : TRepresentativeInfoDataTypeofficesArray); virtual;
+ Procedure Setofficials(AIndex : Integer; const AValue : TRepresentativeInfoDataTypeofficialsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -664,11 +673,11 @@ type
Fofficials : TRepresentativeInfoResponseTypeofficialsArray;
Protected
//Property setters
- Procedure Setdivisions(AIndex : Integer; AValue : TRepresentativeInfoResponseTypedivisions); virtual;
+ Procedure Setdivisions(AIndex : Integer; const AValue : TRepresentativeInfoResponseTypedivisions); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnormalizedInput(AIndex : Integer; AValue : TSimpleAddressType); virtual;
- Procedure Setoffices(AIndex : Integer; AValue : TRepresentativeInfoResponseTypeofficesArray); virtual;
- Procedure Setofficials(AIndex : Integer; AValue : TRepresentativeInfoResponseTypeofficialsArray); virtual;
+ Procedure SetnormalizedInput(AIndex : Integer; const AValue : TSimpleAddressType); virtual;
+ Procedure Setoffices(AIndex : Integer; const AValue : TRepresentativeInfoResponseTypeofficesArray); virtual;
+ Procedure Setofficials(AIndex : Integer; const AValue : TRepresentativeInfoResponseTypeofficialsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -728,7 +737,7 @@ type
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setofficial(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setofficial(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
@@ -747,6 +756,7 @@ type
FearlyVoteSites : TVoterInfoResponseTypeearlyVoteSitesArray;
Felection : TElection;
Fkind : String;
+ FmailOnly : boolean;
FnormalizedInput : TSimpleAddressType;
FotherElections : TVoterInfoResponseTypeotherElectionsArray;
FpollingLocations : TVoterInfoResponseTypepollingLocationsArray;
@@ -754,16 +764,17 @@ type
Fstate : TVoterInfoResponseTypestateArray;
Protected
//Property setters
- Procedure Setcontests(AIndex : Integer; AValue : TVoterInfoResponseTypecontestsArray); virtual;
- Procedure SetdropOffLocations(AIndex : Integer; AValue : TVoterInfoResponseTypedropOffLocationsArray); virtual;
- Procedure SetearlyVoteSites(AIndex : Integer; AValue : TVoterInfoResponseTypeearlyVoteSitesArray); virtual;
- Procedure Setelection(AIndex : Integer; AValue : TElection); virtual;
+ Procedure Setcontests(AIndex : Integer; const AValue : TVoterInfoResponseTypecontestsArray); virtual;
+ Procedure SetdropOffLocations(AIndex : Integer; const AValue : TVoterInfoResponseTypedropOffLocationsArray); virtual;
+ Procedure SetearlyVoteSites(AIndex : Integer; const AValue : TVoterInfoResponseTypeearlyVoteSitesArray); virtual;
+ Procedure Setelection(AIndex : Integer; const AValue : TElection); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnormalizedInput(AIndex : Integer; AValue : TSimpleAddressType); virtual;
- Procedure SetotherElections(AIndex : Integer; AValue : TVoterInfoResponseTypeotherElectionsArray); virtual;
- Procedure SetpollingLocations(AIndex : Integer; AValue : TVoterInfoResponseTypepollingLocationsArray); virtual;
+ Procedure SetmailOnly(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetnormalizedInput(AIndex : Integer; const AValue : TSimpleAddressType); virtual;
+ Procedure SetotherElections(AIndex : Integer; const AValue : TVoterInfoResponseTypeotherElectionsArray); virtual;
+ Procedure SetpollingLocations(AIndex : Integer; const AValue : TVoterInfoResponseTypepollingLocationsArray); virtual;
Procedure SetprecinctId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstate(AIndex : Integer; AValue : TVoterInfoResponseTypestateArray); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : TVoterInfoResponseTypestateArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -775,11 +786,12 @@ type
Property earlyVoteSites : TVoterInfoResponseTypeearlyVoteSitesArray Index 16 Read FearlyVoteSites Write SetearlyVoteSites;
Property election : TElection Index 24 Read Felection Write Setelection;
Property kind : String Index 32 Read Fkind Write Setkind;
- Property normalizedInput : TSimpleAddressType Index 40 Read FnormalizedInput Write SetnormalizedInput;
- Property otherElections : TVoterInfoResponseTypeotherElectionsArray Index 48 Read FotherElections Write SetotherElections;
- Property pollingLocations : TVoterInfoResponseTypepollingLocationsArray Index 56 Read FpollingLocations Write SetpollingLocations;
- Property precinctId : String Index 64 Read FprecinctId Write SetprecinctId;
- Property state : TVoterInfoResponseTypestateArray Index 72 Read Fstate Write Setstate;
+ Property mailOnly : boolean Index 40 Read FmailOnly Write SetmailOnly;
+ Property normalizedInput : TSimpleAddressType Index 48 Read FnormalizedInput Write SetnormalizedInput;
+ Property otherElections : TVoterInfoResponseTypeotherElectionsArray Index 56 Read FotherElections Write SetotherElections;
+ Property pollingLocations : TVoterInfoResponseTypepollingLocationsArray Index 64 Read FpollingLocations Write SetpollingLocations;
+ Property precinctId : String Index 72 Read FprecinctId Write SetprecinctId;
+ Property state : TVoterInfoResponseTypestateArray Index 80 Read Fstate Write Setstate;
end;
TVoterInfoResponseClass = Class of TVoterInfoResponse;
@@ -915,7 +927,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TAdministrationRegion.SetelectionAdministrationBody(AIndex : Integer; AValue : TAdministrativeBody);
+Procedure TAdministrationRegion.SetelectionAdministrationBody(AIndex : Integer; const AValue : TAdministrativeBody);
begin
If (FelectionAdministrationBody=AValue) then exit;
@@ -935,7 +947,7 @@ end;
-Procedure TAdministrationRegion.Setlocal_jurisdiction(AIndex : Integer; AValue : TAdministrationRegion);
+Procedure TAdministrationRegion.Setlocal_jurisdiction(AIndex : Integer; const AValue : TAdministrationRegion);
begin
If (Flocal_jurisdiction=AValue) then exit;
@@ -955,7 +967,7 @@ end;
-Procedure TAdministrationRegion.Setsources(AIndex : Integer; AValue : TAdministrationRegionTypesourcesArray);
+Procedure TAdministrationRegion.Setsources(AIndex : Integer; const AValue : TAdministrationRegionTypesourcesArray);
begin
If (Fsources=AValue) then exit;
@@ -1005,7 +1017,7 @@ end;
-Procedure TAdministrativeBody.SetcorrespondenceAddress(AIndex : Integer; AValue : TSimpleAddressType);
+Procedure TAdministrativeBody.SetcorrespondenceAddress(AIndex : Integer; const AValue : TSimpleAddressType);
begin
If (FcorrespondenceAddress=AValue) then exit;
@@ -1025,7 +1037,7 @@ end;
-Procedure TAdministrativeBody.SetelectionOfficials(AIndex : Integer; AValue : TAdministrativeBodyTypeelectionOfficialsArray);
+Procedure TAdministrativeBody.SetelectionOfficials(AIndex : Integer; const AValue : TAdministrativeBodyTypeelectionOfficialsArray);
begin
If (FelectionOfficials=AValue) then exit;
@@ -1085,7 +1097,7 @@ end;
-Procedure TAdministrativeBody.SetphysicalAddress(AIndex : Integer; AValue : TSimpleAddressType);
+Procedure TAdministrativeBody.SetphysicalAddress(AIndex : Integer; const AValue : TSimpleAddressType);
begin
If (FphysicalAddress=AValue) then exit;
@@ -1095,7 +1107,7 @@ end;
-Procedure TAdministrativeBody.Setvoter_services(AIndex : Integer; AValue : TStringArray);
+Procedure TAdministrativeBody.Setvoter_services(AIndex : Integer; const AValue : TStringArray);
begin
If (Fvoter_services=AValue) then exit;
@@ -1146,7 +1158,7 @@ end;
-Procedure TCandidate.Setchannels(AIndex : Integer; AValue : TCandidateTypechannelsArray);
+Procedure TCandidate.Setchannels(AIndex : Integer; const AValue : TCandidateTypechannelsArray);
begin
If (Fchannels=AValue) then exit;
@@ -1284,7 +1296,7 @@ end;
-Procedure TContest.Setcandidates(AIndex : Integer; AValue : TContestTypecandidatesArray);
+Procedure TContest.Setcandidates(AIndex : Integer; const AValue : TContestTypecandidatesArray);
begin
If (Fcandidates=AValue) then exit;
@@ -1294,7 +1306,7 @@ end;
-Procedure TContest.Setdistrict(AIndex : Integer; AValue : TElectoralDistrict);
+Procedure TContest.Setdistrict(AIndex : Integer; const AValue : TElectoralDistrict);
begin
If (Fdistrict=AValue) then exit;
@@ -1324,7 +1336,7 @@ end;
-Procedure TContest.Setlevel(AIndex : Integer; AValue : TStringArray);
+Procedure TContest.Setlevel(AIndex : Integer; const AValue : TStringArray);
begin
If (Flevel=AValue) then exit;
@@ -1374,6 +1386,66 @@ end;
+Procedure TContest.SetreferendumBallotResponses(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FreferendumBallotResponses=AValue) then exit;
+ FreferendumBallotResponses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TContest.SetreferendumBrief(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreferendumBrief=AValue) then exit;
+ FreferendumBrief:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TContest.SetreferendumConStatement(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreferendumConStatement=AValue) then exit;
+ FreferendumConStatement:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TContest.SetreferendumEffectOfAbstain(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreferendumEffectOfAbstain=AValue) then exit;
+ FreferendumEffectOfAbstain:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TContest.SetreferendumPassageThreshold(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreferendumPassageThreshold=AValue) then exit;
+ FreferendumPassageThreshold:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TContest.SetreferendumProStatement(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreferendumProStatement=AValue) then exit;
+ FreferendumProStatement:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TContest.SetreferendumSubtitle(AIndex : Integer; const AValue : String);
begin
@@ -1384,6 +1456,16 @@ end;
+Procedure TContest.SetreferendumText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreferendumText=AValue) then exit;
+ FreferendumText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TContest.SetreferendumTitle(AIndex : Integer; const AValue : String);
begin
@@ -1404,7 +1486,7 @@ end;
-Procedure TContest.Setroles(AIndex : Integer; AValue : TStringArray);
+Procedure TContest.Setroles(AIndex : Integer; const AValue : TStringArray);
begin
If (Froles=AValue) then exit;
@@ -1414,7 +1496,7 @@ end;
-Procedure TContest.Setsources(AIndex : Integer; AValue : TContestTypesourcesArray);
+Procedure TContest.Setsources(AIndex : Integer; const AValue : TContestTypesourcesArray);
begin
If (Fsources=AValue) then exit;
@@ -1462,6 +1544,7 @@ begin
Case AName of
'candidates' : SetLength(Fcandidates,ALength);
'level' : SetLength(Flevel,ALength);
+ 'referendumballotresponses' : SetLength(FreferendumBallotResponses,ALength);
'roles' : SetLength(Froles,ALength);
'sources' : SetLength(Fsources,ALength);
else
@@ -1488,7 +1571,7 @@ end;
-Procedure TDivisionSearchResponse.Setresults(AIndex : Integer; AValue : TDivisionSearchResponseTyperesultsArray);
+Procedure TDivisionSearchResponse.Setresults(AIndex : Integer; const AValue : TDivisionSearchResponseTyperesultsArray);
begin
If (Fresults=AValue) then exit;
@@ -1518,7 +1601,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDivisionSearchResult.Setaliases(AIndex : Integer; AValue : TStringArray);
+Procedure TDivisionSearchResult.Setaliases(AIndex : Integer; const AValue : TStringArray);
begin
If (Faliases=AValue) then exit;
@@ -1598,6 +1681,16 @@ end;
+Procedure TElection.SetocdDivisionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FocdDivisionId=AValue) then exit;
+ FocdDivisionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -1662,7 +1755,7 @@ end;
--------------------------------------------------------------------}
-Procedure TElectionsQueryResponse.Setelections(AIndex : Integer; AValue : TElectionsQueryResponseTypeelectionsArray);
+Procedure TElectionsQueryResponse.Setelections(AIndex : Integer; const AValue : TElectionsQueryResponseTypeelectionsArray);
begin
If (Felections=AValue) then exit;
@@ -1739,7 +1832,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeographicDivision.SetalsoKnownAs(AIndex : Integer; AValue : TStringArray);
+Procedure TGeographicDivision.SetalsoKnownAs(AIndex : Integer; const AValue : TStringArray);
begin
If (FalsoKnownAs=AValue) then exit;
@@ -1759,7 +1852,7 @@ end;
-Procedure TGeographicDivision.SetofficeIndices(AIndex : Integer; AValue : TintegerArray);
+Procedure TGeographicDivision.SetofficeIndices(AIndex : Integer; const AValue : TintegerArray);
begin
If (FofficeIndices=AValue) then exit;
@@ -1800,7 +1893,7 @@ end;
-Procedure TOffice.Setlevels(AIndex : Integer; AValue : TStringArray);
+Procedure TOffice.Setlevels(AIndex : Integer; const AValue : TStringArray);
begin
If (Flevels=AValue) then exit;
@@ -1820,7 +1913,7 @@ end;
-Procedure TOffice.SetofficialIndices(AIndex : Integer; AValue : TintegerArray);
+Procedure TOffice.SetofficialIndices(AIndex : Integer; const AValue : TintegerArray);
begin
If (FofficialIndices=AValue) then exit;
@@ -1830,7 +1923,7 @@ end;
-Procedure TOffice.Setroles(AIndex : Integer; AValue : TStringArray);
+Procedure TOffice.Setroles(AIndex : Integer; const AValue : TStringArray);
begin
If (Froles=AValue) then exit;
@@ -1840,7 +1933,7 @@ end;
-Procedure TOffice.Setsources(AIndex : Integer; AValue : TOfficeTypesourcesArray);
+Procedure TOffice.Setsources(AIndex : Integer; const AValue : TOfficeTypesourcesArray);
begin
If (Fsources=AValue) then exit;
@@ -1873,7 +1966,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOfficial.Setaddress(AIndex : Integer; AValue : TOfficialTypeaddressArray);
+Procedure TOfficial.Setaddress(AIndex : Integer; const AValue : TOfficialTypeaddressArray);
begin
If (Faddress=AValue) then exit;
@@ -1883,7 +1976,7 @@ end;
-Procedure TOfficial.Setchannels(AIndex : Integer; AValue : TOfficialTypechannelsArray);
+Procedure TOfficial.Setchannels(AIndex : Integer; const AValue : TOfficialTypechannelsArray);
begin
If (Fchannels=AValue) then exit;
@@ -1893,7 +1986,7 @@ end;
-Procedure TOfficial.Setemails(AIndex : Integer; AValue : TStringArray);
+Procedure TOfficial.Setemails(AIndex : Integer; const AValue : TStringArray);
begin
If (Femails=AValue) then exit;
@@ -1923,7 +2016,7 @@ end;
-Procedure TOfficial.Setphones(AIndex : Integer; AValue : TStringArray);
+Procedure TOfficial.Setphones(AIndex : Integer; const AValue : TStringArray);
begin
If (Fphones=AValue) then exit;
@@ -1943,7 +2036,7 @@ end;
-Procedure TOfficial.Seturls(AIndex : Integer; AValue : TStringArray);
+Procedure TOfficial.Seturls(AIndex : Integer; const AValue : TStringArray);
begin
If (Furls=AValue) then exit;
@@ -1977,7 +2070,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPollingLocation.Setaddress(AIndex : Integer; AValue : TSimpleAddressType);
+Procedure TPollingLocation.Setaddress(AIndex : Integer; const AValue : TSimpleAddressType);
begin
If (Faddress=AValue) then exit;
@@ -2037,7 +2130,7 @@ end;
-Procedure TPollingLocation.Setsources(AIndex : Integer; AValue : TPollingLocationTypesourcesArray);
+Procedure TPollingLocation.Setsources(AIndex : Integer; const AValue : TPollingLocationTypesourcesArray);
begin
If (Fsources=AValue) then exit;
@@ -2100,7 +2193,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRepresentativeInfoData.Setdivisions(AIndex : Integer; AValue : TRepresentativeInfoDataTypedivisions);
+Procedure TRepresentativeInfoData.Setdivisions(AIndex : Integer; const AValue : TRepresentativeInfoDataTypedivisions);
begin
If (Fdivisions=AValue) then exit;
@@ -2110,7 +2203,7 @@ end;
-Procedure TRepresentativeInfoData.Setoffices(AIndex : Integer; AValue : TRepresentativeInfoDataTypeofficesArray);
+Procedure TRepresentativeInfoData.Setoffices(AIndex : Integer; const AValue : TRepresentativeInfoDataTypeofficesArray);
begin
If (Foffices=AValue) then exit;
@@ -2120,7 +2213,7 @@ end;
-Procedure TRepresentativeInfoData.Setofficials(AIndex : Integer; AValue : TRepresentativeInfoDataTypeofficialsArray);
+Procedure TRepresentativeInfoData.Setofficials(AIndex : Integer; const AValue : TRepresentativeInfoDataTypeofficialsArray);
begin
If (Fofficials=AValue) then exit;
@@ -2164,7 +2257,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRepresentativeInfoResponse.Setdivisions(AIndex : Integer; AValue : TRepresentativeInfoResponseTypedivisions);
+Procedure TRepresentativeInfoResponse.Setdivisions(AIndex : Integer; const AValue : TRepresentativeInfoResponseTypedivisions);
begin
If (Fdivisions=AValue) then exit;
@@ -2184,7 +2277,7 @@ end;
-Procedure TRepresentativeInfoResponse.SetnormalizedInput(AIndex : Integer; AValue : TSimpleAddressType);
+Procedure TRepresentativeInfoResponse.SetnormalizedInput(AIndex : Integer; const AValue : TSimpleAddressType);
begin
If (FnormalizedInput=AValue) then exit;
@@ -2194,7 +2287,7 @@ end;
-Procedure TRepresentativeInfoResponse.Setoffices(AIndex : Integer; AValue : TRepresentativeInfoResponseTypeofficesArray);
+Procedure TRepresentativeInfoResponse.Setoffices(AIndex : Integer; const AValue : TRepresentativeInfoResponseTypeofficesArray);
begin
If (Foffices=AValue) then exit;
@@ -2204,7 +2297,7 @@ end;
-Procedure TRepresentativeInfoResponse.Setofficials(AIndex : Integer; AValue : TRepresentativeInfoResponseTypeofficialsArray);
+Procedure TRepresentativeInfoResponse.Setofficials(AIndex : Integer; const AValue : TRepresentativeInfoResponseTypeofficialsArray);
begin
If (Fofficials=AValue) then exit;
@@ -2322,7 +2415,7 @@ end;
-Procedure TSource.Setofficial(AIndex : Integer; AValue : boolean);
+Procedure TSource.Setofficial(AIndex : Integer; const AValue : boolean);
begin
If (Fofficial=AValue) then exit;
@@ -2339,7 +2432,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVoterInfoResponse.Setcontests(AIndex : Integer; AValue : TVoterInfoResponseTypecontestsArray);
+Procedure TVoterInfoResponse.Setcontests(AIndex : Integer; const AValue : TVoterInfoResponseTypecontestsArray);
begin
If (Fcontests=AValue) then exit;
@@ -2349,7 +2442,7 @@ end;
-Procedure TVoterInfoResponse.SetdropOffLocations(AIndex : Integer; AValue : TVoterInfoResponseTypedropOffLocationsArray);
+Procedure TVoterInfoResponse.SetdropOffLocations(AIndex : Integer; const AValue : TVoterInfoResponseTypedropOffLocationsArray);
begin
If (FdropOffLocations=AValue) then exit;
@@ -2359,7 +2452,7 @@ end;
-Procedure TVoterInfoResponse.SetearlyVoteSites(AIndex : Integer; AValue : TVoterInfoResponseTypeearlyVoteSitesArray);
+Procedure TVoterInfoResponse.SetearlyVoteSites(AIndex : Integer; const AValue : TVoterInfoResponseTypeearlyVoteSitesArray);
begin
If (FearlyVoteSites=AValue) then exit;
@@ -2369,7 +2462,7 @@ end;
-Procedure TVoterInfoResponse.Setelection(AIndex : Integer; AValue : TElection);
+Procedure TVoterInfoResponse.Setelection(AIndex : Integer; const AValue : TElection);
begin
If (Felection=AValue) then exit;
@@ -2389,7 +2482,17 @@ end;
-Procedure TVoterInfoResponse.SetnormalizedInput(AIndex : Integer; AValue : TSimpleAddressType);
+Procedure TVoterInfoResponse.SetmailOnly(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FmailOnly=AValue) then exit;
+ FmailOnly:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVoterInfoResponse.SetnormalizedInput(AIndex : Integer; const AValue : TSimpleAddressType);
begin
If (FnormalizedInput=AValue) then exit;
@@ -2399,7 +2502,7 @@ end;
-Procedure TVoterInfoResponse.SetotherElections(AIndex : Integer; AValue : TVoterInfoResponseTypeotherElectionsArray);
+Procedure TVoterInfoResponse.SetotherElections(AIndex : Integer; const AValue : TVoterInfoResponseTypeotherElectionsArray);
begin
If (FotherElections=AValue) then exit;
@@ -2409,7 +2512,7 @@ end;
-Procedure TVoterInfoResponse.SetpollingLocations(AIndex : Integer; AValue : TVoterInfoResponseTypepollingLocationsArray);
+Procedure TVoterInfoResponse.SetpollingLocations(AIndex : Integer; const AValue : TVoterInfoResponseTypepollingLocationsArray);
begin
If (FpollingLocations=AValue) then exit;
@@ -2429,7 +2532,7 @@ end;
-Procedure TVoterInfoResponse.Setstate(AIndex : Integer; AValue : TVoterInfoResponseTypestateArray);
+Procedure TVoterInfoResponse.Setstate(AIndex : Integer; const AValue : TVoterInfoResponseTypestateArray);
begin
If (Fstate=AValue) then exit;
@@ -2649,7 +2752,7 @@ end;
Class Function TCivicinfoAPI.APIRevision : String;
begin
- Result:='20150302';
+ Result:='20150820';
end;
Class Function TCivicinfoAPI.APIID : String;
@@ -2703,7 +2806,7 @@ end;
Class Function TCivicinfoAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TCivicinfoAPI.APIbasePath : string;
@@ -2715,7 +2818,7 @@ end;
Class Function TCivicinfoAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/civicinfo/v2/';
+ Result:='https://www.googleapis.com/civicinfo/v2/';
end;
Class Function TCivicinfoAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googleclassroom.pp b/packages/googleapi/src/googleclassroom.pp
new file mode 100644
index 0000000000..3b91169391
--- /dev/null
+++ b/packages/googleapi/src/googleclassroom.pp
@@ -0,0 +1,4445 @@
+unit googleclassroom;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TCourse = Class;
+ TDriveFolder = Class;
+ TCourseMaterialSet = Class;
+ TCourseMaterial = Class;
+ TDriveFile = Class;
+ TYouTubeVideo = Class;
+ TLink = Class;
+ TForm = Class;
+ TEmpty = Class;
+ TListCoursesResponse = Class;
+ TCourseAlias = Class;
+ TListCourseAliasesResponse = Class;
+ TInvitation = Class;
+ TListInvitationsResponse = Class;
+ TUserProfile = Class;
+ TName = Class;
+ TGlobalPermission = Class;
+ TTeacher = Class;
+ TListTeachersResponse = Class;
+ TStudent = Class;
+ TListStudentsResponse = Class;
+ TCourseWork = Class;
+ TMaterial = Class;
+ TSharedDriveFile = Class;
+ TDate = Class;
+ TTimeOfDay = Class;
+ TAssignment = Class;
+ TMultipleChoiceQuestion = Class;
+ TListCourseWorkResponse = Class;
+ TStudentSubmission = Class;
+ TAssignmentSubmission = Class;
+ TAttachment = Class;
+ TShortAnswerSubmission = Class;
+ TMultipleChoiceSubmission = Class;
+ TListStudentSubmissionsResponse = Class;
+ TTurnInStudentSubmissionRequest = Class;
+ TReclaimStudentSubmissionRequest = Class;
+ TReturnStudentSubmissionRequest = Class;
+ TModifyAttachmentsRequest = Class;
+ TCourseArray = Array of TCourse;
+ TDriveFolderArray = Array of TDriveFolder;
+ TCourseMaterialSetArray = Array of TCourseMaterialSet;
+ TCourseMaterialArray = Array of TCourseMaterial;
+ TDriveFileArray = Array of TDriveFile;
+ TYouTubeVideoArray = Array of TYouTubeVideo;
+ TLinkArray = Array of TLink;
+ TFormArray = Array of TForm;
+ TEmptyArray = Array of TEmpty;
+ TListCoursesResponseArray = Array of TListCoursesResponse;
+ TCourseAliasArray = Array of TCourseAlias;
+ TListCourseAliasesResponseArray = Array of TListCourseAliasesResponse;
+ TInvitationArray = Array of TInvitation;
+ TListInvitationsResponseArray = Array of TListInvitationsResponse;
+ TUserProfileArray = Array of TUserProfile;
+ TNameArray = Array of TName;
+ TGlobalPermissionArray = Array of TGlobalPermission;
+ TTeacherArray = Array of TTeacher;
+ TListTeachersResponseArray = Array of TListTeachersResponse;
+ TStudentArray = Array of TStudent;
+ TListStudentsResponseArray = Array of TListStudentsResponse;
+ TCourseWorkArray = Array of TCourseWork;
+ TMaterialArray = Array of TMaterial;
+ TSharedDriveFileArray = Array of TSharedDriveFile;
+ TDateArray = Array of TDate;
+ TTimeOfDayArray = Array of TTimeOfDay;
+ TAssignmentArray = Array of TAssignment;
+ TMultipleChoiceQuestionArray = Array of TMultipleChoiceQuestion;
+ TListCourseWorkResponseArray = Array of TListCourseWorkResponse;
+ TStudentSubmissionArray = Array of TStudentSubmission;
+ TAssignmentSubmissionArray = Array of TAssignmentSubmission;
+ TAttachmentArray = Array of TAttachment;
+ TShortAnswerSubmissionArray = Array of TShortAnswerSubmission;
+ TMultipleChoiceSubmissionArray = Array of TMultipleChoiceSubmission;
+ TListStudentSubmissionsResponseArray = Array of TListStudentSubmissionsResponse;
+ TTurnInStudentSubmissionRequestArray = Array of TTurnInStudentSubmissionRequest;
+ TReclaimStudentSubmissionRequestArray = Array of TReclaimStudentSubmissionRequest;
+ TReturnStudentSubmissionRequestArray = Array of TReturnStudentSubmissionRequest;
+ TModifyAttachmentsRequestArray = Array of TModifyAttachmentsRequest;
+ //Anonymous types, using auto-generated names
+ TCourseTypecourseMaterialSetsArray = Array of TCourseMaterialSet;
+ TCourseMaterialSetTypematerialsArray = Array of TCourseMaterial;
+ TListCoursesResponseTypecoursesArray = Array of TCourse;
+ TListCourseAliasesResponseTypealiasesArray = Array of TCourseAlias;
+ TListInvitationsResponseTypeinvitationsArray = Array of TInvitation;
+ TUserProfileTypepermissionsArray = Array of TGlobalPermission;
+ TListTeachersResponseTypeteachersArray = Array of TTeacher;
+ TListStudentsResponseTypestudentsArray = Array of TStudent;
+ TCourseWorkTypematerialsArray = Array of TMaterial;
+ TListCourseWorkResponseTypecourseWorkArray = Array of TCourseWork;
+ TAssignmentSubmissionTypeattachmentsArray = Array of TAttachment;
+ TListStudentSubmissionsResponseTypestudentSubmissionsArray = Array of TStudentSubmission;
+ TModifyAttachmentsRequestTypeaddAttachmentsArray = Array of TAttachment;
+
+ { --------------------------------------------------------------------
+ TCourse
+ --------------------------------------------------------------------}
+
+ TCourse = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fname : String;
+ Fsection : String;
+ FdescriptionHeading : String;
+ Fdescription : String;
+ Froom : String;
+ FownerId : String;
+ FcreationTime : String;
+ FupdateTime : String;
+ FenrollmentCode : String;
+ FcourseState : String;
+ FalternateLink : String;
+ FteacherGroupEmail : String;
+ FcourseGroupEmail : String;
+ FteacherFolder : TDriveFolder;
+ FcourseMaterialSets : TCourseTypecourseMaterialSetsArray;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsection(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdescriptionHeading(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setroom(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetownerId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupdateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetenrollmentCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcourseState(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetalternateLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetteacherGroupEmail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcourseGroupEmail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetteacherFolder(AIndex : Integer; const AValue : TDriveFolder); virtual;
+ Procedure SetcourseMaterialSets(AIndex : Integer; const AValue : TCourseTypecourseMaterialSetsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property section : String Index 16 Read Fsection Write Setsection;
+ Property descriptionHeading : String Index 24 Read FdescriptionHeading Write SetdescriptionHeading;
+ Property description : String Index 32 Read Fdescription Write Setdescription;
+ Property room : String Index 40 Read Froom Write Setroom;
+ Property ownerId : String Index 48 Read FownerId Write SetownerId;
+ Property creationTime : String Index 56 Read FcreationTime Write SetcreationTime;
+ Property updateTime : String Index 64 Read FupdateTime Write SetupdateTime;
+ Property enrollmentCode : String Index 72 Read FenrollmentCode Write SetenrollmentCode;
+ Property courseState : String Index 80 Read FcourseState Write SetcourseState;
+ Property alternateLink : String Index 88 Read FalternateLink Write SetalternateLink;
+ Property teacherGroupEmail : String Index 96 Read FteacherGroupEmail Write SetteacherGroupEmail;
+ Property courseGroupEmail : String Index 104 Read FcourseGroupEmail Write SetcourseGroupEmail;
+ Property teacherFolder : TDriveFolder Index 112 Read FteacherFolder Write SetteacherFolder;
+ Property courseMaterialSets : TCourseTypecourseMaterialSetsArray Index 120 Read FcourseMaterialSets Write SetcourseMaterialSets;
+ end;
+ TCourseClass = Class of TCourse;
+
+ { --------------------------------------------------------------------
+ TDriveFolder
+ --------------------------------------------------------------------}
+
+ TDriveFolder = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Ftitle : String;
+ FalternateLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetalternateLink(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property title : String Index 8 Read Ftitle Write Settitle;
+ Property alternateLink : String Index 16 Read FalternateLink Write SetalternateLink;
+ end;
+ TDriveFolderClass = Class of TDriveFolder;
+
+ { --------------------------------------------------------------------
+ TCourseMaterialSet
+ --------------------------------------------------------------------}
+
+ TCourseMaterialSet = Class(TGoogleBaseObject)
+ Private
+ Ftitle : String;
+ Fmaterials : TCourseMaterialSetTypematerialsArray;
+ Protected
+ //Property setters
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmaterials(AIndex : Integer; const AValue : TCourseMaterialSetTypematerialsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property title : String Index 0 Read Ftitle Write Settitle;
+ Property materials : TCourseMaterialSetTypematerialsArray Index 8 Read Fmaterials Write Setmaterials;
+ end;
+ TCourseMaterialSetClass = Class of TCourseMaterialSet;
+
+ { --------------------------------------------------------------------
+ TCourseMaterial
+ --------------------------------------------------------------------}
+
+ TCourseMaterial = Class(TGoogleBaseObject)
+ Private
+ FdriveFile : TDriveFile;
+ FyouTubeVideo : TYouTubeVideo;
+ Flink : TLink;
+ Fform : TForm;
+ Protected
+ //Property setters
+ Procedure SetdriveFile(AIndex : Integer; const AValue : TDriveFile); virtual;
+ Procedure SetyouTubeVideo(AIndex : Integer; const AValue : TYouTubeVideo); virtual;
+ Procedure Setlink(AIndex : Integer; const AValue : TLink); virtual;
+ Procedure Setform(AIndex : Integer; const AValue : TForm); virtual;
+ Public
+ Published
+ Property driveFile : TDriveFile Index 0 Read FdriveFile Write SetdriveFile;
+ Property youTubeVideo : TYouTubeVideo Index 8 Read FyouTubeVideo Write SetyouTubeVideo;
+ Property link : TLink Index 16 Read Flink Write Setlink;
+ Property form : TForm Index 24 Read Fform Write Setform;
+ end;
+ TCourseMaterialClass = Class of TCourseMaterial;
+
+ { --------------------------------------------------------------------
+ TDriveFile
+ --------------------------------------------------------------------}
+
+ TDriveFile = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Ftitle : String;
+ FalternateLink : String;
+ FthumbnailUrl : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetalternateLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetthumbnailUrl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property title : String Index 8 Read Ftitle Write Settitle;
+ Property alternateLink : String Index 16 Read FalternateLink Write SetalternateLink;
+ Property thumbnailUrl : String Index 24 Read FthumbnailUrl Write SetthumbnailUrl;
+ end;
+ TDriveFileClass = Class of TDriveFile;
+
+ { --------------------------------------------------------------------
+ TYouTubeVideo
+ --------------------------------------------------------------------}
+
+ TYouTubeVideo = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Ftitle : String;
+ FalternateLink : String;
+ FthumbnailUrl : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetalternateLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetthumbnailUrl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property title : String Index 8 Read Ftitle Write Settitle;
+ Property alternateLink : String Index 16 Read FalternateLink Write SetalternateLink;
+ Property thumbnailUrl : String Index 24 Read FthumbnailUrl Write SetthumbnailUrl;
+ end;
+ TYouTubeVideoClass = Class of TYouTubeVideo;
+
+ { --------------------------------------------------------------------
+ TLink
+ --------------------------------------------------------------------}
+
+ TLink = Class(TGoogleBaseObject)
+ Private
+ Furl : String;
+ Ftitle : String;
+ FthumbnailUrl : String;
+ Protected
+ //Property setters
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetthumbnailUrl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property url : String Index 0 Read Furl Write Seturl;
+ Property title : String Index 8 Read Ftitle Write Settitle;
+ Property thumbnailUrl : String Index 16 Read FthumbnailUrl Write SetthumbnailUrl;
+ end;
+ TLinkClass = Class of TLink;
+
+ { --------------------------------------------------------------------
+ TForm
+ --------------------------------------------------------------------}
+
+ TForm = Class(TGoogleBaseObject)
+ Private
+ FformUrl : String;
+ FresponseUrl : String;
+ Ftitle : String;
+ FthumbnailUrl : String;
+ Protected
+ //Property setters
+ Procedure SetformUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetresponseUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetthumbnailUrl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property formUrl : String Index 0 Read FformUrl Write SetformUrl;
+ Property responseUrl : String Index 8 Read FresponseUrl Write SetresponseUrl;
+ Property title : String Index 16 Read Ftitle Write Settitle;
+ Property thumbnailUrl : String Index 24 Read FthumbnailUrl Write SetthumbnailUrl;
+ end;
+ TFormClass = Class of TForm;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TListCoursesResponse
+ --------------------------------------------------------------------}
+
+ TListCoursesResponse = Class(TGoogleBaseObject)
+ Private
+ Fcourses : TListCoursesResponseTypecoursesArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setcourses(AIndex : Integer; const AValue : TListCoursesResponseTypecoursesArray); 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 courses : TListCoursesResponseTypecoursesArray Index 0 Read Fcourses Write Setcourses;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListCoursesResponseClass = Class of TListCoursesResponse;
+
+ { --------------------------------------------------------------------
+ TCourseAlias
+ --------------------------------------------------------------------}
+
+ TCourseAlias = Class(TGoogleBaseObject)
+ Private
+ Falias : String;
+ Protected
+ //Property setters
+ Procedure Setalias(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property alias : String Index 0 Read Falias Write Setalias;
+ end;
+ TCourseAliasClass = Class of TCourseAlias;
+
+ { --------------------------------------------------------------------
+ TListCourseAliasesResponse
+ --------------------------------------------------------------------}
+
+ TListCourseAliasesResponse = Class(TGoogleBaseObject)
+ Private
+ Faliases : TListCourseAliasesResponseTypealiasesArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setaliases(AIndex : Integer; const AValue : TListCourseAliasesResponseTypealiasesArray); 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 aliases : TListCourseAliasesResponseTypealiasesArray Index 0 Read Faliases Write Setaliases;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListCourseAliasesResponseClass = Class of TListCourseAliasesResponse;
+
+ { --------------------------------------------------------------------
+ TInvitation
+ --------------------------------------------------------------------}
+
+ TInvitation = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ FuserId : String;
+ FcourseId : String;
+ Frole : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcourseId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property userId : String Index 8 Read FuserId Write SetuserId;
+ Property courseId : String Index 16 Read FcourseId Write SetcourseId;
+ Property role : String Index 24 Read Frole Write Setrole;
+ end;
+ TInvitationClass = Class of TInvitation;
+
+ { --------------------------------------------------------------------
+ TListInvitationsResponse
+ --------------------------------------------------------------------}
+
+ TListInvitationsResponse = Class(TGoogleBaseObject)
+ Private
+ Finvitations : TListInvitationsResponseTypeinvitationsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setinvitations(AIndex : Integer; const AValue : TListInvitationsResponseTypeinvitationsArray); 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 invitations : TListInvitationsResponseTypeinvitationsArray Index 0 Read Finvitations Write Setinvitations;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListInvitationsResponseClass = Class of TListInvitationsResponse;
+
+ { --------------------------------------------------------------------
+ TUserProfile
+ --------------------------------------------------------------------}
+
+ TUserProfile = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fname : TName;
+ FemailAddress : String;
+ FphotoUrl : String;
+ Fpermissions : TUserProfileTypepermissionsArray;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TName); virtual;
+ Procedure SetemailAddress(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpermissions(AIndex : Integer; const AValue : TUserProfileTypepermissionsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property name : TName Index 8 Read Fname Write Setname;
+ Property emailAddress : String Index 16 Read FemailAddress Write SetemailAddress;
+ Property photoUrl : String Index 24 Read FphotoUrl Write SetphotoUrl;
+ Property permissions : TUserProfileTypepermissionsArray Index 32 Read Fpermissions Write Setpermissions;
+ end;
+ TUserProfileClass = Class of TUserProfile;
+
+ { --------------------------------------------------------------------
+ TName
+ --------------------------------------------------------------------}
+
+ TName = Class(TGoogleBaseObject)
+ Private
+ FgivenName : String;
+ FfamilyName : String;
+ FfullName : String;
+ Protected
+ //Property setters
+ Procedure SetgivenName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfamilyName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfullName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property givenName : String Index 0 Read FgivenName Write SetgivenName;
+ Property familyName : String Index 8 Read FfamilyName Write SetfamilyName;
+ Property fullName : String Index 16 Read FfullName Write SetfullName;
+ end;
+ TNameClass = Class of TName;
+
+ { --------------------------------------------------------------------
+ TGlobalPermission
+ --------------------------------------------------------------------}
+
+ TGlobalPermission = Class(TGoogleBaseObject)
+ Private
+ Fpermission : String;
+ Protected
+ //Property setters
+ Procedure Setpermission(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property permission : String Index 0 Read Fpermission Write Setpermission;
+ end;
+ TGlobalPermissionClass = Class of TGlobalPermission;
+
+ { --------------------------------------------------------------------
+ TTeacher
+ --------------------------------------------------------------------}
+
+ TTeacher = Class(TGoogleBaseObject)
+ Private
+ FcourseId : String;
+ FuserId : String;
+ Fprofile : TUserProfile;
+ Protected
+ //Property setters
+ Procedure SetcourseId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setprofile(AIndex : Integer; const AValue : TUserProfile); virtual;
+ Public
+ Published
+ Property courseId : String Index 0 Read FcourseId Write SetcourseId;
+ Property userId : String Index 8 Read FuserId Write SetuserId;
+ Property profile : TUserProfile Index 16 Read Fprofile Write Setprofile;
+ end;
+ TTeacherClass = Class of TTeacher;
+
+ { --------------------------------------------------------------------
+ TListTeachersResponse
+ --------------------------------------------------------------------}
+
+ TListTeachersResponse = Class(TGoogleBaseObject)
+ Private
+ Fteachers : TListTeachersResponseTypeteachersArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setteachers(AIndex : Integer; const AValue : TListTeachersResponseTypeteachersArray); 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 teachers : TListTeachersResponseTypeteachersArray Index 0 Read Fteachers Write Setteachers;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListTeachersResponseClass = Class of TListTeachersResponse;
+
+ { --------------------------------------------------------------------
+ TStudent
+ --------------------------------------------------------------------}
+
+ TStudent = Class(TGoogleBaseObject)
+ Private
+ FcourseId : String;
+ FuserId : String;
+ Fprofile : TUserProfile;
+ FstudentWorkFolder : TDriveFolder;
+ Protected
+ //Property setters
+ Procedure SetcourseId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setprofile(AIndex : Integer; const AValue : TUserProfile); virtual;
+ Procedure SetstudentWorkFolder(AIndex : Integer; const AValue : TDriveFolder); virtual;
+ Public
+ Published
+ Property courseId : String Index 0 Read FcourseId Write SetcourseId;
+ Property userId : String Index 8 Read FuserId Write SetuserId;
+ Property profile : TUserProfile Index 16 Read Fprofile Write Setprofile;
+ Property studentWorkFolder : TDriveFolder Index 24 Read FstudentWorkFolder Write SetstudentWorkFolder;
+ end;
+ TStudentClass = Class of TStudent;
+
+ { --------------------------------------------------------------------
+ TListStudentsResponse
+ --------------------------------------------------------------------}
+
+ TListStudentsResponse = Class(TGoogleBaseObject)
+ Private
+ Fstudents : TListStudentsResponseTypestudentsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setstudents(AIndex : Integer; const AValue : TListStudentsResponseTypestudentsArray); 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 students : TListStudentsResponseTypestudentsArray Index 0 Read Fstudents Write Setstudents;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListStudentsResponseClass = Class of TListStudentsResponse;
+
+ { --------------------------------------------------------------------
+ TCourseWork
+ --------------------------------------------------------------------}
+
+ TCourseWork = Class(TGoogleBaseObject)
+ Private
+ FcourseId : String;
+ Fid : String;
+ Ftitle : String;
+ Fdescription : String;
+ Fmaterials : TCourseWorkTypematerialsArray;
+ Fstate : String;
+ FalternateLink : String;
+ FcreationTime : String;
+ FupdateTime : String;
+ FdueDate : TDate;
+ FdueTime : TTimeOfDay;
+ FmaxPoints : double;
+ FworkType : String;
+ FassociatedWithDeveloper : boolean;
+ FsubmissionModificationMode : String;
+ Fassignment : TAssignment;
+ FmultipleChoiceQuestion : TMultipleChoiceQuestion;
+ Protected
+ //Property setters
+ Procedure SetcourseId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmaterials(AIndex : Integer; const AValue : TCourseWorkTypematerialsArray); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetalternateLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupdateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdueDate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure SetdueTime(AIndex : Integer; const AValue : TTimeOfDay); virtual;
+ Procedure SetmaxPoints(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetworkType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetassociatedWithDeveloper(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsubmissionModificationMode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setassignment(AIndex : Integer; const AValue : TAssignment); virtual;
+ Procedure SetmultipleChoiceQuestion(AIndex : Integer; const AValue : TMultipleChoiceQuestion); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property courseId : String Index 0 Read FcourseId Write SetcourseId;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property title : String Index 16 Read Ftitle Write Settitle;
+ Property description : String Index 24 Read Fdescription Write Setdescription;
+ Property materials : TCourseWorkTypematerialsArray Index 32 Read Fmaterials Write Setmaterials;
+ Property state : String Index 40 Read Fstate Write Setstate;
+ Property alternateLink : String Index 48 Read FalternateLink Write SetalternateLink;
+ Property creationTime : String Index 56 Read FcreationTime Write SetcreationTime;
+ Property updateTime : String Index 64 Read FupdateTime Write SetupdateTime;
+ Property dueDate : TDate Index 72 Read FdueDate Write SetdueDate;
+ Property dueTime : TTimeOfDay Index 80 Read FdueTime Write SetdueTime;
+ Property maxPoints : double Index 88 Read FmaxPoints Write SetmaxPoints;
+ Property workType : String Index 96 Read FworkType Write SetworkType;
+ Property associatedWithDeveloper : boolean Index 104 Read FassociatedWithDeveloper Write SetassociatedWithDeveloper;
+ Property submissionModificationMode : String Index 112 Read FsubmissionModificationMode Write SetsubmissionModificationMode;
+ Property assignment : TAssignment Index 120 Read Fassignment Write Setassignment;
+ Property multipleChoiceQuestion : TMultipleChoiceQuestion Index 128 Read FmultipleChoiceQuestion Write SetmultipleChoiceQuestion;
+ end;
+ TCourseWorkClass = Class of TCourseWork;
+
+ { --------------------------------------------------------------------
+ TMaterial
+ --------------------------------------------------------------------}
+
+ TMaterial = Class(TGoogleBaseObject)
+ Private
+ FdriveFile : TSharedDriveFile;
+ FyoutubeVideo : TYouTubeVideo;
+ Flink : TLink;
+ Fform : TForm;
+ Protected
+ //Property setters
+ Procedure SetdriveFile(AIndex : Integer; const AValue : TSharedDriveFile); virtual;
+ Procedure SetyoutubeVideo(AIndex : Integer; const AValue : TYouTubeVideo); virtual;
+ Procedure Setlink(AIndex : Integer; const AValue : TLink); virtual;
+ Procedure Setform(AIndex : Integer; const AValue : TForm); virtual;
+ Public
+ Published
+ Property driveFile : TSharedDriveFile Index 0 Read FdriveFile Write SetdriveFile;
+ Property youtubeVideo : TYouTubeVideo Index 8 Read FyoutubeVideo Write SetyoutubeVideo;
+ Property link : TLink Index 16 Read Flink Write Setlink;
+ Property form : TForm Index 24 Read Fform Write Setform;
+ end;
+ TMaterialClass = Class of TMaterial;
+
+ { --------------------------------------------------------------------
+ TSharedDriveFile
+ --------------------------------------------------------------------}
+
+ TSharedDriveFile = Class(TGoogleBaseObject)
+ Private
+ FdriveFile : TDriveFile;
+ FshareMode : String;
+ Protected
+ //Property setters
+ Procedure SetdriveFile(AIndex : Integer; const AValue : TDriveFile); virtual;
+ Procedure SetshareMode(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property driveFile : TDriveFile Index 0 Read FdriveFile Write SetdriveFile;
+ Property shareMode : String Index 8 Read FshareMode Write SetshareMode;
+ end;
+ TSharedDriveFileClass = Class of TSharedDriveFile;
+
+ { --------------------------------------------------------------------
+ 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;
+
+ { --------------------------------------------------------------------
+ TTimeOfDay
+ --------------------------------------------------------------------}
+
+ TTimeOfDay = Class(TGoogleBaseObject)
+ Private
+ Fhours : integer;
+ Fminutes : integer;
+ Fseconds : integer;
+ Fnanos : integer;
+ Protected
+ //Property setters
+ Procedure Sethours(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setminutes(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setseconds(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setnanos(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property hours : integer Index 0 Read Fhours Write Sethours;
+ Property minutes : integer Index 8 Read Fminutes Write Setminutes;
+ Property seconds : integer Index 16 Read Fseconds Write Setseconds;
+ Property nanos : integer Index 24 Read Fnanos Write Setnanos;
+ end;
+ TTimeOfDayClass = Class of TTimeOfDay;
+
+ { --------------------------------------------------------------------
+ TAssignment
+ --------------------------------------------------------------------}
+
+ TAssignment = Class(TGoogleBaseObject)
+ Private
+ FstudentWorkFolder : TDriveFolder;
+ Protected
+ //Property setters
+ Procedure SetstudentWorkFolder(AIndex : Integer; const AValue : TDriveFolder); virtual;
+ Public
+ Published
+ Property studentWorkFolder : TDriveFolder Index 0 Read FstudentWorkFolder Write SetstudentWorkFolder;
+ end;
+ TAssignmentClass = Class of TAssignment;
+
+ { --------------------------------------------------------------------
+ TMultipleChoiceQuestion
+ --------------------------------------------------------------------}
+
+ TMultipleChoiceQuestion = Class(TGoogleBaseObject)
+ Private
+ Fchoices : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setchoices(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 choices : TStringArray Index 0 Read Fchoices Write Setchoices;
+ end;
+ TMultipleChoiceQuestionClass = Class of TMultipleChoiceQuestion;
+
+ { --------------------------------------------------------------------
+ TListCourseWorkResponse
+ --------------------------------------------------------------------}
+
+ TListCourseWorkResponse = Class(TGoogleBaseObject)
+ Private
+ FcourseWork : TListCourseWorkResponseTypecourseWorkArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetcourseWork(AIndex : Integer; const AValue : TListCourseWorkResponseTypecourseWorkArray); 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 courseWork : TListCourseWorkResponseTypecourseWorkArray Index 0 Read FcourseWork Write SetcourseWork;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListCourseWorkResponseClass = Class of TListCourseWorkResponse;
+
+ { --------------------------------------------------------------------
+ TStudentSubmission
+ --------------------------------------------------------------------}
+
+ TStudentSubmission = Class(TGoogleBaseObject)
+ Private
+ FcourseId : String;
+ FcourseWorkId : String;
+ Fid : String;
+ FuserId : String;
+ FcreationTime : String;
+ FupdateTime : String;
+ Fstate : String;
+ Flate : boolean;
+ FdraftGrade : double;
+ FassignedGrade : double;
+ FalternateLink : String;
+ FcourseWorkType : String;
+ FassociatedWithDeveloper : boolean;
+ FassignmentSubmission : TAssignmentSubmission;
+ FshortAnswerSubmission : TShortAnswerSubmission;
+ FmultipleChoiceSubmission : TMultipleChoiceSubmission;
+ Protected
+ //Property setters
+ Procedure SetcourseId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcourseWorkId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupdateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlate(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdraftGrade(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetassignedGrade(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetalternateLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcourseWorkType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetassociatedWithDeveloper(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetassignmentSubmission(AIndex : Integer; const AValue : TAssignmentSubmission); virtual;
+ Procedure SetshortAnswerSubmission(AIndex : Integer; const AValue : TShortAnswerSubmission); virtual;
+ Procedure SetmultipleChoiceSubmission(AIndex : Integer; const AValue : TMultipleChoiceSubmission); virtual;
+ Public
+ Published
+ Property courseId : String Index 0 Read FcourseId Write SetcourseId;
+ Property courseWorkId : String Index 8 Read FcourseWorkId Write SetcourseWorkId;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property userId : String Index 24 Read FuserId Write SetuserId;
+ Property creationTime : String Index 32 Read FcreationTime Write SetcreationTime;
+ Property updateTime : String Index 40 Read FupdateTime Write SetupdateTime;
+ Property state : String Index 48 Read Fstate Write Setstate;
+ Property late : boolean Index 56 Read Flate Write Setlate;
+ Property draftGrade : double Index 64 Read FdraftGrade Write SetdraftGrade;
+ Property assignedGrade : double Index 72 Read FassignedGrade Write SetassignedGrade;
+ Property alternateLink : String Index 80 Read FalternateLink Write SetalternateLink;
+ Property courseWorkType : String Index 88 Read FcourseWorkType Write SetcourseWorkType;
+ Property associatedWithDeveloper : boolean Index 96 Read FassociatedWithDeveloper Write SetassociatedWithDeveloper;
+ Property assignmentSubmission : TAssignmentSubmission Index 104 Read FassignmentSubmission Write SetassignmentSubmission;
+ Property shortAnswerSubmission : TShortAnswerSubmission Index 112 Read FshortAnswerSubmission Write SetshortAnswerSubmission;
+ Property multipleChoiceSubmission : TMultipleChoiceSubmission Index 120 Read FmultipleChoiceSubmission Write SetmultipleChoiceSubmission;
+ end;
+ TStudentSubmissionClass = Class of TStudentSubmission;
+
+ { --------------------------------------------------------------------
+ TAssignmentSubmission
+ --------------------------------------------------------------------}
+
+ TAssignmentSubmission = Class(TGoogleBaseObject)
+ Private
+ Fattachments : TAssignmentSubmissionTypeattachmentsArray;
+ Protected
+ //Property setters
+ Procedure Setattachments(AIndex : Integer; const AValue : TAssignmentSubmissionTypeattachmentsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property attachments : TAssignmentSubmissionTypeattachmentsArray Index 0 Read Fattachments Write Setattachments;
+ end;
+ TAssignmentSubmissionClass = Class of TAssignmentSubmission;
+
+ { --------------------------------------------------------------------
+ TAttachment
+ --------------------------------------------------------------------}
+
+ TAttachment = Class(TGoogleBaseObject)
+ Private
+ FdriveFile : TDriveFile;
+ FyouTubeVideo : TYouTubeVideo;
+ Flink : TLink;
+ Fform : TForm;
+ Protected
+ //Property setters
+ Procedure SetdriveFile(AIndex : Integer; const AValue : TDriveFile); virtual;
+ Procedure SetyouTubeVideo(AIndex : Integer; const AValue : TYouTubeVideo); virtual;
+ Procedure Setlink(AIndex : Integer; const AValue : TLink); virtual;
+ Procedure Setform(AIndex : Integer; const AValue : TForm); virtual;
+ Public
+ Published
+ Property driveFile : TDriveFile Index 0 Read FdriveFile Write SetdriveFile;
+ Property youTubeVideo : TYouTubeVideo Index 8 Read FyouTubeVideo Write SetyouTubeVideo;
+ Property link : TLink Index 16 Read Flink Write Setlink;
+ Property form : TForm Index 24 Read Fform Write Setform;
+ end;
+ TAttachmentClass = Class of TAttachment;
+
+ { --------------------------------------------------------------------
+ TShortAnswerSubmission
+ --------------------------------------------------------------------}
+
+ TShortAnswerSubmission = Class(TGoogleBaseObject)
+ Private
+ Fanswer : String;
+ Protected
+ //Property setters
+ Procedure Setanswer(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property answer : String Index 0 Read Fanswer Write Setanswer;
+ end;
+ TShortAnswerSubmissionClass = Class of TShortAnswerSubmission;
+
+ { --------------------------------------------------------------------
+ TMultipleChoiceSubmission
+ --------------------------------------------------------------------}
+
+ TMultipleChoiceSubmission = Class(TGoogleBaseObject)
+ Private
+ Fanswer : String;
+ Protected
+ //Property setters
+ Procedure Setanswer(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property answer : String Index 0 Read Fanswer Write Setanswer;
+ end;
+ TMultipleChoiceSubmissionClass = Class of TMultipleChoiceSubmission;
+
+ { --------------------------------------------------------------------
+ TListStudentSubmissionsResponse
+ --------------------------------------------------------------------}
+
+ TListStudentSubmissionsResponse = Class(TGoogleBaseObject)
+ Private
+ FstudentSubmissions : TListStudentSubmissionsResponseTypestudentSubmissionsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetstudentSubmissions(AIndex : Integer; const AValue : TListStudentSubmissionsResponseTypestudentSubmissionsArray); 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 studentSubmissions : TListStudentSubmissionsResponseTypestudentSubmissionsArray Index 0 Read FstudentSubmissions Write SetstudentSubmissions;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListStudentSubmissionsResponseClass = Class of TListStudentSubmissionsResponse;
+
+ { --------------------------------------------------------------------
+ TTurnInStudentSubmissionRequest
+ --------------------------------------------------------------------}
+
+ TTurnInStudentSubmissionRequest = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TTurnInStudentSubmissionRequestClass = Class of TTurnInStudentSubmissionRequest;
+
+ { --------------------------------------------------------------------
+ TReclaimStudentSubmissionRequest
+ --------------------------------------------------------------------}
+
+ TReclaimStudentSubmissionRequest = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TReclaimStudentSubmissionRequestClass = Class of TReclaimStudentSubmissionRequest;
+
+ { --------------------------------------------------------------------
+ TReturnStudentSubmissionRequest
+ --------------------------------------------------------------------}
+
+ TReturnStudentSubmissionRequest = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TReturnStudentSubmissionRequestClass = Class of TReturnStudentSubmissionRequest;
+
+ { --------------------------------------------------------------------
+ TModifyAttachmentsRequest
+ --------------------------------------------------------------------}
+
+ TModifyAttachmentsRequest = Class(TGoogleBaseObject)
+ Private
+ FaddAttachments : TModifyAttachmentsRequestTypeaddAttachmentsArray;
+ Protected
+ //Property setters
+ Procedure SetaddAttachments(AIndex : Integer; const AValue : TModifyAttachmentsRequestTypeaddAttachmentsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property addAttachments : TModifyAttachmentsRequestTypeaddAttachmentsArray Index 0 Read FaddAttachments Write SetaddAttachments;
+ end;
+ TModifyAttachmentsRequestClass = Class of TModifyAttachmentsRequest;
+
+ { --------------------------------------------------------------------
+ TCoursesAliasesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TCoursesAliasesResource, method List
+
+ TCoursesAliasesListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TCoursesAliasesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(courseId: string; aCourseAlias : TCourseAlias) : TCourseAlias;overload;
+ Function Delete(courseId: string; alias: string) : TEmpty;
+ Function List(courseId: string; AQuery : string = '') : TListCourseAliasesResponse;
+ Function List(courseId: string; AQuery : TCoursesAliaseslistOptions) : TListCourseAliasesResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCoursesTeachersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TCoursesTeachersResource, method List
+
+ TCoursesTeachersListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TCoursesTeachersResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(courseId: string; aTeacher : TTeacher) : TTeacher;overload;
+ Function Get(courseId: string; userId: string) : TTeacher;
+ Function Delete(courseId: string; userId: string) : TEmpty;
+ Function List(courseId: string; AQuery : string = '') : TListTeachersResponse;
+ Function List(courseId: string; AQuery : TCoursesTeacherslistOptions) : TListTeachersResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCoursesStudentsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TCoursesStudentsResource, method Create
+
+ TCoursesStudentsCreateOptions = Record
+ enrollmentCode : String;
+ end;
+
+
+ //Optional query Options for TCoursesStudentsResource, method List
+
+ TCoursesStudentsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TCoursesStudentsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(courseId: string; aStudent : TStudent; AQuery : string = '') : TStudent;overload;
+ Function Create(courseId: string; aStudent : TStudent; AQuery : TCoursesStudentscreateOptions) : TStudent;overload;
+ Function Get(courseId: string; userId: string) : TStudent;
+ Function Delete(courseId: string; userId: string) : TEmpty;
+ Function List(courseId: string; AQuery : string = '') : TListStudentsResponse;
+ Function List(courseId: string; AQuery : TCoursesStudentslistOptions) : TListStudentsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCoursesCourseWorkStudentSubmissionsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TCoursesCourseWorkStudentSubmissionsResource, method Patch
+
+ TCoursesCourseWorkStudentSubmissionsPatchOptions = Record
+ updateMask : String;
+ end;
+
+
+ //Optional query Options for TCoursesCourseWorkStudentSubmissionsResource, method List
+
+ TCoursesCourseWorkStudentSubmissionsListOptions = Record
+ userId : String;
+ states : String;
+ late : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TCoursesCourseWorkStudentSubmissionsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(courseId: string; courseWorkId: string; id: string) : TStudentSubmission;
+ Function Patch(courseId: string; courseWorkId: string; id: string; aStudentSubmission : TStudentSubmission; AQuery : string = '') : TStudentSubmission;
+ Function Patch(courseId: string; courseWorkId: string; id: string; aStudentSubmission : TStudentSubmission; AQuery : TCoursesCourseWorkStudentSubmissionspatchOptions) : TStudentSubmission;
+ Function List(courseId: string; courseWorkId: string; AQuery : string = '') : TListStudentSubmissionsResponse;
+ Function List(courseId: string; courseWorkId: string; AQuery : TCoursesCourseWorkStudentSubmissionslistOptions) : TListStudentSubmissionsResponse;
+ Function TurnIn(courseId: string; courseWorkId: string; id: string; aTurnInStudentSubmissionRequest : TTurnInStudentSubmissionRequest) : TEmpty;
+ Function Reclaim(courseId: string; courseWorkId: string; id: string; aReclaimStudentSubmissionRequest : TReclaimStudentSubmissionRequest) : TEmpty;
+ Function Return(courseId: string; courseWorkId: string; id: string; aReturnStudentSubmissionRequest : TReturnStudentSubmissionRequest) : TEmpty;
+ Function ModifyAttachments(courseId: string; courseWorkId: string; id: string; aModifyAttachmentsRequest : TModifyAttachmentsRequest) : TStudentSubmission;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCoursesCourseWorkResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TCoursesCourseWorkResource, method List
+
+ TCoursesCourseWorkListOptions = Record
+ courseWorkStates : String;
+ orderBy : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TCoursesCourseWorkResource = Class(TGoogleResource)
+ Private
+ FStudentSubmissionsInstance : TCoursesCourseWorkStudentSubmissionsResource;
+ Function GetStudentSubmissionsInstance : TCoursesCourseWorkStudentSubmissionsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(courseId: string; aCourseWork : TCourseWork) : TCourseWork;overload;
+ Function Get(courseId: string; id: string) : TCourseWork;
+ Function List(courseId: string; AQuery : string = '') : TListCourseWorkResponse;
+ Function List(courseId: string; AQuery : TCoursesCourseWorklistOptions) : TListCourseWorkResponse;
+ Function CreateStudentSubmissionsResource(AOwner : TComponent) : TCoursesCourseWorkStudentSubmissionsResource;virtual;overload;
+ Function CreateStudentSubmissionsResource : TCoursesCourseWorkStudentSubmissionsResource;virtual;overload;
+ Property StudentSubmissionsResource : TCoursesCourseWorkStudentSubmissionsResource Read GetStudentSubmissionsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCoursesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TCoursesResource, method Patch
+
+ TCoursesPatchOptions = Record
+ updateMask : String;
+ end;
+
+
+ //Optional query Options for TCoursesResource, method List
+
+ TCoursesListOptions = Record
+ studentId : String;
+ teacherId : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TCoursesResource = Class(TGoogleResource)
+ Private
+ FAliasesInstance : TCoursesAliasesResource;
+ FTeachersInstance : TCoursesTeachersResource;
+ FStudentsInstance : TCoursesStudentsResource;
+ FCourseWorkStudentSubmissionsInstance : TCoursesCourseWorkStudentSubmissionsResource;
+ FCourseWorkInstance : TCoursesCourseWorkResource;
+ Function GetAliasesInstance : TCoursesAliasesResource;virtual;
+ Function GetTeachersInstance : TCoursesTeachersResource;virtual;
+ Function GetStudentsInstance : TCoursesStudentsResource;virtual;
+ Function GetCourseWorkStudentSubmissionsInstance : TCoursesCourseWorkStudentSubmissionsResource;virtual;
+ Function GetCourseWorkInstance : TCoursesCourseWorkResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(aCourse : TCourse) : TCourse;overload;
+ Function Get(id: string) : TCourse;
+ Function Update(id: string; aCourse : TCourse) : TCourse;
+ Function Patch(id: string; aCourse : TCourse; AQuery : string = '') : TCourse;
+ Function Patch(id: string; aCourse : TCourse; AQuery : TCoursespatchOptions) : TCourse;
+ Function Delete(id: string) : TEmpty;
+ Function List(AQuery : string = '') : TListCoursesResponse;
+ Function List(AQuery : TCourseslistOptions) : TListCoursesResponse;
+ Function CreateAliasesResource(AOwner : TComponent) : TCoursesAliasesResource;virtual;overload;
+ Function CreateAliasesResource : TCoursesAliasesResource;virtual;overload;
+ Function CreateTeachersResource(AOwner : TComponent) : TCoursesTeachersResource;virtual;overload;
+ Function CreateTeachersResource : TCoursesTeachersResource;virtual;overload;
+ Function CreateStudentsResource(AOwner : TComponent) : TCoursesStudentsResource;virtual;overload;
+ Function CreateStudentsResource : TCoursesStudentsResource;virtual;overload;
+ Function CreateCourseWorkStudentSubmissionsResource(AOwner : TComponent) : TCoursesCourseWorkStudentSubmissionsResource;virtual;overload;
+ Function CreateCourseWorkStudentSubmissionsResource : TCoursesCourseWorkStudentSubmissionsResource;virtual;overload;
+ Function CreateCourseWorkResource(AOwner : TComponent) : TCoursesCourseWorkResource;virtual;overload;
+ Function CreateCourseWorkResource : TCoursesCourseWorkResource;virtual;overload;
+ Property AliasesResource : TCoursesAliasesResource Read GetAliasesInstance;
+ Property TeachersResource : TCoursesTeachersResource Read GetTeachersInstance;
+ Property StudentsResource : TCoursesStudentsResource Read GetStudentsInstance;
+ Property CourseWorkStudentSubmissionsResource : TCoursesCourseWorkStudentSubmissionsResource Read GetCourseWorkStudentSubmissionsInstance;
+ Property CourseWorkResource : TCoursesCourseWorkResource Read GetCourseWorkInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TInvitationsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TInvitationsResource, method List
+
+ TInvitationsListOptions = Record
+ userId : String;
+ courseId : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TInvitationsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(aInvitation : TInvitation) : TInvitation;overload;
+ Function Get(id: string) : TInvitation;
+ Function Delete(id: string) : TEmpty;
+ Function List(AQuery : string = '') : TListInvitationsResponse;
+ Function List(AQuery : TInvitationslistOptions) : TListInvitationsResponse;
+ Function Accept(id: string) : TEmpty;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TUserProfilesResource
+ --------------------------------------------------------------------}
+
+ TUserProfilesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(userId: string) : TUserProfile;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TClassroomAPI
+ --------------------------------------------------------------------}
+
+ TClassroomAPI = Class(TGoogleAPI)
+ Private
+ FCoursesAliasesInstance : TCoursesAliasesResource;
+ FCoursesTeachersInstance : TCoursesTeachersResource;
+ FCoursesStudentsInstance : TCoursesStudentsResource;
+ FCoursesCourseWorkStudentSubmissionsInstance : TCoursesCourseWorkStudentSubmissionsResource;
+ FCoursesCourseWorkInstance : TCoursesCourseWorkResource;
+ FCoursesInstance : TCoursesResource;
+ FInvitationsInstance : TInvitationsResource;
+ FUserProfilesInstance : TUserProfilesResource;
+ Function GetCoursesAliasesInstance : TCoursesAliasesResource;virtual;
+ Function GetCoursesTeachersInstance : TCoursesTeachersResource;virtual;
+ Function GetCoursesStudentsInstance : TCoursesStudentsResource;virtual;
+ Function GetCoursesCourseWorkStudentSubmissionsInstance : TCoursesCourseWorkStudentSubmissionsResource;virtual;
+ Function GetCoursesCourseWorkInstance : TCoursesCourseWorkResource;virtual;
+ Function GetCoursesInstance : TCoursesResource;virtual;
+ Function GetInvitationsInstance : TInvitationsResource;virtual;
+ Function GetUserProfilesInstance : TUserProfilesResource;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 CreateCoursesAliasesResource(AOwner : TComponent) : TCoursesAliasesResource;virtual;overload;
+ Function CreateCoursesAliasesResource : TCoursesAliasesResource;virtual;overload;
+ Function CreateCoursesTeachersResource(AOwner : TComponent) : TCoursesTeachersResource;virtual;overload;
+ Function CreateCoursesTeachersResource : TCoursesTeachersResource;virtual;overload;
+ Function CreateCoursesStudentsResource(AOwner : TComponent) : TCoursesStudentsResource;virtual;overload;
+ Function CreateCoursesStudentsResource : TCoursesStudentsResource;virtual;overload;
+ Function CreateCoursesCourseWorkStudentSubmissionsResource(AOwner : TComponent) : TCoursesCourseWorkStudentSubmissionsResource;virtual;overload;
+ Function CreateCoursesCourseWorkStudentSubmissionsResource : TCoursesCourseWorkStudentSubmissionsResource;virtual;overload;
+ Function CreateCoursesCourseWorkResource(AOwner : TComponent) : TCoursesCourseWorkResource;virtual;overload;
+ Function CreateCoursesCourseWorkResource : TCoursesCourseWorkResource;virtual;overload;
+ Function CreateCoursesResource(AOwner : TComponent) : TCoursesResource;virtual;overload;
+ Function CreateCoursesResource : TCoursesResource;virtual;overload;
+ Function CreateInvitationsResource(AOwner : TComponent) : TInvitationsResource;virtual;overload;
+ Function CreateInvitationsResource : TInvitationsResource;virtual;overload;
+ Function CreateUserProfilesResource(AOwner : TComponent) : TUserProfilesResource;virtual;overload;
+ Function CreateUserProfilesResource : TUserProfilesResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property CoursesAliasesResource : TCoursesAliasesResource Read GetCoursesAliasesInstance;
+ Property CoursesTeachersResource : TCoursesTeachersResource Read GetCoursesTeachersInstance;
+ Property CoursesStudentsResource : TCoursesStudentsResource Read GetCoursesStudentsInstance;
+ Property CoursesCourseWorkStudentSubmissionsResource : TCoursesCourseWorkStudentSubmissionsResource Read GetCoursesCourseWorkStudentSubmissionsInstance;
+ Property CoursesCourseWorkResource : TCoursesCourseWorkResource Read GetCoursesCourseWorkInstance;
+ Property CoursesResource : TCoursesResource Read GetCoursesInstance;
+ Property InvitationsResource : TInvitationsResource Read GetInvitationsInstance;
+ Property UserProfilesResource : TUserProfilesResource Read GetUserProfilesInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TCourse
+ --------------------------------------------------------------------}
+
+
+Procedure TCourse.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.Setsection(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsection=AValue) then exit;
+ Fsection:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.SetdescriptionHeading(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdescriptionHeading=AValue) then exit;
+ FdescriptionHeading:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.Setroom(AIndex : Integer; const AValue : String);
+
+begin
+ If (Froom=AValue) then exit;
+ Froom:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.SetownerId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FownerId=AValue) then exit;
+ FownerId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.SetcreationTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTime=AValue) then exit;
+ FcreationTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.SetupdateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdateTime=AValue) then exit;
+ FupdateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.SetenrollmentCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FenrollmentCode=AValue) then exit;
+ FenrollmentCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.SetcourseState(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcourseState=AValue) then exit;
+ FcourseState:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.SetalternateLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FalternateLink=AValue) then exit;
+ FalternateLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.SetteacherGroupEmail(AIndex : Integer; const AValue : String);
+
+begin
+ If (FteacherGroupEmail=AValue) then exit;
+ FteacherGroupEmail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.SetcourseGroupEmail(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcourseGroupEmail=AValue) then exit;
+ FcourseGroupEmail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.SetteacherFolder(AIndex : Integer; const AValue : TDriveFolder);
+
+begin
+ If (FteacherFolder=AValue) then exit;
+ FteacherFolder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourse.SetcourseMaterialSets(AIndex : Integer; const AValue : TCourseTypecourseMaterialSetsArray);
+
+begin
+ If (FcourseMaterialSets=AValue) then exit;
+ FcourseMaterialSets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCourse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'coursematerialsets' : SetLength(FcourseMaterialSets,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDriveFolder
+ --------------------------------------------------------------------}
+
+
+Procedure TDriveFolder.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDriveFolder.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDriveFolder.SetalternateLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FalternateLink=AValue) then exit;
+ FalternateLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCourseMaterialSet
+ --------------------------------------------------------------------}
+
+
+Procedure TCourseMaterialSet.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseMaterialSet.Setmaterials(AIndex : Integer; const AValue : TCourseMaterialSetTypematerialsArray);
+
+begin
+ If (Fmaterials=AValue) then exit;
+ Fmaterials:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCourseMaterialSet.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'materials' : SetLength(Fmaterials,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCourseMaterial
+ --------------------------------------------------------------------}
+
+
+Procedure TCourseMaterial.SetdriveFile(AIndex : Integer; const AValue : TDriveFile);
+
+begin
+ If (FdriveFile=AValue) then exit;
+ FdriveFile:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseMaterial.SetyouTubeVideo(AIndex : Integer; const AValue : TYouTubeVideo);
+
+begin
+ If (FyouTubeVideo=AValue) then exit;
+ FyouTubeVideo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseMaterial.Setlink(AIndex : Integer; const AValue : TLink);
+
+begin
+ If (Flink=AValue) then exit;
+ Flink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseMaterial.Setform(AIndex : Integer; const AValue : TForm);
+
+begin
+ If (Fform=AValue) then exit;
+ Fform:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDriveFile
+ --------------------------------------------------------------------}
+
+
+Procedure TDriveFile.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDriveFile.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDriveFile.SetalternateLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FalternateLink=AValue) then exit;
+ FalternateLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDriveFile.SetthumbnailUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthumbnailUrl=AValue) then exit;
+ FthumbnailUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TYouTubeVideo
+ --------------------------------------------------------------------}
+
+
+Procedure TYouTubeVideo.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TYouTubeVideo.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TYouTubeVideo.SetalternateLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FalternateLink=AValue) then exit;
+ FalternateLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TYouTubeVideo.SetthumbnailUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthumbnailUrl=AValue) then exit;
+ FthumbnailUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLink
+ --------------------------------------------------------------------}
+
+
+Procedure TLink.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLink.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLink.SetthumbnailUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthumbnailUrl=AValue) then exit;
+ FthumbnailUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TForm
+ --------------------------------------------------------------------}
+
+
+Procedure TForm.SetformUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformUrl=AValue) then exit;
+ FformUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TForm.SetresponseUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FresponseUrl=AValue) then exit;
+ FresponseUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TForm.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TForm.SetthumbnailUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthumbnailUrl=AValue) then exit;
+ FthumbnailUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListCoursesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListCoursesResponse.Setcourses(AIndex : Integer; const AValue : TListCoursesResponseTypecoursesArray);
+
+begin
+ If (Fcourses=AValue) then exit;
+ Fcourses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListCoursesResponse.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 TListCoursesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'courses' : SetLength(Fcourses,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCourseAlias
+ --------------------------------------------------------------------}
+
+
+Procedure TCourseAlias.Setalias(AIndex : Integer; const AValue : String);
+
+begin
+ If (Falias=AValue) then exit;
+ Falias:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListCourseAliasesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListCourseAliasesResponse.Setaliases(AIndex : Integer; const AValue : TListCourseAliasesResponseTypealiasesArray);
+
+begin
+ If (Faliases=AValue) then exit;
+ Faliases:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListCourseAliasesResponse.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 TListCourseAliasesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'aliases' : SetLength(Faliases,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInvitation
+ --------------------------------------------------------------------}
+
+
+Procedure TInvitation.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInvitation.SetuserId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuserId=AValue) then exit;
+ FuserId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInvitation.SetcourseId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcourseId=AValue) then exit;
+ FcourseId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInvitation.Setrole(AIndex : Integer; const AValue : String);
+
+begin
+ If (Frole=AValue) then exit;
+ Frole:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListInvitationsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListInvitationsResponse.Setinvitations(AIndex : Integer; const AValue : TListInvitationsResponseTypeinvitationsArray);
+
+begin
+ If (Finvitations=AValue) then exit;
+ Finvitations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListInvitationsResponse.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 TListInvitationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'invitations' : SetLength(Finvitations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TUserProfile
+ --------------------------------------------------------------------}
+
+
+Procedure TUserProfile.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserProfile.Setname(AIndex : Integer; const AValue : TName);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserProfile.SetemailAddress(AIndex : Integer; const AValue : String);
+
+begin
+ If (FemailAddress=AValue) then exit;
+ FemailAddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserProfile.SetphotoUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphotoUrl=AValue) then exit;
+ FphotoUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserProfile.Setpermissions(AIndex : Integer; const AValue : TUserProfileTypepermissionsArray);
+
+begin
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUserProfile.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'permissions' : SetLength(Fpermissions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TName
+ --------------------------------------------------------------------}
+
+
+Procedure TName.SetgivenName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FgivenName=AValue) then exit;
+ FgivenName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SetfamilyName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfamilyName=AValue) then exit;
+ FfamilyName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SetfullName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfullName=AValue) then exit;
+ FfullName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TGlobalPermission
+ --------------------------------------------------------------------}
+
+
+Procedure TGlobalPermission.Setpermission(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fpermission=AValue) then exit;
+ Fpermission:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTeacher
+ --------------------------------------------------------------------}
+
+
+Procedure TTeacher.SetcourseId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcourseId=AValue) then exit;
+ FcourseId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTeacher.SetuserId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuserId=AValue) then exit;
+ FuserId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTeacher.Setprofile(AIndex : Integer; const AValue : TUserProfile);
+
+begin
+ If (Fprofile=AValue) then exit;
+ Fprofile:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListTeachersResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListTeachersResponse.Setteachers(AIndex : Integer; const AValue : TListTeachersResponseTypeteachersArray);
+
+begin
+ If (Fteachers=AValue) then exit;
+ Fteachers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListTeachersResponse.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 TListTeachersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'teachers' : SetLength(Fteachers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TStudent
+ --------------------------------------------------------------------}
+
+
+Procedure TStudent.SetcourseId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcourseId=AValue) then exit;
+ FcourseId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudent.SetuserId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuserId=AValue) then exit;
+ FuserId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudent.Setprofile(AIndex : Integer; const AValue : TUserProfile);
+
+begin
+ If (Fprofile=AValue) then exit;
+ Fprofile:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudent.SetstudentWorkFolder(AIndex : Integer; const AValue : TDriveFolder);
+
+begin
+ If (FstudentWorkFolder=AValue) then exit;
+ FstudentWorkFolder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListStudentsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListStudentsResponse.Setstudents(AIndex : Integer; const AValue : TListStudentsResponseTypestudentsArray);
+
+begin
+ If (Fstudents=AValue) then exit;
+ Fstudents:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListStudentsResponse.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 TListStudentsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'students' : SetLength(Fstudents,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCourseWork
+ --------------------------------------------------------------------}
+
+
+Procedure TCourseWork.SetcourseId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcourseId=AValue) then exit;
+ FcourseId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.Setmaterials(AIndex : Integer; const AValue : TCourseWorkTypematerialsArray);
+
+begin
+ If (Fmaterials=AValue) then exit;
+ Fmaterials:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.SetalternateLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FalternateLink=AValue) then exit;
+ FalternateLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.SetcreationTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTime=AValue) then exit;
+ FcreationTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.SetupdateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdateTime=AValue) then exit;
+ FupdateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.SetdueDate(AIndex : Integer; const AValue : TDate);
+
+begin
+ If (FdueDate=AValue) then exit;
+ FdueDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.SetdueTime(AIndex : Integer; const AValue : TTimeOfDay);
+
+begin
+ If (FdueTime=AValue) then exit;
+ FdueTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.SetmaxPoints(AIndex : Integer; const AValue : double);
+
+begin
+ If (FmaxPoints=AValue) then exit;
+ FmaxPoints:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.SetworkType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FworkType=AValue) then exit;
+ FworkType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.SetassociatedWithDeveloper(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FassociatedWithDeveloper=AValue) then exit;
+ FassociatedWithDeveloper:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.SetsubmissionModificationMode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsubmissionModificationMode=AValue) then exit;
+ FsubmissionModificationMode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.Setassignment(AIndex : Integer; const AValue : TAssignment);
+
+begin
+ If (Fassignment=AValue) then exit;
+ Fassignment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCourseWork.SetmultipleChoiceQuestion(AIndex : Integer; const AValue : TMultipleChoiceQuestion);
+
+begin
+ If (FmultipleChoiceQuestion=AValue) then exit;
+ FmultipleChoiceQuestion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCourseWork.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'materials' : SetLength(Fmaterials,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMaterial
+ --------------------------------------------------------------------}
+
+
+Procedure TMaterial.SetdriveFile(AIndex : Integer; const AValue : TSharedDriveFile);
+
+begin
+ If (FdriveFile=AValue) then exit;
+ FdriveFile:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMaterial.SetyoutubeVideo(AIndex : Integer; const AValue : TYouTubeVideo);
+
+begin
+ If (FyoutubeVideo=AValue) then exit;
+ FyoutubeVideo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMaterial.Setlink(AIndex : Integer; const AValue : TLink);
+
+begin
+ If (Flink=AValue) then exit;
+ Flink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMaterial.Setform(AIndex : Integer; const AValue : TForm);
+
+begin
+ If (Fform=AValue) then exit;
+ Fform:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSharedDriveFile
+ --------------------------------------------------------------------}
+
+
+Procedure TSharedDriveFile.SetdriveFile(AIndex : Integer; const AValue : TDriveFile);
+
+begin
+ If (FdriveFile=AValue) then exit;
+ FdriveFile:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSharedDriveFile.SetshareMode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshareMode=AValue) then exit;
+ FshareMode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ 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;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTimeOfDay
+ --------------------------------------------------------------------}
+
+
+Procedure TTimeOfDay.Sethours(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fhours=AValue) then exit;
+ Fhours:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimeOfDay.Setminutes(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fminutes=AValue) then exit;
+ Fminutes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimeOfDay.Setseconds(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fseconds=AValue) then exit;
+ Fseconds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimeOfDay.Setnanos(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fnanos=AValue) then exit;
+ Fnanos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAssignment
+ --------------------------------------------------------------------}
+
+
+Procedure TAssignment.SetstudentWorkFolder(AIndex : Integer; const AValue : TDriveFolder);
+
+begin
+ If (FstudentWorkFolder=AValue) then exit;
+ FstudentWorkFolder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TMultipleChoiceQuestion
+ --------------------------------------------------------------------}
+
+
+Procedure TMultipleChoiceQuestion.Setchoices(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fchoices=AValue) then exit;
+ Fchoices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMultipleChoiceQuestion.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'choices' : SetLength(Fchoices,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListCourseWorkResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListCourseWorkResponse.SetcourseWork(AIndex : Integer; const AValue : TListCourseWorkResponseTypecourseWorkArray);
+
+begin
+ If (FcourseWork=AValue) then exit;
+ FcourseWork:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListCourseWorkResponse.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 TListCourseWorkResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'coursework' : SetLength(FcourseWork,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TStudentSubmission
+ --------------------------------------------------------------------}
+
+
+Procedure TStudentSubmission.SetcourseId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcourseId=AValue) then exit;
+ FcourseId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetcourseWorkId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcourseWorkId=AValue) then exit;
+ FcourseWorkId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetuserId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuserId=AValue) then exit;
+ FuserId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetcreationTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTime=AValue) then exit;
+ FcreationTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetupdateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdateTime=AValue) then exit;
+ FupdateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.Setlate(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Flate=AValue) then exit;
+ Flate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetdraftGrade(AIndex : Integer; const AValue : double);
+
+begin
+ If (FdraftGrade=AValue) then exit;
+ FdraftGrade:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetassignedGrade(AIndex : Integer; const AValue : double);
+
+begin
+ If (FassignedGrade=AValue) then exit;
+ FassignedGrade:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetalternateLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FalternateLink=AValue) then exit;
+ FalternateLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetcourseWorkType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcourseWorkType=AValue) then exit;
+ FcourseWorkType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetassociatedWithDeveloper(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FassociatedWithDeveloper=AValue) then exit;
+ FassociatedWithDeveloper:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetassignmentSubmission(AIndex : Integer; const AValue : TAssignmentSubmission);
+
+begin
+ If (FassignmentSubmission=AValue) then exit;
+ FassignmentSubmission:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetshortAnswerSubmission(AIndex : Integer; const AValue : TShortAnswerSubmission);
+
+begin
+ If (FshortAnswerSubmission=AValue) then exit;
+ FshortAnswerSubmission:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStudentSubmission.SetmultipleChoiceSubmission(AIndex : Integer; const AValue : TMultipleChoiceSubmission);
+
+begin
+ If (FmultipleChoiceSubmission=AValue) then exit;
+ FmultipleChoiceSubmission:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAssignmentSubmission
+ --------------------------------------------------------------------}
+
+
+Procedure TAssignmentSubmission.Setattachments(AIndex : Integer; const AValue : TAssignmentSubmissionTypeattachmentsArray);
+
+begin
+ If (Fattachments=AValue) then exit;
+ Fattachments:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAssignmentSubmission.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'attachments' : SetLength(Fattachments,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAttachment
+ --------------------------------------------------------------------}
+
+
+Procedure TAttachment.SetdriveFile(AIndex : Integer; const AValue : TDriveFile);
+
+begin
+ If (FdriveFile=AValue) then exit;
+ FdriveFile:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAttachment.SetyouTubeVideo(AIndex : Integer; const AValue : TYouTubeVideo);
+
+begin
+ If (FyouTubeVideo=AValue) then exit;
+ FyouTubeVideo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAttachment.Setlink(AIndex : Integer; const AValue : TLink);
+
+begin
+ If (Flink=AValue) then exit;
+ Flink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAttachment.Setform(AIndex : Integer; const AValue : TForm);
+
+begin
+ If (Fform=AValue) then exit;
+ Fform:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TShortAnswerSubmission
+ --------------------------------------------------------------------}
+
+
+Procedure TShortAnswerSubmission.Setanswer(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fanswer=AValue) then exit;
+ Fanswer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TMultipleChoiceSubmission
+ --------------------------------------------------------------------}
+
+
+Procedure TMultipleChoiceSubmission.Setanswer(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fanswer=AValue) then exit;
+ Fanswer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListStudentSubmissionsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListStudentSubmissionsResponse.SetstudentSubmissions(AIndex : Integer; const AValue : TListStudentSubmissionsResponseTypestudentSubmissionsArray);
+
+begin
+ If (FstudentSubmissions=AValue) then exit;
+ FstudentSubmissions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListStudentSubmissionsResponse.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 TListStudentSubmissionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'studentsubmissions' : SetLength(FstudentSubmissions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTurnInStudentSubmissionRequest
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TReclaimStudentSubmissionRequest
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TReturnStudentSubmissionRequest
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TModifyAttachmentsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TModifyAttachmentsRequest.SetaddAttachments(AIndex : Integer; const AValue : TModifyAttachmentsRequestTypeaddAttachmentsArray);
+
+begin
+ If (FaddAttachments=AValue) then exit;
+ FaddAttachments:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TModifyAttachmentsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'addattachments' : SetLength(FaddAttachments,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCoursesAliasesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TCoursesAliasesResource.ResourceName : String;
+
+begin
+ Result:='aliases';
+end;
+
+Class Function TCoursesAliasesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclassroomAPI;
+end;
+
+Function TCoursesAliasesResource.Create(courseId: string; aCourseAlias : TCourseAlias) : TCourseAlias;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/courses/{courseId}/aliases';
+ _Methodid = 'classroom.courses.aliases.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCourseAlias,TCourseAlias) as TCourseAlias;
+end;
+
+Function TCoursesAliasesResource.Delete(courseId: string; alias: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/courses/{courseId}/aliases/{alias}';
+ _Methodid = 'classroom.courses.aliases.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'alias',alias]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+Function TCoursesAliasesResource.List(courseId: string; AQuery : string = '') : TListCourseAliasesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/courses/{courseId}/aliases';
+ _Methodid = 'classroom.courses.aliases.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListCourseAliasesResponse) as TListCourseAliasesResponse;
+end;
+
+
+Function TCoursesAliasesResource.List(courseId: string; AQuery : TCoursesAliaseslistOptions) : TListCourseAliasesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(courseId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCoursesTeachersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TCoursesTeachersResource.ResourceName : String;
+
+begin
+ Result:='teachers';
+end;
+
+Class Function TCoursesTeachersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclassroomAPI;
+end;
+
+Function TCoursesTeachersResource.Create(courseId: string; aTeacher : TTeacher) : TTeacher;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/courses/{courseId}/teachers';
+ _Methodid = 'classroom.courses.teachers.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTeacher,TTeacher) as TTeacher;
+end;
+
+Function TCoursesTeachersResource.Get(courseId: string; userId: string) : TTeacher;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/courses/{courseId}/teachers/{userId}';
+ _Methodid = 'classroom.courses.teachers.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'userId',userId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTeacher) as TTeacher;
+end;
+
+Function TCoursesTeachersResource.Delete(courseId: string; userId: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/courses/{courseId}/teachers/{userId}';
+ _Methodid = 'classroom.courses.teachers.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'userId',userId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+Function TCoursesTeachersResource.List(courseId: string; AQuery : string = '') : TListTeachersResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/courses/{courseId}/teachers';
+ _Methodid = 'classroom.courses.teachers.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListTeachersResponse) as TListTeachersResponse;
+end;
+
+
+Function TCoursesTeachersResource.List(courseId: string; AQuery : TCoursesTeacherslistOptions) : TListTeachersResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(courseId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCoursesStudentsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TCoursesStudentsResource.ResourceName : String;
+
+begin
+ Result:='students';
+end;
+
+Class Function TCoursesStudentsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclassroomAPI;
+end;
+
+Function TCoursesStudentsResource.Create(courseId: string; aStudent : TStudent; AQuery : string = '') : TStudent;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/courses/{courseId}/students';
+ _Methodid = 'classroom.courses.students.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aStudent,TStudent) as TStudent;
+end;
+
+
+Function TCoursesStudentsResource.Create(courseId: string; aStudent : TStudent; AQuery : TCoursesStudentscreateOptions) : TStudent;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'enrollmentCode',AQuery.enrollmentCode);
+ Result:=Create(courseId,aStudent,_Q);
+end;
+
+Function TCoursesStudentsResource.Get(courseId: string; userId: string) : TStudent;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/courses/{courseId}/students/{userId}';
+ _Methodid = 'classroom.courses.students.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'userId',userId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TStudent) as TStudent;
+end;
+
+Function TCoursesStudentsResource.Delete(courseId: string; userId: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/courses/{courseId}/students/{userId}';
+ _Methodid = 'classroom.courses.students.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'userId',userId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+Function TCoursesStudentsResource.List(courseId: string; AQuery : string = '') : TListStudentsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/courses/{courseId}/students';
+ _Methodid = 'classroom.courses.students.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListStudentsResponse) as TListStudentsResponse;
+end;
+
+
+Function TCoursesStudentsResource.List(courseId: string; AQuery : TCoursesStudentslistOptions) : TListStudentsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(courseId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCoursesCourseWorkStudentSubmissionsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TCoursesCourseWorkStudentSubmissionsResource.ResourceName : String;
+
+begin
+ Result:='studentSubmissions';
+end;
+
+Class Function TCoursesCourseWorkStudentSubmissionsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclassroomAPI;
+end;
+
+Function TCoursesCourseWorkStudentSubmissionsResource.Get(courseId: string; courseWorkId: string; id: string) : TStudentSubmission;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/courses/{courseId}/courseWork/{courseWorkId}/studentSubmissions/{id}';
+ _Methodid = 'classroom.courses.courseWork.studentSubmissions.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'courseWorkId',courseWorkId,'id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TStudentSubmission) as TStudentSubmission;
+end;
+
+Function TCoursesCourseWorkStudentSubmissionsResource.Patch(courseId: string; courseWorkId: string; id: string; aStudentSubmission : TStudentSubmission; AQuery : string = '') : TStudentSubmission;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'v1/courses/{courseId}/courseWork/{courseWorkId}/studentSubmissions/{id}';
+ _Methodid = 'classroom.courses.courseWork.studentSubmissions.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'courseWorkId',courseWorkId,'id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aStudentSubmission,TStudentSubmission) as TStudentSubmission;
+end;
+
+
+Function TCoursesCourseWorkStudentSubmissionsResource.Patch(courseId: string; courseWorkId: string; id: string; aStudentSubmission : TStudentSubmission; AQuery : TCoursesCourseWorkStudentSubmissionspatchOptions) : TStudentSubmission;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'updateMask',AQuery.updateMask);
+ Result:=Patch(courseId,courseWorkId,id,aStudentSubmission,_Q);
+end;
+
+Function TCoursesCourseWorkStudentSubmissionsResource.List(courseId: string; courseWorkId: string; AQuery : string = '') : TListStudentSubmissionsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/courses/{courseId}/courseWork/{courseWorkId}/studentSubmissions';
+ _Methodid = 'classroom.courses.courseWork.studentSubmissions.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'courseWorkId',courseWorkId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListStudentSubmissionsResponse) as TListStudentSubmissionsResponse;
+end;
+
+
+Function TCoursesCourseWorkStudentSubmissionsResource.List(courseId: string; courseWorkId: string; AQuery : TCoursesCourseWorkStudentSubmissionslistOptions) : TListStudentSubmissionsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'userId',AQuery.userId);
+ AddToQuery(_Q,'states',AQuery.states);
+ AddToQuery(_Q,'late',AQuery.late);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(courseId,courseWorkId,_Q);
+end;
+
+Function TCoursesCourseWorkStudentSubmissionsResource.TurnIn(courseId: string; courseWorkId: string; id: string; aTurnInStudentSubmissionRequest : TTurnInStudentSubmissionRequest) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/courses/{courseId}/courseWork/{courseWorkId}/studentSubmissions/{id}:turnIn';
+ _Methodid = 'classroom.courses.courseWork.studentSubmissions.turnIn';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'courseWorkId',courseWorkId,'id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTurnInStudentSubmissionRequest,TEmpty) as TEmpty;
+end;
+
+Function TCoursesCourseWorkStudentSubmissionsResource.Reclaim(courseId: string; courseWorkId: string; id: string; aReclaimStudentSubmissionRequest : TReclaimStudentSubmissionRequest) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/courses/{courseId}/courseWork/{courseWorkId}/studentSubmissions/{id}:reclaim';
+ _Methodid = 'classroom.courses.courseWork.studentSubmissions.reclaim';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'courseWorkId',courseWorkId,'id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aReclaimStudentSubmissionRequest,TEmpty) as TEmpty;
+end;
+
+Function TCoursesCourseWorkStudentSubmissionsResource.Return(courseId: string; courseWorkId: string; id: string; aReturnStudentSubmissionRequest : TReturnStudentSubmissionRequest) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/courses/{courseId}/courseWork/{courseWorkId}/studentSubmissions/{id}:return';
+ _Methodid = 'classroom.courses.courseWork.studentSubmissions.return';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'courseWorkId',courseWorkId,'id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aReturnStudentSubmissionRequest,TEmpty) as TEmpty;
+end;
+
+Function TCoursesCourseWorkStudentSubmissionsResource.ModifyAttachments(courseId: string; courseWorkId: string; id: string; aModifyAttachmentsRequest : TModifyAttachmentsRequest) : TStudentSubmission;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/courses/{courseId}/courseWork/{courseWorkId}/studentSubmissions/{id}:modifyAttachments';
+ _Methodid = 'classroom.courses.courseWork.studentSubmissions.modifyAttachments';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'courseWorkId',courseWorkId,'id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aModifyAttachmentsRequest,TStudentSubmission) as TStudentSubmission;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCoursesCourseWorkResource
+ --------------------------------------------------------------------}
+
+
+Class Function TCoursesCourseWorkResource.ResourceName : String;
+
+begin
+ Result:='courseWork';
+end;
+
+Class Function TCoursesCourseWorkResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclassroomAPI;
+end;
+
+Function TCoursesCourseWorkResource.Create(courseId: string; aCourseWork : TCourseWork) : TCourseWork;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/courses/{courseId}/courseWork';
+ _Methodid = 'classroom.courses.courseWork.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCourseWork,TCourseWork) as TCourseWork;
+end;
+
+Function TCoursesCourseWorkResource.Get(courseId: string; id: string) : TCourseWork;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/courses/{courseId}/courseWork/{id}';
+ _Methodid = 'classroom.courses.courseWork.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId,'id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCourseWork) as TCourseWork;
+end;
+
+Function TCoursesCourseWorkResource.List(courseId: string; AQuery : string = '') : TListCourseWorkResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/courses/{courseId}/courseWork';
+ _Methodid = 'classroom.courses.courseWork.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['courseId',courseId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListCourseWorkResponse) as TListCourseWorkResponse;
+end;
+
+
+Function TCoursesCourseWorkResource.List(courseId: string; AQuery : TCoursesCourseWorklistOptions) : TListCourseWorkResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'courseWorkStates',AQuery.courseWorkStates);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(courseId,_Q);
+end;
+
+
+
+Function TCoursesCourseWorkResource.GetStudentSubmissionsInstance : TCoursesCourseWorkStudentSubmissionsResource;
+
+begin
+ if (FStudentSubmissionsInstance=Nil) then
+ FStudentSubmissionsInstance:=CreateStudentSubmissionsResource;
+ Result:=FStudentSubmissionsInstance;
+end;
+
+Function TCoursesCourseWorkResource.CreateStudentSubmissionsResource : TCoursesCourseWorkStudentSubmissionsResource;
+
+begin
+ Result:=CreateStudentSubmissionsResource(Self);
+end;
+
+
+Function TCoursesCourseWorkResource.CreateStudentSubmissionsResource(AOwner : TComponent) : TCoursesCourseWorkStudentSubmissionsResource;
+
+begin
+ Result:=TCoursesCourseWorkStudentSubmissionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCoursesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TCoursesResource.ResourceName : String;
+
+begin
+ Result:='courses';
+end;
+
+Class Function TCoursesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclassroomAPI;
+end;
+
+Function TCoursesResource.Create(aCourse : TCourse) : TCourse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/courses';
+ _Methodid = 'classroom.courses.create';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aCourse,TCourse) as TCourse;
+end;
+
+Function TCoursesResource.Get(id: string) : TCourse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/courses/{id}';
+ _Methodid = 'classroom.courses.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCourse) as TCourse;
+end;
+
+Function TCoursesResource.Update(id: string; aCourse : TCourse) : TCourse;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v1/courses/{id}';
+ _Methodid = 'classroom.courses.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCourse,TCourse) as TCourse;
+end;
+
+Function TCoursesResource.Patch(id: string; aCourse : TCourse; AQuery : string = '') : TCourse;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'v1/courses/{id}';
+ _Methodid = 'classroom.courses.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aCourse,TCourse) as TCourse;
+end;
+
+
+Function TCoursesResource.Patch(id: string; aCourse : TCourse; AQuery : TCoursespatchOptions) : TCourse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'updateMask',AQuery.updateMask);
+ Result:=Patch(id,aCourse,_Q);
+end;
+
+Function TCoursesResource.Delete(id: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/courses/{id}';
+ _Methodid = 'classroom.courses.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+Function TCoursesResource.List(AQuery : string = '') : TListCoursesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/courses';
+ _Methodid = 'classroom.courses.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListCoursesResponse) as TListCoursesResponse;
+end;
+
+
+Function TCoursesResource.List(AQuery : TCourseslistOptions) : TListCoursesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'studentId',AQuery.studentId);
+ AddToQuery(_Q,'teacherId',AQuery.teacherId);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_Q);
+end;
+
+
+
+Function TCoursesResource.GetAliasesInstance : TCoursesAliasesResource;
+
+begin
+ if (FAliasesInstance=Nil) then
+ FAliasesInstance:=CreateAliasesResource;
+ Result:=FAliasesInstance;
+end;
+
+Function TCoursesResource.CreateAliasesResource : TCoursesAliasesResource;
+
+begin
+ Result:=CreateAliasesResource(Self);
+end;
+
+
+Function TCoursesResource.CreateAliasesResource(AOwner : TComponent) : TCoursesAliasesResource;
+
+begin
+ Result:=TCoursesAliasesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TCoursesResource.GetTeachersInstance : TCoursesTeachersResource;
+
+begin
+ if (FTeachersInstance=Nil) then
+ FTeachersInstance:=CreateTeachersResource;
+ Result:=FTeachersInstance;
+end;
+
+Function TCoursesResource.CreateTeachersResource : TCoursesTeachersResource;
+
+begin
+ Result:=CreateTeachersResource(Self);
+end;
+
+
+Function TCoursesResource.CreateTeachersResource(AOwner : TComponent) : TCoursesTeachersResource;
+
+begin
+ Result:=TCoursesTeachersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TCoursesResource.GetStudentsInstance : TCoursesStudentsResource;
+
+begin
+ if (FStudentsInstance=Nil) then
+ FStudentsInstance:=CreateStudentsResource;
+ Result:=FStudentsInstance;
+end;
+
+Function TCoursesResource.CreateStudentsResource : TCoursesStudentsResource;
+
+begin
+ Result:=CreateStudentsResource(Self);
+end;
+
+
+Function TCoursesResource.CreateStudentsResource(AOwner : TComponent) : TCoursesStudentsResource;
+
+begin
+ Result:=TCoursesStudentsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TCoursesResource.GetCourseWorkStudentSubmissionsInstance : TCoursesCourseWorkStudentSubmissionsResource;
+
+begin
+ if (FCourseWorkStudentSubmissionsInstance=Nil) then
+ FCourseWorkStudentSubmissionsInstance:=CreateCourseWorkStudentSubmissionsResource;
+ Result:=FCourseWorkStudentSubmissionsInstance;
+end;
+
+Function TCoursesResource.CreateCourseWorkStudentSubmissionsResource : TCoursesCourseWorkStudentSubmissionsResource;
+
+begin
+ Result:=CreateCourseWorkStudentSubmissionsResource(Self);
+end;
+
+
+Function TCoursesResource.CreateCourseWorkStudentSubmissionsResource(AOwner : TComponent) : TCoursesCourseWorkStudentSubmissionsResource;
+
+begin
+ Result:=TCoursesCourseWorkStudentSubmissionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TCoursesResource.GetCourseWorkInstance : TCoursesCourseWorkResource;
+
+begin
+ if (FCourseWorkInstance=Nil) then
+ FCourseWorkInstance:=CreateCourseWorkResource;
+ Result:=FCourseWorkInstance;
+end;
+
+Function TCoursesResource.CreateCourseWorkResource : TCoursesCourseWorkResource;
+
+begin
+ Result:=CreateCourseWorkResource(Self);
+end;
+
+
+Function TCoursesResource.CreateCourseWorkResource(AOwner : TComponent) : TCoursesCourseWorkResource;
+
+begin
+ Result:=TCoursesCourseWorkResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TInvitationsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TInvitationsResource.ResourceName : String;
+
+begin
+ Result:='invitations';
+end;
+
+Class Function TInvitationsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclassroomAPI;
+end;
+
+Function TInvitationsResource.Create(aInvitation : TInvitation) : TInvitation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/invitations';
+ _Methodid = 'classroom.invitations.create';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aInvitation,TInvitation) as TInvitation;
+end;
+
+Function TInvitationsResource.Get(id: string) : TInvitation;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/invitations/{id}';
+ _Methodid = 'classroom.invitations.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInvitation) as TInvitation;
+end;
+
+Function TInvitationsResource.Delete(id: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/invitations/{id}';
+ _Methodid = 'classroom.invitations.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+Function TInvitationsResource.List(AQuery : string = '') : TListInvitationsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/invitations';
+ _Methodid = 'classroom.invitations.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListInvitationsResponse) as TListInvitationsResponse;
+end;
+
+
+Function TInvitationsResource.List(AQuery : TInvitationslistOptions) : TListInvitationsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'userId',AQuery.userId);
+ AddToQuery(_Q,'courseId',AQuery.courseId);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_Q);
+end;
+
+Function TInvitationsResource.Accept(id: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/invitations/{id}:accept';
+ _Methodid = 'classroom.invitations.accept';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TUserProfilesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TUserProfilesResource.ResourceName : String;
+
+begin
+ Result:='userProfiles';
+end;
+
+Class Function TUserProfilesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclassroomAPI;
+end;
+
+Function TUserProfilesResource.Get(userId: string) : TUserProfile;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/userProfiles/{userId}';
+ _Methodid = 'classroom.userProfiles.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['userId',userId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TUserProfile) as TUserProfile;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TClassroomAPI
+ --------------------------------------------------------------------}
+
+Class Function TClassroomAPI.APIName : String;
+
+begin
+ Result:='classroom';
+end;
+
+Class Function TClassroomAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TClassroomAPI.APIRevision : String;
+
+begin
+ Result:='20160517';
+end;
+
+Class Function TClassroomAPI.APIID : String;
+
+begin
+ Result:='classroom:v1';
+end;
+
+Class Function TClassroomAPI.APITitle : String;
+
+begin
+ Result:='Google Classroom API';
+end;
+
+Class Function TClassroomAPI.APIDescription : String;
+
+begin
+ Result:='Manages classes, rosters, and invitations in Google Classroom.';
+end;
+
+Class Function TClassroomAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TClassroomAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TClassroomAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TClassroomAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TClassroomAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/classroom/';
+end;
+
+Class Function TClassroomAPI.APIrootUrl : string;
+
+begin
+ Result:='https://classroom.googleapis.com/';
+end;
+
+Class Function TClassroomAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TClassroomAPI.APIbaseURL : String;
+
+begin
+ Result:='https://classroom.googleapis.com/';
+end;
+
+Class Function TClassroomAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TClassroomAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TClassroomAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TClassroomAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,13);
+ Result[0].Name:='https://www.googleapis.com/auth/classroom.course-work.readonly';
+ Result[0].Description:='View instructions for teacher-assigned work in your Google Classroom classes';
+ Result[1].Name:='https://www.googleapis.com/auth/classroom.courses';
+ Result[1].Description:='Manage your Google Classroom classes';
+ Result[2].Name:='https://www.googleapis.com/auth/classroom.courses.readonly';
+ Result[2].Description:='View your Google Classroom classes';
+ Result[3].Name:='https://www.googleapis.com/auth/classroom.coursework.me';
+ Result[3].Description:='Manage your course work and view your grades in Google Classroom';
+ Result[4].Name:='https://www.googleapis.com/auth/classroom.coursework.me.readonly';
+ Result[4].Description:='View your course work and grades in Google Classroom';
+ Result[5].Name:='https://www.googleapis.com/auth/classroom.coursework.students';
+ Result[5].Description:='Manage course work and grades for students in the Google Classroom classes you teach and view the course work and grades for classes you administer';
+ Result[6].Name:='https://www.googleapis.com/auth/classroom.coursework.students.readonly';
+ Result[6].Description:='View course work and grades for students in the Google Classroom classes you teach or administer';
+ Result[7].Name:='https://www.googleapis.com/auth/classroom.profile.emails';
+ Result[7].Description:='View the email addresses of people in your classes';
+ Result[8].Name:='https://www.googleapis.com/auth/classroom.profile.photos';
+ Result[8].Description:='View the profile photos of people in your classes';
+ Result[9].Name:='https://www.googleapis.com/auth/classroom.rosters';
+ Result[9].Description:='Manage your Google Classroom class rosters';
+ Result[10].Name:='https://www.googleapis.com/auth/classroom.rosters.readonly';
+ Result[10].Description:='View your Google Classroom class rosters';
+ Result[11].Name:='https://www.googleapis.com/auth/classroom.student-submissions.me.readonly';
+ Result[11].Description:='View your course work and grades in Google Classroom';
+ Result[12].Name:='https://www.googleapis.com/auth/classroom.student-submissions.students.readonly';
+ Result[12].Description:='View course work and grades for students in the Google Classroom classes you teach or administer';
+
+end;
+
+Class Function TClassroomAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TClassroomAPI.RegisterAPIResources;
+
+begin
+ TCourse.RegisterObject;
+ TDriveFolder.RegisterObject;
+ TCourseMaterialSet.RegisterObject;
+ TCourseMaterial.RegisterObject;
+ TDriveFile.RegisterObject;
+ TYouTubeVideo.RegisterObject;
+ TLink.RegisterObject;
+ TForm.RegisterObject;
+ TEmpty.RegisterObject;
+ TListCoursesResponse.RegisterObject;
+ TCourseAlias.RegisterObject;
+ TListCourseAliasesResponse.RegisterObject;
+ TInvitation.RegisterObject;
+ TListInvitationsResponse.RegisterObject;
+ TUserProfile.RegisterObject;
+ TName.RegisterObject;
+ TGlobalPermission.RegisterObject;
+ TTeacher.RegisterObject;
+ TListTeachersResponse.RegisterObject;
+ TStudent.RegisterObject;
+ TListStudentsResponse.RegisterObject;
+ TCourseWork.RegisterObject;
+ TMaterial.RegisterObject;
+ TSharedDriveFile.RegisterObject;
+ TDate.RegisterObject;
+ TTimeOfDay.RegisterObject;
+ TAssignment.RegisterObject;
+ TMultipleChoiceQuestion.RegisterObject;
+ TListCourseWorkResponse.RegisterObject;
+ TStudentSubmission.RegisterObject;
+ TAssignmentSubmission.RegisterObject;
+ TAttachment.RegisterObject;
+ TShortAnswerSubmission.RegisterObject;
+ TMultipleChoiceSubmission.RegisterObject;
+ TListStudentSubmissionsResponse.RegisterObject;
+ TTurnInStudentSubmissionRequest.RegisterObject;
+ TReclaimStudentSubmissionRequest.RegisterObject;
+ TReturnStudentSubmissionRequest.RegisterObject;
+ TModifyAttachmentsRequest.RegisterObject;
+end;
+
+
+Function TClassroomAPI.GetCoursesAliasesInstance : TCoursesAliasesResource;
+
+begin
+ if (FCoursesAliasesInstance=Nil) then
+ FCoursesAliasesInstance:=CreateCoursesAliasesResource;
+ Result:=FCoursesAliasesInstance;
+end;
+
+Function TClassroomAPI.CreateCoursesAliasesResource : TCoursesAliasesResource;
+
+begin
+ Result:=CreateCoursesAliasesResource(Self);
+end;
+
+
+Function TClassroomAPI.CreateCoursesAliasesResource(AOwner : TComponent) : TCoursesAliasesResource;
+
+begin
+ Result:=TCoursesAliasesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClassroomAPI.GetCoursesTeachersInstance : TCoursesTeachersResource;
+
+begin
+ if (FCoursesTeachersInstance=Nil) then
+ FCoursesTeachersInstance:=CreateCoursesTeachersResource;
+ Result:=FCoursesTeachersInstance;
+end;
+
+Function TClassroomAPI.CreateCoursesTeachersResource : TCoursesTeachersResource;
+
+begin
+ Result:=CreateCoursesTeachersResource(Self);
+end;
+
+
+Function TClassroomAPI.CreateCoursesTeachersResource(AOwner : TComponent) : TCoursesTeachersResource;
+
+begin
+ Result:=TCoursesTeachersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClassroomAPI.GetCoursesStudentsInstance : TCoursesStudentsResource;
+
+begin
+ if (FCoursesStudentsInstance=Nil) then
+ FCoursesStudentsInstance:=CreateCoursesStudentsResource;
+ Result:=FCoursesStudentsInstance;
+end;
+
+Function TClassroomAPI.CreateCoursesStudentsResource : TCoursesStudentsResource;
+
+begin
+ Result:=CreateCoursesStudentsResource(Self);
+end;
+
+
+Function TClassroomAPI.CreateCoursesStudentsResource(AOwner : TComponent) : TCoursesStudentsResource;
+
+begin
+ Result:=TCoursesStudentsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClassroomAPI.GetCoursesCourseWorkStudentSubmissionsInstance : TCoursesCourseWorkStudentSubmissionsResource;
+
+begin
+ if (FCoursesCourseWorkStudentSubmissionsInstance=Nil) then
+ FCoursesCourseWorkStudentSubmissionsInstance:=CreateCoursesCourseWorkStudentSubmissionsResource;
+ Result:=FCoursesCourseWorkStudentSubmissionsInstance;
+end;
+
+Function TClassroomAPI.CreateCoursesCourseWorkStudentSubmissionsResource : TCoursesCourseWorkStudentSubmissionsResource;
+
+begin
+ Result:=CreateCoursesCourseWorkStudentSubmissionsResource(Self);
+end;
+
+
+Function TClassroomAPI.CreateCoursesCourseWorkStudentSubmissionsResource(AOwner : TComponent) : TCoursesCourseWorkStudentSubmissionsResource;
+
+begin
+ Result:=TCoursesCourseWorkStudentSubmissionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClassroomAPI.GetCoursesCourseWorkInstance : TCoursesCourseWorkResource;
+
+begin
+ if (FCoursesCourseWorkInstance=Nil) then
+ FCoursesCourseWorkInstance:=CreateCoursesCourseWorkResource;
+ Result:=FCoursesCourseWorkInstance;
+end;
+
+Function TClassroomAPI.CreateCoursesCourseWorkResource : TCoursesCourseWorkResource;
+
+begin
+ Result:=CreateCoursesCourseWorkResource(Self);
+end;
+
+
+Function TClassroomAPI.CreateCoursesCourseWorkResource(AOwner : TComponent) : TCoursesCourseWorkResource;
+
+begin
+ Result:=TCoursesCourseWorkResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClassroomAPI.GetCoursesInstance : TCoursesResource;
+
+begin
+ if (FCoursesInstance=Nil) then
+ FCoursesInstance:=CreateCoursesResource;
+ Result:=FCoursesInstance;
+end;
+
+Function TClassroomAPI.CreateCoursesResource : TCoursesResource;
+
+begin
+ Result:=CreateCoursesResource(Self);
+end;
+
+
+Function TClassroomAPI.CreateCoursesResource(AOwner : TComponent) : TCoursesResource;
+
+begin
+ Result:=TCoursesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClassroomAPI.GetInvitationsInstance : TInvitationsResource;
+
+begin
+ if (FInvitationsInstance=Nil) then
+ FInvitationsInstance:=CreateInvitationsResource;
+ Result:=FInvitationsInstance;
+end;
+
+Function TClassroomAPI.CreateInvitationsResource : TInvitationsResource;
+
+begin
+ Result:=CreateInvitationsResource(Self);
+end;
+
+
+Function TClassroomAPI.CreateInvitationsResource(AOwner : TComponent) : TInvitationsResource;
+
+begin
+ Result:=TInvitationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClassroomAPI.GetUserProfilesInstance : TUserProfilesResource;
+
+begin
+ if (FUserProfilesInstance=Nil) then
+ FUserProfilesInstance:=CreateUserProfilesResource;
+ Result:=FUserProfilesInstance;
+end;
+
+Function TClassroomAPI.CreateUserProfilesResource : TUserProfilesResource;
+
+begin
+ Result:=CreateUserProfilesResource(Self);
+end;
+
+
+Function TClassroomAPI.CreateUserProfilesResource(AOwner : TComponent) : TUserProfilesResource;
+
+begin
+ Result:=TUserProfilesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TClassroomAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlecloudbilling.pp b/packages/googleapi/src/googlecloudbilling.pp
new file mode 100644
index 0000000000..40a93234c2
--- /dev/null
+++ b/packages/googleapi/src/googlecloudbilling.pp
@@ -0,0 +1,776 @@
+unit googlecloudbilling;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TBillingAccount = Class;
+ TListBillingAccountsResponse = Class;
+ TListProjectBillingInfoResponse = Class;
+ TProjectBillingInfo = Class;
+ TBillingAccountArray = Array of TBillingAccount;
+ TListBillingAccountsResponseArray = Array of TListBillingAccountsResponse;
+ TListProjectBillingInfoResponseArray = Array of TListProjectBillingInfoResponse;
+ TProjectBillingInfoArray = Array of TProjectBillingInfo;
+ //Anonymous types, using auto-generated names
+ TListBillingAccountsResponseTypebillingAccountsArray = Array of TBillingAccount;
+ TListProjectBillingInfoResponseTypeprojectBillingInfoArray = Array of TProjectBillingInfo;
+
+ { --------------------------------------------------------------------
+ TBillingAccount
+ --------------------------------------------------------------------}
+
+ TBillingAccount = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fopen : boolean;
+ FdisplayName : String;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setopen(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property open : boolean Index 8 Read Fopen Write Setopen;
+ Property displayName : String Index 16 Read FdisplayName Write SetdisplayName;
+ end;
+ TBillingAccountClass = Class of TBillingAccount;
+
+ { --------------------------------------------------------------------
+ TListBillingAccountsResponse
+ --------------------------------------------------------------------}
+
+ TListBillingAccountsResponse = Class(TGoogleBaseObject)
+ Private
+ FbillingAccounts : TListBillingAccountsResponseTypebillingAccountsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetbillingAccounts(AIndex : Integer; const AValue : TListBillingAccountsResponseTypebillingAccountsArray); 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 billingAccounts : TListBillingAccountsResponseTypebillingAccountsArray Index 0 Read FbillingAccounts Write SetbillingAccounts;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListBillingAccountsResponseClass = Class of TListBillingAccountsResponse;
+
+ { --------------------------------------------------------------------
+ TListProjectBillingInfoResponse
+ --------------------------------------------------------------------}
+
+ TListProjectBillingInfoResponse = Class(TGoogleBaseObject)
+ Private
+ FprojectBillingInfo : TListProjectBillingInfoResponseTypeprojectBillingInfoArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetprojectBillingInfo(AIndex : Integer; const AValue : TListProjectBillingInfoResponseTypeprojectBillingInfoArray); 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 projectBillingInfo : TListProjectBillingInfoResponseTypeprojectBillingInfoArray Index 0 Read FprojectBillingInfo Write SetprojectBillingInfo;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListProjectBillingInfoResponseClass = Class of TListProjectBillingInfoResponse;
+
+ { --------------------------------------------------------------------
+ TProjectBillingInfo
+ --------------------------------------------------------------------}
+
+ TProjectBillingInfo = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ FprojectId : String;
+ FbillingAccountName : String;
+ FbillingEnabled : boolean;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbillingAccountName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbillingEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property projectId : String Index 8 Read FprojectId Write SetprojectId;
+ Property billingAccountName : String Index 16 Read FbillingAccountName Write SetbillingAccountName;
+ Property billingEnabled : boolean Index 24 Read FbillingEnabled Write SetbillingEnabled;
+ end;
+ TProjectBillingInfoClass = Class of TProjectBillingInfo;
+
+ { --------------------------------------------------------------------
+ TBillingAccountsProjectsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TBillingAccountsProjectsResource, method List
+
+ TBillingAccountsProjectsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TBillingAccountsProjectsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(_name: string; AQuery : string = '') : TListProjectBillingInfoResponse;
+ Function List(_name: string; AQuery : TBillingAccountsProjectslistOptions) : TListProjectBillingInfoResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TBillingAccountsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TBillingAccountsResource, method List
+
+ TBillingAccountsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TBillingAccountsResource = Class(TGoogleResource)
+ Private
+ FProjectsInstance : TBillingAccountsProjectsResource;
+ Function GetProjectsInstance : TBillingAccountsProjectsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(_name: string) : TBillingAccount;
+ Function List(AQuery : string = '') : TListBillingAccountsResponse;
+ Function List(AQuery : TBillingAccountslistOptions) : TListBillingAccountsResponse;
+ Function CreateProjectsResource(AOwner : TComponent) : TBillingAccountsProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TBillingAccountsProjectsResource;virtual;overload;
+ Property ProjectsResource : TBillingAccountsProjectsResource Read GetProjectsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+ TProjectsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function GetBillingInfo(_name: string) : TProjectBillingInfo;
+ Function UpdateBillingInfo(_name: string; aProjectBillingInfo : TProjectBillingInfo) : TProjectBillingInfo;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCloudbillingAPI
+ --------------------------------------------------------------------}
+
+ TCloudbillingAPI = Class(TGoogleAPI)
+ Private
+ FBillingAccountsProjectsInstance : TBillingAccountsProjectsResource;
+ FBillingAccountsInstance : TBillingAccountsResource;
+ FProjectsInstance : TProjectsResource;
+ Function GetBillingAccountsProjectsInstance : TBillingAccountsProjectsResource;virtual;
+ Function GetBillingAccountsInstance : TBillingAccountsResource;virtual;
+ Function GetProjectsInstance : TProjectsResource;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 CreateBillingAccountsProjectsResource(AOwner : TComponent) : TBillingAccountsProjectsResource;virtual;overload;
+ Function CreateBillingAccountsProjectsResource : TBillingAccountsProjectsResource;virtual;overload;
+ Function CreateBillingAccountsResource(AOwner : TComponent) : TBillingAccountsResource;virtual;overload;
+ Function CreateBillingAccountsResource : TBillingAccountsResource;virtual;overload;
+ Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property BillingAccountsProjectsResource : TBillingAccountsProjectsResource Read GetBillingAccountsProjectsInstance;
+ Property BillingAccountsResource : TBillingAccountsResource Read GetBillingAccountsInstance;
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TBillingAccount
+ --------------------------------------------------------------------}
+
+
+Procedure TBillingAccount.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBillingAccount.Setopen(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fopen=AValue) then exit;
+ Fopen:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBillingAccount.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListBillingAccountsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListBillingAccountsResponse.SetbillingAccounts(AIndex : Integer; const AValue : TListBillingAccountsResponseTypebillingAccountsArray);
+
+begin
+ If (FbillingAccounts=AValue) then exit;
+ FbillingAccounts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListBillingAccountsResponse.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 TListBillingAccountsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'billingaccounts' : SetLength(FbillingAccounts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListProjectBillingInfoResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListProjectBillingInfoResponse.SetprojectBillingInfo(AIndex : Integer; const AValue : TListProjectBillingInfoResponseTypeprojectBillingInfoArray);
+
+begin
+ If (FprojectBillingInfo=AValue) then exit;
+ FprojectBillingInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListProjectBillingInfoResponse.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 TListProjectBillingInfoResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'projectbillinginfo' : SetLength(FprojectBillingInfo,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectBillingInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TProjectBillingInfo.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProjectBillingInfo.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProjectBillingInfo.SetbillingAccountName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbillingAccountName=AValue) then exit;
+ FbillingAccountName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProjectBillingInfo.SetbillingEnabled(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FbillingEnabled=AValue) then exit;
+ FbillingEnabled:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBillingAccountsProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TBillingAccountsProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TBillingAccountsProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcloudbillingAPI;
+end;
+
+Function TBillingAccountsProjectsResource.List(_name: string; AQuery : string = '') : TListProjectBillingInfoResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}/projects';
+ _Methodid = 'cloudbilling.billingAccounts.projects.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListProjectBillingInfoResponse) as TListProjectBillingInfoResponse;
+end;
+
+
+Function TBillingAccountsProjectsResource.List(_name: string; AQuery : TBillingAccountsProjectslistOptions) : TListProjectBillingInfoResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TBillingAccountsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TBillingAccountsResource.ResourceName : String;
+
+begin
+ Result:='billingAccounts';
+end;
+
+Class Function TBillingAccountsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcloudbillingAPI;
+end;
+
+Function TBillingAccountsResource.Get(_name: string) : TBillingAccount;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'cloudbilling.billingAccounts.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TBillingAccount) as TBillingAccount;
+end;
+
+Function TBillingAccountsResource.List(AQuery : string = '') : TListBillingAccountsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/billingAccounts';
+ _Methodid = 'cloudbilling.billingAccounts.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListBillingAccountsResponse) as TListBillingAccountsResponse;
+end;
+
+
+Function TBillingAccountsResource.List(AQuery : TBillingAccountslistOptions) : TListBillingAccountsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_Q);
+end;
+
+
+
+Function TBillingAccountsResource.GetProjectsInstance : TBillingAccountsProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TBillingAccountsResource.CreateProjectsResource : TBillingAccountsProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TBillingAccountsResource.CreateProjectsResource(AOwner : TComponent) : TBillingAccountsProjectsResource;
+
+begin
+ Result:=TBillingAccountsProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcloudbillingAPI;
+end;
+
+Function TProjectsResource.GetBillingInfo(_name: string) : TProjectBillingInfo;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}/billingInfo';
+ _Methodid = 'cloudbilling.projects.getBillingInfo';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProjectBillingInfo) as TProjectBillingInfo;
+end;
+
+Function TProjectsResource.UpdateBillingInfo(_name: string; aProjectBillingInfo : TProjectBillingInfo) : TProjectBillingInfo;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v1/{+name}/billingInfo';
+ _Methodid = 'cloudbilling.projects.updateBillingInfo';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aProjectBillingInfo,TProjectBillingInfo) as TProjectBillingInfo;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCloudbillingAPI
+ --------------------------------------------------------------------}
+
+Class Function TCloudbillingAPI.APIName : String;
+
+begin
+ Result:='cloudbilling';
+end;
+
+Class Function TCloudbillingAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TCloudbillingAPI.APIRevision : String;
+
+begin
+ Result:='20151222';
+end;
+
+Class Function TCloudbillingAPI.APIID : String;
+
+begin
+ Result:='cloudbilling:v1';
+end;
+
+Class Function TCloudbillingAPI.APITitle : String;
+
+begin
+ Result:='Google Cloud Billing API';
+end;
+
+Class Function TCloudbillingAPI.APIDescription : String;
+
+begin
+ Result:='Retrieves Google Developers Console billing accounts and associates them with projects.';
+end;
+
+Class Function TCloudbillingAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TCloudbillingAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TCloudbillingAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TCloudbillingAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TCloudbillingAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/billing/';
+end;
+
+Class Function TCloudbillingAPI.APIrootUrl : string;
+
+begin
+ Result:='https://cloudbilling.googleapis.com/';
+end;
+
+Class Function TCloudbillingAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TCloudbillingAPI.APIbaseURL : String;
+
+begin
+ Result:='https://cloudbilling.googleapis.com/';
+end;
+
+Class Function TCloudbillingAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TCloudbillingAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TCloudbillingAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TCloudbillingAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+
+end;
+
+Class Function TCloudbillingAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TCloudbillingAPI.RegisterAPIResources;
+
+begin
+ TBillingAccount.RegisterObject;
+ TListBillingAccountsResponse.RegisterObject;
+ TListProjectBillingInfoResponse.RegisterObject;
+ TProjectBillingInfo.RegisterObject;
+end;
+
+
+Function TCloudbillingAPI.GetBillingAccountsProjectsInstance : TBillingAccountsProjectsResource;
+
+begin
+ if (FBillingAccountsProjectsInstance=Nil) then
+ FBillingAccountsProjectsInstance:=CreateBillingAccountsProjectsResource;
+ Result:=FBillingAccountsProjectsInstance;
+end;
+
+Function TCloudbillingAPI.CreateBillingAccountsProjectsResource : TBillingAccountsProjectsResource;
+
+begin
+ Result:=CreateBillingAccountsProjectsResource(Self);
+end;
+
+
+Function TCloudbillingAPI.CreateBillingAccountsProjectsResource(AOwner : TComponent) : TBillingAccountsProjectsResource;
+
+begin
+ Result:=TBillingAccountsProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TCloudbillingAPI.GetBillingAccountsInstance : TBillingAccountsResource;
+
+begin
+ if (FBillingAccountsInstance=Nil) then
+ FBillingAccountsInstance:=CreateBillingAccountsResource;
+ Result:=FBillingAccountsInstance;
+end;
+
+Function TCloudbillingAPI.CreateBillingAccountsResource : TBillingAccountsResource;
+
+begin
+ Result:=CreateBillingAccountsResource(Self);
+end;
+
+
+Function TCloudbillingAPI.CreateBillingAccountsResource(AOwner : TComponent) : TBillingAccountsResource;
+
+begin
+ Result:=TBillingAccountsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TCloudbillingAPI.GetProjectsInstance : TProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TCloudbillingAPI.CreateProjectsResource : TProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TCloudbillingAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+
+begin
+ Result:=TProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TCloudbillingAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlecloudbuild.pp b/packages/googleapi/src/googlecloudbuild.pp
new file mode 100644
index 0000000000..18655db39d
--- /dev/null
+++ b/packages/googleapi/src/googlecloudbuild.pp
@@ -0,0 +1,1492 @@
+unit googlecloudbuild;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TStatus = Class;
+ TBuildOperationMetadata = Class;
+ TSource = Class;
+ TOperation = Class;
+ TBuiltImage = Class;
+ TStorageSource = Class;
+ TResults = Class;
+ TBuild = Class;
+ TCancelBuildRequest = Class;
+ TListOperationsResponse = Class;
+ TBuildStep = Class;
+ TListBuildsResponse = Class;
+ TStatusArray = Array of TStatus;
+ TBuildOperationMetadataArray = Array of TBuildOperationMetadata;
+ TSourceArray = Array of TSource;
+ TOperationArray = Array of TOperation;
+ TBuiltImageArray = Array of TBuiltImage;
+ TStorageSourceArray = Array of TStorageSource;
+ TResultsArray = Array of TResults;
+ TBuildArray = Array of TBuild;
+ TCancelBuildRequestArray = Array of TCancelBuildRequest;
+ TListOperationsResponseArray = Array of TListOperationsResponse;
+ TBuildStepArray = Array of TBuildStep;
+ TListBuildsResponseArray = Array of TListBuildsResponse;
+ //Anonymous types, using auto-generated names
+ TStatusTypedetailsItem = Class;
+ TOperationTypemetadata = Class;
+ TOperationTyperesponse = Class;
+ TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
+ TResultsTypeimagesArray = Array of TBuiltImage;
+ TBuildTypestepsArray = Array of TBuildStep;
+ TListOperationsResponseTypeoperationsArray = Array of TOperation;
+ TListBuildsResponseTypebuildsArray = Array of TBuild;
+
+ { --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+ TStatusTypedetailsItem = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
+
+ { --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+ TStatus = Class(TGoogleBaseObject)
+ Private
+ Fcode : integer;
+ Fdetails : TStatusTypedetailsArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
+ Procedure Setmessage(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 code : integer Index 0 Read Fcode Write Setcode;
+ Property details : TStatusTypedetailsArray Index 8 Read Fdetails Write Setdetails;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TStatusClass = Class of TStatus;
+
+ { --------------------------------------------------------------------
+ TBuildOperationMetadata
+ --------------------------------------------------------------------}
+
+ TBuildOperationMetadata = Class(TGoogleBaseObject)
+ Private
+ Fbuild : TBuild;
+ Protected
+ //Property setters
+ Procedure Setbuild(AIndex : Integer; const AValue : TBuild); virtual;
+ Public
+ Published
+ Property build : TBuild Index 0 Read Fbuild Write Setbuild;
+ end;
+ TBuildOperationMetadataClass = Class of TBuildOperationMetadata;
+
+ { --------------------------------------------------------------------
+ TSource
+ --------------------------------------------------------------------}
+
+ TSource = Class(TGoogleBaseObject)
+ Private
+ FstorageSource : TStorageSource;
+ Protected
+ //Property setters
+ Procedure SetstorageSource(AIndex : Integer; const AValue : TStorageSource); virtual;
+ Public
+ Published
+ Property storageSource : TStorageSource Index 0 Read FstorageSource Write SetstorageSource;
+ end;
+ TSourceClass = Class of TSource;
+
+ { --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+ TOperationTypemetadata = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTypemetadataClass = Class of TOperationTypemetadata;
+
+ { --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+ TOperationTyperesponse = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTyperesponseClass = Class of TOperationTyperesponse;
+
+ { --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+ TOperation = Class(TGoogleBaseObject)
+ Private
+ Ferror : TStatus;
+ Fdone : boolean;
+ Fmetadata : TOperationTypemetadata;
+ Fresponse : TOperationTyperesponse;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
+ Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); virtual;
+ Procedure Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property error : TStatus Index 0 Read Ferror Write Seterror;
+ Property done : boolean Index 8 Read Fdone Write Setdone;
+ Property metadata : TOperationTypemetadata Index 16 Read Fmetadata Write Setmetadata;
+ Property response : TOperationTyperesponse Index 24 Read Fresponse Write Setresponse;
+ Property name : String Index 32 Read Fname Write Setname;
+ end;
+ TOperationClass = Class of TOperation;
+
+ { --------------------------------------------------------------------
+ TBuiltImage
+ --------------------------------------------------------------------}
+
+ TBuiltImage = Class(TGoogleBaseObject)
+ Private
+ Fdigest : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure Setdigest(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property digest : String Index 0 Read Fdigest Write Setdigest;
+ Property name : String Index 8 Read Fname Write Setname;
+ end;
+ TBuiltImageClass = Class of TBuiltImage;
+
+ { --------------------------------------------------------------------
+ TStorageSource
+ --------------------------------------------------------------------}
+
+ TStorageSource = Class(TGoogleBaseObject)
+ Private
+ Fbucket : String;
+ Fgeneration : String;
+ F_object : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setbucket(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setgeneration(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_object(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property bucket : String Index 0 Read Fbucket Write Setbucket;
+ Property generation : String Index 8 Read Fgeneration Write Setgeneration;
+ Property _object : String Index 16 Read F_object Write Set_object;
+ end;
+ TStorageSourceClass = Class of TStorageSource;
+
+ { --------------------------------------------------------------------
+ TResults
+ --------------------------------------------------------------------}
+
+ TResults = Class(TGoogleBaseObject)
+ Private
+ Fimages : TResultsTypeimagesArray;
+ Protected
+ //Property setters
+ Procedure Setimages(AIndex : Integer; const AValue : TResultsTypeimagesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property images : TResultsTypeimagesArray Index 0 Read Fimages Write Setimages;
+ end;
+ TResultsClass = Class of TResults;
+
+ { --------------------------------------------------------------------
+ TBuild
+ --------------------------------------------------------------------}
+
+ TBuild = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fresults : TResults;
+ Fstatus : String;
+ FfinishTime : String;
+ Ftimeout : String;
+ Fsteps : TBuildTypestepsArray;
+ Fsource : TSource;
+ FcreateTime : String;
+ FstatusDetail : String;
+ Fimages : TStringArray;
+ FstartTime : String;
+ FlogsBucket : String;
+ FprojectId : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setresults(AIndex : Integer; const AValue : TResults); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfinishTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settimeout(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsteps(AIndex : Integer; const AValue : TBuildTypestepsArray); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TSource); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstatusDetail(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setimages(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlogsBucket(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprojectId(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 id : String Index 0 Read Fid Write Setid;
+ Property results : TResults Index 8 Read Fresults Write Setresults;
+ Property status : String Index 16 Read Fstatus Write Setstatus;
+ Property finishTime : String Index 24 Read FfinishTime Write SetfinishTime;
+ Property timeout : String Index 32 Read Ftimeout Write Settimeout;
+ Property steps : TBuildTypestepsArray Index 40 Read Fsteps Write Setsteps;
+ Property source : TSource Index 48 Read Fsource Write Setsource;
+ Property createTime : String Index 56 Read FcreateTime Write SetcreateTime;
+ Property statusDetail : String Index 64 Read FstatusDetail Write SetstatusDetail;
+ Property images : TStringArray Index 72 Read Fimages Write Setimages;
+ Property startTime : String Index 80 Read FstartTime Write SetstartTime;
+ Property logsBucket : String Index 88 Read FlogsBucket Write SetlogsBucket;
+ Property projectId : String Index 96 Read FprojectId Write SetprojectId;
+ end;
+ TBuildClass = Class of TBuild;
+
+ { --------------------------------------------------------------------
+ TCancelBuildRequest
+ --------------------------------------------------------------------}
+
+ TCancelBuildRequest = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TCancelBuildRequestClass = Class of TCancelBuildRequest;
+
+ { --------------------------------------------------------------------
+ TListOperationsResponse
+ --------------------------------------------------------------------}
+
+ TListOperationsResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ Foperations : TListOperationsResponseTypeoperationsArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property operations : TListOperationsResponseTypeoperationsArray Index 8 Read Foperations Write Setoperations;
+ end;
+ TListOperationsResponseClass = Class of TListOperationsResponse;
+
+ { --------------------------------------------------------------------
+ TBuildStep
+ --------------------------------------------------------------------}
+
+ TBuildStep = Class(TGoogleBaseObject)
+ Private
+ Fargs : TStringArray;
+ Fdir : String;
+ Fname : String;
+ Fenv : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setargs(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setdir(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setenv(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 args : TStringArray Index 0 Read Fargs Write Setargs;
+ Property dir : String Index 8 Read Fdir Write Setdir;
+ Property name : String Index 16 Read Fname Write Setname;
+ Property env : TStringArray Index 24 Read Fenv Write Setenv;
+ end;
+ TBuildStepClass = Class of TBuildStep;
+
+ { --------------------------------------------------------------------
+ TListBuildsResponse
+ --------------------------------------------------------------------}
+
+ TListBuildsResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ Fbuilds : TListBuildsResponseTypebuildsArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setbuilds(AIndex : Integer; const AValue : TListBuildsResponseTypebuildsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property builds : TListBuildsResponseTypebuildsArray Index 8 Read Fbuilds Write Setbuilds;
+ end;
+ TListBuildsResponseClass = Class of TListBuildsResponse;
+
+ { --------------------------------------------------------------------
+ TProjectsBuildsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsBuildsResource, method List
+
+ TProjectsBuildsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsBuildsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(projectId: string; aBuild : TBuild) : TOperation;overload;
+ Function Get(projectId: string; id: string) : TBuild;
+ Function List(projectId: string; AQuery : string = '') : TListBuildsResponse;
+ Function List(projectId: string; AQuery : TProjectsBuildslistOptions) : TListBuildsResponse;
+ Function Cancel(projectId: string; id: string; aCancelBuildRequest : TCancelBuildRequest) : TBuild;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+ TProjectsResource = Class(TGoogleResource)
+ Private
+ FBuildsInstance : TProjectsBuildsResource;
+ Function GetBuildsInstance : TProjectsBuildsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CreateBuildsResource(AOwner : TComponent) : TProjectsBuildsResource;virtual;overload;
+ Function CreateBuildsResource : TProjectsBuildsResource;virtual;overload;
+ Property BuildsResource : TProjectsBuildsResource Read GetBuildsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TOperationsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TOperationsResource, method List
+
+ TOperationsListOptions = Record
+ pageSize : integer;
+ filter : String;
+ pageToken : String;
+ end;
+
+ TOperationsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(_name: string) : TOperation;
+ Function List(_name: string; AQuery : string = '') : TListOperationsResponse;
+ Function List(_name: string; AQuery : TOperationslistOptions) : TListOperationsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCloudbuildAPI
+ --------------------------------------------------------------------}
+
+ TCloudbuildAPI = Class(TGoogleAPI)
+ Private
+ FProjectsBuildsInstance : TProjectsBuildsResource;
+ FProjectsInstance : TProjectsResource;
+ FOperationsInstance : TOperationsResource;
+ Function GetProjectsBuildsInstance : TProjectsBuildsResource;virtual;
+ Function GetProjectsInstance : TProjectsResource;virtual;
+ Function GetOperationsInstance : TOperationsResource;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 CreateProjectsBuildsResource(AOwner : TComponent) : TProjectsBuildsResource;virtual;overload;
+ Function CreateProjectsBuildsResource : TProjectsBuildsResource;virtual;overload;
+ Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ Function CreateOperationsResource(AOwner : TComponent) : TOperationsResource;virtual;overload;
+ Function CreateOperationsResource : TOperationsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ProjectsBuildsResource : TProjectsBuildsResource Read GetProjectsBuildsInstance;
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ Property OperationsResource : TOperationsResource Read GetOperationsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+
+Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'details' : SetLength(Fdetails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBuildOperationMetadata
+ --------------------------------------------------------------------}
+
+
+Procedure TBuildOperationMetadata.Setbuild(AIndex : Integer; const AValue : TBuild);
+
+begin
+ If (Fbuild=AValue) then exit;
+ Fbuild:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSource
+ --------------------------------------------------------------------}
+
+
+Procedure TSource.SetstorageSource(AIndex : Integer; const AValue : TStorageSource);
+
+begin
+ If (FstorageSource=AValue) then exit;
+ FstorageSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTypemetadata.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTyperesponse.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fdone=AValue) then exit;
+ Fdone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
+
+begin
+ If (Fresponse=AValue) then exit;
+ Fresponse:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBuiltImage
+ --------------------------------------------------------------------}
+
+
+Procedure TBuiltImage.Setdigest(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdigest=AValue) then exit;
+ Fdigest:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuiltImage.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStorageSource
+ --------------------------------------------------------------------}
+
+
+Procedure TStorageSource.Setbucket(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fbucket=AValue) then exit;
+ Fbucket:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStorageSource.Setgeneration(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fgeneration=AValue) then exit;
+ Fgeneration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStorageSource.Set_object(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_object=AValue) then exit;
+ F_object:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TStorageSource.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_object' : Result:='object';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TResults
+ --------------------------------------------------------------------}
+
+
+Procedure TResults.Setimages(AIndex : Integer; const AValue : TResultsTypeimagesArray);
+
+begin
+ If (Fimages=AValue) then exit;
+ Fimages:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResults.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'images' : SetLength(Fimages,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBuild
+ --------------------------------------------------------------------}
+
+
+Procedure TBuild.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.Setresults(AIndex : Integer; const AValue : TResults);
+
+begin
+ If (Fresults=AValue) then exit;
+ Fresults:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.SetfinishTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfinishTime=AValue) then exit;
+ FfinishTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.Settimeout(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftimeout=AValue) then exit;
+ Ftimeout:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.Setsteps(AIndex : Integer; const AValue : TBuildTypestepsArray);
+
+begin
+ If (Fsteps=AValue) then exit;
+ Fsteps:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.Setsource(AIndex : Integer; const AValue : TSource);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.SetcreateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.SetstatusDetail(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstatusDetail=AValue) then exit;
+ FstatusDetail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.Setimages(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fimages=AValue) then exit;
+ Fimages:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.SetstartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTime=AValue) then exit;
+ FstartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.SetlogsBucket(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlogsBucket=AValue) then exit;
+ FlogsBucket:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuild.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBuild.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'steps' : SetLength(Fsteps,ALength);
+ 'images' : SetLength(Fimages,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCancelBuildRequest
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListOperationsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListOperationsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListOperationsResponse.Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray);
+
+begin
+ If (Foperations=AValue) then exit;
+ Foperations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'operations' : SetLength(Foperations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBuildStep
+ --------------------------------------------------------------------}
+
+
+Procedure TBuildStep.Setargs(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fargs=AValue) then exit;
+ Fargs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuildStep.Setdir(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdir=AValue) then exit;
+ Fdir:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuildStep.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBuildStep.Setenv(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fenv=AValue) then exit;
+ Fenv:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBuildStep.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'args' : SetLength(Fargs,ALength);
+ 'env' : SetLength(Fenv,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListBuildsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListBuildsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListBuildsResponse.Setbuilds(AIndex : Integer; const AValue : TListBuildsResponseTypebuildsArray);
+
+begin
+ If (Fbuilds=AValue) then exit;
+ Fbuilds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListBuildsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'builds' : SetLength(Fbuilds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsBuildsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsBuildsResource.ResourceName : String;
+
+begin
+ Result:='builds';
+end;
+
+Class Function TProjectsBuildsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcloudbuildAPI;
+end;
+
+Function TProjectsBuildsResource.Create(projectId: string; aBuild : TBuild) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{projectId}/builds';
+ _Methodid = 'cloudbuild.projects.builds.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aBuild,TOperation) as TOperation;
+end;
+
+Function TProjectsBuildsResource.Get(projectId: string; id: string) : TBuild;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/builds/{id}';
+ _Methodid = 'cloudbuild.projects.builds.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TBuild) as TBuild;
+end;
+
+Function TProjectsBuildsResource.List(projectId: string; AQuery : string = '') : TListBuildsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/builds';
+ _Methodid = 'cloudbuild.projects.builds.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListBuildsResponse) as TListBuildsResponse;
+end;
+
+
+Function TProjectsBuildsResource.List(projectId: string; AQuery : TProjectsBuildslistOptions) : TListBuildsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(projectId,_Q);
+end;
+
+Function TProjectsBuildsResource.Cancel(projectId: string; id: string; aCancelBuildRequest : TCancelBuildRequest) : TBuild;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{projectId}/builds/{id}:cancel';
+ _Methodid = 'cloudbuild.projects.builds.cancel';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCancelBuildRequest,TBuild) as TBuild;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcloudbuildAPI;
+end;
+
+
+
+Function TProjectsResource.GetBuildsInstance : TProjectsBuildsResource;
+
+begin
+ if (FBuildsInstance=Nil) then
+ FBuildsInstance:=CreateBuildsResource;
+ Result:=FBuildsInstance;
+end;
+
+Function TProjectsResource.CreateBuildsResource : TProjectsBuildsResource;
+
+begin
+ Result:=CreateBuildsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateBuildsResource(AOwner : TComponent) : TProjectsBuildsResource;
+
+begin
+ Result:=TProjectsBuildsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperationsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationsResource.ResourceName : String;
+
+begin
+ Result:='operations';
+end;
+
+Class Function TOperationsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcloudbuildAPI;
+end;
+
+Function TOperationsResource.Get(_name: string) : TOperation;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'cloudbuild.operations.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TOperationsResource.List(_name: string; AQuery : string = '') : TListOperationsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'cloudbuild.operations.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListOperationsResponse) as TListOperationsResponse;
+end;
+
+
+Function TOperationsResource.List(_name: string; AQuery : TOperationslistOptions) : TListOperationsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCloudbuildAPI
+ --------------------------------------------------------------------}
+
+Class Function TCloudbuildAPI.APIName : String;
+
+begin
+ Result:='cloudbuild';
+end;
+
+Class Function TCloudbuildAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TCloudbuildAPI.APIRevision : String;
+
+begin
+ Result:='20160523';
+end;
+
+Class Function TCloudbuildAPI.APIID : String;
+
+begin
+ Result:='cloudbuild:v1';
+end;
+
+Class Function TCloudbuildAPI.APITitle : String;
+
+begin
+ Result:='Google Cloud Container Builder API';
+end;
+
+Class Function TCloudbuildAPI.APIDescription : String;
+
+begin
+ Result:='Builds container images in the cloud.';
+end;
+
+Class Function TCloudbuildAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TCloudbuildAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TCloudbuildAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TCloudbuildAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TCloudbuildAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/container-builder/docs/';
+end;
+
+Class Function TCloudbuildAPI.APIrootUrl : string;
+
+begin
+ Result:='https://cloudbuild.googleapis.com/';
+end;
+
+Class Function TCloudbuildAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TCloudbuildAPI.APIbaseURL : String;
+
+begin
+ Result:='https://cloudbuild.googleapis.com/';
+end;
+
+Class Function TCloudbuildAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TCloudbuildAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TCloudbuildAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TCloudbuildAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+
+end;
+
+Class Function TCloudbuildAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TCloudbuildAPI.RegisterAPIResources;
+
+begin
+ TStatusTypedetailsItem.RegisterObject;
+ TStatus.RegisterObject;
+ TBuildOperationMetadata.RegisterObject;
+ TSource.RegisterObject;
+ TOperationTypemetadata.RegisterObject;
+ TOperationTyperesponse.RegisterObject;
+ TOperation.RegisterObject;
+ TBuiltImage.RegisterObject;
+ TStorageSource.RegisterObject;
+ TResults.RegisterObject;
+ TBuild.RegisterObject;
+ TCancelBuildRequest.RegisterObject;
+ TListOperationsResponse.RegisterObject;
+ TBuildStep.RegisterObject;
+ TListBuildsResponse.RegisterObject;
+end;
+
+
+Function TCloudbuildAPI.GetProjectsBuildsInstance : TProjectsBuildsResource;
+
+begin
+ if (FProjectsBuildsInstance=Nil) then
+ FProjectsBuildsInstance:=CreateProjectsBuildsResource;
+ Result:=FProjectsBuildsInstance;
+end;
+
+Function TCloudbuildAPI.CreateProjectsBuildsResource : TProjectsBuildsResource;
+
+begin
+ Result:=CreateProjectsBuildsResource(Self);
+end;
+
+
+Function TCloudbuildAPI.CreateProjectsBuildsResource(AOwner : TComponent) : TProjectsBuildsResource;
+
+begin
+ Result:=TProjectsBuildsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TCloudbuildAPI.GetProjectsInstance : TProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TCloudbuildAPI.CreateProjectsResource : TProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TCloudbuildAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+
+begin
+ Result:=TProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TCloudbuildAPI.GetOperationsInstance : TOperationsResource;
+
+begin
+ if (FOperationsInstance=Nil) then
+ FOperationsInstance:=CreateOperationsResource;
+ Result:=FOperationsInstance;
+end;
+
+Function TCloudbuildAPI.CreateOperationsResource : TOperationsResource;
+
+begin
+ Result:=CreateOperationsResource(Self);
+end;
+
+
+Function TCloudbuildAPI.CreateOperationsResource(AOwner : TComponent) : TOperationsResource;
+
+begin
+ Result:=TOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TCloudbuildAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleclouddebugger.pp b/packages/googleapi/src/googleclouddebugger.pp
new file mode 100644
index 0000000000..75bfc2eec3
--- /dev/null
+++ b/packages/googleapi/src/googleclouddebugger.pp
@@ -0,0 +1,2920 @@
+unit googleclouddebugger;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TRegisterDebuggeeRequest = Class;
+ TDebuggee = Class;
+ TStatusMessage = Class;
+ TFormatMessage = Class;
+ TSourceContext = Class;
+ TCloudRepoSourceContext = Class;
+ TRepoId = Class;
+ TProjectRepoId = Class;
+ TAliasContext = Class;
+ TCloudWorkspaceSourceContext = Class;
+ TCloudWorkspaceId = Class;
+ TGerritSourceContext = Class;
+ TGitSourceContext = Class;
+ TExtendedSourceContext = Class;
+ TRegisterDebuggeeResponse = Class;
+ TListActiveBreakpointsResponse = Class;
+ TBreakpoint = Class;
+ TSourceLocation = Class;
+ TStackFrame = Class;
+ TVariable = Class;
+ TUpdateActiveBreakpointRequest = Class;
+ TUpdateActiveBreakpointResponse = Class;
+ TSetBreakpointResponse = Class;
+ TGetBreakpointResponse = Class;
+ TEmpty = Class;
+ TListBreakpointsResponse = Class;
+ TListDebuggeesResponse = Class;
+ TRegisterDebuggeeRequestArray = Array of TRegisterDebuggeeRequest;
+ TDebuggeeArray = Array of TDebuggee;
+ TStatusMessageArray = Array of TStatusMessage;
+ TFormatMessageArray = Array of TFormatMessage;
+ TSourceContextArray = Array of TSourceContext;
+ TCloudRepoSourceContextArray = Array of TCloudRepoSourceContext;
+ TRepoIdArray = Array of TRepoId;
+ TProjectRepoIdArray = Array of TProjectRepoId;
+ TAliasContextArray = Array of TAliasContext;
+ TCloudWorkspaceSourceContextArray = Array of TCloudWorkspaceSourceContext;
+ TCloudWorkspaceIdArray = Array of TCloudWorkspaceId;
+ TGerritSourceContextArray = Array of TGerritSourceContext;
+ TGitSourceContextArray = Array of TGitSourceContext;
+ TExtendedSourceContextArray = Array of TExtendedSourceContext;
+ TRegisterDebuggeeResponseArray = Array of TRegisterDebuggeeResponse;
+ TListActiveBreakpointsResponseArray = Array of TListActiveBreakpointsResponse;
+ TBreakpointArray = Array of TBreakpoint;
+ TSourceLocationArray = Array of TSourceLocation;
+ TStackFrameArray = Array of TStackFrame;
+ TVariableArray = Array of TVariable;
+ TUpdateActiveBreakpointRequestArray = Array of TUpdateActiveBreakpointRequest;
+ TUpdateActiveBreakpointResponseArray = Array of TUpdateActiveBreakpointResponse;
+ TSetBreakpointResponseArray = Array of TSetBreakpointResponse;
+ TGetBreakpointResponseArray = Array of TGetBreakpointResponse;
+ TEmptyArray = Array of TEmpty;
+ TListBreakpointsResponseArray = Array of TListBreakpointsResponse;
+ TListDebuggeesResponseArray = Array of TListDebuggeesResponse;
+ //Anonymous types, using auto-generated names
+ TDebuggeeTypelabels = Class;
+ TExtendedSourceContextTypelabels = Class;
+ TBreakpointTypelabels = Class;
+ TDebuggeeTypesourceContextsArray = Array of TSourceContext;
+ TDebuggeeTypeextSourceContextsArray = Array of TExtendedSourceContext;
+ TListActiveBreakpointsResponseTypebreakpointsArray = Array of TBreakpoint;
+ TBreakpointTypestackFramesArray = Array of TStackFrame;
+ TBreakpointTypeevaluatedExpressionsArray = Array of TVariable;
+ TBreakpointTypevariableTableArray = Array of TVariable;
+ TStackFrameTypeargumentsArray = Array of TVariable;
+ TStackFrameTypelocalsArray = Array of TVariable;
+ TVariableTypemembersArray = Array of TVariable;
+ TListBreakpointsResponseTypebreakpointsArray = Array of TBreakpoint;
+ TListDebuggeesResponseTypedebuggeesArray = Array of TDebuggee;
+
+ { --------------------------------------------------------------------
+ TRegisterDebuggeeRequest
+ --------------------------------------------------------------------}
+
+ TRegisterDebuggeeRequest = Class(TGoogleBaseObject)
+ Private
+ Fdebuggee : TDebuggee;
+ Protected
+ //Property setters
+ Procedure Setdebuggee(AIndex : Integer; const AValue : TDebuggee); virtual;
+ Public
+ Published
+ Property debuggee : TDebuggee Index 0 Read Fdebuggee Write Setdebuggee;
+ end;
+ TRegisterDebuggeeRequestClass = Class of TRegisterDebuggeeRequest;
+
+ { --------------------------------------------------------------------
+ TDebuggeeTypelabels
+ --------------------------------------------------------------------}
+
+ TDebuggeeTypelabels = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TDebuggeeTypelabelsClass = Class of TDebuggeeTypelabels;
+
+ { --------------------------------------------------------------------
+ TDebuggee
+ --------------------------------------------------------------------}
+
+ TDebuggee = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fproject : String;
+ Funiquifier : String;
+ Fdescription : String;
+ FisInactive : boolean;
+ FagentVersion : String;
+ FisDisabled : boolean;
+ Fstatus : TStatusMessage;
+ FsourceContexts : TDebuggeeTypesourceContextsArray;
+ FextSourceContexts : TDebuggeeTypeextSourceContextsArray;
+ Flabels : TDebuggeeTypelabels;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setproject(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setuniquifier(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetisInactive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetagentVersion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetisDisabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TStatusMessage); virtual;
+ Procedure SetsourceContexts(AIndex : Integer; const AValue : TDebuggeeTypesourceContextsArray); virtual;
+ Procedure SetextSourceContexts(AIndex : Integer; const AValue : TDebuggeeTypeextSourceContextsArray); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TDebuggeeTypelabels); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property project : String Index 8 Read Fproject Write Setproject;
+ Property uniquifier : String Index 16 Read Funiquifier Write Setuniquifier;
+ Property description : String Index 24 Read Fdescription Write Setdescription;
+ Property isInactive : boolean Index 32 Read FisInactive Write SetisInactive;
+ Property agentVersion : String Index 40 Read FagentVersion Write SetagentVersion;
+ Property isDisabled : boolean Index 48 Read FisDisabled Write SetisDisabled;
+ Property status : TStatusMessage Index 56 Read Fstatus Write Setstatus;
+ Property sourceContexts : TDebuggeeTypesourceContextsArray Index 64 Read FsourceContexts Write SetsourceContexts;
+ Property extSourceContexts : TDebuggeeTypeextSourceContextsArray Index 72 Read FextSourceContexts Write SetextSourceContexts;
+ Property labels : TDebuggeeTypelabels Index 80 Read Flabels Write Setlabels;
+ end;
+ TDebuggeeClass = Class of TDebuggee;
+
+ { --------------------------------------------------------------------
+ TStatusMessage
+ --------------------------------------------------------------------}
+
+ TStatusMessage = Class(TGoogleBaseObject)
+ Private
+ FisError : boolean;
+ FrefersTo : String;
+ Fdescription : TFormatMessage;
+ Protected
+ //Property setters
+ Procedure SetisError(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetrefersTo(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : TFormatMessage); virtual;
+ Public
+ Published
+ Property isError : boolean Index 0 Read FisError Write SetisError;
+ Property refersTo : String Index 8 Read FrefersTo Write SetrefersTo;
+ Property description : TFormatMessage Index 16 Read Fdescription Write Setdescription;
+ end;
+ TStatusMessageClass = Class of TStatusMessage;
+
+ { --------------------------------------------------------------------
+ TFormatMessage
+ --------------------------------------------------------------------}
+
+ TFormatMessage = Class(TGoogleBaseObject)
+ Private
+ Fformat : String;
+ Fparameters : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setparameters(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 format : String Index 0 Read Fformat Write Setformat;
+ Property parameters : TStringArray Index 8 Read Fparameters Write Setparameters;
+ end;
+ TFormatMessageClass = Class of TFormatMessage;
+
+ { --------------------------------------------------------------------
+ TSourceContext
+ --------------------------------------------------------------------}
+
+ TSourceContext = Class(TGoogleBaseObject)
+ Private
+ FcloudRepo : TCloudRepoSourceContext;
+ FcloudWorkspace : TCloudWorkspaceSourceContext;
+ Fgerrit : TGerritSourceContext;
+ Fgit : TGitSourceContext;
+ Protected
+ //Property setters
+ Procedure SetcloudRepo(AIndex : Integer; const AValue : TCloudRepoSourceContext); virtual;
+ Procedure SetcloudWorkspace(AIndex : Integer; const AValue : TCloudWorkspaceSourceContext); virtual;
+ Procedure Setgerrit(AIndex : Integer; const AValue : TGerritSourceContext); virtual;
+ Procedure Setgit(AIndex : Integer; const AValue : TGitSourceContext); virtual;
+ Public
+ Published
+ Property cloudRepo : TCloudRepoSourceContext Index 0 Read FcloudRepo Write SetcloudRepo;
+ Property cloudWorkspace : TCloudWorkspaceSourceContext Index 8 Read FcloudWorkspace Write SetcloudWorkspace;
+ Property gerrit : TGerritSourceContext Index 16 Read Fgerrit Write Setgerrit;
+ Property git : TGitSourceContext Index 24 Read Fgit Write Setgit;
+ end;
+ TSourceContextClass = Class of TSourceContext;
+
+ { --------------------------------------------------------------------
+ TCloudRepoSourceContext
+ --------------------------------------------------------------------}
+
+ TCloudRepoSourceContext = Class(TGoogleBaseObject)
+ Private
+ FrepoId : TRepoId;
+ FrevisionId : String;
+ FaliasName : String;
+ FaliasContext : TAliasContext;
+ Protected
+ //Property setters
+ Procedure SetrepoId(AIndex : Integer; const AValue : TRepoId); virtual;
+ Procedure SetrevisionId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetaliasName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetaliasContext(AIndex : Integer; const AValue : TAliasContext); virtual;
+ Public
+ Published
+ Property repoId : TRepoId Index 0 Read FrepoId Write SetrepoId;
+ Property revisionId : String Index 8 Read FrevisionId Write SetrevisionId;
+ Property aliasName : String Index 16 Read FaliasName Write SetaliasName;
+ Property aliasContext : TAliasContext Index 24 Read FaliasContext Write SetaliasContext;
+ end;
+ TCloudRepoSourceContextClass = Class of TCloudRepoSourceContext;
+
+ { --------------------------------------------------------------------
+ TRepoId
+ --------------------------------------------------------------------}
+
+ TRepoId = Class(TGoogleBaseObject)
+ Private
+ FprojectRepoId : TProjectRepoId;
+ Fuid : String;
+ Protected
+ //Property setters
+ Procedure SetprojectRepoId(AIndex : Integer; const AValue : TProjectRepoId); virtual;
+ Procedure Setuid(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property projectRepoId : TProjectRepoId Index 0 Read FprojectRepoId Write SetprojectRepoId;
+ Property uid : String Index 8 Read Fuid Write Setuid;
+ end;
+ TRepoIdClass = Class of TRepoId;
+
+ { --------------------------------------------------------------------
+ TProjectRepoId
+ --------------------------------------------------------------------}
+
+ TProjectRepoId = Class(TGoogleBaseObject)
+ Private
+ FprojectId : String;
+ FrepoName : String;
+ Protected
+ //Property setters
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrepoName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property projectId : String Index 0 Read FprojectId Write SetprojectId;
+ Property repoName : String Index 8 Read FrepoName Write SetrepoName;
+ end;
+ TProjectRepoIdClass = Class of TProjectRepoId;
+
+ { --------------------------------------------------------------------
+ TAliasContext
+ --------------------------------------------------------------------}
+
+ TAliasContext = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property name : String Index 8 Read Fname Write Setname;
+ end;
+ TAliasContextClass = Class of TAliasContext;
+
+ { --------------------------------------------------------------------
+ TCloudWorkspaceSourceContext
+ --------------------------------------------------------------------}
+
+ TCloudWorkspaceSourceContext = Class(TGoogleBaseObject)
+ Private
+ FworkspaceId : TCloudWorkspaceId;
+ FsnapshotId : String;
+ Protected
+ //Property setters
+ Procedure SetworkspaceId(AIndex : Integer; const AValue : TCloudWorkspaceId); virtual;
+ Procedure SetsnapshotId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property workspaceId : TCloudWorkspaceId Index 0 Read FworkspaceId Write SetworkspaceId;
+ Property snapshotId : String Index 8 Read FsnapshotId Write SetsnapshotId;
+ end;
+ TCloudWorkspaceSourceContextClass = Class of TCloudWorkspaceSourceContext;
+
+ { --------------------------------------------------------------------
+ TCloudWorkspaceId
+ --------------------------------------------------------------------}
+
+ TCloudWorkspaceId = Class(TGoogleBaseObject)
+ Private
+ FrepoId : TRepoId;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure SetrepoId(AIndex : Integer; const AValue : TRepoId); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property repoId : TRepoId Index 0 Read FrepoId Write SetrepoId;
+ Property name : String Index 8 Read Fname Write Setname;
+ end;
+ TCloudWorkspaceIdClass = Class of TCloudWorkspaceId;
+
+ { --------------------------------------------------------------------
+ TGerritSourceContext
+ --------------------------------------------------------------------}
+
+ TGerritSourceContext = Class(TGoogleBaseObject)
+ Private
+ FhostUri : String;
+ FgerritProject : String;
+ FrevisionId : String;
+ FaliasName : String;
+ FaliasContext : TAliasContext;
+ Protected
+ //Property setters
+ Procedure SethostUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetgerritProject(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrevisionId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetaliasName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetaliasContext(AIndex : Integer; const AValue : TAliasContext); virtual;
+ Public
+ Published
+ Property hostUri : String Index 0 Read FhostUri Write SethostUri;
+ Property gerritProject : String Index 8 Read FgerritProject Write SetgerritProject;
+ Property revisionId : String Index 16 Read FrevisionId Write SetrevisionId;
+ Property aliasName : String Index 24 Read FaliasName Write SetaliasName;
+ Property aliasContext : TAliasContext Index 32 Read FaliasContext Write SetaliasContext;
+ end;
+ TGerritSourceContextClass = Class of TGerritSourceContext;
+
+ { --------------------------------------------------------------------
+ TGitSourceContext
+ --------------------------------------------------------------------}
+
+ TGitSourceContext = Class(TGoogleBaseObject)
+ Private
+ Furl : String;
+ FrevisionId : String;
+ Protected
+ //Property setters
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrevisionId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property url : String Index 0 Read Furl Write Seturl;
+ Property revisionId : String Index 8 Read FrevisionId Write SetrevisionId;
+ end;
+ TGitSourceContextClass = Class of TGitSourceContext;
+
+ { --------------------------------------------------------------------
+ TExtendedSourceContextTypelabels
+ --------------------------------------------------------------------}
+
+ TExtendedSourceContextTypelabels = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TExtendedSourceContextTypelabelsClass = Class of TExtendedSourceContextTypelabels;
+
+ { --------------------------------------------------------------------
+ TExtendedSourceContext
+ --------------------------------------------------------------------}
+
+ TExtendedSourceContext = Class(TGoogleBaseObject)
+ Private
+ Fcontext : TSourceContext;
+ Flabels : TExtendedSourceContextTypelabels;
+ Protected
+ //Property setters
+ Procedure Setcontext(AIndex : Integer; const AValue : TSourceContext); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TExtendedSourceContextTypelabels); virtual;
+ Public
+ Published
+ Property context : TSourceContext Index 0 Read Fcontext Write Setcontext;
+ Property labels : TExtendedSourceContextTypelabels Index 8 Read Flabels Write Setlabels;
+ end;
+ TExtendedSourceContextClass = Class of TExtendedSourceContext;
+
+ { --------------------------------------------------------------------
+ TRegisterDebuggeeResponse
+ --------------------------------------------------------------------}
+
+ TRegisterDebuggeeResponse = Class(TGoogleBaseObject)
+ Private
+ Fdebuggee : TDebuggee;
+ Protected
+ //Property setters
+ Procedure Setdebuggee(AIndex : Integer; const AValue : TDebuggee); virtual;
+ Public
+ Published
+ Property debuggee : TDebuggee Index 0 Read Fdebuggee Write Setdebuggee;
+ end;
+ TRegisterDebuggeeResponseClass = Class of TRegisterDebuggeeResponse;
+
+ { --------------------------------------------------------------------
+ TListActiveBreakpointsResponse
+ --------------------------------------------------------------------}
+
+ TListActiveBreakpointsResponse = Class(TGoogleBaseObject)
+ Private
+ Fbreakpoints : TListActiveBreakpointsResponseTypebreakpointsArray;
+ FnextWaitToken : String;
+ FwaitExpired : boolean;
+ Protected
+ //Property setters
+ Procedure Setbreakpoints(AIndex : Integer; const AValue : TListActiveBreakpointsResponseTypebreakpointsArray); virtual;
+ Procedure SetnextWaitToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetwaitExpired(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 breakpoints : TListActiveBreakpointsResponseTypebreakpointsArray Index 0 Read Fbreakpoints Write Setbreakpoints;
+ Property nextWaitToken : String Index 8 Read FnextWaitToken Write SetnextWaitToken;
+ Property waitExpired : boolean Index 16 Read FwaitExpired Write SetwaitExpired;
+ end;
+ TListActiveBreakpointsResponseClass = Class of TListActiveBreakpointsResponse;
+
+ { --------------------------------------------------------------------
+ TBreakpointTypelabels
+ --------------------------------------------------------------------}
+
+ TBreakpointTypelabels = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TBreakpointTypelabelsClass = Class of TBreakpointTypelabels;
+
+ { --------------------------------------------------------------------
+ TBreakpoint
+ --------------------------------------------------------------------}
+
+ TBreakpoint = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Faction : String;
+ Flocation : TSourceLocation;
+ Fcondition : String;
+ Fexpressions : TStringArray;
+ FlogMessageFormat : String;
+ FlogLevel : String;
+ FisFinalState : boolean;
+ FcreateTime : String;
+ FfinalTime : String;
+ FuserEmail : String;
+ Fstatus : TStatusMessage;
+ FstackFrames : TBreakpointTypestackFramesArray;
+ FevaluatedExpressions : TBreakpointTypeevaluatedExpressionsArray;
+ FvariableTable : TBreakpointTypevariableTableArray;
+ Flabels : TBreakpointTypelabels;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setaction(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TSourceLocation); virtual;
+ Procedure Setcondition(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setexpressions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetlogMessageFormat(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlogLevel(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetisFinalState(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfinalTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserEmail(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TStatusMessage); virtual;
+ Procedure SetstackFrames(AIndex : Integer; const AValue : TBreakpointTypestackFramesArray); virtual;
+ Procedure SetevaluatedExpressions(AIndex : Integer; const AValue : TBreakpointTypeevaluatedExpressionsArray); virtual;
+ Procedure SetvariableTable(AIndex : Integer; const AValue : TBreakpointTypevariableTableArray); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TBreakpointTypelabels); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property action : String Index 8 Read Faction Write Setaction;
+ Property location : TSourceLocation Index 16 Read Flocation Write Setlocation;
+ Property condition : String Index 24 Read Fcondition Write Setcondition;
+ Property expressions : TStringArray Index 32 Read Fexpressions Write Setexpressions;
+ Property logMessageFormat : String Index 40 Read FlogMessageFormat Write SetlogMessageFormat;
+ Property logLevel : String Index 48 Read FlogLevel Write SetlogLevel;
+ Property isFinalState : boolean Index 56 Read FisFinalState Write SetisFinalState;
+ Property createTime : String Index 64 Read FcreateTime Write SetcreateTime;
+ Property finalTime : String Index 72 Read FfinalTime Write SetfinalTime;
+ Property userEmail : String Index 80 Read FuserEmail Write SetuserEmail;
+ Property status : TStatusMessage Index 88 Read Fstatus Write Setstatus;
+ Property stackFrames : TBreakpointTypestackFramesArray Index 96 Read FstackFrames Write SetstackFrames;
+ Property evaluatedExpressions : TBreakpointTypeevaluatedExpressionsArray Index 104 Read FevaluatedExpressions Write SetevaluatedExpressions;
+ Property variableTable : TBreakpointTypevariableTableArray Index 112 Read FvariableTable Write SetvariableTable;
+ Property labels : TBreakpointTypelabels Index 120 Read Flabels Write Setlabels;
+ end;
+ TBreakpointClass = Class of TBreakpoint;
+
+ { --------------------------------------------------------------------
+ TSourceLocation
+ --------------------------------------------------------------------}
+
+ TSourceLocation = Class(TGoogleBaseObject)
+ Private
+ Fpath : String;
+ Fline : integer;
+ Protected
+ //Property setters
+ Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setline(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property path : String Index 0 Read Fpath Write Setpath;
+ Property line : integer Index 8 Read Fline Write Setline;
+ end;
+ TSourceLocationClass = Class of TSourceLocation;
+
+ { --------------------------------------------------------------------
+ TStackFrame
+ --------------------------------------------------------------------}
+
+ TStackFrame = Class(TGoogleBaseObject)
+ Private
+ F_function : String;
+ Flocation : TSourceLocation;
+ Farguments : TStackFrameTypeargumentsArray;
+ Flocals : TStackFrameTypelocalsArray;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_function(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TSourceLocation); virtual;
+ Procedure Setarguments(AIndex : Integer; const AValue : TStackFrameTypeargumentsArray); virtual;
+ Procedure Setlocals(AIndex : Integer; const AValue : TStackFrameTypelocalsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property _function : String Index 0 Read F_function Write Set_function;
+ Property location : TSourceLocation Index 8 Read Flocation Write Setlocation;
+ Property arguments : TStackFrameTypeargumentsArray Index 16 Read Farguments Write Setarguments;
+ Property locals : TStackFrameTypelocalsArray Index 24 Read Flocals Write Setlocals;
+ end;
+ TStackFrameClass = Class of TStackFrame;
+
+ { --------------------------------------------------------------------
+ TVariable
+ --------------------------------------------------------------------}
+
+ TVariable = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fvalue : String;
+ F_type : String;
+ Fmembers : TVariableTypemembersArray;
+ FvarTableIndex : integer;
+ Fstatus : TStatusMessage;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmembers(AIndex : Integer; const AValue : TVariableTypemembersArray); virtual;
+ Procedure SetvarTableIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TStatusMessage); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ Property _type : String Index 16 Read F_type Write Set_type;
+ Property members : TVariableTypemembersArray Index 24 Read Fmembers Write Setmembers;
+ Property varTableIndex : integer Index 32 Read FvarTableIndex Write SetvarTableIndex;
+ Property status : TStatusMessage Index 40 Read Fstatus Write Setstatus;
+ end;
+ TVariableClass = Class of TVariable;
+
+ { --------------------------------------------------------------------
+ TUpdateActiveBreakpointRequest
+ --------------------------------------------------------------------}
+
+ TUpdateActiveBreakpointRequest = Class(TGoogleBaseObject)
+ Private
+ Fbreakpoint : TBreakpoint;
+ Protected
+ //Property setters
+ Procedure Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint); virtual;
+ Public
+ Published
+ Property breakpoint : TBreakpoint Index 0 Read Fbreakpoint Write Setbreakpoint;
+ end;
+ TUpdateActiveBreakpointRequestClass = Class of TUpdateActiveBreakpointRequest;
+
+ { --------------------------------------------------------------------
+ TUpdateActiveBreakpointResponse
+ --------------------------------------------------------------------}
+
+ TUpdateActiveBreakpointResponse = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TUpdateActiveBreakpointResponseClass = Class of TUpdateActiveBreakpointResponse;
+
+ { --------------------------------------------------------------------
+ TSetBreakpointResponse
+ --------------------------------------------------------------------}
+
+ TSetBreakpointResponse = Class(TGoogleBaseObject)
+ Private
+ Fbreakpoint : TBreakpoint;
+ Protected
+ //Property setters
+ Procedure Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint); virtual;
+ Public
+ Published
+ Property breakpoint : TBreakpoint Index 0 Read Fbreakpoint Write Setbreakpoint;
+ end;
+ TSetBreakpointResponseClass = Class of TSetBreakpointResponse;
+
+ { --------------------------------------------------------------------
+ TGetBreakpointResponse
+ --------------------------------------------------------------------}
+
+ TGetBreakpointResponse = Class(TGoogleBaseObject)
+ Private
+ Fbreakpoint : TBreakpoint;
+ Protected
+ //Property setters
+ Procedure Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint); virtual;
+ Public
+ Published
+ Property breakpoint : TBreakpoint Index 0 Read Fbreakpoint Write Setbreakpoint;
+ end;
+ TGetBreakpointResponseClass = Class of TGetBreakpointResponse;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TListBreakpointsResponse
+ --------------------------------------------------------------------}
+
+ TListBreakpointsResponse = Class(TGoogleBaseObject)
+ Private
+ Fbreakpoints : TListBreakpointsResponseTypebreakpointsArray;
+ FnextWaitToken : String;
+ Protected
+ //Property setters
+ Procedure Setbreakpoints(AIndex : Integer; const AValue : TListBreakpointsResponseTypebreakpointsArray); virtual;
+ Procedure SetnextWaitToken(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 breakpoints : TListBreakpointsResponseTypebreakpointsArray Index 0 Read Fbreakpoints Write Setbreakpoints;
+ Property nextWaitToken : String Index 8 Read FnextWaitToken Write SetnextWaitToken;
+ end;
+ TListBreakpointsResponseClass = Class of TListBreakpointsResponse;
+
+ { --------------------------------------------------------------------
+ TListDebuggeesResponse
+ --------------------------------------------------------------------}
+
+ TListDebuggeesResponse = Class(TGoogleBaseObject)
+ Private
+ Fdebuggees : TListDebuggeesResponseTypedebuggeesArray;
+ Protected
+ //Property setters
+ Procedure Setdebuggees(AIndex : Integer; const AValue : TListDebuggeesResponseTypedebuggeesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property debuggees : TListDebuggeesResponseTypedebuggeesArray Index 0 Read Fdebuggees Write Setdebuggees;
+ end;
+ TListDebuggeesResponseClass = Class of TListDebuggeesResponse;
+
+ { --------------------------------------------------------------------
+ TControllerDebuggeesBreakpointsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TControllerDebuggeesBreakpointsResource, method List
+
+ TControllerDebuggeesBreakpointsListOptions = Record
+ waitToken : String;
+ successOnTimeout : boolean;
+ end;
+
+ TControllerDebuggeesBreakpointsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(debuggeeId: string; AQuery : string = '') : TListActiveBreakpointsResponse;
+ Function List(debuggeeId: string; AQuery : TControllerDebuggeesBreakpointslistOptions) : TListActiveBreakpointsResponse;
+ Function Update(debuggeeId: string; id: string; aUpdateActiveBreakpointRequest : TUpdateActiveBreakpointRequest) : TUpdateActiveBreakpointResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TControllerDebuggeesResource
+ --------------------------------------------------------------------}
+
+ TControllerDebuggeesResource = Class(TGoogleResource)
+ Private
+ FBreakpointsInstance : TControllerDebuggeesBreakpointsResource;
+ Function GetBreakpointsInstance : TControllerDebuggeesBreakpointsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Register(aRegisterDebuggeeRequest : TRegisterDebuggeeRequest) : TRegisterDebuggeeResponse;
+ Function CreateBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource;virtual;overload;
+ Function CreateBreakpointsResource : TControllerDebuggeesBreakpointsResource;virtual;overload;
+ Property BreakpointsResource : TControllerDebuggeesBreakpointsResource Read GetBreakpointsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TControllerResource
+ --------------------------------------------------------------------}
+
+ TControllerResource = Class(TGoogleResource)
+ Private
+ FDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource;
+ FDebuggeesInstance : TControllerDebuggeesResource;
+ Function GetDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource;virtual;
+ Function GetDebuggeesInstance : TControllerDebuggeesResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CreateDebuggeesBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource;virtual;overload;
+ Function CreateDebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource;virtual;overload;
+ Function CreateDebuggeesResource(AOwner : TComponent) : TControllerDebuggeesResource;virtual;overload;
+ Function CreateDebuggeesResource : TControllerDebuggeesResource;virtual;overload;
+ Property DebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource Read GetDebuggeesBreakpointsInstance;
+ Property DebuggeesResource : TControllerDebuggeesResource Read GetDebuggeesInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TDebuggerDebuggeesBreakpointsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TDebuggerDebuggeesBreakpointsResource, method Set
+
+ TDebuggerDebuggeesBreakpointsSetOptions = Record
+ clientVersion : String;
+ end;
+
+
+ //Optional query Options for TDebuggerDebuggeesBreakpointsResource, method Get
+
+ TDebuggerDebuggeesBreakpointsGetOptions = Record
+ clientVersion : String;
+ end;
+
+
+ //Optional query Options for TDebuggerDebuggeesBreakpointsResource, method Delete
+
+ TDebuggerDebuggeesBreakpointsDeleteOptions = Record
+ clientVersion : String;
+ end;
+
+
+ //Optional query Options for TDebuggerDebuggeesBreakpointsResource, method List
+
+ TDebuggerDebuggeesBreakpointsListOptions = Record
+ includeAllUsers : boolean;
+ includeInactive : boolean;
+ actionvalue : String;
+ stripResults : boolean;
+ waitToken : String;
+ clientVersion : String;
+ end;
+
+ TDebuggerDebuggeesBreakpointsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function _set(debuggeeId: string; aBreakpoint : TBreakpoint; AQuery : string = '') : TSetBreakpointResponse;
+ Function _set(debuggeeId: string; aBreakpoint : TBreakpoint; AQuery : TDebuggerDebuggeesBreakpointssetOptions) : TSetBreakpointResponse;
+ Function Get(debuggeeId: string; breakpointId: string; AQuery : string = '') : TGetBreakpointResponse;
+ Function Get(debuggeeId: string; breakpointId: string; AQuery : TDebuggerDebuggeesBreakpointsgetOptions) : TGetBreakpointResponse;
+ Function Delete(debuggeeId: string; breakpointId: string; AQuery : string = '') : TEmpty;
+ Function Delete(debuggeeId: string; breakpointId: string; AQuery : TDebuggerDebuggeesBreakpointsdeleteOptions) : TEmpty;
+ Function List(debuggeeId: string; AQuery : string = '') : TListBreakpointsResponse;
+ Function List(debuggeeId: string; AQuery : TDebuggerDebuggeesBreakpointslistOptions) : TListBreakpointsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TDebuggerDebuggeesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TDebuggerDebuggeesResource, method List
+
+ TDebuggerDebuggeesListOptions = Record
+ project : String;
+ includeInactive : boolean;
+ clientVersion : String;
+ end;
+
+ TDebuggerDebuggeesResource = Class(TGoogleResource)
+ Private
+ FBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;
+ Function GetBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(AQuery : string = '') : TListDebuggeesResponse;
+ Function List(AQuery : TDebuggerDebuggeeslistOptions) : TListDebuggeesResponse;
+ Function CreateBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource;virtual;overload;
+ Function CreateBreakpointsResource : TDebuggerDebuggeesBreakpointsResource;virtual;overload;
+ Property BreakpointsResource : TDebuggerDebuggeesBreakpointsResource Read GetBreakpointsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TDebuggerResource
+ --------------------------------------------------------------------}
+
+ TDebuggerResource = Class(TGoogleResource)
+ Private
+ FDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;
+ FDebuggeesInstance : TDebuggerDebuggeesResource;
+ Function GetDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;virtual;
+ Function GetDebuggeesInstance : TDebuggerDebuggeesResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CreateDebuggeesBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource;virtual;overload;
+ Function CreateDebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource;virtual;overload;
+ Function CreateDebuggeesResource(AOwner : TComponent) : TDebuggerDebuggeesResource;virtual;overload;
+ Function CreateDebuggeesResource : TDebuggerDebuggeesResource;virtual;overload;
+ Property DebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource Read GetDebuggeesBreakpointsInstance;
+ Property DebuggeesResource : TDebuggerDebuggeesResource Read GetDebuggeesInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TClouddebuggerAPI
+ --------------------------------------------------------------------}
+
+ TClouddebuggerAPI = Class(TGoogleAPI)
+ Private
+ FControllerDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource;
+ FControllerDebuggeesInstance : TControllerDebuggeesResource;
+ FControllerInstance : TControllerResource;
+ FDebuggerDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;
+ FDebuggerDebuggeesInstance : TDebuggerDebuggeesResource;
+ FDebuggerInstance : TDebuggerResource;
+ Function GetControllerDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource;virtual;
+ Function GetControllerDebuggeesInstance : TControllerDebuggeesResource;virtual;
+ Function GetControllerInstance : TControllerResource;virtual;
+ Function GetDebuggerDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;virtual;
+ Function GetDebuggerDebuggeesInstance : TDebuggerDebuggeesResource;virtual;
+ Function GetDebuggerInstance : TDebuggerResource;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 CreateControllerDebuggeesBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource;virtual;overload;
+ Function CreateControllerDebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource;virtual;overload;
+ Function CreateControllerDebuggeesResource(AOwner : TComponent) : TControllerDebuggeesResource;virtual;overload;
+ Function CreateControllerDebuggeesResource : TControllerDebuggeesResource;virtual;overload;
+ Function CreateControllerResource(AOwner : TComponent) : TControllerResource;virtual;overload;
+ Function CreateControllerResource : TControllerResource;virtual;overload;
+ Function CreateDebuggerDebuggeesBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource;virtual;overload;
+ Function CreateDebuggerDebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource;virtual;overload;
+ Function CreateDebuggerDebuggeesResource(AOwner : TComponent) : TDebuggerDebuggeesResource;virtual;overload;
+ Function CreateDebuggerDebuggeesResource : TDebuggerDebuggeesResource;virtual;overload;
+ Function CreateDebuggerResource(AOwner : TComponent) : TDebuggerResource;virtual;overload;
+ Function CreateDebuggerResource : TDebuggerResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ControllerDebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource Read GetControllerDebuggeesBreakpointsInstance;
+ Property ControllerDebuggeesResource : TControllerDebuggeesResource Read GetControllerDebuggeesInstance;
+ Property ControllerResource : TControllerResource Read GetControllerInstance;
+ Property DebuggerDebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource Read GetDebuggerDebuggeesBreakpointsInstance;
+ Property DebuggerDebuggeesResource : TDebuggerDebuggeesResource Read GetDebuggerDebuggeesInstance;
+ Property DebuggerResource : TDebuggerResource Read GetDebuggerInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TRegisterDebuggeeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TRegisterDebuggeeRequest.Setdebuggee(AIndex : Integer; const AValue : TDebuggee);
+
+begin
+ If (Fdebuggee=AValue) then exit;
+ Fdebuggee:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDebuggeeTypelabels
+ --------------------------------------------------------------------}
+
+
+Class Function TDebuggeeTypelabels.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TDebuggee
+ --------------------------------------------------------------------}
+
+
+Procedure TDebuggee.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebuggee.Setproject(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fproject=AValue) then exit;
+ Fproject:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebuggee.Setuniquifier(AIndex : Integer; const AValue : String);
+
+begin
+ If (Funiquifier=AValue) then exit;
+ Funiquifier:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebuggee.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebuggee.SetisInactive(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisInactive=AValue) then exit;
+ FisInactive:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebuggee.SetagentVersion(AIndex : Integer; const AValue : String);
+
+begin
+ If (FagentVersion=AValue) then exit;
+ FagentVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebuggee.SetisDisabled(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisDisabled=AValue) then exit;
+ FisDisabled:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebuggee.Setstatus(AIndex : Integer; const AValue : TStatusMessage);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebuggee.SetsourceContexts(AIndex : Integer; const AValue : TDebuggeeTypesourceContextsArray);
+
+begin
+ If (FsourceContexts=AValue) then exit;
+ FsourceContexts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebuggee.SetextSourceContexts(AIndex : Integer; const AValue : TDebuggeeTypeextSourceContextsArray);
+
+begin
+ If (FextSourceContexts=AValue) then exit;
+ FextSourceContexts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebuggee.Setlabels(AIndex : Integer; const AValue : TDebuggeeTypelabels);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDebuggee.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sourcecontexts' : SetLength(FsourceContexts,ALength);
+ 'extsourcecontexts' : SetLength(FextSourceContexts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TStatusMessage
+ --------------------------------------------------------------------}
+
+
+Procedure TStatusMessage.SetisError(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisError=AValue) then exit;
+ FisError:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatusMessage.SetrefersTo(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrefersTo=AValue) then exit;
+ FrefersTo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatusMessage.Setdescription(AIndex : Integer; const AValue : TFormatMessage);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TFormatMessage
+ --------------------------------------------------------------------}
+
+
+Procedure TFormatMessage.Setformat(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fformat=AValue) then exit;
+ Fformat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFormatMessage.Setparameters(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fparameters=AValue) then exit;
+ Fparameters:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFormatMessage.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'parameters' : SetLength(Fparameters,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSourceContext
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceContext.SetcloudRepo(AIndex : Integer; const AValue : TCloudRepoSourceContext);
+
+begin
+ If (FcloudRepo=AValue) then exit;
+ FcloudRepo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceContext.SetcloudWorkspace(AIndex : Integer; const AValue : TCloudWorkspaceSourceContext);
+
+begin
+ If (FcloudWorkspace=AValue) then exit;
+ FcloudWorkspace:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceContext.Setgerrit(AIndex : Integer; const AValue : TGerritSourceContext);
+
+begin
+ If (Fgerrit=AValue) then exit;
+ Fgerrit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceContext.Setgit(AIndex : Integer; const AValue : TGitSourceContext);
+
+begin
+ If (Fgit=AValue) then exit;
+ Fgit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCloudRepoSourceContext
+ --------------------------------------------------------------------}
+
+
+Procedure TCloudRepoSourceContext.SetrepoId(AIndex : Integer; const AValue : TRepoId);
+
+begin
+ If (FrepoId=AValue) then exit;
+ FrepoId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCloudRepoSourceContext.SetrevisionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrevisionId=AValue) then exit;
+ FrevisionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCloudRepoSourceContext.SetaliasName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaliasName=AValue) then exit;
+ FaliasName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCloudRepoSourceContext.SetaliasContext(AIndex : Integer; const AValue : TAliasContext);
+
+begin
+ If (FaliasContext=AValue) then exit;
+ FaliasContext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TRepoId
+ --------------------------------------------------------------------}
+
+
+Procedure TRepoId.SetprojectRepoId(AIndex : Integer; const AValue : TProjectRepoId);
+
+begin
+ If (FprojectRepoId=AValue) then exit;
+ FprojectRepoId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRepoId.Setuid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fuid=AValue) then exit;
+ Fuid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectRepoId
+ --------------------------------------------------------------------}
+
+
+Procedure TProjectRepoId.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProjectRepoId.SetrepoName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrepoName=AValue) then exit;
+ FrepoName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAliasContext
+ --------------------------------------------------------------------}
+
+
+Procedure TAliasContext.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAliasContext.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCloudWorkspaceSourceContext
+ --------------------------------------------------------------------}
+
+
+Procedure TCloudWorkspaceSourceContext.SetworkspaceId(AIndex : Integer; const AValue : TCloudWorkspaceId);
+
+begin
+ If (FworkspaceId=AValue) then exit;
+ FworkspaceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCloudWorkspaceSourceContext.SetsnapshotId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsnapshotId=AValue) then exit;
+ FsnapshotId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCloudWorkspaceId
+ --------------------------------------------------------------------}
+
+
+Procedure TCloudWorkspaceId.SetrepoId(AIndex : Integer; const AValue : TRepoId);
+
+begin
+ If (FrepoId=AValue) then exit;
+ FrepoId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCloudWorkspaceId.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TGerritSourceContext
+ --------------------------------------------------------------------}
+
+
+Procedure TGerritSourceContext.SethostUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhostUri=AValue) then exit;
+ FhostUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGerritSourceContext.SetgerritProject(AIndex : Integer; const AValue : String);
+
+begin
+ If (FgerritProject=AValue) then exit;
+ FgerritProject:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGerritSourceContext.SetrevisionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrevisionId=AValue) then exit;
+ FrevisionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGerritSourceContext.SetaliasName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaliasName=AValue) then exit;
+ FaliasName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGerritSourceContext.SetaliasContext(AIndex : Integer; const AValue : TAliasContext);
+
+begin
+ If (FaliasContext=AValue) then exit;
+ FaliasContext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TGitSourceContext
+ --------------------------------------------------------------------}
+
+
+Procedure TGitSourceContext.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGitSourceContext.SetrevisionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrevisionId=AValue) then exit;
+ FrevisionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TExtendedSourceContextTypelabels
+ --------------------------------------------------------------------}
+
+
+Class Function TExtendedSourceContextTypelabels.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TExtendedSourceContext
+ --------------------------------------------------------------------}
+
+
+Procedure TExtendedSourceContext.Setcontext(AIndex : Integer; const AValue : TSourceContext);
+
+begin
+ If (Fcontext=AValue) then exit;
+ Fcontext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExtendedSourceContext.Setlabels(AIndex : Integer; const AValue : TExtendedSourceContextTypelabels);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TRegisterDebuggeeResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TRegisterDebuggeeResponse.Setdebuggee(AIndex : Integer; const AValue : TDebuggee);
+
+begin
+ If (Fdebuggee=AValue) then exit;
+ Fdebuggee:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListActiveBreakpointsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListActiveBreakpointsResponse.Setbreakpoints(AIndex : Integer; const AValue : TListActiveBreakpointsResponseTypebreakpointsArray);
+
+begin
+ If (Fbreakpoints=AValue) then exit;
+ Fbreakpoints:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListActiveBreakpointsResponse.SetnextWaitToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextWaitToken=AValue) then exit;
+ FnextWaitToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListActiveBreakpointsResponse.SetwaitExpired(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FwaitExpired=AValue) then exit;
+ FwaitExpired:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListActiveBreakpointsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'breakpoints' : SetLength(Fbreakpoints,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBreakpointTypelabels
+ --------------------------------------------------------------------}
+
+
+Class Function TBreakpointTypelabels.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TBreakpoint
+ --------------------------------------------------------------------}
+
+
+Procedure TBreakpoint.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.Setaction(AIndex : Integer; const AValue : String);
+
+begin
+ If (Faction=AValue) then exit;
+ Faction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.Setlocation(AIndex : Integer; const AValue : TSourceLocation);
+
+begin
+ If (Flocation=AValue) then exit;
+ Flocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.Setcondition(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcondition=AValue) then exit;
+ Fcondition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.Setexpressions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fexpressions=AValue) then exit;
+ Fexpressions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.SetlogMessageFormat(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlogMessageFormat=AValue) then exit;
+ FlogMessageFormat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.SetlogLevel(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlogLevel=AValue) then exit;
+ FlogLevel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.SetisFinalState(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisFinalState=AValue) then exit;
+ FisFinalState:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.SetcreateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.SetfinalTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfinalTime=AValue) then exit;
+ FfinalTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.SetuserEmail(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuserEmail=AValue) then exit;
+ FuserEmail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.Setstatus(AIndex : Integer; const AValue : TStatusMessage);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.SetstackFrames(AIndex : Integer; const AValue : TBreakpointTypestackFramesArray);
+
+begin
+ If (FstackFrames=AValue) then exit;
+ FstackFrames:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.SetevaluatedExpressions(AIndex : Integer; const AValue : TBreakpointTypeevaluatedExpressionsArray);
+
+begin
+ If (FevaluatedExpressions=AValue) then exit;
+ FevaluatedExpressions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.SetvariableTable(AIndex : Integer; const AValue : TBreakpointTypevariableTableArray);
+
+begin
+ If (FvariableTable=AValue) then exit;
+ FvariableTable:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBreakpoint.Setlabels(AIndex : Integer; const AValue : TBreakpointTypelabels);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBreakpoint.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'expressions' : SetLength(Fexpressions,ALength);
+ 'stackframes' : SetLength(FstackFrames,ALength);
+ 'evaluatedexpressions' : SetLength(FevaluatedExpressions,ALength);
+ 'variabletable' : SetLength(FvariableTable,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSourceLocation
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceLocation.Setpath(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fpath=AValue) then exit;
+ Fpath:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceLocation.Setline(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fline=AValue) then exit;
+ Fline:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStackFrame
+ --------------------------------------------------------------------}
+
+
+Procedure TStackFrame.Set_function(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_function=AValue) then exit;
+ F_function:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStackFrame.Setlocation(AIndex : Integer; const AValue : TSourceLocation);
+
+begin
+ If (Flocation=AValue) then exit;
+ Flocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStackFrame.Setarguments(AIndex : Integer; const AValue : TStackFrameTypeargumentsArray);
+
+begin
+ If (Farguments=AValue) then exit;
+ Farguments:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStackFrame.Setlocals(AIndex : Integer; const AValue : TStackFrameTypelocalsArray);
+
+begin
+ If (Flocals=AValue) then exit;
+ Flocals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TStackFrame.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_function' : Result:='function';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStackFrame.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'arguments' : SetLength(Farguments,ALength);
+ 'locals' : SetLength(Flocals,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TVariable
+ --------------------------------------------------------------------}
+
+
+Procedure TVariable.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVariable.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVariable.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVariable.Setmembers(AIndex : Integer; const AValue : TVariableTypemembersArray);
+
+begin
+ If (Fmembers=AValue) then exit;
+ Fmembers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVariable.SetvarTableIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FvarTableIndex=AValue) then exit;
+ FvarTableIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVariable.Setstatus(AIndex : Integer; const AValue : TStatusMessage);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TVariable.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 TVariable.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'members' : SetLength(Fmembers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateActiveBreakpointRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateActiveBreakpointRequest.Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint);
+
+begin
+ If (Fbreakpoint=AValue) then exit;
+ Fbreakpoint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateActiveBreakpointResponse
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSetBreakpointResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSetBreakpointResponse.Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint);
+
+begin
+ If (Fbreakpoint=AValue) then exit;
+ Fbreakpoint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TGetBreakpointResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TGetBreakpointResponse.Setbreakpoint(AIndex : Integer; const AValue : TBreakpoint);
+
+begin
+ If (Fbreakpoint=AValue) then exit;
+ Fbreakpoint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListBreakpointsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListBreakpointsResponse.Setbreakpoints(AIndex : Integer; const AValue : TListBreakpointsResponseTypebreakpointsArray);
+
+begin
+ If (Fbreakpoints=AValue) then exit;
+ Fbreakpoints:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListBreakpointsResponse.SetnextWaitToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextWaitToken=AValue) then exit;
+ FnextWaitToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListBreakpointsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'breakpoints' : SetLength(Fbreakpoints,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListDebuggeesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListDebuggeesResponse.Setdebuggees(AIndex : Integer; const AValue : TListDebuggeesResponseTypedebuggeesArray);
+
+begin
+ If (Fdebuggees=AValue) then exit;
+ Fdebuggees:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListDebuggeesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'debuggees' : SetLength(Fdebuggees,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TControllerDebuggeesBreakpointsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TControllerDebuggeesBreakpointsResource.ResourceName : String;
+
+begin
+ Result:='breakpoints';
+end;
+
+Class Function TControllerDebuggeesBreakpointsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouddebuggerAPI;
+end;
+
+Function TControllerDebuggeesBreakpointsResource.List(debuggeeId: string; AQuery : string = '') : TListActiveBreakpointsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2/controller/debuggees/{debuggeeId}/breakpoints';
+ _Methodid = 'clouddebugger.controller.debuggees.breakpoints.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListActiveBreakpointsResponse) as TListActiveBreakpointsResponse;
+end;
+
+
+Function TControllerDebuggeesBreakpointsResource.List(debuggeeId: string; AQuery : TControllerDebuggeesBreakpointslistOptions) : TListActiveBreakpointsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'waitToken',AQuery.waitToken);
+ AddToQuery(_Q,'successOnTimeout',AQuery.successOnTimeout);
+ Result:=List(debuggeeId,_Q);
+end;
+
+Function TControllerDebuggeesBreakpointsResource.Update(debuggeeId: string; id: string; aUpdateActiveBreakpointRequest : TUpdateActiveBreakpointRequest) : TUpdateActiveBreakpointResponse;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v2/controller/debuggees/{debuggeeId}/breakpoints/{id}';
+ _Methodid = 'clouddebugger.controller.debuggees.breakpoints.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId,'id',id]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aUpdateActiveBreakpointRequest,TUpdateActiveBreakpointResponse) as TUpdateActiveBreakpointResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TControllerDebuggeesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TControllerDebuggeesResource.ResourceName : String;
+
+begin
+ Result:='debuggees';
+end;
+
+Class Function TControllerDebuggeesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouddebuggerAPI;
+end;
+
+Function TControllerDebuggeesResource.Register(aRegisterDebuggeeRequest : TRegisterDebuggeeRequest) : TRegisterDebuggeeResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v2/controller/debuggees/register';
+ _Methodid = 'clouddebugger.controller.debuggees.register';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aRegisterDebuggeeRequest,TRegisterDebuggeeResponse) as TRegisterDebuggeeResponse;
+end;
+
+
+
+Function TControllerDebuggeesResource.GetBreakpointsInstance : TControllerDebuggeesBreakpointsResource;
+
+begin
+ if (FBreakpointsInstance=Nil) then
+ FBreakpointsInstance:=CreateBreakpointsResource;
+ Result:=FBreakpointsInstance;
+end;
+
+Function TControllerDebuggeesResource.CreateBreakpointsResource : TControllerDebuggeesBreakpointsResource;
+
+begin
+ Result:=CreateBreakpointsResource(Self);
+end;
+
+
+Function TControllerDebuggeesResource.CreateBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource;
+
+begin
+ Result:=TControllerDebuggeesBreakpointsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TControllerResource
+ --------------------------------------------------------------------}
+
+
+Class Function TControllerResource.ResourceName : String;
+
+begin
+ Result:='controller';
+end;
+
+Class Function TControllerResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouddebuggerAPI;
+end;
+
+
+
+Function TControllerResource.GetDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource;
+
+begin
+ if (FDebuggeesBreakpointsInstance=Nil) then
+ FDebuggeesBreakpointsInstance:=CreateDebuggeesBreakpointsResource;
+ Result:=FDebuggeesBreakpointsInstance;
+end;
+
+Function TControllerResource.CreateDebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource;
+
+begin
+ Result:=CreateDebuggeesBreakpointsResource(Self);
+end;
+
+
+Function TControllerResource.CreateDebuggeesBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource;
+
+begin
+ Result:=TControllerDebuggeesBreakpointsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TControllerResource.GetDebuggeesInstance : TControllerDebuggeesResource;
+
+begin
+ if (FDebuggeesInstance=Nil) then
+ FDebuggeesInstance:=CreateDebuggeesResource;
+ Result:=FDebuggeesInstance;
+end;
+
+Function TControllerResource.CreateDebuggeesResource : TControllerDebuggeesResource;
+
+begin
+ Result:=CreateDebuggeesResource(Self);
+end;
+
+
+Function TControllerResource.CreateDebuggeesResource(AOwner : TComponent) : TControllerDebuggeesResource;
+
+begin
+ Result:=TControllerDebuggeesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TDebuggerDebuggeesBreakpointsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TDebuggerDebuggeesBreakpointsResource.ResourceName : String;
+
+begin
+ Result:='breakpoints';
+end;
+
+Class Function TDebuggerDebuggeesBreakpointsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouddebuggerAPI;
+end;
+
+Function TDebuggerDebuggeesBreakpointsResource._set(debuggeeId: string; aBreakpoint : TBreakpoint; AQuery : string = '') : TSetBreakpointResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v2/debugger/debuggees/{debuggeeId}/breakpoints/set';
+ _Methodid = 'clouddebugger.debugger.debuggees.breakpoints.set';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aBreakpoint,TSetBreakpointResponse) as TSetBreakpointResponse;
+end;
+
+
+Function TDebuggerDebuggeesBreakpointsResource._set(debuggeeId: string; aBreakpoint : TBreakpoint; AQuery : TDebuggerDebuggeesBreakpointssetOptions) : TSetBreakpointResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'clientVersion',AQuery.clientVersion);
+ Result:=_set(debuggeeId,aBreakpoint,_Q);
+end;
+
+Function TDebuggerDebuggeesBreakpointsResource.Get(debuggeeId: string; breakpointId: string; AQuery : string = '') : TGetBreakpointResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2/debugger/debuggees/{debuggeeId}/breakpoints/{breakpointId}';
+ _Methodid = 'clouddebugger.debugger.debuggees.breakpoints.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId,'breakpointId',breakpointId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TGetBreakpointResponse) as TGetBreakpointResponse;
+end;
+
+
+Function TDebuggerDebuggeesBreakpointsResource.Get(debuggeeId: string; breakpointId: string; AQuery : TDebuggerDebuggeesBreakpointsgetOptions) : TGetBreakpointResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'clientVersion',AQuery.clientVersion);
+ Result:=Get(debuggeeId,breakpointId,_Q);
+end;
+
+Function TDebuggerDebuggeesBreakpointsResource.Delete(debuggeeId: string; breakpointId: string; AQuery : string = '') : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v2/debugger/debuggees/{debuggeeId}/breakpoints/{breakpointId}';
+ _Methodid = 'clouddebugger.debugger.debuggees.breakpoints.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId,'breakpointId',breakpointId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEmpty) as TEmpty;
+end;
+
+
+Function TDebuggerDebuggeesBreakpointsResource.Delete(debuggeeId: string; breakpointId: string; AQuery : TDebuggerDebuggeesBreakpointsdeleteOptions) : TEmpty;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'clientVersion',AQuery.clientVersion);
+ Result:=Delete(debuggeeId,breakpointId,_Q);
+end;
+
+Function TDebuggerDebuggeesBreakpointsResource.List(debuggeeId: string; AQuery : string = '') : TListBreakpointsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2/debugger/debuggees/{debuggeeId}/breakpoints';
+ _Methodid = 'clouddebugger.debugger.debuggees.breakpoints.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['debuggeeId',debuggeeId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListBreakpointsResponse) as TListBreakpointsResponse;
+end;
+
+
+Function TDebuggerDebuggeesBreakpointsResource.List(debuggeeId: string; AQuery : TDebuggerDebuggeesBreakpointslistOptions) : TListBreakpointsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'includeAllUsers',AQuery.includeAllUsers);
+ AddToQuery(_Q,'includeInactive',AQuery.includeInactive);
+ AddToQuery(_Q,'action.value',AQuery.actionvalue);
+ AddToQuery(_Q,'stripResults',AQuery.stripResults);
+ AddToQuery(_Q,'waitToken',AQuery.waitToken);
+ AddToQuery(_Q,'clientVersion',AQuery.clientVersion);
+ Result:=List(debuggeeId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TDebuggerDebuggeesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TDebuggerDebuggeesResource.ResourceName : String;
+
+begin
+ Result:='debuggees';
+end;
+
+Class Function TDebuggerDebuggeesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouddebuggerAPI;
+end;
+
+Function TDebuggerDebuggeesResource.List(AQuery : string = '') : TListDebuggeesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2/debugger/debuggees';
+ _Methodid = 'clouddebugger.debugger.debuggees.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListDebuggeesResponse) as TListDebuggeesResponse;
+end;
+
+
+Function TDebuggerDebuggeesResource.List(AQuery : TDebuggerDebuggeeslistOptions) : TListDebuggeesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'project',AQuery.project);
+ AddToQuery(_Q,'includeInactive',AQuery.includeInactive);
+ AddToQuery(_Q,'clientVersion',AQuery.clientVersion);
+ Result:=List(_Q);
+end;
+
+
+
+Function TDebuggerDebuggeesResource.GetBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;
+
+begin
+ if (FBreakpointsInstance=Nil) then
+ FBreakpointsInstance:=CreateBreakpointsResource;
+ Result:=FBreakpointsInstance;
+end;
+
+Function TDebuggerDebuggeesResource.CreateBreakpointsResource : TDebuggerDebuggeesBreakpointsResource;
+
+begin
+ Result:=CreateBreakpointsResource(Self);
+end;
+
+
+Function TDebuggerDebuggeesResource.CreateBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource;
+
+begin
+ Result:=TDebuggerDebuggeesBreakpointsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TDebuggerResource
+ --------------------------------------------------------------------}
+
+
+Class Function TDebuggerResource.ResourceName : String;
+
+begin
+ Result:='debugger';
+end;
+
+Class Function TDebuggerResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouddebuggerAPI;
+end;
+
+
+
+Function TDebuggerResource.GetDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;
+
+begin
+ if (FDebuggeesBreakpointsInstance=Nil) then
+ FDebuggeesBreakpointsInstance:=CreateDebuggeesBreakpointsResource;
+ Result:=FDebuggeesBreakpointsInstance;
+end;
+
+Function TDebuggerResource.CreateDebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource;
+
+begin
+ Result:=CreateDebuggeesBreakpointsResource(Self);
+end;
+
+
+Function TDebuggerResource.CreateDebuggeesBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource;
+
+begin
+ Result:=TDebuggerDebuggeesBreakpointsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TDebuggerResource.GetDebuggeesInstance : TDebuggerDebuggeesResource;
+
+begin
+ if (FDebuggeesInstance=Nil) then
+ FDebuggeesInstance:=CreateDebuggeesResource;
+ Result:=FDebuggeesInstance;
+end;
+
+Function TDebuggerResource.CreateDebuggeesResource : TDebuggerDebuggeesResource;
+
+begin
+ Result:=CreateDebuggeesResource(Self);
+end;
+
+
+Function TDebuggerResource.CreateDebuggeesResource(AOwner : TComponent) : TDebuggerDebuggeesResource;
+
+begin
+ Result:=TDebuggerDebuggeesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TClouddebuggerAPI
+ --------------------------------------------------------------------}
+
+Class Function TClouddebuggerAPI.APIName : String;
+
+begin
+ Result:='clouddebugger';
+end;
+
+Class Function TClouddebuggerAPI.APIVersion : String;
+
+begin
+ Result:='v2';
+end;
+
+Class Function TClouddebuggerAPI.APIRevision : String;
+
+begin
+ Result:='20160309';
+end;
+
+Class Function TClouddebuggerAPI.APIID : String;
+
+begin
+ Result:='clouddebugger:v2';
+end;
+
+Class Function TClouddebuggerAPI.APITitle : String;
+
+begin
+ Result:='Google Cloud Debugger API';
+end;
+
+Class Function TClouddebuggerAPI.APIDescription : String;
+
+begin
+ Result:='Examines the call stack and variables of a running application without stopping or slowing it down.';
+end;
+
+Class Function TClouddebuggerAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TClouddebuggerAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TClouddebuggerAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TClouddebuggerAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TClouddebuggerAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/tools/cloud-debugger';
+end;
+
+Class Function TClouddebuggerAPI.APIrootUrl : string;
+
+begin
+ Result:='https://clouddebugger.googleapis.com/';
+end;
+
+Class Function TClouddebuggerAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TClouddebuggerAPI.APIbaseURL : String;
+
+begin
+ Result:='https://clouddebugger.googleapis.com/';
+end;
+
+Class Function TClouddebuggerAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TClouddebuggerAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TClouddebuggerAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TClouddebuggerAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,3);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+ Result[1].Name:='https://www.googleapis.com/auth/cloud_debugger';
+ Result[1].Description:='Manage cloud debugger';
+ Result[2].Name:='https://www.googleapis.com/auth/cloud_debugletcontroller';
+ Result[2].Description:='Manage active breakpoints in cloud debugger';
+
+end;
+
+Class Function TClouddebuggerAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TClouddebuggerAPI.RegisterAPIResources;
+
+begin
+ TRegisterDebuggeeRequest.RegisterObject;
+ TDebuggeeTypelabels.RegisterObject;
+ TDebuggee.RegisterObject;
+ TStatusMessage.RegisterObject;
+ TFormatMessage.RegisterObject;
+ TSourceContext.RegisterObject;
+ TCloudRepoSourceContext.RegisterObject;
+ TRepoId.RegisterObject;
+ TProjectRepoId.RegisterObject;
+ TAliasContext.RegisterObject;
+ TCloudWorkspaceSourceContext.RegisterObject;
+ TCloudWorkspaceId.RegisterObject;
+ TGerritSourceContext.RegisterObject;
+ TGitSourceContext.RegisterObject;
+ TExtendedSourceContextTypelabels.RegisterObject;
+ TExtendedSourceContext.RegisterObject;
+ TRegisterDebuggeeResponse.RegisterObject;
+ TListActiveBreakpointsResponse.RegisterObject;
+ TBreakpointTypelabels.RegisterObject;
+ TBreakpoint.RegisterObject;
+ TSourceLocation.RegisterObject;
+ TStackFrame.RegisterObject;
+ TVariable.RegisterObject;
+ TUpdateActiveBreakpointRequest.RegisterObject;
+ TUpdateActiveBreakpointResponse.RegisterObject;
+ TSetBreakpointResponse.RegisterObject;
+ TGetBreakpointResponse.RegisterObject;
+ TEmpty.RegisterObject;
+ TListBreakpointsResponse.RegisterObject;
+ TListDebuggeesResponse.RegisterObject;
+end;
+
+
+Function TClouddebuggerAPI.GetControllerDebuggeesBreakpointsInstance : TControllerDebuggeesBreakpointsResource;
+
+begin
+ if (FControllerDebuggeesBreakpointsInstance=Nil) then
+ FControllerDebuggeesBreakpointsInstance:=CreateControllerDebuggeesBreakpointsResource;
+ Result:=FControllerDebuggeesBreakpointsInstance;
+end;
+
+Function TClouddebuggerAPI.CreateControllerDebuggeesBreakpointsResource : TControllerDebuggeesBreakpointsResource;
+
+begin
+ Result:=CreateControllerDebuggeesBreakpointsResource(Self);
+end;
+
+
+Function TClouddebuggerAPI.CreateControllerDebuggeesBreakpointsResource(AOwner : TComponent) : TControllerDebuggeesBreakpointsResource;
+
+begin
+ Result:=TControllerDebuggeesBreakpointsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClouddebuggerAPI.GetControllerDebuggeesInstance : TControllerDebuggeesResource;
+
+begin
+ if (FControllerDebuggeesInstance=Nil) then
+ FControllerDebuggeesInstance:=CreateControllerDebuggeesResource;
+ Result:=FControllerDebuggeesInstance;
+end;
+
+Function TClouddebuggerAPI.CreateControllerDebuggeesResource : TControllerDebuggeesResource;
+
+begin
+ Result:=CreateControllerDebuggeesResource(Self);
+end;
+
+
+Function TClouddebuggerAPI.CreateControllerDebuggeesResource(AOwner : TComponent) : TControllerDebuggeesResource;
+
+begin
+ Result:=TControllerDebuggeesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClouddebuggerAPI.GetControllerInstance : TControllerResource;
+
+begin
+ if (FControllerInstance=Nil) then
+ FControllerInstance:=CreateControllerResource;
+ Result:=FControllerInstance;
+end;
+
+Function TClouddebuggerAPI.CreateControllerResource : TControllerResource;
+
+begin
+ Result:=CreateControllerResource(Self);
+end;
+
+
+Function TClouddebuggerAPI.CreateControllerResource(AOwner : TComponent) : TControllerResource;
+
+begin
+ Result:=TControllerResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClouddebuggerAPI.GetDebuggerDebuggeesBreakpointsInstance : TDebuggerDebuggeesBreakpointsResource;
+
+begin
+ if (FDebuggerDebuggeesBreakpointsInstance=Nil) then
+ FDebuggerDebuggeesBreakpointsInstance:=CreateDebuggerDebuggeesBreakpointsResource;
+ Result:=FDebuggerDebuggeesBreakpointsInstance;
+end;
+
+Function TClouddebuggerAPI.CreateDebuggerDebuggeesBreakpointsResource : TDebuggerDebuggeesBreakpointsResource;
+
+begin
+ Result:=CreateDebuggerDebuggeesBreakpointsResource(Self);
+end;
+
+
+Function TClouddebuggerAPI.CreateDebuggerDebuggeesBreakpointsResource(AOwner : TComponent) : TDebuggerDebuggeesBreakpointsResource;
+
+begin
+ Result:=TDebuggerDebuggeesBreakpointsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClouddebuggerAPI.GetDebuggerDebuggeesInstance : TDebuggerDebuggeesResource;
+
+begin
+ if (FDebuggerDebuggeesInstance=Nil) then
+ FDebuggerDebuggeesInstance:=CreateDebuggerDebuggeesResource;
+ Result:=FDebuggerDebuggeesInstance;
+end;
+
+Function TClouddebuggerAPI.CreateDebuggerDebuggeesResource : TDebuggerDebuggeesResource;
+
+begin
+ Result:=CreateDebuggerDebuggeesResource(Self);
+end;
+
+
+Function TClouddebuggerAPI.CreateDebuggerDebuggeesResource(AOwner : TComponent) : TDebuggerDebuggeesResource;
+
+begin
+ Result:=TDebuggerDebuggeesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClouddebuggerAPI.GetDebuggerInstance : TDebuggerResource;
+
+begin
+ if (FDebuggerInstance=Nil) then
+ FDebuggerInstance:=CreateDebuggerResource;
+ Result:=FDebuggerInstance;
+end;
+
+Function TClouddebuggerAPI.CreateDebuggerResource : TDebuggerResource;
+
+begin
+ Result:=CreateDebuggerResource(Self);
+end;
+
+
+Function TClouddebuggerAPI.CreateDebuggerResource(AOwner : TComponent) : TDebuggerResource;
+
+begin
+ Result:=TDebuggerResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TClouddebuggerAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleclouderrorreporting.pp b/packages/googleapi/src/googleclouderrorreporting.pp
new file mode 100644
index 0000000000..820ced2430
--- /dev/null
+++ b/packages/googleapi/src/googleclouderrorreporting.pp
@@ -0,0 +1,1494 @@
+unit googleclouderrorreporting;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TSourceLocation = Class;
+ TErrorGroupStats = Class;
+ TErrorContext = Class;
+ TServiceContext = Class;
+ TErrorGroup = Class;
+ TTrackingIssue = Class;
+ TDeleteEventsResponse = Class;
+ TErrorEvent = Class;
+ TListEventsResponse = Class;
+ TTimedCount = Class;
+ THttpRequestContext = Class;
+ TListGroupStatsResponse = Class;
+ TSourceLocationArray = Array of TSourceLocation;
+ TErrorGroupStatsArray = Array of TErrorGroupStats;
+ TErrorContextArray = Array of TErrorContext;
+ TServiceContextArray = Array of TServiceContext;
+ TErrorGroupArray = Array of TErrorGroup;
+ TTrackingIssueArray = Array of TTrackingIssue;
+ TDeleteEventsResponseArray = Array of TDeleteEventsResponse;
+ TErrorEventArray = Array of TErrorEvent;
+ TListEventsResponseArray = Array of TListEventsResponse;
+ TTimedCountArray = Array of TTimedCount;
+ THttpRequestContextArray = Array of THttpRequestContext;
+ TListGroupStatsResponseArray = Array of TListGroupStatsResponse;
+ //Anonymous types, using auto-generated names
+ TErrorGroupStatsTypeaffectedServicesArray = Array of TServiceContext;
+ TErrorGroupStatsTypetimedCountsArray = Array of TTimedCount;
+ TErrorGroupTypetrackingIssuesArray = Array of TTrackingIssue;
+ TListEventsResponseTypeerrorEventsArray = Array of TErrorEvent;
+ TListGroupStatsResponseTypeerrorGroupStatsArray = Array of TErrorGroupStats;
+
+ { --------------------------------------------------------------------
+ TSourceLocation
+ --------------------------------------------------------------------}
+
+ TSourceLocation = Class(TGoogleBaseObject)
+ Private
+ FfilePath : String;
+ FfunctionName : String;
+ FlineNumber : integer;
+ Protected
+ //Property setters
+ Procedure SetfilePath(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfunctionName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlineNumber(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property filePath : String Index 0 Read FfilePath Write SetfilePath;
+ Property functionName : String Index 8 Read FfunctionName Write SetfunctionName;
+ Property lineNumber : integer Index 16 Read FlineNumber Write SetlineNumber;
+ end;
+ TSourceLocationClass = Class of TSourceLocation;
+
+ { --------------------------------------------------------------------
+ TErrorGroupStats
+ --------------------------------------------------------------------}
+
+ TErrorGroupStats = Class(TGoogleBaseObject)
+ Private
+ Frepresentative : TErrorEvent;
+ FnumAffectedServices : integer;
+ FaffectedUsersCount : String;
+ Fcount : String;
+ FfirstSeenTime : String;
+ FlastSeenTime : String;
+ Fgroup : TErrorGroup;
+ FaffectedServices : TErrorGroupStatsTypeaffectedServicesArray;
+ FtimedCounts : TErrorGroupStatsTypetimedCountsArray;
+ Protected
+ //Property setters
+ Procedure Setrepresentative(AIndex : Integer; const AValue : TErrorEvent); virtual;
+ Procedure SetnumAffectedServices(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetaffectedUsersCount(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfirstSeenTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlastSeenTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setgroup(AIndex : Integer; const AValue : TErrorGroup); virtual;
+ Procedure SetaffectedServices(AIndex : Integer; const AValue : TErrorGroupStatsTypeaffectedServicesArray); virtual;
+ Procedure SettimedCounts(AIndex : Integer; const AValue : TErrorGroupStatsTypetimedCountsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property representative : TErrorEvent Index 0 Read Frepresentative Write Setrepresentative;
+ Property numAffectedServices : integer Index 8 Read FnumAffectedServices Write SetnumAffectedServices;
+ Property affectedUsersCount : String Index 16 Read FaffectedUsersCount Write SetaffectedUsersCount;
+ Property count : String Index 24 Read Fcount Write Setcount;
+ Property firstSeenTime : String Index 32 Read FfirstSeenTime Write SetfirstSeenTime;
+ Property lastSeenTime : String Index 40 Read FlastSeenTime Write SetlastSeenTime;
+ Property group : TErrorGroup Index 48 Read Fgroup Write Setgroup;
+ Property affectedServices : TErrorGroupStatsTypeaffectedServicesArray Index 56 Read FaffectedServices Write SetaffectedServices;
+ Property timedCounts : TErrorGroupStatsTypetimedCountsArray Index 64 Read FtimedCounts Write SettimedCounts;
+ end;
+ TErrorGroupStatsClass = Class of TErrorGroupStats;
+
+ { --------------------------------------------------------------------
+ TErrorContext
+ --------------------------------------------------------------------}
+
+ TErrorContext = Class(TGoogleBaseObject)
+ Private
+ FhttpRequest : THttpRequestContext;
+ FreportLocation : TSourceLocation;
+ Fuser : String;
+ Protected
+ //Property setters
+ Procedure SethttpRequest(AIndex : Integer; const AValue : THttpRequestContext); virtual;
+ Procedure SetreportLocation(AIndex : Integer; const AValue : TSourceLocation); virtual;
+ Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property httpRequest : THttpRequestContext Index 0 Read FhttpRequest Write SethttpRequest;
+ Property reportLocation : TSourceLocation Index 8 Read FreportLocation Write SetreportLocation;
+ Property user : String Index 16 Read Fuser Write Setuser;
+ end;
+ TErrorContextClass = Class of TErrorContext;
+
+ { --------------------------------------------------------------------
+ TServiceContext
+ --------------------------------------------------------------------}
+
+ TServiceContext = Class(TGoogleBaseObject)
+ Private
+ Fservice : String;
+ Fversion : String;
+ Protected
+ //Property setters
+ Procedure Setservice(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property service : String Index 0 Read Fservice Write Setservice;
+ Property version : String Index 8 Read Fversion Write Setversion;
+ end;
+ TServiceContextClass = Class of TServiceContext;
+
+ { --------------------------------------------------------------------
+ TErrorGroup
+ --------------------------------------------------------------------}
+
+ TErrorGroup = Class(TGoogleBaseObject)
+ Private
+ FgroupId : String;
+ Fname : String;
+ FtrackingIssues : TErrorGroupTypetrackingIssuesArray;
+ Protected
+ //Property setters
+ Procedure SetgroupId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettrackingIssues(AIndex : Integer; const AValue : TErrorGroupTypetrackingIssuesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property groupId : String Index 0 Read FgroupId Write SetgroupId;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property trackingIssues : TErrorGroupTypetrackingIssuesArray Index 16 Read FtrackingIssues Write SettrackingIssues;
+ end;
+ TErrorGroupClass = Class of TErrorGroup;
+
+ { --------------------------------------------------------------------
+ TTrackingIssue
+ --------------------------------------------------------------------}
+
+ TTrackingIssue = Class(TGoogleBaseObject)
+ Private
+ Furl : String;
+ Protected
+ //Property setters
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property url : String Index 0 Read Furl Write Seturl;
+ end;
+ TTrackingIssueClass = Class of TTrackingIssue;
+
+ { --------------------------------------------------------------------
+ TDeleteEventsResponse
+ --------------------------------------------------------------------}
+
+ TDeleteEventsResponse = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TDeleteEventsResponseClass = Class of TDeleteEventsResponse;
+
+ { --------------------------------------------------------------------
+ TErrorEvent
+ --------------------------------------------------------------------}
+
+ TErrorEvent = Class(TGoogleBaseObject)
+ Private
+ FserviceContext : TServiceContext;
+ Fcontext : TErrorContext;
+ FeventTime : String;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure SetserviceContext(AIndex : Integer; const AValue : TServiceContext); virtual;
+ Procedure Setcontext(AIndex : Integer; const AValue : TErrorContext); virtual;
+ Procedure SeteventTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property serviceContext : TServiceContext Index 0 Read FserviceContext Write SetserviceContext;
+ Property context : TErrorContext Index 8 Read Fcontext Write Setcontext;
+ Property eventTime : String Index 16 Read FeventTime Write SeteventTime;
+ Property message : String Index 24 Read Fmessage Write Setmessage;
+ end;
+ TErrorEventClass = Class of TErrorEvent;
+
+ { --------------------------------------------------------------------
+ TListEventsResponse
+ --------------------------------------------------------------------}
+
+ TListEventsResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ FerrorEvents : TListEventsResponseTypeerrorEventsArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeterrorEvents(AIndex : Integer; const AValue : TListEventsResponseTypeerrorEventsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property errorEvents : TListEventsResponseTypeerrorEventsArray Index 8 Read FerrorEvents Write SeterrorEvents;
+ end;
+ TListEventsResponseClass = Class of TListEventsResponse;
+
+ { --------------------------------------------------------------------
+ TTimedCount
+ --------------------------------------------------------------------}
+
+ TTimedCount = Class(TGoogleBaseObject)
+ Private
+ FstartTime : String;
+ FendTime : String;
+ Fcount : String;
+ Protected
+ //Property setters
+ Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property startTime : String Index 0 Read FstartTime Write SetstartTime;
+ Property endTime : String Index 8 Read FendTime Write SetendTime;
+ Property count : String Index 16 Read Fcount Write Setcount;
+ end;
+ TTimedCountClass = Class of TTimedCount;
+
+ { --------------------------------------------------------------------
+ THttpRequestContext
+ --------------------------------------------------------------------}
+
+ THttpRequestContext = Class(TGoogleBaseObject)
+ Private
+ Fmethod : String;
+ FresponseStatusCode : integer;
+ FremoteIp : String;
+ Furl : String;
+ Freferrer : String;
+ FuserAgent : String;
+ Protected
+ //Property setters
+ Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetresponseStatusCode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetremoteIp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setreferrer(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserAgent(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property method : String Index 0 Read Fmethod Write Setmethod;
+ Property responseStatusCode : integer Index 8 Read FresponseStatusCode Write SetresponseStatusCode;
+ Property remoteIp : String Index 16 Read FremoteIp Write SetremoteIp;
+ Property url : String Index 24 Read Furl Write Seturl;
+ Property referrer : String Index 32 Read Freferrer Write Setreferrer;
+ Property userAgent : String Index 40 Read FuserAgent Write SetuserAgent;
+ end;
+ THttpRequestContextClass = Class of THttpRequestContext;
+
+ { --------------------------------------------------------------------
+ TListGroupStatsResponse
+ --------------------------------------------------------------------}
+
+ TListGroupStatsResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ FerrorGroupStats : TListGroupStatsResponseTypeerrorGroupStatsArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeterrorGroupStats(AIndex : Integer; const AValue : TListGroupStatsResponseTypeerrorGroupStatsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property errorGroupStats : TListGroupStatsResponseTypeerrorGroupStatsArray Index 8 Read FerrorGroupStats Write SeterrorGroupStats;
+ end;
+ TListGroupStatsResponseClass = Class of TListGroupStatsResponse;
+
+ { --------------------------------------------------------------------
+ TProjectsEventsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsEventsResource, method List
+
+ TProjectsEventsListOptions = Record
+ timeRangeperiod : String;
+ serviceFilterservice : String;
+ groupId : String;
+ serviceFilterversion : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsEventsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(projectName: string; AQuery : string = '') : TListEventsResponse;
+ Function List(projectName: string; AQuery : TProjectsEventslistOptions) : TListEventsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsGroupsResource
+ --------------------------------------------------------------------}
+
+ TProjectsGroupsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Update(_name: string; aErrorGroup : TErrorGroup) : TErrorGroup;
+ Function Get(groupName: string) : TErrorGroup;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsGroupStatsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsGroupStatsResource, method List
+
+ TProjectsGroupStatsListOptions = Record
+ alignment : String;
+ timeRangeperiod : String;
+ order : String;
+ groupId : String;
+ serviceFilterservice : String;
+ alignmentTime : String;
+ serviceFilterversion : String;
+ pageSize : integer;
+ timedCountDuration : String;
+ pageToken : String;
+ end;
+
+ TProjectsGroupStatsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(projectName: string; AQuery : string = '') : TListGroupStatsResponse;
+ Function List(projectName: string; AQuery : TProjectsGroupStatslistOptions) : TListGroupStatsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+ TProjectsResource = Class(TGoogleResource)
+ Private
+ FEventsInstance : TProjectsEventsResource;
+ FGroupsInstance : TProjectsGroupsResource;
+ FGroupStatsInstance : TProjectsGroupStatsResource;
+ Function GetEventsInstance : TProjectsEventsResource;virtual;
+ Function GetGroupsInstance : TProjectsGroupsResource;virtual;
+ Function GetGroupStatsInstance : TProjectsGroupStatsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function DeleteEvents(projectName: string) : TDeleteEventsResponse;
+ Function CreateEventsResource(AOwner : TComponent) : TProjectsEventsResource;virtual;overload;
+ Function CreateEventsResource : TProjectsEventsResource;virtual;overload;
+ Function CreateGroupsResource(AOwner : TComponent) : TProjectsGroupsResource;virtual;overload;
+ Function CreateGroupsResource : TProjectsGroupsResource;virtual;overload;
+ Function CreateGroupStatsResource(AOwner : TComponent) : TProjectsGroupStatsResource;virtual;overload;
+ Function CreateGroupStatsResource : TProjectsGroupStatsResource;virtual;overload;
+ Property EventsResource : TProjectsEventsResource Read GetEventsInstance;
+ Property GroupsResource : TProjectsGroupsResource Read GetGroupsInstance;
+ Property GroupStatsResource : TProjectsGroupStatsResource Read GetGroupStatsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TClouderrorreportingAPI
+ --------------------------------------------------------------------}
+
+ TClouderrorreportingAPI = Class(TGoogleAPI)
+ Private
+ FProjectsEventsInstance : TProjectsEventsResource;
+ FProjectsGroupsInstance : TProjectsGroupsResource;
+ FProjectsGroupStatsInstance : TProjectsGroupStatsResource;
+ FProjectsInstance : TProjectsResource;
+ Function GetProjectsEventsInstance : TProjectsEventsResource;virtual;
+ Function GetProjectsGroupsInstance : TProjectsGroupsResource;virtual;
+ Function GetProjectsGroupStatsInstance : TProjectsGroupStatsResource;virtual;
+ Function GetProjectsInstance : TProjectsResource;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 CreateProjectsEventsResource(AOwner : TComponent) : TProjectsEventsResource;virtual;overload;
+ Function CreateProjectsEventsResource : TProjectsEventsResource;virtual;overload;
+ Function CreateProjectsGroupsResource(AOwner : TComponent) : TProjectsGroupsResource;virtual;overload;
+ Function CreateProjectsGroupsResource : TProjectsGroupsResource;virtual;overload;
+ Function CreateProjectsGroupStatsResource(AOwner : TComponent) : TProjectsGroupStatsResource;virtual;overload;
+ Function CreateProjectsGroupStatsResource : TProjectsGroupStatsResource;virtual;overload;
+ Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ProjectsEventsResource : TProjectsEventsResource Read GetProjectsEventsInstance;
+ Property ProjectsGroupsResource : TProjectsGroupsResource Read GetProjectsGroupsInstance;
+ Property ProjectsGroupStatsResource : TProjectsGroupStatsResource Read GetProjectsGroupStatsInstance;
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TSourceLocation
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceLocation.SetfilePath(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfilePath=AValue) then exit;
+ FfilePath:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceLocation.SetfunctionName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfunctionName=AValue) then exit;
+ FfunctionName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceLocation.SetlineNumber(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FlineNumber=AValue) then exit;
+ FlineNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TErrorGroupStats
+ --------------------------------------------------------------------}
+
+
+Procedure TErrorGroupStats.Setrepresentative(AIndex : Integer; const AValue : TErrorEvent);
+
+begin
+ If (Frepresentative=AValue) then exit;
+ Frepresentative:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorGroupStats.SetnumAffectedServices(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FnumAffectedServices=AValue) then exit;
+ FnumAffectedServices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorGroupStats.SetaffectedUsersCount(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaffectedUsersCount=AValue) then exit;
+ FaffectedUsersCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorGroupStats.Setcount(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcount=AValue) then exit;
+ Fcount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorGroupStats.SetfirstSeenTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfirstSeenTime=AValue) then exit;
+ FfirstSeenTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorGroupStats.SetlastSeenTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlastSeenTime=AValue) then exit;
+ FlastSeenTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorGroupStats.Setgroup(AIndex : Integer; const AValue : TErrorGroup);
+
+begin
+ If (Fgroup=AValue) then exit;
+ Fgroup:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorGroupStats.SetaffectedServices(AIndex : Integer; const AValue : TErrorGroupStatsTypeaffectedServicesArray);
+
+begin
+ If (FaffectedServices=AValue) then exit;
+ FaffectedServices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorGroupStats.SettimedCounts(AIndex : Integer; const AValue : TErrorGroupStatsTypetimedCountsArray);
+
+begin
+ If (FtimedCounts=AValue) then exit;
+ FtimedCounts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TErrorGroupStats.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'affectedservices' : SetLength(FaffectedServices,ALength);
+ 'timedcounts' : SetLength(FtimedCounts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TErrorContext
+ --------------------------------------------------------------------}
+
+
+Procedure TErrorContext.SethttpRequest(AIndex : Integer; const AValue : THttpRequestContext);
+
+begin
+ If (FhttpRequest=AValue) then exit;
+ FhttpRequest:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorContext.SetreportLocation(AIndex : Integer; const AValue : TSourceLocation);
+
+begin
+ If (FreportLocation=AValue) then exit;
+ FreportLocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorContext.Setuser(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fuser=AValue) then exit;
+ Fuser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TServiceContext
+ --------------------------------------------------------------------}
+
+
+Procedure TServiceContext.Setservice(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fservice=AValue) then exit;
+ Fservice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServiceContext.Setversion(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fversion=AValue) then exit;
+ Fversion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TErrorGroup
+ --------------------------------------------------------------------}
+
+
+Procedure TErrorGroup.SetgroupId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FgroupId=AValue) then exit;
+ FgroupId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorGroup.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorGroup.SettrackingIssues(AIndex : Integer; const AValue : TErrorGroupTypetrackingIssuesArray);
+
+begin
+ If (FtrackingIssues=AValue) then exit;
+ FtrackingIssues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TErrorGroup.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'trackingissues' : SetLength(FtrackingIssues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTrackingIssue
+ --------------------------------------------------------------------}
+
+
+Procedure TTrackingIssue.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeleteEventsResponse
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TErrorEvent
+ --------------------------------------------------------------------}
+
+
+Procedure TErrorEvent.SetserviceContext(AIndex : Integer; const AValue : TServiceContext);
+
+begin
+ If (FserviceContext=AValue) then exit;
+ FserviceContext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorEvent.Setcontext(AIndex : Integer; const AValue : TErrorContext);
+
+begin
+ If (Fcontext=AValue) then exit;
+ Fcontext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorEvent.SeteventTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FeventTime=AValue) then exit;
+ FeventTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorEvent.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListEventsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListEventsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListEventsResponse.SeterrorEvents(AIndex : Integer; const AValue : TListEventsResponseTypeerrorEventsArray);
+
+begin
+ If (FerrorEvents=AValue) then exit;
+ FerrorEvents:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListEventsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'errorevents' : SetLength(FerrorEvents,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTimedCount
+ --------------------------------------------------------------------}
+
+
+Procedure TTimedCount.SetstartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTime=AValue) then exit;
+ FstartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimedCount.SetendTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimedCount.Setcount(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcount=AValue) then exit;
+ Fcount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ THttpRequestContext
+ --------------------------------------------------------------------}
+
+
+Procedure THttpRequestContext.Setmethod(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmethod=AValue) then exit;
+ Fmethod:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpRequestContext.SetresponseStatusCode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FresponseStatusCode=AValue) then exit;
+ FresponseStatusCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpRequestContext.SetremoteIp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FremoteIp=AValue) then exit;
+ FremoteIp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpRequestContext.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpRequestContext.Setreferrer(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freferrer=AValue) then exit;
+ Freferrer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpRequestContext.SetuserAgent(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuserAgent=AValue) then exit;
+ FuserAgent:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListGroupStatsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListGroupStatsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListGroupStatsResponse.SeterrorGroupStats(AIndex : Integer; const AValue : TListGroupStatsResponseTypeerrorGroupStatsArray);
+
+begin
+ If (FerrorGroupStats=AValue) then exit;
+ FerrorGroupStats:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListGroupStatsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'errorgroupstats' : SetLength(FerrorGroupStats,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsEventsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsEventsResource.ResourceName : String;
+
+begin
+ Result:='events';
+end;
+
+Class Function TProjectsEventsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouderrorreportingAPI;
+end;
+
+Function TProjectsEventsResource.List(projectName: string; AQuery : string = '') : TListEventsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta1/{+projectName}/events';
+ _Methodid = 'clouderrorreporting.projects.events.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectName',projectName]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListEventsResponse) as TListEventsResponse;
+end;
+
+
+Function TProjectsEventsResource.List(projectName: string; AQuery : TProjectsEventslistOptions) : TListEventsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'timeRange.period',AQuery.timeRangeperiod);
+ AddToQuery(_Q,'serviceFilter.service',AQuery.serviceFilterservice);
+ AddToQuery(_Q,'groupId',AQuery.groupId);
+ AddToQuery(_Q,'serviceFilter.version',AQuery.serviceFilterversion);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(projectName,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsGroupsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsGroupsResource.ResourceName : String;
+
+begin
+ Result:='groups';
+end;
+
+Class Function TProjectsGroupsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouderrorreportingAPI;
+end;
+
+Function TProjectsGroupsResource.Update(_name: string; aErrorGroup : TErrorGroup) : TErrorGroup;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v1beta1/{+name}';
+ _Methodid = 'clouderrorreporting.projects.groups.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aErrorGroup,TErrorGroup) as TErrorGroup;
+end;
+
+Function TProjectsGroupsResource.Get(groupName: string) : TErrorGroup;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta1/{+groupName}';
+ _Methodid = 'clouderrorreporting.projects.groups.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['groupName',groupName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TErrorGroup) as TErrorGroup;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsGroupStatsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsGroupStatsResource.ResourceName : String;
+
+begin
+ Result:='groupStats';
+end;
+
+Class Function TProjectsGroupStatsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouderrorreportingAPI;
+end;
+
+Function TProjectsGroupStatsResource.List(projectName: string; AQuery : string = '') : TListGroupStatsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta1/{+projectName}/groupStats';
+ _Methodid = 'clouderrorreporting.projects.groupStats.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectName',projectName]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListGroupStatsResponse) as TListGroupStatsResponse;
+end;
+
+
+Function TProjectsGroupStatsResource.List(projectName: string; AQuery : TProjectsGroupStatslistOptions) : TListGroupStatsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'alignment',AQuery.alignment);
+ AddToQuery(_Q,'timeRange.period',AQuery.timeRangeperiod);
+ AddToQuery(_Q,'order',AQuery.order);
+ AddToQuery(_Q,'groupId',AQuery.groupId);
+ AddToQuery(_Q,'serviceFilter.service',AQuery.serviceFilterservice);
+ AddToQuery(_Q,'alignmentTime',AQuery.alignmentTime);
+ AddToQuery(_Q,'serviceFilter.version',AQuery.serviceFilterversion);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'timedCountDuration',AQuery.timedCountDuration);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(projectName,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouderrorreportingAPI;
+end;
+
+Function TProjectsResource.DeleteEvents(projectName: string) : TDeleteEventsResponse;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1beta1/{+projectName}/events';
+ _Methodid = 'clouderrorreporting.projects.deleteEvents';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectName',projectName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDeleteEventsResponse) as TDeleteEventsResponse;
+end;
+
+
+
+Function TProjectsResource.GetEventsInstance : TProjectsEventsResource;
+
+begin
+ if (FEventsInstance=Nil) then
+ FEventsInstance:=CreateEventsResource;
+ Result:=FEventsInstance;
+end;
+
+Function TProjectsResource.CreateEventsResource : TProjectsEventsResource;
+
+begin
+ Result:=CreateEventsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateEventsResource(AOwner : TComponent) : TProjectsEventsResource;
+
+begin
+ Result:=TProjectsEventsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetGroupsInstance : TProjectsGroupsResource;
+
+begin
+ if (FGroupsInstance=Nil) then
+ FGroupsInstance:=CreateGroupsResource;
+ Result:=FGroupsInstance;
+end;
+
+Function TProjectsResource.CreateGroupsResource : TProjectsGroupsResource;
+
+begin
+ Result:=CreateGroupsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateGroupsResource(AOwner : TComponent) : TProjectsGroupsResource;
+
+begin
+ Result:=TProjectsGroupsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetGroupStatsInstance : TProjectsGroupStatsResource;
+
+begin
+ if (FGroupStatsInstance=Nil) then
+ FGroupStatsInstance:=CreateGroupStatsResource;
+ Result:=FGroupStatsInstance;
+end;
+
+Function TProjectsResource.CreateGroupStatsResource : TProjectsGroupStatsResource;
+
+begin
+ Result:=CreateGroupStatsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateGroupStatsResource(AOwner : TComponent) : TProjectsGroupStatsResource;
+
+begin
+ Result:=TProjectsGroupStatsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TClouderrorreportingAPI
+ --------------------------------------------------------------------}
+
+Class Function TClouderrorreportingAPI.APIName : String;
+
+begin
+ Result:='clouderrorreporting';
+end;
+
+Class Function TClouderrorreportingAPI.APIVersion : String;
+
+begin
+ Result:='v1beta1';
+end;
+
+Class Function TClouderrorreportingAPI.APIRevision : String;
+
+begin
+ Result:='20160517';
+end;
+
+Class Function TClouderrorreportingAPI.APIID : String;
+
+begin
+ Result:='clouderrorreporting:v1beta1';
+end;
+
+Class Function TClouderrorreportingAPI.APITitle : String;
+
+begin
+ Result:='Stackdriver Error Reporting API';
+end;
+
+Class Function TClouderrorreportingAPI.APIDescription : String;
+
+begin
+ Result:='Stackdriver Error Reporting groups and counts similar errors from cloud services. The Stackdriver Error Reporting API provides read access to error groups and their associated errors.';
+end;
+
+Class Function TClouderrorreportingAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TClouderrorreportingAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TClouderrorreportingAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TClouderrorreportingAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TClouderrorreportingAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/error-reporting/';
+end;
+
+Class Function TClouderrorreportingAPI.APIrootUrl : string;
+
+begin
+ Result:='https://clouderrorreporting.googleapis.com/';
+end;
+
+Class Function TClouderrorreportingAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TClouderrorreportingAPI.APIbaseURL : String;
+
+begin
+ Result:='https://clouderrorreporting.googleapis.com/';
+end;
+
+Class Function TClouderrorreportingAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TClouderrorreportingAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TClouderrorreportingAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TClouderrorreportingAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+
+end;
+
+Class Function TClouderrorreportingAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TClouderrorreportingAPI.RegisterAPIResources;
+
+begin
+ TSourceLocation.RegisterObject;
+ TErrorGroupStats.RegisterObject;
+ TErrorContext.RegisterObject;
+ TServiceContext.RegisterObject;
+ TErrorGroup.RegisterObject;
+ TTrackingIssue.RegisterObject;
+ TDeleteEventsResponse.RegisterObject;
+ TErrorEvent.RegisterObject;
+ TListEventsResponse.RegisterObject;
+ TTimedCount.RegisterObject;
+ THttpRequestContext.RegisterObject;
+ TListGroupStatsResponse.RegisterObject;
+end;
+
+
+Function TClouderrorreportingAPI.GetProjectsEventsInstance : TProjectsEventsResource;
+
+begin
+ if (FProjectsEventsInstance=Nil) then
+ FProjectsEventsInstance:=CreateProjectsEventsResource;
+ Result:=FProjectsEventsInstance;
+end;
+
+Function TClouderrorreportingAPI.CreateProjectsEventsResource : TProjectsEventsResource;
+
+begin
+ Result:=CreateProjectsEventsResource(Self);
+end;
+
+
+Function TClouderrorreportingAPI.CreateProjectsEventsResource(AOwner : TComponent) : TProjectsEventsResource;
+
+begin
+ Result:=TProjectsEventsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClouderrorreportingAPI.GetProjectsGroupsInstance : TProjectsGroupsResource;
+
+begin
+ if (FProjectsGroupsInstance=Nil) then
+ FProjectsGroupsInstance:=CreateProjectsGroupsResource;
+ Result:=FProjectsGroupsInstance;
+end;
+
+Function TClouderrorreportingAPI.CreateProjectsGroupsResource : TProjectsGroupsResource;
+
+begin
+ Result:=CreateProjectsGroupsResource(Self);
+end;
+
+
+Function TClouderrorreportingAPI.CreateProjectsGroupsResource(AOwner : TComponent) : TProjectsGroupsResource;
+
+begin
+ Result:=TProjectsGroupsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClouderrorreportingAPI.GetProjectsGroupStatsInstance : TProjectsGroupStatsResource;
+
+begin
+ if (FProjectsGroupStatsInstance=Nil) then
+ FProjectsGroupStatsInstance:=CreateProjectsGroupStatsResource;
+ Result:=FProjectsGroupStatsInstance;
+end;
+
+Function TClouderrorreportingAPI.CreateProjectsGroupStatsResource : TProjectsGroupStatsResource;
+
+begin
+ Result:=CreateProjectsGroupStatsResource(Self);
+end;
+
+
+Function TClouderrorreportingAPI.CreateProjectsGroupStatsResource(AOwner : TComponent) : TProjectsGroupStatsResource;
+
+begin
+ Result:=TProjectsGroupStatsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClouderrorreportingAPI.GetProjectsInstance : TProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TClouderrorreportingAPI.CreateProjectsResource : TProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TClouderrorreportingAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+
+begin
+ Result:=TProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TClouderrorreportingAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlecloudlatencytest.pp b/packages/googleapi/src/googlecloudlatencytest.pp
index e673eb5f71..ea8b5eeff4 100644
--- a/packages/googleapi/src/googlecloudlatencytest.pp
+++ b/packages/googleapi/src/googlecloudlatencytest.pp
@@ -1,19 +1,4 @@
unit googlecloudlatencytest;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:00
{$MODE objfpc}
{$H+}
@@ -53,7 +38,7 @@ type
Fstats : TAggregatedStatsTypestatsArray;
Protected
//Property setters
- Procedure Setstats(AIndex : Integer; AValue : TAggregatedStatsTypestatsArray); virtual;
+ Procedure Setstats(AIndex : Integer; const AValue : TAggregatedStatsTypestatsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -92,7 +77,7 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property _label : String Index 0 Read F_label Write Set_label;
@@ -132,10 +117,10 @@ type
Ftime : double;
Protected
//Property setters
- Procedure SetdoubleValues(AIndex : Integer; AValue : TStatsTypedoubleValuesArray); virtual;
- Procedure SetintValues(AIndex : Integer; AValue : TStatsTypeintValuesArray); virtual;
- Procedure SetstringValues(AIndex : Integer; AValue : TStatsTypestringValuesArray); virtual;
- Procedure Settime(AIndex : Integer; AValue : double); virtual;
+ Procedure SetdoubleValues(AIndex : Integer; const AValue : TStatsTypedoubleValuesArray); virtual;
+ Procedure SetintValues(AIndex : Integer; const AValue : TStatsTypeintValuesArray); virtual;
+ Procedure SetstringValues(AIndex : Integer; const AValue : TStatsTypestringValuesArray); virtual;
+ Procedure Settime(AIndex : Integer; const AValue : double); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -243,7 +228,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TAggregatedStats.Setstats(AIndex : Integer; AValue : TAggregatedStatsTypestatsArray);
+Procedure TAggregatedStats.Setstats(AIndex : Integer; const AValue : TAggregatedStatsTypestatsArray);
begin
If (Fstats=AValue) then exit;
@@ -300,7 +285,7 @@ end;
-Procedure TDoubleValue.Setvalue(AIndex : Integer; AValue : integer);
+Procedure TDoubleValue.Setvalue(AIndex : Integer; const AValue : integer);
begin
If (Fvalue=AValue) then exit;
@@ -366,7 +351,7 @@ end;
--------------------------------------------------------------------}
-Procedure TStats.SetdoubleValues(AIndex : Integer; AValue : TStatsTypedoubleValuesArray);
+Procedure TStats.SetdoubleValues(AIndex : Integer; const AValue : TStatsTypedoubleValuesArray);
begin
If (FdoubleValues=AValue) then exit;
@@ -376,7 +361,7 @@ end;
-Procedure TStats.SetintValues(AIndex : Integer; AValue : TStatsTypeintValuesArray);
+Procedure TStats.SetintValues(AIndex : Integer; const AValue : TStatsTypeintValuesArray);
begin
If (FintValues=AValue) then exit;
@@ -386,7 +371,7 @@ end;
-Procedure TStats.SetstringValues(AIndex : Integer; AValue : TStatsTypestringValuesArray);
+Procedure TStats.SetstringValues(AIndex : Integer; const AValue : TStatsTypestringValuesArray);
begin
If (FstringValues=AValue) then exit;
@@ -396,7 +381,7 @@ end;
-Procedure TStats.Settime(AIndex : Integer; AValue : double);
+Procedure TStats.Settime(AIndex : Integer; const AValue : double);
begin
If (Ftime=AValue) then exit;
@@ -538,7 +523,7 @@ end;
Class Function TCloudlatencytestAPI.APIRevision : String;
begin
- Result:='20150508';
+ Result:='20160309';
end;
Class Function TCloudlatencytestAPI.APIID : String;
@@ -556,7 +541,7 @@ end;
Class Function TCloudlatencytestAPI.APIDescription : String;
begin
- Result:='A Test API to report latency data.';
+ Result:='Reports latency data.';
end;
Class Function TCloudlatencytestAPI.APIOwnerDomain : String;
diff --git a/packages/googleapi/src/googlecloudmonitoring.pp b/packages/googleapi/src/googlecloudmonitoring.pp
index d1179cde9c..3117bcb669 100644
--- a/packages/googleapi/src/googlecloudmonitoring.pp
+++ b/packages/googleapi/src/googlecloudmonitoring.pp
@@ -1,19 +1,4 @@
unit googlecloudmonitoring;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:00
{$MODE objfpc}
{$H+}
@@ -121,7 +106,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetrics(AIndex : Integer; AValue : TListMetricDescriptorsResponseTypemetricsArray); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TListMetricDescriptorsResponseTypemetricsArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -166,9 +151,9 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setoldest(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Settimeseries(AIndex : Integer; AValue : TListTimeseriesDescriptorsResponseTypetimeseriesArray); virtual;
- Procedure Setyoungest(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setoldest(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Settimeseries(AIndex : Integer; const AValue : TListTimeseriesDescriptorsResponseTypetimeseriesArray); virtual;
+ Procedure Setyoungest(AIndex : Integer; const AValue : TDatetime); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -214,9 +199,9 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setoldest(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Settimeseries(AIndex : Integer; AValue : TListTimeseriesResponseTypetimeseriesArray); virtual;
- Procedure Setyoungest(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setoldest(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Settimeseries(AIndex : Integer; const AValue : TListTimeseriesResponseTypetimeseriesArray); virtual;
+ Procedure Setyoungest(AIndex : Integer; const AValue : TDatetime); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -245,10 +230,10 @@ type
Protected
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlabels(AIndex : Integer; AValue : TMetricDescriptorTypelabelsArray); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TMetricDescriptorTypelabelsArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setproject(AIndex : Integer; const AValue : String); virtual;
- Procedure SettypeDescriptor(AIndex : Integer; AValue : TMetricDescriptorTypeDescriptor); virtual;
+ Procedure SettypeDescriptor(AIndex : Integer; const AValue : TMetricDescriptorTypeDescriptor); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -317,12 +302,12 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetboolValue(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetdistributionValue(AIndex : Integer; AValue : TPointDistribution); virtual;
- Procedure SetdoubleValue(AIndex : Integer; AValue : double); virtual;
- Procedure Set_end(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetboolValue(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdistributionValue(AIndex : Integer; const AValue : TPointDistribution); virtual;
+ Procedure SetdoubleValue(AIndex : Integer; const AValue : double); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setint64Value(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstart(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -347,9 +332,9 @@ type
FunderflowBucket : TPointDistributionUnderflowBucket;
Protected
//Property setters
- Procedure Setbuckets(AIndex : Integer; AValue : TPointDistributionTypebucketsArray); virtual;
- Procedure SetoverflowBucket(AIndex : Integer; AValue : TPointDistributionOverflowBucket); virtual;
- Procedure SetunderflowBucket(AIndex : Integer; AValue : TPointDistributionUnderflowBucket); virtual;
+ Procedure Setbuckets(AIndex : Integer; const AValue : TPointDistributionTypebucketsArray); virtual;
+ Procedure SetoverflowBucket(AIndex : Integer; const AValue : TPointDistributionOverflowBucket); virtual;
+ Procedure SetunderflowBucket(AIndex : Integer; const AValue : TPointDistributionUnderflowBucket); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -374,8 +359,8 @@ type
Protected
//Property setters
Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlowerBound(AIndex : Integer; AValue : double); virtual;
- Procedure SetupperBound(AIndex : Integer; AValue : double); virtual;
+ Procedure SetlowerBound(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetupperBound(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property count : String Index 0 Read Fcount Write Setcount;
@@ -395,7 +380,7 @@ type
Protected
//Property setters
Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlowerBound(AIndex : Integer; AValue : double); virtual;
+ Procedure SetlowerBound(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property count : String Index 0 Read Fcount Write Setcount;
@@ -414,7 +399,7 @@ type
Protected
//Property setters
Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
- Procedure SetupperBound(AIndex : Integer; AValue : double); virtual;
+ Procedure SetupperBound(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property count : String Index 0 Read Fcount Write Setcount;
@@ -432,8 +417,8 @@ type
FtimeseriesDesc : TTimeseriesDescriptor;
Protected
//Property setters
- Procedure Setpoints(AIndex : Integer; AValue : TTimeseriesTypepointsArray); virtual;
- Procedure SettimeseriesDesc(AIndex : Integer; AValue : TTimeseriesDescriptor); virtual;
+ Procedure Setpoints(AIndex : Integer; const AValue : TTimeseriesTypepointsArray); virtual;
+ Procedure SettimeseriesDesc(AIndex : Integer; const AValue : TTimeseriesDescriptor); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -470,7 +455,7 @@ type
Fproject : String;
Protected
//Property setters
- Procedure Setlabels(AIndex : Integer; AValue : TTimeseriesDescriptorTypelabels); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TTimeseriesDescriptorTypelabels); virtual;
Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
Procedure Setproject(AIndex : Integer; const AValue : String); virtual;
Public
@@ -510,8 +495,8 @@ type
FtimeseriesDesc : TTimeseriesDescriptor;
Protected
//Property setters
- Procedure Setpoint(AIndex : Integer; AValue : TPoint); virtual;
- Procedure SettimeseriesDesc(AIndex : Integer; AValue : TTimeseriesDescriptor); virtual;
+ Procedure Setpoint(AIndex : Integer; const AValue : TPoint); virtual;
+ Procedure SettimeseriesDesc(AIndex : Integer; const AValue : TTimeseriesDescriptor); virtual;
Public
Published
Property point : TPoint Index 0 Read Fpoint Write Setpoint;
@@ -543,8 +528,8 @@ type
Ftimeseries : TWriteTimeseriesRequestTypetimeseriesArray;
Protected
//Property setters
- Procedure SetcommonLabels(AIndex : Integer; AValue : TWriteTimeseriesRequestTypecommonLabels); virtual;
- Procedure Settimeseries(AIndex : Integer; AValue : TWriteTimeseriesRequestTypetimeseriesArray); virtual;
+ Procedure SetcommonLabels(AIndex : Integer; const AValue : TWriteTimeseriesRequestTypecommonLabels); virtual;
+ Procedure Settimeseries(AIndex : Integer; const AValue : TWriteTimeseriesRequestTypetimeseriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -750,7 +735,7 @@ end;
-Procedure TListMetricDescriptorsResponse.Setmetrics(AIndex : Integer; AValue : TListMetricDescriptorsResponseTypemetricsArray);
+Procedure TListMetricDescriptorsResponse.Setmetrics(AIndex : Integer; const AValue : TListMetricDescriptorsResponseTypemetricsArray);
begin
If (Fmetrics=AValue) then exit;
@@ -827,7 +812,7 @@ end;
-Procedure TListTimeseriesDescriptorsResponse.Setoldest(AIndex : Integer; AValue : TDatetime);
+Procedure TListTimeseriesDescriptorsResponse.Setoldest(AIndex : Integer; const AValue : TDatetime);
begin
If (Foldest=AValue) then exit;
@@ -837,7 +822,7 @@ end;
-Procedure TListTimeseriesDescriptorsResponse.Settimeseries(AIndex : Integer; AValue : TListTimeseriesDescriptorsResponseTypetimeseriesArray);
+Procedure TListTimeseriesDescriptorsResponse.Settimeseries(AIndex : Integer; const AValue : TListTimeseriesDescriptorsResponseTypetimeseriesArray);
begin
If (Ftimeseries=AValue) then exit;
@@ -847,7 +832,7 @@ end;
-Procedure TListTimeseriesDescriptorsResponse.Setyoungest(AIndex : Integer; AValue : TDatetime);
+Procedure TListTimeseriesDescriptorsResponse.Setyoungest(AIndex : Integer; const AValue : TDatetime);
begin
If (Fyoungest=AValue) then exit;
@@ -914,7 +899,7 @@ end;
-Procedure TListTimeseriesResponse.Setoldest(AIndex : Integer; AValue : TDatetime);
+Procedure TListTimeseriesResponse.Setoldest(AIndex : Integer; const AValue : TDatetime);
begin
If (Foldest=AValue) then exit;
@@ -924,7 +909,7 @@ end;
-Procedure TListTimeseriesResponse.Settimeseries(AIndex : Integer; AValue : TListTimeseriesResponseTypetimeseriesArray);
+Procedure TListTimeseriesResponse.Settimeseries(AIndex : Integer; const AValue : TListTimeseriesResponseTypetimeseriesArray);
begin
If (Ftimeseries=AValue) then exit;
@@ -934,7 +919,7 @@ end;
-Procedure TListTimeseriesResponse.Setyoungest(AIndex : Integer; AValue : TDatetime);
+Procedure TListTimeseriesResponse.Setyoungest(AIndex : Integer; const AValue : TDatetime);
begin
If (Fyoungest=AValue) then exit;
@@ -974,7 +959,7 @@ end;
-Procedure TMetricDescriptor.Setlabels(AIndex : Integer; AValue : TMetricDescriptorTypelabelsArray);
+Procedure TMetricDescriptor.Setlabels(AIndex : Integer; const AValue : TMetricDescriptorTypelabelsArray);
begin
If (Flabels=AValue) then exit;
@@ -1004,7 +989,7 @@ end;
-Procedure TMetricDescriptor.SettypeDescriptor(AIndex : Integer; AValue : TMetricDescriptorTypeDescriptor);
+Procedure TMetricDescriptor.SettypeDescriptor(AIndex : Integer; const AValue : TMetricDescriptorTypeDescriptor);
begin
If (FtypeDescriptor=AValue) then exit;
@@ -1088,7 +1073,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPoint.SetboolValue(AIndex : Integer; AValue : boolean);
+Procedure TPoint.SetboolValue(AIndex : Integer; const AValue : boolean);
begin
If (FboolValue=AValue) then exit;
@@ -1098,7 +1083,7 @@ end;
-Procedure TPoint.SetdistributionValue(AIndex : Integer; AValue : TPointDistribution);
+Procedure TPoint.SetdistributionValue(AIndex : Integer; const AValue : TPointDistribution);
begin
If (FdistributionValue=AValue) then exit;
@@ -1108,7 +1093,7 @@ end;
-Procedure TPoint.SetdoubleValue(AIndex : Integer; AValue : double);
+Procedure TPoint.SetdoubleValue(AIndex : Integer; const AValue : double);
begin
If (FdoubleValue=AValue) then exit;
@@ -1118,7 +1103,7 @@ end;
-Procedure TPoint.Set_end(AIndex : Integer; AValue : TDatetime);
+Procedure TPoint.Set_end(AIndex : Integer; const AValue : TDatetime);
begin
If (F_end=AValue) then exit;
@@ -1138,7 +1123,7 @@ end;
-Procedure TPoint.Setstart(AIndex : Integer; AValue : TDatetime);
+Procedure TPoint.Setstart(AIndex : Integer; const AValue : TDatetime);
begin
If (Fstart=AValue) then exit;
@@ -1176,7 +1161,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPointDistribution.Setbuckets(AIndex : Integer; AValue : TPointDistributionTypebucketsArray);
+Procedure TPointDistribution.Setbuckets(AIndex : Integer; const AValue : TPointDistributionTypebucketsArray);
begin
If (Fbuckets=AValue) then exit;
@@ -1186,7 +1171,7 @@ end;
-Procedure TPointDistribution.SetoverflowBucket(AIndex : Integer; AValue : TPointDistributionOverflowBucket);
+Procedure TPointDistribution.SetoverflowBucket(AIndex : Integer; const AValue : TPointDistributionOverflowBucket);
begin
If (FoverflowBucket=AValue) then exit;
@@ -1196,7 +1181,7 @@ end;
-Procedure TPointDistribution.SetunderflowBucket(AIndex : Integer; AValue : TPointDistributionUnderflowBucket);
+Procedure TPointDistribution.SetunderflowBucket(AIndex : Integer; const AValue : TPointDistributionUnderflowBucket);
begin
If (FunderflowBucket=AValue) then exit;
@@ -1236,7 +1221,7 @@ end;
-Procedure TPointDistributionBucket.SetlowerBound(AIndex : Integer; AValue : double);
+Procedure TPointDistributionBucket.SetlowerBound(AIndex : Integer; const AValue : double);
begin
If (FlowerBound=AValue) then exit;
@@ -1246,7 +1231,7 @@ end;
-Procedure TPointDistributionBucket.SetupperBound(AIndex : Integer; AValue : double);
+Procedure TPointDistributionBucket.SetupperBound(AIndex : Integer; const AValue : double);
begin
If (FupperBound=AValue) then exit;
@@ -1273,7 +1258,7 @@ end;
-Procedure TPointDistributionOverflowBucket.SetlowerBound(AIndex : Integer; AValue : double);
+Procedure TPointDistributionOverflowBucket.SetlowerBound(AIndex : Integer; const AValue : double);
begin
If (FlowerBound=AValue) then exit;
@@ -1300,7 +1285,7 @@ end;
-Procedure TPointDistributionUnderflowBucket.SetupperBound(AIndex : Integer; AValue : double);
+Procedure TPointDistributionUnderflowBucket.SetupperBound(AIndex : Integer; const AValue : double);
begin
If (FupperBound=AValue) then exit;
@@ -1317,7 +1302,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTimeseries.Setpoints(AIndex : Integer; AValue : TTimeseriesTypepointsArray);
+Procedure TTimeseries.Setpoints(AIndex : Integer; const AValue : TTimeseriesTypepointsArray);
begin
If (Fpoints=AValue) then exit;
@@ -1327,7 +1312,7 @@ end;
-Procedure TTimeseries.SettimeseriesDesc(AIndex : Integer; AValue : TTimeseriesDescriptor);
+Procedure TTimeseries.SettimeseriesDesc(AIndex : Integer; const AValue : TTimeseriesDescriptor);
begin
If (FtimeseriesDesc=AValue) then exit;
@@ -1370,7 +1355,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTimeseriesDescriptor.Setlabels(AIndex : Integer; AValue : TTimeseriesDescriptorTypelabels);
+Procedure TTimeseriesDescriptor.Setlabels(AIndex : Integer; const AValue : TTimeseriesDescriptorTypelabels);
begin
If (Flabels=AValue) then exit;
@@ -1434,7 +1419,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTimeseriesPoint.Setpoint(AIndex : Integer; AValue : TPoint);
+Procedure TTimeseriesPoint.Setpoint(AIndex : Integer; const AValue : TPoint);
begin
If (Fpoint=AValue) then exit;
@@ -1444,7 +1429,7 @@ end;
-Procedure TTimeseriesPoint.SettimeseriesDesc(AIndex : Integer; AValue : TTimeseriesDescriptor);
+Procedure TTimeseriesPoint.SettimeseriesDesc(AIndex : Integer; const AValue : TTimeseriesDescriptor);
begin
If (FtimeseriesDesc=AValue) then exit;
@@ -1474,7 +1459,7 @@ end;
--------------------------------------------------------------------}
-Procedure TWriteTimeseriesRequest.SetcommonLabels(AIndex : Integer; AValue : TWriteTimeseriesRequestTypecommonLabels);
+Procedure TWriteTimeseriesRequest.SetcommonLabels(AIndex : Integer; const AValue : TWriteTimeseriesRequestTypecommonLabels);
begin
If (FcommonLabels=AValue) then exit;
@@ -1484,7 +1469,7 @@ end;
-Procedure TWriteTimeseriesRequest.Settimeseries(AIndex : Integer; AValue : TWriteTimeseriesRequestTypetimeseriesArray);
+Procedure TWriteTimeseriesRequest.Settimeseries(AIndex : Integer; const AValue : TWriteTimeseriesRequestTypetimeseriesArray);
begin
If (Ftimeseries=AValue) then exit;
@@ -1744,7 +1729,7 @@ end;
Class Function TCloudmonitoringAPI.APIRevision : String;
begin
- Result:='20150210';
+ Result:='20160415';
end;
Class Function TCloudmonitoringAPI.APIID : String;
@@ -1762,7 +1747,7 @@ end;
Class Function TCloudmonitoringAPI.APIDescription : String;
begin
- Result:='API for accessing Google Cloud and API monitoring data.';
+ Result:='Accesses Google Cloud Monitoring data.';
end;
Class Function TCloudmonitoringAPI.APIOwnerDomain : String;
@@ -1798,7 +1783,7 @@ end;
Class Function TCloudmonitoringAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TCloudmonitoringAPI.APIbasePath : string;
@@ -1810,7 +1795,7 @@ end;
Class Function TCloudmonitoringAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/cloudmonitoring/v2beta2/projects/';
+ Result:='https://www.googleapis.com/cloudmonitoring/v2beta2/projects/';
end;
Class Function TCloudmonitoringAPI.APIProtocol : string;
@@ -1834,9 +1819,11 @@ end;
Class Function TCloudmonitoringAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,1);
- Result[0].Name:='https://www.googleapis.com/auth/monitoring';
- Result[0].Description:='View and write monitoring data for all of your Google and third-party Cloud and API projects';
+ SetLength(Result,2);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+ Result[1].Name:='https://www.googleapis.com/auth/monitoring';
+ Result[1].Description:='View and write monitoring data for all of your Google and third-party Cloud and API projects';
end;
diff --git a/packages/googleapi/src/googlecloudresourcemanager.pp b/packages/googleapi/src/googlecloudresourcemanager.pp
new file mode 100644
index 0000000000..9c24e74af2
--- /dev/null
+++ b/packages/googleapi/src/googlecloudresourcemanager.pp
@@ -0,0 +1,1015 @@
+unit googlecloudresourcemanager;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TProject = Class;
+ TResourceId = Class;
+ TListProjectsResponse = Class;
+ TEmpty = Class;
+ TUndeleteProjectRequest = Class;
+ TGetIamPolicyRequest = Class;
+ TPolicy = Class;
+ TBinding = Class;
+ TSetIamPolicyRequest = Class;
+ TTestIamPermissionsRequest = Class;
+ TTestIamPermissionsResponse = Class;
+ TProjectArray = Array of TProject;
+ TResourceIdArray = Array of TResourceId;
+ TListProjectsResponseArray = Array of TListProjectsResponse;
+ TEmptyArray = Array of TEmpty;
+ TUndeleteProjectRequestArray = Array of TUndeleteProjectRequest;
+ TGetIamPolicyRequestArray = Array of TGetIamPolicyRequest;
+ TPolicyArray = Array of TPolicy;
+ TBindingArray = Array of TBinding;
+ TSetIamPolicyRequestArray = Array of TSetIamPolicyRequest;
+ TTestIamPermissionsRequestArray = Array of TTestIamPermissionsRequest;
+ TTestIamPermissionsResponseArray = Array of TTestIamPermissionsResponse;
+ //Anonymous types, using auto-generated names
+ TProjectTypelabels = Class;
+ TListProjectsResponseTypeprojectsArray = Array of TProject;
+ TPolicyTypebindingsArray = Array of TBinding;
+
+ { --------------------------------------------------------------------
+ TProjectTypelabels
+ --------------------------------------------------------------------}
+
+ TProjectTypelabels = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TProjectTypelabelsClass = Class of TProjectTypelabels;
+
+ { --------------------------------------------------------------------
+ TProject
+ --------------------------------------------------------------------}
+
+ TProject = Class(TGoogleBaseObject)
+ Private
+ FprojectNumber : String;
+ FprojectId : String;
+ FlifecycleState : String;
+ Fname : String;
+ FcreateTime : String;
+ Flabels : TProjectTypelabels;
+ Fparent : TResourceId;
+ Protected
+ //Property setters
+ Procedure SetprojectNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlifecycleState(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TProjectTypelabels); virtual;
+ Procedure Setparent(AIndex : Integer; const AValue : TResourceId); virtual;
+ Public
+ Published
+ Property projectNumber : String Index 0 Read FprojectNumber Write SetprojectNumber;
+ Property projectId : String Index 8 Read FprojectId Write SetprojectId;
+ Property lifecycleState : String Index 16 Read FlifecycleState Write SetlifecycleState;
+ Property name : String Index 24 Read Fname Write Setname;
+ Property createTime : String Index 32 Read FcreateTime Write SetcreateTime;
+ Property labels : TProjectTypelabels Index 40 Read Flabels Write Setlabels;
+ Property parent : TResourceId Index 48 Read Fparent Write Setparent;
+ end;
+ TProjectClass = Class of TProject;
+
+ { --------------------------------------------------------------------
+ TResourceId
+ --------------------------------------------------------------------}
+
+ TResourceId = 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;
+ TResourceIdClass = Class of TResourceId;
+
+ { --------------------------------------------------------------------
+ TListProjectsResponse
+ --------------------------------------------------------------------}
+
+ TListProjectsResponse = Class(TGoogleBaseObject)
+ Private
+ Fprojects : TListProjectsResponseTypeprojectsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setprojects(AIndex : Integer; const AValue : TListProjectsResponseTypeprojectsArray); 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 projects : TListProjectsResponseTypeprojectsArray Index 0 Read Fprojects Write Setprojects;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListProjectsResponseClass = Class of TListProjectsResponse;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TUndeleteProjectRequest
+ --------------------------------------------------------------------}
+
+ TUndeleteProjectRequest = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TUndeleteProjectRequestClass = Class of TUndeleteProjectRequest;
+
+ { --------------------------------------------------------------------
+ TGetIamPolicyRequest
+ --------------------------------------------------------------------}
+
+ TGetIamPolicyRequest = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TGetIamPolicyRequestClass = Class of TGetIamPolicyRequest;
+
+ { --------------------------------------------------------------------
+ TPolicy
+ --------------------------------------------------------------------}
+
+ TPolicy = Class(TGoogleBaseObject)
+ Private
+ Fversion : integer;
+ Fbindings : TPolicyTypebindingsArray;
+ Fetag : String;
+ Protected
+ //Property setters
+ Procedure Setversion(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray); virtual;
+ Procedure Setetag(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 version : integer Index 0 Read Fversion Write Setversion;
+ Property bindings : TPolicyTypebindingsArray Index 8 Read Fbindings Write Setbindings;
+ Property etag : String Index 16 Read Fetag Write Setetag;
+ end;
+ TPolicyClass = Class of TPolicy;
+
+ { --------------------------------------------------------------------
+ TBinding
+ --------------------------------------------------------------------}
+
+ TBinding = Class(TGoogleBaseObject)
+ Private
+ Frole : String;
+ Fmembers : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmembers(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 role : String Index 0 Read Frole Write Setrole;
+ Property members : TStringArray Index 8 Read Fmembers Write Setmembers;
+ end;
+ TBindingClass = Class of TBinding;
+
+ { --------------------------------------------------------------------
+ TSetIamPolicyRequest
+ --------------------------------------------------------------------}
+
+ TSetIamPolicyRequest = Class(TGoogleBaseObject)
+ Private
+ Fpolicy : TPolicy;
+ Protected
+ //Property setters
+ Procedure Setpolicy(AIndex : Integer; const AValue : TPolicy); virtual;
+ Public
+ Published
+ Property policy : TPolicy Index 0 Read Fpolicy Write Setpolicy;
+ end;
+ TSetIamPolicyRequestClass = Class of TSetIamPolicyRequest;
+
+ { --------------------------------------------------------------------
+ TTestIamPermissionsRequest
+ --------------------------------------------------------------------}
+
+ TTestIamPermissionsRequest = Class(TGoogleBaseObject)
+ Private
+ Fpermissions : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setpermissions(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 permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
+ end;
+ TTestIamPermissionsRequestClass = Class of TTestIamPermissionsRequest;
+
+ { --------------------------------------------------------------------
+ TTestIamPermissionsResponse
+ --------------------------------------------------------------------}
+
+ TTestIamPermissionsResponse = Class(TGoogleBaseObject)
+ Private
+ Fpermissions : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setpermissions(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 permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
+ end;
+ TTestIamPermissionsResponseClass = Class of TTestIamPermissionsResponse;
+
+ { --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsResource, method List
+
+ TProjectsListOptions = Record
+ pageToken : String;
+ pageSize : integer;
+ filter : String;
+ end;
+
+ TProjectsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(projectId: string) : TProject;
+ Function List(AQuery : string = '') : TListProjectsResponse;
+ Function List(AQuery : TProjectslistOptions) : TListProjectsResponse;
+ Function Update(projectId: string; aProject : TProject) : TProject;
+ Function Delete(projectId: string) : TEmpty;
+ Function Undelete(projectId: string; aUndeleteProjectRequest : TUndeleteProjectRequest) : TEmpty;
+ Function GetIamPolicy(resource: string; aGetIamPolicyRequest : TGetIamPolicyRequest) : TPolicy;
+ Function SetIamPolicy(resource: string; aSetIamPolicyRequest : TSetIamPolicyRequest) : TPolicy;
+ Function TestIamPermissions(resource: string; aTestIamPermissionsRequest : TTestIamPermissionsRequest) : TTestIamPermissionsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCloudresourcemanagerAPI
+ --------------------------------------------------------------------}
+
+ TCloudresourcemanagerAPI = Class(TGoogleAPI)
+ Private
+ FProjectsInstance : TProjectsResource;
+ Function GetProjectsInstance : TProjectsResource;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 CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TProjectTypelabels
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectTypelabels.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProject
+ --------------------------------------------------------------------}
+
+
+Procedure TProject.SetprojectNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectNumber=AValue) then exit;
+ FprojectNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProject.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProject.SetlifecycleState(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlifecycleState=AValue) then exit;
+ FlifecycleState:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProject.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProject.SetcreateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProject.Setlabels(AIndex : Integer; const AValue : TProjectTypelabels);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProject.Setparent(AIndex : Integer; const AValue : TResourceId);
+
+begin
+ If (Fparent=AValue) then exit;
+ Fparent:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TResourceId
+ --------------------------------------------------------------------}
+
+
+Procedure TResourceId.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResourceId.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TResourceId.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TListProjectsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListProjectsResponse.Setprojects(AIndex : Integer; const AValue : TListProjectsResponseTypeprojectsArray);
+
+begin
+ If (Fprojects=AValue) then exit;
+ Fprojects:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListProjectsResponse.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 TListProjectsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'projects' : SetLength(Fprojects,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TUndeleteProjectRequest
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGetIamPolicyRequest
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPolicy
+ --------------------------------------------------------------------}
+
+
+Procedure TPolicy.Setversion(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fversion=AValue) then exit;
+ Fversion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPolicy.Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray);
+
+begin
+ If (Fbindings=AValue) then exit;
+ Fbindings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPolicy.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPolicy.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'bindings' : SetLength(Fbindings,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBinding
+ --------------------------------------------------------------------}
+
+
+Procedure TBinding.Setrole(AIndex : Integer; const AValue : String);
+
+begin
+ If (Frole=AValue) then exit;
+ Frole:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBinding.Setmembers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fmembers=AValue) then exit;
+ Fmembers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBinding.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'members' : SetLength(Fmembers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSetIamPolicyRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSetIamPolicyRequest.Setpolicy(AIndex : Integer; const AValue : TPolicy);
+
+begin
+ If (Fpolicy=AValue) then exit;
+ Fpolicy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestIamPermissionsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TTestIamPermissionsRequest.Setpermissions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestIamPermissionsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'permissions' : SetLength(Fpermissions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestIamPermissionsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TTestIamPermissionsResponse.Setpermissions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestIamPermissionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'permissions' : SetLength(Fpermissions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcloudresourcemanagerAPI;
+end;
+
+Function TProjectsResource.Get(projectId: string) : TProject;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}';
+ _Methodid = 'cloudresourcemanager.projects.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProject) as TProject;
+end;
+
+Function TProjectsResource.List(AQuery : string = '') : TListProjectsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects';
+ _Methodid = 'cloudresourcemanager.projects.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListProjectsResponse) as TListProjectsResponse;
+end;
+
+
+Function TProjectsResource.List(AQuery : TProjectslistOptions) : TListProjectsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'filter',AQuery.filter);
+ Result:=List(_Q);
+end;
+
+Function TProjectsResource.Update(projectId: string; aProject : TProject) : TProject;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v1/projects/{projectId}';
+ _Methodid = 'cloudresourcemanager.projects.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aProject,TProject) as TProject;
+end;
+
+Function TProjectsResource.Delete(projectId: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/projects/{projectId}';
+ _Methodid = 'cloudresourcemanager.projects.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+Function TProjectsResource.Undelete(projectId: string; aUndeleteProjectRequest : TUndeleteProjectRequest) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{projectId}:undelete';
+ _Methodid = 'cloudresourcemanager.projects.undelete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aUndeleteProjectRequest,TEmpty) as TEmpty;
+end;
+
+Function TProjectsResource.GetIamPolicy(resource: string; aGetIamPolicyRequest : TGetIamPolicyRequest) : TPolicy;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{resource}:getIamPolicy';
+ _Methodid = 'cloudresourcemanager.projects.getIamPolicy';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aGetIamPolicyRequest,TPolicy) as TPolicy;
+end;
+
+Function TProjectsResource.SetIamPolicy(resource: string; aSetIamPolicyRequest : TSetIamPolicyRequest) : TPolicy;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{resource}:setIamPolicy';
+ _Methodid = 'cloudresourcemanager.projects.setIamPolicy';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSetIamPolicyRequest,TPolicy) as TPolicy;
+end;
+
+Function TProjectsResource.TestIamPermissions(resource: string; aTestIamPermissionsRequest : TTestIamPermissionsRequest) : TTestIamPermissionsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{resource}:testIamPermissions';
+ _Methodid = 'cloudresourcemanager.projects.testIamPermissions';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTestIamPermissionsRequest,TTestIamPermissionsResponse) as TTestIamPermissionsResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCloudresourcemanagerAPI
+ --------------------------------------------------------------------}
+
+Class Function TCloudresourcemanagerAPI.APIName : String;
+
+begin
+ Result:='cloudresourcemanager';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIRevision : String;
+
+begin
+ Result:='20160518';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIID : String;
+
+begin
+ Result:='cloudresourcemanager:v1';
+end;
+
+Class Function TCloudresourcemanagerAPI.APITitle : String;
+
+begin
+ Result:='Google Cloud Resource Manager API';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIDescription : String;
+
+begin
+ Result:='The Google Cloud Resource Manager API provides methods for creating, reading, and updating project metadata.';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/resource-manager';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIrootUrl : string;
+
+begin
+ Result:='https://cloudresourcemanager.googleapis.com/';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIbaseURL : String;
+
+begin
+ Result:='https://cloudresourcemanager.googleapis.com/';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TCloudresourcemanagerAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,2);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+ Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
+ Result[1].Description:='View your data across Google Cloud Platform services';
+
+end;
+
+Class Function TCloudresourcemanagerAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TCloudresourcemanagerAPI.RegisterAPIResources;
+
+begin
+ TProjectTypelabels.RegisterObject;
+ TProject.RegisterObject;
+ TResourceId.RegisterObject;
+ TListProjectsResponse.RegisterObject;
+ TEmpty.RegisterObject;
+ TUndeleteProjectRequest.RegisterObject;
+ TGetIamPolicyRequest.RegisterObject;
+ TPolicy.RegisterObject;
+ TBinding.RegisterObject;
+ TSetIamPolicyRequest.RegisterObject;
+ TTestIamPermissionsRequest.RegisterObject;
+ TTestIamPermissionsResponse.RegisterObject;
+end;
+
+
+Function TCloudresourcemanagerAPI.GetProjectsInstance : TProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TCloudresourcemanagerAPI.CreateProjectsResource : TProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TCloudresourcemanagerAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+
+begin
+ Result:=TProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TCloudresourcemanagerAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlecloudtrace.pp b/packages/googleapi/src/googlecloudtrace.pp
new file mode 100644
index 0000000000..8c077325ec
--- /dev/null
+++ b/packages/googleapi/src/googlecloudtrace.pp
@@ -0,0 +1,777 @@
+unit googlecloudtrace;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TListTracesResponse = Class;
+ TTrace = Class;
+ TTraceSpan = Class;
+ TTraces = Class;
+ TEmpty = Class;
+ TListTracesResponseArray = Array of TListTracesResponse;
+ TTraceArray = Array of TTrace;
+ TTraceSpanArray = Array of TTraceSpan;
+ TTracesArray = Array of TTraces;
+ TEmptyArray = Array of TEmpty;
+ //Anonymous types, using auto-generated names
+ TTraceSpanTypelabels = Class;
+ TListTracesResponseTypetracesArray = Array of TTrace;
+ TTraceTypespansArray = Array of TTraceSpan;
+ TTracesTypetracesArray = Array of TTrace;
+
+ { --------------------------------------------------------------------
+ TListTracesResponse
+ --------------------------------------------------------------------}
+
+ TListTracesResponse = Class(TGoogleBaseObject)
+ Private
+ Ftraces : TListTracesResponseTypetracesArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Settraces(AIndex : Integer; const AValue : TListTracesResponseTypetracesArray); 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 traces : TListTracesResponseTypetracesArray Index 0 Read Ftraces Write Settraces;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListTracesResponseClass = Class of TListTracesResponse;
+
+ { --------------------------------------------------------------------
+ TTrace
+ --------------------------------------------------------------------}
+
+ TTrace = Class(TGoogleBaseObject)
+ Private
+ FprojectId : String;
+ FtraceId : String;
+ Fspans : TTraceTypespansArray;
+ Protected
+ //Property setters
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettraceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setspans(AIndex : Integer; const AValue : TTraceTypespansArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property projectId : String Index 0 Read FprojectId Write SetprojectId;
+ Property traceId : String Index 8 Read FtraceId Write SettraceId;
+ Property spans : TTraceTypespansArray Index 16 Read Fspans Write Setspans;
+ end;
+ TTraceClass = Class of TTrace;
+
+ { --------------------------------------------------------------------
+ TTraceSpanTypelabels
+ --------------------------------------------------------------------}
+
+ TTraceSpanTypelabels = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TTraceSpanTypelabelsClass = Class of TTraceSpanTypelabels;
+
+ { --------------------------------------------------------------------
+ TTraceSpan
+ --------------------------------------------------------------------}
+
+ TTraceSpan = Class(TGoogleBaseObject)
+ Private
+ FspanId : String;
+ Fkind : String;
+ Fname : String;
+ FstartTime : String;
+ FendTime : String;
+ FparentSpanId : String;
+ Flabels : TTraceSpanTypelabels;
+ Protected
+ //Property setters
+ Procedure SetspanId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetparentSpanId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TTraceSpanTypelabels); virtual;
+ Public
+ Published
+ Property spanId : String Index 0 Read FspanId Write SetspanId;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property name : String Index 16 Read Fname Write Setname;
+ Property startTime : String Index 24 Read FstartTime Write SetstartTime;
+ Property endTime : String Index 32 Read FendTime Write SetendTime;
+ Property parentSpanId : String Index 40 Read FparentSpanId Write SetparentSpanId;
+ Property labels : TTraceSpanTypelabels Index 48 Read Flabels Write Setlabels;
+ end;
+ TTraceSpanClass = Class of TTraceSpan;
+
+ { --------------------------------------------------------------------
+ TTraces
+ --------------------------------------------------------------------}
+
+ TTraces = Class(TGoogleBaseObject)
+ Private
+ Ftraces : TTracesTypetracesArray;
+ Protected
+ //Property setters
+ Procedure Settraces(AIndex : Integer; const AValue : TTracesTypetracesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property traces : TTracesTypetracesArray Index 0 Read Ftraces Write Settraces;
+ end;
+ TTracesClass = Class of TTraces;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TProjectsTracesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsTracesResource, method List
+
+ TProjectsTracesListOptions = Record
+ view : String;
+ pageSize : integer;
+ pageToken : String;
+ startTime : String;
+ endTime : String;
+ filter : String;
+ orderBy : String;
+ end;
+
+ TProjectsTracesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(projectId: string; AQuery : string = '') : TListTracesResponse;
+ Function List(projectId: string; AQuery : TProjectsTraceslistOptions) : TListTracesResponse;
+ Function Get(projectId: string; traceId: string) : TTrace;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+ TProjectsResource = Class(TGoogleResource)
+ Private
+ FTracesInstance : TProjectsTracesResource;
+ Function GetTracesInstance : TProjectsTracesResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function PatchTraces(projectId: string; aTraces : TTraces) : TEmpty;
+ Function CreateTracesResource(AOwner : TComponent) : TProjectsTracesResource;virtual;overload;
+ Function CreateTracesResource : TProjectsTracesResource;virtual;overload;
+ Property TracesResource : TProjectsTracesResource Read GetTracesInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCloudtraceAPI
+ --------------------------------------------------------------------}
+
+ TCloudtraceAPI = Class(TGoogleAPI)
+ Private
+ FProjectsTracesInstance : TProjectsTracesResource;
+ FProjectsInstance : TProjectsResource;
+ Function GetProjectsTracesInstance : TProjectsTracesResource;virtual;
+ Function GetProjectsInstance : TProjectsResource;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 CreateProjectsTracesResource(AOwner : TComponent) : TProjectsTracesResource;virtual;overload;
+ Function CreateProjectsTracesResource : TProjectsTracesResource;virtual;overload;
+ Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ProjectsTracesResource : TProjectsTracesResource Read GetProjectsTracesInstance;
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TListTracesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListTracesResponse.Settraces(AIndex : Integer; const AValue : TListTracesResponseTypetracesArray);
+
+begin
+ If (Ftraces=AValue) then exit;
+ Ftraces:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListTracesResponse.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 TListTracesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'traces' : SetLength(Ftraces,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTrace
+ --------------------------------------------------------------------}
+
+
+Procedure TTrace.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTrace.SettraceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtraceId=AValue) then exit;
+ FtraceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTrace.Setspans(AIndex : Integer; const AValue : TTraceTypespansArray);
+
+begin
+ If (Fspans=AValue) then exit;
+ Fspans:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTrace.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'spans' : SetLength(Fspans,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTraceSpanTypelabels
+ --------------------------------------------------------------------}
+
+
+Class Function TTraceSpanTypelabels.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TTraceSpan
+ --------------------------------------------------------------------}
+
+
+Procedure TTraceSpan.SetspanId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FspanId=AValue) then exit;
+ FspanId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTraceSpan.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTraceSpan.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTraceSpan.SetstartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTime=AValue) then exit;
+ FstartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTraceSpan.SetendTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTraceSpan.SetparentSpanId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FparentSpanId=AValue) then exit;
+ FparentSpanId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTraceSpan.Setlabels(AIndex : Integer; const AValue : TTraceSpanTypelabels);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTraces
+ --------------------------------------------------------------------}
+
+
+Procedure TTraces.Settraces(AIndex : Integer; const AValue : TTracesTypetracesArray);
+
+begin
+ If (Ftraces=AValue) then exit;
+ Ftraces:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTraces.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'traces' : SetLength(Ftraces,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsTracesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsTracesResource.ResourceName : String;
+
+begin
+ Result:='traces';
+end;
+
+Class Function TProjectsTracesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcloudtraceAPI;
+end;
+
+Function TProjectsTracesResource.List(projectId: string; AQuery : string = '') : TListTracesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/traces';
+ _Methodid = 'cloudtrace.projects.traces.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListTracesResponse) as TListTracesResponse;
+end;
+
+
+Function TProjectsTracesResource.List(projectId: string; AQuery : TProjectsTraceslistOptions) : TListTracesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'view',AQuery.view);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'startTime',AQuery.startTime);
+ AddToQuery(_Q,'endTime',AQuery.endTime);
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ Result:=List(projectId,_Q);
+end;
+
+Function TProjectsTracesResource.Get(projectId: string; traceId: string) : TTrace;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/traces/{traceId}';
+ _Methodid = 'cloudtrace.projects.traces.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'traceId',traceId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTrace) as TTrace;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcloudtraceAPI;
+end;
+
+Function TProjectsResource.PatchTraces(projectId: string; aTraces : TTraces) : TEmpty;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'v1/projects/{projectId}/traces';
+ _Methodid = 'cloudtrace.projects.patchTraces';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTraces,TEmpty) as TEmpty;
+end;
+
+
+
+Function TProjectsResource.GetTracesInstance : TProjectsTracesResource;
+
+begin
+ if (FTracesInstance=Nil) then
+ FTracesInstance:=CreateTracesResource;
+ Result:=FTracesInstance;
+end;
+
+Function TProjectsResource.CreateTracesResource : TProjectsTracesResource;
+
+begin
+ Result:=CreateTracesResource(Self);
+end;
+
+
+Function TProjectsResource.CreateTracesResource(AOwner : TComponent) : TProjectsTracesResource;
+
+begin
+ Result:=TProjectsTracesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCloudtraceAPI
+ --------------------------------------------------------------------}
+
+Class Function TCloudtraceAPI.APIName : String;
+
+begin
+ Result:='cloudtrace';
+end;
+
+Class Function TCloudtraceAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TCloudtraceAPI.APIRevision : String;
+
+begin
+ Result:='20160518';
+end;
+
+Class Function TCloudtraceAPI.APIID : String;
+
+begin
+ Result:='cloudtrace:v1';
+end;
+
+Class Function TCloudtraceAPI.APITitle : String;
+
+begin
+ Result:='Google Cloud Trace API';
+end;
+
+Class Function TCloudtraceAPI.APIDescription : String;
+
+begin
+ Result:='Send and retrieve trace data from Google Cloud Trace. Data is generated and available by default for all App Engine applications. Data from other applications can be written to Cloud Trace for display, reporting, and analysis.';
+end;
+
+Class Function TCloudtraceAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TCloudtraceAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TCloudtraceAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TCloudtraceAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TCloudtraceAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/tools/cloud-trace';
+end;
+
+Class Function TCloudtraceAPI.APIrootUrl : string;
+
+begin
+ Result:='https://cloudtrace.googleapis.com/';
+end;
+
+Class Function TCloudtraceAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TCloudtraceAPI.APIbaseURL : String;
+
+begin
+ Result:='https://cloudtrace.googleapis.com/';
+end;
+
+Class Function TCloudtraceAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TCloudtraceAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TCloudtraceAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TCloudtraceAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,3);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+ Result[1].Name:='https://www.googleapis.com/auth/trace.append';
+ Result[1].Description:='Write Trace data for a project or application';
+ Result[2].Name:='https://www.googleapis.com/auth/trace.readonly';
+ Result[2].Description:='Read Trace data for a project or application';
+
+end;
+
+Class Function TCloudtraceAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TCloudtraceAPI.RegisterAPIResources;
+
+begin
+ TListTracesResponse.RegisterObject;
+ TTrace.RegisterObject;
+ TTraceSpanTypelabels.RegisterObject;
+ TTraceSpan.RegisterObject;
+ TTraces.RegisterObject;
+ TEmpty.RegisterObject;
+end;
+
+
+Function TCloudtraceAPI.GetProjectsTracesInstance : TProjectsTracesResource;
+
+begin
+ if (FProjectsTracesInstance=Nil) then
+ FProjectsTracesInstance:=CreateProjectsTracesResource;
+ Result:=FProjectsTracesInstance;
+end;
+
+Function TCloudtraceAPI.CreateProjectsTracesResource : TProjectsTracesResource;
+
+begin
+ Result:=CreateProjectsTracesResource(Self);
+end;
+
+
+Function TCloudtraceAPI.CreateProjectsTracesResource(AOwner : TComponent) : TProjectsTracesResource;
+
+begin
+ Result:=TProjectsTracesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TCloudtraceAPI.GetProjectsInstance : TProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TCloudtraceAPI.CreateProjectsResource : TProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TCloudtraceAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+
+begin
+ Result:=TProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TCloudtraceAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleclouduseraccounts.pp b/packages/googleapi/src/googleclouduseraccounts.pp
new file mode 100644
index 0000000000..601eb572ad
--- /dev/null
+++ b/packages/googleapi/src/googleclouduseraccounts.pp
@@ -0,0 +1,3420 @@
+unit googleclouduseraccounts;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TAuditConfig = Class;
+ TAuthorizedKeysView = Class;
+ TBinding = Class;
+ TCondition = Class;
+ TGroup = Class;
+ TGroupList = Class;
+ TGroupsAddMemberRequest = Class;
+ TGroupsRemoveMemberRequest = Class;
+ TLinuxAccountViews = Class;
+ TLinuxGetAuthorizedKeysViewResponse = Class;
+ TLinuxGetLinuxAccountViewsResponse = Class;
+ TLinuxGroupView = Class;
+ TLinuxUserView = Class;
+ TLogConfig = Class;
+ TLogConfigCounterOptions = Class;
+ TOperation = Class;
+ TOperationList = Class;
+ TPolicy = Class;
+ TPublicKey = Class;
+ TRule = Class;
+ TTestPermissionsRequest = Class;
+ TTestPermissionsResponse = Class;
+ TUser = Class;
+ TUserList = Class;
+ TAuditConfigArray = Array of TAuditConfig;
+ TAuthorizedKeysViewArray = Array of TAuthorizedKeysView;
+ TBindingArray = Array of TBinding;
+ TConditionArray = Array of TCondition;
+ TGroupArray = Array of TGroup;
+ TGroupListArray = Array of TGroupList;
+ TGroupsAddMemberRequestArray = Array of TGroupsAddMemberRequest;
+ TGroupsRemoveMemberRequestArray = Array of TGroupsRemoveMemberRequest;
+ TLinuxAccountViewsArray = Array of TLinuxAccountViews;
+ TLinuxGetAuthorizedKeysViewResponseArray = Array of TLinuxGetAuthorizedKeysViewResponse;
+ TLinuxGetLinuxAccountViewsResponseArray = Array of TLinuxGetLinuxAccountViewsResponse;
+ TLinuxGroupViewArray = Array of TLinuxGroupView;
+ TLinuxUserViewArray = Array of TLinuxUserView;
+ TLogConfigArray = Array of TLogConfig;
+ TLogConfigCounterOptionsArray = Array of TLogConfigCounterOptions;
+ TOperationArray = Array of TOperation;
+ TOperationListArray = Array of TOperationList;
+ TPolicyArray = Array of TPolicy;
+ TPublicKeyArray = Array of TPublicKey;
+ TRuleArray = Array of TRule;
+ TTestPermissionsRequestArray = Array of TTestPermissionsRequest;
+ TTestPermissionsResponseArray = Array of TTestPermissionsResponse;
+ TUserArray = Array of TUser;
+ TUserListArray = Array of TUserList;
+ //Anonymous types, using auto-generated names
+ TOperationTypeerrorTypeerrorsItem = Class;
+ TOperationTypeerror = Class;
+ TOperationTypewarningsItemTypedataItem = Class;
+ TOperationTypewarningsItem = Class;
+ TGroupListTypeitemsArray = Array of TGroup;
+ TLinuxAccountViewsTypegroupViewsArray = Array of TLinuxGroupView;
+ TLinuxAccountViewsTypeuserViewsArray = Array of TLinuxUserView;
+ TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
+ TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
+ TOperationTypewarningsArray = Array of TOperationTypewarningsItem;
+ TOperationListTypeitemsArray = Array of TOperation;
+ TPolicyTypeauditConfigsArray = Array of TAuditConfig;
+ TPolicyTypebindingsArray = Array of TBinding;
+ TPolicyTyperulesArray = Array of TRule;
+ TRuleTypeconditionsArray = Array of TCondition;
+ TRuleTypelogConfigsArray = Array of TLogConfig;
+ TUserTypepublicKeysArray = Array of TPublicKey;
+ TUserListTypeitemsArray = Array of TUser;
+
+ { --------------------------------------------------------------------
+ TAuditConfig
+ --------------------------------------------------------------------}
+
+ TAuditConfig = Class(TGoogleBaseObject)
+ Private
+ FexemptedMembers : TStringArray;
+ Fservice : String;
+ Protected
+ //Property setters
+ Procedure SetexemptedMembers(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setservice(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 exemptedMembers : TStringArray Index 0 Read FexemptedMembers Write SetexemptedMembers;
+ Property service : String Index 8 Read Fservice Write Setservice;
+ end;
+ TAuditConfigClass = Class of TAuditConfig;
+
+ { --------------------------------------------------------------------
+ TAuthorizedKeysView
+ --------------------------------------------------------------------}
+
+ TAuthorizedKeysView = Class(TGoogleBaseObject)
+ Private
+ Fkeys : TStringArray;
+ Fsudoer : boolean;
+ Protected
+ //Property setters
+ Procedure Setkeys(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setsudoer(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 keys : TStringArray Index 0 Read Fkeys Write Setkeys;
+ Property sudoer : boolean Index 8 Read Fsudoer Write Setsudoer;
+ end;
+ TAuthorizedKeysViewClass = Class of TAuthorizedKeysView;
+
+ { --------------------------------------------------------------------
+ TBinding
+ --------------------------------------------------------------------}
+
+ TBinding = Class(TGoogleBaseObject)
+ Private
+ Fmembers : TStringArray;
+ Frole : String;
+ Protected
+ //Property setters
+ Procedure Setmembers(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setrole(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 members : TStringArray Index 0 Read Fmembers Write Setmembers;
+ Property role : String Index 8 Read Frole Write Setrole;
+ end;
+ TBindingClass = Class of TBinding;
+
+ { --------------------------------------------------------------------
+ TCondition
+ --------------------------------------------------------------------}
+
+ TCondition = Class(TGoogleBaseObject)
+ Private
+ Fiam : String;
+ Fop : String;
+ Fsvc : String;
+ Fsys : String;
+ Fvalue : String;
+ Fvalues : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setiam(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setop(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsvc(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsys(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalues(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 iam : String Index 0 Read Fiam Write Setiam;
+ Property op : String Index 8 Read Fop Write Setop;
+ Property svc : String Index 16 Read Fsvc Write Setsvc;
+ Property sys : String Index 24 Read Fsys Write Setsys;
+ Property value : String Index 32 Read Fvalue Write Setvalue;
+ Property values : TStringArray Index 40 Read Fvalues Write Setvalues;
+ end;
+ TConditionClass = Class of TCondition;
+
+ { --------------------------------------------------------------------
+ TGroup
+ --------------------------------------------------------------------}
+
+ TGroup = Class(TGoogleBaseObject)
+ Private
+ FcreationTimestamp : String;
+ Fdescription : String;
+ Fid : String;
+ Fkind : String;
+ Fmembers : TStringArray;
+ Fname : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmembers(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property kind : String Index 24 Read Fkind Write Setkind;
+ Property members : TStringArray Index 32 Read Fmembers Write Setmembers;
+ Property name : String Index 40 Read Fname Write Setname;
+ Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
+ end;
+ TGroupClass = Class of TGroup;
+
+ { --------------------------------------------------------------------
+ TGroupList
+ --------------------------------------------------------------------}
+
+ TGroupList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TGroupListTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TGroupListTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TGroupListTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TGroupListClass = Class of TGroupList;
+
+ { --------------------------------------------------------------------
+ TGroupsAddMemberRequest
+ --------------------------------------------------------------------}
+
+ TGroupsAddMemberRequest = Class(TGoogleBaseObject)
+ Private
+ Fusers : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setusers(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 users : TStringArray Index 0 Read Fusers Write Setusers;
+ end;
+ TGroupsAddMemberRequestClass = Class of TGroupsAddMemberRequest;
+
+ { --------------------------------------------------------------------
+ TGroupsRemoveMemberRequest
+ --------------------------------------------------------------------}
+
+ TGroupsRemoveMemberRequest = Class(TGoogleBaseObject)
+ Private
+ Fusers : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setusers(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 users : TStringArray Index 0 Read Fusers Write Setusers;
+ end;
+ TGroupsRemoveMemberRequestClass = Class of TGroupsRemoveMemberRequest;
+
+ { --------------------------------------------------------------------
+ TLinuxAccountViews
+ --------------------------------------------------------------------}
+
+ TLinuxAccountViews = Class(TGoogleBaseObject)
+ Private
+ FgroupViews : TLinuxAccountViewsTypegroupViewsArray;
+ Fkind : String;
+ FuserViews : TLinuxAccountViewsTypeuserViewsArray;
+ Protected
+ //Property setters
+ Procedure SetgroupViews(AIndex : Integer; const AValue : TLinuxAccountViewsTypegroupViewsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserViews(AIndex : Integer; const AValue : TLinuxAccountViewsTypeuserViewsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property groupViews : TLinuxAccountViewsTypegroupViewsArray Index 0 Read FgroupViews Write SetgroupViews;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property userViews : TLinuxAccountViewsTypeuserViewsArray Index 16 Read FuserViews Write SetuserViews;
+ end;
+ TLinuxAccountViewsClass = Class of TLinuxAccountViews;
+
+ { --------------------------------------------------------------------
+ TLinuxGetAuthorizedKeysViewResponse
+ --------------------------------------------------------------------}
+
+ TLinuxGetAuthorizedKeysViewResponse = Class(TGoogleBaseObject)
+ Private
+ Fresource : TAuthorizedKeysView;
+ Protected
+ //Property setters
+ Procedure Setresource(AIndex : Integer; const AValue : TAuthorizedKeysView); virtual;
+ Public
+ Published
+ Property resource : TAuthorizedKeysView Index 0 Read Fresource Write Setresource;
+ end;
+ TLinuxGetAuthorizedKeysViewResponseClass = Class of TLinuxGetAuthorizedKeysViewResponse;
+
+ { --------------------------------------------------------------------
+ TLinuxGetLinuxAccountViewsResponse
+ --------------------------------------------------------------------}
+
+ TLinuxGetLinuxAccountViewsResponse = Class(TGoogleBaseObject)
+ Private
+ Fresource : TLinuxAccountViews;
+ Protected
+ //Property setters
+ Procedure Setresource(AIndex : Integer; const AValue : TLinuxAccountViews); virtual;
+ Public
+ Published
+ Property resource : TLinuxAccountViews Index 0 Read Fresource Write Setresource;
+ end;
+ TLinuxGetLinuxAccountViewsResponseClass = Class of TLinuxGetLinuxAccountViewsResponse;
+
+ { --------------------------------------------------------------------
+ TLinuxGroupView
+ --------------------------------------------------------------------}
+
+ TLinuxGroupView = Class(TGoogleBaseObject)
+ Private
+ Fgid : integer;
+ FgroupName : String;
+ Fmembers : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setgid(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetgroupName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmembers(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 gid : integer Index 0 Read Fgid Write Setgid;
+ Property groupName : String Index 8 Read FgroupName Write SetgroupName;
+ Property members : TStringArray Index 16 Read Fmembers Write Setmembers;
+ end;
+ TLinuxGroupViewClass = Class of TLinuxGroupView;
+
+ { --------------------------------------------------------------------
+ TLinuxUserView
+ --------------------------------------------------------------------}
+
+ TLinuxUserView = Class(TGoogleBaseObject)
+ Private
+ Fgecos : String;
+ Fgid : integer;
+ FhomeDirectory : String;
+ Fshell : String;
+ Fuid : integer;
+ Fusername : String;
+ Protected
+ //Property setters
+ Procedure Setgecos(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setgid(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SethomeDirectory(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setshell(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setuid(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property gecos : String Index 0 Read Fgecos Write Setgecos;
+ Property gid : integer Index 8 Read Fgid Write Setgid;
+ Property homeDirectory : String Index 16 Read FhomeDirectory Write SethomeDirectory;
+ Property shell : String Index 24 Read Fshell Write Setshell;
+ Property uid : integer Index 32 Read Fuid Write Setuid;
+ Property username : String Index 40 Read Fusername Write Setusername;
+ end;
+ TLinuxUserViewClass = Class of TLinuxUserView;
+
+ { --------------------------------------------------------------------
+ TLogConfig
+ --------------------------------------------------------------------}
+
+ TLogConfig = Class(TGoogleBaseObject)
+ Private
+ Fcounter : TLogConfigCounterOptions;
+ Protected
+ //Property setters
+ Procedure Setcounter(AIndex : Integer; const AValue : TLogConfigCounterOptions); virtual;
+ Public
+ Published
+ Property counter : TLogConfigCounterOptions Index 0 Read Fcounter Write Setcounter;
+ end;
+ TLogConfigClass = Class of TLogConfig;
+
+ { --------------------------------------------------------------------
+ TLogConfigCounterOptions
+ --------------------------------------------------------------------}
+
+ TLogConfigCounterOptions = Class(TGoogleBaseObject)
+ Private
+ Ffield : String;
+ Fmetric : String;
+ Protected
+ //Property setters
+ Procedure Setfield(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property field : String Index 0 Read Ffield Write Setfield;
+ Property metric : String Index 8 Read Fmetric Write Setmetric;
+ end;
+ TLogConfigCounterOptionsClass = Class of TLogConfigCounterOptions;
+
+ { --------------------------------------------------------------------
+ TOperationTypeerrorTypeerrorsItem
+ --------------------------------------------------------------------}
+
+ TOperationTypeerrorTypeerrorsItem = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Flocation : String;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property code : String Index 0 Read Fcode Write Setcode;
+ Property location : String Index 8 Read Flocation Write Setlocation;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TOperationTypeerrorTypeerrorsItemClass = Class of TOperationTypeerrorTypeerrorsItem;
+
+ { --------------------------------------------------------------------
+ TOperationTypeerror
+ --------------------------------------------------------------------}
+
+ TOperationTypeerror = Class(TGoogleBaseObject)
+ Private
+ Ferrors : TOperationTypeerrorTypeerrorsArray;
+ Protected
+ //Property setters
+ Procedure Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property errors : TOperationTypeerrorTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
+ end;
+ TOperationTypeerrorClass = Class of TOperationTypeerror;
+
+ { --------------------------------------------------------------------
+ TOperationTypewarningsItemTypedataItem
+ --------------------------------------------------------------------}
+
+ TOperationTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TOperationTypewarningsItemTypedataItemClass = Class of TOperationTypewarningsItemTypedataItem;
+
+ { --------------------------------------------------------------------
+ TOperationTypewarningsItem
+ --------------------------------------------------------------------}
+
+ TOperationTypewarningsItem = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Fdata : TOperationTypewarningsItemTypedataArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); virtual;
+ Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
+ Property data : TOperationTypewarningsItemTypedataArray Index 8 Read Fdata Write Setdata;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TOperationTypewarningsItemClass = Class of TOperationTypewarningsItem;
+
+ { --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+ TOperation = Class(TGoogleBaseObject)
+ Private
+ FclientOperationId : String;
+ FcreationTimestamp : String;
+ Fdescription : String;
+ FendTime : String;
+ Ferror : TOperationTypeerror;
+ FhttpErrorMessage : String;
+ FhttpErrorStatusCode : integer;
+ Fid : String;
+ FinsertTime : String;
+ Fkind : String;
+ Fname : String;
+ FoperationType : String;
+ Fprogress : integer;
+ Fregion : String;
+ FselfLink : String;
+ FstartTime : String;
+ Fstatus : String;
+ FstatusMessage : String;
+ FtargetId : String;
+ FtargetLink : String;
+ Fuser : String;
+ Fwarnings : TOperationTypewarningsArray;
+ Fzone : String;
+ Protected
+ //Property setters
+ Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TOperationTypeerror); virtual;
+ Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); virtual;
+ Procedure Setzone(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 clientOperationId : String Index 0 Read FclientOperationId Write SetclientOperationId;
+ Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ Property endTime : String Index 24 Read FendTime Write SetendTime;
+ Property error : TOperationTypeerror Index 32 Read Ferror Write Seterror;
+ Property httpErrorMessage : String Index 40 Read FhttpErrorMessage Write SethttpErrorMessage;
+ Property httpErrorStatusCode : integer Index 48 Read FhttpErrorStatusCode Write SethttpErrorStatusCode;
+ Property id : String Index 56 Read Fid Write Setid;
+ Property insertTime : String Index 64 Read FinsertTime Write SetinsertTime;
+ Property kind : String Index 72 Read Fkind Write Setkind;
+ Property name : String Index 80 Read Fname Write Setname;
+ Property operationType : String Index 88 Read FoperationType Write SetoperationType;
+ Property progress : integer Index 96 Read Fprogress Write Setprogress;
+ Property region : String Index 104 Read Fregion Write Setregion;
+ Property selfLink : String Index 112 Read FselfLink Write SetselfLink;
+ Property startTime : String Index 120 Read FstartTime Write SetstartTime;
+ Property status : String Index 128 Read Fstatus Write Setstatus;
+ Property statusMessage : String Index 136 Read FstatusMessage Write SetstatusMessage;
+ Property targetId : String Index 144 Read FtargetId Write SettargetId;
+ Property targetLink : String Index 152 Read FtargetLink Write SettargetLink;
+ Property user : String Index 160 Read Fuser Write Setuser;
+ Property warnings : TOperationTypewarningsArray Index 168 Read Fwarnings Write Setwarnings;
+ Property zone : String Index 176 Read Fzone Write Setzone;
+ end;
+ TOperationClass = Class of TOperation;
+
+ { --------------------------------------------------------------------
+ TOperationList
+ --------------------------------------------------------------------}
+
+ TOperationList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TOperationListTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TOperationListTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TOperationListClass = Class of TOperationList;
+
+ { --------------------------------------------------------------------
+ TPolicy
+ --------------------------------------------------------------------}
+
+ TPolicy = Class(TGoogleBaseObject)
+ Private
+ FauditConfigs : TPolicyTypeauditConfigsArray;
+ Fbindings : TPolicyTypebindingsArray;
+ Fetag : String;
+ FiamOwned : boolean;
+ Frules : TPolicyTyperulesArray;
+ Fversion : integer;
+ Protected
+ //Property setters
+ Procedure SetauditConfigs(AIndex : Integer; const AValue : TPolicyTypeauditConfigsArray); virtual;
+ Procedure Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray); virtual;
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetiamOwned(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setrules(AIndex : Integer; const AValue : TPolicyTyperulesArray); virtual;
+ Procedure Setversion(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 auditConfigs : TPolicyTypeauditConfigsArray Index 0 Read FauditConfigs Write SetauditConfigs;
+ Property bindings : TPolicyTypebindingsArray Index 8 Read Fbindings Write Setbindings;
+ Property etag : String Index 16 Read Fetag Write Setetag;
+ Property iamOwned : boolean Index 24 Read FiamOwned Write SetiamOwned;
+ Property rules : TPolicyTyperulesArray Index 32 Read Frules Write Setrules;
+ Property version : integer Index 40 Read Fversion Write Setversion;
+ end;
+ TPolicyClass = Class of TPolicy;
+
+ { --------------------------------------------------------------------
+ TPublicKey
+ --------------------------------------------------------------------}
+
+ TPublicKey = Class(TGoogleBaseObject)
+ Private
+ FcreationTimestamp : String;
+ Fdescription : String;
+ FexpirationTimestamp : String;
+ Ffingerprint : String;
+ Fkey : String;
+ Protected
+ //Property setters
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexpirationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property expirationTimestamp : String Index 16 Read FexpirationTimestamp Write SetexpirationTimestamp;
+ Property fingerprint : String Index 24 Read Ffingerprint Write Setfingerprint;
+ Property key : String Index 32 Read Fkey Write Setkey;
+ end;
+ TPublicKeyClass = Class of TPublicKey;
+
+ { --------------------------------------------------------------------
+ TRule
+ --------------------------------------------------------------------}
+
+ TRule = Class(TGoogleBaseObject)
+ Private
+ Faction : String;
+ Fconditions : TRuleTypeconditionsArray;
+ Fdescription : String;
+ Fins : TStringArray;
+ FlogConfigs : TRuleTypelogConfigsArray;
+ FnotIns : TStringArray;
+ Fpermissions : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setaction(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setconditions(AIndex : Integer; const AValue : TRuleTypeconditionsArray); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setins(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetlogConfigs(AIndex : Integer; const AValue : TRuleTypelogConfigsArray); virtual;
+ Procedure SetnotIns(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setpermissions(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 action : String Index 0 Read Faction Write Setaction;
+ Property conditions : TRuleTypeconditionsArray Index 8 Read Fconditions Write Setconditions;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ Property ins : TStringArray Index 24 Read Fins Write Setins;
+ Property logConfigs : TRuleTypelogConfigsArray Index 32 Read FlogConfigs Write SetlogConfigs;
+ Property notIns : TStringArray Index 40 Read FnotIns Write SetnotIns;
+ Property permissions : TStringArray Index 48 Read Fpermissions Write Setpermissions;
+ end;
+ TRuleClass = Class of TRule;
+
+ { --------------------------------------------------------------------
+ TTestPermissionsRequest
+ --------------------------------------------------------------------}
+
+ TTestPermissionsRequest = Class(TGoogleBaseObject)
+ Private
+ Fpermissions : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setpermissions(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 permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
+ end;
+ TTestPermissionsRequestClass = Class of TTestPermissionsRequest;
+
+ { --------------------------------------------------------------------
+ TTestPermissionsResponse
+ --------------------------------------------------------------------}
+
+ TTestPermissionsResponse = Class(TGoogleBaseObject)
+ Private
+ Fpermissions : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setpermissions(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 permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
+ end;
+ TTestPermissionsResponseClass = Class of TTestPermissionsResponse;
+
+ { --------------------------------------------------------------------
+ TUser
+ --------------------------------------------------------------------}
+
+ TUser = Class(TGoogleBaseObject)
+ Private
+ FcreationTimestamp : String;
+ Fdescription : String;
+ Fgroups : TStringArray;
+ Fid : String;
+ Fkind : String;
+ Fname : String;
+ Fowner : String;
+ FpublicKeys : TUserTypepublicKeysArray;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setgroups(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setowner(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpublicKeys(AIndex : Integer; const AValue : TUserTypepublicKeysArray); virtual;
+ Procedure SetselfLink(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property groups : TStringArray Index 16 Read Fgroups Write Setgroups;
+ Property id : String Index 24 Read Fid Write Setid;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property name : String Index 40 Read Fname Write Setname;
+ Property owner : String Index 48 Read Fowner Write Setowner;
+ Property publicKeys : TUserTypepublicKeysArray Index 56 Read FpublicKeys Write SetpublicKeys;
+ Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
+ end;
+ TUserClass = Class of TUser;
+
+ { --------------------------------------------------------------------
+ TUserList
+ --------------------------------------------------------------------}
+
+ TUserList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TUserListTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TUserListTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TUserListTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TUserListClass = Class of TUserList;
+
+ { --------------------------------------------------------------------
+ TGlobalAccountsOperationsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TGlobalAccountsOperationsResource, method List
+
+ TGlobalAccountsOperationsListOptions = Record
+ filter : String;
+ maxResults : integer;
+ orderBy : String;
+ pageToken : String;
+ end;
+
+ TGlobalAccountsOperationsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure Delete(operation: string; project: string);
+ Function Get(operation: string; project: string) : TOperation;
+ Function List(project: string; AQuery : string = '') : TOperationList;
+ Function List(project: string; AQuery : TGlobalAccountsOperationslistOptions) : TOperationList;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TGroupsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TGroupsResource, method List
+
+ TGroupsListOptions = Record
+ filter : String;
+ maxResults : integer;
+ orderBy : String;
+ pageToken : String;
+ end;
+
+ TGroupsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function AddMember(groupName: string; project: string; aGroupsAddMemberRequest : TGroupsAddMemberRequest) : TOperation;
+ Function Delete(groupName: string; project: string) : TOperation;
+ Function Get(groupName: string; project: string) : TGroup;
+ Function GetIamPolicy(project: string; resource: string) : TPolicy;
+ Function Insert(project: string; aGroup : TGroup) : TOperation;
+ Function List(project: string; AQuery : string = '') : TGroupList;
+ Function List(project: string; AQuery : TGroupslistOptions) : TGroupList;
+ Function RemoveMember(groupName: string; project: string; aGroupsRemoveMemberRequest : TGroupsRemoveMemberRequest) : TOperation;
+ Function SetIamPolicy(project: string; resource: string; aPolicy : TPolicy) : TPolicy;
+ Function TestIamPermissions(project: string; resource: string; aTestPermissionsRequest : TTestPermissionsRequest) : TTestPermissionsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TLinuxResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TLinuxResource, method GetAuthorizedKeysView
+
+ TLinuxGetAuthorizedKeysViewOptions = Record
+ instance : String;
+ login : boolean;
+ end;
+
+
+ //Optional query Options for TLinuxResource, method GetLinuxAccountViews
+
+ TLinuxGetLinuxAccountViewsOptions = Record
+ filter : String;
+ instance : String;
+ maxResults : integer;
+ orderBy : String;
+ pageToken : String;
+ end;
+
+ TLinuxResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function GetAuthorizedKeysView(project: string; user: string; zone: string; AQuery : string = '') : TLinuxGetAuthorizedKeysViewResponse;
+ Function GetAuthorizedKeysView(project: string; user: string; zone: string; AQuery : TLinuxgetAuthorizedKeysViewOptions) : TLinuxGetAuthorizedKeysViewResponse;
+ Function GetLinuxAccountViews(project: string; zone: string; AQuery : string = '') : TLinuxGetLinuxAccountViewsResponse;
+ Function GetLinuxAccountViews(project: string; zone: string; AQuery : TLinuxgetLinuxAccountViewsOptions) : TLinuxGetLinuxAccountViewsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TUsersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TUsersResource, method List
+
+ TUsersListOptions = Record
+ filter : String;
+ maxResults : integer;
+ orderBy : String;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TUsersResource, method RemovePublicKey
+
+ TUsersRemovePublicKeyOptions = Record
+ fingerprint : String;
+ end;
+
+ TUsersResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function AddPublicKey(project: string; user: string; aPublicKey : TPublicKey) : TOperation;
+ Function Delete(project: string; user: string) : TOperation;
+ Function Get(project: string; user: string) : TUser;
+ Function GetIamPolicy(project: string; resource: string) : TPolicy;
+ Function Insert(project: string; aUser : TUser) : TOperation;
+ Function List(project: string; AQuery : string = '') : TUserList;
+ Function List(project: string; AQuery : TUserslistOptions) : TUserList;
+ Function RemovePublicKey(project: string; user: string; AQuery : string = '') : TOperation;
+ Function RemovePublicKey(project: string; user: string; AQuery : TUsersremovePublicKeyOptions) : TOperation;
+ Function SetIamPolicy(project: string; resource: string; aPolicy : TPolicy) : TPolicy;
+ Function TestIamPermissions(project: string; resource: string; aTestPermissionsRequest : TTestPermissionsRequest) : TTestPermissionsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TClouduseraccountsAPI
+ --------------------------------------------------------------------}
+
+ TClouduseraccountsAPI = Class(TGoogleAPI)
+ Private
+ FGlobalAccountsOperationsInstance : TGlobalAccountsOperationsResource;
+ FGroupsInstance : TGroupsResource;
+ FLinuxInstance : TLinuxResource;
+ FUsersInstance : TUsersResource;
+ Function GetGlobalAccountsOperationsInstance : TGlobalAccountsOperationsResource;virtual;
+ Function GetGroupsInstance : TGroupsResource;virtual;
+ Function GetLinuxInstance : TLinuxResource;virtual;
+ Function GetUsersInstance : TUsersResource;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 CreateGlobalAccountsOperationsResource(AOwner : TComponent) : TGlobalAccountsOperationsResource;virtual;overload;
+ Function CreateGlobalAccountsOperationsResource : TGlobalAccountsOperationsResource;virtual;overload;
+ Function CreateGroupsResource(AOwner : TComponent) : TGroupsResource;virtual;overload;
+ Function CreateGroupsResource : TGroupsResource;virtual;overload;
+ Function CreateLinuxResource(AOwner : TComponent) : TLinuxResource;virtual;overload;
+ Function CreateLinuxResource : TLinuxResource;virtual;overload;
+ Function CreateUsersResource(AOwner : TComponent) : TUsersResource;virtual;overload;
+ Function CreateUsersResource : TUsersResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property GlobalAccountsOperationsResource : TGlobalAccountsOperationsResource Read GetGlobalAccountsOperationsInstance;
+ Property GroupsResource : TGroupsResource Read GetGroupsInstance;
+ Property LinuxResource : TLinuxResource Read GetLinuxInstance;
+ Property UsersResource : TUsersResource Read GetUsersInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TAuditConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TAuditConfig.SetexemptedMembers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FexemptedMembers=AValue) then exit;
+ FexemptedMembers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAuditConfig.Setservice(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fservice=AValue) then exit;
+ Fservice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAuditConfig.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'exemptedmembers' : SetLength(FexemptedMembers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAuthorizedKeysView
+ --------------------------------------------------------------------}
+
+
+Procedure TAuthorizedKeysView.Setkeys(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fkeys=AValue) then exit;
+ Fkeys:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAuthorizedKeysView.Setsudoer(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fsudoer=AValue) then exit;
+ Fsudoer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAuthorizedKeysView.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'keys' : SetLength(Fkeys,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBinding
+ --------------------------------------------------------------------}
+
+
+Procedure TBinding.Setmembers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fmembers=AValue) then exit;
+ Fmembers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBinding.Setrole(AIndex : Integer; const AValue : String);
+
+begin
+ If (Frole=AValue) then exit;
+ Frole:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBinding.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'members' : SetLength(Fmembers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCondition
+ --------------------------------------------------------------------}
+
+
+Procedure TCondition.Setiam(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fiam=AValue) then exit;
+ Fiam:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCondition.Setop(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fop=AValue) then exit;
+ Fop:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCondition.Setsvc(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsvc=AValue) then exit;
+ Fsvc:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCondition.Setsys(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsys=AValue) then exit;
+ Fsys:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCondition.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCondition.Setvalues(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fvalues=AValue) then exit;
+ Fvalues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCondition.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'values' : SetLength(Fvalues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGroup
+ --------------------------------------------------------------------}
+
+
+Procedure TGroup.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroup.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroup.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroup.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroup.Setmembers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fmembers=AValue) then exit;
+ Fmembers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroup.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroup.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGroup.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'members' : SetLength(Fmembers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGroupList
+ --------------------------------------------------------------------}
+
+
+Procedure TGroupList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroupList.Setitems(AIndex : Integer; const AValue : TGroupListTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroupList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroupList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroupList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGroupList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGroupsAddMemberRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TGroupsAddMemberRequest.Setusers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fusers=AValue) then exit;
+ Fusers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGroupsAddMemberRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'users' : SetLength(Fusers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGroupsRemoveMemberRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TGroupsRemoveMemberRequest.Setusers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fusers=AValue) then exit;
+ Fusers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGroupsRemoveMemberRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'users' : SetLength(Fusers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLinuxAccountViews
+ --------------------------------------------------------------------}
+
+
+Procedure TLinuxAccountViews.SetgroupViews(AIndex : Integer; const AValue : TLinuxAccountViewsTypegroupViewsArray);
+
+begin
+ If (FgroupViews=AValue) then exit;
+ FgroupViews:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLinuxAccountViews.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLinuxAccountViews.SetuserViews(AIndex : Integer; const AValue : TLinuxAccountViewsTypeuserViewsArray);
+
+begin
+ If (FuserViews=AValue) then exit;
+ FuserViews:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLinuxAccountViews.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'groupviews' : SetLength(FgroupViews,ALength);
+ 'userviews' : SetLength(FuserViews,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLinuxGetAuthorizedKeysViewResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TLinuxGetAuthorizedKeysViewResponse.Setresource(AIndex : Integer; const AValue : TAuthorizedKeysView);
+
+begin
+ If (Fresource=AValue) then exit;
+ Fresource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLinuxGetLinuxAccountViewsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TLinuxGetLinuxAccountViewsResponse.Setresource(AIndex : Integer; const AValue : TLinuxAccountViews);
+
+begin
+ If (Fresource=AValue) then exit;
+ Fresource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLinuxGroupView
+ --------------------------------------------------------------------}
+
+
+Procedure TLinuxGroupView.Setgid(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fgid=AValue) then exit;
+ Fgid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLinuxGroupView.SetgroupName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FgroupName=AValue) then exit;
+ FgroupName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLinuxGroupView.Setmembers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fmembers=AValue) then exit;
+ Fmembers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLinuxGroupView.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'members' : SetLength(Fmembers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLinuxUserView
+ --------------------------------------------------------------------}
+
+
+Procedure TLinuxUserView.Setgecos(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fgecos=AValue) then exit;
+ Fgecos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLinuxUserView.Setgid(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fgid=AValue) then exit;
+ Fgid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLinuxUserView.SethomeDirectory(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhomeDirectory=AValue) then exit;
+ FhomeDirectory:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLinuxUserView.Setshell(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fshell=AValue) then exit;
+ Fshell:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLinuxUserView.Setuid(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fuid=AValue) then exit;
+ Fuid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLinuxUserView.Setusername(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fusername=AValue) then exit;
+ Fusername:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLogConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TLogConfig.Setcounter(AIndex : Integer; const AValue : TLogConfigCounterOptions);
+
+begin
+ If (Fcounter=AValue) then exit;
+ Fcounter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLogConfigCounterOptions
+ --------------------------------------------------------------------}
+
+
+Procedure TLogConfigCounterOptions.Setfield(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffield=AValue) then exit;
+ Ffield:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogConfigCounterOptions.Setmetric(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmetric=AValue) then exit;
+ Fmetric:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypeerrorTypeerrorsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocation=AValue) then exit;
+ Flocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypeerror
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray);
+
+begin
+ If (Ferrors=AValue) then exit;
+ Ferrors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperationTypeerror.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'errors' : SetLength(Ferrors,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypewarningsItemTypedataItem
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypewarningsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperationTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'data' : SetLength(Fdata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+
+Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclientOperationId=AValue) then exit;
+ FclientOperationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhttpErrorMessage=AValue) then exit;
+ FhttpErrorMessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FhttpErrorStatusCode=AValue) then exit;
+ FhttpErrorStatusCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinsertTime=AValue) then exit;
+ FinsertTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationType=AValue) then exit;
+ FoperationType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fprogress=AValue) then exit;
+ Fprogress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setregion(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fregion=AValue) then exit;
+ Fregion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTime=AValue) then exit;
+ FstartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstatusMessage=AValue) then exit;
+ FstatusMessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtargetId=AValue) then exit;
+ FtargetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtargetLink=AValue) then exit;
+ FtargetLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setuser(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fuser=AValue) then exit;
+ Fuser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray);
+
+begin
+ If (Fwarnings=AValue) then exit;
+ Fwarnings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fzone=AValue) then exit;
+ Fzone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperation.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'warnings' : SetLength(Fwarnings,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationList
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationList.Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperationList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPolicy
+ --------------------------------------------------------------------}
+
+
+Procedure TPolicy.SetauditConfigs(AIndex : Integer; const AValue : TPolicyTypeauditConfigsArray);
+
+begin
+ If (FauditConfigs=AValue) then exit;
+ FauditConfigs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPolicy.Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray);
+
+begin
+ If (Fbindings=AValue) then exit;
+ Fbindings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPolicy.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPolicy.SetiamOwned(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FiamOwned=AValue) then exit;
+ FiamOwned:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPolicy.Setrules(AIndex : Integer; const AValue : TPolicyTyperulesArray);
+
+begin
+ If (Frules=AValue) then exit;
+ Frules:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPolicy.Setversion(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fversion=AValue) then exit;
+ Fversion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPolicy.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'auditconfigs' : SetLength(FauditConfigs,ALength);
+ 'bindings' : SetLength(Fbindings,ALength);
+ 'rules' : SetLength(Frules,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPublicKey
+ --------------------------------------------------------------------}
+
+
+Procedure TPublicKey.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublicKey.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublicKey.SetexpirationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexpirationTimestamp=AValue) then exit;
+ FexpirationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublicKey.Setfingerprint(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffingerprint=AValue) then exit;
+ Ffingerprint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublicKey.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TRule
+ --------------------------------------------------------------------}
+
+
+Procedure TRule.Setaction(AIndex : Integer; const AValue : String);
+
+begin
+ If (Faction=AValue) then exit;
+ Faction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.Setconditions(AIndex : Integer; const AValue : TRuleTypeconditionsArray);
+
+begin
+ If (Fconditions=AValue) then exit;
+ Fconditions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.Setins(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fins=AValue) then exit;
+ Fins:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.SetlogConfigs(AIndex : Integer; const AValue : TRuleTypelogConfigsArray);
+
+begin
+ If (FlogConfigs=AValue) then exit;
+ FlogConfigs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.SetnotIns(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FnotIns=AValue) then exit;
+ FnotIns:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.Setpermissions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRule.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'conditions' : SetLength(Fconditions,ALength);
+ 'ins' : SetLength(Fins,ALength);
+ 'logconfigs' : SetLength(FlogConfigs,ALength);
+ 'notins' : SetLength(FnotIns,ALength);
+ 'permissions' : SetLength(Fpermissions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestPermissionsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TTestPermissionsRequest.Setpermissions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestPermissionsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'permissions' : SetLength(Fpermissions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestPermissionsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TTestPermissionsResponse.Setpermissions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestPermissionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'permissions' : SetLength(Fpermissions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TUser
+ --------------------------------------------------------------------}
+
+
+Procedure TUser.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUser.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUser.Setgroups(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fgroups=AValue) then exit;
+ Fgroups:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUser.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUser.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUser.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUser.Setowner(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fowner=AValue) then exit;
+ Fowner:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUser.SetpublicKeys(AIndex : Integer; const AValue : TUserTypepublicKeysArray);
+
+begin
+ If (FpublicKeys=AValue) then exit;
+ FpublicKeys:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUser.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUser.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'groups' : SetLength(Fgroups,ALength);
+ 'publickeys' : SetLength(FpublicKeys,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TUserList
+ --------------------------------------------------------------------}
+
+
+Procedure TUserList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserList.Setitems(AIndex : Integer; const AValue : TUserListTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUserList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGlobalAccountsOperationsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TGlobalAccountsOperationsResource.ResourceName : String;
+
+begin
+ Result:='globalAccountsOperations';
+end;
+
+Class Function TGlobalAccountsOperationsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouduseraccountsAPI;
+end;
+
+Procedure TGlobalAccountsOperationsResource.Delete(operation: string; project: string);
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = '{project}/global/operations/{operation}';
+ _Methodid = 'clouduseraccounts.globalAccountsOperations.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['operation',operation,'project',project]);
+ ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+end;
+
+Function TGlobalAccountsOperationsResource.Get(operation: string; project: string) : TOperation;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/operations/{operation}';
+ _Methodid = 'clouduseraccounts.globalAccountsOperations.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['operation',operation,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TGlobalAccountsOperationsResource.List(project: string; AQuery : string = '') : TOperationList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/operations';
+ _Methodid = 'clouduseraccounts.globalAccountsOperations.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationList) as TOperationList;
+end;
+
+
+Function TGlobalAccountsOperationsResource.List(project: string; AQuery : TGlobalAccountsOperationslistOptions) : TOperationList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TGroupsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TGroupsResource.ResourceName : String;
+
+begin
+ Result:='groups';
+end;
+
+Class Function TGroupsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouduseraccountsAPI;
+end;
+
+Function TGroupsResource.AddMember(groupName: string; project: string; aGroupsAddMemberRequest : TGroupsAddMemberRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/groups/{groupName}/addMember';
+ _Methodid = 'clouduseraccounts.groups.addMember';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['groupName',groupName,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aGroupsAddMemberRequest,TOperation) as TOperation;
+end;
+
+Function TGroupsResource.Delete(groupName: string; project: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = '{project}/global/groups/{groupName}';
+ _Methodid = 'clouduseraccounts.groups.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['groupName',groupName,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TGroupsResource.Get(groupName: string; project: string) : TGroup;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/groups/{groupName}';
+ _Methodid = 'clouduseraccounts.groups.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['groupName',groupName,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TGroup) as TGroup;
+end;
+
+Function TGroupsResource.GetIamPolicy(project: string; resource: string) : TPolicy;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/groups/{resource}/getIamPolicy';
+ _Methodid = 'clouduseraccounts.groups.getIamPolicy';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPolicy) as TPolicy;
+end;
+
+Function TGroupsResource.Insert(project: string; aGroup : TGroup) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/groups';
+ _Methodid = 'clouduseraccounts.groups.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aGroup,TOperation) as TOperation;
+end;
+
+Function TGroupsResource.List(project: string; AQuery : string = '') : TGroupList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/groups';
+ _Methodid = 'clouduseraccounts.groups.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TGroupList) as TGroupList;
+end;
+
+
+Function TGroupsResource.List(project: string; AQuery : TGroupslistOptions) : TGroupList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,_Q);
+end;
+
+Function TGroupsResource.RemoveMember(groupName: string; project: string; aGroupsRemoveMemberRequest : TGroupsRemoveMemberRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/groups/{groupName}/removeMember';
+ _Methodid = 'clouduseraccounts.groups.removeMember';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['groupName',groupName,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aGroupsRemoveMemberRequest,TOperation) as TOperation;
+end;
+
+Function TGroupsResource.SetIamPolicy(project: string; resource: string; aPolicy : TPolicy) : TPolicy;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/groups/{resource}/setIamPolicy';
+ _Methodid = 'clouduseraccounts.groups.setIamPolicy';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aPolicy,TPolicy) as TPolicy;
+end;
+
+Function TGroupsResource.TestIamPermissions(project: string; resource: string; aTestPermissionsRequest : TTestPermissionsRequest) : TTestPermissionsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/groups/{resource}/testIamPermissions';
+ _Methodid = 'clouduseraccounts.groups.testIamPermissions';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTestPermissionsRequest,TTestPermissionsResponse) as TTestPermissionsResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TLinuxResource
+ --------------------------------------------------------------------}
+
+
+Class Function TLinuxResource.ResourceName : String;
+
+begin
+ Result:='linux';
+end;
+
+Class Function TLinuxResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouduseraccountsAPI;
+end;
+
+Function TLinuxResource.GetAuthorizedKeysView(project: string; user: string; zone: string; AQuery : string = '') : TLinuxGetAuthorizedKeysViewResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/authorizedKeysView/{user}';
+ _Methodid = 'clouduseraccounts.linux.getAuthorizedKeysView';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'user',user,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TLinuxGetAuthorizedKeysViewResponse) as TLinuxGetAuthorizedKeysViewResponse;
+end;
+
+
+Function TLinuxResource.GetAuthorizedKeysView(project: string; user: string; zone: string; AQuery : TLinuxgetAuthorizedKeysViewOptions) : TLinuxGetAuthorizedKeysViewResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'instance',AQuery.instance);
+ AddToQuery(_Q,'login',AQuery.login);
+ Result:=GetAuthorizedKeysView(project,user,zone,_Q);
+end;
+
+Function TLinuxResource.GetLinuxAccountViews(project: string; zone: string; AQuery : string = '') : TLinuxGetLinuxAccountViewsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/linuxAccountViews';
+ _Methodid = 'clouduseraccounts.linux.getLinuxAccountViews';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TLinuxGetLinuxAccountViewsResponse) as TLinuxGetLinuxAccountViewsResponse;
+end;
+
+
+Function TLinuxResource.GetLinuxAccountViews(project: string; zone: string; AQuery : TLinuxgetLinuxAccountViewsOptions) : TLinuxGetLinuxAccountViewsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'instance',AQuery.instance);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=GetLinuxAccountViews(project,zone,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TUsersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TUsersResource.ResourceName : String;
+
+begin
+ Result:='users';
+end;
+
+Class Function TUsersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TclouduseraccountsAPI;
+end;
+
+Function TUsersResource.AddPublicKey(project: string; user: string; aPublicKey : TPublicKey) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/users/{user}/addPublicKey';
+ _Methodid = 'clouduseraccounts.users.addPublicKey';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'user',user]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aPublicKey,TOperation) as TOperation;
+end;
+
+Function TUsersResource.Delete(project: string; user: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = '{project}/global/users/{user}';
+ _Methodid = 'clouduseraccounts.users.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'user',user]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TUsersResource.Get(project: string; user: string) : TUser;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/users/{user}';
+ _Methodid = 'clouduseraccounts.users.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'user',user]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TUser) as TUser;
+end;
+
+Function TUsersResource.GetIamPolicy(project: string; resource: string) : TPolicy;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/users/{resource}/getIamPolicy';
+ _Methodid = 'clouduseraccounts.users.getIamPolicy';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPolicy) as TPolicy;
+end;
+
+Function TUsersResource.Insert(project: string; aUser : TUser) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/users';
+ _Methodid = 'clouduseraccounts.users.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aUser,TOperation) as TOperation;
+end;
+
+Function TUsersResource.List(project: string; AQuery : string = '') : TUserList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/users';
+ _Methodid = 'clouduseraccounts.users.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TUserList) as TUserList;
+end;
+
+
+Function TUsersResource.List(project: string; AQuery : TUserslistOptions) : TUserList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,_Q);
+end;
+
+Function TUsersResource.RemovePublicKey(project: string; user: string; AQuery : string = '') : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/users/{user}/removePublicKey';
+ _Methodid = 'clouduseraccounts.users.removePublicKey';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'user',user]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperation) as TOperation;
+end;
+
+
+Function TUsersResource.RemovePublicKey(project: string; user: string; AQuery : TUsersremovePublicKeyOptions) : TOperation;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
+ Result:=RemovePublicKey(project,user,_Q);
+end;
+
+Function TUsersResource.SetIamPolicy(project: string; resource: string; aPolicy : TPolicy) : TPolicy;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/users/{resource}/setIamPolicy';
+ _Methodid = 'clouduseraccounts.users.setIamPolicy';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aPolicy,TPolicy) as TPolicy;
+end;
+
+Function TUsersResource.TestIamPermissions(project: string; resource: string; aTestPermissionsRequest : TTestPermissionsRequest) : TTestPermissionsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/users/{resource}/testIamPermissions';
+ _Methodid = 'clouduseraccounts.users.testIamPermissions';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTestPermissionsRequest,TTestPermissionsResponse) as TTestPermissionsResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TClouduseraccountsAPI
+ --------------------------------------------------------------------}
+
+Class Function TClouduseraccountsAPI.APIName : String;
+
+begin
+ Result:='clouduseraccounts';
+end;
+
+Class Function TClouduseraccountsAPI.APIVersion : String;
+
+begin
+ Result:='vm_alpha';
+end;
+
+Class Function TClouduseraccountsAPI.APIRevision : String;
+
+begin
+ Result:='20160316';
+end;
+
+Class Function TClouduseraccountsAPI.APIID : String;
+
+begin
+ Result:='clouduseraccounts:vm_alpha';
+end;
+
+Class Function TClouduseraccountsAPI.APITitle : String;
+
+begin
+ Result:='Cloud User Accounts API';
+end;
+
+Class Function TClouduseraccountsAPI.APIDescription : String;
+
+begin
+ Result:='Creates and manages users and groups for accessing Google Compute Engine virtual machines.';
+end;
+
+Class Function TClouduseraccountsAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TClouduseraccountsAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TClouduseraccountsAPI.APIIcon16 : String;
+
+begin
+ Result:='https://www.google.com/images/icons/product/compute_engine-16.png';
+end;
+
+Class Function TClouduseraccountsAPI.APIIcon32 : String;
+
+begin
+ Result:='https://www.google.com/images/icons/product/compute_engine-32.png';
+end;
+
+Class Function TClouduseraccountsAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/compute/docs/access/user-accounts/api/latest/';
+end;
+
+Class Function TClouduseraccountsAPI.APIrootUrl : string;
+
+begin
+ Result:='https://www.googleapis.com/';
+end;
+
+Class Function TClouduseraccountsAPI.APIbasePath : string;
+
+begin
+ Result:='/clouduseraccounts/vm_alpha/projects/';
+end;
+
+Class Function TClouduseraccountsAPI.APIbaseURL : String;
+
+begin
+ Result:='https://www.googleapis.com/clouduseraccounts/vm_alpha/projects/';
+end;
+
+Class Function TClouduseraccountsAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TClouduseraccountsAPI.APIservicePath : string;
+
+begin
+ Result:='clouduseraccounts/vm_alpha/projects/';
+end;
+
+Class Function TClouduseraccountsAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TClouduseraccountsAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,4);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+ Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
+ Result[1].Description:='View your data across Google Cloud Platform services';
+ Result[2].Name:='https://www.googleapis.com/auth/cloud.useraccounts';
+ Result[2].Description:='Manage your Google Cloud User Accounts';
+ Result[3].Name:='https://www.googleapis.com/auth/cloud.useraccounts.readonly';
+ Result[3].Description:='View your Google Cloud User Accounts';
+
+end;
+
+Class Function TClouduseraccountsAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TClouduseraccountsAPI.RegisterAPIResources;
+
+begin
+ TAuditConfig.RegisterObject;
+ TAuthorizedKeysView.RegisterObject;
+ TBinding.RegisterObject;
+ TCondition.RegisterObject;
+ TGroup.RegisterObject;
+ TGroupList.RegisterObject;
+ TGroupsAddMemberRequest.RegisterObject;
+ TGroupsRemoveMemberRequest.RegisterObject;
+ TLinuxAccountViews.RegisterObject;
+ TLinuxGetAuthorizedKeysViewResponse.RegisterObject;
+ TLinuxGetLinuxAccountViewsResponse.RegisterObject;
+ TLinuxGroupView.RegisterObject;
+ TLinuxUserView.RegisterObject;
+ TLogConfig.RegisterObject;
+ TLogConfigCounterOptions.RegisterObject;
+ TOperationTypeerrorTypeerrorsItem.RegisterObject;
+ TOperationTypeerror.RegisterObject;
+ TOperationTypewarningsItemTypedataItem.RegisterObject;
+ TOperationTypewarningsItem.RegisterObject;
+ TOperation.RegisterObject;
+ TOperationList.RegisterObject;
+ TPolicy.RegisterObject;
+ TPublicKey.RegisterObject;
+ TRule.RegisterObject;
+ TTestPermissionsRequest.RegisterObject;
+ TTestPermissionsResponse.RegisterObject;
+ TUser.RegisterObject;
+ TUserList.RegisterObject;
+end;
+
+
+Function TClouduseraccountsAPI.GetGlobalAccountsOperationsInstance : TGlobalAccountsOperationsResource;
+
+begin
+ if (FGlobalAccountsOperationsInstance=Nil) then
+ FGlobalAccountsOperationsInstance:=CreateGlobalAccountsOperationsResource;
+ Result:=FGlobalAccountsOperationsInstance;
+end;
+
+Function TClouduseraccountsAPI.CreateGlobalAccountsOperationsResource : TGlobalAccountsOperationsResource;
+
+begin
+ Result:=CreateGlobalAccountsOperationsResource(Self);
+end;
+
+
+Function TClouduseraccountsAPI.CreateGlobalAccountsOperationsResource(AOwner : TComponent) : TGlobalAccountsOperationsResource;
+
+begin
+ Result:=TGlobalAccountsOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClouduseraccountsAPI.GetGroupsInstance : TGroupsResource;
+
+begin
+ if (FGroupsInstance=Nil) then
+ FGroupsInstance:=CreateGroupsResource;
+ Result:=FGroupsInstance;
+end;
+
+Function TClouduseraccountsAPI.CreateGroupsResource : TGroupsResource;
+
+begin
+ Result:=CreateGroupsResource(Self);
+end;
+
+
+Function TClouduseraccountsAPI.CreateGroupsResource(AOwner : TComponent) : TGroupsResource;
+
+begin
+ Result:=TGroupsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClouduseraccountsAPI.GetLinuxInstance : TLinuxResource;
+
+begin
+ if (FLinuxInstance=Nil) then
+ FLinuxInstance:=CreateLinuxResource;
+ Result:=FLinuxInstance;
+end;
+
+Function TClouduseraccountsAPI.CreateLinuxResource : TLinuxResource;
+
+begin
+ Result:=CreateLinuxResource(Self);
+end;
+
+
+Function TClouduseraccountsAPI.CreateLinuxResource(AOwner : TComponent) : TLinuxResource;
+
+begin
+ Result:=TLinuxResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TClouduseraccountsAPI.GetUsersInstance : TUsersResource;
+
+begin
+ if (FUsersInstance=Nil) then
+ FUsersInstance:=CreateUsersResource;
+ Result:=FUsersInstance;
+end;
+
+Function TClouduseraccountsAPI.CreateUsersResource : TUsersResource;
+
+begin
+ Result:=CreateUsersResource(Self);
+end;
+
+
+Function TClouduseraccountsAPI.CreateUsersResource(AOwner : TComponent) : TUsersResource;
+
+begin
+ Result:=TUsersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TClouduseraccountsAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlecompute.pp b/packages/googleapi/src/googlecompute.pp
index d185a6ca80..80cff89bd7 100644
--- a/packages/googleapi/src/googlecompute.pp
+++ b/packages/googleapi/src/googlecompute.pp
@@ -1,19 +1,4 @@
unit googlecompute;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:00
{$MODE objfpc}
{$H+}
@@ -31,6 +16,14 @@ type
TAddressesScopedList = Class;
TAttachedDisk = Class;
TAttachedDiskInitializeParams = Class;
+ TAutoscaler = Class;
+ TAutoscalerAggregatedList = Class;
+ TAutoscalerList = Class;
+ TAutoscalersScopedList = Class;
+ TAutoscalingPolicy = Class;
+ TAutoscalingPolicyCpuUtilization = Class;
+ TAutoscalingPolicyCustomMetricUtilization = Class;
+ TAutoscalingPolicyLoadBalancingUtilization = Class;
TBackend = Class;
TBackendService = Class;
TBackendServiceGroupHealth = Class;
@@ -44,6 +37,7 @@ type
TDiskTypeAggregatedList = Class;
TDiskTypeList = Class;
TDiskTypesScopedList = Class;
+ TDisksResizeRequest = Class;
TDisksScopedList = Class;
TFirewall = Class;
TFirewallList = Class;
@@ -56,23 +50,50 @@ type
THostRule = Class;
THttpHealthCheck = Class;
THttpHealthCheckList = Class;
+ THttpsHealthCheck = Class;
+ THttpsHealthCheckList = Class;
TImage = Class;
TImageList = Class;
TInstance = Class;
TInstanceAggregatedList = Class;
+ TInstanceGroup = Class;
+ TInstanceGroupAggregatedList = Class;
+ TInstanceGroupList = Class;
+ TInstanceGroupManager = Class;
+ TInstanceGroupManagerActionsSummary = Class;
+ TInstanceGroupManagerAggregatedList = Class;
+ TInstanceGroupManagerList = Class;
+ TInstanceGroupManagersAbandonInstancesRequest = Class;
+ TInstanceGroupManagersDeleteInstancesRequest = Class;
+ TInstanceGroupManagersListManagedInstancesResponse = Class;
+ TInstanceGroupManagersRecreateInstancesRequest = Class;
+ TInstanceGroupManagersScopedList = Class;
+ TInstanceGroupManagersSetInstanceTemplateRequest = Class;
+ TInstanceGroupManagersSetTargetPoolsRequest = Class;
+ TInstanceGroupsAddInstancesRequest = Class;
+ TInstanceGroupsListInstances = Class;
+ TInstanceGroupsListInstancesRequest = Class;
+ TInstanceGroupsRemoveInstancesRequest = Class;
+ TInstanceGroupsScopedList = Class;
+ TInstanceGroupsSetNamedPortsRequest = Class;
TInstanceList = Class;
TInstanceMoveRequest = Class;
TInstanceProperties = Class;
TInstanceReference = Class;
TInstanceTemplate = Class;
TInstanceTemplateList = Class;
+ TInstanceWithNamedPorts = Class;
TInstancesScopedList = Class;
+ TInstancesSetMachineTypeRequest = Class;
TLicense = Class;
TMachineType = Class;
TMachineTypeAggregatedList = Class;
TMachineTypeList = Class;
TMachineTypesScopedList = Class;
+ TManagedInstance = Class;
+ TManagedInstanceLastAttempt = Class;
TMetadata = Class;
+ TNamedPort = Class;
TNetwork = Class;
TNetworkInterface = Class;
TNetworkList = Class;
@@ -94,9 +115,18 @@ type
TServiceAccount = Class;
TSnapshot = Class;
TSnapshotList = Class;
+ TSslCertificate = Class;
+ TSslCertificateList = Class;
+ TSubnetwork = Class;
+ TSubnetworkAggregatedList = Class;
+ TSubnetworkList = Class;
+ TSubnetworksScopedList = Class;
TTags = Class;
TTargetHttpProxy = Class;
TTargetHttpProxyList = Class;
+ TTargetHttpsProxiesSetSslCertificatesRequest = Class;
+ TTargetHttpsProxy = Class;
+ TTargetHttpsProxyList = Class;
TTargetInstance = Class;
TTargetInstanceAggregatedList = Class;
TTargetInstanceList = Class;
@@ -137,6 +167,14 @@ type
TAddressesScopedListArray = Array of TAddressesScopedList;
TAttachedDiskArray = Array of TAttachedDisk;
TAttachedDiskInitializeParamsArray = Array of TAttachedDiskInitializeParams;
+ TAutoscalerArray = Array of TAutoscaler;
+ TAutoscalerAggregatedListArray = Array of TAutoscalerAggregatedList;
+ TAutoscalerListArray = Array of TAutoscalerList;
+ TAutoscalersScopedListArray = Array of TAutoscalersScopedList;
+ TAutoscalingPolicyArray = Array of TAutoscalingPolicy;
+ TAutoscalingPolicyCpuUtilizationArray = Array of TAutoscalingPolicyCpuUtilization;
+ TAutoscalingPolicyCustomMetricUtilizationArray = Array of TAutoscalingPolicyCustomMetricUtilization;
+ TAutoscalingPolicyLoadBalancingUtilizationArray = Array of TAutoscalingPolicyLoadBalancingUtilization;
TBackendArray = Array of TBackend;
TBackendServiceArray = Array of TBackendService;
TBackendServiceGroupHealthArray = Array of TBackendServiceGroupHealth;
@@ -150,6 +188,7 @@ type
TDiskTypeAggregatedListArray = Array of TDiskTypeAggregatedList;
TDiskTypeListArray = Array of TDiskTypeList;
TDiskTypesScopedListArray = Array of TDiskTypesScopedList;
+ TDisksResizeRequestArray = Array of TDisksResizeRequest;
TDisksScopedListArray = Array of TDisksScopedList;
TFirewallArray = Array of TFirewall;
TFirewallListArray = Array of TFirewallList;
@@ -162,23 +201,50 @@ type
THostRuleArray = Array of THostRule;
THttpHealthCheckArray = Array of THttpHealthCheck;
THttpHealthCheckListArray = Array of THttpHealthCheckList;
+ THttpsHealthCheckArray = Array of THttpsHealthCheck;
+ THttpsHealthCheckListArray = Array of THttpsHealthCheckList;
TImageArray = Array of TImage;
TImageListArray = Array of TImageList;
TInstanceArray = Array of TInstance;
TInstanceAggregatedListArray = Array of TInstanceAggregatedList;
+ TInstanceGroupArray = Array of TInstanceGroup;
+ TInstanceGroupAggregatedListArray = Array of TInstanceGroupAggregatedList;
+ TInstanceGroupListArray = Array of TInstanceGroupList;
+ TInstanceGroupManagerArray = Array of TInstanceGroupManager;
+ TInstanceGroupManagerActionsSummaryArray = Array of TInstanceGroupManagerActionsSummary;
+ TInstanceGroupManagerAggregatedListArray = Array of TInstanceGroupManagerAggregatedList;
+ TInstanceGroupManagerListArray = Array of TInstanceGroupManagerList;
+ TInstanceGroupManagersAbandonInstancesRequestArray = Array of TInstanceGroupManagersAbandonInstancesRequest;
+ TInstanceGroupManagersDeleteInstancesRequestArray = Array of TInstanceGroupManagersDeleteInstancesRequest;
+ TInstanceGroupManagersListManagedInstancesResponseArray = Array of TInstanceGroupManagersListManagedInstancesResponse;
+ TInstanceGroupManagersRecreateInstancesRequestArray = Array of TInstanceGroupManagersRecreateInstancesRequest;
+ TInstanceGroupManagersScopedListArray = Array of TInstanceGroupManagersScopedList;
+ TInstanceGroupManagersSetInstanceTemplateRequestArray = Array of TInstanceGroupManagersSetInstanceTemplateRequest;
+ TInstanceGroupManagersSetTargetPoolsRequestArray = Array of TInstanceGroupManagersSetTargetPoolsRequest;
+ TInstanceGroupsAddInstancesRequestArray = Array of TInstanceGroupsAddInstancesRequest;
+ TInstanceGroupsListInstancesArray = Array of TInstanceGroupsListInstances;
+ TInstanceGroupsListInstancesRequestArray = Array of TInstanceGroupsListInstancesRequest;
+ TInstanceGroupsRemoveInstancesRequestArray = Array of TInstanceGroupsRemoveInstancesRequest;
+ TInstanceGroupsScopedListArray = Array of TInstanceGroupsScopedList;
+ TInstanceGroupsSetNamedPortsRequestArray = Array of TInstanceGroupsSetNamedPortsRequest;
TInstanceListArray = Array of TInstanceList;
TInstanceMoveRequestArray = Array of TInstanceMoveRequest;
TInstancePropertiesArray = Array of TInstanceProperties;
TInstanceReferenceArray = Array of TInstanceReference;
TInstanceTemplateArray = Array of TInstanceTemplate;
TInstanceTemplateListArray = Array of TInstanceTemplateList;
+ TInstanceWithNamedPortsArray = Array of TInstanceWithNamedPorts;
TInstancesScopedListArray = Array of TInstancesScopedList;
+ TInstancesSetMachineTypeRequestArray = Array of TInstancesSetMachineTypeRequest;
TLicenseArray = Array of TLicense;
TMachineTypeArray = Array of TMachineType;
TMachineTypeAggregatedListArray = Array of TMachineTypeAggregatedList;
TMachineTypeListArray = Array of TMachineTypeList;
TMachineTypesScopedListArray = Array of TMachineTypesScopedList;
+ TManagedInstanceArray = Array of TManagedInstance;
+ TManagedInstanceLastAttemptArray = Array of TManagedInstanceLastAttempt;
TMetadataArray = Array of TMetadata;
+ TNamedPortArray = Array of TNamedPort;
TNetworkArray = Array of TNetwork;
TNetworkInterfaceArray = Array of TNetworkInterface;
TNetworkListArray = Array of TNetworkList;
@@ -200,9 +266,18 @@ type
TServiceAccountArray = Array of TServiceAccount;
TSnapshotArray = Array of TSnapshot;
TSnapshotListArray = Array of TSnapshotList;
+ TSslCertificateArray = Array of TSslCertificate;
+ TSslCertificateListArray = Array of TSslCertificateList;
+ TSubnetworkArray = Array of TSubnetwork;
+ TSubnetworkAggregatedListArray = Array of TSubnetworkAggregatedList;
+ TSubnetworkListArray = Array of TSubnetworkList;
+ TSubnetworksScopedListArray = Array of TSubnetworksScopedList;
TTagsArray = Array of TTags;
TTargetHttpProxyArray = Array of TTargetHttpProxy;
TTargetHttpProxyListArray = Array of TTargetHttpProxyList;
+ TTargetHttpsProxiesSetSslCertificatesRequestArray = Array of TTargetHttpsProxiesSetSslCertificatesRequest;
+ TTargetHttpsProxyArray = Array of TTargetHttpsProxy;
+ TTargetHttpsProxyListArray = Array of TTargetHttpsProxyList;
TTargetInstanceArray = Array of TTargetInstance;
TTargetInstanceAggregatedListArray = Array of TTargetInstanceAggregatedList;
TTargetInstanceListArray = Array of TTargetInstanceList;
@@ -240,6 +315,9 @@ type
TAddressAggregatedListTypeitems = Class;
TAddressesScopedListTypewarningTypedataItem = Class;
TAddressesScopedListTypewarning = Class;
+ TAutoscalerAggregatedListTypeitems = Class;
+ TAutoscalersScopedListTypewarningTypedataItem = Class;
+ TAutoscalersScopedListTypewarning = Class;
TDiskAggregatedListTypeitems = Class;
TDiskTypeAggregatedListTypeitems = Class;
TDiskTypesScopedListTypewarningTypedataItem = Class;
@@ -252,12 +330,20 @@ type
TForwardingRulesScopedListTypewarning = Class;
TImageTyperawDisk = Class;
TInstanceAggregatedListTypeitems = Class;
+ TInstanceGroupAggregatedListTypeitems = Class;
+ TInstanceGroupManagerAggregatedListTypeitems = Class;
+ TInstanceGroupManagersScopedListTypewarningTypedataItem = Class;
+ TInstanceGroupManagersScopedListTypewarning = Class;
+ TInstanceGroupsScopedListTypewarningTypedataItem = Class;
+ TInstanceGroupsScopedListTypewarning = Class;
TInstancesScopedListTypewarningTypedataItem = Class;
TInstancesScopedListTypewarning = Class;
TMachineTypeTypescratchDisksItem = Class;
TMachineTypeAggregatedListTypeitems = Class;
TMachineTypesScopedListTypewarningTypedataItem = Class;
TMachineTypesScopedListTypewarning = Class;
+ TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem = Class;
+ TManagedInstanceLastAttemptTypeerrors = Class;
TMetadataTypeitemsItem = Class;
TOperationTypeerrorTypeerrorsItem = Class;
TOperationTypeerror = Class;
@@ -268,6 +354,9 @@ type
TOperationsScopedListTypewarning = Class;
TRouteTypewarningsItemTypedataItem = Class;
TRouteTypewarningsItem = Class;
+ TSubnetworkAggregatedListTypeitems = Class;
+ TSubnetworksScopedListTypewarningTypedataItem = Class;
+ TSubnetworksScopedListTypewarning = Class;
TTargetInstanceAggregatedListTypeitems = Class;
TTargetInstancesScopedListTypewarningTypedataItem = Class;
TTargetInstancesScopedListTypewarning = Class;
@@ -280,10 +369,13 @@ type
TVpnTunnelAggregatedListTypeitems = Class;
TVpnTunnelsScopedListTypewarningTypedataItem = Class;
TVpnTunnelsScopedListTypewarning = Class;
- TZoneTypemaintenanceWindowsItem = Class;
TAddressListTypeitemsArray = Array of TAddress;
TAddressesScopedListTypeaddressesArray = Array of TAddress;
TAddressesScopedListTypewarningTypedataArray = Array of TAddressesScopedListTypewarningTypedataItem;
+ TAutoscalerListTypeitemsArray = Array of TAutoscaler;
+ TAutoscalersScopedListTypeautoscalersArray = Array of TAutoscaler;
+ TAutoscalersScopedListTypewarningTypedataArray = Array of TAutoscalersScopedListTypewarningTypedataItem;
+ TAutoscalingPolicyTypecustomMetricUtilizationsArray = Array of TAutoscalingPolicyCustomMetricUtilization;
TBackendServiceTypebackendsArray = Array of TBackend;
TBackendServiceGroupHealthTypehealthStatusArray = Array of THealthStatus;
TBackendServiceListTypeitemsArray = Array of TBackendService;
@@ -299,21 +391,37 @@ type
TForwardingRulesScopedListTypeforwardingRulesArray = Array of TForwardingRule;
TForwardingRulesScopedListTypewarningTypedataArray = Array of TForwardingRulesScopedListTypewarningTypedataItem;
THttpHealthCheckListTypeitemsArray = Array of THttpHealthCheck;
+ THttpsHealthCheckListTypeitemsArray = Array of THttpsHealthCheck;
TImageListTypeitemsArray = Array of TImage;
TInstanceTypedisksArray = Array of TAttachedDisk;
TInstanceTypenetworkInterfacesArray = Array of TNetworkInterface;
TInstanceTypeserviceAccountsArray = Array of TServiceAccount;
+ TInstanceGroupTypenamedPortsArray = Array of TNamedPort;
+ TInstanceGroupListTypeitemsArray = Array of TInstanceGroup;
+ TInstanceGroupManagerTypenamedPortsArray = Array of TNamedPort;
+ TInstanceGroupManagerListTypeitemsArray = Array of TInstanceGroupManager;
+ TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray = Array of TManagedInstance;
+ TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray = Array of TInstanceGroupManager;
+ TInstanceGroupManagersScopedListTypewarningTypedataArray = Array of TInstanceGroupManagersScopedListTypewarningTypedataItem;
+ TInstanceGroupsAddInstancesRequestTypeinstancesArray = Array of TInstanceReference;
+ TInstanceGroupsListInstancesTypeitemsArray = Array of TInstanceWithNamedPorts;
+ TInstanceGroupsRemoveInstancesRequestTypeinstancesArray = Array of TInstanceReference;
+ TInstanceGroupsScopedListTypeinstanceGroupsArray = Array of TInstanceGroup;
+ TInstanceGroupsScopedListTypewarningTypedataArray = Array of TInstanceGroupsScopedListTypewarningTypedataItem;
+ TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray = Array of TNamedPort;
TInstanceListTypeitemsArray = Array of TInstance;
TInstancePropertiesTypedisksArray = Array of TAttachedDisk;
TInstancePropertiesTypenetworkInterfacesArray = Array of TNetworkInterface;
TInstancePropertiesTypeserviceAccountsArray = Array of TServiceAccount;
TInstanceTemplateListTypeitemsArray = Array of TInstanceTemplate;
+ TInstanceWithNamedPortsTypenamedPortsArray = Array of TNamedPort;
TInstancesScopedListTypeinstancesArray = Array of TInstance;
TInstancesScopedListTypewarningTypedataArray = Array of TInstancesScopedListTypewarningTypedataItem;
TMachineTypeTypescratchDisksArray = Array of TMachineTypeTypescratchDisksItem;
TMachineTypeListTypeitemsArray = Array of TMachineType;
TMachineTypesScopedListTypemachineTypesArray = Array of TMachineType;
TMachineTypesScopedListTypewarningTypedataArray = Array of TMachineTypesScopedListTypewarningTypedataItem;
+ TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray = Array of TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem;
TMetadataTypeitemsArray = Array of TMetadataTypeitemsItem;
TNetworkInterfaceTypeaccessConfigsArray = Array of TAccessConfig;
TNetworkListTypeitemsArray = Array of TNetwork;
@@ -331,7 +439,12 @@ type
TRouteTypewarningsArray = Array of TRouteTypewarningsItem;
TRouteListTypeitemsArray = Array of TRoute;
TSnapshotListTypeitemsArray = Array of TSnapshot;
+ TSslCertificateListTypeitemsArray = Array of TSslCertificate;
+ TSubnetworkListTypeitemsArray = Array of TSubnetwork;
+ TSubnetworksScopedListTypesubnetworksArray = Array of TSubnetwork;
+ TSubnetworksScopedListTypewarningTypedataArray = Array of TSubnetworksScopedListTypewarningTypedataItem;
TTargetHttpProxyListTypeitemsArray = Array of TTargetHttpProxy;
+ TTargetHttpsProxyListTypeitemsArray = Array of TTargetHttpsProxy;
TTargetInstanceListTypeitemsArray = Array of TTargetInstance;
TTargetInstancesScopedListTypetargetInstancesArray = Array of TTargetInstance;
TTargetInstancesScopedListTypewarningTypedataArray = Array of TTargetInstancesScopedListTypewarningTypedataItem;
@@ -354,7 +467,6 @@ type
TVpnTunnelListTypeitemsArray = Array of TVpnTunnel;
TVpnTunnelsScopedListTypevpnTunnelsArray = Array of TVpnTunnel;
TVpnTunnelsScopedListTypewarningTypedataArray = Array of TVpnTunnelsScopedListTypewarningTypedataItem;
- TZoneTypemaintenanceWindowsArray = Array of TZoneTypemaintenanceWindowsItem;
TZoneListTypeitemsArray = Array of TZone;
{ --------------------------------------------------------------------
@@ -410,7 +522,7 @@ type
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setusers(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setusers(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -458,7 +570,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAddressAggregatedListTypeitems); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAddressAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -486,7 +598,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAddressListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAddressListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -535,7 +647,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TAddressesScopedListTypewarningTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TAddressesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -559,8 +671,8 @@ type
Fwarning : TAddressesScopedListTypewarning;
Protected
//Property setters
- Procedure Setaddresses(AIndex : Integer; AValue : TAddressesScopedListTypeaddressesArray); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TAddressesScopedListTypewarning); virtual;
+ Procedure Setaddresses(AIndex : Integer; const AValue : TAddressesScopedListTypeaddressesArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TAddressesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -592,14 +704,14 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetautoDelete(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setboot(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetautoDelete(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setboot(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetdeviceName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setindex(AIndex : Integer; AValue : integer); virtual;
- Procedure SetinitializeParams(AIndex : Integer; AValue : TAttachedDiskInitializeParams); virtual;
+ Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetinitializeParams(AIndex : Integer; const AValue : TAttachedDiskInitializeParams); virtual;
Procedure Set_interface(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlicenses(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setmode(AIndex : Integer; const AValue : String); virtual;
Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
@@ -649,6 +761,277 @@ type
TAttachedDiskInitializeParamsClass = Class of TAttachedDiskInitializeParams;
{ --------------------------------------------------------------------
+ TAutoscaler
+ --------------------------------------------------------------------}
+
+ TAutoscaler = Class(TGoogleBaseObject)
+ Private
+ FautoscalingPolicy : TAutoscalingPolicy;
+ FcreationTimestamp : String;
+ Fdescription : String;
+ Fid : String;
+ Fkind : String;
+ Fname : String;
+ FselfLink : String;
+ Ftarget : String;
+ Fzone : String;
+ Protected
+ //Property setters
+ Procedure SetautoscalingPolicy(AIndex : Integer; const AValue : TAutoscalingPolicy); virtual;
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property autoscalingPolicy : TAutoscalingPolicy Index 0 Read FautoscalingPolicy Write SetautoscalingPolicy;
+ Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ Property id : String Index 24 Read Fid Write Setid;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property name : String Index 40 Read Fname Write Setname;
+ Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
+ Property target : String Index 56 Read Ftarget Write Settarget;
+ Property zone : String Index 64 Read Fzone Write Setzone;
+ end;
+ TAutoscalerClass = Class of TAutoscaler;
+
+ { --------------------------------------------------------------------
+ TAutoscalerAggregatedListTypeitems
+ --------------------------------------------------------------------}
+
+ TAutoscalerAggregatedListTypeitems = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TAutoscalerAggregatedListTypeitemsClass = Class of TAutoscalerAggregatedListTypeitems;
+
+ { --------------------------------------------------------------------
+ TAutoscalerAggregatedList
+ --------------------------------------------------------------------}
+
+ TAutoscalerAggregatedList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TAutoscalerAggregatedListTypeitems;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAutoscalerAggregatedListTypeitems); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TAutoscalerAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TAutoscalerAggregatedListClass = Class of TAutoscalerAggregatedList;
+
+ { --------------------------------------------------------------------
+ TAutoscalerList
+ --------------------------------------------------------------------}
+
+ TAutoscalerList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TAutoscalerListTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAutoscalerListTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TAutoscalerListTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TAutoscalerListClass = Class of TAutoscalerList;
+
+ { --------------------------------------------------------------------
+ TAutoscalersScopedListTypewarningTypedataItem
+ --------------------------------------------------------------------}
+
+ TAutoscalersScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TAutoscalersScopedListTypewarningTypedataItemClass = Class of TAutoscalersScopedListTypewarningTypedataItem;
+
+ { --------------------------------------------------------------------
+ TAutoscalersScopedListTypewarning
+ --------------------------------------------------------------------}
+
+ TAutoscalersScopedListTypewarning = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Fdata : TAutoscalersScopedListTypewarningTypedataArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarningTypedataArray); virtual;
+ Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
+ Property data : TAutoscalersScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TAutoscalersScopedListTypewarningClass = Class of TAutoscalersScopedListTypewarning;
+
+ { --------------------------------------------------------------------
+ TAutoscalersScopedList
+ --------------------------------------------------------------------}
+
+ TAutoscalersScopedList = Class(TGoogleBaseObject)
+ Private
+ Fautoscalers : TAutoscalersScopedListTypeautoscalersArray;
+ Fwarning : TAutoscalersScopedListTypewarning;
+ Protected
+ //Property setters
+ Procedure Setautoscalers(AIndex : Integer; const AValue : TAutoscalersScopedListTypeautoscalersArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarning); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property autoscalers : TAutoscalersScopedListTypeautoscalersArray Index 0 Read Fautoscalers Write Setautoscalers;
+ Property warning : TAutoscalersScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
+ end;
+ TAutoscalersScopedListClass = Class of TAutoscalersScopedList;
+
+ { --------------------------------------------------------------------
+ TAutoscalingPolicy
+ --------------------------------------------------------------------}
+
+ TAutoscalingPolicy = Class(TGoogleBaseObject)
+ Private
+ FcoolDownPeriodSec : integer;
+ FcpuUtilization : TAutoscalingPolicyCpuUtilization;
+ FcustomMetricUtilizations : TAutoscalingPolicyTypecustomMetricUtilizationsArray;
+ FloadBalancingUtilization : TAutoscalingPolicyLoadBalancingUtilization;
+ FmaxNumReplicas : integer;
+ FminNumReplicas : integer;
+ Protected
+ //Property setters
+ Procedure SetcoolDownPeriodSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetcpuUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyCpuUtilization); virtual;
+ Procedure SetcustomMetricUtilizations(AIndex : Integer; const AValue : TAutoscalingPolicyTypecustomMetricUtilizationsArray); virtual;
+ Procedure SetloadBalancingUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyLoadBalancingUtilization); virtual;
+ Procedure SetmaxNumReplicas(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetminNumReplicas(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 coolDownPeriodSec : integer Index 0 Read FcoolDownPeriodSec Write SetcoolDownPeriodSec;
+ Property cpuUtilization : TAutoscalingPolicyCpuUtilization Index 8 Read FcpuUtilization Write SetcpuUtilization;
+ Property customMetricUtilizations : TAutoscalingPolicyTypecustomMetricUtilizationsArray Index 16 Read FcustomMetricUtilizations Write SetcustomMetricUtilizations;
+ Property loadBalancingUtilization : TAutoscalingPolicyLoadBalancingUtilization Index 24 Read FloadBalancingUtilization Write SetloadBalancingUtilization;
+ Property maxNumReplicas : integer Index 32 Read FmaxNumReplicas Write SetmaxNumReplicas;
+ Property minNumReplicas : integer Index 40 Read FminNumReplicas Write SetminNumReplicas;
+ end;
+ TAutoscalingPolicyClass = Class of TAutoscalingPolicy;
+
+ { --------------------------------------------------------------------
+ TAutoscalingPolicyCpuUtilization
+ --------------------------------------------------------------------}
+
+ TAutoscalingPolicyCpuUtilization = Class(TGoogleBaseObject)
+ Private
+ FutilizationTarget : double;
+ Protected
+ //Property setters
+ Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
+ Public
+ Published
+ Property utilizationTarget : double Index 0 Read FutilizationTarget Write SetutilizationTarget;
+ end;
+ TAutoscalingPolicyCpuUtilizationClass = Class of TAutoscalingPolicyCpuUtilization;
+
+ { --------------------------------------------------------------------
+ TAutoscalingPolicyCustomMetricUtilization
+ --------------------------------------------------------------------}
+
+ TAutoscalingPolicyCustomMetricUtilization = Class(TGoogleBaseObject)
+ Private
+ Fmetric : String;
+ FutilizationTarget : double;
+ FutilizationTargetType : String;
+ Protected
+ //Property setters
+ Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetutilizationTargetType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metric : String Index 0 Read Fmetric Write Setmetric;
+ Property utilizationTarget : double Index 8 Read FutilizationTarget Write SetutilizationTarget;
+ Property utilizationTargetType : String Index 16 Read FutilizationTargetType Write SetutilizationTargetType;
+ end;
+ TAutoscalingPolicyCustomMetricUtilizationClass = Class of TAutoscalingPolicyCustomMetricUtilization;
+
+ { --------------------------------------------------------------------
+ TAutoscalingPolicyLoadBalancingUtilization
+ --------------------------------------------------------------------}
+
+ TAutoscalingPolicyLoadBalancingUtilization = Class(TGoogleBaseObject)
+ Private
+ FutilizationTarget : double;
+ Protected
+ //Property setters
+ Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
+ Public
+ Published
+ Property utilizationTarget : double Index 0 Read FutilizationTarget Write SetutilizationTarget;
+ end;
+ TAutoscalingPolicyLoadBalancingUtilizationClass = Class of TAutoscalingPolicyLoadBalancingUtilization;
+
+ { --------------------------------------------------------------------
TBackend
--------------------------------------------------------------------}
@@ -664,12 +1047,12 @@ type
Protected
//Property setters
Procedure SetbalancingMode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcapacityScaler(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetcapacityScaler(AIndex : Integer; const AValue : integer); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setgroup(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxRate(AIndex : Integer; AValue : integer); virtual;
- Procedure SetmaxRatePerInstance(AIndex : Integer; AValue : integer); virtual;
- Procedure SetmaxUtilization(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmaxRate(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaxRatePerInstance(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaxUtilization(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property balancingMode : String Index 0 Read FbalancingMode Write SetbalancingMode;
@@ -699,23 +1082,25 @@ type
Fport : integer;
FportName : String;
Fprotocol : String;
+ Fregion : String;
FselfLink : String;
FtimeoutSec : integer;
Protected
//Property setters
- Procedure Setbackends(AIndex : Integer; AValue : TBackendServiceTypebackendsArray); virtual;
+ Procedure Setbackends(AIndex : Integer; const AValue : TBackendServiceTypebackendsArray); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure SethealthChecks(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SethealthChecks(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setport(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
Procedure SetportName(AIndex : Integer; const AValue : String); virtual;
Procedure Setprotocol(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeoutSec(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettimeoutSec(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -733,8 +1118,9 @@ type
Property port : integer Index 64 Read Fport Write Setport;
Property portName : String Index 72 Read FportName Write SetportName;
Property protocol : String Index 80 Read Fprotocol Write Setprotocol;
- Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
- Property timeoutSec : integer Index 96 Read FtimeoutSec Write SettimeoutSec;
+ Property region : String Index 88 Read Fregion Write Setregion;
+ Property selfLink : String Index 96 Read FselfLink Write SetselfLink;
+ Property timeoutSec : integer Index 104 Read FtimeoutSec Write SettimeoutSec;
end;
TBackendServiceClass = Class of TBackendService;
@@ -748,7 +1134,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SethealthStatus(AIndex : Integer; AValue : TBackendServiceGroupHealthTypehealthStatusArray); virtual;
+ Procedure SethealthStatus(AIndex : Integer; const AValue : TBackendServiceGroupHealthTypehealthStatusArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -775,7 +1161,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TBackendServiceListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TBackendServiceListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -831,6 +1217,8 @@ type
Fdescription : String;
Fid : String;
Fkind : String;
+ FlastAttachTimestamp : String;
+ FlastDetachTimestamp : String;
Flicenses : TStringArray;
Fname : String;
Foptions : String;
@@ -842,6 +1230,7 @@ type
FsourceSnapshotId : String;
Fstatus : String;
F_type : String;
+ Fusers : TStringArray;
Fzone : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
@@ -850,7 +1239,9 @@ type
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlicenses(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetlastAttachTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlastDetachTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setoptions(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -861,6 +1252,7 @@ type
Procedure SetsourceSnapshotId(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setusers(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -872,18 +1264,21 @@ type
Property description : String Index 8 Read Fdescription Write Setdescription;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
- Property licenses : TStringArray Index 32 Read Flicenses Write Setlicenses;
- Property name : String Index 40 Read Fname Write Setname;
- Property options : String Index 48 Read Foptions Write Setoptions;
- Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
- Property sizeGb : String Index 64 Read FsizeGb Write SetsizeGb;
- Property sourceImage : String Index 72 Read FsourceImage Write SetsourceImage;
- Property sourceImageId : String Index 80 Read FsourceImageId Write SetsourceImageId;
- Property sourceSnapshot : String Index 88 Read FsourceSnapshot Write SetsourceSnapshot;
- Property sourceSnapshotId : String Index 96 Read FsourceSnapshotId Write SetsourceSnapshotId;
- Property status : String Index 104 Read Fstatus Write Setstatus;
- Property _type : String Index 112 Read F_type Write Set_type;
- Property zone : String Index 120 Read Fzone Write Setzone;
+ Property lastAttachTimestamp : String Index 32 Read FlastAttachTimestamp Write SetlastAttachTimestamp;
+ Property lastDetachTimestamp : String Index 40 Read FlastDetachTimestamp Write SetlastDetachTimestamp;
+ Property licenses : TStringArray Index 48 Read Flicenses Write Setlicenses;
+ Property name : String Index 56 Read Fname Write Setname;
+ Property options : String Index 64 Read Foptions Write Setoptions;
+ Property selfLink : String Index 72 Read FselfLink Write SetselfLink;
+ Property sizeGb : String Index 80 Read FsizeGb Write SetsizeGb;
+ Property sourceImage : String Index 88 Read FsourceImage Write SetsourceImage;
+ Property sourceImageId : String Index 96 Read FsourceImageId Write SetsourceImageId;
+ Property sourceSnapshot : String Index 104 Read FsourceSnapshot Write SetsourceSnapshot;
+ Property sourceSnapshotId : String Index 112 Read FsourceSnapshotId Write SetsourceSnapshotId;
+ Property status : String Index 120 Read Fstatus Write Setstatus;
+ Property _type : String Index 128 Read F_type Write Set_type;
+ Property users : TStringArray Index 136 Read Fusers Write Setusers;
+ Property zone : String Index 144 Read Fzone Write Setzone;
end;
TDiskClass = Class of TDisk;
@@ -915,7 +1310,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TDiskAggregatedListTypeitems); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TDiskAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -943,7 +1338,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TDiskListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TDiskListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -1000,7 +1395,7 @@ type
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultDiskSizeGb(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus); virtual;
+ Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
@@ -1051,7 +1446,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TDiskTypeAggregatedListTypeitems); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TDiskTypeAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -1079,7 +1474,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TDiskTypeListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TDiskTypeListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -1128,7 +1523,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TDiskTypesScopedListTypewarningTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1152,8 +1547,8 @@ type
Fwarning : TDiskTypesScopedListTypewarning;
Protected
//Property setters
- Procedure SetdiskTypes(AIndex : Integer; AValue : TDiskTypesScopedListTypediskTypesArray); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TDiskTypesScopedListTypewarning); virtual;
+ Procedure SetdiskTypes(AIndex : Integer; const AValue : TDiskTypesScopedListTypediskTypesArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1166,6 +1561,22 @@ type
TDiskTypesScopedListClass = Class of TDiskTypesScopedList;
{ --------------------------------------------------------------------
+ TDisksResizeRequest
+ --------------------------------------------------------------------}
+
+ TDisksResizeRequest = Class(TGoogleBaseObject)
+ Private
+ FsizeGb : String;
+ Protected
+ //Property setters
+ Procedure SetsizeGb(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property sizeGb : String Index 0 Read FsizeGb Write SetsizeGb;
+ end;
+ TDisksResizeRequestClass = Class of TDisksResizeRequest;
+
+ { --------------------------------------------------------------------
TDisksScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
@@ -1196,7 +1607,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TDisksScopedListTypewarningTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TDisksScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1220,8 +1631,8 @@ type
Fwarning : TDisksScopedListTypewarning;
Protected
//Property setters
- Procedure Setdisks(AIndex : Integer; AValue : TDisksScopedListTypedisksArray); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TDisksScopedListTypewarning); virtual;
+ Procedure Setdisks(AIndex : Integer; const AValue : TDisksScopedListTypedisksArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TDisksScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1244,7 +1655,7 @@ type
Protected
//Property setters
Procedure SetIPProtocol(AIndex : Integer; const AValue : String); virtual;
- Procedure Setports(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setports(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1275,7 +1686,7 @@ type
FtargetTags : TStringArray;
Protected
//Property setters
- Procedure Setallowed(AIndex : Integer; AValue : TFirewallTypeallowedArray); virtual;
+ Procedure Setallowed(AIndex : Integer; const AValue : TFirewallTypeallowedArray); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
@@ -1283,9 +1694,9 @@ type
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsourceRanges(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsourceTags(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SettargetTags(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetsourceRanges(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetsourceTags(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SettargetTags(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1320,7 +1731,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TFirewallListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TFirewallListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -1412,7 +1823,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TForwardingRuleAggregatedListTypeitems); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TForwardingRuleAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -1440,7 +1851,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TForwardingRuleListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TForwardingRuleListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -1489,7 +1900,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TForwardingRulesScopedListTypewarningTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1513,8 +1924,8 @@ type
Fwarning : TForwardingRulesScopedListTypewarning;
Protected
//Property setters
- Procedure SetforwardingRules(AIndex : Integer; AValue : TForwardingRulesScopedListTypeforwardingRulesArray); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TForwardingRulesScopedListTypewarning); virtual;
+ Procedure SetforwardingRules(AIndex : Integer; const AValue : TForwardingRulesScopedListTypeforwardingRulesArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1557,7 +1968,7 @@ type
Procedure SethealthState(AIndex : Integer; const AValue : String); virtual;
Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
Procedure SetipAddress(AIndex : Integer; const AValue : String); virtual;
- Procedure Setport(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property healthState : String Index 0 Read FhealthState Write SethealthState;
@@ -1579,7 +1990,7 @@ type
Protected
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Sethosts(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Sethosts(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetpathMatcher(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1614,19 +2025,19 @@ type
FunhealthyThreshold : integer;
Protected
//Property setters
- Procedure SetcheckIntervalSec(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetcheckIntervalSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SethealthyThreshold(AIndex : Integer; AValue : integer); virtual;
+ Procedure SethealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setport(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
Procedure SetrequestPath(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeoutSec(AIndex : Integer; AValue : integer); virtual;
- Procedure SetunhealthyThreshold(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettimeoutSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetunhealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property checkIntervalSec : integer Index 0 Read FcheckIntervalSec Write SetcheckIntervalSec;
@@ -1659,7 +2070,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : THttpHealthCheckListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : THttpHealthCheckListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -1678,6 +2089,90 @@ type
THttpHealthCheckListClass = Class of THttpHealthCheckList;
{ --------------------------------------------------------------------
+ THttpsHealthCheck
+ --------------------------------------------------------------------}
+
+ THttpsHealthCheck = Class(TGoogleBaseObject)
+ Private
+ FcheckIntervalSec : integer;
+ FcreationTimestamp : String;
+ Fdescription : String;
+ FhealthyThreshold : integer;
+ Fhost : String;
+ Fid : String;
+ Fkind : String;
+ Fname : String;
+ Fport : integer;
+ FrequestPath : String;
+ FselfLink : String;
+ FtimeoutSec : integer;
+ FunhealthyThreshold : integer;
+ Protected
+ //Property setters
+ Procedure SetcheckIntervalSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetrequestPath(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettimeoutSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetunhealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property checkIntervalSec : integer Index 0 Read FcheckIntervalSec Write SetcheckIntervalSec;
+ Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ Property healthyThreshold : integer Index 24 Read FhealthyThreshold Write SethealthyThreshold;
+ Property host : String Index 32 Read Fhost Write Sethost;
+ Property id : String Index 40 Read Fid Write Setid;
+ Property kind : String Index 48 Read Fkind Write Setkind;
+ Property name : String Index 56 Read Fname Write Setname;
+ Property port : integer Index 64 Read Fport Write Setport;
+ Property requestPath : String Index 72 Read FrequestPath Write SetrequestPath;
+ Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
+ Property timeoutSec : integer Index 88 Read FtimeoutSec Write SettimeoutSec;
+ Property unhealthyThreshold : integer Index 96 Read FunhealthyThreshold Write SetunhealthyThreshold;
+ end;
+ THttpsHealthCheckClass = Class of THttpsHealthCheck;
+
+ { --------------------------------------------------------------------
+ THttpsHealthCheckList
+ --------------------------------------------------------------------}
+
+ THttpsHealthCheckList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : THttpsHealthCheckListTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : THttpsHealthCheckListTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : THttpsHealthCheckListTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ THttpsHealthCheckListClass = Class of THttpsHealthCheckList;
+
+ { --------------------------------------------------------------------
TImageTyperawDisk
--------------------------------------------------------------------}
@@ -1710,6 +2205,7 @@ type
Fdeprecated : TDeprecationStatus;
Fdescription : String;
FdiskSizeGb : String;
+ Ffamily : String;
Fid : String;
Fkind : String;
Flicenses : TStringArray;
@@ -1724,14 +2220,15 @@ type
//Property setters
Procedure SetarchiveSizeBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus); virtual;
+ Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetdiskSizeGb(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfamily(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlicenses(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrawDisk(AIndex : Integer; AValue : TImageTyperawDisk); virtual;
+ Procedure SetrawDisk(AIndex : Integer; const AValue : TImageTyperawDisk); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceDisk(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceDiskId(AIndex : Integer; const AValue : String); virtual;
@@ -1748,16 +2245,17 @@ type
Property deprecated : TDeprecationStatus Index 16 Read Fdeprecated Write Setdeprecated;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property diskSizeGb : String Index 32 Read FdiskSizeGb Write SetdiskSizeGb;
- Property id : String Index 40 Read Fid Write Setid;
- Property kind : String Index 48 Read Fkind Write Setkind;
- Property licenses : TStringArray Index 56 Read Flicenses Write Setlicenses;
- Property name : String Index 64 Read Fname Write Setname;
- Property rawDisk : TImageTyperawDisk Index 72 Read FrawDisk Write SetrawDisk;
- Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
- Property sourceDisk : String Index 88 Read FsourceDisk Write SetsourceDisk;
- Property sourceDiskId : String Index 96 Read FsourceDiskId Write SetsourceDiskId;
- Property sourceType : String Index 104 Read FsourceType Write SetsourceType;
- Property status : String Index 112 Read Fstatus Write Setstatus;
+ Property family : String Index 40 Read Ffamily Write Setfamily;
+ Property id : String Index 48 Read Fid Write Setid;
+ Property kind : String Index 56 Read Fkind Write Setkind;
+ Property licenses : TStringArray Index 64 Read Flicenses Write Setlicenses;
+ Property name : String Index 72 Read Fname Write Setname;
+ Property rawDisk : TImageTyperawDisk Index 80 Read FrawDisk Write SetrawDisk;
+ Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
+ Property sourceDisk : String Index 96 Read FsourceDisk Write SetsourceDisk;
+ Property sourceDiskId : String Index 104 Read FsourceDiskId Write SetsourceDiskId;
+ Property sourceType : String Index 112 Read FsourceType Write SetsourceType;
+ Property status : String Index 120 Read Fstatus Write Setstatus;
end;
TImageClass = Class of TImage;
@@ -1775,7 +2273,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TImageListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TImageListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -1819,23 +2317,23 @@ type
Fzone : String;
Protected
//Property setters
- Procedure SetcanIpForward(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcanIpForward(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcpuPlatform(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdisks(AIndex : Integer; AValue : TInstanceTypedisksArray); virtual;
+ Procedure Setdisks(AIndex : Integer; const AValue : TInstanceTypedisksArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetadata(AIndex : Integer; AValue : TMetadata); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TMetadata); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnetworkInterfaces(AIndex : Integer; AValue : TInstanceTypenetworkInterfacesArray); virtual;
- Procedure Setscheduling(AIndex : Integer; AValue : TScheduling); virtual;
+ Procedure SetnetworkInterfaces(AIndex : Integer; const AValue : TInstanceTypenetworkInterfacesArray); virtual;
+ Procedure Setscheduling(AIndex : Integer; const AValue : TScheduling); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetserviceAccounts(AIndex : Integer; AValue : TInstanceTypeserviceAccountsArray); virtual;
+ Procedure SetserviceAccounts(AIndex : Integer; const AValue : TInstanceTypeserviceAccountsArray); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
- Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
+ Procedure Settags(AIndex : Integer; const AValue : TTags); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1892,7 +2390,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TInstanceAggregatedListTypeitems); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInstanceAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -1907,6 +2405,669 @@ type
TInstanceAggregatedListClass = Class of TInstanceAggregatedList;
{ --------------------------------------------------------------------
+ TInstanceGroup
+ --------------------------------------------------------------------}
+
+ TInstanceGroup = Class(TGoogleBaseObject)
+ Private
+ FcreationTimestamp : String;
+ Fdescription : String;
+ Ffingerprint : String;
+ Fid : String;
+ Fkind : String;
+ Fname : String;
+ FnamedPorts : TInstanceGroupTypenamedPortsArray;
+ Fnetwork : String;
+ FselfLink : String;
+ Fsize : integer;
+ Fsubnetwork : String;
+ Fzone : String;
+ Protected
+ //Property setters
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupTypenamedPortsArray); virtual;
+ Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsize(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setsubnetwork(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setzone(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property fingerprint : String Index 16 Read Ffingerprint Write Setfingerprint;
+ Property id : String Index 24 Read Fid Write Setid;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property name : String Index 40 Read Fname Write Setname;
+ Property namedPorts : TInstanceGroupTypenamedPortsArray Index 48 Read FnamedPorts Write SetnamedPorts;
+ Property network : String Index 56 Read Fnetwork Write Setnetwork;
+ Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
+ Property size : integer Index 72 Read Fsize Write Setsize;
+ Property subnetwork : String Index 80 Read Fsubnetwork Write Setsubnetwork;
+ Property zone : String Index 88 Read Fzone Write Setzone;
+ end;
+ TInstanceGroupClass = Class of TInstanceGroup;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupAggregatedListTypeitems
+ --------------------------------------------------------------------}
+
+ TInstanceGroupAggregatedListTypeitems = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TInstanceGroupAggregatedListTypeitemsClass = Class of TInstanceGroupAggregatedListTypeitems;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupAggregatedList
+ --------------------------------------------------------------------}
+
+ TInstanceGroupAggregatedList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TInstanceGroupAggregatedListTypeitems;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupAggregatedListTypeitems); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TInstanceGroupAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TInstanceGroupAggregatedListClass = Class of TInstanceGroupAggregatedList;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupList
+ --------------------------------------------------------------------}
+
+ TInstanceGroupList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TInstanceGroupListTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupListTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TInstanceGroupListTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TInstanceGroupListClass = Class of TInstanceGroupList;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManager
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManager = Class(TGoogleBaseObject)
+ Private
+ FbaseInstanceName : String;
+ FcreationTimestamp : String;
+ FcurrentActions : TInstanceGroupManagerActionsSummary;
+ Fdescription : String;
+ Ffingerprint : String;
+ Fid : String;
+ FinstanceGroup : String;
+ FinstanceTemplate : String;
+ Fkind : String;
+ Fname : String;
+ FnamedPorts : TInstanceGroupManagerTypenamedPortsArray;
+ FselfLink : String;
+ FtargetPools : TStringArray;
+ FtargetSize : integer;
+ Fzone : String;
+ Protected
+ //Property setters
+ Procedure SetbaseInstanceName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcurrentActions(AIndex : Integer; const AValue : TInstanceGroupManagerActionsSummary); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceGroup(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceTemplate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupManagerTypenamedPortsArray); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettargetPools(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SettargetSize(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setzone(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 baseInstanceName : String Index 0 Read FbaseInstanceName Write SetbaseInstanceName;
+ Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property currentActions : TInstanceGroupManagerActionsSummary Index 16 Read FcurrentActions Write SetcurrentActions;
+ Property description : String Index 24 Read Fdescription Write Setdescription;
+ Property fingerprint : String Index 32 Read Ffingerprint Write Setfingerprint;
+ Property id : String Index 40 Read Fid Write Setid;
+ Property instanceGroup : String Index 48 Read FinstanceGroup Write SetinstanceGroup;
+ Property instanceTemplate : String Index 56 Read FinstanceTemplate Write SetinstanceTemplate;
+ Property kind : String Index 64 Read Fkind Write Setkind;
+ Property name : String Index 72 Read Fname Write Setname;
+ Property namedPorts : TInstanceGroupManagerTypenamedPortsArray Index 80 Read FnamedPorts Write SetnamedPorts;
+ Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
+ Property targetPools : TStringArray Index 96 Read FtargetPools Write SettargetPools;
+ Property targetSize : integer Index 104 Read FtargetSize Write SettargetSize;
+ Property zone : String Index 112 Read Fzone Write Setzone;
+ end;
+ TInstanceGroupManagerClass = Class of TInstanceGroupManager;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagerActionsSummary
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagerActionsSummary = Class(TGoogleBaseObject)
+ Private
+ Fabandoning : integer;
+ Fcreating : integer;
+ Fdeleting : integer;
+ Fnone : integer;
+ Frecreating : integer;
+ Frefreshing : integer;
+ Frestarting : integer;
+ Protected
+ //Property setters
+ Procedure Setabandoning(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setcreating(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdeleting(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setnone(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setrecreating(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setrefreshing(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setrestarting(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property abandoning : integer Index 0 Read Fabandoning Write Setabandoning;
+ Property creating : integer Index 8 Read Fcreating Write Setcreating;
+ Property deleting : integer Index 16 Read Fdeleting Write Setdeleting;
+ Property none : integer Index 24 Read Fnone Write Setnone;
+ Property recreating : integer Index 32 Read Frecreating Write Setrecreating;
+ Property refreshing : integer Index 40 Read Frefreshing Write Setrefreshing;
+ Property restarting : integer Index 48 Read Frestarting Write Setrestarting;
+ end;
+ TInstanceGroupManagerActionsSummaryClass = Class of TInstanceGroupManagerActionsSummary;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagerAggregatedListTypeitems
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagerAggregatedListTypeitems = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TInstanceGroupManagerAggregatedListTypeitemsClass = Class of TInstanceGroupManagerAggregatedListTypeitems;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagerAggregatedList
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagerAggregatedList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TInstanceGroupManagerAggregatedListTypeitems;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerAggregatedListTypeitems); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TInstanceGroupManagerAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TInstanceGroupManagerAggregatedListClass = Class of TInstanceGroupManagerAggregatedList;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagerList
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagerList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TInstanceGroupManagerListTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerListTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TInstanceGroupManagerListTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TInstanceGroupManagerListClass = Class of TInstanceGroupManagerList;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagersAbandonInstancesRequest
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagersAbandonInstancesRequest = Class(TGoogleBaseObject)
+ Private
+ Finstances : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setinstances(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 instances : TStringArray Index 0 Read Finstances Write Setinstances;
+ end;
+ TInstanceGroupManagersAbandonInstancesRequestClass = Class of TInstanceGroupManagersAbandonInstancesRequest;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagersDeleteInstancesRequest
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagersDeleteInstancesRequest = Class(TGoogleBaseObject)
+ Private
+ Finstances : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setinstances(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 instances : TStringArray Index 0 Read Finstances Write Setinstances;
+ end;
+ TInstanceGroupManagersDeleteInstancesRequestClass = Class of TInstanceGroupManagersDeleteInstancesRequest;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagersListManagedInstancesResponse
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagersListManagedInstancesResponse = Class(TGoogleBaseObject)
+ Private
+ FmanagedInstances : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray;
+ Protected
+ //Property setters
+ Procedure SetmanagedInstances(AIndex : Integer; const AValue : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property managedInstances : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray Index 0 Read FmanagedInstances Write SetmanagedInstances;
+ end;
+ TInstanceGroupManagersListManagedInstancesResponseClass = Class of TInstanceGroupManagersListManagedInstancesResponse;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagersRecreateInstancesRequest
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagersRecreateInstancesRequest = Class(TGoogleBaseObject)
+ Private
+ Finstances : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setinstances(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 instances : TStringArray Index 0 Read Finstances Write Setinstances;
+ end;
+ TInstanceGroupManagersRecreateInstancesRequestClass = Class of TInstanceGroupManagersRecreateInstancesRequest;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagersScopedListTypewarningTypedataItem
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagersScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TInstanceGroupManagersScopedListTypewarningTypedataItemClass = Class of TInstanceGroupManagersScopedListTypewarningTypedataItem;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagersScopedListTypewarning
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagersScopedListTypewarning = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Fdata : TInstanceGroupManagersScopedListTypewarningTypedataArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarningTypedataArray); virtual;
+ Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
+ Property data : TInstanceGroupManagersScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TInstanceGroupManagersScopedListTypewarningClass = Class of TInstanceGroupManagersScopedListTypewarning;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagersScopedList
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagersScopedList = Class(TGoogleBaseObject)
+ Private
+ FinstanceGroupManagers : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray;
+ Fwarning : TInstanceGroupManagersScopedListTypewarning;
+ Protected
+ //Property setters
+ Procedure SetinstanceGroupManagers(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarning); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property instanceGroupManagers : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray Index 0 Read FinstanceGroupManagers Write SetinstanceGroupManagers;
+ Property warning : TInstanceGroupManagersScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
+ end;
+ TInstanceGroupManagersScopedListClass = Class of TInstanceGroupManagersScopedList;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagersSetInstanceTemplateRequest
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagersSetInstanceTemplateRequest = Class(TGoogleBaseObject)
+ Private
+ FinstanceTemplate : String;
+ Protected
+ //Property setters
+ Procedure SetinstanceTemplate(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property instanceTemplate : String Index 0 Read FinstanceTemplate Write SetinstanceTemplate;
+ end;
+ TInstanceGroupManagersSetInstanceTemplateRequestClass = Class of TInstanceGroupManagersSetInstanceTemplateRequest;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupManagersSetTargetPoolsRequest
+ --------------------------------------------------------------------}
+
+ TInstanceGroupManagersSetTargetPoolsRequest = Class(TGoogleBaseObject)
+ Private
+ Ffingerprint : String;
+ FtargetPools : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettargetPools(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 fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
+ Property targetPools : TStringArray Index 8 Read FtargetPools Write SettargetPools;
+ end;
+ TInstanceGroupManagersSetTargetPoolsRequestClass = Class of TInstanceGroupManagersSetTargetPoolsRequest;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupsAddInstancesRequest
+ --------------------------------------------------------------------}
+
+ TInstanceGroupsAddInstancesRequest = Class(TGoogleBaseObject)
+ Private
+ Finstances : TInstanceGroupsAddInstancesRequestTypeinstancesArray;
+ Protected
+ //Property setters
+ Procedure Setinstances(AIndex : Integer; const AValue : TInstanceGroupsAddInstancesRequestTypeinstancesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property instances : TInstanceGroupsAddInstancesRequestTypeinstancesArray Index 0 Read Finstances Write Setinstances;
+ end;
+ TInstanceGroupsAddInstancesRequestClass = Class of TInstanceGroupsAddInstancesRequest;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupsListInstances
+ --------------------------------------------------------------------}
+
+ TInstanceGroupsListInstances = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TInstanceGroupsListInstancesTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupsListInstancesTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TInstanceGroupsListInstancesTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TInstanceGroupsListInstancesClass = Class of TInstanceGroupsListInstances;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupsListInstancesRequest
+ --------------------------------------------------------------------}
+
+ TInstanceGroupsListInstancesRequest = Class(TGoogleBaseObject)
+ Private
+ FinstanceState : String;
+ Protected
+ //Property setters
+ Procedure SetinstanceState(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property instanceState : String Index 0 Read FinstanceState Write SetinstanceState;
+ end;
+ TInstanceGroupsListInstancesRequestClass = Class of TInstanceGroupsListInstancesRequest;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupsRemoveInstancesRequest
+ --------------------------------------------------------------------}
+
+ TInstanceGroupsRemoveInstancesRequest = Class(TGoogleBaseObject)
+ Private
+ Finstances : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray;
+ Protected
+ //Property setters
+ Procedure Setinstances(AIndex : Integer; const AValue : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property instances : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray Index 0 Read Finstances Write Setinstances;
+ end;
+ TInstanceGroupsRemoveInstancesRequestClass = Class of TInstanceGroupsRemoveInstancesRequest;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupsScopedListTypewarningTypedataItem
+ --------------------------------------------------------------------}
+
+ TInstanceGroupsScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TInstanceGroupsScopedListTypewarningTypedataItemClass = Class of TInstanceGroupsScopedListTypewarningTypedataItem;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupsScopedListTypewarning
+ --------------------------------------------------------------------}
+
+ TInstanceGroupsScopedListTypewarning = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Fdata : TInstanceGroupsScopedListTypewarningTypedataArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarningTypedataArray); virtual;
+ Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
+ Property data : TInstanceGroupsScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TInstanceGroupsScopedListTypewarningClass = Class of TInstanceGroupsScopedListTypewarning;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupsScopedList
+ --------------------------------------------------------------------}
+
+ TInstanceGroupsScopedList = Class(TGoogleBaseObject)
+ Private
+ FinstanceGroups : TInstanceGroupsScopedListTypeinstanceGroupsArray;
+ Fwarning : TInstanceGroupsScopedListTypewarning;
+ Protected
+ //Property setters
+ Procedure SetinstanceGroups(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypeinstanceGroupsArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarning); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property instanceGroups : TInstanceGroupsScopedListTypeinstanceGroupsArray Index 0 Read FinstanceGroups Write SetinstanceGroups;
+ Property warning : TInstanceGroupsScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
+ end;
+ TInstanceGroupsScopedListClass = Class of TInstanceGroupsScopedList;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupsSetNamedPortsRequest
+ --------------------------------------------------------------------}
+
+ TInstanceGroupsSetNamedPortsRequest = Class(TGoogleBaseObject)
+ Private
+ Ffingerprint : String;
+ FnamedPorts : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray;
+ Protected
+ //Property setters
+ Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
+ Property namedPorts : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray Index 8 Read FnamedPorts Write SetnamedPorts;
+ end;
+ TInstanceGroupsSetNamedPortsRequestClass = Class of TInstanceGroupsSetNamedPortsRequest;
+
+ { --------------------------------------------------------------------
TInstanceList
--------------------------------------------------------------------}
@@ -1920,7 +3081,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TInstanceListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInstanceListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -1974,15 +3135,15 @@ type
Ftags : TTags;
Protected
//Property setters
- Procedure SetcanIpForward(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcanIpForward(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdisks(AIndex : Integer; AValue : TInstancePropertiesTypedisksArray); virtual;
+ Procedure Setdisks(AIndex : Integer; const AValue : TInstancePropertiesTypedisksArray); virtual;
Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetadata(AIndex : Integer; AValue : TMetadata); virtual;
- Procedure SetnetworkInterfaces(AIndex : Integer; AValue : TInstancePropertiesTypenetworkInterfacesArray); virtual;
- Procedure Setscheduling(AIndex : Integer; AValue : TScheduling); virtual;
- Procedure SetserviceAccounts(AIndex : Integer; AValue : TInstancePropertiesTypeserviceAccountsArray); virtual;
- Procedure Settags(AIndex : Integer; AValue : TTags); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TMetadata); virtual;
+ Procedure SetnetworkInterfaces(AIndex : Integer; const AValue : TInstancePropertiesTypenetworkInterfacesArray); virtual;
+ Procedure Setscheduling(AIndex : Integer; const AValue : TScheduling); virtual;
+ Procedure SetserviceAccounts(AIndex : Integer; const AValue : TInstancePropertiesTypeserviceAccountsArray); virtual;
+ Procedure Settags(AIndex : Integer; const AValue : TTags); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2037,7 +3198,7 @@ type
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setproperties(AIndex : Integer; AValue : TInstanceProperties); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TInstanceProperties); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2065,7 +3226,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TInstanceTemplateListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInstanceTemplateListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -2084,6 +3245,32 @@ type
TInstanceTemplateListClass = Class of TInstanceTemplateList;
{ --------------------------------------------------------------------
+ TInstanceWithNamedPorts
+ --------------------------------------------------------------------}
+
+ TInstanceWithNamedPorts = Class(TGoogleBaseObject)
+ Private
+ Finstance : String;
+ FnamedPorts : TInstanceWithNamedPortsTypenamedPortsArray;
+ Fstatus : String;
+ Protected
+ //Property setters
+ Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceWithNamedPortsTypenamedPortsArray); virtual;
+ Procedure Setstatus(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 instance : String Index 0 Read Finstance Write Setinstance;
+ Property namedPorts : TInstanceWithNamedPortsTypenamedPortsArray Index 8 Read FnamedPorts Write SetnamedPorts;
+ Property status : String Index 16 Read Fstatus Write Setstatus;
+ end;
+ TInstanceWithNamedPortsClass = Class of TInstanceWithNamedPorts;
+
+ { --------------------------------------------------------------------
TInstancesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
@@ -2114,7 +3301,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TInstancesScopedListTypewarningTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TInstancesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2138,8 +3325,8 @@ type
Fwarning : TInstancesScopedListTypewarning;
Protected
//Property setters
- Procedure Setinstances(AIndex : Integer; AValue : TInstancesScopedListTypeinstancesArray); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TInstancesScopedListTypewarning); virtual;
+ Procedure Setinstances(AIndex : Integer; const AValue : TInstancesScopedListTypeinstancesArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TInstancesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2152,6 +3339,22 @@ type
TInstancesScopedListClass = Class of TInstancesScopedList;
{ --------------------------------------------------------------------
+ TInstancesSetMachineTypeRequest
+ --------------------------------------------------------------------}
+
+ TInstancesSetMachineTypeRequest = Class(TGoogleBaseObject)
+ Private
+ FmachineType : String;
+ Protected
+ //Property setters
+ Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property machineType : String Index 0 Read FmachineType Write SetmachineType;
+ end;
+ TInstancesSetMachineTypeRequestClass = Class of TInstancesSetMachineTypeRequest;
+
+ { --------------------------------------------------------------------
TLicense
--------------------------------------------------------------------}
@@ -2163,7 +3366,7 @@ type
FselfLink : String;
Protected
//Property setters
- Procedure SetchargesUseFee(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetchargesUseFee(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -2185,7 +3388,7 @@ type
FdiskGb : integer;
Protected
//Property setters
- Procedure SetdiskGb(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetdiskGb(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property diskGb : integer Index 0 Read FdiskGb Write SetdiskGb;
@@ -2215,17 +3418,17 @@ type
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus); virtual;
+ Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetguestCpus(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetguestCpus(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetimageSpaceGb(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetimageSpaceGb(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaximumPersistentDisks(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmaximumPersistentDisks(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmaximumPersistentDisksSizeGb(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmemoryMb(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmemoryMb(AIndex : Integer; const AValue : integer); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetscratchDisks(AIndex : Integer; AValue : TMachineTypeTypescratchDisksArray); virtual;
+ Procedure SetscratchDisks(AIndex : Integer; const AValue : TMachineTypeTypescratchDisksArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2279,7 +3482,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TMachineTypeAggregatedListTypeitems); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TMachineTypeAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -2307,7 +3510,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TMachineTypeListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TMachineTypeListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -2356,7 +3559,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TMachineTypesScopedListTypewarningTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2380,8 +3583,8 @@ type
Fwarning : TMachineTypesScopedListTypewarning;
Protected
//Property setters
- Procedure SetmachineTypes(AIndex : Integer; AValue : TMachineTypesScopedListTypemachineTypesArray); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TMachineTypesScopedListTypewarning); virtual;
+ Procedure SetmachineTypes(AIndex : Integer; const AValue : TMachineTypesScopedListTypemachineTypesArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2394,6 +3597,92 @@ type
TMachineTypesScopedListClass = Class of TMachineTypesScopedList;
{ --------------------------------------------------------------------
+ TManagedInstance
+ --------------------------------------------------------------------}
+
+ TManagedInstance = Class(TGoogleBaseObject)
+ Private
+ FcurrentAction : String;
+ Fid : String;
+ Finstance : String;
+ FinstanceStatus : String;
+ FlastAttempt : TManagedInstanceLastAttempt;
+ Protected
+ //Property setters
+ Procedure SetcurrentAction(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlastAttempt(AIndex : Integer; const AValue : TManagedInstanceLastAttempt); virtual;
+ Public
+ Published
+ Property currentAction : String Index 0 Read FcurrentAction Write SetcurrentAction;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property instance : String Index 16 Read Finstance Write Setinstance;
+ Property instanceStatus : String Index 24 Read FinstanceStatus Write SetinstanceStatus;
+ Property lastAttempt : TManagedInstanceLastAttempt Index 32 Read FlastAttempt Write SetlastAttempt;
+ end;
+ TManagedInstanceClass = Class of TManagedInstance;
+
+ { --------------------------------------------------------------------
+ TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem
+ --------------------------------------------------------------------}
+
+ TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Flocation : String;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property code : String Index 0 Read Fcode Write Setcode;
+ Property location : String Index 8 Read Flocation Write Setlocation;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TManagedInstanceLastAttemptTypeerrorsTypeerrorsItemClass = Class of TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem;
+
+ { --------------------------------------------------------------------
+ TManagedInstanceLastAttemptTypeerrors
+ --------------------------------------------------------------------}
+
+ TManagedInstanceLastAttemptTypeerrors = Class(TGoogleBaseObject)
+ Private
+ Ferrors : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray;
+ Protected
+ //Property setters
+ Procedure Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property errors : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
+ end;
+ TManagedInstanceLastAttemptTypeerrorsClass = Class of TManagedInstanceLastAttemptTypeerrors;
+
+ { --------------------------------------------------------------------
+ TManagedInstanceLastAttempt
+ --------------------------------------------------------------------}
+
+ TManagedInstanceLastAttempt = Class(TGoogleBaseObject)
+ Private
+ Ferrors : TManagedInstanceLastAttemptTypeerrors;
+ Protected
+ //Property setters
+ Procedure Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrors); virtual;
+ Public
+ Published
+ Property errors : TManagedInstanceLastAttemptTypeerrors Index 0 Read Ferrors Write Seterrors;
+ end;
+ TManagedInstanceLastAttemptClass = Class of TManagedInstanceLastAttempt;
+
+ { --------------------------------------------------------------------
TMetadataTypeitemsItem
--------------------------------------------------------------------}
@@ -2424,7 +3713,7 @@ type
Protected
//Property setters
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TMetadataTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2439,12 +3728,32 @@ type
TMetadataClass = Class of TMetadata;
{ --------------------------------------------------------------------
+ TNamedPort
+ --------------------------------------------------------------------}
+
+ TNamedPort = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fport : integer;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property port : integer Index 8 Read Fport Write Setport;
+ end;
+ TNamedPortClass = Class of TNamedPort;
+
+ { --------------------------------------------------------------------
TNetwork
--------------------------------------------------------------------}
TNetwork = Class(TGoogleBaseObject)
Private
FIPv4Range : String;
+ FautoCreateSubnetworks : boolean;
FcreationTimestamp : String;
Fdescription : String;
FgatewayIPv4 : String;
@@ -2452,9 +3761,11 @@ type
Fkind : String;
Fname : String;
FselfLink : String;
+ Fsubnetworks : TStringArray;
Protected
//Property setters
Procedure SetIPv4Range(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetautoCreateSubnetworks(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetgatewayIPv4(AIndex : Integer; const AValue : String); virtual;
@@ -2462,16 +3773,23 @@ type
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsubnetworks(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 IPv4Range : String Index 0 Read FIPv4Range Write SetIPv4Range;
- Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
- Property description : String Index 16 Read Fdescription Write Setdescription;
- Property gatewayIPv4 : String Index 24 Read FgatewayIPv4 Write SetgatewayIPv4;
- Property id : String Index 32 Read Fid Write Setid;
- Property kind : String Index 40 Read Fkind Write Setkind;
- Property name : String Index 48 Read Fname Write Setname;
- Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
+ Property autoCreateSubnetworks : boolean Index 8 Read FautoCreateSubnetworks Write SetautoCreateSubnetworks;
+ Property creationTimestamp : String Index 16 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 24 Read Fdescription Write Setdescription;
+ Property gatewayIPv4 : String Index 32 Read FgatewayIPv4 Write SetgatewayIPv4;
+ Property id : String Index 40 Read Fid Write Setid;
+ Property kind : String Index 48 Read Fkind Write Setkind;
+ Property name : String Index 56 Read Fname Write Setname;
+ Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
+ Property subnetworks : TStringArray Index 72 Read Fsubnetworks Write Setsubnetworks;
end;
TNetworkClass = Class of TNetwork;
@@ -2485,12 +3803,14 @@ type
Fname : String;
Fnetwork : String;
FnetworkIP : String;
+ Fsubnetwork : String;
Protected
//Property setters
- Procedure SetaccessConfigs(AIndex : Integer; AValue : TNetworkInterfaceTypeaccessConfigsArray); virtual;
+ Procedure SetaccessConfigs(AIndex : Integer; const AValue : TNetworkInterfaceTypeaccessConfigsArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
Procedure SetnetworkIP(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsubnetwork(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2501,6 +3821,7 @@ type
Property name : String Index 8 Read Fname Write Setname;
Property network : String Index 16 Read Fnetwork Write Setnetwork;
Property networkIP : String Index 24 Read FnetworkIP Write SetnetworkIP;
+ Property subnetwork : String Index 32 Read Fsubnetwork Write Setsubnetwork;
end;
TNetworkInterfaceClass = Class of TNetworkInterface;
@@ -2518,7 +3839,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TNetworkListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TNetworkListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -2567,7 +3888,7 @@ type
Ferrors : TOperationTypeerrorTypeerrorsArray;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2609,7 +3930,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2631,6 +3952,7 @@ type
Private
FclientOperationId : String;
FcreationTimestamp : String;
+ Fdescription : String;
FendTime : String;
Ferror : TOperationTypeerror;
FhttpErrorMessage : String;
@@ -2655,16 +3977,17 @@ type
//Property setters
Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TOperationTypeerror); virtual;
Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
- Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
+ Procedure SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprogress(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
@@ -2673,7 +3996,7 @@ type
Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2683,26 +4006,27 @@ type
Published
Property clientOperationId : String Index 0 Read FclientOperationId Write SetclientOperationId;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
- Property endTime : String Index 16 Read FendTime Write SetendTime;
- Property error : TOperationTypeerror Index 24 Read Ferror Write Seterror;
- Property httpErrorMessage : String Index 32 Read FhttpErrorMessage Write SethttpErrorMessage;
- Property httpErrorStatusCode : integer Index 40 Read FhttpErrorStatusCode Write SethttpErrorStatusCode;
- Property id : String Index 48 Read Fid Write Setid;
- Property insertTime : String Index 56 Read FinsertTime Write SetinsertTime;
- Property kind : String Index 64 Read Fkind Write Setkind;
- Property name : String Index 72 Read Fname Write Setname;
- Property operationType : String Index 80 Read FoperationType Write SetoperationType;
- Property progress : integer Index 88 Read Fprogress Write Setprogress;
- Property region : String Index 96 Read Fregion Write Setregion;
- Property selfLink : String Index 104 Read FselfLink Write SetselfLink;
- Property startTime : String Index 112 Read FstartTime Write SetstartTime;
- Property status : String Index 120 Read Fstatus Write Setstatus;
- Property statusMessage : String Index 128 Read FstatusMessage Write SetstatusMessage;
- Property targetId : String Index 136 Read FtargetId Write SettargetId;
- Property targetLink : String Index 144 Read FtargetLink Write SettargetLink;
- Property user : String Index 152 Read Fuser Write Setuser;
- Property warnings : TOperationTypewarningsArray Index 160 Read Fwarnings Write Setwarnings;
- Property zone : String Index 168 Read Fzone Write Setzone;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ Property endTime : String Index 24 Read FendTime Write SetendTime;
+ Property error : TOperationTypeerror Index 32 Read Ferror Write Seterror;
+ Property httpErrorMessage : String Index 40 Read FhttpErrorMessage Write SethttpErrorMessage;
+ Property httpErrorStatusCode : integer Index 48 Read FhttpErrorStatusCode Write SethttpErrorStatusCode;
+ Property id : String Index 56 Read Fid Write Setid;
+ Property insertTime : String Index 64 Read FinsertTime Write SetinsertTime;
+ Property kind : String Index 72 Read Fkind Write Setkind;
+ Property name : String Index 80 Read Fname Write Setname;
+ Property operationType : String Index 88 Read FoperationType Write SetoperationType;
+ Property progress : integer Index 96 Read Fprogress Write Setprogress;
+ Property region : String Index 104 Read Fregion Write Setregion;
+ Property selfLink : String Index 112 Read FselfLink Write SetselfLink;
+ Property startTime : String Index 120 Read FstartTime Write SetstartTime;
+ Property status : String Index 128 Read Fstatus Write Setstatus;
+ Property statusMessage : String Index 136 Read FstatusMessage Write SetstatusMessage;
+ Property targetId : String Index 144 Read FtargetId Write SettargetId;
+ Property targetLink : String Index 152 Read FtargetLink Write SettargetLink;
+ Property user : String Index 160 Read Fuser Write Setuser;
+ Property warnings : TOperationTypewarningsArray Index 168 Read Fwarnings Write Setwarnings;
+ Property zone : String Index 176 Read Fzone Write Setzone;
end;
TOperationClass = Class of TOperation;
@@ -2734,7 +4058,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TOperationAggregatedListTypeitems); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TOperationAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -2762,7 +4086,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -2811,7 +4135,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TOperationsScopedListTypewarningTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TOperationsScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2835,8 +4159,8 @@ type
Fwarning : TOperationsScopedListTypewarning;
Protected
//Property setters
- Procedure Setoperations(AIndex : Integer; AValue : TOperationsScopedListTypeoperationsArray); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TOperationsScopedListTypewarning); virtual;
+ Procedure Setoperations(AIndex : Integer; const AValue : TOperationsScopedListTypeoperationsArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TOperationsScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2863,7 +4187,7 @@ type
Procedure SetdefaultService(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpathRules(AIndex : Integer; AValue : TPathMatcherTypepathRulesArray); virtual;
+ Procedure SetpathRules(AIndex : Integer; const AValue : TPathMatcherTypepathRulesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2887,7 +4211,7 @@ type
Fservice : String;
Protected
//Property setters
- Procedure Setpaths(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setpaths(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setservice(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2909,6 +4233,7 @@ type
FcommonInstanceMetadata : TMetadata;
FcreationTimestamp : String;
Fdescription : String;
+ FenabledFeatures : TStringArray;
Fid : String;
Fkind : String;
Fname : String;
@@ -2917,15 +4242,16 @@ type
FusageExportLocation : TUsageExportLocation;
Protected
//Property setters
- Procedure SetcommonInstanceMetadata(AIndex : Integer; AValue : TMetadata); virtual;
+ Procedure SetcommonInstanceMetadata(AIndex : Integer; const AValue : TMetadata); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetenabledFeatures(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setquotas(AIndex : Integer; AValue : TProjectTypequotasArray); virtual;
+ Procedure Setquotas(AIndex : Integer; const AValue : TProjectTypequotasArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetusageExportLocation(AIndex : Integer; AValue : TUsageExportLocation); virtual;
+ Procedure SetusageExportLocation(AIndex : Integer; const AValue : TUsageExportLocation); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2935,12 +4261,13 @@ type
Property commonInstanceMetadata : TMetadata Index 0 Read FcommonInstanceMetadata Write SetcommonInstanceMetadata;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 16 Read Fdescription Write Setdescription;
- Property id : String Index 24 Read Fid Write Setid;
- Property kind : String Index 32 Read Fkind Write Setkind;
- Property name : String Index 40 Read Fname Write Setname;
- Property quotas : TProjectTypequotasArray Index 48 Read Fquotas Write Setquotas;
- Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
- Property usageExportLocation : TUsageExportLocation Index 64 Read FusageExportLocation Write SetusageExportLocation;
+ Property enabledFeatures : TStringArray Index 24 Read FenabledFeatures Write SetenabledFeatures;
+ Property id : String Index 32 Read Fid Write Setid;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property name : String Index 48 Read Fname Write Setname;
+ Property quotas : TProjectTypequotasArray Index 56 Read Fquotas Write Setquotas;
+ Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
+ Property usageExportLocation : TUsageExportLocation Index 72 Read FusageExportLocation Write SetusageExportLocation;
end;
TProjectClass = Class of TProject;
@@ -2955,9 +4282,9 @@ type
Fusage : double;
Protected
//Property setters
- Procedure Setlimit(AIndex : Integer; AValue : double); virtual;
+ Procedure Setlimit(AIndex : Integer; const AValue : double); virtual;
Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
- Procedure Setusage(AIndex : Integer; AValue : double); virtual;
+ Procedure Setusage(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property limit : double Index 0 Read Flimit Write Setlimit;
@@ -2985,15 +4312,15 @@ type
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus); virtual;
+ Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setquotas(AIndex : Integer; AValue : TRegionTypequotasArray); virtual;
+ Procedure Setquotas(AIndex : Integer; const AValue : TRegionTypequotasArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setzones(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setzones(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3027,7 +4354,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TRegionListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TRegionListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -3092,7 +4419,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TRouteTypewarningsItemTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TRouteTypewarningsItemTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3142,10 +4469,10 @@ type
Procedure SetnextHopIp(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextHopNetwork(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextHopVpnTunnel(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpriority(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setpriority(AIndex : Integer; const AValue : integer); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Settags(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TRouteTypewarningsArray); virtual;
+ Procedure Settags(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TRouteTypewarningsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3185,7 +4512,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TRouteListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TRouteListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -3214,9 +4541,9 @@ type
Fpreemptible : boolean;
Protected
//Property setters
- Procedure SetautomaticRestart(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetautomaticRestart(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetonHostMaintenance(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpreemptible(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setpreemptible(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property automaticRestart : boolean Index 0 Read FautomaticRestart Write SetautomaticRestart;
@@ -3258,7 +4585,7 @@ type
Protected
//Property setters
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setscopes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setscopes(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3296,7 +4623,7 @@ type
Procedure SetdiskSizeGb(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlicenses(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceDisk(AIndex : Integer; const AValue : String); virtual;
@@ -3340,7 +4667,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TSnapshotListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSnapshotListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -3359,6 +4686,260 @@ type
TSnapshotListClass = Class of TSnapshotList;
{ --------------------------------------------------------------------
+ TSslCertificate
+ --------------------------------------------------------------------}
+
+ TSslCertificate = Class(TGoogleBaseObject)
+ Private
+ Fcertificate : String;
+ FcreationTimestamp : String;
+ Fdescription : String;
+ Fid : String;
+ Fkind : String;
+ Fname : String;
+ FprivateKey : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setcertificate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprivateKey(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property certificate : String Index 0 Read Fcertificate Write Setcertificate;
+ Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ Property id : String Index 24 Read Fid Write Setid;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property name : String Index 40 Read Fname Write Setname;
+ Property privateKey : String Index 48 Read FprivateKey Write SetprivateKey;
+ Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
+ end;
+ TSslCertificateClass = Class of TSslCertificate;
+
+ { --------------------------------------------------------------------
+ TSslCertificateList
+ --------------------------------------------------------------------}
+
+ TSslCertificateList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TSslCertificateListTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSslCertificateListTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TSslCertificateListTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TSslCertificateListClass = Class of TSslCertificateList;
+
+ { --------------------------------------------------------------------
+ TSubnetwork
+ --------------------------------------------------------------------}
+
+ TSubnetwork = Class(TGoogleBaseObject)
+ Private
+ FcreationTimestamp : String;
+ Fdescription : String;
+ FgatewayAddress : String;
+ Fid : String;
+ FipCidrRange : String;
+ Fkind : String;
+ Fname : String;
+ Fnetwork : String;
+ Fregion : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetgatewayAddress(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetipCidrRange(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property gatewayAddress : String Index 16 Read FgatewayAddress Write SetgatewayAddress;
+ Property id : String Index 24 Read Fid Write Setid;
+ Property ipCidrRange : String Index 32 Read FipCidrRange Write SetipCidrRange;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property name : String Index 48 Read Fname Write Setname;
+ Property network : String Index 56 Read Fnetwork Write Setnetwork;
+ Property region : String Index 64 Read Fregion Write Setregion;
+ Property selfLink : String Index 72 Read FselfLink Write SetselfLink;
+ end;
+ TSubnetworkClass = Class of TSubnetwork;
+
+ { --------------------------------------------------------------------
+ TSubnetworkAggregatedListTypeitems
+ --------------------------------------------------------------------}
+
+ TSubnetworkAggregatedListTypeitems = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TSubnetworkAggregatedListTypeitemsClass = Class of TSubnetworkAggregatedListTypeitems;
+
+ { --------------------------------------------------------------------
+ TSubnetworkAggregatedList
+ --------------------------------------------------------------------}
+
+ TSubnetworkAggregatedList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TSubnetworkAggregatedListTypeitems;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSubnetworkAggregatedListTypeitems); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TSubnetworkAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TSubnetworkAggregatedListClass = Class of TSubnetworkAggregatedList;
+
+ { --------------------------------------------------------------------
+ TSubnetworkList
+ --------------------------------------------------------------------}
+
+ TSubnetworkList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TSubnetworkListTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSubnetworkListTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TSubnetworkListTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TSubnetworkListClass = Class of TSubnetworkList;
+
+ { --------------------------------------------------------------------
+ TSubnetworksScopedListTypewarningTypedataItem
+ --------------------------------------------------------------------}
+
+ TSubnetworksScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TSubnetworksScopedListTypewarningTypedataItemClass = Class of TSubnetworksScopedListTypewarningTypedataItem;
+
+ { --------------------------------------------------------------------
+ TSubnetworksScopedListTypewarning
+ --------------------------------------------------------------------}
+
+ TSubnetworksScopedListTypewarning = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Fdata : TSubnetworksScopedListTypewarningTypedataArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarningTypedataArray); virtual;
+ Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
+ Property data : TSubnetworksScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TSubnetworksScopedListTypewarningClass = Class of TSubnetworksScopedListTypewarning;
+
+ { --------------------------------------------------------------------
+ TSubnetworksScopedList
+ --------------------------------------------------------------------}
+
+ TSubnetworksScopedList = Class(TGoogleBaseObject)
+ Private
+ Fsubnetworks : TSubnetworksScopedListTypesubnetworksArray;
+ Fwarning : TSubnetworksScopedListTypewarning;
+ Protected
+ //Property setters
+ Procedure Setsubnetworks(AIndex : Integer; const AValue : TSubnetworksScopedListTypesubnetworksArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarning); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property subnetworks : TSubnetworksScopedListTypesubnetworksArray Index 0 Read Fsubnetworks Write Setsubnetworks;
+ Property warning : TSubnetworksScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
+ end;
+ TSubnetworksScopedListClass = Class of TSubnetworksScopedList;
+
+ { --------------------------------------------------------------------
TTags
--------------------------------------------------------------------}
@@ -3369,7 +4950,7 @@ type
Protected
//Property setters
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3429,7 +5010,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TTargetHttpProxyListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTargetHttpProxyListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -3448,6 +5029,99 @@ type
TTargetHttpProxyListClass = Class of TTargetHttpProxyList;
{ --------------------------------------------------------------------
+ TTargetHttpsProxiesSetSslCertificatesRequest
+ --------------------------------------------------------------------}
+
+ TTargetHttpsProxiesSetSslCertificatesRequest = Class(TGoogleBaseObject)
+ Private
+ FsslCertificates : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetsslCertificates(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 sslCertificates : TStringArray Index 0 Read FsslCertificates Write SetsslCertificates;
+ end;
+ TTargetHttpsProxiesSetSslCertificatesRequestClass = Class of TTargetHttpsProxiesSetSslCertificatesRequest;
+
+ { --------------------------------------------------------------------
+ TTargetHttpsProxy
+ --------------------------------------------------------------------}
+
+ TTargetHttpsProxy = Class(TGoogleBaseObject)
+ Private
+ FcreationTimestamp : String;
+ Fdescription : String;
+ Fid : String;
+ Fkind : String;
+ Fname : String;
+ FselfLink : String;
+ FsslCertificates : TStringArray;
+ FurlMap : String;
+ Protected
+ //Property setters
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsslCertificates(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SeturlMap(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property kind : String Index 24 Read Fkind Write Setkind;
+ Property name : String Index 32 Read Fname Write Setname;
+ Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
+ Property sslCertificates : TStringArray Index 48 Read FsslCertificates Write SetsslCertificates;
+ Property urlMap : String Index 56 Read FurlMap Write SeturlMap;
+ end;
+ TTargetHttpsProxyClass = Class of TTargetHttpsProxy;
+
+ { --------------------------------------------------------------------
+ TTargetHttpsProxyList
+ --------------------------------------------------------------------}
+
+ TTargetHttpsProxyList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TTargetHttpsProxyListTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTargetHttpsProxyListTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TTargetHttpsProxyListTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TTargetHttpsProxyListClass = Class of TTargetHttpsProxyList;
+
+ { --------------------------------------------------------------------
TTargetInstance
--------------------------------------------------------------------}
@@ -3515,7 +5189,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TTargetInstanceAggregatedListTypeitems); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTargetInstanceAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -3543,7 +5217,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TTargetInstanceListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTargetInstanceListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -3592,7 +5266,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TTargetInstancesScopedListTypewarningTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3616,8 +5290,8 @@ type
Fwarning : TTargetInstancesScopedListTypewarning;
Protected
//Property setters
- Procedure SettargetInstances(AIndex : Integer; AValue : TTargetInstancesScopedListTypetargetInstancesArray); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TTargetInstancesScopedListTypewarning); virtual;
+ Procedure SettargetInstances(AIndex : Integer; const AValue : TTargetInstancesScopedListTypetargetInstancesArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3652,10 +5326,10 @@ type
Procedure SetbackupPool(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfailoverRatio(AIndex : Integer; AValue : integer); virtual;
- Procedure SethealthChecks(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetfailoverRatio(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SethealthChecks(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinstances(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
@@ -3710,7 +5384,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TTargetPoolAggregatedListTypeitems); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTargetPoolAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -3734,7 +5408,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SethealthStatus(AIndex : Integer; AValue : TTargetPoolInstanceHealthTypehealthStatusArray); virtual;
+ Procedure SethealthStatus(AIndex : Integer; const AValue : TTargetPoolInstanceHealthTypehealthStatusArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3761,7 +5435,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TTargetPoolListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTargetPoolListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -3788,7 +5462,7 @@ type
FhealthChecks : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray;
Protected
//Property setters
- Procedure SethealthChecks(AIndex : Integer; AValue : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray); virtual;
+ Procedure SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3808,7 +5482,7 @@ type
Finstances : TTargetPoolsAddInstanceRequestTypeinstancesArray;
Protected
//Property setters
- Procedure Setinstances(AIndex : Integer; AValue : TTargetPoolsAddInstanceRequestTypeinstancesArray); virtual;
+ Procedure Setinstances(AIndex : Integer; const AValue : TTargetPoolsAddInstanceRequestTypeinstancesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3828,7 +5502,7 @@ type
FhealthChecks : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray;
Protected
//Property setters
- Procedure SethealthChecks(AIndex : Integer; AValue : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray); virtual;
+ Procedure SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3848,7 +5522,7 @@ type
Finstances : TTargetPoolsRemoveInstanceRequestTypeinstancesArray;
Protected
//Property setters
- Procedure Setinstances(AIndex : Integer; AValue : TTargetPoolsRemoveInstanceRequestTypeinstancesArray); virtual;
+ Procedure Setinstances(AIndex : Integer; const AValue : TTargetPoolsRemoveInstanceRequestTypeinstancesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3890,7 +5564,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TTargetPoolsScopedListTypewarningTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3914,8 +5588,8 @@ type
Fwarning : TTargetPoolsScopedListTypewarning;
Protected
//Property setters
- Procedure SettargetPools(AIndex : Integer; AValue : TTargetPoolsScopedListTypetargetPoolsArray); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TTargetPoolsScopedListTypewarning); virtual;
+ Procedure SettargetPools(AIndex : Integer; const AValue : TTargetPoolsScopedListTypetargetPoolsArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3964,7 +5638,7 @@ type
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetforwardingRules(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetforwardingRules(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
@@ -3972,7 +5646,7 @@ type
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Settunnels(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Settunnels(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4021,7 +5695,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TTargetVpnGatewayAggregatedListTypeitems); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -4049,7 +5723,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TTargetVpnGatewayListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -4098,7 +5772,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TTargetVpnGatewaysScopedListTypewarningTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -4122,8 +5796,8 @@ type
Fwarning : TTargetVpnGatewaysScopedListTypewarning;
Protected
//Property setters
- Procedure SettargetVpnGateways(AIndex : Integer; AValue : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TTargetVpnGatewaysScopedListTypewarning); virtual;
+ Procedure SettargetVpnGateways(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4183,13 +5857,13 @@ type
Procedure SetdefaultService(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure SethostRules(AIndex : Integer; AValue : TUrlMapTypehostRulesArray); virtual;
+ Procedure SethostRules(AIndex : Integer; const AValue : TUrlMapTypehostRulesArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpathMatchers(AIndex : Integer; AValue : TUrlMapTypepathMatchersArray); virtual;
+ Procedure SetpathMatchers(AIndex : Integer; const AValue : TUrlMapTypepathMatchersArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Settests(AIndex : Integer; AValue : TUrlMapTypetestsArray); virtual;
+ Procedure Settests(AIndex : Integer; const AValue : TUrlMapTypetestsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4224,7 +5898,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TUrlMapListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TUrlMapListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -4295,10 +5969,10 @@ type
FtestPassed : boolean;
Protected
//Property setters
- Procedure SetloadErrors(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetloadSucceeded(AIndex : Integer; AValue : boolean); virtual;
- Procedure SettestFailures(AIndex : Integer; AValue : TUrlMapValidationResultTypetestFailuresArray); virtual;
- Procedure SettestPassed(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetloadErrors(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetloadSucceeded(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SettestFailures(AIndex : Integer; const AValue : TUrlMapValidationResultTypetestFailuresArray); virtual;
+ Procedure SettestPassed(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4321,7 +5995,7 @@ type
Fresource : TUrlMap;
Protected
//Property setters
- Procedure Setresource(AIndex : Integer; AValue : TUrlMap); virtual;
+ Procedure Setresource(AIndex : Integer; const AValue : TUrlMap); virtual;
Public
Published
Property resource : TUrlMap Index 0 Read Fresource Write Setresource;
@@ -4337,7 +6011,7 @@ type
Fresult : TUrlMapValidationResult;
Protected
//Property setters
- Procedure Setresult(AIndex : Integer; AValue : TUrlMapValidationResult); virtual;
+ Procedure Setresult(AIndex : Integer; const AValue : TUrlMapValidationResult); virtual;
Public
Published
Property result : TUrlMapValidationResult Index 0 Read Fresult Write Setresult;
@@ -4373,9 +6047,9 @@ type
Fdescription : String;
FdetailedStatus : String;
Fid : String;
- FikeNetworks : TStringArray;
FikeVersion : integer;
Fkind : String;
+ FlocalTrafficSelector : TStringArray;
Fname : String;
FpeerIp : String;
Fregion : String;
@@ -4390,9 +6064,9 @@ type
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetdetailedStatus(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetikeNetworks(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetikeVersion(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetikeVersion(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlocalTrafficSelector(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetpeerIp(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
@@ -4411,9 +6085,9 @@ type
Property description : String Index 8 Read Fdescription Write Setdescription;
Property detailedStatus : String Index 16 Read FdetailedStatus Write SetdetailedStatus;
Property id : String Index 24 Read Fid Write Setid;
- Property ikeNetworks : TStringArray Index 32 Read FikeNetworks Write SetikeNetworks;
- Property ikeVersion : integer Index 40 Read FikeVersion Write SetikeVersion;
- Property kind : String Index 48 Read Fkind Write Setkind;
+ Property ikeVersion : integer Index 32 Read FikeVersion Write SetikeVersion;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property localTrafficSelector : TStringArray Index 48 Read FlocalTrafficSelector Write SetlocalTrafficSelector;
Property name : String Index 56 Read Fname Write Setname;
Property peerIp : String Index 64 Read FpeerIp Write SetpeerIp;
Property region : String Index 72 Read Fregion Write Setregion;
@@ -4453,7 +6127,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TVpnTunnelAggregatedListTypeitems); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TVpnTunnelAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -4481,7 +6155,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TVpnTunnelListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TVpnTunnelListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -4530,7 +6204,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TVpnTunnelsScopedListTypewarningTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -4554,8 +6228,8 @@ type
Fwarning : TVpnTunnelsScopedListTypewarning;
Protected
//Property setters
- Procedure SetvpnTunnels(AIndex : Integer; AValue : TVpnTunnelsScopedListTypevpnTunnelsArray); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TVpnTunnelsScopedListTypewarning); virtual;
+ Procedure SetvpnTunnels(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypevpnTunnelsArray); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4568,31 +6242,6 @@ type
TVpnTunnelsScopedListClass = Class of TVpnTunnelsScopedList;
{ --------------------------------------------------------------------
- TZoneTypemaintenanceWindowsItem
- --------------------------------------------------------------------}
-
- TZoneTypemaintenanceWindowsItem = Class(TGoogleBaseObject)
- Private
- FbeginTime : String;
- Fdescription : String;
- FendTime : String;
- Fname : String;
- Protected
- //Property setters
- Procedure SetbeginTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property beginTime : String Index 0 Read FbeginTime Write SetbeginTime;
- Property description : String Index 8 Read Fdescription Write Setdescription;
- Property endTime : String Index 16 Read FendTime Write SetendTime;
- Property name : String Index 24 Read Fname Write Setname;
- end;
- TZoneTypemaintenanceWindowsItemClass = Class of TZoneTypemaintenanceWindowsItem;
-
- { --------------------------------------------------------------------
TZone
--------------------------------------------------------------------}
@@ -4603,7 +6252,6 @@ type
Fdescription : String;
Fid : String;
Fkind : String;
- FmaintenanceWindows : TZoneTypemaintenanceWindowsArray;
Fname : String;
Fregion : String;
FselfLink : String;
@@ -4611,19 +6259,14 @@ type
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus); virtual;
+ Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaintenanceWindows(AIndex : Integer; AValue : TZoneTypemaintenanceWindowsArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
@@ -4631,11 +6274,10 @@ type
Property description : String Index 16 Read Fdescription Write Setdescription;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
- Property maintenanceWindows : TZoneTypemaintenanceWindowsArray Index 40 Read FmaintenanceWindows Write SetmaintenanceWindows;
- Property name : String Index 48 Read Fname Write Setname;
- Property region : String Index 56 Read Fregion Write Setregion;
- Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
- Property status : String Index 72 Read Fstatus Write Setstatus;
+ Property name : String Index 40 Read Fname Write Setname;
+ Property region : String Index 48 Read Fregion Write Setregion;
+ Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
+ Property status : String Index 64 Read Fstatus Write Setstatus;
end;
TZoneClass = Class of TZone;
@@ -4653,7 +6295,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TZoneListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TZoneListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -4708,6 +6350,60 @@ type
{ --------------------------------------------------------------------
+ TAutoscalersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAutoscalersResource, method AggregatedList
+
+ TAutoscalersAggregatedListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TAutoscalersResource, method List
+
+ TAutoscalersListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TAutoscalersResource, method Patch
+
+ TAutoscalersPatchOptions = Record
+ autoscaler : String;
+ end;
+
+
+ //Optional query Options for TAutoscalersResource, method Update
+
+ TAutoscalersUpdateOptions = Record
+ autoscaler : String;
+ end;
+
+ TAutoscalersResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function AggregatedList(project: string; AQuery : string = '') : TAutoscalerAggregatedList;
+ Function AggregatedList(project: string; AQuery : TAutoscalersaggregatedListOptions) : TAutoscalerAggregatedList;
+ Function Delete(autoscaler: string; project: string; zone: string) : TOperation;
+ Function Get(autoscaler: string; project: string; zone: string) : TAutoscaler;
+ Function Insert(project: string; zone: string; aAutoscaler : TAutoscaler) : TOperation;
+ Function List(project: string; zone: string; AQuery : string = '') : TAutoscalerList;
+ Function List(project: string; zone: string; AQuery : TAutoscalerslistOptions) : TAutoscalerList;
+ Function Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string = '') : TOperation;
+ Function Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalerspatchOptions) : TOperation;
+ Function Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string = '') : TOperation;
+ Function Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalersupdateOptions) : TOperation;
+ end;
+
+
+ { --------------------------------------------------------------------
TBackendServicesResource
--------------------------------------------------------------------}
@@ -4811,6 +6507,7 @@ type
Function Insert(project: string; zone: string; aDisk : TDisk; AQuery : TDisksinsertOptions) : TOperation;
Function List(project: string; zone: string; AQuery : string = '') : TDiskList;
Function List(project: string; zone: string; AQuery : TDiskslistOptions) : TDiskList;
+ Function Resize(disk: string; project: string; zone: string; aDisksResizeRequest : TDisksResizeRequest) : TOperation;
end;
@@ -4992,6 +6689,33 @@ type
{ --------------------------------------------------------------------
+ THttpsHealthChecksResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for THttpsHealthChecksResource, method List
+
+ THttpsHealthChecksListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+ THttpsHealthChecksResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Delete(httpsHealthCheck: string; project: string) : TOperation;
+ Function Get(httpsHealthCheck: string; project: string) : THttpsHealthCheck;
+ Function Insert(project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
+ Function List(project: string; AQuery : string = '') : THttpsHealthCheckList;
+ Function List(project: string; AQuery : THttpsHealthCheckslistOptions) : THttpsHealthCheckList;
+ Function Patch(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
+ Function Update(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
+ end;
+
+
+ { --------------------------------------------------------------------
TImagesResource
--------------------------------------------------------------------}
@@ -5011,6 +6735,7 @@ type
Function Delete(image: string; project: string) : TOperation;
Function Deprecate(image: string; project: string; aDeprecationStatus : TDeprecationStatus) : TOperation;
Function Get(image: string; project: string) : TImage;
+ Function GetFromFamily(family: string; project: string) : TImage;
Function Insert(project: string; aImage : TImage) : TOperation;
Function List(project: string; AQuery : string = '') : TImageList;
Function List(project: string; AQuery : TImageslistOptions) : TImageList;
@@ -5018,6 +6743,107 @@ type
{ --------------------------------------------------------------------
+ TInstanceGroupManagersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TInstanceGroupManagersResource, method AggregatedList
+
+ TInstanceGroupManagersAggregatedListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TInstanceGroupManagersResource, method List
+
+ TInstanceGroupManagersListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TInstanceGroupManagersResource, method Resize
+
+ TInstanceGroupManagersResizeOptions = Record
+ size : integer;
+ end;
+
+ TInstanceGroupManagersResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function AbandonInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersAbandonInstancesRequest : TInstanceGroupManagersAbandonInstancesRequest) : TOperation;
+ Function AggregatedList(project: string; AQuery : string = '') : TInstanceGroupManagerAggregatedList;
+ Function AggregatedList(project: string; AQuery : TInstanceGroupManagersaggregatedListOptions) : TInstanceGroupManagerAggregatedList;
+ Function Delete(instanceGroupManager: string; project: string; zone: string) : TOperation;
+ Function DeleteInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersDeleteInstancesRequest : TInstanceGroupManagersDeleteInstancesRequest) : TOperation;
+ Function Get(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManager;
+ Function Insert(project: string; zone: string; aInstanceGroupManager : TInstanceGroupManager) : TOperation;
+ Function List(project: string; zone: string; AQuery : string = '') : TInstanceGroupManagerList;
+ Function List(project: string; zone: string; AQuery : TInstanceGroupManagerslistOptions) : TInstanceGroupManagerList;
+ Function ListManagedInstances(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManagersListManagedInstancesResponse;
+ Function RecreateInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersRecreateInstancesRequest : TInstanceGroupManagersRecreateInstancesRequest) : TOperation;
+ Function Resize(instanceGroupManager: string; project: string; zone: string; AQuery : string = '') : TOperation;
+ Function Resize(instanceGroupManager: string; project: string; zone: string; AQuery : TInstanceGroupManagersresizeOptions) : TOperation;
+ Function SetInstanceTemplate(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetInstanceTemplateRequest : TInstanceGroupManagersSetInstanceTemplateRequest) : TOperation;
+ Function SetTargetPools(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetTargetPoolsRequest : TInstanceGroupManagersSetTargetPoolsRequest) : TOperation;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TInstanceGroupsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TInstanceGroupsResource, method AggregatedList
+
+ TInstanceGroupsAggregatedListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TInstanceGroupsResource, method List
+
+ TInstanceGroupsListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TInstanceGroupsResource, method ListInstances
+
+ TInstanceGroupsListInstancesOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+ TInstanceGroupsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function AddInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsAddInstancesRequest : TInstanceGroupsAddInstancesRequest) : TOperation;
+ Function AggregatedList(project: string; AQuery : string = '') : TInstanceGroupAggregatedList;
+ Function AggregatedList(project: string; AQuery : TInstanceGroupsaggregatedListOptions) : TInstanceGroupAggregatedList;
+ Function Delete(instanceGroup: string; project: string; zone: string) : TOperation;
+ Function Get(instanceGroup: string; project: string; zone: string) : TInstanceGroup;
+ Function Insert(project: string; zone: string; aInstanceGroup : TInstanceGroup) : TOperation;
+ Function List(project: string; zone: string; AQuery : string = '') : TInstanceGroupList;
+ Function List(project: string; zone: string; AQuery : TInstanceGroupslistOptions) : TInstanceGroupList;
+ Function ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : string = '') : TInstanceGroupsListInstances;
+ Function ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : TInstanceGroupslistInstancesOptions) : TInstanceGroupsListInstances;
+ Function RemoveInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsRemoveInstancesRequest : TInstanceGroupsRemoveInstancesRequest) : TOperation;
+ Function SetNamedPorts(instanceGroup: string; project: string; zone: string; aInstanceGroupsSetNamedPortsRequest : TInstanceGroupsSetNamedPortsRequest) : TOperation;
+ end;
+
+
+ { --------------------------------------------------------------------
TInstanceTemplatesResource
--------------------------------------------------------------------}
@@ -5124,6 +6950,7 @@ type
Function Reset(instance: string; project: string; zone: string) : TOperation;
Function SetDiskAutoDelete(instance: string; project: string; zone: string; AQuery : string = '') : TOperation;
Function SetDiskAutoDelete(instance: string; project: string; zone: string; AQuery : TInstancessetDiskAutoDeleteOptions) : TOperation;
+ Function SetMachineType(instance: string; project: string; zone: string; aInstancesSetMachineTypeRequest : TInstancesSetMachineTypeRequest) : TOperation;
Function SetMetadata(instance: string; project: string; zone: string; aMetadata : TMetadata) : TOperation;
Function SetScheduling(instance: string; project: string; zone: string; aScheduling : TScheduling) : TOperation;
Function SetTags(instance: string; project: string; zone: string; aTags : TTags) : TOperation;
@@ -5316,6 +7143,67 @@ type
{ --------------------------------------------------------------------
+ TSslCertificatesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TSslCertificatesResource, method List
+
+ TSslCertificatesListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+ TSslCertificatesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Delete(project: string; sslCertificate: string) : TOperation;
+ Function Get(project: string; sslCertificate: string) : TSslCertificate;
+ Function Insert(project: string; aSslCertificate : TSslCertificate) : TOperation;
+ Function List(project: string; AQuery : string = '') : TSslCertificateList;
+ Function List(project: string; AQuery : TSslCertificateslistOptions) : TSslCertificateList;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TSubnetworksResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TSubnetworksResource, method AggregatedList
+
+ TSubnetworksAggregatedListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TSubnetworksResource, method List
+
+ TSubnetworksListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+ TSubnetworksResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function AggregatedList(project: string; AQuery : string = '') : TSubnetworkAggregatedList;
+ Function AggregatedList(project: string; AQuery : TSubnetworksaggregatedListOptions) : TSubnetworkAggregatedList;
+ Function Delete(project: string; region: string; subnetwork: string) : TOperation;
+ Function Get(project: string; region: string; subnetwork: string) : TSubnetwork;
+ Function Insert(project: string; region: string; aSubnetwork : TSubnetwork) : TOperation;
+ Function List(project: string; region: string; AQuery : string = '') : TSubnetworkList;
+ Function List(project: string; region: string; AQuery : TSubnetworkslistOptions) : TSubnetworkList;
+ end;
+
+
+ { --------------------------------------------------------------------
TTargetHttpProxiesResource
--------------------------------------------------------------------}
@@ -5342,6 +7230,33 @@ type
{ --------------------------------------------------------------------
+ TTargetHttpsProxiesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TTargetHttpsProxiesResource, method List
+
+ TTargetHttpsProxiesListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
+ TTargetHttpsProxiesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Delete(project: string; targetHttpsProxy: string) : TOperation;
+ Function Get(project: string; targetHttpsProxy: string) : TTargetHttpsProxy;
+ Function Insert(project: string; aTargetHttpsProxy : TTargetHttpsProxy) : TOperation;
+ Function List(project: string; AQuery : string = '') : TTargetHttpsProxyList;
+ Function List(project: string; AQuery : TTargetHttpsProxieslistOptions) : TTargetHttpsProxyList;
+ Function SetSslCertificates(project: string; targetHttpsProxy: string; aTargetHttpsProxiesSetSslCertificatesRequest : TTargetHttpsProxiesSetSslCertificatesRequest) : TOperation;
+ Function SetUrlMap(project: string; targetHttpsProxy: string; aUrlMapReference : TUrlMapReference) : TOperation;
+ end;
+
+
+ { --------------------------------------------------------------------
TTargetInstancesResource
--------------------------------------------------------------------}
@@ -5581,6 +7496,7 @@ type
TComputeAPI = Class(TGoogleAPI)
Private
FAddressesInstance : TAddressesResource;
+ FAutoscalersInstance : TAutoscalersResource;
FBackendServicesInstance : TBackendServicesResource;
FDiskTypesInstance : TDiskTypesResource;
FDisksInstance : TDisksResource;
@@ -5590,7 +7506,10 @@ type
FGlobalForwardingRulesInstance : TGlobalForwardingRulesResource;
FGlobalOperationsInstance : TGlobalOperationsResource;
FHttpHealthChecksInstance : THttpHealthChecksResource;
+ FHttpsHealthChecksInstance : THttpsHealthChecksResource;
FImagesInstance : TImagesResource;
+ FInstanceGroupManagersInstance : TInstanceGroupManagersResource;
+ FInstanceGroupsInstance : TInstanceGroupsResource;
FInstanceTemplatesInstance : TInstanceTemplatesResource;
FInstancesInstance : TInstancesResource;
FLicensesInstance : TLicensesResource;
@@ -5601,7 +7520,10 @@ type
FRegionsInstance : TRegionsResource;
FRoutesInstance : TRoutesResource;
FSnapshotsInstance : TSnapshotsResource;
+ FSslCertificatesInstance : TSslCertificatesResource;
+ FSubnetworksInstance : TSubnetworksResource;
FTargetHttpProxiesInstance : TTargetHttpProxiesResource;
+ FTargetHttpsProxiesInstance : TTargetHttpsProxiesResource;
FTargetInstancesInstance : TTargetInstancesResource;
FTargetPoolsInstance : TTargetPoolsResource;
FTargetVpnGatewaysInstance : TTargetVpnGatewaysResource;
@@ -5610,6 +7532,7 @@ type
FZoneOperationsInstance : TZoneOperationsResource;
FZonesInstance : TZonesResource;
Function GetAddressesInstance : TAddressesResource;virtual;
+ Function GetAutoscalersInstance : TAutoscalersResource;virtual;
Function GetBackendServicesInstance : TBackendServicesResource;virtual;
Function GetDiskTypesInstance : TDiskTypesResource;virtual;
Function GetDisksInstance : TDisksResource;virtual;
@@ -5619,7 +7542,10 @@ type
Function GetGlobalForwardingRulesInstance : TGlobalForwardingRulesResource;virtual;
Function GetGlobalOperationsInstance : TGlobalOperationsResource;virtual;
Function GetHttpHealthChecksInstance : THttpHealthChecksResource;virtual;
+ Function GetHttpsHealthChecksInstance : THttpsHealthChecksResource;virtual;
Function GetImagesInstance : TImagesResource;virtual;
+ Function GetInstanceGroupManagersInstance : TInstanceGroupManagersResource;virtual;
+ Function GetInstanceGroupsInstance : TInstanceGroupsResource;virtual;
Function GetInstanceTemplatesInstance : TInstanceTemplatesResource;virtual;
Function GetInstancesInstance : TInstancesResource;virtual;
Function GetLicensesInstance : TLicensesResource;virtual;
@@ -5630,7 +7556,10 @@ type
Function GetRegionsInstance : TRegionsResource;virtual;
Function GetRoutesInstance : TRoutesResource;virtual;
Function GetSnapshotsInstance : TSnapshotsResource;virtual;
+ Function GetSslCertificatesInstance : TSslCertificatesResource;virtual;
+ Function GetSubnetworksInstance : TSubnetworksResource;virtual;
Function GetTargetHttpProxiesInstance : TTargetHttpProxiesResource;virtual;
+ Function GetTargetHttpsProxiesInstance : TTargetHttpsProxiesResource;virtual;
Function GetTargetInstancesInstance : TTargetInstancesResource;virtual;
Function GetTargetPoolsInstance : TTargetPoolsResource;virtual;
Function GetTargetVpnGatewaysInstance : TTargetVpnGatewaysResource;virtual;
@@ -5663,6 +7592,8 @@ type
//Add create function for resources
Function CreateAddressesResource(AOwner : TComponent) : TAddressesResource;virtual;overload;
Function CreateAddressesResource : TAddressesResource;virtual;overload;
+ Function CreateAutoscalersResource(AOwner : TComponent) : TAutoscalersResource;virtual;overload;
+ Function CreateAutoscalersResource : TAutoscalersResource;virtual;overload;
Function CreateBackendServicesResource(AOwner : TComponent) : TBackendServicesResource;virtual;overload;
Function CreateBackendServicesResource : TBackendServicesResource;virtual;overload;
Function CreateDiskTypesResource(AOwner : TComponent) : TDiskTypesResource;virtual;overload;
@@ -5681,8 +7612,14 @@ type
Function CreateGlobalOperationsResource : TGlobalOperationsResource;virtual;overload;
Function CreateHttpHealthChecksResource(AOwner : TComponent) : THttpHealthChecksResource;virtual;overload;
Function CreateHttpHealthChecksResource : THttpHealthChecksResource;virtual;overload;
+ Function CreateHttpsHealthChecksResource(AOwner : TComponent) : THttpsHealthChecksResource;virtual;overload;
+ Function CreateHttpsHealthChecksResource : THttpsHealthChecksResource;virtual;overload;
Function CreateImagesResource(AOwner : TComponent) : TImagesResource;virtual;overload;
Function CreateImagesResource : TImagesResource;virtual;overload;
+ Function CreateInstanceGroupManagersResource(AOwner : TComponent) : TInstanceGroupManagersResource;virtual;overload;
+ Function CreateInstanceGroupManagersResource : TInstanceGroupManagersResource;virtual;overload;
+ Function CreateInstanceGroupsResource(AOwner : TComponent) : TInstanceGroupsResource;virtual;overload;
+ Function CreateInstanceGroupsResource : TInstanceGroupsResource;virtual;overload;
Function CreateInstanceTemplatesResource(AOwner : TComponent) : TInstanceTemplatesResource;virtual;overload;
Function CreateInstanceTemplatesResource : TInstanceTemplatesResource;virtual;overload;
Function CreateInstancesResource(AOwner : TComponent) : TInstancesResource;virtual;overload;
@@ -5703,8 +7640,14 @@ type
Function CreateRoutesResource : TRoutesResource;virtual;overload;
Function CreateSnapshotsResource(AOwner : TComponent) : TSnapshotsResource;virtual;overload;
Function CreateSnapshotsResource : TSnapshotsResource;virtual;overload;
+ Function CreateSslCertificatesResource(AOwner : TComponent) : TSslCertificatesResource;virtual;overload;
+ Function CreateSslCertificatesResource : TSslCertificatesResource;virtual;overload;
+ Function CreateSubnetworksResource(AOwner : TComponent) : TSubnetworksResource;virtual;overload;
+ Function CreateSubnetworksResource : TSubnetworksResource;virtual;overload;
Function CreateTargetHttpProxiesResource(AOwner : TComponent) : TTargetHttpProxiesResource;virtual;overload;
Function CreateTargetHttpProxiesResource : TTargetHttpProxiesResource;virtual;overload;
+ Function CreateTargetHttpsProxiesResource(AOwner : TComponent) : TTargetHttpsProxiesResource;virtual;overload;
+ Function CreateTargetHttpsProxiesResource : TTargetHttpsProxiesResource;virtual;overload;
Function CreateTargetInstancesResource(AOwner : TComponent) : TTargetInstancesResource;virtual;overload;
Function CreateTargetInstancesResource : TTargetInstancesResource;virtual;overload;
Function CreateTargetPoolsResource(AOwner : TComponent) : TTargetPoolsResource;virtual;overload;
@@ -5721,6 +7664,7 @@ type
Function CreateZonesResource : TZonesResource;virtual;overload;
//Add default on-demand instances for resources
Property AddressesResource : TAddressesResource Read GetAddressesInstance;
+ Property AutoscalersResource : TAutoscalersResource Read GetAutoscalersInstance;
Property BackendServicesResource : TBackendServicesResource Read GetBackendServicesInstance;
Property DiskTypesResource : TDiskTypesResource Read GetDiskTypesInstance;
Property DisksResource : TDisksResource Read GetDisksInstance;
@@ -5730,7 +7674,10 @@ type
Property GlobalForwardingRulesResource : TGlobalForwardingRulesResource Read GetGlobalForwardingRulesInstance;
Property GlobalOperationsResource : TGlobalOperationsResource Read GetGlobalOperationsInstance;
Property HttpHealthChecksResource : THttpHealthChecksResource Read GetHttpHealthChecksInstance;
+ Property HttpsHealthChecksResource : THttpsHealthChecksResource Read GetHttpsHealthChecksInstance;
Property ImagesResource : TImagesResource Read GetImagesInstance;
+ Property InstanceGroupManagersResource : TInstanceGroupManagersResource Read GetInstanceGroupManagersInstance;
+ Property InstanceGroupsResource : TInstanceGroupsResource Read GetInstanceGroupsInstance;
Property InstanceTemplatesResource : TInstanceTemplatesResource Read GetInstanceTemplatesInstance;
Property InstancesResource : TInstancesResource Read GetInstancesInstance;
Property LicensesResource : TLicensesResource Read GetLicensesInstance;
@@ -5741,7 +7688,10 @@ type
Property RegionsResource : TRegionsResource Read GetRegionsInstance;
Property RoutesResource : TRoutesResource Read GetRoutesInstance;
Property SnapshotsResource : TSnapshotsResource Read GetSnapshotsInstance;
+ Property SslCertificatesResource : TSslCertificatesResource Read GetSslCertificatesInstance;
+ Property SubnetworksResource : TSubnetworksResource Read GetSubnetworksInstance;
Property TargetHttpProxiesResource : TTargetHttpProxiesResource Read GetTargetHttpProxiesInstance;
+ Property TargetHttpsProxiesResource : TTargetHttpsProxiesResource Read GetTargetHttpsProxiesInstance;
Property TargetInstancesResource : TTargetInstancesResource Read GetTargetInstancesInstance;
Property TargetPoolsResource : TTargetPoolsResource Read GetTargetPoolsInstance;
Property TargetVpnGatewaysResource : TTargetVpnGatewaysResource Read GetTargetVpnGatewaysInstance;
@@ -5907,7 +7857,7 @@ end;
-Procedure TAddress.Setusers(AIndex : Integer; AValue : TStringArray);
+Procedure TAddress.Setusers(AIndex : Integer; const AValue : TStringArray);
begin
If (Fusers=AValue) then exit;
@@ -5960,7 +7910,7 @@ end;
-Procedure TAddressAggregatedList.Setitems(AIndex : Integer; AValue : TAddressAggregatedListTypeitems);
+Procedure TAddressAggregatedList.Setitems(AIndex : Integer; const AValue : TAddressAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
@@ -6017,7 +7967,7 @@ end;
-Procedure TAddressList.Setitems(AIndex : Integer; AValue : TAddressListTypeitemsArray);
+Procedure TAddressList.Setitems(AIndex : Integer; const AValue : TAddressListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6114,7 +8064,7 @@ end;
-Procedure TAddressesScopedListTypewarning.Setdata(AIndex : Integer; AValue : TAddressesScopedListTypewarningTypedataArray);
+Procedure TAddressesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TAddressesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -6154,7 +8104,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAddressesScopedList.Setaddresses(AIndex : Integer; AValue : TAddressesScopedListTypeaddressesArray);
+Procedure TAddressesScopedList.Setaddresses(AIndex : Integer; const AValue : TAddressesScopedListTypeaddressesArray);
begin
If (Faddresses=AValue) then exit;
@@ -6164,7 +8114,7 @@ end;
-Procedure TAddressesScopedList.Setwarning(AIndex : Integer; AValue : TAddressesScopedListTypewarning);
+Procedure TAddressesScopedList.Setwarning(AIndex : Integer; const AValue : TAddressesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
@@ -6194,7 +8144,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAttachedDisk.SetautoDelete(AIndex : Integer; AValue : boolean);
+Procedure TAttachedDisk.SetautoDelete(AIndex : Integer; const AValue : boolean);
begin
If (FautoDelete=AValue) then exit;
@@ -6204,7 +8154,7 @@ end;
-Procedure TAttachedDisk.Setboot(AIndex : Integer; AValue : boolean);
+Procedure TAttachedDisk.Setboot(AIndex : Integer; const AValue : boolean);
begin
If (Fboot=AValue) then exit;
@@ -6224,7 +8174,7 @@ end;
-Procedure TAttachedDisk.Setindex(AIndex : Integer; AValue : integer);
+Procedure TAttachedDisk.Setindex(AIndex : Integer; const AValue : integer);
begin
If (Findex=AValue) then exit;
@@ -6234,7 +8184,7 @@ end;
-Procedure TAttachedDisk.SetinitializeParams(AIndex : Integer; AValue : TAttachedDiskInitializeParams);
+Procedure TAttachedDisk.SetinitializeParams(AIndex : Integer; const AValue : TAttachedDiskInitializeParams);
begin
If (FinitializeParams=AValue) then exit;
@@ -6264,7 +8214,7 @@ end;
-Procedure TAttachedDisk.Setlicenses(AIndex : Integer; AValue : TStringArray);
+Procedure TAttachedDisk.Setlicenses(AIndex : Integer; const AValue : TStringArray);
begin
If (Flicenses=AValue) then exit;
@@ -6379,6 +8329,511 @@ end;
{ --------------------------------------------------------------------
+ TAutoscaler
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoscaler.SetautoscalingPolicy(AIndex : Integer; const AValue : TAutoscalingPolicy);
+
+begin
+ If (FautoscalingPolicy=AValue) then exit;
+ FautoscalingPolicy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscaler.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscaler.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscaler.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscaler.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscaler.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscaler.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscaler.Settarget(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftarget=AValue) then exit;
+ Ftarget:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscaler.Setzone(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fzone=AValue) then exit;
+ Fzone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutoscalerAggregatedListTypeitems
+ --------------------------------------------------------------------}
+
+
+Class Function TAutoscalerAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAutoscalerAggregatedList
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoscalerAggregatedList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalerAggregatedList.Setitems(AIndex : Integer; const AValue : TAutoscalerAggregatedListTypeitems);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalerAggregatedList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalerAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalerAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutoscalerList
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoscalerList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalerList.Setitems(AIndex : Integer; const AValue : TAutoscalerListTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalerList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalerList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalerList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAutoscalerList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutoscalersScopedListTypewarningTypedataItem
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoscalersScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalersScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutoscalersScopedListTypewarning
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoscalersScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalersScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarningTypedataArray);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalersScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAutoscalersScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'data' : SetLength(Fdata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutoscalersScopedList
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoscalersScopedList.Setautoscalers(AIndex : Integer; const AValue : TAutoscalersScopedListTypeautoscalersArray);
+
+begin
+ If (Fautoscalers=AValue) then exit;
+ Fautoscalers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalersScopedList.Setwarning(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarning);
+
+begin
+ If (Fwarning=AValue) then exit;
+ Fwarning:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAutoscalersScopedList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'autoscalers' : SetLength(Fautoscalers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutoscalingPolicy
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoscalingPolicy.SetcoolDownPeriodSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FcoolDownPeriodSec=AValue) then exit;
+ FcoolDownPeriodSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalingPolicy.SetcpuUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyCpuUtilization);
+
+begin
+ If (FcpuUtilization=AValue) then exit;
+ FcpuUtilization:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalingPolicy.SetcustomMetricUtilizations(AIndex : Integer; const AValue : TAutoscalingPolicyTypecustomMetricUtilizationsArray);
+
+begin
+ If (FcustomMetricUtilizations=AValue) then exit;
+ FcustomMetricUtilizations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalingPolicy.SetloadBalancingUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyLoadBalancingUtilization);
+
+begin
+ If (FloadBalancingUtilization=AValue) then exit;
+ FloadBalancingUtilization:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalingPolicy.SetmaxNumReplicas(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaxNumReplicas=AValue) then exit;
+ FmaxNumReplicas:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalingPolicy.SetminNumReplicas(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FminNumReplicas=AValue) then exit;
+ FminNumReplicas:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAutoscalingPolicy.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'custommetricutilizations' : SetLength(FcustomMetricUtilizations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutoscalingPolicyCpuUtilization
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoscalingPolicyCpuUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double);
+
+begin
+ If (FutilizationTarget=AValue) then exit;
+ FutilizationTarget:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutoscalingPolicyCustomMetricUtilization
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoscalingPolicyCustomMetricUtilization.Setmetric(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmetric=AValue) then exit;
+ Fmetric:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalingPolicyCustomMetricUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double);
+
+begin
+ If (FutilizationTarget=AValue) then exit;
+ FutilizationTarget:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoscalingPolicyCustomMetricUtilization.SetutilizationTargetType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FutilizationTargetType=AValue) then exit;
+ FutilizationTargetType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutoscalingPolicyLoadBalancingUtilization
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoscalingPolicyLoadBalancingUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double);
+
+begin
+ If (FutilizationTarget=AValue) then exit;
+ FutilizationTarget:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TBackend
--------------------------------------------------------------------}
@@ -6393,7 +8848,7 @@ end;
-Procedure TBackend.SetcapacityScaler(AIndex : Integer; AValue : integer);
+Procedure TBackend.SetcapacityScaler(AIndex : Integer; const AValue : integer);
begin
If (FcapacityScaler=AValue) then exit;
@@ -6423,7 +8878,7 @@ end;
-Procedure TBackend.SetmaxRate(AIndex : Integer; AValue : integer);
+Procedure TBackend.SetmaxRate(AIndex : Integer; const AValue : integer);
begin
If (FmaxRate=AValue) then exit;
@@ -6433,7 +8888,7 @@ end;
-Procedure TBackend.SetmaxRatePerInstance(AIndex : Integer; AValue : integer);
+Procedure TBackend.SetmaxRatePerInstance(AIndex : Integer; const AValue : integer);
begin
If (FmaxRatePerInstance=AValue) then exit;
@@ -6443,7 +8898,7 @@ end;
-Procedure TBackend.SetmaxUtilization(AIndex : Integer; AValue : integer);
+Procedure TBackend.SetmaxUtilization(AIndex : Integer; const AValue : integer);
begin
If (FmaxUtilization=AValue) then exit;
@@ -6460,7 +8915,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBackendService.Setbackends(AIndex : Integer; AValue : TBackendServiceTypebackendsArray);
+Procedure TBackendService.Setbackends(AIndex : Integer; const AValue : TBackendServiceTypebackendsArray);
begin
If (Fbackends=AValue) then exit;
@@ -6500,7 +8955,7 @@ end;
-Procedure TBackendService.SethealthChecks(AIndex : Integer; AValue : TStringArray);
+Procedure TBackendService.SethealthChecks(AIndex : Integer; const AValue : TStringArray);
begin
If (FhealthChecks=AValue) then exit;
@@ -6540,7 +8995,7 @@ end;
-Procedure TBackendService.Setport(AIndex : Integer; AValue : integer);
+Procedure TBackendService.Setport(AIndex : Integer; const AValue : integer);
begin
If (Fport=AValue) then exit;
@@ -6570,6 +9025,16 @@ end;
+Procedure TBackendService.Setregion(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fregion=AValue) then exit;
+ Fregion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TBackendService.SetselfLink(AIndex : Integer; const AValue : String);
begin
@@ -6580,7 +9045,7 @@ end;
-Procedure TBackendService.SettimeoutSec(AIndex : Integer; AValue : integer);
+Procedure TBackendService.SettimeoutSec(AIndex : Integer; const AValue : integer);
begin
If (FtimeoutSec=AValue) then exit;
@@ -6611,7 +9076,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBackendServiceGroupHealth.SethealthStatus(AIndex : Integer; AValue : TBackendServiceGroupHealthTypehealthStatusArray);
+Procedure TBackendServiceGroupHealth.SethealthStatus(AIndex : Integer; const AValue : TBackendServiceGroupHealthTypehealthStatusArray);
begin
If (FhealthStatus=AValue) then exit;
@@ -6661,7 +9126,7 @@ end;
-Procedure TBackendServiceList.Setitems(AIndex : Integer; AValue : TBackendServiceListTypeitemsArray);
+Procedure TBackendServiceList.Setitems(AIndex : Integer; const AValue : TBackendServiceListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6818,7 +9283,27 @@ end;
-Procedure TDisk.Setlicenses(AIndex : Integer; AValue : TStringArray);
+Procedure TDisk.SetlastAttachTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlastAttachTimestamp=AValue) then exit;
+ FlastAttachTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDisk.SetlastDetachTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlastDetachTimestamp=AValue) then exit;
+ FlastDetachTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDisk.Setlicenses(AIndex : Integer; const AValue : TStringArray);
begin
If (Flicenses=AValue) then exit;
@@ -6928,6 +9413,16 @@ end;
+Procedure TDisk.Setusers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fusers=AValue) then exit;
+ Fusers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TDisk.Setzone(AIndex : Integer; const AValue : String);
begin
@@ -6955,6 +9450,7 @@ Procedure TDisk.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'licenses' : SetLength(Flicenses,ALength);
+ 'users' : SetLength(Fusers,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -6992,7 +9488,7 @@ end;
-Procedure TDiskAggregatedList.Setitems(AIndex : Integer; AValue : TDiskAggregatedListTypeitems);
+Procedure TDiskAggregatedList.Setitems(AIndex : Integer; const AValue : TDiskAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
@@ -7049,7 +9545,7 @@ end;
-Procedure TDiskList.Setitems(AIndex : Integer; AValue : TDiskListTypeitemsArray);
+Procedure TDiskList.Setitems(AIndex : Integer; const AValue : TDiskListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -7156,7 +9652,7 @@ end;
-Procedure TDiskType.Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus);
+Procedure TDiskType.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus);
begin
If (Fdeprecated=AValue) then exit;
@@ -7266,7 +9762,7 @@ end;
-Procedure TDiskTypeAggregatedList.Setitems(AIndex : Integer; AValue : TDiskTypeAggregatedListTypeitems);
+Procedure TDiskTypeAggregatedList.Setitems(AIndex : Integer; const AValue : TDiskTypeAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
@@ -7323,7 +9819,7 @@ end;
-Procedure TDiskTypeList.Setitems(AIndex : Integer; AValue : TDiskTypeListTypeitemsArray);
+Procedure TDiskTypeList.Setitems(AIndex : Integer; const AValue : TDiskTypeListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -7420,7 +9916,7 @@ end;
-Procedure TDiskTypesScopedListTypewarning.Setdata(AIndex : Integer; AValue : TDiskTypesScopedListTypewarningTypedataArray);
+Procedure TDiskTypesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -7460,7 +9956,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDiskTypesScopedList.SetdiskTypes(AIndex : Integer; AValue : TDiskTypesScopedListTypediskTypesArray);
+Procedure TDiskTypesScopedList.SetdiskTypes(AIndex : Integer; const AValue : TDiskTypesScopedListTypediskTypesArray);
begin
If (FdiskTypes=AValue) then exit;
@@ -7470,7 +9966,7 @@ end;
-Procedure TDiskTypesScopedList.Setwarning(AIndex : Integer; AValue : TDiskTypesScopedListTypewarning);
+Procedure TDiskTypesScopedList.Setwarning(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
@@ -7496,6 +9992,23 @@ end;
{ --------------------------------------------------------------------
+ TDisksResizeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDisksResizeRequest.SetsizeGb(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsizeGb=AValue) then exit;
+ FsizeGb:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TDisksScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
@@ -7537,7 +10050,7 @@ end;
-Procedure TDisksScopedListTypewarning.Setdata(AIndex : Integer; AValue : TDisksScopedListTypewarningTypedataArray);
+Procedure TDisksScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TDisksScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -7577,7 +10090,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDisksScopedList.Setdisks(AIndex : Integer; AValue : TDisksScopedListTypedisksArray);
+Procedure TDisksScopedList.Setdisks(AIndex : Integer; const AValue : TDisksScopedListTypedisksArray);
begin
If (Fdisks=AValue) then exit;
@@ -7587,7 +10100,7 @@ end;
-Procedure TDisksScopedList.Setwarning(AIndex : Integer; AValue : TDisksScopedListTypewarning);
+Procedure TDisksScopedList.Setwarning(AIndex : Integer; const AValue : TDisksScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
@@ -7627,7 +10140,7 @@ end;
-Procedure TFirewallTypeallowedItem.Setports(AIndex : Integer; AValue : TStringArray);
+Procedure TFirewallTypeallowedItem.Setports(AIndex : Integer; const AValue : TStringArray);
begin
If (Fports=AValue) then exit;
@@ -7657,7 +10170,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFirewall.Setallowed(AIndex : Integer; AValue : TFirewallTypeallowedArray);
+Procedure TFirewall.Setallowed(AIndex : Integer; const AValue : TFirewallTypeallowedArray);
begin
If (Fallowed=AValue) then exit;
@@ -7737,7 +10250,7 @@ end;
-Procedure TFirewall.SetsourceRanges(AIndex : Integer; AValue : TStringArray);
+Procedure TFirewall.SetsourceRanges(AIndex : Integer; const AValue : TStringArray);
begin
If (FsourceRanges=AValue) then exit;
@@ -7747,7 +10260,7 @@ end;
-Procedure TFirewall.SetsourceTags(AIndex : Integer; AValue : TStringArray);
+Procedure TFirewall.SetsourceTags(AIndex : Integer; const AValue : TStringArray);
begin
If (FsourceTags=AValue) then exit;
@@ -7757,7 +10270,7 @@ end;
-Procedure TFirewall.SettargetTags(AIndex : Integer; AValue : TStringArray);
+Procedure TFirewall.SettargetTags(AIndex : Integer; const AValue : TStringArray);
begin
If (FtargetTags=AValue) then exit;
@@ -7800,7 +10313,7 @@ end;
-Procedure TFirewallList.Setitems(AIndex : Integer; AValue : TFirewallListTypeitemsArray);
+Procedure TFirewallList.Setitems(AIndex : Integer; const AValue : TFirewallListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -8000,7 +10513,7 @@ end;
-Procedure TForwardingRuleAggregatedList.Setitems(AIndex : Integer; AValue : TForwardingRuleAggregatedListTypeitems);
+Procedure TForwardingRuleAggregatedList.Setitems(AIndex : Integer; const AValue : TForwardingRuleAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
@@ -8057,7 +10570,7 @@ end;
-Procedure TForwardingRuleList.Setitems(AIndex : Integer; AValue : TForwardingRuleListTypeitemsArray);
+Procedure TForwardingRuleList.Setitems(AIndex : Integer; const AValue : TForwardingRuleListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -8154,7 +10667,7 @@ end;
-Procedure TForwardingRulesScopedListTypewarning.Setdata(AIndex : Integer; AValue : TForwardingRulesScopedListTypewarningTypedataArray);
+Procedure TForwardingRulesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -8194,7 +10707,7 @@ end;
--------------------------------------------------------------------}
-Procedure TForwardingRulesScopedList.SetforwardingRules(AIndex : Integer; AValue : TForwardingRulesScopedListTypeforwardingRulesArray);
+Procedure TForwardingRulesScopedList.SetforwardingRules(AIndex : Integer; const AValue : TForwardingRulesScopedListTypeforwardingRulesArray);
begin
If (FforwardingRules=AValue) then exit;
@@ -8204,7 +10717,7 @@ end;
-Procedure TForwardingRulesScopedList.Setwarning(AIndex : Integer; AValue : TForwardingRulesScopedListTypewarning);
+Procedure TForwardingRulesScopedList.Setwarning(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
@@ -8281,7 +10794,7 @@ end;
-Procedure THealthStatus.Setport(AIndex : Integer; AValue : integer);
+Procedure THealthStatus.Setport(AIndex : Integer; const AValue : integer);
begin
If (Fport=AValue) then exit;
@@ -8308,7 +10821,7 @@ end;
-Procedure THostRule.Sethosts(AIndex : Integer; AValue : TStringArray);
+Procedure THostRule.Sethosts(AIndex : Integer; const AValue : TStringArray);
begin
If (Fhosts=AValue) then exit;
@@ -8348,7 +10861,7 @@ end;
--------------------------------------------------------------------}
-Procedure THttpHealthCheck.SetcheckIntervalSec(AIndex : Integer; AValue : integer);
+Procedure THttpHealthCheck.SetcheckIntervalSec(AIndex : Integer; const AValue : integer);
begin
If (FcheckIntervalSec=AValue) then exit;
@@ -8378,7 +10891,7 @@ end;
-Procedure THttpHealthCheck.SethealthyThreshold(AIndex : Integer; AValue : integer);
+Procedure THttpHealthCheck.SethealthyThreshold(AIndex : Integer; const AValue : integer);
begin
If (FhealthyThreshold=AValue) then exit;
@@ -8428,7 +10941,7 @@ end;
-Procedure THttpHealthCheck.Setport(AIndex : Integer; AValue : integer);
+Procedure THttpHealthCheck.Setport(AIndex : Integer; const AValue : integer);
begin
If (Fport=AValue) then exit;
@@ -8458,7 +10971,7 @@ end;
-Procedure THttpHealthCheck.SettimeoutSec(AIndex : Integer; AValue : integer);
+Procedure THttpHealthCheck.SettimeoutSec(AIndex : Integer; const AValue : integer);
begin
If (FtimeoutSec=AValue) then exit;
@@ -8468,7 +10981,7 @@ end;
-Procedure THttpHealthCheck.SetunhealthyThreshold(AIndex : Integer; AValue : integer);
+Procedure THttpHealthCheck.SetunhealthyThreshold(AIndex : Integer; const AValue : integer);
begin
If (FunhealthyThreshold=AValue) then exit;
@@ -8495,7 +11008,7 @@ end;
-Procedure THttpHealthCheckList.Setitems(AIndex : Integer; AValue : THttpHealthCheckListTypeitemsArray);
+Procedure THttpHealthCheckList.Setitems(AIndex : Integer; const AValue : THttpHealthCheckListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -8551,6 +11064,213 @@ end;
{ --------------------------------------------------------------------
+ THttpsHealthCheck
+ --------------------------------------------------------------------}
+
+
+Procedure THttpsHealthCheck.SetcheckIntervalSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FcheckIntervalSec=AValue) then exit;
+ FcheckIntervalSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.SethealthyThreshold(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FhealthyThreshold=AValue) then exit;
+ FhealthyThreshold:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.Sethost(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fhost=AValue) then exit;
+ Fhost:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.Setport(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fport=AValue) then exit;
+ Fport:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.SetrequestPath(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrequestPath=AValue) then exit;
+ FrequestPath:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.SettimeoutSec(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtimeoutSec=AValue) then exit;
+ FtimeoutSec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheck.SetunhealthyThreshold(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FunhealthyThreshold=AValue) then exit;
+ FunhealthyThreshold:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ THttpsHealthCheckList
+ --------------------------------------------------------------------}
+
+
+Procedure THttpsHealthCheckList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheckList.Setitems(AIndex : Integer; const AValue : THttpsHealthCheckListTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheckList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheckList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpsHealthCheckList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure THttpsHealthCheckList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TImageTyperawDisk
--------------------------------------------------------------------}
@@ -8612,7 +11332,7 @@ end;
-Procedure TImage.Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus);
+Procedure TImage.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus);
begin
If (Fdeprecated=AValue) then exit;
@@ -8642,6 +11362,16 @@ end;
+Procedure TImage.Setfamily(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffamily=AValue) then exit;
+ Ffamily:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TImage.Setid(AIndex : Integer; const AValue : String);
begin
@@ -8662,7 +11392,7 @@ end;
-Procedure TImage.Setlicenses(AIndex : Integer; AValue : TStringArray);
+Procedure TImage.Setlicenses(AIndex : Integer; const AValue : TStringArray);
begin
If (Flicenses=AValue) then exit;
@@ -8682,7 +11412,7 @@ end;
-Procedure TImage.SetrawDisk(AIndex : Integer; AValue : TImageTyperawDisk);
+Procedure TImage.SetrawDisk(AIndex : Integer; const AValue : TImageTyperawDisk);
begin
If (FrawDisk=AValue) then exit;
@@ -8772,7 +11502,7 @@ end;
-Procedure TImageList.Setitems(AIndex : Integer; AValue : TImageListTypeitemsArray);
+Procedure TImageList.Setitems(AIndex : Integer; const AValue : TImageListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -8832,7 +11562,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstance.SetcanIpForward(AIndex : Integer; AValue : boolean);
+Procedure TInstance.SetcanIpForward(AIndex : Integer; const AValue : boolean);
begin
If (FcanIpForward=AValue) then exit;
@@ -8872,7 +11602,7 @@ end;
-Procedure TInstance.Setdisks(AIndex : Integer; AValue : TInstanceTypedisksArray);
+Procedure TInstance.Setdisks(AIndex : Integer; const AValue : TInstanceTypedisksArray);
begin
If (Fdisks=AValue) then exit;
@@ -8912,7 +11642,7 @@ end;
-Procedure TInstance.Setmetadata(AIndex : Integer; AValue : TMetadata);
+Procedure TInstance.Setmetadata(AIndex : Integer; const AValue : TMetadata);
begin
If (Fmetadata=AValue) then exit;
@@ -8932,7 +11662,7 @@ end;
-Procedure TInstance.SetnetworkInterfaces(AIndex : Integer; AValue : TInstanceTypenetworkInterfacesArray);
+Procedure TInstance.SetnetworkInterfaces(AIndex : Integer; const AValue : TInstanceTypenetworkInterfacesArray);
begin
If (FnetworkInterfaces=AValue) then exit;
@@ -8942,7 +11672,7 @@ end;
-Procedure TInstance.Setscheduling(AIndex : Integer; AValue : TScheduling);
+Procedure TInstance.Setscheduling(AIndex : Integer; const AValue : TScheduling);
begin
If (Fscheduling=AValue) then exit;
@@ -8962,7 +11692,7 @@ end;
-Procedure TInstance.SetserviceAccounts(AIndex : Integer; AValue : TInstanceTypeserviceAccountsArray);
+Procedure TInstance.SetserviceAccounts(AIndex : Integer; const AValue : TInstanceTypeserviceAccountsArray);
begin
If (FserviceAccounts=AValue) then exit;
@@ -8992,7 +11722,7 @@ end;
-Procedure TInstance.Settags(AIndex : Integer; AValue : TTags);
+Procedure TInstance.Settags(AIndex : Integer; const AValue : TTags);
begin
If (Ftags=AValue) then exit;
@@ -9057,7 +11787,7 @@ end;
-Procedure TInstanceAggregatedList.Setitems(AIndex : Integer; AValue : TInstanceAggregatedListTypeitems);
+Procedure TInstanceAggregatedList.Setitems(AIndex : Integer; const AValue : TInstanceAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
@@ -9100,6 +11830,1272 @@ end;
{ --------------------------------------------------------------------
+ TInstanceGroup
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroup.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroup.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroup.Setfingerprint(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffingerprint=AValue) then exit;
+ Ffingerprint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroup.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroup.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroup.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroup.SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupTypenamedPortsArray);
+
+begin
+ If (FnamedPorts=AValue) then exit;
+ FnamedPorts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroup.Setnetwork(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fnetwork=AValue) then exit;
+ Fnetwork:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroup.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroup.Setsize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fsize=AValue) then exit;
+ Fsize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroup.Setsubnetwork(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsubnetwork=AValue) then exit;
+ Fsubnetwork:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroup.Setzone(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fzone=AValue) then exit;
+ Fzone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroup.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'namedports' : SetLength(FnamedPorts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupAggregatedListTypeitems
+ --------------------------------------------------------------------}
+
+
+Class Function TInstanceGroupAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupAggregatedList
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupAggregatedList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupAggregatedList.Setitems(AIndex : Integer; const AValue : TInstanceGroupAggregatedListTypeitems);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupAggregatedList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupList
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupList.Setitems(AIndex : Integer; const AValue : TInstanceGroupListTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManager
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManager.SetbaseInstanceName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbaseInstanceName=AValue) then exit;
+ FbaseInstanceName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.SetcurrentActions(AIndex : Integer; const AValue : TInstanceGroupManagerActionsSummary);
+
+begin
+ If (FcurrentActions=AValue) then exit;
+ FcurrentActions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.Setfingerprint(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffingerprint=AValue) then exit;
+ Ffingerprint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.SetinstanceGroup(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceGroup=AValue) then exit;
+ FinstanceGroup:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.SetinstanceTemplate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceTemplate=AValue) then exit;
+ FinstanceTemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupManagerTypenamedPortsArray);
+
+begin
+ If (FnamedPorts=AValue) then exit;
+ FnamedPorts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.SettargetPools(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FtargetPools=AValue) then exit;
+ FtargetPools:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.SettargetSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtargetSize=AValue) then exit;
+ FtargetSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManager.Setzone(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fzone=AValue) then exit;
+ Fzone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupManager.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'namedports' : SetLength(FnamedPorts,ALength);
+ 'targetpools' : SetLength(FtargetPools,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagerActionsSummary
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagerActionsSummary.Setabandoning(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fabandoning=AValue) then exit;
+ Fabandoning:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerActionsSummary.Setcreating(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fcreating=AValue) then exit;
+ Fcreating:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerActionsSummary.Setdeleting(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fdeleting=AValue) then exit;
+ Fdeleting:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerActionsSummary.Setnone(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fnone=AValue) then exit;
+ Fnone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerActionsSummary.Setrecreating(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Frecreating=AValue) then exit;
+ Frecreating:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerActionsSummary.Setrefreshing(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Frefreshing=AValue) then exit;
+ Frefreshing:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerActionsSummary.Setrestarting(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Frestarting=AValue) then exit;
+ Frestarting:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagerAggregatedListTypeitems
+ --------------------------------------------------------------------}
+
+
+Class Function TInstanceGroupManagerAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagerAggregatedList
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagerAggregatedList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerAggregatedList.Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerAggregatedListTypeitems);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerAggregatedList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagerList
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagerList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerList.Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerListTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagerList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupManagerList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagersAbandonInstancesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagersAbandonInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Finstances=AValue) then exit;
+ Finstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupManagersAbandonInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'instances' : SetLength(Finstances,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagersDeleteInstancesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagersDeleteInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Finstances=AValue) then exit;
+ Finstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupManagersDeleteInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'instances' : SetLength(Finstances,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagersListManagedInstancesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagersListManagedInstancesResponse.SetmanagedInstances(AIndex : Integer; const AValue : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray);
+
+begin
+ If (FmanagedInstances=AValue) then exit;
+ FmanagedInstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupManagersListManagedInstancesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'managedinstances' : SetLength(FmanagedInstances,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagersRecreateInstancesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagersRecreateInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Finstances=AValue) then exit;
+ Finstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupManagersRecreateInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'instances' : SetLength(Finstances,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagersScopedListTypewarningTypedataItem
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagersScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagersScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagersScopedListTypewarning
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagersScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagersScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarningTypedataArray);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagersScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupManagersScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'data' : SetLength(Fdata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagersScopedList
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagersScopedList.SetinstanceGroupManagers(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray);
+
+begin
+ If (FinstanceGroupManagers=AValue) then exit;
+ FinstanceGroupManagers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagersScopedList.Setwarning(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarning);
+
+begin
+ If (Fwarning=AValue) then exit;
+ Fwarning:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupManagersScopedList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'instancegroupmanagers' : SetLength(FinstanceGroupManagers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagersSetInstanceTemplateRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagersSetInstanceTemplateRequest.SetinstanceTemplate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceTemplate=AValue) then exit;
+ FinstanceTemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupManagersSetTargetPoolsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupManagersSetTargetPoolsRequest.Setfingerprint(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffingerprint=AValue) then exit;
+ Ffingerprint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupManagersSetTargetPoolsRequest.SettargetPools(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FtargetPools=AValue) then exit;
+ FtargetPools:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupManagersSetTargetPoolsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'targetpools' : SetLength(FtargetPools,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupsAddInstancesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupsAddInstancesRequest.Setinstances(AIndex : Integer; const AValue : TInstanceGroupsAddInstancesRequestTypeinstancesArray);
+
+begin
+ If (Finstances=AValue) then exit;
+ Finstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupsAddInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'instances' : SetLength(Finstances,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupsListInstances
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupsListInstances.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupsListInstances.Setitems(AIndex : Integer; const AValue : TInstanceGroupsListInstancesTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupsListInstances.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupsListInstances.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupsListInstances.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupsListInstances.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupsListInstancesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupsListInstancesRequest.SetinstanceState(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceState=AValue) then exit;
+ FinstanceState:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupsRemoveInstancesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupsRemoveInstancesRequest.Setinstances(AIndex : Integer; const AValue : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray);
+
+begin
+ If (Finstances=AValue) then exit;
+ Finstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupsRemoveInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'instances' : SetLength(Finstances,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupsScopedListTypewarningTypedataItem
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupsScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupsScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupsScopedListTypewarning
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupsScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarningTypedataArray);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupsScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupsScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'data' : SetLength(Fdata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupsScopedList
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupsScopedList.SetinstanceGroups(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypeinstanceGroupsArray);
+
+begin
+ If (FinstanceGroups=AValue) then exit;
+ FinstanceGroups:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupsScopedList.Setwarning(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarning);
+
+begin
+ If (Fwarning=AValue) then exit;
+ Fwarning:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupsScopedList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'instancegroups' : SetLength(FinstanceGroups,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupsSetNamedPortsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupsSetNamedPortsRequest.Setfingerprint(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffingerprint=AValue) then exit;
+ Ffingerprint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupsSetNamedPortsRequest.SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray);
+
+begin
+ If (FnamedPorts=AValue) then exit;
+ FnamedPorts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupsSetNamedPortsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'namedports' : SetLength(FnamedPorts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TInstanceList
--------------------------------------------------------------------}
@@ -9114,7 +13110,7 @@ end;
-Procedure TInstanceList.Setitems(AIndex : Integer; AValue : TInstanceListTypeitemsArray);
+Procedure TInstanceList.Setitems(AIndex : Integer; const AValue : TInstanceListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -9201,7 +13197,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstanceProperties.SetcanIpForward(AIndex : Integer; AValue : boolean);
+Procedure TInstanceProperties.SetcanIpForward(AIndex : Integer; const AValue : boolean);
begin
If (FcanIpForward=AValue) then exit;
@@ -9221,7 +13217,7 @@ end;
-Procedure TInstanceProperties.Setdisks(AIndex : Integer; AValue : TInstancePropertiesTypedisksArray);
+Procedure TInstanceProperties.Setdisks(AIndex : Integer; const AValue : TInstancePropertiesTypedisksArray);
begin
If (Fdisks=AValue) then exit;
@@ -9241,7 +13237,7 @@ end;
-Procedure TInstanceProperties.Setmetadata(AIndex : Integer; AValue : TMetadata);
+Procedure TInstanceProperties.Setmetadata(AIndex : Integer; const AValue : TMetadata);
begin
If (Fmetadata=AValue) then exit;
@@ -9251,7 +13247,7 @@ end;
-Procedure TInstanceProperties.SetnetworkInterfaces(AIndex : Integer; AValue : TInstancePropertiesTypenetworkInterfacesArray);
+Procedure TInstanceProperties.SetnetworkInterfaces(AIndex : Integer; const AValue : TInstancePropertiesTypenetworkInterfacesArray);
begin
If (FnetworkInterfaces=AValue) then exit;
@@ -9261,7 +13257,7 @@ end;
-Procedure TInstanceProperties.Setscheduling(AIndex : Integer; AValue : TScheduling);
+Procedure TInstanceProperties.Setscheduling(AIndex : Integer; const AValue : TScheduling);
begin
If (Fscheduling=AValue) then exit;
@@ -9271,7 +13267,7 @@ end;
-Procedure TInstanceProperties.SetserviceAccounts(AIndex : Integer; AValue : TInstancePropertiesTypeserviceAccountsArray);
+Procedure TInstanceProperties.SetserviceAccounts(AIndex : Integer; const AValue : TInstancePropertiesTypeserviceAccountsArray);
begin
If (FserviceAccounts=AValue) then exit;
@@ -9281,7 +13277,7 @@ end;
-Procedure TInstanceProperties.Settags(AIndex : Integer; AValue : TTags);
+Procedure TInstanceProperties.Settags(AIndex : Integer; const AValue : TTags);
begin
If (Ftags=AValue) then exit;
@@ -9380,7 +13376,7 @@ end;
-Procedure TInstanceTemplate.Setproperties(AIndex : Integer; AValue : TInstanceProperties);
+Procedure TInstanceTemplate.Setproperties(AIndex : Integer; const AValue : TInstanceProperties);
begin
If (Fproperties=AValue) then exit;
@@ -9417,7 +13413,7 @@ end;
-Procedure TInstanceTemplateList.Setitems(AIndex : Integer; AValue : TInstanceTemplateListTypeitemsArray);
+Procedure TInstanceTemplateList.Setitems(AIndex : Integer; const AValue : TInstanceTemplateListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -9473,6 +13469,56 @@ end;
{ --------------------------------------------------------------------
+ TInstanceWithNamedPorts
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceWithNamedPorts.Setinstance(AIndex : Integer; const AValue : String);
+
+begin
+ If (Finstance=AValue) then exit;
+ Finstance:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceWithNamedPorts.SetnamedPorts(AIndex : Integer; const AValue : TInstanceWithNamedPortsTypenamedPortsArray);
+
+begin
+ If (FnamedPorts=AValue) then exit;
+ FnamedPorts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceWithNamedPorts.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceWithNamedPorts.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'namedports' : SetLength(FnamedPorts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TInstancesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
@@ -9514,7 +13560,7 @@ end;
-Procedure TInstancesScopedListTypewarning.Setdata(AIndex : Integer; AValue : TInstancesScopedListTypewarningTypedataArray);
+Procedure TInstancesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TInstancesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -9554,7 +13600,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstancesScopedList.Setinstances(AIndex : Integer; AValue : TInstancesScopedListTypeinstancesArray);
+Procedure TInstancesScopedList.Setinstances(AIndex : Integer; const AValue : TInstancesScopedListTypeinstancesArray);
begin
If (Finstances=AValue) then exit;
@@ -9564,7 +13610,7 @@ end;
-Procedure TInstancesScopedList.Setwarning(AIndex : Integer; AValue : TInstancesScopedListTypewarning);
+Procedure TInstancesScopedList.Setwarning(AIndex : Integer; const AValue : TInstancesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
@@ -9590,11 +13636,28 @@ end;
{ --------------------------------------------------------------------
+ TInstancesSetMachineTypeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInstancesSetMachineTypeRequest.SetmachineType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmachineType=AValue) then exit;
+ FmachineType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TLicense
--------------------------------------------------------------------}
-Procedure TLicense.SetchargesUseFee(AIndex : Integer; AValue : boolean);
+Procedure TLicense.SetchargesUseFee(AIndex : Integer; const AValue : boolean);
begin
If (FchargesUseFee=AValue) then exit;
@@ -9641,7 +13704,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMachineTypeTypescratchDisksItem.SetdiskGb(AIndex : Integer; AValue : integer);
+Procedure TMachineTypeTypescratchDisksItem.SetdiskGb(AIndex : Integer; const AValue : integer);
begin
If (FdiskGb=AValue) then exit;
@@ -9668,7 +13731,7 @@ end;
-Procedure TMachineType.Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus);
+Procedure TMachineType.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus);
begin
If (Fdeprecated=AValue) then exit;
@@ -9688,7 +13751,7 @@ end;
-Procedure TMachineType.SetguestCpus(AIndex : Integer; AValue : integer);
+Procedure TMachineType.SetguestCpus(AIndex : Integer; const AValue : integer);
begin
If (FguestCpus=AValue) then exit;
@@ -9708,7 +13771,7 @@ end;
-Procedure TMachineType.SetimageSpaceGb(AIndex : Integer; AValue : integer);
+Procedure TMachineType.SetimageSpaceGb(AIndex : Integer; const AValue : integer);
begin
If (FimageSpaceGb=AValue) then exit;
@@ -9728,7 +13791,7 @@ end;
-Procedure TMachineType.SetmaximumPersistentDisks(AIndex : Integer; AValue : integer);
+Procedure TMachineType.SetmaximumPersistentDisks(AIndex : Integer; const AValue : integer);
begin
If (FmaximumPersistentDisks=AValue) then exit;
@@ -9748,7 +13811,7 @@ end;
-Procedure TMachineType.SetmemoryMb(AIndex : Integer; AValue : integer);
+Procedure TMachineType.SetmemoryMb(AIndex : Integer; const AValue : integer);
begin
If (FmemoryMb=AValue) then exit;
@@ -9768,7 +13831,7 @@ end;
-Procedure TMachineType.SetscratchDisks(AIndex : Integer; AValue : TMachineTypeTypescratchDisksArray);
+Procedure TMachineType.SetscratchDisks(AIndex : Integer; const AValue : TMachineTypeTypescratchDisksArray);
begin
If (FscratchDisks=AValue) then exit;
@@ -9841,7 +13904,7 @@ end;
-Procedure TMachineTypeAggregatedList.Setitems(AIndex : Integer; AValue : TMachineTypeAggregatedListTypeitems);
+Procedure TMachineTypeAggregatedList.Setitems(AIndex : Integer; const AValue : TMachineTypeAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
@@ -9898,7 +13961,7 @@ end;
-Procedure TMachineTypeList.Setitems(AIndex : Integer; AValue : TMachineTypeListTypeitemsArray);
+Procedure TMachineTypeList.Setitems(AIndex : Integer; const AValue : TMachineTypeListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -9995,7 +14058,7 @@ end;
-Procedure TMachineTypesScopedListTypewarning.Setdata(AIndex : Integer; AValue : TMachineTypesScopedListTypewarningTypedataArray);
+Procedure TMachineTypesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -10035,7 +14098,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMachineTypesScopedList.SetmachineTypes(AIndex : Integer; AValue : TMachineTypesScopedListTypemachineTypesArray);
+Procedure TMachineTypesScopedList.SetmachineTypes(AIndex : Integer; const AValue : TMachineTypesScopedListTypemachineTypesArray);
begin
If (FmachineTypes=AValue) then exit;
@@ -10045,7 +14108,7 @@ end;
-Procedure TMachineTypesScopedList.Setwarning(AIndex : Integer; AValue : TMachineTypesScopedListTypewarning);
+Procedure TMachineTypesScopedList.Setwarning(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
@@ -10071,6 +14134,147 @@ end;
{ --------------------------------------------------------------------
+ TManagedInstance
+ --------------------------------------------------------------------}
+
+
+Procedure TManagedInstance.SetcurrentAction(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcurrentAction=AValue) then exit;
+ FcurrentAction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TManagedInstance.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TManagedInstance.Setinstance(AIndex : Integer; const AValue : String);
+
+begin
+ If (Finstance=AValue) then exit;
+ Finstance:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TManagedInstance.SetinstanceStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceStatus=AValue) then exit;
+ FinstanceStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TManagedInstance.SetlastAttempt(AIndex : Integer; const AValue : TManagedInstanceLastAttempt);
+
+begin
+ If (FlastAttempt=AValue) then exit;
+ FlastAttempt:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocation=AValue) then exit;
+ Flocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TManagedInstanceLastAttemptTypeerrors
+ --------------------------------------------------------------------}
+
+
+Procedure TManagedInstanceLastAttemptTypeerrors.Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray);
+
+begin
+ If (Ferrors=AValue) then exit;
+ Ferrors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TManagedInstanceLastAttemptTypeerrors.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'errors' : SetLength(Ferrors,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TManagedInstanceLastAttempt
+ --------------------------------------------------------------------}
+
+
+Procedure TManagedInstanceLastAttempt.Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrors);
+
+begin
+ If (Ferrors=AValue) then exit;
+ Ferrors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TMetadataTypeitemsItem
--------------------------------------------------------------------}
@@ -10112,7 +14316,7 @@ end;
-Procedure TMetadata.Setitems(AIndex : Integer; AValue : TMetadataTypeitemsArray);
+Procedure TMetadata.Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -10148,6 +14352,33 @@ end;
{ --------------------------------------------------------------------
+ TNamedPort
+ --------------------------------------------------------------------}
+
+
+Procedure TNamedPort.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNamedPort.Setport(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fport=AValue) then exit;
+ Fport:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TNetwork
--------------------------------------------------------------------}
@@ -10162,6 +14393,16 @@ end;
+Procedure TNetwork.SetautoCreateSubnetworks(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FautoCreateSubnetworks=AValue) then exit;
+ FautoCreateSubnetworks:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TNetwork.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
@@ -10232,6 +14473,29 @@ end;
+Procedure TNetwork.Setsubnetworks(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fsubnetworks=AValue) then exit;
+ Fsubnetworks:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TNetwork.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'subnetworks' : SetLength(Fsubnetworks,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
{ --------------------------------------------------------------------
@@ -10239,7 +14503,7 @@ end;
--------------------------------------------------------------------}
-Procedure TNetworkInterface.SetaccessConfigs(AIndex : Integer; AValue : TNetworkInterfaceTypeaccessConfigsArray);
+Procedure TNetworkInterface.SetaccessConfigs(AIndex : Integer; const AValue : TNetworkInterfaceTypeaccessConfigsArray);
begin
If (FaccessConfigs=AValue) then exit;
@@ -10278,6 +14542,16 @@ begin
end;
+
+Procedure TNetworkInterface.Setsubnetwork(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsubnetwork=AValue) then exit;
+ Fsubnetwork:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TNetworkInterface.SetArrayLength(Const AName : String; ALength : Longint);
@@ -10309,7 +14583,7 @@ end;
-Procedure TNetworkList.Setitems(AIndex : Integer; AValue : TNetworkListTypeitemsArray);
+Procedure TNetworkList.Setitems(AIndex : Integer; const AValue : TNetworkListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -10406,7 +14680,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOperationTypeerror.Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray);
+Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -10473,7 +14747,7 @@ end;
-Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray);
+Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -10533,6 +14807,16 @@ end;
+Procedure TOperation.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String);
begin
@@ -10543,7 +14827,7 @@ end;
-Procedure TOperation.Seterror(AIndex : Integer; AValue : TOperationTypeerror);
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror);
begin
If (Ferror=AValue) then exit;
@@ -10563,7 +14847,7 @@ end;
-Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; AValue : integer);
+Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer);
begin
If (FhttpErrorStatusCode=AValue) then exit;
@@ -10623,7 +14907,7 @@ end;
-Procedure TOperation.Setprogress(AIndex : Integer; AValue : integer);
+Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer);
begin
If (Fprogress=AValue) then exit;
@@ -10713,7 +14997,7 @@ end;
-Procedure TOperation.Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray);
+Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
@@ -10776,7 +15060,7 @@ end;
-Procedure TOperationAggregatedList.Setitems(AIndex : Integer; AValue : TOperationAggregatedListTypeitems);
+Procedure TOperationAggregatedList.Setitems(AIndex : Integer; const AValue : TOperationAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
@@ -10833,7 +15117,7 @@ end;
-Procedure TOperationList.Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray);
+Procedure TOperationList.Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -10930,7 +15214,7 @@ end;
-Procedure TOperationsScopedListTypewarning.Setdata(AIndex : Integer; AValue : TOperationsScopedListTypewarningTypedataArray);
+Procedure TOperationsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TOperationsScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -10970,7 +15254,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOperationsScopedList.Setoperations(AIndex : Integer; AValue : TOperationsScopedListTypeoperationsArray);
+Procedure TOperationsScopedList.Setoperations(AIndex : Integer; const AValue : TOperationsScopedListTypeoperationsArray);
begin
If (Foperations=AValue) then exit;
@@ -10980,7 +15264,7 @@ end;
-Procedure TOperationsScopedList.Setwarning(AIndex : Integer; AValue : TOperationsScopedListTypewarning);
+Procedure TOperationsScopedList.Setwarning(AIndex : Integer; const AValue : TOperationsScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
@@ -11040,7 +15324,7 @@ end;
-Procedure TPathMatcher.SetpathRules(AIndex : Integer; AValue : TPathMatcherTypepathRulesArray);
+Procedure TPathMatcher.SetpathRules(AIndex : Integer; const AValue : TPathMatcherTypepathRulesArray);
begin
If (FpathRules=AValue) then exit;
@@ -11070,7 +15354,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPathRule.Setpaths(AIndex : Integer; AValue : TStringArray);
+Procedure TPathRule.Setpaths(AIndex : Integer; const AValue : TStringArray);
begin
If (Fpaths=AValue) then exit;
@@ -11110,7 +15394,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProject.SetcommonInstanceMetadata(AIndex : Integer; AValue : TMetadata);
+Procedure TProject.SetcommonInstanceMetadata(AIndex : Integer; const AValue : TMetadata);
begin
If (FcommonInstanceMetadata=AValue) then exit;
@@ -11140,6 +15424,16 @@ end;
+Procedure TProject.SetenabledFeatures(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FenabledFeatures=AValue) then exit;
+ FenabledFeatures:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TProject.Setid(AIndex : Integer; const AValue : String);
begin
@@ -11170,7 +15464,7 @@ end;
-Procedure TProject.Setquotas(AIndex : Integer; AValue : TProjectTypequotasArray);
+Procedure TProject.Setquotas(AIndex : Integer; const AValue : TProjectTypequotasArray);
begin
If (Fquotas=AValue) then exit;
@@ -11190,7 +15484,7 @@ end;
-Procedure TProject.SetusageExportLocation(AIndex : Integer; AValue : TUsageExportLocation);
+Procedure TProject.SetusageExportLocation(AIndex : Integer; const AValue : TUsageExportLocation);
begin
If (FusageExportLocation=AValue) then exit;
@@ -11205,6 +15499,7 @@ Procedure TProject.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
+ 'enabledfeatures' : SetLength(FenabledFeatures,ALength);
'quotas' : SetLength(Fquotas,ALength);
else
Inherited SetArrayLength(AName,ALength);
@@ -11220,7 +15515,7 @@ end;
--------------------------------------------------------------------}
-Procedure TQuota.Setlimit(AIndex : Integer; AValue : double);
+Procedure TQuota.Setlimit(AIndex : Integer; const AValue : double);
begin
If (Flimit=AValue) then exit;
@@ -11240,7 +15535,7 @@ end;
-Procedure TQuota.Setusage(AIndex : Integer; AValue : double);
+Procedure TQuota.Setusage(AIndex : Integer; const AValue : double);
begin
If (Fusage=AValue) then exit;
@@ -11267,7 +15562,7 @@ end;
-Procedure TRegion.Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus);
+Procedure TRegion.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus);
begin
If (Fdeprecated=AValue) then exit;
@@ -11317,7 +15612,7 @@ end;
-Procedure TRegion.Setquotas(AIndex : Integer; AValue : TRegionTypequotasArray);
+Procedure TRegion.Setquotas(AIndex : Integer; const AValue : TRegionTypequotasArray);
begin
If (Fquotas=AValue) then exit;
@@ -11347,7 +15642,7 @@ end;
-Procedure TRegion.Setzones(AIndex : Integer; AValue : TStringArray);
+Procedure TRegion.Setzones(AIndex : Integer; const AValue : TStringArray);
begin
If (Fzones=AValue) then exit;
@@ -11388,7 +15683,7 @@ end;
-Procedure TRegionList.Setitems(AIndex : Integer; AValue : TRegionListTypeitemsArray);
+Procedure TRegionList.Setitems(AIndex : Integer; const AValue : TRegionListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -11502,7 +15797,7 @@ end;
-Procedure TRouteTypewarningsItem.Setdata(AIndex : Integer; AValue : TRouteTypewarningsItemTypedataArray);
+Procedure TRouteTypewarningsItem.Setdata(AIndex : Integer; const AValue : TRouteTypewarningsItemTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -11662,7 +15957,7 @@ end;
-Procedure TRoute.Setpriority(AIndex : Integer; AValue : integer);
+Procedure TRoute.Setpriority(AIndex : Integer; const AValue : integer);
begin
If (Fpriority=AValue) then exit;
@@ -11682,7 +15977,7 @@ end;
-Procedure TRoute.Settags(AIndex : Integer; AValue : TStringArray);
+Procedure TRoute.Settags(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftags=AValue) then exit;
@@ -11692,7 +15987,7 @@ end;
-Procedure TRoute.Setwarnings(AIndex : Integer; AValue : TRouteTypewarningsArray);
+Procedure TRoute.Setwarnings(AIndex : Integer; const AValue : TRouteTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
@@ -11733,7 +16028,7 @@ end;
-Procedure TRouteList.Setitems(AIndex : Integer; AValue : TRouteListTypeitemsArray);
+Procedure TRouteList.Setitems(AIndex : Integer; const AValue : TRouteListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -11793,7 +16088,7 @@ end;
--------------------------------------------------------------------}
-Procedure TScheduling.SetautomaticRestart(AIndex : Integer; AValue : boolean);
+Procedure TScheduling.SetautomaticRestart(AIndex : Integer; const AValue : boolean);
begin
If (FautomaticRestart=AValue) then exit;
@@ -11813,7 +16108,7 @@ end;
-Procedure TScheduling.Setpreemptible(AIndex : Integer; AValue : boolean);
+Procedure TScheduling.Setpreemptible(AIndex : Integer; const AValue : boolean);
begin
If (Fpreemptible=AValue) then exit;
@@ -11877,7 +16172,7 @@ end;
-Procedure TServiceAccount.Setscopes(AIndex : Integer; AValue : TStringArray);
+Procedure TServiceAccount.Setscopes(AIndex : Integer; const AValue : TStringArray);
begin
If (Fscopes=AValue) then exit;
@@ -11957,7 +16252,7 @@ end;
-Procedure TSnapshot.Setlicenses(AIndex : Integer; AValue : TStringArray);
+Procedure TSnapshot.Setlicenses(AIndex : Integer; const AValue : TStringArray);
begin
If (Flicenses=AValue) then exit;
@@ -12067,7 +16362,7 @@ end;
-Procedure TSnapshotList.Setitems(AIndex : Integer; AValue : TSnapshotListTypeitemsArray);
+Procedure TSnapshotList.Setitems(AIndex : Integer; const AValue : TSnapshotListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -12123,6 +16418,527 @@ end;
{ --------------------------------------------------------------------
+ TSslCertificate
+ --------------------------------------------------------------------}
+
+
+Procedure TSslCertificate.Setcertificate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcertificate=AValue) then exit;
+ Fcertificate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertificate.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertificate.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertificate.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertificate.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertificate.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertificate.SetprivateKey(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprivateKey=AValue) then exit;
+ FprivateKey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertificate.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSslCertificateList
+ --------------------------------------------------------------------}
+
+
+Procedure TSslCertificateList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertificateList.Setitems(AIndex : Integer; const AValue : TSslCertificateListTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertificateList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertificateList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertificateList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSslCertificateList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSubnetwork
+ --------------------------------------------------------------------}
+
+
+Procedure TSubnetwork.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetwork.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetwork.SetgatewayAddress(AIndex : Integer; const AValue : String);
+
+begin
+ If (FgatewayAddress=AValue) then exit;
+ FgatewayAddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetwork.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetwork.SetipCidrRange(AIndex : Integer; const AValue : String);
+
+begin
+ If (FipCidrRange=AValue) then exit;
+ FipCidrRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetwork.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetwork.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetwork.Setnetwork(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fnetwork=AValue) then exit;
+ Fnetwork:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetwork.Setregion(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fregion=AValue) then exit;
+ Fregion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetwork.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSubnetworkAggregatedListTypeitems
+ --------------------------------------------------------------------}
+
+
+Class Function TSubnetworkAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSubnetworkAggregatedList
+ --------------------------------------------------------------------}
+
+
+Procedure TSubnetworkAggregatedList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworkAggregatedList.Setitems(AIndex : Integer; const AValue : TSubnetworkAggregatedListTypeitems);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworkAggregatedList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworkAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworkAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSubnetworkList
+ --------------------------------------------------------------------}
+
+
+Procedure TSubnetworkList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworkList.Setitems(AIndex : Integer; const AValue : TSubnetworkListTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworkList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworkList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworkList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSubnetworkList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSubnetworksScopedListTypewarningTypedataItem
+ --------------------------------------------------------------------}
+
+
+Procedure TSubnetworksScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworksScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSubnetworksScopedListTypewarning
+ --------------------------------------------------------------------}
+
+
+Procedure TSubnetworksScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworksScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarningTypedataArray);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworksScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSubnetworksScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'data' : SetLength(Fdata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSubnetworksScopedList
+ --------------------------------------------------------------------}
+
+
+Procedure TSubnetworksScopedList.Setsubnetworks(AIndex : Integer; const AValue : TSubnetworksScopedListTypesubnetworksArray);
+
+begin
+ If (Fsubnetworks=AValue) then exit;
+ Fsubnetworks:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubnetworksScopedList.Setwarning(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarning);
+
+begin
+ If (Fwarning=AValue) then exit;
+ Fwarning:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSubnetworksScopedList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'subnetworks' : SetLength(Fsubnetworks,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TTags
--------------------------------------------------------------------}
@@ -12137,7 +16953,7 @@ end;
-Procedure TTags.Setitems(AIndex : Integer; AValue : TStringArray);
+Procedure TTags.Setitems(AIndex : Integer; const AValue : TStringArray);
begin
If (Fitems=AValue) then exit;
@@ -12254,7 +17070,7 @@ end;
-Procedure TTargetHttpProxyList.Setitems(AIndex : Integer; AValue : TTargetHttpProxyListTypeitemsArray);
+Procedure TTargetHttpProxyList.Setitems(AIndex : Integer; const AValue : TTargetHttpProxyListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -12310,6 +17126,206 @@ end;
{ --------------------------------------------------------------------
+ TTargetHttpsProxiesSetSslCertificatesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TTargetHttpsProxiesSetSslCertificatesRequest.SetsslCertificates(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FsslCertificates=AValue) then exit;
+ FsslCertificates:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTargetHttpsProxiesSetSslCertificatesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sslcertificates' : SetLength(FsslCertificates,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTargetHttpsProxy
+ --------------------------------------------------------------------}
+
+
+Procedure TTargetHttpsProxy.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetHttpsProxy.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetHttpsProxy.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetHttpsProxy.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetHttpsProxy.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetHttpsProxy.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetHttpsProxy.SetsslCertificates(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FsslCertificates=AValue) then exit;
+ FsslCertificates:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetHttpsProxy.SeturlMap(AIndex : Integer; const AValue : String);
+
+begin
+ If (FurlMap=AValue) then exit;
+ FurlMap:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTargetHttpsProxy.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sslcertificates' : SetLength(FsslCertificates,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTargetHttpsProxyList
+ --------------------------------------------------------------------}
+
+
+Procedure TTargetHttpsProxyList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetHttpsProxyList.Setitems(AIndex : Integer; const AValue : TTargetHttpsProxyListTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetHttpsProxyList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetHttpsProxyList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTargetHttpsProxyList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTargetHttpsProxyList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TTargetInstance
--------------------------------------------------------------------}
@@ -12434,7 +17450,7 @@ end;
-Procedure TTargetInstanceAggregatedList.Setitems(AIndex : Integer; AValue : TTargetInstanceAggregatedListTypeitems);
+Procedure TTargetInstanceAggregatedList.Setitems(AIndex : Integer; const AValue : TTargetInstanceAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
@@ -12491,7 +17507,7 @@ end;
-Procedure TTargetInstanceList.Setitems(AIndex : Integer; AValue : TTargetInstanceListTypeitemsArray);
+Procedure TTargetInstanceList.Setitems(AIndex : Integer; const AValue : TTargetInstanceListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -12588,7 +17604,7 @@ end;
-Procedure TTargetInstancesScopedListTypewarning.Setdata(AIndex : Integer; AValue : TTargetInstancesScopedListTypewarningTypedataArray);
+Procedure TTargetInstancesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -12628,7 +17644,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTargetInstancesScopedList.SettargetInstances(AIndex : Integer; AValue : TTargetInstancesScopedListTypetargetInstancesArray);
+Procedure TTargetInstancesScopedList.SettargetInstances(AIndex : Integer; const AValue : TTargetInstancesScopedListTypetargetInstancesArray);
begin
If (FtargetInstances=AValue) then exit;
@@ -12638,7 +17654,7 @@ end;
-Procedure TTargetInstancesScopedList.Setwarning(AIndex : Integer; AValue : TTargetInstancesScopedListTypewarning);
+Procedure TTargetInstancesScopedList.Setwarning(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
@@ -12698,7 +17714,7 @@ end;
-Procedure TTargetPool.SetfailoverRatio(AIndex : Integer; AValue : integer);
+Procedure TTargetPool.SetfailoverRatio(AIndex : Integer; const AValue : integer);
begin
If (FfailoverRatio=AValue) then exit;
@@ -12708,7 +17724,7 @@ end;
-Procedure TTargetPool.SethealthChecks(AIndex : Integer; AValue : TStringArray);
+Procedure TTargetPool.SethealthChecks(AIndex : Integer; const AValue : TStringArray);
begin
If (FhealthChecks=AValue) then exit;
@@ -12728,7 +17744,7 @@ end;
-Procedure TTargetPool.Setinstances(AIndex : Integer; AValue : TStringArray);
+Procedure TTargetPool.Setinstances(AIndex : Integer; const AValue : TStringArray);
begin
If (Finstances=AValue) then exit;
@@ -12832,7 +17848,7 @@ end;
-Procedure TTargetPoolAggregatedList.Setitems(AIndex : Integer; AValue : TTargetPoolAggregatedListTypeitems);
+Procedure TTargetPoolAggregatedList.Setitems(AIndex : Integer; const AValue : TTargetPoolAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
@@ -12879,7 +17895,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTargetPoolInstanceHealth.SethealthStatus(AIndex : Integer; AValue : TTargetPoolInstanceHealthTypehealthStatusArray);
+Procedure TTargetPoolInstanceHealth.SethealthStatus(AIndex : Integer; const AValue : TTargetPoolInstanceHealthTypehealthStatusArray);
begin
If (FhealthStatus=AValue) then exit;
@@ -12929,7 +17945,7 @@ end;
-Procedure TTargetPoolList.Setitems(AIndex : Integer; AValue : TTargetPoolListTypeitemsArray);
+Procedure TTargetPoolList.Setitems(AIndex : Integer; const AValue : TTargetPoolListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -12989,7 +18005,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTargetPoolsAddHealthCheckRequest.SethealthChecks(AIndex : Integer; AValue : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray);
+Procedure TTargetPoolsAddHealthCheckRequest.SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray);
begin
If (FhealthChecks=AValue) then exit;
@@ -13019,7 +18035,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTargetPoolsAddInstanceRequest.Setinstances(AIndex : Integer; AValue : TTargetPoolsAddInstanceRequestTypeinstancesArray);
+Procedure TTargetPoolsAddInstanceRequest.Setinstances(AIndex : Integer; const AValue : TTargetPoolsAddInstanceRequestTypeinstancesArray);
begin
If (Finstances=AValue) then exit;
@@ -13049,7 +18065,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTargetPoolsRemoveHealthCheckRequest.SethealthChecks(AIndex : Integer; AValue : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray);
+Procedure TTargetPoolsRemoveHealthCheckRequest.SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray);
begin
If (FhealthChecks=AValue) then exit;
@@ -13079,7 +18095,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTargetPoolsRemoveInstanceRequest.Setinstances(AIndex : Integer; AValue : TTargetPoolsRemoveInstanceRequestTypeinstancesArray);
+Procedure TTargetPoolsRemoveInstanceRequest.Setinstances(AIndex : Integer; const AValue : TTargetPoolsRemoveInstanceRequestTypeinstancesArray);
begin
If (Finstances=AValue) then exit;
@@ -13146,7 +18162,7 @@ end;
-Procedure TTargetPoolsScopedListTypewarning.Setdata(AIndex : Integer; AValue : TTargetPoolsScopedListTypewarningTypedataArray);
+Procedure TTargetPoolsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -13186,7 +18202,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTargetPoolsScopedList.SettargetPools(AIndex : Integer; AValue : TTargetPoolsScopedListTypetargetPoolsArray);
+Procedure TTargetPoolsScopedList.SettargetPools(AIndex : Integer; const AValue : TTargetPoolsScopedListTypetargetPoolsArray);
begin
If (FtargetPools=AValue) then exit;
@@ -13196,7 +18212,7 @@ end;
-Procedure TTargetPoolsScopedList.Setwarning(AIndex : Integer; AValue : TTargetPoolsScopedListTypewarning);
+Procedure TTargetPoolsScopedList.Setwarning(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
@@ -13263,7 +18279,7 @@ end;
-Procedure TTargetVpnGateway.SetforwardingRules(AIndex : Integer; AValue : TStringArray);
+Procedure TTargetVpnGateway.SetforwardingRules(AIndex : Integer; const AValue : TStringArray);
begin
If (FforwardingRules=AValue) then exit;
@@ -13343,7 +18359,7 @@ end;
-Procedure TTargetVpnGateway.Settunnels(AIndex : Integer; AValue : TStringArray);
+Procedure TTargetVpnGateway.Settunnels(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftunnels=AValue) then exit;
@@ -13397,7 +18413,7 @@ end;
-Procedure TTargetVpnGatewayAggregatedList.Setitems(AIndex : Integer; AValue : TTargetVpnGatewayAggregatedListTypeitems);
+Procedure TTargetVpnGatewayAggregatedList.Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
@@ -13454,7 +18470,7 @@ end;
-Procedure TTargetVpnGatewayList.Setitems(AIndex : Integer; AValue : TTargetVpnGatewayListTypeitemsArray);
+Procedure TTargetVpnGatewayList.Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -13551,7 +18567,7 @@ end;
-Procedure TTargetVpnGatewaysScopedListTypewarning.Setdata(AIndex : Integer; AValue : TTargetVpnGatewaysScopedListTypewarningTypedataArray);
+Procedure TTargetVpnGatewaysScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -13591,7 +18607,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTargetVpnGatewaysScopedList.SettargetVpnGateways(AIndex : Integer; AValue : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray);
+Procedure TTargetVpnGatewaysScopedList.SettargetVpnGateways(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray);
begin
If (FtargetVpnGateways=AValue) then exit;
@@ -13601,7 +18617,7 @@ end;
-Procedure TTargetVpnGatewaysScopedList.Setwarning(AIndex : Integer; AValue : TTargetVpnGatewaysScopedListTypewarning);
+Procedure TTargetVpnGatewaysScopedList.Setwarning(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
@@ -13718,7 +18734,7 @@ end;
-Procedure TUrlMap.SethostRules(AIndex : Integer; AValue : TUrlMapTypehostRulesArray);
+Procedure TUrlMap.SethostRules(AIndex : Integer; const AValue : TUrlMapTypehostRulesArray);
begin
If (FhostRules=AValue) then exit;
@@ -13758,7 +18774,7 @@ end;
-Procedure TUrlMap.SetpathMatchers(AIndex : Integer; AValue : TUrlMapTypepathMatchersArray);
+Procedure TUrlMap.SetpathMatchers(AIndex : Integer; const AValue : TUrlMapTypepathMatchersArray);
begin
If (FpathMatchers=AValue) then exit;
@@ -13778,7 +18794,7 @@ end;
-Procedure TUrlMap.Settests(AIndex : Integer; AValue : TUrlMapTypetestsArray);
+Procedure TUrlMap.Settests(AIndex : Integer; const AValue : TUrlMapTypetestsArray);
begin
If (Ftests=AValue) then exit;
@@ -13820,7 +18836,7 @@ end;
-Procedure TUrlMapList.Setitems(AIndex : Integer; AValue : TUrlMapListTypeitemsArray);
+Procedure TUrlMapList.Setitems(AIndex : Integer; const AValue : TUrlMapListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -13944,7 +18960,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUrlMapValidationResult.SetloadErrors(AIndex : Integer; AValue : TStringArray);
+Procedure TUrlMapValidationResult.SetloadErrors(AIndex : Integer; const AValue : TStringArray);
begin
If (FloadErrors=AValue) then exit;
@@ -13954,7 +18970,7 @@ end;
-Procedure TUrlMapValidationResult.SetloadSucceeded(AIndex : Integer; AValue : boolean);
+Procedure TUrlMapValidationResult.SetloadSucceeded(AIndex : Integer; const AValue : boolean);
begin
If (FloadSucceeded=AValue) then exit;
@@ -13964,7 +18980,7 @@ end;
-Procedure TUrlMapValidationResult.SettestFailures(AIndex : Integer; AValue : TUrlMapValidationResultTypetestFailuresArray);
+Procedure TUrlMapValidationResult.SettestFailures(AIndex : Integer; const AValue : TUrlMapValidationResultTypetestFailuresArray);
begin
If (FtestFailures=AValue) then exit;
@@ -13974,7 +18990,7 @@ end;
-Procedure TUrlMapValidationResult.SettestPassed(AIndex : Integer; AValue : boolean);
+Procedure TUrlMapValidationResult.SettestPassed(AIndex : Integer; const AValue : boolean);
begin
If (FtestPassed=AValue) then exit;
@@ -14005,7 +19021,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUrlMapsValidateRequest.Setresource(AIndex : Integer; AValue : TUrlMap);
+Procedure TUrlMapsValidateRequest.Setresource(AIndex : Integer; const AValue : TUrlMap);
begin
If (Fresource=AValue) then exit;
@@ -14022,7 +19038,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUrlMapsValidateResponse.Setresult(AIndex : Integer; AValue : TUrlMapValidationResult);
+Procedure TUrlMapsValidateResponse.Setresult(AIndex : Integer; const AValue : TUrlMapValidationResult);
begin
If (Fresult=AValue) then exit;
@@ -14106,31 +19122,31 @@ end;
-Procedure TVpnTunnel.SetikeNetworks(AIndex : Integer; AValue : TStringArray);
+Procedure TVpnTunnel.SetikeVersion(AIndex : Integer; const AValue : integer);
begin
- If (FikeNetworks=AValue) then exit;
- FikeNetworks:=AValue;
+ If (FikeVersion=AValue) then exit;
+ FikeVersion:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVpnTunnel.SetikeVersion(AIndex : Integer; AValue : integer);
+Procedure TVpnTunnel.Setkind(AIndex : Integer; const AValue : String);
begin
- If (FikeVersion=AValue) then exit;
- FikeVersion:=AValue;
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVpnTunnel.Setkind(AIndex : Integer; const AValue : String);
+Procedure TVpnTunnel.SetlocalTrafficSelector(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
+ If (FlocalTrafficSelector=AValue) then exit;
+ FlocalTrafficSelector:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -14221,7 +19237,7 @@ Procedure TVpnTunnel.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'ikenetworks' : SetLength(FikeNetworks,ALength);
+ 'localtrafficselector' : SetLength(FlocalTrafficSelector,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -14259,7 +19275,7 @@ end;
-Procedure TVpnTunnelAggregatedList.Setitems(AIndex : Integer; AValue : TVpnTunnelAggregatedListTypeitems);
+Procedure TVpnTunnelAggregatedList.Setitems(AIndex : Integer; const AValue : TVpnTunnelAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
@@ -14316,7 +19332,7 @@ end;
-Procedure TVpnTunnelList.Setitems(AIndex : Integer; AValue : TVpnTunnelListTypeitemsArray);
+Procedure TVpnTunnelList.Setitems(AIndex : Integer; const AValue : TVpnTunnelListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -14413,7 +19429,7 @@ end;
-Procedure TVpnTunnelsScopedListTypewarning.Setdata(AIndex : Integer; AValue : TVpnTunnelsScopedListTypewarningTypedataArray);
+Procedure TVpnTunnelsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -14453,7 +19469,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVpnTunnelsScopedList.SetvpnTunnels(AIndex : Integer; AValue : TVpnTunnelsScopedListTypevpnTunnelsArray);
+Procedure TVpnTunnelsScopedList.SetvpnTunnels(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypevpnTunnelsArray);
begin
If (FvpnTunnels=AValue) then exit;
@@ -14463,7 +19479,7 @@ end;
-Procedure TVpnTunnelsScopedList.Setwarning(AIndex : Integer; AValue : TVpnTunnelsScopedListTypewarning);
+Procedure TVpnTunnelsScopedList.Setwarning(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
@@ -14489,53 +19505,6 @@ end;
{ --------------------------------------------------------------------
- TZoneTypemaintenanceWindowsItem
- --------------------------------------------------------------------}
-
-
-Procedure TZoneTypemaintenanceWindowsItem.SetbeginTime(AIndex : Integer; const AValue : String);
-
-begin
- If (FbeginTime=AValue) then exit;
- FbeginTime:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TZoneTypemaintenanceWindowsItem.Setdescription(AIndex : Integer; const AValue : String);
-
-begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TZoneTypemaintenanceWindowsItem.SetendTime(AIndex : Integer; const AValue : String);
-
-begin
- If (FendTime=AValue) then exit;
- FendTime:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TZoneTypemaintenanceWindowsItem.Setname(AIndex : Integer; const AValue : String);
-
-begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
TZone
--------------------------------------------------------------------}
@@ -14550,7 +19519,7 @@ end;
-Procedure TZone.Setdeprecated(AIndex : Integer; AValue : TDeprecationStatus);
+Procedure TZone.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus);
begin
If (Fdeprecated=AValue) then exit;
@@ -14590,16 +19559,6 @@ end;
-Procedure TZone.SetmaintenanceWindows(AIndex : Integer; AValue : TZoneTypemaintenanceWindowsArray);
-
-begin
- If (FmaintenanceWindows=AValue) then exit;
- FmaintenanceWindows:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TZone.Setname(AIndex : Integer; const AValue : String);
begin
@@ -14639,19 +19598,6 @@ begin
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TZone.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'maintenancewindows' : SetLength(FmaintenanceWindows,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
@@ -14670,7 +19616,7 @@ end;
-Procedure TZoneList.Setitems(AIndex : Integer; AValue : TZoneListTypeitemsArray);
+Procedure TZoneList.Setitems(AIndex : Integer; const AValue : TZoneListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -14848,6 +19794,182 @@ end;
{ --------------------------------------------------------------------
+ TAutoscalersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAutoscalersResource.ResourceName : String;
+
+begin
+ Result:='autoscalers';
+end;
+
+Class Function TAutoscalersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcomputeAPI;
+end;
+
+Function TAutoscalersResource.AggregatedList(project: string; AQuery : string = '') : TAutoscalerAggregatedList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/aggregated/autoscalers';
+ _Methodid = 'compute.autoscalers.aggregatedList';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAutoscalerAggregatedList) as TAutoscalerAggregatedList;
+end;
+
+
+Function TAutoscalersResource.AggregatedList(project: string; AQuery : TAutoscalersaggregatedListOptions) : TAutoscalerAggregatedList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=AggregatedList(project,_Q);
+end;
+
+Function TAutoscalersResource.Delete(autoscaler: string; project: string; zone: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = '{project}/zones/{zone}/autoscalers/{autoscaler}';
+ _Methodid = 'compute.autoscalers.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['autoscaler',autoscaler,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TAutoscalersResource.Get(autoscaler: string; project: string; zone: string) : TAutoscaler;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/zones/{zone}/autoscalers/{autoscaler}';
+ _Methodid = 'compute.autoscalers.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['autoscaler',autoscaler,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAutoscaler) as TAutoscaler;
+end;
+
+Function TAutoscalersResource.Insert(project: string; zone: string; aAutoscaler : TAutoscaler) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/autoscalers';
+ _Methodid = 'compute.autoscalers.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aAutoscaler,TOperation) as TOperation;
+end;
+
+Function TAutoscalersResource.List(project: string; zone: string; AQuery : string = '') : TAutoscalerList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/zones/{zone}/autoscalers';
+ _Methodid = 'compute.autoscalers.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAutoscalerList) as TAutoscalerList;
+end;
+
+
+Function TAutoscalersResource.List(project: string; zone: string; AQuery : TAutoscalerslistOptions) : TAutoscalerList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,zone,_Q);
+end;
+
+Function TAutoscalersResource.Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string = '') : TOperation;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = '{project}/zones/{zone}/autoscalers';
+ _Methodid = 'compute.autoscalers.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAutoscaler,TOperation) as TOperation;
+end;
+
+
+Function TAutoscalersResource.Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalerspatchOptions) : TOperation;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'autoscaler',AQuery.autoscaler);
+ Result:=Patch(project,zone,aAutoscaler,_Q);
+end;
+
+Function TAutoscalersResource.Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string = '') : TOperation;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = '{project}/zones/{zone}/autoscalers';
+ _Methodid = 'compute.autoscalers.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAutoscaler,TOperation) as TOperation;
+end;
+
+
+Function TAutoscalersResource.Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalersupdateOptions) : TOperation;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'autoscaler',AQuery.autoscaler);
+ Result:=Update(project,zone,aAutoscaler,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
TBackendServicesResource
--------------------------------------------------------------------}
@@ -15224,6 +20346,21 @@ begin
Result:=List(project,zone,_Q);
end;
+Function TDisksResource.Resize(disk: string; project: string; zone: string; aDisksResizeRequest : TDisksResizeRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/disks/{disk}/resize';
+ _Methodid = 'compute.disks.resize';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['disk',disk,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aDisksResizeRequest,TOperation) as TOperation;
+end;
+
{ --------------------------------------------------------------------
@@ -15918,6 +21055,129 @@ end;
{ --------------------------------------------------------------------
+ THttpsHealthChecksResource
+ --------------------------------------------------------------------}
+
+
+Class Function THttpsHealthChecksResource.ResourceName : String;
+
+begin
+ Result:='httpsHealthChecks';
+end;
+
+Class Function THttpsHealthChecksResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcomputeAPI;
+end;
+
+Function THttpsHealthChecksResource.Delete(httpsHealthCheck: string; project: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
+ _Methodid = 'compute.httpsHealthChecks.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function THttpsHealthChecksResource.Get(httpsHealthCheck: string; project: string) : THttpsHealthCheck;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
+ _Methodid = 'compute.httpsHealthChecks.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,THttpsHealthCheck) as THttpsHealthCheck;
+end;
+
+Function THttpsHealthChecksResource.Insert(project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/httpsHealthChecks';
+ _Methodid = 'compute.httpsHealthChecks.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aHttpsHealthCheck,TOperation) as TOperation;
+end;
+
+Function THttpsHealthChecksResource.List(project: string; AQuery : string = '') : THttpsHealthCheckList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/httpsHealthChecks';
+ _Methodid = 'compute.httpsHealthChecks.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,THttpsHealthCheckList) as THttpsHealthCheckList;
+end;
+
+
+Function THttpsHealthChecksResource.List(project: string; AQuery : THttpsHealthCheckslistOptions) : THttpsHealthCheckList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,_Q);
+end;
+
+Function THttpsHealthChecksResource.Patch(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
+ _Methodid = 'compute.httpsHealthChecks.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aHttpsHealthCheck,TOperation) as TOperation;
+end;
+
+Function THttpsHealthChecksResource.Update(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
+ _Methodid = 'compute.httpsHealthChecks.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aHttpsHealthCheck,TOperation) as TOperation;
+end;
+
+
+
+{ --------------------------------------------------------------------
TImagesResource
--------------------------------------------------------------------}
@@ -15979,6 +21239,21 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TImage) as TImage;
end;
+Function TImagesResource.GetFromFamily(family: string; project: string) : TImage;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/images/family/{family}';
+ _Methodid = 'compute.images.getFromFamily';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['family',family,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TImage) as TImage;
+end;
+
Function TImagesResource.Insert(project: string; aImage : TImage) : TOperation;
Const
@@ -16026,6 +21301,441 @@ end;
{ --------------------------------------------------------------------
+ TInstanceGroupManagersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TInstanceGroupManagersResource.ResourceName : String;
+
+begin
+ Result:='instanceGroupManagers';
+end;
+
+Class Function TInstanceGroupManagersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcomputeAPI;
+end;
+
+Function TInstanceGroupManagersResource.AbandonInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersAbandonInstancesRequest : TInstanceGroupManagersAbandonInstancesRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/abandonInstances';
+ _Methodid = 'compute.instanceGroupManagers.abandonInstances';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersAbandonInstancesRequest,TOperation) as TOperation;
+end;
+
+Function TInstanceGroupManagersResource.AggregatedList(project: string; AQuery : string = '') : TInstanceGroupManagerAggregatedList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/aggregated/instanceGroupManagers';
+ _Methodid = 'compute.instanceGroupManagers.aggregatedList';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupManagerAggregatedList) as TInstanceGroupManagerAggregatedList;
+end;
+
+
+Function TInstanceGroupManagersResource.AggregatedList(project: string; AQuery : TInstanceGroupManagersaggregatedListOptions) : TInstanceGroupManagerAggregatedList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=AggregatedList(project,_Q);
+end;
+
+Function TInstanceGroupManagersResource.Delete(instanceGroupManager: string; project: string; zone: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}';
+ _Methodid = 'compute.instanceGroupManagers.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TInstanceGroupManagersResource.DeleteInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersDeleteInstancesRequest : TInstanceGroupManagersDeleteInstancesRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/deleteInstances';
+ _Methodid = 'compute.instanceGroupManagers.deleteInstances';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersDeleteInstancesRequest,TOperation) as TOperation;
+end;
+
+Function TInstanceGroupManagersResource.Get(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManager;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}';
+ _Methodid = 'compute.instanceGroupManagers.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstanceGroupManager) as TInstanceGroupManager;
+end;
+
+Function TInstanceGroupManagersResource.Insert(project: string; zone: string; aInstanceGroupManager : TInstanceGroupManager) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroupManagers';
+ _Methodid = 'compute.instanceGroupManagers.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManager,TOperation) as TOperation;
+end;
+
+Function TInstanceGroupManagersResource.List(project: string; zone: string; AQuery : string = '') : TInstanceGroupManagerList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/zones/{zone}/instanceGroupManagers';
+ _Methodid = 'compute.instanceGroupManagers.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupManagerList) as TInstanceGroupManagerList;
+end;
+
+
+Function TInstanceGroupManagersResource.List(project: string; zone: string; AQuery : TInstanceGroupManagerslistOptions) : TInstanceGroupManagerList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,zone,_Q);
+end;
+
+Function TInstanceGroupManagersResource.ListManagedInstances(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManagersListManagedInstancesResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/listManagedInstances';
+ _Methodid = 'compute.instanceGroupManagers.listManagedInstances';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstanceGroupManagersListManagedInstancesResponse) as TInstanceGroupManagersListManagedInstancesResponse;
+end;
+
+Function TInstanceGroupManagersResource.RecreateInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersRecreateInstancesRequest : TInstanceGroupManagersRecreateInstancesRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/recreateInstances';
+ _Methodid = 'compute.instanceGroupManagers.recreateInstances';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersRecreateInstancesRequest,TOperation) as TOperation;
+end;
+
+Function TInstanceGroupManagersResource.Resize(instanceGroupManager: string; project: string; zone: string; AQuery : string = '') : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/resize';
+ _Methodid = 'compute.instanceGroupManagers.resize';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperation) as TOperation;
+end;
+
+
+Function TInstanceGroupManagersResource.Resize(instanceGroupManager: string; project: string; zone: string; AQuery : TInstanceGroupManagersresizeOptions) : TOperation;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'size',AQuery.size);
+ Result:=Resize(instanceGroupManager,project,zone,_Q);
+end;
+
+Function TInstanceGroupManagersResource.SetInstanceTemplate(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetInstanceTemplateRequest : TInstanceGroupManagersSetInstanceTemplateRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/setInstanceTemplate';
+ _Methodid = 'compute.instanceGroupManagers.setInstanceTemplate';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersSetInstanceTemplateRequest,TOperation) as TOperation;
+end;
+
+Function TInstanceGroupManagersResource.SetTargetPools(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetTargetPoolsRequest : TInstanceGroupManagersSetTargetPoolsRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/setTargetPools';
+ _Methodid = 'compute.instanceGroupManagers.setTargetPools';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersSetTargetPoolsRequest,TOperation) as TOperation;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TInstanceGroupsResource.ResourceName : String;
+
+begin
+ Result:='instanceGroups';
+end;
+
+Class Function TInstanceGroupsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcomputeAPI;
+end;
+
+Function TInstanceGroupsResource.AddInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsAddInstancesRequest : TInstanceGroupsAddInstancesRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/addInstances';
+ _Methodid = 'compute.instanceGroups.addInstances';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupsAddInstancesRequest,TOperation) as TOperation;
+end;
+
+Function TInstanceGroupsResource.AggregatedList(project: string; AQuery : string = '') : TInstanceGroupAggregatedList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/aggregated/instanceGroups';
+ _Methodid = 'compute.instanceGroups.aggregatedList';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupAggregatedList) as TInstanceGroupAggregatedList;
+end;
+
+
+Function TInstanceGroupsResource.AggregatedList(project: string; AQuery : TInstanceGroupsaggregatedListOptions) : TInstanceGroupAggregatedList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=AggregatedList(project,_Q);
+end;
+
+Function TInstanceGroupsResource.Delete(instanceGroup: string; project: string; zone: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}';
+ _Methodid = 'compute.instanceGroups.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TInstanceGroupsResource.Get(instanceGroup: string; project: string; zone: string) : TInstanceGroup;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}';
+ _Methodid = 'compute.instanceGroups.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstanceGroup) as TInstanceGroup;
+end;
+
+Function TInstanceGroupsResource.Insert(project: string; zone: string; aInstanceGroup : TInstanceGroup) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroups';
+ _Methodid = 'compute.instanceGroups.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroup,TOperation) as TOperation;
+end;
+
+Function TInstanceGroupsResource.List(project: string; zone: string; AQuery : string = '') : TInstanceGroupList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/zones/{zone}/instanceGroups';
+ _Methodid = 'compute.instanceGroups.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupList) as TInstanceGroupList;
+end;
+
+
+Function TInstanceGroupsResource.List(project: string; zone: string; AQuery : TInstanceGroupslistOptions) : TInstanceGroupList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,zone,_Q);
+end;
+
+Function TInstanceGroupsResource.ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : string = '') : TInstanceGroupsListInstances;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/listInstances';
+ _Methodid = 'compute.instanceGroups.listInstances';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aInstanceGroupsListInstancesRequest,TInstanceGroupsListInstances) as TInstanceGroupsListInstances;
+end;
+
+
+Function TInstanceGroupsResource.ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : TInstanceGroupslistInstancesOptions) : TInstanceGroupsListInstances;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=ListInstances(instanceGroup,project,zone,aInstanceGroupsListInstancesRequest,_Q);
+end;
+
+Function TInstanceGroupsResource.RemoveInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsRemoveInstancesRequest : TInstanceGroupsRemoveInstancesRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/removeInstances';
+ _Methodid = 'compute.instanceGroups.removeInstances';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupsRemoveInstancesRequest,TOperation) as TOperation;
+end;
+
+Function TInstanceGroupsResource.SetNamedPorts(instanceGroup: string; project: string; zone: string; aInstanceGroupsSetNamedPortsRequest : TInstanceGroupsSetNamedPortsRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/setNamedPorts';
+ _Methodid = 'compute.instanceGroups.setNamedPorts';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupsSetNamedPortsRequest,TOperation) as TOperation;
+end;
+
+
+
+{ --------------------------------------------------------------------
TInstanceTemplatesResource
--------------------------------------------------------------------}
@@ -16405,6 +22115,21 @@ begin
Result:=SetDiskAutoDelete(instance,project,zone,_Q);
end;
+Function TInstancesResource.SetMachineType(instance: string; project: string; zone: string; aInstancesSetMachineTypeRequest : TInstancesSetMachineTypeRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/zones/{zone}/instances/{instance}/setMachineType';
+ _Methodid = 'compute.instances.setMachineType';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstancesSetMachineTypeRequest,TOperation) as TOperation;
+end;
+
Function TInstancesResource.SetMetadata(instance: string; project: string; zone: string; aMetadata : TMetadata) : TOperation;
Const
@@ -17108,6 +22833,221 @@ end;
{ --------------------------------------------------------------------
+ TSslCertificatesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TSslCertificatesResource.ResourceName : String;
+
+begin
+ Result:='sslCertificates';
+end;
+
+Class Function TSslCertificatesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcomputeAPI;
+end;
+
+Function TSslCertificatesResource.Delete(project: string; sslCertificate: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = '{project}/global/sslCertificates/{sslCertificate}';
+ _Methodid = 'compute.sslCertificates.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'sslCertificate',sslCertificate]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TSslCertificatesResource.Get(project: string; sslCertificate: string) : TSslCertificate;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/sslCertificates/{sslCertificate}';
+ _Methodid = 'compute.sslCertificates.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'sslCertificate',sslCertificate]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSslCertificate) as TSslCertificate;
+end;
+
+Function TSslCertificatesResource.Insert(project: string; aSslCertificate : TSslCertificate) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/sslCertificates';
+ _Methodid = 'compute.sslCertificates.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSslCertificate,TOperation) as TOperation;
+end;
+
+Function TSslCertificatesResource.List(project: string; AQuery : string = '') : TSslCertificateList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/sslCertificates';
+ _Methodid = 'compute.sslCertificates.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSslCertificateList) as TSslCertificateList;
+end;
+
+
+Function TSslCertificatesResource.List(project: string; AQuery : TSslCertificateslistOptions) : TSslCertificateList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSubnetworksResource
+ --------------------------------------------------------------------}
+
+
+Class Function TSubnetworksResource.ResourceName : String;
+
+begin
+ Result:='subnetworks';
+end;
+
+Class Function TSubnetworksResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcomputeAPI;
+end;
+
+Function TSubnetworksResource.AggregatedList(project: string; AQuery : string = '') : TSubnetworkAggregatedList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/aggregated/subnetworks';
+ _Methodid = 'compute.subnetworks.aggregatedList';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSubnetworkAggregatedList) as TSubnetworkAggregatedList;
+end;
+
+
+Function TSubnetworksResource.AggregatedList(project: string; AQuery : TSubnetworksaggregatedListOptions) : TSubnetworkAggregatedList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=AggregatedList(project,_Q);
+end;
+
+Function TSubnetworksResource.Delete(project: string; region: string; subnetwork: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = '{project}/regions/{region}/subnetworks/{subnetwork}';
+ _Methodid = 'compute.subnetworks.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'region',region,'subnetwork',subnetwork]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TSubnetworksResource.Get(project: string; region: string; subnetwork: string) : TSubnetwork;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/regions/{region}/subnetworks/{subnetwork}';
+ _Methodid = 'compute.subnetworks.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'region',region,'subnetwork',subnetwork]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSubnetwork) as TSubnetwork;
+end;
+
+Function TSubnetworksResource.Insert(project: string; region: string; aSubnetwork : TSubnetwork) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/regions/{region}/subnetworks';
+ _Methodid = 'compute.subnetworks.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'region',region]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSubnetwork,TOperation) as TOperation;
+end;
+
+Function TSubnetworksResource.List(project: string; region: string; AQuery : string = '') : TSubnetworkList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/regions/{region}/subnetworks';
+ _Methodid = 'compute.subnetworks.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'region',region]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSubnetworkList) as TSubnetworkList;
+end;
+
+
+Function TSubnetworksResource.List(project: string; region: string; AQuery : TSubnetworkslistOptions) : TSubnetworkList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,region,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
TTargetHttpProxiesResource
--------------------------------------------------------------------}
@@ -17216,6 +23156,129 @@ end;
{ --------------------------------------------------------------------
+ TTargetHttpsProxiesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TTargetHttpsProxiesResource.ResourceName : String;
+
+begin
+ Result:='targetHttpsProxies';
+end;
+
+Class Function TTargetHttpsProxiesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcomputeAPI;
+end;
+
+Function TTargetHttpsProxiesResource.Delete(project: string; targetHttpsProxy: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = '{project}/global/targetHttpsProxies/{targetHttpsProxy}';
+ _Methodid = 'compute.targetHttpsProxies.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TTargetHttpsProxiesResource.Get(project: string; targetHttpsProxy: string) : TTargetHttpsProxy;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/targetHttpsProxies/{targetHttpsProxy}';
+ _Methodid = 'compute.targetHttpsProxies.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTargetHttpsProxy) as TTargetHttpsProxy;
+end;
+
+Function TTargetHttpsProxiesResource.Insert(project: string; aTargetHttpsProxy : TTargetHttpsProxy) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/targetHttpsProxies';
+ _Methodid = 'compute.targetHttpsProxies.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTargetHttpsProxy,TOperation) as TOperation;
+end;
+
+Function TTargetHttpsProxiesResource.List(project: string; AQuery : string = '') : TTargetHttpsProxyList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/targetHttpsProxies';
+ _Methodid = 'compute.targetHttpsProxies.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetHttpsProxyList) as TTargetHttpsProxyList;
+end;
+
+
+Function TTargetHttpsProxiesResource.List(project: string; AQuery : TTargetHttpsProxieslistOptions) : TTargetHttpsProxyList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,_Q);
+end;
+
+Function TTargetHttpsProxiesResource.SetSslCertificates(project: string; targetHttpsProxy: string; aTargetHttpsProxiesSetSslCertificatesRequest : TTargetHttpsProxiesSetSslCertificatesRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/targetHttpsProxies/{targetHttpsProxy}/setSslCertificates';
+ _Methodid = 'compute.targetHttpsProxies.setSslCertificates';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTargetHttpsProxiesSetSslCertificatesRequest,TOperation) as TOperation;
+end;
+
+Function TTargetHttpsProxiesResource.SetUrlMap(project: string; targetHttpsProxy: string; aUrlMapReference : TUrlMapReference) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/targetHttpsProxies/{targetHttpsProxy}/setUrlMap';
+ _Methodid = 'compute.targetHttpsProxies.setUrlMap';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMapReference,TOperation) as TOperation;
+end;
+
+
+
+{ --------------------------------------------------------------------
TTargetInstancesResource
--------------------------------------------------------------------}
@@ -18103,7 +24166,7 @@ end;
Class Function TComputeAPI.APIRevision : String;
begin
- Result:='20150401';
+ Result:='20160509';
end;
Class Function TComputeAPI.APIID : String;
@@ -18121,7 +24184,7 @@ end;
Class Function TComputeAPI.APIDescription : String;
begin
- Result:='API for the Google Compute Engine service.';
+ Result:='Creates and runs virtual machines on Google Cloud Platform.';
end;
Class Function TComputeAPI.APIOwnerDomain : String;
@@ -18157,7 +24220,7 @@ end;
Class Function TComputeAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TComputeAPI.APIbasePath : string;
@@ -18169,7 +24232,7 @@ end;
Class Function TComputeAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/compute/v1/projects/';
+ Result:='https://www.googleapis.com/compute/v1/projects/';
end;
Class Function TComputeAPI.APIProtocol : string;
@@ -18228,6 +24291,17 @@ begin
TAddressesScopedList.RegisterObject;
TAttachedDisk.RegisterObject;
TAttachedDiskInitializeParams.RegisterObject;
+ TAutoscaler.RegisterObject;
+ TAutoscalerAggregatedListTypeitems.RegisterObject;
+ TAutoscalerAggregatedList.RegisterObject;
+ TAutoscalerList.RegisterObject;
+ TAutoscalersScopedListTypewarningTypedataItem.RegisterObject;
+ TAutoscalersScopedListTypewarning.RegisterObject;
+ TAutoscalersScopedList.RegisterObject;
+ TAutoscalingPolicy.RegisterObject;
+ TAutoscalingPolicyCpuUtilization.RegisterObject;
+ TAutoscalingPolicyCustomMetricUtilization.RegisterObject;
+ TAutoscalingPolicyLoadBalancingUtilization.RegisterObject;
TBackend.RegisterObject;
TBackendService.RegisterObject;
TBackendServiceGroupHealth.RegisterObject;
@@ -18245,6 +24319,7 @@ begin
TDiskTypesScopedListTypewarningTypedataItem.RegisterObject;
TDiskTypesScopedListTypewarning.RegisterObject;
TDiskTypesScopedList.RegisterObject;
+ TDisksResizeRequest.RegisterObject;
TDisksScopedListTypewarningTypedataItem.RegisterObject;
TDisksScopedListTypewarning.RegisterObject;
TDisksScopedList.RegisterObject;
@@ -18263,21 +24338,51 @@ begin
THostRule.RegisterObject;
THttpHealthCheck.RegisterObject;
THttpHealthCheckList.RegisterObject;
+ THttpsHealthCheck.RegisterObject;
+ THttpsHealthCheckList.RegisterObject;
TImageTyperawDisk.RegisterObject;
TImage.RegisterObject;
TImageList.RegisterObject;
TInstance.RegisterObject;
TInstanceAggregatedListTypeitems.RegisterObject;
TInstanceAggregatedList.RegisterObject;
+ TInstanceGroup.RegisterObject;
+ TInstanceGroupAggregatedListTypeitems.RegisterObject;
+ TInstanceGroupAggregatedList.RegisterObject;
+ TInstanceGroupList.RegisterObject;
+ TInstanceGroupManager.RegisterObject;
+ TInstanceGroupManagerActionsSummary.RegisterObject;
+ TInstanceGroupManagerAggregatedListTypeitems.RegisterObject;
+ TInstanceGroupManagerAggregatedList.RegisterObject;
+ TInstanceGroupManagerList.RegisterObject;
+ TInstanceGroupManagersAbandonInstancesRequest.RegisterObject;
+ TInstanceGroupManagersDeleteInstancesRequest.RegisterObject;
+ TInstanceGroupManagersListManagedInstancesResponse.RegisterObject;
+ TInstanceGroupManagersRecreateInstancesRequest.RegisterObject;
+ TInstanceGroupManagersScopedListTypewarningTypedataItem.RegisterObject;
+ TInstanceGroupManagersScopedListTypewarning.RegisterObject;
+ TInstanceGroupManagersScopedList.RegisterObject;
+ TInstanceGroupManagersSetInstanceTemplateRequest.RegisterObject;
+ TInstanceGroupManagersSetTargetPoolsRequest.RegisterObject;
+ TInstanceGroupsAddInstancesRequest.RegisterObject;
+ TInstanceGroupsListInstances.RegisterObject;
+ TInstanceGroupsListInstancesRequest.RegisterObject;
+ TInstanceGroupsRemoveInstancesRequest.RegisterObject;
+ TInstanceGroupsScopedListTypewarningTypedataItem.RegisterObject;
+ TInstanceGroupsScopedListTypewarning.RegisterObject;
+ TInstanceGroupsScopedList.RegisterObject;
+ TInstanceGroupsSetNamedPortsRequest.RegisterObject;
TInstanceList.RegisterObject;
TInstanceMoveRequest.RegisterObject;
TInstanceProperties.RegisterObject;
TInstanceReference.RegisterObject;
TInstanceTemplate.RegisterObject;
TInstanceTemplateList.RegisterObject;
+ TInstanceWithNamedPorts.RegisterObject;
TInstancesScopedListTypewarningTypedataItem.RegisterObject;
TInstancesScopedListTypewarning.RegisterObject;
TInstancesScopedList.RegisterObject;
+ TInstancesSetMachineTypeRequest.RegisterObject;
TLicense.RegisterObject;
TMachineTypeTypescratchDisksItem.RegisterObject;
TMachineType.RegisterObject;
@@ -18287,8 +24392,13 @@ begin
TMachineTypesScopedListTypewarningTypedataItem.RegisterObject;
TMachineTypesScopedListTypewarning.RegisterObject;
TMachineTypesScopedList.RegisterObject;
+ TManagedInstance.RegisterObject;
+ TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.RegisterObject;
+ TManagedInstanceLastAttemptTypeerrors.RegisterObject;
+ TManagedInstanceLastAttempt.RegisterObject;
TMetadataTypeitemsItem.RegisterObject;
TMetadata.RegisterObject;
+ TNamedPort.RegisterObject;
TNetwork.RegisterObject;
TNetworkInterface.RegisterObject;
TNetworkList.RegisterObject;
@@ -18319,9 +24429,21 @@ begin
TServiceAccount.RegisterObject;
TSnapshot.RegisterObject;
TSnapshotList.RegisterObject;
+ TSslCertificate.RegisterObject;
+ TSslCertificateList.RegisterObject;
+ TSubnetwork.RegisterObject;
+ TSubnetworkAggregatedListTypeitems.RegisterObject;
+ TSubnetworkAggregatedList.RegisterObject;
+ TSubnetworkList.RegisterObject;
+ TSubnetworksScopedListTypewarningTypedataItem.RegisterObject;
+ TSubnetworksScopedListTypewarning.RegisterObject;
+ TSubnetworksScopedList.RegisterObject;
TTags.RegisterObject;
TTargetHttpProxy.RegisterObject;
TTargetHttpProxyList.RegisterObject;
+ TTargetHttpsProxiesSetSslCertificatesRequest.RegisterObject;
+ TTargetHttpsProxy.RegisterObject;
+ TTargetHttpsProxyList.RegisterObject;
TTargetInstance.RegisterObject;
TTargetInstanceAggregatedListTypeitems.RegisterObject;
TTargetInstanceAggregatedList.RegisterObject;
@@ -18365,7 +24487,6 @@ begin
TVpnTunnelsScopedListTypewarningTypedataItem.RegisterObject;
TVpnTunnelsScopedListTypewarning.RegisterObject;
TVpnTunnelsScopedList.RegisterObject;
- TZoneTypemaintenanceWindowsItem.RegisterObject;
TZone.RegisterObject;
TZoneList.RegisterObject;
end;
@@ -18395,6 +24516,30 @@ end;
+Function TComputeAPI.GetAutoscalersInstance : TAutoscalersResource;
+
+begin
+ if (FAutoscalersInstance=Nil) then
+ FAutoscalersInstance:=CreateAutoscalersResource;
+ Result:=FAutoscalersInstance;
+end;
+
+Function TComputeAPI.CreateAutoscalersResource : TAutoscalersResource;
+
+begin
+ Result:=CreateAutoscalersResource(Self);
+end;
+
+
+Function TComputeAPI.CreateAutoscalersResource(AOwner : TComponent) : TAutoscalersResource;
+
+begin
+ Result:=TAutoscalersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TComputeAPI.GetBackendServicesInstance : TBackendServicesResource;
begin
@@ -18611,6 +24756,30 @@ end;
+Function TComputeAPI.GetHttpsHealthChecksInstance : THttpsHealthChecksResource;
+
+begin
+ if (FHttpsHealthChecksInstance=Nil) then
+ FHttpsHealthChecksInstance:=CreateHttpsHealthChecksResource;
+ Result:=FHttpsHealthChecksInstance;
+end;
+
+Function TComputeAPI.CreateHttpsHealthChecksResource : THttpsHealthChecksResource;
+
+begin
+ Result:=CreateHttpsHealthChecksResource(Self);
+end;
+
+
+Function TComputeAPI.CreateHttpsHealthChecksResource(AOwner : TComponent) : THttpsHealthChecksResource;
+
+begin
+ Result:=THttpsHealthChecksResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TComputeAPI.GetImagesInstance : TImagesResource;
begin
@@ -18635,6 +24804,54 @@ end;
+Function TComputeAPI.GetInstanceGroupManagersInstance : TInstanceGroupManagersResource;
+
+begin
+ if (FInstanceGroupManagersInstance=Nil) then
+ FInstanceGroupManagersInstance:=CreateInstanceGroupManagersResource;
+ Result:=FInstanceGroupManagersInstance;
+end;
+
+Function TComputeAPI.CreateInstanceGroupManagersResource : TInstanceGroupManagersResource;
+
+begin
+ Result:=CreateInstanceGroupManagersResource(Self);
+end;
+
+
+Function TComputeAPI.CreateInstanceGroupManagersResource(AOwner : TComponent) : TInstanceGroupManagersResource;
+
+begin
+ Result:=TInstanceGroupManagersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TComputeAPI.GetInstanceGroupsInstance : TInstanceGroupsResource;
+
+begin
+ if (FInstanceGroupsInstance=Nil) then
+ FInstanceGroupsInstance:=CreateInstanceGroupsResource;
+ Result:=FInstanceGroupsInstance;
+end;
+
+Function TComputeAPI.CreateInstanceGroupsResource : TInstanceGroupsResource;
+
+begin
+ Result:=CreateInstanceGroupsResource(Self);
+end;
+
+
+Function TComputeAPI.CreateInstanceGroupsResource(AOwner : TComponent) : TInstanceGroupsResource;
+
+begin
+ Result:=TInstanceGroupsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TComputeAPI.GetInstanceTemplatesInstance : TInstanceTemplatesResource;
begin
@@ -18875,6 +25092,54 @@ end;
+Function TComputeAPI.GetSslCertificatesInstance : TSslCertificatesResource;
+
+begin
+ if (FSslCertificatesInstance=Nil) then
+ FSslCertificatesInstance:=CreateSslCertificatesResource;
+ Result:=FSslCertificatesInstance;
+end;
+
+Function TComputeAPI.CreateSslCertificatesResource : TSslCertificatesResource;
+
+begin
+ Result:=CreateSslCertificatesResource(Self);
+end;
+
+
+Function TComputeAPI.CreateSslCertificatesResource(AOwner : TComponent) : TSslCertificatesResource;
+
+begin
+ Result:=TSslCertificatesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TComputeAPI.GetSubnetworksInstance : TSubnetworksResource;
+
+begin
+ if (FSubnetworksInstance=Nil) then
+ FSubnetworksInstance:=CreateSubnetworksResource;
+ Result:=FSubnetworksInstance;
+end;
+
+Function TComputeAPI.CreateSubnetworksResource : TSubnetworksResource;
+
+begin
+ Result:=CreateSubnetworksResource(Self);
+end;
+
+
+Function TComputeAPI.CreateSubnetworksResource(AOwner : TComponent) : TSubnetworksResource;
+
+begin
+ Result:=TSubnetworksResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TComputeAPI.GetTargetHttpProxiesInstance : TTargetHttpProxiesResource;
begin
@@ -18899,6 +25164,30 @@ end;
+Function TComputeAPI.GetTargetHttpsProxiesInstance : TTargetHttpsProxiesResource;
+
+begin
+ if (FTargetHttpsProxiesInstance=Nil) then
+ FTargetHttpsProxiesInstance:=CreateTargetHttpsProxiesResource;
+ Result:=FTargetHttpsProxiesInstance;
+end;
+
+Function TComputeAPI.CreateTargetHttpsProxiesResource : TTargetHttpsProxiesResource;
+
+begin
+ Result:=CreateTargetHttpsProxiesResource(Self);
+end;
+
+
+Function TComputeAPI.CreateTargetHttpsProxiesResource(AOwner : TComponent) : TTargetHttpsProxiesResource;
+
+begin
+ Result:=TTargetHttpsProxiesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TComputeAPI.GetTargetInstancesInstance : TTargetInstancesResource;
begin
diff --git a/packages/googleapi/src/googleconsumersurveys.pp b/packages/googleapi/src/googleconsumersurveys.pp
new file mode 100644
index 0000000000..cbb20f40e4
--- /dev/null
+++ b/packages/googleapi/src/googleconsumersurveys.pp
@@ -0,0 +1,1716 @@
+unit googleconsumersurveys;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TFieldMask = Class;
+ TPageInfo = Class;
+ TResultsGetRequest = Class;
+ TResultsMask = Class;
+ TSurvey = Class;
+ TSurveyAudience = Class;
+ TSurveyCost = Class;
+ TSurveyQuestion = Class;
+ TSurveyQuestionImage = Class;
+ TSurveyResults = Class;
+ TSurveysListResponse = Class;
+ TSurveysStartRequest = Class;
+ TSurveysStartResponse = Class;
+ TSurveysStopResponse = Class;
+ TTokenPagination = Class;
+ TFieldMaskArray = Array of TFieldMask;
+ TPageInfoArray = Array of TPageInfo;
+ TResultsGetRequestArray = Array of TResultsGetRequest;
+ TResultsMaskArray = Array of TResultsMask;
+ TSurveyArray = Array of TSurvey;
+ TSurveyAudienceArray = Array of TSurveyAudience;
+ TSurveyCostArray = Array of TSurveyCost;
+ TSurveyQuestionArray = Array of TSurveyQuestion;
+ TSurveyQuestionImageArray = Array of TSurveyQuestionImage;
+ TSurveyResultsArray = Array of TSurveyResults;
+ TSurveysListResponseArray = Array of TSurveysListResponse;
+ TSurveysStartRequestArray = Array of TSurveysStartRequest;
+ TSurveysStartResponseArray = Array of TSurveysStartResponse;
+ TSurveysStopResponseArray = Array of TSurveysStopResponse;
+ TTokenPaginationArray = Array of TTokenPagination;
+ //Anonymous types, using auto-generated names
+ TFieldMaskTypefieldsArray = Array of TFieldMask;
+ TResultsMaskTypefieldsArray = Array of TFieldMask;
+ TSurveyTypequestionsArray = Array of TSurveyQuestion;
+ TSurveyQuestionTypeimagesArray = Array of TSurveyQuestionImage;
+ TSurveysListResponseTyperesourcesArray = Array of TSurvey;
+
+ { --------------------------------------------------------------------
+ TFieldMask
+ --------------------------------------------------------------------}
+
+ TFieldMask = Class(TGoogleBaseObject)
+ Private
+ Ffields : TFieldMaskTypefieldsArray;
+ Fid : integer;
+ Protected
+ //Property setters
+ Procedure Setfields(AIndex : Integer; const AValue : TFieldMaskTypefieldsArray); virtual;
+ Procedure Setid(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 fields : TFieldMaskTypefieldsArray Index 0 Read Ffields Write Setfields;
+ Property id : integer Index 8 Read Fid Write Setid;
+ end;
+ TFieldMaskClass = Class of TFieldMask;
+
+ { --------------------------------------------------------------------
+ TPageInfo
+ --------------------------------------------------------------------}
+
+ TPageInfo = Class(TGoogleBaseObject)
+ Private
+ FresultPerPage : integer;
+ FstartIndex : integer;
+ FtotalResults : integer;
+ Protected
+ //Property setters
+ Procedure SetresultPerPage(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property resultPerPage : integer Index 0 Read FresultPerPage Write SetresultPerPage;
+ Property startIndex : integer Index 8 Read FstartIndex Write SetstartIndex;
+ Property totalResults : integer Index 16 Read FtotalResults Write SettotalResults;
+ end;
+ TPageInfoClass = Class of TPageInfo;
+
+ { --------------------------------------------------------------------
+ TResultsGetRequest
+ --------------------------------------------------------------------}
+
+ TResultsGetRequest = Class(TGoogleBaseObject)
+ Private
+ FresultMask : TResultsMask;
+ Protected
+ //Property setters
+ Procedure SetresultMask(AIndex : Integer; const AValue : TResultsMask); virtual;
+ Public
+ Published
+ Property resultMask : TResultsMask Index 0 Read FresultMask Write SetresultMask;
+ end;
+ TResultsGetRequestClass = Class of TResultsGetRequest;
+
+ { --------------------------------------------------------------------
+ TResultsMask
+ --------------------------------------------------------------------}
+
+ TResultsMask = Class(TGoogleBaseObject)
+ Private
+ Ffields : TResultsMaskTypefieldsArray;
+ Fprojection : String;
+ Protected
+ //Property setters
+ Procedure Setfields(AIndex : Integer; const AValue : TResultsMaskTypefieldsArray); virtual;
+ Procedure Setprojection(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 fields : TResultsMaskTypefieldsArray Index 0 Read Ffields Write Setfields;
+ Property projection : String Index 8 Read Fprojection Write Setprojection;
+ end;
+ TResultsMaskClass = Class of TResultsMask;
+
+ { --------------------------------------------------------------------
+ TSurvey
+ --------------------------------------------------------------------}
+
+ TSurvey = Class(TGoogleBaseObject)
+ Private
+ Faudience : TSurveyAudience;
+ Fcost : TSurveyCost;
+ FcustomerData : String;
+ Fdescription : String;
+ Fowners : TStringArray;
+ Fquestions : TSurveyTypequestionsArray;
+ Fstate : String;
+ FsurveyUrlId : String;
+ Ftitle : String;
+ FwantedResponseCount : integer;
+ Protected
+ //Property setters
+ Procedure Setaudience(AIndex : Integer; const AValue : TSurveyAudience); virtual;
+ Procedure Setcost(AIndex : Integer; const AValue : TSurveyCost); virtual;
+ Procedure SetcustomerData(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setowners(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setquestions(AIndex : Integer; const AValue : TSurveyTypequestionsArray); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsurveyUrlId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetwantedResponseCount(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 audience : TSurveyAudience Index 0 Read Faudience Write Setaudience;
+ Property cost : TSurveyCost Index 8 Read Fcost Write Setcost;
+ Property customerData : String Index 16 Read FcustomerData Write SetcustomerData;
+ Property description : String Index 24 Read Fdescription Write Setdescription;
+ Property owners : TStringArray Index 32 Read Fowners Write Setowners;
+ Property questions : TSurveyTypequestionsArray Index 40 Read Fquestions Write Setquestions;
+ Property state : String Index 48 Read Fstate Write Setstate;
+ Property surveyUrlId : String Index 56 Read FsurveyUrlId Write SetsurveyUrlId;
+ Property title : String Index 64 Read Ftitle Write Settitle;
+ Property wantedResponseCount : integer Index 72 Read FwantedResponseCount Write SetwantedResponseCount;
+ end;
+ TSurveyClass = Class of TSurvey;
+
+ { --------------------------------------------------------------------
+ TSurveyAudience
+ --------------------------------------------------------------------}
+
+ TSurveyAudience = Class(TGoogleBaseObject)
+ Private
+ Fages : TStringArray;
+ Fcountry : String;
+ FcountrySubdivision : String;
+ Fgender : String;
+ Flanguages : TStringArray;
+ FmobileAppPanelId : String;
+ FpopulationSource : String;
+ Protected
+ //Property setters
+ Procedure Setages(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcountrySubdivision(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setgender(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlanguages(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetmobileAppPanelId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpopulationSource(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 ages : TStringArray Index 0 Read Fages Write Setages;
+ Property country : String Index 8 Read Fcountry Write Setcountry;
+ Property countrySubdivision : String Index 16 Read FcountrySubdivision Write SetcountrySubdivision;
+ Property gender : String Index 24 Read Fgender Write Setgender;
+ Property languages : TStringArray Index 32 Read Flanguages Write Setlanguages;
+ Property mobileAppPanelId : String Index 40 Read FmobileAppPanelId Write SetmobileAppPanelId;
+ Property populationSource : String Index 48 Read FpopulationSource Write SetpopulationSource;
+ end;
+ TSurveyAudienceClass = Class of TSurveyAudience;
+
+ { --------------------------------------------------------------------
+ TSurveyCost
+ --------------------------------------------------------------------}
+
+ TSurveyCost = Class(TGoogleBaseObject)
+ Private
+ FcostPerResponseNanos : String;
+ FcurrencyCode : String;
+ FmaxCostPerResponseNanos : String;
+ Fnanos : String;
+ Protected
+ //Property setters
+ Procedure SetcostPerResponseNanos(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmaxCostPerResponseNanos(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnanos(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property costPerResponseNanos : String Index 0 Read FcostPerResponseNanos Write SetcostPerResponseNanos;
+ Property currencyCode : String Index 8 Read FcurrencyCode Write SetcurrencyCode;
+ Property maxCostPerResponseNanos : String Index 16 Read FmaxCostPerResponseNanos Write SetmaxCostPerResponseNanos;
+ Property nanos : String Index 24 Read Fnanos Write Setnanos;
+ end;
+ TSurveyCostClass = Class of TSurveyCost;
+
+ { --------------------------------------------------------------------
+ TSurveyQuestion
+ --------------------------------------------------------------------}
+
+ TSurveyQuestion = Class(TGoogleBaseObject)
+ Private
+ FanswerOrder : String;
+ Fanswers : TStringArray;
+ FhasOther : boolean;
+ FhighValueLabel : String;
+ Fimages : TSurveyQuestionTypeimagesArray;
+ FlastAnswerPositionPinned : boolean;
+ FlowValueLabel : String;
+ FmustPickSuggestion : boolean;
+ FnumStars : String;
+ FopenTextPlaceholder : String;
+ FopenTextSuggestions : TStringArray;
+ Fquestion : String;
+ FsentimentText : String;
+ FsingleLineResponse : boolean;
+ FthresholdAnswers : TStringArray;
+ F_type : String;
+ FunitOfMeasurementLabel : String;
+ FvideoId : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetanswerOrder(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setanswers(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SethasOther(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SethighValueLabel(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setimages(AIndex : Integer; const AValue : TSurveyQuestionTypeimagesArray); virtual;
+ Procedure SetlastAnswerPositionPinned(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetlowValueLabel(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmustPickSuggestion(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetnumStars(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetopenTextPlaceholder(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetopenTextSuggestions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setquestion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsentimentText(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsingleLineResponse(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetthresholdAnswers(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetunitOfMeasurementLabel(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvideoId(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 answerOrder : String Index 0 Read FanswerOrder Write SetanswerOrder;
+ Property answers : TStringArray Index 8 Read Fanswers Write Setanswers;
+ Property hasOther : boolean Index 16 Read FhasOther Write SethasOther;
+ Property highValueLabel : String Index 24 Read FhighValueLabel Write SethighValueLabel;
+ Property images : TSurveyQuestionTypeimagesArray Index 32 Read Fimages Write Setimages;
+ Property lastAnswerPositionPinned : boolean Index 40 Read FlastAnswerPositionPinned Write SetlastAnswerPositionPinned;
+ Property lowValueLabel : String Index 48 Read FlowValueLabel Write SetlowValueLabel;
+ Property mustPickSuggestion : boolean Index 56 Read FmustPickSuggestion Write SetmustPickSuggestion;
+ Property numStars : String Index 64 Read FnumStars Write SetnumStars;
+ Property openTextPlaceholder : String Index 72 Read FopenTextPlaceholder Write SetopenTextPlaceholder;
+ Property openTextSuggestions : TStringArray Index 80 Read FopenTextSuggestions Write SetopenTextSuggestions;
+ Property question : String Index 88 Read Fquestion Write Setquestion;
+ Property sentimentText : String Index 96 Read FsentimentText Write SetsentimentText;
+ Property singleLineResponse : boolean Index 104 Read FsingleLineResponse Write SetsingleLineResponse;
+ Property thresholdAnswers : TStringArray Index 112 Read FthresholdAnswers Write SetthresholdAnswers;
+ Property _type : String Index 120 Read F_type Write Set_type;
+ Property unitOfMeasurementLabel : String Index 128 Read FunitOfMeasurementLabel Write SetunitOfMeasurementLabel;
+ Property videoId : String Index 136 Read FvideoId Write SetvideoId;
+ end;
+ TSurveyQuestionClass = Class of TSurveyQuestion;
+
+ { --------------------------------------------------------------------
+ TSurveyQuestionImage
+ --------------------------------------------------------------------}
+
+ TSurveyQuestionImage = Class(TGoogleBaseObject)
+ Private
+ FaltText : String;
+ Fdata : String;
+ Furl : String;
+ Protected
+ //Property setters
+ Procedure SetaltText(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property altText : String Index 0 Read FaltText Write SetaltText;
+ Property data : String Index 8 Read Fdata Write Setdata;
+ Property url : String Index 16 Read Furl Write Seturl;
+ end;
+ TSurveyQuestionImageClass = Class of TSurveyQuestionImage;
+
+ { --------------------------------------------------------------------
+ TSurveyResults
+ --------------------------------------------------------------------}
+
+ TSurveyResults = Class(TGoogleBaseObject)
+ Private
+ Fstatus : String;
+ FsurveyUrlId : String;
+ Protected
+ //Property setters
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsurveyUrlId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property status : String Index 0 Read Fstatus Write Setstatus;
+ Property surveyUrlId : String Index 8 Read FsurveyUrlId Write SetsurveyUrlId;
+ end;
+ TSurveyResultsClass = Class of TSurveyResults;
+
+ { --------------------------------------------------------------------
+ TSurveysListResponse
+ --------------------------------------------------------------------}
+
+ TSurveysListResponse = Class(TGoogleBaseObject)
+ Private
+ FpageInfo : TPageInfo;
+ FrequestId : String;
+ Fresources : TSurveysListResponseTyperesourcesArray;
+ FtokenPagination : TTokenPagination;
+ Protected
+ //Property setters
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
+ Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TSurveysListResponseTyperesourcesArray); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property pageInfo : TPageInfo Index 0 Read FpageInfo Write SetpageInfo;
+ Property requestId : String Index 8 Read FrequestId Write SetrequestId;
+ Property resources : TSurveysListResponseTyperesourcesArray Index 16 Read Fresources Write Setresources;
+ Property tokenPagination : TTokenPagination Index 24 Read FtokenPagination Write SettokenPagination;
+ end;
+ TSurveysListResponseClass = Class of TSurveysListResponse;
+
+ { --------------------------------------------------------------------
+ TSurveysStartRequest
+ --------------------------------------------------------------------}
+
+ TSurveysStartRequest = Class(TGoogleBaseObject)
+ Private
+ FmaxCostPerResponseNanos : String;
+ Protected
+ //Property setters
+ Procedure SetmaxCostPerResponseNanos(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property maxCostPerResponseNanos : String Index 0 Read FmaxCostPerResponseNanos Write SetmaxCostPerResponseNanos;
+ end;
+ TSurveysStartRequestClass = Class of TSurveysStartRequest;
+
+ { --------------------------------------------------------------------
+ TSurveysStartResponse
+ --------------------------------------------------------------------}
+
+ TSurveysStartResponse = Class(TGoogleBaseObject)
+ Private
+ FrequestId : String;
+ Fresource : TSurvey;
+ Protected
+ //Property setters
+ Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setresource(AIndex : Integer; const AValue : TSurvey); virtual;
+ Public
+ Published
+ Property requestId : String Index 0 Read FrequestId Write SetrequestId;
+ Property resource : TSurvey Index 8 Read Fresource Write Setresource;
+ end;
+ TSurveysStartResponseClass = Class of TSurveysStartResponse;
+
+ { --------------------------------------------------------------------
+ TSurveysStopResponse
+ --------------------------------------------------------------------}
+
+ TSurveysStopResponse = Class(TGoogleBaseObject)
+ Private
+ FrequestId : String;
+ Fresource : TSurvey;
+ Protected
+ //Property setters
+ Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setresource(AIndex : Integer; const AValue : TSurvey); virtual;
+ Public
+ Published
+ Property requestId : String Index 0 Read FrequestId Write SetrequestId;
+ Property resource : TSurvey Index 8 Read Fresource Write Setresource;
+ end;
+ TSurveysStopResponseClass = Class of TSurveysStopResponse;
+
+ { --------------------------------------------------------------------
+ TTokenPagination
+ --------------------------------------------------------------------}
+
+ TTokenPagination = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ FpreviousPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpreviousPageToken(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property previousPageToken : String Index 8 Read FpreviousPageToken Write SetpreviousPageToken;
+ end;
+ TTokenPaginationClass = Class of TTokenPagination;
+
+ { --------------------------------------------------------------------
+ TResultsResource
+ --------------------------------------------------------------------}
+
+ TResultsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(surveyUrlId: string; aResultsGetRequest : TResultsGetRequest) : TSurveyResults;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TSurveysResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TSurveysResource, method List
+
+ TSurveysListOptions = Record
+ maxResults : integer;
+ startIndex : integer;
+ token : String;
+ end;
+
+ TSurveysResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(surveyUrlId: string) : TSurvey;
+ Function Insert(aSurvey : TSurvey) : TSurvey;
+ Function List(AQuery : string = '') : TSurveysListResponse;
+ Function List(AQuery : TSurveyslistOptions) : TSurveysListResponse;
+ Function Start(resourceId: string; aSurveysStartRequest : TSurveysStartRequest) : TSurveysStartResponse;
+ Function Stop(resourceId: string) : TSurveysStopResponse;
+ Function Update(surveyUrlId: string; aSurvey : TSurvey) : TSurvey;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TConsumersurveysAPI
+ --------------------------------------------------------------------}
+
+ TConsumersurveysAPI = Class(TGoogleAPI)
+ Private
+ FResultsInstance : TResultsResource;
+ FSurveysInstance : TSurveysResource;
+ Function GetResultsInstance : TResultsResource;virtual;
+ Function GetSurveysInstance : TSurveysResource;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 CreateResultsResource(AOwner : TComponent) : TResultsResource;virtual;overload;
+ Function CreateResultsResource : TResultsResource;virtual;overload;
+ Function CreateSurveysResource(AOwner : TComponent) : TSurveysResource;virtual;overload;
+ Function CreateSurveysResource : TSurveysResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ResultsResource : TResultsResource Read GetResultsInstance;
+ Property SurveysResource : TSurveysResource Read GetSurveysInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TFieldMask
+ --------------------------------------------------------------------}
+
+
+Procedure TFieldMask.Setfields(AIndex : Integer; const AValue : TFieldMaskTypefieldsArray);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFieldMask.Setid(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFieldMask.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'fields' : SetLength(Ffields,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPageInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TPageInfo.SetresultPerPage(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FresultPerPage=AValue) then exit;
+ FresultPerPage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPageInfo.SetstartIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartIndex=AValue) then exit;
+ FstartIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPageInfo.SettotalResults(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalResults=AValue) then exit;
+ FtotalResults:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TResultsGetRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TResultsGetRequest.SetresultMask(AIndex : Integer; const AValue : TResultsMask);
+
+begin
+ If (FresultMask=AValue) then exit;
+ FresultMask:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TResultsMask
+ --------------------------------------------------------------------}
+
+
+Procedure TResultsMask.Setfields(AIndex : Integer; const AValue : TResultsMaskTypefieldsArray);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResultsMask.Setprojection(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fprojection=AValue) then exit;
+ Fprojection:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResultsMask.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'fields' : SetLength(Ffields,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSurvey
+ --------------------------------------------------------------------}
+
+
+Procedure TSurvey.Setaudience(AIndex : Integer; const AValue : TSurveyAudience);
+
+begin
+ If (Faudience=AValue) then exit;
+ Faudience:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurvey.Setcost(AIndex : Integer; const AValue : TSurveyCost);
+
+begin
+ If (Fcost=AValue) then exit;
+ Fcost:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurvey.SetcustomerData(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcustomerData=AValue) then exit;
+ FcustomerData:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurvey.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurvey.Setowners(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fowners=AValue) then exit;
+ Fowners:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurvey.Setquestions(AIndex : Integer; const AValue : TSurveyTypequestionsArray);
+
+begin
+ If (Fquestions=AValue) then exit;
+ Fquestions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurvey.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurvey.SetsurveyUrlId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsurveyUrlId=AValue) then exit;
+ FsurveyUrlId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurvey.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurvey.SetwantedResponseCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FwantedResponseCount=AValue) then exit;
+ FwantedResponseCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSurvey.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'owners' : SetLength(Fowners,ALength);
+ 'questions' : SetLength(Fquestions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSurveyAudience
+ --------------------------------------------------------------------}
+
+
+Procedure TSurveyAudience.Setages(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fages=AValue) then exit;
+ Fages:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyAudience.Setcountry(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcountry=AValue) then exit;
+ Fcountry:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyAudience.SetcountrySubdivision(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcountrySubdivision=AValue) then exit;
+ FcountrySubdivision:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyAudience.Setgender(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fgender=AValue) then exit;
+ Fgender:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyAudience.Setlanguages(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Flanguages=AValue) then exit;
+ Flanguages:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyAudience.SetmobileAppPanelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmobileAppPanelId=AValue) then exit;
+ FmobileAppPanelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyAudience.SetpopulationSource(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpopulationSource=AValue) then exit;
+ FpopulationSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSurveyAudience.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'ages' : SetLength(Fages,ALength);
+ 'languages' : SetLength(Flanguages,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSurveyCost
+ --------------------------------------------------------------------}
+
+
+Procedure TSurveyCost.SetcostPerResponseNanos(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcostPerResponseNanos=AValue) then exit;
+ FcostPerResponseNanos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyCost.SetcurrencyCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcurrencyCode=AValue) then exit;
+ FcurrencyCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyCost.SetmaxCostPerResponseNanos(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmaxCostPerResponseNanos=AValue) then exit;
+ FmaxCostPerResponseNanos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyCost.Setnanos(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fnanos=AValue) then exit;
+ Fnanos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSurveyQuestion
+ --------------------------------------------------------------------}
+
+
+Procedure TSurveyQuestion.SetanswerOrder(AIndex : Integer; const AValue : String);
+
+begin
+ If (FanswerOrder=AValue) then exit;
+ FanswerOrder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.Setanswers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fanswers=AValue) then exit;
+ Fanswers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SethasOther(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasOther=AValue) then exit;
+ FhasOther:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SethighValueLabel(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhighValueLabel=AValue) then exit;
+ FhighValueLabel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.Setimages(AIndex : Integer; const AValue : TSurveyQuestionTypeimagesArray);
+
+begin
+ If (Fimages=AValue) then exit;
+ Fimages:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SetlastAnswerPositionPinned(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FlastAnswerPositionPinned=AValue) then exit;
+ FlastAnswerPositionPinned:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SetlowValueLabel(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlowValueLabel=AValue) then exit;
+ FlowValueLabel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SetmustPickSuggestion(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FmustPickSuggestion=AValue) then exit;
+ FmustPickSuggestion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SetnumStars(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnumStars=AValue) then exit;
+ FnumStars:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SetopenTextPlaceholder(AIndex : Integer; const AValue : String);
+
+begin
+ If (FopenTextPlaceholder=AValue) then exit;
+ FopenTextPlaceholder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SetopenTextSuggestions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FopenTextSuggestions=AValue) then exit;
+ FopenTextSuggestions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.Setquestion(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fquestion=AValue) then exit;
+ Fquestion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SetsentimentText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsentimentText=AValue) then exit;
+ FsentimentText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SetsingleLineResponse(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FsingleLineResponse=AValue) then exit;
+ FsingleLineResponse:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SetthresholdAnswers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FthresholdAnswers=AValue) then exit;
+ FthresholdAnswers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SetunitOfMeasurementLabel(AIndex : Integer; const AValue : String);
+
+begin
+ If (FunitOfMeasurementLabel=AValue) then exit;
+ FunitOfMeasurementLabel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestion.SetvideoId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvideoId=AValue) then exit;
+ FvideoId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TSurveyQuestion.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 TSurveyQuestion.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'answers' : SetLength(Fanswers,ALength);
+ 'images' : SetLength(Fimages,ALength);
+ 'opentextsuggestions' : SetLength(FopenTextSuggestions,ALength);
+ 'thresholdanswers' : SetLength(FthresholdAnswers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSurveyQuestionImage
+ --------------------------------------------------------------------}
+
+
+Procedure TSurveyQuestionImage.SetaltText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaltText=AValue) then exit;
+ FaltText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestionImage.Setdata(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyQuestionImage.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSurveyResults
+ --------------------------------------------------------------------}
+
+
+Procedure TSurveyResults.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveyResults.SetsurveyUrlId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsurveyUrlId=AValue) then exit;
+ FsurveyUrlId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSurveysListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSurveysListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
+
+begin
+ If (FpageInfo=AValue) then exit;
+ FpageInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveysListResponse.SetrequestId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrequestId=AValue) then exit;
+ FrequestId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveysListResponse.Setresources(AIndex : Integer; const AValue : TSurveysListResponseTyperesourcesArray);
+
+begin
+ If (Fresources=AValue) then exit;
+ Fresources:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveysListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
+
+begin
+ If (FtokenPagination=AValue) then exit;
+ FtokenPagination:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSurveysListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'resources' : SetLength(Fresources,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSurveysStartRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSurveysStartRequest.SetmaxCostPerResponseNanos(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmaxCostPerResponseNanos=AValue) then exit;
+ FmaxCostPerResponseNanos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSurveysStartResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSurveysStartResponse.SetrequestId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrequestId=AValue) then exit;
+ FrequestId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveysStartResponse.Setresource(AIndex : Integer; const AValue : TSurvey);
+
+begin
+ If (Fresource=AValue) then exit;
+ Fresource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSurveysStopResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSurveysStopResponse.SetrequestId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrequestId=AValue) then exit;
+ FrequestId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSurveysStopResponse.Setresource(AIndex : Integer; const AValue : TSurvey);
+
+begin
+ If (Fresource=AValue) then exit;
+ Fresource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTokenPagination
+ --------------------------------------------------------------------}
+
+
+Procedure TTokenPagination.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTokenPagination.SetpreviousPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpreviousPageToken=AValue) then exit;
+ FpreviousPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TResultsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TResultsResource.ResourceName : String;
+
+begin
+ Result:='results';
+end;
+
+Class Function TResultsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TconsumersurveysAPI;
+end;
+
+Function TResultsResource.Get(surveyUrlId: string; aResultsGetRequest : TResultsGetRequest) : TSurveyResults;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'surveys/{surveyUrlId}/results';
+ _Methodid = 'consumersurveys.results.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['surveyUrlId',surveyUrlId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aResultsGetRequest,TSurveyResults) as TSurveyResults;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSurveysResource
+ --------------------------------------------------------------------}
+
+
+Class Function TSurveysResource.ResourceName : String;
+
+begin
+ Result:='surveys';
+end;
+
+Class Function TSurveysResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TconsumersurveysAPI;
+end;
+
+Function TSurveysResource.Get(surveyUrlId: string) : TSurvey;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'surveys/{surveyUrlId}';
+ _Methodid = 'consumersurveys.surveys.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['surveyUrlId',surveyUrlId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSurvey) as TSurvey;
+end;
+
+Function TSurveysResource.Insert(aSurvey : TSurvey) : TSurvey;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'surveys';
+ _Methodid = 'consumersurveys.surveys.insert';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aSurvey,TSurvey) as TSurvey;
+end;
+
+Function TSurveysResource.List(AQuery : string = '') : TSurveysListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'surveys';
+ _Methodid = 'consumersurveys.surveys.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSurveysListResponse) as TSurveysListResponse;
+end;
+
+
+Function TSurveysResource.List(AQuery : TSurveyslistOptions) : TSurveysListResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'startIndex',AQuery.startIndex);
+ AddToQuery(_Q,'token',AQuery.token);
+ Result:=List(_Q);
+end;
+
+Function TSurveysResource.Start(resourceId: string; aSurveysStartRequest : TSurveysStartRequest) : TSurveysStartResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'surveys/{resourceId}/start';
+ _Methodid = 'consumersurveys.surveys.start';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resourceId',resourceId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSurveysStartRequest,TSurveysStartResponse) as TSurveysStartResponse;
+end;
+
+Function TSurveysResource.Stop(resourceId: string) : TSurveysStopResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'surveys/{resourceId}/stop';
+ _Methodid = 'consumersurveys.surveys.stop';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resourceId',resourceId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSurveysStopResponse) as TSurveysStopResponse;
+end;
+
+Function TSurveysResource.Update(surveyUrlId: string; aSurvey : TSurvey) : TSurvey;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'surveys/{surveyUrlId}';
+ _Methodid = 'consumersurveys.surveys.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['surveyUrlId',surveyUrlId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSurvey,TSurvey) as TSurvey;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TConsumersurveysAPI
+ --------------------------------------------------------------------}
+
+Class Function TConsumersurveysAPI.APIName : String;
+
+begin
+ Result:='consumersurveys';
+end;
+
+Class Function TConsumersurveysAPI.APIVersion : String;
+
+begin
+ Result:='v2';
+end;
+
+Class Function TConsumersurveysAPI.APIRevision : String;
+
+begin
+ Result:='20160519';
+end;
+
+Class Function TConsumersurveysAPI.APIID : String;
+
+begin
+ Result:='consumersurveys:v2';
+end;
+
+Class Function TConsumersurveysAPI.APITitle : String;
+
+begin
+ Result:='Consumer Surveys API';
+end;
+
+Class Function TConsumersurveysAPI.APIDescription : String;
+
+begin
+ Result:='Creates and conducts surveys, lists the surveys that an authenticated user owns, and retrieves survey results and information about specified surveys.';
+end;
+
+Class Function TConsumersurveysAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TConsumersurveysAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TConsumersurveysAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TConsumersurveysAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TConsumersurveysAPI.APIdocumentationLink : String;
+
+begin
+ Result:='';
+end;
+
+Class Function TConsumersurveysAPI.APIrootUrl : string;
+
+begin
+ Result:='https://www.googleapis.com/';
+end;
+
+Class Function TConsumersurveysAPI.APIbasePath : string;
+
+begin
+ Result:='/consumersurveys/v2/';
+end;
+
+Class Function TConsumersurveysAPI.APIbaseURL : String;
+
+begin
+ Result:='https://www.googleapis.com/consumersurveys/v2/';
+end;
+
+Class Function TConsumersurveysAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TConsumersurveysAPI.APIservicePath : string;
+
+begin
+ Result:='consumersurveys/v2/';
+end;
+
+Class Function TConsumersurveysAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TConsumersurveysAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,3);
+ Result[0].Name:='https://www.googleapis.com/auth/consumersurveys';
+ Result[0].Description:='View and edit your surveys and results';
+ Result[1].Name:='https://www.googleapis.com/auth/consumersurveys.readonly';
+ Result[1].Description:='View the results for your surveys';
+ Result[2].Name:='https://www.googleapis.com/auth/userinfo.email';
+ Result[2].Description:='View your email address';
+
+end;
+
+Class Function TConsumersurveysAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TConsumersurveysAPI.RegisterAPIResources;
+
+begin
+ TFieldMask.RegisterObject;
+ TPageInfo.RegisterObject;
+ TResultsGetRequest.RegisterObject;
+ TResultsMask.RegisterObject;
+ TSurvey.RegisterObject;
+ TSurveyAudience.RegisterObject;
+ TSurveyCost.RegisterObject;
+ TSurveyQuestion.RegisterObject;
+ TSurveyQuestionImage.RegisterObject;
+ TSurveyResults.RegisterObject;
+ TSurveysListResponse.RegisterObject;
+ TSurveysStartRequest.RegisterObject;
+ TSurveysStartResponse.RegisterObject;
+ TSurveysStopResponse.RegisterObject;
+ TTokenPagination.RegisterObject;
+end;
+
+
+Function TConsumersurveysAPI.GetResultsInstance : TResultsResource;
+
+begin
+ if (FResultsInstance=Nil) then
+ FResultsInstance:=CreateResultsResource;
+ Result:=FResultsInstance;
+end;
+
+Function TConsumersurveysAPI.CreateResultsResource : TResultsResource;
+
+begin
+ Result:=CreateResultsResource(Self);
+end;
+
+
+Function TConsumersurveysAPI.CreateResultsResource(AOwner : TComponent) : TResultsResource;
+
+begin
+ Result:=TResultsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TConsumersurveysAPI.GetSurveysInstance : TSurveysResource;
+
+begin
+ if (FSurveysInstance=Nil) then
+ FSurveysInstance:=CreateSurveysResource;
+ Result:=FSurveysInstance;
+end;
+
+Function TConsumersurveysAPI.CreateSurveysResource : TSurveysResource;
+
+begin
+ Result:=CreateSurveysResource(Self);
+end;
+
+
+Function TConsumersurveysAPI.CreateSurveysResource(AOwner : TComponent) : TSurveysResource;
+
+begin
+ Result:=TSurveysResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TConsumersurveysAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlecontainer.pp b/packages/googleapi/src/googlecontainer.pp
index 27b5220f9f..fbc74d1536 100644
--- a/packages/googleapi/src/googlecontainer.pp
+++ b/packages/googleapi/src/googlecontainer.pp
@@ -1,19 +1,4 @@
unit googlecontainer;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:01
{$MODE objfpc}
{$H+}
@@ -24,32 +9,67 @@ uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
- TCluster = Class;
- TCreateClusterRequest = Class;
- TListAggregatedClustersResponse = Class;
- TListAggregatedOperationsResponse = Class;
TListClustersResponse = Class;
- TListOperationsResponse = Class;
- TMasterAuth = Class;
+ TCluster = Class;
TNodeConfig = Class;
+ TMasterAuth = Class;
+ TAddonsConfig = Class;
+ THttpLoadBalancing = Class;
+ THorizontalPodAutoscaling = Class;
+ TNodePool = Class;
+ TCreateClusterRequest = Class;
TOperation = Class;
- TServiceAccount = Class;
- TClusterArray = Array of TCluster;
- TCreateClusterRequestArray = Array of TCreateClusterRequest;
- TListAggregatedClustersResponseArray = Array of TListAggregatedClustersResponse;
- TListAggregatedOperationsResponseArray = Array of TListAggregatedOperationsResponse;
+ TUpdateClusterRequest = Class;
+ TClusterUpdate = Class;
+ TListOperationsResponse = Class;
+ TServerConfig = Class;
+ TListNodePoolsResponse = Class;
+ TCreateNodePoolRequest = Class;
TListClustersResponseArray = Array of TListClustersResponse;
- TListOperationsResponseArray = Array of TListOperationsResponse;
- TMasterAuthArray = Array of TMasterAuth;
+ TClusterArray = Array of TCluster;
TNodeConfigArray = Array of TNodeConfig;
+ TMasterAuthArray = Array of TMasterAuth;
+ TAddonsConfigArray = Array of TAddonsConfig;
+ THttpLoadBalancingArray = Array of THttpLoadBalancing;
+ THorizontalPodAutoscalingArray = Array of THorizontalPodAutoscaling;
+ TNodePoolArray = Array of TNodePool;
+ TCreateClusterRequestArray = Array of TCreateClusterRequest;
TOperationArray = Array of TOperation;
- TServiceAccountArray = Array of TServiceAccount;
+ TUpdateClusterRequestArray = Array of TUpdateClusterRequest;
+ TClusterUpdateArray = Array of TClusterUpdate;
+ TListOperationsResponseArray = Array of TListOperationsResponse;
+ TServerConfigArray = Array of TServerConfig;
+ TListNodePoolsResponseArray = Array of TListNodePoolsResponse;
+ TCreateNodePoolRequestArray = Array of TCreateNodePoolRequest;
//Anonymous types, using auto-generated names
- TListAggregatedClustersResponseTypeclustersArray = Array of TCluster;
- TListAggregatedOperationsResponseTypeoperationsArray = Array of TOperation;
+ TNodeConfigTypemetadata = Class;
TListClustersResponseTypeclustersArray = Array of TCluster;
+ TClusterTypenodePoolsArray = Array of TNodePool;
TListOperationsResponseTypeoperationsArray = Array of TOperation;
- TNodeConfigTypeserviceAccountsArray = Array of TServiceAccount;
+ TListNodePoolsResponseTypenodePoolsArray = Array of TNodePool;
+
+ { --------------------------------------------------------------------
+ TListClustersResponse
+ --------------------------------------------------------------------}
+
+ TListClustersResponse = Class(TGoogleBaseObject)
+ Private
+ Fclusters : TListClustersResponseTypeclustersArray;
+ FmissingZones : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setclusters(AIndex : Integer; const AValue : TListClustersResponseTypeclustersArray); virtual;
+ Procedure SetmissingZones(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 clusters : TListClustersResponseTypeclustersArray Index 0 Read Fclusters Write Setclusters;
+ Property missingZones : TStringArray Index 8 Read FmissingZones Write SetmissingZones;
+ end;
+ TListClustersResponseClass = Class of TListClustersResponse;
{ --------------------------------------------------------------------
TCluster
@@ -57,207 +77,273 @@ type
TCluster = Class(TGoogleBaseObject)
Private
- FclusterApiVersion : String;
- FcontainerIpv4Cidr : String;
- FcreationTimestamp : String;
+ Fname : String;
Fdescription : String;
- FenableCloudLogging : boolean;
- Fendpoint : String;
+ FinitialNodeCount : integer;
+ FnodeConfig : TNodeConfig;
FmasterAuth : TMasterAuth;
- Fname : String;
+ FloggingService : String;
+ FmonitoringService : String;
Fnetwork : String;
- FnodeConfig : TNodeConfig;
- FnodeRoutingPrefixSize : integer;
- FnumNodes : integer;
+ FclusterIpv4Cidr : String;
+ FaddonsConfig : TAddonsConfig;
+ Fsubnetwork : String;
+ FnodePools : TClusterTypenodePoolsArray;
+ Flocations : TStringArray;
FselfLink : String;
- FservicesIpv4Cidr : String;
+ Fzone : String;
+ Fendpoint : String;
+ FinitialClusterVersion : String;
+ FcurrentMasterVersion : String;
+ FcurrentNodeVersion : String;
+ FcreateTime : String;
Fstatus : String;
FstatusMessage : String;
- Fzone : String;
+ FnodeIpv4CidrSize : integer;
+ FservicesIpv4Cidr : String;
+ FinstanceGroupUrls : TStringArray;
+ FcurrentNodeCount : integer;
Protected
//Property setters
- Procedure SetclusterApiVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerIpv4Cidr(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetenableCloudLogging(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setendpoint(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmasterAuth(AIndex : Integer; AValue : TMasterAuth); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinitialNodeCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnodeConfig(AIndex : Integer; const AValue : TNodeConfig); virtual;
+ Procedure SetmasterAuth(AIndex : Integer; const AValue : TMasterAuth); virtual;
+ Procedure SetloggingService(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmonitoringService(AIndex : Integer; const AValue : String); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnodeConfig(AIndex : Integer; AValue : TNodeConfig); virtual;
- Procedure SetnodeRoutingPrefixSize(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnumNodes(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetclusterIpv4Cidr(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetaddonsConfig(AIndex : Integer; const AValue : TAddonsConfig); virtual;
+ Procedure Setsubnetwork(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnodePools(AIndex : Integer; const AValue : TClusterTypenodePoolsArray); virtual;
+ Procedure Setlocations(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetservicesIpv4Cidr(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setendpoint(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinitialClusterVersion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcurrentMasterVersion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcurrentNodeVersion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
- Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnodeIpv4CidrSize(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetservicesIpv4Cidr(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceGroupUrls(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetcurrentNodeCount(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 clusterApiVersion : String Index 0 Read FclusterApiVersion Write SetclusterApiVersion;
- Property containerIpv4Cidr : String Index 8 Read FcontainerIpv4Cidr Write SetcontainerIpv4Cidr;
- Property creationTimestamp : String Index 16 Read FcreationTimestamp Write SetcreationTimestamp;
- Property description : String Index 24 Read Fdescription Write Setdescription;
- Property enableCloudLogging : boolean Index 32 Read FenableCloudLogging Write SetenableCloudLogging;
- Property endpoint : String Index 40 Read Fendpoint Write Setendpoint;
- Property masterAuth : TMasterAuth Index 48 Read FmasterAuth Write SetmasterAuth;
- Property name : String Index 56 Read Fname Write Setname;
- Property network : String Index 64 Read Fnetwork Write Setnetwork;
- Property nodeConfig : TNodeConfig Index 72 Read FnodeConfig Write SetnodeConfig;
- Property nodeRoutingPrefixSize : integer Index 80 Read FnodeRoutingPrefixSize Write SetnodeRoutingPrefixSize;
- Property numNodes : integer Index 88 Read FnumNodes Write SetnumNodes;
- Property selfLink : String Index 96 Read FselfLink Write SetselfLink;
- Property servicesIpv4Cidr : String Index 104 Read FservicesIpv4Cidr Write SetservicesIpv4Cidr;
- Property status : String Index 112 Read Fstatus Write Setstatus;
- Property statusMessage : String Index 120 Read FstatusMessage Write SetstatusMessage;
- Property zone : String Index 128 Read Fzone Write Setzone;
+ Property name : String Index 0 Read Fname Write Setname;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property initialNodeCount : integer Index 16 Read FinitialNodeCount Write SetinitialNodeCount;
+ Property nodeConfig : TNodeConfig Index 24 Read FnodeConfig Write SetnodeConfig;
+ Property masterAuth : TMasterAuth Index 32 Read FmasterAuth Write SetmasterAuth;
+ Property loggingService : String Index 40 Read FloggingService Write SetloggingService;
+ Property monitoringService : String Index 48 Read FmonitoringService Write SetmonitoringService;
+ Property network : String Index 56 Read Fnetwork Write Setnetwork;
+ Property clusterIpv4Cidr : String Index 64 Read FclusterIpv4Cidr Write SetclusterIpv4Cidr;
+ Property addonsConfig : TAddonsConfig Index 72 Read FaddonsConfig Write SetaddonsConfig;
+ Property subnetwork : String Index 80 Read Fsubnetwork Write Setsubnetwork;
+ Property nodePools : TClusterTypenodePoolsArray Index 88 Read FnodePools Write SetnodePools;
+ Property locations : TStringArray Index 96 Read Flocations Write Setlocations;
+ Property selfLink : String Index 104 Read FselfLink Write SetselfLink;
+ Property zone : String Index 112 Read Fzone Write Setzone;
+ Property endpoint : String Index 120 Read Fendpoint Write Setendpoint;
+ Property initialClusterVersion : String Index 128 Read FinitialClusterVersion Write SetinitialClusterVersion;
+ Property currentMasterVersion : String Index 136 Read FcurrentMasterVersion Write SetcurrentMasterVersion;
+ Property currentNodeVersion : String Index 144 Read FcurrentNodeVersion Write SetcurrentNodeVersion;
+ Property createTime : String Index 152 Read FcreateTime Write SetcreateTime;
+ Property status : String Index 160 Read Fstatus Write Setstatus;
+ Property statusMessage : String Index 168 Read FstatusMessage Write SetstatusMessage;
+ Property nodeIpv4CidrSize : integer Index 176 Read FnodeIpv4CidrSize Write SetnodeIpv4CidrSize;
+ Property servicesIpv4Cidr : String Index 184 Read FservicesIpv4Cidr Write SetservicesIpv4Cidr;
+ Property instanceGroupUrls : TStringArray Index 192 Read FinstanceGroupUrls Write SetinstanceGroupUrls;
+ Property currentNodeCount : integer Index 200 Read FcurrentNodeCount Write SetcurrentNodeCount;
end;
TClusterClass = Class of TCluster;
{ --------------------------------------------------------------------
- TCreateClusterRequest
+ TNodeConfigTypemetadata
--------------------------------------------------------------------}
- TCreateClusterRequest = Class(TGoogleBaseObject)
+ TNodeConfigTypemetadata = Class(TGoogleBaseObject)
Private
- Fcluster : TCluster;
Protected
//Property setters
- Procedure Setcluster(AIndex : Integer; AValue : TCluster); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property cluster : TCluster Index 0 Read Fcluster Write Setcluster;
end;
- TCreateClusterRequestClass = Class of TCreateClusterRequest;
+ TNodeConfigTypemetadataClass = Class of TNodeConfigTypemetadata;
{ --------------------------------------------------------------------
- TListAggregatedClustersResponse
+ TNodeConfig
--------------------------------------------------------------------}
- TListAggregatedClustersResponse = Class(TGoogleBaseObject)
+ TNodeConfig = Class(TGoogleBaseObject)
Private
- Fclusters : TListAggregatedClustersResponseTypeclustersArray;
+ FmachineType : String;
+ FdiskSizeGb : integer;
+ FoauthScopes : TStringArray;
+ Fmetadata : TNodeConfigTypemetadata;
Protected
//Property setters
- Procedure Setclusters(AIndex : Integer; AValue : TListAggregatedClustersResponseTypeclustersArray); virtual;
+ Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdiskSizeGb(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetoauthScopes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TNodeConfigTypemetadata); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property clusters : TListAggregatedClustersResponseTypeclustersArray Index 0 Read Fclusters Write Setclusters;
+ Property machineType : String Index 0 Read FmachineType Write SetmachineType;
+ Property diskSizeGb : integer Index 8 Read FdiskSizeGb Write SetdiskSizeGb;
+ Property oauthScopes : TStringArray Index 16 Read FoauthScopes Write SetoauthScopes;
+ Property metadata : TNodeConfigTypemetadata Index 24 Read Fmetadata Write Setmetadata;
end;
- TListAggregatedClustersResponseClass = Class of TListAggregatedClustersResponse;
+ TNodeConfigClass = Class of TNodeConfig;
{ --------------------------------------------------------------------
- TListAggregatedOperationsResponse
+ TMasterAuth
--------------------------------------------------------------------}
- TListAggregatedOperationsResponse = Class(TGoogleBaseObject)
+ TMasterAuth = Class(TGoogleBaseObject)
Private
- Foperations : TListAggregatedOperationsResponseTypeoperationsArray;
+ Fusername : String;
+ Fpassword : String;
+ FclusterCaCertificate : String;
+ FclientCertificate : String;
+ FclientKey : String;
Protected
//Property setters
- Procedure Setoperations(AIndex : Integer; AValue : TListAggregatedOperationsResponseTypeoperationsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclusterCaCertificate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclientCertificate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclientKey(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property operations : TListAggregatedOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
+ Property username : String Index 0 Read Fusername Write Setusername;
+ Property password : String Index 8 Read Fpassword Write Setpassword;
+ Property clusterCaCertificate : String Index 16 Read FclusterCaCertificate Write SetclusterCaCertificate;
+ Property clientCertificate : String Index 24 Read FclientCertificate Write SetclientCertificate;
+ Property clientKey : String Index 32 Read FclientKey Write SetclientKey;
end;
- TListAggregatedOperationsResponseClass = Class of TListAggregatedOperationsResponse;
+ TMasterAuthClass = Class of TMasterAuth;
{ --------------------------------------------------------------------
- TListClustersResponse
+ TAddonsConfig
--------------------------------------------------------------------}
- TListClustersResponse = Class(TGoogleBaseObject)
+ TAddonsConfig = Class(TGoogleBaseObject)
Private
- Fclusters : TListClustersResponseTypeclustersArray;
+ FhttpLoadBalancing : THttpLoadBalancing;
+ FhorizontalPodAutoscaling : THorizontalPodAutoscaling;
Protected
//Property setters
- Procedure Setclusters(AIndex : Integer; AValue : TListClustersResponseTypeclustersArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure SethttpLoadBalancing(AIndex : Integer; const AValue : THttpLoadBalancing); virtual;
+ Procedure SethorizontalPodAutoscaling(AIndex : Integer; const AValue : THorizontalPodAutoscaling); virtual;
Public
Published
- Property clusters : TListClustersResponseTypeclustersArray Index 0 Read Fclusters Write Setclusters;
+ Property httpLoadBalancing : THttpLoadBalancing Index 0 Read FhttpLoadBalancing Write SethttpLoadBalancing;
+ Property horizontalPodAutoscaling : THorizontalPodAutoscaling Index 8 Read FhorizontalPodAutoscaling Write SethorizontalPodAutoscaling;
end;
- TListClustersResponseClass = Class of TListClustersResponse;
+ TAddonsConfigClass = Class of TAddonsConfig;
{ --------------------------------------------------------------------
- TListOperationsResponse
+ THttpLoadBalancing
--------------------------------------------------------------------}
- TListOperationsResponse = Class(TGoogleBaseObject)
+ THttpLoadBalancing = Class(TGoogleBaseObject)
Private
- Foperations : TListOperationsResponseTypeoperationsArray;
+ Fdisabled : boolean;
Protected
//Property setters
- Procedure Setoperations(AIndex : Integer; AValue : TListOperationsResponseTypeoperationsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Setdisabled(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
- Property operations : TListOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
+ Property disabled : boolean Index 0 Read Fdisabled Write Setdisabled;
end;
- TListOperationsResponseClass = Class of TListOperationsResponse;
+ THttpLoadBalancingClass = Class of THttpLoadBalancing;
{ --------------------------------------------------------------------
- TMasterAuth
+ THorizontalPodAutoscaling
--------------------------------------------------------------------}
- TMasterAuth = Class(TGoogleBaseObject)
+ THorizontalPodAutoscaling = Class(TGoogleBaseObject)
Private
- FbearerToken : String;
- Fpassword : String;
- Fuser : String;
+ Fdisabled : boolean;
Protected
//Property setters
- Procedure SetbearerToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
- Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdisabled(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
- Property bearerToken : String Index 0 Read FbearerToken Write SetbearerToken;
- Property password : String Index 8 Read Fpassword Write Setpassword;
- Property user : String Index 16 Read Fuser Write Setuser;
+ Property disabled : boolean Index 0 Read Fdisabled Write Setdisabled;
end;
- TMasterAuthClass = Class of TMasterAuth;
+ THorizontalPodAutoscalingClass = Class of THorizontalPodAutoscaling;
{ --------------------------------------------------------------------
- TNodeConfig
+ TNodePool
--------------------------------------------------------------------}
- TNodeConfig = Class(TGoogleBaseObject)
+ TNodePool = Class(TGoogleBaseObject)
Private
- FmachineType : String;
- FserviceAccounts : TNodeConfigTypeserviceAccountsArray;
- FsourceImage : String;
+ Fname : String;
+ Fconfig : TNodeConfig;
+ FinitialNodeCount : integer;
+ FselfLink : String;
+ Fversion : String;
+ FinstanceGroupUrls : TStringArray;
+ Fstatus : String;
+ FstatusMessage : String;
Protected
//Property setters
- Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetserviceAccounts(AIndex : Integer; AValue : TNodeConfigTypeserviceAccountsArray); virtual;
- Procedure SetsourceImage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setconfig(AIndex : Integer; const AValue : TNodeConfig); virtual;
+ Procedure SetinitialNodeCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceGroupUrls(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstatusMessage(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 machineType : String Index 0 Read FmachineType Write SetmachineType;
- Property serviceAccounts : TNodeConfigTypeserviceAccountsArray Index 8 Read FserviceAccounts Write SetserviceAccounts;
- Property sourceImage : String Index 16 Read FsourceImage Write SetsourceImage;
+ Property name : String Index 0 Read Fname Write Setname;
+ Property config : TNodeConfig Index 8 Read Fconfig Write Setconfig;
+ Property initialNodeCount : integer Index 16 Read FinitialNodeCount Write SetinitialNodeCount;
+ Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
+ Property version : String Index 32 Read Fversion Write Setversion;
+ Property instanceGroupUrls : TStringArray Index 40 Read FinstanceGroupUrls Write SetinstanceGroupUrls;
+ Property status : String Index 48 Read Fstatus Write Setstatus;
+ Property statusMessage : String Index 56 Read FstatusMessage Write SetstatusMessage;
end;
- TNodeConfigClass = Class of TNodeConfig;
+ TNodePoolClass = Class of TNodePool;
+
+ { --------------------------------------------------------------------
+ TCreateClusterRequest
+ --------------------------------------------------------------------}
+
+ TCreateClusterRequest = Class(TGoogleBaseObject)
+ Private
+ Fcluster : TCluster;
+ Protected
+ //Property setters
+ Procedure Setcluster(AIndex : Integer; const AValue : TCluster); virtual;
+ Public
+ Published
+ Property cluster : TCluster Index 0 Read Fcluster Write Setcluster;
+ end;
+ TCreateClusterRequestClass = Class of TCreateClusterRequest;
{ --------------------------------------------------------------------
TOperation
@@ -265,81 +351,181 @@ type
TOperation = Class(TGoogleBaseObject)
Private
- FerrorMessage : String;
Fname : String;
+ Fzone : String;
FoperationType : String;
- FselfLink : String;
Fstatus : String;
- Ftarget : String;
+ Fdetail : String;
+ FstatusMessage : String;
+ FselfLink : String;
FtargetLink : String;
- Fzone : String;
Protected
//Property setters
- Procedure SeterrorMessage(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property errorMessage : String Index 0 Read FerrorMessage Write SeterrorMessage;
- Property name : String Index 8 Read Fname Write Setname;
+ Property name : String Index 0 Read Fname Write Setname;
+ Property zone : String Index 8 Read Fzone Write Setzone;
Property operationType : String Index 16 Read FoperationType Write SetoperationType;
- Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
- Property status : String Index 32 Read Fstatus Write Setstatus;
- Property target : String Index 40 Read Ftarget Write Settarget;
- Property targetLink : String Index 48 Read FtargetLink Write SettargetLink;
- Property zone : String Index 56 Read Fzone Write Setzone;
+ Property status : String Index 24 Read Fstatus Write Setstatus;
+ Property detail : String Index 32 Read Fdetail Write Setdetail;
+ Property statusMessage : String Index 40 Read FstatusMessage Write SetstatusMessage;
+ Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
+ Property targetLink : String Index 56 Read FtargetLink Write SettargetLink;
end;
TOperationClass = Class of TOperation;
{ --------------------------------------------------------------------
- TServiceAccount
+ TUpdateClusterRequest
--------------------------------------------------------------------}
- TServiceAccount = Class(TGoogleBaseObject)
+ TUpdateClusterRequest = Class(TGoogleBaseObject)
Private
- Femail : String;
- Fscopes : TStringArray;
+ Fupdate : TClusterUpdate;
Protected
//Property setters
- Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setscopes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setupdate(AIndex : Integer; const AValue : TClusterUpdate); virtual;
+ Public
+ Published
+ Property update : TClusterUpdate Index 0 Read Fupdate Write Setupdate;
+ end;
+ TUpdateClusterRequestClass = Class of TUpdateClusterRequest;
+
+ { --------------------------------------------------------------------
+ TClusterUpdate
+ --------------------------------------------------------------------}
+
+ TClusterUpdate = Class(TGoogleBaseObject)
+ Private
+ FdesiredNodeVersion : String;
+ FdesiredMonitoringService : String;
+ FdesiredAddonsConfig : TAddonsConfig;
+ FdesiredNodePoolId : String;
+ FdesiredMasterVersion : String;
+ Protected
+ //Property setters
+ Procedure SetdesiredNodeVersion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdesiredMonitoringService(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdesiredAddonsConfig(AIndex : Integer; const AValue : TAddonsConfig); virtual;
+ Procedure SetdesiredNodePoolId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdesiredMasterVersion(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property desiredNodeVersion : String Index 0 Read FdesiredNodeVersion Write SetdesiredNodeVersion;
+ Property desiredMonitoringService : String Index 8 Read FdesiredMonitoringService Write SetdesiredMonitoringService;
+ Property desiredAddonsConfig : TAddonsConfig Index 16 Read FdesiredAddonsConfig Write SetdesiredAddonsConfig;
+ Property desiredNodePoolId : String Index 24 Read FdesiredNodePoolId Write SetdesiredNodePoolId;
+ Property desiredMasterVersion : String Index 32 Read FdesiredMasterVersion Write SetdesiredMasterVersion;
+ end;
+ TClusterUpdateClass = Class of TClusterUpdate;
+
+ { --------------------------------------------------------------------
+ TListOperationsResponse
+ --------------------------------------------------------------------}
+
+ TListOperationsResponse = Class(TGoogleBaseObject)
+ Private
+ Foperations : TListOperationsResponseTypeoperationsArray;
+ FmissingZones : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray); virtual;
+ Procedure SetmissingZones(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 operations : TListOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
+ Property missingZones : TStringArray Index 8 Read FmissingZones Write SetmissingZones;
+ end;
+ TListOperationsResponseClass = Class of TListOperationsResponse;
+
+ { --------------------------------------------------------------------
+ TServerConfig
+ --------------------------------------------------------------------}
+
+ TServerConfig = Class(TGoogleBaseObject)
+ Private
+ FdefaultClusterVersion : String;
+ FvalidNodeVersions : TStringArray;
+ FdefaultImageFamily : String;
+ FvalidImageFamilies : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetdefaultClusterVersion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvalidNodeVersions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetdefaultImageFamily(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvalidImageFamilies(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 email : String Index 0 Read Femail Write Setemail;
- Property scopes : TStringArray Index 8 Read Fscopes Write Setscopes;
+ Property defaultClusterVersion : String Index 0 Read FdefaultClusterVersion Write SetdefaultClusterVersion;
+ Property validNodeVersions : TStringArray Index 8 Read FvalidNodeVersions Write SetvalidNodeVersions;
+ Property defaultImageFamily : String Index 16 Read FdefaultImageFamily Write SetdefaultImageFamily;
+ Property validImageFamilies : TStringArray Index 24 Read FvalidImageFamilies Write SetvalidImageFamilies;
end;
- TServiceAccountClass = Class of TServiceAccount;
+ TServerConfigClass = Class of TServerConfig;
{ --------------------------------------------------------------------
- TProjectsClustersResource
+ TListNodePoolsResponse
--------------------------------------------------------------------}
- TProjectsClustersResource = Class(TGoogleResource)
+ TListNodePoolsResponse = Class(TGoogleBaseObject)
+ Private
+ FnodePools : TListNodePoolsResponseTypenodePoolsArray;
+ Protected
+ //Property setters
+ Procedure SetnodePools(AIndex : Integer; const AValue : TListNodePoolsResponseTypenodePoolsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(projectId: string) : TListAggregatedClustersResponse;
+ Published
+ Property nodePools : TListNodePoolsResponseTypenodePoolsArray Index 0 Read FnodePools Write SetnodePools;
end;
+ TListNodePoolsResponseClass = Class of TListNodePoolsResponse;
+
+ { --------------------------------------------------------------------
+ TCreateNodePoolRequest
+ --------------------------------------------------------------------}
+ TCreateNodePoolRequest = Class(TGoogleBaseObject)
+ Private
+ FnodePool : TNodePool;
+ Protected
+ //Property setters
+ Procedure SetnodePool(AIndex : Integer; const AValue : TNodePool); virtual;
+ Public
+ Published
+ Property nodePool : TNodePool Index 0 Read FnodePool Write SetnodePool;
+ end;
+ TCreateNodePoolRequestClass = Class of TCreateNodePoolRequest;
{ --------------------------------------------------------------------
- TProjectsOperationsResource
+ TProjectsZonesClustersNodePoolsResource
--------------------------------------------------------------------}
- TProjectsOperationsResource = Class(TGoogleResource)
+ TProjectsZonesClustersNodePoolsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(projectId: string) : TListAggregatedOperationsResponse;
+ Function List(projectId: string; zone: string; clusterId: string) : TListNodePoolsResponse;
+ Function Get(projectId: string; zone: string; clusterId: string; nodePoolId: string) : TNodePool;
+ Function Create(projectId: string; zone: string; clusterId: string; aCreateNodePoolRequest : TCreateNodePoolRequest) : TOperation;overload;
+ Function Delete(projectId: string; zone: string; clusterId: string; nodePoolId: string) : TOperation;
end;
@@ -348,13 +534,20 @@ type
--------------------------------------------------------------------}
TProjectsZonesClustersResource = Class(TGoogleResource)
+ Private
+ FNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
+ Function GetNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(projectId: string; zoneId: string; aCreateClusterRequest : TCreateClusterRequest) : TOperation;overload;
- Function Delete(clusterId: string; projectId: string; zoneId: string) : TOperation;
- Function Get(clusterId: string; projectId: string; zoneId: string) : TCluster;
- Function List(projectId: string; zoneId: string) : TListClustersResponse;
+ Function List(projectId: string; zone: string) : TListClustersResponse;
+ Function Get(projectId: string; zone: string; clusterId: string) : TCluster;
+ Function Create(projectId: string; zone: string; aCreateClusterRequest : TCreateClusterRequest) : TOperation;overload;
+ Function Update(projectId: string; zone: string; clusterId: string; aUpdateClusterRequest : TUpdateClusterRequest) : TOperation;
+ Function Delete(projectId: string; zone: string; clusterId: string) : TOperation;
+ Function CreateNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;virtual;overload;
+ Function CreateNodePoolsResource : TProjectsZonesClustersNodePoolsResource;virtual;overload;
+ Property NodePoolsResource : TProjectsZonesClustersNodePoolsResource Read GetNodePoolsInstance;
end;
@@ -366,8 +559,8 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(operationId: string; projectId: string; zoneId: string) : TOperation;
- Function List(projectId: string; zoneId: string) : TListOperationsResponse;
+ Function List(projectId: string; zone: string) : TListOperationsResponse;
+ Function Get(projectId: string; zone: string; operationId: string) : TOperation;
end;
@@ -377,17 +570,23 @@ type
TProjectsZonesResource = Class(TGoogleResource)
Private
+ FClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
FClustersInstance : TProjectsZonesClustersResource;
FOperationsInstance : TProjectsZonesOperationsResource;
+ Function GetClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;virtual;
Function GetClustersInstance : TProjectsZonesClustersResource;virtual;
Function GetOperationsInstance : TProjectsZonesOperationsResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function GetServerconfig(projectId: string; zone: string) : TServerConfig;
+ Function CreateClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;virtual;overload;
+ Function CreateClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;virtual;overload;
Function CreateClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;virtual;overload;
Function CreateClustersResource : TProjectsZonesClustersResource;virtual;overload;
Function CreateOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;virtual;overload;
Function CreateOperationsResource : TProjectsZonesOperationsResource;virtual;overload;
+ Property ClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource Read GetClustersNodePoolsInstance;
Property ClustersResource : TProjectsZonesClustersResource Read GetClustersInstance;
Property OperationsResource : TProjectsZonesOperationsResource Read GetOperationsInstance;
end;
@@ -399,31 +598,26 @@ type
TProjectsResource = Class(TGoogleResource)
Private
- FClustersInstance : TProjectsClustersResource;
- FOperationsInstance : TProjectsOperationsResource;
+ FZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
FZonesClustersInstance : TProjectsZonesClustersResource;
FZonesOperationsInstance : TProjectsZonesOperationsResource;
FZonesInstance : TProjectsZonesResource;
- Function GetClustersInstance : TProjectsClustersResource;virtual;
- Function GetOperationsInstance : TProjectsOperationsResource;virtual;
+ Function GetZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;virtual;
Function GetZonesClustersInstance : TProjectsZonesClustersResource;virtual;
Function GetZonesOperationsInstance : TProjectsZonesOperationsResource;virtual;
Function GetZonesInstance : TProjectsZonesResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function CreateClustersResource(AOwner : TComponent) : TProjectsClustersResource;virtual;overload;
- Function CreateClustersResource : TProjectsClustersResource;virtual;overload;
- Function CreateOperationsResource(AOwner : TComponent) : TProjectsOperationsResource;virtual;overload;
- Function CreateOperationsResource : TProjectsOperationsResource;virtual;overload;
+ Function CreateZonesClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;virtual;overload;
+ Function CreateZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;virtual;overload;
Function CreateZonesClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;virtual;overload;
Function CreateZonesClustersResource : TProjectsZonesClustersResource;virtual;overload;
Function CreateZonesOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;virtual;overload;
Function CreateZonesOperationsResource : TProjectsZonesOperationsResource;virtual;overload;
Function CreateZonesResource(AOwner : TComponent) : TProjectsZonesResource;virtual;overload;
Function CreateZonesResource : TProjectsZonesResource;virtual;overload;
- Property ClustersResource : TProjectsClustersResource Read GetClustersInstance;
- Property OperationsResource : TProjectsOperationsResource Read GetOperationsInstance;
+ Property ZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource Read GetZonesClustersNodePoolsInstance;
Property ZonesClustersResource : TProjectsZonesClustersResource Read GetZonesClustersInstance;
Property ZonesOperationsResource : TProjectsZonesOperationsResource Read GetZonesOperationsInstance;
Property ZonesResource : TProjectsZonesResource Read GetZonesInstance;
@@ -436,14 +630,12 @@ type
TContainerAPI = Class(TGoogleAPI)
Private
- FProjectsClustersInstance : TProjectsClustersResource;
- FProjectsOperationsInstance : TProjectsOperationsResource;
+ FProjectsZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
FProjectsZonesClustersInstance : TProjectsZonesClustersResource;
FProjectsZonesOperationsInstance : TProjectsZonesOperationsResource;
FProjectsZonesInstance : TProjectsZonesResource;
FProjectsInstance : TProjectsResource;
- Function GetProjectsClustersInstance : TProjectsClustersResource;virtual;
- Function GetProjectsOperationsInstance : TProjectsOperationsResource;virtual;
+ Function GetProjectsZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;virtual;
Function GetProjectsZonesClustersInstance : TProjectsZonesClustersResource;virtual;
Function GetProjectsZonesOperationsInstance : TProjectsZonesOperationsResource;virtual;
Function GetProjectsZonesInstance : TProjectsZonesResource;virtual;
@@ -471,10 +663,8 @@ type
Class Function APINeedsAuth : Boolean;override;
Class Procedure RegisterAPIResources; override;
//Add create function for resources
- Function CreateProjectsClustersResource(AOwner : TComponent) : TProjectsClustersResource;virtual;overload;
- Function CreateProjectsClustersResource : TProjectsClustersResource;virtual;overload;
- Function CreateProjectsOperationsResource(AOwner : TComponent) : TProjectsOperationsResource;virtual;overload;
- Function CreateProjectsOperationsResource : TProjectsOperationsResource;virtual;overload;
+ Function CreateProjectsZonesClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;virtual;overload;
+ Function CreateProjectsZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;virtual;overload;
Function CreateProjectsZonesClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;virtual;overload;
Function CreateProjectsZonesClustersResource : TProjectsZonesClustersResource;virtual;overload;
Function CreateProjectsZonesOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;virtual;overload;
@@ -484,8 +674,7 @@ type
Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
Function CreateProjectsResource : TProjectsResource;virtual;overload;
//Add default on-demand instances for resources
- Property ProjectsClustersResource : TProjectsClustersResource Read GetProjectsClustersInstance;
- Property ProjectsOperationsResource : TProjectsOperationsResource Read GetProjectsOperationsInstance;
+ Property ProjectsZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource Read GetProjectsZonesClustersNodePoolsInstance;
Property ProjectsZonesClustersResource : TProjectsZonesClustersResource Read GetProjectsZonesClustersInstance;
Property ProjectsZonesOperationsResource : TProjectsZonesOperationsResource Read GetProjectsZonesOperationsInstance;
Property ProjectsZonesResource : TProjectsZonesResource Read GetProjectsZonesInstance;
@@ -496,35 +685,56 @@ implementation
{ --------------------------------------------------------------------
- TCluster
+ TListClustersResponse
--------------------------------------------------------------------}
-Procedure TCluster.SetclusterApiVersion(AIndex : Integer; const AValue : String);
+Procedure TListClustersResponse.Setclusters(AIndex : Integer; const AValue : TListClustersResponseTypeclustersArray);
begin
- If (FclusterApiVersion=AValue) then exit;
- FclusterApiVersion:=AValue;
+ If (Fclusters=AValue) then exit;
+ Fclusters:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCluster.SetcontainerIpv4Cidr(AIndex : Integer; const AValue : String);
+Procedure TListClustersResponse.SetmissingZones(AIndex : Integer; const AValue : TStringArray);
begin
- If (FcontainerIpv4Cidr=AValue) then exit;
- FcontainerIpv4Cidr:=AValue;
+ If (FmissingZones=AValue) then exit;
+ FmissingZones:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListClustersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'clusters' : SetLength(Fclusters,ALength);
+ 'missingzones' : SetLength(FmissingZones,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCluster
+ --------------------------------------------------------------------}
-Procedure TCluster.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+Procedure TCluster.Setname(AIndex : Integer; const AValue : String);
begin
- If (FcreationTimestamp=AValue) then exit;
- FcreationTimestamp:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -540,27 +750,27 @@ end;
-Procedure TCluster.SetenableCloudLogging(AIndex : Integer; AValue : boolean);
+Procedure TCluster.SetinitialNodeCount(AIndex : Integer; const AValue : integer);
begin
- If (FenableCloudLogging=AValue) then exit;
- FenableCloudLogging:=AValue;
+ If (FinitialNodeCount=AValue) then exit;
+ FinitialNodeCount:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCluster.Setendpoint(AIndex : Integer; const AValue : String);
+Procedure TCluster.SetnodeConfig(AIndex : Integer; const AValue : TNodeConfig);
begin
- If (Fendpoint=AValue) then exit;
- Fendpoint:=AValue;
+ If (FnodeConfig=AValue) then exit;
+ FnodeConfig:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCluster.SetmasterAuth(AIndex : Integer; AValue : TMasterAuth);
+Procedure TCluster.SetmasterAuth(AIndex : Integer; const AValue : TMasterAuth);
begin
If (FmasterAuth=AValue) then exit;
@@ -570,11 +780,21 @@ end;
-Procedure TCluster.Setname(AIndex : Integer; const AValue : String);
+Procedure TCluster.SetloggingService(AIndex : Integer; const AValue : String);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (FloggingService=AValue) then exit;
+ FloggingService:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCluster.SetmonitoringService(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmonitoringService=AValue) then exit;
+ FmonitoringService:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -590,31 +810,51 @@ end;
-Procedure TCluster.SetnodeConfig(AIndex : Integer; AValue : TNodeConfig);
+Procedure TCluster.SetclusterIpv4Cidr(AIndex : Integer; const AValue : String);
begin
- If (FnodeConfig=AValue) then exit;
- FnodeConfig:=AValue;
+ If (FclusterIpv4Cidr=AValue) then exit;
+ FclusterIpv4Cidr:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCluster.SetnodeRoutingPrefixSize(AIndex : Integer; AValue : integer);
+Procedure TCluster.SetaddonsConfig(AIndex : Integer; const AValue : TAddonsConfig);
begin
- If (FnodeRoutingPrefixSize=AValue) then exit;
- FnodeRoutingPrefixSize:=AValue;
+ If (FaddonsConfig=AValue) then exit;
+ FaddonsConfig:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCluster.SetnumNodes(AIndex : Integer; AValue : integer);
+Procedure TCluster.Setsubnetwork(AIndex : Integer; const AValue : String);
begin
- If (FnumNodes=AValue) then exit;
- FnumNodes:=AValue;
+ If (Fsubnetwork=AValue) then exit;
+ Fsubnetwork:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCluster.SetnodePools(AIndex : Integer; const AValue : TClusterTypenodePoolsArray);
+
+begin
+ If (FnodePools=AValue) then exit;
+ FnodePools:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCluster.Setlocations(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Flocations=AValue) then exit;
+ Flocations:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -630,116 +870,134 @@ end;
-Procedure TCluster.SetservicesIpv4Cidr(AIndex : Integer; const AValue : String);
+Procedure TCluster.Setzone(AIndex : Integer; const AValue : String);
begin
- If (FservicesIpv4Cidr=AValue) then exit;
- FservicesIpv4Cidr:=AValue;
+ If (Fzone=AValue) then exit;
+ Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCluster.Setstatus(AIndex : Integer; const AValue : String);
+Procedure TCluster.Setendpoint(AIndex : Integer; const AValue : String);
begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
+ If (Fendpoint=AValue) then exit;
+ Fendpoint:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCluster.SetstatusMessage(AIndex : Integer; const AValue : String);
+Procedure TCluster.SetinitialClusterVersion(AIndex : Integer; const AValue : String);
begin
- If (FstatusMessage=AValue) then exit;
- FstatusMessage:=AValue;
+ If (FinitialClusterVersion=AValue) then exit;
+ FinitialClusterVersion:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCluster.Setzone(AIndex : Integer; const AValue : String);
+Procedure TCluster.SetcurrentMasterVersion(AIndex : Integer; const AValue : String);
begin
- If (Fzone=AValue) then exit;
- Fzone:=AValue;
+ If (FcurrentMasterVersion=AValue) then exit;
+ FcurrentMasterVersion:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TCluster.SetcurrentNodeVersion(AIndex : Integer; const AValue : String);
+begin
+ If (FcurrentNodeVersion=AValue) then exit;
+ FcurrentNodeVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TCreateClusterRequest
- --------------------------------------------------------------------}
-Procedure TCreateClusterRequest.Setcluster(AIndex : Integer; AValue : TCluster);
+Procedure TCluster.SetcreateTime(AIndex : Integer; const AValue : String);
begin
- If (Fcluster=AValue) then exit;
- Fcluster:=AValue;
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TCluster.Setstatus(AIndex : Integer; const AValue : String);
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TListAggregatedClustersResponse
- --------------------------------------------------------------------}
-Procedure TListAggregatedClustersResponse.Setclusters(AIndex : Integer; AValue : TListAggregatedClustersResponseTypeclustersArray);
+Procedure TCluster.SetstatusMessage(AIndex : Integer; const AValue : String);
begin
- If (Fclusters=AValue) then exit;
- Fclusters:=AValue;
+ If (FstatusMessage=AValue) then exit;
+ FstatusMessage:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TListAggregatedClustersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TCluster.SetnodeIpv4CidrSize(AIndex : Integer; const AValue : integer);
begin
- Case AName of
- 'clusters' : SetLength(Fclusters,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FnodeIpv4CidrSize=AValue) then exit;
+ FnodeIpv4CidrSize:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TCluster.SetservicesIpv4Cidr(AIndex : Integer; const AValue : String);
-{ --------------------------------------------------------------------
- TListAggregatedOperationsResponse
- --------------------------------------------------------------------}
+begin
+ If (FservicesIpv4Cidr=AValue) then exit;
+ FservicesIpv4Cidr:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TListAggregatedOperationsResponse.Setoperations(AIndex : Integer; AValue : TListAggregatedOperationsResponseTypeoperationsArray);
+
+Procedure TCluster.SetinstanceGroupUrls(AIndex : Integer; const AValue : TStringArray);
begin
- If (Foperations=AValue) then exit;
- Foperations:=AValue;
+ If (FinstanceGroupUrls=AValue) then exit;
+ FinstanceGroupUrls:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCluster.SetcurrentNodeCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FcurrentNodeCount=AValue) then exit;
+ FcurrentNodeCount:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TListAggregatedOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TCluster.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'operations' : SetLength(Foperations,ALength);
+ 'nodepools' : SetLength(FnodePools,ALength);
+ 'locations' : SetLength(Flocations,ALength);
+ 'instancegroupurls' : SetLength(FinstanceGroupUrls,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -750,56 +1008,69 @@ end;
{ --------------------------------------------------------------------
- TListClustersResponse
+ TNodeConfigTypemetadata
--------------------------------------------------------------------}
-Procedure TListClustersResponse.Setclusters(AIndex : Integer; AValue : TListClustersResponseTypeclustersArray);
+Class Function TNodeConfigTypemetadata.AllowAdditionalProperties : Boolean;
begin
- If (Fclusters=AValue) then exit;
- Fclusters:=AValue;
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TNodeConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TNodeConfig.SetmachineType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmachineType=AValue) then exit;
+ FmachineType:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TListClustersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TNodeConfig.SetdiskSizeGb(AIndex : Integer; const AValue : integer);
begin
- Case AName of
- 'clusters' : SetLength(Fclusters,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FdiskSizeGb=AValue) then exit;
+ FdiskSizeGb:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TNodeConfig.SetoauthScopes(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FoauthScopes=AValue) then exit;
+ FoauthScopes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TListOperationsResponse
- --------------------------------------------------------------------}
-Procedure TListOperationsResponse.Setoperations(AIndex : Integer; AValue : TListOperationsResponseTypeoperationsArray);
+Procedure TNodeConfig.Setmetadata(AIndex : Integer; const AValue : TNodeConfigTypemetadata);
begin
- If (Foperations=AValue) then exit;
- Foperations:=AValue;
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TNodeConfig.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'operations' : SetLength(Foperations,ALength);
+ 'oauthscopes' : SetLength(FoauthScopes,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -814,11 +1085,11 @@ end;
--------------------------------------------------------------------}
-Procedure TMasterAuth.SetbearerToken(AIndex : Integer; const AValue : String);
+Procedure TMasterAuth.Setusername(AIndex : Integer; const AValue : String);
begin
- If (FbearerToken=AValue) then exit;
- FbearerToken:=AValue;
+ If (Fusername=AValue) then exit;
+ Fusername:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -834,11 +1105,31 @@ end;
-Procedure TMasterAuth.Setuser(AIndex : Integer; const AValue : String);
+Procedure TMasterAuth.SetclusterCaCertificate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclusterCaCertificate=AValue) then exit;
+ FclusterCaCertificate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMasterAuth.SetclientCertificate(AIndex : Integer; const AValue : String);
begin
- If (Fuser=AValue) then exit;
- Fuser:=AValue;
+ If (FclientCertificate=AValue) then exit;
+ FclientCertificate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMasterAuth.SetclientKey(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclientKey=AValue) then exit;
+ FclientKey:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -847,46 +1138,157 @@ end;
{ --------------------------------------------------------------------
- TNodeConfig
+ TAddonsConfig
--------------------------------------------------------------------}
-Procedure TNodeConfig.SetmachineType(AIndex : Integer; const AValue : String);
+Procedure TAddonsConfig.SethttpLoadBalancing(AIndex : Integer; const AValue : THttpLoadBalancing);
begin
- If (FmachineType=AValue) then exit;
- FmachineType:=AValue;
+ If (FhttpLoadBalancing=AValue) then exit;
+ FhttpLoadBalancing:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddonsConfig.SethorizontalPodAutoscaling(AIndex : Integer; const AValue : THorizontalPodAutoscaling);
+
+begin
+ If (FhorizontalPodAutoscaling=AValue) then exit;
+ FhorizontalPodAutoscaling:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ THttpLoadBalancing
+ --------------------------------------------------------------------}
+
+
+Procedure THttpLoadBalancing.Setdisabled(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fdisabled=AValue) then exit;
+ Fdisabled:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TNodeConfig.SetserviceAccounts(AIndex : Integer; AValue : TNodeConfigTypeserviceAccountsArray);
+
+
+{ --------------------------------------------------------------------
+ THorizontalPodAutoscaling
+ --------------------------------------------------------------------}
+
+
+Procedure THorizontalPodAutoscaling.Setdisabled(AIndex : Integer; const AValue : boolean);
begin
- If (FserviceAccounts=AValue) then exit;
- FserviceAccounts:=AValue;
+ If (Fdisabled=AValue) then exit;
+ Fdisabled:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TNodeConfig.SetsourceImage(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TNodePool
+ --------------------------------------------------------------------}
+
+
+Procedure TNodePool.Setname(AIndex : Integer; const AValue : String);
begin
- If (FsourceImage=AValue) then exit;
- FsourceImage:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNodePool.Setconfig(AIndex : Integer; const AValue : TNodeConfig);
+
+begin
+ If (Fconfig=AValue) then exit;
+ Fconfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNodePool.SetinitialNodeCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FinitialNodeCount=AValue) then exit;
+ FinitialNodeCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNodePool.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNodePool.Setversion(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fversion=AValue) then exit;
+ Fversion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNodePool.SetinstanceGroupUrls(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FinstanceGroupUrls=AValue) then exit;
+ FinstanceGroupUrls:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNodePool.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNodePool.SetstatusMessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstatusMessage=AValue) then exit;
+ FstatusMessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TNodeConfig.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TNodePool.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'serviceaccounts' : SetLength(FserviceAccounts,ALength);
+ 'instancegroupurls' : SetLength(FinstanceGroupUrls,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -897,20 +1299,27 @@ end;
{ --------------------------------------------------------------------
- TOperation
+ TCreateClusterRequest
--------------------------------------------------------------------}
-Procedure TOperation.SeterrorMessage(AIndex : Integer; const AValue : String);
+Procedure TCreateClusterRequest.Setcluster(AIndex : Integer; const AValue : TCluster);
begin
- If (FerrorMessage=AValue) then exit;
- FerrorMessage:=AValue;
+ If (Fcluster=AValue) then exit;
+ Fcluster:=AValue;
MarkPropertyChanged(AIndex);
end;
+
+
+{ --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+
Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
begin
@@ -921,21 +1330,21 @@ end;
-Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String);
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String);
begin
- If (FoperationType=AValue) then exit;
- FoperationType:=AValue;
+ If (Fzone=AValue) then exit;
+ Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String);
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String);
begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
+ If (FoperationType=AValue) then exit;
+ FoperationType:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -951,11 +1360,31 @@ end;
-Procedure TOperation.Settarget(AIndex : Integer; const AValue : String);
+Procedure TOperation.Setdetail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdetail=AValue) then exit;
+ Fdetail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstatusMessage=AValue) then exit;
+ FstatusMessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String);
begin
- If (Ftarget=AValue) then exit;
- Ftarget:=AValue;
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -971,11 +1400,18 @@ end;
-Procedure TOperation.Setzone(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TUpdateClusterRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateClusterRequest.Setupdate(AIndex : Integer; const AValue : TClusterUpdate);
begin
- If (Fzone=AValue) then exit;
- Fzone:=AValue;
+ If (Fupdate=AValue) then exit;
+ Fupdate:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -984,36 +1420,94 @@ end;
{ --------------------------------------------------------------------
- TServiceAccount
+ TClusterUpdate
--------------------------------------------------------------------}
-Procedure TServiceAccount.Setemail(AIndex : Integer; const AValue : String);
+Procedure TClusterUpdate.SetdesiredNodeVersion(AIndex : Integer; const AValue : String);
begin
- If (Femail=AValue) then exit;
- Femail:=AValue;
+ If (FdesiredNodeVersion=AValue) then exit;
+ FdesiredNodeVersion:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TServiceAccount.Setscopes(AIndex : Integer; AValue : TStringArray);
+Procedure TClusterUpdate.SetdesiredMonitoringService(AIndex : Integer; const AValue : String);
begin
- If (Fscopes=AValue) then exit;
- Fscopes:=AValue;
+ If (FdesiredMonitoringService=AValue) then exit;
+ FdesiredMonitoringService:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterUpdate.SetdesiredAddonsConfig(AIndex : Integer; const AValue : TAddonsConfig);
+
+begin
+ If (FdesiredAddonsConfig=AValue) then exit;
+ FdesiredAddonsConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterUpdate.SetdesiredNodePoolId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdesiredNodePoolId=AValue) then exit;
+ FdesiredNodePoolId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterUpdate.SetdesiredMasterVersion(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdesiredMasterVersion=AValue) then exit;
+ FdesiredMasterVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListOperationsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListOperationsResponse.Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray);
+
+begin
+ If (Foperations=AValue) then exit;
+ Foperations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListOperationsResponse.SetmissingZones(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FmissingZones=AValue) then exit;
+ FmissingZones:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TServiceAccount.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'scopes' : SetLength(Fscopes,ALength);
+ 'operations' : SetLength(Foperations,ALength);
+ 'missingzones' : SetLength(FmissingZones,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1024,69 +1518,188 @@ end;
{ --------------------------------------------------------------------
- TProjectsClustersResource
+ TServerConfig
--------------------------------------------------------------------}
-Class Function TProjectsClustersResource.ResourceName : String;
+Procedure TServerConfig.SetdefaultClusterVersion(AIndex : Integer; const AValue : String);
begin
- Result:='clusters';
+ If (FdefaultClusterVersion=AValue) then exit;
+ FdefaultClusterVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServerConfig.SetvalidNodeVersions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FvalidNodeVersions=AValue) then exit;
+ FvalidNodeVersions:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Class Function TProjectsClustersResource.DefaultAPI : TGoogleAPIClass;
+
+
+Procedure TServerConfig.SetdefaultImageFamily(AIndex : Integer; const AValue : String);
begin
- Result:=TcontainerAPI;
+ If (FdefaultImageFamily=AValue) then exit;
+ FdefaultImageFamily:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsClustersResource.List(projectId: string) : TListAggregatedClustersResponse;
-Const
- _HTTPMethod = 'GET';
- _Path = '{projectId}/clusters';
- _Methodid = 'container.projects.clusters.list';
-Var
- _P : String;
+Procedure TServerConfig.SetvalidImageFamilies(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FvalidImageFamilies=AValue) then exit;
+ FvalidImageFamilies:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TServerConfig.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'validnodeversions' : SetLength(FvalidNodeVersions,ALength);
+ 'validimagefamilies' : SetLength(FvalidImageFamilies,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListNodePoolsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListNodePoolsResponse.SetnodePools(AIndex : Integer; const AValue : TListNodePoolsResponseTypenodePoolsArray);
+
+begin
+ If (FnodePools=AValue) then exit;
+ FnodePools:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListNodePoolsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
- _P:=SubstitutePath(_Path,['projectId',projectId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListAggregatedClustersResponse) as TListAggregatedClustersResponse;
+ Case AName of
+ 'nodepools' : SetLength(FnodePools,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
+
{ --------------------------------------------------------------------
- TProjectsOperationsResource
+ TCreateNodePoolRequest
--------------------------------------------------------------------}
-Class Function TProjectsOperationsResource.ResourceName : String;
+Procedure TCreateNodePoolRequest.SetnodePool(AIndex : Integer; const AValue : TNodePool);
begin
- Result:='operations';
+ If (FnodePool=AValue) then exit;
+ FnodePool:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Class Function TProjectsOperationsResource.DefaultAPI : TGoogleAPIClass;
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsZonesClustersNodePoolsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsZonesClustersNodePoolsResource.ResourceName : String;
+
+begin
+ Result:='nodePools';
+end;
+
+Class Function TProjectsZonesClustersNodePoolsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcontainerAPI;
end;
-Function TProjectsOperationsResource.List(projectId: string) : TListAggregatedOperationsResponse;
+Function TProjectsZonesClustersNodePoolsResource.List(projectId: string; zone: string; clusterId: string) : TListNodePoolsResponse;
Const
_HTTPMethod = 'GET';
- _Path = '{projectId}/operations';
- _Methodid = 'container.projects.operations.list';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}/nodePools';
+ _Methodid = 'container.projects.zones.clusters.nodePools.list';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['projectId',projectId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListAggregatedOperationsResponse) as TListAggregatedOperationsResponse;
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListNodePoolsResponse) as TListNodePoolsResponse;
+end;
+
+Function TProjectsZonesClustersNodePoolsResource.Get(projectId: string; zone: string; clusterId: string; nodePoolId: string) : TNodePool;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}/nodePools/{nodePoolId}';
+ _Methodid = 'container.projects.zones.clusters.nodePools.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId,'nodePoolId',nodePoolId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TNodePool) as TNodePool;
+end;
+
+Function TProjectsZonesClustersNodePoolsResource.Create(projectId: string; zone: string; clusterId: string; aCreateNodePoolRequest : TCreateNodePoolRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}/nodePools';
+ _Methodid = 'container.projects.zones.clusters.nodePools.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCreateNodePoolRequest,TOperation) as TOperation;
+end;
+
+Function TProjectsZonesClustersNodePoolsResource.Delete(projectId: string; zone: string; clusterId: string; nodePoolId: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}/nodePools/{nodePoolId}';
+ _Methodid = 'container.projects.zones.clusters.nodePools.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId,'nodePoolId',nodePoolId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
@@ -1108,64 +1721,103 @@ begin
Result:=TcontainerAPI;
end;
-Function TProjectsZonesClustersResource.Create(projectId: string; zoneId: string; aCreateClusterRequest : TCreateClusterRequest) : TOperation;
+Function TProjectsZonesClustersResource.List(projectId: string; zone: string) : TListClustersResponse;
Const
- _HTTPMethod = 'POST';
- _Path = '{projectId}/zones/{zoneId}/clusters';
- _Methodid = 'container.projects.zones.clusters.create';
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/clusters';
+ _Methodid = 'container.projects.zones.clusters.list';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zoneId',zoneId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCreateClusterRequest,TOperation) as TOperation;
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListClustersResponse) as TListClustersResponse;
end;
-Function TProjectsZonesClustersResource.Delete(clusterId: string; projectId: string; zoneId: string) : TOperation;
+Function TProjectsZonesClustersResource.Get(projectId: string; zone: string; clusterId: string) : TCluster;
Const
- _HTTPMethod = 'DELETE';
- _Path = '{projectId}/zones/{zoneId}/clusters/{clusterId}';
- _Methodid = 'container.projects.zones.clusters.delete';
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}';
+ _Methodid = 'container.projects.zones.clusters.get';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['clusterId',clusterId,'projectId',projectId,'zoneId',zoneId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCluster) as TCluster;
end;
-Function TProjectsZonesClustersResource.Get(clusterId: string; projectId: string; zoneId: string) : TCluster;
+Function TProjectsZonesClustersResource.Create(projectId: string; zone: string; aCreateClusterRequest : TCreateClusterRequest) : TOperation;
Const
- _HTTPMethod = 'GET';
- _Path = '{projectId}/zones/{zoneId}/clusters/{clusterId}';
- _Methodid = 'container.projects.zones.clusters.get';
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/clusters';
+ _Methodid = 'container.projects.zones.clusters.create';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['clusterId',clusterId,'projectId',projectId,'zoneId',zoneId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCluster) as TCluster;
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCreateClusterRequest,TOperation) as TOperation;
end;
-Function TProjectsZonesClustersResource.List(projectId: string; zoneId: string) : TListClustersResponse;
+Function TProjectsZonesClustersResource.Update(projectId: string; zone: string; clusterId: string; aUpdateClusterRequest : TUpdateClusterRequest) : TOperation;
Const
- _HTTPMethod = 'GET';
- _Path = '{projectId}/zones/{zoneId}/clusters';
- _Methodid = 'container.projects.zones.clusters.list';
+ _HTTPMethod = 'PUT';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}';
+ _Methodid = 'container.projects.zones.clusters.update';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zoneId',zoneId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListClustersResponse) as TListClustersResponse;
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aUpdateClusterRequest,TOperation) as TOperation;
+end;
+
+Function TProjectsZonesClustersResource.Delete(projectId: string; zone: string; clusterId: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}';
+ _Methodid = 'container.projects.zones.clusters.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+
+
+Function TProjectsZonesClustersResource.GetNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
+
+begin
+ if (FNodePoolsInstance=Nil) then
+ FNodePoolsInstance:=CreateNodePoolsResource;
+ Result:=FNodePoolsInstance;
+end;
+
+Function TProjectsZonesClustersResource.CreateNodePoolsResource : TProjectsZonesClustersNodePoolsResource;
+
+begin
+ Result:=CreateNodePoolsResource(Self);
+end;
+
+
+Function TProjectsZonesClustersResource.CreateNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;
+
+begin
+ Result:=TProjectsZonesClustersNodePoolsResource.Create(AOwner);
+ Result.API:=Self.API;
end;
@@ -1187,34 +1839,34 @@ begin
Result:=TcontainerAPI;
end;
-Function TProjectsZonesOperationsResource.Get(operationId: string; projectId: string; zoneId: string) : TOperation;
+Function TProjectsZonesOperationsResource.List(projectId: string; zone: string) : TListOperationsResponse;
Const
_HTTPMethod = 'GET';
- _Path = '{projectId}/zones/{zoneId}/operations/{operationId}';
- _Methodid = 'container.projects.zones.operations.get';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/operations';
+ _Methodid = 'container.projects.zones.operations.list';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['operationId',operationId,'projectId',projectId,'zoneId',zoneId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListOperationsResponse) as TListOperationsResponse;
end;
-Function TProjectsZonesOperationsResource.List(projectId: string; zoneId: string) : TListOperationsResponse;
+Function TProjectsZonesOperationsResource.Get(projectId: string; zone: string; operationId: string) : TOperation;
Const
_HTTPMethod = 'GET';
- _Path = '{projectId}/zones/{zoneId}/operations';
- _Methodid = 'container.projects.zones.operations.list';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/operations/{operationId}';
+ _Methodid = 'container.projects.zones.operations.get';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zoneId',zoneId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListOperationsResponse) as TListOperationsResponse;
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'operationId',operationId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
@@ -1236,6 +1888,45 @@ begin
Result:=TcontainerAPI;
end;
+Function TProjectsZonesResource.GetServerconfig(projectId: string; zone: string) : TServerConfig;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/zones/{zone}/serverconfig';
+ _Methodid = 'container.projects.zones.getServerconfig';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TServerConfig) as TServerConfig;
+end;
+
+
+
+Function TProjectsZonesResource.GetClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
+
+begin
+ if (FClustersNodePoolsInstance=Nil) then
+ FClustersNodePoolsInstance:=CreateClustersNodePoolsResource;
+ Result:=FClustersNodePoolsInstance;
+end;
+
+Function TProjectsZonesResource.CreateClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;
+
+begin
+ Result:=CreateClustersNodePoolsResource(Self);
+end;
+
+
+Function TProjectsZonesResource.CreateClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;
+
+begin
+ Result:=TProjectsZonesClustersNodePoolsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
Function TProjectsZonesResource.GetClustersInstance : TProjectsZonesClustersResource;
@@ -1305,49 +1996,25 @@ end;
-Function TProjectsResource.GetClustersInstance : TProjectsClustersResource;
+Function TProjectsResource.GetZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
begin
- if (FClustersInstance=Nil) then
- FClustersInstance:=CreateClustersResource;
- Result:=FClustersInstance;
-end;
-
-Function TProjectsResource.CreateClustersResource : TProjectsClustersResource;
-
-begin
- Result:=CreateClustersResource(Self);
-end;
-
-
-Function TProjectsResource.CreateClustersResource(AOwner : TComponent) : TProjectsClustersResource;
-
-begin
- Result:=TProjectsClustersResource.Create(AOwner);
- Result.API:=Self.API;
-end;
-
-
-
-Function TProjectsResource.GetOperationsInstance : TProjectsOperationsResource;
-
-begin
- if (FOperationsInstance=Nil) then
- FOperationsInstance:=CreateOperationsResource;
- Result:=FOperationsInstance;
+ if (FZonesClustersNodePoolsInstance=Nil) then
+ FZonesClustersNodePoolsInstance:=CreateZonesClustersNodePoolsResource;
+ Result:=FZonesClustersNodePoolsInstance;
end;
-Function TProjectsResource.CreateOperationsResource : TProjectsOperationsResource;
+Function TProjectsResource.CreateZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;
begin
- Result:=CreateOperationsResource(Self);
+ Result:=CreateZonesClustersNodePoolsResource(Self);
end;
-Function TProjectsResource.CreateOperationsResource(AOwner : TComponent) : TProjectsOperationsResource;
+Function TProjectsResource.CreateZonesClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;
begin
- Result:=TProjectsOperationsResource.Create(AOwner);
+ Result:=TProjectsZonesClustersNodePoolsResource.Create(AOwner);
Result.API:=Self.API;
end;
@@ -1438,19 +2105,19 @@ end;
Class Function TContainerAPI.APIVersion : String;
begin
- Result:='v1beta1';
+ Result:='v1';
end;
Class Function TContainerAPI.APIRevision : String;
begin
- Result:='20150504';
+ Result:='20160421';
end;
Class Function TContainerAPI.APIID : String;
begin
- Result:='container:v1beta1';
+ Result:='container:v1';
end;
Class Function TContainerAPI.APITitle : String;
@@ -1462,7 +2129,7 @@ end;
Class Function TContainerAPI.APIDescription : String;
begin
- Result:='The Google Container Engine API is used for building and managing container based applications, powered by the open source Kubernetes technology.';
+ Result:='Builds and manages clusters that run container-based applications, powered by open source Kubernetes technology.';
end;
Class Function TContainerAPI.APIOwnerDomain : String;
@@ -1492,25 +2159,25 @@ end;
Class Function TContainerAPI.APIdocumentationLink : String;
begin
- Result:='https://cloud.google.com/container-engine/docs/v1beta1/';
+ Result:='https://cloud.google.com/container-engine/';
end;
Class Function TContainerAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://container.googleapis.com/';
end;
Class Function TContainerAPI.APIbasePath : string;
begin
- Result:='/container/v1beta1/projects/';
+ Result:='';
end;
Class Function TContainerAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/container/v1beta1/projects/';
+ Result:='https://container.googleapis.com/';
end;
Class Function TContainerAPI.APIProtocol : string;
@@ -1522,7 +2189,7 @@ end;
Class Function TContainerAPI.APIservicePath : string;
begin
- Result:='container/v1beta1/projects/';
+ Result:='';
end;
Class Function TContainerAPI.APIbatchPath : String;
@@ -1549,62 +2216,45 @@ end;
Class Procedure TContainerAPI.RegisterAPIResources;
begin
- TCluster.RegisterObject;
- TCreateClusterRequest.RegisterObject;
- TListAggregatedClustersResponse.RegisterObject;
- TListAggregatedOperationsResponse.RegisterObject;
TListClustersResponse.RegisterObject;
- TListOperationsResponse.RegisterObject;
- TMasterAuth.RegisterObject;
+ TCluster.RegisterObject;
+ TNodeConfigTypemetadata.RegisterObject;
TNodeConfig.RegisterObject;
+ TMasterAuth.RegisterObject;
+ TAddonsConfig.RegisterObject;
+ THttpLoadBalancing.RegisterObject;
+ THorizontalPodAutoscaling.RegisterObject;
+ TNodePool.RegisterObject;
+ TCreateClusterRequest.RegisterObject;
TOperation.RegisterObject;
- TServiceAccount.RegisterObject;
-end;
-
-
-Function TContainerAPI.GetProjectsClustersInstance : TProjectsClustersResource;
-
-begin
- if (FProjectsClustersInstance=Nil) then
- FProjectsClustersInstance:=CreateProjectsClustersResource;
- Result:=FProjectsClustersInstance;
-end;
-
-Function TContainerAPI.CreateProjectsClustersResource : TProjectsClustersResource;
-
-begin
- Result:=CreateProjectsClustersResource(Self);
-end;
-
-
-Function TContainerAPI.CreateProjectsClustersResource(AOwner : TComponent) : TProjectsClustersResource;
-
-begin
- Result:=TProjectsClustersResource.Create(AOwner);
- Result.API:=Self.API;
+ TUpdateClusterRequest.RegisterObject;
+ TClusterUpdate.RegisterObject;
+ TListOperationsResponse.RegisterObject;
+ TServerConfig.RegisterObject;
+ TListNodePoolsResponse.RegisterObject;
+ TCreateNodePoolRequest.RegisterObject;
end;
-
-Function TContainerAPI.GetProjectsOperationsInstance : TProjectsOperationsResource;
+Function TContainerAPI.GetProjectsZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
begin
- if (FProjectsOperationsInstance=Nil) then
- FProjectsOperationsInstance:=CreateProjectsOperationsResource;
- Result:=FProjectsOperationsInstance;
+ if (FProjectsZonesClustersNodePoolsInstance=Nil) then
+ FProjectsZonesClustersNodePoolsInstance:=CreateProjectsZonesClustersNodePoolsResource;
+ Result:=FProjectsZonesClustersNodePoolsInstance;
end;
-Function TContainerAPI.CreateProjectsOperationsResource : TProjectsOperationsResource;
+Function TContainerAPI.CreateProjectsZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;
begin
- Result:=CreateProjectsOperationsResource(Self);
+ Result:=CreateProjectsZonesClustersNodePoolsResource(Self);
end;
-Function TContainerAPI.CreateProjectsOperationsResource(AOwner : TComponent) : TProjectsOperationsResource;
+Function TContainerAPI.CreateProjectsZonesClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;
begin
- Result:=TProjectsOperationsResource.Create(AOwner);
+ Result:=TProjectsZonesClustersNodePoolsResource.Create(AOwner);
Result.API:=Self.API;
end;
diff --git a/packages/googleapi/src/googlecontent.pp b/packages/googleapi/src/googlecontent.pp
index 4a8241d5a7..c1a70715d0 100644
--- a/packages/googleapi/src/googlecontent.pp
+++ b/packages/googleapi/src/googlecontent.pp
@@ -1,19 +1,4 @@
unit googlecontent;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:01
{$MODE objfpc}
{$H+}
@@ -82,6 +67,7 @@ type
TDatafeedstatusesListResponse = Class;
TError = Class;
TErrors = Class;
+ TInstallment = Class;
TInventory = Class;
TInventoryCustomBatchRequest = Class;
TInventoryCustomBatchRequestEntry = Class;
@@ -90,13 +76,62 @@ type
TInventorySetRequest = Class;
TInventorySetResponse = Class;
TLoyaltyPoints = Class;
+ TOrder = Class;
+ TOrderAddress = Class;
+ TOrderCancellation = Class;
+ TOrderCustomer = Class;
+ TOrderDeliveryDetails = Class;
+ TOrderLineItem = Class;
+ TOrderLineItemProduct = Class;
+ TOrderLineItemProductVariantAttribute = Class;
+ TOrderLineItemReturnInfo = Class;
+ TOrderLineItemShippingDetails = Class;
+ TOrderLineItemShippingDetailsMethod = Class;
+ TOrderPaymentMethod = Class;
+ TOrderPromotion = Class;
+ TOrderPromotionBenefit = Class;
+ TOrderRefund = Class;
+ TOrderReturn = Class;
+ TOrderShipment = Class;
+ TOrderShipmentLineItemShipment = Class;
+ TOrdersAcknowledgeRequest = Class;
+ TOrdersAcknowledgeResponse = Class;
+ TOrdersAdvanceTestOrderResponse = Class;
+ TOrdersCancelLineItemRequest = Class;
+ TOrdersCancelLineItemResponse = Class;
+ TOrdersCancelRequest = Class;
+ TOrdersCancelResponse = Class;
+ TOrdersCreateTestOrderRequest = Class;
+ TOrdersCreateTestOrderResponse = Class;
+ TOrdersCustomBatchRequest = Class;
+ TOrdersCustomBatchRequestEntry = Class;
+ TOrdersCustomBatchRequestEntryCancel = Class;
+ TOrdersCustomBatchRequestEntryCancelLineItem = Class;
+ TOrdersCustomBatchRequestEntryRefund = Class;
+ TOrdersCustomBatchRequestEntryReturnLineItem = Class;
+ TOrdersCustomBatchRequestEntryShipLineItems = Class;
+ TOrdersCustomBatchRequestEntryUpdateShipment = Class;
+ TOrdersCustomBatchResponse = Class;
+ TOrdersCustomBatchResponseEntry = Class;
+ TOrdersGetByMerchantOrderIdResponse = Class;
+ TOrdersGetTestOrderTemplateResponse = Class;
+ TOrdersListResponse = Class;
+ TOrdersRefundRequest = Class;
+ TOrdersRefundResponse = Class;
+ TOrdersReturnLineItemRequest = Class;
+ TOrdersReturnLineItemResponse = Class;
+ TOrdersShipLineItemsRequest = Class;
+ TOrdersShipLineItemsResponse = Class;
+ TOrdersUpdateMerchantOrderIdRequest = Class;
+ TOrdersUpdateMerchantOrderIdResponse = Class;
+ TOrdersUpdateShipmentRequest = Class;
+ TOrdersUpdateShipmentResponse = Class;
TPrice = Class;
TProduct = Class;
TProductAspect = Class;
TProductCustomAttribute = Class;
TProductCustomGroup = Class;
TProductDestination = Class;
- TProductInstallment = Class;
TProductShipping = Class;
TProductShippingDimension = Class;
TProductShippingWeight = Class;
@@ -116,6 +151,11 @@ type
TProductstatusesCustomBatchResponse = Class;
TProductstatusesCustomBatchResponseEntry = Class;
TProductstatusesListResponse = Class;
+ TTestOrder = Class;
+ TTestOrderCustomer = Class;
+ TTestOrderLineItem = Class;
+ TTestOrderLineItemProduct = Class;
+ TTestOrderPaymentMethod = Class;
TWeight = Class;
TAccountArray = Array of TAccount;
TAccountAdwordsLinkArray = Array of TAccountAdwordsLink;
@@ -175,6 +215,7 @@ type
TDatafeedstatusesListResponseArray = Array of TDatafeedstatusesListResponse;
TErrorArray = Array of TError;
TErrorsArray = Array of TErrors;
+ TInstallmentArray = Array of TInstallment;
TInventoryArray = Array of TInventory;
TInventoryCustomBatchRequestArray = Array of TInventoryCustomBatchRequest;
TInventoryCustomBatchRequestEntryArray = Array of TInventoryCustomBatchRequestEntry;
@@ -183,13 +224,62 @@ type
TInventorySetRequestArray = Array of TInventorySetRequest;
TInventorySetResponseArray = Array of TInventorySetResponse;
TLoyaltyPointsArray = Array of TLoyaltyPoints;
+ TOrderArray = Array of TOrder;
+ TOrderAddressArray = Array of TOrderAddress;
+ TOrderCancellationArray = Array of TOrderCancellation;
+ TOrderCustomerArray = Array of TOrderCustomer;
+ TOrderDeliveryDetailsArray = Array of TOrderDeliveryDetails;
+ TOrderLineItemArray = Array of TOrderLineItem;
+ TOrderLineItemProductArray = Array of TOrderLineItemProduct;
+ TOrderLineItemProductVariantAttributeArray = Array of TOrderLineItemProductVariantAttribute;
+ TOrderLineItemReturnInfoArray = Array of TOrderLineItemReturnInfo;
+ TOrderLineItemShippingDetailsArray = Array of TOrderLineItemShippingDetails;
+ TOrderLineItemShippingDetailsMethodArray = Array of TOrderLineItemShippingDetailsMethod;
+ TOrderPaymentMethodArray = Array of TOrderPaymentMethod;
+ TOrderPromotionArray = Array of TOrderPromotion;
+ TOrderPromotionBenefitArray = Array of TOrderPromotionBenefit;
+ TOrderRefundArray = Array of TOrderRefund;
+ TOrderReturnArray = Array of TOrderReturn;
+ TOrderShipmentArray = Array of TOrderShipment;
+ TOrderShipmentLineItemShipmentArray = Array of TOrderShipmentLineItemShipment;
+ TOrdersAcknowledgeRequestArray = Array of TOrdersAcknowledgeRequest;
+ TOrdersAcknowledgeResponseArray = Array of TOrdersAcknowledgeResponse;
+ TOrdersAdvanceTestOrderResponseArray = Array of TOrdersAdvanceTestOrderResponse;
+ TOrdersCancelLineItemRequestArray = Array of TOrdersCancelLineItemRequest;
+ TOrdersCancelLineItemResponseArray = Array of TOrdersCancelLineItemResponse;
+ TOrdersCancelRequestArray = Array of TOrdersCancelRequest;
+ TOrdersCancelResponseArray = Array of TOrdersCancelResponse;
+ TOrdersCreateTestOrderRequestArray = Array of TOrdersCreateTestOrderRequest;
+ TOrdersCreateTestOrderResponseArray = Array of TOrdersCreateTestOrderResponse;
+ TOrdersCustomBatchRequestArray = Array of TOrdersCustomBatchRequest;
+ TOrdersCustomBatchRequestEntryArray = Array of TOrdersCustomBatchRequestEntry;
+ TOrdersCustomBatchRequestEntryCancelArray = Array of TOrdersCustomBatchRequestEntryCancel;
+ TOrdersCustomBatchRequestEntryCancelLineItemArray = Array of TOrdersCustomBatchRequestEntryCancelLineItem;
+ TOrdersCustomBatchRequestEntryRefundArray = Array of TOrdersCustomBatchRequestEntryRefund;
+ TOrdersCustomBatchRequestEntryReturnLineItemArray = Array of TOrdersCustomBatchRequestEntryReturnLineItem;
+ TOrdersCustomBatchRequestEntryShipLineItemsArray = Array of TOrdersCustomBatchRequestEntryShipLineItems;
+ TOrdersCustomBatchRequestEntryUpdateShipmentArray = Array of TOrdersCustomBatchRequestEntryUpdateShipment;
+ TOrdersCustomBatchResponseArray = Array of TOrdersCustomBatchResponse;
+ TOrdersCustomBatchResponseEntryArray = Array of TOrdersCustomBatchResponseEntry;
+ TOrdersGetByMerchantOrderIdResponseArray = Array of TOrdersGetByMerchantOrderIdResponse;
+ TOrdersGetTestOrderTemplateResponseArray = Array of TOrdersGetTestOrderTemplateResponse;
+ TOrdersListResponseArray = Array of TOrdersListResponse;
+ TOrdersRefundRequestArray = Array of TOrdersRefundRequest;
+ TOrdersRefundResponseArray = Array of TOrdersRefundResponse;
+ TOrdersReturnLineItemRequestArray = Array of TOrdersReturnLineItemRequest;
+ TOrdersReturnLineItemResponseArray = Array of TOrdersReturnLineItemResponse;
+ TOrdersShipLineItemsRequestArray = Array of TOrdersShipLineItemsRequest;
+ TOrdersShipLineItemsResponseArray = Array of TOrdersShipLineItemsResponse;
+ TOrdersUpdateMerchantOrderIdRequestArray = Array of TOrdersUpdateMerchantOrderIdRequest;
+ TOrdersUpdateMerchantOrderIdResponseArray = Array of TOrdersUpdateMerchantOrderIdResponse;
+ TOrdersUpdateShipmentRequestArray = Array of TOrdersUpdateShipmentRequest;
+ TOrdersUpdateShipmentResponseArray = Array of TOrdersUpdateShipmentResponse;
TPriceArray = Array of TPrice;
TProductArray = Array of TProduct;
TProductAspectArray = Array of TProductAspect;
TProductCustomAttributeArray = Array of TProductCustomAttribute;
TProductCustomGroupArray = Array of TProductCustomGroup;
TProductDestinationArray = Array of TProductDestination;
- TProductInstallmentArray = Array of TProductInstallment;
TProductShippingArray = Array of TProductShipping;
TProductShippingDimensionArray = Array of TProductShippingDimension;
TProductShippingWeightArray = Array of TProductShippingWeight;
@@ -209,6 +299,11 @@ type
TProductstatusesCustomBatchResponseArray = Array of TProductstatusesCustomBatchResponse;
TProductstatusesCustomBatchResponseEntryArray = Array of TProductstatusesCustomBatchResponseEntry;
TProductstatusesListResponseArray = Array of TProductstatusesListResponse;
+ TTestOrderArray = Array of TTestOrder;
+ TTestOrderCustomerArray = Array of TTestOrderCustomer;
+ TTestOrderLineItemArray = Array of TTestOrderLineItem;
+ TTestOrderLineItemProductArray = Array of TTestOrderLineItemProduct;
+ TTestOrderPaymentMethodArray = Array of TTestOrderPaymentMethod;
TWeightArray = Array of TWeight;
//Anonymous types, using auto-generated names
TAccountTypeadwordsLinksArray = Array of TAccountAdwordsLink;
@@ -248,6 +343,20 @@ type
TErrorsTypeerrorsArray = Array of TError;
TInventoryCustomBatchRequestTypeentriesArray = Array of TInventoryCustomBatchRequestEntry;
TInventoryCustomBatchResponseTypeentriesArray = Array of TInventoryCustomBatchResponseEntry;
+ TOrderTypelineItemsArray = Array of TOrderLineItem;
+ TOrderTypepromotionsArray = Array of TOrderPromotion;
+ TOrderTyperefundsArray = Array of TOrderRefund;
+ TOrderTypeshipmentsArray = Array of TOrderShipment;
+ TOrderLineItemTypecancellationsArray = Array of TOrderCancellation;
+ TOrderLineItemTypereturnsArray = Array of TOrderReturn;
+ TOrderLineItemProductTypevariantAttributesArray = Array of TOrderLineItemProductVariantAttribute;
+ TOrderPromotionTypebenefitsArray = Array of TOrderPromotionBenefit;
+ TOrderShipmentTypelineItemsArray = Array of TOrderShipmentLineItemShipment;
+ TOrdersCustomBatchRequestTypeentriesArray = Array of TOrdersCustomBatchRequestEntry;
+ TOrdersCustomBatchRequestEntryShipLineItemsTypelineItemsArray = Array of TOrderShipmentLineItemShipment;
+ TOrdersCustomBatchResponseTypeentriesArray = Array of TOrdersCustomBatchResponseEntry;
+ TOrdersListResponseTyperesourcesArray = Array of TOrder;
+ TOrdersShipLineItemsRequestTypelineItemsArray = Array of TOrderShipmentLineItemShipment;
TProductTypeaspectsArray = Array of TProductAspect;
TProductTypecustomAttributesArray = Array of TProductCustomAttribute;
TProductTypecustomGroupsArray = Array of TProductCustomGroup;
@@ -264,6 +373,9 @@ type
TProductstatusesCustomBatchRequestTypeentriesArray = Array of TProductstatusesCustomBatchRequestEntry;
TProductstatusesCustomBatchResponseTypeentriesArray = Array of TProductstatusesCustomBatchResponseEntry;
TProductstatusesListResponseTyperesourcesArray = Array of TProductStatus;
+ TTestOrderTypelineItemsArray = Array of TTestOrderLineItem;
+ TTestOrderTypepromotionsArray = Array of TOrderPromotion;
+ TTestOrderLineItemProductTypevariantAttributesArray = Array of TOrderLineItemProductVariantAttribute;
{ --------------------------------------------------------------------
TAccount
@@ -282,14 +394,14 @@ type
FwebsiteUrl : String;
Protected
//Property setters
- Procedure SetadultContent(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetadwordsLinks(AIndex : Integer; AValue : TAccountTypeadwordsLinksArray); virtual;
+ Procedure SetadultContent(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetadwordsLinks(AIndex : Integer; const AValue : TAccountTypeadwordsLinksArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetreviewsUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetsellerId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setusers(AIndex : Integer; AValue : TAccountTypeusersArray); virtual;
+ Procedure Setusers(AIndex : Integer; const AValue : TAccountTypeusersArray); virtual;
Procedure SetwebsiteUrl(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -362,11 +474,11 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcarrierRates(AIndex : Integer; AValue : TAccountShippingTypecarrierRatesArray); virtual;
+ Procedure SetcarrierRates(AIndex : Integer; const AValue : TAccountShippingTypecarrierRatesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlocationGroups(AIndex : Integer; AValue : TAccountShippingTypelocationGroupsArray); virtual;
- Procedure SetrateTables(AIndex : Integer; AValue : TAccountShippingTyperateTablesArray); virtual;
- Procedure Setservices(AIndex : Integer; AValue : TAccountShippingTypeservicesArray); virtual;
+ Procedure SetlocationGroups(AIndex : Integer; const AValue : TAccountShippingTypelocationGroupsArray); virtual;
+ Procedure SetrateTables(AIndex : Integer; const AValue : TAccountShippingTyperateTablesArray); virtual;
+ Procedure Setservices(AIndex : Integer; const AValue : TAccountShippingTypeservicesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -399,7 +511,7 @@ type
//Property setters
Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual;
Procedure SetcarrierService(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmodifierFlatRate(AIndex : Integer; AValue : TPrice); virtual;
+ Procedure SetmodifierFlatRate(AIndex : Integer; const AValue : TPrice); virtual;
Procedure SetmodifierPercent(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetsaleCountry(AIndex : Integer; const AValue : String); virtual;
@@ -434,10 +546,10 @@ type
Procedure SetdeliveryLocationGroup(AIndex : Integer; const AValue : String); virtual;
Procedure SetdeliveryLocationId(AIndex : Integer; const AValue : String); virtual;
Procedure SetdeliveryPostalCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdeliveryPostalCodeRange(AIndex : Integer; AValue : TAccountShippingPostalCodeRange); virtual;
- Procedure SetpriceMax(AIndex : Integer; AValue : TPrice); virtual;
+ Procedure SetdeliveryPostalCodeRange(AIndex : Integer; const AValue : TAccountShippingPostalCodeRange); virtual;
+ Procedure SetpriceMax(AIndex : Integer; const AValue : TPrice); virtual;
Procedure SetshippingLabel(AIndex : Integer; const AValue : String); virtual;
- Procedure SetweightMax(AIndex : Integer; AValue : TWeight); virtual;
+ Procedure SetweightMax(AIndex : Integer; const AValue : TWeight); virtual;
Public
Published
Property deliveryLocationGroup : String Index 0 Read FdeliveryLocationGroup Write SetdeliveryLocationGroup;
@@ -464,10 +576,10 @@ type
Protected
//Property setters
Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlocationIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetlocationIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpostalCodeRanges(AIndex : Integer; AValue : TAccountShippingLocationGroupTypepostalCodeRangesArray); virtual;
- Procedure SetpostalCodes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetpostalCodeRanges(AIndex : Integer; const AValue : TAccountShippingLocationGroupTypepostalCodeRangesArray); virtual;
+ Procedure SetpostalCodes(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -513,7 +625,7 @@ type
FsaleCountry : String;
Protected
//Property setters
- Procedure Setcontent(AIndex : Integer; AValue : TAccountShippingRateTableTypecontentArray); virtual;
+ Procedure Setcontent(AIndex : Integer; const AValue : TAccountShippingRateTableTypecontentArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetsaleCountry(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -538,8 +650,8 @@ type
Frate : TPrice;
Protected
//Property setters
- Procedure Setcondition(AIndex : Integer; AValue : TAccountShippingCondition); virtual;
- Procedure Setrate(AIndex : Integer; AValue : TPrice); virtual;
+ Procedure Setcondition(AIndex : Integer; const AValue : TAccountShippingCondition); virtual;
+ Procedure Setrate(AIndex : Integer; const AValue : TPrice); virtual;
Public
Published
Property condition : TAccountShippingCondition Index 0 Read Fcondition Write Setcondition;
@@ -560,9 +672,9 @@ type
FsaleCountry : String;
Protected
//Property setters
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcalculationMethod(AIndex : Integer; AValue : TAccountShippingShippingServiceCalculationMethod); virtual;
- Procedure SetcostRuleTree(AIndex : Integer; AValue : TAccountShippingShippingServiceCostRule); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcalculationMethod(AIndex : Integer; const AValue : TAccountShippingShippingServiceCalculationMethod); virtual;
+ Procedure SetcostRuleTree(AIndex : Integer; const AValue : TAccountShippingShippingServiceCostRule); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetsaleCountry(AIndex : Integer; const AValue : String); virtual;
Public
@@ -589,8 +701,8 @@ type
Protected
//Property setters
Procedure SetcarrierRate(AIndex : Integer; const AValue : String); virtual;
- Procedure Setexcluded(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetflatRate(AIndex : Integer; AValue : TPrice); virtual;
+ Procedure Setexcluded(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetflatRate(AIndex : Integer; const AValue : TPrice); virtual;
Procedure SetpercentageRate(AIndex : Integer; const AValue : String); virtual;
Procedure SetrateTable(AIndex : Integer; const AValue : String); virtual;
Public
@@ -614,9 +726,9 @@ type
Fcondition : TAccountShippingCondition;
Protected
//Property setters
- Procedure SetcalculationMethod(AIndex : Integer; AValue : TAccountShippingShippingServiceCalculationMethod); virtual;
- Procedure Setchildren(AIndex : Integer; AValue : TAccountShippingShippingServiceCostRuleTypechildrenArray); virtual;
- Procedure Setcondition(AIndex : Integer; AValue : TAccountShippingCondition); virtual;
+ Procedure SetcalculationMethod(AIndex : Integer; const AValue : TAccountShippingShippingServiceCalculationMethod); virtual;
+ Procedure Setchildren(AIndex : Integer; const AValue : TAccountShippingShippingServiceCostRuleTypechildrenArray); virtual;
+ Procedure Setcondition(AIndex : Integer; const AValue : TAccountShippingCondition); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -641,7 +753,7 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdataQualityIssues(AIndex : Integer; AValue : TAccountStatusTypedataQualityIssuesArray); virtual;
+ Procedure SetdataQualityIssues(AIndex : Integer; const AValue : TAccountStatusTypedataQualityIssuesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -673,10 +785,10 @@ type
//Property setters
Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayedValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexampleItems(AIndex : Integer; AValue : TAccountStatusDataQualityIssueTypeexampleItemsArray); virtual;
+ Procedure SetexampleItems(AIndex : Integer; const AValue : TAccountStatusDataQualityIssueTypeexampleItemsArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastChecked(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnumItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetnumItems(AIndex : Integer; const AValue : integer); virtual;
Procedure Setseverity(AIndex : Integer; const AValue : String); virtual;
Procedure SetsubmittedValue(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -737,7 +849,7 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrules(AIndex : Integer; AValue : TAccountTaxTyperulesArray); virtual;
+ Procedure Setrules(AIndex : Integer; const AValue : TAccountTaxTyperulesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -766,8 +878,8 @@ type
Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
Procedure SetlocationId(AIndex : Integer; const AValue : String); virtual;
Procedure SetratePercent(AIndex : Integer; const AValue : String); virtual;
- Procedure SetshippingTaxed(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetuseGlobalRate(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetshippingTaxed(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetuseGlobalRate(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property country : String Index 0 Read Fcountry Write Setcountry;
@@ -788,7 +900,7 @@ type
FemailAddress : String;
Protected
//Property setters
- Procedure Setadmin(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setadmin(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetemailAddress(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -807,7 +919,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetaccountIdentifiers(AIndex : Integer; AValue : TAccountsAuthInfoResponseTypeaccountIdentifiersArray); virtual;
+ Procedure SetaccountIdentifiers(AIndex : Integer; const AValue : TAccountsAuthInfoResponseTypeaccountIdentifiersArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -829,7 +941,7 @@ type
Fentries : TAccountsCustomBatchRequestTypeentriesArray;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TAccountsCustomBatchRequestTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TAccountsCustomBatchRequestTypeentriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -853,9 +965,9 @@ type
Fmethod : String;
Protected
//Property setters
- Procedure Setaccount(AIndex : Integer; AValue : TAccount); virtual;
+ Procedure Setaccount(AIndex : Integer; const AValue : TAccount); virtual;
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual;
Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
Public
@@ -878,7 +990,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TAccountsCustomBatchResponseTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TAccountsCustomBatchResponseTypeentriesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -903,9 +1015,9 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setaccount(AIndex : Integer; AValue : TAccount); virtual;
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TErrors); virtual;
+ Procedure Setaccount(AIndex : Integer; const AValue : TAccount); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -929,7 +1041,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TAccountsListResponseTyperesourcesArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TAccountsListResponseTyperesourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -951,7 +1063,7 @@ type
Fentries : TAccountshippingCustomBatchRequestTypeentriesArray;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TAccountshippingCustomBatchRequestTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TAccountshippingCustomBatchRequestTypeentriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -976,8 +1088,8 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetaccountShipping(AIndex : Integer; AValue : TAccountShipping); virtual;
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetaccountShipping(AIndex : Integer; const AValue : TAccountShipping); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual;
Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1000,7 +1112,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TAccountshippingCustomBatchResponseTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TAccountshippingCustomBatchResponseTypeentriesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1025,9 +1137,9 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetaccountShipping(AIndex : Integer; AValue : TAccountShipping); virtual;
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TErrors); virtual;
+ Procedure SetaccountShipping(AIndex : Integer; const AValue : TAccountShipping); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1051,7 +1163,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TAccountshippingListResponseTyperesourcesArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TAccountshippingListResponseTyperesourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1073,7 +1185,7 @@ type
Fentries : TAccountstatusesCustomBatchRequestTypeentriesArray;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TAccountstatusesCustomBatchRequestTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TAccountstatusesCustomBatchRequestTypeentriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1097,7 +1209,7 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual;
Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1119,7 +1231,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TAccountstatusesCustomBatchResponseTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TAccountstatusesCustomBatchResponseTypeentriesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1143,9 +1255,9 @@ type
Ferrors : TErrors;
Protected
//Property setters
- Procedure SetaccountStatus(AIndex : Integer; AValue : TAccountStatus); virtual;
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TErrors); virtual;
+ Procedure SetaccountStatus(AIndex : Integer; const AValue : TAccountStatus); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual;
Public
Published
Property accountStatus : TAccountStatus Index 0 Read FaccountStatus Write SetaccountStatus;
@@ -1167,7 +1279,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TAccountstatusesListResponseTyperesourcesArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TAccountstatusesListResponseTyperesourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1189,7 +1301,7 @@ type
Fentries : TAccounttaxCustomBatchRequestTypeentriesArray;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TAccounttaxCustomBatchRequestTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TAccounttaxCustomBatchRequestTypeentriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1214,8 +1326,8 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetaccountTax(AIndex : Integer; AValue : TAccountTax); virtual;
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetaccountTax(AIndex : Integer; const AValue : TAccountTax); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual;
Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1238,7 +1350,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TAccounttaxCustomBatchResponseTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TAccounttaxCustomBatchResponseTypeentriesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1263,9 +1375,9 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetaccountTax(AIndex : Integer; AValue : TAccountTax); virtual;
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TErrors); virtual;
+ Procedure SetaccountTax(AIndex : Integer; const AValue : TAccountTax); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1289,7 +1401,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TAccounttaxListResponseTyperesourcesArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TAccounttaxListResponseTyperesourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1324,11 +1436,11 @@ type
Procedure SetattributeLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfetchSchedule(AIndex : Integer; AValue : TDatafeedFetchSchedule); virtual;
+ Procedure SetfetchSchedule(AIndex : Integer; const AValue : TDatafeedFetchSchedule); virtual;
Procedure SetfileName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setformat(AIndex : Integer; AValue : TDatafeedFormat); virtual;
+ Procedure Setformat(AIndex : Integer; const AValue : TDatafeedFormat); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetintendedDestinations(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetintendedDestinations(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetCountry(AIndex : Integer; const AValue : String); virtual;
@@ -1361,15 +1473,17 @@ type
FdayOfMonth : integer;
FfetchUrl : String;
Fhour : integer;
+ FminuteOfHour : integer;
Fpassword : String;
FtimeZone : String;
Fusername : String;
Fweekday : String;
Protected
//Property setters
- Procedure SetdayOfMonth(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetdayOfMonth(AIndex : Integer; const AValue : integer); virtual;
Procedure SetfetchUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Sethour(AIndex : Integer; AValue : integer); virtual;
+ Procedure Sethour(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetminuteOfHour(AIndex : Integer; const AValue : integer); virtual;
Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeZone(AIndex : Integer; const AValue : String); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
@@ -1379,10 +1493,11 @@ type
Property dayOfMonth : integer Index 0 Read FdayOfMonth Write SetdayOfMonth;
Property fetchUrl : String Index 8 Read FfetchUrl Write SetfetchUrl;
Property hour : integer Index 16 Read Fhour Write Sethour;
- Property password : String Index 24 Read Fpassword Write Setpassword;
- Property timeZone : String Index 32 Read FtimeZone Write SettimeZone;
- Property username : String Index 40 Read Fusername Write Setusername;
- Property weekday : String Index 48 Read Fweekday Write Setweekday;
+ Property minuteOfHour : integer Index 24 Read FminuteOfHour Write SetminuteOfHour;
+ Property password : String Index 32 Read Fpassword Write Setpassword;
+ Property timeZone : String Index 40 Read FtimeZone Write SettimeZone;
+ Property username : String Index 48 Read Fusername Write Setusername;
+ Property weekday : String Index 56 Read Fweekday Write Setweekday;
end;
TDatafeedFetchScheduleClass = Class of TDatafeedFetchSchedule;
@@ -1425,13 +1540,13 @@ type
Protected
//Property setters
Procedure SetdatafeedId(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TDatafeedStatusTypeerrorsArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TDatafeedStatusTypeerrorsArray); virtual;
Procedure SetitemsTotal(AIndex : Integer; const AValue : String); virtual;
Procedure SetitemsValid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastUploadDate(AIndex : Integer; const AValue : String); virtual;
Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TDatafeedStatusTypewarningsArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TDatafeedStatusTypewarningsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1463,7 +1578,7 @@ type
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
- Procedure Setexamples(AIndex : Integer; AValue : TDatafeedStatusErrorTypeexamplesArray); virtual;
+ Procedure Setexamples(AIndex : Integer; const AValue : TDatafeedStatusErrorTypeexamplesArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1509,7 +1624,7 @@ type
Fentries : TDatafeedsCustomBatchRequestTypeentriesArray;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TDatafeedsCustomBatchRequestTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TDatafeedsCustomBatchRequestTypeentriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1533,8 +1648,8 @@ type
Fmethod : String;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Setdatafeed(AIndex : Integer; AValue : TDatafeed); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdatafeed(AIndex : Integer; const AValue : TDatafeed); virtual;
Procedure SetdatafeedId(AIndex : Integer; const AValue : String); virtual;
Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual;
Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
@@ -1558,7 +1673,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TDatafeedsCustomBatchResponseTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TDatafeedsCustomBatchResponseTypeentriesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1582,9 +1697,9 @@ type
Ferrors : TErrors;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Setdatafeed(AIndex : Integer; AValue : TDatafeed); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TErrors); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdatafeed(AIndex : Integer; const AValue : TDatafeed); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual;
Public
Published
Property batchId : integer Index 0 Read FbatchId Write SetbatchId;
@@ -1606,7 +1721,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TDatafeedsListResponseTyperesourcesArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TDatafeedsListResponseTyperesourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1628,7 +1743,7 @@ type
Fentries : TDatafeedstatusesCustomBatchRequestTypeentriesArray;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TDatafeedstatusesCustomBatchRequestTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TDatafeedstatusesCustomBatchRequestTypeentriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1651,7 +1766,7 @@ type
Fmethod : String;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
Procedure SetdatafeedId(AIndex : Integer; const AValue : String); virtual;
Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual;
Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
@@ -1674,7 +1789,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TDatafeedstatusesCustomBatchResponseTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TDatafeedstatusesCustomBatchResponseTypeentriesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1698,9 +1813,9 @@ type
Ferrors : TErrors;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure SetdatafeedStatus(AIndex : Integer; AValue : TDatafeedStatus); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TErrors); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetdatafeedStatus(AIndex : Integer; const AValue : TDatafeedStatus); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual;
Public
Published
Property batchId : integer Index 0 Read FbatchId Write SetbatchId;
@@ -1722,7 +1837,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TDatafeedstatusesListResponseTyperesourcesArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TDatafeedstatusesListResponseTyperesourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1768,8 +1883,8 @@ type
Fmessage : String;
Protected
//Property setters
- Procedure Setcode(AIndex : Integer; AValue : integer); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TErrorsTypeerrorsArray); virtual;
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TErrorsTypeerrorsArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1784,33 +1899,61 @@ type
TErrorsClass = Class of TErrors;
{ --------------------------------------------------------------------
+ TInstallment
+ --------------------------------------------------------------------}
+
+ TInstallment = Class(TGoogleBaseObject)
+ Private
+ Famount : TPrice;
+ Fmonths : String;
+ Protected
+ //Property setters
+ Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure Setmonths(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property amount : TPrice Index 0 Read Famount Write Setamount;
+ Property months : String Index 8 Read Fmonths Write Setmonths;
+ end;
+ TInstallmentClass = Class of TInstallment;
+
+ { --------------------------------------------------------------------
TInventory
--------------------------------------------------------------------}
TInventory = Class(TGoogleBaseObject)
Private
Favailability : String;
+ Finstallment : TInstallment;
Fkind : String;
+ FloyaltyPoints : TLoyaltyPoints;
Fprice : TPrice;
Fquantity : integer;
FsalePrice : TPrice;
FsalePriceEffectiveDate : String;
+ FsellOnGoogleQuantity : integer;
Protected
//Property setters
Procedure Setavailability(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setinstallment(AIndex : Integer; const AValue : TInstallment); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprice(AIndex : Integer; AValue : TPrice); virtual;
- Procedure Setquantity(AIndex : Integer; AValue : integer); virtual;
- Procedure SetsalePrice(AIndex : Integer; AValue : TPrice); virtual;
+ Procedure SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints); virtual;
+ Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetsalePrice(AIndex : Integer; const AValue : TPrice); virtual;
Procedure SetsalePriceEffectiveDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsellOnGoogleQuantity(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property availability : String Index 0 Read Favailability Write Setavailability;
- Property kind : String Index 8 Read Fkind Write Setkind;
- Property price : TPrice Index 16 Read Fprice Write Setprice;
- Property quantity : integer Index 24 Read Fquantity Write Setquantity;
- Property salePrice : TPrice Index 32 Read FsalePrice Write SetsalePrice;
- Property salePriceEffectiveDate : String Index 40 Read FsalePriceEffectiveDate Write SetsalePriceEffectiveDate;
+ Property installment : TInstallment Index 8 Read Finstallment Write Setinstallment;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property loyaltyPoints : TLoyaltyPoints Index 24 Read FloyaltyPoints Write SetloyaltyPoints;
+ Property price : TPrice Index 32 Read Fprice Write Setprice;
+ Property quantity : integer Index 40 Read Fquantity Write Setquantity;
+ Property salePrice : TPrice Index 48 Read FsalePrice Write SetsalePrice;
+ Property salePriceEffectiveDate : String Index 56 Read FsalePriceEffectiveDate Write SetsalePriceEffectiveDate;
+ Property sellOnGoogleQuantity : integer Index 64 Read FsellOnGoogleQuantity Write SetsellOnGoogleQuantity;
end;
TInventoryClass = Class of TInventory;
@@ -1823,7 +1966,7 @@ type
Fentries : TInventoryCustomBatchRequestTypeentriesArray;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TInventoryCustomBatchRequestTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TInventoryCustomBatchRequestTypeentriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1847,8 +1990,8 @@ type
FstoreCode : String;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Setinventory(AIndex : Integer; AValue : TInventory); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setinventory(AIndex : Integer; const AValue : TInventory); virtual;
Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual;
Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
Procedure SetstoreCode(AIndex : Integer; const AValue : String); virtual;
@@ -1872,7 +2015,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TInventoryCustomBatchResponseTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TInventoryCustomBatchResponseTypeentriesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1896,8 +2039,8 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TErrors); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1914,24 +2057,33 @@ type
TInventorySetRequest = Class(TGoogleBaseObject)
Private
Favailability : String;
+ Finstallment : TInstallment;
+ FloyaltyPoints : TLoyaltyPoints;
Fprice : TPrice;
Fquantity : integer;
FsalePrice : TPrice;
FsalePriceEffectiveDate : String;
+ FsellOnGoogleQuantity : integer;
Protected
//Property setters
Procedure Setavailability(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprice(AIndex : Integer; AValue : TPrice); virtual;
- Procedure Setquantity(AIndex : Integer; AValue : integer); virtual;
- Procedure SetsalePrice(AIndex : Integer; AValue : TPrice); virtual;
+ Procedure Setinstallment(AIndex : Integer; const AValue : TInstallment); virtual;
+ Procedure SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints); virtual;
+ Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetsalePrice(AIndex : Integer; const AValue : TPrice); virtual;
Procedure SetsalePriceEffectiveDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsellOnGoogleQuantity(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property availability : String Index 0 Read Favailability Write Setavailability;
- Property price : TPrice Index 8 Read Fprice Write Setprice;
- Property quantity : integer Index 16 Read Fquantity Write Setquantity;
- Property salePrice : TPrice Index 24 Read FsalePrice Write SetsalePrice;
- Property salePriceEffectiveDate : String Index 32 Read FsalePriceEffectiveDate Write SetsalePriceEffectiveDate;
+ Property installment : TInstallment Index 8 Read Finstallment Write Setinstallment;
+ Property loyaltyPoints : TLoyaltyPoints Index 16 Read FloyaltyPoints Write SetloyaltyPoints;
+ Property price : TPrice Index 24 Read Fprice Write Setprice;
+ Property quantity : integer Index 32 Read Fquantity Write Setquantity;
+ Property salePrice : TPrice Index 40 Read FsalePrice Write SetsalePrice;
+ Property salePriceEffectiveDate : String Index 48 Read FsalePriceEffectiveDate Write SetsalePriceEffectiveDate;
+ Property sellOnGoogleQuantity : integer Index 56 Read FsellOnGoogleQuantity Write SetsellOnGoogleQuantity;
end;
TInventorySetRequestClass = Class of TInventorySetRequest;
@@ -1964,7 +2116,7 @@ type
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetpointsValue(AIndex : Integer; const AValue : String); virtual;
- Procedure Setratio(AIndex : Integer; AValue : double); virtual;
+ Procedure Setratio(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
@@ -1974,6 +2126,1354 @@ type
TLoyaltyPointsClass = Class of TLoyaltyPoints;
{ --------------------------------------------------------------------
+ TOrder
+ --------------------------------------------------------------------}
+
+ TOrder = Class(TGoogleBaseObject)
+ Private
+ Facknowledged : boolean;
+ Fcustomer : TOrderCustomer;
+ FdeliveryDetails : TOrderDeliveryDetails;
+ Fid : String;
+ Fkind : String;
+ FlineItems : TOrderTypelineItemsArray;
+ FmerchantId : String;
+ FmerchantOrderId : String;
+ FnetAmount : TPrice;
+ FpaymentMethod : TOrderPaymentMethod;
+ FpaymentStatus : String;
+ FplacedDate : String;
+ Fpromotions : TOrderTypepromotionsArray;
+ Frefunds : TOrderTyperefundsArray;
+ Fshipments : TOrderTypeshipmentsArray;
+ FshippingCost : TPrice;
+ FshippingCostTax : TPrice;
+ FshippingOption : String;
+ Fstatus : String;
+ Protected
+ //Property setters
+ Procedure Setacknowledged(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setcustomer(AIndex : Integer; const AValue : TOrderCustomer); virtual;
+ Procedure SetdeliveryDetails(AIndex : Integer; const AValue : TOrderDeliveryDetails); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlineItems(AIndex : Integer; const AValue : TOrderTypelineItemsArray); virtual;
+ Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmerchantOrderId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnetAmount(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetpaymentMethod(AIndex : Integer; const AValue : TOrderPaymentMethod); virtual;
+ Procedure SetpaymentStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetplacedDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpromotions(AIndex : Integer; const AValue : TOrderTypepromotionsArray); virtual;
+ Procedure Setrefunds(AIndex : Integer; const AValue : TOrderTyperefundsArray); virtual;
+ Procedure Setshipments(AIndex : Integer; const AValue : TOrderTypeshipmentsArray); virtual;
+ Procedure SetshippingCost(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetshippingCostTax(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetshippingOption(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(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 acknowledged : boolean Index 0 Read Facknowledged Write Setacknowledged;
+ Property customer : TOrderCustomer Index 8 Read Fcustomer Write Setcustomer;
+ Property deliveryDetails : TOrderDeliveryDetails Index 16 Read FdeliveryDetails Write SetdeliveryDetails;
+ Property id : String Index 24 Read Fid Write Setid;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property lineItems : TOrderTypelineItemsArray Index 40 Read FlineItems Write SetlineItems;
+ Property merchantId : String Index 48 Read FmerchantId Write SetmerchantId;
+ Property merchantOrderId : String Index 56 Read FmerchantOrderId Write SetmerchantOrderId;
+ Property netAmount : TPrice Index 64 Read FnetAmount Write SetnetAmount;
+ Property paymentMethod : TOrderPaymentMethod Index 72 Read FpaymentMethod Write SetpaymentMethod;
+ Property paymentStatus : String Index 80 Read FpaymentStatus Write SetpaymentStatus;
+ Property placedDate : String Index 88 Read FplacedDate Write SetplacedDate;
+ Property promotions : TOrderTypepromotionsArray Index 96 Read Fpromotions Write Setpromotions;
+ Property refunds : TOrderTyperefundsArray Index 104 Read Frefunds Write Setrefunds;
+ Property shipments : TOrderTypeshipmentsArray Index 112 Read Fshipments Write Setshipments;
+ Property shippingCost : TPrice Index 120 Read FshippingCost Write SetshippingCost;
+ Property shippingCostTax : TPrice Index 128 Read FshippingCostTax Write SetshippingCostTax;
+ Property shippingOption : String Index 136 Read FshippingOption Write SetshippingOption;
+ Property status : String Index 144 Read Fstatus Write Setstatus;
+ end;
+ TOrderClass = Class of TOrder;
+
+ { --------------------------------------------------------------------
+ TOrderAddress
+ --------------------------------------------------------------------}
+
+ TOrderAddress = Class(TGoogleBaseObject)
+ Private
+ Fcountry : String;
+ FfullAddress : TStringArray;
+ FisPostOfficeBox : boolean;
+ Flocality : String;
+ FpostalCode : String;
+ FrecipientName : String;
+ Fregion : String;
+ FstreetAddress : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfullAddress(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetisPostOfficeBox(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setlocality(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpostalCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrecipientName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstreetAddress(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 country : String Index 0 Read Fcountry Write Setcountry;
+ Property fullAddress : TStringArray Index 8 Read FfullAddress Write SetfullAddress;
+ Property isPostOfficeBox : boolean Index 16 Read FisPostOfficeBox Write SetisPostOfficeBox;
+ Property locality : String Index 24 Read Flocality Write Setlocality;
+ Property postalCode : String Index 32 Read FpostalCode Write SetpostalCode;
+ Property recipientName : String Index 40 Read FrecipientName Write SetrecipientName;
+ Property region : String Index 48 Read Fregion Write Setregion;
+ Property streetAddress : TStringArray Index 56 Read FstreetAddress Write SetstreetAddress;
+ end;
+ TOrderAddressClass = Class of TOrderAddress;
+
+ { --------------------------------------------------------------------
+ TOrderCancellation
+ --------------------------------------------------------------------}
+
+ TOrderCancellation = Class(TGoogleBaseObject)
+ Private
+ Factor : String;
+ FcreationDate : String;
+ Fquantity : integer;
+ Freason : String;
+ FreasonText : String;
+ Protected
+ //Property setters
+ Procedure Setactor(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property actor : String Index 0 Read Factor Write Setactor;
+ Property creationDate : String Index 8 Read FcreationDate Write SetcreationDate;
+ Property quantity : integer Index 16 Read Fquantity Write Setquantity;
+ Property reason : String Index 24 Read Freason Write Setreason;
+ Property reasonText : String Index 32 Read FreasonText Write SetreasonText;
+ end;
+ TOrderCancellationClass = Class of TOrderCancellation;
+
+ { --------------------------------------------------------------------
+ TOrderCustomer
+ --------------------------------------------------------------------}
+
+ TOrderCustomer = Class(TGoogleBaseObject)
+ Private
+ Femail : String;
+ FexplicitMarketingPreference : boolean;
+ FfullName : String;
+ Protected
+ //Property setters
+ Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexplicitMarketingPreference(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetfullName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property email : String Index 0 Read Femail Write Setemail;
+ Property explicitMarketingPreference : boolean Index 8 Read FexplicitMarketingPreference Write SetexplicitMarketingPreference;
+ Property fullName : String Index 16 Read FfullName Write SetfullName;
+ end;
+ TOrderCustomerClass = Class of TOrderCustomer;
+
+ { --------------------------------------------------------------------
+ TOrderDeliveryDetails
+ --------------------------------------------------------------------}
+
+ TOrderDeliveryDetails = Class(TGoogleBaseObject)
+ Private
+ Faddress : TOrderAddress;
+ FphoneNumber : String;
+ Protected
+ //Property setters
+ Procedure Setaddress(AIndex : Integer; const AValue : TOrderAddress); virtual;
+ Procedure SetphoneNumber(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property address : TOrderAddress Index 0 Read Faddress Write Setaddress;
+ Property phoneNumber : String Index 8 Read FphoneNumber Write SetphoneNumber;
+ end;
+ TOrderDeliveryDetailsClass = Class of TOrderDeliveryDetails;
+
+ { --------------------------------------------------------------------
+ TOrderLineItem
+ --------------------------------------------------------------------}
+
+ TOrderLineItem = Class(TGoogleBaseObject)
+ Private
+ Fcancellations : TOrderLineItemTypecancellationsArray;
+ Fid : String;
+ Fprice : TPrice;
+ Fproduct : TOrderLineItemProduct;
+ FquantityCanceled : integer;
+ FquantityDelivered : integer;
+ FquantityOrdered : integer;
+ FquantityPending : integer;
+ FquantityReturned : integer;
+ FquantityShipped : integer;
+ FreturnInfo : TOrderLineItemReturnInfo;
+ Freturns : TOrderLineItemTypereturnsArray;
+ FshippingDetails : TOrderLineItemShippingDetails;
+ Ftax : TPrice;
+ Protected
+ //Property setters
+ Procedure Setcancellations(AIndex : Integer; const AValue : TOrderLineItemTypecancellationsArray); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure Setproduct(AIndex : Integer; const AValue : TOrderLineItemProduct); virtual;
+ Procedure SetquantityCanceled(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetquantityDelivered(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetquantityOrdered(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetquantityPending(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetquantityReturned(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetquantityShipped(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetreturnInfo(AIndex : Integer; const AValue : TOrderLineItemReturnInfo); virtual;
+ Procedure Setreturns(AIndex : Integer; const AValue : TOrderLineItemTypereturnsArray); virtual;
+ Procedure SetshippingDetails(AIndex : Integer; const AValue : TOrderLineItemShippingDetails); virtual;
+ Procedure Settax(AIndex : Integer; const AValue : TPrice); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property cancellations : TOrderLineItemTypecancellationsArray Index 0 Read Fcancellations Write Setcancellations;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property price : TPrice Index 16 Read Fprice Write Setprice;
+ Property product : TOrderLineItemProduct Index 24 Read Fproduct Write Setproduct;
+ Property quantityCanceled : integer Index 32 Read FquantityCanceled Write SetquantityCanceled;
+ Property quantityDelivered : integer Index 40 Read FquantityDelivered Write SetquantityDelivered;
+ Property quantityOrdered : integer Index 48 Read FquantityOrdered Write SetquantityOrdered;
+ Property quantityPending : integer Index 56 Read FquantityPending Write SetquantityPending;
+ Property quantityReturned : integer Index 64 Read FquantityReturned Write SetquantityReturned;
+ Property quantityShipped : integer Index 72 Read FquantityShipped Write SetquantityShipped;
+ Property returnInfo : TOrderLineItemReturnInfo Index 80 Read FreturnInfo Write SetreturnInfo;
+ Property returns : TOrderLineItemTypereturnsArray Index 88 Read Freturns Write Setreturns;
+ Property shippingDetails : TOrderLineItemShippingDetails Index 96 Read FshippingDetails Write SetshippingDetails;
+ Property tax : TPrice Index 104 Read Ftax Write Settax;
+ end;
+ TOrderLineItemClass = Class of TOrderLineItem;
+
+ { --------------------------------------------------------------------
+ TOrderLineItemProduct
+ --------------------------------------------------------------------}
+
+ TOrderLineItemProduct = Class(TGoogleBaseObject)
+ Private
+ Fbrand : String;
+ Fchannel : String;
+ Fcondition : String;
+ FcontentLanguage : String;
+ Fgtin : String;
+ Fid : String;
+ FimageLink : String;
+ FitemGroupId : String;
+ Fmpn : String;
+ FofferId : String;
+ Fprice : TPrice;
+ FshownImage : String;
+ FtargetCountry : String;
+ Ftitle : String;
+ FvariantAttributes : TOrderLineItemProductTypevariantAttributesArray;
+ Protected
+ //Property setters
+ Procedure Setbrand(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setchannel(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcondition(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcontentLanguage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setgtin(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetimageLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetitemGroupId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmpn(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetofferId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetshownImage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettargetCountry(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvariantAttributes(AIndex : Integer; const AValue : TOrderLineItemProductTypevariantAttributesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property brand : String Index 0 Read Fbrand Write Setbrand;
+ Property channel : String Index 8 Read Fchannel Write Setchannel;
+ Property condition : String Index 16 Read Fcondition Write Setcondition;
+ Property contentLanguage : String Index 24 Read FcontentLanguage Write SetcontentLanguage;
+ Property gtin : String Index 32 Read Fgtin Write Setgtin;
+ Property id : String Index 40 Read Fid Write Setid;
+ Property imageLink : String Index 48 Read FimageLink Write SetimageLink;
+ Property itemGroupId : String Index 56 Read FitemGroupId Write SetitemGroupId;
+ Property mpn : String Index 64 Read Fmpn Write Setmpn;
+ Property offerId : String Index 72 Read FofferId Write SetofferId;
+ Property price : TPrice Index 80 Read Fprice Write Setprice;
+ Property shownImage : String Index 88 Read FshownImage Write SetshownImage;
+ Property targetCountry : String Index 96 Read FtargetCountry Write SettargetCountry;
+ Property title : String Index 104 Read Ftitle Write Settitle;
+ Property variantAttributes : TOrderLineItemProductTypevariantAttributesArray Index 112 Read FvariantAttributes Write SetvariantAttributes;
+ end;
+ TOrderLineItemProductClass = Class of TOrderLineItemProduct;
+
+ { --------------------------------------------------------------------
+ TOrderLineItemProductVariantAttribute
+ --------------------------------------------------------------------}
+
+ TOrderLineItemProductVariantAttribute = Class(TGoogleBaseObject)
+ Private
+ Fdimension : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setdimension(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property dimension : String Index 0 Read Fdimension Write Setdimension;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TOrderLineItemProductVariantAttributeClass = Class of TOrderLineItemProductVariantAttribute;
+
+ { --------------------------------------------------------------------
+ TOrderLineItemReturnInfo
+ --------------------------------------------------------------------}
+
+ TOrderLineItemReturnInfo = Class(TGoogleBaseObject)
+ Private
+ FdaysToReturn : integer;
+ FisReturnable : boolean;
+ FpolicyUrl : String;
+ Protected
+ //Property setters
+ Procedure SetdaysToReturn(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetisReturnable(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpolicyUrl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property daysToReturn : integer Index 0 Read FdaysToReturn Write SetdaysToReturn;
+ Property isReturnable : boolean Index 8 Read FisReturnable Write SetisReturnable;
+ Property policyUrl : String Index 16 Read FpolicyUrl Write SetpolicyUrl;
+ end;
+ TOrderLineItemReturnInfoClass = Class of TOrderLineItemReturnInfo;
+
+ { --------------------------------------------------------------------
+ TOrderLineItemShippingDetails
+ --------------------------------------------------------------------}
+
+ TOrderLineItemShippingDetails = Class(TGoogleBaseObject)
+ Private
+ FdeliverByDate : String;
+ Fmethod : TOrderLineItemShippingDetailsMethod;
+ FshipByDate : String;
+ Protected
+ //Property setters
+ Procedure SetdeliverByDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmethod(AIndex : Integer; const AValue : TOrderLineItemShippingDetailsMethod); virtual;
+ Procedure SetshipByDate(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property deliverByDate : String Index 0 Read FdeliverByDate Write SetdeliverByDate;
+ Property method : TOrderLineItemShippingDetailsMethod Index 8 Read Fmethod Write Setmethod;
+ Property shipByDate : String Index 16 Read FshipByDate Write SetshipByDate;
+ end;
+ TOrderLineItemShippingDetailsClass = Class of TOrderLineItemShippingDetails;
+
+ { --------------------------------------------------------------------
+ TOrderLineItemShippingDetailsMethod
+ --------------------------------------------------------------------}
+
+ TOrderLineItemShippingDetailsMethod = Class(TGoogleBaseObject)
+ Private
+ Fcarrier : String;
+ FmaxDaysInTransit : integer;
+ FmethodName : String;
+ FminDaysInTransit : integer;
+ Protected
+ //Property setters
+ Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmaxDaysInTransit(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmethodName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetminDaysInTransit(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property carrier : String Index 0 Read Fcarrier Write Setcarrier;
+ Property maxDaysInTransit : integer Index 8 Read FmaxDaysInTransit Write SetmaxDaysInTransit;
+ Property methodName : String Index 16 Read FmethodName Write SetmethodName;
+ Property minDaysInTransit : integer Index 24 Read FminDaysInTransit Write SetminDaysInTransit;
+ end;
+ TOrderLineItemShippingDetailsMethodClass = Class of TOrderLineItemShippingDetailsMethod;
+
+ { --------------------------------------------------------------------
+ TOrderPaymentMethod
+ --------------------------------------------------------------------}
+
+ TOrderPaymentMethod = Class(TGoogleBaseObject)
+ Private
+ FbillingAddress : TOrderAddress;
+ FexpirationMonth : integer;
+ FexpirationYear : integer;
+ FlastFourDigits : String;
+ FphoneNumber : String;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetbillingAddress(AIndex : Integer; const AValue : TOrderAddress); virtual;
+ Procedure SetexpirationMonth(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetexpirationYear(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetlastFourDigits(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetphoneNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property billingAddress : TOrderAddress Index 0 Read FbillingAddress Write SetbillingAddress;
+ Property expirationMonth : integer Index 8 Read FexpirationMonth Write SetexpirationMonth;
+ Property expirationYear : integer Index 16 Read FexpirationYear Write SetexpirationYear;
+ Property lastFourDigits : String Index 24 Read FlastFourDigits Write SetlastFourDigits;
+ Property phoneNumber : String Index 32 Read FphoneNumber Write SetphoneNumber;
+ Property _type : String Index 40 Read F_type Write Set_type;
+ end;
+ TOrderPaymentMethodClass = Class of TOrderPaymentMethod;
+
+ { --------------------------------------------------------------------
+ TOrderPromotion
+ --------------------------------------------------------------------}
+
+ TOrderPromotion = Class(TGoogleBaseObject)
+ Private
+ Fbenefits : TOrderPromotionTypebenefitsArray;
+ FeffectiveDates : String;
+ FgenericRedemptionCode : String;
+ Fid : String;
+ FlongTitle : String;
+ FproductApplicability : String;
+ FredemptionChannel : String;
+ Protected
+ //Property setters
+ Procedure Setbenefits(AIndex : Integer; const AValue : TOrderPromotionTypebenefitsArray); virtual;
+ Procedure SeteffectiveDates(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetgenericRedemptionCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlongTitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproductApplicability(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetredemptionChannel(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 benefits : TOrderPromotionTypebenefitsArray Index 0 Read Fbenefits Write Setbenefits;
+ Property effectiveDates : String Index 8 Read FeffectiveDates Write SeteffectiveDates;
+ Property genericRedemptionCode : String Index 16 Read FgenericRedemptionCode Write SetgenericRedemptionCode;
+ Property id : String Index 24 Read Fid Write Setid;
+ Property longTitle : String Index 32 Read FlongTitle Write SetlongTitle;
+ Property productApplicability : String Index 40 Read FproductApplicability Write SetproductApplicability;
+ Property redemptionChannel : String Index 48 Read FredemptionChannel Write SetredemptionChannel;
+ end;
+ TOrderPromotionClass = Class of TOrderPromotion;
+
+ { --------------------------------------------------------------------
+ TOrderPromotionBenefit
+ --------------------------------------------------------------------}
+
+ TOrderPromotionBenefit = Class(TGoogleBaseObject)
+ Private
+ Fdiscount : TPrice;
+ FofferIds : TStringArray;
+ FsubType : String;
+ FtaxImpact : TPrice;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setdiscount(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetofferIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetsubType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettaxImpact(AIndex : Integer; const AValue : TPrice); 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 discount : TPrice Index 0 Read Fdiscount Write Setdiscount;
+ Property offerIds : TStringArray Index 8 Read FofferIds Write SetofferIds;
+ Property subType : String Index 16 Read FsubType Write SetsubType;
+ Property taxImpact : TPrice Index 24 Read FtaxImpact Write SettaxImpact;
+ Property _type : String Index 32 Read F_type Write Set_type;
+ end;
+ TOrderPromotionBenefitClass = Class of TOrderPromotionBenefit;
+
+ { --------------------------------------------------------------------
+ TOrderRefund
+ --------------------------------------------------------------------}
+
+ TOrderRefund = Class(TGoogleBaseObject)
+ Private
+ Factor : String;
+ Famount : TPrice;
+ FcreationDate : String;
+ Freason : String;
+ FreasonText : String;
+ Protected
+ //Property setters
+ Procedure Setactor(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetcreationDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property actor : String Index 0 Read Factor Write Setactor;
+ Property amount : TPrice Index 8 Read Famount Write Setamount;
+ Property creationDate : String Index 16 Read FcreationDate Write SetcreationDate;
+ Property reason : String Index 24 Read Freason Write Setreason;
+ Property reasonText : String Index 32 Read FreasonText Write SetreasonText;
+ end;
+ TOrderRefundClass = Class of TOrderRefund;
+
+ { --------------------------------------------------------------------
+ TOrderReturn
+ --------------------------------------------------------------------}
+
+ TOrderReturn = Class(TGoogleBaseObject)
+ Private
+ Factor : String;
+ FcreationDate : String;
+ Fquantity : integer;
+ Freason : String;
+ FreasonText : String;
+ Protected
+ //Property setters
+ Procedure Setactor(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property actor : String Index 0 Read Factor Write Setactor;
+ Property creationDate : String Index 8 Read FcreationDate Write SetcreationDate;
+ Property quantity : integer Index 16 Read Fquantity Write Setquantity;
+ Property reason : String Index 24 Read Freason Write Setreason;
+ Property reasonText : String Index 32 Read FreasonText Write SetreasonText;
+ end;
+ TOrderReturnClass = Class of TOrderReturn;
+
+ { --------------------------------------------------------------------
+ TOrderShipment
+ --------------------------------------------------------------------}
+
+ TOrderShipment = Class(TGoogleBaseObject)
+ Private
+ Fcarrier : String;
+ FcreationDate : String;
+ FdeliveryDate : String;
+ Fid : String;
+ FlineItems : TOrderShipmentTypelineItemsArray;
+ Fstatus : String;
+ FtrackingId : String;
+ Protected
+ //Property setters
+ Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdeliveryDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlineItems(AIndex : Integer; const AValue : TOrderShipmentTypelineItemsArray); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettrackingId(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 carrier : String Index 0 Read Fcarrier Write Setcarrier;
+ Property creationDate : String Index 8 Read FcreationDate Write SetcreationDate;
+ Property deliveryDate : String Index 16 Read FdeliveryDate Write SetdeliveryDate;
+ Property id : String Index 24 Read Fid Write Setid;
+ Property lineItems : TOrderShipmentTypelineItemsArray Index 32 Read FlineItems Write SetlineItems;
+ Property status : String Index 40 Read Fstatus Write Setstatus;
+ Property trackingId : String Index 48 Read FtrackingId Write SettrackingId;
+ end;
+ TOrderShipmentClass = Class of TOrderShipment;
+
+ { --------------------------------------------------------------------
+ TOrderShipmentLineItemShipment
+ --------------------------------------------------------------------}
+
+ TOrderShipmentLineItemShipment = Class(TGoogleBaseObject)
+ Private
+ FlineItemId : String;
+ Fquantity : integer;
+ Protected
+ //Property setters
+ Procedure SetlineItemId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property lineItemId : String Index 0 Read FlineItemId Write SetlineItemId;
+ Property quantity : integer Index 8 Read Fquantity Write Setquantity;
+ end;
+ TOrderShipmentLineItemShipmentClass = Class of TOrderShipmentLineItemShipment;
+
+ { --------------------------------------------------------------------
+ TOrdersAcknowledgeRequest
+ --------------------------------------------------------------------}
+
+ TOrdersAcknowledgeRequest = Class(TGoogleBaseObject)
+ Private
+ FoperationId : String;
+ Protected
+ //Property setters
+ Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property operationId : String Index 0 Read FoperationId Write SetoperationId;
+ end;
+ TOrdersAcknowledgeRequestClass = Class of TOrdersAcknowledgeRequest;
+
+ { --------------------------------------------------------------------
+ TOrdersAcknowledgeResponse
+ --------------------------------------------------------------------}
+
+ TOrdersAcknowledgeResponse = Class(TGoogleBaseObject)
+ Private
+ FexecutionStatus : String;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TOrdersAcknowledgeResponseClass = Class of TOrdersAcknowledgeResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersAdvanceTestOrderResponse
+ --------------------------------------------------------------------}
+
+ TOrdersAdvanceTestOrderResponse = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ end;
+ TOrdersAdvanceTestOrderResponseClass = Class of TOrdersAdvanceTestOrderResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersCancelLineItemRequest
+ --------------------------------------------------------------------}
+
+ TOrdersCancelLineItemRequest = Class(TGoogleBaseObject)
+ Private
+ Famount : TPrice;
+ FlineItemId : String;
+ FoperationId : String;
+ Fquantity : integer;
+ Freason : String;
+ FreasonText : String;
+ Protected
+ //Property setters
+ Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetlineItemId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property amount : TPrice Index 0 Read Famount Write Setamount;
+ Property lineItemId : String Index 8 Read FlineItemId Write SetlineItemId;
+ Property operationId : String Index 16 Read FoperationId Write SetoperationId;
+ Property quantity : integer Index 24 Read Fquantity Write Setquantity;
+ Property reason : String Index 32 Read Freason Write Setreason;
+ Property reasonText : String Index 40 Read FreasonText Write SetreasonText;
+ end;
+ TOrdersCancelLineItemRequestClass = Class of TOrdersCancelLineItemRequest;
+
+ { --------------------------------------------------------------------
+ TOrdersCancelLineItemResponse
+ --------------------------------------------------------------------}
+
+ TOrdersCancelLineItemResponse = Class(TGoogleBaseObject)
+ Private
+ FexecutionStatus : String;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TOrdersCancelLineItemResponseClass = Class of TOrdersCancelLineItemResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersCancelRequest
+ --------------------------------------------------------------------}
+
+ TOrdersCancelRequest = Class(TGoogleBaseObject)
+ Private
+ FoperationId : String;
+ Freason : String;
+ FreasonText : String;
+ Protected
+ //Property setters
+ Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property operationId : String Index 0 Read FoperationId Write SetoperationId;
+ Property reason : String Index 8 Read Freason Write Setreason;
+ Property reasonText : String Index 16 Read FreasonText Write SetreasonText;
+ end;
+ TOrdersCancelRequestClass = Class of TOrdersCancelRequest;
+
+ { --------------------------------------------------------------------
+ TOrdersCancelResponse
+ --------------------------------------------------------------------}
+
+ TOrdersCancelResponse = Class(TGoogleBaseObject)
+ Private
+ FexecutionStatus : String;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TOrdersCancelResponseClass = Class of TOrdersCancelResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersCreateTestOrderRequest
+ --------------------------------------------------------------------}
+
+ TOrdersCreateTestOrderRequest = Class(TGoogleBaseObject)
+ Private
+ FtemplateName : String;
+ FtestOrder : TTestOrder;
+ Protected
+ //Property setters
+ Procedure SettemplateName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettestOrder(AIndex : Integer; const AValue : TTestOrder); virtual;
+ Public
+ Published
+ Property templateName : String Index 0 Read FtemplateName Write SettemplateName;
+ Property testOrder : TTestOrder Index 8 Read FtestOrder Write SettestOrder;
+ end;
+ TOrdersCreateTestOrderRequestClass = Class of TOrdersCreateTestOrderRequest;
+
+ { --------------------------------------------------------------------
+ TOrdersCreateTestOrderResponse
+ --------------------------------------------------------------------}
+
+ TOrdersCreateTestOrderResponse = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ ForderId : String;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetorderId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property orderId : String Index 8 Read ForderId Write SetorderId;
+ end;
+ TOrdersCreateTestOrderResponseClass = Class of TOrdersCreateTestOrderResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersCustomBatchRequest
+ --------------------------------------------------------------------}
+
+ TOrdersCustomBatchRequest = Class(TGoogleBaseObject)
+ Private
+ Fentries : TOrdersCustomBatchRequestTypeentriesArray;
+ Protected
+ //Property setters
+ Procedure Setentries(AIndex : Integer; const AValue : TOrdersCustomBatchRequestTypeentriesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property entries : TOrdersCustomBatchRequestTypeentriesArray Index 0 Read Fentries Write Setentries;
+ end;
+ TOrdersCustomBatchRequestClass = Class of TOrdersCustomBatchRequest;
+
+ { --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntry
+ --------------------------------------------------------------------}
+
+ TOrdersCustomBatchRequestEntry = Class(TGoogleBaseObject)
+ Private
+ FbatchId : integer;
+ Fcancel : TOrdersCustomBatchRequestEntryCancel;
+ FcancelLineItem : TOrdersCustomBatchRequestEntryCancelLineItem;
+ FmerchantId : String;
+ FmerchantOrderId : String;
+ Fmethod : String;
+ FoperationId : String;
+ ForderId : String;
+ Frefund : TOrdersCustomBatchRequestEntryRefund;
+ FreturnLineItem : TOrdersCustomBatchRequestEntryReturnLineItem;
+ FshipLineItems : TOrdersCustomBatchRequestEntryShipLineItems;
+ FupdateShipment : TOrdersCustomBatchRequestEntryUpdateShipment;
+ Protected
+ //Property setters
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setcancel(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryCancel); virtual;
+ Procedure SetcancelLineItem(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryCancelLineItem); virtual;
+ Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmerchantOrderId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetorderId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrefund(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryRefund); virtual;
+ Procedure SetreturnLineItem(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryReturnLineItem); virtual;
+ Procedure SetshipLineItems(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryShipLineItems); virtual;
+ Procedure SetupdateShipment(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryUpdateShipment); virtual;
+ Public
+ Published
+ Property batchId : integer Index 0 Read FbatchId Write SetbatchId;
+ Property cancel : TOrdersCustomBatchRequestEntryCancel Index 8 Read Fcancel Write Setcancel;
+ Property cancelLineItem : TOrdersCustomBatchRequestEntryCancelLineItem Index 16 Read FcancelLineItem Write SetcancelLineItem;
+ Property merchantId : String Index 24 Read FmerchantId Write SetmerchantId;
+ Property merchantOrderId : String Index 32 Read FmerchantOrderId Write SetmerchantOrderId;
+ Property method : String Index 40 Read Fmethod Write Setmethod;
+ Property operationId : String Index 48 Read FoperationId Write SetoperationId;
+ Property orderId : String Index 56 Read ForderId Write SetorderId;
+ Property refund : TOrdersCustomBatchRequestEntryRefund Index 64 Read Frefund Write Setrefund;
+ Property returnLineItem : TOrdersCustomBatchRequestEntryReturnLineItem Index 72 Read FreturnLineItem Write SetreturnLineItem;
+ Property shipLineItems : TOrdersCustomBatchRequestEntryShipLineItems Index 80 Read FshipLineItems Write SetshipLineItems;
+ Property updateShipment : TOrdersCustomBatchRequestEntryUpdateShipment Index 88 Read FupdateShipment Write SetupdateShipment;
+ end;
+ TOrdersCustomBatchRequestEntryClass = Class of TOrdersCustomBatchRequestEntry;
+
+ { --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryCancel
+ --------------------------------------------------------------------}
+
+ TOrdersCustomBatchRequestEntryCancel = Class(TGoogleBaseObject)
+ Private
+ Freason : String;
+ FreasonText : String;
+ Protected
+ //Property setters
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property reason : String Index 0 Read Freason Write Setreason;
+ Property reasonText : String Index 8 Read FreasonText Write SetreasonText;
+ end;
+ TOrdersCustomBatchRequestEntryCancelClass = Class of TOrdersCustomBatchRequestEntryCancel;
+
+ { --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryCancelLineItem
+ --------------------------------------------------------------------}
+
+ TOrdersCustomBatchRequestEntryCancelLineItem = Class(TGoogleBaseObject)
+ Private
+ Famount : TPrice;
+ FlineItemId : String;
+ Fquantity : integer;
+ Freason : String;
+ FreasonText : String;
+ Protected
+ //Property setters
+ Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetlineItemId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property amount : TPrice Index 0 Read Famount Write Setamount;
+ Property lineItemId : String Index 8 Read FlineItemId Write SetlineItemId;
+ Property quantity : integer Index 16 Read Fquantity Write Setquantity;
+ Property reason : String Index 24 Read Freason Write Setreason;
+ Property reasonText : String Index 32 Read FreasonText Write SetreasonText;
+ end;
+ TOrdersCustomBatchRequestEntryCancelLineItemClass = Class of TOrdersCustomBatchRequestEntryCancelLineItem;
+
+ { --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryRefund
+ --------------------------------------------------------------------}
+
+ TOrdersCustomBatchRequestEntryRefund = Class(TGoogleBaseObject)
+ Private
+ Famount : TPrice;
+ Freason : String;
+ FreasonText : String;
+ Protected
+ //Property setters
+ Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property amount : TPrice Index 0 Read Famount Write Setamount;
+ Property reason : String Index 8 Read Freason Write Setreason;
+ Property reasonText : String Index 16 Read FreasonText Write SetreasonText;
+ end;
+ TOrdersCustomBatchRequestEntryRefundClass = Class of TOrdersCustomBatchRequestEntryRefund;
+
+ { --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryReturnLineItem
+ --------------------------------------------------------------------}
+
+ TOrdersCustomBatchRequestEntryReturnLineItem = Class(TGoogleBaseObject)
+ Private
+ FlineItemId : String;
+ Fquantity : integer;
+ Freason : String;
+ FreasonText : String;
+ Protected
+ //Property setters
+ Procedure SetlineItemId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property lineItemId : String Index 0 Read FlineItemId Write SetlineItemId;
+ Property quantity : integer Index 8 Read Fquantity Write Setquantity;
+ Property reason : String Index 16 Read Freason Write Setreason;
+ Property reasonText : String Index 24 Read FreasonText Write SetreasonText;
+ end;
+ TOrdersCustomBatchRequestEntryReturnLineItemClass = Class of TOrdersCustomBatchRequestEntryReturnLineItem;
+
+ { --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryShipLineItems
+ --------------------------------------------------------------------}
+
+ TOrdersCustomBatchRequestEntryShipLineItems = Class(TGoogleBaseObject)
+ Private
+ Fcarrier : String;
+ FlineItems : TOrdersCustomBatchRequestEntryShipLineItemsTypelineItemsArray;
+ FshipmentId : String;
+ FtrackingId : String;
+ Protected
+ //Property setters
+ Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlineItems(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryShipLineItemsTypelineItemsArray); virtual;
+ Procedure SetshipmentId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettrackingId(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 carrier : String Index 0 Read Fcarrier Write Setcarrier;
+ Property lineItems : TOrdersCustomBatchRequestEntryShipLineItemsTypelineItemsArray Index 8 Read FlineItems Write SetlineItems;
+ Property shipmentId : String Index 16 Read FshipmentId Write SetshipmentId;
+ Property trackingId : String Index 24 Read FtrackingId Write SettrackingId;
+ end;
+ TOrdersCustomBatchRequestEntryShipLineItemsClass = Class of TOrdersCustomBatchRequestEntryShipLineItems;
+
+ { --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryUpdateShipment
+ --------------------------------------------------------------------}
+
+ TOrdersCustomBatchRequestEntryUpdateShipment = Class(TGoogleBaseObject)
+ Private
+ Fcarrier : String;
+ FshipmentId : String;
+ Fstatus : String;
+ FtrackingId : String;
+ Protected
+ //Property setters
+ Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetshipmentId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettrackingId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property carrier : String Index 0 Read Fcarrier Write Setcarrier;
+ Property shipmentId : String Index 8 Read FshipmentId Write SetshipmentId;
+ Property status : String Index 16 Read Fstatus Write Setstatus;
+ Property trackingId : String Index 24 Read FtrackingId Write SettrackingId;
+ end;
+ TOrdersCustomBatchRequestEntryUpdateShipmentClass = Class of TOrdersCustomBatchRequestEntryUpdateShipment;
+
+ { --------------------------------------------------------------------
+ TOrdersCustomBatchResponse
+ --------------------------------------------------------------------}
+
+ TOrdersCustomBatchResponse = Class(TGoogleBaseObject)
+ Private
+ Fentries : TOrdersCustomBatchResponseTypeentriesArray;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure Setentries(AIndex : Integer; const AValue : TOrdersCustomBatchResponseTypeentriesArray); 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 entries : TOrdersCustomBatchResponseTypeentriesArray Index 0 Read Fentries Write Setentries;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TOrdersCustomBatchResponseClass = Class of TOrdersCustomBatchResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersCustomBatchResponseEntry
+ --------------------------------------------------------------------}
+
+ TOrdersCustomBatchResponseEntry = Class(TGoogleBaseObject)
+ Private
+ FbatchId : integer;
+ Ferrors : TErrors;
+ FexecutionStatus : String;
+ Fkind : String;
+ Forder : TOrder;
+ Protected
+ //Property setters
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual;
+ Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setorder(AIndex : Integer; const AValue : TOrder); virtual;
+ Public
+ Published
+ Property batchId : integer Index 0 Read FbatchId Write SetbatchId;
+ Property errors : TErrors Index 8 Read Ferrors Write Seterrors;
+ Property executionStatus : String Index 16 Read FexecutionStatus Write SetexecutionStatus;
+ Property kind : String Index 24 Read Fkind Write Setkind;
+ Property order : TOrder Index 32 Read Forder Write Setorder;
+ end;
+ TOrdersCustomBatchResponseEntryClass = Class of TOrdersCustomBatchResponseEntry;
+
+ { --------------------------------------------------------------------
+ TOrdersGetByMerchantOrderIdResponse
+ --------------------------------------------------------------------}
+
+ TOrdersGetByMerchantOrderIdResponse = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ Forder : TOrder;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setorder(AIndex : Integer; const AValue : TOrder); virtual;
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property order : TOrder Index 8 Read Forder Write Setorder;
+ end;
+ TOrdersGetByMerchantOrderIdResponseClass = Class of TOrdersGetByMerchantOrderIdResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersGetTestOrderTemplateResponse
+ --------------------------------------------------------------------}
+
+ TOrdersGetTestOrderTemplateResponse = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ Ftemplate : TTestOrder;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settemplate(AIndex : Integer; const AValue : TTestOrder); virtual;
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property template : TTestOrder Index 8 Read Ftemplate Write Settemplate;
+ end;
+ TOrdersGetTestOrderTemplateResponseClass = Class of TOrdersGetTestOrderTemplateResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersListResponse
+ --------------------------------------------------------------------}
+
+ TOrdersListResponse = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ FnextPageToken : String;
+ Fresources : TOrdersListResponseTyperesourcesArray;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TOrdersListResponseTyperesourcesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property resources : TOrdersListResponseTyperesourcesArray Index 16 Read Fresources Write Setresources;
+ end;
+ TOrdersListResponseClass = Class of TOrdersListResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersRefundRequest
+ --------------------------------------------------------------------}
+
+ TOrdersRefundRequest = Class(TGoogleBaseObject)
+ Private
+ Famount : TPrice;
+ FoperationId : String;
+ Freason : String;
+ FreasonText : String;
+ Protected
+ //Property setters
+ Procedure Setamount(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property amount : TPrice Index 0 Read Famount Write Setamount;
+ Property operationId : String Index 8 Read FoperationId Write SetoperationId;
+ Property reason : String Index 16 Read Freason Write Setreason;
+ Property reasonText : String Index 24 Read FreasonText Write SetreasonText;
+ end;
+ TOrdersRefundRequestClass = Class of TOrdersRefundRequest;
+
+ { --------------------------------------------------------------------
+ TOrdersRefundResponse
+ --------------------------------------------------------------------}
+
+ TOrdersRefundResponse = Class(TGoogleBaseObject)
+ Private
+ FexecutionStatus : String;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TOrdersRefundResponseClass = Class of TOrdersRefundResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersReturnLineItemRequest
+ --------------------------------------------------------------------}
+
+ TOrdersReturnLineItemRequest = Class(TGoogleBaseObject)
+ Private
+ FlineItemId : String;
+ FoperationId : String;
+ Fquantity : integer;
+ Freason : String;
+ FreasonText : String;
+ Protected
+ //Property setters
+ Procedure SetlineItemId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setquantity(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreasonText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property lineItemId : String Index 0 Read FlineItemId Write SetlineItemId;
+ Property operationId : String Index 8 Read FoperationId Write SetoperationId;
+ Property quantity : integer Index 16 Read Fquantity Write Setquantity;
+ Property reason : String Index 24 Read Freason Write Setreason;
+ Property reasonText : String Index 32 Read FreasonText Write SetreasonText;
+ end;
+ TOrdersReturnLineItemRequestClass = Class of TOrdersReturnLineItemRequest;
+
+ { --------------------------------------------------------------------
+ TOrdersReturnLineItemResponse
+ --------------------------------------------------------------------}
+
+ TOrdersReturnLineItemResponse = Class(TGoogleBaseObject)
+ Private
+ FexecutionStatus : String;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TOrdersReturnLineItemResponseClass = Class of TOrdersReturnLineItemResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersShipLineItemsRequest
+ --------------------------------------------------------------------}
+
+ TOrdersShipLineItemsRequest = Class(TGoogleBaseObject)
+ Private
+ Fcarrier : String;
+ FlineItems : TOrdersShipLineItemsRequestTypelineItemsArray;
+ FoperationId : String;
+ FshipmentId : String;
+ FtrackingId : String;
+ Protected
+ //Property setters
+ Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlineItems(AIndex : Integer; const AValue : TOrdersShipLineItemsRequestTypelineItemsArray); virtual;
+ Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetshipmentId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettrackingId(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 carrier : String Index 0 Read Fcarrier Write Setcarrier;
+ Property lineItems : TOrdersShipLineItemsRequestTypelineItemsArray Index 8 Read FlineItems Write SetlineItems;
+ Property operationId : String Index 16 Read FoperationId Write SetoperationId;
+ Property shipmentId : String Index 24 Read FshipmentId Write SetshipmentId;
+ Property trackingId : String Index 32 Read FtrackingId Write SettrackingId;
+ end;
+ TOrdersShipLineItemsRequestClass = Class of TOrdersShipLineItemsRequest;
+
+ { --------------------------------------------------------------------
+ TOrdersShipLineItemsResponse
+ --------------------------------------------------------------------}
+
+ TOrdersShipLineItemsResponse = Class(TGoogleBaseObject)
+ Private
+ FexecutionStatus : String;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TOrdersShipLineItemsResponseClass = Class of TOrdersShipLineItemsResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersUpdateMerchantOrderIdRequest
+ --------------------------------------------------------------------}
+
+ TOrdersUpdateMerchantOrderIdRequest = Class(TGoogleBaseObject)
+ Private
+ FmerchantOrderId : String;
+ FoperationId : String;
+ Protected
+ //Property setters
+ Procedure SetmerchantOrderId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property merchantOrderId : String Index 0 Read FmerchantOrderId Write SetmerchantOrderId;
+ Property operationId : String Index 8 Read FoperationId Write SetoperationId;
+ end;
+ TOrdersUpdateMerchantOrderIdRequestClass = Class of TOrdersUpdateMerchantOrderIdRequest;
+
+ { --------------------------------------------------------------------
+ TOrdersUpdateMerchantOrderIdResponse
+ --------------------------------------------------------------------}
+
+ TOrdersUpdateMerchantOrderIdResponse = Class(TGoogleBaseObject)
+ Private
+ FexecutionStatus : String;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TOrdersUpdateMerchantOrderIdResponseClass = Class of TOrdersUpdateMerchantOrderIdResponse;
+
+ { --------------------------------------------------------------------
+ TOrdersUpdateShipmentRequest
+ --------------------------------------------------------------------}
+
+ TOrdersUpdateShipmentRequest = Class(TGoogleBaseObject)
+ Private
+ Fcarrier : String;
+ FoperationId : String;
+ FshipmentId : String;
+ Fstatus : String;
+ FtrackingId : String;
+ Protected
+ //Property setters
+ Procedure Setcarrier(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoperationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetshipmentId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettrackingId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property carrier : String Index 0 Read Fcarrier Write Setcarrier;
+ Property operationId : String Index 8 Read FoperationId Write SetoperationId;
+ Property shipmentId : String Index 16 Read FshipmentId Write SetshipmentId;
+ Property status : String Index 24 Read Fstatus Write Setstatus;
+ Property trackingId : String Index 32 Read FtrackingId Write SettrackingId;
+ end;
+ TOrdersUpdateShipmentRequestClass = Class of TOrdersUpdateShipmentRequest;
+
+ { --------------------------------------------------------------------
+ TOrdersUpdateShipmentResponse
+ --------------------------------------------------------------------}
+
+ TOrdersUpdateShipmentResponse = Class(TGoogleBaseObject)
+ Private
+ FexecutionStatus : String;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SetexecutionStatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property executionStatus : String Index 0 Read FexecutionStatus Write SetexecutionStatus;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TOrdersUpdateShipmentResponseClass = Class of TOrdersUpdateShipmentResponse;
+
+ { --------------------------------------------------------------------
TPrice
--------------------------------------------------------------------}
@@ -2034,7 +3534,7 @@ type
Fid : String;
FidentifierExists : boolean;
FimageLink : String;
- Finstallment : TProductInstallment;
+ Finstallment : TInstallment;
FisBundle : boolean;
FitemGroupId : String;
Fkind : String;
@@ -2049,8 +3549,10 @@ type
Fpattern : String;
Fprice : TPrice;
FproductType : String;
+ FpromotionIds : TStringArray;
FsalePrice : TPrice;
FsalePriceEffectiveDate : String;
+ FsellOnGoogleQuantity : String;
Fshipping : TProductTypeshippingArray;
FshippingHeight : TProductShippingDimension;
FshippingLabel : String;
@@ -2069,13 +3571,13 @@ type
Fwarnings : TProductTypewarningsArray;
Protected
//Property setters
- Procedure SetadditionalImageLinks(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setadult(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetadditionalImageLinks(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setadult(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetadwordsGrouping(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadwordsLabels(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetadwordsLabels(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetadwordsRedirect(AIndex : Integer; const AValue : String); virtual;
Procedure SetageGroup(AIndex : Integer; const AValue : String); virtual;
- Procedure Setaspects(AIndex : Integer; AValue : TProductTypeaspectsArray); virtual;
+ Procedure Setaspects(AIndex : Integer; const AValue : TProductTypeaspectsArray); virtual;
Procedure Setavailability(AIndex : Integer; const AValue : String); virtual;
Procedure SetavailabilityDate(AIndex : Integer; const AValue : String); virtual;
Procedure Setbrand(AIndex : Integer; const AValue : String); virtual;
@@ -2083,61 +3585,63 @@ type
Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
Procedure Setcondition(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentLanguage(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcustomAttributes(AIndex : Integer; AValue : TProductTypecustomAttributesArray); virtual;
- Procedure SetcustomGroups(AIndex : Integer; AValue : TProductTypecustomGroupsArray); virtual;
+ Procedure SetcustomAttributes(AIndex : Integer; const AValue : TProductTypecustomAttributesArray); virtual;
+ Procedure SetcustomGroups(AIndex : Integer; const AValue : TProductTypecustomGroupsArray); virtual;
Procedure SetcustomLabel0(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomLabel1(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomLabel2(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomLabel3(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomLabel4(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdestinations(AIndex : Integer; AValue : TProductTypedestinationsArray); virtual;
+ Procedure Setdestinations(AIndex : Integer; const AValue : TProductTypedestinationsArray); virtual;
Procedure SetdisplayAdsId(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayAdsLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisplayAdsSimilarIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetdisplayAdsSimilarIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetdisplayAdsTitle(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisplayAdsValue(AIndex : Integer; AValue : double); virtual;
+ Procedure SetdisplayAdsValue(AIndex : Integer; const AValue : double); virtual;
Procedure SetenergyEfficiencyClass(AIndex : Integer; const AValue : String); virtual;
Procedure SetexpirationDate(AIndex : Integer; const AValue : String); virtual;
Procedure Setgender(AIndex : Integer; const AValue : String); virtual;
Procedure SetgoogleProductCategory(AIndex : Integer; const AValue : String); virtual;
Procedure Setgtin(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidentifierExists(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetidentifierExists(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetimageLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinstallment(AIndex : Integer; AValue : TProductInstallment); virtual;
- Procedure SetisBundle(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setinstallment(AIndex : Integer; const AValue : TInstallment); virtual;
+ Procedure SetisBundle(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetitemGroupId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetloyaltyPoints(AIndex : Integer; AValue : TLoyaltyPoints); virtual;
+ Procedure SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints); virtual;
Procedure Setmaterial(AIndex : Integer; const AValue : String); virtual;
Procedure SetmobileLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setmpn(AIndex : Integer; const AValue : String); virtual;
Procedure Setmultipack(AIndex : Integer; const AValue : String); virtual;
Procedure SetofferId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetonlineOnly(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetonlineOnly(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setpattern(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprice(AIndex : Integer; AValue : TPrice); virtual;
+ Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual;
Procedure SetproductType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsalePrice(AIndex : Integer; AValue : TPrice); virtual;
+ Procedure SetpromotionIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetsalePrice(AIndex : Integer; const AValue : TPrice); virtual;
Procedure SetsalePriceEffectiveDate(AIndex : Integer; const AValue : String); virtual;
- Procedure Setshipping(AIndex : Integer; AValue : TProductTypeshippingArray); virtual;
- Procedure SetshippingHeight(AIndex : Integer; AValue : TProductShippingDimension); virtual;
+ Procedure SetsellOnGoogleQuantity(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setshipping(AIndex : Integer; const AValue : TProductTypeshippingArray); virtual;
+ Procedure SetshippingHeight(AIndex : Integer; const AValue : TProductShippingDimension); virtual;
Procedure SetshippingLabel(AIndex : Integer; const AValue : String); virtual;
- Procedure SetshippingLength(AIndex : Integer; AValue : TProductShippingDimension); virtual;
- Procedure SetshippingWeight(AIndex : Integer; AValue : TProductShippingWeight); virtual;
- Procedure SetshippingWidth(AIndex : Integer; AValue : TProductShippingDimension); virtual;
+ Procedure SetshippingLength(AIndex : Integer; const AValue : TProductShippingDimension); virtual;
+ Procedure SetshippingWeight(AIndex : Integer; const AValue : TProductShippingWeight); virtual;
+ Procedure SetshippingWidth(AIndex : Integer; const AValue : TProductShippingDimension); virtual;
Procedure SetsizeSystem(AIndex : Integer; const AValue : String); virtual;
Procedure SetsizeType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsizes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setsizes(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SettargetCountry(AIndex : Integer; const AValue : String); virtual;
- Procedure Settaxes(AIndex : Integer; AValue : TProductTypetaxesArray); virtual;
+ Procedure Settaxes(AIndex : Integer; const AValue : TProductTypetaxesArray); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure SetunitPricingBaseMeasure(AIndex : Integer; AValue : TProductUnitPricingBaseMeasure); virtual;
- Procedure SetunitPricingMeasure(AIndex : Integer; AValue : TProductUnitPricingMeasure); virtual;
- Procedure SetvalidatedDestinations(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TProductTypewarningsArray); virtual;
+ Procedure SetunitPricingBaseMeasure(AIndex : Integer; const AValue : TProductUnitPricingBaseMeasure); virtual;
+ Procedure SetunitPricingMeasure(AIndex : Integer; const AValue : TProductUnitPricingMeasure); virtual;
+ Procedure SetvalidatedDestinations(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TProductTypewarningsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2180,7 +3684,7 @@ type
Property id : String Index 264 Read Fid Write Setid;
Property identifierExists : boolean Index 272 Read FidentifierExists Write SetidentifierExists;
Property imageLink : String Index 280 Read FimageLink Write SetimageLink;
- Property installment : TProductInstallment Index 288 Read Finstallment Write Setinstallment;
+ Property installment : TInstallment Index 288 Read Finstallment Write Setinstallment;
Property isBundle : boolean Index 296 Read FisBundle Write SetisBundle;
Property itemGroupId : String Index 304 Read FitemGroupId Write SetitemGroupId;
Property kind : String Index 312 Read Fkind Write Setkind;
@@ -2195,24 +3699,26 @@ type
Property pattern : String Index 384 Read Fpattern Write Setpattern;
Property price : TPrice Index 392 Read Fprice Write Setprice;
Property productType : String Index 400 Read FproductType Write SetproductType;
- Property salePrice : TPrice Index 408 Read FsalePrice Write SetsalePrice;
- Property salePriceEffectiveDate : String Index 416 Read FsalePriceEffectiveDate Write SetsalePriceEffectiveDate;
- Property shipping : TProductTypeshippingArray Index 424 Read Fshipping Write Setshipping;
- Property shippingHeight : TProductShippingDimension Index 432 Read FshippingHeight Write SetshippingHeight;
- Property shippingLabel : String Index 440 Read FshippingLabel Write SetshippingLabel;
- Property shippingLength : TProductShippingDimension Index 448 Read FshippingLength Write SetshippingLength;
- Property shippingWeight : TProductShippingWeight Index 456 Read FshippingWeight Write SetshippingWeight;
- Property shippingWidth : TProductShippingDimension Index 464 Read FshippingWidth Write SetshippingWidth;
- Property sizeSystem : String Index 472 Read FsizeSystem Write SetsizeSystem;
- Property sizeType : String Index 480 Read FsizeType Write SetsizeType;
- Property sizes : TStringArray Index 488 Read Fsizes Write Setsizes;
- Property targetCountry : String Index 496 Read FtargetCountry Write SettargetCountry;
- Property taxes : TProductTypetaxesArray Index 504 Read Ftaxes Write Settaxes;
- Property title : String Index 512 Read Ftitle Write Settitle;
- Property unitPricingBaseMeasure : TProductUnitPricingBaseMeasure Index 520 Read FunitPricingBaseMeasure Write SetunitPricingBaseMeasure;
- Property unitPricingMeasure : TProductUnitPricingMeasure Index 528 Read FunitPricingMeasure Write SetunitPricingMeasure;
- Property validatedDestinations : TStringArray Index 536 Read FvalidatedDestinations Write SetvalidatedDestinations;
- Property warnings : TProductTypewarningsArray Index 544 Read Fwarnings Write Setwarnings;
+ Property promotionIds : TStringArray Index 408 Read FpromotionIds Write SetpromotionIds;
+ Property salePrice : TPrice Index 416 Read FsalePrice Write SetsalePrice;
+ Property salePriceEffectiveDate : String Index 424 Read FsalePriceEffectiveDate Write SetsalePriceEffectiveDate;
+ Property sellOnGoogleQuantity : String Index 432 Read FsellOnGoogleQuantity Write SetsellOnGoogleQuantity;
+ Property shipping : TProductTypeshippingArray Index 440 Read Fshipping Write Setshipping;
+ Property shippingHeight : TProductShippingDimension Index 448 Read FshippingHeight Write SetshippingHeight;
+ Property shippingLabel : String Index 456 Read FshippingLabel Write SetshippingLabel;
+ Property shippingLength : TProductShippingDimension Index 464 Read FshippingLength Write SetshippingLength;
+ Property shippingWeight : TProductShippingWeight Index 472 Read FshippingWeight Write SetshippingWeight;
+ Property shippingWidth : TProductShippingDimension Index 480 Read FshippingWidth Write SetshippingWidth;
+ Property sizeSystem : String Index 488 Read FsizeSystem Write SetsizeSystem;
+ Property sizeType : String Index 496 Read FsizeType Write SetsizeType;
+ Property sizes : TStringArray Index 504 Read Fsizes Write Setsizes;
+ Property targetCountry : String Index 512 Read FtargetCountry Write SettargetCountry;
+ Property taxes : TProductTypetaxesArray Index 520 Read Ftaxes Write Settaxes;
+ Property title : String Index 528 Read Ftitle Write Settitle;
+ Property unitPricingBaseMeasure : TProductUnitPricingBaseMeasure Index 536 Read FunitPricingBaseMeasure Write SetunitPricingBaseMeasure;
+ Property unitPricingMeasure : TProductUnitPricingMeasure Index 544 Read FunitPricingMeasure Write SetunitPricingMeasure;
+ Property validatedDestinations : TStringArray Index 552 Read FvalidatedDestinations Write SetvalidatedDestinations;
+ Property warnings : TProductTypewarningsArray Index 560 Read Fwarnings Write Setwarnings;
end;
TProductClass = Class of TProduct;
@@ -2274,7 +3780,7 @@ type
Fname : String;
Protected
//Property setters
- Procedure Setattributes(AIndex : Integer; AValue : TProductCustomGroupTypeattributesArray); virtual;
+ Procedure Setattributes(AIndex : Integer; const AValue : TProductCustomGroupTypeattributesArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2307,25 +3813,6 @@ type
TProductDestinationClass = Class of TProductDestination;
{ --------------------------------------------------------------------
- TProductInstallment
- --------------------------------------------------------------------}
-
- TProductInstallment = Class(TGoogleBaseObject)
- Private
- Famount : TPrice;
- Fmonths : String;
- Protected
- //Property setters
- Procedure Setamount(AIndex : Integer; AValue : TPrice); virtual;
- Procedure Setmonths(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property amount : TPrice Index 0 Read Famount Write Setamount;
- Property months : String Index 8 Read Fmonths Write Setmonths;
- end;
- TProductInstallmentClass = Class of TProductInstallment;
-
- { --------------------------------------------------------------------
TProductShipping
--------------------------------------------------------------------}
@@ -2344,7 +3831,7 @@ type
Procedure SetlocationGroupName(AIndex : Integer; const AValue : String); virtual;
Procedure SetlocationId(AIndex : Integer; const AValue : String); virtual;
Procedure SetpostalCode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprice(AIndex : Integer; AValue : TPrice); virtual;
+ Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure Setservice(AIndex : Integer; const AValue : String); virtual;
Public
@@ -2371,7 +3858,7 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Set_unit(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; AValue : double); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property _unit : String Index 0 Read F_unit Write Set_unit;
@@ -2391,7 +3878,7 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Set_unit(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; AValue : double); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property _unit : String Index 0 Read F_unit Write Set_unit;
@@ -2417,8 +3904,8 @@ type
Protected
//Property setters
Procedure SetcreationDate(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdataQualityIssues(AIndex : Integer; AValue : TProductStatusTypedataQualityIssuesArray); virtual;
- Procedure SetdestinationStatuses(AIndex : Integer; AValue : TProductStatusTypedestinationStatusesArray); virtual;
+ Procedure SetdataQualityIssues(AIndex : Integer; const AValue : TProductStatusTypedataQualityIssuesArray); virtual;
+ Procedure SetdestinationStatuses(AIndex : Integer; const AValue : TProductStatusTypedestinationStatusesArray); virtual;
Procedure SetgoogleExpirationDate(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastUpdateDate(AIndex : Integer; const AValue : String); virtual;
@@ -2519,9 +4006,9 @@ type
Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
Procedure SetlocationId(AIndex : Integer; const AValue : String); virtual;
Procedure SetpostalCode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrate(AIndex : Integer; AValue : double); virtual;
+ Procedure Setrate(AIndex : Integer; const AValue : double); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
- Procedure SettaxShip(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SettaxShip(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property country : String Index 0 Read Fcountry Write Setcountry;
@@ -2565,7 +4052,7 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Set_unit(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; AValue : double); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property _unit : String Index 0 Read F_unit Write Set_unit;
@@ -2582,7 +4069,7 @@ type
Fentries : TProductsCustomBatchRequestTypeentriesArray;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TProductsCustomBatchRequestTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TProductsCustomBatchRequestTypeentriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2606,10 +4093,10 @@ type
FproductId : String;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual;
Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
- Procedure Setproduct(AIndex : Integer; AValue : TProduct); virtual;
+ Procedure Setproduct(AIndex : Integer; const AValue : TProduct); virtual;
Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2631,7 +4118,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TProductsCustomBatchResponseTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TProductsCustomBatchResponseTypeentriesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2656,10 +4143,10 @@ type
Fproduct : TProduct;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TErrors); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setproduct(AIndex : Integer; AValue : TProduct); virtual;
+ Procedure Setproduct(AIndex : Integer; const AValue : TProduct); virtual;
Public
Published
Property batchId : integer Index 0 Read FbatchId Write SetbatchId;
@@ -2682,7 +4169,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TProductsListResponseTyperesourcesArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TProductsListResponseTyperesourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2704,7 +4191,7 @@ type
Fentries : TProductstatusesCustomBatchRequestTypeentriesArray;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TProductstatusesCustomBatchRequestTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TProductstatusesCustomBatchRequestTypeentriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2727,7 +4214,7 @@ type
FproductId : String;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmerchantId(AIndex : Integer; const AValue : String); virtual;
Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
@@ -2750,7 +4237,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TProductstatusesCustomBatchResponseTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TProductstatusesCustomBatchResponseTypeentriesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2775,10 +4262,10 @@ type
FproductStatus : TProductStatus;
Protected
//Property setters
- Procedure SetbatchId(AIndex : Integer; AValue : integer); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TErrors); virtual;
+ Procedure SetbatchId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TErrors); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetproductStatus(AIndex : Integer; AValue : TProductStatus); virtual;
+ Procedure SetproductStatus(AIndex : Integer; const AValue : TProductStatus); virtual;
Public
Published
Property batchId : integer Index 0 Read FbatchId Write SetbatchId;
@@ -2801,7 +4288,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TProductstatusesListResponseTyperesourcesArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TProductstatusesListResponseTyperesourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2815,6 +4302,185 @@ type
TProductstatusesListResponseClass = Class of TProductstatusesListResponse;
{ --------------------------------------------------------------------
+ TTestOrder
+ --------------------------------------------------------------------}
+
+ TTestOrder = Class(TGoogleBaseObject)
+ Private
+ Fcustomer : TTestOrderCustomer;
+ Fkind : String;
+ FlineItems : TTestOrderTypelineItemsArray;
+ FpaymentMethod : TTestOrderPaymentMethod;
+ FpredefinedDeliveryAddress : String;
+ Fpromotions : TTestOrderTypepromotionsArray;
+ FshippingCost : TPrice;
+ FshippingCostTax : TPrice;
+ FshippingOption : String;
+ Protected
+ //Property setters
+ Procedure Setcustomer(AIndex : Integer; const AValue : TTestOrderCustomer); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlineItems(AIndex : Integer; const AValue : TTestOrderTypelineItemsArray); virtual;
+ Procedure SetpaymentMethod(AIndex : Integer; const AValue : TTestOrderPaymentMethod); virtual;
+ Procedure SetpredefinedDeliveryAddress(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpromotions(AIndex : Integer; const AValue : TTestOrderTypepromotionsArray); virtual;
+ Procedure SetshippingCost(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetshippingCostTax(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SetshippingOption(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 customer : TTestOrderCustomer Index 0 Read Fcustomer Write Setcustomer;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property lineItems : TTestOrderTypelineItemsArray Index 16 Read FlineItems Write SetlineItems;
+ Property paymentMethod : TTestOrderPaymentMethod Index 24 Read FpaymentMethod Write SetpaymentMethod;
+ Property predefinedDeliveryAddress : String Index 32 Read FpredefinedDeliveryAddress Write SetpredefinedDeliveryAddress;
+ Property promotions : TTestOrderTypepromotionsArray Index 40 Read Fpromotions Write Setpromotions;
+ Property shippingCost : TPrice Index 48 Read FshippingCost Write SetshippingCost;
+ Property shippingCostTax : TPrice Index 56 Read FshippingCostTax Write SetshippingCostTax;
+ Property shippingOption : String Index 64 Read FshippingOption Write SetshippingOption;
+ end;
+ TTestOrderClass = Class of TTestOrder;
+
+ { --------------------------------------------------------------------
+ TTestOrderCustomer
+ --------------------------------------------------------------------}
+
+ TTestOrderCustomer = Class(TGoogleBaseObject)
+ Private
+ Femail : String;
+ FexplicitMarketingPreference : boolean;
+ FfullName : String;
+ Protected
+ //Property setters
+ Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexplicitMarketingPreference(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetfullName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property email : String Index 0 Read Femail Write Setemail;
+ Property explicitMarketingPreference : boolean Index 8 Read FexplicitMarketingPreference Write SetexplicitMarketingPreference;
+ Property fullName : String Index 16 Read FfullName Write SetfullName;
+ end;
+ TTestOrderCustomerClass = Class of TTestOrderCustomer;
+
+ { --------------------------------------------------------------------
+ TTestOrderLineItem
+ --------------------------------------------------------------------}
+
+ TTestOrderLineItem = Class(TGoogleBaseObject)
+ Private
+ Fproduct : TTestOrderLineItemProduct;
+ FquantityOrdered : integer;
+ FreturnInfo : TOrderLineItemReturnInfo;
+ FshippingDetails : TOrderLineItemShippingDetails;
+ FunitTax : TPrice;
+ Protected
+ //Property setters
+ Procedure Setproduct(AIndex : Integer; const AValue : TTestOrderLineItemProduct); virtual;
+ Procedure SetquantityOrdered(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetreturnInfo(AIndex : Integer; const AValue : TOrderLineItemReturnInfo); virtual;
+ Procedure SetshippingDetails(AIndex : Integer; const AValue : TOrderLineItemShippingDetails); virtual;
+ Procedure SetunitTax(AIndex : Integer; const AValue : TPrice); virtual;
+ Public
+ Published
+ Property product : TTestOrderLineItemProduct Index 0 Read Fproduct Write Setproduct;
+ Property quantityOrdered : integer Index 8 Read FquantityOrdered Write SetquantityOrdered;
+ Property returnInfo : TOrderLineItemReturnInfo Index 16 Read FreturnInfo Write SetreturnInfo;
+ Property shippingDetails : TOrderLineItemShippingDetails Index 24 Read FshippingDetails Write SetshippingDetails;
+ Property unitTax : TPrice Index 32 Read FunitTax Write SetunitTax;
+ end;
+ TTestOrderLineItemClass = Class of TTestOrderLineItem;
+
+ { --------------------------------------------------------------------
+ TTestOrderLineItemProduct
+ --------------------------------------------------------------------}
+
+ TTestOrderLineItemProduct = Class(TGoogleBaseObject)
+ Private
+ Fbrand : String;
+ Fchannel : String;
+ Fcondition : String;
+ FcontentLanguage : String;
+ Fgtin : String;
+ FimageLink : String;
+ FitemGroupId : String;
+ Fmpn : String;
+ FofferId : String;
+ Fprice : TPrice;
+ FtargetCountry : String;
+ Ftitle : String;
+ FvariantAttributes : TTestOrderLineItemProductTypevariantAttributesArray;
+ Protected
+ //Property setters
+ Procedure Setbrand(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setchannel(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcondition(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcontentLanguage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setgtin(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetimageLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetitemGroupId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmpn(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetofferId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setprice(AIndex : Integer; const AValue : TPrice); virtual;
+ Procedure SettargetCountry(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvariantAttributes(AIndex : Integer; const AValue : TTestOrderLineItemProductTypevariantAttributesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property brand : String Index 0 Read Fbrand Write Setbrand;
+ Property channel : String Index 8 Read Fchannel Write Setchannel;
+ Property condition : String Index 16 Read Fcondition Write Setcondition;
+ Property contentLanguage : String Index 24 Read FcontentLanguage Write SetcontentLanguage;
+ Property gtin : String Index 32 Read Fgtin Write Setgtin;
+ Property imageLink : String Index 40 Read FimageLink Write SetimageLink;
+ Property itemGroupId : String Index 48 Read FitemGroupId Write SetitemGroupId;
+ Property mpn : String Index 56 Read Fmpn Write Setmpn;
+ Property offerId : String Index 64 Read FofferId Write SetofferId;
+ Property price : TPrice Index 72 Read Fprice Write Setprice;
+ Property targetCountry : String Index 80 Read FtargetCountry Write SettargetCountry;
+ Property title : String Index 88 Read Ftitle Write Settitle;
+ Property variantAttributes : TTestOrderLineItemProductTypevariantAttributesArray Index 96 Read FvariantAttributes Write SetvariantAttributes;
+ end;
+ TTestOrderLineItemProductClass = Class of TTestOrderLineItemProduct;
+
+ { --------------------------------------------------------------------
+ TTestOrderPaymentMethod
+ --------------------------------------------------------------------}
+
+ TTestOrderPaymentMethod = Class(TGoogleBaseObject)
+ Private
+ FexpirationMonth : integer;
+ FexpirationYear : integer;
+ FlastFourDigits : String;
+ FpredefinedBillingAddress : String;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetexpirationMonth(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetexpirationYear(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetlastFourDigits(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpredefinedBillingAddress(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property expirationMonth : integer Index 0 Read FexpirationMonth Write SetexpirationMonth;
+ Property expirationYear : integer Index 8 Read FexpirationYear Write SetexpirationYear;
+ Property lastFourDigits : String Index 16 Read FlastFourDigits Write SetlastFourDigits;
+ Property predefinedBillingAddress : String Index 24 Read FpredefinedBillingAddress Write SetpredefinedBillingAddress;
+ Property _type : String Index 32 Read F_type Write Set_type;
+ end;
+ TTestOrderPaymentMethodClass = Class of TTestOrderPaymentMethod;
+
+ { --------------------------------------------------------------------
TWeight
--------------------------------------------------------------------}
@@ -2839,6 +4505,27 @@ type
--------------------------------------------------------------------}
+ //Optional query Options for TAccountsResource, method Custombatch
+
+ TAccountsCustombatchOptions = Record
+ dryRun : boolean;
+ end;
+
+
+ //Optional query Options for TAccountsResource, method Delete
+
+ TAccountsDeleteOptions = Record
+ dryRun : boolean;
+ end;
+
+
+ //Optional query Options for TAccountsResource, method Insert
+
+ TAccountsInsertOptions = Record
+ dryRun : boolean;
+ end;
+
+
//Optional query Options for TAccountsResource, method List
TAccountsListOptions = Record
@@ -2846,19 +4533,38 @@ type
pageToken : String;
end;
+
+ //Optional query Options for TAccountsResource, method Patch
+
+ TAccountsPatchOptions = Record
+ dryRun : boolean;
+ end;
+
+
+ //Optional query Options for TAccountsResource, method Update
+
+ TAccountsUpdateOptions = Record
+ dryRun : boolean;
+ end;
+
TAccountsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Authinfo : TAccountsAuthInfoResponse;
- Function Custombatch(aAccountsCustomBatchRequest : TAccountsCustomBatchRequest) : TAccountsCustomBatchResponse;
- Procedure Delete(accountId: string; merchantId: string);
+ Function Custombatch(aAccountsCustomBatchRequest : TAccountsCustomBatchRequest; AQuery : string = '') : TAccountsCustomBatchResponse;
+ Function Custombatch(aAccountsCustomBatchRequest : TAccountsCustomBatchRequest; AQuery : TAccountscustombatchOptions) : TAccountsCustomBatchResponse;
+ Procedure Delete(accountId: string; merchantId: string; AQuery : string = '');
+ Procedure Delete(accountId: string; merchantId: string; AQuery : TAccountsdeleteOptions);
Function Get(accountId: string; merchantId: string) : TAccount;
- Function Insert(merchantId: string; aAccount : TAccount) : TAccount;
+ Function Insert(merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount;
+ Function Insert(merchantId: string; aAccount : TAccount; AQuery : TAccountsinsertOptions) : TAccount;
Function List(merchantId: string; AQuery : string = '') : TAccountsListResponse;
Function List(merchantId: string; AQuery : TAccountslistOptions) : TAccountsListResponse;
- Function Patch(accountId: string; merchantId: string; aAccount : TAccount) : TAccount;
- Function Update(accountId: string; merchantId: string; aAccount : TAccount) : TAccount;
+ Function Patch(accountId: string; merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount;
+ Function Patch(accountId: string; merchantId: string; aAccount : TAccount; AQuery : TAccountspatchOptions) : TAccount;
+ Function Update(accountId: string; merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount;
+ Function Update(accountId: string; merchantId: string; aAccount : TAccount; AQuery : TAccountsupdateOptions) : TAccount;
end;
@@ -2988,6 +4694,27 @@ type
--------------------------------------------------------------------}
+ //Optional query Options for TDatafeedsResource, method Custombatch
+
+ TDatafeedsCustombatchOptions = Record
+ dryRun : boolean;
+ end;
+
+
+ //Optional query Options for TDatafeedsResource, method Delete
+
+ TDatafeedsDeleteOptions = Record
+ dryRun : boolean;
+ end;
+
+
+ //Optional query Options for TDatafeedsResource, method Insert
+
+ TDatafeedsInsertOptions = Record
+ dryRun : boolean;
+ end;
+
+
//Optional query Options for TDatafeedsResource, method List
TDatafeedsListOptions = Record
@@ -2995,18 +4722,37 @@ type
pageToken : String;
end;
+
+ //Optional query Options for TDatafeedsResource, method Patch
+
+ TDatafeedsPatchOptions = Record
+ dryRun : boolean;
+ end;
+
+
+ //Optional query Options for TDatafeedsResource, method Update
+
+ TDatafeedsUpdateOptions = Record
+ dryRun : boolean;
+ end;
+
TDatafeedsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Custombatch(aDatafeedsCustomBatchRequest : TDatafeedsCustomBatchRequest) : TDatafeedsCustomBatchResponse;
- Procedure Delete(datafeedId: string; merchantId: string);
+ Function Custombatch(aDatafeedsCustomBatchRequest : TDatafeedsCustomBatchRequest; AQuery : string = '') : TDatafeedsCustomBatchResponse;
+ Function Custombatch(aDatafeedsCustomBatchRequest : TDatafeedsCustomBatchRequest; AQuery : TDatafeedscustombatchOptions) : TDatafeedsCustomBatchResponse;
+ Procedure Delete(datafeedId: string; merchantId: string; AQuery : string = '');
+ Procedure Delete(datafeedId: string; merchantId: string; AQuery : TDatafeedsdeleteOptions);
Function Get(datafeedId: string; merchantId: string) : TDatafeed;
- Function Insert(merchantId: string; aDatafeed : TDatafeed) : TDatafeed;
+ Function Insert(merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed;
+ Function Insert(merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedsinsertOptions) : TDatafeed;
Function List(merchantId: string; AQuery : string = '') : TDatafeedsListResponse;
Function List(merchantId: string; AQuery : TDatafeedslistOptions) : TDatafeedsListResponse;
- Function Patch(datafeedId: string; merchantId: string; aDatafeed : TDatafeed) : TDatafeed;
- Function Update(datafeedId: string; merchantId: string; aDatafeed : TDatafeed) : TDatafeed;
+ Function Patch(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed;
+ Function Patch(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedspatchOptions) : TDatafeed;
+ Function Update(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed;
+ Function Update(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedsupdateOptions) : TDatafeed;
end;
@@ -3037,12 +4783,68 @@ type
TInventoryResource
--------------------------------------------------------------------}
+
+ //Optional query Options for TInventoryResource, method Custombatch
+
+ TInventoryCustombatchOptions = Record
+ dryRun : boolean;
+ end;
+
+
+ //Optional query Options for TInventoryResource, method Set
+
+ TInventorySetOptions = Record
+ dryRun : boolean;
+ end;
+
TInventoryResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Custombatch(aInventoryCustomBatchRequest : TInventoryCustomBatchRequest) : TInventoryCustomBatchResponse;
- Function _set(merchantId: string; productId: string; storeCode: string; aInventorySetRequest : TInventorySetRequest) : TInventorySetResponse;
+ Function Custombatch(aInventoryCustomBatchRequest : TInventoryCustomBatchRequest; AQuery : string = '') : TInventoryCustomBatchResponse;
+ Function Custombatch(aInventoryCustomBatchRequest : TInventoryCustomBatchRequest; AQuery : TInventorycustombatchOptions) : TInventoryCustomBatchResponse;
+ Function _set(merchantId: string; productId: string; storeCode: string; aInventorySetRequest : TInventorySetRequest; AQuery : string = '') : TInventorySetResponse;
+ Function _set(merchantId: string; productId: string; storeCode: string; aInventorySetRequest : TInventorySetRequest; AQuery : TInventorysetOptions) : TInventorySetResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TOrdersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TOrdersResource, method List
+
+ TOrdersListOptions = Record
+ acknowledged : boolean;
+ maxResults : integer;
+ orderBy : String;
+ pageToken : String;
+ placedDateEnd : String;
+ placedDateStart : String;
+ statuses : String;
+ end;
+
+ TOrdersResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Acknowledge(merchantId: string; orderId: string; aOrdersAcknowledgeRequest : TOrdersAcknowledgeRequest) : TOrdersAcknowledgeResponse;
+ Function Advancetestorder(merchantId: string; orderId: string) : TOrdersAdvanceTestOrderResponse;
+ Function Cancel(merchantId: string; orderId: string; aOrdersCancelRequest : TOrdersCancelRequest) : TOrdersCancelResponse;
+ Function Cancellineitem(merchantId: string; orderId: string; aOrdersCancelLineItemRequest : TOrdersCancelLineItemRequest) : TOrdersCancelLineItemResponse;
+ Function Createtestorder(merchantId: string; aOrdersCreateTestOrderRequest : TOrdersCreateTestOrderRequest) : TOrdersCreateTestOrderResponse;
+ Function Custombatch(aOrdersCustomBatchRequest : TOrdersCustomBatchRequest) : TOrdersCustomBatchResponse;
+ Function Get(merchantId: string; orderId: string) : TOrder;
+ Function Getbymerchantorderid(merchantId: string; merchantOrderId: string) : TOrdersGetByMerchantOrderIdResponse;
+ Function Gettestordertemplate(merchantId: string; templateName: string) : TOrdersGetTestOrderTemplateResponse;
+ Function List(merchantId: string; AQuery : string = '') : TOrdersListResponse;
+ Function List(merchantId: string; AQuery : TOrderslistOptions) : TOrdersListResponse;
+ Function Refund(merchantId: string; orderId: string; aOrdersRefundRequest : TOrdersRefundRequest) : TOrdersRefundResponse;
+ Function Returnlineitem(merchantId: string; orderId: string; aOrdersReturnLineItemRequest : TOrdersReturnLineItemRequest) : TOrdersReturnLineItemResponse;
+ Function Shiplineitems(merchantId: string; orderId: string; aOrdersShipLineItemsRequest : TOrdersShipLineItemsRequest) : TOrdersShipLineItemsResponse;
+ Function Updatemerchantorderid(merchantId: string; orderId: string; aOrdersUpdateMerchantOrderIdRequest : TOrdersUpdateMerchantOrderIdRequest) : TOrdersUpdateMerchantOrderIdResponse;
+ Function Updateshipment(merchantId: string; orderId: string; aOrdersUpdateShipmentRequest : TOrdersUpdateShipmentRequest) : TOrdersUpdateShipmentResponse;
end;
@@ -3075,6 +4877,7 @@ type
//Optional query Options for TProductsResource, method List
TProductsListOptions = Record
+ includeInvalidInsertedItems : boolean;
maxResults : integer;
pageToken : String;
end;
@@ -3103,6 +4906,7 @@ type
//Optional query Options for TProductstatusesResource, method List
TProductstatusesListOptions = Record
+ includeInvalidInsertedItems : boolean;
maxResults : integer;
pageToken : String;
end;
@@ -3131,6 +4935,7 @@ type
FDatafeedsInstance : TDatafeedsResource;
FDatafeedstatusesInstance : TDatafeedstatusesResource;
FInventoryInstance : TInventoryResource;
+ FOrdersInstance : TOrdersResource;
FProductsInstance : TProductsResource;
FProductstatusesInstance : TProductstatusesResource;
Function GetAccountsInstance : TAccountsResource;virtual;
@@ -3140,6 +4945,7 @@ type
Function GetDatafeedsInstance : TDatafeedsResource;virtual;
Function GetDatafeedstatusesInstance : TDatafeedstatusesResource;virtual;
Function GetInventoryInstance : TInventoryResource;virtual;
+ Function GetOrdersInstance : TOrdersResource;virtual;
Function GetProductsInstance : TProductsResource;virtual;
Function GetProductstatusesInstance : TProductstatusesResource;virtual;
Public
@@ -3179,6 +4985,8 @@ type
Function CreateDatafeedstatusesResource : TDatafeedstatusesResource;virtual;overload;
Function CreateInventoryResource(AOwner : TComponent) : TInventoryResource;virtual;overload;
Function CreateInventoryResource : TInventoryResource;virtual;overload;
+ Function CreateOrdersResource(AOwner : TComponent) : TOrdersResource;virtual;overload;
+ Function CreateOrdersResource : TOrdersResource;virtual;overload;
Function CreateProductsResource(AOwner : TComponent) : TProductsResource;virtual;overload;
Function CreateProductsResource : TProductsResource;virtual;overload;
Function CreateProductstatusesResource(AOwner : TComponent) : TProductstatusesResource;virtual;overload;
@@ -3191,6 +4999,7 @@ type
Property DatafeedsResource : TDatafeedsResource Read GetDatafeedsInstance;
Property DatafeedstatusesResource : TDatafeedstatusesResource Read GetDatafeedstatusesInstance;
Property InventoryResource : TInventoryResource Read GetInventoryInstance;
+ Property OrdersResource : TOrdersResource Read GetOrdersInstance;
Property ProductsResource : TProductsResource Read GetProductsInstance;
Property ProductstatusesResource : TProductstatusesResource Read GetProductstatusesInstance;
end;
@@ -3203,7 +5012,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TAccount.SetadultContent(AIndex : Integer; AValue : boolean);
+Procedure TAccount.SetadultContent(AIndex : Integer; const AValue : boolean);
begin
If (FadultContent=AValue) then exit;
@@ -3213,7 +5022,7 @@ end;
-Procedure TAccount.SetadwordsLinks(AIndex : Integer; AValue : TAccountTypeadwordsLinksArray);
+Procedure TAccount.SetadwordsLinks(AIndex : Integer; const AValue : TAccountTypeadwordsLinksArray);
begin
If (FadwordsLinks=AValue) then exit;
@@ -3273,7 +5082,7 @@ end;
-Procedure TAccount.Setusers(AIndex : Integer; AValue : TAccountTypeusersArray);
+Procedure TAccount.Setusers(AIndex : Integer; const AValue : TAccountTypeusersArray);
begin
If (Fusers=AValue) then exit;
@@ -3378,7 +5187,7 @@ end;
-Procedure TAccountShipping.SetcarrierRates(AIndex : Integer; AValue : TAccountShippingTypecarrierRatesArray);
+Procedure TAccountShipping.SetcarrierRates(AIndex : Integer; const AValue : TAccountShippingTypecarrierRatesArray);
begin
If (FcarrierRates=AValue) then exit;
@@ -3398,7 +5207,7 @@ end;
-Procedure TAccountShipping.SetlocationGroups(AIndex : Integer; AValue : TAccountShippingTypelocationGroupsArray);
+Procedure TAccountShipping.SetlocationGroups(AIndex : Integer; const AValue : TAccountShippingTypelocationGroupsArray);
begin
If (FlocationGroups=AValue) then exit;
@@ -3408,7 +5217,7 @@ end;
-Procedure TAccountShipping.SetrateTables(AIndex : Integer; AValue : TAccountShippingTyperateTablesArray);
+Procedure TAccountShipping.SetrateTables(AIndex : Integer; const AValue : TAccountShippingTyperateTablesArray);
begin
If (FrateTables=AValue) then exit;
@@ -3418,7 +5227,7 @@ end;
-Procedure TAccountShipping.Setservices(AIndex : Integer; AValue : TAccountShippingTypeservicesArray);
+Procedure TAccountShipping.Setservices(AIndex : Integer; const AValue : TAccountShippingTypeservicesArray);
begin
If (Fservices=AValue) then exit;
@@ -3471,7 +5280,7 @@ end;
-Procedure TAccountShippingCarrierRate.SetmodifierFlatRate(AIndex : Integer; AValue : TPrice);
+Procedure TAccountShippingCarrierRate.SetmodifierFlatRate(AIndex : Integer; const AValue : TPrice);
begin
If (FmodifierFlatRate=AValue) then exit;
@@ -3558,7 +5367,7 @@ end;
-Procedure TAccountShippingCondition.SetdeliveryPostalCodeRange(AIndex : Integer; AValue : TAccountShippingPostalCodeRange);
+Procedure TAccountShippingCondition.SetdeliveryPostalCodeRange(AIndex : Integer; const AValue : TAccountShippingPostalCodeRange);
begin
If (FdeliveryPostalCodeRange=AValue) then exit;
@@ -3568,7 +5377,7 @@ end;
-Procedure TAccountShippingCondition.SetpriceMax(AIndex : Integer; AValue : TPrice);
+Procedure TAccountShippingCondition.SetpriceMax(AIndex : Integer; const AValue : TPrice);
begin
If (FpriceMax=AValue) then exit;
@@ -3588,7 +5397,7 @@ end;
-Procedure TAccountShippingCondition.SetweightMax(AIndex : Integer; AValue : TWeight);
+Procedure TAccountShippingCondition.SetweightMax(AIndex : Integer; const AValue : TWeight);
begin
If (FweightMax=AValue) then exit;
@@ -3615,7 +5424,7 @@ end;
-Procedure TAccountShippingLocationGroup.SetlocationIds(AIndex : Integer; AValue : TStringArray);
+Procedure TAccountShippingLocationGroup.SetlocationIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FlocationIds=AValue) then exit;
@@ -3635,7 +5444,7 @@ end;
-Procedure TAccountShippingLocationGroup.SetpostalCodeRanges(AIndex : Integer; AValue : TAccountShippingLocationGroupTypepostalCodeRangesArray);
+Procedure TAccountShippingLocationGroup.SetpostalCodeRanges(AIndex : Integer; const AValue : TAccountShippingLocationGroupTypepostalCodeRangesArray);
begin
If (FpostalCodeRanges=AValue) then exit;
@@ -3645,7 +5454,7 @@ end;
-Procedure TAccountShippingLocationGroup.SetpostalCodes(AIndex : Integer; AValue : TStringArray);
+Procedure TAccountShippingLocationGroup.SetpostalCodes(AIndex : Integer; const AValue : TStringArray);
begin
If (FpostalCodes=AValue) then exit;
@@ -3715,7 +5524,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountShippingRateTable.Setcontent(AIndex : Integer; AValue : TAccountShippingRateTableTypecontentArray);
+Procedure TAccountShippingRateTable.Setcontent(AIndex : Integer; const AValue : TAccountShippingRateTableTypecontentArray);
begin
If (Fcontent=AValue) then exit;
@@ -3765,7 +5574,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountShippingRateTableCell.Setcondition(AIndex : Integer; AValue : TAccountShippingCondition);
+Procedure TAccountShippingRateTableCell.Setcondition(AIndex : Integer; const AValue : TAccountShippingCondition);
begin
If (Fcondition=AValue) then exit;
@@ -3775,7 +5584,7 @@ end;
-Procedure TAccountShippingRateTableCell.Setrate(AIndex : Integer; AValue : TPrice);
+Procedure TAccountShippingRateTableCell.Setrate(AIndex : Integer; const AValue : TPrice);
begin
If (Frate=AValue) then exit;
@@ -3792,7 +5601,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountShippingShippingService.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TAccountShippingShippingService.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -3802,7 +5611,7 @@ end;
-Procedure TAccountShippingShippingService.SetcalculationMethod(AIndex : Integer; AValue : TAccountShippingShippingServiceCalculationMethod);
+Procedure TAccountShippingShippingService.SetcalculationMethod(AIndex : Integer; const AValue : TAccountShippingShippingServiceCalculationMethod);
begin
If (FcalculationMethod=AValue) then exit;
@@ -3812,7 +5621,7 @@ end;
-Procedure TAccountShippingShippingService.SetcostRuleTree(AIndex : Integer; AValue : TAccountShippingShippingServiceCostRule);
+Procedure TAccountShippingShippingService.SetcostRuleTree(AIndex : Integer; const AValue : TAccountShippingShippingServiceCostRule);
begin
If (FcostRuleTree=AValue) then exit;
@@ -3859,7 +5668,7 @@ end;
-Procedure TAccountShippingShippingServiceCalculationMethod.Setexcluded(AIndex : Integer; AValue : boolean);
+Procedure TAccountShippingShippingServiceCalculationMethod.Setexcluded(AIndex : Integer; const AValue : boolean);
begin
If (Fexcluded=AValue) then exit;
@@ -3869,7 +5678,7 @@ end;
-Procedure TAccountShippingShippingServiceCalculationMethod.SetflatRate(AIndex : Integer; AValue : TPrice);
+Procedure TAccountShippingShippingServiceCalculationMethod.SetflatRate(AIndex : Integer; const AValue : TPrice);
begin
If (FflatRate=AValue) then exit;
@@ -3906,7 +5715,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountShippingShippingServiceCostRule.SetcalculationMethod(AIndex : Integer; AValue : TAccountShippingShippingServiceCalculationMethod);
+Procedure TAccountShippingShippingServiceCostRule.SetcalculationMethod(AIndex : Integer; const AValue : TAccountShippingShippingServiceCalculationMethod);
begin
If (FcalculationMethod=AValue) then exit;
@@ -3916,7 +5725,7 @@ end;
-Procedure TAccountShippingShippingServiceCostRule.Setchildren(AIndex : Integer; AValue : TAccountShippingShippingServiceCostRuleTypechildrenArray);
+Procedure TAccountShippingShippingServiceCostRule.Setchildren(AIndex : Integer; const AValue : TAccountShippingShippingServiceCostRuleTypechildrenArray);
begin
If (Fchildren=AValue) then exit;
@@ -3926,7 +5735,7 @@ end;
-Procedure TAccountShippingShippingServiceCostRule.Setcondition(AIndex : Integer; AValue : TAccountShippingCondition);
+Procedure TAccountShippingShippingServiceCostRule.Setcondition(AIndex : Integer; const AValue : TAccountShippingCondition);
begin
If (Fcondition=AValue) then exit;
@@ -3966,7 +5775,7 @@ end;
-Procedure TAccountStatus.SetdataQualityIssues(AIndex : Integer; AValue : TAccountStatusTypedataQualityIssuesArray);
+Procedure TAccountStatus.SetdataQualityIssues(AIndex : Integer; const AValue : TAccountStatusTypedataQualityIssuesArray);
begin
If (FdataQualityIssues=AValue) then exit;
@@ -4026,7 +5835,7 @@ end;
-Procedure TAccountStatusDataQualityIssue.SetexampleItems(AIndex : Integer; AValue : TAccountStatusDataQualityIssueTypeexampleItemsArray);
+Procedure TAccountStatusDataQualityIssue.SetexampleItems(AIndex : Integer; const AValue : TAccountStatusDataQualityIssueTypeexampleItemsArray);
begin
If (FexampleItems=AValue) then exit;
@@ -4056,7 +5865,7 @@ end;
-Procedure TAccountStatusDataQualityIssue.SetnumItems(AIndex : Integer; AValue : integer);
+Procedure TAccountStatusDataQualityIssue.SetnumItems(AIndex : Integer; const AValue : integer);
begin
If (FnumItems=AValue) then exit;
@@ -4183,7 +5992,7 @@ end;
-Procedure TAccountTax.Setrules(AIndex : Integer; AValue : TAccountTaxTyperulesArray);
+Procedure TAccountTax.Setrules(AIndex : Integer; const AValue : TAccountTaxTyperulesArray);
begin
If (Frules=AValue) then exit;
@@ -4243,7 +6052,7 @@ end;
-Procedure TAccountTaxTaxRule.SetshippingTaxed(AIndex : Integer; AValue : boolean);
+Procedure TAccountTaxTaxRule.SetshippingTaxed(AIndex : Integer; const AValue : boolean);
begin
If (FshippingTaxed=AValue) then exit;
@@ -4253,7 +6062,7 @@ end;
-Procedure TAccountTaxTaxRule.SetuseGlobalRate(AIndex : Integer; AValue : boolean);
+Procedure TAccountTaxTaxRule.SetuseGlobalRate(AIndex : Integer; const AValue : boolean);
begin
If (FuseGlobalRate=AValue) then exit;
@@ -4270,7 +6079,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountUser.Setadmin(AIndex : Integer; AValue : boolean);
+Procedure TAccountUser.Setadmin(AIndex : Integer; const AValue : boolean);
begin
If (Fadmin=AValue) then exit;
@@ -4297,7 +6106,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountsAuthInfoResponse.SetaccountIdentifiers(AIndex : Integer; AValue : TAccountsAuthInfoResponseTypeaccountIdentifiersArray);
+Procedure TAccountsAuthInfoResponse.SetaccountIdentifiers(AIndex : Integer; const AValue : TAccountsAuthInfoResponseTypeaccountIdentifiersArray);
begin
If (FaccountIdentifiers=AValue) then exit;
@@ -4337,7 +6146,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountsCustomBatchRequest.Setentries(AIndex : Integer; AValue : TAccountsCustomBatchRequestTypeentriesArray);
+Procedure TAccountsCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TAccountsCustomBatchRequestTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -4367,7 +6176,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountsCustomBatchRequestEntry.Setaccount(AIndex : Integer; AValue : TAccount);
+Procedure TAccountsCustomBatchRequestEntry.Setaccount(AIndex : Integer; const AValue : TAccount);
begin
If (Faccount=AValue) then exit;
@@ -4387,7 +6196,7 @@ end;
-Procedure TAccountsCustomBatchRequestEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TAccountsCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -4424,7 +6233,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountsCustomBatchResponse.Setentries(AIndex : Integer; AValue : TAccountsCustomBatchResponseTypeentriesArray);
+Procedure TAccountsCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TAccountsCustomBatchResponseTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -4464,7 +6273,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountsCustomBatchResponseEntry.Setaccount(AIndex : Integer; AValue : TAccount);
+Procedure TAccountsCustomBatchResponseEntry.Setaccount(AIndex : Integer; const AValue : TAccount);
begin
If (Faccount=AValue) then exit;
@@ -4474,7 +6283,7 @@ end;
-Procedure TAccountsCustomBatchResponseEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TAccountsCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -4484,7 +6293,7 @@ end;
-Procedure TAccountsCustomBatchResponseEntry.Seterrors(AIndex : Integer; AValue : TErrors);
+Procedure TAccountsCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors);
begin
If (Ferrors=AValue) then exit;
@@ -4531,7 +6340,7 @@ end;
-Procedure TAccountsListResponse.Setresources(AIndex : Integer; AValue : TAccountsListResponseTyperesourcesArray);
+Procedure TAccountsListResponse.Setresources(AIndex : Integer; const AValue : TAccountsListResponseTyperesourcesArray);
begin
If (Fresources=AValue) then exit;
@@ -4561,7 +6370,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountshippingCustomBatchRequest.Setentries(AIndex : Integer; AValue : TAccountshippingCustomBatchRequestTypeentriesArray);
+Procedure TAccountshippingCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TAccountshippingCustomBatchRequestTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -4601,7 +6410,7 @@ end;
-Procedure TAccountshippingCustomBatchRequestEntry.SetaccountShipping(AIndex : Integer; AValue : TAccountShipping);
+Procedure TAccountshippingCustomBatchRequestEntry.SetaccountShipping(AIndex : Integer; const AValue : TAccountShipping);
begin
If (FaccountShipping=AValue) then exit;
@@ -4611,7 +6420,7 @@ end;
-Procedure TAccountshippingCustomBatchRequestEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TAccountshippingCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -4648,7 +6457,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountshippingCustomBatchResponse.Setentries(AIndex : Integer; AValue : TAccountshippingCustomBatchResponseTypeentriesArray);
+Procedure TAccountshippingCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TAccountshippingCustomBatchResponseTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -4688,7 +6497,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountshippingCustomBatchResponseEntry.SetaccountShipping(AIndex : Integer; AValue : TAccountShipping);
+Procedure TAccountshippingCustomBatchResponseEntry.SetaccountShipping(AIndex : Integer; const AValue : TAccountShipping);
begin
If (FaccountShipping=AValue) then exit;
@@ -4698,7 +6507,7 @@ end;
-Procedure TAccountshippingCustomBatchResponseEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TAccountshippingCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -4708,7 +6517,7 @@ end;
-Procedure TAccountshippingCustomBatchResponseEntry.Seterrors(AIndex : Integer; AValue : TErrors);
+Procedure TAccountshippingCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors);
begin
If (Ferrors=AValue) then exit;
@@ -4755,7 +6564,7 @@ end;
-Procedure TAccountshippingListResponse.Setresources(AIndex : Integer; AValue : TAccountshippingListResponseTyperesourcesArray);
+Procedure TAccountshippingListResponse.Setresources(AIndex : Integer; const AValue : TAccountshippingListResponseTyperesourcesArray);
begin
If (Fresources=AValue) then exit;
@@ -4785,7 +6594,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountstatusesCustomBatchRequest.Setentries(AIndex : Integer; AValue : TAccountstatusesCustomBatchRequestTypeentriesArray);
+Procedure TAccountstatusesCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TAccountstatusesCustomBatchRequestTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -4825,7 +6634,7 @@ end;
-Procedure TAccountstatusesCustomBatchRequestEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TAccountstatusesCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -4862,7 +6671,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountstatusesCustomBatchResponse.Setentries(AIndex : Integer; AValue : TAccountstatusesCustomBatchResponseTypeentriesArray);
+Procedure TAccountstatusesCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TAccountstatusesCustomBatchResponseTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -4902,7 +6711,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountstatusesCustomBatchResponseEntry.SetaccountStatus(AIndex : Integer; AValue : TAccountStatus);
+Procedure TAccountstatusesCustomBatchResponseEntry.SetaccountStatus(AIndex : Integer; const AValue : TAccountStatus);
begin
If (FaccountStatus=AValue) then exit;
@@ -4912,7 +6721,7 @@ end;
-Procedure TAccountstatusesCustomBatchResponseEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TAccountstatusesCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -4922,7 +6731,7 @@ end;
-Procedure TAccountstatusesCustomBatchResponseEntry.Seterrors(AIndex : Integer; AValue : TErrors);
+Procedure TAccountstatusesCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors);
begin
If (Ferrors=AValue) then exit;
@@ -4959,7 +6768,7 @@ end;
-Procedure TAccountstatusesListResponse.Setresources(AIndex : Integer; AValue : TAccountstatusesListResponseTyperesourcesArray);
+Procedure TAccountstatusesListResponse.Setresources(AIndex : Integer; const AValue : TAccountstatusesListResponseTyperesourcesArray);
begin
If (Fresources=AValue) then exit;
@@ -4989,7 +6798,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccounttaxCustomBatchRequest.Setentries(AIndex : Integer; AValue : TAccounttaxCustomBatchRequestTypeentriesArray);
+Procedure TAccounttaxCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TAccounttaxCustomBatchRequestTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -5029,7 +6838,7 @@ end;
-Procedure TAccounttaxCustomBatchRequestEntry.SetaccountTax(AIndex : Integer; AValue : TAccountTax);
+Procedure TAccounttaxCustomBatchRequestEntry.SetaccountTax(AIndex : Integer; const AValue : TAccountTax);
begin
If (FaccountTax=AValue) then exit;
@@ -5039,7 +6848,7 @@ end;
-Procedure TAccounttaxCustomBatchRequestEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TAccounttaxCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -5076,7 +6885,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccounttaxCustomBatchResponse.Setentries(AIndex : Integer; AValue : TAccounttaxCustomBatchResponseTypeentriesArray);
+Procedure TAccounttaxCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TAccounttaxCustomBatchResponseTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -5116,7 +6925,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccounttaxCustomBatchResponseEntry.SetaccountTax(AIndex : Integer; AValue : TAccountTax);
+Procedure TAccounttaxCustomBatchResponseEntry.SetaccountTax(AIndex : Integer; const AValue : TAccountTax);
begin
If (FaccountTax=AValue) then exit;
@@ -5126,7 +6935,7 @@ end;
-Procedure TAccounttaxCustomBatchResponseEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TAccounttaxCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -5136,7 +6945,7 @@ end;
-Procedure TAccounttaxCustomBatchResponseEntry.Seterrors(AIndex : Integer; AValue : TErrors);
+Procedure TAccounttaxCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors);
begin
If (Ferrors=AValue) then exit;
@@ -5183,7 +6992,7 @@ end;
-Procedure TAccounttaxListResponse.Setresources(AIndex : Integer; AValue : TAccounttaxListResponseTyperesourcesArray);
+Procedure TAccounttaxListResponse.Setresources(AIndex : Integer; const AValue : TAccounttaxListResponseTyperesourcesArray);
begin
If (Fresources=AValue) then exit;
@@ -5243,7 +7052,7 @@ end;
-Procedure TDatafeed.SetfetchSchedule(AIndex : Integer; AValue : TDatafeedFetchSchedule);
+Procedure TDatafeed.SetfetchSchedule(AIndex : Integer; const AValue : TDatafeedFetchSchedule);
begin
If (FfetchSchedule=AValue) then exit;
@@ -5263,7 +7072,7 @@ end;
-Procedure TDatafeed.Setformat(AIndex : Integer; AValue : TDatafeedFormat);
+Procedure TDatafeed.Setformat(AIndex : Integer; const AValue : TDatafeedFormat);
begin
If (Fformat=AValue) then exit;
@@ -5283,7 +7092,7 @@ end;
-Procedure TDatafeed.SetintendedDestinations(AIndex : Integer; AValue : TStringArray);
+Procedure TDatafeed.SetintendedDestinations(AIndex : Integer; const AValue : TStringArray);
begin
If (FintendedDestinations=AValue) then exit;
@@ -5343,7 +7152,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatafeedFetchSchedule.SetdayOfMonth(AIndex : Integer; AValue : integer);
+Procedure TDatafeedFetchSchedule.SetdayOfMonth(AIndex : Integer; const AValue : integer);
begin
If (FdayOfMonth=AValue) then exit;
@@ -5363,7 +7172,7 @@ end;
-Procedure TDatafeedFetchSchedule.Sethour(AIndex : Integer; AValue : integer);
+Procedure TDatafeedFetchSchedule.Sethour(AIndex : Integer; const AValue : integer);
begin
If (Fhour=AValue) then exit;
@@ -5373,6 +7182,16 @@ end;
+Procedure TDatafeedFetchSchedule.SetminuteOfHour(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FminuteOfHour=AValue) then exit;
+ FminuteOfHour:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TDatafeedFetchSchedule.Setpassword(AIndex : Integer; const AValue : String);
begin
@@ -5467,7 +7286,7 @@ end;
-Procedure TDatafeedStatus.Seterrors(AIndex : Integer; AValue : TDatafeedStatusTypeerrorsArray);
+Procedure TDatafeedStatus.Seterrors(AIndex : Integer; const AValue : TDatafeedStatusTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -5527,7 +7346,7 @@ end;
-Procedure TDatafeedStatus.Setwarnings(AIndex : Integer; AValue : TDatafeedStatusTypewarningsArray);
+Procedure TDatafeedStatus.Setwarnings(AIndex : Integer; const AValue : TDatafeedStatusTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
@@ -5578,7 +7397,7 @@ end;
-Procedure TDatafeedStatusError.Setexamples(AIndex : Integer; AValue : TDatafeedStatusErrorTypeexamplesArray);
+Procedure TDatafeedStatusError.Setexamples(AIndex : Integer; const AValue : TDatafeedStatusErrorTypeexamplesArray);
begin
If (Fexamples=AValue) then exit;
@@ -5655,7 +7474,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatafeedsCustomBatchRequest.Setentries(AIndex : Integer; AValue : TDatafeedsCustomBatchRequestTypeentriesArray);
+Procedure TDatafeedsCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TDatafeedsCustomBatchRequestTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -5685,7 +7504,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatafeedsCustomBatchRequestEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TDatafeedsCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -5695,7 +7514,7 @@ end;
-Procedure TDatafeedsCustomBatchRequestEntry.Setdatafeed(AIndex : Integer; AValue : TDatafeed);
+Procedure TDatafeedsCustomBatchRequestEntry.Setdatafeed(AIndex : Integer; const AValue : TDatafeed);
begin
If (Fdatafeed=AValue) then exit;
@@ -5742,7 +7561,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatafeedsCustomBatchResponse.Setentries(AIndex : Integer; AValue : TDatafeedsCustomBatchResponseTypeentriesArray);
+Procedure TDatafeedsCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TDatafeedsCustomBatchResponseTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -5782,7 +7601,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatafeedsCustomBatchResponseEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TDatafeedsCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -5792,7 +7611,7 @@ end;
-Procedure TDatafeedsCustomBatchResponseEntry.Setdatafeed(AIndex : Integer; AValue : TDatafeed);
+Procedure TDatafeedsCustomBatchResponseEntry.Setdatafeed(AIndex : Integer; const AValue : TDatafeed);
begin
If (Fdatafeed=AValue) then exit;
@@ -5802,7 +7621,7 @@ end;
-Procedure TDatafeedsCustomBatchResponseEntry.Seterrors(AIndex : Integer; AValue : TErrors);
+Procedure TDatafeedsCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors);
begin
If (Ferrors=AValue) then exit;
@@ -5839,7 +7658,7 @@ end;
-Procedure TDatafeedsListResponse.Setresources(AIndex : Integer; AValue : TDatafeedsListResponseTyperesourcesArray);
+Procedure TDatafeedsListResponse.Setresources(AIndex : Integer; const AValue : TDatafeedsListResponseTyperesourcesArray);
begin
If (Fresources=AValue) then exit;
@@ -5869,7 +7688,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatafeedstatusesCustomBatchRequest.Setentries(AIndex : Integer; AValue : TDatafeedstatusesCustomBatchRequestTypeentriesArray);
+Procedure TDatafeedstatusesCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TDatafeedstatusesCustomBatchRequestTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -5899,7 +7718,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatafeedstatusesCustomBatchRequestEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TDatafeedstatusesCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -5946,7 +7765,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatafeedstatusesCustomBatchResponse.Setentries(AIndex : Integer; AValue : TDatafeedstatusesCustomBatchResponseTypeentriesArray);
+Procedure TDatafeedstatusesCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TDatafeedstatusesCustomBatchResponseTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -5986,7 +7805,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatafeedstatusesCustomBatchResponseEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TDatafeedstatusesCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -5996,7 +7815,7 @@ end;
-Procedure TDatafeedstatusesCustomBatchResponseEntry.SetdatafeedStatus(AIndex : Integer; AValue : TDatafeedStatus);
+Procedure TDatafeedstatusesCustomBatchResponseEntry.SetdatafeedStatus(AIndex : Integer; const AValue : TDatafeedStatus);
begin
If (FdatafeedStatus=AValue) then exit;
@@ -6006,7 +7825,7 @@ end;
-Procedure TDatafeedstatusesCustomBatchResponseEntry.Seterrors(AIndex : Integer; AValue : TErrors);
+Procedure TDatafeedstatusesCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors);
begin
If (Ferrors=AValue) then exit;
@@ -6043,7 +7862,7 @@ end;
-Procedure TDatafeedstatusesListResponse.Setresources(AIndex : Integer; AValue : TDatafeedstatusesListResponseTyperesourcesArray);
+Procedure TDatafeedstatusesListResponse.Setresources(AIndex : Integer; const AValue : TDatafeedstatusesListResponseTyperesourcesArray);
begin
If (Fresources=AValue) then exit;
@@ -6110,7 +7929,7 @@ end;
--------------------------------------------------------------------}
-Procedure TErrors.Setcode(AIndex : Integer; AValue : integer);
+Procedure TErrors.Setcode(AIndex : Integer; const AValue : integer);
begin
If (Fcode=AValue) then exit;
@@ -6120,7 +7939,7 @@ end;
-Procedure TErrors.Seterrors(AIndex : Integer; AValue : TErrorsTypeerrorsArray);
+Procedure TErrors.Seterrors(AIndex : Integer; const AValue : TErrorsTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -6156,6 +7975,33 @@ end;
{ --------------------------------------------------------------------
+ TInstallment
+ --------------------------------------------------------------------}
+
+
+Procedure TInstallment.Setamount(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Famount=AValue) then exit;
+ Famount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstallment.Setmonths(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmonths=AValue) then exit;
+ Fmonths:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TInventory
--------------------------------------------------------------------}
@@ -6170,6 +8016,16 @@ end;
+Procedure TInventory.Setinstallment(AIndex : Integer; const AValue : TInstallment);
+
+begin
+ If (Finstallment=AValue) then exit;
+ Finstallment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TInventory.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -6180,7 +8036,17 @@ end;
-Procedure TInventory.Setprice(AIndex : Integer; AValue : TPrice);
+Procedure TInventory.SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints);
+
+begin
+ If (FloyaltyPoints=AValue) then exit;
+ FloyaltyPoints:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInventory.Setprice(AIndex : Integer; const AValue : TPrice);
begin
If (Fprice=AValue) then exit;
@@ -6190,7 +8056,7 @@ end;
-Procedure TInventory.Setquantity(AIndex : Integer; AValue : integer);
+Procedure TInventory.Setquantity(AIndex : Integer; const AValue : integer);
begin
If (Fquantity=AValue) then exit;
@@ -6200,7 +8066,7 @@ end;
-Procedure TInventory.SetsalePrice(AIndex : Integer; AValue : TPrice);
+Procedure TInventory.SetsalePrice(AIndex : Integer; const AValue : TPrice);
begin
If (FsalePrice=AValue) then exit;
@@ -6220,6 +8086,16 @@ end;
+Procedure TInventory.SetsellOnGoogleQuantity(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsellOnGoogleQuantity=AValue) then exit;
+ FsellOnGoogleQuantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -6227,7 +8103,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInventoryCustomBatchRequest.Setentries(AIndex : Integer; AValue : TInventoryCustomBatchRequestTypeentriesArray);
+Procedure TInventoryCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TInventoryCustomBatchRequestTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -6257,7 +8133,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInventoryCustomBatchRequestEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TInventoryCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -6267,7 +8143,7 @@ end;
-Procedure TInventoryCustomBatchRequestEntry.Setinventory(AIndex : Integer; AValue : TInventory);
+Procedure TInventoryCustomBatchRequestEntry.Setinventory(AIndex : Integer; const AValue : TInventory);
begin
If (Finventory=AValue) then exit;
@@ -6314,7 +8190,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInventoryCustomBatchResponse.Setentries(AIndex : Integer; AValue : TInventoryCustomBatchResponseTypeentriesArray);
+Procedure TInventoryCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TInventoryCustomBatchResponseTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -6354,7 +8230,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInventoryCustomBatchResponseEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TInventoryCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -6364,7 +8240,7 @@ end;
-Procedure TInventoryCustomBatchResponseEntry.Seterrors(AIndex : Integer; AValue : TErrors);
+Procedure TInventoryCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors);
begin
If (Ferrors=AValue) then exit;
@@ -6401,7 +8277,27 @@ end;
-Procedure TInventorySetRequest.Setprice(AIndex : Integer; AValue : TPrice);
+Procedure TInventorySetRequest.Setinstallment(AIndex : Integer; const AValue : TInstallment);
+
+begin
+ If (Finstallment=AValue) then exit;
+ Finstallment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInventorySetRequest.SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints);
+
+begin
+ If (FloyaltyPoints=AValue) then exit;
+ FloyaltyPoints:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInventorySetRequest.Setprice(AIndex : Integer; const AValue : TPrice);
begin
If (Fprice=AValue) then exit;
@@ -6411,7 +8307,7 @@ end;
-Procedure TInventorySetRequest.Setquantity(AIndex : Integer; AValue : integer);
+Procedure TInventorySetRequest.Setquantity(AIndex : Integer; const AValue : integer);
begin
If (Fquantity=AValue) then exit;
@@ -6421,7 +8317,7 @@ end;
-Procedure TInventorySetRequest.SetsalePrice(AIndex : Integer; AValue : TPrice);
+Procedure TInventorySetRequest.SetsalePrice(AIndex : Integer; const AValue : TPrice);
begin
If (FsalePrice=AValue) then exit;
@@ -6441,6 +8337,16 @@ end;
+Procedure TInventorySetRequest.SetsellOnGoogleQuantity(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsellOnGoogleQuantity=AValue) then exit;
+ FsellOnGoogleQuantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -6485,7 +8391,7 @@ end;
-Procedure TLoyaltyPoints.Setratio(AIndex : Integer; AValue : double);
+Procedure TLoyaltyPoints.Setratio(AIndex : Integer; const AValue : double);
begin
If (Fratio=AValue) then exit;
@@ -6498,6 +8404,2699 @@ end;
{ --------------------------------------------------------------------
+ TOrder
+ --------------------------------------------------------------------}
+
+
+Procedure TOrder.Setacknowledged(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Facknowledged=AValue) then exit;
+ Facknowledged:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Setcustomer(AIndex : Integer; const AValue : TOrderCustomer);
+
+begin
+ If (Fcustomer=AValue) then exit;
+ Fcustomer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetdeliveryDetails(AIndex : Integer; const AValue : TOrderDeliveryDetails);
+
+begin
+ If (FdeliveryDetails=AValue) then exit;
+ FdeliveryDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetlineItems(AIndex : Integer; const AValue : TOrderTypelineItemsArray);
+
+begin
+ If (FlineItems=AValue) then exit;
+ FlineItems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetmerchantId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmerchantId=AValue) then exit;
+ FmerchantId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetmerchantOrderId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmerchantOrderId=AValue) then exit;
+ FmerchantOrderId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetnetAmount(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (FnetAmount=AValue) then exit;
+ FnetAmount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetpaymentMethod(AIndex : Integer; const AValue : TOrderPaymentMethod);
+
+begin
+ If (FpaymentMethod=AValue) then exit;
+ FpaymentMethod:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetpaymentStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpaymentStatus=AValue) then exit;
+ FpaymentStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetplacedDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FplacedDate=AValue) then exit;
+ FplacedDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Setpromotions(AIndex : Integer; const AValue : TOrderTypepromotionsArray);
+
+begin
+ If (Fpromotions=AValue) then exit;
+ Fpromotions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Setrefunds(AIndex : Integer; const AValue : TOrderTyperefundsArray);
+
+begin
+ If (Frefunds=AValue) then exit;
+ Frefunds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Setshipments(AIndex : Integer; const AValue : TOrderTypeshipmentsArray);
+
+begin
+ If (Fshipments=AValue) then exit;
+ Fshipments:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetshippingCost(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (FshippingCost=AValue) then exit;
+ FshippingCost:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetshippingCostTax(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (FshippingCostTax=AValue) then exit;
+ FshippingCostTax:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetshippingOption(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshippingOption=AValue) then exit;
+ FshippingOption:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOrder.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'lineitems' : SetLength(FlineItems,ALength);
+ 'promotions' : SetLength(Fpromotions,ALength);
+ 'refunds' : SetLength(Frefunds,ALength);
+ 'shipments' : SetLength(Fshipments,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderAddress
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderAddress.Setcountry(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcountry=AValue) then exit;
+ Fcountry:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderAddress.SetfullAddress(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FfullAddress=AValue) then exit;
+ FfullAddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderAddress.SetisPostOfficeBox(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisPostOfficeBox=AValue) then exit;
+ FisPostOfficeBox:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderAddress.Setlocality(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocality=AValue) then exit;
+ Flocality:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderAddress.SetpostalCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpostalCode=AValue) then exit;
+ FpostalCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderAddress.SetrecipientName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrecipientName=AValue) then exit;
+ FrecipientName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderAddress.Setregion(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fregion=AValue) then exit;
+ Fregion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderAddress.SetstreetAddress(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FstreetAddress=AValue) then exit;
+ FstreetAddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOrderAddress.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'fulladdress' : SetLength(FfullAddress,ALength);
+ 'streetaddress' : SetLength(FstreetAddress,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderCancellation
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderCancellation.Setactor(AIndex : Integer; const AValue : String);
+
+begin
+ If (Factor=AValue) then exit;
+ Factor:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderCancellation.SetcreationDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationDate=AValue) then exit;
+ FcreationDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderCancellation.Setquantity(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fquantity=AValue) then exit;
+ Fquantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderCancellation.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderCancellation.SetreasonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreasonText=AValue) then exit;
+ FreasonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderCustomer
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderCustomer.Setemail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Femail=AValue) then exit;
+ Femail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderCustomer.SetexplicitMarketingPreference(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FexplicitMarketingPreference=AValue) then exit;
+ FexplicitMarketingPreference:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderCustomer.SetfullName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfullName=AValue) then exit;
+ FfullName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderDeliveryDetails
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderDeliveryDetails.Setaddress(AIndex : Integer; const AValue : TOrderAddress);
+
+begin
+ If (Faddress=AValue) then exit;
+ Faddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderDeliveryDetails.SetphoneNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphoneNumber=AValue) then exit;
+ FphoneNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderLineItem
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderLineItem.Setcancellations(AIndex : Integer; const AValue : TOrderLineItemTypecancellationsArray);
+
+begin
+ If (Fcancellations=AValue) then exit;
+ Fcancellations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.Setprice(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Fprice=AValue) then exit;
+ Fprice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.Setproduct(AIndex : Integer; const AValue : TOrderLineItemProduct);
+
+begin
+ If (Fproduct=AValue) then exit;
+ Fproduct:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.SetquantityCanceled(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FquantityCanceled=AValue) then exit;
+ FquantityCanceled:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.SetquantityDelivered(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FquantityDelivered=AValue) then exit;
+ FquantityDelivered:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.SetquantityOrdered(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FquantityOrdered=AValue) then exit;
+ FquantityOrdered:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.SetquantityPending(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FquantityPending=AValue) then exit;
+ FquantityPending:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.SetquantityReturned(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FquantityReturned=AValue) then exit;
+ FquantityReturned:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.SetquantityShipped(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FquantityShipped=AValue) then exit;
+ FquantityShipped:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.SetreturnInfo(AIndex : Integer; const AValue : TOrderLineItemReturnInfo);
+
+begin
+ If (FreturnInfo=AValue) then exit;
+ FreturnInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.Setreturns(AIndex : Integer; const AValue : TOrderLineItemTypereturnsArray);
+
+begin
+ If (Freturns=AValue) then exit;
+ Freturns:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.SetshippingDetails(AIndex : Integer; const AValue : TOrderLineItemShippingDetails);
+
+begin
+ If (FshippingDetails=AValue) then exit;
+ FshippingDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItem.Settax(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Ftax=AValue) then exit;
+ Ftax:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOrderLineItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'cancellations' : SetLength(Fcancellations,ALength);
+ 'returns' : SetLength(Freturns,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderLineItemProduct
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderLineItemProduct.Setbrand(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fbrand=AValue) then exit;
+ Fbrand:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.Setchannel(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fchannel=AValue) then exit;
+ Fchannel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.Setcondition(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcondition=AValue) then exit;
+ Fcondition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.SetcontentLanguage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcontentLanguage=AValue) then exit;
+ FcontentLanguage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.Setgtin(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fgtin=AValue) then exit;
+ Fgtin:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.SetimageLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FimageLink=AValue) then exit;
+ FimageLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.SetitemGroupId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FitemGroupId=AValue) then exit;
+ FitemGroupId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.Setmpn(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmpn=AValue) then exit;
+ Fmpn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.SetofferId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FofferId=AValue) then exit;
+ FofferId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.Setprice(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Fprice=AValue) then exit;
+ Fprice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.SetshownImage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshownImage=AValue) then exit;
+ FshownImage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.SettargetCountry(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtargetCountry=AValue) then exit;
+ FtargetCountry:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProduct.SetvariantAttributes(AIndex : Integer; const AValue : TOrderLineItemProductTypevariantAttributesArray);
+
+begin
+ If (FvariantAttributes=AValue) then exit;
+ FvariantAttributes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOrderLineItemProduct.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'variantattributes' : SetLength(FvariantAttributes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderLineItemProductVariantAttribute
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderLineItemProductVariantAttribute.Setdimension(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdimension=AValue) then exit;
+ Fdimension:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemProductVariantAttribute.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderLineItemReturnInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderLineItemReturnInfo.SetdaysToReturn(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FdaysToReturn=AValue) then exit;
+ FdaysToReturn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemReturnInfo.SetisReturnable(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisReturnable=AValue) then exit;
+ FisReturnable:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemReturnInfo.SetpolicyUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpolicyUrl=AValue) then exit;
+ FpolicyUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderLineItemShippingDetails
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderLineItemShippingDetails.SetdeliverByDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdeliverByDate=AValue) then exit;
+ FdeliverByDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemShippingDetails.Setmethod(AIndex : Integer; const AValue : TOrderLineItemShippingDetailsMethod);
+
+begin
+ If (Fmethod=AValue) then exit;
+ Fmethod:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemShippingDetails.SetshipByDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshipByDate=AValue) then exit;
+ FshipByDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderLineItemShippingDetailsMethod
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderLineItemShippingDetailsMethod.Setcarrier(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcarrier=AValue) then exit;
+ Fcarrier:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemShippingDetailsMethod.SetmaxDaysInTransit(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaxDaysInTransit=AValue) then exit;
+ FmaxDaysInTransit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemShippingDetailsMethod.SetmethodName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmethodName=AValue) then exit;
+ FmethodName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderLineItemShippingDetailsMethod.SetminDaysInTransit(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FminDaysInTransit=AValue) then exit;
+ FminDaysInTransit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderPaymentMethod
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderPaymentMethod.SetbillingAddress(AIndex : Integer; const AValue : TOrderAddress);
+
+begin
+ If (FbillingAddress=AValue) then exit;
+ FbillingAddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPaymentMethod.SetexpirationMonth(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FexpirationMonth=AValue) then exit;
+ FexpirationMonth:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPaymentMethod.SetexpirationYear(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FexpirationYear=AValue) then exit;
+ FexpirationYear:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPaymentMethod.SetlastFourDigits(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlastFourDigits=AValue) then exit;
+ FlastFourDigits:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPaymentMethod.SetphoneNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphoneNumber=AValue) then exit;
+ FphoneNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPaymentMethod.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TOrderPaymentMethod.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderPromotion
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderPromotion.Setbenefits(AIndex : Integer; const AValue : TOrderPromotionTypebenefitsArray);
+
+begin
+ If (Fbenefits=AValue) then exit;
+ Fbenefits:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPromotion.SeteffectiveDates(AIndex : Integer; const AValue : String);
+
+begin
+ If (FeffectiveDates=AValue) then exit;
+ FeffectiveDates:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPromotion.SetgenericRedemptionCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FgenericRedemptionCode=AValue) then exit;
+ FgenericRedemptionCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPromotion.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPromotion.SetlongTitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlongTitle=AValue) then exit;
+ FlongTitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPromotion.SetproductApplicability(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproductApplicability=AValue) then exit;
+ FproductApplicability:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPromotion.SetredemptionChannel(AIndex : Integer; const AValue : String);
+
+begin
+ If (FredemptionChannel=AValue) then exit;
+ FredemptionChannel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOrderPromotion.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'benefits' : SetLength(Fbenefits,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderPromotionBenefit
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderPromotionBenefit.Setdiscount(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Fdiscount=AValue) then exit;
+ Fdiscount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPromotionBenefit.SetofferIds(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FofferIds=AValue) then exit;
+ FofferIds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPromotionBenefit.SetsubType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsubType=AValue) then exit;
+ FsubType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPromotionBenefit.SettaxImpact(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (FtaxImpact=AValue) then exit;
+ FtaxImpact:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderPromotionBenefit.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TOrderPromotionBenefit.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 TOrderPromotionBenefit.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'offerids' : SetLength(FofferIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderRefund
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderRefund.Setactor(AIndex : Integer; const AValue : String);
+
+begin
+ If (Factor=AValue) then exit;
+ Factor:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderRefund.Setamount(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Famount=AValue) then exit;
+ Famount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderRefund.SetcreationDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationDate=AValue) then exit;
+ FcreationDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderRefund.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderRefund.SetreasonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreasonText=AValue) then exit;
+ FreasonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderReturn
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderReturn.Setactor(AIndex : Integer; const AValue : String);
+
+begin
+ If (Factor=AValue) then exit;
+ Factor:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderReturn.SetcreationDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationDate=AValue) then exit;
+ FcreationDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderReturn.Setquantity(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fquantity=AValue) then exit;
+ Fquantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderReturn.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderReturn.SetreasonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreasonText=AValue) then exit;
+ FreasonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderShipment
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderShipment.Setcarrier(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcarrier=AValue) then exit;
+ Fcarrier:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderShipment.SetcreationDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationDate=AValue) then exit;
+ FcreationDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderShipment.SetdeliveryDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdeliveryDate=AValue) then exit;
+ FdeliveryDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderShipment.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderShipment.SetlineItems(AIndex : Integer; const AValue : TOrderShipmentTypelineItemsArray);
+
+begin
+ If (FlineItems=AValue) then exit;
+ FlineItems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderShipment.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderShipment.SettrackingId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtrackingId=AValue) then exit;
+ FtrackingId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOrderShipment.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'lineitems' : SetLength(FlineItems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrderShipmentLineItemShipment
+ --------------------------------------------------------------------}
+
+
+Procedure TOrderShipmentLineItemShipment.SetlineItemId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlineItemId=AValue) then exit;
+ FlineItemId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderShipmentLineItemShipment.Setquantity(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fquantity=AValue) then exit;
+ Fquantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersAcknowledgeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersAcknowledgeRequest.SetoperationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationId=AValue) then exit;
+ FoperationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersAcknowledgeResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersAcknowledgeResponse.SetexecutionStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutionStatus=AValue) then exit;
+ FexecutionStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersAcknowledgeResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersAdvanceTestOrderResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersAdvanceTestOrderResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCancelLineItemRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCancelLineItemRequest.Setamount(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Famount=AValue) then exit;
+ Famount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCancelLineItemRequest.SetlineItemId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlineItemId=AValue) then exit;
+ FlineItemId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCancelLineItemRequest.SetoperationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationId=AValue) then exit;
+ FoperationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCancelLineItemRequest.Setquantity(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fquantity=AValue) then exit;
+ Fquantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCancelLineItemRequest.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCancelLineItemRequest.SetreasonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreasonText=AValue) then exit;
+ FreasonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCancelLineItemResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCancelLineItemResponse.SetexecutionStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutionStatus=AValue) then exit;
+ FexecutionStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCancelLineItemResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCancelRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCancelRequest.SetoperationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationId=AValue) then exit;
+ FoperationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCancelRequest.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCancelRequest.SetreasonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreasonText=AValue) then exit;
+ FreasonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCancelResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCancelResponse.SetexecutionStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutionStatus=AValue) then exit;
+ FexecutionStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCancelResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCreateTestOrderRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCreateTestOrderRequest.SettemplateName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtemplateName=AValue) then exit;
+ FtemplateName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCreateTestOrderRequest.SettestOrder(AIndex : Integer; const AValue : TTestOrder);
+
+begin
+ If (FtestOrder=AValue) then exit;
+ FtestOrder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCreateTestOrderResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCreateTestOrderResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCreateTestOrderResponse.SetorderId(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForderId=AValue) then exit;
+ ForderId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCustomBatchRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TOrdersCustomBatchRequestTypeentriesArray);
+
+begin
+ If (Fentries=AValue) then exit;
+ Fentries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOrdersCustomBatchRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'entries' : SetLength(Fentries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FbatchId=AValue) then exit;
+ FbatchId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntry.Setcancel(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryCancel);
+
+begin
+ If (Fcancel=AValue) then exit;
+ Fcancel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntry.SetcancelLineItem(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryCancelLineItem);
+
+begin
+ If (FcancelLineItem=AValue) then exit;
+ FcancelLineItem:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntry.SetmerchantId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmerchantId=AValue) then exit;
+ FmerchantId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntry.SetmerchantOrderId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmerchantOrderId=AValue) then exit;
+ FmerchantOrderId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntry.Setmethod(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmethod=AValue) then exit;
+ Fmethod:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntry.SetoperationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationId=AValue) then exit;
+ FoperationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntry.SetorderId(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForderId=AValue) then exit;
+ ForderId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntry.Setrefund(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryRefund);
+
+begin
+ If (Frefund=AValue) then exit;
+ Frefund:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntry.SetreturnLineItem(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryReturnLineItem);
+
+begin
+ If (FreturnLineItem=AValue) then exit;
+ FreturnLineItem:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntry.SetshipLineItems(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryShipLineItems);
+
+begin
+ If (FshipLineItems=AValue) then exit;
+ FshipLineItems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntry.SetupdateShipment(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryUpdateShipment);
+
+begin
+ If (FupdateShipment=AValue) then exit;
+ FupdateShipment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryCancel
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCustomBatchRequestEntryCancel.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryCancel.SetreasonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreasonText=AValue) then exit;
+ FreasonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryCancelLineItem
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCustomBatchRequestEntryCancelLineItem.Setamount(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Famount=AValue) then exit;
+ Famount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryCancelLineItem.SetlineItemId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlineItemId=AValue) then exit;
+ FlineItemId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryCancelLineItem.Setquantity(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fquantity=AValue) then exit;
+ Fquantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryCancelLineItem.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryCancelLineItem.SetreasonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreasonText=AValue) then exit;
+ FreasonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryRefund
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCustomBatchRequestEntryRefund.Setamount(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Famount=AValue) then exit;
+ Famount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryRefund.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryRefund.SetreasonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreasonText=AValue) then exit;
+ FreasonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryReturnLineItem
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCustomBatchRequestEntryReturnLineItem.SetlineItemId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlineItemId=AValue) then exit;
+ FlineItemId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryReturnLineItem.Setquantity(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fquantity=AValue) then exit;
+ Fquantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryReturnLineItem.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryReturnLineItem.SetreasonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreasonText=AValue) then exit;
+ FreasonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryShipLineItems
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCustomBatchRequestEntryShipLineItems.Setcarrier(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcarrier=AValue) then exit;
+ Fcarrier:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryShipLineItems.SetlineItems(AIndex : Integer; const AValue : TOrdersCustomBatchRequestEntryShipLineItemsTypelineItemsArray);
+
+begin
+ If (FlineItems=AValue) then exit;
+ FlineItems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryShipLineItems.SetshipmentId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshipmentId=AValue) then exit;
+ FshipmentId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryShipLineItems.SettrackingId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtrackingId=AValue) then exit;
+ FtrackingId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOrdersCustomBatchRequestEntryShipLineItems.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'lineitems' : SetLength(FlineItems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCustomBatchRequestEntryUpdateShipment
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCustomBatchRequestEntryUpdateShipment.Setcarrier(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcarrier=AValue) then exit;
+ Fcarrier:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryUpdateShipment.SetshipmentId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshipmentId=AValue) then exit;
+ FshipmentId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryUpdateShipment.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchRequestEntryUpdateShipment.SettrackingId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtrackingId=AValue) then exit;
+ FtrackingId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCustomBatchResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TOrdersCustomBatchResponseTypeentriesArray);
+
+begin
+ If (Fentries=AValue) then exit;
+ Fentries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchResponse.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 TOrdersCustomBatchResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'entries' : SetLength(Fentries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersCustomBatchResponseEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FbatchId=AValue) then exit;
+ FbatchId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors);
+
+begin
+ If (Ferrors=AValue) then exit;
+ Ferrors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchResponseEntry.SetexecutionStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutionStatus=AValue) then exit;
+ FexecutionStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchResponseEntry.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersCustomBatchResponseEntry.Setorder(AIndex : Integer; const AValue : TOrder);
+
+begin
+ If (Forder=AValue) then exit;
+ Forder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersGetByMerchantOrderIdResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersGetByMerchantOrderIdResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersGetByMerchantOrderIdResponse.Setorder(AIndex : Integer; const AValue : TOrder);
+
+begin
+ If (Forder=AValue) then exit;
+ Forder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersGetTestOrderTemplateResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersGetTestOrderTemplateResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersGetTestOrderTemplateResponse.Settemplate(AIndex : Integer; const AValue : TTestOrder);
+
+begin
+ If (Ftemplate=AValue) then exit;
+ Ftemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersListResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersListResponse.Setresources(AIndex : Integer; const AValue : TOrdersListResponseTyperesourcesArray);
+
+begin
+ If (Fresources=AValue) then exit;
+ Fresources:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOrdersListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'resources' : SetLength(Fresources,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersRefundRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersRefundRequest.Setamount(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Famount=AValue) then exit;
+ Famount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersRefundRequest.SetoperationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationId=AValue) then exit;
+ FoperationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersRefundRequest.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersRefundRequest.SetreasonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreasonText=AValue) then exit;
+ FreasonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersRefundResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersRefundResponse.SetexecutionStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutionStatus=AValue) then exit;
+ FexecutionStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersRefundResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersReturnLineItemRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersReturnLineItemRequest.SetlineItemId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlineItemId=AValue) then exit;
+ FlineItemId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersReturnLineItemRequest.SetoperationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationId=AValue) then exit;
+ FoperationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersReturnLineItemRequest.Setquantity(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fquantity=AValue) then exit;
+ Fquantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersReturnLineItemRequest.Setreason(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freason=AValue) then exit;
+ Freason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersReturnLineItemRequest.SetreasonText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreasonText=AValue) then exit;
+ FreasonText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersReturnLineItemResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersReturnLineItemResponse.SetexecutionStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutionStatus=AValue) then exit;
+ FexecutionStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersReturnLineItemResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersShipLineItemsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersShipLineItemsRequest.Setcarrier(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcarrier=AValue) then exit;
+ Fcarrier:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersShipLineItemsRequest.SetlineItems(AIndex : Integer; const AValue : TOrdersShipLineItemsRequestTypelineItemsArray);
+
+begin
+ If (FlineItems=AValue) then exit;
+ FlineItems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersShipLineItemsRequest.SetoperationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationId=AValue) then exit;
+ FoperationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersShipLineItemsRequest.SetshipmentId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshipmentId=AValue) then exit;
+ FshipmentId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersShipLineItemsRequest.SettrackingId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtrackingId=AValue) then exit;
+ FtrackingId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOrdersShipLineItemsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'lineitems' : SetLength(FlineItems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersShipLineItemsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersShipLineItemsResponse.SetexecutionStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutionStatus=AValue) then exit;
+ FexecutionStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersShipLineItemsResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersUpdateMerchantOrderIdRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersUpdateMerchantOrderIdRequest.SetmerchantOrderId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmerchantOrderId=AValue) then exit;
+ FmerchantOrderId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersUpdateMerchantOrderIdRequest.SetoperationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationId=AValue) then exit;
+ FoperationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersUpdateMerchantOrderIdResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersUpdateMerchantOrderIdResponse.SetexecutionStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutionStatus=AValue) then exit;
+ FexecutionStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersUpdateMerchantOrderIdResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersUpdateShipmentRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersUpdateShipmentRequest.Setcarrier(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcarrier=AValue) then exit;
+ Fcarrier:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersUpdateShipmentRequest.SetoperationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationId=AValue) then exit;
+ FoperationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersUpdateShipmentRequest.SetshipmentId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshipmentId=AValue) then exit;
+ FshipmentId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersUpdateShipmentRequest.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersUpdateShipmentRequest.SettrackingId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtrackingId=AValue) then exit;
+ FtrackingId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersUpdateShipmentResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOrdersUpdateShipmentResponse.SetexecutionStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutionStatus=AValue) then exit;
+ FexecutionStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrdersUpdateShipmentResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TPrice
--------------------------------------------------------------------}
@@ -6529,7 +11128,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProduct.SetadditionalImageLinks(AIndex : Integer; AValue : TStringArray);
+Procedure TProduct.SetadditionalImageLinks(AIndex : Integer; const AValue : TStringArray);
begin
If (FadditionalImageLinks=AValue) then exit;
@@ -6539,7 +11138,7 @@ end;
-Procedure TProduct.Setadult(AIndex : Integer; AValue : boolean);
+Procedure TProduct.Setadult(AIndex : Integer; const AValue : boolean);
begin
If (Fadult=AValue) then exit;
@@ -6559,7 +11158,7 @@ end;
-Procedure TProduct.SetadwordsLabels(AIndex : Integer; AValue : TStringArray);
+Procedure TProduct.SetadwordsLabels(AIndex : Integer; const AValue : TStringArray);
begin
If (FadwordsLabels=AValue) then exit;
@@ -6589,7 +11188,7 @@ end;
-Procedure TProduct.Setaspects(AIndex : Integer; AValue : TProductTypeaspectsArray);
+Procedure TProduct.Setaspects(AIndex : Integer; const AValue : TProductTypeaspectsArray);
begin
If (Faspects=AValue) then exit;
@@ -6669,7 +11268,7 @@ end;
-Procedure TProduct.SetcustomAttributes(AIndex : Integer; AValue : TProductTypecustomAttributesArray);
+Procedure TProduct.SetcustomAttributes(AIndex : Integer; const AValue : TProductTypecustomAttributesArray);
begin
If (FcustomAttributes=AValue) then exit;
@@ -6679,7 +11278,7 @@ end;
-Procedure TProduct.SetcustomGroups(AIndex : Integer; AValue : TProductTypecustomGroupsArray);
+Procedure TProduct.SetcustomGroups(AIndex : Integer; const AValue : TProductTypecustomGroupsArray);
begin
If (FcustomGroups=AValue) then exit;
@@ -6749,7 +11348,7 @@ end;
-Procedure TProduct.Setdestinations(AIndex : Integer; AValue : TProductTypedestinationsArray);
+Procedure TProduct.Setdestinations(AIndex : Integer; const AValue : TProductTypedestinationsArray);
begin
If (Fdestinations=AValue) then exit;
@@ -6779,7 +11378,7 @@ end;
-Procedure TProduct.SetdisplayAdsSimilarIds(AIndex : Integer; AValue : TStringArray);
+Procedure TProduct.SetdisplayAdsSimilarIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FdisplayAdsSimilarIds=AValue) then exit;
@@ -6799,7 +11398,7 @@ end;
-Procedure TProduct.SetdisplayAdsValue(AIndex : Integer; AValue : double);
+Procedure TProduct.SetdisplayAdsValue(AIndex : Integer; const AValue : double);
begin
If (FdisplayAdsValue=AValue) then exit;
@@ -6869,7 +11468,7 @@ end;
-Procedure TProduct.SetidentifierExists(AIndex : Integer; AValue : boolean);
+Procedure TProduct.SetidentifierExists(AIndex : Integer; const AValue : boolean);
begin
If (FidentifierExists=AValue) then exit;
@@ -6889,7 +11488,7 @@ end;
-Procedure TProduct.Setinstallment(AIndex : Integer; AValue : TProductInstallment);
+Procedure TProduct.Setinstallment(AIndex : Integer; const AValue : TInstallment);
begin
If (Finstallment=AValue) then exit;
@@ -6899,7 +11498,7 @@ end;
-Procedure TProduct.SetisBundle(AIndex : Integer; AValue : boolean);
+Procedure TProduct.SetisBundle(AIndex : Integer; const AValue : boolean);
begin
If (FisBundle=AValue) then exit;
@@ -6939,7 +11538,7 @@ end;
-Procedure TProduct.SetloyaltyPoints(AIndex : Integer; AValue : TLoyaltyPoints);
+Procedure TProduct.SetloyaltyPoints(AIndex : Integer; const AValue : TLoyaltyPoints);
begin
If (FloyaltyPoints=AValue) then exit;
@@ -6999,7 +11598,7 @@ end;
-Procedure TProduct.SetonlineOnly(AIndex : Integer; AValue : boolean);
+Procedure TProduct.SetonlineOnly(AIndex : Integer; const AValue : boolean);
begin
If (FonlineOnly=AValue) then exit;
@@ -7019,7 +11618,7 @@ end;
-Procedure TProduct.Setprice(AIndex : Integer; AValue : TPrice);
+Procedure TProduct.Setprice(AIndex : Integer; const AValue : TPrice);
begin
If (Fprice=AValue) then exit;
@@ -7039,7 +11638,17 @@ end;
-Procedure TProduct.SetsalePrice(AIndex : Integer; AValue : TPrice);
+Procedure TProduct.SetpromotionIds(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FpromotionIds=AValue) then exit;
+ FpromotionIds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.SetsalePrice(AIndex : Integer; const AValue : TPrice);
begin
If (FsalePrice=AValue) then exit;
@@ -7059,7 +11668,17 @@ end;
-Procedure TProduct.Setshipping(AIndex : Integer; AValue : TProductTypeshippingArray);
+Procedure TProduct.SetsellOnGoogleQuantity(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsellOnGoogleQuantity=AValue) then exit;
+ FsellOnGoogleQuantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProduct.Setshipping(AIndex : Integer; const AValue : TProductTypeshippingArray);
begin
If (Fshipping=AValue) then exit;
@@ -7069,7 +11688,7 @@ end;
-Procedure TProduct.SetshippingHeight(AIndex : Integer; AValue : TProductShippingDimension);
+Procedure TProduct.SetshippingHeight(AIndex : Integer; const AValue : TProductShippingDimension);
begin
If (FshippingHeight=AValue) then exit;
@@ -7089,7 +11708,7 @@ end;
-Procedure TProduct.SetshippingLength(AIndex : Integer; AValue : TProductShippingDimension);
+Procedure TProduct.SetshippingLength(AIndex : Integer; const AValue : TProductShippingDimension);
begin
If (FshippingLength=AValue) then exit;
@@ -7099,7 +11718,7 @@ end;
-Procedure TProduct.SetshippingWeight(AIndex : Integer; AValue : TProductShippingWeight);
+Procedure TProduct.SetshippingWeight(AIndex : Integer; const AValue : TProductShippingWeight);
begin
If (FshippingWeight=AValue) then exit;
@@ -7109,7 +11728,7 @@ end;
-Procedure TProduct.SetshippingWidth(AIndex : Integer; AValue : TProductShippingDimension);
+Procedure TProduct.SetshippingWidth(AIndex : Integer; const AValue : TProductShippingDimension);
begin
If (FshippingWidth=AValue) then exit;
@@ -7139,7 +11758,7 @@ end;
-Procedure TProduct.Setsizes(AIndex : Integer; AValue : TStringArray);
+Procedure TProduct.Setsizes(AIndex : Integer; const AValue : TStringArray);
begin
If (Fsizes=AValue) then exit;
@@ -7159,7 +11778,7 @@ end;
-Procedure TProduct.Settaxes(AIndex : Integer; AValue : TProductTypetaxesArray);
+Procedure TProduct.Settaxes(AIndex : Integer; const AValue : TProductTypetaxesArray);
begin
If (Ftaxes=AValue) then exit;
@@ -7179,7 +11798,7 @@ end;
-Procedure TProduct.SetunitPricingBaseMeasure(AIndex : Integer; AValue : TProductUnitPricingBaseMeasure);
+Procedure TProduct.SetunitPricingBaseMeasure(AIndex : Integer; const AValue : TProductUnitPricingBaseMeasure);
begin
If (FunitPricingBaseMeasure=AValue) then exit;
@@ -7189,7 +11808,7 @@ end;
-Procedure TProduct.SetunitPricingMeasure(AIndex : Integer; AValue : TProductUnitPricingMeasure);
+Procedure TProduct.SetunitPricingMeasure(AIndex : Integer; const AValue : TProductUnitPricingMeasure);
begin
If (FunitPricingMeasure=AValue) then exit;
@@ -7199,7 +11818,7 @@ end;
-Procedure TProduct.SetvalidatedDestinations(AIndex : Integer; AValue : TStringArray);
+Procedure TProduct.SetvalidatedDestinations(AIndex : Integer; const AValue : TStringArray);
begin
If (FvalidatedDestinations=AValue) then exit;
@@ -7209,7 +11828,7 @@ end;
-Procedure TProduct.Setwarnings(AIndex : Integer; AValue : TProductTypewarningsArray);
+Procedure TProduct.Setwarnings(AIndex : Integer; const AValue : TProductTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
@@ -7231,6 +11850,7 @@ begin
'customgroups' : SetLength(FcustomGroups,ALength);
'destinations' : SetLength(Fdestinations,ALength);
'displayadssimilarids' : SetLength(FdisplayAdsSimilarIds,ALength);
+ 'promotionids' : SetLength(FpromotionIds,ALength);
'shipping' : SetLength(Fshipping,ALength);
'sizes' : SetLength(Fsizes,ALength);
'taxes' : SetLength(Ftaxes,ALength);
@@ -7346,7 +11966,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProductCustomGroup.Setattributes(AIndex : Integer; AValue : TProductCustomGroupTypeattributesArray);
+Procedure TProductCustomGroup.Setattributes(AIndex : Integer; const AValue : TProductCustomGroupTypeattributesArray);
begin
If (Fattributes=AValue) then exit;
@@ -7409,33 +12029,6 @@ end;
{ --------------------------------------------------------------------
- TProductInstallment
- --------------------------------------------------------------------}
-
-
-Procedure TProductInstallment.Setamount(AIndex : Integer; AValue : TPrice);
-
-begin
- If (Famount=AValue) then exit;
- Famount:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TProductInstallment.Setmonths(AIndex : Integer; const AValue : String);
-
-begin
- If (Fmonths=AValue) then exit;
- Fmonths:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
TProductShipping
--------------------------------------------------------------------}
@@ -7480,7 +12073,7 @@ end;
-Procedure TProductShipping.Setprice(AIndex : Integer; AValue : TPrice);
+Procedure TProductShipping.Setprice(AIndex : Integer; const AValue : TPrice);
begin
If (Fprice=AValue) then exit;
@@ -7527,7 +12120,7 @@ end;
-Procedure TProductShippingDimension.Setvalue(AIndex : Integer; AValue : double);
+Procedure TProductShippingDimension.Setvalue(AIndex : Integer; const AValue : double);
begin
If (Fvalue=AValue) then exit;
@@ -7565,7 +12158,7 @@ end;
-Procedure TProductShippingWeight.Setvalue(AIndex : Integer; AValue : double);
+Procedure TProductShippingWeight.Setvalue(AIndex : Integer; const AValue : double);
begin
If (Fvalue=AValue) then exit;
@@ -7603,7 +12196,7 @@ end;
-Procedure TProductStatus.SetdataQualityIssues(AIndex : Integer; AValue : TProductStatusTypedataQualityIssuesArray);
+Procedure TProductStatus.SetdataQualityIssues(AIndex : Integer; const AValue : TProductStatusTypedataQualityIssuesArray);
begin
If (FdataQualityIssues=AValue) then exit;
@@ -7613,7 +12206,7 @@ end;
-Procedure TProductStatus.SetdestinationStatuses(AIndex : Integer; AValue : TProductStatusTypedestinationStatusesArray);
+Procedure TProductStatus.SetdestinationStatuses(AIndex : Integer; const AValue : TProductStatusTypedestinationStatusesArray);
begin
If (FdestinationStatuses=AValue) then exit;
@@ -7858,7 +12451,7 @@ end;
-Procedure TProductTax.Setrate(AIndex : Integer; AValue : double);
+Procedure TProductTax.Setrate(AIndex : Integer; const AValue : double);
begin
If (Frate=AValue) then exit;
@@ -7878,7 +12471,7 @@ end;
-Procedure TProductTax.SettaxShip(AIndex : Integer; AValue : boolean);
+Procedure TProductTax.SettaxShip(AIndex : Integer; const AValue : boolean);
begin
If (FtaxShip=AValue) then exit;
@@ -7943,7 +12536,7 @@ end;
-Procedure TProductUnitPricingMeasure.Setvalue(AIndex : Integer; AValue : double);
+Procedure TProductUnitPricingMeasure.Setvalue(AIndex : Integer; const AValue : double);
begin
If (Fvalue=AValue) then exit;
@@ -7971,7 +12564,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProductsCustomBatchRequest.Setentries(AIndex : Integer; AValue : TProductsCustomBatchRequestTypeentriesArray);
+Procedure TProductsCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TProductsCustomBatchRequestTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -8001,7 +12594,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProductsCustomBatchRequestEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TProductsCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -8031,7 +12624,7 @@ end;
-Procedure TProductsCustomBatchRequestEntry.Setproduct(AIndex : Integer; AValue : TProduct);
+Procedure TProductsCustomBatchRequestEntry.Setproduct(AIndex : Integer; const AValue : TProduct);
begin
If (Fproduct=AValue) then exit;
@@ -8058,7 +12651,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProductsCustomBatchResponse.Setentries(AIndex : Integer; AValue : TProductsCustomBatchResponseTypeentriesArray);
+Procedure TProductsCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TProductsCustomBatchResponseTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -8098,7 +12691,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProductsCustomBatchResponseEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TProductsCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -8108,7 +12701,7 @@ end;
-Procedure TProductsCustomBatchResponseEntry.Seterrors(AIndex : Integer; AValue : TErrors);
+Procedure TProductsCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors);
begin
If (Ferrors=AValue) then exit;
@@ -8128,7 +12721,7 @@ end;
-Procedure TProductsCustomBatchResponseEntry.Setproduct(AIndex : Integer; AValue : TProduct);
+Procedure TProductsCustomBatchResponseEntry.Setproduct(AIndex : Integer; const AValue : TProduct);
begin
If (Fproduct=AValue) then exit;
@@ -8165,7 +12758,7 @@ end;
-Procedure TProductsListResponse.Setresources(AIndex : Integer; AValue : TProductsListResponseTyperesourcesArray);
+Procedure TProductsListResponse.Setresources(AIndex : Integer; const AValue : TProductsListResponseTyperesourcesArray);
begin
If (Fresources=AValue) then exit;
@@ -8195,7 +12788,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProductstatusesCustomBatchRequest.Setentries(AIndex : Integer; AValue : TProductstatusesCustomBatchRequestTypeentriesArray);
+Procedure TProductstatusesCustomBatchRequest.Setentries(AIndex : Integer; const AValue : TProductstatusesCustomBatchRequestTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -8225,7 +12818,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProductstatusesCustomBatchRequestEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TProductstatusesCustomBatchRequestEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -8272,7 +12865,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProductstatusesCustomBatchResponse.Setentries(AIndex : Integer; AValue : TProductstatusesCustomBatchResponseTypeentriesArray);
+Procedure TProductstatusesCustomBatchResponse.Setentries(AIndex : Integer; const AValue : TProductstatusesCustomBatchResponseTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -8312,7 +12905,7 @@ end;
--------------------------------------------------------------------}
-Procedure TProductstatusesCustomBatchResponseEntry.SetbatchId(AIndex : Integer; AValue : integer);
+Procedure TProductstatusesCustomBatchResponseEntry.SetbatchId(AIndex : Integer; const AValue : integer);
begin
If (FbatchId=AValue) then exit;
@@ -8322,7 +12915,7 @@ end;
-Procedure TProductstatusesCustomBatchResponseEntry.Seterrors(AIndex : Integer; AValue : TErrors);
+Procedure TProductstatusesCustomBatchResponseEntry.Seterrors(AIndex : Integer; const AValue : TErrors);
begin
If (Ferrors=AValue) then exit;
@@ -8342,7 +12935,7 @@ end;
-Procedure TProductstatusesCustomBatchResponseEntry.SetproductStatus(AIndex : Integer; AValue : TProductStatus);
+Procedure TProductstatusesCustomBatchResponseEntry.SetproductStatus(AIndex : Integer; const AValue : TProductStatus);
begin
If (FproductStatus=AValue) then exit;
@@ -8379,7 +12972,7 @@ end;
-Procedure TProductstatusesListResponse.Setresources(AIndex : Integer; AValue : TProductstatusesListResponseTyperesourcesArray);
+Procedure TProductstatusesListResponse.Setresources(AIndex : Integer; const AValue : TProductstatusesListResponseTyperesourcesArray);
begin
If (Fresources=AValue) then exit;
@@ -8405,6 +12998,429 @@ end;
{ --------------------------------------------------------------------
+ TTestOrder
+ --------------------------------------------------------------------}
+
+
+Procedure TTestOrder.Setcustomer(AIndex : Integer; const AValue : TTestOrderCustomer);
+
+begin
+ If (Fcustomer=AValue) then exit;
+ Fcustomer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrder.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrder.SetlineItems(AIndex : Integer; const AValue : TTestOrderTypelineItemsArray);
+
+begin
+ If (FlineItems=AValue) then exit;
+ FlineItems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrder.SetpaymentMethod(AIndex : Integer; const AValue : TTestOrderPaymentMethod);
+
+begin
+ If (FpaymentMethod=AValue) then exit;
+ FpaymentMethod:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrder.SetpredefinedDeliveryAddress(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpredefinedDeliveryAddress=AValue) then exit;
+ FpredefinedDeliveryAddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrder.Setpromotions(AIndex : Integer; const AValue : TTestOrderTypepromotionsArray);
+
+begin
+ If (Fpromotions=AValue) then exit;
+ Fpromotions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrder.SetshippingCost(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (FshippingCost=AValue) then exit;
+ FshippingCost:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrder.SetshippingCostTax(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (FshippingCostTax=AValue) then exit;
+ FshippingCostTax:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrder.SetshippingOption(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshippingOption=AValue) then exit;
+ FshippingOption:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestOrder.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'lineitems' : SetLength(FlineItems,ALength);
+ 'promotions' : SetLength(Fpromotions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestOrderCustomer
+ --------------------------------------------------------------------}
+
+
+Procedure TTestOrderCustomer.Setemail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Femail=AValue) then exit;
+ Femail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderCustomer.SetexplicitMarketingPreference(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FexplicitMarketingPreference=AValue) then exit;
+ FexplicitMarketingPreference:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderCustomer.SetfullName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfullName=AValue) then exit;
+ FfullName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestOrderLineItem
+ --------------------------------------------------------------------}
+
+
+Procedure TTestOrderLineItem.Setproduct(AIndex : Integer; const AValue : TTestOrderLineItemProduct);
+
+begin
+ If (Fproduct=AValue) then exit;
+ Fproduct:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItem.SetquantityOrdered(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FquantityOrdered=AValue) then exit;
+ FquantityOrdered:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItem.SetreturnInfo(AIndex : Integer; const AValue : TOrderLineItemReturnInfo);
+
+begin
+ If (FreturnInfo=AValue) then exit;
+ FreturnInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItem.SetshippingDetails(AIndex : Integer; const AValue : TOrderLineItemShippingDetails);
+
+begin
+ If (FshippingDetails=AValue) then exit;
+ FshippingDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItem.SetunitTax(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (FunitTax=AValue) then exit;
+ FunitTax:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestOrderLineItemProduct
+ --------------------------------------------------------------------}
+
+
+Procedure TTestOrderLineItemProduct.Setbrand(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fbrand=AValue) then exit;
+ Fbrand:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.Setchannel(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fchannel=AValue) then exit;
+ Fchannel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.Setcondition(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcondition=AValue) then exit;
+ Fcondition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.SetcontentLanguage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcontentLanguage=AValue) then exit;
+ FcontentLanguage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.Setgtin(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fgtin=AValue) then exit;
+ Fgtin:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.SetimageLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FimageLink=AValue) then exit;
+ FimageLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.SetitemGroupId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FitemGroupId=AValue) then exit;
+ FitemGroupId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.Setmpn(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmpn=AValue) then exit;
+ Fmpn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.SetofferId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FofferId=AValue) then exit;
+ FofferId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.Setprice(AIndex : Integer; const AValue : TPrice);
+
+begin
+ If (Fprice=AValue) then exit;
+ Fprice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.SettargetCountry(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtargetCountry=AValue) then exit;
+ FtargetCountry:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderLineItemProduct.SetvariantAttributes(AIndex : Integer; const AValue : TTestOrderLineItemProductTypevariantAttributesArray);
+
+begin
+ If (FvariantAttributes=AValue) then exit;
+ FvariantAttributes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestOrderLineItemProduct.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'variantattributes' : SetLength(FvariantAttributes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestOrderPaymentMethod
+ --------------------------------------------------------------------}
+
+
+Procedure TTestOrderPaymentMethod.SetexpirationMonth(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FexpirationMonth=AValue) then exit;
+ FexpirationMonth:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderPaymentMethod.SetexpirationYear(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FexpirationYear=AValue) then exit;
+ FexpirationYear:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderPaymentMethod.SetlastFourDigits(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlastFourDigits=AValue) then exit;
+ FlastFourDigits:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderPaymentMethod.SetpredefinedBillingAddress(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpredefinedBillingAddress=AValue) then exit;
+ FpredefinedBillingAddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestOrderPaymentMethod.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TTestOrderPaymentMethod.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
TWeight
--------------------------------------------------------------------}
@@ -8470,7 +13486,7 @@ begin
Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TAccountsAuthInfoResponse) as TAccountsAuthInfoResponse;
end;
-Function TAccountsResource.Custombatch(aAccountsCustomBatchRequest : TAccountsCustomBatchRequest) : TAccountsCustomBatchResponse;
+Function TAccountsResource.Custombatch(aAccountsCustomBatchRequest : TAccountsCustomBatchRequest; AQuery : string = '') : TAccountsCustomBatchResponse;
Const
_HTTPMethod = 'POST';
@@ -8478,10 +13494,22 @@ Const
_Methodid = 'content.accounts.custombatch';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aAccountsCustomBatchRequest,TAccountsCustomBatchResponse) as TAccountsCustomBatchResponse;
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aAccountsCustomBatchRequest,TAccountsCustomBatchResponse) as TAccountsCustomBatchResponse;
end;
-Procedure TAccountsResource.Delete(accountId: string; merchantId: string);
+
+Function TAccountsResource.Custombatch(aAccountsCustomBatchRequest : TAccountsCustomBatchRequest; AQuery : TAccountscustombatchOptions) : TAccountsCustomBatchResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Result:=Custombatch(aAccountsCustomBatchRequest,_Q);
+end;
+
+Procedure TAccountsResource.Delete(accountId: string; merchantId: string; AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
@@ -8493,7 +13521,19 @@ Var
begin
_P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
+end;
+
+
+Procedure TAccountsResource.Delete(accountId: string; merchantId: string; AQuery : TAccountsdeleteOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Delete(accountId,merchantId,_Q);
end;
Function TAccountsResource.Get(accountId: string; merchantId: string) : TAccount;
@@ -8511,7 +13551,7 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAccount) as TAccount;
end;
-Function TAccountsResource.Insert(merchantId: string; aAccount : TAccount) : TAccount;
+Function TAccountsResource.Insert(merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount;
Const
_HTTPMethod = 'POST';
@@ -8523,7 +13563,19 @@ Var
begin
_P:=SubstitutePath(_Path,['merchantId',merchantId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aAccount,TAccount) as TAccount;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccount,TAccount) as TAccount;
+end;
+
+
+Function TAccountsResource.Insert(merchantId: string; aAccount : TAccount; AQuery : TAccountsinsertOptions) : TAccount;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Result:=Insert(merchantId,aAccount,_Q);
end;
Function TAccountsResource.List(merchantId: string; AQuery : string = '') : TAccountsListResponse;
@@ -8554,7 +13606,7 @@ begin
Result:=List(merchantId,_Q);
end;
-Function TAccountsResource.Patch(accountId: string; merchantId: string; aAccount : TAccount) : TAccount;
+Function TAccountsResource.Patch(accountId: string; merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount;
Const
_HTTPMethod = 'PATCH';
@@ -8566,10 +13618,22 @@ Var
begin
_P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aAccount,TAccount) as TAccount;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccount,TAccount) as TAccount;
end;
-Function TAccountsResource.Update(accountId: string; merchantId: string; aAccount : TAccount) : TAccount;
+
+Function TAccountsResource.Patch(accountId: string; merchantId: string; aAccount : TAccount; AQuery : TAccountspatchOptions) : TAccount;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Result:=Patch(accountId,merchantId,aAccount,_Q);
+end;
+
+Function TAccountsResource.Update(accountId: string; merchantId: string; aAccount : TAccount; AQuery : string = '') : TAccount;
Const
_HTTPMethod = 'PUT';
@@ -8581,7 +13645,19 @@ Var
begin
_P:=SubstitutePath(_Path,['accountId',accountId,'merchantId',merchantId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aAccount,TAccount) as TAccount;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccount,TAccount) as TAccount;
+end;
+
+
+Function TAccountsResource.Update(accountId: string; merchantId: string; aAccount : TAccount; AQuery : TAccountsupdateOptions) : TAccount;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Result:=Update(accountId,merchantId,aAccount,_Q);
end;
@@ -8954,7 +14030,7 @@ begin
Result:=TcontentAPI;
end;
-Function TDatafeedsResource.Custombatch(aDatafeedsCustomBatchRequest : TDatafeedsCustomBatchRequest) : TDatafeedsCustomBatchResponse;
+Function TDatafeedsResource.Custombatch(aDatafeedsCustomBatchRequest : TDatafeedsCustomBatchRequest; AQuery : string = '') : TDatafeedsCustomBatchResponse;
Const
_HTTPMethod = 'POST';
@@ -8962,10 +14038,22 @@ Const
_Methodid = 'content.datafeeds.custombatch';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aDatafeedsCustomBatchRequest,TDatafeedsCustomBatchResponse) as TDatafeedsCustomBatchResponse;
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aDatafeedsCustomBatchRequest,TDatafeedsCustomBatchResponse) as TDatafeedsCustomBatchResponse;
+end;
+
+
+Function TDatafeedsResource.Custombatch(aDatafeedsCustomBatchRequest : TDatafeedsCustomBatchRequest; AQuery : TDatafeedscustombatchOptions) : TDatafeedsCustomBatchResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Result:=Custombatch(aDatafeedsCustomBatchRequest,_Q);
end;
-Procedure TDatafeedsResource.Delete(datafeedId: string; merchantId: string);
+Procedure TDatafeedsResource.Delete(datafeedId: string; merchantId: string; AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
@@ -8977,7 +14065,19 @@ Var
begin
_P:=SubstitutePath(_Path,['datafeedId',datafeedId,'merchantId',merchantId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
+end;
+
+
+Procedure TDatafeedsResource.Delete(datafeedId: string; merchantId: string; AQuery : TDatafeedsdeleteOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Delete(datafeedId,merchantId,_Q);
end;
Function TDatafeedsResource.Get(datafeedId: string; merchantId: string) : TDatafeed;
@@ -8995,7 +14095,7 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDatafeed) as TDatafeed;
end;
-Function TDatafeedsResource.Insert(merchantId: string; aDatafeed : TDatafeed) : TDatafeed;
+Function TDatafeedsResource.Insert(merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed;
Const
_HTTPMethod = 'POST';
@@ -9007,7 +14107,19 @@ Var
begin
_P:=SubstitutePath(_Path,['merchantId',merchantId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aDatafeed,TDatafeed) as TDatafeed;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDatafeed,TDatafeed) as TDatafeed;
+end;
+
+
+Function TDatafeedsResource.Insert(merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedsinsertOptions) : TDatafeed;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Result:=Insert(merchantId,aDatafeed,_Q);
end;
Function TDatafeedsResource.List(merchantId: string; AQuery : string = '') : TDatafeedsListResponse;
@@ -9038,7 +14150,7 @@ begin
Result:=List(merchantId,_Q);
end;
-Function TDatafeedsResource.Patch(datafeedId: string; merchantId: string; aDatafeed : TDatafeed) : TDatafeed;
+Function TDatafeedsResource.Patch(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed;
Const
_HTTPMethod = 'PATCH';
@@ -9050,10 +14162,22 @@ Var
begin
_P:=SubstitutePath(_Path,['datafeedId',datafeedId,'merchantId',merchantId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aDatafeed,TDatafeed) as TDatafeed;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDatafeed,TDatafeed) as TDatafeed;
end;
-Function TDatafeedsResource.Update(datafeedId: string; merchantId: string; aDatafeed : TDatafeed) : TDatafeed;
+
+Function TDatafeedsResource.Patch(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedspatchOptions) : TDatafeed;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Result:=Patch(datafeedId,merchantId,aDatafeed,_Q);
+end;
+
+Function TDatafeedsResource.Update(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : string = '') : TDatafeed;
Const
_HTTPMethod = 'PUT';
@@ -9065,7 +14189,19 @@ Var
begin
_P:=SubstitutePath(_Path,['datafeedId',datafeedId,'merchantId',merchantId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aDatafeed,TDatafeed) as TDatafeed;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDatafeed,TDatafeed) as TDatafeed;
+end;
+
+
+Function TDatafeedsResource.Update(datafeedId: string; merchantId: string; aDatafeed : TDatafeed; AQuery : TDatafeedsupdateOptions) : TDatafeed;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Result:=Update(datafeedId,merchantId,aDatafeed,_Q);
end;
@@ -9160,7 +14296,7 @@ begin
Result:=TcontentAPI;
end;
-Function TInventoryResource.Custombatch(aInventoryCustomBatchRequest : TInventoryCustomBatchRequest) : TInventoryCustomBatchResponse;
+Function TInventoryResource.Custombatch(aInventoryCustomBatchRequest : TInventoryCustomBatchRequest; AQuery : string = '') : TInventoryCustomBatchResponse;
Const
_HTTPMethod = 'POST';
@@ -9168,10 +14304,22 @@ Const
_Methodid = 'content.inventory.custombatch';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aInventoryCustomBatchRequest,TInventoryCustomBatchResponse) as TInventoryCustomBatchResponse;
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aInventoryCustomBatchRequest,TInventoryCustomBatchResponse) as TInventoryCustomBatchResponse;
end;
-Function TInventoryResource._set(merchantId: string; productId: string; storeCode: string; aInventorySetRequest : TInventorySetRequest) : TInventorySetResponse;
+
+Function TInventoryResource.Custombatch(aInventoryCustomBatchRequest : TInventoryCustomBatchRequest; AQuery : TInventorycustombatchOptions) : TInventoryCustomBatchResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Result:=Custombatch(aInventoryCustomBatchRequest,_Q);
+end;
+
+Function TInventoryResource._set(merchantId: string; productId: string; storeCode: string; aInventorySetRequest : TInventorySetRequest; AQuery : string = '') : TInventorySetResponse;
Const
_HTTPMethod = 'POST';
@@ -9183,7 +14331,277 @@ Var
begin
_P:=SubstitutePath(_Path,['merchantId',merchantId,'productId',productId,'storeCode',storeCode]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aInventorySetRequest,TInventorySetResponse) as TInventorySetResponse;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aInventorySetRequest,TInventorySetResponse) as TInventorySetResponse;
+end;
+
+
+Function TInventoryResource._set(merchantId: string; productId: string; storeCode: string; aInventorySetRequest : TInventorySetRequest; AQuery : TInventorysetOptions) : TInventorySetResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'dryRun',AQuery.dryRun);
+ Result:=_set(merchantId,productId,storeCode,aInventorySetRequest,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOrdersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TOrdersResource.ResourceName : String;
+
+begin
+ Result:='orders';
+end;
+
+Class Function TOrdersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TcontentAPI;
+end;
+
+Function TOrdersResource.Acknowledge(merchantId: string; orderId: string; aOrdersAcknowledgeRequest : TOrdersAcknowledgeRequest) : TOrdersAcknowledgeResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{merchantId}/orders/{orderId}/acknowledge';
+ _Methodid = 'content.orders.acknowledge';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersAcknowledgeRequest,TOrdersAcknowledgeResponse) as TOrdersAcknowledgeResponse;
+end;
+
+Function TOrdersResource.Advancetestorder(merchantId: string; orderId: string) : TOrdersAdvanceTestOrderResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{merchantId}/testorders/{orderId}/advance';
+ _Methodid = 'content.orders.advancetestorder';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOrdersAdvanceTestOrderResponse) as TOrdersAdvanceTestOrderResponse;
+end;
+
+Function TOrdersResource.Cancel(merchantId: string; orderId: string; aOrdersCancelRequest : TOrdersCancelRequest) : TOrdersCancelResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{merchantId}/orders/{orderId}/cancel';
+ _Methodid = 'content.orders.cancel';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersCancelRequest,TOrdersCancelResponse) as TOrdersCancelResponse;
+end;
+
+Function TOrdersResource.Cancellineitem(merchantId: string; orderId: string; aOrdersCancelLineItemRequest : TOrdersCancelLineItemRequest) : TOrdersCancelLineItemResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{merchantId}/orders/{orderId}/cancelLineItem';
+ _Methodid = 'content.orders.cancellineitem';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersCancelLineItemRequest,TOrdersCancelLineItemResponse) as TOrdersCancelLineItemResponse;
+end;
+
+Function TOrdersResource.Createtestorder(merchantId: string; aOrdersCreateTestOrderRequest : TOrdersCreateTestOrderRequest) : TOrdersCreateTestOrderResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{merchantId}/testorders';
+ _Methodid = 'content.orders.createtestorder';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersCreateTestOrderRequest,TOrdersCreateTestOrderResponse) as TOrdersCreateTestOrderResponse;
+end;
+
+Function TOrdersResource.Custombatch(aOrdersCustomBatchRequest : TOrdersCustomBatchRequest) : TOrdersCustomBatchResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'orders/batch';
+ _Methodid = 'content.orders.custombatch';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aOrdersCustomBatchRequest,TOrdersCustomBatchResponse) as TOrdersCustomBatchResponse;
+end;
+
+Function TOrdersResource.Get(merchantId: string; orderId: string) : TOrder;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{merchantId}/orders/{orderId}';
+ _Methodid = 'content.orders.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOrder) as TOrder;
+end;
+
+Function TOrdersResource.Getbymerchantorderid(merchantId: string; merchantOrderId: string) : TOrdersGetByMerchantOrderIdResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{merchantId}/ordersbymerchantid/{merchantOrderId}';
+ _Methodid = 'content.orders.getbymerchantorderid';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'merchantOrderId',merchantOrderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOrdersGetByMerchantOrderIdResponse) as TOrdersGetByMerchantOrderIdResponse;
+end;
+
+Function TOrdersResource.Gettestordertemplate(merchantId: string; templateName: string) : TOrdersGetTestOrderTemplateResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{merchantId}/testordertemplates/{templateName}';
+ _Methodid = 'content.orders.gettestordertemplate';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'templateName',templateName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOrdersGetTestOrderTemplateResponse) as TOrdersGetTestOrderTemplateResponse;
+end;
+
+Function TOrdersResource.List(merchantId: string; AQuery : string = '') : TOrdersListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{merchantId}/orders';
+ _Methodid = 'content.orders.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOrdersListResponse) as TOrdersListResponse;
+end;
+
+
+Function TOrdersResource.List(merchantId: string; AQuery : TOrderslistOptions) : TOrdersListResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'acknowledged',AQuery.acknowledged);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'placedDateEnd',AQuery.placedDateEnd);
+ AddToQuery(_Q,'placedDateStart',AQuery.placedDateStart);
+ AddToQuery(_Q,'statuses',AQuery.statuses);
+ Result:=List(merchantId,_Q);
+end;
+
+Function TOrdersResource.Refund(merchantId: string; orderId: string; aOrdersRefundRequest : TOrdersRefundRequest) : TOrdersRefundResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{merchantId}/orders/{orderId}/refund';
+ _Methodid = 'content.orders.refund';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersRefundRequest,TOrdersRefundResponse) as TOrdersRefundResponse;
+end;
+
+Function TOrdersResource.Returnlineitem(merchantId: string; orderId: string; aOrdersReturnLineItemRequest : TOrdersReturnLineItemRequest) : TOrdersReturnLineItemResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{merchantId}/orders/{orderId}/returnLineItem';
+ _Methodid = 'content.orders.returnlineitem';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersReturnLineItemRequest,TOrdersReturnLineItemResponse) as TOrdersReturnLineItemResponse;
+end;
+
+Function TOrdersResource.Shiplineitems(merchantId: string; orderId: string; aOrdersShipLineItemsRequest : TOrdersShipLineItemsRequest) : TOrdersShipLineItemsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{merchantId}/orders/{orderId}/shipLineItems';
+ _Methodid = 'content.orders.shiplineitems';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersShipLineItemsRequest,TOrdersShipLineItemsResponse) as TOrdersShipLineItemsResponse;
+end;
+
+Function TOrdersResource.Updatemerchantorderid(merchantId: string; orderId: string; aOrdersUpdateMerchantOrderIdRequest : TOrdersUpdateMerchantOrderIdRequest) : TOrdersUpdateMerchantOrderIdResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{merchantId}/orders/{orderId}/updateMerchantOrderId';
+ _Methodid = 'content.orders.updatemerchantorderid';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersUpdateMerchantOrderIdRequest,TOrdersUpdateMerchantOrderIdResponse) as TOrdersUpdateMerchantOrderIdResponse;
+end;
+
+Function TOrdersResource.Updateshipment(merchantId: string; orderId: string; aOrdersUpdateShipmentRequest : TOrdersUpdateShipmentRequest) : TOrdersUpdateShipmentResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{merchantId}/orders/{orderId}/updateShipment';
+ _Methodid = 'content.orders.updateshipment';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['merchantId',merchantId,'orderId',orderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aOrdersUpdateShipmentRequest,TOrdersUpdateShipmentResponse) as TOrdersUpdateShipmentResponse;
end;
@@ -9320,6 +14738,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'includeInvalidInsertedItems',AQuery.includeInvalidInsertedItems);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(merchantId,_Q);
@@ -9393,6 +14812,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'includeInvalidInsertedItems',AQuery.includeInvalidInsertedItems);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(merchantId,_Q);
@@ -9419,7 +14839,7 @@ end;
Class Function TContentAPI.APIRevision : String;
begin
- Result:='20150424';
+ Result:='20160419';
end;
Class Function TContentAPI.APIID : String;
@@ -9437,7 +14857,7 @@ end;
Class Function TContentAPI.APIDescription : String;
begin
- Result:='Manage product items, inventory, and Merchant Center accounts for Google Shopping.';
+ Result:='Manages product items, inventory, and Merchant Center accounts for Google Shopping.';
end;
Class Function TContentAPI.APIOwnerDomain : String;
@@ -9467,13 +14887,13 @@ end;
Class Function TContentAPI.APIdocumentationLink : String;
begin
- Result:='https://developers.google.com/shopping-content/v2/';
+ Result:='https://developers.google.com/shopping-content';
end;
Class Function TContentAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TContentAPI.APIbasePath : string;
@@ -9485,7 +14905,7 @@ end;
Class Function TContentAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/content/v2/';
+ Result:='https://www.googleapis.com/content/v2/';
end;
Class Function TContentAPI.APIProtocol : string;
@@ -9582,6 +15002,7 @@ begin
TDatafeedstatusesListResponse.RegisterObject;
TError.RegisterObject;
TErrors.RegisterObject;
+ TInstallment.RegisterObject;
TInventory.RegisterObject;
TInventoryCustomBatchRequest.RegisterObject;
TInventoryCustomBatchRequestEntry.RegisterObject;
@@ -9590,13 +15011,62 @@ begin
TInventorySetRequest.RegisterObject;
TInventorySetResponse.RegisterObject;
TLoyaltyPoints.RegisterObject;
+ TOrder.RegisterObject;
+ TOrderAddress.RegisterObject;
+ TOrderCancellation.RegisterObject;
+ TOrderCustomer.RegisterObject;
+ TOrderDeliveryDetails.RegisterObject;
+ TOrderLineItem.RegisterObject;
+ TOrderLineItemProduct.RegisterObject;
+ TOrderLineItemProductVariantAttribute.RegisterObject;
+ TOrderLineItemReturnInfo.RegisterObject;
+ TOrderLineItemShippingDetails.RegisterObject;
+ TOrderLineItemShippingDetailsMethod.RegisterObject;
+ TOrderPaymentMethod.RegisterObject;
+ TOrderPromotion.RegisterObject;
+ TOrderPromotionBenefit.RegisterObject;
+ TOrderRefund.RegisterObject;
+ TOrderReturn.RegisterObject;
+ TOrderShipment.RegisterObject;
+ TOrderShipmentLineItemShipment.RegisterObject;
+ TOrdersAcknowledgeRequest.RegisterObject;
+ TOrdersAcknowledgeResponse.RegisterObject;
+ TOrdersAdvanceTestOrderResponse.RegisterObject;
+ TOrdersCancelLineItemRequest.RegisterObject;
+ TOrdersCancelLineItemResponse.RegisterObject;
+ TOrdersCancelRequest.RegisterObject;
+ TOrdersCancelResponse.RegisterObject;
+ TOrdersCreateTestOrderRequest.RegisterObject;
+ TOrdersCreateTestOrderResponse.RegisterObject;
+ TOrdersCustomBatchRequest.RegisterObject;
+ TOrdersCustomBatchRequestEntry.RegisterObject;
+ TOrdersCustomBatchRequestEntryCancel.RegisterObject;
+ TOrdersCustomBatchRequestEntryCancelLineItem.RegisterObject;
+ TOrdersCustomBatchRequestEntryRefund.RegisterObject;
+ TOrdersCustomBatchRequestEntryReturnLineItem.RegisterObject;
+ TOrdersCustomBatchRequestEntryShipLineItems.RegisterObject;
+ TOrdersCustomBatchRequestEntryUpdateShipment.RegisterObject;
+ TOrdersCustomBatchResponse.RegisterObject;
+ TOrdersCustomBatchResponseEntry.RegisterObject;
+ TOrdersGetByMerchantOrderIdResponse.RegisterObject;
+ TOrdersGetTestOrderTemplateResponse.RegisterObject;
+ TOrdersListResponse.RegisterObject;
+ TOrdersRefundRequest.RegisterObject;
+ TOrdersRefundResponse.RegisterObject;
+ TOrdersReturnLineItemRequest.RegisterObject;
+ TOrdersReturnLineItemResponse.RegisterObject;
+ TOrdersShipLineItemsRequest.RegisterObject;
+ TOrdersShipLineItemsResponse.RegisterObject;
+ TOrdersUpdateMerchantOrderIdRequest.RegisterObject;
+ TOrdersUpdateMerchantOrderIdResponse.RegisterObject;
+ TOrdersUpdateShipmentRequest.RegisterObject;
+ TOrdersUpdateShipmentResponse.RegisterObject;
TPrice.RegisterObject;
TProduct.RegisterObject;
TProductAspect.RegisterObject;
TProductCustomAttribute.RegisterObject;
TProductCustomGroup.RegisterObject;
TProductDestination.RegisterObject;
- TProductInstallment.RegisterObject;
TProductShipping.RegisterObject;
TProductShippingDimension.RegisterObject;
TProductShippingWeight.RegisterObject;
@@ -9616,6 +15086,11 @@ begin
TProductstatusesCustomBatchResponse.RegisterObject;
TProductstatusesCustomBatchResponseEntry.RegisterObject;
TProductstatusesListResponse.RegisterObject;
+ TTestOrder.RegisterObject;
+ TTestOrderCustomer.RegisterObject;
+ TTestOrderLineItem.RegisterObject;
+ TTestOrderLineItemProduct.RegisterObject;
+ TTestOrderPaymentMethod.RegisterObject;
TWeight.RegisterObject;
end;
@@ -9788,6 +15263,30 @@ end;
+Function TContentAPI.GetOrdersInstance : TOrdersResource;
+
+begin
+ if (FOrdersInstance=Nil) then
+ FOrdersInstance:=CreateOrdersResource;
+ Result:=FOrdersInstance;
+end;
+
+Function TContentAPI.CreateOrdersResource : TOrdersResource;
+
+begin
+ Result:=CreateOrdersResource(Self);
+end;
+
+
+Function TContentAPI.CreateOrdersResource(AOwner : TComponent) : TOrdersResource;
+
+begin
+ Result:=TOrdersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TContentAPI.GetProductsInstance : TProductsResource;
begin
diff --git a/packages/googleapi/src/googlecoordinate.pp b/packages/googleapi/src/googlecoordinate.pp
index 8ada4986fe..db4a1b041d 100644
--- a/packages/googleapi/src/googlecoordinate.pp
+++ b/packages/googleapi/src/googlecoordinate.pp
@@ -1,19 +1,4 @@
unit googlecoordinate;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:01
{$MODE objfpc}
{$H+}
@@ -108,12 +93,12 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setenabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setenumitems(AIndex : Integer; AValue : TCustomFieldDefTypeenumitemsArray); virtual;
+ Procedure Setenabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setenumitems(AIndex : Integer; const AValue : TCustomFieldDefTypeenumitemsArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrequiredForCheckout(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetrequiredForCheckout(AIndex : Integer; const AValue : boolean); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -141,7 +126,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TCustomFieldDefListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCustomFieldDefListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -164,7 +149,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetcustomField(AIndex : Integer; AValue : TCustomFieldsTypecustomFieldArray); virtual;
+ Procedure SetcustomField(AIndex : Integer; const AValue : TCustomFieldsTypecustomFieldArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -188,7 +173,7 @@ type
Fvalue : String;
Protected
//Property setters
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
@@ -212,9 +197,9 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetjobChange(AIndex : Integer; AValue : TJobTypejobChangeArray); virtual;
+ Procedure SetjobChange(AIndex : Integer; const AValue : TJobTypejobChangeArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstate(AIndex : Integer; AValue : TJobState); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : TJobState); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -240,7 +225,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstate(AIndex : Integer; AValue : TJobState); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : TJobState); virtual;
Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -261,7 +246,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TJobListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TJobListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -294,12 +279,12 @@ type
Protected
//Property setters
Procedure Setassignee(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcustomFields(AIndex : Integer; AValue : TCustomFields); virtual;
+ Procedure SetcustomFields(AIndex : Integer; const AValue : TCustomFields); virtual;
Procedure SetcustomerName(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomerPhoneNumber(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocation(AIndex : Integer; AValue : TLocation); virtual;
- Procedure Setnote(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TLocation); virtual;
+ Procedure Setnote(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setprogress(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -332,10 +317,10 @@ type
Flng : double;
Protected
//Property setters
- Procedure SetaddressLine(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetaddressLine(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlat(AIndex : Integer; AValue : double); virtual;
- Procedure Setlng(AIndex : Integer; AValue : double); virtual;
+ Procedure Setlat(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlng(AIndex : Integer; const AValue : double); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -361,10 +346,10 @@ type
FtokenPagination : TTokenPagination;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TLocationListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TLocationListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -392,10 +377,10 @@ type
Protected
//Property setters
Procedure SetcollectionTime(AIndex : Integer; const AValue : String); virtual;
- Procedure SetconfidenceRadius(AIndex : Integer; AValue : double); virtual;
+ Procedure SetconfidenceRadius(AIndex : Integer; const AValue : double); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
+ Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property collectionTime : String Index 0 Read FcollectionTime Write SetcollectionTime;
@@ -419,7 +404,7 @@ type
FstartTime : String;
Protected
//Property setters
- Procedure SetallDay(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetallDay(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setduration(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
@@ -466,7 +451,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TTeamListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTeamListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -530,7 +515,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TWorkerListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TWorkerListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -580,6 +565,7 @@ type
TJobsListOptions = Record
maxResults : integer;
minModifiedTimestampMs : String;
+ omitJobChanges : boolean;
pageToken : String;
end;
@@ -830,7 +816,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCustomFieldDef.Setenabled(AIndex : Integer; AValue : boolean);
+Procedure TCustomFieldDef.Setenabled(AIndex : Integer; const AValue : boolean);
begin
If (Fenabled=AValue) then exit;
@@ -840,7 +826,7 @@ end;
-Procedure TCustomFieldDef.Setenumitems(AIndex : Integer; AValue : TCustomFieldDefTypeenumitemsArray);
+Procedure TCustomFieldDef.Setenumitems(AIndex : Integer; const AValue : TCustomFieldDefTypeenumitemsArray);
begin
If (Fenumitems=AValue) then exit;
@@ -880,7 +866,7 @@ end;
-Procedure TCustomFieldDef.SetrequiredForCheckout(AIndex : Integer; AValue : boolean);
+Procedure TCustomFieldDef.SetrequiredForCheckout(AIndex : Integer; const AValue : boolean);
begin
If (FrequiredForCheckout=AValue) then exit;
@@ -931,7 +917,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCustomFieldDefListResponse.Setitems(AIndex : Integer; AValue : TCustomFieldDefListResponseTypeitemsArray);
+Procedure TCustomFieldDefListResponse.Setitems(AIndex : Integer; const AValue : TCustomFieldDefListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -971,7 +957,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCustomFields.SetcustomField(AIndex : Integer; AValue : TCustomFieldsTypecustomFieldArray);
+Procedure TCustomFields.SetcustomField(AIndex : Integer; const AValue : TCustomFieldsTypecustomFieldArray);
begin
If (FcustomField=AValue) then exit;
@@ -1011,7 +997,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEnumItemDef.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TEnumItemDef.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -1058,7 +1044,7 @@ end;
-Procedure TJob.SetjobChange(AIndex : Integer; AValue : TJobTypejobChangeArray);
+Procedure TJob.SetjobChange(AIndex : Integer; const AValue : TJobTypejobChangeArray);
begin
If (FjobChange=AValue) then exit;
@@ -1078,7 +1064,7 @@ end;
-Procedure TJob.Setstate(AIndex : Integer; AValue : TJobState);
+Procedure TJob.Setstate(AIndex : Integer; const AValue : TJobState);
begin
If (Fstate=AValue) then exit;
@@ -1118,7 +1104,7 @@ end;
-Procedure TJobChange.Setstate(AIndex : Integer; AValue : TJobState);
+Procedure TJobChange.Setstate(AIndex : Integer; const AValue : TJobState);
begin
If (Fstate=AValue) then exit;
@@ -1145,7 +1131,7 @@ end;
--------------------------------------------------------------------}
-Procedure TJobListResponse.Setitems(AIndex : Integer; AValue : TJobListResponseTypeitemsArray);
+Procedure TJobListResponse.Setitems(AIndex : Integer; const AValue : TJobListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1205,7 +1191,7 @@ end;
-Procedure TJobState.SetcustomFields(AIndex : Integer; AValue : TCustomFields);
+Procedure TJobState.SetcustomFields(AIndex : Integer; const AValue : TCustomFields);
begin
If (FcustomFields=AValue) then exit;
@@ -1245,7 +1231,7 @@ end;
-Procedure TJobState.Setlocation(AIndex : Integer; AValue : TLocation);
+Procedure TJobState.Setlocation(AIndex : Integer; const AValue : TLocation);
begin
If (Flocation=AValue) then exit;
@@ -1255,7 +1241,7 @@ end;
-Procedure TJobState.Setnote(AIndex : Integer; AValue : TStringArray);
+Procedure TJobState.Setnote(AIndex : Integer; const AValue : TStringArray);
begin
If (Fnote=AValue) then exit;
@@ -1305,7 +1291,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLocation.SetaddressLine(AIndex : Integer; AValue : TStringArray);
+Procedure TLocation.SetaddressLine(AIndex : Integer; const AValue : TStringArray);
begin
If (FaddressLine=AValue) then exit;
@@ -1325,7 +1311,7 @@ end;
-Procedure TLocation.Setlat(AIndex : Integer; AValue : double);
+Procedure TLocation.Setlat(AIndex : Integer; const AValue : double);
begin
If (Flat=AValue) then exit;
@@ -1335,7 +1321,7 @@ end;
-Procedure TLocation.Setlng(AIndex : Integer; AValue : double);
+Procedure TLocation.Setlng(AIndex : Integer; const AValue : double);
begin
If (Flng=AValue) then exit;
@@ -1365,7 +1351,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLocationListResponse.Setitems(AIndex : Integer; AValue : TLocationListResponseTypeitemsArray);
+Procedure TLocationListResponse.Setitems(AIndex : Integer; const AValue : TLocationListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1395,7 +1381,7 @@ end;
-Procedure TLocationListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TLocationListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -1435,7 +1421,7 @@ end;
-Procedure TLocationRecord.SetconfidenceRadius(AIndex : Integer; AValue : double);
+Procedure TLocationRecord.SetconfidenceRadius(AIndex : Integer; const AValue : double);
begin
If (FconfidenceRadius=AValue) then exit;
@@ -1455,7 +1441,7 @@ end;
-Procedure TLocationRecord.Setlatitude(AIndex : Integer; AValue : double);
+Procedure TLocationRecord.Setlatitude(AIndex : Integer; const AValue : double);
begin
If (Flatitude=AValue) then exit;
@@ -1465,7 +1451,7 @@ end;
-Procedure TLocationRecord.Setlongitude(AIndex : Integer; AValue : double);
+Procedure TLocationRecord.Setlongitude(AIndex : Integer; const AValue : double);
begin
If (Flongitude=AValue) then exit;
@@ -1482,7 +1468,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSchedule.SetallDay(AIndex : Integer; AValue : boolean);
+Procedure TSchedule.SetallDay(AIndex : Integer; const AValue : boolean);
begin
If (FallDay=AValue) then exit;
@@ -1576,7 +1562,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTeamListResponse.Setitems(AIndex : Integer; AValue : TTeamListResponseTypeitemsArray);
+Procedure TTeamListResponse.Setitems(AIndex : Integer; const AValue : TTeamListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1680,7 +1666,7 @@ end;
--------------------------------------------------------------------}
-Procedure TWorkerListResponse.Setitems(AIndex : Integer; AValue : TWorkerListResponseTypeitemsArray);
+Procedure TWorkerListResponse.Setitems(AIndex : Integer; const AValue : TWorkerListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1841,6 +1827,7 @@ begin
_Q:='';
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'minModifiedTimestampMs',AQuery.minModifiedTimestampMs);
+ AddToQuery(_Q,'omitJobChanges',AQuery.omitJobChanges);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(teamId,_Q);
end;
@@ -2158,7 +2145,7 @@ end;
Class Function TCoordinateAPI.APIRevision : String;
begin
- Result:='20141215';
+ Result:='20150811';
end;
Class Function TCoordinateAPI.APIID : String;
@@ -2212,7 +2199,7 @@ end;
Class Function TCoordinateAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TCoordinateAPI.APIbasePath : string;
@@ -2224,7 +2211,7 @@ end;
Class Function TCoordinateAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/coordinate/v1/';
+ Result:='https://www.googleapis.com/coordinate/v1/';
end;
Class Function TCoordinateAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlecustomsearch.pp b/packages/googleapi/src/googlecustomsearch.pp
index 5d1073d7b0..49665fd91f 100644
--- a/packages/googleapi/src/googlecustomsearch.pp
+++ b/packages/googleapi/src/googlecustomsearch.pp
@@ -1,19 +1,4 @@
unit googlecustomsearch;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:01
{$MODE objfpc}
{$H+}
@@ -85,7 +70,7 @@ type
Ftitle : String;
Protected
//Property setters
- Procedure Setfacets(AIndex : Integer; AValue : TContextTypefacetsArray); virtual;
+ Procedure Setfacets(AIndex : Integer; const AValue : TContextTypefacetsArray); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -134,9 +119,9 @@ type
Fwidth : integer;
Protected
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -159,10 +144,10 @@ type
Ftitle : String;
Protected
//Property setters
- Procedure SetbodyLines(AIndex : Integer; AValue : TPromotionTypebodyLinesArray); virtual;
+ Procedure SetbodyLines(AIndex : Integer; const AValue : TPromotionTypebodyLinesArray); virtual;
Procedure SetdisplayLink(AIndex : Integer; const AValue : String); virtual;
Procedure SethtmlTitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TPromotionTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TPromotionTypeimage); virtual;
Procedure Setlink(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -225,7 +210,7 @@ type
FtotalResults : String;
Protected
//Property setters
- Procedure Setcount(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setcount(AIndex : Integer; const AValue : integer); virtual;
Procedure Setcr(AIndex : Integer; const AValue : String); virtual;
Procedure Setcref(AIndex : Integer; const AValue : String); virtual;
Procedure Setcx(AIndex : Integer; const AValue : String); virtual;
@@ -258,8 +243,8 @@ type
Procedure SetsiteSearch(AIndex : Integer; const AValue : String); virtual;
Procedure SetsiteSearchFilter(AIndex : Integer; const AValue : String); virtual;
Procedure Setsort(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartIndex(AIndex : Integer; AValue : integer); virtual;
- Procedure SetstartPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetstartPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalResults(AIndex : Integer; const AValue : String); virtual;
Public
@@ -319,13 +304,13 @@ type
Fwidth : integer;
Protected
//Property setters
- Procedure SetbyteSize(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetbyteSize(AIndex : Integer; const AValue : integer); virtual;
Procedure SetcontextLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
- Procedure SetthumbnailHeight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetthumbnailHeight(AIndex : Integer; const AValue : integer); virtual;
Procedure SetthumbnailLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetthumbnailWidth(AIndex : Integer; AValue : integer); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetthumbnailWidth(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property byteSize : integer Index 0 Read FbyteSize Write SetbyteSize;
@@ -404,12 +389,12 @@ type
Procedure SethtmlFormattedUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SethtmlSnippet(AIndex : Integer; const AValue : String); virtual;
Procedure SethtmlTitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TResultTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TResultTypeimage); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlabels(AIndex : Integer; AValue : TResultTypelabelsArray); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TResultTypelabelsArray); virtual;
Procedure Setlink(AIndex : Integer; const AValue : String); virtual;
Procedure Setmime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpagemap(AIndex : Integer; AValue : TResultTypepagemap); virtual;
+ Procedure Setpagemap(AIndex : Integer; const AValue : TResultTypepagemap); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -464,7 +449,7 @@ type
//Property setters
Procedure SetformattedSearchTime(AIndex : Integer; const AValue : String); virtual;
Procedure SetformattedTotalResults(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsearchTime(AIndex : Integer; AValue : double); virtual;
+ Procedure SetsearchTime(AIndex : Integer; const AValue : double); virtual;
Procedure SettotalResults(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -530,14 +515,14 @@ type
Furl : TSearchTypeurl;
Protected
//Property setters
- Procedure Setcontext(AIndex : Integer; AValue : TContext); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TSearchTypeitemsArray); virtual;
+ Procedure Setcontext(AIndex : Integer; const AValue : TContext); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSearchTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpromotions(AIndex : Integer; AValue : TSearchTypepromotionsArray); virtual;
- Procedure Setqueries(AIndex : Integer; AValue : TSearchTypequeries); virtual;
- Procedure SetsearchInformation(AIndex : Integer; AValue : TSearchTypesearchInformation); virtual;
- Procedure Setspelling(AIndex : Integer; AValue : TSearchTypespelling); virtual;
- Procedure Seturl(AIndex : Integer; AValue : TSearchTypeurl); virtual;
+ Procedure Setpromotions(AIndex : Integer; const AValue : TSearchTypepromotionsArray); virtual;
+ Procedure Setqueries(AIndex : Integer; const AValue : TSearchTypequeries); virtual;
+ Procedure SetsearchInformation(AIndex : Integer; const AValue : TSearchTypesearchInformation); virtual;
+ Procedure Setspelling(AIndex : Integer; const AValue : TSearchTypespelling); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : TSearchTypeurl); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -699,7 +684,7 @@ end;
--------------------------------------------------------------------}
-Procedure TContext.Setfacets(AIndex : Integer; AValue : TContextTypefacetsArray);
+Procedure TContext.Setfacets(AIndex : Integer; const AValue : TContextTypefacetsArray);
begin
If (Ffacets=AValue) then exit;
@@ -786,7 +771,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPromotionTypeimage.Setheight(AIndex : Integer; AValue : integer);
+Procedure TPromotionTypeimage.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -806,7 +791,7 @@ end;
-Procedure TPromotionTypeimage.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TPromotionTypeimage.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -823,7 +808,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPromotion.SetbodyLines(AIndex : Integer; AValue : TPromotionTypebodyLinesArray);
+Procedure TPromotion.SetbodyLines(AIndex : Integer; const AValue : TPromotionTypebodyLinesArray);
begin
If (FbodyLines=AValue) then exit;
@@ -853,7 +838,7 @@ end;
-Procedure TPromotion.Setimage(AIndex : Integer; AValue : TPromotionTypeimage);
+Procedure TPromotion.Setimage(AIndex : Integer; const AValue : TPromotionTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -903,7 +888,7 @@ end;
--------------------------------------------------------------------}
-Procedure TQuery.Setcount(AIndex : Integer; AValue : integer);
+Procedure TQuery.Setcount(AIndex : Integer; const AValue : integer);
begin
If (Fcount=AValue) then exit;
@@ -1233,7 +1218,7 @@ end;
-Procedure TQuery.SetstartIndex(AIndex : Integer; AValue : integer);
+Procedure TQuery.SetstartIndex(AIndex : Integer; const AValue : integer);
begin
If (FstartIndex=AValue) then exit;
@@ -1243,7 +1228,7 @@ end;
-Procedure TQuery.SetstartPage(AIndex : Integer; AValue : integer);
+Procedure TQuery.SetstartPage(AIndex : Integer; const AValue : integer);
begin
If (FstartPage=AValue) then exit;
@@ -1280,7 +1265,7 @@ end;
--------------------------------------------------------------------}
-Procedure TResultTypeimage.SetbyteSize(AIndex : Integer; AValue : integer);
+Procedure TResultTypeimage.SetbyteSize(AIndex : Integer; const AValue : integer);
begin
If (FbyteSize=AValue) then exit;
@@ -1300,7 +1285,7 @@ end;
-Procedure TResultTypeimage.Setheight(AIndex : Integer; AValue : integer);
+Procedure TResultTypeimage.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -1310,7 +1295,7 @@ end;
-Procedure TResultTypeimage.SetthumbnailHeight(AIndex : Integer; AValue : integer);
+Procedure TResultTypeimage.SetthumbnailHeight(AIndex : Integer; const AValue : integer);
begin
If (FthumbnailHeight=AValue) then exit;
@@ -1330,7 +1315,7 @@ end;
-Procedure TResultTypeimage.SetthumbnailWidth(AIndex : Integer; AValue : integer);
+Procedure TResultTypeimage.SetthumbnailWidth(AIndex : Integer; const AValue : integer);
begin
If (FthumbnailWidth=AValue) then exit;
@@ -1340,7 +1325,7 @@ end;
-Procedure TResultTypeimage.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TResultTypeimage.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -1477,7 +1462,7 @@ end;
-Procedure TResult.Setimage(AIndex : Integer; AValue : TResultTypeimage);
+Procedure TResult.Setimage(AIndex : Integer; const AValue : TResultTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -1497,7 +1482,7 @@ end;
-Procedure TResult.Setlabels(AIndex : Integer; AValue : TResultTypelabelsArray);
+Procedure TResult.Setlabels(AIndex : Integer; const AValue : TResultTypelabelsArray);
begin
If (Flabels=AValue) then exit;
@@ -1527,7 +1512,7 @@ end;
-Procedure TResult.Setpagemap(AIndex : Integer; AValue : TResultTypepagemap);
+Procedure TResult.Setpagemap(AIndex : Integer; const AValue : TResultTypepagemap);
begin
If (Fpagemap=AValue) then exit;
@@ -1610,7 +1595,7 @@ end;
-Procedure TSearchTypesearchInformation.SetsearchTime(AIndex : Integer; AValue : double);
+Procedure TSearchTypesearchInformation.SetsearchTime(AIndex : Integer; const AValue : double);
begin
If (FsearchTime=AValue) then exit;
@@ -1702,7 +1687,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSearch.Setcontext(AIndex : Integer; AValue : TContext);
+Procedure TSearch.Setcontext(AIndex : Integer; const AValue : TContext);
begin
If (Fcontext=AValue) then exit;
@@ -1712,7 +1697,7 @@ end;
-Procedure TSearch.Setitems(AIndex : Integer; AValue : TSearchTypeitemsArray);
+Procedure TSearch.Setitems(AIndex : Integer; const AValue : TSearchTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1732,7 +1717,7 @@ end;
-Procedure TSearch.Setpromotions(AIndex : Integer; AValue : TSearchTypepromotionsArray);
+Procedure TSearch.Setpromotions(AIndex : Integer; const AValue : TSearchTypepromotionsArray);
begin
If (Fpromotions=AValue) then exit;
@@ -1742,7 +1727,7 @@ end;
-Procedure TSearch.Setqueries(AIndex : Integer; AValue : TSearchTypequeries);
+Procedure TSearch.Setqueries(AIndex : Integer; const AValue : TSearchTypequeries);
begin
If (Fqueries=AValue) then exit;
@@ -1752,7 +1737,7 @@ end;
-Procedure TSearch.SetsearchInformation(AIndex : Integer; AValue : TSearchTypesearchInformation);
+Procedure TSearch.SetsearchInformation(AIndex : Integer; const AValue : TSearchTypesearchInformation);
begin
If (FsearchInformation=AValue) then exit;
@@ -1762,7 +1747,7 @@ end;
-Procedure TSearch.Setspelling(AIndex : Integer; AValue : TSearchTypespelling);
+Procedure TSearch.Setspelling(AIndex : Integer; const AValue : TSearchTypespelling);
begin
If (Fspelling=AValue) then exit;
@@ -1772,7 +1757,7 @@ end;
-Procedure TSearch.Seturl(AIndex : Integer; AValue : TSearchTypeurl);
+Procedure TSearch.Seturl(AIndex : Integer; const AValue : TSearchTypeurl);
begin
If (Furl=AValue) then exit;
@@ -1890,7 +1875,7 @@ end;
Class Function TCustomsearchAPI.APIRevision : String;
begin
- Result:='20131205';
+ Result:='20160411';
end;
Class Function TCustomsearchAPI.APIID : String;
@@ -1944,7 +1929,7 @@ end;
Class Function TCustomsearchAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TCustomsearchAPI.APIbasePath : string;
@@ -1956,7 +1941,7 @@ end;
Class Function TCustomsearchAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/customsearch/';
+ Result:='https://www.googleapis.com/customsearch/';
end;
Class Function TCustomsearchAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googledataflow.pp b/packages/googleapi/src/googledataflow.pp
index 7641f6d156..97b9030e9a 100644
--- a/packages/googleapi/src/googledataflow.pp
+++ b/packages/googleapi/src/googledataflow.pp
@@ -1,19 +1,4 @@
unit googledataflow;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:01
{$MODE objfpc}
{$H+}
@@ -24,357 +9,420 @@ uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
- TGoogleprotobufValue = TJSONSchema;
- TApproximateProgress = Class;
- TAutoscalingSettings = Class;
- TComputationTopology = Class;
- TDataDiskAssignment = Class;
- TDerivedSource = Class;
- TDisk = Class;
- TDynamicSourceSplit = Class;
- TEnvironment = Class;
- TFlattenInstruction = Class;
- TInstructionInput = Class;
- TInstructionOutput = Class;
TJob = Class;
+ TEnvironment = Class;
+ TWorkerPool = Class;
+ TPackage = Class;
+ TTaskRunnerSettings = Class;
+ TWorkerSettings = Class;
+ TDisk = Class;
+ TAutoscalingSettings = Class;
+ TStep = Class;
TJobExecutionInfo = Class;
TJobExecutionStageInfo = Class;
+ TListJobsResponse = Class;
+ TListJobMessagesResponse = Class;
TJobMessage = Class;
TJobMetrics = Class;
- TKeyRangeDataDiskAssignment = Class;
- TKeyRangeLocation = Class;
+ TMetricUpdate = Class;
+ TMetricStructuredName = Class;
+ TReportWorkItemStatusRequest = Class;
+ TWorkItemStatus = Class;
+ TStatus = Class;
+ TApproximateReportedProgress = Class;
+ TPosition = Class;
+ TConcatPosition = Class;
+ TReportedParallelism = Class;
+ TDynamicSourceSplit = Class;
+ TDerivedSource = Class;
+ TSource = Class;
+ TSourceMetadata = Class;
+ TSourceOperationResponse = Class;
+ TSourceSplitResponse = Class;
+ TSourceSplitShard = Class;
+ TSourceGetMetadataResponse = Class;
+ TSourceFork = Class;
+ TApproximateProgress = Class;
+ TReportWorkItemStatusResponse = Class;
+ TWorkItemServiceState = Class;
+ TApproximateSplitRequest = Class;
TLeaseWorkItemRequest = Class;
TLeaseWorkItemResponse = Class;
- TListJobMessagesResponse = Class;
- TListJobsResponse = Class;
+ TWorkItem = Class;
TMapTask = Class;
- TMetricStructuredName = Class;
- TMetricUpdate = Class;
- TMountedDataDisk = Class;
- TMultiOutputInfo = Class;
- TPackage = Class;
- TParDoInstruction = Class;
TParallelInstruction = Class;
- TPartialGroupByKeyInstruction = Class;
- TPosition = Class;
- TPubsubLocation = Class;
TReadInstruction = Class;
- TReportWorkItemStatusRequest = Class;
- TReportWorkItemStatusResponse = Class;
+ TWriteInstruction = Class;
+ TInstructionInput = Class;
+ TSink = Class;
+ TParDoInstruction = Class;
+ TSideInputInfo = Class;
+ TMultiOutputInfo = Class;
+ TPartialGroupByKeyInstruction = Class;
+ TFlattenInstruction = Class;
+ TInstructionOutput = Class;
TSeqMapTask = Class;
TSeqMapTaskOutputInfo = Class;
TShellTask = Class;
- TSideInputInfo = Class;
- TSink = Class;
- TSource = Class;
- TSourceFork = Class;
- TSourceGetMetadataRequest = Class;
- TSourceGetMetadataResponse = Class;
- TSourceMetadata = Class;
+ TStreamingSetupTask = Class;
+ TTopologyConfig = Class;
+ TComputationTopology = Class;
+ TKeyRangeLocation = Class;
+ TStreamLocation = Class;
+ TStreamingStageLocation = Class;
+ TPubsubLocation = Class;
+ TStreamingSideInputLocation = Class;
+ TCustomSourceLocation = Class;
+ TStateFamilyConfig = Class;
+ TDataDiskAssignment = Class;
TSourceOperationRequest = Class;
- TSourceOperationResponse = Class;
- TSourceSplitOptions = Class;
TSourceSplitRequest = Class;
- TSourceSplitResponse = Class;
- TSourceSplitShard = Class;
- TStatus = Class;
- TStep = Class;
- TStreamLocation = Class;
- TStreamingComputationRanges = Class;
+ TSourceSplitOptions = Class;
+ TSourceGetMetadataRequest = Class;
TStreamingComputationTask = Class;
- TStreamingSetupTask = Class;
- TStreamingSideInputLocation = Class;
- TStreamingStageLocation = Class;
- TTaskRunnerSettings = Class;
- TTopologyConfig = Class;
- TWorkItem = Class;
- TWorkItemServiceState = Class;
- TWorkItemStatus = Class;
- TWorkerPool = Class;
- TWorkerSettings = Class;
- TWriteInstruction = Class;
- TApproximateProgressArray = Array of TApproximateProgress;
- TAutoscalingSettingsArray = Array of TAutoscalingSettings;
- TComputationTopologyArray = Array of TComputationTopology;
- TDataDiskAssignmentArray = Array of TDataDiskAssignment;
- TDerivedSourceArray = Array of TDerivedSource;
- TDiskArray = Array of TDisk;
- TDynamicSourceSplitArray = Array of TDynamicSourceSplit;
- TEnvironmentArray = Array of TEnvironment;
- TFlattenInstructionArray = Array of TFlattenInstruction;
- TInstructionInputArray = Array of TInstructionInput;
- TInstructionOutputArray = Array of TInstructionOutput;
+ TMountedDataDisk = Class;
+ TStreamingComputationRanges = Class;
+ TKeyRangeDataDiskAssignment = Class;
+ TSendWorkerMessagesRequest = Class;
+ TWorkerMessage = Class;
+ TWorkerHealthReport = Class;
+ TWorkerMessageCode = Class;
+ TSendWorkerMessagesResponse = Class;
+ TWorkerMessageResponse = Class;
+ TWorkerHealthReportResponse = Class;
TJobArray = Array of TJob;
+ TEnvironmentArray = Array of TEnvironment;
+ TWorkerPoolArray = Array of TWorkerPool;
+ TPackageArray = Array of TPackage;
+ TTaskRunnerSettingsArray = Array of TTaskRunnerSettings;
+ TWorkerSettingsArray = Array of TWorkerSettings;
+ TDiskArray = Array of TDisk;
+ TAutoscalingSettingsArray = Array of TAutoscalingSettings;
+ TStepArray = Array of TStep;
TJobExecutionInfoArray = Array of TJobExecutionInfo;
TJobExecutionStageInfoArray = Array of TJobExecutionStageInfo;
+ TListJobsResponseArray = Array of TListJobsResponse;
+ TListJobMessagesResponseArray = Array of TListJobMessagesResponse;
TJobMessageArray = Array of TJobMessage;
TJobMetricsArray = Array of TJobMetrics;
- TKeyRangeDataDiskAssignmentArray = Array of TKeyRangeDataDiskAssignment;
- TKeyRangeLocationArray = Array of TKeyRangeLocation;
+ TMetricUpdateArray = Array of TMetricUpdate;
+ TMetricStructuredNameArray = Array of TMetricStructuredName;
+ TReportWorkItemStatusRequestArray = Array of TReportWorkItemStatusRequest;
+ TWorkItemStatusArray = Array of TWorkItemStatus;
+ TStatusArray = Array of TStatus;
+ TApproximateReportedProgressArray = Array of TApproximateReportedProgress;
+ TPositionArray = Array of TPosition;
+ TConcatPositionArray = Array of TConcatPosition;
+ TReportedParallelismArray = Array of TReportedParallelism;
+ TDynamicSourceSplitArray = Array of TDynamicSourceSplit;
+ TDerivedSourceArray = Array of TDerivedSource;
+ TSourceArray = Array of TSource;
+ TSourceMetadataArray = Array of TSourceMetadata;
+ TSourceOperationResponseArray = Array of TSourceOperationResponse;
+ TSourceSplitResponseArray = Array of TSourceSplitResponse;
+ TSourceSplitShardArray = Array of TSourceSplitShard;
+ TSourceGetMetadataResponseArray = Array of TSourceGetMetadataResponse;
+ TSourceForkArray = Array of TSourceFork;
+ TApproximateProgressArray = Array of TApproximateProgress;
+ TReportWorkItemStatusResponseArray = Array of TReportWorkItemStatusResponse;
+ TWorkItemServiceStateArray = Array of TWorkItemServiceState;
+ TApproximateSplitRequestArray = Array of TApproximateSplitRequest;
TLeaseWorkItemRequestArray = Array of TLeaseWorkItemRequest;
TLeaseWorkItemResponseArray = Array of TLeaseWorkItemResponse;
- TListJobMessagesResponseArray = Array of TListJobMessagesResponse;
- TListJobsResponseArray = Array of TListJobsResponse;
+ TWorkItemArray = Array of TWorkItem;
TMapTaskArray = Array of TMapTask;
- TMetricStructuredNameArray = Array of TMetricStructuredName;
- TMetricUpdateArray = Array of TMetricUpdate;
- TMountedDataDiskArray = Array of TMountedDataDisk;
- TMultiOutputInfoArray = Array of TMultiOutputInfo;
- TPackageArray = Array of TPackage;
- TParDoInstructionArray = Array of TParDoInstruction;
TParallelInstructionArray = Array of TParallelInstruction;
- TPartialGroupByKeyInstructionArray = Array of TPartialGroupByKeyInstruction;
- TPositionArray = Array of TPosition;
- TPubsubLocationArray = Array of TPubsubLocation;
TReadInstructionArray = Array of TReadInstruction;
- TReportWorkItemStatusRequestArray = Array of TReportWorkItemStatusRequest;
- TReportWorkItemStatusResponseArray = Array of TReportWorkItemStatusResponse;
+ TWriteInstructionArray = Array of TWriteInstruction;
+ TInstructionInputArray = Array of TInstructionInput;
+ TSinkArray = Array of TSink;
+ TParDoInstructionArray = Array of TParDoInstruction;
+ TSideInputInfoArray = Array of TSideInputInfo;
+ TMultiOutputInfoArray = Array of TMultiOutputInfo;
+ TPartialGroupByKeyInstructionArray = Array of TPartialGroupByKeyInstruction;
+ TFlattenInstructionArray = Array of TFlattenInstruction;
+ TInstructionOutputArray = Array of TInstructionOutput;
TSeqMapTaskArray = Array of TSeqMapTask;
TSeqMapTaskOutputInfoArray = Array of TSeqMapTaskOutputInfo;
TShellTaskArray = Array of TShellTask;
- TSideInputInfoArray = Array of TSideInputInfo;
- TSinkArray = Array of TSink;
- TSourceArray = Array of TSource;
- TSourceForkArray = Array of TSourceFork;
- TSourceGetMetadataRequestArray = Array of TSourceGetMetadataRequest;
- TSourceGetMetadataResponseArray = Array of TSourceGetMetadataResponse;
- TSourceMetadataArray = Array of TSourceMetadata;
+ TStreamingSetupTaskArray = Array of TStreamingSetupTask;
+ TTopologyConfigArray = Array of TTopologyConfig;
+ TComputationTopologyArray = Array of TComputationTopology;
+ TKeyRangeLocationArray = Array of TKeyRangeLocation;
+ TStreamLocationArray = Array of TStreamLocation;
+ TStreamingStageLocationArray = Array of TStreamingStageLocation;
+ TPubsubLocationArray = Array of TPubsubLocation;
+ TStreamingSideInputLocationArray = Array of TStreamingSideInputLocation;
+ TCustomSourceLocationArray = Array of TCustomSourceLocation;
+ TStateFamilyConfigArray = Array of TStateFamilyConfig;
+ TDataDiskAssignmentArray = Array of TDataDiskAssignment;
TSourceOperationRequestArray = Array of TSourceOperationRequest;
- TSourceOperationResponseArray = Array of TSourceOperationResponse;
- TSourceSplitOptionsArray = Array of TSourceSplitOptions;
TSourceSplitRequestArray = Array of TSourceSplitRequest;
- TSourceSplitResponseArray = Array of TSourceSplitResponse;
- TSourceSplitShardArray = Array of TSourceSplitShard;
- TStatusArray = Array of TStatus;
- TStepArray = Array of TStep;
- TStreamLocationArray = Array of TStreamLocation;
- TStreamingComputationRangesArray = Array of TStreamingComputationRanges;
+ TSourceSplitOptionsArray = Array of TSourceSplitOptions;
+ TSourceGetMetadataRequestArray = Array of TSourceGetMetadataRequest;
TStreamingComputationTaskArray = Array of TStreamingComputationTask;
- TStreamingSetupTaskArray = Array of TStreamingSetupTask;
- TStreamingSideInputLocationArray = Array of TStreamingSideInputLocation;
- TStreamingStageLocationArray = Array of TStreamingStageLocation;
- TTaskRunnerSettingsArray = Array of TTaskRunnerSettings;
- TTopologyConfigArray = Array of TTopologyConfig;
- TWorkItemArray = Array of TWorkItem;
- TWorkItemServiceStateArray = Array of TWorkItemServiceState;
- TWorkItemStatusArray = Array of TWorkItemStatus;
- TWorkerPoolArray = Array of TWorkerPool;
- TWorkerSettingsArray = Array of TWorkerSettings;
- TWriteInstructionArray = Array of TWriteInstruction;
+ TMountedDataDiskArray = Array of TMountedDataDisk;
+ TStreamingComputationRangesArray = Array of TStreamingComputationRanges;
+ TKeyRangeDataDiskAssignmentArray = Array of TKeyRangeDataDiskAssignment;
+ TSendWorkerMessagesRequestArray = Array of TSendWorkerMessagesRequest;
+ TWorkerMessageArray = Array of TWorkerMessage;
+ TWorkerHealthReportArray = Array of TWorkerHealthReport;
+ TWorkerMessageCodeArray = Array of TWorkerMessageCode;
+ TSendWorkerMessagesResponseArray = Array of TSendWorkerMessagesResponse;
+ TWorkerMessageResponseArray = Array of TWorkerMessageResponse;
+ TWorkerHealthReportResponseArray = Array of TWorkerHealthReportResponse;
//Anonymous types, using auto-generated names
- TEnvironmentTypesdkPipelineOptions = Class;
+ TJobTypetransformNameMapping = Class;
TEnvironmentTypeuserAgent = Class;
TEnvironmentTypeversion = Class;
- TInstructionOutputTypecodec = Class;
+ TEnvironmentTypesdkPipelineOptions = Class;
+ TEnvironmentTypeinternalExperiments = Class;
+ TWorkerPoolTypemetadata = Class;
+ TWorkerPoolTypepoolArgs = Class;
+ TStepTypeproperties = Class;
TJobExecutionInfoTypestages = Class;
TMetricStructuredNameTypecontext = Class;
+ TStatusTypedetailsItem = Class;
+ TSourceTypespec = Class;
+ TSourceTypecodec = Class;
+ TSourceTypebaseSpecsItem = Class;
+ TWorkItemServiceStateTypeharnessData = Class;
+ TSinkTypespec = Class;
+ TSinkTypecodec = Class;
TParDoInstructionTypeuserFn = Class;
+ TSideInputInfoTypekind = Class;
TPartialGroupByKeyInstructionTypeinputElementCodec = Class;
TPartialGroupByKeyInstructionTypevalueCombiningFn = Class;
+ TInstructionOutputTypecodec = Class;
TSeqMapTaskTypeuserFn = Class;
- TSideInputInfoTypekind = Class;
- TSinkTypecodec = Class;
- TSinkTypespec = Class;
- TSourceTypebaseSpecsItem = Class;
- TSourceTypecodec = Class;
- TSourceTypespec = Class;
- TStatusTypedetailsItem = Class;
- TStepTypeproperties = Class;
- TWorkItemServiceStateTypeharnessData = Class;
- TWorkerPoolTypemetadata = Class;
- TWorkerPoolTypepoolArgs = Class;
- TComputationTopologyTypeinputsArray = Array of TStreamLocation;
- TComputationTopologyTypekeyRangesArray = Array of TKeyRangeLocation;
- TComputationTopologyTypeoutputsArray = Array of TStreamLocation;
- TEnvironmentTypeworkerPoolsArray = Array of TWorkerPool;
- TFlattenInstructionTypeinputsArray = Array of TInstructionInput;
+ TTopologyConfigTypeuserStageToComputationNameMap = Class;
+ TWorkerMessageTypelabels = Class;
+ TWorkerHealthReportTypepodsItem = Class;
+ TWorkerMessageCodeTypeparameters = Class;
TJobTypestepsArray = Array of TStep;
+ TEnvironmentTypeworkerPoolsArray = Array of TWorkerPool;
+ TWorkerPoolTypepackagesArray = Array of TPackage;
+ TWorkerPoolTypedataDisksArray = Array of TDisk;
+ TListJobsResponseTypejobsArray = Array of TJob;
+ TListJobMessagesResponseTypejobMessagesArray = Array of TJobMessage;
TJobMetricsTypemetricsArray = Array of TMetricUpdate;
+ TReportWorkItemStatusRequestTypeworkItemStatusesArray = Array of TWorkItemStatus;
+ TWorkItemStatusTypeerrorsArray = Array of TStatus;
+ TWorkItemStatusTypemetricUpdatesArray = Array of TMetricUpdate;
+ TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
+ TSourceTypebaseSpecsArray = Array of TSourceTypebaseSpecsItem;
+ TSourceSplitResponseTypebundlesArray = Array of TDerivedSource;
+ TSourceSplitResponseTypeshardsArray = Array of TSourceSplitShard;
+ TReportWorkItemStatusResponseTypeworkItemServiceStatesArray = Array of TWorkItemServiceState;
TLeaseWorkItemResponseTypeworkItemsArray = Array of TWorkItem;
- TListJobMessagesResponseTypejobMessagesArray = Array of TJobMessage;
- TListJobsResponseTypejobsArray = Array of TJob;
+ TWorkItemTypepackagesArray = Array of TPackage;
TMapTaskTypeinstructionsArray = Array of TParallelInstruction;
- TParDoInstructionTypemultiOutputInfosArray = Array of TMultiOutputInfo;
- TParDoInstructionTypesideInputsArray = Array of TSideInputInfo;
TParallelInstructionTypeoutputsArray = Array of TInstructionOutput;
- TReportWorkItemStatusRequestTypeworkItemStatusesArray = Array of TWorkItemStatus;
- TReportWorkItemStatusResponseTypeworkItemServiceStatesArray = Array of TWorkItemServiceState;
+ TParDoInstructionTypesideInputsArray = Array of TSideInputInfo;
+ TParDoInstructionTypemultiOutputInfosArray = Array of TMultiOutputInfo;
+ TSideInputInfoTypesourcesArray = Array of TSource;
+ TPartialGroupByKeyInstructionTypesideInputsArray = Array of TSideInputInfo;
+ TFlattenInstructionTypeinputsArray = Array of TInstructionInput;
TSeqMapTaskTypeinputsArray = Array of TSideInputInfo;
TSeqMapTaskTypeoutputInfosArray = Array of TSeqMapTaskOutputInfo;
- TSideInputInfoTypesourcesArray = Array of TSource;
- TSourceTypebaseSpecsArray = Array of TSourceTypebaseSpecsItem;
- TSourceSplitResponseTypebundlesArray = Array of TDerivedSource;
- TSourceSplitResponseTypeshardsArray = Array of TSourceSplitShard;
- TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
- TStreamingComputationRangesTyperangeAssignmentsArray = Array of TKeyRangeDataDiskAssignment;
- TStreamingComputationTaskTypecomputationRangesArray = Array of TStreamingComputationRanges;
- TStreamingComputationTaskTypedataDisksArray = Array of TMountedDataDisk;
TTopologyConfigTypecomputationsArray = Array of TComputationTopology;
TTopologyConfigTypedataDiskAssignmentsArray = Array of TDataDiskAssignment;
- TWorkItemTypepackagesArray = Array of TPackage;
- TWorkItemStatusTypeerrorsArray = Array of TStatus;
- TWorkItemStatusTypemetricUpdatesArray = Array of TMetricUpdate;
- TWorkerPoolTypedataDisksArray = Array of TDisk;
- TWorkerPoolTypepackagesArray = Array of TPackage;
+ TComputationTopologyTypekeyRangesArray = Array of TKeyRangeLocation;
+ TComputationTopologyTypeinputsArray = Array of TStreamLocation;
+ TComputationTopologyTypeoutputsArray = Array of TStreamLocation;
+ TComputationTopologyTypestateFamiliesArray = Array of TStateFamilyConfig;
+ TStreamingComputationTaskTypedataDisksArray = Array of TMountedDataDisk;
+ TStreamingComputationTaskTypecomputationRangesArray = Array of TStreamingComputationRanges;
+ TStreamingComputationRangesTyperangeAssignmentsArray = Array of TKeyRangeDataDiskAssignment;
+ TSendWorkerMessagesRequestTypeworkerMessagesArray = Array of TWorkerMessage;
+ TWorkerHealthReportTypepodsArray = Array of TWorkerHealthReportTypepodsItem;
+ TSendWorkerMessagesResponseTypeworkerMessageResponsesArray = Array of TWorkerMessageResponse;
{ --------------------------------------------------------------------
- TApproximateProgress
+ TJobTypetransformNameMapping
--------------------------------------------------------------------}
- TApproximateProgress = Class(TGoogleBaseObject)
+ TJobTypetransformNameMapping = Class(TGoogleBaseObject)
Private
- FpercentComplete : integer;
- Fposition : TPosition;
- FremainingTime : String;
Protected
//Property setters
- Procedure SetpercentComplete(AIndex : Integer; AValue : integer); virtual;
- Procedure Setposition(AIndex : Integer; AValue : TPosition); virtual;
- Procedure SetremainingTime(AIndex : Integer; const AValue : String); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property percentComplete : integer Index 0 Read FpercentComplete Write SetpercentComplete;
- Property position : TPosition Index 8 Read Fposition Write Setposition;
- Property remainingTime : String Index 16 Read FremainingTime Write SetremainingTime;
end;
- TApproximateProgressClass = Class of TApproximateProgress;
+ TJobTypetransformNameMappingClass = Class of TJobTypetransformNameMapping;
{ --------------------------------------------------------------------
- TAutoscalingSettings
+ TJob
--------------------------------------------------------------------}
- TAutoscalingSettings = Class(TGoogleBaseObject)
+ TJob = Class(TGoogleBaseObject)
Private
- Falgorithm : String;
- FmaxNumWorkers : integer;
+ Fid : String;
+ FprojectId : String;
+ Fname : String;
+ F_type : String;
+ Fenvironment : TEnvironment;
+ Fsteps : TJobTypestepsArray;
+ FcurrentState : String;
+ FcurrentStateTime : String;
+ FrequestedState : String;
+ FexecutionInfo : TJobExecutionInfo;
+ FcreateTime : String;
+ FreplaceJobId : String;
+ FtransformNameMapping : TJobTypetransformNameMapping;
+ FclientRequestId : String;
+ FreplacedByJobId : String;
+ FtempFiles : TStringArray;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setalgorithm(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxNumWorkers(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setenvironment(AIndex : Integer; const AValue : TEnvironment); virtual;
+ Procedure Setsteps(AIndex : Integer; const AValue : TJobTypestepsArray); virtual;
+ Procedure SetcurrentState(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcurrentStateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrequestedState(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexecutionInfo(AIndex : Integer; const AValue : TJobExecutionInfo); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreplaceJobId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettransformNameMapping(AIndex : Integer; const AValue : TJobTypetransformNameMapping); virtual;
+ Procedure SetclientRequestId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreplacedByJobId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettempFiles(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 algorithm : String Index 0 Read Falgorithm Write Setalgorithm;
- Property maxNumWorkers : integer Index 8 Read FmaxNumWorkers Write SetmaxNumWorkers;
+ Property id : String Index 0 Read Fid Write Setid;
+ Property projectId : String Index 8 Read FprojectId Write SetprojectId;
+ Property name : String Index 16 Read Fname Write Setname;
+ Property _type : String Index 24 Read F_type Write Set_type;
+ Property environment : TEnvironment Index 32 Read Fenvironment Write Setenvironment;
+ Property steps : TJobTypestepsArray Index 40 Read Fsteps Write Setsteps;
+ Property currentState : String Index 48 Read FcurrentState Write SetcurrentState;
+ Property currentStateTime : String Index 56 Read FcurrentStateTime Write SetcurrentStateTime;
+ Property requestedState : String Index 64 Read FrequestedState Write SetrequestedState;
+ Property executionInfo : TJobExecutionInfo Index 72 Read FexecutionInfo Write SetexecutionInfo;
+ Property createTime : String Index 80 Read FcreateTime Write SetcreateTime;
+ Property replaceJobId : String Index 88 Read FreplaceJobId Write SetreplaceJobId;
+ Property transformNameMapping : TJobTypetransformNameMapping Index 96 Read FtransformNameMapping Write SettransformNameMapping;
+ Property clientRequestId : String Index 104 Read FclientRequestId Write SetclientRequestId;
+ Property replacedByJobId : String Index 112 Read FreplacedByJobId Write SetreplacedByJobId;
+ Property tempFiles : TStringArray Index 120 Read FtempFiles Write SettempFiles;
end;
- TAutoscalingSettingsClass = Class of TAutoscalingSettings;
+ TJobClass = Class of TJob;
{ --------------------------------------------------------------------
- TComputationTopology
+ TEnvironmentTypeuserAgent
--------------------------------------------------------------------}
- TComputationTopology = Class(TGoogleBaseObject)
+ TEnvironmentTypeuserAgent = Class(TGoogleBaseObject)
Private
- FcomputationId : String;
- Finputs : TComputationTopologyTypeinputsArray;
- FkeyRanges : TComputationTopologyTypekeyRangesArray;
- Foutputs : TComputationTopologyTypeoutputsArray;
Protected
//Property setters
- Procedure SetcomputationId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinputs(AIndex : Integer; AValue : TComputationTopologyTypeinputsArray); virtual;
- Procedure SetkeyRanges(AIndex : Integer; AValue : TComputationTopologyTypekeyRangesArray); virtual;
- Procedure Setoutputs(AIndex : Integer; AValue : TComputationTopologyTypeoutputsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property computationId : String Index 0 Read FcomputationId Write SetcomputationId;
- Property inputs : TComputationTopologyTypeinputsArray Index 8 Read Finputs Write Setinputs;
- Property keyRanges : TComputationTopologyTypekeyRangesArray Index 16 Read FkeyRanges Write SetkeyRanges;
- Property outputs : TComputationTopologyTypeoutputsArray Index 24 Read Foutputs Write Setoutputs;
end;
- TComputationTopologyClass = Class of TComputationTopology;
+ TEnvironmentTypeuserAgentClass = Class of TEnvironmentTypeuserAgent;
{ --------------------------------------------------------------------
- TDataDiskAssignment
+ TEnvironmentTypeversion
--------------------------------------------------------------------}
- TDataDiskAssignment = Class(TGoogleBaseObject)
+ TEnvironmentTypeversion = Class(TGoogleBaseObject)
Private
- FdataDisks : TStringArray;
- FvmInstance : String;
Protected
//Property setters
- Procedure SetdataDisks(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetvmInstance(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
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property dataDisks : TStringArray Index 0 Read FdataDisks Write SetdataDisks;
- Property vmInstance : String Index 8 Read FvmInstance Write SetvmInstance;
end;
- TDataDiskAssignmentClass = Class of TDataDiskAssignment;
+ TEnvironmentTypeversionClass = Class of TEnvironmentTypeversion;
{ --------------------------------------------------------------------
- TDerivedSource
+ TEnvironmentTypesdkPipelineOptions
--------------------------------------------------------------------}
- TDerivedSource = Class(TGoogleBaseObject)
+ TEnvironmentTypesdkPipelineOptions = Class(TGoogleBaseObject)
Private
- FderivationMode : String;
- Fsource : TSource;
Protected
//Property setters
- Procedure SetderivationMode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsource(AIndex : Integer; AValue : TSource); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property derivationMode : String Index 0 Read FderivationMode Write SetderivationMode;
- Property source : TSource Index 8 Read Fsource Write Setsource;
end;
- TDerivedSourceClass = Class of TDerivedSource;
+ TEnvironmentTypesdkPipelineOptionsClass = Class of TEnvironmentTypesdkPipelineOptions;
{ --------------------------------------------------------------------
- TDisk
+ TEnvironmentTypeinternalExperiments
--------------------------------------------------------------------}
- TDisk = Class(TGoogleBaseObject)
+ TEnvironmentTypeinternalExperiments = Class(TGoogleBaseObject)
Private
- FdiskType : String;
- FmountPoint : String;
- FsizeGb : integer;
Protected
//Property setters
- Procedure SetdiskType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmountPoint(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsizeGb(AIndex : Integer; AValue : integer); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property diskType : String Index 0 Read FdiskType Write SetdiskType;
- Property mountPoint : String Index 8 Read FmountPoint Write SetmountPoint;
- Property sizeGb : integer Index 16 Read FsizeGb Write SetsizeGb;
end;
- TDiskClass = Class of TDisk;
+ TEnvironmentTypeinternalExperimentsClass = Class of TEnvironmentTypeinternalExperiments;
{ --------------------------------------------------------------------
- TDynamicSourceSplit
+ TEnvironment
--------------------------------------------------------------------}
- TDynamicSourceSplit = Class(TGoogleBaseObject)
+ TEnvironment = Class(TGoogleBaseObject)
Private
- Fprimary : TDerivedSource;
- Fresidual : TDerivedSource;
+ FtempStoragePrefix : String;
+ FclusterManagerApiService : String;
+ Fexperiments : TStringArray;
+ FworkerPools : TEnvironmentTypeworkerPoolsArray;
+ FuserAgent : TEnvironmentTypeuserAgent;
+ Fversion : TEnvironmentTypeversion;
+ Fdataset : String;
+ FsdkPipelineOptions : TEnvironmentTypesdkPipelineOptions;
+ FinternalExperiments : TEnvironmentTypeinternalExperiments;
Protected
//Property setters
- Procedure Setprimary(AIndex : Integer; AValue : TDerivedSource); virtual;
- Procedure Setresidual(AIndex : Integer; AValue : TDerivedSource); virtual;
+ Procedure SettempStoragePrefix(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclusterManagerApiService(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setexperiments(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetworkerPools(AIndex : Integer; const AValue : TEnvironmentTypeworkerPoolsArray); virtual;
+ Procedure SetuserAgent(AIndex : Integer; const AValue : TEnvironmentTypeuserAgent); virtual;
+ Procedure Setversion(AIndex : Integer; const AValue : TEnvironmentTypeversion); virtual;
+ Procedure Setdataset(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsdkPipelineOptions(AIndex : Integer; const AValue : TEnvironmentTypesdkPipelineOptions); virtual;
+ Procedure SetinternalExperiments(AIndex : Integer; const AValue : TEnvironmentTypeinternalExperiments); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property primary : TDerivedSource Index 0 Read Fprimary Write Setprimary;
- Property residual : TDerivedSource Index 8 Read Fresidual Write Setresidual;
+ Property tempStoragePrefix : String Index 0 Read FtempStoragePrefix Write SettempStoragePrefix;
+ Property clusterManagerApiService : String Index 8 Read FclusterManagerApiService Write SetclusterManagerApiService;
+ Property experiments : TStringArray Index 16 Read Fexperiments Write Setexperiments;
+ Property workerPools : TEnvironmentTypeworkerPoolsArray Index 24 Read FworkerPools Write SetworkerPools;
+ Property userAgent : TEnvironmentTypeuserAgent Index 32 Read FuserAgent Write SetuserAgent;
+ Property version : TEnvironmentTypeversion Index 40 Read Fversion Write Setversion;
+ Property dataset : String Index 48 Read Fdataset Write Setdataset;
+ Property sdkPipelineOptions : TEnvironmentTypesdkPipelineOptions Index 56 Read FsdkPipelineOptions Write SetsdkPipelineOptions;
+ Property internalExperiments : TEnvironmentTypeinternalExperiments Index 64 Read FinternalExperiments Write SetinternalExperiments;
end;
- TDynamicSourceSplitClass = Class of TDynamicSourceSplit;
+ TEnvironmentClass = Class of TEnvironment;
{ --------------------------------------------------------------------
- TEnvironmentTypesdkPipelineOptions
+ TWorkerPoolTypemetadata
--------------------------------------------------------------------}
- TEnvironmentTypesdkPipelineOptions = Class(TGoogleBaseObject)
+ TWorkerPoolTypemetadata = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -382,13 +430,13 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TEnvironmentTypesdkPipelineOptionsClass = Class of TEnvironmentTypesdkPipelineOptions;
+ TWorkerPoolTypemetadataClass = Class of TWorkerPoolTypemetadata;
{ --------------------------------------------------------------------
- TEnvironmentTypeuserAgent
+ TWorkerPoolTypepoolArgs
--------------------------------------------------------------------}
- TEnvironmentTypeuserAgent = Class(TGoogleBaseObject)
+ TWorkerPoolTypepoolArgs = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -396,185 +444,285 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TEnvironmentTypeuserAgentClass = Class of TEnvironmentTypeuserAgent;
+ TWorkerPoolTypepoolArgsClass = Class of TWorkerPoolTypepoolArgs;
{ --------------------------------------------------------------------
- TEnvironmentTypeversion
+ TWorkerPool
--------------------------------------------------------------------}
- TEnvironmentTypeversion = Class(TGoogleBaseObject)
+ TWorkerPool = Class(TGoogleBaseObject)
Private
+ Fkind : String;
+ FnumWorkers : integer;
+ Fpackages : TWorkerPoolTypepackagesArray;
+ FdefaultPackageSet : String;
+ FmachineType : String;
+ FteardownPolicy : String;
+ FdiskSizeGb : integer;
+ FdiskType : String;
+ FdiskSourceImage : String;
+ Fzone : String;
+ FtaskrunnerSettings : TTaskRunnerSettings;
+ FonHostMaintenance : String;
+ FdataDisks : TWorkerPoolTypedataDisksArray;
+ Fmetadata : TWorkerPoolTypemetadata;
+ FautoscalingSettings : TAutoscalingSettings;
+ FpoolArgs : TWorkerPoolTypepoolArgs;
+ Fnetwork : String;
+ Fsubnetwork : String;
+ FworkerHarnessContainerImage : String;
+ FnumThreadsPerWorker : integer;
Protected
//Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnumWorkers(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setpackages(AIndex : Integer; const AValue : TWorkerPoolTypepackagesArray); virtual;
+ Procedure SetdefaultPackageSet(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetteardownPolicy(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdiskSizeGb(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetdiskType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdiskSourceImage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettaskrunnerSettings(AIndex : Integer; const AValue : TTaskRunnerSettings); virtual;
+ Procedure SetonHostMaintenance(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdataDisks(AIndex : Integer; const AValue : TWorkerPoolTypedataDisksArray); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TWorkerPoolTypemetadata); virtual;
+ Procedure SetautoscalingSettings(AIndex : Integer; const AValue : TAutoscalingSettings); virtual;
+ Procedure SetpoolArgs(AIndex : Integer; const AValue : TWorkerPoolTypepoolArgs); virtual;
+ Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsubnetwork(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetworkerHarnessContainerImage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnumThreadsPerWorker(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
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property numWorkers : integer Index 8 Read FnumWorkers Write SetnumWorkers;
+ Property packages : TWorkerPoolTypepackagesArray Index 16 Read Fpackages Write Setpackages;
+ Property defaultPackageSet : String Index 24 Read FdefaultPackageSet Write SetdefaultPackageSet;
+ Property machineType : String Index 32 Read FmachineType Write SetmachineType;
+ Property teardownPolicy : String Index 40 Read FteardownPolicy Write SetteardownPolicy;
+ Property diskSizeGb : integer Index 48 Read FdiskSizeGb Write SetdiskSizeGb;
+ Property diskType : String Index 56 Read FdiskType Write SetdiskType;
+ Property diskSourceImage : String Index 64 Read FdiskSourceImage Write SetdiskSourceImage;
+ Property zone : String Index 72 Read Fzone Write Setzone;
+ Property taskrunnerSettings : TTaskRunnerSettings Index 80 Read FtaskrunnerSettings Write SettaskrunnerSettings;
+ Property onHostMaintenance : String Index 88 Read FonHostMaintenance Write SetonHostMaintenance;
+ Property dataDisks : TWorkerPoolTypedataDisksArray Index 96 Read FdataDisks Write SetdataDisks;
+ Property metadata : TWorkerPoolTypemetadata Index 104 Read Fmetadata Write Setmetadata;
+ Property autoscalingSettings : TAutoscalingSettings Index 112 Read FautoscalingSettings Write SetautoscalingSettings;
+ Property poolArgs : TWorkerPoolTypepoolArgs Index 120 Read FpoolArgs Write SetpoolArgs;
+ Property network : String Index 128 Read Fnetwork Write Setnetwork;
+ Property subnetwork : String Index 136 Read Fsubnetwork Write Setsubnetwork;
+ Property workerHarnessContainerImage : String Index 144 Read FworkerHarnessContainerImage Write SetworkerHarnessContainerImage;
+ Property numThreadsPerWorker : integer Index 152 Read FnumThreadsPerWorker Write SetnumThreadsPerWorker;
end;
- TEnvironmentTypeversionClass = Class of TEnvironmentTypeversion;
+ TWorkerPoolClass = Class of TWorkerPool;
{ --------------------------------------------------------------------
- TEnvironment
+ TPackage
--------------------------------------------------------------------}
- TEnvironment = Class(TGoogleBaseObject)
+ TPackage = Class(TGoogleBaseObject)
Private
- FclusterManagerApiService : String;
- Fdataset : String;
- Fexperiments : TStringArray;
- FsdkPipelineOptions : TEnvironmentTypesdkPipelineOptions;
+ Fname : String;
+ Flocation : String;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property location : String Index 8 Read Flocation Write Setlocation;
+ end;
+ TPackageClass = Class of TPackage;
+
+ { --------------------------------------------------------------------
+ TTaskRunnerSettings
+ --------------------------------------------------------------------}
+
+ TTaskRunnerSettings = Class(TGoogleBaseObject)
+ Private
+ FtaskUser : String;
+ FtaskGroup : String;
+ FoauthScopes : TStringArray;
+ FbaseUrl : String;
+ FdataflowApiVersion : String;
+ FparallelWorkerSettings : TWorkerSettings;
+ FbaseTaskDir : String;
+ FcontinueOnException : boolean;
+ FlogToSerialconsole : boolean;
+ Falsologtostderr : boolean;
+ FlogUploadLocation : String;
+ FlogDir : String;
FtempStoragePrefix : String;
- FuserAgent : TEnvironmentTypeuserAgent;
- Fversion : TEnvironmentTypeversion;
- FworkerPools : TEnvironmentTypeworkerPoolsArray;
+ FharnessCommand : String;
+ FworkflowFileName : String;
+ FcommandlinesFileName : String;
+ FvmId : String;
+ FlanguageHint : String;
+ FstreamingWorkerMainClass : String;
Protected
//Property setters
- Procedure SetclusterManagerApiService(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdataset(AIndex : Integer; const AValue : String); virtual;
- Procedure Setexperiments(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsdkPipelineOptions(AIndex : Integer; AValue : TEnvironmentTypesdkPipelineOptions); virtual;
+ Procedure SettaskUser(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettaskGroup(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoauthScopes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetbaseUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdataflowApiVersion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetparallelWorkerSettings(AIndex : Integer; const AValue : TWorkerSettings); virtual;
+ Procedure SetbaseTaskDir(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcontinueOnException(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetlogToSerialconsole(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setalsologtostderr(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetlogUploadLocation(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlogDir(AIndex : Integer; const AValue : String); virtual;
Procedure SettempStoragePrefix(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserAgent(AIndex : Integer; AValue : TEnvironmentTypeuserAgent); virtual;
- Procedure Setversion(AIndex : Integer; AValue : TEnvironmentTypeversion); virtual;
- Procedure SetworkerPools(AIndex : Integer; AValue : TEnvironmentTypeworkerPoolsArray); virtual;
+ Procedure SetharnessCommand(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetworkflowFileName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcommandlinesFileName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvmId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlanguageHint(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstreamingWorkerMainClass(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 clusterManagerApiService : String Index 0 Read FclusterManagerApiService Write SetclusterManagerApiService;
- Property dataset : String Index 8 Read Fdataset Write Setdataset;
- Property experiments : TStringArray Index 16 Read Fexperiments Write Setexperiments;
- Property sdkPipelineOptions : TEnvironmentTypesdkPipelineOptions Index 24 Read FsdkPipelineOptions Write SetsdkPipelineOptions;
- Property tempStoragePrefix : String Index 32 Read FtempStoragePrefix Write SettempStoragePrefix;
- Property userAgent : TEnvironmentTypeuserAgent Index 40 Read FuserAgent Write SetuserAgent;
- Property version : TEnvironmentTypeversion Index 48 Read Fversion Write Setversion;
- Property workerPools : TEnvironmentTypeworkerPoolsArray Index 56 Read FworkerPools Write SetworkerPools;
+ Property taskUser : String Index 0 Read FtaskUser Write SettaskUser;
+ Property taskGroup : String Index 8 Read FtaskGroup Write SettaskGroup;
+ Property oauthScopes : TStringArray Index 16 Read FoauthScopes Write SetoauthScopes;
+ Property baseUrl : String Index 24 Read FbaseUrl Write SetbaseUrl;
+ Property dataflowApiVersion : String Index 32 Read FdataflowApiVersion Write SetdataflowApiVersion;
+ Property parallelWorkerSettings : TWorkerSettings Index 40 Read FparallelWorkerSettings Write SetparallelWorkerSettings;
+ Property baseTaskDir : String Index 48 Read FbaseTaskDir Write SetbaseTaskDir;
+ Property continueOnException : boolean Index 56 Read FcontinueOnException Write SetcontinueOnException;
+ Property logToSerialconsole : boolean Index 64 Read FlogToSerialconsole Write SetlogToSerialconsole;
+ Property alsologtostderr : boolean Index 72 Read Falsologtostderr Write Setalsologtostderr;
+ Property logUploadLocation : String Index 80 Read FlogUploadLocation Write SetlogUploadLocation;
+ Property logDir : String Index 88 Read FlogDir Write SetlogDir;
+ Property tempStoragePrefix : String Index 96 Read FtempStoragePrefix Write SettempStoragePrefix;
+ Property harnessCommand : String Index 104 Read FharnessCommand Write SetharnessCommand;
+ Property workflowFileName : String Index 112 Read FworkflowFileName Write SetworkflowFileName;
+ Property commandlinesFileName : String Index 120 Read FcommandlinesFileName Write SetcommandlinesFileName;
+ Property vmId : String Index 128 Read FvmId Write SetvmId;
+ Property languageHint : String Index 136 Read FlanguageHint Write SetlanguageHint;
+ Property streamingWorkerMainClass : String Index 144 Read FstreamingWorkerMainClass Write SetstreamingWorkerMainClass;
end;
- TEnvironmentClass = Class of TEnvironment;
+ TTaskRunnerSettingsClass = Class of TTaskRunnerSettings;
{ --------------------------------------------------------------------
- TFlattenInstruction
+ TWorkerSettings
--------------------------------------------------------------------}
- TFlattenInstruction = Class(TGoogleBaseObject)
+ TWorkerSettings = Class(TGoogleBaseObject)
Private
- Finputs : TFlattenInstructionTypeinputsArray;
+ FbaseUrl : String;
+ FreportingEnabled : boolean;
+ FservicePath : String;
+ FshuffleServicePath : String;
+ FworkerId : String;
+ FtempStoragePrefix : String;
Protected
//Property setters
- Procedure Setinputs(AIndex : Integer; AValue : TFlattenInstructionTypeinputsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure SetbaseUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreportingEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetservicePath(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetshuffleServicePath(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetworkerId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettempStoragePrefix(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property inputs : TFlattenInstructionTypeinputsArray Index 0 Read Finputs Write Setinputs;
+ Property baseUrl : String Index 0 Read FbaseUrl Write SetbaseUrl;
+ Property reportingEnabled : boolean Index 8 Read FreportingEnabled Write SetreportingEnabled;
+ Property servicePath : String Index 16 Read FservicePath Write SetservicePath;
+ Property shuffleServicePath : String Index 24 Read FshuffleServicePath Write SetshuffleServicePath;
+ Property workerId : String Index 32 Read FworkerId Write SetworkerId;
+ Property tempStoragePrefix : String Index 40 Read FtempStoragePrefix Write SettempStoragePrefix;
end;
- TFlattenInstructionClass = Class of TFlattenInstruction;
+ TWorkerSettingsClass = Class of TWorkerSettings;
{ --------------------------------------------------------------------
- TInstructionInput
+ TDisk
--------------------------------------------------------------------}
- TInstructionInput = Class(TGoogleBaseObject)
+ TDisk = Class(TGoogleBaseObject)
Private
- FoutputNum : integer;
- FproducerInstructionIndex : integer;
+ FsizeGb : integer;
+ FdiskType : String;
+ FmountPoint : String;
Protected
//Property setters
- Procedure SetoutputNum(AIndex : Integer; AValue : integer); virtual;
- Procedure SetproducerInstructionIndex(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetsizeGb(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetdiskType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmountPoint(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property outputNum : integer Index 0 Read FoutputNum Write SetoutputNum;
- Property producerInstructionIndex : integer Index 8 Read FproducerInstructionIndex Write SetproducerInstructionIndex;
+ Property sizeGb : integer Index 0 Read FsizeGb Write SetsizeGb;
+ Property diskType : String Index 8 Read FdiskType Write SetdiskType;
+ Property mountPoint : String Index 16 Read FmountPoint Write SetmountPoint;
end;
- TInstructionInputClass = Class of TInstructionInput;
+ TDiskClass = Class of TDisk;
{ --------------------------------------------------------------------
- TInstructionOutputTypecodec
+ TAutoscalingSettings
--------------------------------------------------------------------}
- TInstructionOutputTypecodec = Class(TGoogleBaseObject)
+ TAutoscalingSettings = Class(TGoogleBaseObject)
Private
+ Falgorithm : String;
+ FmaxNumWorkers : integer;
Protected
//Property setters
+ Procedure Setalgorithm(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmaxNumWorkers(AIndex : Integer; const AValue : integer); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property algorithm : String Index 0 Read Falgorithm Write Setalgorithm;
+ Property maxNumWorkers : integer Index 8 Read FmaxNumWorkers Write SetmaxNumWorkers;
end;
- TInstructionOutputTypecodecClass = Class of TInstructionOutputTypecodec;
+ TAutoscalingSettingsClass = Class of TAutoscalingSettings;
{ --------------------------------------------------------------------
- TInstructionOutput
+ TStepTypeproperties
--------------------------------------------------------------------}
- TInstructionOutput = Class(TGoogleBaseObject)
+ TStepTypeproperties = Class(TGoogleBaseObject)
Private
- Fcodec : TInstructionOutputTypecodec;
- Fname : String;
Protected
//Property setters
- Procedure Setcodec(AIndex : Integer; AValue : TInstructionOutputTypecodec); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property codec : TInstructionOutputTypecodec Index 0 Read Fcodec Write Setcodec;
- Property name : String Index 8 Read Fname Write Setname;
end;
- TInstructionOutputClass = Class of TInstructionOutput;
+ TStepTypepropertiesClass = Class of TStepTypeproperties;
{ --------------------------------------------------------------------
- TJob
+ TStep
--------------------------------------------------------------------}
- TJob = Class(TGoogleBaseObject)
+ TStep = Class(TGoogleBaseObject)
Private
- FcreateTime : String;
- FcurrentState : String;
- FcurrentStateTime : String;
- Fenvironment : TEnvironment;
- FexecutionInfo : TJobExecutionInfo;
- Fid : String;
+ Fkind : String;
Fname : String;
- FprojectId : String;
- FrequestedState : String;
- Fsteps : TJobTypestepsArray;
- F_type : String;
+ Fproperties : TStepTypeproperties;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcurrentState(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcurrentStateTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setenvironment(AIndex : Integer; AValue : TEnvironment); virtual;
- Procedure SetexecutionInfo(AIndex : Integer; AValue : TJobExecutionInfo); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrequestedState(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsteps(AIndex : Integer; AValue : TJobTypestepsArray); 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}
+ Procedure Setproperties(AIndex : Integer; const AValue : TStepTypeproperties); virtual;
Public
Published
- Property createTime : String Index 0 Read FcreateTime Write SetcreateTime;
- Property currentState : String Index 8 Read FcurrentState Write SetcurrentState;
- Property currentStateTime : String Index 16 Read FcurrentStateTime Write SetcurrentStateTime;
- Property environment : TEnvironment Index 24 Read Fenvironment Write Setenvironment;
- Property executionInfo : TJobExecutionInfo Index 32 Read FexecutionInfo Write SetexecutionInfo;
- Property id : String Index 40 Read Fid Write Setid;
- Property name : String Index 48 Read Fname Write Setname;
- Property projectId : String Index 56 Read FprojectId Write SetprojectId;
- Property requestedState : String Index 64 Read FrequestedState Write SetrequestedState;
- Property steps : TJobTypestepsArray Index 72 Read Fsteps Write Setsteps;
- Property _type : String Index 80 Read F_type Write Set_type;
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property properties : TStepTypeproperties Index 16 Read Fproperties Write Setproperties;
end;
- TJobClass = Class of TJob;
+ TStepClass = Class of TStep;
{ --------------------------------------------------------------------
TJobExecutionInfoTypestages
@@ -599,7 +747,7 @@ type
Fstages : TJobExecutionInfoTypestages;
Protected
//Property setters
- Procedure Setstages(AIndex : Integer; AValue : TJobExecutionInfoTypestages); virtual;
+ Procedure Setstages(AIndex : Integer; const AValue : TJobExecutionInfoTypestages); virtual;
Public
Published
Property stages : TJobExecutionInfoTypestages Index 0 Read Fstages Write Setstages;
@@ -615,7 +763,7 @@ type
FstepName : TStringArray;
Protected
//Property setters
- Procedure SetstepName(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetstepName(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -627,27 +775,73 @@ type
TJobExecutionStageInfoClass = Class of TJobExecutionStageInfo;
{ --------------------------------------------------------------------
+ TListJobsResponse
+ --------------------------------------------------------------------}
+
+ TListJobsResponse = Class(TGoogleBaseObject)
+ Private
+ Fjobs : TListJobsResponseTypejobsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setjobs(AIndex : Integer; const AValue : TListJobsResponseTypejobsArray); 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 jobs : TListJobsResponseTypejobsArray Index 0 Read Fjobs Write Setjobs;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListJobsResponseClass = Class of TListJobsResponse;
+
+ { --------------------------------------------------------------------
+ TListJobMessagesResponse
+ --------------------------------------------------------------------}
+
+ TListJobMessagesResponse = Class(TGoogleBaseObject)
+ Private
+ FjobMessages : TListJobMessagesResponseTypejobMessagesArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetjobMessages(AIndex : Integer; const AValue : TListJobMessagesResponseTypejobMessagesArray); 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 jobMessages : TListJobMessagesResponseTypejobMessagesArray Index 0 Read FjobMessages Write SetjobMessages;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListJobMessagesResponseClass = Class of TListJobMessagesResponse;
+
+ { --------------------------------------------------------------------
TJobMessage
--------------------------------------------------------------------}
TJobMessage = Class(TGoogleBaseObject)
Private
Fid : String;
- FmessageImportance : String;
- FmessageText : String;
Ftime : String;
+ FmessageText : String;
+ FmessageImportance : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmessageImportance(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmessageText(AIndex : Integer; const AValue : String); virtual;
Procedure Settime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmessageText(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmessageImportance(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
- Property messageImportance : String Index 8 Read FmessageImportance Write SetmessageImportance;
+ Property time : String Index 8 Read Ftime Write Settime;
Property messageText : String Index 16 Read FmessageText Write SetmessageText;
- Property time : String Index 24 Read Ftime Write Settime;
+ Property messageImportance : String Index 24 Read FmessageImportance Write SetmessageImportance;
end;
TJobMessageClass = Class of TJobMessage;
@@ -662,7 +856,7 @@ type
Protected
//Property setters
Procedure SetmetricTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetrics(AIndex : Integer; AValue : TJobMetricsTypemetricsArray); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TJobMetricsTypemetricsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -675,314 +869,353 @@ type
TJobMetricsClass = Class of TJobMetrics;
{ --------------------------------------------------------------------
- TKeyRangeDataDiskAssignment
+ TMetricUpdate
--------------------------------------------------------------------}
- TKeyRangeDataDiskAssignment = Class(TGoogleBaseObject)
+ TMetricUpdate = Class(TGoogleBaseObject)
Private
- FdataDisk : String;
- F_end : String;
- Fstart : String;
+ Fname : TMetricStructuredName;
+ Fkind : String;
+ Fcumulative : boolean;
+ Fscalar : TJSONSchema;
+ FmeanSum : TJSONSchema;
+ FmeanCount : TJSONSchema;
+ F_set : TJSONSchema;
+ Finternal : TJSONSchema;
+ FupdateTime : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdataDisk(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TMetricStructuredName); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcumulative(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setscalar(AIndex : Integer; const AValue : TJSONSchema); virtual;
+ Procedure SetmeanSum(AIndex : Integer; const AValue : TJSONSchema); virtual;
+ Procedure SetmeanCount(AIndex : Integer; const AValue : TJSONSchema); virtual;
+ Procedure Set_set(AIndex : Integer; const AValue : TJSONSchema); virtual;
+ Procedure Setinternal(AIndex : Integer; const AValue : TJSONSchema); virtual;
+ Procedure SetupdateTime(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property dataDisk : String Index 0 Read FdataDisk Write SetdataDisk;
- Property _end : String Index 8 Read F_end Write Set_end;
- Property start : String Index 16 Read Fstart Write Setstart;
+ Property name : TMetricStructuredName Index 0 Read Fname Write Setname;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property cumulative : boolean Index 16 Read Fcumulative Write Setcumulative;
+ Property scalar : TJSONSchema Index 24 Read Fscalar Write Setscalar;
+ Property meanSum : TJSONSchema Index 32 Read FmeanSum Write SetmeanSum;
+ Property meanCount : TJSONSchema Index 40 Read FmeanCount Write SetmeanCount;
+ Property _set : TJSONSchema Index 48 Read F_set Write Set_set;
+ Property internal : TJSONSchema Index 56 Read Finternal Write Setinternal;
+ Property updateTime : String Index 64 Read FupdateTime Write SetupdateTime;
end;
- TKeyRangeDataDiskAssignmentClass = Class of TKeyRangeDataDiskAssignment;
+ TMetricUpdateClass = Class of TMetricUpdate;
{ --------------------------------------------------------------------
- TKeyRangeLocation
+ TMetricStructuredNameTypecontext
--------------------------------------------------------------------}
- TKeyRangeLocation = Class(TGoogleBaseObject)
+ TMetricStructuredNameTypecontext = Class(TGoogleBaseObject)
Private
- FdataDisk : String;
- FdeliveryEndpoint : String;
- F_end : String;
- FpersistentDirectory : String;
- Fstart : String;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdataDisk(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdeliveryEndpoint(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpersistentDirectory(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property dataDisk : String Index 0 Read FdataDisk Write SetdataDisk;
- Property deliveryEndpoint : String Index 8 Read FdeliveryEndpoint Write SetdeliveryEndpoint;
- Property _end : String Index 16 Read F_end Write Set_end;
- Property persistentDirectory : String Index 24 Read FpersistentDirectory Write SetpersistentDirectory;
- Property start : String Index 32 Read Fstart Write Setstart;
end;
- TKeyRangeLocationClass = Class of TKeyRangeLocation;
+ TMetricStructuredNameTypecontextClass = Class of TMetricStructuredNameTypecontext;
{ --------------------------------------------------------------------
- TLeaseWorkItemRequest
+ TMetricStructuredName
--------------------------------------------------------------------}
- TLeaseWorkItemRequest = Class(TGoogleBaseObject)
+ TMetricStructuredName = Class(TGoogleBaseObject)
+ Private
+ Forigin : String;
+ Fname : String;
+ Fcontext : TMetricStructuredNameTypecontext;
+ Protected
+ //Property setters
+ Procedure Setorigin(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcontext(AIndex : Integer; const AValue : TMetricStructuredNameTypecontext); virtual;
+ Public
+ Published
+ Property origin : String Index 0 Read Forigin Write Setorigin;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property context : TMetricStructuredNameTypecontext Index 16 Read Fcontext Write Setcontext;
+ end;
+ TMetricStructuredNameClass = Class of TMetricStructuredName;
+
+ { --------------------------------------------------------------------
+ TReportWorkItemStatusRequest
+ --------------------------------------------------------------------}
+
+ TReportWorkItemStatusRequest = Class(TGoogleBaseObject)
Private
- FcurrentWorkerTime : String;
- FrequestedLeaseDuration : String;
- FworkItemTypes : TStringArray;
- FworkerCapabilities : TStringArray;
FworkerId : String;
+ FworkItemStatuses : TReportWorkItemStatusRequestTypeworkItemStatusesArray;
+ FcurrentWorkerTime : String;
Protected
//Property setters
- Procedure SetcurrentWorkerTime(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrequestedLeaseDuration(AIndex : Integer; const AValue : String); virtual;
- Procedure SetworkItemTypes(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetworkerCapabilities(AIndex : Integer; AValue : TStringArray); virtual;
Procedure SetworkerId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetworkItemStatuses(AIndex : Integer; const AValue : TReportWorkItemStatusRequestTypeworkItemStatusesArray); virtual;
+ Procedure SetcurrentWorkerTime(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 currentWorkerTime : String Index 0 Read FcurrentWorkerTime Write SetcurrentWorkerTime;
- Property requestedLeaseDuration : String Index 8 Read FrequestedLeaseDuration Write SetrequestedLeaseDuration;
- Property workItemTypes : TStringArray Index 16 Read FworkItemTypes Write SetworkItemTypes;
- Property workerCapabilities : TStringArray Index 24 Read FworkerCapabilities Write SetworkerCapabilities;
- Property workerId : String Index 32 Read FworkerId Write SetworkerId;
+ Property workerId : String Index 0 Read FworkerId Write SetworkerId;
+ Property workItemStatuses : TReportWorkItemStatusRequestTypeworkItemStatusesArray Index 8 Read FworkItemStatuses Write SetworkItemStatuses;
+ Property currentWorkerTime : String Index 16 Read FcurrentWorkerTime Write SetcurrentWorkerTime;
end;
- TLeaseWorkItemRequestClass = Class of TLeaseWorkItemRequest;
+ TReportWorkItemStatusRequestClass = Class of TReportWorkItemStatusRequest;
{ --------------------------------------------------------------------
- TLeaseWorkItemResponse
+ TWorkItemStatus
--------------------------------------------------------------------}
- TLeaseWorkItemResponse = Class(TGoogleBaseObject)
+ TWorkItemStatus = Class(TGoogleBaseObject)
Private
- FworkItems : TLeaseWorkItemResponseTypeworkItemsArray;
+ FworkItemId : String;
+ FreportIndex : String;
+ FrequestedLeaseDuration : String;
+ Fcompleted : boolean;
+ Ferrors : TWorkItemStatusTypeerrorsArray;
+ FmetricUpdates : TWorkItemStatusTypemetricUpdatesArray;
+ FreportedProgress : TApproximateReportedProgress;
+ FstopPosition : TPosition;
+ FdynamicSourceSplit : TDynamicSourceSplit;
+ FsourceOperationResponse : TSourceOperationResponse;
+ FsourceFork : TSourceFork;
+ Fprogress : TApproximateProgress;
Protected
//Property setters
- Procedure SetworkItems(AIndex : Integer; AValue : TLeaseWorkItemResponseTypeworkItemsArray); virtual;
+ Procedure SetworkItemId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreportIndex(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrequestedLeaseDuration(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcompleted(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TWorkItemStatusTypeerrorsArray); virtual;
+ Procedure SetmetricUpdates(AIndex : Integer; const AValue : TWorkItemStatusTypemetricUpdatesArray); virtual;
+ Procedure SetreportedProgress(AIndex : Integer; const AValue : TApproximateReportedProgress); virtual;
+ Procedure SetstopPosition(AIndex : Integer; const AValue : TPosition); virtual;
+ Procedure SetdynamicSourceSplit(AIndex : Integer; const AValue : TDynamicSourceSplit); virtual;
+ Procedure SetsourceOperationResponse(AIndex : Integer; const AValue : TSourceOperationResponse); virtual;
+ Procedure SetsourceFork(AIndex : Integer; const AValue : TSourceFork); virtual;
+ Procedure Setprogress(AIndex : Integer; const AValue : TApproximateProgress); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property workItems : TLeaseWorkItemResponseTypeworkItemsArray Index 0 Read FworkItems Write SetworkItems;
+ Property workItemId : String Index 0 Read FworkItemId Write SetworkItemId;
+ Property reportIndex : String Index 8 Read FreportIndex Write SetreportIndex;
+ Property requestedLeaseDuration : String Index 16 Read FrequestedLeaseDuration Write SetrequestedLeaseDuration;
+ Property completed : boolean Index 24 Read Fcompleted Write Setcompleted;
+ Property errors : TWorkItemStatusTypeerrorsArray Index 32 Read Ferrors Write Seterrors;
+ Property metricUpdates : TWorkItemStatusTypemetricUpdatesArray Index 40 Read FmetricUpdates Write SetmetricUpdates;
+ Property reportedProgress : TApproximateReportedProgress Index 48 Read FreportedProgress Write SetreportedProgress;
+ Property stopPosition : TPosition Index 56 Read FstopPosition Write SetstopPosition;
+ Property dynamicSourceSplit : TDynamicSourceSplit Index 64 Read FdynamicSourceSplit Write SetdynamicSourceSplit;
+ Property sourceOperationResponse : TSourceOperationResponse Index 72 Read FsourceOperationResponse Write SetsourceOperationResponse;
+ Property sourceFork : TSourceFork Index 80 Read FsourceFork Write SetsourceFork;
+ Property progress : TApproximateProgress Index 88 Read Fprogress Write Setprogress;
end;
- TLeaseWorkItemResponseClass = Class of TLeaseWorkItemResponse;
+ TWorkItemStatusClass = Class of TWorkItemStatus;
{ --------------------------------------------------------------------
- TListJobMessagesResponse
+ TStatusTypedetailsItem
--------------------------------------------------------------------}
- TListJobMessagesResponse = Class(TGoogleBaseObject)
+ TStatusTypedetailsItem = Class(TGoogleBaseObject)
Private
- FjobMessages : TListJobMessagesResponseTypejobMessagesArray;
- FnextPageToken : String;
Protected
//Property setters
- Procedure SetjobMessages(AIndex : Integer; AValue : TListJobMessagesResponseTypejobMessagesArray); 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
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property jobMessages : TListJobMessagesResponseTypejobMessagesArray Index 0 Read FjobMessages Write SetjobMessages;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TListJobMessagesResponseClass = Class of TListJobMessagesResponse;
+ TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
{ --------------------------------------------------------------------
- TListJobsResponse
+ TStatus
--------------------------------------------------------------------}
- TListJobsResponse = Class(TGoogleBaseObject)
+ TStatus = Class(TGoogleBaseObject)
Private
- Fjobs : TListJobsResponseTypejobsArray;
- FnextPageToken : String;
+ Fcode : integer;
+ Fmessage : String;
+ Fdetails : TStatusTypedetailsArray;
Protected
//Property setters
- Procedure Setjobs(AIndex : Integer; AValue : TListJobsResponseTypejobsArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property jobs : TListJobsResponseTypejobsArray Index 0 Read Fjobs Write Setjobs;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property code : integer Index 0 Read Fcode Write Setcode;
+ Property message : String Index 8 Read Fmessage Write Setmessage;
+ Property details : TStatusTypedetailsArray Index 16 Read Fdetails Write Setdetails;
end;
- TListJobsResponseClass = Class of TListJobsResponse;
+ TStatusClass = Class of TStatus;
{ --------------------------------------------------------------------
- TMapTask
+ TApproximateReportedProgress
--------------------------------------------------------------------}
- TMapTask = Class(TGoogleBaseObject)
+ TApproximateReportedProgress = Class(TGoogleBaseObject)
Private
- Finstructions : TMapTaskTypeinstructionsArray;
- FstageName : String;
- FsystemName : String;
+ Fposition : TPosition;
+ FfractionConsumed : double;
+ FremainingParallelism : TReportedParallelism;
+ FconsumedParallelism : TReportedParallelism;
Protected
//Property setters
- Procedure Setinstructions(AIndex : Integer; AValue : TMapTaskTypeinstructionsArray); virtual;
- Procedure SetstageName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsystemName(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}
+ Procedure Setposition(AIndex : Integer; const AValue : TPosition); virtual;
+ Procedure SetfractionConsumed(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetremainingParallelism(AIndex : Integer; const AValue : TReportedParallelism); virtual;
+ Procedure SetconsumedParallelism(AIndex : Integer; const AValue : TReportedParallelism); virtual;
Public
Published
- Property instructions : TMapTaskTypeinstructionsArray Index 0 Read Finstructions Write Setinstructions;
- Property stageName : String Index 8 Read FstageName Write SetstageName;
- Property systemName : String Index 16 Read FsystemName Write SetsystemName;
+ Property position : TPosition Index 0 Read Fposition Write Setposition;
+ Property fractionConsumed : double Index 8 Read FfractionConsumed Write SetfractionConsumed;
+ Property remainingParallelism : TReportedParallelism Index 16 Read FremainingParallelism Write SetremainingParallelism;
+ Property consumedParallelism : TReportedParallelism Index 24 Read FconsumedParallelism Write SetconsumedParallelism;
end;
- TMapTaskClass = Class of TMapTask;
+ TApproximateReportedProgressClass = Class of TApproximateReportedProgress;
{ --------------------------------------------------------------------
- TMetricStructuredNameTypecontext
+ TPosition
--------------------------------------------------------------------}
- TMetricStructuredNameTypecontext = Class(TGoogleBaseObject)
+ TPosition = Class(TGoogleBaseObject)
Private
+ F_end : boolean;
+ Fkey : String;
+ FbyteOffset : String;
+ FrecordIndex : String;
+ FshufflePosition : String;
+ FconcatPosition : TConcatPosition;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
+ Procedure Set_end(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbyteOffset(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrecordIndex(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetshufflePosition(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetconcatPosition(AIndex : Integer; const AValue : TConcatPosition); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property _end : boolean Index 0 Read F_end Write Set_end;
+ Property key : String Index 8 Read Fkey Write Setkey;
+ Property byteOffset : String Index 16 Read FbyteOffset Write SetbyteOffset;
+ Property recordIndex : String Index 24 Read FrecordIndex Write SetrecordIndex;
+ Property shufflePosition : String Index 32 Read FshufflePosition Write SetshufflePosition;
+ Property concatPosition : TConcatPosition Index 40 Read FconcatPosition Write SetconcatPosition;
end;
- TMetricStructuredNameTypecontextClass = Class of TMetricStructuredNameTypecontext;
+ TPositionClass = Class of TPosition;
{ --------------------------------------------------------------------
- TMetricStructuredName
+ TConcatPosition
--------------------------------------------------------------------}
- TMetricStructuredName = Class(TGoogleBaseObject)
+ TConcatPosition = Class(TGoogleBaseObject)
Private
- Fcontext : TMetricStructuredNameTypecontext;
- Fname : String;
- Forigin : String;
+ Findex : integer;
+ Fposition : TPosition;
Protected
//Property setters
- Procedure Setcontext(AIndex : Integer; AValue : TMetricStructuredNameTypecontext); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setorigin(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : TPosition); virtual;
Public
Published
- Property context : TMetricStructuredNameTypecontext Index 0 Read Fcontext Write Setcontext;
- Property name : String Index 8 Read Fname Write Setname;
- Property origin : String Index 16 Read Forigin Write Setorigin;
+ Property index : integer Index 0 Read Findex Write Setindex;
+ Property position : TPosition Index 8 Read Fposition Write Setposition;
end;
- TMetricStructuredNameClass = Class of TMetricStructuredName;
+ TConcatPositionClass = Class of TConcatPosition;
{ --------------------------------------------------------------------
- TMetricUpdate
+ TReportedParallelism
--------------------------------------------------------------------}
- TMetricUpdate = Class(TGoogleBaseObject)
+ TReportedParallelism = Class(TGoogleBaseObject)
Private
- Fcumulative : boolean;
- Finternal : TGoogleprotobufValue;
- Fkind : String;
- FmeanCount : TGoogleprotobufValue;
- FmeanSum : TGoogleprotobufValue;
- Fname : TMetricStructuredName;
- Fscalar : TGoogleprotobufValue;
- F_set : TGoogleprotobufValue;
- FupdateTime : String;
+ FisInfinite : boolean;
+ Fvalue : double;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setcumulative(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setinternal(AIndex : Integer; AValue : TGoogleprotobufValue); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmeanCount(AIndex : Integer; AValue : TGoogleprotobufValue); virtual;
- Procedure SetmeanSum(AIndex : Integer; AValue : TGoogleprotobufValue); virtual;
- Procedure Setname(AIndex : Integer; AValue : TMetricStructuredName); virtual;
- Procedure Setscalar(AIndex : Integer; AValue : TGoogleprotobufValue); virtual;
- Procedure Set_set(AIndex : Integer; AValue : TGoogleprotobufValue); virtual;
- Procedure SetupdateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetisInfinite(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : double); virtual;
Public
Published
- Property cumulative : boolean Index 0 Read Fcumulative Write Setcumulative;
- Property internal : TGoogleprotobufValue Index 8 Read Finternal Write Setinternal;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property meanCount : TGoogleprotobufValue Index 24 Read FmeanCount Write SetmeanCount;
- Property meanSum : TGoogleprotobufValue Index 32 Read FmeanSum Write SetmeanSum;
- Property name : TMetricStructuredName Index 40 Read Fname Write Setname;
- Property scalar : TGoogleprotobufValue Index 48 Read Fscalar Write Setscalar;
- Property _set : TGoogleprotobufValue Index 56 Read F_set Write Set_set;
- Property updateTime : String Index 64 Read FupdateTime Write SetupdateTime;
+ Property isInfinite : boolean Index 0 Read FisInfinite Write SetisInfinite;
+ Property value : double Index 8 Read Fvalue Write Setvalue;
end;
- TMetricUpdateClass = Class of TMetricUpdate;
+ TReportedParallelismClass = Class of TReportedParallelism;
{ --------------------------------------------------------------------
- TMountedDataDisk
+ TDynamicSourceSplit
--------------------------------------------------------------------}
- TMountedDataDisk = Class(TGoogleBaseObject)
+ TDynamicSourceSplit = Class(TGoogleBaseObject)
Private
- FdataDisk : String;
+ Fprimary : TDerivedSource;
+ Fresidual : TDerivedSource;
Protected
//Property setters
- Procedure SetdataDisk(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setprimary(AIndex : Integer; const AValue : TDerivedSource); virtual;
+ Procedure Setresidual(AIndex : Integer; const AValue : TDerivedSource); virtual;
Public
Published
- Property dataDisk : String Index 0 Read FdataDisk Write SetdataDisk;
+ Property primary : TDerivedSource Index 0 Read Fprimary Write Setprimary;
+ Property residual : TDerivedSource Index 8 Read Fresidual Write Setresidual;
end;
- TMountedDataDiskClass = Class of TMountedDataDisk;
+ TDynamicSourceSplitClass = Class of TDynamicSourceSplit;
{ --------------------------------------------------------------------
- TMultiOutputInfo
+ TDerivedSource
--------------------------------------------------------------------}
- TMultiOutputInfo = Class(TGoogleBaseObject)
+ TDerivedSource = Class(TGoogleBaseObject)
Private
- Ftag : String;
+ Fsource : TSource;
+ FderivationMode : String;
Protected
//Property setters
- Procedure Settag(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TSource); virtual;
+ Procedure SetderivationMode(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property tag : String Index 0 Read Ftag Write Settag;
+ Property source : TSource Index 0 Read Fsource Write Setsource;
+ Property derivationMode : String Index 8 Read FderivationMode Write SetderivationMode;
end;
- TMultiOutputInfoClass = Class of TMultiOutputInfo;
+ TDerivedSourceClass = Class of TDerivedSource;
{ --------------------------------------------------------------------
- TPackage
+ TSourceTypespec
--------------------------------------------------------------------}
- TPackage = Class(TGoogleBaseObject)
+ TSourceTypespec = Class(TGoogleBaseObject)
Private
- Flocation : String;
- Fname : String;
Protected
//Property setters
- Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property location : String Index 0 Read Flocation Write Setlocation;
- Property name : String Index 8 Read Fname Write Setname;
end;
- TPackageClass = Class of TPackage;
+ TSourceTypespecClass = Class of TSourceTypespec;
{ --------------------------------------------------------------------
- TParDoInstructionTypeuserFn
+ TSourceTypecodec
--------------------------------------------------------------------}
- TParDoInstructionTypeuserFn = Class(TGoogleBaseObject)
+ TSourceTypecodec = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -990,220 +1223,307 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TParDoInstructionTypeuserFnClass = Class of TParDoInstructionTypeuserFn;
+ TSourceTypecodecClass = Class of TSourceTypecodec;
{ --------------------------------------------------------------------
- TParDoInstruction
+ TSourceTypebaseSpecsItem
--------------------------------------------------------------------}
- TParDoInstruction = Class(TGoogleBaseObject)
+ TSourceTypebaseSpecsItem = Class(TGoogleBaseObject)
Private
- Finput : TInstructionInput;
- FmultiOutputInfos : TParDoInstructionTypemultiOutputInfosArray;
- FnumOutputs : integer;
- FsideInputs : TParDoInstructionTypesideInputsArray;
- FuserFn : TParDoInstructionTypeuserFn;
Protected
//Property setters
- Procedure Setinput(AIndex : Integer; AValue : TInstructionInput); virtual;
- Procedure SetmultiOutputInfos(AIndex : Integer; AValue : TParDoInstructionTypemultiOutputInfosArray); virtual;
- Procedure SetnumOutputs(AIndex : Integer; AValue : integer); virtual;
- Procedure SetsideInputs(AIndex : Integer; AValue : TParDoInstructionTypesideInputsArray); virtual;
- Procedure SetuserFn(AIndex : Integer; AValue : TParDoInstructionTypeuserFn); virtual;
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TSourceTypebaseSpecsItemClass = Class of TSourceTypebaseSpecsItem;
+
+ { --------------------------------------------------------------------
+ TSource
+ --------------------------------------------------------------------}
+
+ TSource = Class(TGoogleBaseObject)
+ Private
+ Fspec : TSourceTypespec;
+ Fcodec : TSourceTypecodec;
+ FbaseSpecs : TSourceTypebaseSpecsArray;
+ Fmetadata : TSourceMetadata;
+ FdoesNotNeedSplitting : boolean;
+ Protected
+ //Property setters
+ Procedure Setspec(AIndex : Integer; const AValue : TSourceTypespec); virtual;
+ Procedure Setcodec(AIndex : Integer; const AValue : TSourceTypecodec); virtual;
+ Procedure SetbaseSpecs(AIndex : Integer; const AValue : TSourceTypebaseSpecsArray); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TSourceMetadata); virtual;
+ Procedure SetdoesNotNeedSplitting(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 input : TInstructionInput Index 0 Read Finput Write Setinput;
- Property multiOutputInfos : TParDoInstructionTypemultiOutputInfosArray Index 8 Read FmultiOutputInfos Write SetmultiOutputInfos;
- Property numOutputs : integer Index 16 Read FnumOutputs Write SetnumOutputs;
- Property sideInputs : TParDoInstructionTypesideInputsArray Index 24 Read FsideInputs Write SetsideInputs;
- Property userFn : TParDoInstructionTypeuserFn Index 32 Read FuserFn Write SetuserFn;
+ Property spec : TSourceTypespec Index 0 Read Fspec Write Setspec;
+ Property codec : TSourceTypecodec Index 8 Read Fcodec Write Setcodec;
+ Property baseSpecs : TSourceTypebaseSpecsArray Index 16 Read FbaseSpecs Write SetbaseSpecs;
+ Property metadata : TSourceMetadata Index 24 Read Fmetadata Write Setmetadata;
+ Property doesNotNeedSplitting : boolean Index 32 Read FdoesNotNeedSplitting Write SetdoesNotNeedSplitting;
end;
- TParDoInstructionClass = Class of TParDoInstruction;
+ TSourceClass = Class of TSource;
{ --------------------------------------------------------------------
- TParallelInstruction
+ TSourceMetadata
--------------------------------------------------------------------}
- TParallelInstruction = Class(TGoogleBaseObject)
+ TSourceMetadata = Class(TGoogleBaseObject)
Private
- Fflatten : TFlattenInstruction;
- Fname : String;
- Foutputs : TParallelInstructionTypeoutputsArray;
- FparDo : TParDoInstruction;
- FpartialGroupByKey : TPartialGroupByKeyInstruction;
- Fread : TReadInstruction;
- FsystemName : String;
- Fwrite : TWriteInstruction;
+ FproducesSortedKeys : boolean;
+ Finfinite : boolean;
+ FestimatedSizeBytes : String;
Protected
//Property setters
- Procedure Setflatten(AIndex : Integer; AValue : TFlattenInstruction); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setoutputs(AIndex : Integer; AValue : TParallelInstructionTypeoutputsArray); virtual;
- Procedure SetparDo(AIndex : Integer; AValue : TParDoInstruction); virtual;
- Procedure SetpartialGroupByKey(AIndex : Integer; AValue : TPartialGroupByKeyInstruction); virtual;
- Procedure Setread(AIndex : Integer; AValue : TReadInstruction); virtual;
- Procedure SetsystemName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwrite(AIndex : Integer; AValue : TWriteInstruction); virtual;
+ Procedure SetproducesSortedKeys(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setinfinite(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetestimatedSizeBytes(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property producesSortedKeys : boolean Index 0 Read FproducesSortedKeys Write SetproducesSortedKeys;
+ Property infinite : boolean Index 8 Read Finfinite Write Setinfinite;
+ Property estimatedSizeBytes : String Index 16 Read FestimatedSizeBytes Write SetestimatedSizeBytes;
+ end;
+ TSourceMetadataClass = Class of TSourceMetadata;
+
+ { --------------------------------------------------------------------
+ TSourceOperationResponse
+ --------------------------------------------------------------------}
+
+ TSourceOperationResponse = Class(TGoogleBaseObject)
+ Private
+ Fsplit : TSourceSplitResponse;
+ FgetMetadata : TSourceGetMetadataResponse;
+ Protected
+ //Property setters
+ Procedure Setsplit(AIndex : Integer; const AValue : TSourceSplitResponse); virtual;
+ Procedure SetgetMetadata(AIndex : Integer; const AValue : TSourceGetMetadataResponse); virtual;
+ Public
+ Published
+ Property split : TSourceSplitResponse Index 0 Read Fsplit Write Setsplit;
+ Property getMetadata : TSourceGetMetadataResponse Index 8 Read FgetMetadata Write SetgetMetadata;
+ end;
+ TSourceOperationResponseClass = Class of TSourceOperationResponse;
+
+ { --------------------------------------------------------------------
+ TSourceSplitResponse
+ --------------------------------------------------------------------}
+
+ TSourceSplitResponse = Class(TGoogleBaseObject)
+ Private
+ Foutcome : String;
+ Fbundles : TSourceSplitResponseTypebundlesArray;
+ Fshards : TSourceSplitResponseTypeshardsArray;
+ Protected
+ //Property setters
+ Procedure Setoutcome(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setbundles(AIndex : Integer; const AValue : TSourceSplitResponseTypebundlesArray); virtual;
+ Procedure Setshards(AIndex : Integer; const AValue : TSourceSplitResponseTypeshardsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property flatten : TFlattenInstruction Index 0 Read Fflatten Write Setflatten;
- Property name : String Index 8 Read Fname Write Setname;
- Property outputs : TParallelInstructionTypeoutputsArray Index 16 Read Foutputs Write Setoutputs;
- Property parDo : TParDoInstruction Index 24 Read FparDo Write SetparDo;
- Property partialGroupByKey : TPartialGroupByKeyInstruction Index 32 Read FpartialGroupByKey Write SetpartialGroupByKey;
- Property read : TReadInstruction Index 40 Read Fread Write Setread;
- Property systemName : String Index 48 Read FsystemName Write SetsystemName;
- Property write : TWriteInstruction Index 56 Read Fwrite Write Setwrite;
+ Property outcome : String Index 0 Read Foutcome Write Setoutcome;
+ Property bundles : TSourceSplitResponseTypebundlesArray Index 8 Read Fbundles Write Setbundles;
+ Property shards : TSourceSplitResponseTypeshardsArray Index 16 Read Fshards Write Setshards;
end;
- TParallelInstructionClass = Class of TParallelInstruction;
+ TSourceSplitResponseClass = Class of TSourceSplitResponse;
{ --------------------------------------------------------------------
- TPartialGroupByKeyInstructionTypeinputElementCodec
+ TSourceSplitShard
--------------------------------------------------------------------}
- TPartialGroupByKeyInstructionTypeinputElementCodec = Class(TGoogleBaseObject)
+ TSourceSplitShard = Class(TGoogleBaseObject)
Private
+ Fsource : TSource;
+ FderivationMode : String;
Protected
//Property setters
+ Procedure Setsource(AIndex : Integer; const AValue : TSource); virtual;
+ Procedure SetderivationMode(AIndex : Integer; const AValue : String); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property source : TSource Index 0 Read Fsource Write Setsource;
+ Property derivationMode : String Index 8 Read FderivationMode Write SetderivationMode;
end;
- TPartialGroupByKeyInstructionTypeinputElementCodecClass = Class of TPartialGroupByKeyInstructionTypeinputElementCodec;
+ TSourceSplitShardClass = Class of TSourceSplitShard;
{ --------------------------------------------------------------------
- TPartialGroupByKeyInstructionTypevalueCombiningFn
+ TSourceGetMetadataResponse
--------------------------------------------------------------------}
- TPartialGroupByKeyInstructionTypevalueCombiningFn = Class(TGoogleBaseObject)
+ TSourceGetMetadataResponse = Class(TGoogleBaseObject)
Private
+ Fmetadata : TSourceMetadata;
Protected
//Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TSourceMetadata); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property metadata : TSourceMetadata Index 0 Read Fmetadata Write Setmetadata;
end;
- TPartialGroupByKeyInstructionTypevalueCombiningFnClass = Class of TPartialGroupByKeyInstructionTypevalueCombiningFn;
+ TSourceGetMetadataResponseClass = Class of TSourceGetMetadataResponse;
{ --------------------------------------------------------------------
- TPartialGroupByKeyInstruction
+ TSourceFork
--------------------------------------------------------------------}
- TPartialGroupByKeyInstruction = Class(TGoogleBaseObject)
+ TSourceFork = Class(TGoogleBaseObject)
Private
- Finput : TInstructionInput;
- FinputElementCodec : TPartialGroupByKeyInstructionTypeinputElementCodec;
- FvalueCombiningFn : TPartialGroupByKeyInstructionTypevalueCombiningFn;
+ Fprimary : TSourceSplitShard;
+ Fresidual : TSourceSplitShard;
+ FprimarySource : TDerivedSource;
+ FresidualSource : TDerivedSource;
Protected
//Property setters
- Procedure Setinput(AIndex : Integer; AValue : TInstructionInput); virtual;
- Procedure SetinputElementCodec(AIndex : Integer; AValue : TPartialGroupByKeyInstructionTypeinputElementCodec); virtual;
- Procedure SetvalueCombiningFn(AIndex : Integer; AValue : TPartialGroupByKeyInstructionTypevalueCombiningFn); virtual;
+ Procedure Setprimary(AIndex : Integer; const AValue : TSourceSplitShard); virtual;
+ Procedure Setresidual(AIndex : Integer; const AValue : TSourceSplitShard); virtual;
+ Procedure SetprimarySource(AIndex : Integer; const AValue : TDerivedSource); virtual;
+ Procedure SetresidualSource(AIndex : Integer; const AValue : TDerivedSource); virtual;
Public
Published
- Property input : TInstructionInput Index 0 Read Finput Write Setinput;
- Property inputElementCodec : TPartialGroupByKeyInstructionTypeinputElementCodec Index 8 Read FinputElementCodec Write SetinputElementCodec;
- Property valueCombiningFn : TPartialGroupByKeyInstructionTypevalueCombiningFn Index 16 Read FvalueCombiningFn Write SetvalueCombiningFn;
+ Property primary : TSourceSplitShard Index 0 Read Fprimary Write Setprimary;
+ Property residual : TSourceSplitShard Index 8 Read Fresidual Write Setresidual;
+ Property primarySource : TDerivedSource Index 16 Read FprimarySource Write SetprimarySource;
+ Property residualSource : TDerivedSource Index 24 Read FresidualSource Write SetresidualSource;
end;
- TPartialGroupByKeyInstructionClass = Class of TPartialGroupByKeyInstruction;
+ TSourceForkClass = Class of TSourceFork;
{ --------------------------------------------------------------------
- TPosition
+ TApproximateProgress
--------------------------------------------------------------------}
- TPosition = Class(TGoogleBaseObject)
+ TApproximateProgress = Class(TGoogleBaseObject)
Private
- FbyteOffset : String;
- F_end : boolean;
- Fkey : String;
- FrecordIndex : String;
- FshufflePosition : String;
+ Fposition : TPosition;
+ FpercentComplete : integer;
+ FremainingTime : String;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetbyteOffset(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_end(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrecordIndex(AIndex : Integer; const AValue : String); virtual;
- Procedure SetshufflePosition(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : TPosition); virtual;
+ Procedure SetpercentComplete(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetremainingTime(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property byteOffset : String Index 0 Read FbyteOffset Write SetbyteOffset;
- Property _end : boolean Index 8 Read F_end Write Set_end;
- Property key : String Index 16 Read Fkey Write Setkey;
- Property recordIndex : String Index 24 Read FrecordIndex Write SetrecordIndex;
- Property shufflePosition : String Index 32 Read FshufflePosition Write SetshufflePosition;
+ Property position : TPosition Index 0 Read Fposition Write Setposition;
+ Property percentComplete : integer Index 8 Read FpercentComplete Write SetpercentComplete;
+ Property remainingTime : String Index 16 Read FremainingTime Write SetremainingTime;
end;
- TPositionClass = Class of TPosition;
+ TApproximateProgressClass = Class of TApproximateProgress;
{ --------------------------------------------------------------------
- TPubsubLocation
+ TReportWorkItemStatusResponse
--------------------------------------------------------------------}
- TPubsubLocation = Class(TGoogleBaseObject)
+ TReportWorkItemStatusResponse = Class(TGoogleBaseObject)
Private
- FdropLateData : boolean;
- FidLabel : String;
- Fsubscription : String;
- FtimestampLabel : String;
- Ftopic : String;
- FtrackingSubscription : String;
+ FworkItemServiceStates : TReportWorkItemStatusResponseTypeworkItemServiceStatesArray;
Protected
//Property setters
- Procedure SetdropLateData(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetidLabel(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsubscription(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimestampLabel(AIndex : Integer; const AValue : String); virtual;
- Procedure Settopic(AIndex : Integer; const AValue : String); virtual;
- Procedure SettrackingSubscription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetworkItemServiceStates(AIndex : Integer; const AValue : TReportWorkItemStatusResponseTypeworkItemServiceStatesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property dropLateData : boolean Index 0 Read FdropLateData Write SetdropLateData;
- Property idLabel : String Index 8 Read FidLabel Write SetidLabel;
- Property subscription : String Index 16 Read Fsubscription Write Setsubscription;
- Property timestampLabel : String Index 24 Read FtimestampLabel Write SettimestampLabel;
- Property topic : String Index 32 Read Ftopic Write Settopic;
- Property trackingSubscription : String Index 40 Read FtrackingSubscription Write SettrackingSubscription;
+ Property workItemServiceStates : TReportWorkItemStatusResponseTypeworkItemServiceStatesArray Index 0 Read FworkItemServiceStates Write SetworkItemServiceStates;
end;
- TPubsubLocationClass = Class of TPubsubLocation;
+ TReportWorkItemStatusResponseClass = Class of TReportWorkItemStatusResponse;
{ --------------------------------------------------------------------
- TReadInstruction
+ TWorkItemServiceStateTypeharnessData
--------------------------------------------------------------------}
- TReadInstruction = Class(TGoogleBaseObject)
+ TWorkItemServiceStateTypeharnessData = Class(TGoogleBaseObject)
Private
- Fsource : TSource;
Protected
//Property setters
- Procedure Setsource(AIndex : Integer; AValue : TSource); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property source : TSource Index 0 Read Fsource Write Setsource;
end;
- TReadInstructionClass = Class of TReadInstruction;
+ TWorkItemServiceStateTypeharnessDataClass = Class of TWorkItemServiceStateTypeharnessData;
{ --------------------------------------------------------------------
- TReportWorkItemStatusRequest
+ TWorkItemServiceState
--------------------------------------------------------------------}
- TReportWorkItemStatusRequest = Class(TGoogleBaseObject)
+ TWorkItemServiceState = Class(TGoogleBaseObject)
+ Private
+ FsplitRequest : TApproximateSplitRequest;
+ FleaseExpireTime : String;
+ FreportStatusInterval : String;
+ FharnessData : TWorkItemServiceStateTypeharnessData;
+ FnextReportIndex : String;
+ FsuggestedStopPosition : TPosition;
+ FsuggestedStopPoint : TApproximateProgress;
+ Protected
+ //Property setters
+ Procedure SetsplitRequest(AIndex : Integer; const AValue : TApproximateSplitRequest); virtual;
+ Procedure SetleaseExpireTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreportStatusInterval(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetharnessData(AIndex : Integer; const AValue : TWorkItemServiceStateTypeharnessData); virtual;
+ Procedure SetnextReportIndex(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsuggestedStopPosition(AIndex : Integer; const AValue : TPosition); virtual;
+ Procedure SetsuggestedStopPoint(AIndex : Integer; const AValue : TApproximateProgress); virtual;
+ Public
+ Published
+ Property splitRequest : TApproximateSplitRequest Index 0 Read FsplitRequest Write SetsplitRequest;
+ Property leaseExpireTime : String Index 8 Read FleaseExpireTime Write SetleaseExpireTime;
+ Property reportStatusInterval : String Index 16 Read FreportStatusInterval Write SetreportStatusInterval;
+ Property harnessData : TWorkItemServiceStateTypeharnessData Index 24 Read FharnessData Write SetharnessData;
+ Property nextReportIndex : String Index 32 Read FnextReportIndex Write SetnextReportIndex;
+ Property suggestedStopPosition : TPosition Index 40 Read FsuggestedStopPosition Write SetsuggestedStopPosition;
+ Property suggestedStopPoint : TApproximateProgress Index 48 Read FsuggestedStopPoint Write SetsuggestedStopPoint;
+ end;
+ TWorkItemServiceStateClass = Class of TWorkItemServiceState;
+
+ { --------------------------------------------------------------------
+ TApproximateSplitRequest
+ --------------------------------------------------------------------}
+
+ TApproximateSplitRequest = Class(TGoogleBaseObject)
+ Private
+ Fposition : TPosition;
+ FfractionConsumed : double;
+ Protected
+ //Property setters
+ Procedure Setposition(AIndex : Integer; const AValue : TPosition); virtual;
+ Procedure SetfractionConsumed(AIndex : Integer; const AValue : double); virtual;
+ Public
+ Published
+ Property position : TPosition Index 0 Read Fposition Write Setposition;
+ Property fractionConsumed : double Index 8 Read FfractionConsumed Write SetfractionConsumed;
+ end;
+ TApproximateSplitRequestClass = Class of TApproximateSplitRequest;
+
+ { --------------------------------------------------------------------
+ TLeaseWorkItemRequest
+ --------------------------------------------------------------------}
+
+ TLeaseWorkItemRequest = Class(TGoogleBaseObject)
Private
+ FworkItemTypes : TStringArray;
+ FworkerCapabilities : TStringArray;
+ FrequestedLeaseDuration : String;
FcurrentWorkerTime : String;
- FworkItemStatuses : TReportWorkItemStatusRequestTypeworkItemStatusesArray;
FworkerId : String;
Protected
//Property setters
+ Procedure SetworkItemTypes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetworkerCapabilities(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetrequestedLeaseDuration(AIndex : Integer; const AValue : String); virtual;
Procedure SetcurrentWorkerTime(AIndex : Integer; const AValue : String); virtual;
- Procedure SetworkItemStatuses(AIndex : Integer; AValue : TReportWorkItemStatusRequestTypeworkItemStatusesArray); virtual;
Procedure SetworkerId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1211,164 +1531,219 @@ type
{$ENDIF VER2_6}
Public
Published
- Property currentWorkerTime : String Index 0 Read FcurrentWorkerTime Write SetcurrentWorkerTime;
- Property workItemStatuses : TReportWorkItemStatusRequestTypeworkItemStatusesArray Index 8 Read FworkItemStatuses Write SetworkItemStatuses;
- Property workerId : String Index 16 Read FworkerId Write SetworkerId;
+ Property workItemTypes : TStringArray Index 0 Read FworkItemTypes Write SetworkItemTypes;
+ Property workerCapabilities : TStringArray Index 8 Read FworkerCapabilities Write SetworkerCapabilities;
+ Property requestedLeaseDuration : String Index 16 Read FrequestedLeaseDuration Write SetrequestedLeaseDuration;
+ Property currentWorkerTime : String Index 24 Read FcurrentWorkerTime Write SetcurrentWorkerTime;
+ Property workerId : String Index 32 Read FworkerId Write SetworkerId;
end;
- TReportWorkItemStatusRequestClass = Class of TReportWorkItemStatusRequest;
+ TLeaseWorkItemRequestClass = Class of TLeaseWorkItemRequest;
{ --------------------------------------------------------------------
- TReportWorkItemStatusResponse
+ TLeaseWorkItemResponse
--------------------------------------------------------------------}
- TReportWorkItemStatusResponse = Class(TGoogleBaseObject)
+ TLeaseWorkItemResponse = Class(TGoogleBaseObject)
Private
- FworkItemServiceStates : TReportWorkItemStatusResponseTypeworkItemServiceStatesArray;
+ FworkItems : TLeaseWorkItemResponseTypeworkItemsArray;
Protected
//Property setters
- Procedure SetworkItemServiceStates(AIndex : Integer; AValue : TReportWorkItemStatusResponseTypeworkItemServiceStatesArray); virtual;
+ Procedure SetworkItems(AIndex : Integer; const AValue : TLeaseWorkItemResponseTypeworkItemsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property workItemServiceStates : TReportWorkItemStatusResponseTypeworkItemServiceStatesArray Index 0 Read FworkItemServiceStates Write SetworkItemServiceStates;
+ Property workItems : TLeaseWorkItemResponseTypeworkItemsArray Index 0 Read FworkItems Write SetworkItems;
end;
- TReportWorkItemStatusResponseClass = Class of TReportWorkItemStatusResponse;
+ TLeaseWorkItemResponseClass = Class of TLeaseWorkItemResponse;
{ --------------------------------------------------------------------
- TSeqMapTaskTypeuserFn
+ TWorkItem
--------------------------------------------------------------------}
- TSeqMapTaskTypeuserFn = Class(TGoogleBaseObject)
+ TWorkItem = Class(TGoogleBaseObject)
Private
+ Fid : String;
+ FprojectId : String;
+ FjobId : String;
+ Fpackages : TWorkItemTypepackagesArray;
+ FmapTask : TMapTask;
+ FseqMapTask : TSeqMapTask;
+ FshellTask : TShellTask;
+ FstreamingSetupTask : TStreamingSetupTask;
+ FsourceOperationTask : TSourceOperationRequest;
+ FstreamingComputationTask : TStreamingComputationTask;
+ FreportStatusInterval : String;
+ FleaseExpireTime : String;
+ Fconfiguration : String;
+ FinitialReportIndex : String;
Protected
//Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpackages(AIndex : Integer; const AValue : TWorkItemTypepackagesArray); virtual;
+ Procedure SetmapTask(AIndex : Integer; const AValue : TMapTask); virtual;
+ Procedure SetseqMapTask(AIndex : Integer; const AValue : TSeqMapTask); virtual;
+ Procedure SetshellTask(AIndex : Integer; const AValue : TShellTask); virtual;
+ Procedure SetstreamingSetupTask(AIndex : Integer; const AValue : TStreamingSetupTask); virtual;
+ Procedure SetsourceOperationTask(AIndex : Integer; const AValue : TSourceOperationRequest); virtual;
+ Procedure SetstreamingComputationTask(AIndex : Integer; const AValue : TStreamingComputationTask); virtual;
+ Procedure SetreportStatusInterval(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetleaseExpireTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setconfiguration(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinitialReportIndex(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
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property projectId : String Index 8 Read FprojectId Write SetprojectId;
+ Property jobId : String Index 16 Read FjobId Write SetjobId;
+ Property packages : TWorkItemTypepackagesArray Index 24 Read Fpackages Write Setpackages;
+ Property mapTask : TMapTask Index 32 Read FmapTask Write SetmapTask;
+ Property seqMapTask : TSeqMapTask Index 40 Read FseqMapTask Write SetseqMapTask;
+ Property shellTask : TShellTask Index 48 Read FshellTask Write SetshellTask;
+ Property streamingSetupTask : TStreamingSetupTask Index 56 Read FstreamingSetupTask Write SetstreamingSetupTask;
+ Property sourceOperationTask : TSourceOperationRequest Index 64 Read FsourceOperationTask Write SetsourceOperationTask;
+ Property streamingComputationTask : TStreamingComputationTask Index 72 Read FstreamingComputationTask Write SetstreamingComputationTask;
+ Property reportStatusInterval : String Index 80 Read FreportStatusInterval Write SetreportStatusInterval;
+ Property leaseExpireTime : String Index 88 Read FleaseExpireTime Write SetleaseExpireTime;
+ Property configuration : String Index 96 Read Fconfiguration Write Setconfiguration;
+ Property initialReportIndex : String Index 104 Read FinitialReportIndex Write SetinitialReportIndex;
end;
- TSeqMapTaskTypeuserFnClass = Class of TSeqMapTaskTypeuserFn;
+ TWorkItemClass = Class of TWorkItem;
{ --------------------------------------------------------------------
- TSeqMapTask
+ TMapTask
--------------------------------------------------------------------}
- TSeqMapTask = Class(TGoogleBaseObject)
+ TMapTask = Class(TGoogleBaseObject)
Private
- Finputs : TSeqMapTaskTypeinputsArray;
- Fname : String;
- FoutputInfos : TSeqMapTaskTypeoutputInfosArray;
- FstageName : String;
+ Finstructions : TMapTaskTypeinstructionsArray;
FsystemName : String;
- FuserFn : TSeqMapTaskTypeuserFn;
+ FstageName : String;
Protected
//Property setters
- Procedure Setinputs(AIndex : Integer; AValue : TSeqMapTaskTypeinputsArray); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoutputInfos(AIndex : Integer; AValue : TSeqMapTaskTypeoutputInfosArray); virtual;
- Procedure SetstageName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setinstructions(AIndex : Integer; const AValue : TMapTaskTypeinstructionsArray); virtual;
Procedure SetsystemName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserFn(AIndex : Integer; AValue : TSeqMapTaskTypeuserFn); virtual;
+ Procedure SetstageName(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 inputs : TSeqMapTaskTypeinputsArray Index 0 Read Finputs Write Setinputs;
- Property name : String Index 8 Read Fname Write Setname;
- Property outputInfos : TSeqMapTaskTypeoutputInfosArray Index 16 Read FoutputInfos Write SetoutputInfos;
- Property stageName : String Index 24 Read FstageName Write SetstageName;
- Property systemName : String Index 32 Read FsystemName Write SetsystemName;
- Property userFn : TSeqMapTaskTypeuserFn Index 40 Read FuserFn Write SetuserFn;
+ Property instructions : TMapTaskTypeinstructionsArray Index 0 Read Finstructions Write Setinstructions;
+ Property systemName : String Index 8 Read FsystemName Write SetsystemName;
+ Property stageName : String Index 16 Read FstageName Write SetstageName;
end;
- TSeqMapTaskClass = Class of TSeqMapTask;
+ TMapTaskClass = Class of TMapTask;
{ --------------------------------------------------------------------
- TSeqMapTaskOutputInfo
+ TParallelInstruction
--------------------------------------------------------------------}
- TSeqMapTaskOutputInfo = Class(TGoogleBaseObject)
+ TParallelInstruction = Class(TGoogleBaseObject)
Private
- Fsink : TSink;
- Ftag : String;
+ FsystemName : String;
+ Fname : String;
+ Fread : TReadInstruction;
+ Fwrite : TWriteInstruction;
+ FparDo : TParDoInstruction;
+ FpartialGroupByKey : TPartialGroupByKeyInstruction;
+ Fflatten : TFlattenInstruction;
+ Foutputs : TParallelInstructionTypeoutputsArray;
Protected
//Property setters
- Procedure Setsink(AIndex : Integer; AValue : TSink); virtual;
- Procedure Settag(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsystemName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setread(AIndex : Integer; const AValue : TReadInstruction); virtual;
+ Procedure Setwrite(AIndex : Integer; const AValue : TWriteInstruction); virtual;
+ Procedure SetparDo(AIndex : Integer; const AValue : TParDoInstruction); virtual;
+ Procedure SetpartialGroupByKey(AIndex : Integer; const AValue : TPartialGroupByKeyInstruction); virtual;
+ Procedure Setflatten(AIndex : Integer; const AValue : TFlattenInstruction); virtual;
+ Procedure Setoutputs(AIndex : Integer; const AValue : TParallelInstructionTypeoutputsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property sink : TSink Index 0 Read Fsink Write Setsink;
- Property tag : String Index 8 Read Ftag Write Settag;
+ Property systemName : String Index 0 Read FsystemName Write SetsystemName;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property read : TReadInstruction Index 16 Read Fread Write Setread;
+ Property write : TWriteInstruction Index 24 Read Fwrite Write Setwrite;
+ Property parDo : TParDoInstruction Index 32 Read FparDo Write SetparDo;
+ Property partialGroupByKey : TPartialGroupByKeyInstruction Index 40 Read FpartialGroupByKey Write SetpartialGroupByKey;
+ Property flatten : TFlattenInstruction Index 48 Read Fflatten Write Setflatten;
+ Property outputs : TParallelInstructionTypeoutputsArray Index 56 Read Foutputs Write Setoutputs;
end;
- TSeqMapTaskOutputInfoClass = Class of TSeqMapTaskOutputInfo;
+ TParallelInstructionClass = Class of TParallelInstruction;
{ --------------------------------------------------------------------
- TShellTask
+ TReadInstruction
--------------------------------------------------------------------}
- TShellTask = Class(TGoogleBaseObject)
+ TReadInstruction = Class(TGoogleBaseObject)
Private
- Fcommand : String;
- FexitCode : integer;
+ Fsource : TSource;
Protected
//Property setters
- Procedure Setcommand(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexitCode(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TSource); virtual;
Public
Published
- Property command : String Index 0 Read Fcommand Write Setcommand;
- Property exitCode : integer Index 8 Read FexitCode Write SetexitCode;
+ Property source : TSource Index 0 Read Fsource Write Setsource;
end;
- TShellTaskClass = Class of TShellTask;
+ TReadInstructionClass = Class of TReadInstruction;
{ --------------------------------------------------------------------
- TSideInputInfoTypekind
+ TWriteInstruction
--------------------------------------------------------------------}
- TSideInputInfoTypekind = Class(TGoogleBaseObject)
+ TWriteInstruction = Class(TGoogleBaseObject)
Private
+ Finput : TInstructionInput;
+ Fsink : TSink;
Protected
//Property setters
+ Procedure Setinput(AIndex : Integer; const AValue : TInstructionInput); virtual;
+ Procedure Setsink(AIndex : Integer; const AValue : TSink); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property input : TInstructionInput Index 0 Read Finput Write Setinput;
+ Property sink : TSink Index 8 Read Fsink Write Setsink;
end;
- TSideInputInfoTypekindClass = Class of TSideInputInfoTypekind;
+ TWriteInstructionClass = Class of TWriteInstruction;
{ --------------------------------------------------------------------
- TSideInputInfo
+ TInstructionInput
--------------------------------------------------------------------}
- TSideInputInfo = Class(TGoogleBaseObject)
+ TInstructionInput = Class(TGoogleBaseObject)
Private
- Fkind : TSideInputInfoTypekind;
- Fsources : TSideInputInfoTypesourcesArray;
- Ftag : String;
+ FproducerInstructionIndex : integer;
+ FoutputNum : integer;
Protected
//Property setters
- Procedure Setkind(AIndex : Integer; AValue : TSideInputInfoTypekind); virtual;
- Procedure Setsources(AIndex : Integer; AValue : TSideInputInfoTypesourcesArray); virtual;
- Procedure Settag(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}
+ Procedure SetproducerInstructionIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetoutputNum(AIndex : Integer; const AValue : integer); virtual;
Public
Published
- Property kind : TSideInputInfoTypekind Index 0 Read Fkind Write Setkind;
- Property sources : TSideInputInfoTypesourcesArray Index 8 Read Fsources Write Setsources;
- Property tag : String Index 16 Read Ftag Write Settag;
+ Property producerInstructionIndex : integer Index 0 Read FproducerInstructionIndex Write SetproducerInstructionIndex;
+ Property outputNum : integer Index 8 Read FoutputNum Write SetoutputNum;
end;
- TSideInputInfoClass = Class of TSideInputInfo;
+ TInstructionInputClass = Class of TInstructionInput;
{ --------------------------------------------------------------------
- TSinkTypecodec
+ TSinkTypespec
--------------------------------------------------------------------}
- TSinkTypecodec = Class(TGoogleBaseObject)
+ TSinkTypespec = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -1376,13 +1751,13 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TSinkTypecodecClass = Class of TSinkTypecodec;
+ TSinkTypespecClass = Class of TSinkTypespec;
{ --------------------------------------------------------------------
- TSinkTypespec
+ TSinkTypecodec
--------------------------------------------------------------------}
- TSinkTypespec = Class(TGoogleBaseObject)
+ TSinkTypecodec = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -1390,7 +1765,7 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TSinkTypespecClass = Class of TSinkTypespec;
+ TSinkTypecodecClass = Class of TSinkTypecodec;
{ --------------------------------------------------------------------
TSink
@@ -1398,24 +1773,24 @@ type
TSink = Class(TGoogleBaseObject)
Private
- Fcodec : TSinkTypecodec;
Fspec : TSinkTypespec;
+ Fcodec : TSinkTypecodec;
Protected
//Property setters
- Procedure Setcodec(AIndex : Integer; AValue : TSinkTypecodec); virtual;
- Procedure Setspec(AIndex : Integer; AValue : TSinkTypespec); virtual;
+ Procedure Setspec(AIndex : Integer; const AValue : TSinkTypespec); virtual;
+ Procedure Setcodec(AIndex : Integer; const AValue : TSinkTypecodec); virtual;
Public
Published
- Property codec : TSinkTypecodec Index 0 Read Fcodec Write Setcodec;
- Property spec : TSinkTypespec Index 8 Read Fspec Write Setspec;
+ Property spec : TSinkTypespec Index 0 Read Fspec Write Setspec;
+ Property codec : TSinkTypecodec Index 8 Read Fcodec Write Setcodec;
end;
TSinkClass = Class of TSink;
{ --------------------------------------------------------------------
- TSourceTypebaseSpecsItem
+ TParDoInstructionTypeuserFn
--------------------------------------------------------------------}
- TSourceTypebaseSpecsItem = Class(TGoogleBaseObject)
+ TParDoInstructionTypeuserFn = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -1423,27 +1798,45 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TSourceTypebaseSpecsItemClass = Class of TSourceTypebaseSpecsItem;
+ TParDoInstructionTypeuserFnClass = Class of TParDoInstructionTypeuserFn;
{ --------------------------------------------------------------------
- TSourceTypecodec
+ TParDoInstruction
--------------------------------------------------------------------}
- TSourceTypecodec = Class(TGoogleBaseObject)
+ TParDoInstruction = Class(TGoogleBaseObject)
Private
+ Finput : TInstructionInput;
+ FsideInputs : TParDoInstructionTypesideInputsArray;
+ FuserFn : TParDoInstructionTypeuserFn;
+ FnumOutputs : integer;
+ FmultiOutputInfos : TParDoInstructionTypemultiOutputInfosArray;
Protected
//Property setters
+ Procedure Setinput(AIndex : Integer; const AValue : TInstructionInput); virtual;
+ Procedure SetsideInputs(AIndex : Integer; const AValue : TParDoInstructionTypesideInputsArray); virtual;
+ Procedure SetuserFn(AIndex : Integer; const AValue : TParDoInstructionTypeuserFn); virtual;
+ Procedure SetnumOutputs(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmultiOutputInfos(AIndex : Integer; const AValue : TParDoInstructionTypemultiOutputInfosArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property input : TInstructionInput Index 0 Read Finput Write Setinput;
+ Property sideInputs : TParDoInstructionTypesideInputsArray Index 8 Read FsideInputs Write SetsideInputs;
+ Property userFn : TParDoInstructionTypeuserFn Index 16 Read FuserFn Write SetuserFn;
+ Property numOutputs : integer Index 24 Read FnumOutputs Write SetnumOutputs;
+ Property multiOutputInfos : TParDoInstructionTypemultiOutputInfosArray Index 32 Read FmultiOutputInfos Write SetmultiOutputInfos;
end;
- TSourceTypecodecClass = Class of TSourceTypecodec;
+ TParDoInstructionClass = Class of TParDoInstruction;
{ --------------------------------------------------------------------
- TSourceTypespec
+ TSideInputInfoTypekind
--------------------------------------------------------------------}
- TSourceTypespec = Class(TGoogleBaseObject)
+ TSideInputInfoTypekind = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -1451,245 +1844,280 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TSourceTypespecClass = Class of TSourceTypespec;
+ TSideInputInfoTypekindClass = Class of TSideInputInfoTypekind;
{ --------------------------------------------------------------------
- TSource
+ TSideInputInfo
--------------------------------------------------------------------}
- TSource = Class(TGoogleBaseObject)
+ TSideInputInfo = Class(TGoogleBaseObject)
Private
- FbaseSpecs : TSourceTypebaseSpecsArray;
- Fcodec : TSourceTypecodec;
- FdoesNotNeedSplitting : boolean;
- Fmetadata : TSourceMetadata;
- Fspec : TSourceTypespec;
+ Fsources : TSideInputInfoTypesourcesArray;
+ Fkind : TSideInputInfoTypekind;
+ Ftag : String;
Protected
//Property setters
- Procedure SetbaseSpecs(AIndex : Integer; AValue : TSourceTypebaseSpecsArray); virtual;
- Procedure Setcodec(AIndex : Integer; AValue : TSourceTypecodec); virtual;
- Procedure SetdoesNotNeedSplitting(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setmetadata(AIndex : Integer; AValue : TSourceMetadata); virtual;
- Procedure Setspec(AIndex : Integer; AValue : TSourceTypespec); virtual;
+ Procedure Setsources(AIndex : Integer; const AValue : TSideInputInfoTypesourcesArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : TSideInputInfoTypekind); virtual;
+ Procedure Settag(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 baseSpecs : TSourceTypebaseSpecsArray Index 0 Read FbaseSpecs Write SetbaseSpecs;
- Property codec : TSourceTypecodec Index 8 Read Fcodec Write Setcodec;
- Property doesNotNeedSplitting : boolean Index 16 Read FdoesNotNeedSplitting Write SetdoesNotNeedSplitting;
- Property metadata : TSourceMetadata Index 24 Read Fmetadata Write Setmetadata;
- Property spec : TSourceTypespec Index 32 Read Fspec Write Setspec;
+ Property sources : TSideInputInfoTypesourcesArray Index 0 Read Fsources Write Setsources;
+ Property kind : TSideInputInfoTypekind Index 8 Read Fkind Write Setkind;
+ Property tag : String Index 16 Read Ftag Write Settag;
end;
- TSourceClass = Class of TSource;
+ TSideInputInfoClass = Class of TSideInputInfo;
{ --------------------------------------------------------------------
- TSourceFork
+ TMultiOutputInfo
--------------------------------------------------------------------}
- TSourceFork = Class(TGoogleBaseObject)
+ TMultiOutputInfo = Class(TGoogleBaseObject)
Private
- Fprimary : TSourceSplitShard;
- FprimarySource : TDerivedSource;
- Fresidual : TSourceSplitShard;
- FresidualSource : TDerivedSource;
+ Ftag : String;
Protected
//Property setters
- Procedure Setprimary(AIndex : Integer; AValue : TSourceSplitShard); virtual;
- Procedure SetprimarySource(AIndex : Integer; AValue : TDerivedSource); virtual;
- Procedure Setresidual(AIndex : Integer; AValue : TSourceSplitShard); virtual;
- Procedure SetresidualSource(AIndex : Integer; AValue : TDerivedSource); virtual;
+ Procedure Settag(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property primary : TSourceSplitShard Index 0 Read Fprimary Write Setprimary;
- Property primarySource : TDerivedSource Index 8 Read FprimarySource Write SetprimarySource;
- Property residual : TSourceSplitShard Index 16 Read Fresidual Write Setresidual;
- Property residualSource : TDerivedSource Index 24 Read FresidualSource Write SetresidualSource;
+ Property tag : String Index 0 Read Ftag Write Settag;
end;
- TSourceForkClass = Class of TSourceFork;
+ TMultiOutputInfoClass = Class of TMultiOutputInfo;
{ --------------------------------------------------------------------
- TSourceGetMetadataRequest
+ TPartialGroupByKeyInstructionTypeinputElementCodec
--------------------------------------------------------------------}
- TSourceGetMetadataRequest = Class(TGoogleBaseObject)
+ TPartialGroupByKeyInstructionTypeinputElementCodec = Class(TGoogleBaseObject)
Private
- Fsource : TSource;
Protected
//Property setters
- Procedure Setsource(AIndex : Integer; AValue : TSource); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property source : TSource Index 0 Read Fsource Write Setsource;
end;
- TSourceGetMetadataRequestClass = Class of TSourceGetMetadataRequest;
+ TPartialGroupByKeyInstructionTypeinputElementCodecClass = Class of TPartialGroupByKeyInstructionTypeinputElementCodec;
{ --------------------------------------------------------------------
- TSourceGetMetadataResponse
+ TPartialGroupByKeyInstructionTypevalueCombiningFn
--------------------------------------------------------------------}
- TSourceGetMetadataResponse = Class(TGoogleBaseObject)
+ TPartialGroupByKeyInstructionTypevalueCombiningFn = Class(TGoogleBaseObject)
Private
- Fmetadata : TSourceMetadata;
Protected
//Property setters
- Procedure Setmetadata(AIndex : Integer; AValue : TSourceMetadata); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property metadata : TSourceMetadata Index 0 Read Fmetadata Write Setmetadata;
end;
- TSourceGetMetadataResponseClass = Class of TSourceGetMetadataResponse;
+ TPartialGroupByKeyInstructionTypevalueCombiningFnClass = Class of TPartialGroupByKeyInstructionTypevalueCombiningFn;
{ --------------------------------------------------------------------
- TSourceMetadata
+ TPartialGroupByKeyInstruction
--------------------------------------------------------------------}
- TSourceMetadata = Class(TGoogleBaseObject)
+ TPartialGroupByKeyInstruction = Class(TGoogleBaseObject)
Private
- FestimatedSizeBytes : String;
- Finfinite : boolean;
- FproducesSortedKeys : boolean;
+ Finput : TInstructionInput;
+ FinputElementCodec : TPartialGroupByKeyInstructionTypeinputElementCodec;
+ FvalueCombiningFn : TPartialGroupByKeyInstructionTypevalueCombiningFn;
+ FsideInputs : TPartialGroupByKeyInstructionTypesideInputsArray;
Protected
//Property setters
- Procedure SetestimatedSizeBytes(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinfinite(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetproducesSortedKeys(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setinput(AIndex : Integer; const AValue : TInstructionInput); virtual;
+ Procedure SetinputElementCodec(AIndex : Integer; const AValue : TPartialGroupByKeyInstructionTypeinputElementCodec); virtual;
+ Procedure SetvalueCombiningFn(AIndex : Integer; const AValue : TPartialGroupByKeyInstructionTypevalueCombiningFn); virtual;
+ Procedure SetsideInputs(AIndex : Integer; const AValue : TPartialGroupByKeyInstructionTypesideInputsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property estimatedSizeBytes : String Index 0 Read FestimatedSizeBytes Write SetestimatedSizeBytes;
- Property infinite : boolean Index 8 Read Finfinite Write Setinfinite;
- Property producesSortedKeys : boolean Index 16 Read FproducesSortedKeys Write SetproducesSortedKeys;
+ Property input : TInstructionInput Index 0 Read Finput Write Setinput;
+ Property inputElementCodec : TPartialGroupByKeyInstructionTypeinputElementCodec Index 8 Read FinputElementCodec Write SetinputElementCodec;
+ Property valueCombiningFn : TPartialGroupByKeyInstructionTypevalueCombiningFn Index 16 Read FvalueCombiningFn Write SetvalueCombiningFn;
+ Property sideInputs : TPartialGroupByKeyInstructionTypesideInputsArray Index 24 Read FsideInputs Write SetsideInputs;
end;
- TSourceMetadataClass = Class of TSourceMetadata;
+ TPartialGroupByKeyInstructionClass = Class of TPartialGroupByKeyInstruction;
{ --------------------------------------------------------------------
- TSourceOperationRequest
+ TFlattenInstruction
--------------------------------------------------------------------}
- TSourceOperationRequest = Class(TGoogleBaseObject)
+ TFlattenInstruction = Class(TGoogleBaseObject)
Private
- FgetMetadata : TSourceGetMetadataRequest;
- Fsplit : TSourceSplitRequest;
+ Finputs : TFlattenInstructionTypeinputsArray;
Protected
//Property setters
- Procedure SetgetMetadata(AIndex : Integer; AValue : TSourceGetMetadataRequest); virtual;
- Procedure Setsplit(AIndex : Integer; AValue : TSourceSplitRequest); virtual;
+ Procedure Setinputs(AIndex : Integer; const AValue : TFlattenInstructionTypeinputsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property getMetadata : TSourceGetMetadataRequest Index 0 Read FgetMetadata Write SetgetMetadata;
- Property split : TSourceSplitRequest Index 8 Read Fsplit Write Setsplit;
+ Property inputs : TFlattenInstructionTypeinputsArray Index 0 Read Finputs Write Setinputs;
end;
- TSourceOperationRequestClass = Class of TSourceOperationRequest;
+ TFlattenInstructionClass = Class of TFlattenInstruction;
{ --------------------------------------------------------------------
- TSourceOperationResponse
+ TInstructionOutputTypecodec
--------------------------------------------------------------------}
- TSourceOperationResponse = Class(TGoogleBaseObject)
+ TInstructionOutputTypecodec = Class(TGoogleBaseObject)
Private
- FgetMetadata : TSourceGetMetadataResponse;
- Fsplit : TSourceSplitResponse;
Protected
//Property setters
- Procedure SetgetMetadata(AIndex : Integer; AValue : TSourceGetMetadataResponse); virtual;
- Procedure Setsplit(AIndex : Integer; AValue : TSourceSplitResponse); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property getMetadata : TSourceGetMetadataResponse Index 0 Read FgetMetadata Write SetgetMetadata;
- Property split : TSourceSplitResponse Index 8 Read Fsplit Write Setsplit;
end;
- TSourceOperationResponseClass = Class of TSourceOperationResponse;
+ TInstructionOutputTypecodecClass = Class of TInstructionOutputTypecodec;
{ --------------------------------------------------------------------
- TSourceSplitOptions
+ TInstructionOutput
--------------------------------------------------------------------}
- TSourceSplitOptions = Class(TGoogleBaseObject)
+ TInstructionOutput = Class(TGoogleBaseObject)
Private
- FdesiredBundleSizeBytes : String;
- FdesiredShardSizeBytes : String;
+ Fname : String;
+ FsystemName : String;
+ Fcodec : TInstructionOutputTypecodec;
Protected
//Property setters
- Procedure SetdesiredBundleSizeBytes(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdesiredShardSizeBytes(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsystemName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcodec(AIndex : Integer; const AValue : TInstructionOutputTypecodec); virtual;
Public
Published
- Property desiredBundleSizeBytes : String Index 0 Read FdesiredBundleSizeBytes Write SetdesiredBundleSizeBytes;
- Property desiredShardSizeBytes : String Index 8 Read FdesiredShardSizeBytes Write SetdesiredShardSizeBytes;
+ Property name : String Index 0 Read Fname Write Setname;
+ Property systemName : String Index 8 Read FsystemName Write SetsystemName;
+ Property codec : TInstructionOutputTypecodec Index 16 Read Fcodec Write Setcodec;
end;
- TSourceSplitOptionsClass = Class of TSourceSplitOptions;
+ TInstructionOutputClass = Class of TInstructionOutput;
{ --------------------------------------------------------------------
- TSourceSplitRequest
+ TSeqMapTaskTypeuserFn
--------------------------------------------------------------------}
- TSourceSplitRequest = Class(TGoogleBaseObject)
+ TSeqMapTaskTypeuserFn = Class(TGoogleBaseObject)
Private
- Foptions : TSourceSplitOptions;
- Fsource : TSource;
Protected
//Property setters
- Procedure Setoptions(AIndex : Integer; AValue : TSourceSplitOptions); virtual;
- Procedure Setsource(AIndex : Integer; AValue : TSource); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property options : TSourceSplitOptions Index 0 Read Foptions Write Setoptions;
- Property source : TSource Index 8 Read Fsource Write Setsource;
end;
- TSourceSplitRequestClass = Class of TSourceSplitRequest;
+ TSeqMapTaskTypeuserFnClass = Class of TSeqMapTaskTypeuserFn;
{ --------------------------------------------------------------------
- TSourceSplitResponse
+ TSeqMapTask
--------------------------------------------------------------------}
- TSourceSplitResponse = Class(TGoogleBaseObject)
+ TSeqMapTask = Class(TGoogleBaseObject)
Private
- Fbundles : TSourceSplitResponseTypebundlesArray;
- Foutcome : String;
- Fshards : TSourceSplitResponseTypeshardsArray;
+ Finputs : TSeqMapTaskTypeinputsArray;
+ FuserFn : TSeqMapTaskTypeuserFn;
+ FoutputInfos : TSeqMapTaskTypeoutputInfosArray;
+ Fname : String;
+ FsystemName : String;
+ FstageName : String;
Protected
//Property setters
- Procedure Setbundles(AIndex : Integer; AValue : TSourceSplitResponseTypebundlesArray); virtual;
- Procedure Setoutcome(AIndex : Integer; const AValue : String); virtual;
- Procedure Setshards(AIndex : Integer; AValue : TSourceSplitResponseTypeshardsArray); virtual;
+ Procedure Setinputs(AIndex : Integer; const AValue : TSeqMapTaskTypeinputsArray); virtual;
+ Procedure SetuserFn(AIndex : Integer; const AValue : TSeqMapTaskTypeuserFn); virtual;
+ Procedure SetoutputInfos(AIndex : Integer; const AValue : TSeqMapTaskTypeoutputInfosArray); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsystemName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstageName(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 bundles : TSourceSplitResponseTypebundlesArray Index 0 Read Fbundles Write Setbundles;
- Property outcome : String Index 8 Read Foutcome Write Setoutcome;
- Property shards : TSourceSplitResponseTypeshardsArray Index 16 Read Fshards Write Setshards;
+ Property inputs : TSeqMapTaskTypeinputsArray Index 0 Read Finputs Write Setinputs;
+ Property userFn : TSeqMapTaskTypeuserFn Index 8 Read FuserFn Write SetuserFn;
+ Property outputInfos : TSeqMapTaskTypeoutputInfosArray Index 16 Read FoutputInfos Write SetoutputInfos;
+ Property name : String Index 24 Read Fname Write Setname;
+ Property systemName : String Index 32 Read FsystemName Write SetsystemName;
+ Property stageName : String Index 40 Read FstageName Write SetstageName;
end;
- TSourceSplitResponseClass = Class of TSourceSplitResponse;
+ TSeqMapTaskClass = Class of TSeqMapTask;
{ --------------------------------------------------------------------
- TSourceSplitShard
+ TSeqMapTaskOutputInfo
--------------------------------------------------------------------}
- TSourceSplitShard = Class(TGoogleBaseObject)
+ TSeqMapTaskOutputInfo = Class(TGoogleBaseObject)
Private
- FderivationMode : String;
- Fsource : TSource;
+ Ftag : String;
+ Fsink : TSink;
Protected
//Property setters
- Procedure SetderivationMode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsource(AIndex : Integer; AValue : TSource); virtual;
+ Procedure Settag(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsink(AIndex : Integer; const AValue : TSink); virtual;
Public
Published
- Property derivationMode : String Index 0 Read FderivationMode Write SetderivationMode;
- Property source : TSource Index 8 Read Fsource Write Setsource;
+ Property tag : String Index 0 Read Ftag Write Settag;
+ Property sink : TSink Index 8 Read Fsink Write Setsink;
end;
- TSourceSplitShardClass = Class of TSourceSplitShard;
+ TSeqMapTaskOutputInfoClass = Class of TSeqMapTaskOutputInfo;
{ --------------------------------------------------------------------
- TStatusTypedetailsItem
+ TShellTask
--------------------------------------------------------------------}
- TStatusTypedetailsItem = Class(TGoogleBaseObject)
+ TShellTask = Class(TGoogleBaseObject)
+ Private
+ Fcommand : String;
+ FexitCode : integer;
+ Protected
+ //Property setters
+ Procedure Setcommand(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexitCode(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property command : String Index 0 Read Fcommand Write Setcommand;
+ Property exitCode : integer Index 8 Read FexitCode Write SetexitCode;
+ end;
+ TShellTaskClass = Class of TShellTask;
+
+ { --------------------------------------------------------------------
+ TStreamingSetupTask
+ --------------------------------------------------------------------}
+
+ TStreamingSetupTask = Class(TGoogleBaseObject)
+ Private
+ FreceiveWorkPort : integer;
+ FworkerHarnessPort : integer;
+ FstreamingComputationTopology : TTopologyConfig;
+ Fdrain : boolean;
+ Protected
+ //Property setters
+ Procedure SetreceiveWorkPort(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetworkerHarnessPort(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetstreamingComputationTopology(AIndex : Integer; const AValue : TTopologyConfig); virtual;
+ Procedure Setdrain(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property receiveWorkPort : integer Index 0 Read FreceiveWorkPort Write SetreceiveWorkPort;
+ Property workerHarnessPort : integer Index 8 Read FworkerHarnessPort Write SetworkerHarnessPort;
+ Property streamingComputationTopology : TTopologyConfig Index 16 Read FstreamingComputationTopology Write SetstreamingComputationTopology;
+ Property drain : boolean Index 24 Read Fdrain Write Setdrain;
+ end;
+ TStreamingSetupTaskClass = Class of TStreamingSetupTask;
+
+ { --------------------------------------------------------------------
+ TTopologyConfigTypeuserStageToComputationNameMap
+ --------------------------------------------------------------------}
+
+ TTopologyConfigTypeuserStageToComputationNameMap = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -1697,69 +2125,106 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
+ TTopologyConfigTypeuserStageToComputationNameMapClass = Class of TTopologyConfigTypeuserStageToComputationNameMap;
{ --------------------------------------------------------------------
- TStatus
+ TTopologyConfig
--------------------------------------------------------------------}
- TStatus = Class(TGoogleBaseObject)
+ TTopologyConfig = Class(TGoogleBaseObject)
Private
- Fcode : integer;
- Fdetails : TStatusTypedetailsArray;
- Fmessage : String;
+ Fcomputations : TTopologyConfigTypecomputationsArray;
+ FdataDiskAssignments : TTopologyConfigTypedataDiskAssignmentsArray;
+ FuserStageToComputationNameMap : TTopologyConfigTypeuserStageToComputationNameMap;
+ FforwardingKeyBits : integer;
+ FpersistentStateVersion : integer;
Protected
//Property setters
- Procedure Setcode(AIndex : Integer; AValue : integer); virtual;
- Procedure Setdetails(AIndex : Integer; AValue : TStatusTypedetailsArray); virtual;
- Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcomputations(AIndex : Integer; const AValue : TTopologyConfigTypecomputationsArray); virtual;
+ Procedure SetdataDiskAssignments(AIndex : Integer; const AValue : TTopologyConfigTypedataDiskAssignmentsArray); virtual;
+ Procedure SetuserStageToComputationNameMap(AIndex : Integer; const AValue : TTopologyConfigTypeuserStageToComputationNameMap); virtual;
+ Procedure SetforwardingKeyBits(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetpersistentStateVersion(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 code : integer Index 0 Read Fcode Write Setcode;
- Property details : TStatusTypedetailsArray Index 8 Read Fdetails Write Setdetails;
- Property message : String Index 16 Read Fmessage Write Setmessage;
+ Property computations : TTopologyConfigTypecomputationsArray Index 0 Read Fcomputations Write Setcomputations;
+ Property dataDiskAssignments : TTopologyConfigTypedataDiskAssignmentsArray Index 8 Read FdataDiskAssignments Write SetdataDiskAssignments;
+ Property userStageToComputationNameMap : TTopologyConfigTypeuserStageToComputationNameMap Index 16 Read FuserStageToComputationNameMap Write SetuserStageToComputationNameMap;
+ Property forwardingKeyBits : integer Index 24 Read FforwardingKeyBits Write SetforwardingKeyBits;
+ Property persistentStateVersion : integer Index 32 Read FpersistentStateVersion Write SetpersistentStateVersion;
end;
- TStatusClass = Class of TStatus;
+ TTopologyConfigClass = Class of TTopologyConfig;
{ --------------------------------------------------------------------
- TStepTypeproperties
+ TComputationTopology
--------------------------------------------------------------------}
- TStepTypeproperties = Class(TGoogleBaseObject)
+ TComputationTopology = Class(TGoogleBaseObject)
Private
+ FsystemStageName : String;
+ FcomputationId : String;
+ FuserStageName : String;
+ FkeyRanges : TComputationTopologyTypekeyRangesArray;
+ Finputs : TComputationTopologyTypeinputsArray;
+ Foutputs : TComputationTopologyTypeoutputsArray;
+ FstateFamilies : TComputationTopologyTypestateFamiliesArray;
Protected
//Property setters
+ Procedure SetsystemStageName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcomputationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserStageName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetkeyRanges(AIndex : Integer; const AValue : TComputationTopologyTypekeyRangesArray); virtual;
+ Procedure Setinputs(AIndex : Integer; const AValue : TComputationTopologyTypeinputsArray); virtual;
+ Procedure Setoutputs(AIndex : Integer; const AValue : TComputationTopologyTypeoutputsArray); virtual;
+ Procedure SetstateFamilies(AIndex : Integer; const AValue : TComputationTopologyTypestateFamiliesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property systemStageName : String Index 0 Read FsystemStageName Write SetsystemStageName;
+ Property computationId : String Index 8 Read FcomputationId Write SetcomputationId;
+ Property userStageName : String Index 16 Read FuserStageName Write SetuserStageName;
+ Property keyRanges : TComputationTopologyTypekeyRangesArray Index 24 Read FkeyRanges Write SetkeyRanges;
+ Property inputs : TComputationTopologyTypeinputsArray Index 32 Read Finputs Write Setinputs;
+ Property outputs : TComputationTopologyTypeoutputsArray Index 40 Read Foutputs Write Setoutputs;
+ Property stateFamilies : TComputationTopologyTypestateFamiliesArray Index 48 Read FstateFamilies Write SetstateFamilies;
end;
- TStepTypepropertiesClass = Class of TStepTypeproperties;
+ TComputationTopologyClass = Class of TComputationTopology;
{ --------------------------------------------------------------------
- TStep
+ TKeyRangeLocation
--------------------------------------------------------------------}
- TStep = Class(TGoogleBaseObject)
+ TKeyRangeLocation = Class(TGoogleBaseObject)
Private
- Fkind : String;
- Fname : String;
- Fproperties : TStepTypeproperties;
+ Fstart : String;
+ F_end : String;
+ FdeliveryEndpoint : String;
+ FpersistentDirectory : String;
+ FdataDisk : String;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setproperties(AIndex : Integer; AValue : TStepTypeproperties); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdeliveryEndpoint(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpersistentDirectory(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdataDisk(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property kind : String Index 0 Read Fkind Write Setkind;
- Property name : String Index 8 Read Fname Write Setname;
- Property properties : TStepTypeproperties Index 16 Read Fproperties Write Setproperties;
+ Property start : String Index 0 Read Fstart Write Setstart;
+ Property _end : String Index 8 Read F_end Write Set_end;
+ Property deliveryEndpoint : String Index 16 Read FdeliveryEndpoint Write SetdeliveryEndpoint;
+ Property persistentDirectory : String Index 24 Read FpersistentDirectory Write SetpersistentDirectory;
+ Property dataDisk : String Index 32 Read FdataDisk Write SetdataDisk;
end;
- TStepClass = Class of TStep;
+ TKeyRangeLocationClass = Class of TKeyRangeLocation;
{ --------------------------------------------------------------------
TStreamLocation
@@ -1767,286 +2232,335 @@ type
TStreamLocation = Class(TGoogleBaseObject)
Private
+ FstreamingStageLocation : TStreamingStageLocation;
FpubsubLocation : TPubsubLocation;
FsideInputLocation : TStreamingSideInputLocation;
- FstreamingStageLocation : TStreamingStageLocation;
+ FcustomSourceLocation : TCustomSourceLocation;
Protected
//Property setters
- Procedure SetpubsubLocation(AIndex : Integer; AValue : TPubsubLocation); virtual;
- Procedure SetsideInputLocation(AIndex : Integer; AValue : TStreamingSideInputLocation); virtual;
- Procedure SetstreamingStageLocation(AIndex : Integer; AValue : TStreamingStageLocation); virtual;
+ Procedure SetstreamingStageLocation(AIndex : Integer; const AValue : TStreamingStageLocation); virtual;
+ Procedure SetpubsubLocation(AIndex : Integer; const AValue : TPubsubLocation); virtual;
+ Procedure SetsideInputLocation(AIndex : Integer; const AValue : TStreamingSideInputLocation); virtual;
+ Procedure SetcustomSourceLocation(AIndex : Integer; const AValue : TCustomSourceLocation); virtual;
Public
Published
- Property pubsubLocation : TPubsubLocation Index 0 Read FpubsubLocation Write SetpubsubLocation;
- Property sideInputLocation : TStreamingSideInputLocation Index 8 Read FsideInputLocation Write SetsideInputLocation;
- Property streamingStageLocation : TStreamingStageLocation Index 16 Read FstreamingStageLocation Write SetstreamingStageLocation;
+ Property streamingStageLocation : TStreamingStageLocation Index 0 Read FstreamingStageLocation Write SetstreamingStageLocation;
+ Property pubsubLocation : TPubsubLocation Index 8 Read FpubsubLocation Write SetpubsubLocation;
+ Property sideInputLocation : TStreamingSideInputLocation Index 16 Read FsideInputLocation Write SetsideInputLocation;
+ Property customSourceLocation : TCustomSourceLocation Index 24 Read FcustomSourceLocation Write SetcustomSourceLocation;
end;
TStreamLocationClass = Class of TStreamLocation;
{ --------------------------------------------------------------------
- TStreamingComputationRanges
+ TStreamingStageLocation
--------------------------------------------------------------------}
- TStreamingComputationRanges = Class(TGoogleBaseObject)
+ TStreamingStageLocation = Class(TGoogleBaseObject)
Private
- FcomputationId : String;
- FrangeAssignments : TStreamingComputationRangesTyperangeAssignmentsArray;
+ FstreamId : String;
Protected
//Property setters
- Procedure SetcomputationId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrangeAssignments(AIndex : Integer; AValue : TStreamingComputationRangesTyperangeAssignmentsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure SetstreamId(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property computationId : String Index 0 Read FcomputationId Write SetcomputationId;
- Property rangeAssignments : TStreamingComputationRangesTyperangeAssignmentsArray Index 8 Read FrangeAssignments Write SetrangeAssignments;
+ Property streamId : String Index 0 Read FstreamId Write SetstreamId;
end;
- TStreamingComputationRangesClass = Class of TStreamingComputationRanges;
+ TStreamingStageLocationClass = Class of TStreamingStageLocation;
{ --------------------------------------------------------------------
- TStreamingComputationTask
+ TPubsubLocation
--------------------------------------------------------------------}
- TStreamingComputationTask = Class(TGoogleBaseObject)
+ TPubsubLocation = Class(TGoogleBaseObject)
Private
- FcomputationRanges : TStreamingComputationTaskTypecomputationRangesArray;
- FdataDisks : TStreamingComputationTaskTypedataDisksArray;
- FtaskType : String;
+ Ftopic : String;
+ Fsubscription : String;
+ FtimestampLabel : String;
+ FidLabel : String;
+ FdropLateData : boolean;
+ FtrackingSubscription : String;
Protected
//Property setters
- Procedure SetcomputationRanges(AIndex : Integer; AValue : TStreamingComputationTaskTypecomputationRangesArray); virtual;
- Procedure SetdataDisks(AIndex : Integer; AValue : TStreamingComputationTaskTypedataDisksArray); virtual;
- Procedure SettaskType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settopic(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsubscription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettimestampLabel(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetidLabel(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdropLateData(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SettrackingSubscription(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property topic : String Index 0 Read Ftopic Write Settopic;
+ Property subscription : String Index 8 Read Fsubscription Write Setsubscription;
+ Property timestampLabel : String Index 16 Read FtimestampLabel Write SettimestampLabel;
+ Property idLabel : String Index 24 Read FidLabel Write SetidLabel;
+ Property dropLateData : boolean Index 32 Read FdropLateData Write SetdropLateData;
+ Property trackingSubscription : String Index 40 Read FtrackingSubscription Write SettrackingSubscription;
+ end;
+ TPubsubLocationClass = Class of TPubsubLocation;
+
+ { --------------------------------------------------------------------
+ TStreamingSideInputLocation
+ --------------------------------------------------------------------}
+
+ TStreamingSideInputLocation = Class(TGoogleBaseObject)
+ Private
+ Ftag : String;
+ FstateFamily : String;
+ Protected
+ //Property setters
+ Procedure Settag(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstateFamily(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property tag : String Index 0 Read Ftag Write Settag;
+ Property stateFamily : String Index 8 Read FstateFamily Write SetstateFamily;
+ end;
+ TStreamingSideInputLocationClass = Class of TStreamingSideInputLocation;
+
+ { --------------------------------------------------------------------
+ TCustomSourceLocation
+ --------------------------------------------------------------------}
+
+ TCustomSourceLocation = Class(TGoogleBaseObject)
+ Private
+ Fstateful : boolean;
+ Protected
+ //Property setters
+ Procedure Setstateful(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property stateful : boolean Index 0 Read Fstateful Write Setstateful;
+ end;
+ TCustomSourceLocationClass = Class of TCustomSourceLocation;
+
+ { --------------------------------------------------------------------
+ TStateFamilyConfig
+ --------------------------------------------------------------------}
+
+ TStateFamilyConfig = Class(TGoogleBaseObject)
+ Private
+ FstateFamily : String;
+ FisRead : boolean;
+ Protected
+ //Property setters
+ Procedure SetstateFamily(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetisRead(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property stateFamily : String Index 0 Read FstateFamily Write SetstateFamily;
+ Property isRead : boolean Index 8 Read FisRead Write SetisRead;
+ end;
+ TStateFamilyConfigClass = Class of TStateFamilyConfig;
+
+ { --------------------------------------------------------------------
+ TDataDiskAssignment
+ --------------------------------------------------------------------}
+
+ TDataDiskAssignment = Class(TGoogleBaseObject)
+ Private
+ FvmInstance : String;
+ FdataDisks : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetvmInstance(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdataDisks(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 computationRanges : TStreamingComputationTaskTypecomputationRangesArray Index 0 Read FcomputationRanges Write SetcomputationRanges;
- Property dataDisks : TStreamingComputationTaskTypedataDisksArray Index 8 Read FdataDisks Write SetdataDisks;
- Property taskType : String Index 16 Read FtaskType Write SettaskType;
+ Property vmInstance : String Index 0 Read FvmInstance Write SetvmInstance;
+ Property dataDisks : TStringArray Index 8 Read FdataDisks Write SetdataDisks;
end;
- TStreamingComputationTaskClass = Class of TStreamingComputationTask;
+ TDataDiskAssignmentClass = Class of TDataDiskAssignment;
{ --------------------------------------------------------------------
- TStreamingSetupTask
+ TSourceOperationRequest
--------------------------------------------------------------------}
- TStreamingSetupTask = Class(TGoogleBaseObject)
+ TSourceOperationRequest = Class(TGoogleBaseObject)
Private
- FreceiveWorkPort : integer;
- FstreamingComputationTopology : TTopologyConfig;
- FworkerHarnessPort : integer;
+ Fsplit : TSourceSplitRequest;
+ FgetMetadata : TSourceGetMetadataRequest;
Protected
//Property setters
- Procedure SetreceiveWorkPort(AIndex : Integer; AValue : integer); virtual;
- Procedure SetstreamingComputationTopology(AIndex : Integer; AValue : TTopologyConfig); virtual;
- Procedure SetworkerHarnessPort(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setsplit(AIndex : Integer; const AValue : TSourceSplitRequest); virtual;
+ Procedure SetgetMetadata(AIndex : Integer; const AValue : TSourceGetMetadataRequest); virtual;
Public
Published
- Property receiveWorkPort : integer Index 0 Read FreceiveWorkPort Write SetreceiveWorkPort;
- Property streamingComputationTopology : TTopologyConfig Index 8 Read FstreamingComputationTopology Write SetstreamingComputationTopology;
- Property workerHarnessPort : integer Index 16 Read FworkerHarnessPort Write SetworkerHarnessPort;
+ Property split : TSourceSplitRequest Index 0 Read Fsplit Write Setsplit;
+ Property getMetadata : TSourceGetMetadataRequest Index 8 Read FgetMetadata Write SetgetMetadata;
end;
- TStreamingSetupTaskClass = Class of TStreamingSetupTask;
+ TSourceOperationRequestClass = Class of TSourceOperationRequest;
{ --------------------------------------------------------------------
- TStreamingSideInputLocation
+ TSourceSplitRequest
--------------------------------------------------------------------}
- TStreamingSideInputLocation = Class(TGoogleBaseObject)
+ TSourceSplitRequest = Class(TGoogleBaseObject)
Private
- Ftag : String;
+ Fsource : TSource;
+ Foptions : TSourceSplitOptions;
Protected
//Property setters
- Procedure Settag(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TSource); virtual;
+ Procedure Setoptions(AIndex : Integer; const AValue : TSourceSplitOptions); virtual;
Public
Published
- Property tag : String Index 0 Read Ftag Write Settag;
+ Property source : TSource Index 0 Read Fsource Write Setsource;
+ Property options : TSourceSplitOptions Index 8 Read Foptions Write Setoptions;
end;
- TStreamingSideInputLocationClass = Class of TStreamingSideInputLocation;
+ TSourceSplitRequestClass = Class of TSourceSplitRequest;
{ --------------------------------------------------------------------
- TStreamingStageLocation
+ TSourceSplitOptions
--------------------------------------------------------------------}
- TStreamingStageLocation = Class(TGoogleBaseObject)
+ TSourceSplitOptions = Class(TGoogleBaseObject)
Private
- FstreamId : String;
+ FdesiredBundleSizeBytes : String;
+ FdesiredShardSizeBytes : String;
Protected
//Property setters
- Procedure SetstreamId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdesiredBundleSizeBytes(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdesiredShardSizeBytes(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property streamId : String Index 0 Read FstreamId Write SetstreamId;
+ Property desiredBundleSizeBytes : String Index 0 Read FdesiredBundleSizeBytes Write SetdesiredBundleSizeBytes;
+ Property desiredShardSizeBytes : String Index 8 Read FdesiredShardSizeBytes Write SetdesiredShardSizeBytes;
end;
- TStreamingStageLocationClass = Class of TStreamingStageLocation;
+ TSourceSplitOptionsClass = Class of TSourceSplitOptions;
{ --------------------------------------------------------------------
- TTaskRunnerSettings
+ TSourceGetMetadataRequest
--------------------------------------------------------------------}
- TTaskRunnerSettings = Class(TGoogleBaseObject)
+ TSourceGetMetadataRequest = Class(TGoogleBaseObject)
Private
- Falsologtostderr : boolean;
- FbaseTaskDir : String;
- FbaseUrl : String;
- FcommandlinesFileName : String;
- FcontinueOnException : boolean;
- FdataflowApiVersion : String;
- FharnessCommand : String;
- FlanguageHint : String;
- FlogDir : String;
- FlogToSerialconsole : boolean;
- FlogUploadLocation : String;
- FoauthScopes : TStringArray;
- FparallelWorkerSettings : TWorkerSettings;
- FstreamingWorkerMainClass : String;
- FtaskGroup : String;
- FtaskUser : String;
- FtempStoragePrefix : String;
- FvmId : String;
- FworkflowFileName : String;
+ Fsource : TSource;
Protected
//Property setters
- Procedure Setalsologtostderr(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetbaseTaskDir(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbaseUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcommandlinesFileName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontinueOnException(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetdataflowApiVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetharnessCommand(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlanguageHint(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlogDir(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlogToSerialconsole(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetlogUploadLocation(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoauthScopes(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetparallelWorkerSettings(AIndex : Integer; AValue : TWorkerSettings); virtual;
- Procedure SetstreamingWorkerMainClass(AIndex : Integer; const AValue : String); virtual;
- Procedure SettaskGroup(AIndex : Integer; const AValue : String); virtual;
- Procedure SettaskUser(AIndex : Integer; const AValue : String); virtual;
- Procedure SettempStoragePrefix(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvmId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetworkflowFileName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TSource); virtual;
+ Public
+ Published
+ Property source : TSource Index 0 Read Fsource Write Setsource;
+ end;
+ TSourceGetMetadataRequestClass = Class of TSourceGetMetadataRequest;
+
+ { --------------------------------------------------------------------
+ TStreamingComputationTask
+ --------------------------------------------------------------------}
+
+ TStreamingComputationTask = Class(TGoogleBaseObject)
+ Private
+ FtaskType : String;
+ FdataDisks : TStreamingComputationTaskTypedataDisksArray;
+ FcomputationRanges : TStreamingComputationTaskTypecomputationRangesArray;
+ Protected
+ //Property setters
+ Procedure SettaskType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdataDisks(AIndex : Integer; const AValue : TStreamingComputationTaskTypedataDisksArray); virtual;
+ Procedure SetcomputationRanges(AIndex : Integer; const AValue : TStreamingComputationTaskTypecomputationRangesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property alsologtostderr : boolean Index 0 Read Falsologtostderr Write Setalsologtostderr;
- Property baseTaskDir : String Index 8 Read FbaseTaskDir Write SetbaseTaskDir;
- Property baseUrl : String Index 16 Read FbaseUrl Write SetbaseUrl;
- Property commandlinesFileName : String Index 24 Read FcommandlinesFileName Write SetcommandlinesFileName;
- Property continueOnException : boolean Index 32 Read FcontinueOnException Write SetcontinueOnException;
- Property dataflowApiVersion : String Index 40 Read FdataflowApiVersion Write SetdataflowApiVersion;
- Property harnessCommand : String Index 48 Read FharnessCommand Write SetharnessCommand;
- Property languageHint : String Index 56 Read FlanguageHint Write SetlanguageHint;
- Property logDir : String Index 64 Read FlogDir Write SetlogDir;
- Property logToSerialconsole : boolean Index 72 Read FlogToSerialconsole Write SetlogToSerialconsole;
- Property logUploadLocation : String Index 80 Read FlogUploadLocation Write SetlogUploadLocation;
- Property oauthScopes : TStringArray Index 88 Read FoauthScopes Write SetoauthScopes;
- Property parallelWorkerSettings : TWorkerSettings Index 96 Read FparallelWorkerSettings Write SetparallelWorkerSettings;
- Property streamingWorkerMainClass : String Index 104 Read FstreamingWorkerMainClass Write SetstreamingWorkerMainClass;
- Property taskGroup : String Index 112 Read FtaskGroup Write SettaskGroup;
- Property taskUser : String Index 120 Read FtaskUser Write SettaskUser;
- Property tempStoragePrefix : String Index 128 Read FtempStoragePrefix Write SettempStoragePrefix;
- Property vmId : String Index 136 Read FvmId Write SetvmId;
- Property workflowFileName : String Index 144 Read FworkflowFileName Write SetworkflowFileName;
+ Property taskType : String Index 0 Read FtaskType Write SettaskType;
+ Property dataDisks : TStreamingComputationTaskTypedataDisksArray Index 8 Read FdataDisks Write SetdataDisks;
+ Property computationRanges : TStreamingComputationTaskTypecomputationRangesArray Index 16 Read FcomputationRanges Write SetcomputationRanges;
end;
- TTaskRunnerSettingsClass = Class of TTaskRunnerSettings;
+ TStreamingComputationTaskClass = Class of TStreamingComputationTask;
{ --------------------------------------------------------------------
- TTopologyConfig
+ TMountedDataDisk
--------------------------------------------------------------------}
- TTopologyConfig = Class(TGoogleBaseObject)
+ TMountedDataDisk = Class(TGoogleBaseObject)
Private
- Fcomputations : TTopologyConfigTypecomputationsArray;
- FdataDiskAssignments : TTopologyConfigTypedataDiskAssignmentsArray;
+ FdataDisk : String;
Protected
//Property setters
- Procedure Setcomputations(AIndex : Integer; AValue : TTopologyConfigTypecomputationsArray); virtual;
- Procedure SetdataDiskAssignments(AIndex : Integer; AValue : TTopologyConfigTypedataDiskAssignmentsArray); virtual;
+ Procedure SetdataDisk(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property dataDisk : String Index 0 Read FdataDisk Write SetdataDisk;
+ end;
+ TMountedDataDiskClass = Class of TMountedDataDisk;
+
+ { --------------------------------------------------------------------
+ TStreamingComputationRanges
+ --------------------------------------------------------------------}
+
+ TStreamingComputationRanges = Class(TGoogleBaseObject)
+ Private
+ FcomputationId : String;
+ FrangeAssignments : TStreamingComputationRangesTyperangeAssignmentsArray;
+ Protected
+ //Property setters
+ Procedure SetcomputationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrangeAssignments(AIndex : Integer; const AValue : TStreamingComputationRangesTyperangeAssignmentsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property computations : TTopologyConfigTypecomputationsArray Index 0 Read Fcomputations Write Setcomputations;
- Property dataDiskAssignments : TTopologyConfigTypedataDiskAssignmentsArray Index 8 Read FdataDiskAssignments Write SetdataDiskAssignments;
+ Property computationId : String Index 0 Read FcomputationId Write SetcomputationId;
+ Property rangeAssignments : TStreamingComputationRangesTyperangeAssignmentsArray Index 8 Read FrangeAssignments Write SetrangeAssignments;
end;
- TTopologyConfigClass = Class of TTopologyConfig;
+ TStreamingComputationRangesClass = Class of TStreamingComputationRanges;
{ --------------------------------------------------------------------
- TWorkItem
+ TKeyRangeDataDiskAssignment
--------------------------------------------------------------------}
- TWorkItem = Class(TGoogleBaseObject)
+ TKeyRangeDataDiskAssignment = Class(TGoogleBaseObject)
Private
- Fconfiguration : String;
- Fid : String;
- FinitialReportIndex : String;
- FjobId : String;
- FleaseExpireTime : String;
- FmapTask : TMapTask;
- Fpackages : TWorkItemTypepackagesArray;
- FprojectId : String;
- FreportStatusInterval : String;
- FseqMapTask : TSeqMapTask;
- FshellTask : TShellTask;
- FsourceOperationTask : TSourceOperationRequest;
- FstreamingComputationTask : TStreamingComputationTask;
- FstreamingSetupTask : TStreamingSetupTask;
+ Fstart : String;
+ F_end : String;
+ FdataDisk : String;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setconfiguration(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinitialReportIndex(AIndex : Integer; const AValue : String); virtual;
- Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetleaseExpireTime(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmapTask(AIndex : Integer; AValue : TMapTask); virtual;
- Procedure Setpackages(AIndex : Integer; AValue : TWorkItemTypepackagesArray); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreportStatusInterval(AIndex : Integer; const AValue : String); virtual;
- Procedure SetseqMapTask(AIndex : Integer; AValue : TSeqMapTask); virtual;
- Procedure SetshellTask(AIndex : Integer; AValue : TShellTask); virtual;
- Procedure SetsourceOperationTask(AIndex : Integer; AValue : TSourceOperationRequest); virtual;
- Procedure SetstreamingComputationTask(AIndex : Integer; AValue : TStreamingComputationTask); virtual;
- Procedure SetstreamingSetupTask(AIndex : Integer; AValue : TStreamingSetupTask); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdataDisk(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property start : String Index 0 Read Fstart Write Setstart;
+ Property _end : String Index 8 Read F_end Write Set_end;
+ Property dataDisk : String Index 16 Read FdataDisk Write SetdataDisk;
+ end;
+ TKeyRangeDataDiskAssignmentClass = Class of TKeyRangeDataDiskAssignment;
+
+ { --------------------------------------------------------------------
+ TSendWorkerMessagesRequest
+ --------------------------------------------------------------------}
+
+ TSendWorkerMessagesRequest = Class(TGoogleBaseObject)
+ Private
+ FworkerMessages : TSendWorkerMessagesRequestTypeworkerMessagesArray;
+ Protected
+ //Property setters
+ Procedure SetworkerMessages(AIndex : Integer; const AValue : TSendWorkerMessagesRequestTypeworkerMessagesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property configuration : String Index 0 Read Fconfiguration Write Setconfiguration;
- Property id : String Index 8 Read Fid Write Setid;
- Property initialReportIndex : String Index 16 Read FinitialReportIndex Write SetinitialReportIndex;
- Property jobId : String Index 24 Read FjobId Write SetjobId;
- Property leaseExpireTime : String Index 32 Read FleaseExpireTime Write SetleaseExpireTime;
- Property mapTask : TMapTask Index 40 Read FmapTask Write SetmapTask;
- Property packages : TWorkItemTypepackagesArray Index 48 Read Fpackages Write Setpackages;
- Property projectId : String Index 56 Read FprojectId Write SetprojectId;
- Property reportStatusInterval : String Index 64 Read FreportStatusInterval Write SetreportStatusInterval;
- Property seqMapTask : TSeqMapTask Index 72 Read FseqMapTask Write SetseqMapTask;
- Property shellTask : TShellTask Index 80 Read FshellTask Write SetshellTask;
- Property sourceOperationTask : TSourceOperationRequest Index 88 Read FsourceOperationTask Write SetsourceOperationTask;
- Property streamingComputationTask : TStreamingComputationTask Index 96 Read FstreamingComputationTask Write SetstreamingComputationTask;
- Property streamingSetupTask : TStreamingSetupTask Index 104 Read FstreamingSetupTask Write SetstreamingSetupTask;
+ Property workerMessages : TSendWorkerMessagesRequestTypeworkerMessagesArray Index 0 Read FworkerMessages Write SetworkerMessages;
end;
- TWorkItemClass = Class of TWorkItem;
+ TSendWorkerMessagesRequestClass = Class of TSendWorkerMessagesRequest;
{ --------------------------------------------------------------------
- TWorkItemServiceStateTypeharnessData
+ TWorkerMessageTypelabels
--------------------------------------------------------------------}
- TWorkItemServiceStateTypeharnessData = Class(TGoogleBaseObject)
+ TWorkerMessageTypelabels = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -2054,94 +2568,81 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TWorkItemServiceStateTypeharnessDataClass = Class of TWorkItemServiceStateTypeharnessData;
+ TWorkerMessageTypelabelsClass = Class of TWorkerMessageTypelabels;
{ --------------------------------------------------------------------
- TWorkItemServiceState
+ TWorkerMessage
--------------------------------------------------------------------}
- TWorkItemServiceState = Class(TGoogleBaseObject)
+ TWorkerMessage = Class(TGoogleBaseObject)
Private
- FharnessData : TWorkItemServiceStateTypeharnessData;
- FleaseExpireTime : String;
- FnextReportIndex : String;
- FreportStatusInterval : String;
- FsuggestedStopPoint : TApproximateProgress;
- FsuggestedStopPosition : TPosition;
+ Flabels : TWorkerMessageTypelabels;
+ Ftime : String;
+ FworkerHealthReport : TWorkerHealthReport;
+ FworkerMessageCode : TWorkerMessageCode;
Protected
//Property setters
- Procedure SetharnessData(AIndex : Integer; AValue : TWorkItemServiceStateTypeharnessData); virtual;
- Procedure SetleaseExpireTime(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextReportIndex(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreportStatusInterval(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsuggestedStopPoint(AIndex : Integer; AValue : TApproximateProgress); virtual;
- Procedure SetsuggestedStopPosition(AIndex : Integer; AValue : TPosition); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TWorkerMessageTypelabels); virtual;
+ Procedure Settime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetworkerHealthReport(AIndex : Integer; const AValue : TWorkerHealthReport); virtual;
+ Procedure SetworkerMessageCode(AIndex : Integer; const AValue : TWorkerMessageCode); virtual;
Public
Published
- Property harnessData : TWorkItemServiceStateTypeharnessData Index 0 Read FharnessData Write SetharnessData;
- Property leaseExpireTime : String Index 8 Read FleaseExpireTime Write SetleaseExpireTime;
- Property nextReportIndex : String Index 16 Read FnextReportIndex Write SetnextReportIndex;
- Property reportStatusInterval : String Index 24 Read FreportStatusInterval Write SetreportStatusInterval;
- Property suggestedStopPoint : TApproximateProgress Index 32 Read FsuggestedStopPoint Write SetsuggestedStopPoint;
- Property suggestedStopPosition : TPosition Index 40 Read FsuggestedStopPosition Write SetsuggestedStopPosition;
+ Property labels : TWorkerMessageTypelabels Index 0 Read Flabels Write Setlabels;
+ Property time : String Index 8 Read Ftime Write Settime;
+ Property workerHealthReport : TWorkerHealthReport Index 16 Read FworkerHealthReport Write SetworkerHealthReport;
+ Property workerMessageCode : TWorkerMessageCode Index 24 Read FworkerMessageCode Write SetworkerMessageCode;
end;
- TWorkItemServiceStateClass = Class of TWorkItemServiceState;
+ TWorkerMessageClass = Class of TWorkerMessage;
{ --------------------------------------------------------------------
- TWorkItemStatus
+ TWorkerHealthReportTypepodsItem
--------------------------------------------------------------------}
- TWorkItemStatus = Class(TGoogleBaseObject)
+ TWorkerHealthReportTypepodsItem = Class(TGoogleBaseObject)
Private
- Fcompleted : boolean;
- FdynamicSourceSplit : TDynamicSourceSplit;
- Ferrors : TWorkItemStatusTypeerrorsArray;
- FmetricUpdates : TWorkItemStatusTypemetricUpdatesArray;
- Fprogress : TApproximateProgress;
- FreportIndex : String;
- FrequestedLeaseDuration : String;
- FsourceFork : TSourceFork;
- FsourceOperationResponse : TSourceOperationResponse;
- FstopPosition : TPosition;
- FworkItemId : String;
Protected
//Property setters
- Procedure Setcompleted(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetdynamicSourceSplit(AIndex : Integer; AValue : TDynamicSourceSplit); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TWorkItemStatusTypeerrorsArray); virtual;
- Procedure SetmetricUpdates(AIndex : Integer; AValue : TWorkItemStatusTypemetricUpdatesArray); virtual;
- Procedure Setprogress(AIndex : Integer; AValue : TApproximateProgress); virtual;
- Procedure SetreportIndex(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrequestedLeaseDuration(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsourceFork(AIndex : Integer; AValue : TSourceFork); virtual;
- Procedure SetsourceOperationResponse(AIndex : Integer; AValue : TSourceOperationResponse); virtual;
- Procedure SetstopPosition(AIndex : Integer; AValue : TPosition); virtual;
- Procedure SetworkItemId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TWorkerHealthReportTypepodsItemClass = Class of TWorkerHealthReportTypepodsItem;
+
+ { --------------------------------------------------------------------
+ TWorkerHealthReport
+ --------------------------------------------------------------------}
+
+ TWorkerHealthReport = Class(TGoogleBaseObject)
+ Private
+ FvmIsHealthy : boolean;
+ FvmStartupTime : String;
+ FreportInterval : String;
+ Fpods : TWorkerHealthReportTypepodsArray;
+ Protected
+ //Property setters
+ Procedure SetvmIsHealthy(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetvmStartupTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreportInterval(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpods(AIndex : Integer; const AValue : TWorkerHealthReportTypepodsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property completed : boolean Index 0 Read Fcompleted Write Setcompleted;
- Property dynamicSourceSplit : TDynamicSourceSplit Index 8 Read FdynamicSourceSplit Write SetdynamicSourceSplit;
- Property errors : TWorkItemStatusTypeerrorsArray Index 16 Read Ferrors Write Seterrors;
- Property metricUpdates : TWorkItemStatusTypemetricUpdatesArray Index 24 Read FmetricUpdates Write SetmetricUpdates;
- Property progress : TApproximateProgress Index 32 Read Fprogress Write Setprogress;
- Property reportIndex : String Index 40 Read FreportIndex Write SetreportIndex;
- Property requestedLeaseDuration : String Index 48 Read FrequestedLeaseDuration Write SetrequestedLeaseDuration;
- Property sourceFork : TSourceFork Index 56 Read FsourceFork Write SetsourceFork;
- Property sourceOperationResponse : TSourceOperationResponse Index 64 Read FsourceOperationResponse Write SetsourceOperationResponse;
- Property stopPosition : TPosition Index 72 Read FstopPosition Write SetstopPosition;
- Property workItemId : String Index 80 Read FworkItemId Write SetworkItemId;
+ Property vmIsHealthy : boolean Index 0 Read FvmIsHealthy Write SetvmIsHealthy;
+ Property vmStartupTime : String Index 8 Read FvmStartupTime Write SetvmStartupTime;
+ Property reportInterval : String Index 16 Read FreportInterval Write SetreportInterval;
+ Property pods : TWorkerHealthReportTypepodsArray Index 24 Read Fpods Write Setpods;
end;
- TWorkItemStatusClass = Class of TWorkItemStatus;
+ TWorkerHealthReportClass = Class of TWorkerHealthReport;
{ --------------------------------------------------------------------
- TWorkerPoolTypemetadata
+ TWorkerMessageCodeTypeparameters
--------------------------------------------------------------------}
- TWorkerPoolTypemetadata = Class(TGoogleBaseObject)
+ TWorkerMessageCodeTypeparameters = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -2149,136 +2650,78 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TWorkerPoolTypemetadataClass = Class of TWorkerPoolTypemetadata;
+ TWorkerMessageCodeTypeparametersClass = Class of TWorkerMessageCodeTypeparameters;
{ --------------------------------------------------------------------
- TWorkerPoolTypepoolArgs
+ TWorkerMessageCode
--------------------------------------------------------------------}
- TWorkerPoolTypepoolArgs = Class(TGoogleBaseObject)
+ TWorkerMessageCode = Class(TGoogleBaseObject)
Private
+ Fcode : String;
+ Fparameters : TWorkerMessageCodeTypeparameters;
Protected
//Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setparameters(AIndex : Integer; const AValue : TWorkerMessageCodeTypeparameters); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property code : String Index 0 Read Fcode Write Setcode;
+ Property parameters : TWorkerMessageCodeTypeparameters Index 8 Read Fparameters Write Setparameters;
end;
- TWorkerPoolTypepoolArgsClass = Class of TWorkerPoolTypepoolArgs;
+ TWorkerMessageCodeClass = Class of TWorkerMessageCode;
{ --------------------------------------------------------------------
- TWorkerPool
+ TSendWorkerMessagesResponse
--------------------------------------------------------------------}
- TWorkerPool = Class(TGoogleBaseObject)
+ TSendWorkerMessagesResponse = Class(TGoogleBaseObject)
Private
- FautoscalingSettings : TAutoscalingSettings;
- FdataDisks : TWorkerPoolTypedataDisksArray;
- FdefaultPackageSet : String;
- FdiskSizeGb : integer;
- FdiskSourceImage : String;
- FdiskType : String;
- Fkind : String;
- FmachineType : String;
- Fmetadata : TWorkerPoolTypemetadata;
- FnumWorkers : integer;
- FonHostMaintenance : String;
- Fpackages : TWorkerPoolTypepackagesArray;
- FpoolArgs : TWorkerPoolTypepoolArgs;
- FtaskrunnerSettings : TTaskRunnerSettings;
- FteardownPolicy : String;
- Fzone : String;
+ FworkerMessageResponses : TSendWorkerMessagesResponseTypeworkerMessageResponsesArray;
Protected
//Property setters
- Procedure SetautoscalingSettings(AIndex : Integer; AValue : TAutoscalingSettings); virtual;
- Procedure SetdataDisks(AIndex : Integer; AValue : TWorkerPoolTypedataDisksArray); virtual;
- Procedure SetdefaultPackageSet(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdiskSizeGb(AIndex : Integer; AValue : integer); virtual;
- Procedure SetdiskSourceImage(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdiskType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetadata(AIndex : Integer; AValue : TWorkerPoolTypemetadata); virtual;
- Procedure SetnumWorkers(AIndex : Integer; AValue : integer); virtual;
- Procedure SetonHostMaintenance(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpackages(AIndex : Integer; AValue : TWorkerPoolTypepackagesArray); virtual;
- Procedure SetpoolArgs(AIndex : Integer; AValue : TWorkerPoolTypepoolArgs); virtual;
- Procedure SettaskrunnerSettings(AIndex : Integer; AValue : TTaskRunnerSettings); virtual;
- Procedure SetteardownPolicy(AIndex : Integer; const AValue : String); virtual;
- Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetworkerMessageResponses(AIndex : Integer; const AValue : TSendWorkerMessagesResponseTypeworkerMessageResponsesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property autoscalingSettings : TAutoscalingSettings Index 0 Read FautoscalingSettings Write SetautoscalingSettings;
- Property dataDisks : TWorkerPoolTypedataDisksArray Index 8 Read FdataDisks Write SetdataDisks;
- Property defaultPackageSet : String Index 16 Read FdefaultPackageSet Write SetdefaultPackageSet;
- Property diskSizeGb : integer Index 24 Read FdiskSizeGb Write SetdiskSizeGb;
- Property diskSourceImage : String Index 32 Read FdiskSourceImage Write SetdiskSourceImage;
- Property diskType : String Index 40 Read FdiskType Write SetdiskType;
- Property kind : String Index 48 Read Fkind Write Setkind;
- Property machineType : String Index 56 Read FmachineType Write SetmachineType;
- Property metadata : TWorkerPoolTypemetadata Index 64 Read Fmetadata Write Setmetadata;
- Property numWorkers : integer Index 72 Read FnumWorkers Write SetnumWorkers;
- Property onHostMaintenance : String Index 80 Read FonHostMaintenance Write SetonHostMaintenance;
- Property packages : TWorkerPoolTypepackagesArray Index 88 Read Fpackages Write Setpackages;
- Property poolArgs : TWorkerPoolTypepoolArgs Index 96 Read FpoolArgs Write SetpoolArgs;
- Property taskrunnerSettings : TTaskRunnerSettings Index 104 Read FtaskrunnerSettings Write SettaskrunnerSettings;
- Property teardownPolicy : String Index 112 Read FteardownPolicy Write SetteardownPolicy;
- Property zone : String Index 120 Read Fzone Write Setzone;
+ Property workerMessageResponses : TSendWorkerMessagesResponseTypeworkerMessageResponsesArray Index 0 Read FworkerMessageResponses Write SetworkerMessageResponses;
end;
- TWorkerPoolClass = Class of TWorkerPool;
+ TSendWorkerMessagesResponseClass = Class of TSendWorkerMessagesResponse;
{ --------------------------------------------------------------------
- TWorkerSettings
+ TWorkerMessageResponse
--------------------------------------------------------------------}
- TWorkerSettings = Class(TGoogleBaseObject)
+ TWorkerMessageResponse = Class(TGoogleBaseObject)
Private
- FbaseUrl : String;
- FreportingEnabled : boolean;
- FservicePath : String;
- FshuffleServicePath : String;
- FtempStoragePrefix : String;
- FworkerId : String;
+ FworkerHealthReportResponse : TWorkerHealthReportResponse;
Protected
//Property setters
- Procedure SetbaseUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreportingEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetservicePath(AIndex : Integer; const AValue : String); virtual;
- Procedure SetshuffleServicePath(AIndex : Integer; const AValue : String); virtual;
- Procedure SettempStoragePrefix(AIndex : Integer; const AValue : String); virtual;
- Procedure SetworkerId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetworkerHealthReportResponse(AIndex : Integer; const AValue : TWorkerHealthReportResponse); virtual;
Public
Published
- Property baseUrl : String Index 0 Read FbaseUrl Write SetbaseUrl;
- Property reportingEnabled : boolean Index 8 Read FreportingEnabled Write SetreportingEnabled;
- Property servicePath : String Index 16 Read FservicePath Write SetservicePath;
- Property shuffleServicePath : String Index 24 Read FshuffleServicePath Write SetshuffleServicePath;
- Property tempStoragePrefix : String Index 32 Read FtempStoragePrefix Write SettempStoragePrefix;
- Property workerId : String Index 40 Read FworkerId Write SetworkerId;
+ Property workerHealthReportResponse : TWorkerHealthReportResponse Index 0 Read FworkerHealthReportResponse Write SetworkerHealthReportResponse;
end;
- TWorkerSettingsClass = Class of TWorkerSettings;
+ TWorkerMessageResponseClass = Class of TWorkerMessageResponse;
{ --------------------------------------------------------------------
- TWriteInstruction
+ TWorkerHealthReportResponse
--------------------------------------------------------------------}
- TWriteInstruction = Class(TGoogleBaseObject)
+ TWorkerHealthReportResponse = Class(TGoogleBaseObject)
Private
- Finput : TInstructionInput;
- Fsink : TSink;
+ FreportInterval : String;
Protected
//Property setters
- Procedure Setinput(AIndex : Integer; AValue : TInstructionInput); virtual;
- Procedure Setsink(AIndex : Integer; AValue : TSink); virtual;
+ Procedure SetreportInterval(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property input : TInstructionInput Index 0 Read Finput Write Setinput;
- Property sink : TSink Index 8 Read Fsink Write Setsink;
+ Property reportInterval : String Index 0 Read FreportInterval Write SetreportInterval;
end;
- TWriteInstructionClass = Class of TWriteInstruction;
+ TWorkerHealthReportResponseClass = Class of TWorkerHealthReportResponse;
{ --------------------------------------------------------------------
TProjectsJobsMessagesResource
@@ -2288,19 +2731,19 @@ type
//Optional query Options for TProjectsJobsMessagesResource, method List
TProjectsJobsMessagesListOptions = Record
- endTime : String;
minimumImportance : String;
pageSize : integer;
pageToken : String;
startTime : String;
+ endTime : String;
end;
TProjectsJobsMessagesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(jobId: string; projectId: string; AQuery : string = '') : TListJobMessagesResponse;
- Function List(jobId: string; projectId: string; AQuery : TProjectsJobsMessageslistOptions) : TListJobMessagesResponse;
+ Function List(projectId: string; jobId: string; AQuery : string = '') : TListJobMessagesResponse;
+ Function List(projectId: string; jobId: string; AQuery : TProjectsJobsMessageslistOptions) : TListJobMessagesResponse;
end;
@@ -2312,8 +2755,8 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Lease(jobId: string; projectId: string; aLeaseWorkItemRequest : TLeaseWorkItemRequest) : TLeaseWorkItemResponse;
- Function ReportStatus(jobId: string; projectId: string; aReportWorkItemStatusRequest : TReportWorkItemStatusRequest) : TReportWorkItemStatusResponse;
+ Function ReportStatus(projectId: string; jobId: string; aReportWorkItemStatusRequest : TReportWorkItemStatusRequest) : TReportWorkItemStatusResponse;
+ Function Lease(projectId: string; jobId: string; aLeaseWorkItemRequest : TLeaseWorkItemRequest) : TLeaseWorkItemResponse;
end;
@@ -2325,8 +2768,8 @@ type
//Optional query Options for TProjectsJobsResource, method Create
TProjectsJobsCreateOptions = Record
- replaceJobId : String;
view : String;
+ replaceJobId : String;
end;
@@ -2337,19 +2780,20 @@ type
end;
- //Optional query Options for TProjectsJobsResource, method GetMetrics
-
- TProjectsJobsGetMetricsOptions = Record
- startTime : String;
- end;
-
-
//Optional query Options for TProjectsJobsResource, method List
TProjectsJobsListOptions = Record
+ filter : String;
+ view : String;
pageSize : integer;
pageToken : String;
- view : String;
+ end;
+
+
+ //Optional query Options for TProjectsJobsResource, method GetMetrics
+
+ TProjectsJobsGetMetricsOptions = Record
+ startTime : String;
end;
TProjectsJobsResource = Class(TGoogleResource)
@@ -2363,14 +2807,13 @@ type
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Create(projectId: string; aJob : TJob; AQuery : string = '') : TJob;overload;
Function Create(projectId: string; aJob : TJob; AQuery : TProjectsJobscreateOptions) : TJob;overload;
- Function Get(jobId: string; projectId: string; AQuery : string = '') : TJob;
- Function Get(jobId: string; projectId: string; AQuery : TProjectsJobsgetOptions) : TJob;
- Function GetMetrics(jobId: string; projectId: string; AQuery : string = '') : TJobMetrics;
- Function GetMetrics(jobId: string; projectId: string; AQuery : TProjectsJobsgetMetricsOptions) : TJobMetrics;
+ Function Get(projectId: string; jobId: string; AQuery : string = '') : TJob;
+ Function Get(projectId: string; jobId: string; AQuery : TProjectsJobsgetOptions) : TJob;
+ Function Update(projectId: string; jobId: string; aJob : TJob) : TJob;
Function List(projectId: string; AQuery : string = '') : TListJobsResponse;
Function List(projectId: string; AQuery : TProjectsJobslistOptions) : TListJobsResponse;
- Function Patch(jobId: string; projectId: string; aJob : TJob) : TJob;
- Function Update(jobId: string; projectId: string; aJob : TJob) : TJob;
+ Function GetMetrics(projectId: string; jobId: string; AQuery : string = '') : TJobMetrics;
+ Function GetMetrics(projectId: string; jobId: string; AQuery : TProjectsJobsgetMetricsOptions) : TJobMetrics;
Function CreateMessagesResource(AOwner : TComponent) : TProjectsJobsMessagesResource;virtual;overload;
Function CreateMessagesResource : TProjectsJobsMessagesResource;virtual;overload;
Function CreateWorkItemsResource(AOwner : TComponent) : TProjectsJobsWorkItemsResource;virtual;overload;
@@ -2395,6 +2838,7 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function WorkerMessages(projectId: string; aSendWorkerMessagesRequest : TSendWorkerMessagesRequest) : TSendWorkerMessagesResponse;
Function CreateJobsMessagesResource(AOwner : TComponent) : TProjectsJobsMessagesResource;virtual;overload;
Function CreateJobsMessagesResource : TProjectsJobsMessagesResource;virtual;overload;
Function CreateJobsWorkItemsResource(AOwner : TComponent) : TProjectsJobsWorkItemsResource;virtual;overload;
@@ -2463,259 +2907,233 @@ implementation
{ --------------------------------------------------------------------
- TApproximateProgress
+ TJobTypetransformNameMapping
--------------------------------------------------------------------}
-Procedure TApproximateProgress.SetpercentComplete(AIndex : Integer; AValue : integer);
+Class Function TJobTypetransformNameMapping.AllowAdditionalProperties : Boolean;
begin
- If (FpercentComplete=AValue) then exit;
- FpercentComplete:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TApproximateProgress.Setposition(AIndex : Integer; AValue : TPosition);
+{ --------------------------------------------------------------------
+ TJob
+ --------------------------------------------------------------------}
+
+
+Procedure TJob.Setid(AIndex : Integer; const AValue : String);
begin
- If (Fposition=AValue) then exit;
- Fposition:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TApproximateProgress.SetremainingTime(AIndex : Integer; const AValue : String);
+Procedure TJob.SetprojectId(AIndex : Integer; const AValue : String);
begin
- If (FremainingTime=AValue) then exit;
- FremainingTime:=AValue;
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TAutoscalingSettings
- --------------------------------------------------------------------}
-
-
-Procedure TAutoscalingSettings.Setalgorithm(AIndex : Integer; const AValue : String);
+Procedure TJob.Setname(AIndex : Integer; const AValue : String);
begin
- If (Falgorithm=AValue) then exit;
- Falgorithm:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAutoscalingSettings.SetmaxNumWorkers(AIndex : Integer; AValue : integer);
+Procedure TJob.Set_type(AIndex : Integer; const AValue : String);
begin
- If (FmaxNumWorkers=AValue) then exit;
- FmaxNumWorkers:=AValue;
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TComputationTopology
- --------------------------------------------------------------------}
-
-
-Procedure TComputationTopology.SetcomputationId(AIndex : Integer; const AValue : String);
+Procedure TJob.Setenvironment(AIndex : Integer; const AValue : TEnvironment);
begin
- If (FcomputationId=AValue) then exit;
- FcomputationId:=AValue;
+ If (Fenvironment=AValue) then exit;
+ Fenvironment:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TComputationTopology.Setinputs(AIndex : Integer; AValue : TComputationTopologyTypeinputsArray);
+Procedure TJob.Setsteps(AIndex : Integer; const AValue : TJobTypestepsArray);
begin
- If (Finputs=AValue) then exit;
- Finputs:=AValue;
+ If (Fsteps=AValue) then exit;
+ Fsteps:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TComputationTopology.SetkeyRanges(AIndex : Integer; AValue : TComputationTopologyTypekeyRangesArray);
+Procedure TJob.SetcurrentState(AIndex : Integer; const AValue : String);
begin
- If (FkeyRanges=AValue) then exit;
- FkeyRanges:=AValue;
+ If (FcurrentState=AValue) then exit;
+ FcurrentState:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TComputationTopology.Setoutputs(AIndex : Integer; AValue : TComputationTopologyTypeoutputsArray);
+Procedure TJob.SetcurrentStateTime(AIndex : Integer; const AValue : String);
begin
- If (Foutputs=AValue) then exit;
- Foutputs:=AValue;
+ If (FcurrentStateTime=AValue) then exit;
+ FcurrentStateTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TComputationTopology.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TJob.SetrequestedState(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'inputs' : SetLength(Finputs,ALength);
- 'keyranges' : SetLength(FkeyRanges,ALength);
- 'outputs' : SetLength(Foutputs,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FrequestedState=AValue) then exit;
+ FrequestedState:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
-
-
-{ --------------------------------------------------------------------
- TDataDiskAssignment
- --------------------------------------------------------------------}
-
-Procedure TDataDiskAssignment.SetdataDisks(AIndex : Integer; AValue : TStringArray);
+Procedure TJob.SetexecutionInfo(AIndex : Integer; const AValue : TJobExecutionInfo);
begin
- If (FdataDisks=AValue) then exit;
- FdataDisks:=AValue;
+ If (FexecutionInfo=AValue) then exit;
+ FexecutionInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDataDiskAssignment.SetvmInstance(AIndex : Integer; const AValue : String);
+Procedure TJob.SetcreateTime(AIndex : Integer; const AValue : String);
begin
- If (FvmInstance=AValue) then exit;
- FvmInstance:=AValue;
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TDataDiskAssignment.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TJob.SetreplaceJobId(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'datadisks' : SetLength(FdataDisks,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FreplaceJobId=AValue) then exit;
+ FreplaceJobId:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
-
-{ --------------------------------------------------------------------
- TDerivedSource
- --------------------------------------------------------------------}
-
-
-Procedure TDerivedSource.SetderivationMode(AIndex : Integer; const AValue : String);
+Procedure TJob.SettransformNameMapping(AIndex : Integer; const AValue : TJobTypetransformNameMapping);
begin
- If (FderivationMode=AValue) then exit;
- FderivationMode:=AValue;
+ If (FtransformNameMapping=AValue) then exit;
+ FtransformNameMapping:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDerivedSource.Setsource(AIndex : Integer; AValue : TSource);
+Procedure TJob.SetclientRequestId(AIndex : Integer; const AValue : String);
begin
- If (Fsource=AValue) then exit;
- Fsource:=AValue;
+ If (FclientRequestId=AValue) then exit;
+ FclientRequestId:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TDisk
- --------------------------------------------------------------------}
-
-
-Procedure TDisk.SetdiskType(AIndex : Integer; const AValue : String);
+Procedure TJob.SetreplacedByJobId(AIndex : Integer; const AValue : String);
begin
- If (FdiskType=AValue) then exit;
- FdiskType:=AValue;
+ If (FreplacedByJobId=AValue) then exit;
+ FreplacedByJobId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDisk.SetmountPoint(AIndex : Integer; const AValue : String);
+Procedure TJob.SettempFiles(AIndex : Integer; const AValue : TStringArray);
begin
- If (FmountPoint=AValue) then exit;
- FmountPoint:=AValue;
+ If (FtempFiles=AValue) then exit;
+ FtempFiles:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDisk.SetsizeGb(AIndex : Integer; AValue : integer);
+Class Function TJob.ExportPropertyName(Const AName : String) :String;
begin
- If (FsizeGb=AValue) then exit;
- FsizeGb:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJob.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'steps' : SetLength(Fsteps,ALength);
+ 'tempfiles' : SetLength(FtempFiles,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TDynamicSourceSplit
+ TEnvironmentTypeuserAgent
--------------------------------------------------------------------}
-Procedure TDynamicSourceSplit.Setprimary(AIndex : Integer; AValue : TDerivedSource);
+Class Function TEnvironmentTypeuserAgent.AllowAdditionalProperties : Boolean;
begin
- If (Fprimary=AValue) then exit;
- Fprimary:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TDynamicSourceSplit.Setresidual(AIndex : Integer; AValue : TDerivedSource);
+{ --------------------------------------------------------------------
+ TEnvironmentTypeversion
+ --------------------------------------------------------------------}
-begin
- If (Fresidual=AValue) then exit;
- Fresidual:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+Class Function TEnvironmentTypeversion.AllowAdditionalProperties : Boolean;
+begin
+ Result:=True;
+end;
@@ -2733,11 +3151,11 @@ end;
{ --------------------------------------------------------------------
- TEnvironmentTypeuserAgent
+ TEnvironmentTypeinternalExperiments
--------------------------------------------------------------------}
-Class Function TEnvironmentTypeuserAgent.AllowAdditionalProperties : Boolean;
+Class Function TEnvironmentTypeinternalExperiments.AllowAdditionalProperties : Boolean;
begin
Result:=True;
@@ -2746,23 +3164,20 @@ end;
{ --------------------------------------------------------------------
- TEnvironmentTypeversion
+ TEnvironment
--------------------------------------------------------------------}
-Class Function TEnvironmentTypeversion.AllowAdditionalProperties : Boolean;
+Procedure TEnvironment.SettempStoragePrefix(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (FtempStoragePrefix=AValue) then exit;
+ FtempStoragePrefix:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TEnvironment
- --------------------------------------------------------------------}
-
-
Procedure TEnvironment.SetclusterManagerApiService(AIndex : Integer; const AValue : String);
begin
@@ -2773,71 +3188,71 @@ end;
-Procedure TEnvironment.Setdataset(AIndex : Integer; const AValue : String);
+Procedure TEnvironment.Setexperiments(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fdataset=AValue) then exit;
- Fdataset:=AValue;
+ If (Fexperiments=AValue) then exit;
+ Fexperiments:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TEnvironment.Setexperiments(AIndex : Integer; AValue : TStringArray);
+Procedure TEnvironment.SetworkerPools(AIndex : Integer; const AValue : TEnvironmentTypeworkerPoolsArray);
begin
- If (Fexperiments=AValue) then exit;
- Fexperiments:=AValue;
+ If (FworkerPools=AValue) then exit;
+ FworkerPools:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TEnvironment.SetsdkPipelineOptions(AIndex : Integer; AValue : TEnvironmentTypesdkPipelineOptions);
+Procedure TEnvironment.SetuserAgent(AIndex : Integer; const AValue : TEnvironmentTypeuserAgent);
begin
- If (FsdkPipelineOptions=AValue) then exit;
- FsdkPipelineOptions:=AValue;
+ If (FuserAgent=AValue) then exit;
+ FuserAgent:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TEnvironment.SettempStoragePrefix(AIndex : Integer; const AValue : String);
+Procedure TEnvironment.Setversion(AIndex : Integer; const AValue : TEnvironmentTypeversion);
begin
- If (FtempStoragePrefix=AValue) then exit;
- FtempStoragePrefix:=AValue;
+ If (Fversion=AValue) then exit;
+ Fversion:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TEnvironment.SetuserAgent(AIndex : Integer; AValue : TEnvironmentTypeuserAgent);
+Procedure TEnvironment.Setdataset(AIndex : Integer; const AValue : String);
begin
- If (FuserAgent=AValue) then exit;
- FuserAgent:=AValue;
+ If (Fdataset=AValue) then exit;
+ Fdataset:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TEnvironment.Setversion(AIndex : Integer; AValue : TEnvironmentTypeversion);
+Procedure TEnvironment.SetsdkPipelineOptions(AIndex : Integer; const AValue : TEnvironmentTypesdkPipelineOptions);
begin
- If (Fversion=AValue) then exit;
- Fversion:=AValue;
+ If (FsdkPipelineOptions=AValue) then exit;
+ FsdkPipelineOptions:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TEnvironment.SetworkerPools(AIndex : Integer; AValue : TEnvironmentTypeworkerPoolsArray);
+Procedure TEnvironment.SetinternalExperiments(AIndex : Integer; const AValue : TEnvironmentTypeinternalExperiments);
begin
- If (FworkerPools=AValue) then exit;
- FworkerPools:=AValue;
+ If (FinternalExperiments=AValue) then exit;
+ FinternalExperiments:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -2860,234 +3275,243 @@ end;
{ --------------------------------------------------------------------
- TFlattenInstruction
+ TWorkerPoolTypemetadata
--------------------------------------------------------------------}
-Procedure TFlattenInstruction.Setinputs(AIndex : Integer; AValue : TFlattenInstructionTypeinputsArray);
+Class Function TWorkerPoolTypemetadata.AllowAdditionalProperties : Boolean;
begin
- If (Finputs=AValue) then exit;
- Finputs:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TFlattenInstruction.SetArrayLength(Const AName : String; ALength : Longint);
+
+{ --------------------------------------------------------------------
+ TWorkerPoolTypepoolArgs
+ --------------------------------------------------------------------}
+
+
+Class Function TWorkerPoolTypepoolArgs.AllowAdditionalProperties : Boolean;
begin
- Case AName of
- 'inputs' : SetLength(Finputs,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ Result:=True;
end;
-{$ENDIF VER2_6}
-
{ --------------------------------------------------------------------
- TInstructionInput
+ TWorkerPool
--------------------------------------------------------------------}
-Procedure TInstructionInput.SetoutputNum(AIndex : Integer; AValue : integer);
+Procedure TWorkerPool.Setkind(AIndex : Integer; const AValue : String);
begin
- If (FoutputNum=AValue) then exit;
- FoutputNum:=AValue;
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TInstructionInput.SetproducerInstructionIndex(AIndex : Integer; AValue : integer);
+Procedure TWorkerPool.SetnumWorkers(AIndex : Integer; const AValue : integer);
begin
- If (FproducerInstructionIndex=AValue) then exit;
- FproducerInstructionIndex:=AValue;
+ If (FnumWorkers=AValue) then exit;
+ FnumWorkers:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TWorkerPool.Setpackages(AIndex : Integer; const AValue : TWorkerPoolTypepackagesArray);
+begin
+ If (Fpackages=AValue) then exit;
+ Fpackages:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TInstructionOutputTypecodec
- --------------------------------------------------------------------}
-Class Function TInstructionOutputTypecodec.AllowAdditionalProperties : Boolean;
+Procedure TWorkerPool.SetdefaultPackageSet(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (FdefaultPackageSet=AValue) then exit;
+ FdefaultPackageSet:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TInstructionOutput
- --------------------------------------------------------------------}
+Procedure TWorkerPool.SetmachineType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmachineType=AValue) then exit;
+ FmachineType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TInstructionOutput.Setcodec(AIndex : Integer; AValue : TInstructionOutputTypecodec);
+
+Procedure TWorkerPool.SetteardownPolicy(AIndex : Integer; const AValue : String);
begin
- If (Fcodec=AValue) then exit;
- Fcodec:=AValue;
+ If (FteardownPolicy=AValue) then exit;
+ FteardownPolicy:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TInstructionOutput.Setname(AIndex : Integer; const AValue : String);
+Procedure TWorkerPool.SetdiskSizeGb(AIndex : Integer; const AValue : integer);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (FdiskSizeGb=AValue) then exit;
+ FdiskSizeGb:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TWorkerPool.SetdiskType(AIndex : Integer; const AValue : String);
+begin
+ If (FdiskType=AValue) then exit;
+ FdiskType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TJob
- --------------------------------------------------------------------}
-Procedure TJob.SetcreateTime(AIndex : Integer; const AValue : String);
+Procedure TWorkerPool.SetdiskSourceImage(AIndex : Integer; const AValue : String);
begin
- If (FcreateTime=AValue) then exit;
- FcreateTime:=AValue;
+ If (FdiskSourceImage=AValue) then exit;
+ FdiskSourceImage:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.SetcurrentState(AIndex : Integer; const AValue : String);
+Procedure TWorkerPool.Setzone(AIndex : Integer; const AValue : String);
begin
- If (FcurrentState=AValue) then exit;
- FcurrentState:=AValue;
+ If (Fzone=AValue) then exit;
+ Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.SetcurrentStateTime(AIndex : Integer; const AValue : String);
+Procedure TWorkerPool.SettaskrunnerSettings(AIndex : Integer; const AValue : TTaskRunnerSettings);
begin
- If (FcurrentStateTime=AValue) then exit;
- FcurrentStateTime:=AValue;
+ If (FtaskrunnerSettings=AValue) then exit;
+ FtaskrunnerSettings:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.Setenvironment(AIndex : Integer; AValue : TEnvironment);
+Procedure TWorkerPool.SetonHostMaintenance(AIndex : Integer; const AValue : String);
begin
- If (Fenvironment=AValue) then exit;
- Fenvironment:=AValue;
+ If (FonHostMaintenance=AValue) then exit;
+ FonHostMaintenance:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.SetexecutionInfo(AIndex : Integer; AValue : TJobExecutionInfo);
+Procedure TWorkerPool.SetdataDisks(AIndex : Integer; const AValue : TWorkerPoolTypedataDisksArray);
begin
- If (FexecutionInfo=AValue) then exit;
- FexecutionInfo:=AValue;
+ If (FdataDisks=AValue) then exit;
+ FdataDisks:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.Setid(AIndex : Integer; const AValue : String);
+Procedure TWorkerPool.Setmetadata(AIndex : Integer; const AValue : TWorkerPoolTypemetadata);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.Setname(AIndex : Integer; const AValue : String);
+Procedure TWorkerPool.SetautoscalingSettings(AIndex : Integer; const AValue : TAutoscalingSettings);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (FautoscalingSettings=AValue) then exit;
+ FautoscalingSettings:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.SetprojectId(AIndex : Integer; const AValue : String);
+Procedure TWorkerPool.SetpoolArgs(AIndex : Integer; const AValue : TWorkerPoolTypepoolArgs);
begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
+ If (FpoolArgs=AValue) then exit;
+ FpoolArgs:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.SetrequestedState(AIndex : Integer; const AValue : String);
+Procedure TWorkerPool.Setnetwork(AIndex : Integer; const AValue : String);
begin
- If (FrequestedState=AValue) then exit;
- FrequestedState:=AValue;
+ If (Fnetwork=AValue) then exit;
+ Fnetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.Setsteps(AIndex : Integer; AValue : TJobTypestepsArray);
+Procedure TWorkerPool.Setsubnetwork(AIndex : Integer; const AValue : String);
begin
- If (Fsteps=AValue) then exit;
- Fsteps:=AValue;
+ If (Fsubnetwork=AValue) then exit;
+ Fsubnetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.Set_type(AIndex : Integer; const AValue : String);
+Procedure TWorkerPool.SetworkerHarnessContainerImage(AIndex : Integer; const AValue : String);
begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
+ If (FworkerHarnessContainerImage=AValue) then exit;
+ FworkerHarnessContainerImage:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TJob.ExportPropertyName(Const AName : String) :String;
+Procedure TWorkerPool.SetnumThreadsPerWorker(AIndex : Integer; const AValue : integer);
begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
+ If (FnumThreadsPerWorker=AValue) then exit;
+ FnumThreadsPerWorker:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TJob.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TWorkerPool.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'steps' : SetLength(Fsteps,ALength);
+ 'packages' : SetLength(Fpackages,ALength);
+ 'datadisks' : SetLength(FdataDisks,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3098,400 +3522,474 @@ end;
{ --------------------------------------------------------------------
- TJobExecutionInfoTypestages
+ TPackage
--------------------------------------------------------------------}
-Class Function TJobExecutionInfoTypestages.AllowAdditionalProperties : Boolean;
+Procedure TPackage.Setname(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+Procedure TPackage.Setlocation(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocation=AValue) then exit;
+ Flocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
{ --------------------------------------------------------------------
- TJobExecutionInfo
+ TTaskRunnerSettings
--------------------------------------------------------------------}
-Procedure TJobExecutionInfo.Setstages(AIndex : Integer; AValue : TJobExecutionInfoTypestages);
+Procedure TTaskRunnerSettings.SettaskUser(AIndex : Integer; const AValue : String);
begin
- If (Fstages=AValue) then exit;
- Fstages:=AValue;
+ If (FtaskUser=AValue) then exit;
+ FtaskUser:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TTaskRunnerSettings.SettaskGroup(AIndex : Integer; const AValue : String);
+begin
+ If (FtaskGroup=AValue) then exit;
+ FtaskGroup:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TJobExecutionStageInfo
- --------------------------------------------------------------------}
-Procedure TJobExecutionStageInfo.SetstepName(AIndex : Integer; AValue : TStringArray);
+Procedure TTaskRunnerSettings.SetoauthScopes(AIndex : Integer; const AValue : TStringArray);
begin
- If (FstepName=AValue) then exit;
- FstepName:=AValue;
+ If (FoauthScopes=AValue) then exit;
+ FoauthScopes:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TJobExecutionStageInfo.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TTaskRunnerSettings.SetbaseUrl(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'stepname' : SetLength(FstepName,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FbaseUrl=AValue) then exit;
+ FbaseUrl:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TTaskRunnerSettings.SetdataflowApiVersion(AIndex : Integer; const AValue : String);
-{ --------------------------------------------------------------------
- TJobMessage
- --------------------------------------------------------------------}
+begin
+ If (FdataflowApiVersion=AValue) then exit;
+ FdataflowApiVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TJobMessage.Setid(AIndex : Integer; const AValue : String);
+
+Procedure TTaskRunnerSettings.SetparallelWorkerSettings(AIndex : Integer; const AValue : TWorkerSettings);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (FparallelWorkerSettings=AValue) then exit;
+ FparallelWorkerSettings:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJobMessage.SetmessageImportance(AIndex : Integer; const AValue : String);
+Procedure TTaskRunnerSettings.SetbaseTaskDir(AIndex : Integer; const AValue : String);
begin
- If (FmessageImportance=AValue) then exit;
- FmessageImportance:=AValue;
+ If (FbaseTaskDir=AValue) then exit;
+ FbaseTaskDir:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJobMessage.SetmessageText(AIndex : Integer; const AValue : String);
+Procedure TTaskRunnerSettings.SetcontinueOnException(AIndex : Integer; const AValue : boolean);
begin
- If (FmessageText=AValue) then exit;
- FmessageText:=AValue;
+ If (FcontinueOnException=AValue) then exit;
+ FcontinueOnException:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJobMessage.Settime(AIndex : Integer; const AValue : String);
+Procedure TTaskRunnerSettings.SetlogToSerialconsole(AIndex : Integer; const AValue : boolean);
begin
- If (Ftime=AValue) then exit;
- Ftime:=AValue;
+ If (FlogToSerialconsole=AValue) then exit;
+ FlogToSerialconsole:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TTaskRunnerSettings.Setalsologtostderr(AIndex : Integer; const AValue : boolean);
+begin
+ If (Falsologtostderr=AValue) then exit;
+ Falsologtostderr:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TJobMetrics
- --------------------------------------------------------------------}
-Procedure TJobMetrics.SetmetricTime(AIndex : Integer; const AValue : String);
+Procedure TTaskRunnerSettings.SetlogUploadLocation(AIndex : Integer; const AValue : String);
begin
- If (FmetricTime=AValue) then exit;
- FmetricTime:=AValue;
+ If (FlogUploadLocation=AValue) then exit;
+ FlogUploadLocation:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJobMetrics.Setmetrics(AIndex : Integer; AValue : TJobMetricsTypemetricsArray);
+Procedure TTaskRunnerSettings.SetlogDir(AIndex : Integer; const AValue : String);
begin
- If (Fmetrics=AValue) then exit;
- Fmetrics:=AValue;
+ If (FlogDir=AValue) then exit;
+ FlogDir:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TJobMetrics.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TTaskRunnerSettings.SettempStoragePrefix(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'metrics' : SetLength(Fmetrics,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FtempStoragePrefix=AValue) then exit;
+ FtempStoragePrefix:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TTaskRunnerSettings.SetharnessCommand(AIndex : Integer; const AValue : String);
-{ --------------------------------------------------------------------
- TKeyRangeDataDiskAssignment
- --------------------------------------------------------------------}
+begin
+ If (FharnessCommand=AValue) then exit;
+ FharnessCommand:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TKeyRangeDataDiskAssignment.SetdataDisk(AIndex : Integer; const AValue : String);
+
+Procedure TTaskRunnerSettings.SetworkflowFileName(AIndex : Integer; const AValue : String);
begin
- If (FdataDisk=AValue) then exit;
- FdataDisk:=AValue;
+ If (FworkflowFileName=AValue) then exit;
+ FworkflowFileName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TKeyRangeDataDiskAssignment.Set_end(AIndex : Integer; const AValue : String);
+Procedure TTaskRunnerSettings.SetcommandlinesFileName(AIndex : Integer; const AValue : String);
begin
- If (F_end=AValue) then exit;
- F_end:=AValue;
+ If (FcommandlinesFileName=AValue) then exit;
+ FcommandlinesFileName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TKeyRangeDataDiskAssignment.Setstart(AIndex : Integer; const AValue : String);
+Procedure TTaskRunnerSettings.SetvmId(AIndex : Integer; const AValue : String);
begin
- If (Fstart=AValue) then exit;
- Fstart:=AValue;
+ If (FvmId=AValue) then exit;
+ FvmId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TKeyRangeDataDiskAssignment.ExportPropertyName(Const AName : String) :String;
+Procedure TTaskRunnerSettings.SetlanguageHint(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlanguageHint=AValue) then exit;
+ FlanguageHint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTaskRunnerSettings.SetstreamingWorkerMainClass(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstreamingWorkerMainClass=AValue) then exit;
+ FstreamingWorkerMainClass:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTaskRunnerSettings.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- '_end' : Result:='end';
+ 'oauthscopes' : SetLength(FoauthScopes,ALength);
else
- Result:=Inherited ExportPropertyName(AName);
+ Inherited SetArrayLength(AName,ALength);
end;
end;
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TKeyRangeLocation
+ TWorkerSettings
--------------------------------------------------------------------}
-Procedure TKeyRangeLocation.SetdataDisk(AIndex : Integer; const AValue : String);
+Procedure TWorkerSettings.SetbaseUrl(AIndex : Integer; const AValue : String);
begin
- If (FdataDisk=AValue) then exit;
- FdataDisk:=AValue;
+ If (FbaseUrl=AValue) then exit;
+ FbaseUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TKeyRangeLocation.SetdeliveryEndpoint(AIndex : Integer; const AValue : String);
+Procedure TWorkerSettings.SetreportingEnabled(AIndex : Integer; const AValue : boolean);
begin
- If (FdeliveryEndpoint=AValue) then exit;
- FdeliveryEndpoint:=AValue;
+ If (FreportingEnabled=AValue) then exit;
+ FreportingEnabled:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TKeyRangeLocation.Set_end(AIndex : Integer; const AValue : String);
+Procedure TWorkerSettings.SetservicePath(AIndex : Integer; const AValue : String);
begin
- If (F_end=AValue) then exit;
- F_end:=AValue;
+ If (FservicePath=AValue) then exit;
+ FservicePath:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TKeyRangeLocation.SetpersistentDirectory(AIndex : Integer; const AValue : String);
+Procedure TWorkerSettings.SetshuffleServicePath(AIndex : Integer; const AValue : String);
begin
- If (FpersistentDirectory=AValue) then exit;
- FpersistentDirectory:=AValue;
+ If (FshuffleServicePath=AValue) then exit;
+ FshuffleServicePath:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TKeyRangeLocation.Setstart(AIndex : Integer; const AValue : String);
+Procedure TWorkerSettings.SetworkerId(AIndex : Integer; const AValue : String);
begin
- If (Fstart=AValue) then exit;
- Fstart:=AValue;
+ If (FworkerId=AValue) then exit;
+ FworkerId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TKeyRangeLocation.ExportPropertyName(Const AName : String) :String;
+Procedure TWorkerSettings.SettempStoragePrefix(AIndex : Integer; const AValue : String);
begin
- Case AName of
- '_end' : Result:='end';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
+ If (FtempStoragePrefix=AValue) then exit;
+ FtempStoragePrefix:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
{ --------------------------------------------------------------------
- TLeaseWorkItemRequest
+ TDisk
--------------------------------------------------------------------}
-Procedure TLeaseWorkItemRequest.SetcurrentWorkerTime(AIndex : Integer; const AValue : String);
+Procedure TDisk.SetsizeGb(AIndex : Integer; const AValue : integer);
begin
- If (FcurrentWorkerTime=AValue) then exit;
- FcurrentWorkerTime:=AValue;
+ If (FsizeGb=AValue) then exit;
+ FsizeGb:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLeaseWorkItemRequest.SetrequestedLeaseDuration(AIndex : Integer; const AValue : String);
+Procedure TDisk.SetdiskType(AIndex : Integer; const AValue : String);
begin
- If (FrequestedLeaseDuration=AValue) then exit;
- FrequestedLeaseDuration:=AValue;
+ If (FdiskType=AValue) then exit;
+ FdiskType:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLeaseWorkItemRequest.SetworkItemTypes(AIndex : Integer; AValue : TStringArray);
+Procedure TDisk.SetmountPoint(AIndex : Integer; const AValue : String);
begin
- If (FworkItemTypes=AValue) then exit;
- FworkItemTypes:=AValue;
+ If (FmountPoint=AValue) then exit;
+ FmountPoint:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLeaseWorkItemRequest.SetworkerCapabilities(AIndex : Integer; AValue : TStringArray);
+
+
+{ --------------------------------------------------------------------
+ TAutoscalingSettings
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoscalingSettings.Setalgorithm(AIndex : Integer; const AValue : String);
begin
- If (FworkerCapabilities=AValue) then exit;
- FworkerCapabilities:=AValue;
+ If (Falgorithm=AValue) then exit;
+ Falgorithm:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLeaseWorkItemRequest.SetworkerId(AIndex : Integer; const AValue : String);
+Procedure TAutoscalingSettings.SetmaxNumWorkers(AIndex : Integer; const AValue : integer);
begin
- If (FworkerId=AValue) then exit;
- FworkerId:=AValue;
+ If (FmaxNumWorkers=AValue) then exit;
+ FmaxNumWorkers:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TLeaseWorkItemRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+
+
+{ --------------------------------------------------------------------
+ TStepTypeproperties
+ --------------------------------------------------------------------}
+
+
+Class Function TStepTypeproperties.AllowAdditionalProperties : Boolean;
begin
- Case AName of
- 'workitemtypes' : SetLength(FworkItemTypes,ALength);
- 'workercapabilities' : SetLength(FworkerCapabilities,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ Result:=True;
end;
-{$ENDIF VER2_6}
-
{ --------------------------------------------------------------------
- TLeaseWorkItemResponse
+ TStep
--------------------------------------------------------------------}
-Procedure TLeaseWorkItemResponse.SetworkItems(AIndex : Integer; AValue : TLeaseWorkItemResponseTypeworkItemsArray);
+Procedure TStep.Setkind(AIndex : Integer; const AValue : String);
begin
- If (FworkItems=AValue) then exit;
- FworkItems:=AValue;
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TLeaseWorkItemResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TStep.Setname(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'workitems' : SetLength(FworkItems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.Setproperties(AIndex : Integer; const AValue : TStepTypeproperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+
{ --------------------------------------------------------------------
- TListJobMessagesResponse
+ TJobExecutionInfoTypestages
--------------------------------------------------------------------}
-Procedure TListJobMessagesResponse.SetjobMessages(AIndex : Integer; AValue : TListJobMessagesResponseTypejobMessagesArray);
+Class Function TJobExecutionInfoTypestages.AllowAdditionalProperties : Boolean;
begin
- If (FjobMessages=AValue) then exit;
- FjobMessages:=AValue;
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TJobExecutionInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TJobExecutionInfo.Setstages(AIndex : Integer; const AValue : TJobExecutionInfoTypestages);
+
+begin
+ If (Fstages=AValue) then exit;
+ Fstages:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TListJobMessagesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TJobExecutionStageInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TJobExecutionStageInfo.SetstepName(AIndex : Integer; const AValue : TStringArray);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (FstepName=AValue) then exit;
+ FstepName:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TListJobMessagesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TJobExecutionStageInfo.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'jobmessages' : SetLength(FjobMessages,ALength);
+ 'stepname' : SetLength(FstepName,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3506,7 +4004,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListJobsResponse.Setjobs(AIndex : Integer; AValue : TListJobsResponseTypejobsArray);
+Procedure TListJobsResponse.Setjobs(AIndex : Integer; const AValue : TListJobsResponseTypejobsArray);
begin
If (Fjobs=AValue) then exit;
@@ -3542,46 +4040,36 @@ end;
{ --------------------------------------------------------------------
- TMapTask
+ TListJobMessagesResponse
--------------------------------------------------------------------}
-Procedure TMapTask.Setinstructions(AIndex : Integer; AValue : TMapTaskTypeinstructionsArray);
+Procedure TListJobMessagesResponse.SetjobMessages(AIndex : Integer; const AValue : TListJobMessagesResponseTypejobMessagesArray);
begin
- If (Finstructions=AValue) then exit;
- Finstructions:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMapTask.SetstageName(AIndex : Integer; const AValue : String);
-
-begin
- If (FstageName=AValue) then exit;
- FstageName:=AValue;
+ If (FjobMessages=AValue) then exit;
+ FjobMessages:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMapTask.SetsystemName(AIndex : Integer; const AValue : String);
+Procedure TListJobMessagesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (FsystemName=AValue) then exit;
- FsystemName:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TMapTask.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TListJobMessagesResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'instructions' : SetLength(Finstructions,ALength);
+ 'jobmessages' : SetLength(FjobMessages,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3592,48 +4080,45 @@ end;
{ --------------------------------------------------------------------
- TMetricStructuredNameTypecontext
+ TJobMessage
--------------------------------------------------------------------}
-Class Function TMetricStructuredNameTypecontext.AllowAdditionalProperties : Boolean;
+Procedure TJobMessage.Setid(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TMetricStructuredName
- --------------------------------------------------------------------}
-
-
-Procedure TMetricStructuredName.Setcontext(AIndex : Integer; AValue : TMetricStructuredNameTypecontext);
+Procedure TJobMessage.Settime(AIndex : Integer; const AValue : String);
begin
- If (Fcontext=AValue) then exit;
- Fcontext:=AValue;
+ If (Ftime=AValue) then exit;
+ Ftime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMetricStructuredName.Setname(AIndex : Integer; const AValue : String);
+Procedure TJobMessage.SetmessageText(AIndex : Integer; const AValue : String);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (FmessageText=AValue) then exit;
+ FmessageText:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMetricStructuredName.Setorigin(AIndex : Integer; const AValue : String);
+Procedure TJobMessage.SetmessageImportance(AIndex : Integer; const AValue : String);
begin
- If (Forigin=AValue) then exit;
- Forigin:=AValue;
+ If (FmessageImportance=AValue) then exit;
+ FmessageImportance:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -3642,25 +4127,55 @@ end;
{ --------------------------------------------------------------------
- TMetricUpdate
+ TJobMetrics
--------------------------------------------------------------------}
-Procedure TMetricUpdate.Setcumulative(AIndex : Integer; AValue : boolean);
+Procedure TJobMetrics.SetmetricTime(AIndex : Integer; const AValue : String);
begin
- If (Fcumulative=AValue) then exit;
- Fcumulative:=AValue;
+ If (FmetricTime=AValue) then exit;
+ FmetricTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMetricUpdate.Setinternal(AIndex : Integer; AValue : TGoogleprotobufValue);
+Procedure TJobMetrics.Setmetrics(AIndex : Integer; const AValue : TJobMetricsTypemetricsArray);
begin
- If (Finternal=AValue) then exit;
- Finternal:=AValue;
+ If (Fmetrics=AValue) then exit;
+ Fmetrics:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJobMetrics.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'metrics' : SetLength(Fmetrics,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMetricUpdate
+ --------------------------------------------------------------------}
+
+
+Procedure TMetricUpdate.Setname(AIndex : Integer; const AValue : TMetricStructuredName);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -3676,47 +4191,47 @@ end;
-Procedure TMetricUpdate.SetmeanCount(AIndex : Integer; AValue : TGoogleprotobufValue);
+Procedure TMetricUpdate.Setcumulative(AIndex : Integer; const AValue : boolean);
begin
- If (FmeanCount=AValue) then exit;
- FmeanCount:=AValue;
+ If (Fcumulative=AValue) then exit;
+ Fcumulative:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMetricUpdate.SetmeanSum(AIndex : Integer; AValue : TGoogleprotobufValue);
+Procedure TMetricUpdate.Setscalar(AIndex : Integer; const AValue : TJSONSchema);
begin
- If (FmeanSum=AValue) then exit;
- FmeanSum:=AValue;
+ If (Fscalar=AValue) then exit;
+ Fscalar:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMetricUpdate.Setname(AIndex : Integer; AValue : TMetricStructuredName);
+Procedure TMetricUpdate.SetmeanSum(AIndex : Integer; const AValue : TJSONSchema);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (FmeanSum=AValue) then exit;
+ FmeanSum:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMetricUpdate.Setscalar(AIndex : Integer; AValue : TGoogleprotobufValue);
+Procedure TMetricUpdate.SetmeanCount(AIndex : Integer; const AValue : TJSONSchema);
begin
- If (Fscalar=AValue) then exit;
- Fscalar:=AValue;
+ If (FmeanCount=AValue) then exit;
+ FmeanCount:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMetricUpdate.Set_set(AIndex : Integer; AValue : TGoogleprotobufValue);
+Procedure TMetricUpdate.Set_set(AIndex : Integer; const AValue : TJSONSchema);
begin
If (F_set=AValue) then exit;
@@ -3726,6 +4241,16 @@ end;
+Procedure TMetricUpdate.Setinternal(AIndex : Integer; const AValue : TJSONSchema);
+
+begin
+ If (Finternal=AValue) then exit;
+ Finternal:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TMetricUpdate.SetupdateTime(AIndex : Integer; const AValue : String);
begin
@@ -3750,59 +4275,48 @@ end;
{ --------------------------------------------------------------------
- TMountedDataDisk
+ TMetricStructuredNameTypecontext
--------------------------------------------------------------------}
-Procedure TMountedDataDisk.SetdataDisk(AIndex : Integer; const AValue : String);
+Class Function TMetricStructuredNameTypecontext.AllowAdditionalProperties : Boolean;
begin
- If (FdataDisk=AValue) then exit;
- FdataDisk:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-
-
{ --------------------------------------------------------------------
- TMultiOutputInfo
+ TMetricStructuredName
--------------------------------------------------------------------}
-Procedure TMultiOutputInfo.Settag(AIndex : Integer; const AValue : String);
+Procedure TMetricStructuredName.Setorigin(AIndex : Integer; const AValue : String);
begin
- If (Ftag=AValue) then exit;
- Ftag:=AValue;
+ If (Forigin=AValue) then exit;
+ Forigin:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TPackage
- --------------------------------------------------------------------}
-
-
-Procedure TPackage.Setlocation(AIndex : Integer; const AValue : String);
+Procedure TMetricStructuredName.Setname(AIndex : Integer; const AValue : String);
begin
- If (Flocation=AValue) then exit;
- Flocation:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPackage.Setname(AIndex : Integer; const AValue : String);
+Procedure TMetricStructuredName.Setcontext(AIndex : Integer; const AValue : TMetricStructuredNameTypecontext);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (Fcontext=AValue) then exit;
+ Fcontext:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -3811,180 +4325,187 @@ end;
{ --------------------------------------------------------------------
- TParDoInstructionTypeuserFn
+ TReportWorkItemStatusRequest
--------------------------------------------------------------------}
-Class Function TParDoInstructionTypeuserFn.AllowAdditionalProperties : Boolean;
+Procedure TReportWorkItemStatusRequest.SetworkerId(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (FworkerId=AValue) then exit;
+ FworkerId:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TParDoInstruction
- --------------------------------------------------------------------}
-
-
-Procedure TParDoInstruction.Setinput(AIndex : Integer; AValue : TInstructionInput);
+Procedure TReportWorkItemStatusRequest.SetworkItemStatuses(AIndex : Integer; const AValue : TReportWorkItemStatusRequestTypeworkItemStatusesArray);
begin
- If (Finput=AValue) then exit;
- Finput:=AValue;
+ If (FworkItemStatuses=AValue) then exit;
+ FworkItemStatuses:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TParDoInstruction.SetmultiOutputInfos(AIndex : Integer; AValue : TParDoInstructionTypemultiOutputInfosArray);
+Procedure TReportWorkItemStatusRequest.SetcurrentWorkerTime(AIndex : Integer; const AValue : String);
begin
- If (FmultiOutputInfos=AValue) then exit;
- FmultiOutputInfos:=AValue;
+ If (FcurrentWorkerTime=AValue) then exit;
+ FcurrentWorkerTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TParDoInstruction.SetnumOutputs(AIndex : Integer; AValue : integer);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReportWorkItemStatusRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FnumOutputs=AValue) then exit;
- FnumOutputs:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'workitemstatuses' : SetLength(FworkItemStatuses,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Procedure TParDoInstruction.SetsideInputs(AIndex : Integer; AValue : TParDoInstructionTypesideInputsArray);
+
+{ --------------------------------------------------------------------
+ TWorkItemStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TWorkItemStatus.SetworkItemId(AIndex : Integer; const AValue : String);
begin
- If (FsideInputs=AValue) then exit;
- FsideInputs:=AValue;
+ If (FworkItemId=AValue) then exit;
+ FworkItemId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TParDoInstruction.SetuserFn(AIndex : Integer; AValue : TParDoInstructionTypeuserFn);
+Procedure TWorkItemStatus.SetreportIndex(AIndex : Integer; const AValue : String);
begin
- If (FuserFn=AValue) then exit;
- FuserFn:=AValue;
+ If (FreportIndex=AValue) then exit;
+ FreportIndex:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TParDoInstruction.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TWorkItemStatus.SetrequestedLeaseDuration(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'multioutputinfos' : SetLength(FmultiOutputInfos,ALength);
- 'sideinputs' : SetLength(FsideInputs,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FrequestedLeaseDuration=AValue) then exit;
+ FrequestedLeaseDuration:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TWorkItemStatus.Setcompleted(AIndex : Integer; const AValue : boolean);
-{ --------------------------------------------------------------------
- TParallelInstruction
- --------------------------------------------------------------------}
+begin
+ If (Fcompleted=AValue) then exit;
+ Fcompleted:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TParallelInstruction.Setflatten(AIndex : Integer; AValue : TFlattenInstruction);
+
+Procedure TWorkItemStatus.Seterrors(AIndex : Integer; const AValue : TWorkItemStatusTypeerrorsArray);
begin
- If (Fflatten=AValue) then exit;
- Fflatten:=AValue;
+ If (Ferrors=AValue) then exit;
+ Ferrors:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TParallelInstruction.Setname(AIndex : Integer; const AValue : String);
+Procedure TWorkItemStatus.SetmetricUpdates(AIndex : Integer; const AValue : TWorkItemStatusTypemetricUpdatesArray);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (FmetricUpdates=AValue) then exit;
+ FmetricUpdates:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TParallelInstruction.Setoutputs(AIndex : Integer; AValue : TParallelInstructionTypeoutputsArray);
+Procedure TWorkItemStatus.SetreportedProgress(AIndex : Integer; const AValue : TApproximateReportedProgress);
begin
- If (Foutputs=AValue) then exit;
- Foutputs:=AValue;
+ If (FreportedProgress=AValue) then exit;
+ FreportedProgress:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TParallelInstruction.SetparDo(AIndex : Integer; AValue : TParDoInstruction);
+Procedure TWorkItemStatus.SetstopPosition(AIndex : Integer; const AValue : TPosition);
begin
- If (FparDo=AValue) then exit;
- FparDo:=AValue;
+ If (FstopPosition=AValue) then exit;
+ FstopPosition:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TParallelInstruction.SetpartialGroupByKey(AIndex : Integer; AValue : TPartialGroupByKeyInstruction);
+Procedure TWorkItemStatus.SetdynamicSourceSplit(AIndex : Integer; const AValue : TDynamicSourceSplit);
begin
- If (FpartialGroupByKey=AValue) then exit;
- FpartialGroupByKey:=AValue;
+ If (FdynamicSourceSplit=AValue) then exit;
+ FdynamicSourceSplit:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TParallelInstruction.Setread(AIndex : Integer; AValue : TReadInstruction);
+Procedure TWorkItemStatus.SetsourceOperationResponse(AIndex : Integer; const AValue : TSourceOperationResponse);
begin
- If (Fread=AValue) then exit;
- Fread:=AValue;
+ If (FsourceOperationResponse=AValue) then exit;
+ FsourceOperationResponse:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TParallelInstruction.SetsystemName(AIndex : Integer; const AValue : String);
+Procedure TWorkItemStatus.SetsourceFork(AIndex : Integer; const AValue : TSourceFork);
begin
- If (FsystemName=AValue) then exit;
- FsystemName:=AValue;
+ If (FsourceFork=AValue) then exit;
+ FsourceFork:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TParallelInstruction.Setwrite(AIndex : Integer; AValue : TWriteInstruction);
+Procedure TWorkItemStatus.Setprogress(AIndex : Integer; const AValue : TApproximateProgress);
begin
- If (Fwrite=AValue) then exit;
- Fwrite:=AValue;
+ If (Fprogress=AValue) then exit;
+ Fprogress:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TParallelInstruction.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TWorkItemStatus.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'outputs' : SetLength(Foutputs,ALength);
+ 'errors' : SetLength(Ferrors,ALength);
+ 'metricupdates' : SetLength(FmetricUpdates,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3995,11 +4516,11 @@ end;
{ --------------------------------------------------------------------
- TPartialGroupByKeyInstructionTypeinputElementCodec
+ TStatusTypedetailsItem
--------------------------------------------------------------------}
-Class Function TPartialGroupByKeyInstructionTypeinputElementCodec.AllowAdditionalProperties : Boolean;
+Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
begin
Result:=True;
@@ -4008,71 +4529,108 @@ end;
{ --------------------------------------------------------------------
- TPartialGroupByKeyInstructionTypevalueCombiningFn
+ TStatus
--------------------------------------------------------------------}
-Class Function TPartialGroupByKeyInstructionTypevalueCombiningFn.AllowAdditionalProperties : Boolean;
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
begin
- Result:=True;
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TPartialGroupByKeyInstruction
- --------------------------------------------------------------------}
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
-Procedure TPartialGroupByKeyInstruction.Setinput(AIndex : Integer; AValue : TInstructionInput);
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
begin
- If (Finput=AValue) then exit;
- Finput:=AValue;
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'details' : SetLength(Fdetails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
-Procedure TPartialGroupByKeyInstruction.SetinputElementCodec(AIndex : Integer; AValue : TPartialGroupByKeyInstructionTypeinputElementCodec);
+
+
+
+{ --------------------------------------------------------------------
+ TApproximateReportedProgress
+ --------------------------------------------------------------------}
+
+
+Procedure TApproximateReportedProgress.Setposition(AIndex : Integer; const AValue : TPosition);
begin
- If (FinputElementCodec=AValue) then exit;
- FinputElementCodec:=AValue;
+ If (Fposition=AValue) then exit;
+ Fposition:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPartialGroupByKeyInstruction.SetvalueCombiningFn(AIndex : Integer; AValue : TPartialGroupByKeyInstructionTypevalueCombiningFn);
+Procedure TApproximateReportedProgress.SetfractionConsumed(AIndex : Integer; const AValue : double);
begin
- If (FvalueCombiningFn=AValue) then exit;
- FvalueCombiningFn:=AValue;
+ If (FfractionConsumed=AValue) then exit;
+ FfractionConsumed:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TApproximateReportedProgress.SetremainingParallelism(AIndex : Integer; const AValue : TReportedParallelism);
+begin
+ If (FremainingParallelism=AValue) then exit;
+ FremainingParallelism:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TPosition
- --------------------------------------------------------------------}
-Procedure TPosition.SetbyteOffset(AIndex : Integer; const AValue : String);
+Procedure TApproximateReportedProgress.SetconsumedParallelism(AIndex : Integer; const AValue : TReportedParallelism);
begin
- If (FbyteOffset=AValue) then exit;
- FbyteOffset:=AValue;
+ If (FconsumedParallelism=AValue) then exit;
+ FconsumedParallelism:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPosition.Set_end(AIndex : Integer; AValue : boolean);
+
+
+{ --------------------------------------------------------------------
+ TPosition
+ --------------------------------------------------------------------}
+
+
+Procedure TPosition.Set_end(AIndex : Integer; const AValue : boolean);
begin
If (F_end=AValue) then exit;
@@ -4092,6 +4650,16 @@ end;
+Procedure TPosition.SetbyteOffset(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbyteOffset=AValue) then exit;
+ FbyteOffset:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TPosition.SetrecordIndex(AIndex : Integer; const AValue : String);
begin
@@ -4112,6 +4680,16 @@ end;
+Procedure TPosition.SetconcatPosition(AIndex : Integer; const AValue : TConcatPosition);
+
+begin
+ If (FconcatPosition=AValue) then exit;
+ FconcatPosition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Class Function TPosition.ExportPropertyName(Const AName : String) :String;
begin
@@ -4126,65 +4704,79 @@ end;
{ --------------------------------------------------------------------
- TPubsubLocation
+ TConcatPosition
--------------------------------------------------------------------}
-Procedure TPubsubLocation.SetdropLateData(AIndex : Integer; AValue : boolean);
+Procedure TConcatPosition.Setindex(AIndex : Integer; const AValue : integer);
begin
- If (FdropLateData=AValue) then exit;
- FdropLateData:=AValue;
+ If (Findex=AValue) then exit;
+ Findex:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPubsubLocation.SetidLabel(AIndex : Integer; const AValue : String);
+Procedure TConcatPosition.Setposition(AIndex : Integer; const AValue : TPosition);
begin
- If (FidLabel=AValue) then exit;
- FidLabel:=AValue;
+ If (Fposition=AValue) then exit;
+ Fposition:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPubsubLocation.Setsubscription(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TReportedParallelism
+ --------------------------------------------------------------------}
+
+
+Procedure TReportedParallelism.SetisInfinite(AIndex : Integer; const AValue : boolean);
begin
- If (Fsubscription=AValue) then exit;
- Fsubscription:=AValue;
+ If (FisInfinite=AValue) then exit;
+ FisInfinite:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPubsubLocation.SettimestampLabel(AIndex : Integer; const AValue : String);
+Procedure TReportedParallelism.Setvalue(AIndex : Integer; const AValue : double);
begin
- If (FtimestampLabel=AValue) then exit;
- FtimestampLabel:=AValue;
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPubsubLocation.Settopic(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TDynamicSourceSplit
+ --------------------------------------------------------------------}
+
+
+Procedure TDynamicSourceSplit.Setprimary(AIndex : Integer; const AValue : TDerivedSource);
begin
- If (Ftopic=AValue) then exit;
- Ftopic:=AValue;
+ If (Fprimary=AValue) then exit;
+ Fprimary:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPubsubLocation.SettrackingSubscription(AIndex : Integer; const AValue : String);
+Procedure TDynamicSourceSplit.Setresidual(AIndex : Integer; const AValue : TDerivedSource);
begin
- If (FtrackingSubscription=AValue) then exit;
- FtrackingSubscription:=AValue;
+ If (Fresidual=AValue) then exit;
+ Fresidual:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -4193,11 +4785,11 @@ end;
{ --------------------------------------------------------------------
- TReadInstruction
+ TDerivedSource
--------------------------------------------------------------------}
-Procedure TReadInstruction.Setsource(AIndex : Integer; AValue : TSource);
+Procedure TDerivedSource.Setsource(AIndex : Integer; const AValue : TSource);
begin
If (Fsource=AValue) then exit;
@@ -4207,79 +4799,118 @@ end;
+Procedure TDerivedSource.SetderivationMode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FderivationMode=AValue) then exit;
+ FderivationMode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
- TReportWorkItemStatusRequest
+ TSourceTypespec
--------------------------------------------------------------------}
-Procedure TReportWorkItemStatusRequest.SetcurrentWorkerTime(AIndex : Integer; const AValue : String);
+Class Function TSourceTypespec.AllowAdditionalProperties : Boolean;
begin
- If (FcurrentWorkerTime=AValue) then exit;
- FcurrentWorkerTime:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TReportWorkItemStatusRequest.SetworkItemStatuses(AIndex : Integer; AValue : TReportWorkItemStatusRequestTypeworkItemStatusesArray);
+{ --------------------------------------------------------------------
+ TSourceTypecodec
+ --------------------------------------------------------------------}
+
+
+Class Function TSourceTypecodec.AllowAdditionalProperties : Boolean;
begin
- If (FworkItemStatuses=AValue) then exit;
- FworkItemStatuses:=AValue;
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSourceTypebaseSpecsItem
+ --------------------------------------------------------------------}
+
+
+Class Function TSourceTypebaseSpecsItem.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSource
+ --------------------------------------------------------------------}
+
+
+Procedure TSource.Setspec(AIndex : Integer; const AValue : TSourceTypespec);
+
+begin
+ If (Fspec=AValue) then exit;
+ Fspec:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReportWorkItemStatusRequest.SetworkerId(AIndex : Integer; const AValue : String);
+Procedure TSource.Setcodec(AIndex : Integer; const AValue : TSourceTypecodec);
begin
- If (FworkerId=AValue) then exit;
- FworkerId:=AValue;
+ If (Fcodec=AValue) then exit;
+ Fcodec:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TReportWorkItemStatusRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TSource.SetbaseSpecs(AIndex : Integer; const AValue : TSourceTypebaseSpecsArray);
begin
- Case AName of
- 'workitemstatuses' : SetLength(FworkItemStatuses,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FbaseSpecs=AValue) then exit;
+ FbaseSpecs:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TSource.Setmetadata(AIndex : Integer; const AValue : TSourceMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TReportWorkItemStatusResponse
- --------------------------------------------------------------------}
-Procedure TReportWorkItemStatusResponse.SetworkItemServiceStates(AIndex : Integer; AValue : TReportWorkItemStatusResponseTypeworkItemServiceStatesArray);
+Procedure TSource.SetdoesNotNeedSplitting(AIndex : Integer; const AValue : boolean);
begin
- If (FworkItemServiceStates=AValue) then exit;
- FworkItemServiceStates:=AValue;
+ If (FdoesNotNeedSplitting=AValue) then exit;
+ FdoesNotNeedSplitting:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TReportWorkItemStatusResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSource.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'workitemservicestates' : SetLength(FworkItemServiceStates,ALength);
+ 'basespecs' : SetLength(FbaseSpecs,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4290,90 +4921,111 @@ end;
{ --------------------------------------------------------------------
- TSeqMapTaskTypeuserFn
+ TSourceMetadata
--------------------------------------------------------------------}
-Class Function TSeqMapTaskTypeuserFn.AllowAdditionalProperties : Boolean;
+Procedure TSourceMetadata.SetproducesSortedKeys(AIndex : Integer; const AValue : boolean);
begin
- Result:=True;
+ If (FproducesSortedKeys=AValue) then exit;
+ FproducesSortedKeys:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TSeqMapTask
- --------------------------------------------------------------------}
+Procedure TSourceMetadata.Setinfinite(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Finfinite=AValue) then exit;
+ Finfinite:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TSeqMapTask.Setinputs(AIndex : Integer; AValue : TSeqMapTaskTypeinputsArray);
+
+Procedure TSourceMetadata.SetestimatedSizeBytes(AIndex : Integer; const AValue : String);
begin
- If (Finputs=AValue) then exit;
- Finputs:=AValue;
+ If (FestimatedSizeBytes=AValue) then exit;
+ FestimatedSizeBytes:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSeqMapTask.Setname(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TSourceOperationResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceOperationResponse.Setsplit(AIndex : Integer; const AValue : TSourceSplitResponse);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (Fsplit=AValue) then exit;
+ Fsplit:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSeqMapTask.SetoutputInfos(AIndex : Integer; AValue : TSeqMapTaskTypeoutputInfosArray);
+Procedure TSourceOperationResponse.SetgetMetadata(AIndex : Integer; const AValue : TSourceGetMetadataResponse);
begin
- If (FoutputInfos=AValue) then exit;
- FoutputInfos:=AValue;
+ If (FgetMetadata=AValue) then exit;
+ FgetMetadata:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSeqMapTask.SetstageName(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TSourceSplitResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceSplitResponse.Setoutcome(AIndex : Integer; const AValue : String);
begin
- If (FstageName=AValue) then exit;
- FstageName:=AValue;
+ If (Foutcome=AValue) then exit;
+ Foutcome:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSeqMapTask.SetsystemName(AIndex : Integer; const AValue : String);
+Procedure TSourceSplitResponse.Setbundles(AIndex : Integer; const AValue : TSourceSplitResponseTypebundlesArray);
begin
- If (FsystemName=AValue) then exit;
- FsystemName:=AValue;
+ If (Fbundles=AValue) then exit;
+ Fbundles:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSeqMapTask.SetuserFn(AIndex : Integer; AValue : TSeqMapTaskTypeuserFn);
+Procedure TSourceSplitResponse.Setshards(AIndex : Integer; const AValue : TSourceSplitResponseTypeshardsArray);
begin
- If (FuserFn=AValue) then exit;
- FuserFn:=AValue;
+ If (Fshards=AValue) then exit;
+ Fshards:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSeqMapTask.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSourceSplitResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'inputs' : SetLength(Finputs,ALength);
- 'outputinfos' : SetLength(FoutputInfos,ALength);
+ 'bundles' : SetLength(Fbundles,ALength);
+ 'shards' : SetLength(Fshards,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4384,25 +5036,25 @@ end;
{ --------------------------------------------------------------------
- TSeqMapTaskOutputInfo
+ TSourceSplitShard
--------------------------------------------------------------------}
-Procedure TSeqMapTaskOutputInfo.Setsink(AIndex : Integer; AValue : TSink);
+Procedure TSourceSplitShard.Setsource(AIndex : Integer; const AValue : TSource);
begin
- If (Fsink=AValue) then exit;
- Fsink:=AValue;
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSeqMapTaskOutputInfo.Settag(AIndex : Integer; const AValue : String);
+Procedure TSourceSplitShard.SetderivationMode(AIndex : Integer; const AValue : String);
begin
- If (Ftag=AValue) then exit;
- Ftag:=AValue;
+ If (FderivationMode=AValue) then exit;
+ FderivationMode:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -4411,86 +5063,127 @@ end;
{ --------------------------------------------------------------------
- TShellTask
+ TSourceGetMetadataResponse
--------------------------------------------------------------------}
-Procedure TShellTask.Setcommand(AIndex : Integer; const AValue : String);
+Procedure TSourceGetMetadataResponse.Setmetadata(AIndex : Integer; const AValue : TSourceMetadata);
begin
- If (Fcommand=AValue) then exit;
- Fcommand:=AValue;
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TShellTask.SetexitCode(AIndex : Integer; AValue : integer);
+
+
+{ --------------------------------------------------------------------
+ TSourceFork
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceFork.Setprimary(AIndex : Integer; const AValue : TSourceSplitShard);
begin
- If (FexitCode=AValue) then exit;
- FexitCode:=AValue;
+ If (Fprimary=AValue) then exit;
+ Fprimary:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TSourceFork.Setresidual(AIndex : Integer; const AValue : TSourceSplitShard);
+begin
+ If (Fresidual=AValue) then exit;
+ Fresidual:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TSideInputInfoTypekind
- --------------------------------------------------------------------}
-Class Function TSideInputInfoTypekind.AllowAdditionalProperties : Boolean;
+Procedure TSourceFork.SetprimarySource(AIndex : Integer; const AValue : TDerivedSource);
begin
- Result:=True;
+ If (FprimarySource=AValue) then exit;
+ FprimarySource:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+Procedure TSourceFork.SetresidualSource(AIndex : Integer; const AValue : TDerivedSource);
+
+begin
+ If (FresidualSource=AValue) then exit;
+ FresidualSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
{ --------------------------------------------------------------------
- TSideInputInfo
+ TApproximateProgress
--------------------------------------------------------------------}
-Procedure TSideInputInfo.Setkind(AIndex : Integer; AValue : TSideInputInfoTypekind);
+Procedure TApproximateProgress.Setposition(AIndex : Integer; const AValue : TPosition);
begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
+ If (Fposition=AValue) then exit;
+ Fposition:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSideInputInfo.Setsources(AIndex : Integer; AValue : TSideInputInfoTypesourcesArray);
+Procedure TApproximateProgress.SetpercentComplete(AIndex : Integer; const AValue : integer);
begin
- If (Fsources=AValue) then exit;
- Fsources:=AValue;
+ If (FpercentComplete=AValue) then exit;
+ FpercentComplete:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSideInputInfo.Settag(AIndex : Integer; const AValue : String);
+Procedure TApproximateProgress.SetremainingTime(AIndex : Integer; const AValue : String);
begin
- If (Ftag=AValue) then exit;
- Ftag:=AValue;
+ If (FremainingTime=AValue) then exit;
+ FremainingTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TReportWorkItemStatusResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TReportWorkItemStatusResponse.SetworkItemServiceStates(AIndex : Integer; const AValue : TReportWorkItemStatusResponseTypeworkItemServiceStatesArray);
+
+begin
+ If (FworkItemServiceStates=AValue) then exit;
+ FworkItemServiceStates:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSideInputInfo.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TReportWorkItemStatusResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'sources' : SetLength(Fsources,ALength);
+ 'workitemservicestates' : SetLength(FworkItemServiceStates,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4501,11 +5194,11 @@ end;
{ --------------------------------------------------------------------
- TSinkTypecodec
+ TWorkItemServiceStateTypeharnessData
--------------------------------------------------------------------}
-Class Function TSinkTypecodec.AllowAdditionalProperties : Boolean;
+Class Function TWorkItemServiceStateTypeharnessData.AllowAdditionalProperties : Boolean;
begin
Result:=True;
@@ -4514,145 +5207,171 @@ end;
{ --------------------------------------------------------------------
- TSinkTypespec
+ TWorkItemServiceState
--------------------------------------------------------------------}
-Class Function TSinkTypespec.AllowAdditionalProperties : Boolean;
+Procedure TWorkItemServiceState.SetsplitRequest(AIndex : Integer; const AValue : TApproximateSplitRequest);
begin
- Result:=True;
+ If (FsplitRequest=AValue) then exit;
+ FsplitRequest:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TSink
- --------------------------------------------------------------------}
-
-
-Procedure TSink.Setcodec(AIndex : Integer; AValue : TSinkTypecodec);
+Procedure TWorkItemServiceState.SetleaseExpireTime(AIndex : Integer; const AValue : String);
begin
- If (Fcodec=AValue) then exit;
- Fcodec:=AValue;
+ If (FleaseExpireTime=AValue) then exit;
+ FleaseExpireTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSink.Setspec(AIndex : Integer; AValue : TSinkTypespec);
+Procedure TWorkItemServiceState.SetreportStatusInterval(AIndex : Integer; const AValue : String);
begin
- If (Fspec=AValue) then exit;
- Fspec:=AValue;
+ If (FreportStatusInterval=AValue) then exit;
+ FreportStatusInterval:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TWorkItemServiceState.SetharnessData(AIndex : Integer; const AValue : TWorkItemServiceStateTypeharnessData);
+begin
+ If (FharnessData=AValue) then exit;
+ FharnessData:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TSourceTypebaseSpecsItem
- --------------------------------------------------------------------}
-Class Function TSourceTypebaseSpecsItem.AllowAdditionalProperties : Boolean;
+Procedure TWorkItemServiceState.SetnextReportIndex(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (FnextReportIndex=AValue) then exit;
+ FnextReportIndex:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TSourceTypecodec
- --------------------------------------------------------------------}
+Procedure TWorkItemServiceState.SetsuggestedStopPosition(AIndex : Integer; const AValue : TPosition);
+begin
+ If (FsuggestedStopPosition=AValue) then exit;
+ FsuggestedStopPosition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Class Function TSourceTypecodec.AllowAdditionalProperties : Boolean;
+
+
+Procedure TWorkItemServiceState.SetsuggestedStopPoint(AIndex : Integer; const AValue : TApproximateProgress);
begin
- Result:=True;
+ If (FsuggestedStopPoint=AValue) then exit;
+ FsuggestedStopPoint:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
+
{ --------------------------------------------------------------------
- TSourceTypespec
+ TApproximateSplitRequest
--------------------------------------------------------------------}
-Class Function TSourceTypespec.AllowAdditionalProperties : Boolean;
+Procedure TApproximateSplitRequest.Setposition(AIndex : Integer; const AValue : TPosition);
begin
- Result:=True;
+ If (Fposition=AValue) then exit;
+ Fposition:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+Procedure TApproximateSplitRequest.SetfractionConsumed(AIndex : Integer; const AValue : double);
+
+begin
+ If (FfractionConsumed=AValue) then exit;
+ FfractionConsumed:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
{ --------------------------------------------------------------------
- TSource
+ TLeaseWorkItemRequest
--------------------------------------------------------------------}
-Procedure TSource.SetbaseSpecs(AIndex : Integer; AValue : TSourceTypebaseSpecsArray);
+Procedure TLeaseWorkItemRequest.SetworkItemTypes(AIndex : Integer; const AValue : TStringArray);
begin
- If (FbaseSpecs=AValue) then exit;
- FbaseSpecs:=AValue;
+ If (FworkItemTypes=AValue) then exit;
+ FworkItemTypes:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSource.Setcodec(AIndex : Integer; AValue : TSourceTypecodec);
+Procedure TLeaseWorkItemRequest.SetworkerCapabilities(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fcodec=AValue) then exit;
- Fcodec:=AValue;
+ If (FworkerCapabilities=AValue) then exit;
+ FworkerCapabilities:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSource.SetdoesNotNeedSplitting(AIndex : Integer; AValue : boolean);
+Procedure TLeaseWorkItemRequest.SetrequestedLeaseDuration(AIndex : Integer; const AValue : String);
begin
- If (FdoesNotNeedSplitting=AValue) then exit;
- FdoesNotNeedSplitting:=AValue;
+ If (FrequestedLeaseDuration=AValue) then exit;
+ FrequestedLeaseDuration:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSource.Setmetadata(AIndex : Integer; AValue : TSourceMetadata);
+Procedure TLeaseWorkItemRequest.SetcurrentWorkerTime(AIndex : Integer; const AValue : String);
begin
- If (Fmetadata=AValue) then exit;
- Fmetadata:=AValue;
+ If (FcurrentWorkerTime=AValue) then exit;
+ FcurrentWorkerTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSource.Setspec(AIndex : Integer; AValue : TSourceTypespec);
+Procedure TLeaseWorkItemRequest.SetworkerId(AIndex : Integer; const AValue : String);
begin
- If (Fspec=AValue) then exit;
- Fspec:=AValue;
+ If (FworkerId=AValue) then exit;
+ FworkerId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSource.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TLeaseWorkItemRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'basespecs' : SetLength(FbaseSpecs,ALength);
+ 'workitemtypes' : SetLength(FworkItemTypes,ALength);
+ 'workercapabilities' : SetLength(FworkerCapabilities,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4663,273 +5382,336 @@ end;
{ --------------------------------------------------------------------
- TSourceFork
+ TLeaseWorkItemResponse
--------------------------------------------------------------------}
-Procedure TSourceFork.Setprimary(AIndex : Integer; AValue : TSourceSplitShard);
+Procedure TLeaseWorkItemResponse.SetworkItems(AIndex : Integer; const AValue : TLeaseWorkItemResponseTypeworkItemsArray);
begin
- If (Fprimary=AValue) then exit;
- Fprimary:=AValue;
+ If (FworkItems=AValue) then exit;
+ FworkItems:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLeaseWorkItemResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'workitems' : SetLength(FworkItems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
-Procedure TSourceFork.SetprimarySource(AIndex : Integer; AValue : TDerivedSource);
+
+
+
+{ --------------------------------------------------------------------
+ TWorkItem
+ --------------------------------------------------------------------}
+
+
+Procedure TWorkItem.Setid(AIndex : Integer; const AValue : String);
begin
- If (FprimarySource=AValue) then exit;
- FprimarySource:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSourceFork.Setresidual(AIndex : Integer; AValue : TSourceSplitShard);
+Procedure TWorkItem.SetprojectId(AIndex : Integer; const AValue : String);
begin
- If (Fresidual=AValue) then exit;
- Fresidual:=AValue;
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSourceFork.SetresidualSource(AIndex : Integer; AValue : TDerivedSource);
+Procedure TWorkItem.SetjobId(AIndex : Integer; const AValue : String);
begin
- If (FresidualSource=AValue) then exit;
- FresidualSource:=AValue;
+ If (FjobId=AValue) then exit;
+ FjobId:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TWorkItem.Setpackages(AIndex : Integer; const AValue : TWorkItemTypepackagesArray);
+begin
+ If (Fpackages=AValue) then exit;
+ Fpackages:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TSourceGetMetadataRequest
- --------------------------------------------------------------------}
-Procedure TSourceGetMetadataRequest.Setsource(AIndex : Integer; AValue : TSource);
+Procedure TWorkItem.SetmapTask(AIndex : Integer; const AValue : TMapTask);
begin
- If (Fsource=AValue) then exit;
- Fsource:=AValue;
+ If (FmapTask=AValue) then exit;
+ FmapTask:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TWorkItem.SetseqMapTask(AIndex : Integer; const AValue : TSeqMapTask);
+begin
+ If (FseqMapTask=AValue) then exit;
+ FseqMapTask:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TSourceGetMetadataResponse
- --------------------------------------------------------------------}
-Procedure TSourceGetMetadataResponse.Setmetadata(AIndex : Integer; AValue : TSourceMetadata);
+Procedure TWorkItem.SetshellTask(AIndex : Integer; const AValue : TShellTask);
begin
- If (Fmetadata=AValue) then exit;
- Fmetadata:=AValue;
+ If (FshellTask=AValue) then exit;
+ FshellTask:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TWorkItem.SetstreamingSetupTask(AIndex : Integer; const AValue : TStreamingSetupTask);
+begin
+ If (FstreamingSetupTask=AValue) then exit;
+ FstreamingSetupTask:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TSourceMetadata
- --------------------------------------------------------------------}
-Procedure TSourceMetadata.SetestimatedSizeBytes(AIndex : Integer; const AValue : String);
+Procedure TWorkItem.SetsourceOperationTask(AIndex : Integer; const AValue : TSourceOperationRequest);
begin
- If (FestimatedSizeBytes=AValue) then exit;
- FestimatedSizeBytes:=AValue;
+ If (FsourceOperationTask=AValue) then exit;
+ FsourceOperationTask:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSourceMetadata.Setinfinite(AIndex : Integer; AValue : boolean);
+Procedure TWorkItem.SetstreamingComputationTask(AIndex : Integer; const AValue : TStreamingComputationTask);
begin
- If (Finfinite=AValue) then exit;
- Finfinite:=AValue;
+ If (FstreamingComputationTask=AValue) then exit;
+ FstreamingComputationTask:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSourceMetadata.SetproducesSortedKeys(AIndex : Integer; AValue : boolean);
+Procedure TWorkItem.SetreportStatusInterval(AIndex : Integer; const AValue : String);
begin
- If (FproducesSortedKeys=AValue) then exit;
- FproducesSortedKeys:=AValue;
+ If (FreportStatusInterval=AValue) then exit;
+ FreportStatusInterval:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TWorkItem.SetleaseExpireTime(AIndex : Integer; const AValue : String);
+begin
+ If (FleaseExpireTime=AValue) then exit;
+ FleaseExpireTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TSourceOperationRequest
- --------------------------------------------------------------------}
-Procedure TSourceOperationRequest.SetgetMetadata(AIndex : Integer; AValue : TSourceGetMetadataRequest);
+Procedure TWorkItem.Setconfiguration(AIndex : Integer; const AValue : String);
begin
- If (FgetMetadata=AValue) then exit;
- FgetMetadata:=AValue;
+ If (Fconfiguration=AValue) then exit;
+ Fconfiguration:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSourceOperationRequest.Setsplit(AIndex : Integer; AValue : TSourceSplitRequest);
+Procedure TWorkItem.SetinitialReportIndex(AIndex : Integer; const AValue : String);
begin
- If (Fsplit=AValue) then exit;
- Fsplit:=AValue;
+ If (FinitialReportIndex=AValue) then exit;
+ FinitialReportIndex:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TWorkItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'packages' : SetLength(Fpackages,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
{ --------------------------------------------------------------------
- TSourceOperationResponse
+ TMapTask
--------------------------------------------------------------------}
-Procedure TSourceOperationResponse.SetgetMetadata(AIndex : Integer; AValue : TSourceGetMetadataResponse);
+Procedure TMapTask.Setinstructions(AIndex : Integer; const AValue : TMapTaskTypeinstructionsArray);
begin
- If (FgetMetadata=AValue) then exit;
- FgetMetadata:=AValue;
+ If (Finstructions=AValue) then exit;
+ Finstructions:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSourceOperationResponse.Setsplit(AIndex : Integer; AValue : TSourceSplitResponse);
+Procedure TMapTask.SetsystemName(AIndex : Integer; const AValue : String);
begin
- If (Fsplit=AValue) then exit;
- Fsplit:=AValue;
+ If (FsystemName=AValue) then exit;
+ FsystemName:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TMapTask.SetstageName(AIndex : Integer; const AValue : String);
-
-{ --------------------------------------------------------------------
- TSourceSplitOptions
- --------------------------------------------------------------------}
+begin
+ If (FstageName=AValue) then exit;
+ FstageName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TSourceSplitOptions.SetdesiredBundleSizeBytes(AIndex : Integer; const AValue : String);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMapTask.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FdesiredBundleSizeBytes=AValue) then exit;
- FdesiredBundleSizeBytes:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'instructions' : SetLength(Finstructions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Procedure TSourceSplitOptions.SetdesiredShardSizeBytes(AIndex : Integer; const AValue : String);
+
+{ --------------------------------------------------------------------
+ TParallelInstruction
+ --------------------------------------------------------------------}
+
+
+Procedure TParallelInstruction.SetsystemName(AIndex : Integer; const AValue : String);
begin
- If (FdesiredShardSizeBytes=AValue) then exit;
- FdesiredShardSizeBytes:=AValue;
+ If (FsystemName=AValue) then exit;
+ FsystemName:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TParallelInstruction.Setname(AIndex : Integer; const AValue : String);
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TSourceSplitRequest
- --------------------------------------------------------------------}
-Procedure TSourceSplitRequest.Setoptions(AIndex : Integer; AValue : TSourceSplitOptions);
+Procedure TParallelInstruction.Setread(AIndex : Integer; const AValue : TReadInstruction);
begin
- If (Foptions=AValue) then exit;
- Foptions:=AValue;
+ If (Fread=AValue) then exit;
+ Fread:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSourceSplitRequest.Setsource(AIndex : Integer; AValue : TSource);
+Procedure TParallelInstruction.Setwrite(AIndex : Integer; const AValue : TWriteInstruction);
begin
- If (Fsource=AValue) then exit;
- Fsource:=AValue;
+ If (Fwrite=AValue) then exit;
+ Fwrite:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TParallelInstruction.SetparDo(AIndex : Integer; const AValue : TParDoInstruction);
+begin
+ If (FparDo=AValue) then exit;
+ FparDo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TSourceSplitResponse
- --------------------------------------------------------------------}
-Procedure TSourceSplitResponse.Setbundles(AIndex : Integer; AValue : TSourceSplitResponseTypebundlesArray);
+Procedure TParallelInstruction.SetpartialGroupByKey(AIndex : Integer; const AValue : TPartialGroupByKeyInstruction);
begin
- If (Fbundles=AValue) then exit;
- Fbundles:=AValue;
+ If (FpartialGroupByKey=AValue) then exit;
+ FpartialGroupByKey:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSourceSplitResponse.Setoutcome(AIndex : Integer; const AValue : String);
+Procedure TParallelInstruction.Setflatten(AIndex : Integer; const AValue : TFlattenInstruction);
begin
- If (Foutcome=AValue) then exit;
- Foutcome:=AValue;
+ If (Fflatten=AValue) then exit;
+ Fflatten:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSourceSplitResponse.Setshards(AIndex : Integer; AValue : TSourceSplitResponseTypeshardsArray);
+Procedure TParallelInstruction.Setoutputs(AIndex : Integer; const AValue : TParallelInstructionTypeoutputsArray);
begin
- If (Fshards=AValue) then exit;
- Fshards:=AValue;
+ If (Foutputs=AValue) then exit;
+ Foutputs:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSourceSplitResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TParallelInstruction.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'bundles' : SetLength(Fbundles,ALength);
- 'shards' : SetLength(Fshards,ALength);
+ 'outputs' : SetLength(Foutputs,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4940,21 +5722,11 @@ end;
{ --------------------------------------------------------------------
- TSourceSplitShard
+ TReadInstruction
--------------------------------------------------------------------}
-Procedure TSourceSplitShard.SetderivationMode(AIndex : Integer; const AValue : String);
-
-begin
- If (FderivationMode=AValue) then exit;
- FderivationMode:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TSourceSplitShard.Setsource(AIndex : Integer; AValue : TSource);
+Procedure TReadInstruction.Setsource(AIndex : Integer; const AValue : TSource);
begin
If (Fsource=AValue) then exit;
@@ -4967,74 +5739,65 @@ end;
{ --------------------------------------------------------------------
- TStatusTypedetailsItem
+ TWriteInstruction
--------------------------------------------------------------------}
-Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
+Procedure TWriteInstruction.Setinput(AIndex : Integer; const AValue : TInstructionInput);
begin
- Result:=True;
+ If (Finput=AValue) then exit;
+ Finput:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TStatus
- --------------------------------------------------------------------}
-
-
-Procedure TStatus.Setcode(AIndex : Integer; AValue : integer);
+Procedure TWriteInstruction.Setsink(AIndex : Integer; const AValue : TSink);
begin
- If (Fcode=AValue) then exit;
- Fcode:=AValue;
+ If (Fsink=AValue) then exit;
+ Fsink:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TStatus.Setdetails(AIndex : Integer; AValue : TStatusTypedetailsArray);
-begin
- If (Fdetails=AValue) then exit;
- Fdetails:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TInstructionInput
+ --------------------------------------------------------------------}
-Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
+Procedure TInstructionInput.SetproducerInstructionIndex(AIndex : Integer; const AValue : integer);
begin
- If (Fmessage=AValue) then exit;
- Fmessage:=AValue;
+ If (FproducerInstructionIndex=AValue) then exit;
+ FproducerInstructionIndex:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TInstructionInput.SetoutputNum(AIndex : Integer; const AValue : integer);
begin
- Case AName of
- 'details' : SetLength(Fdetails,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FoutputNum=AValue) then exit;
+ FoutputNum:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+
{ --------------------------------------------------------------------
- TStepTypeproperties
+ TSinkTypespec
--------------------------------------------------------------------}
-Class Function TStepTypeproperties.AllowAdditionalProperties : Boolean;
+Class Function TSinkTypespec.AllowAdditionalProperties : Boolean;
begin
Result:=True;
@@ -5043,35 +5806,38 @@ end;
{ --------------------------------------------------------------------
- TStep
+ TSinkTypecodec
--------------------------------------------------------------------}
-Procedure TStep.Setkind(AIndex : Integer; const AValue : String);
+Class Function TSinkTypecodec.AllowAdditionalProperties : Boolean;
begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TStep.Setname(AIndex : Integer; const AValue : String);
+{ --------------------------------------------------------------------
+ TSink
+ --------------------------------------------------------------------}
+
+
+Procedure TSink.Setspec(AIndex : Integer; const AValue : TSinkTypespec);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (Fspec=AValue) then exit;
+ Fspec:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TStep.Setproperties(AIndex : Integer; AValue : TStepTypeproperties);
+Procedure TSink.Setcodec(AIndex : Integer; const AValue : TSinkTypecodec);
begin
- If (Fproperties=AValue) then exit;
- Fproperties:=AValue;
+ If (Fcodec=AValue) then exit;
+ Fcodec:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5080,73 +5846,80 @@ end;
{ --------------------------------------------------------------------
- TStreamLocation
+ TParDoInstructionTypeuserFn
--------------------------------------------------------------------}
-Procedure TStreamLocation.SetpubsubLocation(AIndex : Integer; AValue : TPubsubLocation);
+Class Function TParDoInstructionTypeuserFn.AllowAdditionalProperties : Boolean;
begin
- If (FpubsubLocation=AValue) then exit;
- FpubsubLocation:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TStreamLocation.SetsideInputLocation(AIndex : Integer; AValue : TStreamingSideInputLocation);
+{ --------------------------------------------------------------------
+ TParDoInstruction
+ --------------------------------------------------------------------}
+
+
+Procedure TParDoInstruction.Setinput(AIndex : Integer; const AValue : TInstructionInput);
begin
- If (FsideInputLocation=AValue) then exit;
- FsideInputLocation:=AValue;
+ If (Finput=AValue) then exit;
+ Finput:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TStreamLocation.SetstreamingStageLocation(AIndex : Integer; AValue : TStreamingStageLocation);
+Procedure TParDoInstruction.SetsideInputs(AIndex : Integer; const AValue : TParDoInstructionTypesideInputsArray);
begin
- If (FstreamingStageLocation=AValue) then exit;
- FstreamingStageLocation:=AValue;
+ If (FsideInputs=AValue) then exit;
+ FsideInputs:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TParDoInstruction.SetuserFn(AIndex : Integer; const AValue : TParDoInstructionTypeuserFn);
+begin
+ If (FuserFn=AValue) then exit;
+ FuserFn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TStreamingComputationRanges
- --------------------------------------------------------------------}
-Procedure TStreamingComputationRanges.SetcomputationId(AIndex : Integer; const AValue : String);
+Procedure TParDoInstruction.SetnumOutputs(AIndex : Integer; const AValue : integer);
begin
- If (FcomputationId=AValue) then exit;
- FcomputationId:=AValue;
+ If (FnumOutputs=AValue) then exit;
+ FnumOutputs:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TStreamingComputationRanges.SetrangeAssignments(AIndex : Integer; AValue : TStreamingComputationRangesTyperangeAssignmentsArray);
+Procedure TParDoInstruction.SetmultiOutputInfos(AIndex : Integer; const AValue : TParDoInstructionTypemultiOutputInfosArray);
begin
- If (FrangeAssignments=AValue) then exit;
- FrangeAssignments:=AValue;
+ If (FmultiOutputInfos=AValue) then exit;
+ FmultiOutputInfos:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TStreamingComputationRanges.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TParDoInstruction.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'rangeassignments' : SetLength(FrangeAssignments,ALength);
+ 'sideinputs' : SetLength(FsideInputs,ALength);
+ 'multioutputinfos' : SetLength(FmultiOutputInfos,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5157,47 +5930,59 @@ end;
{ --------------------------------------------------------------------
- TStreamingComputationTask
+ TSideInputInfoTypekind
--------------------------------------------------------------------}
-Procedure TStreamingComputationTask.SetcomputationRanges(AIndex : Integer; AValue : TStreamingComputationTaskTypecomputationRangesArray);
+Class Function TSideInputInfoTypekind.AllowAdditionalProperties : Boolean;
begin
- If (FcomputationRanges=AValue) then exit;
- FcomputationRanges:=AValue;
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSideInputInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TSideInputInfo.Setsources(AIndex : Integer; const AValue : TSideInputInfoTypesourcesArray);
+
+begin
+ If (Fsources=AValue) then exit;
+ Fsources:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TStreamingComputationTask.SetdataDisks(AIndex : Integer; AValue : TStreamingComputationTaskTypedataDisksArray);
+Procedure TSideInputInfo.Setkind(AIndex : Integer; const AValue : TSideInputInfoTypekind);
begin
- If (FdataDisks=AValue) then exit;
- FdataDisks:=AValue;
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TStreamingComputationTask.SettaskType(AIndex : Integer; const AValue : String);
+Procedure TSideInputInfo.Settag(AIndex : Integer; const AValue : String);
begin
- If (FtaskType=AValue) then exit;
- FtaskType:=AValue;
+ If (Ftag=AValue) then exit;
+ Ftag:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TStreamingComputationTask.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSideInputInfo.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'computationranges' : SetLength(FcomputationRanges,ALength);
- 'datadisks' : SetLength(FdataDisks,ALength);
+ 'sources' : SetLength(Fsources,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5208,283 +5993,393 @@ end;
{ --------------------------------------------------------------------
- TStreamingSetupTask
+ TMultiOutputInfo
--------------------------------------------------------------------}
-Procedure TStreamingSetupTask.SetreceiveWorkPort(AIndex : Integer; AValue : integer);
+Procedure TMultiOutputInfo.Settag(AIndex : Integer; const AValue : String);
begin
- If (FreceiveWorkPort=AValue) then exit;
- FreceiveWorkPort:=AValue;
+ If (Ftag=AValue) then exit;
+ Ftag:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TStreamingSetupTask.SetstreamingComputationTopology(AIndex : Integer; AValue : TTopologyConfig);
+
+
+{ --------------------------------------------------------------------
+ TPartialGroupByKeyInstructionTypeinputElementCodec
+ --------------------------------------------------------------------}
+
+
+Class Function TPartialGroupByKeyInstructionTypeinputElementCodec.AllowAdditionalProperties : Boolean;
begin
- If (FstreamingComputationTopology=AValue) then exit;
- FstreamingComputationTopology:=AValue;
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TPartialGroupByKeyInstructionTypevalueCombiningFn
+ --------------------------------------------------------------------}
+
+
+Class Function TPartialGroupByKeyInstructionTypevalueCombiningFn.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TPartialGroupByKeyInstruction
+ --------------------------------------------------------------------}
+
+
+Procedure TPartialGroupByKeyInstruction.Setinput(AIndex : Integer; const AValue : TInstructionInput);
+
+begin
+ If (Finput=AValue) then exit;
+ Finput:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TStreamingSetupTask.SetworkerHarnessPort(AIndex : Integer; AValue : integer);
+Procedure TPartialGroupByKeyInstruction.SetinputElementCodec(AIndex : Integer; const AValue : TPartialGroupByKeyInstructionTypeinputElementCodec);
begin
- If (FworkerHarnessPort=AValue) then exit;
- FworkerHarnessPort:=AValue;
+ If (FinputElementCodec=AValue) then exit;
+ FinputElementCodec:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TPartialGroupByKeyInstruction.SetvalueCombiningFn(AIndex : Integer; const AValue : TPartialGroupByKeyInstructionTypevalueCombiningFn);
+begin
+ If (FvalueCombiningFn=AValue) then exit;
+ FvalueCombiningFn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TStreamingSideInputLocation
- --------------------------------------------------------------------}
-Procedure TStreamingSideInputLocation.Settag(AIndex : Integer; const AValue : String);
+Procedure TPartialGroupByKeyInstruction.SetsideInputs(AIndex : Integer; const AValue : TPartialGroupByKeyInstructionTypesideInputsArray);
begin
- If (Ftag=AValue) then exit;
- Ftag:=AValue;
+ If (FsideInputs=AValue) then exit;
+ FsideInputs:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPartialGroupByKeyInstruction.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sideinputs' : SetLength(FsideInputs,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
{ --------------------------------------------------------------------
- TStreamingStageLocation
+ TFlattenInstruction
--------------------------------------------------------------------}
-Procedure TStreamingStageLocation.SetstreamId(AIndex : Integer; const AValue : String);
+Procedure TFlattenInstruction.Setinputs(AIndex : Integer; const AValue : TFlattenInstructionTypeinputsArray);
begin
- If (FstreamId=AValue) then exit;
- FstreamId:=AValue;
+ If (Finputs=AValue) then exit;
+ Finputs:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFlattenInstruction.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'inputs' : SetLength(Finputs,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
{ --------------------------------------------------------------------
- TTaskRunnerSettings
+ TInstructionOutputTypecodec
--------------------------------------------------------------------}
-Procedure TTaskRunnerSettings.Setalsologtostderr(AIndex : Integer; AValue : boolean);
+Class Function TInstructionOutputTypecodec.AllowAdditionalProperties : Boolean;
begin
- If (Falsologtostderr=AValue) then exit;
- Falsologtostderr:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TTaskRunnerSettings.SetbaseTaskDir(AIndex : Integer; const AValue : String);
+{ --------------------------------------------------------------------
+ TInstructionOutput
+ --------------------------------------------------------------------}
+
+
+Procedure TInstructionOutput.Setname(AIndex : Integer; const AValue : String);
begin
- If (FbaseTaskDir=AValue) then exit;
- FbaseTaskDir:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetbaseUrl(AIndex : Integer; const AValue : String);
+Procedure TInstructionOutput.SetsystemName(AIndex : Integer; const AValue : String);
begin
- If (FbaseUrl=AValue) then exit;
- FbaseUrl:=AValue;
+ If (FsystemName=AValue) then exit;
+ FsystemName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetcommandlinesFileName(AIndex : Integer; const AValue : String);
+Procedure TInstructionOutput.Setcodec(AIndex : Integer; const AValue : TInstructionOutputTypecodec);
begin
- If (FcommandlinesFileName=AValue) then exit;
- FcommandlinesFileName:=AValue;
+ If (Fcodec=AValue) then exit;
+ Fcodec:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetcontinueOnException(AIndex : Integer; AValue : boolean);
+
+
+{ --------------------------------------------------------------------
+ TSeqMapTaskTypeuserFn
+ --------------------------------------------------------------------}
+
+
+Class Function TSeqMapTaskTypeuserFn.AllowAdditionalProperties : Boolean;
begin
- If (FcontinueOnException=AValue) then exit;
- FcontinueOnException:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TTaskRunnerSettings.SetdataflowApiVersion(AIndex : Integer; const AValue : String);
+{ --------------------------------------------------------------------
+ TSeqMapTask
+ --------------------------------------------------------------------}
+
+
+Procedure TSeqMapTask.Setinputs(AIndex : Integer; const AValue : TSeqMapTaskTypeinputsArray);
begin
- If (FdataflowApiVersion=AValue) then exit;
- FdataflowApiVersion:=AValue;
+ If (Finputs=AValue) then exit;
+ Finputs:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetharnessCommand(AIndex : Integer; const AValue : String);
+Procedure TSeqMapTask.SetuserFn(AIndex : Integer; const AValue : TSeqMapTaskTypeuserFn);
begin
- If (FharnessCommand=AValue) then exit;
- FharnessCommand:=AValue;
+ If (FuserFn=AValue) then exit;
+ FuserFn:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetlanguageHint(AIndex : Integer; const AValue : String);
+Procedure TSeqMapTask.SetoutputInfos(AIndex : Integer; const AValue : TSeqMapTaskTypeoutputInfosArray);
begin
- If (FlanguageHint=AValue) then exit;
- FlanguageHint:=AValue;
+ If (FoutputInfos=AValue) then exit;
+ FoutputInfos:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetlogDir(AIndex : Integer; const AValue : String);
+Procedure TSeqMapTask.Setname(AIndex : Integer; const AValue : String);
begin
- If (FlogDir=AValue) then exit;
- FlogDir:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetlogToSerialconsole(AIndex : Integer; AValue : boolean);
+Procedure TSeqMapTask.SetsystemName(AIndex : Integer; const AValue : String);
begin
- If (FlogToSerialconsole=AValue) then exit;
- FlogToSerialconsole:=AValue;
+ If (FsystemName=AValue) then exit;
+ FsystemName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetlogUploadLocation(AIndex : Integer; const AValue : String);
+Procedure TSeqMapTask.SetstageName(AIndex : Integer; const AValue : String);
begin
- If (FlogUploadLocation=AValue) then exit;
- FlogUploadLocation:=AValue;
+ If (FstageName=AValue) then exit;
+ FstageName:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSeqMapTask.SetArrayLength(Const AName : String; ALength : Longint);
-Procedure TTaskRunnerSettings.SetoauthScopes(AIndex : Integer; AValue : TStringArray);
+begin
+ Case AName of
+ 'inputs' : SetLength(Finputs,ALength);
+ 'outputinfos' : SetLength(FoutputInfos,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSeqMapTaskOutputInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TSeqMapTaskOutputInfo.Settag(AIndex : Integer; const AValue : String);
begin
- If (FoauthScopes=AValue) then exit;
- FoauthScopes:=AValue;
+ If (Ftag=AValue) then exit;
+ Ftag:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetparallelWorkerSettings(AIndex : Integer; AValue : TWorkerSettings);
+Procedure TSeqMapTaskOutputInfo.Setsink(AIndex : Integer; const AValue : TSink);
begin
- If (FparallelWorkerSettings=AValue) then exit;
- FparallelWorkerSettings:=AValue;
+ If (Fsink=AValue) then exit;
+ Fsink:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetstreamingWorkerMainClass(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TShellTask
+ --------------------------------------------------------------------}
+
+
+Procedure TShellTask.Setcommand(AIndex : Integer; const AValue : String);
begin
- If (FstreamingWorkerMainClass=AValue) then exit;
- FstreamingWorkerMainClass:=AValue;
+ If (Fcommand=AValue) then exit;
+ Fcommand:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SettaskGroup(AIndex : Integer; const AValue : String);
+Procedure TShellTask.SetexitCode(AIndex : Integer; const AValue : integer);
begin
- If (FtaskGroup=AValue) then exit;
- FtaskGroup:=AValue;
+ If (FexitCode=AValue) then exit;
+ FexitCode:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SettaskUser(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TStreamingSetupTask
+ --------------------------------------------------------------------}
+
+
+Procedure TStreamingSetupTask.SetreceiveWorkPort(AIndex : Integer; const AValue : integer);
begin
- If (FtaskUser=AValue) then exit;
- FtaskUser:=AValue;
+ If (FreceiveWorkPort=AValue) then exit;
+ FreceiveWorkPort:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SettempStoragePrefix(AIndex : Integer; const AValue : String);
+Procedure TStreamingSetupTask.SetworkerHarnessPort(AIndex : Integer; const AValue : integer);
begin
- If (FtempStoragePrefix=AValue) then exit;
- FtempStoragePrefix:=AValue;
+ If (FworkerHarnessPort=AValue) then exit;
+ FworkerHarnessPort:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetvmId(AIndex : Integer; const AValue : String);
+Procedure TStreamingSetupTask.SetstreamingComputationTopology(AIndex : Integer; const AValue : TTopologyConfig);
begin
- If (FvmId=AValue) then exit;
- FvmId:=AValue;
+ If (FstreamingComputationTopology=AValue) then exit;
+ FstreamingComputationTopology:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTaskRunnerSettings.SetworkflowFileName(AIndex : Integer; const AValue : String);
+Procedure TStreamingSetupTask.Setdrain(AIndex : Integer; const AValue : boolean);
begin
- If (FworkflowFileName=AValue) then exit;
- FworkflowFileName:=AValue;
+ If (Fdrain=AValue) then exit;
+ Fdrain:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TTaskRunnerSettings.SetArrayLength(Const AName : String; ALength : Longint);
+
+
+
+{ --------------------------------------------------------------------
+ TTopologyConfigTypeuserStageToComputationNameMap
+ --------------------------------------------------------------------}
+
+
+Class Function TTopologyConfigTypeuserStageToComputationNameMap.AllowAdditionalProperties : Boolean;
begin
- Case AName of
- 'oauthscopes' : SetLength(FoauthScopes,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ Result:=True;
end;
-{$ENDIF VER2_6}
-
@@ -5493,7 +6388,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTopologyConfig.Setcomputations(AIndex : Integer; AValue : TTopologyConfigTypecomputationsArray);
+Procedure TTopologyConfig.Setcomputations(AIndex : Integer; const AValue : TTopologyConfigTypecomputationsArray);
begin
If (Fcomputations=AValue) then exit;
@@ -5503,7 +6398,7 @@ end;
-Procedure TTopologyConfig.SetdataDiskAssignments(AIndex : Integer; AValue : TTopologyConfigTypedataDiskAssignmentsArray);
+Procedure TTopologyConfig.SetdataDiskAssignments(AIndex : Integer; const AValue : TTopologyConfigTypedataDiskAssignmentsArray);
begin
If (FdataDiskAssignments=AValue) then exit;
@@ -5512,6 +6407,36 @@ begin
end;
+
+Procedure TTopologyConfig.SetuserStageToComputationNameMap(AIndex : Integer; const AValue : TTopologyConfigTypeuserStageToComputationNameMap);
+
+begin
+ If (FuserStageToComputationNameMap=AValue) then exit;
+ FuserStageToComputationNameMap:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTopologyConfig.SetforwardingKeyBits(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FforwardingKeyBits=AValue) then exit;
+ FforwardingKeyBits:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTopologyConfig.SetpersistentStateVersion(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FpersistentStateVersion=AValue) then exit;
+ FpersistentStateVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTopologyConfig.SetArrayLength(Const AName : String; ALength : Longint);
@@ -5530,238 +6455,290 @@ end;
{ --------------------------------------------------------------------
- TWorkItem
+ TComputationTopology
--------------------------------------------------------------------}
-Procedure TWorkItem.Setconfiguration(AIndex : Integer; const AValue : String);
+Procedure TComputationTopology.SetsystemStageName(AIndex : Integer; const AValue : String);
begin
- If (Fconfiguration=AValue) then exit;
- Fconfiguration:=AValue;
+ If (FsystemStageName=AValue) then exit;
+ FsystemStageName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.Setid(AIndex : Integer; const AValue : String);
+Procedure TComputationTopology.SetcomputationId(AIndex : Integer; const AValue : String);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (FcomputationId=AValue) then exit;
+ FcomputationId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.SetinitialReportIndex(AIndex : Integer; const AValue : String);
+Procedure TComputationTopology.SetuserStageName(AIndex : Integer; const AValue : String);
begin
- If (FinitialReportIndex=AValue) then exit;
- FinitialReportIndex:=AValue;
+ If (FuserStageName=AValue) then exit;
+ FuserStageName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.SetjobId(AIndex : Integer; const AValue : String);
+Procedure TComputationTopology.SetkeyRanges(AIndex : Integer; const AValue : TComputationTopologyTypekeyRangesArray);
begin
- If (FjobId=AValue) then exit;
- FjobId:=AValue;
+ If (FkeyRanges=AValue) then exit;
+ FkeyRanges:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.SetleaseExpireTime(AIndex : Integer; const AValue : String);
+Procedure TComputationTopology.Setinputs(AIndex : Integer; const AValue : TComputationTopologyTypeinputsArray);
begin
- If (FleaseExpireTime=AValue) then exit;
- FleaseExpireTime:=AValue;
+ If (Finputs=AValue) then exit;
+ Finputs:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.SetmapTask(AIndex : Integer; AValue : TMapTask);
+Procedure TComputationTopology.Setoutputs(AIndex : Integer; const AValue : TComputationTopologyTypeoutputsArray);
begin
- If (FmapTask=AValue) then exit;
- FmapTask:=AValue;
+ If (Foutputs=AValue) then exit;
+ Foutputs:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.Setpackages(AIndex : Integer; AValue : TWorkItemTypepackagesArray);
+Procedure TComputationTopology.SetstateFamilies(AIndex : Integer; const AValue : TComputationTopologyTypestateFamiliesArray);
begin
- If (Fpackages=AValue) then exit;
- Fpackages:=AValue;
+ If (FstateFamilies=AValue) then exit;
+ FstateFamilies:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TComputationTopology.SetArrayLength(Const AName : String; ALength : Longint);
-Procedure TWorkItem.SetprojectId(AIndex : Integer; const AValue : String);
+begin
+ Case AName of
+ 'keyranges' : SetLength(FkeyRanges,ALength);
+ 'inputs' : SetLength(Finputs,ALength);
+ 'outputs' : SetLength(Foutputs,ALength);
+ 'statefamilies' : SetLength(FstateFamilies,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TKeyRangeLocation
+ --------------------------------------------------------------------}
+
+
+Procedure TKeyRangeLocation.Setstart(AIndex : Integer; const AValue : String);
begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.SetreportStatusInterval(AIndex : Integer; const AValue : String);
+Procedure TKeyRangeLocation.Set_end(AIndex : Integer; const AValue : String);
begin
- If (FreportStatusInterval=AValue) then exit;
- FreportStatusInterval:=AValue;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.SetseqMapTask(AIndex : Integer; AValue : TSeqMapTask);
+Procedure TKeyRangeLocation.SetdeliveryEndpoint(AIndex : Integer; const AValue : String);
begin
- If (FseqMapTask=AValue) then exit;
- FseqMapTask:=AValue;
+ If (FdeliveryEndpoint=AValue) then exit;
+ FdeliveryEndpoint:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.SetshellTask(AIndex : Integer; AValue : TShellTask);
+Procedure TKeyRangeLocation.SetpersistentDirectory(AIndex : Integer; const AValue : String);
begin
- If (FshellTask=AValue) then exit;
- FshellTask:=AValue;
+ If (FpersistentDirectory=AValue) then exit;
+ FpersistentDirectory:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.SetsourceOperationTask(AIndex : Integer; AValue : TSourceOperationRequest);
+Procedure TKeyRangeLocation.SetdataDisk(AIndex : Integer; const AValue : String);
begin
- If (FsourceOperationTask=AValue) then exit;
- FsourceOperationTask:=AValue;
+ If (FdataDisk=AValue) then exit;
+ FdataDisk:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.SetstreamingComputationTask(AIndex : Integer; AValue : TStreamingComputationTask);
+Class Function TKeyRangeLocation.ExportPropertyName(Const AName : String) :String;
begin
- If (FstreamingComputationTask=AValue) then exit;
- FstreamingComputationTask:=AValue;
+ Case AName of
+ '_end' : Result:='end';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TStreamLocation
+ --------------------------------------------------------------------}
+
+
+Procedure TStreamLocation.SetstreamingStageLocation(AIndex : Integer; const AValue : TStreamingStageLocation);
+
+begin
+ If (FstreamingStageLocation=AValue) then exit;
+ FstreamingStageLocation:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItem.SetstreamingSetupTask(AIndex : Integer; AValue : TStreamingSetupTask);
+Procedure TStreamLocation.SetpubsubLocation(AIndex : Integer; const AValue : TPubsubLocation);
begin
- If (FstreamingSetupTask=AValue) then exit;
- FstreamingSetupTask:=AValue;
+ If (FpubsubLocation=AValue) then exit;
+ FpubsubLocation:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TWorkItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TStreamLocation.SetsideInputLocation(AIndex : Integer; const AValue : TStreamingSideInputLocation);
begin
- Case AName of
- 'packages' : SetLength(Fpackages,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FsideInputLocation=AValue) then exit;
+ FsideInputLocation:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+
+
+
+Procedure TStreamLocation.SetcustomSourceLocation(AIndex : Integer; const AValue : TCustomSourceLocation);
+
+begin
+ If (FcustomSourceLocation=AValue) then exit;
+ FcustomSourceLocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
{ --------------------------------------------------------------------
- TWorkItemServiceStateTypeharnessData
+ TStreamingStageLocation
--------------------------------------------------------------------}
-Class Function TWorkItemServiceStateTypeharnessData.AllowAdditionalProperties : Boolean;
+Procedure TStreamingStageLocation.SetstreamId(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (FstreamId=AValue) then exit;
+ FstreamId:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
+
{ --------------------------------------------------------------------
- TWorkItemServiceState
+ TPubsubLocation
--------------------------------------------------------------------}
-Procedure TWorkItemServiceState.SetharnessData(AIndex : Integer; AValue : TWorkItemServiceStateTypeharnessData);
+Procedure TPubsubLocation.Settopic(AIndex : Integer; const AValue : String);
begin
- If (FharnessData=AValue) then exit;
- FharnessData:=AValue;
+ If (Ftopic=AValue) then exit;
+ Ftopic:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemServiceState.SetleaseExpireTime(AIndex : Integer; const AValue : String);
+Procedure TPubsubLocation.Setsubscription(AIndex : Integer; const AValue : String);
begin
- If (FleaseExpireTime=AValue) then exit;
- FleaseExpireTime:=AValue;
+ If (Fsubscription=AValue) then exit;
+ Fsubscription:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemServiceState.SetnextReportIndex(AIndex : Integer; const AValue : String);
+Procedure TPubsubLocation.SettimestampLabel(AIndex : Integer; const AValue : String);
begin
- If (FnextReportIndex=AValue) then exit;
- FnextReportIndex:=AValue;
+ If (FtimestampLabel=AValue) then exit;
+ FtimestampLabel:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemServiceState.SetreportStatusInterval(AIndex : Integer; const AValue : String);
+Procedure TPubsubLocation.SetidLabel(AIndex : Integer; const AValue : String);
begin
- If (FreportStatusInterval=AValue) then exit;
- FreportStatusInterval:=AValue;
+ If (FidLabel=AValue) then exit;
+ FidLabel:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemServiceState.SetsuggestedStopPoint(AIndex : Integer; AValue : TApproximateProgress);
+Procedure TPubsubLocation.SetdropLateData(AIndex : Integer; const AValue : boolean);
begin
- If (FsuggestedStopPoint=AValue) then exit;
- FsuggestedStopPoint:=AValue;
+ If (FdropLateData=AValue) then exit;
+ FdropLateData:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemServiceState.SetsuggestedStopPosition(AIndex : Integer; AValue : TPosition);
+Procedure TPubsubLocation.SettrackingSubscription(AIndex : Integer; const AValue : String);
begin
- If (FsuggestedStopPosition=AValue) then exit;
- FsuggestedStopPosition:=AValue;
+ If (FtrackingSubscription=AValue) then exit;
+ FtrackingSubscription:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5770,127 +6747,256 @@ end;
{ --------------------------------------------------------------------
- TWorkItemStatus
+ TStreamingSideInputLocation
--------------------------------------------------------------------}
-Procedure TWorkItemStatus.Setcompleted(AIndex : Integer; AValue : boolean);
+Procedure TStreamingSideInputLocation.Settag(AIndex : Integer; const AValue : String);
begin
- If (Fcompleted=AValue) then exit;
- Fcompleted:=AValue;
+ If (Ftag=AValue) then exit;
+ Ftag:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemStatus.SetdynamicSourceSplit(AIndex : Integer; AValue : TDynamicSourceSplit);
+Procedure TStreamingSideInputLocation.SetstateFamily(AIndex : Integer; const AValue : String);
begin
- If (FdynamicSourceSplit=AValue) then exit;
- FdynamicSourceSplit:=AValue;
+ If (FstateFamily=AValue) then exit;
+ FstateFamily:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemStatus.Seterrors(AIndex : Integer; AValue : TWorkItemStatusTypeerrorsArray);
+
+
+{ --------------------------------------------------------------------
+ TCustomSourceLocation
+ --------------------------------------------------------------------}
+
+
+Procedure TCustomSourceLocation.Setstateful(AIndex : Integer; const AValue : boolean);
begin
- If (Ferrors=AValue) then exit;
- Ferrors:=AValue;
+ If (Fstateful=AValue) then exit;
+ Fstateful:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemStatus.SetmetricUpdates(AIndex : Integer; AValue : TWorkItemStatusTypemetricUpdatesArray);
+
+
+{ --------------------------------------------------------------------
+ TStateFamilyConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TStateFamilyConfig.SetstateFamily(AIndex : Integer; const AValue : String);
begin
- If (FmetricUpdates=AValue) then exit;
- FmetricUpdates:=AValue;
+ If (FstateFamily=AValue) then exit;
+ FstateFamily:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemStatus.Setprogress(AIndex : Integer; AValue : TApproximateProgress);
+Procedure TStateFamilyConfig.SetisRead(AIndex : Integer; const AValue : boolean);
begin
- If (Fprogress=AValue) then exit;
- Fprogress:=AValue;
+ If (FisRead=AValue) then exit;
+ FisRead:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemStatus.SetreportIndex(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TDataDiskAssignment
+ --------------------------------------------------------------------}
+
+
+Procedure TDataDiskAssignment.SetvmInstance(AIndex : Integer; const AValue : String);
begin
- If (FreportIndex=AValue) then exit;
- FreportIndex:=AValue;
+ If (FvmInstance=AValue) then exit;
+ FvmInstance:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemStatus.SetrequestedLeaseDuration(AIndex : Integer; const AValue : String);
+Procedure TDataDiskAssignment.SetdataDisks(AIndex : Integer; const AValue : TStringArray);
begin
- If (FrequestedLeaseDuration=AValue) then exit;
- FrequestedLeaseDuration:=AValue;
+ If (FdataDisks=AValue) then exit;
+ FdataDisks:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDataDiskAssignment.SetArrayLength(Const AName : String; ALength : Longint);
-Procedure TWorkItemStatus.SetsourceFork(AIndex : Integer; AValue : TSourceFork);
+begin
+ Case AName of
+ 'datadisks' : SetLength(FdataDisks,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSourceOperationRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceOperationRequest.Setsplit(AIndex : Integer; const AValue : TSourceSplitRequest);
begin
- If (FsourceFork=AValue) then exit;
- FsourceFork:=AValue;
+ If (Fsplit=AValue) then exit;
+ Fsplit:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemStatus.SetsourceOperationResponse(AIndex : Integer; AValue : TSourceOperationResponse);
+Procedure TSourceOperationRequest.SetgetMetadata(AIndex : Integer; const AValue : TSourceGetMetadataRequest);
begin
- If (FsourceOperationResponse=AValue) then exit;
- FsourceOperationResponse:=AValue;
+ If (FgetMetadata=AValue) then exit;
+ FgetMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSourceSplitRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceSplitRequest.Setsource(AIndex : Integer; const AValue : TSource);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemStatus.SetstopPosition(AIndex : Integer; AValue : TPosition);
+Procedure TSourceSplitRequest.Setoptions(AIndex : Integer; const AValue : TSourceSplitOptions);
begin
- If (FstopPosition=AValue) then exit;
- FstopPosition:=AValue;
+ If (Foptions=AValue) then exit;
+ Foptions:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkItemStatus.SetworkItemId(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TSourceSplitOptions
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceSplitOptions.SetdesiredBundleSizeBytes(AIndex : Integer; const AValue : String);
begin
- If (FworkItemId=AValue) then exit;
- FworkItemId:=AValue;
+ If (FdesiredBundleSizeBytes=AValue) then exit;
+ FdesiredBundleSizeBytes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceSplitOptions.SetdesiredShardSizeBytes(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdesiredShardSizeBytes=AValue) then exit;
+ FdesiredShardSizeBytes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSourceGetMetadataRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceGetMetadataRequest.Setsource(AIndex : Integer; const AValue : TSource);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStreamingComputationTask
+ --------------------------------------------------------------------}
+
+
+Procedure TStreamingComputationTask.SettaskType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtaskType=AValue) then exit;
+ FtaskType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStreamingComputationTask.SetdataDisks(AIndex : Integer; const AValue : TStreamingComputationTaskTypedataDisksArray);
+
+begin
+ If (FdataDisks=AValue) then exit;
+ FdataDisks:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStreamingComputationTask.SetcomputationRanges(AIndex : Integer; const AValue : TStreamingComputationTaskTypecomputationRangesArray);
+
+begin
+ If (FcomputationRanges=AValue) then exit;
+ FcomputationRanges:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TWorkItemStatus.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TStreamingComputationTask.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'errors' : SetLength(Ferrors,ALength);
- 'metricupdates' : SetLength(FmetricUpdates,ALength);
+ 'datadisks' : SetLength(FdataDisks,ALength);
+ 'computationranges' : SetLength(FcomputationRanges,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5901,203 +7007,264 @@ end;
{ --------------------------------------------------------------------
- TWorkerPoolTypemetadata
+ TMountedDataDisk
--------------------------------------------------------------------}
-Class Function TWorkerPoolTypemetadata.AllowAdditionalProperties : Boolean;
+Procedure TMountedDataDisk.SetdataDisk(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (FdataDisk=AValue) then exit;
+ FdataDisk:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
+
{ --------------------------------------------------------------------
- TWorkerPoolTypepoolArgs
+ TStreamingComputationRanges
--------------------------------------------------------------------}
-Class Function TWorkerPoolTypepoolArgs.AllowAdditionalProperties : Boolean;
+Procedure TStreamingComputationRanges.SetcomputationId(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (FcomputationId=AValue) then exit;
+ FcomputationId:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+Procedure TStreamingComputationRanges.SetrangeAssignments(AIndex : Integer; const AValue : TStreamingComputationRangesTyperangeAssignmentsArray);
+
+begin
+ If (FrangeAssignments=AValue) then exit;
+ FrangeAssignments:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStreamingComputationRanges.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'rangeassignments' : SetLength(FrangeAssignments,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
{ --------------------------------------------------------------------
- TWorkerPool
+ TKeyRangeDataDiskAssignment
--------------------------------------------------------------------}
-Procedure TWorkerPool.SetautoscalingSettings(AIndex : Integer; AValue : TAutoscalingSettings);
+Procedure TKeyRangeDataDiskAssignment.Setstart(AIndex : Integer; const AValue : String);
begin
- If (FautoscalingSettings=AValue) then exit;
- FautoscalingSettings:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerPool.SetdataDisks(AIndex : Integer; AValue : TWorkerPoolTypedataDisksArray);
+Procedure TKeyRangeDataDiskAssignment.Set_end(AIndex : Integer; const AValue : String);
begin
- If (FdataDisks=AValue) then exit;
- FdataDisks:=AValue;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerPool.SetdefaultPackageSet(AIndex : Integer; const AValue : String);
+Procedure TKeyRangeDataDiskAssignment.SetdataDisk(AIndex : Integer; const AValue : String);
begin
- If (FdefaultPackageSet=AValue) then exit;
- FdefaultPackageSet:=AValue;
+ If (FdataDisk=AValue) then exit;
+ FdataDisk:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerPool.SetdiskSizeGb(AIndex : Integer; AValue : integer);
+Class Function TKeyRangeDataDiskAssignment.ExportPropertyName(Const AName : String) :String;
begin
- If (FdiskSizeGb=AValue) then exit;
- FdiskSizeGb:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ '_end' : Result:='end';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
end;
-Procedure TWorkerPool.SetdiskSourceImage(AIndex : Integer; const AValue : String);
+
+{ --------------------------------------------------------------------
+ TSendWorkerMessagesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSendWorkerMessagesRequest.SetworkerMessages(AIndex : Integer; const AValue : TSendWorkerMessagesRequestTypeworkerMessagesArray);
begin
- If (FdiskSourceImage=AValue) then exit;
- FdiskSourceImage:=AValue;
+ If (FworkerMessages=AValue) then exit;
+ FworkerMessages:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TWorkerPool.SetdiskType(AIndex : Integer; const AValue : String);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSendWorkerMessagesRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FdiskType=AValue) then exit;
- FdiskType:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'workermessages' : SetLength(FworkerMessages,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Procedure TWorkerPool.Setkind(AIndex : Integer; const AValue : String);
+
+{ --------------------------------------------------------------------
+ TWorkerMessageTypelabels
+ --------------------------------------------------------------------}
+
+
+Class Function TWorkerMessageTypelabels.AllowAdditionalProperties : Boolean;
begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TWorkerPool.SetmachineType(AIndex : Integer; const AValue : String);
+{ --------------------------------------------------------------------
+ TWorkerMessage
+ --------------------------------------------------------------------}
+
+
+Procedure TWorkerMessage.Setlabels(AIndex : Integer; const AValue : TWorkerMessageTypelabels);
begin
- If (FmachineType=AValue) then exit;
- FmachineType:=AValue;
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerPool.Setmetadata(AIndex : Integer; AValue : TWorkerPoolTypemetadata);
+Procedure TWorkerMessage.Settime(AIndex : Integer; const AValue : String);
begin
- If (Fmetadata=AValue) then exit;
- Fmetadata:=AValue;
+ If (Ftime=AValue) then exit;
+ Ftime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerPool.SetnumWorkers(AIndex : Integer; AValue : integer);
+Procedure TWorkerMessage.SetworkerHealthReport(AIndex : Integer; const AValue : TWorkerHealthReport);
begin
- If (FnumWorkers=AValue) then exit;
- FnumWorkers:=AValue;
+ If (FworkerHealthReport=AValue) then exit;
+ FworkerHealthReport:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerPool.SetonHostMaintenance(AIndex : Integer; const AValue : String);
+Procedure TWorkerMessage.SetworkerMessageCode(AIndex : Integer; const AValue : TWorkerMessageCode);
begin
- If (FonHostMaintenance=AValue) then exit;
- FonHostMaintenance:=AValue;
+ If (FworkerMessageCode=AValue) then exit;
+ FworkerMessageCode:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerPool.Setpackages(AIndex : Integer; AValue : TWorkerPoolTypepackagesArray);
+
+
+{ --------------------------------------------------------------------
+ TWorkerHealthReportTypepodsItem
+ --------------------------------------------------------------------}
+
+
+Class Function TWorkerHealthReportTypepodsItem.AllowAdditionalProperties : Boolean;
begin
- If (Fpackages=AValue) then exit;
- Fpackages:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TWorkerPool.SetpoolArgs(AIndex : Integer; AValue : TWorkerPoolTypepoolArgs);
+{ --------------------------------------------------------------------
+ TWorkerHealthReport
+ --------------------------------------------------------------------}
+
+
+Procedure TWorkerHealthReport.SetvmIsHealthy(AIndex : Integer; const AValue : boolean);
begin
- If (FpoolArgs=AValue) then exit;
- FpoolArgs:=AValue;
+ If (FvmIsHealthy=AValue) then exit;
+ FvmIsHealthy:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerPool.SettaskrunnerSettings(AIndex : Integer; AValue : TTaskRunnerSettings);
+Procedure TWorkerHealthReport.SetvmStartupTime(AIndex : Integer; const AValue : String);
begin
- If (FtaskrunnerSettings=AValue) then exit;
- FtaskrunnerSettings:=AValue;
+ If (FvmStartupTime=AValue) then exit;
+ FvmStartupTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerPool.SetteardownPolicy(AIndex : Integer; const AValue : String);
+Procedure TWorkerHealthReport.SetreportInterval(AIndex : Integer; const AValue : String);
begin
- If (FteardownPolicy=AValue) then exit;
- FteardownPolicy:=AValue;
+ If (FreportInterval=AValue) then exit;
+ FreportInterval:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerPool.Setzone(AIndex : Integer; const AValue : String);
+Procedure TWorkerHealthReport.Setpods(AIndex : Integer; const AValue : TWorkerHealthReportTypepodsArray);
begin
- If (Fzone=AValue) then exit;
- Fzone:=AValue;
+ If (Fpods=AValue) then exit;
+ Fpods:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TWorkerPool.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TWorkerHealthReport.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'datadisks' : SetLength(FdataDisks,ALength);
- 'packages' : SetLength(Fpackages,ALength);
+ 'pods' : SetLength(Fpods,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -6108,92 +7275,102 @@ end;
{ --------------------------------------------------------------------
- TWorkerSettings
+ TWorkerMessageCodeTypeparameters
--------------------------------------------------------------------}
-Procedure TWorkerSettings.SetbaseUrl(AIndex : Integer; const AValue : String);
+Class Function TWorkerMessageCodeTypeparameters.AllowAdditionalProperties : Boolean;
begin
- If (FbaseUrl=AValue) then exit;
- FbaseUrl:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TWorkerSettings.SetreportingEnabled(AIndex : Integer; AValue : boolean);
+{ --------------------------------------------------------------------
+ TWorkerMessageCode
+ --------------------------------------------------------------------}
+
+
+Procedure TWorkerMessageCode.Setcode(AIndex : Integer; const AValue : String);
begin
- If (FreportingEnabled=AValue) then exit;
- FreportingEnabled:=AValue;
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerSettings.SetservicePath(AIndex : Integer; const AValue : String);
+Procedure TWorkerMessageCode.Setparameters(AIndex : Integer; const AValue : TWorkerMessageCodeTypeparameters);
begin
- If (FservicePath=AValue) then exit;
- FservicePath:=AValue;
+ If (Fparameters=AValue) then exit;
+ Fparameters:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWorkerSettings.SetshuffleServicePath(AIndex : Integer; const AValue : String);
-begin
- If (FshuffleServicePath=AValue) then exit;
- FshuffleServicePath:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TSendWorkerMessagesResponse
+ --------------------------------------------------------------------}
-Procedure TWorkerSettings.SettempStoragePrefix(AIndex : Integer; const AValue : String);
+Procedure TSendWorkerMessagesResponse.SetworkerMessageResponses(AIndex : Integer; const AValue : TSendWorkerMessagesResponseTypeworkerMessageResponsesArray);
begin
- If (FtempStoragePrefix=AValue) then exit;
- FtempStoragePrefix:=AValue;
+ If (FworkerMessageResponses=AValue) then exit;
+ FworkerMessageResponses:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TWorkerSettings.SetworkerId(AIndex : Integer; const AValue : String);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSendWorkerMessagesResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FworkerId=AValue) then exit;
- FworkerId:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'workermessageresponses' : SetLength(FworkerMessageResponses,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
-
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TWriteInstruction
+ TWorkerMessageResponse
--------------------------------------------------------------------}
-Procedure TWriteInstruction.Setinput(AIndex : Integer; AValue : TInstructionInput);
+Procedure TWorkerMessageResponse.SetworkerHealthReportResponse(AIndex : Integer; const AValue : TWorkerHealthReportResponse);
begin
- If (Finput=AValue) then exit;
- Finput:=AValue;
+ If (FworkerHealthReportResponse=AValue) then exit;
+ FworkerHealthReportResponse:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWriteInstruction.Setsink(AIndex : Integer; AValue : TSink);
+
+
+{ --------------------------------------------------------------------
+ TWorkerHealthReportResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TWorkerHealthReportResponse.SetreportInterval(AIndex : Integer; const AValue : String);
begin
- If (Fsink=AValue) then exit;
- Fsink:=AValue;
+ If (FreportInterval=AValue) then exit;
+ FreportInterval:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -6218,35 +7395,35 @@ begin
Result:=TdataflowAPI;
end;
-Function TProjectsJobsMessagesResource.List(jobId: string; projectId: string; AQuery : string = '') : TListJobMessagesResponse;
+Function TProjectsJobsMessagesResource.List(projectId: string; jobId: string; AQuery : string = '') : TListJobMessagesResponse;
Const
_HTTPMethod = 'GET';
- _Path = '{projectId}/jobs/{jobId}/messages';
+ _Path = 'v1b3/projects/{projectId}/jobs/{jobId}/messages';
_Methodid = 'dataflow.projects.jobs.messages.list';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['jobId',jobId,'projectId',projectId]);
+ _P:=SubstitutePath(_Path,['projectId',projectId,'jobId',jobId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListJobMessagesResponse) as TListJobMessagesResponse;
end;
-Function TProjectsJobsMessagesResource.List(jobId: string; projectId: string; AQuery : TProjectsJobsMessageslistOptions) : TListJobMessagesResponse;
+Function TProjectsJobsMessagesResource.List(projectId: string; jobId: string; AQuery : TProjectsJobsMessageslistOptions) : TListJobMessagesResponse;
Var
_Q : String;
begin
_Q:='';
- AddToQuery(_Q,'endTime',AQuery.endTime);
AddToQuery(_Q,'minimumImportance',AQuery.minimumImportance);
AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'startTime',AQuery.startTime);
- Result:=List(jobId,projectId,_Q);
+ AddToQuery(_Q,'endTime',AQuery.endTime);
+ Result:=List(projectId,jobId,_Q);
end;
@@ -6268,34 +7445,34 @@ begin
Result:=TdataflowAPI;
end;
-Function TProjectsJobsWorkItemsResource.Lease(jobId: string; projectId: string; aLeaseWorkItemRequest : TLeaseWorkItemRequest) : TLeaseWorkItemResponse;
+Function TProjectsJobsWorkItemsResource.ReportStatus(projectId: string; jobId: string; aReportWorkItemStatusRequest : TReportWorkItemStatusRequest) : TReportWorkItemStatusResponse;
Const
_HTTPMethod = 'POST';
- _Path = '{projectId}/jobs/{jobId}/workItems:lease';
- _Methodid = 'dataflow.projects.jobs.workItems.lease';
+ _Path = 'v1b3/projects/{projectId}/jobs/{jobId}/workItems:reportStatus';
+ _Methodid = 'dataflow.projects.jobs.workItems.reportStatus';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['jobId',jobId,'projectId',projectId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aLeaseWorkItemRequest,TLeaseWorkItemResponse) as TLeaseWorkItemResponse;
+ _P:=SubstitutePath(_Path,['projectId',projectId,'jobId',jobId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aReportWorkItemStatusRequest,TReportWorkItemStatusResponse) as TReportWorkItemStatusResponse;
end;
-Function TProjectsJobsWorkItemsResource.ReportStatus(jobId: string; projectId: string; aReportWorkItemStatusRequest : TReportWorkItemStatusRequest) : TReportWorkItemStatusResponse;
+Function TProjectsJobsWorkItemsResource.Lease(projectId: string; jobId: string; aLeaseWorkItemRequest : TLeaseWorkItemRequest) : TLeaseWorkItemResponse;
Const
_HTTPMethod = 'POST';
- _Path = '{projectId}/jobs/{jobId}/workItems:reportStatus';
- _Methodid = 'dataflow.projects.jobs.workItems.reportStatus';
+ _Path = 'v1b3/projects/{projectId}/jobs/{jobId}/workItems:lease';
+ _Methodid = 'dataflow.projects.jobs.workItems.lease';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['jobId',jobId,'projectId',projectId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aReportWorkItemStatusRequest,TReportWorkItemStatusResponse) as TReportWorkItemStatusResponse;
+ _P:=SubstitutePath(_Path,['projectId',projectId,'jobId',jobId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aLeaseWorkItemRequest,TLeaseWorkItemResponse) as TLeaseWorkItemResponse;
end;
@@ -6321,7 +7498,7 @@ Function TProjectsJobsResource.Create(projectId: string; aJob : TJob; AQuery : s
Const
_HTTPMethod = 'POST';
- _Path = '{projectId}/jobs';
+ _Path = 'v1b3/projects/{projectId}/jobs';
_Methodid = 'dataflow.projects.jobs.create';
Var
@@ -6340,28 +7517,28 @@ Var
begin
_Q:='';
- AddToQuery(_Q,'replaceJobId',AQuery.replaceJobId);
AddToQuery(_Q,'view',AQuery.view);
+ AddToQuery(_Q,'replaceJobId',AQuery.replaceJobId);
Result:=Create(projectId,aJob,_Q);
end;
-Function TProjectsJobsResource.Get(jobId: string; projectId: string; AQuery : string = '') : TJob;
+Function TProjectsJobsResource.Get(projectId: string; jobId: string; AQuery : string = '') : TJob;
Const
_HTTPMethod = 'GET';
- _Path = '{projectId}/jobs/{jobId}';
+ _Path = 'v1b3/projects/{projectId}/jobs/{jobId}';
_Methodid = 'dataflow.projects.jobs.get';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['jobId',jobId,'projectId',projectId]);
+ _P:=SubstitutePath(_Path,['projectId',projectId,'jobId',jobId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TJob) as TJob;
end;
-Function TProjectsJobsResource.Get(jobId: string; projectId: string; AQuery : TProjectsJobsgetOptions) : TJob;
+Function TProjectsJobsResource.Get(projectId: string; jobId: string; AQuery : TProjectsJobsgetOptions) : TJob;
Var
_Q : String;
@@ -6369,41 +7546,29 @@ Var
begin
_Q:='';
AddToQuery(_Q,'view',AQuery.view);
- Result:=Get(jobId,projectId,_Q);
+ Result:=Get(projectId,jobId,_Q);
end;
-Function TProjectsJobsResource.GetMetrics(jobId: string; projectId: string; AQuery : string = '') : TJobMetrics;
+Function TProjectsJobsResource.Update(projectId: string; jobId: string; aJob : TJob) : TJob;
Const
- _HTTPMethod = 'GET';
- _Path = '{projectId}/jobs/{jobId}/metrics';
- _Methodid = 'dataflow.projects.jobs.getMetrics';
+ _HTTPMethod = 'PUT';
+ _Path = 'v1b3/projects/{projectId}/jobs/{jobId}';
+ _Methodid = 'dataflow.projects.jobs.update';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['jobId',jobId,'projectId',projectId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TJobMetrics) as TJobMetrics;
-end;
-
-
-Function TProjectsJobsResource.GetMetrics(jobId: string; projectId: string; AQuery : TProjectsJobsgetMetricsOptions) : TJobMetrics;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'startTime',AQuery.startTime);
- Result:=GetMetrics(jobId,projectId,_Q);
+ _P:=SubstitutePath(_Path,['projectId',projectId,'jobId',jobId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aJob,TJob) as TJob;
end;
Function TProjectsJobsResource.List(projectId: string; AQuery : string = '') : TListJobsResponse;
Const
_HTTPMethod = 'GET';
- _Path = '{projectId}/jobs';
+ _Path = 'v1b3/projects/{projectId}/jobs';
_Methodid = 'dataflow.projects.jobs.list';
Var
@@ -6422,40 +7587,38 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'view',AQuery.view);
AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'view',AQuery.view);
Result:=List(projectId,_Q);
end;
-Function TProjectsJobsResource.Patch(jobId: string; projectId: string; aJob : TJob) : TJob;
+Function TProjectsJobsResource.GetMetrics(projectId: string; jobId: string; AQuery : string = '') : TJobMetrics;
Const
- _HTTPMethod = 'PATCH';
- _Path = '{projectId}/jobs/{jobId}';
- _Methodid = 'dataflow.projects.jobs.patch';
+ _HTTPMethod = 'GET';
+ _Path = 'v1b3/projects/{projectId}/jobs/{jobId}/metrics';
+ _Methodid = 'dataflow.projects.jobs.getMetrics';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['jobId',jobId,'projectId',projectId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aJob,TJob) as TJob;
+ _P:=SubstitutePath(_Path,['projectId',projectId,'jobId',jobId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TJobMetrics) as TJobMetrics;
end;
-Function TProjectsJobsResource.Update(jobId: string; projectId: string; aJob : TJob) : TJob;
-Const
- _HTTPMethod = 'PUT';
- _Path = '{projectId}/jobs/{jobId}';
- _Methodid = 'dataflow.projects.jobs.update';
+Function TProjectsJobsResource.GetMetrics(projectId: string; jobId: string; AQuery : TProjectsJobsgetMetricsOptions) : TJobMetrics;
Var
- _P : String;
+ _Q : String;
begin
- _P:=SubstitutePath(_Path,['jobId',jobId,'projectId',projectId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aJob,TJob) as TJob;
+ _Q:='';
+ AddToQuery(_Q,'startTime',AQuery.startTime);
+ Result:=GetMetrics(projectId,jobId,_Q);
end;
@@ -6525,6 +7688,21 @@ begin
Result:=TdataflowAPI;
end;
+Function TProjectsResource.WorkerMessages(projectId: string; aSendWorkerMessagesRequest : TSendWorkerMessagesRequest) : TSendWorkerMessagesResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1b3/projects/{projectId}/WorkerMessages';
+ _Methodid = 'dataflow.projects.workerMessages';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSendWorkerMessagesRequest,TSendWorkerMessagesResponse) as TSendWorkerMessagesResponse;
+end;
+
Function TProjectsResource.GetJobsMessagesInstance : TProjectsJobsMessagesResource;
@@ -6618,7 +7796,7 @@ end;
Class Function TDataflowAPI.APIRevision : String;
begin
- Result:='20150417';
+ Result:='20160331';
end;
Class Function TDataflowAPI.APIID : String;
@@ -6636,7 +7814,7 @@ end;
Class Function TDataflowAPI.APIDescription : String;
begin
- Result:='Google Dataflow API.';
+ Result:='Develops and executes data processing patterns like ETL, batch computation, and continuous computation.';
end;
Class Function TDataflowAPI.APIOwnerDomain : String;
@@ -6666,7 +7844,7 @@ end;
Class Function TDataflowAPI.APIdocumentationLink : String;
begin
- Result:='';
+ Result:='https://cloud.google.com/dataflow';
end;
Class Function TDataflowAPI.APIrootUrl : string;
@@ -6678,13 +7856,13 @@ end;
Class Function TDataflowAPI.APIbasePath : string;
begin
- Result:='/v1b3/projects/';
+ Result:='';
end;
Class Function TDataflowAPI.APIbaseURL : String;
begin
- Result:='https://dataflow.googleapis.com/v1b3/projects/';
+ Result:='https://dataflow.googleapis.com/';
end;
Class Function TDataflowAPI.APIProtocol : string;
@@ -6696,7 +7874,7 @@ end;
Class Function TDataflowAPI.APIservicePath : string;
begin
- Result:='v1b3/projects/';
+ Result:='';
end;
Class Function TDataflowAPI.APIbatchPath : String;
@@ -6725,95 +7903,114 @@ end;
Class Procedure TDataflowAPI.RegisterAPIResources;
begin
- TApproximateProgress.RegisterObject;
- TAutoscalingSettings.RegisterObject;
- TComputationTopology.RegisterObject;
- TDataDiskAssignment.RegisterObject;
- TDerivedSource.RegisterObject;
- TDisk.RegisterObject;
- TDynamicSourceSplit.RegisterObject;
- TEnvironmentTypesdkPipelineOptions.RegisterObject;
+ TJobTypetransformNameMapping.RegisterObject;
+ TJob.RegisterObject;
TEnvironmentTypeuserAgent.RegisterObject;
TEnvironmentTypeversion.RegisterObject;
+ TEnvironmentTypesdkPipelineOptions.RegisterObject;
+ TEnvironmentTypeinternalExperiments.RegisterObject;
TEnvironment.RegisterObject;
- TFlattenInstruction.RegisterObject;
- TInstructionInput.RegisterObject;
- TInstructionOutputTypecodec.RegisterObject;
- TInstructionOutput.RegisterObject;
- TJob.RegisterObject;
+ TWorkerPoolTypemetadata.RegisterObject;
+ TWorkerPoolTypepoolArgs.RegisterObject;
+ TWorkerPool.RegisterObject;
+ TPackage.RegisterObject;
+ TTaskRunnerSettings.RegisterObject;
+ TWorkerSettings.RegisterObject;
+ TDisk.RegisterObject;
+ TAutoscalingSettings.RegisterObject;
+ TStepTypeproperties.RegisterObject;
+ TStep.RegisterObject;
TJobExecutionInfoTypestages.RegisterObject;
TJobExecutionInfo.RegisterObject;
TJobExecutionStageInfo.RegisterObject;
+ TListJobsResponse.RegisterObject;
+ TListJobMessagesResponse.RegisterObject;
TJobMessage.RegisterObject;
TJobMetrics.RegisterObject;
- TKeyRangeDataDiskAssignment.RegisterObject;
- TKeyRangeLocation.RegisterObject;
+ TMetricUpdate.RegisterObject;
+ TMetricStructuredNameTypecontext.RegisterObject;
+ TMetricStructuredName.RegisterObject;
+ TReportWorkItemStatusRequest.RegisterObject;
+ TWorkItemStatus.RegisterObject;
+ TStatusTypedetailsItem.RegisterObject;
+ TStatus.RegisterObject;
+ TApproximateReportedProgress.RegisterObject;
+ TPosition.RegisterObject;
+ TConcatPosition.RegisterObject;
+ TReportedParallelism.RegisterObject;
+ TDynamicSourceSplit.RegisterObject;
+ TDerivedSource.RegisterObject;
+ TSourceTypespec.RegisterObject;
+ TSourceTypecodec.RegisterObject;
+ TSourceTypebaseSpecsItem.RegisterObject;
+ TSource.RegisterObject;
+ TSourceMetadata.RegisterObject;
+ TSourceOperationResponse.RegisterObject;
+ TSourceSplitResponse.RegisterObject;
+ TSourceSplitShard.RegisterObject;
+ TSourceGetMetadataResponse.RegisterObject;
+ TSourceFork.RegisterObject;
+ TApproximateProgress.RegisterObject;
+ TReportWorkItemStatusResponse.RegisterObject;
+ TWorkItemServiceStateTypeharnessData.RegisterObject;
+ TWorkItemServiceState.RegisterObject;
+ TApproximateSplitRequest.RegisterObject;
TLeaseWorkItemRequest.RegisterObject;
TLeaseWorkItemResponse.RegisterObject;
- TListJobMessagesResponse.RegisterObject;
- TListJobsResponse.RegisterObject;
+ TWorkItem.RegisterObject;
TMapTask.RegisterObject;
- TMetricStructuredNameTypecontext.RegisterObject;
- TMetricStructuredName.RegisterObject;
- TMetricUpdate.RegisterObject;
- TMountedDataDisk.RegisterObject;
- TMultiOutputInfo.RegisterObject;
- TPackage.RegisterObject;
+ TParallelInstruction.RegisterObject;
+ TReadInstruction.RegisterObject;
+ TWriteInstruction.RegisterObject;
+ TInstructionInput.RegisterObject;
+ TSinkTypespec.RegisterObject;
+ TSinkTypecodec.RegisterObject;
+ TSink.RegisterObject;
TParDoInstructionTypeuserFn.RegisterObject;
TParDoInstruction.RegisterObject;
- TParallelInstruction.RegisterObject;
+ TSideInputInfoTypekind.RegisterObject;
+ TSideInputInfo.RegisterObject;
+ TMultiOutputInfo.RegisterObject;
TPartialGroupByKeyInstructionTypeinputElementCodec.RegisterObject;
TPartialGroupByKeyInstructionTypevalueCombiningFn.RegisterObject;
TPartialGroupByKeyInstruction.RegisterObject;
- TPosition.RegisterObject;
- TPubsubLocation.RegisterObject;
- TReadInstruction.RegisterObject;
- TReportWorkItemStatusRequest.RegisterObject;
- TReportWorkItemStatusResponse.RegisterObject;
+ TFlattenInstruction.RegisterObject;
+ TInstructionOutputTypecodec.RegisterObject;
+ TInstructionOutput.RegisterObject;
TSeqMapTaskTypeuserFn.RegisterObject;
TSeqMapTask.RegisterObject;
TSeqMapTaskOutputInfo.RegisterObject;
TShellTask.RegisterObject;
- TSideInputInfoTypekind.RegisterObject;
- TSideInputInfo.RegisterObject;
- TSinkTypecodec.RegisterObject;
- TSinkTypespec.RegisterObject;
- TSink.RegisterObject;
- TSourceTypebaseSpecsItem.RegisterObject;
- TSourceTypecodec.RegisterObject;
- TSourceTypespec.RegisterObject;
- TSource.RegisterObject;
- TSourceFork.RegisterObject;
- TSourceGetMetadataRequest.RegisterObject;
- TSourceGetMetadataResponse.RegisterObject;
- TSourceMetadata.RegisterObject;
+ TStreamingSetupTask.RegisterObject;
+ TTopologyConfigTypeuserStageToComputationNameMap.RegisterObject;
+ TTopologyConfig.RegisterObject;
+ TComputationTopology.RegisterObject;
+ TKeyRangeLocation.RegisterObject;
+ TStreamLocation.RegisterObject;
+ TStreamingStageLocation.RegisterObject;
+ TPubsubLocation.RegisterObject;
+ TStreamingSideInputLocation.RegisterObject;
+ TCustomSourceLocation.RegisterObject;
+ TStateFamilyConfig.RegisterObject;
+ TDataDiskAssignment.RegisterObject;
TSourceOperationRequest.RegisterObject;
- TSourceOperationResponse.RegisterObject;
- TSourceSplitOptions.RegisterObject;
TSourceSplitRequest.RegisterObject;
- TSourceSplitResponse.RegisterObject;
- TSourceSplitShard.RegisterObject;
- TStatusTypedetailsItem.RegisterObject;
- TStatus.RegisterObject;
- TStepTypeproperties.RegisterObject;
- TStep.RegisterObject;
- TStreamLocation.RegisterObject;
- TStreamingComputationRanges.RegisterObject;
+ TSourceSplitOptions.RegisterObject;
+ TSourceGetMetadataRequest.RegisterObject;
TStreamingComputationTask.RegisterObject;
- TStreamingSetupTask.RegisterObject;
- TStreamingSideInputLocation.RegisterObject;
- TStreamingStageLocation.RegisterObject;
- TTaskRunnerSettings.RegisterObject;
- TTopologyConfig.RegisterObject;
- TWorkItem.RegisterObject;
- TWorkItemServiceStateTypeharnessData.RegisterObject;
- TWorkItemServiceState.RegisterObject;
- TWorkItemStatus.RegisterObject;
- TWorkerPoolTypemetadata.RegisterObject;
- TWorkerPoolTypepoolArgs.RegisterObject;
- TWorkerPool.RegisterObject;
- TWorkerSettings.RegisterObject;
- TWriteInstruction.RegisterObject;
+ TMountedDataDisk.RegisterObject;
+ TStreamingComputationRanges.RegisterObject;
+ TKeyRangeDataDiskAssignment.RegisterObject;
+ TSendWorkerMessagesRequest.RegisterObject;
+ TWorkerMessageTypelabels.RegisterObject;
+ TWorkerMessage.RegisterObject;
+ TWorkerHealthReportTypepodsItem.RegisterObject;
+ TWorkerHealthReport.RegisterObject;
+ TWorkerMessageCodeTypeparameters.RegisterObject;
+ TWorkerMessageCode.RegisterObject;
+ TSendWorkerMessagesResponse.RegisterObject;
+ TWorkerMessageResponse.RegisterObject;
+ TWorkerHealthReportResponse.RegisterObject;
end;
diff --git a/packages/googleapi/src/googledataproc.pp b/packages/googleapi/src/googledataproc.pp
new file mode 100644
index 0000000000..8906e743b3
--- /dev/null
+++ b/packages/googleapi/src/googledataproc.pp
@@ -0,0 +1,4471 @@
+unit googledataproc;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TCluster = Class;
+ TClusterConfig = Class;
+ TGceClusterConfig = Class;
+ TInstanceGroupConfig = Class;
+ TDiskConfig = Class;
+ TManagedGroupConfig = Class;
+ TSoftwareConfig = Class;
+ TNodeInitializationAction = Class;
+ TClusterStatus = Class;
+ TOperation = Class;
+ TStatus = Class;
+ TListClustersResponse = Class;
+ TDiagnoseClusterRequest = Class;
+ TSubmitJobRequest = Class;
+ TJob = Class;
+ TJobReference = Class;
+ TJobPlacement = Class;
+ THadoopJob = Class;
+ TLoggingConfig = Class;
+ TSparkJob = Class;
+ TPySparkJob = Class;
+ THiveJob = Class;
+ TQueryList = Class;
+ TPigJob = Class;
+ TSparkSqlJob = Class;
+ TJobStatus = Class;
+ TListJobsResponse = Class;
+ TCancelJobRequest = Class;
+ TEmpty = Class;
+ TListOperationsResponse = Class;
+ TDiagnoseClusterResults = Class;
+ TClusterOperationMetadata = Class;
+ TClusterOperationStatus = Class;
+ TDiagnoseClusterOutputLocation = Class;
+ TOperationMetadata = Class;
+ TOperationStatus = Class;
+ TClusterArray = Array of TCluster;
+ TClusterConfigArray = Array of TClusterConfig;
+ TGceClusterConfigArray = Array of TGceClusterConfig;
+ TInstanceGroupConfigArray = Array of TInstanceGroupConfig;
+ TDiskConfigArray = Array of TDiskConfig;
+ TManagedGroupConfigArray = Array of TManagedGroupConfig;
+ TSoftwareConfigArray = Array of TSoftwareConfig;
+ TNodeInitializationActionArray = Array of TNodeInitializationAction;
+ TClusterStatusArray = Array of TClusterStatus;
+ TOperationArray = Array of TOperation;
+ TStatusArray = Array of TStatus;
+ TListClustersResponseArray = Array of TListClustersResponse;
+ TDiagnoseClusterRequestArray = Array of TDiagnoseClusterRequest;
+ TSubmitJobRequestArray = Array of TSubmitJobRequest;
+ TJobArray = Array of TJob;
+ TJobReferenceArray = Array of TJobReference;
+ TJobPlacementArray = Array of TJobPlacement;
+ THadoopJobArray = Array of THadoopJob;
+ TLoggingConfigArray = Array of TLoggingConfig;
+ TSparkJobArray = Array of TSparkJob;
+ TPySparkJobArray = Array of TPySparkJob;
+ THiveJobArray = Array of THiveJob;
+ TQueryListArray = Array of TQueryList;
+ TPigJobArray = Array of TPigJob;
+ TSparkSqlJobArray = Array of TSparkSqlJob;
+ TJobStatusArray = Array of TJobStatus;
+ TListJobsResponseArray = Array of TListJobsResponse;
+ TCancelJobRequestArray = Array of TCancelJobRequest;
+ TEmptyArray = Array of TEmpty;
+ TListOperationsResponseArray = Array of TListOperationsResponse;
+ TDiagnoseClusterResultsArray = Array of TDiagnoseClusterResults;
+ TClusterOperationMetadataArray = Array of TClusterOperationMetadata;
+ TClusterOperationStatusArray = Array of TClusterOperationStatus;
+ TDiagnoseClusterOutputLocationArray = Array of TDiagnoseClusterOutputLocation;
+ TOperationMetadataArray = Array of TOperationMetadata;
+ TOperationStatusArray = Array of TOperationStatus;
+ //Anonymous types, using auto-generated names
+ TGceClusterConfigTypemetadata = Class;
+ TSoftwareConfigTypeproperties = Class;
+ TOperationTypemetadata = Class;
+ TOperationTyperesponse = Class;
+ TStatusTypedetailsItem = Class;
+ THadoopJobTypeproperties = Class;
+ TLoggingConfigTypedriverLogLevels = Class;
+ TSparkJobTypeproperties = Class;
+ TPySparkJobTypeproperties = Class;
+ THiveJobTypescriptVariables = Class;
+ THiveJobTypeproperties = Class;
+ TPigJobTypescriptVariables = Class;
+ TPigJobTypeproperties = Class;
+ TSparkSqlJobTypescriptVariables = Class;
+ TSparkSqlJobTypeproperties = Class;
+ TClusterTypestatusHistoryArray = Array of TClusterStatus;
+ TClusterConfigTypeinitializationActionsArray = Array of TNodeInitializationAction;
+ TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
+ TListClustersResponseTypeclustersArray = Array of TCluster;
+ TJobTypestatusHistoryArray = Array of TJobStatus;
+ TListJobsResponseTypejobsArray = Array of TJob;
+ TListOperationsResponseTypeoperationsArray = Array of TOperation;
+ TClusterOperationMetadataTypestatusHistoryArray = Array of TClusterOperationStatus;
+ TOperationMetadataTypestatusHistoryArray = Array of TOperationStatus;
+
+ { --------------------------------------------------------------------
+ TCluster
+ --------------------------------------------------------------------}
+
+ TCluster = Class(TGoogleBaseObject)
+ Private
+ FprojectId : String;
+ FclusterName : String;
+ Fconfig : TClusterConfig;
+ Fstatus : TClusterStatus;
+ FstatusHistory : TClusterTypestatusHistoryArray;
+ FclusterUuid : String;
+ Protected
+ //Property setters
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclusterName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setconfig(AIndex : Integer; const AValue : TClusterConfig); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TClusterStatus); virtual;
+ Procedure SetstatusHistory(AIndex : Integer; const AValue : TClusterTypestatusHistoryArray); virtual;
+ Procedure SetclusterUuid(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 projectId : String Index 0 Read FprojectId Write SetprojectId;
+ Property clusterName : String Index 8 Read FclusterName Write SetclusterName;
+ Property config : TClusterConfig Index 16 Read Fconfig Write Setconfig;
+ Property status : TClusterStatus Index 24 Read Fstatus Write Setstatus;
+ Property statusHistory : TClusterTypestatusHistoryArray Index 32 Read FstatusHistory Write SetstatusHistory;
+ Property clusterUuid : String Index 40 Read FclusterUuid Write SetclusterUuid;
+ end;
+ TClusterClass = Class of TCluster;
+
+ { --------------------------------------------------------------------
+ TClusterConfig
+ --------------------------------------------------------------------}
+
+ TClusterConfig = Class(TGoogleBaseObject)
+ Private
+ FconfigBucket : String;
+ FgceClusterConfig : TGceClusterConfig;
+ FmasterConfig : TInstanceGroupConfig;
+ FworkerConfig : TInstanceGroupConfig;
+ FsecondaryWorkerConfig : TInstanceGroupConfig;
+ FsoftwareConfig : TSoftwareConfig;
+ FinitializationActions : TClusterConfigTypeinitializationActionsArray;
+ Protected
+ //Property setters
+ Procedure SetconfigBucket(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetgceClusterConfig(AIndex : Integer; const AValue : TGceClusterConfig); virtual;
+ Procedure SetmasterConfig(AIndex : Integer; const AValue : TInstanceGroupConfig); virtual;
+ Procedure SetworkerConfig(AIndex : Integer; const AValue : TInstanceGroupConfig); virtual;
+ Procedure SetsecondaryWorkerConfig(AIndex : Integer; const AValue : TInstanceGroupConfig); virtual;
+ Procedure SetsoftwareConfig(AIndex : Integer; const AValue : TSoftwareConfig); virtual;
+ Procedure SetinitializationActions(AIndex : Integer; const AValue : TClusterConfigTypeinitializationActionsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property configBucket : String Index 0 Read FconfigBucket Write SetconfigBucket;
+ Property gceClusterConfig : TGceClusterConfig Index 8 Read FgceClusterConfig Write SetgceClusterConfig;
+ Property masterConfig : TInstanceGroupConfig Index 16 Read FmasterConfig Write SetmasterConfig;
+ Property workerConfig : TInstanceGroupConfig Index 24 Read FworkerConfig Write SetworkerConfig;
+ Property secondaryWorkerConfig : TInstanceGroupConfig Index 32 Read FsecondaryWorkerConfig Write SetsecondaryWorkerConfig;
+ Property softwareConfig : TSoftwareConfig Index 40 Read FsoftwareConfig Write SetsoftwareConfig;
+ Property initializationActions : TClusterConfigTypeinitializationActionsArray Index 48 Read FinitializationActions Write SetinitializationActions;
+ end;
+ TClusterConfigClass = Class of TClusterConfig;
+
+ { --------------------------------------------------------------------
+ TGceClusterConfigTypemetadata
+ --------------------------------------------------------------------}
+
+ TGceClusterConfigTypemetadata = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TGceClusterConfigTypemetadataClass = Class of TGceClusterConfigTypemetadata;
+
+ { --------------------------------------------------------------------
+ TGceClusterConfig
+ --------------------------------------------------------------------}
+
+ TGceClusterConfig = Class(TGoogleBaseObject)
+ Private
+ FzoneUri : String;
+ FnetworkUri : String;
+ FsubnetworkUri : String;
+ FserviceAccountScopes : TStringArray;
+ Ftags : TStringArray;
+ Fmetadata : TGceClusterConfigTypemetadata;
+ Protected
+ //Property setters
+ Procedure SetzoneUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnetworkUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsubnetworkUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetserviceAccountScopes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Settags(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TGceClusterConfigTypemetadata); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property zoneUri : String Index 0 Read FzoneUri Write SetzoneUri;
+ Property networkUri : String Index 8 Read FnetworkUri Write SetnetworkUri;
+ Property subnetworkUri : String Index 16 Read FsubnetworkUri Write SetsubnetworkUri;
+ Property serviceAccountScopes : TStringArray Index 24 Read FserviceAccountScopes Write SetserviceAccountScopes;
+ Property tags : TStringArray Index 32 Read Ftags Write Settags;
+ Property metadata : TGceClusterConfigTypemetadata Index 40 Read Fmetadata Write Setmetadata;
+ end;
+ TGceClusterConfigClass = Class of TGceClusterConfig;
+
+ { --------------------------------------------------------------------
+ TInstanceGroupConfig
+ --------------------------------------------------------------------}
+
+ TInstanceGroupConfig = Class(TGoogleBaseObject)
+ Private
+ FnumInstances : integer;
+ FinstanceNames : TStringArray;
+ FimageUri : String;
+ FmachineTypeUri : String;
+ FdiskConfig : TDiskConfig;
+ FisPreemptible : boolean;
+ FmanagedGroupConfig : TManagedGroupConfig;
+ Protected
+ //Property setters
+ Procedure SetnumInstances(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetinstanceNames(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetimageUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmachineTypeUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdiskConfig(AIndex : Integer; const AValue : TDiskConfig); virtual;
+ Procedure SetisPreemptible(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetmanagedGroupConfig(AIndex : Integer; const AValue : TManagedGroupConfig); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property numInstances : integer Index 0 Read FnumInstances Write SetnumInstances;
+ Property instanceNames : TStringArray Index 8 Read FinstanceNames Write SetinstanceNames;
+ Property imageUri : String Index 16 Read FimageUri Write SetimageUri;
+ Property machineTypeUri : String Index 24 Read FmachineTypeUri Write SetmachineTypeUri;
+ Property diskConfig : TDiskConfig Index 32 Read FdiskConfig Write SetdiskConfig;
+ Property isPreemptible : boolean Index 40 Read FisPreemptible Write SetisPreemptible;
+ Property managedGroupConfig : TManagedGroupConfig Index 48 Read FmanagedGroupConfig Write SetmanagedGroupConfig;
+ end;
+ TInstanceGroupConfigClass = Class of TInstanceGroupConfig;
+
+ { --------------------------------------------------------------------
+ TDiskConfig
+ --------------------------------------------------------------------}
+
+ TDiskConfig = Class(TGoogleBaseObject)
+ Private
+ FbootDiskSizeGb : integer;
+ FnumLocalSsds : integer;
+ Protected
+ //Property setters
+ Procedure SetbootDiskSizeGb(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumLocalSsds(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property bootDiskSizeGb : integer Index 0 Read FbootDiskSizeGb Write SetbootDiskSizeGb;
+ Property numLocalSsds : integer Index 8 Read FnumLocalSsds Write SetnumLocalSsds;
+ end;
+ TDiskConfigClass = Class of TDiskConfig;
+
+ { --------------------------------------------------------------------
+ TManagedGroupConfig
+ --------------------------------------------------------------------}
+
+ TManagedGroupConfig = Class(TGoogleBaseObject)
+ Private
+ FinstanceTemplateName : String;
+ FinstanceGroupManagerName : String;
+ Protected
+ //Property setters
+ Procedure SetinstanceTemplateName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceGroupManagerName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property instanceTemplateName : String Index 0 Read FinstanceTemplateName Write SetinstanceTemplateName;
+ Property instanceGroupManagerName : String Index 8 Read FinstanceGroupManagerName Write SetinstanceGroupManagerName;
+ end;
+ TManagedGroupConfigClass = Class of TManagedGroupConfig;
+
+ { --------------------------------------------------------------------
+ TSoftwareConfigTypeproperties
+ --------------------------------------------------------------------}
+
+ TSoftwareConfigTypeproperties = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TSoftwareConfigTypepropertiesClass = Class of TSoftwareConfigTypeproperties;
+
+ { --------------------------------------------------------------------
+ TSoftwareConfig
+ --------------------------------------------------------------------}
+
+ TSoftwareConfig = Class(TGoogleBaseObject)
+ Private
+ FimageVersion : String;
+ Fproperties : TSoftwareConfigTypeproperties;
+ Protected
+ //Property setters
+ Procedure SetimageVersion(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TSoftwareConfigTypeproperties); virtual;
+ Public
+ Published
+ Property imageVersion : String Index 0 Read FimageVersion Write SetimageVersion;
+ Property properties : TSoftwareConfigTypeproperties Index 8 Read Fproperties Write Setproperties;
+ end;
+ TSoftwareConfigClass = Class of TSoftwareConfig;
+
+ { --------------------------------------------------------------------
+ TNodeInitializationAction
+ --------------------------------------------------------------------}
+
+ TNodeInitializationAction = Class(TGoogleBaseObject)
+ Private
+ FexecutableFile : String;
+ FexecutionTimeout : String;
+ Protected
+ //Property setters
+ Procedure SetexecutableFile(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexecutionTimeout(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property executableFile : String Index 0 Read FexecutableFile Write SetexecutableFile;
+ Property executionTimeout : String Index 8 Read FexecutionTimeout Write SetexecutionTimeout;
+ end;
+ TNodeInitializationActionClass = Class of TNodeInitializationAction;
+
+ { --------------------------------------------------------------------
+ TClusterStatus
+ --------------------------------------------------------------------}
+
+ TClusterStatus = Class(TGoogleBaseObject)
+ Private
+ Fstate : String;
+ Fdetail : String;
+ FstateStartTime : String;
+ Protected
+ //Property setters
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstateStartTime(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property state : String Index 0 Read Fstate Write Setstate;
+ Property detail : String Index 8 Read Fdetail Write Setdetail;
+ Property stateStartTime : String Index 16 Read FstateStartTime Write SetstateStartTime;
+ end;
+ TClusterStatusClass = Class of TClusterStatus;
+
+ { --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+ TOperationTypemetadata = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTypemetadataClass = Class of TOperationTypemetadata;
+
+ { --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+ TOperationTyperesponse = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTyperesponseClass = Class of TOperationTyperesponse;
+
+ { --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+ TOperation = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fmetadata : TOperationTypemetadata;
+ Fdone : boolean;
+ Ferror : TStatus;
+ Fresponse : TOperationTyperesponse;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); virtual;
+ Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
+ Procedure Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property metadata : TOperationTypemetadata Index 8 Read Fmetadata Write Setmetadata;
+ Property done : boolean Index 16 Read Fdone Write Setdone;
+ Property error : TStatus Index 24 Read Ferror Write Seterror;
+ Property response : TOperationTyperesponse Index 32 Read Fresponse Write Setresponse;
+ end;
+ TOperationClass = Class of TOperation;
+
+ { --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+ TStatusTypedetailsItem = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
+
+ { --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+ TStatus = Class(TGoogleBaseObject)
+ Private
+ Fcode : integer;
+ Fmessage : String;
+ Fdetails : TStatusTypedetailsArray;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property code : integer Index 0 Read Fcode Write Setcode;
+ Property message : String Index 8 Read Fmessage Write Setmessage;
+ Property details : TStatusTypedetailsArray Index 16 Read Fdetails Write Setdetails;
+ end;
+ TStatusClass = Class of TStatus;
+
+ { --------------------------------------------------------------------
+ TListClustersResponse
+ --------------------------------------------------------------------}
+
+ TListClustersResponse = Class(TGoogleBaseObject)
+ Private
+ Fclusters : TListClustersResponseTypeclustersArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setclusters(AIndex : Integer; const AValue : TListClustersResponseTypeclustersArray); 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 clusters : TListClustersResponseTypeclustersArray Index 0 Read Fclusters Write Setclusters;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListClustersResponseClass = Class of TListClustersResponse;
+
+ { --------------------------------------------------------------------
+ TDiagnoseClusterRequest
+ --------------------------------------------------------------------}
+
+ TDiagnoseClusterRequest = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TDiagnoseClusterRequestClass = Class of TDiagnoseClusterRequest;
+
+ { --------------------------------------------------------------------
+ TSubmitJobRequest
+ --------------------------------------------------------------------}
+
+ TSubmitJobRequest = Class(TGoogleBaseObject)
+ Private
+ Fjob : TJob;
+ Protected
+ //Property setters
+ Procedure Setjob(AIndex : Integer; const AValue : TJob); virtual;
+ Public
+ Published
+ Property job : TJob Index 0 Read Fjob Write Setjob;
+ end;
+ TSubmitJobRequestClass = Class of TSubmitJobRequest;
+
+ { --------------------------------------------------------------------
+ TJob
+ --------------------------------------------------------------------}
+
+ TJob = Class(TGoogleBaseObject)
+ Private
+ Freference : TJobReference;
+ Fplacement : TJobPlacement;
+ FhadoopJob : THadoopJob;
+ FsparkJob : TSparkJob;
+ FpysparkJob : TPySparkJob;
+ FhiveJob : THiveJob;
+ FpigJob : TPigJob;
+ FsparkSqlJob : TSparkSqlJob;
+ Fstatus : TJobStatus;
+ FstatusHistory : TJobTypestatusHistoryArray;
+ FdriverOutputResourceUri : String;
+ FdriverControlFilesUri : String;
+ Protected
+ //Property setters
+ Procedure Setreference(AIndex : Integer; const AValue : TJobReference); virtual;
+ Procedure Setplacement(AIndex : Integer; const AValue : TJobPlacement); virtual;
+ Procedure SethadoopJob(AIndex : Integer; const AValue : THadoopJob); virtual;
+ Procedure SetsparkJob(AIndex : Integer; const AValue : TSparkJob); virtual;
+ Procedure SetpysparkJob(AIndex : Integer; const AValue : TPySparkJob); virtual;
+ Procedure SethiveJob(AIndex : Integer; const AValue : THiveJob); virtual;
+ Procedure SetpigJob(AIndex : Integer; const AValue : TPigJob); virtual;
+ Procedure SetsparkSqlJob(AIndex : Integer; const AValue : TSparkSqlJob); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TJobStatus); virtual;
+ Procedure SetstatusHistory(AIndex : Integer; const AValue : TJobTypestatusHistoryArray); virtual;
+ Procedure SetdriverOutputResourceUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdriverControlFilesUri(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 reference : TJobReference Index 0 Read Freference Write Setreference;
+ Property placement : TJobPlacement Index 8 Read Fplacement Write Setplacement;
+ Property hadoopJob : THadoopJob Index 16 Read FhadoopJob Write SethadoopJob;
+ Property sparkJob : TSparkJob Index 24 Read FsparkJob Write SetsparkJob;
+ Property pysparkJob : TPySparkJob Index 32 Read FpysparkJob Write SetpysparkJob;
+ Property hiveJob : THiveJob Index 40 Read FhiveJob Write SethiveJob;
+ Property pigJob : TPigJob Index 48 Read FpigJob Write SetpigJob;
+ Property sparkSqlJob : TSparkSqlJob Index 56 Read FsparkSqlJob Write SetsparkSqlJob;
+ Property status : TJobStatus Index 64 Read Fstatus Write Setstatus;
+ Property statusHistory : TJobTypestatusHistoryArray Index 72 Read FstatusHistory Write SetstatusHistory;
+ Property driverOutputResourceUri : String Index 80 Read FdriverOutputResourceUri Write SetdriverOutputResourceUri;
+ Property driverControlFilesUri : String Index 88 Read FdriverControlFilesUri Write SetdriverControlFilesUri;
+ end;
+ TJobClass = Class of TJob;
+
+ { --------------------------------------------------------------------
+ TJobReference
+ --------------------------------------------------------------------}
+
+ TJobReference = Class(TGoogleBaseObject)
+ Private
+ FprojectId : String;
+ FjobId : String;
+ Protected
+ //Property setters
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property projectId : String Index 0 Read FprojectId Write SetprojectId;
+ Property jobId : String Index 8 Read FjobId Write SetjobId;
+ end;
+ TJobReferenceClass = Class of TJobReference;
+
+ { --------------------------------------------------------------------
+ TJobPlacement
+ --------------------------------------------------------------------}
+
+ TJobPlacement = Class(TGoogleBaseObject)
+ Private
+ FclusterName : String;
+ FclusterUuid : String;
+ Protected
+ //Property setters
+ Procedure SetclusterName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclusterUuid(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property clusterName : String Index 0 Read FclusterName Write SetclusterName;
+ Property clusterUuid : String Index 8 Read FclusterUuid Write SetclusterUuid;
+ end;
+ TJobPlacementClass = Class of TJobPlacement;
+
+ { --------------------------------------------------------------------
+ THadoopJobTypeproperties
+ --------------------------------------------------------------------}
+
+ THadoopJobTypeproperties = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ THadoopJobTypepropertiesClass = Class of THadoopJobTypeproperties;
+
+ { --------------------------------------------------------------------
+ THadoopJob
+ --------------------------------------------------------------------}
+
+ THadoopJob = Class(TGoogleBaseObject)
+ Private
+ FmainJarFileUri : String;
+ FmainClass : String;
+ Fargs : TStringArray;
+ FjarFileUris : TStringArray;
+ FfileUris : TStringArray;
+ FarchiveUris : TStringArray;
+ Fproperties : THadoopJobTypeproperties;
+ FloggingConfig : TLoggingConfig;
+ Protected
+ //Property setters
+ Procedure SetmainJarFileUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmainClass(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setargs(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetjarFileUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetfileUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetarchiveUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : THadoopJobTypeproperties); virtual;
+ Procedure SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property mainJarFileUri : String Index 0 Read FmainJarFileUri Write SetmainJarFileUri;
+ Property mainClass : String Index 8 Read FmainClass Write SetmainClass;
+ Property args : TStringArray Index 16 Read Fargs Write Setargs;
+ Property jarFileUris : TStringArray Index 24 Read FjarFileUris Write SetjarFileUris;
+ Property fileUris : TStringArray Index 32 Read FfileUris Write SetfileUris;
+ Property archiveUris : TStringArray Index 40 Read FarchiveUris Write SetarchiveUris;
+ Property properties : THadoopJobTypeproperties Index 48 Read Fproperties Write Setproperties;
+ Property loggingConfig : TLoggingConfig Index 56 Read FloggingConfig Write SetloggingConfig;
+ end;
+ THadoopJobClass = Class of THadoopJob;
+
+ { --------------------------------------------------------------------
+ TLoggingConfigTypedriverLogLevels
+ --------------------------------------------------------------------}
+
+ TLoggingConfigTypedriverLogLevels = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TLoggingConfigTypedriverLogLevelsClass = Class of TLoggingConfigTypedriverLogLevels;
+
+ { --------------------------------------------------------------------
+ TLoggingConfig
+ --------------------------------------------------------------------}
+
+ TLoggingConfig = Class(TGoogleBaseObject)
+ Private
+ FdriverLogLevels : TLoggingConfigTypedriverLogLevels;
+ Protected
+ //Property setters
+ Procedure SetdriverLogLevels(AIndex : Integer; const AValue : TLoggingConfigTypedriverLogLevels); virtual;
+ Public
+ Published
+ Property driverLogLevels : TLoggingConfigTypedriverLogLevels Index 0 Read FdriverLogLevels Write SetdriverLogLevels;
+ end;
+ TLoggingConfigClass = Class of TLoggingConfig;
+
+ { --------------------------------------------------------------------
+ TSparkJobTypeproperties
+ --------------------------------------------------------------------}
+
+ TSparkJobTypeproperties = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TSparkJobTypepropertiesClass = Class of TSparkJobTypeproperties;
+
+ { --------------------------------------------------------------------
+ TSparkJob
+ --------------------------------------------------------------------}
+
+ TSparkJob = Class(TGoogleBaseObject)
+ Private
+ FmainJarFileUri : String;
+ FmainClass : String;
+ Fargs : TStringArray;
+ FjarFileUris : TStringArray;
+ FfileUris : TStringArray;
+ FarchiveUris : TStringArray;
+ Fproperties : TSparkJobTypeproperties;
+ FloggingConfig : TLoggingConfig;
+ Protected
+ //Property setters
+ Procedure SetmainJarFileUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmainClass(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setargs(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetjarFileUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetfileUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetarchiveUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TSparkJobTypeproperties); virtual;
+ Procedure SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property mainJarFileUri : String Index 0 Read FmainJarFileUri Write SetmainJarFileUri;
+ Property mainClass : String Index 8 Read FmainClass Write SetmainClass;
+ Property args : TStringArray Index 16 Read Fargs Write Setargs;
+ Property jarFileUris : TStringArray Index 24 Read FjarFileUris Write SetjarFileUris;
+ Property fileUris : TStringArray Index 32 Read FfileUris Write SetfileUris;
+ Property archiveUris : TStringArray Index 40 Read FarchiveUris Write SetarchiveUris;
+ Property properties : TSparkJobTypeproperties Index 48 Read Fproperties Write Setproperties;
+ Property loggingConfig : TLoggingConfig Index 56 Read FloggingConfig Write SetloggingConfig;
+ end;
+ TSparkJobClass = Class of TSparkJob;
+
+ { --------------------------------------------------------------------
+ TPySparkJobTypeproperties
+ --------------------------------------------------------------------}
+
+ TPySparkJobTypeproperties = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TPySparkJobTypepropertiesClass = Class of TPySparkJobTypeproperties;
+
+ { --------------------------------------------------------------------
+ TPySparkJob
+ --------------------------------------------------------------------}
+
+ TPySparkJob = Class(TGoogleBaseObject)
+ Private
+ FmainPythonFileUri : String;
+ Fargs : TStringArray;
+ FpythonFileUris : TStringArray;
+ FjarFileUris : TStringArray;
+ FfileUris : TStringArray;
+ FarchiveUris : TStringArray;
+ Fproperties : TPySparkJobTypeproperties;
+ FloggingConfig : TLoggingConfig;
+ Protected
+ //Property setters
+ Procedure SetmainPythonFileUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setargs(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetpythonFileUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetjarFileUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetfileUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetarchiveUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TPySparkJobTypeproperties); virtual;
+ Procedure SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property mainPythonFileUri : String Index 0 Read FmainPythonFileUri Write SetmainPythonFileUri;
+ Property args : TStringArray Index 8 Read Fargs Write Setargs;
+ Property pythonFileUris : TStringArray Index 16 Read FpythonFileUris Write SetpythonFileUris;
+ Property jarFileUris : TStringArray Index 24 Read FjarFileUris Write SetjarFileUris;
+ Property fileUris : TStringArray Index 32 Read FfileUris Write SetfileUris;
+ Property archiveUris : TStringArray Index 40 Read FarchiveUris Write SetarchiveUris;
+ Property properties : TPySparkJobTypeproperties Index 48 Read Fproperties Write Setproperties;
+ Property loggingConfig : TLoggingConfig Index 56 Read FloggingConfig Write SetloggingConfig;
+ end;
+ TPySparkJobClass = Class of TPySparkJob;
+
+ { --------------------------------------------------------------------
+ THiveJobTypescriptVariables
+ --------------------------------------------------------------------}
+
+ THiveJobTypescriptVariables = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ THiveJobTypescriptVariablesClass = Class of THiveJobTypescriptVariables;
+
+ { --------------------------------------------------------------------
+ THiveJobTypeproperties
+ --------------------------------------------------------------------}
+
+ THiveJobTypeproperties = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ THiveJobTypepropertiesClass = Class of THiveJobTypeproperties;
+
+ { --------------------------------------------------------------------
+ THiveJob
+ --------------------------------------------------------------------}
+
+ THiveJob = Class(TGoogleBaseObject)
+ Private
+ FqueryFileUri : String;
+ FqueryList : TQueryList;
+ FcontinueOnFailure : boolean;
+ FscriptVariables : THiveJobTypescriptVariables;
+ Fproperties : THiveJobTypeproperties;
+ FjarFileUris : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetqueryFileUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetqueryList(AIndex : Integer; const AValue : TQueryList); virtual;
+ Procedure SetcontinueOnFailure(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetscriptVariables(AIndex : Integer; const AValue : THiveJobTypescriptVariables); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : THiveJobTypeproperties); virtual;
+ Procedure SetjarFileUris(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 queryFileUri : String Index 0 Read FqueryFileUri Write SetqueryFileUri;
+ Property queryList : TQueryList Index 8 Read FqueryList Write SetqueryList;
+ Property continueOnFailure : boolean Index 16 Read FcontinueOnFailure Write SetcontinueOnFailure;
+ Property scriptVariables : THiveJobTypescriptVariables Index 24 Read FscriptVariables Write SetscriptVariables;
+ Property properties : THiveJobTypeproperties Index 32 Read Fproperties Write Setproperties;
+ Property jarFileUris : TStringArray Index 40 Read FjarFileUris Write SetjarFileUris;
+ end;
+ THiveJobClass = Class of THiveJob;
+
+ { --------------------------------------------------------------------
+ TQueryList
+ --------------------------------------------------------------------}
+
+ TQueryList = Class(TGoogleBaseObject)
+ Private
+ Fqueries : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setqueries(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 queries : TStringArray Index 0 Read Fqueries Write Setqueries;
+ end;
+ TQueryListClass = Class of TQueryList;
+
+ { --------------------------------------------------------------------
+ TPigJobTypescriptVariables
+ --------------------------------------------------------------------}
+
+ TPigJobTypescriptVariables = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TPigJobTypescriptVariablesClass = Class of TPigJobTypescriptVariables;
+
+ { --------------------------------------------------------------------
+ TPigJobTypeproperties
+ --------------------------------------------------------------------}
+
+ TPigJobTypeproperties = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TPigJobTypepropertiesClass = Class of TPigJobTypeproperties;
+
+ { --------------------------------------------------------------------
+ TPigJob
+ --------------------------------------------------------------------}
+
+ TPigJob = Class(TGoogleBaseObject)
+ Private
+ FqueryFileUri : String;
+ FqueryList : TQueryList;
+ FcontinueOnFailure : boolean;
+ FscriptVariables : TPigJobTypescriptVariables;
+ Fproperties : TPigJobTypeproperties;
+ FjarFileUris : TStringArray;
+ FloggingConfig : TLoggingConfig;
+ Protected
+ //Property setters
+ Procedure SetqueryFileUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetqueryList(AIndex : Integer; const AValue : TQueryList); virtual;
+ Procedure SetcontinueOnFailure(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetscriptVariables(AIndex : Integer; const AValue : TPigJobTypescriptVariables); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TPigJobTypeproperties); virtual;
+ Procedure SetjarFileUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property queryFileUri : String Index 0 Read FqueryFileUri Write SetqueryFileUri;
+ Property queryList : TQueryList Index 8 Read FqueryList Write SetqueryList;
+ Property continueOnFailure : boolean Index 16 Read FcontinueOnFailure Write SetcontinueOnFailure;
+ Property scriptVariables : TPigJobTypescriptVariables Index 24 Read FscriptVariables Write SetscriptVariables;
+ Property properties : TPigJobTypeproperties Index 32 Read Fproperties Write Setproperties;
+ Property jarFileUris : TStringArray Index 40 Read FjarFileUris Write SetjarFileUris;
+ Property loggingConfig : TLoggingConfig Index 48 Read FloggingConfig Write SetloggingConfig;
+ end;
+ TPigJobClass = Class of TPigJob;
+
+ { --------------------------------------------------------------------
+ TSparkSqlJobTypescriptVariables
+ --------------------------------------------------------------------}
+
+ TSparkSqlJobTypescriptVariables = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TSparkSqlJobTypescriptVariablesClass = Class of TSparkSqlJobTypescriptVariables;
+
+ { --------------------------------------------------------------------
+ TSparkSqlJobTypeproperties
+ --------------------------------------------------------------------}
+
+ TSparkSqlJobTypeproperties = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TSparkSqlJobTypepropertiesClass = Class of TSparkSqlJobTypeproperties;
+
+ { --------------------------------------------------------------------
+ TSparkSqlJob
+ --------------------------------------------------------------------}
+
+ TSparkSqlJob = Class(TGoogleBaseObject)
+ Private
+ FqueryFileUri : String;
+ FqueryList : TQueryList;
+ FscriptVariables : TSparkSqlJobTypescriptVariables;
+ Fproperties : TSparkSqlJobTypeproperties;
+ FjarFileUris : TStringArray;
+ FloggingConfig : TLoggingConfig;
+ Protected
+ //Property setters
+ Procedure SetqueryFileUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetqueryList(AIndex : Integer; const AValue : TQueryList); virtual;
+ Procedure SetscriptVariables(AIndex : Integer; const AValue : TSparkSqlJobTypescriptVariables); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TSparkSqlJobTypeproperties); virtual;
+ Procedure SetjarFileUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property queryFileUri : String Index 0 Read FqueryFileUri Write SetqueryFileUri;
+ Property queryList : TQueryList Index 8 Read FqueryList Write SetqueryList;
+ Property scriptVariables : TSparkSqlJobTypescriptVariables Index 16 Read FscriptVariables Write SetscriptVariables;
+ Property properties : TSparkSqlJobTypeproperties Index 24 Read Fproperties Write Setproperties;
+ Property jarFileUris : TStringArray Index 32 Read FjarFileUris Write SetjarFileUris;
+ Property loggingConfig : TLoggingConfig Index 40 Read FloggingConfig Write SetloggingConfig;
+ end;
+ TSparkSqlJobClass = Class of TSparkSqlJob;
+
+ { --------------------------------------------------------------------
+ TJobStatus
+ --------------------------------------------------------------------}
+
+ TJobStatus = Class(TGoogleBaseObject)
+ Private
+ Fstate : String;
+ Fdetails : String;
+ FstateStartTime : String;
+ Protected
+ //Property setters
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstateStartTime(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property state : String Index 0 Read Fstate Write Setstate;
+ Property details : String Index 8 Read Fdetails Write Setdetails;
+ Property stateStartTime : String Index 16 Read FstateStartTime Write SetstateStartTime;
+ end;
+ TJobStatusClass = Class of TJobStatus;
+
+ { --------------------------------------------------------------------
+ TListJobsResponse
+ --------------------------------------------------------------------}
+
+ TListJobsResponse = Class(TGoogleBaseObject)
+ Private
+ Fjobs : TListJobsResponseTypejobsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setjobs(AIndex : Integer; const AValue : TListJobsResponseTypejobsArray); 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 jobs : TListJobsResponseTypejobsArray Index 0 Read Fjobs Write Setjobs;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListJobsResponseClass = Class of TListJobsResponse;
+
+ { --------------------------------------------------------------------
+ TCancelJobRequest
+ --------------------------------------------------------------------}
+
+ TCancelJobRequest = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TCancelJobRequestClass = Class of TCancelJobRequest;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TListOperationsResponse
+ --------------------------------------------------------------------}
+
+ TListOperationsResponse = Class(TGoogleBaseObject)
+ Private
+ Foperations : TListOperationsResponseTypeoperationsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray); 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 operations : TListOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListOperationsResponseClass = Class of TListOperationsResponse;
+
+ { --------------------------------------------------------------------
+ TDiagnoseClusterResults
+ --------------------------------------------------------------------}
+
+ TDiagnoseClusterResults = Class(TGoogleBaseObject)
+ Private
+ FoutputUri : String;
+ Protected
+ //Property setters
+ Procedure SetoutputUri(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property outputUri : String Index 0 Read FoutputUri Write SetoutputUri;
+ end;
+ TDiagnoseClusterResultsClass = Class of TDiagnoseClusterResults;
+
+ { --------------------------------------------------------------------
+ TClusterOperationMetadata
+ --------------------------------------------------------------------}
+
+ TClusterOperationMetadata = Class(TGoogleBaseObject)
+ Private
+ FclusterName : String;
+ FclusterUuid : String;
+ Fstatus : TClusterOperationStatus;
+ FstatusHistory : TClusterOperationMetadataTypestatusHistoryArray;
+ FoperationType : String;
+ Fdescription : String;
+ Protected
+ //Property setters
+ Procedure SetclusterName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclusterUuid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TClusterOperationStatus); virtual;
+ Procedure SetstatusHistory(AIndex : Integer; const AValue : TClusterOperationMetadataTypestatusHistoryArray); virtual;
+ Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(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 clusterName : String Index 0 Read FclusterName Write SetclusterName;
+ Property clusterUuid : String Index 8 Read FclusterUuid Write SetclusterUuid;
+ Property status : TClusterOperationStatus Index 16 Read Fstatus Write Setstatus;
+ Property statusHistory : TClusterOperationMetadataTypestatusHistoryArray Index 24 Read FstatusHistory Write SetstatusHistory;
+ Property operationType : String Index 32 Read FoperationType Write SetoperationType;
+ Property description : String Index 40 Read Fdescription Write Setdescription;
+ end;
+ TClusterOperationMetadataClass = Class of TClusterOperationMetadata;
+
+ { --------------------------------------------------------------------
+ TClusterOperationStatus
+ --------------------------------------------------------------------}
+
+ TClusterOperationStatus = Class(TGoogleBaseObject)
+ Private
+ Fstate : String;
+ FinnerState : String;
+ Fdetails : String;
+ FstateStartTime : String;
+ Protected
+ //Property setters
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinnerState(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstateStartTime(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property state : String Index 0 Read Fstate Write Setstate;
+ Property innerState : String Index 8 Read FinnerState Write SetinnerState;
+ Property details : String Index 16 Read Fdetails Write Setdetails;
+ Property stateStartTime : String Index 24 Read FstateStartTime Write SetstateStartTime;
+ end;
+ TClusterOperationStatusClass = Class of TClusterOperationStatus;
+
+ { --------------------------------------------------------------------
+ TDiagnoseClusterOutputLocation
+ --------------------------------------------------------------------}
+
+ TDiagnoseClusterOutputLocation = Class(TGoogleBaseObject)
+ Private
+ FoutputUri : String;
+ Protected
+ //Property setters
+ Procedure SetoutputUri(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property outputUri : String Index 0 Read FoutputUri Write SetoutputUri;
+ end;
+ TDiagnoseClusterOutputLocationClass = Class of TDiagnoseClusterOutputLocation;
+
+ { --------------------------------------------------------------------
+ TOperationMetadata
+ --------------------------------------------------------------------}
+
+ TOperationMetadata = Class(TGoogleBaseObject)
+ Private
+ Fstate : String;
+ FinnerState : String;
+ Fdetails : String;
+ FinsertTime : String;
+ FstartTime : String;
+ FendTime : String;
+ FclusterName : String;
+ FclusterUuid : String;
+ Fstatus : TOperationStatus;
+ FstatusHistory : TOperationMetadataTypestatusHistoryArray;
+ FoperationType : String;
+ Fdescription : String;
+ Protected
+ //Property setters
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinnerState(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclusterName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclusterUuid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TOperationStatus); virtual;
+ Procedure SetstatusHistory(AIndex : Integer; const AValue : TOperationMetadataTypestatusHistoryArray); virtual;
+ Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(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 state : String Index 0 Read Fstate Write Setstate;
+ Property innerState : String Index 8 Read FinnerState Write SetinnerState;
+ Property details : String Index 16 Read Fdetails Write Setdetails;
+ Property insertTime : String Index 24 Read FinsertTime Write SetinsertTime;
+ Property startTime : String Index 32 Read FstartTime Write SetstartTime;
+ Property endTime : String Index 40 Read FendTime Write SetendTime;
+ Property clusterName : String Index 48 Read FclusterName Write SetclusterName;
+ Property clusterUuid : String Index 56 Read FclusterUuid Write SetclusterUuid;
+ Property status : TOperationStatus Index 64 Read Fstatus Write Setstatus;
+ Property statusHistory : TOperationMetadataTypestatusHistoryArray Index 72 Read FstatusHistory Write SetstatusHistory;
+ Property operationType : String Index 80 Read FoperationType Write SetoperationType;
+ Property description : String Index 88 Read Fdescription Write Setdescription;
+ end;
+ TOperationMetadataClass = Class of TOperationMetadata;
+
+ { --------------------------------------------------------------------
+ TOperationStatus
+ --------------------------------------------------------------------}
+
+ TOperationStatus = Class(TGoogleBaseObject)
+ Private
+ Fstate : String;
+ FinnerState : String;
+ Fdetails : String;
+ FstateStartTime : String;
+ Protected
+ //Property setters
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinnerState(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstateStartTime(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property state : String Index 0 Read Fstate Write Setstate;
+ Property innerState : String Index 8 Read FinnerState Write SetinnerState;
+ Property details : String Index 16 Read Fdetails Write Setdetails;
+ Property stateStartTime : String Index 24 Read FstateStartTime Write SetstateStartTime;
+ end;
+ TOperationStatusClass = Class of TOperationStatus;
+
+ { --------------------------------------------------------------------
+ TProjectsRegionsClustersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsRegionsClustersResource, method Patch
+
+ TProjectsRegionsClustersPatchOptions = Record
+ updateMask : String;
+ end;
+
+
+ //Optional query Options for TProjectsRegionsClustersResource, method List
+
+ TProjectsRegionsClustersListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsRegionsClustersResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(projectId: string; region: string; aCluster : TCluster) : TOperation;overload;
+ Function Patch(projectId: string; region: string; clusterName: string; aCluster : TCluster; AQuery : string = '') : TOperation;
+ Function Patch(projectId: string; region: string; clusterName: string; aCluster : TCluster; AQuery : TProjectsRegionsClusterspatchOptions) : TOperation;
+ Function Delete(projectId: string; region: string; clusterName: string) : TOperation;
+ Function Get(projectId: string; region: string; clusterName: string) : TCluster;
+ Function List(projectId: string; region: string; AQuery : string = '') : TListClustersResponse;
+ Function List(projectId: string; region: string; AQuery : TProjectsRegionsClusterslistOptions) : TListClustersResponse;
+ Function Diagnose(projectId: string; region: string; clusterName: string; aDiagnoseClusterRequest : TDiagnoseClusterRequest) : TOperation;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsRegionsJobsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsRegionsJobsResource, method List
+
+ TProjectsRegionsJobsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ clusterName : String;
+ jobStateMatcher : String;
+ end;
+
+ TProjectsRegionsJobsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Submit(projectId: string; region: string; aSubmitJobRequest : TSubmitJobRequest) : TJob;
+ Function Get(projectId: string; region: string; jobId: string) : TJob;
+ Function List(projectId: string; region: string; AQuery : string = '') : TListJobsResponse;
+ Function List(projectId: string; region: string; AQuery : TProjectsRegionsJobslistOptions) : TListJobsResponse;
+ Function Cancel(projectId: string; region: string; jobId: string; aCancelJobRequest : TCancelJobRequest) : TJob;
+ Function Delete(projectId: string; region: string; jobId: string) : TEmpty;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsRegionsOperationsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsRegionsOperationsResource, method List
+
+ TProjectsRegionsOperationsListOptions = Record
+ filter : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsRegionsOperationsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(_name: string) : TOperation;
+ Function List(_name: string; AQuery : string = '') : TListOperationsResponse;
+ Function List(_name: string; AQuery : TProjectsRegionsOperationslistOptions) : TListOperationsResponse;
+ Function Cancel(_name: string) : TEmpty;
+ Function Delete(_name: string) : TEmpty;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsRegionsResource
+ --------------------------------------------------------------------}
+
+ TProjectsRegionsResource = Class(TGoogleResource)
+ Private
+ FClustersInstance : TProjectsRegionsClustersResource;
+ FJobsInstance : TProjectsRegionsJobsResource;
+ FOperationsInstance : TProjectsRegionsOperationsResource;
+ Function GetClustersInstance : TProjectsRegionsClustersResource;virtual;
+ Function GetJobsInstance : TProjectsRegionsJobsResource;virtual;
+ Function GetOperationsInstance : TProjectsRegionsOperationsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CreateClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource;virtual;overload;
+ Function CreateClustersResource : TProjectsRegionsClustersResource;virtual;overload;
+ Function CreateJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource;virtual;overload;
+ Function CreateJobsResource : TProjectsRegionsJobsResource;virtual;overload;
+ Function CreateOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource;virtual;overload;
+ Function CreateOperationsResource : TProjectsRegionsOperationsResource;virtual;overload;
+ Property ClustersResource : TProjectsRegionsClustersResource Read GetClustersInstance;
+ Property JobsResource : TProjectsRegionsJobsResource Read GetJobsInstance;
+ Property OperationsResource : TProjectsRegionsOperationsResource Read GetOperationsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+ TProjectsResource = Class(TGoogleResource)
+ Private
+ FRegionsClustersInstance : TProjectsRegionsClustersResource;
+ FRegionsJobsInstance : TProjectsRegionsJobsResource;
+ FRegionsOperationsInstance : TProjectsRegionsOperationsResource;
+ FRegionsInstance : TProjectsRegionsResource;
+ Function GetRegionsClustersInstance : TProjectsRegionsClustersResource;virtual;
+ Function GetRegionsJobsInstance : TProjectsRegionsJobsResource;virtual;
+ Function GetRegionsOperationsInstance : TProjectsRegionsOperationsResource;virtual;
+ Function GetRegionsInstance : TProjectsRegionsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CreateRegionsClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource;virtual;overload;
+ Function CreateRegionsClustersResource : TProjectsRegionsClustersResource;virtual;overload;
+ Function CreateRegionsJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource;virtual;overload;
+ Function CreateRegionsJobsResource : TProjectsRegionsJobsResource;virtual;overload;
+ Function CreateRegionsOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource;virtual;overload;
+ Function CreateRegionsOperationsResource : TProjectsRegionsOperationsResource;virtual;overload;
+ Function CreateRegionsResource(AOwner : TComponent) : TProjectsRegionsResource;virtual;overload;
+ Function CreateRegionsResource : TProjectsRegionsResource;virtual;overload;
+ Property RegionsClustersResource : TProjectsRegionsClustersResource Read GetRegionsClustersInstance;
+ Property RegionsJobsResource : TProjectsRegionsJobsResource Read GetRegionsJobsInstance;
+ Property RegionsOperationsResource : TProjectsRegionsOperationsResource Read GetRegionsOperationsInstance;
+ Property RegionsResource : TProjectsRegionsResource Read GetRegionsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TDataprocAPI
+ --------------------------------------------------------------------}
+
+ TDataprocAPI = Class(TGoogleAPI)
+ Private
+ FProjectsRegionsClustersInstance : TProjectsRegionsClustersResource;
+ FProjectsRegionsJobsInstance : TProjectsRegionsJobsResource;
+ FProjectsRegionsOperationsInstance : TProjectsRegionsOperationsResource;
+ FProjectsRegionsInstance : TProjectsRegionsResource;
+ FProjectsInstance : TProjectsResource;
+ Function GetProjectsRegionsClustersInstance : TProjectsRegionsClustersResource;virtual;
+ Function GetProjectsRegionsJobsInstance : TProjectsRegionsJobsResource;virtual;
+ Function GetProjectsRegionsOperationsInstance : TProjectsRegionsOperationsResource;virtual;
+ Function GetProjectsRegionsInstance : TProjectsRegionsResource;virtual;
+ Function GetProjectsInstance : TProjectsResource;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 CreateProjectsRegionsClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource;virtual;overload;
+ Function CreateProjectsRegionsClustersResource : TProjectsRegionsClustersResource;virtual;overload;
+ Function CreateProjectsRegionsJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource;virtual;overload;
+ Function CreateProjectsRegionsJobsResource : TProjectsRegionsJobsResource;virtual;overload;
+ Function CreateProjectsRegionsOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource;virtual;overload;
+ Function CreateProjectsRegionsOperationsResource : TProjectsRegionsOperationsResource;virtual;overload;
+ Function CreateProjectsRegionsResource(AOwner : TComponent) : TProjectsRegionsResource;virtual;overload;
+ Function CreateProjectsRegionsResource : TProjectsRegionsResource;virtual;overload;
+ Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ProjectsRegionsClustersResource : TProjectsRegionsClustersResource Read GetProjectsRegionsClustersInstance;
+ Property ProjectsRegionsJobsResource : TProjectsRegionsJobsResource Read GetProjectsRegionsJobsInstance;
+ Property ProjectsRegionsOperationsResource : TProjectsRegionsOperationsResource Read GetProjectsRegionsOperationsInstance;
+ Property ProjectsRegionsResource : TProjectsRegionsResource Read GetProjectsRegionsInstance;
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TCluster
+ --------------------------------------------------------------------}
+
+
+Procedure TCluster.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCluster.SetclusterName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclusterName=AValue) then exit;
+ FclusterName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCluster.Setconfig(AIndex : Integer; const AValue : TClusterConfig);
+
+begin
+ If (Fconfig=AValue) then exit;
+ Fconfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCluster.Setstatus(AIndex : Integer; const AValue : TClusterStatus);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCluster.SetstatusHistory(AIndex : Integer; const AValue : TClusterTypestatusHistoryArray);
+
+begin
+ If (FstatusHistory=AValue) then exit;
+ FstatusHistory:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCluster.SetclusterUuid(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclusterUuid=AValue) then exit;
+ FclusterUuid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCluster.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'statushistory' : SetLength(FstatusHistory,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TClusterConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TClusterConfig.SetconfigBucket(AIndex : Integer; const AValue : String);
+
+begin
+ If (FconfigBucket=AValue) then exit;
+ FconfigBucket:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterConfig.SetgceClusterConfig(AIndex : Integer; const AValue : TGceClusterConfig);
+
+begin
+ If (FgceClusterConfig=AValue) then exit;
+ FgceClusterConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterConfig.SetmasterConfig(AIndex : Integer; const AValue : TInstanceGroupConfig);
+
+begin
+ If (FmasterConfig=AValue) then exit;
+ FmasterConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterConfig.SetworkerConfig(AIndex : Integer; const AValue : TInstanceGroupConfig);
+
+begin
+ If (FworkerConfig=AValue) then exit;
+ FworkerConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterConfig.SetsecondaryWorkerConfig(AIndex : Integer; const AValue : TInstanceGroupConfig);
+
+begin
+ If (FsecondaryWorkerConfig=AValue) then exit;
+ FsecondaryWorkerConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterConfig.SetsoftwareConfig(AIndex : Integer; const AValue : TSoftwareConfig);
+
+begin
+ If (FsoftwareConfig=AValue) then exit;
+ FsoftwareConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterConfig.SetinitializationActions(AIndex : Integer; const AValue : TClusterConfigTypeinitializationActionsArray);
+
+begin
+ If (FinitializationActions=AValue) then exit;
+ FinitializationActions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TClusterConfig.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'initializationactions' : SetLength(FinitializationActions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGceClusterConfigTypemetadata
+ --------------------------------------------------------------------}
+
+
+Class Function TGceClusterConfigTypemetadata.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TGceClusterConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TGceClusterConfig.SetzoneUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FzoneUri=AValue) then exit;
+ FzoneUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGceClusterConfig.SetnetworkUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnetworkUri=AValue) then exit;
+ FnetworkUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGceClusterConfig.SetsubnetworkUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsubnetworkUri=AValue) then exit;
+ FsubnetworkUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGceClusterConfig.SetserviceAccountScopes(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FserviceAccountScopes=AValue) then exit;
+ FserviceAccountScopes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGceClusterConfig.Settags(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Ftags=AValue) then exit;
+ Ftags:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGceClusterConfig.Setmetadata(AIndex : Integer; const AValue : TGceClusterConfigTypemetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGceClusterConfig.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'serviceaccountscopes' : SetLength(FserviceAccountScopes,ALength);
+ 'tags' : SetLength(Ftags,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInstanceGroupConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TInstanceGroupConfig.SetnumInstances(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FnumInstances=AValue) then exit;
+ FnumInstances:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupConfig.SetinstanceNames(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FinstanceNames=AValue) then exit;
+ FinstanceNames:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupConfig.SetimageUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FimageUri=AValue) then exit;
+ FimageUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupConfig.SetmachineTypeUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmachineTypeUri=AValue) then exit;
+ FmachineTypeUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupConfig.SetdiskConfig(AIndex : Integer; const AValue : TDiskConfig);
+
+begin
+ If (FdiskConfig=AValue) then exit;
+ FdiskConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupConfig.SetisPreemptible(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisPreemptible=AValue) then exit;
+ FisPreemptible:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInstanceGroupConfig.SetmanagedGroupConfig(AIndex : Integer; const AValue : TManagedGroupConfig);
+
+begin
+ If (FmanagedGroupConfig=AValue) then exit;
+ FmanagedGroupConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TInstanceGroupConfig.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'instancenames' : SetLength(FinstanceNames,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDiskConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TDiskConfig.SetbootDiskSizeGb(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FbootDiskSizeGb=AValue) then exit;
+ FbootDiskSizeGb:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDiskConfig.SetnumLocalSsds(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FnumLocalSsds=AValue) then exit;
+ FnumLocalSsds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TManagedGroupConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TManagedGroupConfig.SetinstanceTemplateName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceTemplateName=AValue) then exit;
+ FinstanceTemplateName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TManagedGroupConfig.SetinstanceGroupManagerName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceGroupManagerName=AValue) then exit;
+ FinstanceGroupManagerName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSoftwareConfigTypeproperties
+ --------------------------------------------------------------------}
+
+
+Class Function TSoftwareConfigTypeproperties.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSoftwareConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TSoftwareConfig.SetimageVersion(AIndex : Integer; const AValue : String);
+
+begin
+ If (FimageVersion=AValue) then exit;
+ FimageVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSoftwareConfig.Setproperties(AIndex : Integer; const AValue : TSoftwareConfigTypeproperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TNodeInitializationAction
+ --------------------------------------------------------------------}
+
+
+Procedure TNodeInitializationAction.SetexecutableFile(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutableFile=AValue) then exit;
+ FexecutableFile:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNodeInitializationAction.SetexecutionTimeout(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutionTimeout=AValue) then exit;
+ FexecutionTimeout:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TClusterStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TClusterStatus.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterStatus.Setdetail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdetail=AValue) then exit;
+ Fdetail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterStatus.SetstateStartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstateStartTime=AValue) then exit;
+ FstateStartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTypemetadata.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTyperesponse.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fdone=AValue) then exit;
+ Fdone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
+
+begin
+ If (Fresponse=AValue) then exit;
+ Fresponse:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+
+Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'details' : SetLength(Fdetails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListClustersResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListClustersResponse.Setclusters(AIndex : Integer; const AValue : TListClustersResponseTypeclustersArray);
+
+begin
+ If (Fclusters=AValue) then exit;
+ Fclusters:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListClustersResponse.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 TListClustersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'clusters' : SetLength(Fclusters,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDiagnoseClusterRequest
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSubmitJobRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSubmitJobRequest.Setjob(AIndex : Integer; const AValue : TJob);
+
+begin
+ If (Fjob=AValue) then exit;
+ Fjob:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TJob
+ --------------------------------------------------------------------}
+
+
+Procedure TJob.Setreference(AIndex : Integer; const AValue : TJobReference);
+
+begin
+ If (Freference=AValue) then exit;
+ Freference:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.Setplacement(AIndex : Integer; const AValue : TJobPlacement);
+
+begin
+ If (Fplacement=AValue) then exit;
+ Fplacement:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SethadoopJob(AIndex : Integer; const AValue : THadoopJob);
+
+begin
+ If (FhadoopJob=AValue) then exit;
+ FhadoopJob:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SetsparkJob(AIndex : Integer; const AValue : TSparkJob);
+
+begin
+ If (FsparkJob=AValue) then exit;
+ FsparkJob:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SetpysparkJob(AIndex : Integer; const AValue : TPySparkJob);
+
+begin
+ If (FpysparkJob=AValue) then exit;
+ FpysparkJob:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SethiveJob(AIndex : Integer; const AValue : THiveJob);
+
+begin
+ If (FhiveJob=AValue) then exit;
+ FhiveJob:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SetpigJob(AIndex : Integer; const AValue : TPigJob);
+
+begin
+ If (FpigJob=AValue) then exit;
+ FpigJob:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SetsparkSqlJob(AIndex : Integer; const AValue : TSparkSqlJob);
+
+begin
+ If (FsparkSqlJob=AValue) then exit;
+ FsparkSqlJob:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.Setstatus(AIndex : Integer; const AValue : TJobStatus);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SetstatusHistory(AIndex : Integer; const AValue : TJobTypestatusHistoryArray);
+
+begin
+ If (FstatusHistory=AValue) then exit;
+ FstatusHistory:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SetdriverOutputResourceUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdriverOutputResourceUri=AValue) then exit;
+ FdriverOutputResourceUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SetdriverControlFilesUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdriverControlFilesUri=AValue) then exit;
+ FdriverControlFilesUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TJob.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'statushistory' : SetLength(FstatusHistory,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TJobReference
+ --------------------------------------------------------------------}
+
+
+Procedure TJobReference.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJobReference.SetjobId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FjobId=AValue) then exit;
+ FjobId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TJobPlacement
+ --------------------------------------------------------------------}
+
+
+Procedure TJobPlacement.SetclusterName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclusterName=AValue) then exit;
+ FclusterName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJobPlacement.SetclusterUuid(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclusterUuid=AValue) then exit;
+ FclusterUuid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ THadoopJobTypeproperties
+ --------------------------------------------------------------------}
+
+
+Class Function THadoopJobTypeproperties.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ THadoopJob
+ --------------------------------------------------------------------}
+
+
+Procedure THadoopJob.SetmainJarFileUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmainJarFileUri=AValue) then exit;
+ FmainJarFileUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THadoopJob.SetmainClass(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmainClass=AValue) then exit;
+ FmainClass:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THadoopJob.Setargs(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fargs=AValue) then exit;
+ Fargs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THadoopJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FjarFileUris=AValue) then exit;
+ FjarFileUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THadoopJob.SetfileUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FfileUris=AValue) then exit;
+ FfileUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THadoopJob.SetarchiveUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FarchiveUris=AValue) then exit;
+ FarchiveUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THadoopJob.Setproperties(AIndex : Integer; const AValue : THadoopJobTypeproperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THadoopJob.SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig);
+
+begin
+ If (FloggingConfig=AValue) then exit;
+ FloggingConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure THadoopJob.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'args' : SetLength(Fargs,ALength);
+ 'jarfileuris' : SetLength(FjarFileUris,ALength);
+ 'fileuris' : SetLength(FfileUris,ALength);
+ 'archiveuris' : SetLength(FarchiveUris,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLoggingConfigTypedriverLogLevels
+ --------------------------------------------------------------------}
+
+
+Class Function TLoggingConfigTypedriverLogLevels.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TLoggingConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TLoggingConfig.SetdriverLogLevels(AIndex : Integer; const AValue : TLoggingConfigTypedriverLogLevels);
+
+begin
+ If (FdriverLogLevels=AValue) then exit;
+ FdriverLogLevels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSparkJobTypeproperties
+ --------------------------------------------------------------------}
+
+
+Class Function TSparkJobTypeproperties.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSparkJob
+ --------------------------------------------------------------------}
+
+
+Procedure TSparkJob.SetmainJarFileUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmainJarFileUri=AValue) then exit;
+ FmainJarFileUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkJob.SetmainClass(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmainClass=AValue) then exit;
+ FmainClass:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkJob.Setargs(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fargs=AValue) then exit;
+ Fargs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FjarFileUris=AValue) then exit;
+ FjarFileUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkJob.SetfileUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FfileUris=AValue) then exit;
+ FfileUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkJob.SetarchiveUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FarchiveUris=AValue) then exit;
+ FarchiveUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkJob.Setproperties(AIndex : Integer; const AValue : TSparkJobTypeproperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkJob.SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig);
+
+begin
+ If (FloggingConfig=AValue) then exit;
+ FloggingConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSparkJob.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'args' : SetLength(Fargs,ALength);
+ 'jarfileuris' : SetLength(FjarFileUris,ALength);
+ 'fileuris' : SetLength(FfileUris,ALength);
+ 'archiveuris' : SetLength(FarchiveUris,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPySparkJobTypeproperties
+ --------------------------------------------------------------------}
+
+
+Class Function TPySparkJobTypeproperties.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TPySparkJob
+ --------------------------------------------------------------------}
+
+
+Procedure TPySparkJob.SetmainPythonFileUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmainPythonFileUri=AValue) then exit;
+ FmainPythonFileUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPySparkJob.Setargs(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fargs=AValue) then exit;
+ Fargs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPySparkJob.SetpythonFileUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FpythonFileUris=AValue) then exit;
+ FpythonFileUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPySparkJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FjarFileUris=AValue) then exit;
+ FjarFileUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPySparkJob.SetfileUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FfileUris=AValue) then exit;
+ FfileUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPySparkJob.SetarchiveUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FarchiveUris=AValue) then exit;
+ FarchiveUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPySparkJob.Setproperties(AIndex : Integer; const AValue : TPySparkJobTypeproperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPySparkJob.SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig);
+
+begin
+ If (FloggingConfig=AValue) then exit;
+ FloggingConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPySparkJob.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'args' : SetLength(Fargs,ALength);
+ 'pythonfileuris' : SetLength(FpythonFileUris,ALength);
+ 'jarfileuris' : SetLength(FjarFileUris,ALength);
+ 'fileuris' : SetLength(FfileUris,ALength);
+ 'archiveuris' : SetLength(FarchiveUris,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ THiveJobTypescriptVariables
+ --------------------------------------------------------------------}
+
+
+Class Function THiveJobTypescriptVariables.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ THiveJobTypeproperties
+ --------------------------------------------------------------------}
+
+
+Class Function THiveJobTypeproperties.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ THiveJob
+ --------------------------------------------------------------------}
+
+
+Procedure THiveJob.SetqueryFileUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FqueryFileUri=AValue) then exit;
+ FqueryFileUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THiveJob.SetqueryList(AIndex : Integer; const AValue : TQueryList);
+
+begin
+ If (FqueryList=AValue) then exit;
+ FqueryList:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THiveJob.SetcontinueOnFailure(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FcontinueOnFailure=AValue) then exit;
+ FcontinueOnFailure:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THiveJob.SetscriptVariables(AIndex : Integer; const AValue : THiveJobTypescriptVariables);
+
+begin
+ If (FscriptVariables=AValue) then exit;
+ FscriptVariables:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THiveJob.Setproperties(AIndex : Integer; const AValue : THiveJobTypeproperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THiveJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FjarFileUris=AValue) then exit;
+ FjarFileUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure THiveJob.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'jarfileuris' : SetLength(FjarFileUris,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TQueryList
+ --------------------------------------------------------------------}
+
+
+Procedure TQueryList.Setqueries(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fqueries=AValue) then exit;
+ Fqueries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TQueryList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'queries' : SetLength(Fqueries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPigJobTypescriptVariables
+ --------------------------------------------------------------------}
+
+
+Class Function TPigJobTypescriptVariables.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TPigJobTypeproperties
+ --------------------------------------------------------------------}
+
+
+Class Function TPigJobTypeproperties.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TPigJob
+ --------------------------------------------------------------------}
+
+
+Procedure TPigJob.SetqueryFileUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FqueryFileUri=AValue) then exit;
+ FqueryFileUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPigJob.SetqueryList(AIndex : Integer; const AValue : TQueryList);
+
+begin
+ If (FqueryList=AValue) then exit;
+ FqueryList:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPigJob.SetcontinueOnFailure(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FcontinueOnFailure=AValue) then exit;
+ FcontinueOnFailure:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPigJob.SetscriptVariables(AIndex : Integer; const AValue : TPigJobTypescriptVariables);
+
+begin
+ If (FscriptVariables=AValue) then exit;
+ FscriptVariables:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPigJob.Setproperties(AIndex : Integer; const AValue : TPigJobTypeproperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPigJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FjarFileUris=AValue) then exit;
+ FjarFileUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPigJob.SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig);
+
+begin
+ If (FloggingConfig=AValue) then exit;
+ FloggingConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPigJob.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'jarfileuris' : SetLength(FjarFileUris,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSparkSqlJobTypescriptVariables
+ --------------------------------------------------------------------}
+
+
+Class Function TSparkSqlJobTypescriptVariables.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSparkSqlJobTypeproperties
+ --------------------------------------------------------------------}
+
+
+Class Function TSparkSqlJobTypeproperties.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSparkSqlJob
+ --------------------------------------------------------------------}
+
+
+Procedure TSparkSqlJob.SetqueryFileUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FqueryFileUri=AValue) then exit;
+ FqueryFileUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkSqlJob.SetqueryList(AIndex : Integer; const AValue : TQueryList);
+
+begin
+ If (FqueryList=AValue) then exit;
+ FqueryList:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkSqlJob.SetscriptVariables(AIndex : Integer; const AValue : TSparkSqlJobTypescriptVariables);
+
+begin
+ If (FscriptVariables=AValue) then exit;
+ FscriptVariables:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkSqlJob.Setproperties(AIndex : Integer; const AValue : TSparkSqlJobTypeproperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkSqlJob.SetjarFileUris(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FjarFileUris=AValue) then exit;
+ FjarFileUris:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSparkSqlJob.SetloggingConfig(AIndex : Integer; const AValue : TLoggingConfig);
+
+begin
+ If (FloggingConfig=AValue) then exit;
+ FloggingConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSparkSqlJob.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'jarfileuris' : SetLength(FjarFileUris,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TJobStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TJobStatus.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJobStatus.Setdetails(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJobStatus.SetstateStartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstateStartTime=AValue) then exit;
+ FstateStartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListJobsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListJobsResponse.Setjobs(AIndex : Integer; const AValue : TListJobsResponseTypejobsArray);
+
+begin
+ If (Fjobs=AValue) then exit;
+ Fjobs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListJobsResponse.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 TListJobsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'jobs' : SetLength(Fjobs,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCancelJobRequest
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListOperationsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListOperationsResponse.Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray);
+
+begin
+ If (Foperations=AValue) then exit;
+ Foperations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListOperationsResponse.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 TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'operations' : SetLength(Foperations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDiagnoseClusterResults
+ --------------------------------------------------------------------}
+
+
+Procedure TDiagnoseClusterResults.SetoutputUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoutputUri=AValue) then exit;
+ FoutputUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TClusterOperationMetadata
+ --------------------------------------------------------------------}
+
+
+Procedure TClusterOperationMetadata.SetclusterName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclusterName=AValue) then exit;
+ FclusterName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterOperationMetadata.SetclusterUuid(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclusterUuid=AValue) then exit;
+ FclusterUuid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterOperationMetadata.Setstatus(AIndex : Integer; const AValue : TClusterOperationStatus);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterOperationMetadata.SetstatusHistory(AIndex : Integer; const AValue : TClusterOperationMetadataTypestatusHistoryArray);
+
+begin
+ If (FstatusHistory=AValue) then exit;
+ FstatusHistory:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterOperationMetadata.SetoperationType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationType=AValue) then exit;
+ FoperationType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterOperationMetadata.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TClusterOperationMetadata.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'statushistory' : SetLength(FstatusHistory,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TClusterOperationStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TClusterOperationStatus.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterOperationStatus.SetinnerState(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinnerState=AValue) then exit;
+ FinnerState:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterOperationStatus.Setdetails(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClusterOperationStatus.SetstateStartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstateStartTime=AValue) then exit;
+ FstateStartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDiagnoseClusterOutputLocation
+ --------------------------------------------------------------------}
+
+
+Procedure TDiagnoseClusterOutputLocation.SetoutputUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoutputUri=AValue) then exit;
+ FoutputUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationMetadata
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationMetadata.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.SetinnerState(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinnerState=AValue) then exit;
+ FinnerState:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.Setdetails(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.SetinsertTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinsertTime=AValue) then exit;
+ FinsertTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.SetstartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTime=AValue) then exit;
+ FstartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.SetendTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.SetclusterName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclusterName=AValue) then exit;
+ FclusterName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.SetclusterUuid(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclusterUuid=AValue) then exit;
+ FclusterUuid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.Setstatus(AIndex : Integer; const AValue : TOperationStatus);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.SetstatusHistory(AIndex : Integer; const AValue : TOperationMetadataTypestatusHistoryArray);
+
+begin
+ If (FstatusHistory=AValue) then exit;
+ FstatusHistory:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.SetoperationType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationType=AValue) then exit;
+ FoperationType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperationMetadata.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'statushistory' : SetLength(FstatusHistory,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationStatus.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationStatus.SetinnerState(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinnerState=AValue) then exit;
+ FinnerState:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationStatus.Setdetails(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationStatus.SetstateStartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstateStartTime=AValue) then exit;
+ FstateStartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsRegionsClustersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsRegionsClustersResource.ResourceName : String;
+
+begin
+ Result:='clusters';
+end;
+
+Class Function TProjectsRegionsClustersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TdataprocAPI;
+end;
+
+Function TProjectsRegionsClustersResource.Create(projectId: string; region: string; aCluster : TCluster) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{projectId}/regions/{region}/clusters';
+ _Methodid = 'dataproc.projects.regions.clusters.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'region',region]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCluster,TOperation) as TOperation;
+end;
+
+Function TProjectsRegionsClustersResource.Patch(projectId: string; region: string; clusterName: string; aCluster : TCluster; AQuery : string = '') : TOperation;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'v1/projects/{projectId}/regions/{region}/clusters/{clusterName}';
+ _Methodid = 'dataproc.projects.regions.clusters.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'clusterName',clusterName]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aCluster,TOperation) as TOperation;
+end;
+
+
+Function TProjectsRegionsClustersResource.Patch(projectId: string; region: string; clusterName: string; aCluster : TCluster; AQuery : TProjectsRegionsClusterspatchOptions) : TOperation;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'updateMask',AQuery.updateMask);
+ Result:=Patch(projectId,region,clusterName,aCluster,_Q);
+end;
+
+Function TProjectsRegionsClustersResource.Delete(projectId: string; region: string; clusterName: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/projects/{projectId}/regions/{region}/clusters/{clusterName}';
+ _Methodid = 'dataproc.projects.regions.clusters.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'clusterName',clusterName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TProjectsRegionsClustersResource.Get(projectId: string; region: string; clusterName: string) : TCluster;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/regions/{region}/clusters/{clusterName}';
+ _Methodid = 'dataproc.projects.regions.clusters.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'clusterName',clusterName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCluster) as TCluster;
+end;
+
+Function TProjectsRegionsClustersResource.List(projectId: string; region: string; AQuery : string = '') : TListClustersResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/regions/{region}/clusters';
+ _Methodid = 'dataproc.projects.regions.clusters.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'region',region]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListClustersResponse) as TListClustersResponse;
+end;
+
+
+Function TProjectsRegionsClustersResource.List(projectId: string; region: string; AQuery : TProjectsRegionsClusterslistOptions) : TListClustersResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(projectId,region,_Q);
+end;
+
+Function TProjectsRegionsClustersResource.Diagnose(projectId: string; region: string; clusterName: string; aDiagnoseClusterRequest : TDiagnoseClusterRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{projectId}/regions/{region}/clusters/{clusterName}:diagnose';
+ _Methodid = 'dataproc.projects.regions.clusters.diagnose';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'clusterName',clusterName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aDiagnoseClusterRequest,TOperation) as TOperation;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsRegionsJobsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsRegionsJobsResource.ResourceName : String;
+
+begin
+ Result:='jobs';
+end;
+
+Class Function TProjectsRegionsJobsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TdataprocAPI;
+end;
+
+Function TProjectsRegionsJobsResource.Submit(projectId: string; region: string; aSubmitJobRequest : TSubmitJobRequest) : TJob;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{projectId}/regions/{region}/jobs:submit';
+ _Methodid = 'dataproc.projects.regions.jobs.submit';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'region',region]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSubmitJobRequest,TJob) as TJob;
+end;
+
+Function TProjectsRegionsJobsResource.Get(projectId: string; region: string; jobId: string) : TJob;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/regions/{region}/jobs/{jobId}';
+ _Methodid = 'dataproc.projects.regions.jobs.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'jobId',jobId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TJob) as TJob;
+end;
+
+Function TProjectsRegionsJobsResource.List(projectId: string; region: string; AQuery : string = '') : TListJobsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/projects/{projectId}/regions/{region}/jobs';
+ _Methodid = 'dataproc.projects.regions.jobs.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'region',region]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListJobsResponse) as TListJobsResponse;
+end;
+
+
+Function TProjectsRegionsJobsResource.List(projectId: string; region: string; AQuery : TProjectsRegionsJobslistOptions) : TListJobsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'clusterName',AQuery.clusterName);
+ AddToQuery(_Q,'jobStateMatcher',AQuery.jobStateMatcher);
+ Result:=List(projectId,region,_Q);
+end;
+
+Function TProjectsRegionsJobsResource.Cancel(projectId: string; region: string; jobId: string; aCancelJobRequest : TCancelJobRequest) : TJob;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/projects/{projectId}/regions/{region}/jobs/{jobId}:cancel';
+ _Methodid = 'dataproc.projects.regions.jobs.cancel';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'jobId',jobId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCancelJobRequest,TJob) as TJob;
+end;
+
+Function TProjectsRegionsJobsResource.Delete(projectId: string; region: string; jobId: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/projects/{projectId}/regions/{region}/jobs/{jobId}';
+ _Methodid = 'dataproc.projects.regions.jobs.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId,'region',region,'jobId',jobId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsRegionsOperationsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsRegionsOperationsResource.ResourceName : String;
+
+begin
+ Result:='operations';
+end;
+
+Class Function TProjectsRegionsOperationsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TdataprocAPI;
+end;
+
+Function TProjectsRegionsOperationsResource.Get(_name: string) : TOperation;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'dataproc.projects.regions.operations.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TProjectsRegionsOperationsResource.List(_name: string; AQuery : string = '') : TListOperationsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'dataproc.projects.regions.operations.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListOperationsResponse) as TListOperationsResponse;
+end;
+
+
+Function TProjectsRegionsOperationsResource.List(_name: string; AQuery : TProjectsRegionsOperationslistOptions) : TListOperationsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
+end;
+
+Function TProjectsRegionsOperationsResource.Cancel(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+name}:cancel';
+ _Methodid = 'dataproc.projects.regions.operations.cancel';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+Function TProjectsRegionsOperationsResource.Delete(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/{+name}';
+ _Methodid = 'dataproc.projects.regions.operations.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsRegionsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsRegionsResource.ResourceName : String;
+
+begin
+ Result:='regions';
+end;
+
+Class Function TProjectsRegionsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TdataprocAPI;
+end;
+
+
+
+Function TProjectsRegionsResource.GetClustersInstance : TProjectsRegionsClustersResource;
+
+begin
+ if (FClustersInstance=Nil) then
+ FClustersInstance:=CreateClustersResource;
+ Result:=FClustersInstance;
+end;
+
+Function TProjectsRegionsResource.CreateClustersResource : TProjectsRegionsClustersResource;
+
+begin
+ Result:=CreateClustersResource(Self);
+end;
+
+
+Function TProjectsRegionsResource.CreateClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource;
+
+begin
+ Result:=TProjectsRegionsClustersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsRegionsResource.GetJobsInstance : TProjectsRegionsJobsResource;
+
+begin
+ if (FJobsInstance=Nil) then
+ FJobsInstance:=CreateJobsResource;
+ Result:=FJobsInstance;
+end;
+
+Function TProjectsRegionsResource.CreateJobsResource : TProjectsRegionsJobsResource;
+
+begin
+ Result:=CreateJobsResource(Self);
+end;
+
+
+Function TProjectsRegionsResource.CreateJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource;
+
+begin
+ Result:=TProjectsRegionsJobsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsRegionsResource.GetOperationsInstance : TProjectsRegionsOperationsResource;
+
+begin
+ if (FOperationsInstance=Nil) then
+ FOperationsInstance:=CreateOperationsResource;
+ Result:=FOperationsInstance;
+end;
+
+Function TProjectsRegionsResource.CreateOperationsResource : TProjectsRegionsOperationsResource;
+
+begin
+ Result:=CreateOperationsResource(Self);
+end;
+
+
+Function TProjectsRegionsResource.CreateOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource;
+
+begin
+ Result:=TProjectsRegionsOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TdataprocAPI;
+end;
+
+
+
+Function TProjectsResource.GetRegionsClustersInstance : TProjectsRegionsClustersResource;
+
+begin
+ if (FRegionsClustersInstance=Nil) then
+ FRegionsClustersInstance:=CreateRegionsClustersResource;
+ Result:=FRegionsClustersInstance;
+end;
+
+Function TProjectsResource.CreateRegionsClustersResource : TProjectsRegionsClustersResource;
+
+begin
+ Result:=CreateRegionsClustersResource(Self);
+end;
+
+
+Function TProjectsResource.CreateRegionsClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource;
+
+begin
+ Result:=TProjectsRegionsClustersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetRegionsJobsInstance : TProjectsRegionsJobsResource;
+
+begin
+ if (FRegionsJobsInstance=Nil) then
+ FRegionsJobsInstance:=CreateRegionsJobsResource;
+ Result:=FRegionsJobsInstance;
+end;
+
+Function TProjectsResource.CreateRegionsJobsResource : TProjectsRegionsJobsResource;
+
+begin
+ Result:=CreateRegionsJobsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateRegionsJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource;
+
+begin
+ Result:=TProjectsRegionsJobsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetRegionsOperationsInstance : TProjectsRegionsOperationsResource;
+
+begin
+ if (FRegionsOperationsInstance=Nil) then
+ FRegionsOperationsInstance:=CreateRegionsOperationsResource;
+ Result:=FRegionsOperationsInstance;
+end;
+
+Function TProjectsResource.CreateRegionsOperationsResource : TProjectsRegionsOperationsResource;
+
+begin
+ Result:=CreateRegionsOperationsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateRegionsOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource;
+
+begin
+ Result:=TProjectsRegionsOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetRegionsInstance : TProjectsRegionsResource;
+
+begin
+ if (FRegionsInstance=Nil) then
+ FRegionsInstance:=CreateRegionsResource;
+ Result:=FRegionsInstance;
+end;
+
+Function TProjectsResource.CreateRegionsResource : TProjectsRegionsResource;
+
+begin
+ Result:=CreateRegionsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateRegionsResource(AOwner : TComponent) : TProjectsRegionsResource;
+
+begin
+ Result:=TProjectsRegionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TDataprocAPI
+ --------------------------------------------------------------------}
+
+Class Function TDataprocAPI.APIName : String;
+
+begin
+ Result:='dataproc';
+end;
+
+Class Function TDataprocAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TDataprocAPI.APIRevision : String;
+
+begin
+ Result:='20160503';
+end;
+
+Class Function TDataprocAPI.APIID : String;
+
+begin
+ Result:='dataproc:v1';
+end;
+
+Class Function TDataprocAPI.APITitle : String;
+
+begin
+ Result:='Google Cloud Dataproc API';
+end;
+
+Class Function TDataprocAPI.APIDescription : String;
+
+begin
+ Result:='Manages Hadoop-based clusters and jobs on Google Cloud Platform.';
+end;
+
+Class Function TDataprocAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TDataprocAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TDataprocAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TDataprocAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TDataprocAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/dataproc/';
+end;
+
+Class Function TDataprocAPI.APIrootUrl : string;
+
+begin
+ Result:='https://dataproc.googleapis.com/';
+end;
+
+Class Function TDataprocAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TDataprocAPI.APIbaseURL : String;
+
+begin
+ Result:='https://dataproc.googleapis.com/';
+end;
+
+Class Function TDataprocAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TDataprocAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TDataprocAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TDataprocAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+
+end;
+
+Class Function TDataprocAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TDataprocAPI.RegisterAPIResources;
+
+begin
+ TCluster.RegisterObject;
+ TClusterConfig.RegisterObject;
+ TGceClusterConfigTypemetadata.RegisterObject;
+ TGceClusterConfig.RegisterObject;
+ TInstanceGroupConfig.RegisterObject;
+ TDiskConfig.RegisterObject;
+ TManagedGroupConfig.RegisterObject;
+ TSoftwareConfigTypeproperties.RegisterObject;
+ TSoftwareConfig.RegisterObject;
+ TNodeInitializationAction.RegisterObject;
+ TClusterStatus.RegisterObject;
+ TOperationTypemetadata.RegisterObject;
+ TOperationTyperesponse.RegisterObject;
+ TOperation.RegisterObject;
+ TStatusTypedetailsItem.RegisterObject;
+ TStatus.RegisterObject;
+ TListClustersResponse.RegisterObject;
+ TDiagnoseClusterRequest.RegisterObject;
+ TSubmitJobRequest.RegisterObject;
+ TJob.RegisterObject;
+ TJobReference.RegisterObject;
+ TJobPlacement.RegisterObject;
+ THadoopJobTypeproperties.RegisterObject;
+ THadoopJob.RegisterObject;
+ TLoggingConfigTypedriverLogLevels.RegisterObject;
+ TLoggingConfig.RegisterObject;
+ TSparkJobTypeproperties.RegisterObject;
+ TSparkJob.RegisterObject;
+ TPySparkJobTypeproperties.RegisterObject;
+ TPySparkJob.RegisterObject;
+ THiveJobTypescriptVariables.RegisterObject;
+ THiveJobTypeproperties.RegisterObject;
+ THiveJob.RegisterObject;
+ TQueryList.RegisterObject;
+ TPigJobTypescriptVariables.RegisterObject;
+ TPigJobTypeproperties.RegisterObject;
+ TPigJob.RegisterObject;
+ TSparkSqlJobTypescriptVariables.RegisterObject;
+ TSparkSqlJobTypeproperties.RegisterObject;
+ TSparkSqlJob.RegisterObject;
+ TJobStatus.RegisterObject;
+ TListJobsResponse.RegisterObject;
+ TCancelJobRequest.RegisterObject;
+ TEmpty.RegisterObject;
+ TListOperationsResponse.RegisterObject;
+ TDiagnoseClusterResults.RegisterObject;
+ TClusterOperationMetadata.RegisterObject;
+ TClusterOperationStatus.RegisterObject;
+ TDiagnoseClusterOutputLocation.RegisterObject;
+ TOperationMetadata.RegisterObject;
+ TOperationStatus.RegisterObject;
+end;
+
+
+Function TDataprocAPI.GetProjectsRegionsClustersInstance : TProjectsRegionsClustersResource;
+
+begin
+ if (FProjectsRegionsClustersInstance=Nil) then
+ FProjectsRegionsClustersInstance:=CreateProjectsRegionsClustersResource;
+ Result:=FProjectsRegionsClustersInstance;
+end;
+
+Function TDataprocAPI.CreateProjectsRegionsClustersResource : TProjectsRegionsClustersResource;
+
+begin
+ Result:=CreateProjectsRegionsClustersResource(Self);
+end;
+
+
+Function TDataprocAPI.CreateProjectsRegionsClustersResource(AOwner : TComponent) : TProjectsRegionsClustersResource;
+
+begin
+ Result:=TProjectsRegionsClustersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TDataprocAPI.GetProjectsRegionsJobsInstance : TProjectsRegionsJobsResource;
+
+begin
+ if (FProjectsRegionsJobsInstance=Nil) then
+ FProjectsRegionsJobsInstance:=CreateProjectsRegionsJobsResource;
+ Result:=FProjectsRegionsJobsInstance;
+end;
+
+Function TDataprocAPI.CreateProjectsRegionsJobsResource : TProjectsRegionsJobsResource;
+
+begin
+ Result:=CreateProjectsRegionsJobsResource(Self);
+end;
+
+
+Function TDataprocAPI.CreateProjectsRegionsJobsResource(AOwner : TComponent) : TProjectsRegionsJobsResource;
+
+begin
+ Result:=TProjectsRegionsJobsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TDataprocAPI.GetProjectsRegionsOperationsInstance : TProjectsRegionsOperationsResource;
+
+begin
+ if (FProjectsRegionsOperationsInstance=Nil) then
+ FProjectsRegionsOperationsInstance:=CreateProjectsRegionsOperationsResource;
+ Result:=FProjectsRegionsOperationsInstance;
+end;
+
+Function TDataprocAPI.CreateProjectsRegionsOperationsResource : TProjectsRegionsOperationsResource;
+
+begin
+ Result:=CreateProjectsRegionsOperationsResource(Self);
+end;
+
+
+Function TDataprocAPI.CreateProjectsRegionsOperationsResource(AOwner : TComponent) : TProjectsRegionsOperationsResource;
+
+begin
+ Result:=TProjectsRegionsOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TDataprocAPI.GetProjectsRegionsInstance : TProjectsRegionsResource;
+
+begin
+ if (FProjectsRegionsInstance=Nil) then
+ FProjectsRegionsInstance:=CreateProjectsRegionsResource;
+ Result:=FProjectsRegionsInstance;
+end;
+
+Function TDataprocAPI.CreateProjectsRegionsResource : TProjectsRegionsResource;
+
+begin
+ Result:=CreateProjectsRegionsResource(Self);
+end;
+
+
+Function TDataprocAPI.CreateProjectsRegionsResource(AOwner : TComponent) : TProjectsRegionsResource;
+
+begin
+ Result:=TProjectsRegionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TDataprocAPI.GetProjectsInstance : TProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TDataprocAPI.CreateProjectsResource : TProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TDataprocAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+
+begin
+ Result:=TProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TDataprocAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googledatastore.pp b/packages/googleapi/src/googledatastore.pp
index 87670f1d35..2c69672d1d 100644
--- a/packages/googleapi/src/googledatastore.pp
+++ b/packages/googleapi/src/googledatastore.pp
@@ -1,19 +1,4 @@
unit googledatastore;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:01
{$MODE objfpc}
{$H+}
@@ -24,177 +9,185 @@ uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
- TAllocateIdsRequest = Class;
- TAllocateIdsResponse = Class;
- TBeginTransactionRequest = Class;
- TBeginTransactionResponse = Class;
+ TValue = Class;
+ TReadOptions = Class;
+ TPropertyOrder = Class;
TCommitRequest = Class;
- TCommitResponse = Class;
- TCompositeFilter = Class;
- TEntity = Class;
+ TRollbackRequest = Class;
+ TQuery = Class;
TEntityResult = Class;
+ TGqlQueryParameter = Class;
+ TBeginTransactionResponse = Class;
TFilter = Class;
- TGqlQuery = Class;
- TGqlQueryArg = Class;
- TKey = Class;
- TKeyPathElement = Class;
- TKindExpression = Class;
- TLookupRequest = Class;
- TLookupResponse = Class;
- TMutation = Class;
- TMutationResult = Class;
+ TArrayValue = Class;
TPartitionId = Class;
- TProperty = Class;
- TPropertyExpression = Class;
- TPropertyFilter = Class;
- TPropertyOrder = Class;
- TPropertyReference = Class;
- TQuery = Class;
TQueryResultBatch = Class;
- TReadOptions = Class;
- TResponseHeader = Class;
- TRollbackRequest = Class;
+ TAllocateIdsRequest = Class;
+ TPropertyFilter = Class;
+ TKindExpression = Class;
+ TPathElement = Class;
TRollbackResponse = Class;
- TRunQueryRequest = Class;
+ TPropertyReference = Class;
+ TProjection = Class;
+ TAllocateIdsResponse = Class;
+ TMutationResult = Class;
+ TLookupResponse = Class;
+ TBeginTransactionRequest = Class;
+ TKey = Class;
TRunQueryResponse = Class;
- TValue = Class;
- TAllocateIdsRequestArray = Array of TAllocateIdsRequest;
- TAllocateIdsResponseArray = Array of TAllocateIdsResponse;
- TBeginTransactionRequestArray = Array of TBeginTransactionRequest;
- TBeginTransactionResponseArray = Array of TBeginTransactionResponse;
+ TEntity = Class;
+ TGqlQuery = Class;
+ TCommitResponse = Class;
+ TMutation = Class;
+ TRunQueryRequest = Class;
+ TCompositeFilter = Class;
+ TLatLng = Class;
+ TLookupRequest = Class;
+ TValueArray = Array of TValue;
+ TReadOptionsArray = Array of TReadOptions;
+ TPropertyOrderArray = Array of TPropertyOrder;
TCommitRequestArray = Array of TCommitRequest;
- TCommitResponseArray = Array of TCommitResponse;
- TCompositeFilterArray = Array of TCompositeFilter;
- TEntityArray = Array of TEntity;
+ TRollbackRequestArray = Array of TRollbackRequest;
+ TQueryArray = Array of TQuery;
TEntityResultArray = Array of TEntityResult;
+ TGqlQueryParameterArray = Array of TGqlQueryParameter;
+ TBeginTransactionResponseArray = Array of TBeginTransactionResponse;
TFilterArray = Array of TFilter;
- TGqlQueryArray = Array of TGqlQuery;
- TGqlQueryArgArray = Array of TGqlQueryArg;
- TKeyArray = Array of TKey;
- TKeyPathElementArray = Array of TKeyPathElement;
- TKindExpressionArray = Array of TKindExpression;
- TLookupRequestArray = Array of TLookupRequest;
- TLookupResponseArray = Array of TLookupResponse;
- TMutationArray = Array of TMutation;
- TMutationResultArray = Array of TMutationResult;
+ TArrayValueArray = Array of TArrayValue;
TPartitionIdArray = Array of TPartitionId;
- TPropertyArray = Array of TProperty;
- TPropertyExpressionArray = Array of TPropertyExpression;
- TPropertyFilterArray = Array of TPropertyFilter;
- TPropertyOrderArray = Array of TPropertyOrder;
- TPropertyReferenceArray = Array of TPropertyReference;
- TQueryArray = Array of TQuery;
TQueryResultBatchArray = Array of TQueryResultBatch;
- TReadOptionsArray = Array of TReadOptions;
- TResponseHeaderArray = Array of TResponseHeader;
- TRollbackRequestArray = Array of TRollbackRequest;
+ TAllocateIdsRequestArray = Array of TAllocateIdsRequest;
+ TPropertyFilterArray = Array of TPropertyFilter;
+ TKindExpressionArray = Array of TKindExpression;
+ TPathElementArray = Array of TPathElement;
TRollbackResponseArray = Array of TRollbackResponse;
- TRunQueryRequestArray = Array of TRunQueryRequest;
+ TPropertyReferenceArray = Array of TPropertyReference;
+ TProjectionArray = Array of TProjection;
+ TAllocateIdsResponseArray = Array of TAllocateIdsResponse;
+ TMutationResultArray = Array of TMutationResult;
+ TLookupResponseArray = Array of TLookupResponse;
+ TBeginTransactionRequestArray = Array of TBeginTransactionRequest;
+ TKeyArray = Array of TKey;
TRunQueryResponseArray = Array of TRunQueryResponse;
- TValueArray = Array of TValue;
+ TEntityArray = Array of TEntity;
+ TGqlQueryArray = Array of TGqlQuery;
+ TCommitResponseArray = Array of TCommitResponse;
+ TMutationArray = Array of TMutation;
+ TRunQueryRequestArray = Array of TRunQueryRequest;
+ TCompositeFilterArray = Array of TCompositeFilter;
+ TLatLngArray = Array of TLatLng;
+ TLookupRequestArray = Array of TLookupRequest;
//Anonymous types, using auto-generated names
TEntityTypeproperties = Class;
+ TGqlQueryTypenamedBindings = Class;
+ TCommitRequestTypemutationsArray = Array of TMutation;
+ TQueryTypedistinctOnArray = Array of TPropertyReference;
+ TQueryTypeprojectionArray = Array of TProjection;
+ TQueryTypeorderArray = Array of TPropertyOrder;
+ TQueryTypekindArray = Array of TKindExpression;
+ TArrayValueTypevaluesArray = Array of TValue;
+ TQueryResultBatchTypeentityResultsArray = Array of TEntityResult;
TAllocateIdsRequestTypekeysArray = Array of TKey;
TAllocateIdsResponseTypekeysArray = Array of TKey;
- TCompositeFilterTypefiltersArray = Array of TFilter;
- TGqlQueryTypenameArgsArray = Array of TGqlQueryArg;
- TGqlQueryTypenumberArgsArray = Array of TGqlQueryArg;
- TKeyTypepathArray = Array of TKeyPathElement;
- TLookupRequestTypekeysArray = Array of TKey;
- TLookupResponseTypedeferredArray = Array of TKey;
TLookupResponseTypefoundArray = Array of TEntityResult;
+ TLookupResponseTypedeferredArray = Array of TKey;
TLookupResponseTypemissingArray = Array of TEntityResult;
- TMutationTypedeleteArray = Array of TKey;
- TMutationTypeinsertArray = Array of TEntity;
- TMutationTypeinsertAutoIdArray = Array of TEntity;
- TMutationTypeupdateArray = Array of TEntity;
- TMutationTypeupsertArray = Array of TEntity;
- TMutationResultTypeinsertAutoIdKeysArray = Array of TKey;
- TPropertyTypelistValueArray = Array of TValue;
- TQueryTypegroupByArray = Array of TPropertyReference;
- TQueryTypekindsArray = Array of TKindExpression;
- TQueryTypeorderArray = Array of TPropertyOrder;
- TQueryTypeprojectionArray = Array of TPropertyExpression;
- TQueryResultBatchTypeentityResultsArray = Array of TEntityResult;
- TValueTypelistValueArray = Array of TValue;
-
- { --------------------------------------------------------------------
- TAllocateIdsRequest
- --------------------------------------------------------------------}
-
- TAllocateIdsRequest = Class(TGoogleBaseObject)
- Private
- Fkeys : TAllocateIdsRequestTypekeysArray;
- Protected
- //Property setters
- Procedure Setkeys(AIndex : Integer; AValue : TAllocateIdsRequestTypekeysArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property keys : TAllocateIdsRequestTypekeysArray Index 0 Read Fkeys Write Setkeys;
- end;
- TAllocateIdsRequestClass = Class of TAllocateIdsRequest;
+ TKeyTypepathArray = Array of TPathElement;
+ TGqlQueryTypepositionalBindingsArray = Array of TGqlQueryParameter;
+ TCommitResponseTypemutationResultsArray = Array of TMutationResult;
+ TCompositeFilterTypefiltersArray = Array of TFilter;
+ TLookupRequestTypekeysArray = Array of TKey;
{ --------------------------------------------------------------------
- TAllocateIdsResponse
+ TValue
--------------------------------------------------------------------}
- TAllocateIdsResponse = Class(TGoogleBaseObject)
+ TValue = Class(TGoogleBaseObject)
Private
- Fheader : TResponseHeader;
- Fkeys : TAllocateIdsResponseTypekeysArray;
+ FstringValue : String;
+ FarrayValue : TArrayValue;
+ FentityValue : TEntity;
+ Fmeaning : integer;
+ FintegerValue : String;
+ FdoubleValue : double;
+ FgeoPointValue : TLatLng;
+ FblobValue : String;
+ FnullValue : String;
+ FkeyValue : TKey;
+ FbooleanValue : boolean;
+ FexcludeFromIndexes : boolean;
+ FtimestampValue : String;
Protected
//Property setters
- Procedure Setheader(AIndex : Integer; AValue : TResponseHeader); virtual;
- Procedure Setkeys(AIndex : Integer; AValue : TAllocateIdsResponseTypekeysArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetarrayValue(AIndex : Integer; const AValue : TArrayValue); virtual;
+ Procedure SetentityValue(AIndex : Integer; const AValue : TEntity); virtual;
+ Procedure Setmeaning(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetintegerValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdoubleValue(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetgeoPointValue(AIndex : Integer; const AValue : TLatLng); virtual;
+ Procedure SetblobValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnullValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetkeyValue(AIndex : Integer; const AValue : TKey); virtual;
+ Procedure SetbooleanValue(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetexcludeFromIndexes(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SettimestampValue(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property header : TResponseHeader Index 0 Read Fheader Write Setheader;
- Property keys : TAllocateIdsResponseTypekeysArray Index 8 Read Fkeys Write Setkeys;
+ Property stringValue : String Index 0 Read FstringValue Write SetstringValue;
+ Property arrayValue : TArrayValue Index 8 Read FarrayValue Write SetarrayValue;
+ Property entityValue : TEntity Index 16 Read FentityValue Write SetentityValue;
+ Property meaning : integer Index 24 Read Fmeaning Write Setmeaning;
+ Property integerValue : String Index 32 Read FintegerValue Write SetintegerValue;
+ Property doubleValue : double Index 40 Read FdoubleValue Write SetdoubleValue;
+ Property geoPointValue : TLatLng Index 48 Read FgeoPointValue Write SetgeoPointValue;
+ Property blobValue : String Index 56 Read FblobValue Write SetblobValue;
+ Property nullValue : String Index 64 Read FnullValue Write SetnullValue;
+ Property keyValue : TKey Index 72 Read FkeyValue Write SetkeyValue;
+ Property booleanValue : boolean Index 80 Read FbooleanValue Write SetbooleanValue;
+ Property excludeFromIndexes : boolean Index 88 Read FexcludeFromIndexes Write SetexcludeFromIndexes;
+ Property timestampValue : String Index 96 Read FtimestampValue Write SettimestampValue;
end;
- TAllocateIdsResponseClass = Class of TAllocateIdsResponse;
+ TValueClass = Class of TValue;
{ --------------------------------------------------------------------
- TBeginTransactionRequest
+ TReadOptions
--------------------------------------------------------------------}
- TBeginTransactionRequest = Class(TGoogleBaseObject)
+ TReadOptions = Class(TGoogleBaseObject)
Private
- FisolationLevel : String;
+ Ftransaction : String;
+ FreadConsistency : String;
Protected
//Property setters
- Procedure SetisolationLevel(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settransaction(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreadConsistency(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property isolationLevel : String Index 0 Read FisolationLevel Write SetisolationLevel;
+ Property transaction : String Index 0 Read Ftransaction Write Settransaction;
+ Property readConsistency : String Index 8 Read FreadConsistency Write SetreadConsistency;
end;
- TBeginTransactionRequestClass = Class of TBeginTransactionRequest;
+ TReadOptionsClass = Class of TReadOptions;
{ --------------------------------------------------------------------
- TBeginTransactionResponse
+ TPropertyOrder
--------------------------------------------------------------------}
- TBeginTransactionResponse = Class(TGoogleBaseObject)
+ TPropertyOrder = Class(TGoogleBaseObject)
Private
- Fheader : TResponseHeader;
- Ftransaction : String;
+ Fdirection : String;
+ F_property : TPropertyReference;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setheader(AIndex : Integer; AValue : TResponseHeader); virtual;
- Procedure Settransaction(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdirection(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_property(AIndex : Integer; const AValue : TPropertyReference); virtual;
Public
Published
- Property header : TResponseHeader Index 0 Read Fheader Write Setheader;
- Property transaction : String Index 8 Read Ftransaction Write Settransaction;
+ Property direction : String Index 0 Read Fdirection Write Setdirection;
+ Property _property : TPropertyReference Index 8 Read F_property Write Set_property;
end;
- TBeginTransactionResponseClass = Class of TBeginTransactionResponse;
+ TPropertyOrderClass = Class of TPropertyOrder;
{ --------------------------------------------------------------------
TCommitRequest
@@ -202,116 +195,139 @@ type
TCommitRequest = Class(TGoogleBaseObject)
Private
- FignoreReadOnly : boolean;
- Fmode : String;
- Fmutation : TMutation;
Ftransaction : String;
+ Fmutations : TCommitRequestTypemutationsArray;
+ Fmode : String;
Protected
//Property setters
- Procedure SetignoreReadOnly(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setmode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmutation(AIndex : Integer; AValue : TMutation); virtual;
Procedure Settransaction(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmutations(AIndex : Integer; const AValue : TCommitRequestTypemutationsArray); virtual;
+ Procedure Setmode(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 ignoreReadOnly : boolean Index 0 Read FignoreReadOnly Write SetignoreReadOnly;
- Property mode : String Index 8 Read Fmode Write Setmode;
- Property mutation : TMutation Index 16 Read Fmutation Write Setmutation;
- Property transaction : String Index 24 Read Ftransaction Write Settransaction;
+ Property transaction : String Index 0 Read Ftransaction Write Settransaction;
+ Property mutations : TCommitRequestTypemutationsArray Index 8 Read Fmutations Write Setmutations;
+ Property mode : String Index 16 Read Fmode Write Setmode;
end;
TCommitRequestClass = Class of TCommitRequest;
{ --------------------------------------------------------------------
- TCommitResponse
+ TRollbackRequest
--------------------------------------------------------------------}
- TCommitResponse = Class(TGoogleBaseObject)
+ TRollbackRequest = Class(TGoogleBaseObject)
Private
- Fheader : TResponseHeader;
- FmutationResult : TMutationResult;
+ Ftransaction : String;
Protected
//Property setters
- Procedure Setheader(AIndex : Integer; AValue : TResponseHeader); virtual;
- Procedure SetmutationResult(AIndex : Integer; AValue : TMutationResult); virtual;
+ Procedure Settransaction(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property header : TResponseHeader Index 0 Read Fheader Write Setheader;
- Property mutationResult : TMutationResult Index 8 Read FmutationResult Write SetmutationResult;
+ Property transaction : String Index 0 Read Ftransaction Write Settransaction;
end;
- TCommitResponseClass = Class of TCommitResponse;
+ TRollbackRequestClass = Class of TRollbackRequest;
{ --------------------------------------------------------------------
- TCompositeFilter
+ TQuery
--------------------------------------------------------------------}
- TCompositeFilter = Class(TGoogleBaseObject)
+ TQuery = Class(TGoogleBaseObject)
Private
- Ffilters : TCompositeFilterTypefiltersArray;
- F_operator : String;
+ Flimit : integer;
+ Ffilter : TFilter;
+ FendCursor : String;
+ FdistinctOn : TQueryTypedistinctOnArray;
+ Foffset : integer;
+ Fprojection : TQueryTypeprojectionArray;
+ FstartCursor : String;
+ Forder : TQueryTypeorderArray;
+ Fkind : TQueryTypekindArray;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setfilters(AIndex : Integer; AValue : TCompositeFilterTypefiltersArray); virtual;
- Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlimit(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setfilter(AIndex : Integer; const AValue : TFilter); virtual;
+ Procedure SetendCursor(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdistinctOn(AIndex : Integer; const AValue : TQueryTypedistinctOnArray); virtual;
+ Procedure Setoffset(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setprojection(AIndex : Integer; const AValue : TQueryTypeprojectionArray); virtual;
+ Procedure SetstartCursor(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setorder(AIndex : Integer; const AValue : TQueryTypeorderArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : TQueryTypekindArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property filters : TCompositeFilterTypefiltersArray Index 0 Read Ffilters Write Setfilters;
- Property _operator : String Index 8 Read F_operator Write Set_operator;
+ Property limit : integer Index 0 Read Flimit Write Setlimit;
+ Property filter : TFilter Index 8 Read Ffilter Write Setfilter;
+ Property endCursor : String Index 16 Read FendCursor Write SetendCursor;
+ Property distinctOn : TQueryTypedistinctOnArray Index 24 Read FdistinctOn Write SetdistinctOn;
+ Property offset : integer Index 32 Read Foffset Write Setoffset;
+ Property projection : TQueryTypeprojectionArray Index 40 Read Fprojection Write Setprojection;
+ Property startCursor : String Index 48 Read FstartCursor Write SetstartCursor;
+ Property order : TQueryTypeorderArray Index 56 Read Forder Write Setorder;
+ Property kind : TQueryTypekindArray Index 64 Read Fkind Write Setkind;
end;
- TCompositeFilterClass = Class of TCompositeFilter;
+ TQueryClass = Class of TQuery;
{ --------------------------------------------------------------------
- TEntityTypeproperties
+ TEntityResult
--------------------------------------------------------------------}
- TEntityTypeproperties = Class(TGoogleBaseObject)
+ TEntityResult = Class(TGoogleBaseObject)
Private
+ Fcursor : String;
+ Fentity : TEntity;
Protected
//Property setters
+ Procedure Setcursor(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setentity(AIndex : Integer; const AValue : TEntity); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property cursor : String Index 0 Read Fcursor Write Setcursor;
+ Property entity : TEntity Index 8 Read Fentity Write Setentity;
end;
- TEntityTypepropertiesClass = Class of TEntityTypeproperties;
+ TEntityResultClass = Class of TEntityResult;
{ --------------------------------------------------------------------
- TEntity
+ TGqlQueryParameter
--------------------------------------------------------------------}
- TEntity = Class(TGoogleBaseObject)
+ TGqlQueryParameter = Class(TGoogleBaseObject)
Private
- Fkey : TKey;
- Fproperties : TEntityTypeproperties;
+ Fcursor : String;
+ Fvalue : TValue;
Protected
//Property setters
- Procedure Setkey(AIndex : Integer; AValue : TKey); virtual;
- Procedure Setproperties(AIndex : Integer; AValue : TEntityTypeproperties); virtual;
+ Procedure Setcursor(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : TValue); virtual;
Public
Published
- Property key : TKey Index 0 Read Fkey Write Setkey;
- Property properties : TEntityTypeproperties Index 8 Read Fproperties Write Setproperties;
+ Property cursor : String Index 0 Read Fcursor Write Setcursor;
+ Property value : TValue Index 8 Read Fvalue Write Setvalue;
end;
- TEntityClass = Class of TEntity;
+ TGqlQueryParameterClass = Class of TGqlQueryParameter;
{ --------------------------------------------------------------------
- TEntityResult
+ TBeginTransactionResponse
--------------------------------------------------------------------}
- TEntityResult = Class(TGoogleBaseObject)
+ TBeginTransactionResponse = Class(TGoogleBaseObject)
Private
- Fentity : TEntity;
+ Ftransaction : String;
Protected
//Property setters
- Procedure Setentity(AIndex : Integer; AValue : TEntity); virtual;
+ Procedure Settransaction(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property entity : TEntity Index 0 Read Fentity Write Setentity;
+ Property transaction : String Index 0 Read Ftransaction Write Settransaction;
end;
- TEntityResultClass = Class of TEntityResult;
+ TBeginTransactionResponseClass = Class of TBeginTransactionResponse;
{ --------------------------------------------------------------------
TFilter
@@ -319,114 +335,135 @@ type
TFilter = Class(TGoogleBaseObject)
Private
- FcompositeFilter : TCompositeFilter;
FpropertyFilter : TPropertyFilter;
+ FcompositeFilter : TCompositeFilter;
Protected
//Property setters
- Procedure SetcompositeFilter(AIndex : Integer; AValue : TCompositeFilter); virtual;
- Procedure SetpropertyFilter(AIndex : Integer; AValue : TPropertyFilter); virtual;
+ Procedure SetpropertyFilter(AIndex : Integer; const AValue : TPropertyFilter); virtual;
+ Procedure SetcompositeFilter(AIndex : Integer; const AValue : TCompositeFilter); virtual;
Public
Published
- Property compositeFilter : TCompositeFilter Index 0 Read FcompositeFilter Write SetcompositeFilter;
- Property propertyFilter : TPropertyFilter Index 8 Read FpropertyFilter Write SetpropertyFilter;
+ Property propertyFilter : TPropertyFilter Index 0 Read FpropertyFilter Write SetpropertyFilter;
+ Property compositeFilter : TCompositeFilter Index 8 Read FcompositeFilter Write SetcompositeFilter;
end;
TFilterClass = Class of TFilter;
{ --------------------------------------------------------------------
- TGqlQuery
+ TArrayValue
--------------------------------------------------------------------}
- TGqlQuery = Class(TGoogleBaseObject)
+ TArrayValue = Class(TGoogleBaseObject)
Private
- FallowLiteral : boolean;
- FnameArgs : TGqlQueryTypenameArgsArray;
- FnumberArgs : TGqlQueryTypenumberArgsArray;
- FqueryString : String;
+ Fvalues : TArrayValueTypevaluesArray;
Protected
//Property setters
- Procedure SetallowLiteral(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetnameArgs(AIndex : Integer; AValue : TGqlQueryTypenameArgsArray); virtual;
- Procedure SetnumberArgs(AIndex : Integer; AValue : TGqlQueryTypenumberArgsArray); virtual;
- Procedure SetqueryString(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalues(AIndex : Integer; const AValue : TArrayValueTypevaluesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property allowLiteral : boolean Index 0 Read FallowLiteral Write SetallowLiteral;
- Property nameArgs : TGqlQueryTypenameArgsArray Index 8 Read FnameArgs Write SetnameArgs;
- Property numberArgs : TGqlQueryTypenumberArgsArray Index 16 Read FnumberArgs Write SetnumberArgs;
- Property queryString : String Index 24 Read FqueryString Write SetqueryString;
+ Property values : TArrayValueTypevaluesArray Index 0 Read Fvalues Write Setvalues;
end;
- TGqlQueryClass = Class of TGqlQuery;
+ TArrayValueClass = Class of TArrayValue;
{ --------------------------------------------------------------------
- TGqlQueryArg
+ TPartitionId
--------------------------------------------------------------------}
- TGqlQueryArg = Class(TGoogleBaseObject)
+ TPartitionId = Class(TGoogleBaseObject)
Private
- Fcursor : String;
- Fname : String;
- Fvalue : TValue;
+ FnamespaceId : String;
+ FprojectId : String;
Protected
//Property setters
- Procedure Setcursor(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; AValue : TValue); virtual;
+ Procedure SetnamespaceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property cursor : String Index 0 Read Fcursor Write Setcursor;
- Property name : String Index 8 Read Fname Write Setname;
- Property value : TValue Index 16 Read Fvalue Write Setvalue;
+ Property namespaceId : String Index 0 Read FnamespaceId Write SetnamespaceId;
+ Property projectId : String Index 8 Read FprojectId Write SetprojectId;
end;
- TGqlQueryArgClass = Class of TGqlQueryArg;
+ TPartitionIdClass = Class of TPartitionId;
{ --------------------------------------------------------------------
- TKey
+ TQueryResultBatch
--------------------------------------------------------------------}
- TKey = Class(TGoogleBaseObject)
+ TQueryResultBatch = Class(TGoogleBaseObject)
Private
- FpartitionId : TPartitionId;
- Fpath : TKeyTypepathArray;
+ FendCursor : String;
+ FskippedCursor : String;
+ FentityResultType : String;
+ FmoreResults : String;
+ FentityResults : TQueryResultBatchTypeentityResultsArray;
+ FskippedResults : integer;
Protected
//Property setters
- Procedure SetpartitionId(AIndex : Integer; AValue : TPartitionId); virtual;
- Procedure Setpath(AIndex : Integer; AValue : TKeyTypepathArray); virtual;
+ Procedure SetendCursor(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetskippedCursor(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetentityResultType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmoreResults(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetentityResults(AIndex : Integer; const AValue : TQueryResultBatchTypeentityResultsArray); virtual;
+ Procedure SetskippedResults(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 partitionId : TPartitionId Index 0 Read FpartitionId Write SetpartitionId;
- Property path : TKeyTypepathArray Index 8 Read Fpath Write Setpath;
+ Property endCursor : String Index 0 Read FendCursor Write SetendCursor;
+ Property skippedCursor : String Index 8 Read FskippedCursor Write SetskippedCursor;
+ Property entityResultType : String Index 16 Read FentityResultType Write SetentityResultType;
+ Property moreResults : String Index 24 Read FmoreResults Write SetmoreResults;
+ Property entityResults : TQueryResultBatchTypeentityResultsArray Index 32 Read FentityResults Write SetentityResults;
+ Property skippedResults : integer Index 40 Read FskippedResults Write SetskippedResults;
end;
- TKeyClass = Class of TKey;
+ TQueryResultBatchClass = Class of TQueryResultBatch;
{ --------------------------------------------------------------------
- TKeyPathElement
+ TAllocateIdsRequest
--------------------------------------------------------------------}
- TKeyPathElement = Class(TGoogleBaseObject)
+ TAllocateIdsRequest = Class(TGoogleBaseObject)
Private
- Fid : String;
- Fkind : String;
- Fname : String;
+ Fkeys : TAllocateIdsRequestTypekeysArray;
Protected
//Property setters
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkeys(AIndex : Integer; const AValue : TAllocateIdsRequestTypekeysArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property keys : TAllocateIdsRequestTypekeysArray Index 0 Read Fkeys Write Setkeys;
+ end;
+ TAllocateIdsRequestClass = Class of TAllocateIdsRequest;
+
+ { --------------------------------------------------------------------
+ TPropertyFilter
+ --------------------------------------------------------------------}
+
+ TPropertyFilter = Class(TGoogleBaseObject)
+ Private
+ Fvalue : TValue;
+ Fop : String;
+ F_property : TPropertyReference;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setvalue(AIndex : Integer; const AValue : TValue); virtual;
+ Procedure Setop(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_property(AIndex : Integer; const AValue : TPropertyReference); virtual;
Public
Published
- Property id : String Index 0 Read Fid Write Setid;
- Property kind : String Index 8 Read Fkind Write Setkind;
- Property name : String Index 16 Read Fname Write Setname;
+ Property value : TValue Index 0 Read Fvalue Write Setvalue;
+ Property op : String Index 8 Read Fop Write Setop;
+ Property _property : TPropertyReference Index 16 Read F_property Write Set_property;
end;
- TKeyPathElementClass = Class of TKeyPathElement;
+ TPropertyFilterClass = Class of TPropertyFilter;
{ --------------------------------------------------------------------
TKindExpression
@@ -445,408 +482,313 @@ type
TKindExpressionClass = Class of TKindExpression;
{ --------------------------------------------------------------------
- TLookupRequest
+ TPathElement
--------------------------------------------------------------------}
- TLookupRequest = Class(TGoogleBaseObject)
+ TPathElement = Class(TGoogleBaseObject)
Private
- Fkeys : TLookupRequestTypekeysArray;
- FreadOptions : TReadOptions;
+ Fkind : String;
+ Fname : String;
+ Fid : String;
Protected
//Property setters
- Procedure Setkeys(AIndex : Integer; AValue : TLookupRequestTypekeysArray); virtual;
- Procedure SetreadOptions(AIndex : Integer; AValue : TReadOptions); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property keys : TLookupRequestTypekeysArray Index 0 Read Fkeys Write Setkeys;
- Property readOptions : TReadOptions Index 8 Read FreadOptions Write SetreadOptions;
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property id : String Index 16 Read Fid Write Setid;
end;
- TLookupRequestClass = Class of TLookupRequest;
+ TPathElementClass = Class of TPathElement;
{ --------------------------------------------------------------------
- TLookupResponse
+ TRollbackResponse
--------------------------------------------------------------------}
- TLookupResponse = Class(TGoogleBaseObject)
+ TRollbackResponse = Class(TGoogleBaseObject)
Private
- Fdeferred : TLookupResponseTypedeferredArray;
- Ffound : TLookupResponseTypefoundArray;
- Fheader : TResponseHeader;
- Fmissing : TLookupResponseTypemissingArray;
Protected
//Property setters
- Procedure Setdeferred(AIndex : Integer; AValue : TLookupResponseTypedeferredArray); virtual;
- Procedure Setfound(AIndex : Integer; AValue : TLookupResponseTypefoundArray); virtual;
- Procedure Setheader(AIndex : Integer; AValue : TResponseHeader); virtual;
- Procedure Setmissing(AIndex : Integer; AValue : TLookupResponseTypemissingArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
Public
Published
- Property deferred : TLookupResponseTypedeferredArray Index 0 Read Fdeferred Write Setdeferred;
- Property found : TLookupResponseTypefoundArray Index 8 Read Ffound Write Setfound;
- Property header : TResponseHeader Index 16 Read Fheader Write Setheader;
- Property missing : TLookupResponseTypemissingArray Index 24 Read Fmissing Write Setmissing;
end;
- TLookupResponseClass = Class of TLookupResponse;
+ TRollbackResponseClass = Class of TRollbackResponse;
{ --------------------------------------------------------------------
- TMutation
+ TPropertyReference
--------------------------------------------------------------------}
- TMutation = Class(TGoogleBaseObject)
+ TPropertyReference = Class(TGoogleBaseObject)
Private
- Fdelete : TMutationTypedeleteArray;
- Fforce : boolean;
- Finsert : TMutationTypeinsertArray;
- FinsertAutoId : TMutationTypeinsertAutoIdArray;
- Fupdate : TMutationTypeupdateArray;
- Fupsert : TMutationTypeupsertArray;
+ Fname : String;
Protected
//Property setters
- Procedure Setdelete(AIndex : Integer; AValue : TMutationTypedeleteArray); virtual;
- Procedure Setforce(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setinsert(AIndex : Integer; AValue : TMutationTypeinsertArray); virtual;
- Procedure SetinsertAutoId(AIndex : Integer; AValue : TMutationTypeinsertAutoIdArray); virtual;
- Procedure Setupdate(AIndex : Integer; AValue : TMutationTypeupdateArray); virtual;
- Procedure Setupsert(AIndex : Integer; AValue : TMutationTypeupsertArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property delete : TMutationTypedeleteArray Index 0 Read Fdelete Write Setdelete;
- Property force : boolean Index 8 Read Fforce Write Setforce;
- Property insert : TMutationTypeinsertArray Index 16 Read Finsert Write Setinsert;
- Property insertAutoId : TMutationTypeinsertAutoIdArray Index 24 Read FinsertAutoId Write SetinsertAutoId;
- Property update : TMutationTypeupdateArray Index 32 Read Fupdate Write Setupdate;
- Property upsert : TMutationTypeupsertArray Index 40 Read Fupsert Write Setupsert;
+ Property name : String Index 0 Read Fname Write Setname;
end;
- TMutationClass = Class of TMutation;
+ TPropertyReferenceClass = Class of TPropertyReference;
{ --------------------------------------------------------------------
- TMutationResult
+ TProjection
--------------------------------------------------------------------}
- TMutationResult = Class(TGoogleBaseObject)
+ TProjection = Class(TGoogleBaseObject)
Private
- FindexUpdates : integer;
- FinsertAutoIdKeys : TMutationResultTypeinsertAutoIdKeysArray;
+ F_property : TPropertyReference;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetindexUpdates(AIndex : Integer; AValue : integer); virtual;
- Procedure SetinsertAutoIdKeys(AIndex : Integer; AValue : TMutationResultTypeinsertAutoIdKeysArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Set_property(AIndex : Integer; const AValue : TPropertyReference); virtual;
Public
Published
- Property indexUpdates : integer Index 0 Read FindexUpdates Write SetindexUpdates;
- Property insertAutoIdKeys : TMutationResultTypeinsertAutoIdKeysArray Index 8 Read FinsertAutoIdKeys Write SetinsertAutoIdKeys;
+ Property _property : TPropertyReference Index 0 Read F_property Write Set_property;
end;
- TMutationResultClass = Class of TMutationResult;
+ TProjectionClass = Class of TProjection;
{ --------------------------------------------------------------------
- TPartitionId
+ TAllocateIdsResponse
--------------------------------------------------------------------}
- TPartitionId = Class(TGoogleBaseObject)
+ TAllocateIdsResponse = Class(TGoogleBaseObject)
Private
- FdatasetId : String;
- Fnamespace : String;
+ Fkeys : TAllocateIdsResponseTypekeysArray;
Protected
//Property setters
- Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnamespace(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkeys(AIndex : Integer; const AValue : TAllocateIdsResponseTypekeysArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
- Property namespace : String Index 8 Read Fnamespace Write Setnamespace;
+ Property keys : TAllocateIdsResponseTypekeysArray Index 0 Read Fkeys Write Setkeys;
end;
- TPartitionIdClass = Class of TPartitionId;
+ TAllocateIdsResponseClass = Class of TAllocateIdsResponse;
{ --------------------------------------------------------------------
- TProperty
+ TMutationResult
--------------------------------------------------------------------}
- TProperty = Class(TGoogleBaseObject)
+ TMutationResult = Class(TGoogleBaseObject)
Private
- FblobKeyValue : String;
- FblobValue : String;
- FbooleanValue : boolean;
- FdateTimeValue : TDatetime;
- FdoubleValue : double;
- FentityValue : TEntity;
- Findexed : boolean;
- FintegerValue : String;
- FkeyValue : TKey;
- FlistValue : TPropertyTypelistValueArray;
- Fmeaning : integer;
- FstringValue : String;
+ Fkey : TKey;
Protected
//Property setters
- Procedure SetblobKeyValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetblobValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbooleanValue(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetdateTimeValue(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetdoubleValue(AIndex : Integer; AValue : double); virtual;
- Procedure SetentityValue(AIndex : Integer; AValue : TEntity); virtual;
- Procedure Setindexed(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetintegerValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetkeyValue(AIndex : Integer; AValue : TKey); virtual;
- Procedure SetlistValue(AIndex : Integer; AValue : TPropertyTypelistValueArray); virtual;
- Procedure Setmeaning(AIndex : Integer; AValue : integer); virtual;
- Procedure SetstringValue(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}
+ Procedure Setkey(AIndex : Integer; const AValue : TKey); virtual;
Public
Published
- Property blobKeyValue : String Index 0 Read FblobKeyValue Write SetblobKeyValue;
- Property blobValue : String Index 8 Read FblobValue Write SetblobValue;
- Property booleanValue : boolean Index 16 Read FbooleanValue Write SetbooleanValue;
- Property dateTimeValue : TDatetime Index 24 Read FdateTimeValue Write SetdateTimeValue;
- Property doubleValue : double Index 32 Read FdoubleValue Write SetdoubleValue;
- Property entityValue : TEntity Index 40 Read FentityValue Write SetentityValue;
- Property indexed : boolean Index 48 Read Findexed Write Setindexed;
- Property integerValue : String Index 56 Read FintegerValue Write SetintegerValue;
- Property keyValue : TKey Index 64 Read FkeyValue Write SetkeyValue;
- Property listValue : TPropertyTypelistValueArray Index 72 Read FlistValue Write SetlistValue;
- Property meaning : integer Index 80 Read Fmeaning Write Setmeaning;
- Property stringValue : String Index 88 Read FstringValue Write SetstringValue;
+ Property key : TKey Index 0 Read Fkey Write Setkey;
end;
- TPropertyClass = Class of TProperty;
+ TMutationResultClass = Class of TMutationResult;
{ --------------------------------------------------------------------
- TPropertyExpression
+ TLookupResponse
--------------------------------------------------------------------}
- TPropertyExpression = Class(TGoogleBaseObject)
+ TLookupResponse = Class(TGoogleBaseObject)
Private
- FaggregationFunction : String;
- F_property : TPropertyReference;
+ Ffound : TLookupResponseTypefoundArray;
+ Fdeferred : TLookupResponseTypedeferredArray;
+ Fmissing : TLookupResponseTypemissingArray;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetaggregationFunction(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_property(AIndex : Integer; AValue : TPropertyReference); virtual;
+ Procedure Setfound(AIndex : Integer; const AValue : TLookupResponseTypefoundArray); virtual;
+ Procedure Setdeferred(AIndex : Integer; const AValue : TLookupResponseTypedeferredArray); virtual;
+ Procedure Setmissing(AIndex : Integer; const AValue : TLookupResponseTypemissingArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property aggregationFunction : String Index 0 Read FaggregationFunction Write SetaggregationFunction;
- Property _property : TPropertyReference Index 8 Read F_property Write Set_property;
+ Property found : TLookupResponseTypefoundArray Index 0 Read Ffound Write Setfound;
+ Property deferred : TLookupResponseTypedeferredArray Index 8 Read Fdeferred Write Setdeferred;
+ Property missing : TLookupResponseTypemissingArray Index 16 Read Fmissing Write Setmissing;
end;
- TPropertyExpressionClass = Class of TPropertyExpression;
+ TLookupResponseClass = Class of TLookupResponse;
{ --------------------------------------------------------------------
- TPropertyFilter
+ TBeginTransactionRequest
--------------------------------------------------------------------}
- TPropertyFilter = Class(TGoogleBaseObject)
+ TBeginTransactionRequest = Class(TGoogleBaseObject)
Private
- F_operator : String;
- F_property : TPropertyReference;
- Fvalue : TValue;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_property(AIndex : Integer; AValue : TPropertyReference); virtual;
- Procedure Setvalue(AIndex : Integer; AValue : TValue); virtual;
Public
Published
- Property _operator : String Index 0 Read F_operator Write Set_operator;
- Property _property : TPropertyReference Index 8 Read F_property Write Set_property;
- Property value : TValue Index 16 Read Fvalue Write Setvalue;
end;
- TPropertyFilterClass = Class of TPropertyFilter;
+ TBeginTransactionRequestClass = Class of TBeginTransactionRequest;
{ --------------------------------------------------------------------
- TPropertyOrder
+ TKey
--------------------------------------------------------------------}
- TPropertyOrder = Class(TGoogleBaseObject)
+ TKey = Class(TGoogleBaseObject)
Private
- Fdirection : String;
- F_property : TPropertyReference;
+ FpartitionId : TPartitionId;
+ Fpath : TKeyTypepathArray;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setdirection(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_property(AIndex : Integer; AValue : TPropertyReference); virtual;
+ Procedure SetpartitionId(AIndex : Integer; const AValue : TPartitionId); virtual;
+ Procedure Setpath(AIndex : Integer; const AValue : TKeyTypepathArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property direction : String Index 0 Read Fdirection Write Setdirection;
- Property _property : TPropertyReference Index 8 Read F_property Write Set_property;
+ Property partitionId : TPartitionId Index 0 Read FpartitionId Write SetpartitionId;
+ Property path : TKeyTypepathArray Index 8 Read Fpath Write Setpath;
end;
- TPropertyOrderClass = Class of TPropertyOrder;
+ TKeyClass = Class of TKey;
{ --------------------------------------------------------------------
- TPropertyReference
+ TRunQueryResponse
--------------------------------------------------------------------}
- TPropertyReference = Class(TGoogleBaseObject)
+ TRunQueryResponse = Class(TGoogleBaseObject)
Private
- Fname : String;
+ Fbatch : TQueryResultBatch;
+ Fquery : TQuery;
Protected
//Property setters
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setbatch(AIndex : Integer; const AValue : TQueryResultBatch); virtual;
+ Procedure Setquery(AIndex : Integer; const AValue : TQuery); virtual;
Public
Published
- Property name : String Index 0 Read Fname Write Setname;
+ Property batch : TQueryResultBatch Index 0 Read Fbatch Write Setbatch;
+ Property query : TQuery Index 8 Read Fquery Write Setquery;
end;
- TPropertyReferenceClass = Class of TPropertyReference;
+ TRunQueryResponseClass = Class of TRunQueryResponse;
{ --------------------------------------------------------------------
- TQuery
+ TEntityTypeproperties
--------------------------------------------------------------------}
- TQuery = Class(TGoogleBaseObject)
+ TEntityTypeproperties = Class(TGoogleBaseObject)
Private
- FendCursor : String;
- Ffilter : TFilter;
- FgroupBy : TQueryTypegroupByArray;
- Fkinds : TQueryTypekindsArray;
- Flimit : integer;
- Foffset : integer;
- Forder : TQueryTypeorderArray;
- Fprojection : TQueryTypeprojectionArray;
- FstartCursor : String;
Protected
//Property setters
- Procedure SetendCursor(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfilter(AIndex : Integer; AValue : TFilter); virtual;
- Procedure SetgroupBy(AIndex : Integer; AValue : TQueryTypegroupByArray); virtual;
- Procedure Setkinds(AIndex : Integer; AValue : TQueryTypekindsArray); virtual;
- Procedure Setlimit(AIndex : Integer; AValue : integer); virtual;
- Procedure Setoffset(AIndex : Integer; AValue : integer); virtual;
- Procedure Setorder(AIndex : Integer; AValue : TQueryTypeorderArray); virtual;
- Procedure Setprojection(AIndex : Integer; AValue : TQueryTypeprojectionArray); virtual;
- Procedure SetstartCursor(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
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property endCursor : String Index 0 Read FendCursor Write SetendCursor;
- Property filter : TFilter Index 8 Read Ffilter Write Setfilter;
- Property groupBy : TQueryTypegroupByArray Index 16 Read FgroupBy Write SetgroupBy;
- Property kinds : TQueryTypekindsArray Index 24 Read Fkinds Write Setkinds;
- Property limit : integer Index 32 Read Flimit Write Setlimit;
- Property offset : integer Index 40 Read Foffset Write Setoffset;
- Property order : TQueryTypeorderArray Index 48 Read Forder Write Setorder;
- Property projection : TQueryTypeprojectionArray Index 56 Read Fprojection Write Setprojection;
- Property startCursor : String Index 64 Read FstartCursor Write SetstartCursor;
end;
- TQueryClass = Class of TQuery;
+ TEntityTypepropertiesClass = Class of TEntityTypeproperties;
{ --------------------------------------------------------------------
- TQueryResultBatch
+ TEntity
--------------------------------------------------------------------}
- TQueryResultBatch = Class(TGoogleBaseObject)
+ TEntity = Class(TGoogleBaseObject)
Private
- FendCursor : String;
- FentityResultType : String;
- FentityResults : TQueryResultBatchTypeentityResultsArray;
- FmoreResults : String;
- FskippedResults : integer;
+ Fproperties : TEntityTypeproperties;
+ Fkey : TKey;
Protected
//Property setters
- Procedure SetendCursor(AIndex : Integer; const AValue : String); virtual;
- Procedure SetentityResultType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetentityResults(AIndex : Integer; AValue : TQueryResultBatchTypeentityResultsArray); virtual;
- Procedure SetmoreResults(AIndex : Integer; const AValue : String); virtual;
- Procedure SetskippedResults(AIndex : Integer; AValue : integer); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Setproperties(AIndex : Integer; const AValue : TEntityTypeproperties); virtual;
+ Procedure Setkey(AIndex : Integer; const AValue : TKey); virtual;
Public
Published
- Property endCursor : String Index 0 Read FendCursor Write SetendCursor;
- Property entityResultType : String Index 8 Read FentityResultType Write SetentityResultType;
- Property entityResults : TQueryResultBatchTypeentityResultsArray Index 16 Read FentityResults Write SetentityResults;
- Property moreResults : String Index 24 Read FmoreResults Write SetmoreResults;
- Property skippedResults : integer Index 32 Read FskippedResults Write SetskippedResults;
+ Property properties : TEntityTypeproperties Index 0 Read Fproperties Write Setproperties;
+ Property key : TKey Index 8 Read Fkey Write Setkey;
end;
- TQueryResultBatchClass = Class of TQueryResultBatch;
+ TEntityClass = Class of TEntity;
{ --------------------------------------------------------------------
- TReadOptions
+ TGqlQueryTypenamedBindings
--------------------------------------------------------------------}
- TReadOptions = Class(TGoogleBaseObject)
+ TGqlQueryTypenamedBindings = Class(TGoogleBaseObject)
Private
- FreadConsistency : String;
- Ftransaction : String;
Protected
//Property setters
- Procedure SetreadConsistency(AIndex : Integer; const AValue : String); virtual;
- Procedure Settransaction(AIndex : Integer; const AValue : String); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property readConsistency : String Index 0 Read FreadConsistency Write SetreadConsistency;
- Property transaction : String Index 8 Read Ftransaction Write Settransaction;
end;
- TReadOptionsClass = Class of TReadOptions;
+ TGqlQueryTypenamedBindingsClass = Class of TGqlQueryTypenamedBindings;
{ --------------------------------------------------------------------
- TResponseHeader
+ TGqlQuery
--------------------------------------------------------------------}
- TResponseHeader = Class(TGoogleBaseObject)
+ TGqlQuery = Class(TGoogleBaseObject)
Private
- Fkind : String;
+ FnamedBindings : TGqlQueryTypenamedBindings;
+ FqueryString : String;
+ FallowLiterals : boolean;
+ FpositionalBindings : TGqlQueryTypepositionalBindingsArray;
Protected
//Property setters
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnamedBindings(AIndex : Integer; const AValue : TGqlQueryTypenamedBindings); virtual;
+ Procedure SetqueryString(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetallowLiterals(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpositionalBindings(AIndex : Integer; const AValue : TGqlQueryTypepositionalBindingsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property kind : String Index 0 Read Fkind Write Setkind;
+ Property namedBindings : TGqlQueryTypenamedBindings Index 0 Read FnamedBindings Write SetnamedBindings;
+ Property queryString : String Index 8 Read FqueryString Write SetqueryString;
+ Property allowLiterals : boolean Index 16 Read FallowLiterals Write SetallowLiterals;
+ Property positionalBindings : TGqlQueryTypepositionalBindingsArray Index 24 Read FpositionalBindings Write SetpositionalBindings;
end;
- TResponseHeaderClass = Class of TResponseHeader;
+ TGqlQueryClass = Class of TGqlQuery;
{ --------------------------------------------------------------------
- TRollbackRequest
+ TCommitResponse
--------------------------------------------------------------------}
- TRollbackRequest = Class(TGoogleBaseObject)
+ TCommitResponse = Class(TGoogleBaseObject)
Private
- Ftransaction : String;
+ FmutationResults : TCommitResponseTypemutationResultsArray;
+ FindexUpdates : integer;
Protected
//Property setters
- Procedure Settransaction(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmutationResults(AIndex : Integer; const AValue : TCommitResponseTypemutationResultsArray); virtual;
+ Procedure SetindexUpdates(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 transaction : String Index 0 Read Ftransaction Write Settransaction;
+ Property mutationResults : TCommitResponseTypemutationResultsArray Index 0 Read FmutationResults Write SetmutationResults;
+ Property indexUpdates : integer Index 8 Read FindexUpdates Write SetindexUpdates;
end;
- TRollbackRequestClass = Class of TRollbackRequest;
+ TCommitResponseClass = Class of TCommitResponse;
{ --------------------------------------------------------------------
- TRollbackResponse
+ TMutation
--------------------------------------------------------------------}
- TRollbackResponse = Class(TGoogleBaseObject)
+ TMutation = Class(TGoogleBaseObject)
Private
- Fheader : TResponseHeader;
+ Fupdate : TEntity;
+ Finsert : TEntity;
+ Fdelete : TKey;
+ Fupsert : TEntity;
Protected
//Property setters
- Procedure Setheader(AIndex : Integer; AValue : TResponseHeader); virtual;
+ Procedure Setupdate(AIndex : Integer; const AValue : TEntity); virtual;
+ Procedure Setinsert(AIndex : Integer; const AValue : TEntity); virtual;
+ Procedure Setdelete(AIndex : Integer; const AValue : TKey); virtual;
+ Procedure Setupsert(AIndex : Integer; const AValue : TEntity); virtual;
Public
Published
- Property header : TResponseHeader Index 0 Read Fheader Write Setheader;
+ Property update : TEntity Index 0 Read Fupdate Write Setupdate;
+ Property insert : TEntity Index 8 Read Finsert Write Setinsert;
+ Property delete : TKey Index 16 Read Fdelete Write Setdelete;
+ Property upsert : TEntity Index 24 Read Fupsert Write Setupsert;
end;
- TRollbackResponseClass = Class of TRollbackResponse;
+ TMutationClass = Class of TMutation;
{ --------------------------------------------------------------------
TRunQueryRequest
@@ -854,111 +796,104 @@ type
TRunQueryRequest = Class(TGoogleBaseObject)
Private
- FgqlQuery : TGqlQuery;
FpartitionId : TPartitionId;
+ FgqlQuery : TGqlQuery;
Fquery : TQuery;
FreadOptions : TReadOptions;
Protected
//Property setters
- Procedure SetgqlQuery(AIndex : Integer; AValue : TGqlQuery); virtual;
- Procedure SetpartitionId(AIndex : Integer; AValue : TPartitionId); virtual;
- Procedure Setquery(AIndex : Integer; AValue : TQuery); virtual;
- Procedure SetreadOptions(AIndex : Integer; AValue : TReadOptions); virtual;
+ Procedure SetpartitionId(AIndex : Integer; const AValue : TPartitionId); virtual;
+ Procedure SetgqlQuery(AIndex : Integer; const AValue : TGqlQuery); virtual;
+ Procedure Setquery(AIndex : Integer; const AValue : TQuery); virtual;
+ Procedure SetreadOptions(AIndex : Integer; const AValue : TReadOptions); virtual;
Public
Published
- Property gqlQuery : TGqlQuery Index 0 Read FgqlQuery Write SetgqlQuery;
- Property partitionId : TPartitionId Index 8 Read FpartitionId Write SetpartitionId;
+ Property partitionId : TPartitionId Index 0 Read FpartitionId Write SetpartitionId;
+ Property gqlQuery : TGqlQuery Index 8 Read FgqlQuery Write SetgqlQuery;
Property query : TQuery Index 16 Read Fquery Write Setquery;
Property readOptions : TReadOptions Index 24 Read FreadOptions Write SetreadOptions;
end;
TRunQueryRequestClass = Class of TRunQueryRequest;
{ --------------------------------------------------------------------
- TRunQueryResponse
+ TCompositeFilter
--------------------------------------------------------------------}
- TRunQueryResponse = Class(TGoogleBaseObject)
+ TCompositeFilter = Class(TGoogleBaseObject)
Private
- Fbatch : TQueryResultBatch;
- Fheader : TResponseHeader;
+ Fop : String;
+ Ffilters : TCompositeFilterTypefiltersArray;
Protected
//Property setters
- Procedure Setbatch(AIndex : Integer; AValue : TQueryResultBatch); virtual;
- Procedure Setheader(AIndex : Integer; AValue : TResponseHeader); virtual;
+ Procedure Setop(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfilters(AIndex : Integer; const AValue : TCompositeFilterTypefiltersArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property batch : TQueryResultBatch Index 0 Read Fbatch Write Setbatch;
- Property header : TResponseHeader Index 8 Read Fheader Write Setheader;
+ Property op : String Index 0 Read Fop Write Setop;
+ Property filters : TCompositeFilterTypefiltersArray Index 8 Read Ffilters Write Setfilters;
end;
- TRunQueryResponseClass = Class of TRunQueryResponse;
+ TCompositeFilterClass = Class of TCompositeFilter;
{ --------------------------------------------------------------------
- TValue
+ TLatLng
--------------------------------------------------------------------}
- TValue = Class(TGoogleBaseObject)
+ TLatLng = Class(TGoogleBaseObject)
Private
- FblobKeyValue : String;
- FblobValue : String;
- FbooleanValue : boolean;
- FdateTimeValue : TDatetime;
- FdoubleValue : double;
- FentityValue : TEntity;
- Findexed : boolean;
- FintegerValue : String;
- FkeyValue : TKey;
- FlistValue : TValueTypelistValueArray;
- Fmeaning : integer;
- FstringValue : String;
+ Flongitude : double;
+ Flatitude : double;
Protected
//Property setters
- Procedure SetblobKeyValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetblobValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbooleanValue(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetdateTimeValue(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetdoubleValue(AIndex : Integer; AValue : double); virtual;
- Procedure SetentityValue(AIndex : Integer; AValue : TEntity); virtual;
- Procedure Setindexed(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetintegerValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetkeyValue(AIndex : Integer; AValue : TKey); virtual;
- Procedure SetlistValue(AIndex : Integer; AValue : TValueTypelistValueArray); virtual;
- Procedure Setmeaning(AIndex : Integer; AValue : integer); virtual;
- Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual;
+ Public
+ Published
+ Property longitude : double Index 0 Read Flongitude Write Setlongitude;
+ Property latitude : double Index 8 Read Flatitude Write Setlatitude;
+ end;
+ TLatLngClass = Class of TLatLng;
+
+ { --------------------------------------------------------------------
+ TLookupRequest
+ --------------------------------------------------------------------}
+
+ TLookupRequest = Class(TGoogleBaseObject)
+ Private
+ Fkeys : TLookupRequestTypekeysArray;
+ FreadOptions : TReadOptions;
+ Protected
+ //Property setters
+ Procedure Setkeys(AIndex : Integer; const AValue : TLookupRequestTypekeysArray); virtual;
+ Procedure SetreadOptions(AIndex : Integer; const AValue : TReadOptions); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property blobKeyValue : String Index 0 Read FblobKeyValue Write SetblobKeyValue;
- Property blobValue : String Index 8 Read FblobValue Write SetblobValue;
- Property booleanValue : boolean Index 16 Read FbooleanValue Write SetbooleanValue;
- Property dateTimeValue : TDatetime Index 24 Read FdateTimeValue Write SetdateTimeValue;
- Property doubleValue : double Index 32 Read FdoubleValue Write SetdoubleValue;
- Property entityValue : TEntity Index 40 Read FentityValue Write SetentityValue;
- Property indexed : boolean Index 48 Read Findexed Write Setindexed;
- Property integerValue : String Index 56 Read FintegerValue Write SetintegerValue;
- Property keyValue : TKey Index 64 Read FkeyValue Write SetkeyValue;
- Property listValue : TValueTypelistValueArray Index 72 Read FlistValue Write SetlistValue;
- Property meaning : integer Index 80 Read Fmeaning Write Setmeaning;
- Property stringValue : String Index 88 Read FstringValue Write SetstringValue;
+ Property keys : TLookupRequestTypekeysArray Index 0 Read Fkeys Write Setkeys;
+ Property readOptions : TReadOptions Index 8 Read FreadOptions Write SetreadOptions;
end;
- TValueClass = Class of TValue;
+ TLookupRequestClass = Class of TLookupRequest;
{ --------------------------------------------------------------------
- TDatasetsResource
+ TProjectsResource
--------------------------------------------------------------------}
- TDatasetsResource = Class(TGoogleResource)
+ TProjectsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function AllocateIds(datasetId: string; aAllocateIdsRequest : TAllocateIdsRequest) : TAllocateIdsResponse;
- Function BeginTransaction(datasetId: string; aBeginTransactionRequest : TBeginTransactionRequest) : TBeginTransactionResponse;
- Function Commit(datasetId: string; aCommitRequest : TCommitRequest) : TCommitResponse;
- Function Lookup(datasetId: string; aLookupRequest : TLookupRequest) : TLookupResponse;
- Function Rollback(datasetId: string; aRollbackRequest : TRollbackRequest) : TRollbackResponse;
- Function RunQuery(datasetId: string; aRunQueryRequest : TRunQueryRequest) : TRunQueryResponse;
+ Function RunQuery(projectId: string; aRunQueryRequest : TRunQueryRequest) : TRunQueryResponse;
+ Function BeginTransaction(projectId: string; aBeginTransactionRequest : TBeginTransactionRequest) : TBeginTransactionResponse;
+ Function AllocateIds(projectId: string; aAllocateIdsRequest : TAllocateIdsRequest) : TAllocateIdsResponse;
+ Function Lookup(projectId: string; aLookupRequest : TLookupRequest) : TLookupResponse;
+ Function Commit(projectId: string; aCommitRequest : TCommitRequest) : TCommitResponse;
+ Function Rollback(projectId: string; aRollbackRequest : TRollbackRequest) : TRollbackResponse;
end;
@@ -968,8 +903,8 @@ type
TDatastoreAPI = Class(TGoogleAPI)
Private
- FDatasetsInstance : TDatasetsResource;
- Function GetDatasetsInstance : TDatasetsResource;virtual;
+ FProjectsInstance : TProjectsResource;
+ Function GetProjectsInstance : TProjectsResource;virtual;
Public
//Override class functions with API info
Class Function APIName : String; override;
@@ -993,169 +928,172 @@ type
Class Function APINeedsAuth : Boolean;override;
Class Procedure RegisterAPIResources; override;
//Add create function for resources
- Function CreateDatasetsResource(AOwner : TComponent) : TDatasetsResource;virtual;overload;
- Function CreateDatasetsResource : TDatasetsResource;virtual;overload;
+ Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
//Add default on-demand instances for resources
- Property DatasetsResource : TDatasetsResource Read GetDatasetsInstance;
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
end;
implementation
{ --------------------------------------------------------------------
- TAllocateIdsRequest
+ TValue
--------------------------------------------------------------------}
-Procedure TAllocateIdsRequest.Setkeys(AIndex : Integer; AValue : TAllocateIdsRequestTypekeysArray);
+Procedure TValue.SetstringValue(AIndex : Integer; const AValue : String);
begin
- If (Fkeys=AValue) then exit;
- Fkeys:=AValue;
+ If (FstringValue=AValue) then exit;
+ FstringValue:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TAllocateIdsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TValue.SetarrayValue(AIndex : Integer; const AValue : TArrayValue);
begin
- Case AName of
- 'keys' : SetLength(Fkeys,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FarrayValue=AValue) then exit;
+ FarrayValue:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
-
-{ --------------------------------------------------------------------
- TAllocateIdsResponse
- --------------------------------------------------------------------}
-
-
-Procedure TAllocateIdsResponse.Setheader(AIndex : Integer; AValue : TResponseHeader);
+Procedure TValue.SetentityValue(AIndex : Integer; const AValue : TEntity);
begin
- If (Fheader=AValue) then exit;
- Fheader:=AValue;
+ If (FentityValue=AValue) then exit;
+ FentityValue:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAllocateIdsResponse.Setkeys(AIndex : Integer; AValue : TAllocateIdsResponseTypekeysArray);
+Procedure TValue.Setmeaning(AIndex : Integer; const AValue : integer);
begin
- If (Fkeys=AValue) then exit;
- Fkeys:=AValue;
+ If (Fmeaning=AValue) then exit;
+ Fmeaning:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TAllocateIdsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TValue.SetintegerValue(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'keys' : SetLength(Fkeys,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FintegerValue=AValue) then exit;
+ FintegerValue:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TValue.SetdoubleValue(AIndex : Integer; const AValue : double);
-{ --------------------------------------------------------------------
- TBeginTransactionRequest
- --------------------------------------------------------------------}
+begin
+ If (FdoubleValue=AValue) then exit;
+ FdoubleValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TBeginTransactionRequest.SetisolationLevel(AIndex : Integer; const AValue : String);
+
+Procedure TValue.SetgeoPointValue(AIndex : Integer; const AValue : TLatLng);
begin
- If (FisolationLevel=AValue) then exit;
- FisolationLevel:=AValue;
+ If (FgeoPointValue=AValue) then exit;
+ FgeoPointValue:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TValue.SetblobValue(AIndex : Integer; const AValue : String);
+begin
+ If (FblobValue=AValue) then exit;
+ FblobValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TBeginTransactionResponse
- --------------------------------------------------------------------}
-Procedure TBeginTransactionResponse.Setheader(AIndex : Integer; AValue : TResponseHeader);
+Procedure TValue.SetnullValue(AIndex : Integer; const AValue : String);
begin
- If (Fheader=AValue) then exit;
- Fheader:=AValue;
+ If (FnullValue=AValue) then exit;
+ FnullValue:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TBeginTransactionResponse.Settransaction(AIndex : Integer; const AValue : String);
+Procedure TValue.SetkeyValue(AIndex : Integer; const AValue : TKey);
begin
- If (Ftransaction=AValue) then exit;
- Ftransaction:=AValue;
+ If (FkeyValue=AValue) then exit;
+ FkeyValue:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TValue.SetbooleanValue(AIndex : Integer; const AValue : boolean);
+begin
+ If (FbooleanValue=AValue) then exit;
+ FbooleanValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TCommitRequest
- --------------------------------------------------------------------}
-Procedure TCommitRequest.SetignoreReadOnly(AIndex : Integer; AValue : boolean);
+Procedure TValue.SetexcludeFromIndexes(AIndex : Integer; const AValue : boolean);
begin
- If (FignoreReadOnly=AValue) then exit;
- FignoreReadOnly:=AValue;
+ If (FexcludeFromIndexes=AValue) then exit;
+ FexcludeFromIndexes:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommitRequest.Setmode(AIndex : Integer; const AValue : String);
+Procedure TValue.SettimestampValue(AIndex : Integer; const AValue : String);
begin
- If (Fmode=AValue) then exit;
- Fmode:=AValue;
+ If (FtimestampValue=AValue) then exit;
+ FtimestampValue:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommitRequest.Setmutation(AIndex : Integer; AValue : TMutation);
+
+
+{ --------------------------------------------------------------------
+ TReadOptions
+ --------------------------------------------------------------------}
+
+
+Procedure TReadOptions.Settransaction(AIndex : Integer; const AValue : String);
begin
- If (Fmutation=AValue) then exit;
- Fmutation:=AValue;
+ If (Ftransaction=AValue) then exit;
+ Ftransaction:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommitRequest.Settransaction(AIndex : Integer; const AValue : String);
+Procedure TReadOptions.SetreadConsistency(AIndex : Integer; const AValue : String);
begin
- If (Ftransaction=AValue) then exit;
- Ftransaction:=AValue;
+ If (FreadConsistency=AValue) then exit;
+ FreadConsistency:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -1164,74 +1102,84 @@ end;
{ --------------------------------------------------------------------
- TCommitResponse
+ TPropertyOrder
--------------------------------------------------------------------}
-Procedure TCommitResponse.Setheader(AIndex : Integer; AValue : TResponseHeader);
+Procedure TPropertyOrder.Setdirection(AIndex : Integer; const AValue : String);
begin
- If (Fheader=AValue) then exit;
- Fheader:=AValue;
+ If (Fdirection=AValue) then exit;
+ Fdirection:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommitResponse.SetmutationResult(AIndex : Integer; AValue : TMutationResult);
+Procedure TPropertyOrder.Set_property(AIndex : Integer; const AValue : TPropertyReference);
begin
- If (FmutationResult=AValue) then exit;
- FmutationResult:=AValue;
+ If (F_property=AValue) then exit;
+ F_property:=AValue;
MarkPropertyChanged(AIndex);
end;
+Class Function TPropertyOrder.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_property' : Result:='property';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
{ --------------------------------------------------------------------
- TCompositeFilter
+ TCommitRequest
--------------------------------------------------------------------}
-Procedure TCompositeFilter.Setfilters(AIndex : Integer; AValue : TCompositeFilterTypefiltersArray);
+Procedure TCommitRequest.Settransaction(AIndex : Integer; const AValue : String);
begin
- If (Ffilters=AValue) then exit;
- Ffilters:=AValue;
+ If (Ftransaction=AValue) then exit;
+ Ftransaction:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCompositeFilter.Set_operator(AIndex : Integer; const AValue : String);
+Procedure TCommitRequest.Setmutations(AIndex : Integer; const AValue : TCommitRequestTypemutationsArray);
begin
- If (F_operator=AValue) then exit;
- F_operator:=AValue;
+ If (Fmutations=AValue) then exit;
+ Fmutations:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TCompositeFilter.ExportPropertyName(Const AName : String) :String;
+Procedure TCommitRequest.Setmode(AIndex : Integer; const AValue : String);
begin
- Case AName of
- '_operator' : Result:='operator';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
+ If (Fmode=AValue) then exit;
+ Fmode:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TCompositeFilter.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TCommitRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'filters' : SetLength(Ffilters,ALength);
+ 'mutations' : SetLength(Fmutations,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1242,141 +1190,126 @@ end;
{ --------------------------------------------------------------------
- TEntityTypeproperties
+ TRollbackRequest
--------------------------------------------------------------------}
-Class Function TEntityTypeproperties.AllowAdditionalProperties : Boolean;
+Procedure TRollbackRequest.Settransaction(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (Ftransaction=AValue) then exit;
+ Ftransaction:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
+
{ --------------------------------------------------------------------
- TEntity
+ TQuery
--------------------------------------------------------------------}
-Procedure TEntity.Setkey(AIndex : Integer; AValue : TKey);
+Procedure TQuery.Setlimit(AIndex : Integer; const AValue : integer);
begin
- If (Fkey=AValue) then exit;
- Fkey:=AValue;
+ If (Flimit=AValue) then exit;
+ Flimit:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TEntity.Setproperties(AIndex : Integer; AValue : TEntityTypeproperties);
+Procedure TQuery.Setfilter(AIndex : Integer; const AValue : TFilter);
begin
- If (Fproperties=AValue) then exit;
- Fproperties:=AValue;
+ If (Ffilter=AValue) then exit;
+ Ffilter:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TEntityResult
- --------------------------------------------------------------------}
-
-
-Procedure TEntityResult.Setentity(AIndex : Integer; AValue : TEntity);
+Procedure TQuery.SetendCursor(AIndex : Integer; const AValue : String);
begin
- If (Fentity=AValue) then exit;
- Fentity:=AValue;
+ If (FendCursor=AValue) then exit;
+ FendCursor:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TFilter
- --------------------------------------------------------------------}
-
-
-Procedure TFilter.SetcompositeFilter(AIndex : Integer; AValue : TCompositeFilter);
+Procedure TQuery.SetdistinctOn(AIndex : Integer; const AValue : TQueryTypedistinctOnArray);
begin
- If (FcompositeFilter=AValue) then exit;
- FcompositeFilter:=AValue;
+ If (FdistinctOn=AValue) then exit;
+ FdistinctOn:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFilter.SetpropertyFilter(AIndex : Integer; AValue : TPropertyFilter);
+Procedure TQuery.Setoffset(AIndex : Integer; const AValue : integer);
begin
- If (FpropertyFilter=AValue) then exit;
- FpropertyFilter:=AValue;
+ If (Foffset=AValue) then exit;
+ Foffset:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TGqlQuery
- --------------------------------------------------------------------}
-
-
-Procedure TGqlQuery.SetallowLiteral(AIndex : Integer; AValue : boolean);
+Procedure TQuery.Setprojection(AIndex : Integer; const AValue : TQueryTypeprojectionArray);
begin
- If (FallowLiteral=AValue) then exit;
- FallowLiteral:=AValue;
+ If (Fprojection=AValue) then exit;
+ Fprojection:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TGqlQuery.SetnameArgs(AIndex : Integer; AValue : TGqlQueryTypenameArgsArray);
+Procedure TQuery.SetstartCursor(AIndex : Integer; const AValue : String);
begin
- If (FnameArgs=AValue) then exit;
- FnameArgs:=AValue;
+ If (FstartCursor=AValue) then exit;
+ FstartCursor:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TGqlQuery.SetnumberArgs(AIndex : Integer; AValue : TGqlQueryTypenumberArgsArray);
+Procedure TQuery.Setorder(AIndex : Integer; const AValue : TQueryTypeorderArray);
begin
- If (FnumberArgs=AValue) then exit;
- FnumberArgs:=AValue;
+ If (Forder=AValue) then exit;
+ Forder:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TGqlQuery.SetqueryString(AIndex : Integer; const AValue : String);
+Procedure TQuery.Setkind(AIndex : Integer; const AValue : TQueryTypekindArray);
begin
- If (FqueryString=AValue) then exit;
- FqueryString:=AValue;
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TGqlQuery.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TQuery.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'nameargs' : SetLength(FnameArgs,ALength);
- 'numberargs' : SetLength(FnumberArgs,ALength);
+ 'distincton' : SetLength(FdistinctOn,ALength);
+ 'projection' : SetLength(Fprojection,ALength);
+ 'order' : SetLength(Forder,ALength);
+ 'kind' : SetLength(Fkind,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1387,11 +1320,11 @@ end;
{ --------------------------------------------------------------------
- TGqlQueryArg
+ TEntityResult
--------------------------------------------------------------------}
-Procedure TGqlQueryArg.Setcursor(AIndex : Integer; const AValue : String);
+Procedure TEntityResult.Setcursor(AIndex : Integer; const AValue : String);
begin
If (Fcursor=AValue) then exit;
@@ -1401,21 +1334,11 @@ end;
-Procedure TGqlQueryArg.Setname(AIndex : Integer; const AValue : String);
-
-begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TGqlQueryArg.Setvalue(AIndex : Integer; AValue : TValue);
+Procedure TEntityResult.Setentity(AIndex : Integer; const AValue : TEntity);
begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
+ If (Fentity=AValue) then exit;
+ Fentity:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -1424,92 +1347,69 @@ end;
{ --------------------------------------------------------------------
- TKey
+ TGqlQueryParameter
--------------------------------------------------------------------}
-Procedure TKey.SetpartitionId(AIndex : Integer; AValue : TPartitionId);
+Procedure TGqlQueryParameter.Setcursor(AIndex : Integer; const AValue : String);
begin
- If (FpartitionId=AValue) then exit;
- FpartitionId:=AValue;
+ If (Fcursor=AValue) then exit;
+ Fcursor:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TKey.Setpath(AIndex : Integer; AValue : TKeyTypepathArray);
+Procedure TGqlQueryParameter.Setvalue(AIndex : Integer; const AValue : TValue);
begin
- If (Fpath=AValue) then exit;
- Fpath:=AValue;
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TKey.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'path' : SetLength(Fpath,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
{ --------------------------------------------------------------------
- TKeyPathElement
+ TBeginTransactionResponse
--------------------------------------------------------------------}
-Procedure TKeyPathElement.Setid(AIndex : Integer; const AValue : String);
+Procedure TBeginTransactionResponse.Settransaction(AIndex : Integer; const AValue : String);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (Ftransaction=AValue) then exit;
+ Ftransaction:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TKeyPathElement.Setkind(AIndex : Integer; const AValue : String);
-begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TFilter
+ --------------------------------------------------------------------}
-Procedure TKeyPathElement.Setname(AIndex : Integer; const AValue : String);
+Procedure TFilter.SetpropertyFilter(AIndex : Integer; const AValue : TPropertyFilter);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (FpropertyFilter=AValue) then exit;
+ FpropertyFilter:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TKindExpression
- --------------------------------------------------------------------}
-
-
-Procedure TKindExpression.Setname(AIndex : Integer; const AValue : String);
+Procedure TFilter.SetcompositeFilter(AIndex : Integer; const AValue : TCompositeFilter);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (FcompositeFilter=AValue) then exit;
+ FcompositeFilter:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -1518,36 +1418,26 @@ end;
{ --------------------------------------------------------------------
- TLookupRequest
+ TArrayValue
--------------------------------------------------------------------}
-Procedure TLookupRequest.Setkeys(AIndex : Integer; AValue : TLookupRequestTypekeysArray);
-
-begin
- If (Fkeys=AValue) then exit;
- Fkeys:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TLookupRequest.SetreadOptions(AIndex : Integer; AValue : TReadOptions);
+Procedure TArrayValue.Setvalues(AIndex : Integer; const AValue : TArrayValueTypevaluesArray);
begin
- If (FreadOptions=AValue) then exit;
- FreadOptions:=AValue;
+ If (Fvalues=AValue) then exit;
+ Fvalues:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TLookupRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TArrayValue.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'keys' : SetLength(Fkeys,ALength);
+ 'values' : SetLength(Fvalues,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1558,142 +1448,103 @@ end;
{ --------------------------------------------------------------------
- TLookupResponse
+ TPartitionId
--------------------------------------------------------------------}
-Procedure TLookupResponse.Setdeferred(AIndex : Integer; AValue : TLookupResponseTypedeferredArray);
-
-begin
- If (Fdeferred=AValue) then exit;
- Fdeferred:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TLookupResponse.Setfound(AIndex : Integer; AValue : TLookupResponseTypefoundArray);
+Procedure TPartitionId.SetnamespaceId(AIndex : Integer; const AValue : String);
begin
- If (Ffound=AValue) then exit;
- Ffound:=AValue;
+ If (FnamespaceId=AValue) then exit;
+ FnamespaceId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLookupResponse.Setheader(AIndex : Integer; AValue : TResponseHeader);
+Procedure TPartitionId.SetprojectId(AIndex : Integer; const AValue : String);
begin
- If (Fheader=AValue) then exit;
- Fheader:=AValue;
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLookupResponse.Setmissing(AIndex : Integer; AValue : TLookupResponseTypemissingArray);
-
-begin
- If (Fmissing=AValue) then exit;
- Fmissing:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TLookupResponse.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'deferred' : SetLength(Fdeferred,ALength);
- 'found' : SetLength(Ffound,ALength);
- 'missing' : SetLength(Fmissing,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
{ --------------------------------------------------------------------
- TMutation
+ TQueryResultBatch
--------------------------------------------------------------------}
-Procedure TMutation.Setdelete(AIndex : Integer; AValue : TMutationTypedeleteArray);
+Procedure TQueryResultBatch.SetendCursor(AIndex : Integer; const AValue : String);
begin
- If (Fdelete=AValue) then exit;
- Fdelete:=AValue;
+ If (FendCursor=AValue) then exit;
+ FendCursor:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMutation.Setforce(AIndex : Integer; AValue : boolean);
+Procedure TQueryResultBatch.SetskippedCursor(AIndex : Integer; const AValue : String);
begin
- If (Fforce=AValue) then exit;
- Fforce:=AValue;
+ If (FskippedCursor=AValue) then exit;
+ FskippedCursor:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMutation.Setinsert(AIndex : Integer; AValue : TMutationTypeinsertArray);
+Procedure TQueryResultBatch.SetentityResultType(AIndex : Integer; const AValue : String);
begin
- If (Finsert=AValue) then exit;
- Finsert:=AValue;
+ If (FentityResultType=AValue) then exit;
+ FentityResultType:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMutation.SetinsertAutoId(AIndex : Integer; AValue : TMutationTypeinsertAutoIdArray);
+Procedure TQueryResultBatch.SetmoreResults(AIndex : Integer; const AValue : String);
begin
- If (FinsertAutoId=AValue) then exit;
- FinsertAutoId:=AValue;
+ If (FmoreResults=AValue) then exit;
+ FmoreResults:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMutation.Setupdate(AIndex : Integer; AValue : TMutationTypeupdateArray);
+Procedure TQueryResultBatch.SetentityResults(AIndex : Integer; const AValue : TQueryResultBatchTypeentityResultsArray);
begin
- If (Fupdate=AValue) then exit;
- Fupdate:=AValue;
+ If (FentityResults=AValue) then exit;
+ FentityResults:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMutation.Setupsert(AIndex : Integer; AValue : TMutationTypeupsertArray);
+Procedure TQueryResultBatch.SetskippedResults(AIndex : Integer; const AValue : integer);
begin
- If (Fupsert=AValue) then exit;
- Fupsert:=AValue;
+ If (FskippedResults=AValue) then exit;
+ FskippedResults:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TMutation.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TQueryResultBatch.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'delete' : SetLength(Fdelete,ALength);
- 'insert' : SetLength(Finsert,ALength);
- 'insertautoid' : SetLength(FinsertAutoId,ALength);
- 'update' : SetLength(Fupdate,ALength);
- 'upsert' : SetLength(Fupsert,ALength);
+ 'entityresults' : SetLength(FentityResults,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1704,36 +1555,26 @@ end;
{ --------------------------------------------------------------------
- TMutationResult
+ TAllocateIdsRequest
--------------------------------------------------------------------}
-Procedure TMutationResult.SetindexUpdates(AIndex : Integer; AValue : integer);
-
-begin
- If (FindexUpdates=AValue) then exit;
- FindexUpdates:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMutationResult.SetinsertAutoIdKeys(AIndex : Integer; AValue : TMutationResultTypeinsertAutoIdKeysArray);
+Procedure TAllocateIdsRequest.Setkeys(AIndex : Integer; const AValue : TAllocateIdsRequestTypekeysArray);
begin
- If (FinsertAutoIdKeys=AValue) then exit;
- FinsertAutoIdKeys:=AValue;
+ If (Fkeys=AValue) then exit;
+ Fkeys:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TMutationResult.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TAllocateIdsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'insertautoidkeys' : SetLength(FinsertAutoIdKeys,ALength);
+ 'keys' : SetLength(Fkeys,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1744,307 +1585,325 @@ end;
{ --------------------------------------------------------------------
- TPartitionId
+ TPropertyFilter
--------------------------------------------------------------------}
-Procedure TPartitionId.SetdatasetId(AIndex : Integer; const AValue : String);
+Procedure TPropertyFilter.Setvalue(AIndex : Integer; const AValue : TValue);
begin
- If (FdatasetId=AValue) then exit;
- FdatasetId:=AValue;
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPartitionId.Setnamespace(AIndex : Integer; const AValue : String);
+Procedure TPropertyFilter.Setop(AIndex : Integer; const AValue : String);
begin
- If (Fnamespace=AValue) then exit;
- Fnamespace:=AValue;
+ If (Fop=AValue) then exit;
+ Fop:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TProperty
- --------------------------------------------------------------------}
-
-
-Procedure TProperty.SetblobKeyValue(AIndex : Integer; const AValue : String);
+Procedure TPropertyFilter.Set_property(AIndex : Integer; const AValue : TPropertyReference);
begin
- If (FblobKeyValue=AValue) then exit;
- FblobKeyValue:=AValue;
+ If (F_property=AValue) then exit;
+ F_property:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TProperty.SetblobValue(AIndex : Integer; const AValue : String);
+Class Function TPropertyFilter.ExportPropertyName(Const AName : String) :String;
begin
- If (FblobValue=AValue) then exit;
- FblobValue:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ '_property' : Result:='property';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
end;
-Procedure TProperty.SetbooleanValue(AIndex : Integer; AValue : boolean);
+
+{ --------------------------------------------------------------------
+ TKindExpression
+ --------------------------------------------------------------------}
+
+
+Procedure TKindExpression.Setname(AIndex : Integer; const AValue : String);
begin
- If (FbooleanValue=AValue) then exit;
- FbooleanValue:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TProperty.SetdateTimeValue(AIndex : Integer; AValue : TDatetime);
-begin
- If (FdateTimeValue=AValue) then exit;
- FdateTimeValue:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TPathElement
+ --------------------------------------------------------------------}
-Procedure TProperty.SetdoubleValue(AIndex : Integer; AValue : double);
+Procedure TPathElement.Setkind(AIndex : Integer; const AValue : String);
begin
- If (FdoubleValue=AValue) then exit;
- FdoubleValue:=AValue;
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TProperty.SetentityValue(AIndex : Integer; AValue : TEntity);
+Procedure TPathElement.Setname(AIndex : Integer; const AValue : String);
begin
- If (FentityValue=AValue) then exit;
- FentityValue:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TProperty.Setindexed(AIndex : Integer; AValue : boolean);
+Procedure TPathElement.Setid(AIndex : Integer; const AValue : String);
begin
- If (Findexed=AValue) then exit;
- Findexed:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TProperty.SetintegerValue(AIndex : Integer; const AValue : String);
-begin
- If (FintegerValue=AValue) then exit;
- FintegerValue:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TRollbackResponse
+ --------------------------------------------------------------------}
-Procedure TProperty.SetkeyValue(AIndex : Integer; AValue : TKey);
-begin
- If (FkeyValue=AValue) then exit;
- FkeyValue:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TPropertyReference
+ --------------------------------------------------------------------}
-Procedure TProperty.SetlistValue(AIndex : Integer; AValue : TPropertyTypelistValueArray);
+Procedure TPropertyReference.Setname(AIndex : Integer; const AValue : String);
begin
- If (FlistValue=AValue) then exit;
- FlistValue:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TProperty.Setmeaning(AIndex : Integer; AValue : integer);
-begin
- If (Fmeaning=AValue) then exit;
- Fmeaning:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TProjection
+ --------------------------------------------------------------------}
-Procedure TProperty.SetstringValue(AIndex : Integer; const AValue : String);
+Procedure TProjection.Set_property(AIndex : Integer; const AValue : TPropertyReference);
begin
- If (FstringValue=AValue) then exit;
- FstringValue:=AValue;
+ If (F_property=AValue) then exit;
+ F_property:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TProperty.SetArrayLength(Const AName : String; ALength : Longint);
+
+Class Function TProjection.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
- 'listvalue' : SetLength(FlistValue,ALength);
+ '_property' : Result:='property';
else
- Inherited SetArrayLength(AName,ALength);
+ Result:=Inherited ExportPropertyName(AName);
end;
end;
-{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TPropertyExpression
+ TAllocateIdsResponse
--------------------------------------------------------------------}
-Procedure TPropertyExpression.SetaggregationFunction(AIndex : Integer; const AValue : String);
+Procedure TAllocateIdsResponse.Setkeys(AIndex : Integer; const AValue : TAllocateIdsResponseTypekeysArray);
begin
- If (FaggregationFunction=AValue) then exit;
- FaggregationFunction:=AValue;
+ If (Fkeys=AValue) then exit;
+ Fkeys:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TPropertyExpression.Set_property(AIndex : Integer; AValue : TPropertyReference);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAllocateIdsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (F_property=AValue) then exit;
- F_property:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'keys' : SetLength(Fkeys,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Class Function TPropertyExpression.ExportPropertyName(Const AName : String) :String;
+
+{ --------------------------------------------------------------------
+ TMutationResult
+ --------------------------------------------------------------------}
+
+
+Procedure TMutationResult.Setkey(AIndex : Integer; const AValue : TKey);
begin
- Case AName of
- '_property' : Result:='property';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
{ --------------------------------------------------------------------
- TPropertyFilter
+ TLookupResponse
--------------------------------------------------------------------}
-Procedure TPropertyFilter.Set_operator(AIndex : Integer; const AValue : String);
+Procedure TLookupResponse.Setfound(AIndex : Integer; const AValue : TLookupResponseTypefoundArray);
begin
- If (F_operator=AValue) then exit;
- F_operator:=AValue;
+ If (Ffound=AValue) then exit;
+ Ffound:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPropertyFilter.Set_property(AIndex : Integer; AValue : TPropertyReference);
+Procedure TLookupResponse.Setdeferred(AIndex : Integer; const AValue : TLookupResponseTypedeferredArray);
begin
- If (F_property=AValue) then exit;
- F_property:=AValue;
+ If (Fdeferred=AValue) then exit;
+ Fdeferred:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPropertyFilter.Setvalue(AIndex : Integer; AValue : TValue);
+Procedure TLookupResponse.Setmissing(AIndex : Integer; const AValue : TLookupResponseTypemissingArray);
begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
+ If (Fmissing=AValue) then exit;
+ Fmissing:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Class Function TPropertyFilter.ExportPropertyName(Const AName : String) :String;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLookupResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- '_operator' : Result:='operator';
- '_property' : Result:='property';
+ 'found' : SetLength(Ffound,ALength);
+ 'deferred' : SetLength(Fdeferred,ALength);
+ 'missing' : SetLength(Fmissing,ALength);
else
- Result:=Inherited ExportPropertyName(AName);
+ Inherited SetArrayLength(AName,ALength);
end;
end;
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TPropertyOrder
+ TBeginTransactionRequest
--------------------------------------------------------------------}
-Procedure TPropertyOrder.Setdirection(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TKey
+ --------------------------------------------------------------------}
+
+
+Procedure TKey.SetpartitionId(AIndex : Integer; const AValue : TPartitionId);
begin
- If (Fdirection=AValue) then exit;
- Fdirection:=AValue;
+ If (FpartitionId=AValue) then exit;
+ FpartitionId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPropertyOrder.Set_property(AIndex : Integer; AValue : TPropertyReference);
+Procedure TKey.Setpath(AIndex : Integer; const AValue : TKeyTypepathArray);
begin
- If (F_property=AValue) then exit;
- F_property:=AValue;
+ If (Fpath=AValue) then exit;
+ Fpath:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Class Function TPropertyOrder.ExportPropertyName(Const AName : String) :String;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TKey.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- '_property' : Result:='property';
+ 'path' : SetLength(Fpath,ALength);
else
- Result:=Inherited ExportPropertyName(AName);
+ Inherited SetArrayLength(AName,ALength);
end;
end;
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TPropertyReference
+ TRunQueryResponse
--------------------------------------------------------------------}
-Procedure TPropertyReference.Setname(AIndex : Integer; const AValue : String);
+Procedure TRunQueryResponse.Setbatch(AIndex : Integer; const AValue : TQueryResultBatch);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (Fbatch=AValue) then exit;
+ Fbatch:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRunQueryResponse.Setquery(AIndex : Integer; const AValue : TQuery);
+
+begin
+ If (Fquery=AValue) then exit;
+ Fquery:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -2053,109 +1912,109 @@ end;
{ --------------------------------------------------------------------
- TQuery
+ TEntityTypeproperties
--------------------------------------------------------------------}
-Procedure TQuery.SetendCursor(AIndex : Integer; const AValue : String);
+Class Function TEntityTypeproperties.AllowAdditionalProperties : Boolean;
begin
- If (FendCursor=AValue) then exit;
- FendCursor:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TQuery.Setfilter(AIndex : Integer; AValue : TFilter);
+{ --------------------------------------------------------------------
+ TEntity
+ --------------------------------------------------------------------}
+
+
+Procedure TEntity.Setproperties(AIndex : Integer; const AValue : TEntityTypeproperties);
begin
- If (Ffilter=AValue) then exit;
- Ffilter:=AValue;
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TQuery.SetgroupBy(AIndex : Integer; AValue : TQueryTypegroupByArray);
+Procedure TEntity.Setkey(AIndex : Integer; const AValue : TKey);
begin
- If (FgroupBy=AValue) then exit;
- FgroupBy:=AValue;
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TQuery.Setkinds(AIndex : Integer; AValue : TQueryTypekindsArray);
-begin
- If (Fkinds=AValue) then exit;
- Fkinds:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TGqlQueryTypenamedBindings
+ --------------------------------------------------------------------}
-Procedure TQuery.Setlimit(AIndex : Integer; AValue : integer);
+Class Function TGqlQueryTypenamedBindings.AllowAdditionalProperties : Boolean;
begin
- If (Flimit=AValue) then exit;
- Flimit:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TQuery.Setoffset(AIndex : Integer; AValue : integer);
+{ --------------------------------------------------------------------
+ TGqlQuery
+ --------------------------------------------------------------------}
+
+
+Procedure TGqlQuery.SetnamedBindings(AIndex : Integer; const AValue : TGqlQueryTypenamedBindings);
begin
- If (Foffset=AValue) then exit;
- Foffset:=AValue;
+ If (FnamedBindings=AValue) then exit;
+ FnamedBindings:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TQuery.Setorder(AIndex : Integer; AValue : TQueryTypeorderArray);
+Procedure TGqlQuery.SetqueryString(AIndex : Integer; const AValue : String);
begin
- If (Forder=AValue) then exit;
- Forder:=AValue;
+ If (FqueryString=AValue) then exit;
+ FqueryString:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TQuery.Setprojection(AIndex : Integer; AValue : TQueryTypeprojectionArray);
+Procedure TGqlQuery.SetallowLiterals(AIndex : Integer; const AValue : boolean);
begin
- If (Fprojection=AValue) then exit;
- Fprojection:=AValue;
+ If (FallowLiterals=AValue) then exit;
+ FallowLiterals:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TQuery.SetstartCursor(AIndex : Integer; const AValue : String);
+Procedure TGqlQuery.SetpositionalBindings(AIndex : Integer; const AValue : TGqlQueryTypepositionalBindingsArray);
begin
- If (FstartCursor=AValue) then exit;
- FstartCursor:=AValue;
+ If (FpositionalBindings=AValue) then exit;
+ FpositionalBindings:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TQuery.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TGqlQuery.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'groupby' : SetLength(FgroupBy,ALength);
- 'kinds' : SetLength(Fkinds,ALength);
- 'order' : SetLength(Forder,ALength);
- 'projection' : SetLength(Fprojection,ALength);
+ 'positionalbindings' : SetLength(FpositionalBindings,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -2166,66 +2025,36 @@ end;
{ --------------------------------------------------------------------
- TQueryResultBatch
+ TCommitResponse
--------------------------------------------------------------------}
-Procedure TQueryResultBatch.SetendCursor(AIndex : Integer; const AValue : String);
-
-begin
- If (FendCursor=AValue) then exit;
- FendCursor:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TQueryResultBatch.SetentityResultType(AIndex : Integer; const AValue : String);
+Procedure TCommitResponse.SetmutationResults(AIndex : Integer; const AValue : TCommitResponseTypemutationResultsArray);
begin
- If (FentityResultType=AValue) then exit;
- FentityResultType:=AValue;
+ If (FmutationResults=AValue) then exit;
+ FmutationResults:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TQueryResultBatch.SetentityResults(AIndex : Integer; AValue : TQueryResultBatchTypeentityResultsArray);
+Procedure TCommitResponse.SetindexUpdates(AIndex : Integer; const AValue : integer);
begin
- If (FentityResults=AValue) then exit;
- FentityResults:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TQueryResultBatch.SetmoreResults(AIndex : Integer; const AValue : String);
-
-begin
- If (FmoreResults=AValue) then exit;
- FmoreResults:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TQueryResultBatch.SetskippedResults(AIndex : Integer; AValue : integer);
-
-begin
- If (FskippedResults=AValue) then exit;
- FskippedResults:=AValue;
+ If (FindexUpdates=AValue) then exit;
+ FindexUpdates:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TQueryResultBatch.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TCommitResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'entityresults' : SetLength(FentityResults,ALength);
+ 'mutationresults' : SetLength(FmutationResults,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -2236,59 +2065,45 @@ end;
{ --------------------------------------------------------------------
- TReadOptions
+ TMutation
--------------------------------------------------------------------}
-Procedure TReadOptions.SetreadConsistency(AIndex : Integer; const AValue : String);
+Procedure TMutation.Setupdate(AIndex : Integer; const AValue : TEntity);
begin
- If (FreadConsistency=AValue) then exit;
- FreadConsistency:=AValue;
+ If (Fupdate=AValue) then exit;
+ Fupdate:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadOptions.Settransaction(AIndex : Integer; const AValue : String);
+Procedure TMutation.Setinsert(AIndex : Integer; const AValue : TEntity);
begin
- If (Ftransaction=AValue) then exit;
- Ftransaction:=AValue;
+ If (Finsert=AValue) then exit;
+ Finsert:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TResponseHeader
- --------------------------------------------------------------------}
-
-
-Procedure TResponseHeader.Setkind(AIndex : Integer; const AValue : String);
+Procedure TMutation.Setdelete(AIndex : Integer; const AValue : TKey);
begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
+ If (Fdelete=AValue) then exit;
+ Fdelete:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TRollbackRequest
- --------------------------------------------------------------------}
-
-
-Procedure TRollbackRequest.Settransaction(AIndex : Integer; const AValue : String);
+Procedure TMutation.Setupsert(AIndex : Integer; const AValue : TEntity);
begin
- If (Ftransaction=AValue) then exit;
- Ftransaction:=AValue;
+ If (Fupsert=AValue) then exit;
+ Fupsert:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -2297,28 +2112,21 @@ end;
{ --------------------------------------------------------------------
- TRollbackResponse
+ TRunQueryRequest
--------------------------------------------------------------------}
-Procedure TRollbackResponse.Setheader(AIndex : Integer; AValue : TResponseHeader);
+Procedure TRunQueryRequest.SetpartitionId(AIndex : Integer; const AValue : TPartitionId);
begin
- If (Fheader=AValue) then exit;
- Fheader:=AValue;
+ If (FpartitionId=AValue) then exit;
+ FpartitionId:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TRunQueryRequest
- --------------------------------------------------------------------}
-
-
-Procedure TRunQueryRequest.SetgqlQuery(AIndex : Integer; AValue : TGqlQuery);
+Procedure TRunQueryRequest.SetgqlQuery(AIndex : Integer; const AValue : TGqlQuery);
begin
If (FgqlQuery=AValue) then exit;
@@ -2328,17 +2136,7 @@ end;
-Procedure TRunQueryRequest.SetpartitionId(AIndex : Integer; AValue : TPartitionId);
-
-begin
- If (FpartitionId=AValue) then exit;
- FpartitionId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TRunQueryRequest.Setquery(AIndex : Integer; AValue : TQuery);
+Procedure TRunQueryRequest.Setquery(AIndex : Integer; const AValue : TQuery);
begin
If (Fquery=AValue) then exit;
@@ -2348,7 +2146,7 @@ end;
-Procedure TRunQueryRequest.SetreadOptions(AIndex : Integer; AValue : TReadOptions);
+Procedure TRunQueryRequest.SetreadOptions(AIndex : Integer; const AValue : TReadOptions);
begin
If (FreadOptions=AValue) then exit;
@@ -2361,163 +2159,103 @@ end;
{ --------------------------------------------------------------------
- TRunQueryResponse
- --------------------------------------------------------------------}
-
-
-Procedure TRunQueryResponse.Setbatch(AIndex : Integer; AValue : TQueryResultBatch);
-
-begin
- If (Fbatch=AValue) then exit;
- Fbatch:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TRunQueryResponse.Setheader(AIndex : Integer; AValue : TResponseHeader);
-
-begin
- If (Fheader=AValue) then exit;
- Fheader:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
- TValue
+ TCompositeFilter
--------------------------------------------------------------------}
-Procedure TValue.SetblobKeyValue(AIndex : Integer; const AValue : String);
-
-begin
- If (FblobKeyValue=AValue) then exit;
- FblobKeyValue:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TValue.SetblobValue(AIndex : Integer; const AValue : String);
-
-begin
- If (FblobValue=AValue) then exit;
- FblobValue:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TValue.SetbooleanValue(AIndex : Integer; AValue : boolean);
-
-begin
- If (FbooleanValue=AValue) then exit;
- FbooleanValue:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TValue.SetdateTimeValue(AIndex : Integer; AValue : TDatetime);
+Procedure TCompositeFilter.Setop(AIndex : Integer; const AValue : String);
begin
- If (FdateTimeValue=AValue) then exit;
- FdateTimeValue:=AValue;
+ If (Fop=AValue) then exit;
+ Fop:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TValue.SetdoubleValue(AIndex : Integer; AValue : double);
+Procedure TCompositeFilter.Setfilters(AIndex : Integer; const AValue : TCompositeFilterTypefiltersArray);
begin
- If (FdoubleValue=AValue) then exit;
- FdoubleValue:=AValue;
+ If (Ffilters=AValue) then exit;
+ Ffilters:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TValue.SetentityValue(AIndex : Integer; AValue : TEntity);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCompositeFilter.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FentityValue=AValue) then exit;
- FentityValue:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'filters' : SetLength(Ffilters,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Procedure TValue.Setindexed(AIndex : Integer; AValue : boolean);
-
-begin
- If (Findexed=AValue) then exit;
- Findexed:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TLatLng
+ --------------------------------------------------------------------}
-Procedure TValue.SetintegerValue(AIndex : Integer; const AValue : String);
+Procedure TLatLng.Setlongitude(AIndex : Integer; const AValue : double);
begin
- If (FintegerValue=AValue) then exit;
- FintegerValue:=AValue;
+ If (Flongitude=AValue) then exit;
+ Flongitude:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TValue.SetkeyValue(AIndex : Integer; AValue : TKey);
+Procedure TLatLng.Setlatitude(AIndex : Integer; const AValue : double);
begin
- If (FkeyValue=AValue) then exit;
- FkeyValue:=AValue;
+ If (Flatitude=AValue) then exit;
+ Flatitude:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TValue.SetlistValue(AIndex : Integer; AValue : TValueTypelistValueArray);
-begin
- If (FlistValue=AValue) then exit;
- FlistValue:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TLookupRequest
+ --------------------------------------------------------------------}
-Procedure TValue.Setmeaning(AIndex : Integer; AValue : integer);
+Procedure TLookupRequest.Setkeys(AIndex : Integer; const AValue : TLookupRequestTypekeysArray);
begin
- If (Fmeaning=AValue) then exit;
- Fmeaning:=AValue;
+ If (Fkeys=AValue) then exit;
+ Fkeys:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TValue.SetstringValue(AIndex : Integer; const AValue : String);
+Procedure TLookupRequest.SetreadOptions(AIndex : Integer; const AValue : TReadOptions);
begin
- If (FstringValue=AValue) then exit;
- FstringValue:=AValue;
+ If (FreadOptions=AValue) then exit;
+ FreadOptions:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TValue.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TLookupRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'listvalue' : SetLength(FlistValue,ALength);
+ 'keys' : SetLength(Fkeys,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -2528,110 +2266,110 @@ end;
{ --------------------------------------------------------------------
- TDatasetsResource
+ TProjectsResource
--------------------------------------------------------------------}
-Class Function TDatasetsResource.ResourceName : String;
+Class Function TProjectsResource.ResourceName : String;
begin
- Result:='datasets';
+ Result:='projects';
end;
-Class Function TDatasetsResource.DefaultAPI : TGoogleAPIClass;
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TdatastoreAPI;
end;
-Function TDatasetsResource.AllocateIds(datasetId: string; aAllocateIdsRequest : TAllocateIdsRequest) : TAllocateIdsResponse;
+Function TProjectsResource.RunQuery(projectId: string; aRunQueryRequest : TRunQueryRequest) : TRunQueryResponse;
Const
_HTTPMethod = 'POST';
- _Path = '{datasetId}/allocateIds';
- _Methodid = 'datastore.datasets.allocateIds';
+ _Path = 'v1beta3/projects/{projectId}:runQuery';
+ _Methodid = 'datastore.projects.runQuery';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['datasetId',datasetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aAllocateIdsRequest,TAllocateIdsResponse) as TAllocateIdsResponse;
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aRunQueryRequest,TRunQueryResponse) as TRunQueryResponse;
end;
-Function TDatasetsResource.BeginTransaction(datasetId: string; aBeginTransactionRequest : TBeginTransactionRequest) : TBeginTransactionResponse;
+Function TProjectsResource.BeginTransaction(projectId: string; aBeginTransactionRequest : TBeginTransactionRequest) : TBeginTransactionResponse;
Const
_HTTPMethod = 'POST';
- _Path = '{datasetId}/beginTransaction';
- _Methodid = 'datastore.datasets.beginTransaction';
+ _Path = 'v1beta3/projects/{projectId}:beginTransaction';
+ _Methodid = 'datastore.projects.beginTransaction';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['datasetId',datasetId]);
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aBeginTransactionRequest,TBeginTransactionResponse) as TBeginTransactionResponse;
end;
-Function TDatasetsResource.Commit(datasetId: string; aCommitRequest : TCommitRequest) : TCommitResponse;
+Function TProjectsResource.AllocateIds(projectId: string; aAllocateIdsRequest : TAllocateIdsRequest) : TAllocateIdsResponse;
Const
_HTTPMethod = 'POST';
- _Path = '{datasetId}/commit';
- _Methodid = 'datastore.datasets.commit';
+ _Path = 'v1beta3/projects/{projectId}:allocateIds';
+ _Methodid = 'datastore.projects.allocateIds';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['datasetId',datasetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCommitRequest,TCommitResponse) as TCommitResponse;
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aAllocateIdsRequest,TAllocateIdsResponse) as TAllocateIdsResponse;
end;
-Function TDatasetsResource.Lookup(datasetId: string; aLookupRequest : TLookupRequest) : TLookupResponse;
+Function TProjectsResource.Lookup(projectId: string; aLookupRequest : TLookupRequest) : TLookupResponse;
Const
_HTTPMethod = 'POST';
- _Path = '{datasetId}/lookup';
- _Methodid = 'datastore.datasets.lookup';
+ _Path = 'v1beta3/projects/{projectId}:lookup';
+ _Methodid = 'datastore.projects.lookup';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['datasetId',datasetId]);
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aLookupRequest,TLookupResponse) as TLookupResponse;
end;
-Function TDatasetsResource.Rollback(datasetId: string; aRollbackRequest : TRollbackRequest) : TRollbackResponse;
+Function TProjectsResource.Commit(projectId: string; aCommitRequest : TCommitRequest) : TCommitResponse;
Const
_HTTPMethod = 'POST';
- _Path = '{datasetId}/rollback';
- _Methodid = 'datastore.datasets.rollback';
+ _Path = 'v1beta3/projects/{projectId}:commit';
+ _Methodid = 'datastore.projects.commit';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['datasetId',datasetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aRollbackRequest,TRollbackResponse) as TRollbackResponse;
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCommitRequest,TCommitResponse) as TCommitResponse;
end;
-Function TDatasetsResource.RunQuery(datasetId: string; aRunQueryRequest : TRunQueryRequest) : TRunQueryResponse;
+Function TProjectsResource.Rollback(projectId: string; aRollbackRequest : TRollbackRequest) : TRollbackResponse;
Const
_HTTPMethod = 'POST';
- _Path = '{datasetId}/runQuery';
- _Methodid = 'datastore.datasets.runQuery';
+ _Path = 'v1beta3/projects/{projectId}:rollback';
+ _Methodid = 'datastore.projects.rollback';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['datasetId',datasetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aRunQueryRequest,TRunQueryResponse) as TRunQueryResponse;
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aRollbackRequest,TRollbackResponse) as TRollbackResponse;
end;
@@ -2649,19 +2387,19 @@ end;
Class Function TDatastoreAPI.APIVersion : String;
begin
- Result:='v1beta2';
+ Result:='v1beta3';
end;
Class Function TDatastoreAPI.APIRevision : String;
begin
- Result:='20150402';
+ Result:='20160502';
end;
Class Function TDatastoreAPI.APIID : String;
begin
- Result:='datastore:v1beta2';
+ Result:='datastore:v1beta3';
end;
Class Function TDatastoreAPI.APITitle : String;
@@ -2673,7 +2411,7 @@ end;
Class Function TDatastoreAPI.APIDescription : String;
begin
- Result:='API for accessing Google Cloud Datastore.';
+ Result:='Accesses the schemaless NoSQL database to provide fully managed, robust, scalable storage for your application.';
end;
Class Function TDatastoreAPI.APIOwnerDomain : String;
@@ -2703,25 +2441,25 @@ end;
Class Function TDatastoreAPI.APIdocumentationLink : String;
begin
- Result:='https://developers.google.com/datastore/';
+ Result:='https://cloud.google.com/datastore/';
end;
Class Function TDatastoreAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://datastore.googleapis.com/';
end;
Class Function TDatastoreAPI.APIbasePath : string;
begin
- Result:='/datastore/v1beta2/datasets/';
+ Result:='';
end;
Class Function TDatastoreAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/datastore/v1beta2/datasets/';
+ Result:='https://datastore.googleapis.com/';
end;
Class Function TDatastoreAPI.APIProtocol : string;
@@ -2733,7 +2471,7 @@ end;
Class Function TDatastoreAPI.APIservicePath : string;
begin
- Result:='datastore/v1beta2/datasets/';
+ Result:='';
end;
Class Function TDatastoreAPI.APIbatchPath : String;
@@ -2745,13 +2483,11 @@ end;
Class Function TDatastoreAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,3);
+ SetLength(Result,2);
Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[0].Description:='View and manage your data across Google Cloud Platform services';
Result[1].Name:='https://www.googleapis.com/auth/datastore';
Result[1].Description:='View and manage your Google Cloud Datastore data';
- Result[2].Name:='https://www.googleapis.com/auth/userinfo.email';
- Result[2].Description:='View your email address';
end;
@@ -2764,63 +2500,64 @@ end;
Class Procedure TDatastoreAPI.RegisterAPIResources;
begin
+ TValue.RegisterObject;
+ TReadOptions.RegisterObject;
+ TPropertyOrder.RegisterObject;
+ TCommitRequest.RegisterObject;
+ TRollbackRequest.RegisterObject;
+ TQuery.RegisterObject;
+ TEntityResult.RegisterObject;
+ TGqlQueryParameter.RegisterObject;
+ TBeginTransactionResponse.RegisterObject;
+ TFilter.RegisterObject;
+ TArrayValue.RegisterObject;
+ TPartitionId.RegisterObject;
+ TQueryResultBatch.RegisterObject;
TAllocateIdsRequest.RegisterObject;
+ TPropertyFilter.RegisterObject;
+ TKindExpression.RegisterObject;
+ TPathElement.RegisterObject;
+ TRollbackResponse.RegisterObject;
+ TPropertyReference.RegisterObject;
+ TProjection.RegisterObject;
TAllocateIdsResponse.RegisterObject;
+ TMutationResult.RegisterObject;
+ TLookupResponse.RegisterObject;
TBeginTransactionRequest.RegisterObject;
- TBeginTransactionResponse.RegisterObject;
- TCommitRequest.RegisterObject;
- TCommitResponse.RegisterObject;
- TCompositeFilter.RegisterObject;
+ TKey.RegisterObject;
+ TRunQueryResponse.RegisterObject;
TEntityTypeproperties.RegisterObject;
TEntity.RegisterObject;
- TEntityResult.RegisterObject;
- TFilter.RegisterObject;
+ TGqlQueryTypenamedBindings.RegisterObject;
TGqlQuery.RegisterObject;
- TGqlQueryArg.RegisterObject;
- TKey.RegisterObject;
- TKeyPathElement.RegisterObject;
- TKindExpression.RegisterObject;
- TLookupRequest.RegisterObject;
- TLookupResponse.RegisterObject;
+ TCommitResponse.RegisterObject;
TMutation.RegisterObject;
- TMutationResult.RegisterObject;
- TPartitionId.RegisterObject;
- TProperty.RegisterObject;
- TPropertyExpression.RegisterObject;
- TPropertyFilter.RegisterObject;
- TPropertyOrder.RegisterObject;
- TPropertyReference.RegisterObject;
- TQuery.RegisterObject;
- TQueryResultBatch.RegisterObject;
- TReadOptions.RegisterObject;
- TResponseHeader.RegisterObject;
- TRollbackRequest.RegisterObject;
- TRollbackResponse.RegisterObject;
TRunQueryRequest.RegisterObject;
- TRunQueryResponse.RegisterObject;
- TValue.RegisterObject;
+ TCompositeFilter.RegisterObject;
+ TLatLng.RegisterObject;
+ TLookupRequest.RegisterObject;
end;
-Function TDatastoreAPI.GetDatasetsInstance : TDatasetsResource;
+Function TDatastoreAPI.GetProjectsInstance : TProjectsResource;
begin
- if (FDatasetsInstance=Nil) then
- FDatasetsInstance:=CreateDatasetsResource;
- Result:=FDatasetsInstance;
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
end;
-Function TDatastoreAPI.CreateDatasetsResource : TDatasetsResource;
+Function TDatastoreAPI.CreateProjectsResource : TProjectsResource;
begin
- Result:=CreateDatasetsResource(Self);
+ Result:=CreateProjectsResource(Self);
end;
-Function TDatastoreAPI.CreateDatasetsResource(AOwner : TComponent) : TDatasetsResource;
+Function TDatastoreAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
begin
- Result:=TDatasetsResource.Create(AOwner);
+ Result:=TProjectsResource.Create(AOwner);
Result.API:=Self.API;
end;
diff --git a/packages/googleapi/src/googledeploymentmanager.pp b/packages/googleapi/src/googledeploymentmanager.pp
index 1db889e04e..17783d8a3e 100644
--- a/packages/googleapi/src/googledeploymentmanager.pp
+++ b/packages/googleapi/src/googledeploymentmanager.pp
@@ -1,19 +1,4 @@
unit googledeploymentmanager;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:02
{$MODE objfpc}
{$H+}
@@ -24,9 +9,14 @@ uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
+ TConfigFile = Class;
TDeployment = Class;
+ TDeploymentLabelEntry = Class;
TDeploymentUpdate = Class;
+ TDeploymentUpdateLabelEntry = Class;
+ TDeploymentsCancelPreviewRequest = Class;
TDeploymentsListResponse = Class;
+ TDeploymentsStopRequest = Class;
TImportFile = Class;
TManifest = Class;
TManifestsListResponse = Class;
@@ -38,9 +28,14 @@ type
TTargetConfiguration = Class;
TType = Class;
TTypesListResponse = Class;
+ TConfigFileArray = Array of TConfigFile;
TDeploymentArray = Array of TDeployment;
+ TDeploymentLabelEntryArray = Array of TDeploymentLabelEntry;
TDeploymentUpdateArray = Array of TDeploymentUpdate;
+ TDeploymentUpdateLabelEntryArray = Array of TDeploymentUpdateLabelEntry;
+ TDeploymentsCancelPreviewRequestArray = Array of TDeploymentsCancelPreviewRequest;
TDeploymentsListResponseArray = Array of TDeploymentsListResponse;
+ TDeploymentsStopRequestArray = Array of TDeploymentsStopRequest;
TImportFileArray = Array of TImportFile;
TManifestArray = Array of TManifest;
TManifestsListResponseArray = Array of TManifestsListResponse;
@@ -57,6 +52,14 @@ type
TOperationTypeerror = Class;
TOperationTypewarningsItemTypedataItem = Class;
TOperationTypewarningsItem = Class;
+ TResourceTypewarningsItemTypedataItem = Class;
+ TResourceTypewarningsItem = Class;
+ TResourceUpdateTypeerrorTypeerrorsItem = Class;
+ TResourceUpdateTypeerror = Class;
+ TResourceUpdateTypewarningsItemTypedataItem = Class;
+ TResourceUpdateTypewarningsItem = Class;
+ TDeploymentTypelabelsArray = Array of TDeploymentLabelEntry;
+ TDeploymentUpdateTypelabelsArray = Array of TDeploymentUpdateLabelEntry;
TDeploymentsListResponseTypedeploymentsArray = Array of TDeployment;
TManifestTypeimportsArray = Array of TImportFile;
TManifestsListResponseTypemanifestsArray = Array of TManifest;
@@ -64,64 +67,111 @@ type
TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
TOperationTypewarningsArray = Array of TOperationTypewarningsItem;
TOperationsListResponseTypeoperationsArray = Array of TOperation;
+ TResourceTypewarningsItemTypedataArray = Array of TResourceTypewarningsItemTypedataItem;
+ TResourceTypewarningsArray = Array of TResourceTypewarningsItem;
+ TResourceUpdateTypeerrorTypeerrorsArray = Array of TResourceUpdateTypeerrorTypeerrorsItem;
+ TResourceUpdateTypewarningsItemTypedataArray = Array of TResourceUpdateTypewarningsItemTypedataItem;
+ TResourceUpdateTypewarningsArray = Array of TResourceUpdateTypewarningsItem;
TResourcesListResponseTyperesourcesArray = Array of TResource;
TTargetConfigurationTypeimportsArray = Array of TImportFile;
TTypesListResponseTypetypesArray = Array of TType;
{ --------------------------------------------------------------------
+ TConfigFile
+ --------------------------------------------------------------------}
+
+ TConfigFile = Class(TGoogleBaseObject)
+ Private
+ Fcontent : String;
+ Protected
+ //Property setters
+ Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property content : String Index 0 Read Fcontent Write Setcontent;
+ end;
+ TConfigFileClass = Class of TConfigFile;
+
+ { --------------------------------------------------------------------
TDeployment
--------------------------------------------------------------------}
TDeployment = Class(TGoogleBaseObject)
Private
- FcreationTimestamp : String;
Fdescription : String;
Ffingerprint : String;
Fid : String;
- Fintent : String;
+ FinsertTime : String;
+ Flabels : TDeploymentTypelabelsArray;
Fmanifest : String;
Fname : String;
- Fstate : String;
+ Foperation : TOperation;
+ FselfLink : String;
Ftarget : TTargetConfiguration;
Fupdate : TDeploymentUpdate;
Protected
//Property setters
- Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setintent(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TDeploymentTypelabelsArray); virtual;
Procedure Setmanifest(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
- Procedure Settarget(AIndex : Integer; AValue : TTargetConfiguration); virtual;
- Procedure Setupdate(AIndex : Integer; AValue : TDeploymentUpdate); virtual;
+ Procedure Setoperation(AIndex : Integer; const AValue : TOperation); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settarget(AIndex : Integer; const AValue : TTargetConfiguration); virtual;
+ Procedure Setupdate(AIndex : Integer; const AValue : TDeploymentUpdate); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
- Property description : String Index 8 Read Fdescription Write Setdescription;
- Property fingerprint : String Index 16 Read Ffingerprint Write Setfingerprint;
- Property id : String Index 24 Read Fid Write Setid;
- Property intent : String Index 32 Read Fintent Write Setintent;
+ Property description : String Index 0 Read Fdescription Write Setdescription;
+ Property fingerprint : String Index 8 Read Ffingerprint Write Setfingerprint;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property insertTime : String Index 24 Read FinsertTime Write SetinsertTime;
+ Property labels : TDeploymentTypelabelsArray Index 32 Read Flabels Write Setlabels;
Property manifest : String Index 40 Read Fmanifest Write Setmanifest;
Property name : String Index 48 Read Fname Write Setname;
- Property state : String Index 56 Read Fstate Write Setstate;
- Property target : TTargetConfiguration Index 64 Read Ftarget Write Settarget;
- Property update : TDeploymentUpdate Index 72 Read Fupdate Write Setupdate;
+ Property operation : TOperation Index 56 Read Foperation Write Setoperation;
+ Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
+ Property target : TTargetConfiguration Index 72 Read Ftarget Write Settarget;
+ Property update : TDeploymentUpdate Index 80 Read Fupdate Write Setupdate;
end;
TDeploymentClass = Class of TDeployment;
{ --------------------------------------------------------------------
+ TDeploymentLabelEntry
+ --------------------------------------------------------------------}
+
+ TDeploymentLabelEntry = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TDeploymentLabelEntryClass = Class of TDeploymentLabelEntry;
+
+ { --------------------------------------------------------------------
TDeploymentUpdate
--------------------------------------------------------------------}
TDeploymentUpdate = Class(TGoogleBaseObject)
Private
- Ferrors : TStringArray;
+ Flabels : TDeploymentUpdateTypelabelsArray;
Fmanifest : String;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TDeploymentUpdateTypelabelsArray); virtual;
Procedure Setmanifest(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -129,12 +179,47 @@ type
{$ENDIF VER2_6}
Public
Published
- Property errors : TStringArray Index 0 Read Ferrors Write Seterrors;
+ Property labels : TDeploymentUpdateTypelabelsArray Index 0 Read Flabels Write Setlabels;
Property manifest : String Index 8 Read Fmanifest Write Setmanifest;
end;
TDeploymentUpdateClass = Class of TDeploymentUpdate;
{ --------------------------------------------------------------------
+ TDeploymentUpdateLabelEntry
+ --------------------------------------------------------------------}
+
+ TDeploymentUpdateLabelEntry = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TDeploymentUpdateLabelEntryClass = Class of TDeploymentUpdateLabelEntry;
+
+ { --------------------------------------------------------------------
+ TDeploymentsCancelPreviewRequest
+ --------------------------------------------------------------------}
+
+ TDeploymentsCancelPreviewRequest = Class(TGoogleBaseObject)
+ Private
+ Ffingerprint : String;
+ Protected
+ //Property setters
+ Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
+ end;
+ TDeploymentsCancelPreviewRequestClass = Class of TDeploymentsCancelPreviewRequest;
+
+ { --------------------------------------------------------------------
TDeploymentsListResponse
--------------------------------------------------------------------}
@@ -144,7 +229,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setdeployments(AIndex : Integer; AValue : TDeploymentsListResponseTypedeploymentsArray); virtual;
+ Procedure Setdeployments(AIndex : Integer; const AValue : TDeploymentsListResponseTypedeploymentsArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -158,6 +243,22 @@ type
TDeploymentsListResponseClass = Class of TDeploymentsListResponse;
{ --------------------------------------------------------------------
+ TDeploymentsStopRequest
+ --------------------------------------------------------------------}
+
+ TDeploymentsStopRequest = Class(TGoogleBaseObject)
+ Private
+ Ffingerprint : String;
+ Protected
+ //Property setters
+ Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
+ end;
+ TDeploymentsStopRequestClass = Class of TDeploymentsStopRequest;
+
+ { --------------------------------------------------------------------
TImportFile
--------------------------------------------------------------------}
@@ -182,21 +283,21 @@ type
TManifest = Class(TGoogleBaseObject)
Private
- Fconfig : String;
- FcreationTimestamp : String;
- FevaluatedConfig : String;
+ Fconfig : TConfigFile;
+ FexpandedConfig : String;
Fid : String;
Fimports : TManifestTypeimportsArray;
+ FinsertTime : String;
Flayout : String;
Fname : String;
FselfLink : String;
Protected
//Property setters
- Procedure Setconfig(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
- Procedure SetevaluatedConfig(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setconfig(AIndex : Integer; const AValue : TConfigFile); virtual;
+ Procedure SetexpandedConfig(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimports(AIndex : Integer; AValue : TManifestTypeimportsArray); virtual;
+ Procedure Setimports(AIndex : Integer; const AValue : TManifestTypeimportsArray); virtual;
+ Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setlayout(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -206,11 +307,11 @@ type
{$ENDIF VER2_6}
Public
Published
- Property config : String Index 0 Read Fconfig Write Setconfig;
- Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
- Property evaluatedConfig : String Index 16 Read FevaluatedConfig Write SetevaluatedConfig;
- Property id : String Index 24 Read Fid Write Setid;
- Property imports : TManifestTypeimportsArray Index 32 Read Fimports Write Setimports;
+ Property config : TConfigFile Index 0 Read Fconfig Write Setconfig;
+ Property expandedConfig : String Index 8 Read FexpandedConfig Write SetexpandedConfig;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property imports : TManifestTypeimportsArray Index 24 Read Fimports Write Setimports;
+ Property insertTime : String Index 32 Read FinsertTime Write SetinsertTime;
Property layout : String Index 40 Read Flayout Write Setlayout;
Property name : String Index 48 Read Fname Write Setname;
Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
@@ -227,7 +328,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setmanifests(AIndex : Integer; AValue : TManifestsListResponseTypemanifestsArray); virtual;
+ Procedure Setmanifests(AIndex : Integer; const AValue : TManifestsListResponseTypemanifestsArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -271,7 +372,7 @@ type
Ferrors : TOperationTypeerrorTypeerrorsArray;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -313,7 +414,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -335,6 +436,7 @@ type
Private
FclientOperationId : String;
FcreationTimestamp : String;
+ Fdescription : String;
FendTime : String;
Ferror : TOperationTypeerror;
FhttpErrorMessage : String;
@@ -359,16 +461,17 @@ type
//Property setters
Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TOperationTypeerror); virtual;
Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
- Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
+ Procedure SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprogress(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
@@ -377,7 +480,7 @@ type
Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -387,26 +490,27 @@ type
Published
Property clientOperationId : String Index 0 Read FclientOperationId Write SetclientOperationId;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
- Property endTime : String Index 16 Read FendTime Write SetendTime;
- Property error : TOperationTypeerror Index 24 Read Ferror Write Seterror;
- Property httpErrorMessage : String Index 32 Read FhttpErrorMessage Write SethttpErrorMessage;
- Property httpErrorStatusCode : integer Index 40 Read FhttpErrorStatusCode Write SethttpErrorStatusCode;
- Property id : String Index 48 Read Fid Write Setid;
- Property insertTime : String Index 56 Read FinsertTime Write SetinsertTime;
- Property kind : String Index 64 Read Fkind Write Setkind;
- Property name : String Index 72 Read Fname Write Setname;
- Property operationType : String Index 80 Read FoperationType Write SetoperationType;
- Property progress : integer Index 88 Read Fprogress Write Setprogress;
- Property region : String Index 96 Read Fregion Write Setregion;
- Property selfLink : String Index 104 Read FselfLink Write SetselfLink;
- Property startTime : String Index 112 Read FstartTime Write SetstartTime;
- Property status : String Index 120 Read Fstatus Write Setstatus;
- Property statusMessage : String Index 128 Read FstatusMessage Write SetstatusMessage;
- Property targetId : String Index 136 Read FtargetId Write SettargetId;
- Property targetLink : String Index 144 Read FtargetLink Write SettargetLink;
- Property user : String Index 152 Read Fuser Write Setuser;
- Property warnings : TOperationTypewarningsArray Index 160 Read Fwarnings Write Setwarnings;
- Property zone : String Index 168 Read Fzone Write Setzone;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ Property endTime : String Index 24 Read FendTime Write SetendTime;
+ Property error : TOperationTypeerror Index 32 Read Ferror Write Seterror;
+ Property httpErrorMessage : String Index 40 Read FhttpErrorMessage Write SethttpErrorMessage;
+ Property httpErrorStatusCode : integer Index 48 Read FhttpErrorStatusCode Write SethttpErrorStatusCode;
+ Property id : String Index 56 Read Fid Write Setid;
+ Property insertTime : String Index 64 Read FinsertTime Write SetinsertTime;
+ Property kind : String Index 72 Read Fkind Write Setkind;
+ Property name : String Index 80 Read Fname Write Setname;
+ Property operationType : String Index 88 Read FoperationType Write SetoperationType;
+ Property progress : integer Index 96 Read Fprogress Write Setprogress;
+ Property region : String Index 104 Read Fregion Write Setregion;
+ Property selfLink : String Index 112 Read FselfLink Write SetselfLink;
+ Property startTime : String Index 120 Read FstartTime Write SetstartTime;
+ Property status : String Index 128 Read Fstatus Write Setstatus;
+ Property statusMessage : String Index 136 Read FstatusMessage Write SetstatusMessage;
+ Property targetId : String Index 144 Read FtargetId Write SettargetId;
+ Property targetLink : String Index 152 Read FtargetLink Write SettargetLink;
+ Property user : String Index 160 Read Fuser Write Setuser;
+ Property warnings : TOperationTypewarningsArray Index 168 Read Fwarnings Write Setwarnings;
+ Property zone : String Index 176 Read Fzone Write Setzone;
end;
TOperationClass = Class of TOperation;
@@ -421,7 +525,7 @@ type
Protected
//Property setters
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setoperations(AIndex : Integer; AValue : TOperationsListResponseTypeoperationsArray); virtual;
+ Procedure Setoperations(AIndex : Integer; const AValue : TOperationsListResponseTypeoperationsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -434,6 +538,51 @@ type
TOperationsListResponseClass = Class of TOperationsListResponse;
{ --------------------------------------------------------------------
+ TResourceTypewarningsItemTypedataItem
+ --------------------------------------------------------------------}
+
+ TResourceTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TResourceTypewarningsItemTypedataItemClass = Class of TResourceTypewarningsItemTypedataItem;
+
+ { --------------------------------------------------------------------
+ TResourceTypewarningsItem
+ --------------------------------------------------------------------}
+
+ TResourceTypewarningsItem = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Fdata : TResourceTypewarningsItemTypedataArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TResourceTypewarningsItemTypedataArray); virtual;
+ Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
+ Property data : TResourceTypewarningsItemTypedataArray Index 8 Read Fdata Write Setdata;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TResourceTypewarningsItemClass = Class of TResourceTypewarningsItem;
+
+ { --------------------------------------------------------------------
TResource
--------------------------------------------------------------------}
@@ -441,68 +590,171 @@ type
Private
FfinalProperties : String;
Fid : String;
+ FinsertTime : String;
Fmanifest : String;
Fname : String;
Fproperties : String;
F_type : String;
Fupdate : TResourceUpdate;
+ FupdateTime : String;
Furl : String;
+ Fwarnings : TResourceTypewarningsArray;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetfinalProperties(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setmanifest(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setproperties(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdate(AIndex : Integer; AValue : TResourceUpdate); virtual;
+ Procedure Setupdate(AIndex : Integer; const AValue : TResourceUpdate); virtual;
+ Procedure SetupdateTime(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TResourceTypewarningsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
Property finalProperties : String Index 0 Read FfinalProperties Write SetfinalProperties;
Property id : String Index 8 Read Fid Write Setid;
- Property manifest : String Index 16 Read Fmanifest Write Setmanifest;
- Property name : String Index 24 Read Fname Write Setname;
- Property properties : String Index 32 Read Fproperties Write Setproperties;
- Property _type : String Index 40 Read F_type Write Set_type;
- Property update : TResourceUpdate Index 48 Read Fupdate Write Setupdate;
- Property url : String Index 56 Read Furl Write Seturl;
+ Property insertTime : String Index 16 Read FinsertTime Write SetinsertTime;
+ Property manifest : String Index 24 Read Fmanifest Write Setmanifest;
+ Property name : String Index 32 Read Fname Write Setname;
+ Property properties : String Index 40 Read Fproperties Write Setproperties;
+ Property _type : String Index 48 Read F_type Write Set_type;
+ Property update : TResourceUpdate Index 56 Read Fupdate Write Setupdate;
+ Property updateTime : String Index 64 Read FupdateTime Write SetupdateTime;
+ Property url : String Index 72 Read Furl Write Seturl;
+ Property warnings : TResourceTypewarningsArray Index 80 Read Fwarnings Write Setwarnings;
end;
TResourceClass = Class of TResource;
{ --------------------------------------------------------------------
+ TResourceUpdateTypeerrorTypeerrorsItem
+ --------------------------------------------------------------------}
+
+ TResourceUpdateTypeerrorTypeerrorsItem = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Flocation : String;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property code : String Index 0 Read Fcode Write Setcode;
+ Property location : String Index 8 Read Flocation Write Setlocation;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TResourceUpdateTypeerrorTypeerrorsItemClass = Class of TResourceUpdateTypeerrorTypeerrorsItem;
+
+ { --------------------------------------------------------------------
+ TResourceUpdateTypeerror
+ --------------------------------------------------------------------}
+
+ TResourceUpdateTypeerror = Class(TGoogleBaseObject)
+ Private
+ Ferrors : TResourceUpdateTypeerrorTypeerrorsArray;
+ Protected
+ //Property setters
+ Procedure Seterrors(AIndex : Integer; const AValue : TResourceUpdateTypeerrorTypeerrorsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property errors : TResourceUpdateTypeerrorTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
+ end;
+ TResourceUpdateTypeerrorClass = Class of TResourceUpdateTypeerror;
+
+ { --------------------------------------------------------------------
+ TResourceUpdateTypewarningsItemTypedataItem
+ --------------------------------------------------------------------}
+
+ TResourceUpdateTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TResourceUpdateTypewarningsItemTypedataItemClass = Class of TResourceUpdateTypewarningsItemTypedataItem;
+
+ { --------------------------------------------------------------------
+ TResourceUpdateTypewarningsItem
+ --------------------------------------------------------------------}
+
+ TResourceUpdateTypewarningsItem = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Fdata : TResourceUpdateTypewarningsItemTypedataArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TResourceUpdateTypewarningsItemTypedataArray); virtual;
+ Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
+ Property data : TResourceUpdateTypewarningsItemTypedataArray Index 8 Read Fdata Write Setdata;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TResourceUpdateTypewarningsItemClass = Class of TResourceUpdateTypewarningsItem;
+
+ { --------------------------------------------------------------------
TResourceUpdate
--------------------------------------------------------------------}
TResourceUpdate = Class(TGoogleBaseObject)
Private
- Ferrors : TStringArray;
+ Ferror : TResourceUpdateTypeerror;
FfinalProperties : String;
Fintent : String;
Fmanifest : String;
Fproperties : String;
Fstate : String;
+ Fwarnings : TResourceUpdateTypewarningsArray;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TResourceUpdateTypeerror); virtual;
Procedure SetfinalProperties(AIndex : Integer; const AValue : String); virtual;
Procedure Setintent(AIndex : Integer; const AValue : String); virtual;
Procedure Setmanifest(AIndex : Integer; const AValue : String); virtual;
Procedure Setproperties(AIndex : Integer; const AValue : String); virtual;
Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TResourceUpdateTypewarningsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property errors : TStringArray Index 0 Read Ferrors Write Seterrors;
+ Property error : TResourceUpdateTypeerror Index 0 Read Ferror Write Seterror;
Property finalProperties : String Index 8 Read FfinalProperties Write SetfinalProperties;
Property intent : String Index 16 Read Fintent Write Setintent;
Property manifest : String Index 24 Read Fmanifest Write Setmanifest;
Property properties : String Index 32 Read Fproperties Write Setproperties;
Property state : String Index 40 Read Fstate Write Setstate;
+ Property warnings : TResourceUpdateTypewarningsArray Index 48 Read Fwarnings Write Setwarnings;
end;
TResourceUpdateClass = Class of TResourceUpdate;
@@ -517,7 +769,7 @@ type
Protected
//Property setters
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TResourcesListResponseTyperesourcesArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TResourcesListResponseTyperesourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -535,19 +787,19 @@ type
TTargetConfiguration = Class(TGoogleBaseObject)
Private
- Fconfig : String;
+ Fconfig : TConfigFile;
Fimports : TTargetConfigurationTypeimportsArray;
Protected
//Property setters
- Procedure Setconfig(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimports(AIndex : Integer; AValue : TTargetConfigurationTypeimportsArray); virtual;
+ Procedure Setconfig(AIndex : Integer; const AValue : TConfigFile); virtual;
+ Procedure Setimports(AIndex : Integer; const AValue : TTargetConfigurationTypeimportsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property config : String Index 0 Read Fconfig Write Setconfig;
+ Property config : TConfigFile Index 0 Read Fconfig Write Setconfig;
Property imports : TTargetConfigurationTypeimportsArray Index 8 Read Fimports Write Setimports;
end;
TTargetConfigurationClass = Class of TTargetConfiguration;
@@ -558,13 +810,22 @@ type
TType = Class(TGoogleBaseObject)
Private
+ Fid : String;
+ FinsertTime : String;
Fname : String;
+ FselfLink : String;
Protected
//Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property name : String Index 0 Read Fname Write Setname;
+ Property id : String Index 0 Read Fid Write Setid;
+ Property insertTime : String Index 8 Read FinsertTime Write SetinsertTime;
+ Property name : String Index 16 Read Fname Write Setname;
+ Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
end;
TTypeClass = Class of TType;
@@ -579,7 +840,7 @@ type
Protected
//Property setters
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Settypes(AIndex : Integer; AValue : TTypesListResponseTypetypesArray); virtual;
+ Procedure Settypes(AIndex : Integer; const AValue : TTypesListResponseTypetypesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -596,6 +857,13 @@ type
--------------------------------------------------------------------}
+ //Optional query Options for TDeploymentsResource, method Insert
+
+ TDeploymentsInsertOptions = Record
+ preview : boolean;
+ end;
+
+
//Optional query Options for TDeploymentsResource, method List
TDeploymentsListOptions = Record
@@ -610,7 +878,7 @@ type
TDeploymentsPatchOptions = Record
createPolicy : String;
deletePolicy : String;
- updatePolicy : String;
+ preview : boolean;
end;
@@ -619,20 +887,23 @@ type
TDeploymentsUpdateOptions = Record
createPolicy : String;
deletePolicy : String;
- updatePolicy : String;
+ preview : boolean;
end;
TDeploymentsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CancelPreview(deployment: string; project: string; aDeploymentsCancelPreviewRequest : TDeploymentsCancelPreviewRequest) : TOperation;
Function Delete(deployment: string; project: string) : TOperation;
Function Get(deployment: string; project: string) : TDeployment;
- Function Insert(project: string; aDeployment : TDeployment) : TOperation;
+ Function Insert(project: string; aDeployment : TDeployment; AQuery : string = '') : TOperation;
+ Function Insert(project: string; aDeployment : TDeployment; AQuery : TDeploymentsinsertOptions) : TOperation;
Function List(project: string; AQuery : string = '') : TDeploymentsListResponse;
Function List(project: string; AQuery : TDeploymentslistOptions) : TDeploymentsListResponse;
Function Patch(deployment: string; project: string; aDeployment : TDeployment; AQuery : string = '') : TOperation;
Function Patch(deployment: string; project: string; aDeployment : TDeployment; AQuery : TDeploymentspatchOptions) : TOperation;
+ Function Stop(deployment: string; project: string; aDeploymentsStopRequest : TDeploymentsStopRequest) : TOperation;
Function Update(deployment: string; project: string; aDeployment : TDeployment; AQuery : string = '') : TOperation;
Function Update(deployment: string; project: string; aDeployment : TDeployment; AQuery : TDeploymentsupdateOptions) : TOperation;
end;
@@ -790,20 +1061,27 @@ implementation
{ --------------------------------------------------------------------
- TDeployment
+ TConfigFile
--------------------------------------------------------------------}
-Procedure TDeployment.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+Procedure TConfigFile.Setcontent(AIndex : Integer; const AValue : String);
begin
- If (FcreationTimestamp=AValue) then exit;
- FcreationTimestamp:=AValue;
+ If (Fcontent=AValue) then exit;
+ Fcontent:=AValue;
MarkPropertyChanged(AIndex);
end;
+
+
+{ --------------------------------------------------------------------
+ TDeployment
+ --------------------------------------------------------------------}
+
+
Procedure TDeployment.Setdescription(AIndex : Integer; const AValue : String);
begin
@@ -834,11 +1112,21 @@ end;
-Procedure TDeployment.Setintent(AIndex : Integer; const AValue : String);
+Procedure TDeployment.SetinsertTime(AIndex : Integer; const AValue : String);
begin
- If (Fintent=AValue) then exit;
- Fintent:=AValue;
+ If (FinsertTime=AValue) then exit;
+ FinsertTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeployment.Setlabels(AIndex : Integer; const AValue : TDeploymentTypelabelsArray);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -864,17 +1152,27 @@ end;
-Procedure TDeployment.Setstate(AIndex : Integer; const AValue : String);
+Procedure TDeployment.Setoperation(AIndex : Integer; const AValue : TOperation);
begin
- If (Fstate=AValue) then exit;
- Fstate:=AValue;
+ If (Foperation=AValue) then exit;
+ Foperation:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDeployment.Settarget(AIndex : Integer; AValue : TTargetConfiguration);
+Procedure TDeployment.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeployment.Settarget(AIndex : Integer; const AValue : TTargetConfiguration);
begin
If (Ftarget=AValue) then exit;
@@ -884,7 +1182,7 @@ end;
-Procedure TDeployment.Setupdate(AIndex : Integer; AValue : TDeploymentUpdate);
+Procedure TDeployment.Setupdate(AIndex : Integer; const AValue : TDeploymentUpdate);
begin
If (Fupdate=AValue) then exit;
@@ -893,6 +1191,46 @@ begin
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDeployment.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'labels' : SetLength(Flabels,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeploymentLabelEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TDeploymentLabelEntry.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeploymentLabelEntry.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
@@ -901,11 +1239,11 @@ end;
--------------------------------------------------------------------}
-Procedure TDeploymentUpdate.Seterrors(AIndex : Integer; AValue : TStringArray);
+Procedure TDeploymentUpdate.Setlabels(AIndex : Integer; const AValue : TDeploymentUpdateTypelabelsArray);
begin
- If (Ferrors=AValue) then exit;
- Ferrors:=AValue;
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -926,7 +1264,7 @@ Procedure TDeploymentUpdate.SetArrayLength(Const AName : String; ALength : Longi
begin
Case AName of
- 'errors' : SetLength(Ferrors,ALength);
+ 'labels' : SetLength(Flabels,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -937,11 +1275,55 @@ end;
{ --------------------------------------------------------------------
+ TDeploymentUpdateLabelEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TDeploymentUpdateLabelEntry.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeploymentUpdateLabelEntry.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeploymentsCancelPreviewRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDeploymentsCancelPreviewRequest.Setfingerprint(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffingerprint=AValue) then exit;
+ Ffingerprint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TDeploymentsListResponse
--------------------------------------------------------------------}
-Procedure TDeploymentsListResponse.Setdeployments(AIndex : Integer; AValue : TDeploymentsListResponseTypedeploymentsArray);
+Procedure TDeploymentsListResponse.Setdeployments(AIndex : Integer; const AValue : TDeploymentsListResponseTypedeploymentsArray);
begin
If (Fdeployments=AValue) then exit;
@@ -977,6 +1359,23 @@ end;
{ --------------------------------------------------------------------
+ TDeploymentsStopRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDeploymentsStopRequest.Setfingerprint(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffingerprint=AValue) then exit;
+ Ffingerprint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TImportFile
--------------------------------------------------------------------}
@@ -1008,7 +1407,7 @@ end;
--------------------------------------------------------------------}
-Procedure TManifest.Setconfig(AIndex : Integer; const AValue : String);
+Procedure TManifest.Setconfig(AIndex : Integer; const AValue : TConfigFile);
begin
If (Fconfig=AValue) then exit;
@@ -1018,41 +1417,41 @@ end;
-Procedure TManifest.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+Procedure TManifest.SetexpandedConfig(AIndex : Integer; const AValue : String);
begin
- If (FcreationTimestamp=AValue) then exit;
- FcreationTimestamp:=AValue;
+ If (FexpandedConfig=AValue) then exit;
+ FexpandedConfig:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TManifest.SetevaluatedConfig(AIndex : Integer; const AValue : String);
+Procedure TManifest.Setid(AIndex : Integer; const AValue : String);
begin
- If (FevaluatedConfig=AValue) then exit;
- FevaluatedConfig:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TManifest.Setid(AIndex : Integer; const AValue : String);
+Procedure TManifest.Setimports(AIndex : Integer; const AValue : TManifestTypeimportsArray);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (Fimports=AValue) then exit;
+ Fimports:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TManifest.Setimports(AIndex : Integer; AValue : TManifestTypeimportsArray);
+Procedure TManifest.SetinsertTime(AIndex : Integer; const AValue : String);
begin
- If (Fimports=AValue) then exit;
- Fimports:=AValue;
+ If (FinsertTime=AValue) then exit;
+ FinsertTime:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -1108,7 +1507,7 @@ end;
--------------------------------------------------------------------}
-Procedure TManifestsListResponse.Setmanifests(AIndex : Integer; AValue : TManifestsListResponseTypemanifestsArray);
+Procedure TManifestsListResponse.Setmanifests(AIndex : Integer; const AValue : TManifestsListResponseTypemanifestsArray);
begin
If (Fmanifests=AValue) then exit;
@@ -1185,7 +1584,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOperationTypeerror.Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray);
+Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -1252,7 +1651,7 @@ end;
-Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray);
+Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -1312,6 +1711,16 @@ end;
+Procedure TOperation.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String);
begin
@@ -1322,7 +1731,7 @@ end;
-Procedure TOperation.Seterror(AIndex : Integer; AValue : TOperationTypeerror);
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror);
begin
If (Ferror=AValue) then exit;
@@ -1342,7 +1751,7 @@ end;
-Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; AValue : integer);
+Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer);
begin
If (FhttpErrorStatusCode=AValue) then exit;
@@ -1402,7 +1811,7 @@ end;
-Procedure TOperation.Setprogress(AIndex : Integer; AValue : integer);
+Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer);
begin
If (Fprogress=AValue) then exit;
@@ -1492,7 +1901,7 @@ end;
-Procedure TOperation.Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray);
+Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
@@ -1542,7 +1951,7 @@ end;
-Procedure TOperationsListResponse.Setoperations(AIndex : Integer; AValue : TOperationsListResponseTypeoperationsArray);
+Procedure TOperationsListResponse.Setoperations(AIndex : Integer; const AValue : TOperationsListResponseTypeoperationsArray);
begin
If (Foperations=AValue) then exit;
@@ -1568,6 +1977,83 @@ end;
{ --------------------------------------------------------------------
+ TResourceTypewarningsItemTypedataItem
+ --------------------------------------------------------------------}
+
+
+Procedure TResourceTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResourceTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TResourceTypewarningsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TResourceTypewarningsItem.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResourceTypewarningsItem.Setdata(AIndex : Integer; const AValue : TResourceTypewarningsItemTypedataArray);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResourceTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResourceTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'data' : SetLength(Fdata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TResource
--------------------------------------------------------------------}
@@ -1592,6 +2078,16 @@ end;
+Procedure TResource.SetinsertTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinsertTime=AValue) then exit;
+ FinsertTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TResource.Setmanifest(AIndex : Integer; const AValue : String);
begin
@@ -1632,7 +2128,7 @@ end;
-Procedure TResource.Setupdate(AIndex : Integer; AValue : TResourceUpdate);
+Procedure TResource.Setupdate(AIndex : Integer; const AValue : TResourceUpdate);
begin
If (Fupdate=AValue) then exit;
@@ -1642,6 +2138,16 @@ end;
+Procedure TResource.SetupdateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdateTime=AValue) then exit;
+ FupdateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TResource.Seturl(AIndex : Integer; const AValue : String);
begin
@@ -1652,6 +2158,16 @@ end;
+Procedure TResource.Setwarnings(AIndex : Integer; const AValue : TResourceTypewarningsArray);
+
+begin
+ If (Fwarnings=AValue) then exit;
+ Fwarnings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Class Function TResource.ExportPropertyName(Const AName : String) :String;
begin
@@ -1662,15 +2178,65 @@ begin
end;
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResource.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'warnings' : SetLength(Fwarnings,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
{ --------------------------------------------------------------------
- TResourceUpdate
+ TResourceUpdateTypeerrorTypeerrorsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TResourceUpdateTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResourceUpdateTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocation=AValue) then exit;
+ Flocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResourceUpdateTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TResourceUpdateTypeerror
--------------------------------------------------------------------}
-Procedure TResourceUpdate.Seterrors(AIndex : Integer; AValue : TStringArray);
+Procedure TResourceUpdateTypeerror.Seterrors(AIndex : Integer; const AValue : TResourceUpdateTypeerrorTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -1679,6 +2245,113 @@ begin
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResourceUpdateTypeerror.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'errors' : SetLength(Ferrors,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TResourceUpdateTypewarningsItemTypedataItem
+ --------------------------------------------------------------------}
+
+
+Procedure TResourceUpdateTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResourceUpdateTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TResourceUpdateTypewarningsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TResourceUpdateTypewarningsItem.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResourceUpdateTypewarningsItem.Setdata(AIndex : Integer; const AValue : TResourceUpdateTypewarningsItemTypedataArray);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResourceUpdateTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TResourceUpdateTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'data' : SetLength(Fdata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TResourceUpdate
+ --------------------------------------------------------------------}
+
+
+Procedure TResourceUpdate.Seterror(AIndex : Integer; const AValue : TResourceUpdateTypeerror);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
Procedure TResourceUpdate.SetfinalProperties(AIndex : Integer; const AValue : String);
@@ -1729,13 +2402,23 @@ begin
end;
+
+Procedure TResourceUpdate.Setwarnings(AIndex : Integer; const AValue : TResourceUpdateTypewarningsArray);
+
+begin
+ If (Fwarnings=AValue) then exit;
+ Fwarnings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TResourceUpdate.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'errors' : SetLength(Ferrors,ALength);
+ 'warnings' : SetLength(Fwarnings,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1760,7 +2443,7 @@ end;
-Procedure TResourcesListResponse.Setresources(AIndex : Integer; AValue : TResourcesListResponseTyperesourcesArray);
+Procedure TResourcesListResponse.Setresources(AIndex : Integer; const AValue : TResourcesListResponseTyperesourcesArray);
begin
If (Fresources=AValue) then exit;
@@ -1790,7 +2473,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTargetConfiguration.Setconfig(AIndex : Integer; const AValue : String);
+Procedure TTargetConfiguration.Setconfig(AIndex : Integer; const AValue : TConfigFile);
begin
If (Fconfig=AValue) then exit;
@@ -1800,7 +2483,7 @@ end;
-Procedure TTargetConfiguration.Setimports(AIndex : Integer; AValue : TTargetConfigurationTypeimportsArray);
+Procedure TTargetConfiguration.Setimports(AIndex : Integer; const AValue : TTargetConfigurationTypeimportsArray);
begin
If (Fimports=AValue) then exit;
@@ -1830,6 +2513,26 @@ end;
--------------------------------------------------------------------}
+Procedure TType.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TType.SetinsertTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinsertTime=AValue) then exit;
+ FinsertTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TType.Setname(AIndex : Integer; const AValue : String);
begin
@@ -1840,6 +2543,16 @@ end;
+Procedure TType.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -1857,7 +2570,7 @@ end;
-Procedure TTypesListResponse.Settypes(AIndex : Integer; AValue : TTypesListResponseTypetypesArray);
+Procedure TTypesListResponse.Settypes(AIndex : Integer; const AValue : TTypesListResponseTypetypesArray);
begin
If (Ftypes=AValue) then exit;
@@ -1899,6 +2612,21 @@ begin
Result:=TdeploymentmanagerAPI;
end;
+Function TDeploymentsResource.CancelPreview(deployment: string; project: string; aDeploymentsCancelPreviewRequest : TDeploymentsCancelPreviewRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/deployments/{deployment}/cancelPreview';
+ _Methodid = 'deploymentmanager.deployments.cancelPreview';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['deployment',deployment,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aDeploymentsCancelPreviewRequest,TOperation) as TOperation;
+end;
+
Function TDeploymentsResource.Delete(deployment: string; project: string) : TOperation;
Const
@@ -1929,7 +2657,7 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDeployment) as TDeployment;
end;
-Function TDeploymentsResource.Insert(project: string; aDeployment : TDeployment) : TOperation;
+Function TDeploymentsResource.Insert(project: string; aDeployment : TDeployment; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'POST';
@@ -1941,7 +2669,19 @@ Var
begin
_P:=SubstitutePath(_Path,['project',project]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aDeployment,TOperation) as TOperation;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDeployment,TOperation) as TOperation;
+end;
+
+
+Function TDeploymentsResource.Insert(project: string; aDeployment : TDeployment; AQuery : TDeploymentsinsertOptions) : TOperation;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'preview',AQuery.preview);
+ Result:=Insert(project,aDeployment,_Q);
end;
Function TDeploymentsResource.List(project: string; AQuery : string = '') : TDeploymentsListResponse;
@@ -1998,10 +2738,25 @@ begin
_Q:='';
AddToQuery(_Q,'createPolicy',AQuery.createPolicy);
AddToQuery(_Q,'deletePolicy',AQuery.deletePolicy);
- AddToQuery(_Q,'updatePolicy',AQuery.updatePolicy);
+ AddToQuery(_Q,'preview',AQuery.preview);
Result:=Patch(deployment,project,aDeployment,_Q);
end;
+Function TDeploymentsResource.Stop(deployment: string; project: string; aDeploymentsStopRequest : TDeploymentsStopRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/deployments/{deployment}/stop';
+ _Methodid = 'deploymentmanager.deployments.stop';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['deployment',deployment,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aDeploymentsStopRequest,TOperation) as TOperation;
+end;
+
Function TDeploymentsResource.Update(deployment: string; project: string; aDeployment : TDeployment; AQuery : string = '') : TOperation;
Const
@@ -2027,7 +2782,7 @@ begin
_Q:='';
AddToQuery(_Q,'createPolicy',AQuery.createPolicy);
AddToQuery(_Q,'deletePolicy',AQuery.deletePolicy);
- AddToQuery(_Q,'updatePolicy',AQuery.updatePolicy);
+ AddToQuery(_Q,'preview',AQuery.preview);
Result:=Update(deployment,project,aDeployment,_Q);
end;
@@ -2283,31 +3038,31 @@ end;
Class Function TDeploymentmanagerAPI.APIVersion : String;
begin
- Result:='v2beta2';
+ Result:='v2';
end;
Class Function TDeploymentmanagerAPI.APIRevision : String;
begin
- Result:='20150427';
+ Result:='20160426';
end;
Class Function TDeploymentmanagerAPI.APIID : String;
begin
- Result:='deploymentmanager:v2beta2';
+ Result:='deploymentmanager:v2';
end;
Class Function TDeploymentmanagerAPI.APITitle : String;
begin
- Result:='Google Cloud Deployment Manager API V2';
+ Result:='Google Cloud Deployment Manager API';
end;
Class Function TDeploymentmanagerAPI.APIDescription : String;
begin
- Result:='The Deployment Manager API allows users to declaratively configure, deploy and run complex solutions on the Google Cloud Platform.';
+ Result:='Declares, configures, and deploys complex solutions on Google Cloud Platform.';
end;
Class Function TDeploymentmanagerAPI.APIOwnerDomain : String;
@@ -2337,25 +3092,25 @@ end;
Class Function TDeploymentmanagerAPI.APIdocumentationLink : String;
begin
- Result:='https://developers.google.com/deployment-manager/';
+ Result:='https://cloud.google.com/deployment-manager/';
end;
Class Function TDeploymentmanagerAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TDeploymentmanagerAPI.APIbasePath : string;
begin
- Result:='/deploymentmanager/v2beta2/projects/';
+ Result:='/deploymentmanager/v2/projects/';
end;
Class Function TDeploymentmanagerAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/deploymentmanager/v2beta2/projects/';
+ Result:='https://www.googleapis.com/deploymentmanager/v2/projects/';
end;
Class Function TDeploymentmanagerAPI.APIProtocol : string;
@@ -2367,7 +3122,7 @@ end;
Class Function TDeploymentmanagerAPI.APIservicePath : string;
begin
- Result:='deploymentmanager/v2beta2/projects/';
+ Result:='deploymentmanager/v2/projects/';
end;
Class Function TDeploymentmanagerAPI.APIbatchPath : String;
@@ -2379,13 +3134,15 @@ end;
Class Function TDeploymentmanagerAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,3);
+ SetLength(Result,4);
Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[0].Description:='View and manage your data across Google Cloud Platform services';
- Result[1].Name:='https://www.googleapis.com/auth/ndev.cloudman';
- Result[1].Description:='View and manage your Google Cloud Platform management resources and deployment status information';
- Result[2].Name:='https://www.googleapis.com/auth/ndev.cloudman.readonly';
- Result[2].Description:='View your Google Cloud Platform management resources and deployment status information';
+ Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
+ Result[1].Description:='View your data across Google Cloud Platform services';
+ Result[2].Name:='https://www.googleapis.com/auth/ndev.cloudman';
+ Result[2].Description:='View and manage your Google Cloud Platform management resources and deployment status information';
+ Result[3].Name:='https://www.googleapis.com/auth/ndev.cloudman.readonly';
+ Result[3].Description:='View your Google Cloud Platform management resources and deployment status information';
end;
@@ -2398,9 +3155,14 @@ end;
Class Procedure TDeploymentmanagerAPI.RegisterAPIResources;
begin
+ TConfigFile.RegisterObject;
TDeployment.RegisterObject;
+ TDeploymentLabelEntry.RegisterObject;
TDeploymentUpdate.RegisterObject;
+ TDeploymentUpdateLabelEntry.RegisterObject;
+ TDeploymentsCancelPreviewRequest.RegisterObject;
TDeploymentsListResponse.RegisterObject;
+ TDeploymentsStopRequest.RegisterObject;
TImportFile.RegisterObject;
TManifest.RegisterObject;
TManifestsListResponse.RegisterObject;
@@ -2410,7 +3172,13 @@ begin
TOperationTypewarningsItem.RegisterObject;
TOperation.RegisterObject;
TOperationsListResponse.RegisterObject;
+ TResourceTypewarningsItemTypedataItem.RegisterObject;
+ TResourceTypewarningsItem.RegisterObject;
TResource.RegisterObject;
+ TResourceUpdateTypeerrorTypeerrorsItem.RegisterObject;
+ TResourceUpdateTypeerror.RegisterObject;
+ TResourceUpdateTypewarningsItemTypedataItem.RegisterObject;
+ TResourceUpdateTypewarningsItem.RegisterObject;
TResourceUpdate.RegisterObject;
TResourcesListResponse.RegisterObject;
TTargetConfiguration.RegisterObject;
diff --git a/packages/googleapi/src/googledfareporting.pp b/packages/googleapi/src/googledfareporting.pp
index 45eab5d60d..13e623e36a 100644
--- a/packages/googleapi/src/googledfareporting.pp
+++ b/packages/googleapi/src/googledfareporting.pp
@@ -1,19 +1,4 @@
unit googledfareporting;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:02
{$MODE objfpc}
{$H+}
@@ -62,6 +47,11 @@ type
TConnectionTypesListResponse = Class;
TContentCategoriesListResponse = Class;
TContentCategory = Class;
+ TConversion = Class;
+ TConversionError = Class;
+ TConversionStatus = Class;
+ TConversionsBatchInsertRequest = Class;
+ TConversionsBatchInsertResponse = Class;
TCountriesListResponse = Class;
TCountry = Class;
TCreative = Class;
@@ -83,6 +73,7 @@ type
TCreativeSettings = Class;
TCreativesListResponse = Class;
TCrossDimensionReachReportCompatibleFields = Class;
+ TCustomFloodlightVariable = Class;
TCustomRichMediaEvents = Class;
TDateRange = Class;
TDayPartTargeting = Class;
@@ -100,6 +91,9 @@ type
TDirectorySiteContactsListResponse = Class;
TDirectorySiteSettings = Class;
TDirectorySitesListResponse = Class;
+ TDynamicTargetingKey = Class;
+ TDynamicTargetingKeysListResponse = Class;
+ TEncryptionInfo = Class;
TEventTag = Class;
TEventTagOverride = Class;
TEventTagsListResponse = Class;
@@ -166,7 +160,6 @@ type
TPricing = Class;
TPricingSchedule = Class;
TPricingSchedulePricingPeriod = Class;
- TProgrammaticSetting = Class;
TProject = Class;
TProjectsListResponse = Class;
TReachReportCompatibleFields = Class;
@@ -197,6 +190,7 @@ type
TTargetableRemarketingList = Class;
TTargetableRemarketingListsListResponse = Class;
TTechnologyTargeting = Class;
+ TThirdPartyAuthenticationToken = Class;
TThirdPartyTrackingUrl = Class;
TUserDefinedVariableConfiguration = Class;
TUserProfile = Class;
@@ -245,6 +239,11 @@ type
TConnectionTypesListResponseArray = Array of TConnectionTypesListResponse;
TContentCategoriesListResponseArray = Array of TContentCategoriesListResponse;
TContentCategoryArray = Array of TContentCategory;
+ TConversionArray = Array of TConversion;
+ TConversionErrorArray = Array of TConversionError;
+ TConversionStatusArray = Array of TConversionStatus;
+ TConversionsBatchInsertRequestArray = Array of TConversionsBatchInsertRequest;
+ TConversionsBatchInsertResponseArray = Array of TConversionsBatchInsertResponse;
TCountriesListResponseArray = Array of TCountriesListResponse;
TCountryArray = Array of TCountry;
TCreativeArray = Array of TCreative;
@@ -266,6 +265,7 @@ type
TCreativeSettingsArray = Array of TCreativeSettings;
TCreativesListResponseArray = Array of TCreativesListResponse;
TCrossDimensionReachReportCompatibleFieldsArray = Array of TCrossDimensionReachReportCompatibleFields;
+ TCustomFloodlightVariableArray = Array of TCustomFloodlightVariable;
TCustomRichMediaEventsArray = Array of TCustomRichMediaEvents;
TDateRangeArray = Array of TDateRange;
TDayPartTargetingArray = Array of TDayPartTargeting;
@@ -283,6 +283,9 @@ type
TDirectorySiteContactsListResponseArray = Array of TDirectorySiteContactsListResponse;
TDirectorySiteSettingsArray = Array of TDirectorySiteSettings;
TDirectorySitesListResponseArray = Array of TDirectorySitesListResponse;
+ TDynamicTargetingKeyArray = Array of TDynamicTargetingKey;
+ TDynamicTargetingKeysListResponseArray = Array of TDynamicTargetingKeysListResponse;
+ TEncryptionInfoArray = Array of TEncryptionInfo;
TEventTagArray = Array of TEventTag;
TEventTagOverrideArray = Array of TEventTagOverride;
TEventTagsListResponseArray = Array of TEventTagsListResponse;
@@ -349,7 +352,6 @@ type
TPricingArray = Array of TPricing;
TPricingScheduleArray = Array of TPricingSchedule;
TPricingSchedulePricingPeriodArray = Array of TPricingSchedulePricingPeriod;
- TProgrammaticSettingArray = Array of TProgrammaticSetting;
TProjectArray = Array of TProject;
TProjectsListResponseArray = Array of TProjectsListResponse;
TReachReportCompatibleFieldsArray = Array of TReachReportCompatibleFields;
@@ -380,6 +382,7 @@ type
TTargetableRemarketingListArray = Array of TTargetableRemarketingList;
TTargetableRemarketingListsListResponseArray = Array of TTargetableRemarketingListsListResponse;
TTechnologyTargetingArray = Array of TTechnologyTargeting;
+ TThirdPartyAuthenticationTokenArray = Array of TThirdPartyAuthenticationToken;
TThirdPartyTrackingUrlArray = Array of TThirdPartyTrackingUrl;
TUserDefinedVariableConfigurationArray = Array of TUserDefinedVariableConfiguration;
TUserProfileArray = Array of TUserProfile;
@@ -423,6 +426,10 @@ type
TCitiesListResponseTypecitiesArray = Array of TCity;
TConnectionTypesListResponseTypeconnectionTypesArray = Array of TConnectionType;
TContentCategoriesListResponseTypecontentCategoriesArray = Array of TContentCategory;
+ TConversionTypecustomVariablesArray = Array of TCustomFloodlightVariable;
+ TConversionStatusTypeerrorsArray = Array of TConversionError;
+ TConversionsBatchInsertRequestTypeconversionsArray = Array of TConversion;
+ TConversionsBatchInsertResponseTypestatusArray = Array of TConversionStatus;
TCountriesListResponseTypecountriesArray = Array of TCountry;
TCreativeTypeclickTagsArray = Array of TClickTag;
TCreativeTypecounterCustomEventsArray = Array of TCreativeCustomEvent;
@@ -451,12 +458,14 @@ type
TDirectorySiteTypecontactAssignmentsArray = Array of TDirectorySiteContactAssignment;
TDirectorySiteContactsListResponseTypedirectorySiteContactsArray = Array of TDirectorySiteContact;
TDirectorySitesListResponseTypedirectorySitesArray = Array of TDirectorySite;
+ TDynamicTargetingKeysListResponseTypedynamicTargetingKeysArray = Array of TDynamicTargetingKey;
TEventTagsListResponseTypeeventTagsArray = Array of TEventTag;
TFileListTypeitemsArray = Array of TFile;
TFloodlightActivitiesListResponseTypefloodlightActivitiesArray = Array of TFloodlightActivity;
TFloodlightActivityTypedefaultTagsArray = Array of TFloodlightActivityDynamicTag;
TFloodlightActivityTypepublisherTagsArray = Array of TFloodlightActivityPublisherDynamicTag;
TFloodlightActivityGroupsListResponseTypefloodlightActivityGroupsArray = Array of TFloodlightActivityGroup;
+ TFloodlightConfigurationTypethirdPartyAuthenticationTokensArray = Array of TThirdPartyAuthenticationToken;
TFloodlightConfigurationTypeuserDefinedVariableConfigurationsArray = Array of TUserDefinedVariableConfiguration;
TFloodlightConfigurationsListResponseTypefloodlightConfigurationsArray = Array of TFloodlightConfiguration;
TFloodlightReportCompatibleFieldsTypedimensionFiltersArray = Array of TDimension;
@@ -564,13 +573,13 @@ type
FteaserSizeLimit : String;
Protected
//Property setters
- Procedure SetaccountPermissionIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetaccountPermissionIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetaccountProfile(AIndex : Integer; const AValue : String); virtual;
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetactiveAdsLimitTier(AIndex : Integer; const AValue : String); virtual;
- Procedure SetactiveViewOptOut(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetavailablePermissionIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetcomscoreVceEnabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetactiveViewOptOut(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetavailablePermissionIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetcomscoreVceEnabled(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcountryId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcurrencyId(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultCreativeSizeId(AIndex : Integer; const AValue : String); virtual;
@@ -580,8 +589,8 @@ type
Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
Procedure SetmaximumImageSize(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnielsenOcrEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetreportsConfiguration(AIndex : Integer; AValue : TReportsConfiguration); virtual;
+ Procedure SetnielsenOcrEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetreportsConfiguration(AIndex : Integer; const AValue : TReportsConfiguration); virtual;
Procedure SetteaserSizeLimit(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -653,7 +662,7 @@ type
FpermissionGroupId : String;
Protected
//Property setters
- Procedure SetaccountProfiles(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetaccountProfiles(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlevel(AIndex : Integer; const AValue : String); virtual;
@@ -706,7 +715,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetaccountPermissionGroups(AIndex : Integer; AValue : TAccountPermissionGroupsListResponseTypeaccountPermissionGroupsArray); virtual;
+ Procedure SetaccountPermissionGroups(AIndex : Integer; const AValue : TAccountPermissionGroupsListResponseTypeaccountPermissionGroupsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -729,7 +738,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetaccountPermissions(AIndex : Integer; AValue : TAccountPermissionsListResponseTypeaccountPermissionsArray); virtual;
+ Procedure SetaccountPermissions(AIndex : Integer; const AValue : TAccountPermissionsListResponseTypeaccountPermissionsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -767,20 +776,20 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetadvertiserFilter(AIndex : Integer; AValue : TObjectFilter); virtual;
- Procedure SetcampaignFilter(AIndex : Integer; AValue : TObjectFilter); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetadvertiserFilter(AIndex : Integer; const AValue : TObjectFilter); virtual;
+ Procedure SetcampaignFilter(AIndex : Integer; const AValue : TObjectFilter); virtual;
Procedure Setcomments(AIndex : Integer; const AValue : String); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsiteFilter(AIndex : Integer; AValue : TObjectFilter); virtual;
+ Procedure SetsiteFilter(AIndex : Integer; const AValue : TObjectFilter); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SettraffickerType(AIndex : Integer; const AValue : String); virtual;
Procedure SetuserAccessType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserRoleFilter(AIndex : Integer; AValue : TObjectFilter); virtual;
+ Procedure SetuserRoleFilter(AIndex : Integer; const AValue : TObjectFilter); virtual;
Procedure SetuserRoleId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -814,7 +823,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetaccountUserProfiles(AIndex : Integer; AValue : TAccountUserProfilesListResponseTypeaccountUserProfilesArray); virtual;
+ Procedure SetaccountUserProfiles(AIndex : Integer; const AValue : TAccountUserProfilesListResponseTypeaccountUserProfilesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -840,7 +849,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setaccounts(AIndex : Integer; AValue : TAccountsListResponseTypeaccountsArray); virtual;
+ Procedure Setaccounts(AIndex : Integer; const AValue : TAccountsListResponseTypeaccountsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -866,9 +875,9 @@ type
FmetricNames : TStringArray;
Protected
//Property setters
- Procedure Setfilters(AIndex : Integer; AValue : TActivitiesTypefiltersArray); virtual;
+ Procedure Setfilters(AIndex : Integer; const AValue : TActivitiesTypefiltersArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmetricNames(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetmetricNames(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -916,7 +925,7 @@ type
FlastModifiedInfo : TLastModifiedInfo;
Fname : String;
FplacementAssignments : TAdTypeplacementAssignmentsArray;
- Fremarketing_list_expression : TListTargetingExpression;
+ FremarketingListExpression : TListTargetingExpression;
Fsize : TSize;
FsslCompliant : boolean;
FsslRequired : boolean;
@@ -928,41 +937,41 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure Setarchived(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure Setarchived(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetaudienceSegmentId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcampaignId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcampaignIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetclickThroughUrl(AIndex : Integer; AValue : TClickThroughUrl); virtual;
- Procedure SetclickThroughUrlSuffixProperties(AIndex : Integer; AValue : TClickThroughUrlSuffixProperties); virtual;
+ Procedure SetcampaignIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetclickThroughUrl(AIndex : Integer; const AValue : TClickThroughUrl); virtual;
+ Procedure SetclickThroughUrlSuffixProperties(AIndex : Integer; const AValue : TClickThroughUrlSuffixProperties); virtual;
Procedure Setcomments(AIndex : Integer; const AValue : String); virtual;
Procedure Setcompatibility(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreateInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
- Procedure SetcreativeGroupAssignments(AIndex : Integer; AValue : TAdTypecreativeGroupAssignmentsArray); virtual;
- Procedure SetcreativeRotation(AIndex : Integer; AValue : TCreativeRotation); virtual;
- Procedure SetdayPartTargeting(AIndex : Integer; AValue : TDayPartTargeting); virtual;
- Procedure SetdefaultClickThroughEventTagProperties(AIndex : Integer; AValue : TDefaultClickThroughEventTagProperties); virtual;
- Procedure SetdeliverySchedule(AIndex : Integer; AValue : TDeliverySchedule); virtual;
- Procedure SetdynamicClickTracker(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetendTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SeteventTagOverrides(AIndex : Integer; AValue : TAdTypeeventTagOverridesArray); virtual;
- Procedure SetgeoTargeting(AIndex : Integer; AValue : TGeoTargeting); virtual;
+ Procedure SetcreateInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
+ Procedure SetcreativeGroupAssignments(AIndex : Integer; const AValue : TAdTypecreativeGroupAssignmentsArray); virtual;
+ Procedure SetcreativeRotation(AIndex : Integer; const AValue : TCreativeRotation); virtual;
+ Procedure SetdayPartTargeting(AIndex : Integer; const AValue : TDayPartTargeting); virtual;
+ Procedure SetdefaultClickThroughEventTagProperties(AIndex : Integer; const AValue : TDefaultClickThroughEventTagProperties); virtual;
+ Procedure SetdeliverySchedule(AIndex : Integer; const AValue : TDeliverySchedule); virtual;
+ Procedure SetdynamicClickTracker(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SeteventTagOverrides(AIndex : Integer; const AValue : TAdTypeeventTagOverridesArray); virtual;
+ Procedure SetgeoTargeting(AIndex : Integer; const AValue : TGeoTargeting); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetkeyValueTargetingExpression(AIndex : Integer; AValue : TKeyValueTargetingExpression); virtual;
+ Procedure SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetkeyValueTargetingExpression(AIndex : Integer; const AValue : TKeyValueTargetingExpression); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
+ Procedure SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplacementAssignments(AIndex : Integer; AValue : TAdTypeplacementAssignmentsArray); virtual;
- Procedure Setremarketing_list_expression(AIndex : Integer; AValue : TListTargetingExpression); virtual;
- Procedure Setsize(AIndex : Integer; AValue : TSize); virtual;
- Procedure SetsslCompliant(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsslRequired(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetstartTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetplacementAssignments(AIndex : Integer; const AValue : TAdTypeplacementAssignmentsArray); virtual;
+ Procedure SetremarketingListExpression(AIndex : Integer; const AValue : TListTargetingExpression); virtual;
+ Procedure Setsize(AIndex : Integer; const AValue : TSize); virtual;
+ Procedure SetsslCompliant(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsslRequired(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettechnologyTargeting(AIndex : Integer; AValue : TTechnologyTargeting); virtual;
+ Procedure SettechnologyTargeting(AIndex : Integer; const AValue : TTechnologyTargeting); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -999,7 +1008,7 @@ type
Property lastModifiedInfo : TLastModifiedInfo Index 208 Read FlastModifiedInfo Write SetlastModifiedInfo;
Property name : String Index 216 Read Fname Write Setname;
Property placementAssignments : TAdTypeplacementAssignmentsArray Index 224 Read FplacementAssignments Write SetplacementAssignments;
- Property remarketing_list_expression : TListTargetingExpression Index 232 Read Fremarketing_list_expression Write Setremarketing_list_expression;
+ Property remarketingListExpression : TListTargetingExpression Index 232 Read FremarketingListExpression Write SetremarketingListExpression;
Property size : TSize Index 240 Read Fsize Write Setsize;
Property sslCompliant : boolean Index 248 Read FsslCompliant Write SetsslCompliant;
Property sslRequired : boolean Index 256 Read FsslRequired Write SetsslRequired;
@@ -1032,7 +1041,7 @@ type
Procedure SetlinkedPlacementId(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetpaymentSourceType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprimary(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setwidth(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1058,7 +1067,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setads(AIndex : Integer; AValue : TAdsListResponseTypeadsArray); virtual;
+ Procedure Setads(AIndex : Integer; const AValue : TAdsListResponseTypeadsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1093,6 +1102,7 @@ type
ForiginalFloodlightConfigurationId : String;
Fstatus : String;
FsubaccountId : String;
+ Fsuspended : boolean;
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
@@ -1101,14 +1111,15 @@ type
Procedure SetdefaultClickThroughEventTagId(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultEmail(AIndex : Integer; const AValue : String); virtual;
Procedure SetfloodlightConfigurationId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetoriginalFloodlightConfigurationId(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsuspended(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property accountId : String Index 0 Read FaccountId Write SetaccountId;
@@ -1125,6 +1136,7 @@ type
Property originalFloodlightConfigurationId : String Index 88 Read ForiginalFloodlightConfigurationId Write SetoriginalFloodlightConfigurationId;
Property status : String Index 96 Read Fstatus Write Setstatus;
Property subaccountId : String Index 104 Read FsubaccountId Write SetsubaccountId;
+ Property suspended : boolean Index 112 Read Fsuspended Write Setsuspended;
end;
TAdvertiserClass = Class of TAdvertiser;
@@ -1164,7 +1176,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetadvertiserGroups(AIndex : Integer; AValue : TAdvertiserGroupsListResponseTypeadvertiserGroupsArray); virtual;
+ Procedure SetadvertiserGroups(AIndex : Integer; const AValue : TAdvertiserGroupsListResponseTypeadvertiserGroupsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1190,7 +1202,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setadvertisers(AIndex : Integer; AValue : TAdvertisersListResponseTypeadvertisersArray); virtual;
+ Procedure Setadvertisers(AIndex : Integer; const AValue : TAdvertisersListResponseTypeadvertisersArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1216,7 +1228,7 @@ type
Fname : String;
Protected
//Property setters
- Procedure Setallocation(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setallocation(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1238,7 +1250,7 @@ type
Fname : String;
Protected
//Property setters
- Procedure SetaudienceSegments(AIndex : Integer; AValue : TAudienceSegmentGroupTypeaudienceSegmentsArray); virtual;
+ Procedure SetaudienceSegments(AIndex : Integer; const AValue : TAudienceSegmentGroupTypeaudienceSegmentsArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1294,7 +1306,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setbrowsers(AIndex : Integer; AValue : TBrowsersListResponseTypebrowsersArray); virtual;
+ Procedure Setbrowsers(AIndex : Integer; const AValue : TBrowsersListResponseTypebrowsersArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1344,33 +1356,33 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadditionalCreativeOptimizationConfigurations(AIndex : Integer; AValue : TCampaignTypeadditionalCreativeOptimizationConfigurationsArray); virtual;
+ Procedure SetadditionalCreativeOptimizationConfigurations(AIndex : Integer; const AValue : TCampaignTypeadditionalCreativeOptimizationConfigurationsArray); virtual;
Procedure SetadvertiserGroupId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure Setarchived(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetaudienceSegmentGroups(AIndex : Integer; AValue : TCampaignTypeaudienceSegmentGroupsArray); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure Setarchived(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetaudienceSegmentGroups(AIndex : Integer; const AValue : TCampaignTypeaudienceSegmentGroupsArray); virtual;
Procedure SetbillingInvoiceCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetclickThroughUrlSuffixProperties(AIndex : Integer; AValue : TClickThroughUrlSuffixProperties); virtual;
+ Procedure SetclickThroughUrlSuffixProperties(AIndex : Integer; const AValue : TClickThroughUrlSuffixProperties); virtual;
Procedure Setcomment(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcomscoreVceEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcreateInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
- Procedure SetcreativeGroupIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetcreativeOptimizationConfiguration(AIndex : Integer; AValue : TCreativeOptimizationConfiguration); virtual;
- Procedure SetdefaultClickThroughEventTagProperties(AIndex : Integer; AValue : TDefaultClickThroughEventTagProperties); virtual;
- Procedure SetendDate(AIndex : Integer; AValue : TDate); virtual;
- Procedure SeteventTagOverrides(AIndex : Integer; AValue : TCampaignTypeeventTagOverridesArray); virtual;
+ Procedure SetcomscoreVceEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcreateInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
+ Procedure SetcreativeGroupIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetcreativeOptimizationConfiguration(AIndex : Integer; const AValue : TCreativeOptimizationConfiguration); virtual;
+ Procedure SetdefaultClickThroughEventTagProperties(AIndex : Integer; const AValue : TDefaultClickThroughEventTagProperties); virtual;
+ Procedure SetendDate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure SeteventTagOverrides(AIndex : Integer; const AValue : TCampaignTypeeventTagOverridesArray); virtual;
Procedure SetexternalId(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
- Procedure SetlookbackConfiguration(AIndex : Integer; AValue : TLookbackConfiguration); virtual;
+ Procedure SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
+ Procedure SetlookbackConfiguration(AIndex : Integer; const AValue : TLookbackConfiguration); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnielsenOcrEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetstartDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetnielsenOcrEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetstartDate(AIndex : Integer; const AValue : TDate); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettraffickerEmails(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SettraffickerEmails(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1438,7 +1450,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetcampaignCreativeAssociations(AIndex : Integer; AValue : TCampaignCreativeAssociationsListResponseTypecampaignCreativeAssociationsArray); virtual;
+ Procedure SetcampaignCreativeAssociations(AIndex : Integer; const AValue : TCampaignCreativeAssociationsListResponseTypecampaignCreativeAssociationsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1464,7 +1476,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setcampaigns(AIndex : Integer; AValue : TCampaignsListResponseTypecampaignsArray); virtual;
+ Procedure Setcampaigns(AIndex : Integer; const AValue : TCampaignsListResponseTypecampaignsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1503,7 +1515,7 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure Setaction(AIndex : Integer; const AValue : String); virtual;
- Procedure SetchangeTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetchangeTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetfieldName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
@@ -1545,7 +1557,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetchangeLogs(AIndex : Integer; AValue : TChangeLogsListResponseTypechangeLogsArray); virtual;
+ Procedure SetchangeLogs(AIndex : Integer; const AValue : TChangeLogsListResponseTypechangeLogsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1570,7 +1582,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setcities(AIndex : Integer; AValue : TCitiesListResponseTypecitiesArray); virtual;
+ Procedure Setcities(AIndex : Integer; const AValue : TCitiesListResponseTypecitiesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1651,19 +1663,22 @@ type
TClickThroughUrl = Class(TGoogleBaseObject)
Private
+ FcomputedClickThroughUrl : String;
FcustomClickThroughUrl : String;
FdefaultLandingPage : boolean;
FlandingPageId : String;
Protected
//Property setters
+ Procedure SetcomputedClickThroughUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomClickThroughUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdefaultLandingPage(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdefaultLandingPage(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetlandingPageId(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property customClickThroughUrl : String Index 0 Read FcustomClickThroughUrl Write SetcustomClickThroughUrl;
- Property defaultLandingPage : boolean Index 8 Read FdefaultLandingPage Write SetdefaultLandingPage;
- Property landingPageId : String Index 16 Read FlandingPageId Write SetlandingPageId;
+ Property computedClickThroughUrl : String Index 0 Read FcomputedClickThroughUrl Write SetcomputedClickThroughUrl;
+ Property customClickThroughUrl : String Index 8 Read FcustomClickThroughUrl Write SetcustomClickThroughUrl;
+ Property defaultLandingPage : boolean Index 16 Read FdefaultLandingPage Write SetdefaultLandingPage;
+ Property landingPageId : String Index 24 Read FlandingPageId Write SetlandingPageId;
end;
TClickThroughUrlClass = Class of TClickThroughUrl;
@@ -1678,7 +1693,7 @@ type
Protected
//Property setters
Procedure SetclickThroughUrlSuffix(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoverrideInheritedSuffix(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetoverrideInheritedSuffix(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property clickThroughUrlSuffix : String Index 0 Read FclickThroughUrlSuffix Write SetclickThroughUrlSuffix;
@@ -1696,7 +1711,7 @@ type
FcreativeId : String;
Protected
//Property setters
- Procedure SetclickThroughUrl(AIndex : Integer; AValue : TClickThroughUrl); virtual;
+ Procedure SetclickThroughUrl(AIndex : Integer; const AValue : TClickThroughUrl); virtual;
Procedure SetcreativeId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1719,12 +1734,12 @@ type
FreportCompatibleFields : TReportCompatibleFields;
Protected
//Property setters
- Procedure SetcrossDimensionReachReportCompatibleFields(AIndex : Integer; AValue : TCrossDimensionReachReportCompatibleFields); virtual;
- Procedure SetfloodlightReportCompatibleFields(AIndex : Integer; AValue : TFloodlightReportCompatibleFields); virtual;
+ Procedure SetcrossDimensionReachReportCompatibleFields(AIndex : Integer; const AValue : TCrossDimensionReachReportCompatibleFields); virtual;
+ Procedure SetfloodlightReportCompatibleFields(AIndex : Integer; const AValue : TFloodlightReportCompatibleFields); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpathToConversionReportCompatibleFields(AIndex : Integer; AValue : TPathToConversionReportCompatibleFields); virtual;
- Procedure SetreachReportCompatibleFields(AIndex : Integer; AValue : TReachReportCompatibleFields); virtual;
- Procedure SetreportCompatibleFields(AIndex : Integer; AValue : TReportCompatibleFields); virtual;
+ Procedure SetpathToConversionReportCompatibleFields(AIndex : Integer; const AValue : TPathToConversionReportCompatibleFields); virtual;
+ Procedure SetreachReportCompatibleFields(AIndex : Integer; const AValue : TReachReportCompatibleFields); virtual;
+ Procedure SetreportCompatibleFields(AIndex : Integer; const AValue : TReportCompatibleFields); virtual;
Public
Published
Property crossDimensionReachReportCompatibleFields : TCrossDimensionReachReportCompatibleFields Index 0 Read FcrossDimensionReachReportCompatibleFields Write SetcrossDimensionReachReportCompatibleFields;
@@ -1768,7 +1783,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetconnectionTypes(AIndex : Integer; AValue : TConnectionTypesListResponseTypeconnectionTypesArray); virtual;
+ Procedure SetconnectionTypes(AIndex : Integer; const AValue : TConnectionTypesListResponseTypeconnectionTypesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1792,7 +1807,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetcontentCategories(AIndex : Integer; AValue : TContentCategoriesListResponseTypecontentCategoriesArray); virtual;
+ Procedure SetcontentCategories(AIndex : Integer; const AValue : TContentCategoriesListResponseTypecontentCategoriesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1833,6 +1848,159 @@ type
TContentCategoryClass = Class of TContentCategory;
{ --------------------------------------------------------------------
+ TConversion
+ --------------------------------------------------------------------}
+
+ TConversion = Class(TGoogleBaseObject)
+ Private
+ FchildDirectedTreatment : boolean;
+ FcustomVariables : TConversionTypecustomVariablesArray;
+ FencryptedUserId : String;
+ FfloodlightActivityId : String;
+ FfloodlightConfigurationId : String;
+ Fkind : String;
+ FlimitAdTracking : boolean;
+ FmobileDeviceId : String;
+ Fordinal : String;
+ Fquantity : String;
+ FtimestampMicros : String;
+ Fvalue : double;
+ Protected
+ //Property setters
+ Procedure SetchildDirectedTreatment(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcustomVariables(AIndex : Integer; const AValue : TConversionTypecustomVariablesArray); virtual;
+ Procedure SetencryptedUserId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfloodlightActivityId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfloodlightConfigurationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlimitAdTracking(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetmobileDeviceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setordinal(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setquantity(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettimestampMicros(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(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 childDirectedTreatment : boolean Index 0 Read FchildDirectedTreatment Write SetchildDirectedTreatment;
+ Property customVariables : TConversionTypecustomVariablesArray Index 8 Read FcustomVariables Write SetcustomVariables;
+ Property encryptedUserId : String Index 16 Read FencryptedUserId Write SetencryptedUserId;
+ Property floodlightActivityId : String Index 24 Read FfloodlightActivityId Write SetfloodlightActivityId;
+ Property floodlightConfigurationId : String Index 32 Read FfloodlightConfigurationId Write SetfloodlightConfigurationId;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property limitAdTracking : boolean Index 48 Read FlimitAdTracking Write SetlimitAdTracking;
+ Property mobileDeviceId : String Index 56 Read FmobileDeviceId Write SetmobileDeviceId;
+ Property ordinal : String Index 64 Read Fordinal Write Setordinal;
+ Property quantity : String Index 72 Read Fquantity Write Setquantity;
+ Property timestampMicros : String Index 80 Read FtimestampMicros Write SettimestampMicros;
+ Property value : double Index 88 Read Fvalue Write Setvalue;
+ end;
+ TConversionClass = Class of TConversion;
+
+ { --------------------------------------------------------------------
+ TConversionError
+ --------------------------------------------------------------------}
+
+ TConversionError = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Fkind : String;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property code : String Index 0 Read Fcode Write Setcode;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TConversionErrorClass = Class of TConversionError;
+
+ { --------------------------------------------------------------------
+ TConversionStatus
+ --------------------------------------------------------------------}
+
+ TConversionStatus = Class(TGoogleBaseObject)
+ Private
+ Fconversion : TConversion;
+ Ferrors : TConversionStatusTypeerrorsArray;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure Setconversion(AIndex : Integer; const AValue : TConversion); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TConversionStatusTypeerrorsArray); 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 conversion : TConversion Index 0 Read Fconversion Write Setconversion;
+ Property errors : TConversionStatusTypeerrorsArray Index 8 Read Ferrors Write Seterrors;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ end;
+ TConversionStatusClass = Class of TConversionStatus;
+
+ { --------------------------------------------------------------------
+ TConversionsBatchInsertRequest
+ --------------------------------------------------------------------}
+
+ TConversionsBatchInsertRequest = Class(TGoogleBaseObject)
+ Private
+ Fconversions : TConversionsBatchInsertRequestTypeconversionsArray;
+ FencryptionInfo : TEncryptionInfo;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure Setconversions(AIndex : Integer; const AValue : TConversionsBatchInsertRequestTypeconversionsArray); virtual;
+ Procedure SetencryptionInfo(AIndex : Integer; const AValue : TEncryptionInfo); 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 conversions : TConversionsBatchInsertRequestTypeconversionsArray Index 0 Read Fconversions Write Setconversions;
+ Property encryptionInfo : TEncryptionInfo Index 8 Read FencryptionInfo Write SetencryptionInfo;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ end;
+ TConversionsBatchInsertRequestClass = Class of TConversionsBatchInsertRequest;
+
+ { --------------------------------------------------------------------
+ TConversionsBatchInsertResponse
+ --------------------------------------------------------------------}
+
+ TConversionsBatchInsertResponse = Class(TGoogleBaseObject)
+ Private
+ FhasFailures : boolean;
+ Fkind : String;
+ Fstatus : TConversionsBatchInsertResponseTypestatusArray;
+ Protected
+ //Property setters
+ Procedure SethasFailures(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TConversionsBatchInsertResponseTypestatusArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property hasFailures : boolean Index 0 Read FhasFailures Write SethasFailures;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property status : TConversionsBatchInsertResponseTypestatusArray Index 16 Read Fstatus Write Setstatus;
+ end;
+ TConversionsBatchInsertResponseClass = Class of TConversionsBatchInsertResponse;
+
+ { --------------------------------------------------------------------
TCountriesListResponse
--------------------------------------------------------------------}
@@ -1842,7 +2010,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setcountries(AIndex : Integer; AValue : TCountriesListResponseTypecountriesArray); virtual;
+ Procedure Setcountries(AIndex : Integer; const AValue : TCountriesListResponseTypecountriesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1872,7 +2040,7 @@ type
Procedure SetdartId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsslEnabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetsslEnabled(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property countryCode : String Index 0 Read FcountryCode Write SetcountryCode;
@@ -1897,6 +2065,7 @@ type
FallowScriptAccess : boolean;
Farchived : boolean;
FartworkType : String;
+ FauthoringSource : String;
FauthoringTool : String;
Fauto_advance_images : boolean;
FbackgroundColor : String;
@@ -1932,6 +2101,7 @@ type
Fsize : TSize;
Fskippable : boolean;
FsslCompliant : boolean;
+ FsslOverride : boolean;
FstudioAdvertiserId : String;
FstudioCreativeId : String;
FstudioTraffickedCreativeId : String;
@@ -1949,61 +2119,63 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetadParameters(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadTagKeys(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetadTagKeys(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetallowScriptAccess(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setarchived(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetallowScriptAccess(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setarchived(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetartworkType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetauthoringSource(AIndex : Integer; const AValue : String); virtual;
Procedure SetauthoringTool(AIndex : Integer; const AValue : String); virtual;
- Procedure Setauto_advance_images(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setauto_advance_images(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetbackgroundColor(AIndex : Integer; const AValue : String); virtual;
Procedure SetbackupImageClickThroughUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbackupImageFeatures(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetbackupImageFeatures(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetbackupImageReportingLabel(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbackupImageTargetWindow(AIndex : Integer; AValue : TTargetWindow); virtual;
- Procedure SetclickTags(AIndex : Integer; AValue : TCreativeTypeclickTagsArray); virtual;
+ Procedure SetbackupImageTargetWindow(AIndex : Integer; const AValue : TTargetWindow); virtual;
+ Procedure SetclickTags(AIndex : Integer; const AValue : TCreativeTypeclickTagsArray); virtual;
Procedure SetcommercialId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcompanionCreatives(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setcompatibility(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetconvertFlashToHtml5(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcounterCustomEvents(AIndex : Integer; AValue : TCreativeTypecounterCustomEventsArray); virtual;
- Procedure SetcreativeAssets(AIndex : Integer; AValue : TCreativeTypecreativeAssetsArray); virtual;
- Procedure SetcreativeFieldAssignments(AIndex : Integer; AValue : TCreativeTypecreativeFieldAssignmentsArray); virtual;
- Procedure SetcustomKeyValues(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetexitCustomEvents(AIndex : Integer; AValue : TCreativeTypeexitCustomEventsArray); virtual;
- Procedure SetfsCommand(AIndex : Integer; AValue : TFsCommand); virtual;
+ Procedure SetcompanionCreatives(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setcompatibility(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetconvertFlashToHtml5(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcounterCustomEvents(AIndex : Integer; const AValue : TCreativeTypecounterCustomEventsArray); virtual;
+ Procedure SetcreativeAssets(AIndex : Integer; const AValue : TCreativeTypecreativeAssetsArray); virtual;
+ Procedure SetcreativeFieldAssignments(AIndex : Integer; const AValue : TCreativeTypecreativeFieldAssignmentsArray); virtual;
+ Procedure SetcustomKeyValues(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetexitCustomEvents(AIndex : Integer; const AValue : TCreativeTypeexitCustomEventsArray); virtual;
+ Procedure SetfsCommand(AIndex : Integer; const AValue : TFsCommand); virtual;
Procedure SethtmlCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SethtmlCodeLocked(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SethtmlCodeLocked(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
+ Procedure SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
Procedure SetlatestTraffickedCreativeId(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetoverrideCss(AIndex : Integer; const AValue : String); virtual;
Procedure SetredirectUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetrenderingId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrenderingIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetrenderingIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure SetrequiredFlashPluginVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrequiredFlashVersion(AIndex : Integer; AValue : integer); virtual;
- Procedure Setsize(AIndex : Integer; AValue : TSize); virtual;
- Procedure Setskippable(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsslCompliant(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetrequiredFlashVersion(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setsize(AIndex : Integer; const AValue : TSize); virtual;
+ Procedure Setskippable(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsslCompliant(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsslOverride(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetstudioAdvertiserId(AIndex : Integer; const AValue : String); virtual;
Procedure SetstudioCreativeId(AIndex : Integer; const AValue : String); virtual;
Procedure SetstudioTraffickedCreativeId(AIndex : Integer; const AValue : String); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetthirdPartyBackupImageImpressionsUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetthirdPartyRichMediaImpressionsUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetthirdPartyUrls(AIndex : Integer; AValue : TCreativeTypethirdPartyUrlsArray); virtual;
- Procedure SettimerCustomEvents(AIndex : Integer; AValue : TCreativeTypetimerCustomEventsArray); virtual;
+ Procedure SetthirdPartyUrls(AIndex : Integer; const AValue : TCreativeTypethirdPartyUrlsArray); virtual;
+ Procedure SettimerCustomEvents(AIndex : Integer; const AValue : TCreativeTypetimerCustomEventsArray); virtual;
Procedure SettotalFileSize(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setversion(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setversion(AIndex : Integer; const AValue : integer); virtual;
Procedure SetvideoDescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvideoDuration(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetvideoDuration(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2018,54 +2190,56 @@ type
Property allowScriptAccess : boolean Index 40 Read FallowScriptAccess Write SetallowScriptAccess;
Property archived : boolean Index 48 Read Farchived Write Setarchived;
Property artworkType : String Index 56 Read FartworkType Write SetartworkType;
- Property authoringTool : String Index 64 Read FauthoringTool Write SetauthoringTool;
- Property auto_advance_images : boolean Index 72 Read Fauto_advance_images Write Setauto_advance_images;
- Property backgroundColor : String Index 80 Read FbackgroundColor Write SetbackgroundColor;
- Property backupImageClickThroughUrl : String Index 88 Read FbackupImageClickThroughUrl Write SetbackupImageClickThroughUrl;
- Property backupImageFeatures : TStringArray Index 96 Read FbackupImageFeatures Write SetbackupImageFeatures;
- Property backupImageReportingLabel : String Index 104 Read FbackupImageReportingLabel Write SetbackupImageReportingLabel;
- Property backupImageTargetWindow : TTargetWindow Index 112 Read FbackupImageTargetWindow Write SetbackupImageTargetWindow;
- Property clickTags : TCreativeTypeclickTagsArray Index 120 Read FclickTags Write SetclickTags;
- Property commercialId : String Index 128 Read FcommercialId Write SetcommercialId;
- Property companionCreatives : TStringArray Index 136 Read FcompanionCreatives Write SetcompanionCreatives;
- Property compatibility : TStringArray Index 144 Read Fcompatibility Write Setcompatibility;
- Property convertFlashToHtml5 : boolean Index 152 Read FconvertFlashToHtml5 Write SetconvertFlashToHtml5;
- Property counterCustomEvents : TCreativeTypecounterCustomEventsArray Index 160 Read FcounterCustomEvents Write SetcounterCustomEvents;
- Property creativeAssets : TCreativeTypecreativeAssetsArray Index 168 Read FcreativeAssets Write SetcreativeAssets;
- Property creativeFieldAssignments : TCreativeTypecreativeFieldAssignmentsArray Index 176 Read FcreativeFieldAssignments Write SetcreativeFieldAssignments;
- Property customKeyValues : TStringArray Index 184 Read FcustomKeyValues Write SetcustomKeyValues;
- Property exitCustomEvents : TCreativeTypeexitCustomEventsArray Index 192 Read FexitCustomEvents Write SetexitCustomEvents;
- Property fsCommand : TFsCommand Index 200 Read FfsCommand Write SetfsCommand;
- Property htmlCode : String Index 208 Read FhtmlCode Write SethtmlCode;
- Property htmlCodeLocked : boolean Index 216 Read FhtmlCodeLocked Write SethtmlCodeLocked;
- Property id : String Index 224 Read Fid Write Setid;
- Property idDimensionValue : TDimensionValue Index 232 Read FidDimensionValue Write SetidDimensionValue;
- Property kind : String Index 240 Read Fkind Write Setkind;
- Property lastModifiedInfo : TLastModifiedInfo Index 248 Read FlastModifiedInfo Write SetlastModifiedInfo;
- Property latestTraffickedCreativeId : String Index 256 Read FlatestTraffickedCreativeId Write SetlatestTraffickedCreativeId;
- Property name : String Index 264 Read Fname Write Setname;
- Property overrideCss : String Index 272 Read FoverrideCss Write SetoverrideCss;
- Property redirectUrl : String Index 280 Read FredirectUrl Write SetredirectUrl;
- Property renderingId : String Index 288 Read FrenderingId Write SetrenderingId;
- Property renderingIdDimensionValue : TDimensionValue Index 296 Read FrenderingIdDimensionValue Write SetrenderingIdDimensionValue;
- Property requiredFlashPluginVersion : String Index 304 Read FrequiredFlashPluginVersion Write SetrequiredFlashPluginVersion;
- Property requiredFlashVersion : integer Index 312 Read FrequiredFlashVersion Write SetrequiredFlashVersion;
- Property size : TSize Index 320 Read Fsize Write Setsize;
- Property skippable : boolean Index 328 Read Fskippable Write Setskippable;
- Property sslCompliant : boolean Index 336 Read FsslCompliant Write SetsslCompliant;
- Property studioAdvertiserId : String Index 344 Read FstudioAdvertiserId Write SetstudioAdvertiserId;
- Property studioCreativeId : String Index 352 Read FstudioCreativeId Write SetstudioCreativeId;
- Property studioTraffickedCreativeId : String Index 360 Read FstudioTraffickedCreativeId Write SetstudioTraffickedCreativeId;
- Property subaccountId : String Index 368 Read FsubaccountId Write SetsubaccountId;
- Property thirdPartyBackupImageImpressionsUrl : String Index 376 Read FthirdPartyBackupImageImpressionsUrl Write SetthirdPartyBackupImageImpressionsUrl;
- Property thirdPartyRichMediaImpressionsUrl : String Index 384 Read FthirdPartyRichMediaImpressionsUrl Write SetthirdPartyRichMediaImpressionsUrl;
- Property thirdPartyUrls : TCreativeTypethirdPartyUrlsArray Index 392 Read FthirdPartyUrls Write SetthirdPartyUrls;
- Property timerCustomEvents : TCreativeTypetimerCustomEventsArray Index 400 Read FtimerCustomEvents Write SettimerCustomEvents;
- Property totalFileSize : String Index 408 Read FtotalFileSize Write SettotalFileSize;
- Property _type : String Index 416 Read F_type Write Set_type;
- Property version : integer Index 424 Read Fversion Write Setversion;
- Property videoDescription : String Index 432 Read FvideoDescription Write SetvideoDescription;
- Property videoDuration : integer Index 440 Read FvideoDuration Write SetvideoDuration;
+ Property authoringSource : String Index 64 Read FauthoringSource Write SetauthoringSource;
+ Property authoringTool : String Index 72 Read FauthoringTool Write SetauthoringTool;
+ Property auto_advance_images : boolean Index 80 Read Fauto_advance_images Write Setauto_advance_images;
+ Property backgroundColor : String Index 88 Read FbackgroundColor Write SetbackgroundColor;
+ Property backupImageClickThroughUrl : String Index 96 Read FbackupImageClickThroughUrl Write SetbackupImageClickThroughUrl;
+ Property backupImageFeatures : TStringArray Index 104 Read FbackupImageFeatures Write SetbackupImageFeatures;
+ Property backupImageReportingLabel : String Index 112 Read FbackupImageReportingLabel Write SetbackupImageReportingLabel;
+ Property backupImageTargetWindow : TTargetWindow Index 120 Read FbackupImageTargetWindow Write SetbackupImageTargetWindow;
+ Property clickTags : TCreativeTypeclickTagsArray Index 128 Read FclickTags Write SetclickTags;
+ Property commercialId : String Index 136 Read FcommercialId Write SetcommercialId;
+ Property companionCreatives : TStringArray Index 144 Read FcompanionCreatives Write SetcompanionCreatives;
+ Property compatibility : TStringArray Index 152 Read Fcompatibility Write Setcompatibility;
+ Property convertFlashToHtml5 : boolean Index 160 Read FconvertFlashToHtml5 Write SetconvertFlashToHtml5;
+ Property counterCustomEvents : TCreativeTypecounterCustomEventsArray Index 168 Read FcounterCustomEvents Write SetcounterCustomEvents;
+ Property creativeAssets : TCreativeTypecreativeAssetsArray Index 176 Read FcreativeAssets Write SetcreativeAssets;
+ Property creativeFieldAssignments : TCreativeTypecreativeFieldAssignmentsArray Index 184 Read FcreativeFieldAssignments Write SetcreativeFieldAssignments;
+ Property customKeyValues : TStringArray Index 192 Read FcustomKeyValues Write SetcustomKeyValues;
+ Property exitCustomEvents : TCreativeTypeexitCustomEventsArray Index 200 Read FexitCustomEvents Write SetexitCustomEvents;
+ Property fsCommand : TFsCommand Index 208 Read FfsCommand Write SetfsCommand;
+ Property htmlCode : String Index 216 Read FhtmlCode Write SethtmlCode;
+ Property htmlCodeLocked : boolean Index 224 Read FhtmlCodeLocked Write SethtmlCodeLocked;
+ Property id : String Index 232 Read Fid Write Setid;
+ Property idDimensionValue : TDimensionValue Index 240 Read FidDimensionValue Write SetidDimensionValue;
+ Property kind : String Index 248 Read Fkind Write Setkind;
+ Property lastModifiedInfo : TLastModifiedInfo Index 256 Read FlastModifiedInfo Write SetlastModifiedInfo;
+ Property latestTraffickedCreativeId : String Index 264 Read FlatestTraffickedCreativeId Write SetlatestTraffickedCreativeId;
+ Property name : String Index 272 Read Fname Write Setname;
+ Property overrideCss : String Index 280 Read FoverrideCss Write SetoverrideCss;
+ Property redirectUrl : String Index 288 Read FredirectUrl Write SetredirectUrl;
+ Property renderingId : String Index 296 Read FrenderingId Write SetrenderingId;
+ Property renderingIdDimensionValue : TDimensionValue Index 304 Read FrenderingIdDimensionValue Write SetrenderingIdDimensionValue;
+ Property requiredFlashPluginVersion : String Index 312 Read FrequiredFlashPluginVersion Write SetrequiredFlashPluginVersion;
+ Property requiredFlashVersion : integer Index 320 Read FrequiredFlashVersion Write SetrequiredFlashVersion;
+ Property size : TSize Index 328 Read Fsize Write Setsize;
+ Property skippable : boolean Index 336 Read Fskippable Write Setskippable;
+ Property sslCompliant : boolean Index 344 Read FsslCompliant Write SetsslCompliant;
+ Property sslOverride : boolean Index 352 Read FsslOverride Write SetsslOverride;
+ Property studioAdvertiserId : String Index 360 Read FstudioAdvertiserId Write SetstudioAdvertiserId;
+ Property studioCreativeId : String Index 368 Read FstudioCreativeId Write SetstudioCreativeId;
+ Property studioTraffickedCreativeId : String Index 376 Read FstudioTraffickedCreativeId Write SetstudioTraffickedCreativeId;
+ Property subaccountId : String Index 384 Read FsubaccountId Write SetsubaccountId;
+ Property thirdPartyBackupImageImpressionsUrl : String Index 392 Read FthirdPartyBackupImageImpressionsUrl Write SetthirdPartyBackupImageImpressionsUrl;
+ Property thirdPartyRichMediaImpressionsUrl : String Index 400 Read FthirdPartyRichMediaImpressionsUrl Write SetthirdPartyRichMediaImpressionsUrl;
+ Property thirdPartyUrls : TCreativeTypethirdPartyUrlsArray Index 408 Read FthirdPartyUrls Write SetthirdPartyUrls;
+ Property timerCustomEvents : TCreativeTypetimerCustomEventsArray Index 416 Read FtimerCustomEvents Write SettimerCustomEvents;
+ Property totalFileSize : String Index 424 Read FtotalFileSize Write SettotalFileSize;
+ Property _type : String Index 432 Read F_type Write Set_type;
+ Property version : integer Index 440 Read Fversion Write Setversion;
+ Property videoDescription : String Index 448 Read FvideoDescription Write SetvideoDescription;
+ Property videoDuration : integer Index 456 Read FvideoDuration Write SetvideoDuration;
end;
TCreativeClass = Class of TCreative;
@@ -2119,46 +2293,46 @@ type
FzipFilesize : String;
Protected
//Property setters
- Procedure SetactionScript3(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetactionScript3(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setalignment(AIndex : Integer; const AValue : String); virtual;
Procedure SetartworkType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetassetIdentifier(AIndex : Integer; AValue : TCreativeAssetId); virtual;
- Procedure SetbackupImageExit(AIndex : Integer; AValue : TCreativeCustomEvent); virtual;
- Procedure SetbitRate(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetassetIdentifier(AIndex : Integer; const AValue : TCreativeAssetId); virtual;
+ Procedure SetbackupImageExit(AIndex : Integer; const AValue : TCreativeCustomEvent); virtual;
+ Procedure SetbitRate(AIndex : Integer; const AValue : integer); virtual;
Procedure SetchildAssetType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcollapsedSize(AIndex : Integer; AValue : TSize); virtual;
- Procedure SetcustomStartTimeValue(AIndex : Integer; AValue : integer); virtual;
- Procedure SetdetectedFeatures(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetcollapsedSize(AIndex : Integer; const AValue : TSize); virtual;
+ Procedure SetcustomStartTimeValue(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetdetectedFeatures(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetdisplayType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setduration(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setduration(AIndex : Integer; const AValue : integer); virtual;
Procedure SetdurationType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexpandedDimension(AIndex : Integer; AValue : TSize); virtual;
+ Procedure SetexpandedDimension(AIndex : Integer; const AValue : TSize); virtual;
Procedure SetfileSize(AIndex : Integer; const AValue : String); virtual;
- Procedure SetflashVersion(AIndex : Integer; AValue : integer); virtual;
- Procedure SethideFlashObjects(AIndex : Integer; AValue : boolean); virtual;
- Procedure SethideSelectionBoxes(AIndex : Integer; AValue : boolean); virtual;
- Procedure SethorizontallyLocked(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetflashVersion(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SethideFlashObjects(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SethideSelectionBoxes(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SethorizontallyLocked(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setoffset(AIndex : Integer; AValue : TOffsetPosition); virtual;
- Procedure SetoriginalBackup(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setposition(AIndex : Integer; AValue : TOffsetPosition); virtual;
+ Procedure Setoffset(AIndex : Integer; const AValue : TOffsetPosition); virtual;
+ Procedure SetoriginalBackup(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : TOffsetPosition); virtual;
Procedure SetpositionLeftUnit(AIndex : Integer; const AValue : String); virtual;
Procedure SetpositionTopUnit(AIndex : Integer; const AValue : String); virtual;
Procedure SetprogressiveServingUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpushdown(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetpushdownDuration(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setpushdown(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpushdownDuration(AIndex : Integer; const AValue : integer); virtual;
Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsize(AIndex : Integer; AValue : TSize); virtual;
- Procedure SetsslCompliant(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setsize(AIndex : Integer; const AValue : TSize); virtual;
+ Procedure SetsslCompliant(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetstartTimeType(AIndex : Integer; const AValue : String); virtual;
Procedure SetstreamingServingUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Settransparency(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetverticallyLocked(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetvideoDuration(AIndex : Integer; AValue : integer); virtual;
+ Procedure Settransparency(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetverticallyLocked(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetvideoDuration(AIndex : Integer; const AValue : integer); virtual;
Procedure SetwindowMode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetzIndex(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetzIndex(AIndex : Integer; const AValue : integer); virtual;
Procedure SetzipFilename(AIndex : Integer; const AValue : String); virtual;
Procedure SetzipFilesize(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2245,11 +2419,11 @@ type
FwarnedValidationRules : TStringArray;
Protected
//Property setters
- Procedure SetassetIdentifier(AIndex : Integer; AValue : TCreativeAssetId); virtual;
- Procedure SetclickTags(AIndex : Integer; AValue : TCreativeAssetMetadataTypeclickTagsArray); virtual;
- Procedure SetdetectedFeatures(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetassetIdentifier(AIndex : Integer; const AValue : TCreativeAssetId); virtual;
+ Procedure SetclickTags(AIndex : Integer; const AValue : TCreativeAssetMetadataTypeclickTagsArray); virtual;
+ Procedure SetdetectedFeatures(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetwarnedValidationRules(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetwarnedValidationRules(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2285,19 +2459,19 @@ type
Fweight : integer;
Protected
//Property setters
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetapplyEventTags(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetclickThroughUrl(AIndex : Integer; AValue : TClickThroughUrl); virtual;
- Procedure SetcompanionCreativeOverrides(AIndex : Integer; AValue : TCreativeAssignmentTypecompanionCreativeOverridesArray); virtual;
- Procedure SetcreativeGroupAssignments(AIndex : Integer; AValue : TCreativeAssignmentTypecreativeGroupAssignmentsArray); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetapplyEventTags(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetclickThroughUrl(AIndex : Integer; const AValue : TClickThroughUrl); virtual;
+ Procedure SetcompanionCreativeOverrides(AIndex : Integer; const AValue : TCreativeAssignmentTypecompanionCreativeOverridesArray); virtual;
+ Procedure SetcreativeGroupAssignments(AIndex : Integer; const AValue : TCreativeAssignmentTypecreativeGroupAssignmentsArray); virtual;
Procedure SetcreativeId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreativeIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetendTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetrichMediaExitOverrides(AIndex : Integer; AValue : TCreativeAssignmentTyperichMediaExitOverridesArray); virtual;
- Procedure Setsequence(AIndex : Integer; AValue : integer); virtual;
- Procedure SetsslCompliant(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetstartTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setweight(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetcreativeIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetrichMediaExitOverrides(AIndex : Integer; const AValue : TCreativeAssignmentTyperichMediaExitOverridesArray); virtual;
+ Procedure Setsequence(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetsslCompliant(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setweight(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2326,7 +2500,7 @@ type
TCreativeCustomEvent = Class(TGoogleBaseObject)
Private
- Factive : boolean;
+ FadvertiserCustomEventId : String;
FadvertiserCustomEventName : String;
FadvertiserCustomEventType : String;
FartworkLabel : String;
@@ -2338,19 +2512,19 @@ type
FvideoReportingId : String;
Protected
//Property setters
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetadvertiserCustomEventId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserCustomEventName(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserCustomEventType(AIndex : Integer; const AValue : String); virtual;
Procedure SetartworkLabel(AIndex : Integer; const AValue : String); virtual;
Procedure SetartworkType(AIndex : Integer; const AValue : String); virtual;
Procedure SetexitUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpopupWindowProperties(AIndex : Integer; AValue : TPopupWindowProperties); virtual;
+ Procedure SetpopupWindowProperties(AIndex : Integer; const AValue : TPopupWindowProperties); virtual;
Procedure SettargetType(AIndex : Integer; const AValue : String); virtual;
Procedure SetvideoReportingId(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property active : boolean Index 0 Read Factive Write Setactive;
+ Property advertiserCustomEventId : String Index 0 Read FadvertiserCustomEventId Write SetadvertiserCustomEventId;
Property advertiserCustomEventName : String Index 8 Read FadvertiserCustomEventName Write SetadvertiserCustomEventName;
Property advertiserCustomEventType : String Index 16 Read FadvertiserCustomEventType Write SetadvertiserCustomEventType;
Property artworkLabel : String Index 24 Read FartworkLabel Write SetartworkLabel;
@@ -2380,7 +2554,7 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
@@ -2449,7 +2623,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetcreativeFieldValues(AIndex : Integer; AValue : TCreativeFieldValuesListResponseTypecreativeFieldValuesArray); virtual;
+ Procedure SetcreativeFieldValues(AIndex : Integer; const AValue : TCreativeFieldValuesListResponseTypecreativeFieldValuesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2475,7 +2649,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetcreativeFields(AIndex : Integer; AValue : TCreativeFieldsListResponseTypecreativeFieldsArray); virtual;
+ Procedure SetcreativeFields(AIndex : Integer; const AValue : TCreativeFieldsListResponseTypecreativeFieldsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2508,8 +2682,8 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetgroupNumber(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetgroupNumber(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
@@ -2557,7 +2731,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetcreativeGroups(AIndex : Integer; AValue : TCreativeGroupsListResponseTypecreativeGroupsArray); virtual;
+ Procedure SetcreativeGroups(AIndex : Integer; const AValue : TCreativeGroupsListResponseTypecreativeGroupsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2586,7 +2760,7 @@ type
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoptimizationActivitys(AIndex : Integer; AValue : TCreativeOptimizationConfigurationTypeoptimizationActivitysArray); virtual;
+ Procedure SetoptimizationActivitys(AIndex : Integer; const AValue : TCreativeOptimizationConfigurationTypeoptimizationActivitysArray); virtual;
Procedure SetoptimizationModel(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2614,7 +2788,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetcreativeAssignments(AIndex : Integer; AValue : TCreativeRotationTypecreativeAssignmentsArray); virtual;
+ Procedure SetcreativeAssignments(AIndex : Integer; const AValue : TCreativeRotationTypecreativeAssignmentsArray); virtual;
Procedure SetcreativeOptimizationConfigurationId(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure SetweightCalculationStrategy(AIndex : Integer; const AValue : String); virtual;
@@ -2661,7 +2835,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setcreatives(AIndex : Integer; AValue : TCreativesListResponseTypecreativesArray); virtual;
+ Procedure Setcreatives(AIndex : Integer; const AValue : TCreativesListResponseTypecreativesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2689,11 +2863,11 @@ type
FoverlapMetrics : TCrossDimensionReachReportCompatibleFieldsTypeoverlapMetricsArray;
Protected
//Property setters
- Procedure Setbreakdown(AIndex : Integer; AValue : TCrossDimensionReachReportCompatibleFieldsTypebreakdownArray); virtual;
- Procedure SetdimensionFilters(AIndex : Integer; AValue : TCrossDimensionReachReportCompatibleFieldsTypedimensionFiltersArray); virtual;
+ Procedure Setbreakdown(AIndex : Integer; const AValue : TCrossDimensionReachReportCompatibleFieldsTypebreakdownArray); virtual;
+ Procedure SetdimensionFilters(AIndex : Integer; const AValue : TCrossDimensionReachReportCompatibleFieldsTypedimensionFiltersArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetrics(AIndex : Integer; AValue : TCrossDimensionReachReportCompatibleFieldsTypemetricsArray); virtual;
- Procedure SetoverlapMetrics(AIndex : Integer; AValue : TCrossDimensionReachReportCompatibleFieldsTypeoverlapMetricsArray); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TCrossDimensionReachReportCompatibleFieldsTypemetricsArray); virtual;
+ Procedure SetoverlapMetrics(AIndex : Integer; const AValue : TCrossDimensionReachReportCompatibleFieldsTypeoverlapMetricsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2709,6 +2883,29 @@ type
TCrossDimensionReachReportCompatibleFieldsClass = Class of TCrossDimensionReachReportCompatibleFields;
{ --------------------------------------------------------------------
+ TCustomFloodlightVariable
+ --------------------------------------------------------------------}
+
+ TCustomFloodlightVariable = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ F_type : String;
+ Fvalue : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ Property value : String Index 16 Read Fvalue Write Setvalue;
+ end;
+ TCustomFloodlightVariableClass = Class of TCustomFloodlightVariable;
+
+ { --------------------------------------------------------------------
TCustomRichMediaEvents
--------------------------------------------------------------------}
@@ -2718,7 +2915,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetfilteredEventIds(AIndex : Integer; AValue : TCustomRichMediaEventsTypefilteredEventIdsArray); virtual;
+ Procedure SetfilteredEventIds(AIndex : Integer; const AValue : TCustomRichMediaEventsTypefilteredEventIdsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2743,10 +2940,10 @@ type
FstartDate : TDate;
Protected
//Property setters
- Procedure SetendDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetendDate(AIndex : Integer; const AValue : TDate); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetrelativeDateRange(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetstartDate(AIndex : Integer; const AValue : TDate); virtual;
Public
Published
Property endDate : TDate Index 0 Read FendDate Write SetendDate;
@@ -2767,9 +2964,9 @@ type
FuserLocalTime : boolean;
Protected
//Property setters
- Procedure SetdaysOfWeek(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SethoursOfDay(AIndex : Integer; AValue : TintegerArray); virtual;
- Procedure SetuserLocalTime(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdaysOfWeek(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SethoursOfDay(AIndex : Integer; const AValue : TintegerArray); virtual;
+ Procedure SetuserLocalTime(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2793,7 +2990,7 @@ type
Protected
//Property setters
Procedure SetdefaultClickThroughEventTagId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoverrideInheritedEventTag(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetoverrideInheritedEventTag(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property defaultClickThroughEventTagId : String Index 0 Read FdefaultClickThroughEventTagId Write SetdefaultClickThroughEventTagId;
@@ -2813,8 +3010,8 @@ type
Fpriority : String;
Protected
//Property setters
- Procedure SetfrequencyCap(AIndex : Integer; AValue : TFrequencyCap); virtual;
- Procedure SethardCutoff(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetfrequencyCap(AIndex : Integer; const AValue : TFrequencyCap); virtual;
+ Procedure SethardCutoff(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetimpressionRatio(AIndex : Integer; const AValue : String); virtual;
Procedure Setpriority(AIndex : Integer; const AValue : String); virtual;
Public
@@ -2841,9 +3038,9 @@ type
//Property setters
Procedure Setdfp_network_code(AIndex : Integer; const AValue : String); virtual;
Procedure Setdfp_network_name(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprogrammaticPlacementAccepted(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetpubPaidPlacementAccepted(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetpublisherPortalOnly(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetprogrammaticPlacementAccepted(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpubPaidPlacementAccepted(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpublisherPortalOnly(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property dfp_network_code : String Index 0 Read Fdfp_network_code Write Setdfp_network_code;
@@ -2939,7 +3136,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TDimensionValueListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TDimensionValueListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2969,10 +3166,10 @@ type
Protected
//Property setters
Procedure SetdimensionName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetendDate(AIndex : Integer; AValue : TDate); virtual;
- Procedure Setfilters(AIndex : Integer; AValue : TDimensionValueRequestTypefiltersArray); virtual;
+ Procedure SetendDate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure Setfilters(AIndex : Integer; const AValue : TDimensionValueRequestTypefiltersArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetstartDate(AIndex : Integer; const AValue : TDate); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3009,19 +3206,19 @@ type
Furl : String;
Protected
//Property setters
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcontactAssignments(AIndex : Integer; AValue : TDirectorySiteTypecontactAssignmentsArray); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcontactAssignments(AIndex : Integer; const AValue : TDirectorySiteTypecontactAssignmentsArray); virtual;
Procedure SetcountryId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcurrencyId(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetinpageTagFormats(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetinterstitialTagFormats(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetinpageTagFormats(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetinterstitialTagFormats(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetparentId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsettings(AIndex : Integer; AValue : TDirectorySiteSettings); virtual;
+ Procedure Setsettings(AIndex : Integer; const AValue : TDirectorySiteSettings); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3120,7 +3317,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetdirectorySiteContacts(AIndex : Integer; AValue : TDirectorySiteContactsListResponseTypedirectorySiteContactsArray); virtual;
+ Procedure SetdirectorySiteContacts(AIndex : Integer; const AValue : TDirectorySiteContactsListResponseTypedirectorySiteContactsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -3150,13 +3347,13 @@ type
FvideoActiveViewOptOut : boolean;
Protected
//Property setters
- Procedure SetactiveViewOptOut(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setdfp_settings(AIndex : Integer; AValue : TDfpSettings); virtual;
- Procedure Setinstream_video_placement_accepted(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetinterstitialPlacementAccepted(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetnielsenOcrOptOut(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetverificationTagOptOut(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetvideoActiveViewOptOut(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetactiveViewOptOut(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setdfp_settings(AIndex : Integer; const AValue : TDfpSettings); virtual;
+ Procedure Setinstream_video_placement_accepted(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetinterstitialPlacementAccepted(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetnielsenOcrOptOut(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetverificationTagOptOut(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetvideoActiveViewOptOut(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property activeViewOptOut : boolean Index 0 Read FactiveViewOptOut Write SetactiveViewOptOut;
@@ -3180,7 +3377,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetdirectorySites(AIndex : Integer; AValue : TDirectorySitesListResponseTypedirectorySitesArray); virtual;
+ Procedure SetdirectorySites(AIndex : Integer; const AValue : TDirectorySitesListResponseTypedirectorySitesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -3196,6 +3393,79 @@ type
TDirectorySitesListResponseClass = Class of TDirectorySitesListResponse;
{ --------------------------------------------------------------------
+ TDynamicTargetingKey
+ --------------------------------------------------------------------}
+
+ TDynamicTargetingKey = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ Fname : String;
+ FobjectId : String;
+ FobjectType : String;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetobjectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property objectId : String Index 16 Read FobjectId Write SetobjectId;
+ Property objectType : String Index 24 Read FobjectType Write SetobjectType;
+ end;
+ TDynamicTargetingKeyClass = Class of TDynamicTargetingKey;
+
+ { --------------------------------------------------------------------
+ TDynamicTargetingKeysListResponse
+ --------------------------------------------------------------------}
+
+ TDynamicTargetingKeysListResponse = Class(TGoogleBaseObject)
+ Private
+ FdynamicTargetingKeys : TDynamicTargetingKeysListResponseTypedynamicTargetingKeysArray;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SetdynamicTargetingKeys(AIndex : Integer; const AValue : TDynamicTargetingKeysListResponseTypedynamicTargetingKeysArray); 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 dynamicTargetingKeys : TDynamicTargetingKeysListResponseTypedynamicTargetingKeysArray Index 0 Read FdynamicTargetingKeys Write SetdynamicTargetingKeys;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ end;
+ TDynamicTargetingKeysListResponseClass = Class of TDynamicTargetingKeysListResponse;
+
+ { --------------------------------------------------------------------
+ TEncryptionInfo
+ --------------------------------------------------------------------}
+
+ TEncryptionInfo = Class(TGoogleBaseObject)
+ Private
+ FencryptionEntityId : String;
+ FencryptionEntityType : String;
+ FencryptionSource : String;
+ Fkind : String;
+ Protected
+ //Property setters
+ Procedure SetencryptionEntityId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetencryptionEntityType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetencryptionSource(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property encryptionEntityId : String Index 0 Read FencryptionEntityId Write SetencryptionEntityId;
+ Property encryptionEntityType : String Index 8 Read FencryptionEntityType Write SetencryptionEntityType;
+ Property encryptionSource : String Index 16 Read FencryptionSource Write SetencryptionSource;
+ Property kind : String Index 24 Read Fkind Write Setkind;
+ end;
+ TEncryptionInfoClass = Class of TEncryptionInfo;
+
+ { --------------------------------------------------------------------
TEventTag
--------------------------------------------------------------------}
@@ -3207,6 +3477,7 @@ type
FcampaignId : String;
FcampaignIdDimensionValue : TDimensionValue;
FenabledByDefault : boolean;
+ FexcludeFromAdxRequests : boolean;
Fid : String;
Fkind : String;
Fname : String;
@@ -3223,21 +3494,22 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure SetcampaignId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcampaignIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetenabledByDefault(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcampaignIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetenabledByDefault(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetexcludeFromAdxRequests(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetsiteFilterType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsiteIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsslCompliant(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetsiteIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetsslCompliant(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure SeturlEscapeLevels(AIndex : Integer; AValue : integer); virtual;
+ Procedure SeturlEscapeLevels(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3250,17 +3522,18 @@ type
Property campaignId : String Index 24 Read FcampaignId Write SetcampaignId;
Property campaignIdDimensionValue : TDimensionValue Index 32 Read FcampaignIdDimensionValue Write SetcampaignIdDimensionValue;
Property enabledByDefault : boolean Index 40 Read FenabledByDefault Write SetenabledByDefault;
- Property id : String Index 48 Read Fid Write Setid;
- Property kind : String Index 56 Read Fkind Write Setkind;
- Property name : String Index 64 Read Fname Write Setname;
- Property siteFilterType : String Index 72 Read FsiteFilterType Write SetsiteFilterType;
- Property siteIds : TStringArray Index 80 Read FsiteIds Write SetsiteIds;
- Property sslCompliant : boolean Index 88 Read FsslCompliant Write SetsslCompliant;
- Property status : String Index 96 Read Fstatus Write Setstatus;
- Property subaccountId : String Index 104 Read FsubaccountId Write SetsubaccountId;
- Property _type : String Index 112 Read F_type Write Set_type;
- Property url : String Index 120 Read Furl Write Seturl;
- Property urlEscapeLevels : integer Index 128 Read FurlEscapeLevels Write SeturlEscapeLevels;
+ Property excludeFromAdxRequests : boolean Index 48 Read FexcludeFromAdxRequests Write SetexcludeFromAdxRequests;
+ Property id : String Index 56 Read Fid Write Setid;
+ Property kind : String Index 64 Read Fkind Write Setkind;
+ Property name : String Index 72 Read Fname Write Setname;
+ Property siteFilterType : String Index 80 Read FsiteFilterType Write SetsiteFilterType;
+ Property siteIds : TStringArray Index 88 Read FsiteIds Write SetsiteIds;
+ Property sslCompliant : boolean Index 96 Read FsslCompliant Write SetsslCompliant;
+ Property status : String Index 104 Read Fstatus Write Setstatus;
+ Property subaccountId : String Index 112 Read FsubaccountId Write SetsubaccountId;
+ Property _type : String Index 120 Read F_type Write Set_type;
+ Property url : String Index 128 Read Furl Write Seturl;
+ Property urlEscapeLevels : integer Index 136 Read FurlEscapeLevels Write SeturlEscapeLevels;
end;
TEventTagClass = Class of TEventTag;
@@ -3274,7 +3547,7 @@ type
Fid : String;
Protected
//Property setters
- Procedure Setenabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setenabled(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -3293,7 +3566,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SeteventTags(AIndex : Integer; AValue : TEventTagsListResponseTypeeventTagsArray); virtual;
+ Procedure SeteventTags(AIndex : Integer; const AValue : TEventTagsListResponseTypeeventTagsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3343,7 +3616,7 @@ type
Furls : TFileTypeurls;
Protected
//Property setters
- Procedure SetdateRange(AIndex : Integer; AValue : TDateRange); virtual;
+ Procedure SetdateRange(AIndex : Integer; const AValue : TDateRange); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileName(AIndex : Integer; const AValue : String); virtual;
Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
@@ -3352,7 +3625,7 @@ type
Procedure SetlastModifiedTime(AIndex : Integer; const AValue : String); virtual;
Procedure SetreportId(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturls(AIndex : Integer; AValue : TFileTypeurls); virtual;
+ Procedure Seturls(AIndex : Integer; const AValue : TFileTypeurls); virtual;
Public
Published
Property dateRange : TDateRange Index 0 Read FdateRange Write SetdateRange;
@@ -3381,7 +3654,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TFileListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TFileListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -3409,9 +3682,9 @@ type
Funits : String;
Protected
//Property setters
- Procedure SetendDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetendDate(AIndex : Integer; const AValue : TDate); virtual;
Procedure SetrateOrCost(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetstartDate(AIndex : Integer; const AValue : TDate); virtual;
Procedure Setunits(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -3452,7 +3725,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetfloodlightActivities(AIndex : Integer; AValue : TFloodlightActivitiesListResponseTypefloodlightActivitiesArray); virtual;
+ Procedure SetfloodlightActivities(AIndex : Integer; const AValue : TFloodlightActivitiesListResponseTypefloodlightActivitiesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -3505,32 +3778,32 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure SetcacheBustingType(AIndex : Integer; const AValue : String); virtual;
Procedure SetcountingMethod(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdefaultTags(AIndex : Integer; AValue : TFloodlightActivityTypedefaultTagsArray); virtual;
+ Procedure SetdefaultTags(AIndex : Integer; const AValue : TFloodlightActivityTypedefaultTagsArray); virtual;
Procedure SetexpectedUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetfloodlightActivityGroupId(AIndex : Integer; const AValue : String); virtual;
Procedure SetfloodlightActivityGroupName(AIndex : Integer; const AValue : String); virtual;
Procedure SetfloodlightActivityGroupTagString(AIndex : Integer; const AValue : String); virtual;
Procedure SetfloodlightActivityGroupType(AIndex : Integer; const AValue : String); virtual;
Procedure SetfloodlightConfigurationId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure Sethidden(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure Sethidden(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetimageTagEnabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetimageTagEnabled(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublisherTags(AIndex : Integer; AValue : TFloodlightActivityTypepublisherTagsArray); virtual;
- Procedure Setsecure(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsslCompliant(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsslRequired(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetpublisherTags(AIndex : Integer; const AValue : TFloodlightActivityTypepublisherTagsArray); virtual;
+ Procedure Setsecure(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsslCompliant(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsslRequired(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SettagFormat(AIndex : Integer; const AValue : String); virtual;
Procedure SettagString(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserDefinedVariableTypes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetuserDefinedVariableTypes(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3613,11 +3886,11 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure SetfloodlightConfigurationId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
@@ -3651,7 +3924,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetfloodlightActivityGroups(AIndex : Integer; AValue : TFloodlightActivityGroupsListResponseTypefloodlightActivityGroupsArray); virtual;
+ Procedure SetfloodlightActivityGroups(AIndex : Integer; const AValue : TFloodlightActivityGroupsListResponseTypefloodlightActivityGroupsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -3680,12 +3953,12 @@ type
FviewThrough : boolean;
Protected
//Property setters
- Procedure SetclickThrough(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetclickThrough(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetdirectorySiteId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdynamicTag(AIndex : Integer; AValue : TFloodlightActivityDynamicTag); virtual;
+ Procedure SetdynamicTag(AIndex : Integer; const AValue : TFloodlightActivityDynamicTag); virtual;
Procedure SetsiteId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetviewThrough(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetsiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetviewThrough(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property clickThrough : boolean Index 0 Read FclickThrough Write SetclickThrough;
@@ -3711,34 +3984,36 @@ type
FfirstDayOfWeek : String;
Fid : String;
FidDimensionValue : TDimensionValue;
+ FinAppAttributionTrackingEnabled : boolean;
Fkind : String;
FlookbackConfiguration : TLookbackConfiguration;
FnaturalSearchConversionAttributionOption : String;
FomnitureSettings : TOmnitureSettings;
- FsslRequired : boolean;
FstandardVariableTypes : TStringArray;
FsubaccountId : String;
FtagSettings : TTagSettings;
+ FthirdPartyAuthenticationTokens : TFloodlightConfigurationTypethirdPartyAuthenticationTokensArray;
FuserDefinedVariableConfigurations : TFloodlightConfigurationTypeuserDefinedVariableConfigurationsArray;
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetanalyticsDataSharingEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetexposureToConversionEnabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetanalyticsDataSharingEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetexposureToConversionEnabled(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetfirstDayOfWeek(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetinAppAttributionTrackingEnabled(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlookbackConfiguration(AIndex : Integer; AValue : TLookbackConfiguration); virtual;
+ Procedure SetlookbackConfiguration(AIndex : Integer; const AValue : TLookbackConfiguration); virtual;
Procedure SetnaturalSearchConversionAttributionOption(AIndex : Integer; const AValue : String); virtual;
- Procedure SetomnitureSettings(AIndex : Integer; AValue : TOmnitureSettings); virtual;
- Procedure SetsslRequired(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetstandardVariableTypes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetomnitureSettings(AIndex : Integer; const AValue : TOmnitureSettings); virtual;
+ Procedure SetstandardVariableTypes(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettagSettings(AIndex : Integer; AValue : TTagSettings); virtual;
- Procedure SetuserDefinedVariableConfigurations(AIndex : Integer; AValue : TFloodlightConfigurationTypeuserDefinedVariableConfigurationsArray); virtual;
+ Procedure SettagSettings(AIndex : Integer; const AValue : TTagSettings); virtual;
+ Procedure SetthirdPartyAuthenticationTokens(AIndex : Integer; const AValue : TFloodlightConfigurationTypethirdPartyAuthenticationTokensArray); virtual;
+ Procedure SetuserDefinedVariableConfigurations(AIndex : Integer; const AValue : TFloodlightConfigurationTypeuserDefinedVariableConfigurationsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3753,15 +4028,16 @@ type
Property firstDayOfWeek : String Index 40 Read FfirstDayOfWeek Write SetfirstDayOfWeek;
Property id : String Index 48 Read Fid Write Setid;
Property idDimensionValue : TDimensionValue Index 56 Read FidDimensionValue Write SetidDimensionValue;
- Property kind : String Index 64 Read Fkind Write Setkind;
- Property lookbackConfiguration : TLookbackConfiguration Index 72 Read FlookbackConfiguration Write SetlookbackConfiguration;
- Property naturalSearchConversionAttributionOption : String Index 80 Read FnaturalSearchConversionAttributionOption Write SetnaturalSearchConversionAttributionOption;
- Property omnitureSettings : TOmnitureSettings Index 88 Read FomnitureSettings Write SetomnitureSettings;
- Property sslRequired : boolean Index 96 Read FsslRequired Write SetsslRequired;
+ Property inAppAttributionTrackingEnabled : boolean Index 64 Read FinAppAttributionTrackingEnabled Write SetinAppAttributionTrackingEnabled;
+ Property kind : String Index 72 Read Fkind Write Setkind;
+ Property lookbackConfiguration : TLookbackConfiguration Index 80 Read FlookbackConfiguration Write SetlookbackConfiguration;
+ Property naturalSearchConversionAttributionOption : String Index 88 Read FnaturalSearchConversionAttributionOption Write SetnaturalSearchConversionAttributionOption;
+ Property omnitureSettings : TOmnitureSettings Index 96 Read FomnitureSettings Write SetomnitureSettings;
Property standardVariableTypes : TStringArray Index 104 Read FstandardVariableTypes Write SetstandardVariableTypes;
Property subaccountId : String Index 112 Read FsubaccountId Write SetsubaccountId;
Property tagSettings : TTagSettings Index 120 Read FtagSettings Write SettagSettings;
- Property userDefinedVariableConfigurations : TFloodlightConfigurationTypeuserDefinedVariableConfigurationsArray Index 128 Read FuserDefinedVariableConfigurations Write SetuserDefinedVariableConfigurations;
+ Property thirdPartyAuthenticationTokens : TFloodlightConfigurationTypethirdPartyAuthenticationTokensArray Index 128 Read FthirdPartyAuthenticationTokens Write SetthirdPartyAuthenticationTokens;
+ Property userDefinedVariableConfigurations : TFloodlightConfigurationTypeuserDefinedVariableConfigurationsArray Index 136 Read FuserDefinedVariableConfigurations Write SetuserDefinedVariableConfigurations;
end;
TFloodlightConfigurationClass = Class of TFloodlightConfiguration;
@@ -3775,7 +4051,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetfloodlightConfigurations(AIndex : Integer; AValue : TFloodlightConfigurationsListResponseTypefloodlightConfigurationsArray); virtual;
+ Procedure SetfloodlightConfigurations(AIndex : Integer; const AValue : TFloodlightConfigurationsListResponseTypefloodlightConfigurationsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3800,10 +4076,10 @@ type
Fmetrics : TFloodlightReportCompatibleFieldsTypemetricsArray;
Protected
//Property setters
- Procedure SetdimensionFilters(AIndex : Integer; AValue : TFloodlightReportCompatibleFieldsTypedimensionFiltersArray); virtual;
- Procedure Setdimensions(AIndex : Integer; AValue : TFloodlightReportCompatibleFieldsTypedimensionsArray); virtual;
+ Procedure SetdimensionFilters(AIndex : Integer; const AValue : TFloodlightReportCompatibleFieldsTypedimensionFiltersArray); virtual;
+ Procedure Setdimensions(AIndex : Integer; const AValue : TFloodlightReportCompatibleFieldsTypedimensionsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetrics(AIndex : Integer; AValue : TFloodlightReportCompatibleFieldsTypemetricsArray); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TFloodlightReportCompatibleFieldsTypemetricsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3849,11 +4125,11 @@ type
FwindowWidth : integer;
Protected
//Property setters
- Procedure Setleft(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setleft(AIndex : Integer; const AValue : integer); virtual;
Procedure SetpositionOption(AIndex : Integer; const AValue : String); virtual;
- Procedure Settop(AIndex : Integer; AValue : integer); virtual;
- Procedure SetwindowHeight(AIndex : Integer; AValue : integer); virtual;
- Procedure SetwindowWidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Settop(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetwindowHeight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetwindowWidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property left : integer Index 0 Read Fleft Write Setleft;
@@ -3878,12 +4154,12 @@ type
Fregions : TGeoTargetingTyperegionsArray;
Protected
//Property setters
- Procedure Setcities(AIndex : Integer; AValue : TGeoTargetingTypecitiesArray); virtual;
- Procedure Setcountries(AIndex : Integer; AValue : TGeoTargetingTypecountriesArray); virtual;
- Procedure SetexcludeCountries(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setmetros(AIndex : Integer; AValue : TGeoTargetingTypemetrosArray); virtual;
- Procedure SetpostalCodes(AIndex : Integer; AValue : TGeoTargetingTypepostalCodesArray); virtual;
- Procedure Setregions(AIndex : Integer; AValue : TGeoTargetingTyperegionsArray); virtual;
+ Procedure Setcities(AIndex : Integer; const AValue : TGeoTargetingTypecitiesArray); virtual;
+ Procedure Setcountries(AIndex : Integer; const AValue : TGeoTargetingTypecountriesArray); virtual;
+ Procedure SetexcludeCountries(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setmetros(AIndex : Integer; const AValue : TGeoTargetingTypemetrosArray); virtual;
+ Procedure SetpostalCodes(AIndex : Integer; const AValue : TGeoTargetingTypepostalCodesArray); virtual;
+ Procedure Setregions(AIndex : Integer; const AValue : TGeoTargetingTyperegionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3924,27 +4200,30 @@ type
FrfpId : String;
FsiteId : String;
FsubaccountId : String;
+ F_type : String;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadSlots(AIndex : Integer; AValue : TInventoryItemTypeadSlotsArray); virtual;
+ Procedure SetadSlots(AIndex : Integer; const AValue : TInventoryItemTypeadSlotsArray); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentCategoryId(AIndex : Integer; const AValue : String); virtual;
Procedure SetestimatedClickThroughRate(AIndex : Integer; const AValue : String); virtual;
Procedure SetestimatedConversionRate(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinPlan(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetinPlan(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
+ Procedure SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetnegotiationChannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetorderId(AIndex : Integer; const AValue : String); virtual;
Procedure SetplacementStrategyId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpricing(AIndex : Integer; AValue : TPricing); virtual;
+ Procedure Setpricing(AIndex : Integer; const AValue : TPricing); virtual;
Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
Procedure SetrfpId(AIndex : Integer; const AValue : String); virtual;
Procedure SetsiteId(AIndex : Integer; const AValue : String); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); 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;
@@ -3970,6 +4249,7 @@ type
Property rfpId : String Index 128 Read FrfpId Write SetrfpId;
Property siteId : String Index 136 Read FsiteId Write SetsiteId;
Property subaccountId : String Index 144 Read FsubaccountId Write SetsubaccountId;
+ Property _type : String Index 152 Read F_type Write Set_type;
end;
TInventoryItemClass = Class of TInventoryItem;
@@ -3984,7 +4264,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure SetinventoryItems(AIndex : Integer; AValue : TInventoryItemsListResponseTypeinventoryItemsArray); virtual;
+ Procedure SetinventoryItems(AIndex : Integer; const AValue : TInventoryItemsListResponseTypeinventoryItemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -4028,7 +4308,7 @@ type
Furl : String;
Protected
//Property setters
- Procedure Setdefault(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setdefault(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
@@ -4054,7 +4334,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlandingPages(AIndex : Integer; AValue : TLandingPagesListResponseTypelandingPagesArray); virtual;
+ Procedure SetlandingPages(AIndex : Integer; const AValue : TLandingPagesListResponseTypelandingPagesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4091,7 +4371,7 @@ type
Fterms : TListPopulationClauseTypetermsArray;
Protected
//Property setters
- Procedure Setterms(AIndex : Integer; AValue : TListPopulationClauseTypetermsArray); virtual;
+ Procedure Setterms(AIndex : Integer; const AValue : TListPopulationClauseTypetermsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4115,7 +4395,7 @@ type
//Property setters
Procedure SetfloodlightActivityId(AIndex : Integer; const AValue : String); virtual;
Procedure SetfloodlightActivityName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlistPopulationClauses(AIndex : Integer; AValue : TListPopulationRuleTypelistPopulationClausesArray); virtual;
+ Procedure SetlistPopulationClauses(AIndex : Integer; const AValue : TListPopulationRuleTypelistPopulationClausesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4145,8 +4425,8 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setcontains(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setnegation(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setcontains(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setnegation(AIndex : Integer; const AValue : boolean); virtual;
Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
Procedure SetremarketingListId(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
@@ -4192,8 +4472,8 @@ type
FpostImpressionActivitiesDuration : integer;
Protected
//Property setters
- Procedure SetclickDuration(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpostImpressionActivitiesDuration(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetclickDuration(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetpostImpressionActivitiesDuration(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property clickDuration : integer Index 0 Read FclickDuration Write SetclickDuration;
@@ -4265,7 +4545,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetros(AIndex : Integer; AValue : TMetrosListResponseTypemetrosArray); virtual;
+ Procedure Setmetros(AIndex : Integer; const AValue : TMetrosListResponseTypemetrosArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4316,7 +4596,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmobileCarriers(AIndex : Integer; AValue : TMobileCarriersListResponseTypemobileCarriersArray); virtual;
+ Procedure SetmobileCarriers(AIndex : Integer; const AValue : TMobileCarriersListResponseTypemobileCarriersArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4340,7 +4620,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetobjectIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetobjectIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -4364,8 +4644,8 @@ type
Ftop : integer;
Protected
//Property setters
- Procedure Setleft(AIndex : Integer; AValue : integer); virtual;
- Procedure Settop(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setleft(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Settop(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property left : integer Index 0 Read Fleft Write Setleft;
@@ -4383,8 +4663,8 @@ type
FomnitureIntegrationEnabled : boolean;
Protected
//Property setters
- Procedure SetomnitureCostDataEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetomnitureIntegrationEnabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetomnitureCostDataEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetomnitureIntegrationEnabled(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property omnitureCostDataEnabled : boolean Index 0 Read FomnitureCostDataEnabled Write SetomnitureCostDataEnabled;
@@ -4406,9 +4686,9 @@ type
Protected
//Property setters
Procedure SetdartId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdesktop(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setdesktop(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmobile(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setmobile(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -4439,7 +4719,7 @@ type
Procedure SetmajorVersion(AIndex : Integer; const AValue : String); virtual;
Procedure SetminorVersion(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoperatingSystem(AIndex : Integer; AValue : TOperatingSystem); virtual;
+ Procedure SetoperatingSystem(AIndex : Integer; const AValue : TOperatingSystem); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
@@ -4462,7 +4742,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoperatingSystemVersions(AIndex : Integer; AValue : TOperatingSystemVersionsListResponseTypeoperatingSystemVersionsArray); virtual;
+ Procedure SetoperatingSystemVersions(AIndex : Integer; const AValue : TOperatingSystemVersionsListResponseTypeoperatingSystemVersionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4485,7 +4765,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoperatingSystems(AIndex : Integer; AValue : TOperatingSystemsListResponseTypeoperatingSystemsArray); virtual;
+ Procedure SetoperatingSystems(AIndex : Integer; const AValue : TOperatingSystemsListResponseTypeoperatingSystemsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4509,8 +4789,8 @@ type
Protected
//Property setters
Procedure SetfloodlightActivityId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfloodlightActivityIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure Setweight(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetfloodlightActivityIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure Setweight(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property floodlightActivityId : String Index 0 Read FfloodlightActivityId Write SetfloodlightActivityId;
@@ -4549,22 +4829,22 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetapproverUserProfileIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetapproverUserProfileIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetbuyerInvoiceId(AIndex : Integer; const AValue : String); virtual;
Procedure SetbuyerOrganizationName(AIndex : Integer; const AValue : String); virtual;
Procedure Setcomments(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcontacts(AIndex : Integer; AValue : TOrderTypecontactsArray); virtual;
+ Procedure Setcontacts(AIndex : Integer; const AValue : TOrderTypecontactsArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
+ Procedure SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
Procedure SetplanningTermId(AIndex : Integer; const AValue : String); virtual;
Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
Procedure SetsellerOrderId(AIndex : Integer; const AValue : String); virtual;
Procedure SetsellerOrganizationName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsiteId(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsiteNames(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetsiteId(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetsiteNames(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SettermsAndConditions(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -4639,6 +4919,8 @@ type
FeffectiveDate : TDate;
Fid : String;
Fkind : String;
+ FlastSentRecipients : TStringArray;
+ FlastSentTime : TDatetime;
ForderId : String;
FprojectId : String;
Fsigned : boolean;
@@ -4651,15 +4933,17 @@ type
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
Procedure SetamendedOrderDocumentId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetapprovedByUserProfileIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setcancelled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcreatedInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
- Procedure SeteffectiveDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetapprovedByUserProfileIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setcancelled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcreatedInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
+ Procedure SeteffectiveDate(AIndex : Integer; const AValue : TDate); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlastSentRecipients(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetlastSentTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetorderId(AIndex : Integer; const AValue : String); virtual;
Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsigned(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setsigned(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
@@ -4678,12 +4962,14 @@ type
Property effectiveDate : TDate Index 48 Read FeffectiveDate Write SeteffectiveDate;
Property id : String Index 56 Read Fid Write Setid;
Property kind : String Index 64 Read Fkind Write Setkind;
- Property orderId : String Index 72 Read ForderId Write SetorderId;
- Property projectId : String Index 80 Read FprojectId Write SetprojectId;
- Property signed : boolean Index 88 Read Fsigned Write Setsigned;
- Property subaccountId : String Index 96 Read FsubaccountId Write SetsubaccountId;
- Property title : String Index 104 Read Ftitle Write Settitle;
- Property _type : String Index 112 Read F_type Write Set_type;
+ Property lastSentRecipients : TStringArray Index 72 Read FlastSentRecipients Write SetlastSentRecipients;
+ Property lastSentTime : TDatetime Index 80 Read FlastSentTime Write SetlastSentTime;
+ Property orderId : String Index 88 Read ForderId Write SetorderId;
+ Property projectId : String Index 96 Read FprojectId Write SetprojectId;
+ Property signed : boolean Index 104 Read Fsigned Write Setsigned;
+ Property subaccountId : String Index 112 Read FsubaccountId Write SetsubaccountId;
+ Property title : String Index 120 Read Ftitle Write Settitle;
+ Property _type : String Index 128 Read F_type Write Set_type;
end;
TOrderDocumentClass = Class of TOrderDocument;
@@ -4700,7 +4986,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetorderDocuments(AIndex : Integer; AValue : TOrderDocumentsListResponseTypeorderDocumentsArray); virtual;
+ Procedure SetorderDocuments(AIndex : Integer; const AValue : TOrderDocumentsListResponseTypeorderDocumentsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4726,7 +5012,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setorders(AIndex : Integer; AValue : TOrdersListResponseTypeordersArray); virtual;
+ Procedure Setorders(AIndex : Integer; const AValue : TOrdersListResponseTypeordersArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4752,11 +5038,11 @@ type
FperInteractionDimensions : TPathToConversionReportCompatibleFieldsTypeperInteractionDimensionsArray;
Protected
//Property setters
- Procedure SetconversionDimensions(AIndex : Integer; AValue : TPathToConversionReportCompatibleFieldsTypeconversionDimensionsArray); virtual;
- Procedure SetcustomFloodlightVariables(AIndex : Integer; AValue : TPathToConversionReportCompatibleFieldsTypecustomFloodlightVariablesArray); virtual;
+ Procedure SetconversionDimensions(AIndex : Integer; const AValue : TPathToConversionReportCompatibleFieldsTypeconversionDimensionsArray); virtual;
+ Procedure SetcustomFloodlightVariables(AIndex : Integer; const AValue : TPathToConversionReportCompatibleFieldsTypecustomFloodlightVariablesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetrics(AIndex : Integer; AValue : TPathToConversionReportCompatibleFieldsTypemetricsArray); virtual;
- Procedure SetperInteractionDimensions(AIndex : Integer; AValue : TPathToConversionReportCompatibleFieldsTypeperInteractionDimensionsArray); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TPathToConversionReportCompatibleFieldsTypemetricsArray); virtual;
+ Procedure SetperInteractionDimensions(AIndex : Integer; const AValue : TPathToConversionReportCompatibleFieldsTypeperInteractionDimensionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4817,40 +5103,40 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure Setarchived(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure Setarchived(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcampaignId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcampaignIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetcampaignIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setcomment(AIndex : Integer; const AValue : String); virtual;
Procedure Setcompatibility(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentCategoryId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreateInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
+ Procedure SetcreateInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
Procedure SetdirectorySiteId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdirectorySiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetdirectorySiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure SetexternalId(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure SetkeyName(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
- Procedure SetlookbackConfiguration(AIndex : Integer; AValue : TLookbackConfiguration); virtual;
+ Procedure SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
+ Procedure SetlookbackConfiguration(AIndex : Integer; const AValue : TLookbackConfiguration); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpaymentApproved(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetpaymentApproved(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetpaymentSource(AIndex : Integer; const AValue : String); virtual;
Procedure SetplacementGroupId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplacementGroupIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetplacementGroupIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure SetplacementStrategyId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpricingSchedule(AIndex : Integer; AValue : TPricingSchedule); virtual;
- Procedure Setprimary(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetpublisherUpdateInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
+ Procedure SetpricingSchedule(AIndex : Integer; const AValue : TPricingSchedule); virtual;
+ Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpublisherUpdateInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
Procedure SetsiteId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure Setsize(AIndex : Integer; AValue : TSize); virtual;
- Procedure SetsslRequired(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetsiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure Setsize(AIndex : Integer; const AValue : TSize); virtual;
+ Procedure SetsslRequired(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettagFormats(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SettagSetting(AIndex : Integer; AValue : TTagSetting); virtual;
+ Procedure SettagFormats(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SettagSetting(AIndex : Integer; const AValue : TTagSetting); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4908,10 +5194,10 @@ type
FsslRequired : boolean;
Protected
//Property setters
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetplacementId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplacementIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetsslRequired(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetplacementIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetsslRequired(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property active : boolean Index 0 Read Factive Write Setactive;
@@ -4950,7 +5236,6 @@ type
FpricingSchedule : TPricingSchedule;
FprimaryPlacementId : String;
FprimaryPlacementIdDimensionValue : TDimensionValue;
- FprogrammaticSetting : TProgrammaticSetting;
FsiteId : String;
FsiteIdDimensionValue : TDimensionValue;
FsubaccountId : String;
@@ -4958,30 +5243,29 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure Setarchived(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure Setarchived(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcampaignId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcampaignIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetchildPlacementIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetcampaignIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetchildPlacementIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setcomment(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentCategoryId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreateInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
+ Procedure SetcreateInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
Procedure SetdirectorySiteId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdirectorySiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetdirectorySiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure SetexternalId(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
+ Procedure SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetplacementGroupType(AIndex : Integer; const AValue : String); virtual;
Procedure SetplacementStrategyId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpricingSchedule(AIndex : Integer; AValue : TPricingSchedule); virtual;
+ Procedure SetpricingSchedule(AIndex : Integer; const AValue : TPricingSchedule); virtual;
Procedure SetprimaryPlacementId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprimaryPlacementIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetprogrammaticSetting(AIndex : Integer; AValue : TProgrammaticSetting); virtual;
+ Procedure SetprimaryPlacementIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure SetsiteId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetsiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -5012,10 +5296,9 @@ type
Property pricingSchedule : TPricingSchedule Index 160 Read FpricingSchedule Write SetpricingSchedule;
Property primaryPlacementId : String Index 168 Read FprimaryPlacementId Write SetprimaryPlacementId;
Property primaryPlacementIdDimensionValue : TDimensionValue Index 176 Read FprimaryPlacementIdDimensionValue Write SetprimaryPlacementIdDimensionValue;
- Property programmaticSetting : TProgrammaticSetting Index 184 Read FprogrammaticSetting Write SetprogrammaticSetting;
- Property siteId : String Index 192 Read FsiteId Write SetsiteId;
- Property siteIdDimensionValue : TDimensionValue Index 200 Read FsiteIdDimensionValue Write SetsiteIdDimensionValue;
- Property subaccountId : String Index 208 Read FsubaccountId Write SetsubaccountId;
+ Property siteId : String Index 184 Read FsiteId Write SetsiteId;
+ Property siteIdDimensionValue : TDimensionValue Index 192 Read FsiteIdDimensionValue Write SetsiteIdDimensionValue;
+ Property subaccountId : String Index 200 Read FsubaccountId Write SetsubaccountId;
end;
TPlacementGroupClass = Class of TPlacementGroup;
@@ -5032,7 +5315,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplacementGroups(AIndex : Integer; AValue : TPlacementGroupsListResponseTypeplacementGroupsArray); virtual;
+ Procedure SetplacementGroups(AIndex : Integer; const AValue : TPlacementGroupsListResponseTypeplacementGroupsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5058,7 +5341,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplacementStrategies(AIndex : Integer; AValue : TPlacementStrategiesListResponseTypeplacementStrategiesArray); virtual;
+ Procedure SetplacementStrategies(AIndex : Integer; const AValue : TPlacementStrategiesListResponseTypeplacementStrategiesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5107,7 +5390,7 @@ type
Protected
//Property setters
Procedure SetplacementId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettagDatas(AIndex : Integer; AValue : TPlacementTagTypetagDatasArray); virtual;
+ Procedure SettagDatas(AIndex : Integer; const AValue : TPlacementTagTypetagDatasArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5130,7 +5413,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplacementTags(AIndex : Integer; AValue : TPlacementsGenerateTagsResponseTypeplacementTagsArray); virtual;
+ Procedure SetplacementTags(AIndex : Integer; const AValue : TPlacementsGenerateTagsResponseTypeplacementTagsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5155,7 +5438,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplacements(AIndex : Integer; AValue : TPlacementsListResponseTypeplacementsArray); virtual;
+ Procedure Setplacements(AIndex : Integer; const AValue : TPlacementsListResponseTypeplacementsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5201,7 +5484,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplatformTypes(AIndex : Integer; AValue : TPlatformTypesListResponseTypeplatformTypesArray); virtual;
+ Procedure SetplatformTypes(AIndex : Integer; const AValue : TPlatformTypesListResponseTypeplatformTypesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5230,14 +5513,14 @@ type
Ftitle : String;
Protected
//Property setters
- Procedure Setdimension(AIndex : Integer; AValue : TSize); virtual;
- Procedure Setoffset(AIndex : Integer; AValue : TOffsetPosition); virtual;
+ Procedure Setdimension(AIndex : Integer; const AValue : TSize); virtual;
+ Procedure Setoffset(AIndex : Integer; const AValue : TOffsetPosition); virtual;
Procedure SetpositionType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetshowAddressBar(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetshowMenuBar(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetshowScrollBar(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetshowStatusBar(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetshowToolBar(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetshowAddressBar(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetshowMenuBar(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetshowScrollBar(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetshowStatusBar(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetshowToolBar(AIndex : Integer; const AValue : boolean); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -5292,7 +5575,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpostalCodes(AIndex : Integer; AValue : TPostalCodesListResponseTypepostalCodesArray); virtual;
+ Procedure SetpostalCodes(AIndex : Integer; const AValue : TPostalCodesListResponseTypepostalCodesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5319,11 +5602,11 @@ type
Protected
//Property setters
Procedure SetcapCostType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetendDate(AIndex : Integer; AValue : TDate); virtual;
- Procedure Setflights(AIndex : Integer; AValue : TPricingTypeflightsArray); virtual;
+ Procedure SetendDate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure Setflights(AIndex : Integer; const AValue : TPricingTypeflightsArray); virtual;
Procedure SetgroupType(AIndex : Integer; const AValue : String); virtual;
Procedure SetpricingType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetstartDate(AIndex : Integer; const AValue : TDate); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5357,14 +5640,14 @@ type
Protected
//Property setters
Procedure SetcapCostOption(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisregardOverdelivery(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetendDate(AIndex : Integer; AValue : TDate); virtual;
- Procedure Setflighted(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdisregardOverdelivery(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetendDate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure Setflighted(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetfloodlightActivityId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpricingPeriods(AIndex : Integer; AValue : TPricingScheduleTypepricingPeriodsArray); virtual;
+ Procedure SetpricingPeriods(AIndex : Integer; const AValue : TPricingScheduleTypepricingPeriodsArray); virtual;
Procedure SetpricingType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartDate(AIndex : Integer; AValue : TDate); virtual;
- Procedure SettestingStartDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetstartDate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure SettestingStartDate(AIndex : Integer; const AValue : TDate); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5396,10 +5679,10 @@ type
Funits : String;
Protected
//Property setters
- Procedure SetendDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetendDate(AIndex : Integer; const AValue : TDate); virtual;
Procedure SetpricingComment(AIndex : Integer; const AValue : String); virtual;
Procedure SetrateOrCostNanos(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetstartDate(AIndex : Integer; const AValue : TDate); virtual;
Procedure Setunits(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -5412,41 +5695,6 @@ type
TPricingSchedulePricingPeriodClass = Class of TPricingSchedulePricingPeriod;
{ --------------------------------------------------------------------
- TProgrammaticSetting
- --------------------------------------------------------------------}
-
- TProgrammaticSetting = Class(TGoogleBaseObject)
- Private
- FadxDealIds : TStringArray;
- FinsertionOrderId : String;
- FinsertionOrderIdStatus : boolean;
- FmediaCostNanos : String;
- Fprogrammatic : boolean;
- FtraffickerEmails : TStringArray;
- Protected
- //Property setters
- Procedure SetadxDealIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetinsertionOrderId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinsertionOrderIdStatus(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetmediaCostNanos(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprogrammatic(AIndex : Integer; AValue : boolean); virtual;
- Procedure SettraffickerEmails(AIndex : Integer; 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 adxDealIds : TStringArray Index 0 Read FadxDealIds Write SetadxDealIds;
- Property insertionOrderId : String Index 8 Read FinsertionOrderId Write SetinsertionOrderId;
- Property insertionOrderIdStatus : boolean Index 16 Read FinsertionOrderIdStatus Write SetinsertionOrderIdStatus;
- Property mediaCostNanos : String Index 24 Read FmediaCostNanos Write SetmediaCostNanos;
- Property programmatic : boolean Index 32 Read Fprogrammatic Write Setprogrammatic;
- Property traffickerEmails : TStringArray Index 40 Read FtraffickerEmails Write SettraffickerEmails;
- end;
- TProgrammaticSettingClass = Class of TProgrammaticSetting;
-
- { --------------------------------------------------------------------
TProject
--------------------------------------------------------------------}
@@ -5482,13 +5730,13 @@ type
Procedure Setbudget(AIndex : Integer; const AValue : String); virtual;
Procedure SetclientBillingCode(AIndex : Integer; const AValue : String); virtual;
Procedure SetclientName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetendDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetendDate(AIndex : Integer; const AValue : TDate); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo); virtual;
+ Procedure SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setoverview(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetstartDate(AIndex : Integer; const AValue : TDate); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetClicks(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetConversions(AIndex : Integer; const AValue : String); virtual;
@@ -5535,7 +5783,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprojects(AIndex : Integer; AValue : TProjectsListResponseTypeprojectsArray); virtual;
+ Procedure Setprojects(AIndex : Integer; const AValue : TProjectsListResponseTypeprojectsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5562,12 +5810,12 @@ type
FreachByFrequencyMetrics : TReachReportCompatibleFieldsTypereachByFrequencyMetricsArray;
Protected
//Property setters
- Procedure SetdimensionFilters(AIndex : Integer; AValue : TReachReportCompatibleFieldsTypedimensionFiltersArray); virtual;
- Procedure Setdimensions(AIndex : Integer; AValue : TReachReportCompatibleFieldsTypedimensionsArray); virtual;
+ Procedure SetdimensionFilters(AIndex : Integer; const AValue : TReachReportCompatibleFieldsTypedimensionFiltersArray); virtual;
+ Procedure Setdimensions(AIndex : Integer; const AValue : TReachReportCompatibleFieldsTypedimensionsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetrics(AIndex : Integer; AValue : TReachReportCompatibleFieldsTypemetricsArray); virtual;
- Procedure SetpivotedActivityMetrics(AIndex : Integer; AValue : TReachReportCompatibleFieldsTypepivotedActivityMetricsArray); virtual;
- Procedure SetreachByFrequencyMetrics(AIndex : Integer; AValue : TReachReportCompatibleFieldsTypereachByFrequencyMetricsArray); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TReachReportCompatibleFieldsTypemetricsArray); virtual;
+ Procedure SetpivotedActivityMetrics(AIndex : Integer; const AValue : TReachReportCompatibleFieldsTypepivotedActivityMetricsArray); virtual;
+ Procedure SetreachByFrequencyMetrics(AIndex : Integer; const AValue : TReachReportCompatibleFieldsTypereachByFrequencyMetricsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5647,7 +5895,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setregions(AIndex : Integer; AValue : TRegionsListResponseTyperegionsArray); virtual;
+ Procedure Setregions(AIndex : Integer; const AValue : TRegionsListResponseTyperegionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5681,14 +5929,14 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlifeSpan(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlistPopulationRule(AIndex : Integer; AValue : TListPopulationRule); virtual;
+ Procedure SetlistPopulationRule(AIndex : Integer; const AValue : TListPopulationRule); virtual;
Procedure SetlistSize(AIndex : Integer; const AValue : String); virtual;
Procedure SetlistSource(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
@@ -5725,8 +5973,8 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetremarketingListId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsharedAccountIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsharedAdvertiserIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetsharedAccountIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetsharedAdvertiserIds(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5753,7 +6001,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetremarketingLists(AIndex : Integer; AValue : TRemarketingListsListResponseTyperemarketingListsArray); virtual;
+ Procedure SetremarketingLists(AIndex : Integer; const AValue : TRemarketingListsListResponseTyperemarketingListsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5780,12 +6028,12 @@ type
FmetricNames : TStringArray;
Protected
//Property setters
- Procedure Setactivities(AIndex : Integer; AValue : TActivities); virtual;
- Procedure SetcustomRichMediaEvents(AIndex : Integer; AValue : TCustomRichMediaEvents); virtual;
- Procedure SetdateRange(AIndex : Integer; AValue : TDateRange); virtual;
- Procedure SetdimensionFilters(AIndex : Integer; AValue : TReportTypecriteriaTypedimensionFiltersArray); virtual;
- Procedure Setdimensions(AIndex : Integer; AValue : TReportTypecriteriaTypedimensionsArray); virtual;
- Procedure SetmetricNames(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setactivities(AIndex : Integer; const AValue : TActivities); virtual;
+ Procedure SetcustomRichMediaEvents(AIndex : Integer; const AValue : TCustomRichMediaEvents); virtual;
+ Procedure SetdateRange(AIndex : Integer; const AValue : TDateRange); virtual;
+ Procedure SetdimensionFilters(AIndex : Integer; const AValue : TReportTypecriteriaTypedimensionFiltersArray); virtual;
+ Procedure Setdimensions(AIndex : Integer; const AValue : TReportTypecriteriaTypedimensionsArray); virtual;
+ Procedure SetmetricNames(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5816,13 +6064,13 @@ type
Fpivoted : boolean;
Protected
//Property setters
- Procedure Setbreakdown(AIndex : Integer; AValue : TReportTypecrossDimensionReachCriteriaTypebreakdownArray); virtual;
- Procedure SetdateRange(AIndex : Integer; AValue : TDateRange); virtual;
+ Procedure Setbreakdown(AIndex : Integer; const AValue : TReportTypecrossDimensionReachCriteriaTypebreakdownArray); virtual;
+ Procedure SetdateRange(AIndex : Integer; const AValue : TDateRange); virtual;
Procedure Setdimension(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdimensionFilters(AIndex : Integer; AValue : TReportTypecrossDimensionReachCriteriaTypedimensionFiltersArray); virtual;
- Procedure SetmetricNames(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetoverlapMetricNames(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setpivoted(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdimensionFilters(AIndex : Integer; const AValue : TReportTypecrossDimensionReachCriteriaTypedimensionFiltersArray); virtual;
+ Procedure SetmetricNames(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetoverlapMetricNames(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setpivoted(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5851,10 +6099,10 @@ type
Frecipients : TReportTypedeliveryTyperecipientsArray;
Protected
//Property setters
- Procedure SetemailOwner(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetemailOwner(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetemailOwnerDeliveryType(AIndex : Integer; const AValue : String); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrecipients(AIndex : Integer; AValue : TReportTypedeliveryTyperecipientsArray); virtual;
+ Procedure Setrecipients(AIndex : Integer; const AValue : TReportTypedeliveryTyperecipientsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5879,9 +6127,9 @@ type
FincludeUnattributedIPConversions : boolean;
Protected
//Property setters
- Procedure SetincludeAttributedIPConversions(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetincludeUnattributedCookieConversions(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetincludeUnattributedIPConversions(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetincludeAttributedIPConversions(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetincludeUnattributedCookieConversions(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetincludeUnattributedIPConversions(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property includeAttributedIPConversions : boolean Index 0 Read FincludeAttributedIPConversions Write SetincludeAttributedIPConversions;
@@ -5905,13 +6153,13 @@ type
FreportProperties : TReportTypefloodlightCriteriaTypereportProperties;
Protected
//Property setters
- Procedure SetcustomRichMediaEvents(AIndex : Integer; AValue : TReportTypefloodlightCriteriaTypecustomRichMediaEventsArray); virtual;
- Procedure SetdateRange(AIndex : Integer; AValue : TDateRange); virtual;
- Procedure SetdimensionFilters(AIndex : Integer; AValue : TReportTypefloodlightCriteriaTypedimensionFiltersArray); virtual;
- Procedure Setdimensions(AIndex : Integer; AValue : TReportTypefloodlightCriteriaTypedimensionsArray); virtual;
- Procedure SetfloodlightConfigId(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetmetricNames(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetreportProperties(AIndex : Integer; AValue : TReportTypefloodlightCriteriaTypereportProperties); virtual;
+ Procedure SetcustomRichMediaEvents(AIndex : Integer; const AValue : TReportTypefloodlightCriteriaTypecustomRichMediaEventsArray); virtual;
+ Procedure SetdateRange(AIndex : Integer; const AValue : TDateRange); virtual;
+ Procedure SetdimensionFilters(AIndex : Integer; const AValue : TReportTypefloodlightCriteriaTypedimensionFiltersArray); virtual;
+ Procedure Setdimensions(AIndex : Integer; const AValue : TReportTypefloodlightCriteriaTypedimensionsArray); virtual;
+ Procedure SetfloodlightConfigId(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetmetricNames(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetreportProperties(AIndex : Integer; const AValue : TReportTypefloodlightCriteriaTypereportProperties); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -5945,15 +6193,15 @@ type
FpivotOnInteractionPath : boolean;
Protected
//Property setters
- Procedure SetclicksLookbackWindow(AIndex : Integer; AValue : integer); virtual;
- Procedure SetimpressionsLookbackWindow(AIndex : Integer; AValue : integer); virtual;
- Procedure SetincludeAttributedIPConversions(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetincludeUnattributedCookieConversions(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetincludeUnattributedIPConversions(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetmaximumClickInteractions(AIndex : Integer; AValue : integer); virtual;
- Procedure SetmaximumImpressionInteractions(AIndex : Integer; AValue : integer); virtual;
- Procedure SetmaximumInteractionGap(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpivotOnInteractionPath(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetclicksLookbackWindow(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetimpressionsLookbackWindow(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetincludeAttributedIPConversions(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetincludeUnattributedCookieConversions(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetincludeUnattributedIPConversions(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetmaximumClickInteractions(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaximumImpressionInteractions(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaximumInteractionGap(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetpivotOnInteractionPath(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property clicksLookbackWindow : integer Index 0 Read FclicksLookbackWindow Write SetclicksLookbackWindow;
@@ -5985,15 +6233,15 @@ type
FreportProperties : TReportTypepathToConversionCriteriaTypereportProperties;
Protected
//Property setters
- Procedure SetactivityFilters(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypeactivityFiltersArray); virtual;
- Procedure SetconversionDimensions(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypeconversionDimensionsArray); virtual;
- Procedure SetcustomFloodlightVariables(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypecustomFloodlightVariablesArray); virtual;
- Procedure SetcustomRichMediaEvents(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypecustomRichMediaEventsArray); virtual;
- Procedure SetdateRange(AIndex : Integer; AValue : TDateRange); virtual;
- Procedure SetfloodlightConfigId(AIndex : Integer; AValue : TDimensionValue); virtual;
- Procedure SetmetricNames(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetperInteractionDimensions(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypeperInteractionDimensionsArray); virtual;
- Procedure SetreportProperties(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypereportProperties); virtual;
+ Procedure SetactivityFilters(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypeactivityFiltersArray); virtual;
+ Procedure SetconversionDimensions(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypeconversionDimensionsArray); virtual;
+ Procedure SetcustomFloodlightVariables(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypecustomFloodlightVariablesArray); virtual;
+ Procedure SetcustomRichMediaEvents(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypecustomRichMediaEventsArray); virtual;
+ Procedure SetdateRange(AIndex : Integer; const AValue : TDateRange); virtual;
+ Procedure SetfloodlightConfigId(AIndex : Integer; const AValue : TDimensionValue); virtual;
+ Procedure SetmetricNames(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetperInteractionDimensions(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypeperInteractionDimensionsArray); virtual;
+ Procedure SetreportProperties(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypereportProperties); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -6028,14 +6276,14 @@ type
FreachByFrequencyMetricNames : TStringArray;
Protected
//Property setters
- Procedure Setactivities(AIndex : Integer; AValue : TActivities); virtual;
- Procedure SetcustomRichMediaEvents(AIndex : Integer; AValue : TCustomRichMediaEvents); virtual;
- Procedure SetdateRange(AIndex : Integer; AValue : TDateRange); virtual;
- Procedure SetdimensionFilters(AIndex : Integer; AValue : TReportTypereachCriteriaTypedimensionFiltersArray); virtual;
- Procedure Setdimensions(AIndex : Integer; AValue : TReportTypereachCriteriaTypedimensionsArray); virtual;
- Procedure SetenableAllDimensionCombinations(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetmetricNames(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetreachByFrequencyMetricNames(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setactivities(AIndex : Integer; const AValue : TActivities); virtual;
+ Procedure SetcustomRichMediaEvents(AIndex : Integer; const AValue : TCustomRichMediaEvents); virtual;
+ Procedure SetdateRange(AIndex : Integer; const AValue : TDateRange); virtual;
+ Procedure SetdimensionFilters(AIndex : Integer; const AValue : TReportTypereachCriteriaTypedimensionFiltersArray); virtual;
+ Procedure Setdimensions(AIndex : Integer; const AValue : TReportTypereachCriteriaTypedimensionsArray); virtual;
+ Procedure SetenableAllDimensionCombinations(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetmetricNames(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetreachByFrequencyMetricNames(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -6068,13 +6316,13 @@ type
FstartDate : TDate;
Protected
//Property setters
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setevery(AIndex : Integer; AValue : integer); virtual;
- Procedure SetexpirationDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setevery(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetexpirationDate(AIndex : Integer; const AValue : TDate); virtual;
Procedure Setrepeats(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrepeatsOnWeekDays(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetrepeatsOnWeekDays(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetrunsOnDayOfMonth(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartDate(AIndex : Integer; AValue : TDate); virtual;
+ Procedure SetstartDate(AIndex : Integer; const AValue : TDate); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -6119,21 +6367,21 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcriteria(AIndex : Integer; AValue : TReportTypecriteria); virtual;
- Procedure SetcrossDimensionReachCriteria(AIndex : Integer; AValue : TReportTypecrossDimensionReachCriteria); virtual;
- Procedure Setdelivery(AIndex : Integer; AValue : TReportTypedelivery); virtual;
+ Procedure Setcriteria(AIndex : Integer; const AValue : TReportTypecriteria); virtual;
+ Procedure SetcrossDimensionReachCriteria(AIndex : Integer; const AValue : TReportTypecrossDimensionReachCriteria); virtual;
+ Procedure Setdelivery(AIndex : Integer; const AValue : TReportTypedelivery); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfloodlightCriteria(AIndex : Integer; AValue : TReportTypefloodlightCriteria); virtual;
+ Procedure SetfloodlightCriteria(AIndex : Integer; const AValue : TReportTypefloodlightCriteria); virtual;
Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastModifiedTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetownerProfileId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpathToConversionCriteria(AIndex : Integer; AValue : TReportTypepathToConversionCriteria); virtual;
- Procedure SetreachCriteria(AIndex : Integer; AValue : TReportTypereachCriteria); virtual;
- Procedure Setschedule(AIndex : Integer; AValue : TReportTypeschedule); virtual;
+ Procedure SetpathToConversionCriteria(AIndex : Integer; const AValue : TReportTypepathToConversionCriteria); virtual;
+ Procedure SetreachCriteria(AIndex : Integer; const AValue : TReportTypereachCriteria); virtual;
+ Procedure Setschedule(AIndex : Integer; const AValue : TReportTypeschedule); virtual;
Procedure SetsubAccountId(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
@@ -6172,11 +6420,11 @@ type
FpivotedActivityMetrics : TReportCompatibleFieldsTypepivotedActivityMetricsArray;
Protected
//Property setters
- Procedure SetdimensionFilters(AIndex : Integer; AValue : TReportCompatibleFieldsTypedimensionFiltersArray); virtual;
- Procedure Setdimensions(AIndex : Integer; AValue : TReportCompatibleFieldsTypedimensionsArray); virtual;
+ Procedure SetdimensionFilters(AIndex : Integer; const AValue : TReportCompatibleFieldsTypedimensionFiltersArray); virtual;
+ Procedure Setdimensions(AIndex : Integer; const AValue : TReportCompatibleFieldsTypedimensionsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetrics(AIndex : Integer; AValue : TReportCompatibleFieldsTypemetricsArray); virtual;
- Procedure SetpivotedActivityMetrics(AIndex : Integer; AValue : TReportCompatibleFieldsTypepivotedActivityMetricsArray); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TReportCompatibleFieldsTypemetricsArray); virtual;
+ Procedure SetpivotedActivityMetrics(AIndex : Integer; const AValue : TReportCompatibleFieldsTypepivotedActivityMetricsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -6204,7 +6452,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TReportListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TReportListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -6231,8 +6479,8 @@ type
FreportGenerationTimeZoneId : String;
Protected
//Property setters
- Procedure SetexposureToConversionEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetlookbackConfiguration(AIndex : Integer; AValue : TLookbackConfiguration); virtual;
+ Procedure SetexposureToConversionEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetlookbackConfiguration(AIndex : Integer; const AValue : TLookbackConfiguration); virtual;
Procedure SetreportGenerationTimeZoneId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -6255,7 +6503,7 @@ type
//Property setters
Procedure SetcustomExitUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetexitId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuseCustomExitUrl(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetuseCustomExitUrl(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property customExitUrl : String Index 0 Read FcustomExitUrl Write SetcustomExitUrl;
@@ -6285,16 +6533,16 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setapproved(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setapproved(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetdirectorySiteId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdirectorySiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetdirectorySiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure SetkeyName(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsiteContacts(AIndex : Integer; AValue : TSiteTypesiteContactsArray); virtual;
- Procedure SetsiteSettings(AIndex : Integer; AValue : TSiteSettings); virtual;
+ Procedure SetsiteContacts(AIndex : Integer; const AValue : TSiteTypesiteContactsArray); virtual;
+ Procedure SetsiteSettings(AIndex : Integer; const AValue : TSiteSettings); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -6366,14 +6614,16 @@ type
FdisableNewCookie : boolean;
FlookbackConfiguration : TLookbackConfiguration;
FtagSetting : TTagSetting;
+ FvideoActiveViewOptOut : boolean;
Protected
//Property setters
- Procedure SetactiveViewOptOut(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcreativeSettings(AIndex : Integer; AValue : TCreativeSettings); virtual;
- Procedure SetdisableBrandSafeAds(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetdisableNewCookie(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetlookbackConfiguration(AIndex : Integer; AValue : TLookbackConfiguration); virtual;
- Procedure SettagSetting(AIndex : Integer; AValue : TTagSetting); virtual;
+ Procedure SetactiveViewOptOut(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcreativeSettings(AIndex : Integer; const AValue : TCreativeSettings); virtual;
+ Procedure SetdisableBrandSafeAds(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdisableNewCookie(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetlookbackConfiguration(AIndex : Integer; const AValue : TLookbackConfiguration); virtual;
+ Procedure SettagSetting(AIndex : Integer; const AValue : TTagSetting); virtual;
+ Procedure SetvideoActiveViewOptOut(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property activeViewOptOut : boolean Index 0 Read FactiveViewOptOut Write SetactiveViewOptOut;
@@ -6382,6 +6632,7 @@ type
Property disableNewCookie : boolean Index 24 Read FdisableNewCookie Write SetdisableNewCookie;
Property lookbackConfiguration : TLookbackConfiguration Index 32 Read FlookbackConfiguration Write SetlookbackConfiguration;
Property tagSetting : TTagSetting Index 40 Read FtagSetting Write SettagSetting;
+ Property videoActiveViewOptOut : boolean Index 48 Read FvideoActiveViewOptOut Write SetvideoActiveViewOptOut;
end;
TSiteSettingsClass = Class of TSiteSettings;
@@ -6398,7 +6649,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsites(AIndex : Integer; AValue : TSitesListResponseTypesitesArray); virtual;
+ Procedure Setsites(AIndex : Integer; const AValue : TSitesListResponseTypesitesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -6424,11 +6675,11 @@ type
Fwidth : integer;
Protected
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
- Procedure Setiab(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setiab(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -6450,7 +6701,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsizes(AIndex : Integer; AValue : TSizesListResponseTypesizesArray); virtual;
+ Procedure Setsizes(AIndex : Integer; const AValue : TSizesListResponseTypesizesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -6498,7 +6749,7 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetavailablePermissionIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetavailablePermissionIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
@@ -6529,7 +6780,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsubaccounts(AIndex : Integer; AValue : TSubaccountsListResponseTypesubaccountsArray); virtual;
+ Procedure Setsubaccounts(AIndex : Integer; const AValue : TSubaccountsListResponseTypesubaccountsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -6583,8 +6834,8 @@ type
Protected
//Property setters
Procedure SetadditionalKeyValues(AIndex : Integer; const AValue : String); virtual;
- Procedure SetincludeClickThroughUrls(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetincludeClickTracking(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetincludeClickThroughUrls(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetincludeClickTracking(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetkeywordOption(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -6605,8 +6856,8 @@ type
FimageTagEnabled : boolean;
Protected
//Property setters
- Procedure SetdynamicTagEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetimageTagEnabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdynamicTagEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetimageTagEnabled(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property dynamicTagEnabled : boolean Index 0 Read FdynamicTagEnabled Write SetdynamicTagEnabled;
@@ -6654,9 +6905,9 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setactive(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setactive(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetadvertiserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue); virtual;
+ Procedure SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
@@ -6695,7 +6946,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettargetableRemarketingLists(AIndex : Integer; AValue : TTargetableRemarketingListsListResponseTypetargetableRemarketingListsArray); virtual;
+ Procedure SettargetableRemarketingLists(AIndex : Integer; const AValue : TTargetableRemarketingListsListResponseTypetargetableRemarketingListsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -6722,12 +6973,12 @@ type
FplatformTypes : TTechnologyTargetingTypeplatformTypesArray;
Protected
//Property setters
- Procedure Setbrowsers(AIndex : Integer; AValue : TTechnologyTargetingTypebrowsersArray); virtual;
- Procedure SetconnectionTypes(AIndex : Integer; AValue : TTechnologyTargetingTypeconnectionTypesArray); virtual;
- Procedure SetmobileCarriers(AIndex : Integer; AValue : TTechnologyTargetingTypemobileCarriersArray); virtual;
- Procedure SetoperatingSystemVersions(AIndex : Integer; AValue : TTechnologyTargetingTypeoperatingSystemVersionsArray); virtual;
- Procedure SetoperatingSystems(AIndex : Integer; AValue : TTechnologyTargetingTypeoperatingSystemsArray); virtual;
- Procedure SetplatformTypes(AIndex : Integer; AValue : TTechnologyTargetingTypeplatformTypesArray); virtual;
+ Procedure Setbrowsers(AIndex : Integer; const AValue : TTechnologyTargetingTypebrowsersArray); virtual;
+ Procedure SetconnectionTypes(AIndex : Integer; const AValue : TTechnologyTargetingTypeconnectionTypesArray); virtual;
+ Procedure SetmobileCarriers(AIndex : Integer; const AValue : TTechnologyTargetingTypemobileCarriersArray); virtual;
+ Procedure SetoperatingSystemVersions(AIndex : Integer; const AValue : TTechnologyTargetingTypeoperatingSystemVersionsArray); virtual;
+ Procedure SetoperatingSystems(AIndex : Integer; const AValue : TTechnologyTargetingTypeoperatingSystemsArray); virtual;
+ Procedure SetplatformTypes(AIndex : Integer; const AValue : TTechnologyTargetingTypeplatformTypesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -6744,6 +6995,25 @@ type
TTechnologyTargetingClass = Class of TTechnologyTargeting;
{ --------------------------------------------------------------------
+ TThirdPartyAuthenticationToken
+ --------------------------------------------------------------------}
+
+ TThirdPartyAuthenticationToken = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TThirdPartyAuthenticationTokenClass = Class of TThirdPartyAuthenticationToken;
+
+ { --------------------------------------------------------------------
TThirdPartyTrackingUrl
--------------------------------------------------------------------}
@@ -6833,7 +7103,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TUserProfileListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TUserProfileListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -6864,12 +7134,12 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdefaultUserRole(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdefaultUserRole(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetparentUserRoleId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpermissions(AIndex : Integer; AValue : TUserRoleTypepermissionsArray); virtual;
+ Procedure Setpermissions(AIndex : Integer; const AValue : TUserRoleTypepermissionsArray); virtual;
Procedure SetsubaccountId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -6949,7 +7219,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserRolePermissionGroups(AIndex : Integer; AValue : TUserRolePermissionGroupsListResponseTypeuserRolePermissionGroupsArray); virtual;
+ Procedure SetuserRolePermissionGroups(AIndex : Integer; const AValue : TUserRolePermissionGroupsListResponseTypeuserRolePermissionGroupsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -6972,7 +7242,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserRolePermissions(AIndex : Integer; AValue : TUserRolePermissionsListResponseTypeuserRolePermissionsArray); virtual;
+ Procedure SetuserRolePermissions(AIndex : Integer; const AValue : TUserRolePermissionsListResponseTypeuserRolePermissionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -6997,7 +7267,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserRoles(AIndex : Integer; AValue : TUserRolesListResponseTypeuserRolesArray); virtual;
+ Procedure SetuserRoles(AIndex : Integer; const AValue : TUserRolesListResponseTypeuserRolesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -7454,6 +7724,18 @@ type
{ --------------------------------------------------------------------
+ TConversionsResource
+ --------------------------------------------------------------------}
+
+ TConversionsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Batchinsert(profileId: string; aConversionsBatchInsertRequest : TConversionsBatchInsertRequest) : TConversionsBatchInsertResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
TCountriesResource
--------------------------------------------------------------------}
@@ -7724,6 +8006,40 @@ type
{ --------------------------------------------------------------------
+ TDynamicTargetingKeysResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TDynamicTargetingKeysResource, method Delete
+
+ TDynamicTargetingKeysDeleteOptions = Record
+ _name : String;
+ objectType : String;
+ end;
+
+
+ //Optional query Options for TDynamicTargetingKeysResource, method List
+
+ TDynamicTargetingKeysListOptions = Record
+ advertiserId : int64;
+ names : String;
+ objectId : int64;
+ objectType : String;
+ end;
+
+ TDynamicTargetingKeysResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure Delete(objectId: string; profileId: string; AQuery : string = '');
+ Procedure Delete(objectId: string; profileId: string; AQuery : TDynamicTargetingKeysdeleteOptions);
+ Function Insert(profileId: string; aDynamicTargetingKey : TDynamicTargetingKey) : TDynamicTargetingKey;
+ Function List(profileId: string; AQuery : string = '') : TDynamicTargetingKeysListResponse;
+ Function List(profileId: string; AQuery : TDynamicTargetingKeyslistOptions) : TDynamicTargetingKeysListResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
TEventTagsResource
--------------------------------------------------------------------}
@@ -7874,7 +8190,6 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Delete(id: string; profileId: string);
Function Get(id: string; profileId: string) : TFloodlightActivityGroup;
Function Insert(profileId: string; aFloodlightActivityGroup : TFloodlightActivityGroup) : TFloodlightActivityGroup;
Function List(profileId: string; AQuery : string = '') : TFloodlightActivityGroupsListResponse;
@@ -7932,6 +8247,7 @@ type
siteId : int64;
sortField : String;
sortOrder : String;
+ _type : String;
end;
TInventoryItemsResource = Class(TGoogleResource)
@@ -8090,7 +8406,11 @@ type
contentCategoryIds : int64;
directorySiteIds : int64;
ids : int64;
+ maxEndDate : String;
maxResults : integer;
+ maxStartDate : String;
+ minEndDate : String;
+ minStartDate : String;
pageToken : String;
placementGroupType : String;
placementStrategyIds : int64;
@@ -8185,7 +8505,11 @@ type
directorySiteIds : int64;
groupIds : int64;
ids : int64;
+ maxEndDate : String;
maxResults : integer;
+ maxStartDate : String;
+ minEndDate : String;
+ minStartDate : String;
pageToken : String;
paymentSource : String;
placementStrategyIds : int64;
@@ -8674,6 +8998,7 @@ type
FCitiesInstance : TCitiesResource;
FConnectionTypesInstance : TConnectionTypesResource;
FContentCategoriesInstance : TContentCategoriesResource;
+ FConversionsInstance : TConversionsResource;
FCountriesInstance : TCountriesResource;
FCreativeAssetsInstance : TCreativeAssetsResource;
FCreativeFieldValuesInstance : TCreativeFieldValuesResource;
@@ -8683,6 +9008,7 @@ type
FDimensionValuesInstance : TDimensionValuesResource;
FDirectorySiteContactsInstance : TDirectorySiteContactsResource;
FDirectorySitesInstance : TDirectorySitesResource;
+ FDynamicTargetingKeysInstance : TDynamicTargetingKeysResource;
FEventTagsInstance : TEventTagsResource;
FFilesInstance : TFilesResource;
FFloodlightActivitiesInstance : TFloodlightActivitiesResource;
@@ -8731,6 +9057,7 @@ type
Function GetCitiesInstance : TCitiesResource;virtual;
Function GetConnectionTypesInstance : TConnectionTypesResource;virtual;
Function GetContentCategoriesInstance : TContentCategoriesResource;virtual;
+ Function GetConversionsInstance : TConversionsResource;virtual;
Function GetCountriesInstance : TCountriesResource;virtual;
Function GetCreativeAssetsInstance : TCreativeAssetsResource;virtual;
Function GetCreativeFieldValuesInstance : TCreativeFieldValuesResource;virtual;
@@ -8740,6 +9067,7 @@ type
Function GetDimensionValuesInstance : TDimensionValuesResource;virtual;
Function GetDirectorySiteContactsInstance : TDirectorySiteContactsResource;virtual;
Function GetDirectorySitesInstance : TDirectorySitesResource;virtual;
+ Function GetDynamicTargetingKeysInstance : TDynamicTargetingKeysResource;virtual;
Function GetEventTagsInstance : TEventTagsResource;virtual;
Function GetFilesInstance : TFilesResource;virtual;
Function GetFloodlightActivitiesInstance : TFloodlightActivitiesResource;virtual;
@@ -8826,6 +9154,8 @@ type
Function CreateConnectionTypesResource : TConnectionTypesResource;virtual;overload;
Function CreateContentCategoriesResource(AOwner : TComponent) : TContentCategoriesResource;virtual;overload;
Function CreateContentCategoriesResource : TContentCategoriesResource;virtual;overload;
+ Function CreateConversionsResource(AOwner : TComponent) : TConversionsResource;virtual;overload;
+ Function CreateConversionsResource : TConversionsResource;virtual;overload;
Function CreateCountriesResource(AOwner : TComponent) : TCountriesResource;virtual;overload;
Function CreateCountriesResource : TCountriesResource;virtual;overload;
Function CreateCreativeAssetsResource(AOwner : TComponent) : TCreativeAssetsResource;virtual;overload;
@@ -8844,6 +9174,8 @@ type
Function CreateDirectorySiteContactsResource : TDirectorySiteContactsResource;virtual;overload;
Function CreateDirectorySitesResource(AOwner : TComponent) : TDirectorySitesResource;virtual;overload;
Function CreateDirectorySitesResource : TDirectorySitesResource;virtual;overload;
+ Function CreateDynamicTargetingKeysResource(AOwner : TComponent) : TDynamicTargetingKeysResource;virtual;overload;
+ Function CreateDynamicTargetingKeysResource : TDynamicTargetingKeysResource;virtual;overload;
Function CreateEventTagsResource(AOwner : TComponent) : TEventTagsResource;virtual;overload;
Function CreateEventTagsResource : TEventTagsResource;virtual;overload;
Function CreateFilesResource(AOwner : TComponent) : TFilesResource;virtual;overload;
@@ -8926,6 +9258,7 @@ type
Property CitiesResource : TCitiesResource Read GetCitiesInstance;
Property ConnectionTypesResource : TConnectionTypesResource Read GetConnectionTypesInstance;
Property ContentCategoriesResource : TContentCategoriesResource Read GetContentCategoriesInstance;
+ Property ConversionsResource : TConversionsResource Read GetConversionsInstance;
Property CountriesResource : TCountriesResource Read GetCountriesInstance;
Property CreativeAssetsResource : TCreativeAssetsResource Read GetCreativeAssetsInstance;
Property CreativeFieldValuesResource : TCreativeFieldValuesResource Read GetCreativeFieldValuesInstance;
@@ -8935,6 +9268,7 @@ type
Property DimensionValuesResource : TDimensionValuesResource Read GetDimensionValuesInstance;
Property DirectorySiteContactsResource : TDirectorySiteContactsResource Read GetDirectorySiteContactsInstance;
Property DirectorySitesResource : TDirectorySitesResource Read GetDirectorySitesInstance;
+ Property DynamicTargetingKeysResource : TDynamicTargetingKeysResource Read GetDynamicTargetingKeysInstance;
Property EventTagsResource : TEventTagsResource Read GetEventTagsInstance;
Property FilesResource : TFilesResource Read GetFilesInstance;
Property FloodlightActivitiesResource : TFloodlightActivitiesResource Read GetFloodlightActivitiesInstance;
@@ -8978,7 +9312,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TAccount.SetaccountPermissionIds(AIndex : Integer; AValue : TStringArray);
+Procedure TAccount.SetaccountPermissionIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FaccountPermissionIds=AValue) then exit;
@@ -8998,7 +9332,7 @@ end;
-Procedure TAccount.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TAccount.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -9018,7 +9352,7 @@ end;
-Procedure TAccount.SetactiveViewOptOut(AIndex : Integer; AValue : boolean);
+Procedure TAccount.SetactiveViewOptOut(AIndex : Integer; const AValue : boolean);
begin
If (FactiveViewOptOut=AValue) then exit;
@@ -9028,7 +9362,7 @@ end;
-Procedure TAccount.SetavailablePermissionIds(AIndex : Integer; AValue : TStringArray);
+Procedure TAccount.SetavailablePermissionIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FavailablePermissionIds=AValue) then exit;
@@ -9038,7 +9372,7 @@ end;
-Procedure TAccount.SetcomscoreVceEnabled(AIndex : Integer; AValue : boolean);
+Procedure TAccount.SetcomscoreVceEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FcomscoreVceEnabled=AValue) then exit;
@@ -9138,7 +9472,7 @@ end;
-Procedure TAccount.SetnielsenOcrEnabled(AIndex : Integer; AValue : boolean);
+Procedure TAccount.SetnielsenOcrEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FnielsenOcrEnabled=AValue) then exit;
@@ -9148,7 +9482,7 @@ end;
-Procedure TAccount.SetreportsConfiguration(AIndex : Integer; AValue : TReportsConfiguration);
+Procedure TAccount.SetreportsConfiguration(AIndex : Integer; const AValue : TReportsConfiguration);
begin
If (FreportsConfiguration=AValue) then exit;
@@ -9246,7 +9580,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountPermission.SetaccountProfiles(AIndex : Integer; AValue : TStringArray);
+Procedure TAccountPermission.SetaccountProfiles(AIndex : Integer; const AValue : TStringArray);
begin
If (FaccountProfiles=AValue) then exit;
@@ -9363,7 +9697,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountPermissionGroupsListResponse.SetaccountPermissionGroups(AIndex : Integer; AValue : TAccountPermissionGroupsListResponseTypeaccountPermissionGroupsArray);
+Procedure TAccountPermissionGroupsListResponse.SetaccountPermissionGroups(AIndex : Integer; const AValue : TAccountPermissionGroupsListResponseTypeaccountPermissionGroupsArray);
begin
If (FaccountPermissionGroups=AValue) then exit;
@@ -9403,7 +9737,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountPermissionsListResponse.SetaccountPermissions(AIndex : Integer; AValue : TAccountPermissionsListResponseTypeaccountPermissionsArray);
+Procedure TAccountPermissionsListResponse.SetaccountPermissions(AIndex : Integer; const AValue : TAccountPermissionsListResponseTypeaccountPermissionsArray);
begin
If (FaccountPermissions=AValue) then exit;
@@ -9453,7 +9787,7 @@ end;
-Procedure TAccountUserProfile.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TAccountUserProfile.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -9463,7 +9797,7 @@ end;
-Procedure TAccountUserProfile.SetadvertiserFilter(AIndex : Integer; AValue : TObjectFilter);
+Procedure TAccountUserProfile.SetadvertiserFilter(AIndex : Integer; const AValue : TObjectFilter);
begin
If (FadvertiserFilter=AValue) then exit;
@@ -9473,7 +9807,7 @@ end;
-Procedure TAccountUserProfile.SetcampaignFilter(AIndex : Integer; AValue : TObjectFilter);
+Procedure TAccountUserProfile.SetcampaignFilter(AIndex : Integer; const AValue : TObjectFilter);
begin
If (FcampaignFilter=AValue) then exit;
@@ -9543,7 +9877,7 @@ end;
-Procedure TAccountUserProfile.SetsiteFilter(AIndex : Integer; AValue : TObjectFilter);
+Procedure TAccountUserProfile.SetsiteFilter(AIndex : Integer; const AValue : TObjectFilter);
begin
If (FsiteFilter=AValue) then exit;
@@ -9583,7 +9917,7 @@ end;
-Procedure TAccountUserProfile.SetuserRoleFilter(AIndex : Integer; AValue : TObjectFilter);
+Procedure TAccountUserProfile.SetuserRoleFilter(AIndex : Integer; const AValue : TObjectFilter);
begin
If (FuserRoleFilter=AValue) then exit;
@@ -9610,7 +9944,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountUserProfilesListResponse.SetaccountUserProfiles(AIndex : Integer; AValue : TAccountUserProfilesListResponseTypeaccountUserProfilesArray);
+Procedure TAccountUserProfilesListResponse.SetaccountUserProfiles(AIndex : Integer; const AValue : TAccountUserProfilesListResponseTypeaccountUserProfilesArray);
begin
If (FaccountUserProfiles=AValue) then exit;
@@ -9660,7 +9994,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountsListResponse.Setaccounts(AIndex : Integer; AValue : TAccountsListResponseTypeaccountsArray);
+Procedure TAccountsListResponse.Setaccounts(AIndex : Integer; const AValue : TAccountsListResponseTypeaccountsArray);
begin
If (Faccounts=AValue) then exit;
@@ -9710,7 +10044,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivities.Setfilters(AIndex : Integer; AValue : TActivitiesTypefiltersArray);
+Procedure TActivities.Setfilters(AIndex : Integer; const AValue : TActivitiesTypefiltersArray);
begin
If (Ffilters=AValue) then exit;
@@ -9730,7 +10064,7 @@ end;
-Procedure TActivities.SetmetricNames(AIndex : Integer; AValue : TStringArray);
+Procedure TActivities.SetmetricNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FmetricNames=AValue) then exit;
@@ -9771,7 +10105,7 @@ end;
-Procedure TAd.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TAd.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -9791,7 +10125,7 @@ end;
-Procedure TAd.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TAd.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -9801,7 +10135,7 @@ end;
-Procedure TAd.Setarchived(AIndex : Integer; AValue : boolean);
+Procedure TAd.Setarchived(AIndex : Integer; const AValue : boolean);
begin
If (Farchived=AValue) then exit;
@@ -9831,7 +10165,7 @@ end;
-Procedure TAd.SetcampaignIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TAd.SetcampaignIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FcampaignIdDimensionValue=AValue) then exit;
@@ -9841,7 +10175,7 @@ end;
-Procedure TAd.SetclickThroughUrl(AIndex : Integer; AValue : TClickThroughUrl);
+Procedure TAd.SetclickThroughUrl(AIndex : Integer; const AValue : TClickThroughUrl);
begin
If (FclickThroughUrl=AValue) then exit;
@@ -9851,7 +10185,7 @@ end;
-Procedure TAd.SetclickThroughUrlSuffixProperties(AIndex : Integer; AValue : TClickThroughUrlSuffixProperties);
+Procedure TAd.SetclickThroughUrlSuffixProperties(AIndex : Integer; const AValue : TClickThroughUrlSuffixProperties);
begin
If (FclickThroughUrlSuffixProperties=AValue) then exit;
@@ -9881,7 +10215,7 @@ end;
-Procedure TAd.SetcreateInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TAd.SetcreateInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FcreateInfo=AValue) then exit;
@@ -9891,7 +10225,7 @@ end;
-Procedure TAd.SetcreativeGroupAssignments(AIndex : Integer; AValue : TAdTypecreativeGroupAssignmentsArray);
+Procedure TAd.SetcreativeGroupAssignments(AIndex : Integer; const AValue : TAdTypecreativeGroupAssignmentsArray);
begin
If (FcreativeGroupAssignments=AValue) then exit;
@@ -9901,7 +10235,7 @@ end;
-Procedure TAd.SetcreativeRotation(AIndex : Integer; AValue : TCreativeRotation);
+Procedure TAd.SetcreativeRotation(AIndex : Integer; const AValue : TCreativeRotation);
begin
If (FcreativeRotation=AValue) then exit;
@@ -9911,7 +10245,7 @@ end;
-Procedure TAd.SetdayPartTargeting(AIndex : Integer; AValue : TDayPartTargeting);
+Procedure TAd.SetdayPartTargeting(AIndex : Integer; const AValue : TDayPartTargeting);
begin
If (FdayPartTargeting=AValue) then exit;
@@ -9921,7 +10255,7 @@ end;
-Procedure TAd.SetdefaultClickThroughEventTagProperties(AIndex : Integer; AValue : TDefaultClickThroughEventTagProperties);
+Procedure TAd.SetdefaultClickThroughEventTagProperties(AIndex : Integer; const AValue : TDefaultClickThroughEventTagProperties);
begin
If (FdefaultClickThroughEventTagProperties=AValue) then exit;
@@ -9931,7 +10265,7 @@ end;
-Procedure TAd.SetdeliverySchedule(AIndex : Integer; AValue : TDeliverySchedule);
+Procedure TAd.SetdeliverySchedule(AIndex : Integer; const AValue : TDeliverySchedule);
begin
If (FdeliverySchedule=AValue) then exit;
@@ -9941,7 +10275,7 @@ end;
-Procedure TAd.SetdynamicClickTracker(AIndex : Integer; AValue : boolean);
+Procedure TAd.SetdynamicClickTracker(AIndex : Integer; const AValue : boolean);
begin
If (FdynamicClickTracker=AValue) then exit;
@@ -9951,7 +10285,7 @@ end;
-Procedure TAd.SetendTime(AIndex : Integer; AValue : TDatetime);
+Procedure TAd.SetendTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FendTime=AValue) then exit;
@@ -9961,7 +10295,7 @@ end;
-Procedure TAd.SeteventTagOverrides(AIndex : Integer; AValue : TAdTypeeventTagOverridesArray);
+Procedure TAd.SeteventTagOverrides(AIndex : Integer; const AValue : TAdTypeeventTagOverridesArray);
begin
If (FeventTagOverrides=AValue) then exit;
@@ -9971,7 +10305,7 @@ end;
-Procedure TAd.SetgeoTargeting(AIndex : Integer; AValue : TGeoTargeting);
+Procedure TAd.SetgeoTargeting(AIndex : Integer; const AValue : TGeoTargeting);
begin
If (FgeoTargeting=AValue) then exit;
@@ -9991,7 +10325,7 @@ end;
-Procedure TAd.SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TAd.SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FidDimensionValue=AValue) then exit;
@@ -10001,7 +10335,7 @@ end;
-Procedure TAd.SetkeyValueTargetingExpression(AIndex : Integer; AValue : TKeyValueTargetingExpression);
+Procedure TAd.SetkeyValueTargetingExpression(AIndex : Integer; const AValue : TKeyValueTargetingExpression);
begin
If (FkeyValueTargetingExpression=AValue) then exit;
@@ -10021,7 +10355,7 @@ end;
-Procedure TAd.SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TAd.SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FlastModifiedInfo=AValue) then exit;
@@ -10041,7 +10375,7 @@ end;
-Procedure TAd.SetplacementAssignments(AIndex : Integer; AValue : TAdTypeplacementAssignmentsArray);
+Procedure TAd.SetplacementAssignments(AIndex : Integer; const AValue : TAdTypeplacementAssignmentsArray);
begin
If (FplacementAssignments=AValue) then exit;
@@ -10051,17 +10385,17 @@ end;
-Procedure TAd.Setremarketing_list_expression(AIndex : Integer; AValue : TListTargetingExpression);
+Procedure TAd.SetremarketingListExpression(AIndex : Integer; const AValue : TListTargetingExpression);
begin
- If (Fremarketing_list_expression=AValue) then exit;
- Fremarketing_list_expression:=AValue;
+ If (FremarketingListExpression=AValue) then exit;
+ FremarketingListExpression:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAd.Setsize(AIndex : Integer; AValue : TSize);
+Procedure TAd.Setsize(AIndex : Integer; const AValue : TSize);
begin
If (Fsize=AValue) then exit;
@@ -10071,7 +10405,7 @@ end;
-Procedure TAd.SetsslCompliant(AIndex : Integer; AValue : boolean);
+Procedure TAd.SetsslCompliant(AIndex : Integer; const AValue : boolean);
begin
If (FsslCompliant=AValue) then exit;
@@ -10081,7 +10415,7 @@ end;
-Procedure TAd.SetsslRequired(AIndex : Integer; AValue : boolean);
+Procedure TAd.SetsslRequired(AIndex : Integer; const AValue : boolean);
begin
If (FsslRequired=AValue) then exit;
@@ -10091,7 +10425,7 @@ end;
-Procedure TAd.SetstartTime(AIndex : Integer; AValue : TDatetime);
+Procedure TAd.SetstartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FstartTime=AValue) then exit;
@@ -10111,7 +10445,7 @@ end;
-Procedure TAd.SettechnologyTargeting(AIndex : Integer; AValue : TTechnologyTargeting);
+Procedure TAd.SettechnologyTargeting(AIndex : Integer; const AValue : TTechnologyTargeting);
begin
If (FtechnologyTargeting=AValue) then exit;
@@ -10224,7 +10558,7 @@ end;
-Procedure TAdSlot.Setprimary(AIndex : Integer; AValue : boolean);
+Procedure TAdSlot.Setprimary(AIndex : Integer; const AValue : boolean);
begin
If (Fprimary=AValue) then exit;
@@ -10251,7 +10585,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdsListResponse.Setads(AIndex : Integer; AValue : TAdsListResponseTypeadsArray);
+Procedure TAdsListResponse.Setads(AIndex : Integer; const AValue : TAdsListResponseTypeadsArray);
begin
If (Fads=AValue) then exit;
@@ -10361,7 +10695,7 @@ end;
-Procedure TAdvertiser.SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TAdvertiser.SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FfloodlightConfigurationIdDimensionValue=AValue) then exit;
@@ -10381,7 +10715,7 @@ end;
-Procedure TAdvertiser.SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TAdvertiser.SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FidDimensionValue=AValue) then exit;
@@ -10441,6 +10775,16 @@ end;
+Procedure TAdvertiser.Setsuspended(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fsuspended=AValue) then exit;
+ Fsuspended:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -10495,7 +10839,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdvertiserGroupsListResponse.SetadvertiserGroups(AIndex : Integer; AValue : TAdvertiserGroupsListResponseTypeadvertiserGroupsArray);
+Procedure TAdvertiserGroupsListResponse.SetadvertiserGroups(AIndex : Integer; const AValue : TAdvertiserGroupsListResponseTypeadvertiserGroupsArray);
begin
If (FadvertiserGroups=AValue) then exit;
@@ -10545,7 +10889,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAdvertisersListResponse.Setadvertisers(AIndex : Integer; AValue : TAdvertisersListResponseTypeadvertisersArray);
+Procedure TAdvertisersListResponse.Setadvertisers(AIndex : Integer; const AValue : TAdvertisersListResponseTypeadvertisersArray);
begin
If (Fadvertisers=AValue) then exit;
@@ -10595,7 +10939,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAudienceSegment.Setallocation(AIndex : Integer; AValue : integer);
+Procedure TAudienceSegment.Setallocation(AIndex : Integer; const AValue : integer);
begin
If (Fallocation=AValue) then exit;
@@ -10632,7 +10976,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAudienceSegmentGroup.SetaudienceSegments(AIndex : Integer; AValue : TAudienceSegmentGroupTypeaudienceSegmentsArray);
+Procedure TAudienceSegmentGroup.SetaudienceSegments(AIndex : Integer; const AValue : TAudienceSegmentGroupTypeaudienceSegmentsArray);
begin
If (FaudienceSegments=AValue) then exit;
@@ -10749,7 +11093,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBrowsersListResponse.Setbrowsers(AIndex : Integer; AValue : TBrowsersListResponseTypebrowsersArray);
+Procedure TBrowsersListResponse.Setbrowsers(AIndex : Integer; const AValue : TBrowsersListResponseTypebrowsersArray);
begin
If (Fbrowsers=AValue) then exit;
@@ -10799,7 +11143,7 @@ end;
-Procedure TCampaign.SetadditionalCreativeOptimizationConfigurations(AIndex : Integer; AValue : TCampaignTypeadditionalCreativeOptimizationConfigurationsArray);
+Procedure TCampaign.SetadditionalCreativeOptimizationConfigurations(AIndex : Integer; const AValue : TCampaignTypeadditionalCreativeOptimizationConfigurationsArray);
begin
If (FadditionalCreativeOptimizationConfigurations=AValue) then exit;
@@ -10829,7 +11173,7 @@ end;
-Procedure TCampaign.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TCampaign.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -10839,7 +11183,7 @@ end;
-Procedure TCampaign.Setarchived(AIndex : Integer; AValue : boolean);
+Procedure TCampaign.Setarchived(AIndex : Integer; const AValue : boolean);
begin
If (Farchived=AValue) then exit;
@@ -10849,7 +11193,7 @@ end;
-Procedure TCampaign.SetaudienceSegmentGroups(AIndex : Integer; AValue : TCampaignTypeaudienceSegmentGroupsArray);
+Procedure TCampaign.SetaudienceSegmentGroups(AIndex : Integer; const AValue : TCampaignTypeaudienceSegmentGroupsArray);
begin
If (FaudienceSegmentGroups=AValue) then exit;
@@ -10869,7 +11213,7 @@ end;
-Procedure TCampaign.SetclickThroughUrlSuffixProperties(AIndex : Integer; AValue : TClickThroughUrlSuffixProperties);
+Procedure TCampaign.SetclickThroughUrlSuffixProperties(AIndex : Integer; const AValue : TClickThroughUrlSuffixProperties);
begin
If (FclickThroughUrlSuffixProperties=AValue) then exit;
@@ -10889,7 +11233,7 @@ end;
-Procedure TCampaign.SetcomscoreVceEnabled(AIndex : Integer; AValue : boolean);
+Procedure TCampaign.SetcomscoreVceEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FcomscoreVceEnabled=AValue) then exit;
@@ -10899,7 +11243,7 @@ end;
-Procedure TCampaign.SetcreateInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TCampaign.SetcreateInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FcreateInfo=AValue) then exit;
@@ -10909,7 +11253,7 @@ end;
-Procedure TCampaign.SetcreativeGroupIds(AIndex : Integer; AValue : TStringArray);
+Procedure TCampaign.SetcreativeGroupIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FcreativeGroupIds=AValue) then exit;
@@ -10919,7 +11263,7 @@ end;
-Procedure TCampaign.SetcreativeOptimizationConfiguration(AIndex : Integer; AValue : TCreativeOptimizationConfiguration);
+Procedure TCampaign.SetcreativeOptimizationConfiguration(AIndex : Integer; const AValue : TCreativeOptimizationConfiguration);
begin
If (FcreativeOptimizationConfiguration=AValue) then exit;
@@ -10929,7 +11273,7 @@ end;
-Procedure TCampaign.SetdefaultClickThroughEventTagProperties(AIndex : Integer; AValue : TDefaultClickThroughEventTagProperties);
+Procedure TCampaign.SetdefaultClickThroughEventTagProperties(AIndex : Integer; const AValue : TDefaultClickThroughEventTagProperties);
begin
If (FdefaultClickThroughEventTagProperties=AValue) then exit;
@@ -10939,7 +11283,7 @@ end;
-Procedure TCampaign.SetendDate(AIndex : Integer; AValue : TDate);
+Procedure TCampaign.SetendDate(AIndex : Integer; const AValue : TDate);
begin
If (FendDate=AValue) then exit;
@@ -10949,7 +11293,7 @@ end;
-Procedure TCampaign.SeteventTagOverrides(AIndex : Integer; AValue : TCampaignTypeeventTagOverridesArray);
+Procedure TCampaign.SeteventTagOverrides(AIndex : Integer; const AValue : TCampaignTypeeventTagOverridesArray);
begin
If (FeventTagOverrides=AValue) then exit;
@@ -10979,7 +11323,7 @@ end;
-Procedure TCampaign.SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TCampaign.SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FidDimensionValue=AValue) then exit;
@@ -10999,7 +11343,7 @@ end;
-Procedure TCampaign.SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TCampaign.SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FlastModifiedInfo=AValue) then exit;
@@ -11009,7 +11353,7 @@ end;
-Procedure TCampaign.SetlookbackConfiguration(AIndex : Integer; AValue : TLookbackConfiguration);
+Procedure TCampaign.SetlookbackConfiguration(AIndex : Integer; const AValue : TLookbackConfiguration);
begin
If (FlookbackConfiguration=AValue) then exit;
@@ -11029,7 +11373,7 @@ end;
-Procedure TCampaign.SetnielsenOcrEnabled(AIndex : Integer; AValue : boolean);
+Procedure TCampaign.SetnielsenOcrEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FnielsenOcrEnabled=AValue) then exit;
@@ -11039,7 +11383,7 @@ end;
-Procedure TCampaign.SetstartDate(AIndex : Integer; AValue : TDate);
+Procedure TCampaign.SetstartDate(AIndex : Integer; const AValue : TDate);
begin
If (FstartDate=AValue) then exit;
@@ -11059,7 +11403,7 @@ end;
-Procedure TCampaign.SettraffickerEmails(AIndex : Integer; AValue : TStringArray);
+Procedure TCampaign.SettraffickerEmails(AIndex : Integer; const AValue : TStringArray);
begin
If (FtraffickerEmails=AValue) then exit;
@@ -11120,7 +11464,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCampaignCreativeAssociationsListResponse.SetcampaignCreativeAssociations(AIndex : Integer; AValue : TCampaignCreativeAssociationsListResponseTypecampaignCreativeAssociationsArray);
+Procedure TCampaignCreativeAssociationsListResponse.SetcampaignCreativeAssociations(AIndex : Integer; const AValue : TCampaignCreativeAssociationsListResponseTypecampaignCreativeAssociationsArray);
begin
If (FcampaignCreativeAssociations=AValue) then exit;
@@ -11170,7 +11514,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCampaignsListResponse.Setcampaigns(AIndex : Integer; AValue : TCampaignsListResponseTypecampaignsArray);
+Procedure TCampaignsListResponse.Setcampaigns(AIndex : Integer; const AValue : TCampaignsListResponseTypecampaignsArray);
begin
If (Fcampaigns=AValue) then exit;
@@ -11240,7 +11584,7 @@ end;
-Procedure TChangeLog.SetchangeTime(AIndex : Integer; AValue : TDatetime);
+Procedure TChangeLog.SetchangeTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FchangeTime=AValue) then exit;
@@ -11367,7 +11711,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChangeLogsListResponse.SetchangeLogs(AIndex : Integer; AValue : TChangeLogsListResponseTypechangeLogsArray);
+Procedure TChangeLogsListResponse.SetchangeLogs(AIndex : Integer; const AValue : TChangeLogsListResponseTypechangeLogsArray);
begin
If (FchangeLogs=AValue) then exit;
@@ -11417,7 +11761,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCitiesListResponse.Setcities(AIndex : Integer; AValue : TCitiesListResponseTypecitiesArray);
+Procedure TCitiesListResponse.Setcities(AIndex : Integer; const AValue : TCitiesListResponseTypecitiesArray);
begin
If (Fcities=AValue) then exit;
@@ -11591,6 +11935,16 @@ end;
--------------------------------------------------------------------}
+Procedure TClickThroughUrl.SetcomputedClickThroughUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcomputedClickThroughUrl=AValue) then exit;
+ FcomputedClickThroughUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TClickThroughUrl.SetcustomClickThroughUrl(AIndex : Integer; const AValue : String);
begin
@@ -11601,7 +11955,7 @@ end;
-Procedure TClickThroughUrl.SetdefaultLandingPage(AIndex : Integer; AValue : boolean);
+Procedure TClickThroughUrl.SetdefaultLandingPage(AIndex : Integer; const AValue : boolean);
begin
If (FdefaultLandingPage=AValue) then exit;
@@ -11638,7 +11992,7 @@ end;
-Procedure TClickThroughUrlSuffixProperties.SetoverrideInheritedSuffix(AIndex : Integer; AValue : boolean);
+Procedure TClickThroughUrlSuffixProperties.SetoverrideInheritedSuffix(AIndex : Integer; const AValue : boolean);
begin
If (FoverrideInheritedSuffix=AValue) then exit;
@@ -11655,7 +12009,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCompanionClickThroughOverride.SetclickThroughUrl(AIndex : Integer; AValue : TClickThroughUrl);
+Procedure TCompanionClickThroughOverride.SetclickThroughUrl(AIndex : Integer; const AValue : TClickThroughUrl);
begin
If (FclickThroughUrl=AValue) then exit;
@@ -11682,7 +12036,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCompatibleFields.SetcrossDimensionReachReportCompatibleFields(AIndex : Integer; AValue : TCrossDimensionReachReportCompatibleFields);
+Procedure TCompatibleFields.SetcrossDimensionReachReportCompatibleFields(AIndex : Integer; const AValue : TCrossDimensionReachReportCompatibleFields);
begin
If (FcrossDimensionReachReportCompatibleFields=AValue) then exit;
@@ -11692,7 +12046,7 @@ end;
-Procedure TCompatibleFields.SetfloodlightReportCompatibleFields(AIndex : Integer; AValue : TFloodlightReportCompatibleFields);
+Procedure TCompatibleFields.SetfloodlightReportCompatibleFields(AIndex : Integer; const AValue : TFloodlightReportCompatibleFields);
begin
If (FfloodlightReportCompatibleFields=AValue) then exit;
@@ -11712,7 +12066,7 @@ end;
-Procedure TCompatibleFields.SetpathToConversionReportCompatibleFields(AIndex : Integer; AValue : TPathToConversionReportCompatibleFields);
+Procedure TCompatibleFields.SetpathToConversionReportCompatibleFields(AIndex : Integer; const AValue : TPathToConversionReportCompatibleFields);
begin
If (FpathToConversionReportCompatibleFields=AValue) then exit;
@@ -11722,7 +12076,7 @@ end;
-Procedure TCompatibleFields.SetreachReportCompatibleFields(AIndex : Integer; AValue : TReachReportCompatibleFields);
+Procedure TCompatibleFields.SetreachReportCompatibleFields(AIndex : Integer; const AValue : TReachReportCompatibleFields);
begin
If (FreachReportCompatibleFields=AValue) then exit;
@@ -11732,7 +12086,7 @@ end;
-Procedure TCompatibleFields.SetreportCompatibleFields(AIndex : Integer; AValue : TReportCompatibleFields);
+Procedure TCompatibleFields.SetreportCompatibleFields(AIndex : Integer; const AValue : TReportCompatibleFields);
begin
If (FreportCompatibleFields=AValue) then exit;
@@ -11786,7 +12140,7 @@ end;
--------------------------------------------------------------------}
-Procedure TConnectionTypesListResponse.SetconnectionTypes(AIndex : Integer; AValue : TConnectionTypesListResponseTypeconnectionTypesArray);
+Procedure TConnectionTypesListResponse.SetconnectionTypes(AIndex : Integer; const AValue : TConnectionTypesListResponseTypeconnectionTypesArray);
begin
If (FconnectionTypes=AValue) then exit;
@@ -11826,7 +12180,7 @@ end;
--------------------------------------------------------------------}
-Procedure TContentCategoriesListResponse.SetcontentCategories(AIndex : Integer; AValue : TContentCategoriesListResponseTypecontentCategoriesArray);
+Procedure TContentCategoriesListResponse.SetcontentCategories(AIndex : Integer; const AValue : TContentCategoriesListResponseTypecontentCategoriesArray);
begin
If (FcontentCategories=AValue) then exit;
@@ -11919,11 +12273,338 @@ end;
{ --------------------------------------------------------------------
+ TConversion
+ --------------------------------------------------------------------}
+
+
+Procedure TConversion.SetchildDirectedTreatment(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FchildDirectedTreatment=AValue) then exit;
+ FchildDirectedTreatment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversion.SetcustomVariables(AIndex : Integer; const AValue : TConversionTypecustomVariablesArray);
+
+begin
+ If (FcustomVariables=AValue) then exit;
+ FcustomVariables:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversion.SetencryptedUserId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FencryptedUserId=AValue) then exit;
+ FencryptedUserId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversion.SetfloodlightActivityId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfloodlightActivityId=AValue) then exit;
+ FfloodlightActivityId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversion.SetfloodlightConfigurationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfloodlightConfigurationId=AValue) then exit;
+ FfloodlightConfigurationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversion.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversion.SetlimitAdTracking(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FlimitAdTracking=AValue) then exit;
+ FlimitAdTracking:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversion.SetmobileDeviceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmobileDeviceId=AValue) then exit;
+ FmobileDeviceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversion.Setordinal(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fordinal=AValue) then exit;
+ Fordinal:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversion.Setquantity(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fquantity=AValue) then exit;
+ Fquantity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversion.SettimestampMicros(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtimestampMicros=AValue) then exit;
+ FtimestampMicros:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversion.Setvalue(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TConversion.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'customvariables' : SetLength(FcustomVariables,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TConversionError
+ --------------------------------------------------------------------}
+
+
+Procedure TConversionError.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversionError.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversionError.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TConversionStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TConversionStatus.Setconversion(AIndex : Integer; const AValue : TConversion);
+
+begin
+ If (Fconversion=AValue) then exit;
+ Fconversion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversionStatus.Seterrors(AIndex : Integer; const AValue : TConversionStatusTypeerrorsArray);
+
+begin
+ If (Ferrors=AValue) then exit;
+ Ferrors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversionStatus.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 TConversionStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'errors' : SetLength(Ferrors,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TConversionsBatchInsertRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TConversionsBatchInsertRequest.Setconversions(AIndex : Integer; const AValue : TConversionsBatchInsertRequestTypeconversionsArray);
+
+begin
+ If (Fconversions=AValue) then exit;
+ Fconversions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversionsBatchInsertRequest.SetencryptionInfo(AIndex : Integer; const AValue : TEncryptionInfo);
+
+begin
+ If (FencryptionInfo=AValue) then exit;
+ FencryptionInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversionsBatchInsertRequest.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 TConversionsBatchInsertRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'conversions' : SetLength(Fconversions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TConversionsBatchInsertResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TConversionsBatchInsertResponse.SethasFailures(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasFailures=AValue) then exit;
+ FhasFailures:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversionsBatchInsertResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConversionsBatchInsertResponse.Setstatus(AIndex : Integer; const AValue : TConversionsBatchInsertResponseTypestatusArray);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TConversionsBatchInsertResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'status' : SetLength(Fstatus,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TCountriesListResponse
--------------------------------------------------------------------}
-Procedure TCountriesListResponse.Setcountries(AIndex : Integer; AValue : TCountriesListResponseTypecountriesArray);
+Procedure TCountriesListResponse.Setcountries(AIndex : Integer; const AValue : TCountriesListResponseTypecountriesArray);
begin
If (Fcountries=AValue) then exit;
@@ -12003,7 +12684,7 @@ end;
-Procedure TCountry.SetsslEnabled(AIndex : Integer; AValue : boolean);
+Procedure TCountry.SetsslEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FsslEnabled=AValue) then exit;
@@ -12030,7 +12711,7 @@ end;
-Procedure TCreative.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TCreative.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -12050,7 +12731,7 @@ end;
-Procedure TCreative.SetadTagKeys(AIndex : Integer; AValue : TStringArray);
+Procedure TCreative.SetadTagKeys(AIndex : Integer; const AValue : TStringArray);
begin
If (FadTagKeys=AValue) then exit;
@@ -12070,7 +12751,7 @@ end;
-Procedure TCreative.SetallowScriptAccess(AIndex : Integer; AValue : boolean);
+Procedure TCreative.SetallowScriptAccess(AIndex : Integer; const AValue : boolean);
begin
If (FallowScriptAccess=AValue) then exit;
@@ -12080,7 +12761,7 @@ end;
-Procedure TCreative.Setarchived(AIndex : Integer; AValue : boolean);
+Procedure TCreative.Setarchived(AIndex : Integer; const AValue : boolean);
begin
If (Farchived=AValue) then exit;
@@ -12100,6 +12781,16 @@ end;
+Procedure TCreative.SetauthoringSource(AIndex : Integer; const AValue : String);
+
+begin
+ If (FauthoringSource=AValue) then exit;
+ FauthoringSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TCreative.SetauthoringTool(AIndex : Integer; const AValue : String);
begin
@@ -12110,7 +12801,7 @@ end;
-Procedure TCreative.Setauto_advance_images(AIndex : Integer; AValue : boolean);
+Procedure TCreative.Setauto_advance_images(AIndex : Integer; const AValue : boolean);
begin
If (Fauto_advance_images=AValue) then exit;
@@ -12140,7 +12831,7 @@ end;
-Procedure TCreative.SetbackupImageFeatures(AIndex : Integer; AValue : TStringArray);
+Procedure TCreative.SetbackupImageFeatures(AIndex : Integer; const AValue : TStringArray);
begin
If (FbackupImageFeatures=AValue) then exit;
@@ -12160,7 +12851,7 @@ end;
-Procedure TCreative.SetbackupImageTargetWindow(AIndex : Integer; AValue : TTargetWindow);
+Procedure TCreative.SetbackupImageTargetWindow(AIndex : Integer; const AValue : TTargetWindow);
begin
If (FbackupImageTargetWindow=AValue) then exit;
@@ -12170,7 +12861,7 @@ end;
-Procedure TCreative.SetclickTags(AIndex : Integer; AValue : TCreativeTypeclickTagsArray);
+Procedure TCreative.SetclickTags(AIndex : Integer; const AValue : TCreativeTypeclickTagsArray);
begin
If (FclickTags=AValue) then exit;
@@ -12190,7 +12881,7 @@ end;
-Procedure TCreative.SetcompanionCreatives(AIndex : Integer; AValue : TStringArray);
+Procedure TCreative.SetcompanionCreatives(AIndex : Integer; const AValue : TStringArray);
begin
If (FcompanionCreatives=AValue) then exit;
@@ -12200,7 +12891,7 @@ end;
-Procedure TCreative.Setcompatibility(AIndex : Integer; AValue : TStringArray);
+Procedure TCreative.Setcompatibility(AIndex : Integer; const AValue : TStringArray);
begin
If (Fcompatibility=AValue) then exit;
@@ -12210,7 +12901,7 @@ end;
-Procedure TCreative.SetconvertFlashToHtml5(AIndex : Integer; AValue : boolean);
+Procedure TCreative.SetconvertFlashToHtml5(AIndex : Integer; const AValue : boolean);
begin
If (FconvertFlashToHtml5=AValue) then exit;
@@ -12220,7 +12911,7 @@ end;
-Procedure TCreative.SetcounterCustomEvents(AIndex : Integer; AValue : TCreativeTypecounterCustomEventsArray);
+Procedure TCreative.SetcounterCustomEvents(AIndex : Integer; const AValue : TCreativeTypecounterCustomEventsArray);
begin
If (FcounterCustomEvents=AValue) then exit;
@@ -12230,7 +12921,7 @@ end;
-Procedure TCreative.SetcreativeAssets(AIndex : Integer; AValue : TCreativeTypecreativeAssetsArray);
+Procedure TCreative.SetcreativeAssets(AIndex : Integer; const AValue : TCreativeTypecreativeAssetsArray);
begin
If (FcreativeAssets=AValue) then exit;
@@ -12240,7 +12931,7 @@ end;
-Procedure TCreative.SetcreativeFieldAssignments(AIndex : Integer; AValue : TCreativeTypecreativeFieldAssignmentsArray);
+Procedure TCreative.SetcreativeFieldAssignments(AIndex : Integer; const AValue : TCreativeTypecreativeFieldAssignmentsArray);
begin
If (FcreativeFieldAssignments=AValue) then exit;
@@ -12250,7 +12941,7 @@ end;
-Procedure TCreative.SetcustomKeyValues(AIndex : Integer; AValue : TStringArray);
+Procedure TCreative.SetcustomKeyValues(AIndex : Integer; const AValue : TStringArray);
begin
If (FcustomKeyValues=AValue) then exit;
@@ -12260,7 +12951,7 @@ end;
-Procedure TCreative.SetexitCustomEvents(AIndex : Integer; AValue : TCreativeTypeexitCustomEventsArray);
+Procedure TCreative.SetexitCustomEvents(AIndex : Integer; const AValue : TCreativeTypeexitCustomEventsArray);
begin
If (FexitCustomEvents=AValue) then exit;
@@ -12270,7 +12961,7 @@ end;
-Procedure TCreative.SetfsCommand(AIndex : Integer; AValue : TFsCommand);
+Procedure TCreative.SetfsCommand(AIndex : Integer; const AValue : TFsCommand);
begin
If (FfsCommand=AValue) then exit;
@@ -12290,7 +12981,7 @@ end;
-Procedure TCreative.SethtmlCodeLocked(AIndex : Integer; AValue : boolean);
+Procedure TCreative.SethtmlCodeLocked(AIndex : Integer; const AValue : boolean);
begin
If (FhtmlCodeLocked=AValue) then exit;
@@ -12310,7 +13001,7 @@ end;
-Procedure TCreative.SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TCreative.SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FidDimensionValue=AValue) then exit;
@@ -12330,7 +13021,7 @@ end;
-Procedure TCreative.SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TCreative.SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FlastModifiedInfo=AValue) then exit;
@@ -12390,7 +13081,7 @@ end;
-Procedure TCreative.SetrenderingIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TCreative.SetrenderingIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FrenderingIdDimensionValue=AValue) then exit;
@@ -12410,7 +13101,7 @@ end;
-Procedure TCreative.SetrequiredFlashVersion(AIndex : Integer; AValue : integer);
+Procedure TCreative.SetrequiredFlashVersion(AIndex : Integer; const AValue : integer);
begin
If (FrequiredFlashVersion=AValue) then exit;
@@ -12420,7 +13111,7 @@ end;
-Procedure TCreative.Setsize(AIndex : Integer; AValue : TSize);
+Procedure TCreative.Setsize(AIndex : Integer; const AValue : TSize);
begin
If (Fsize=AValue) then exit;
@@ -12430,7 +13121,7 @@ end;
-Procedure TCreative.Setskippable(AIndex : Integer; AValue : boolean);
+Procedure TCreative.Setskippable(AIndex : Integer; const AValue : boolean);
begin
If (Fskippable=AValue) then exit;
@@ -12440,7 +13131,7 @@ end;
-Procedure TCreative.SetsslCompliant(AIndex : Integer; AValue : boolean);
+Procedure TCreative.SetsslCompliant(AIndex : Integer; const AValue : boolean);
begin
If (FsslCompliant=AValue) then exit;
@@ -12450,6 +13141,16 @@ end;
+Procedure TCreative.SetsslOverride(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FsslOverride=AValue) then exit;
+ FsslOverride:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TCreative.SetstudioAdvertiserId(AIndex : Integer; const AValue : String);
begin
@@ -12510,7 +13211,7 @@ end;
-Procedure TCreative.SetthirdPartyUrls(AIndex : Integer; AValue : TCreativeTypethirdPartyUrlsArray);
+Procedure TCreative.SetthirdPartyUrls(AIndex : Integer; const AValue : TCreativeTypethirdPartyUrlsArray);
begin
If (FthirdPartyUrls=AValue) then exit;
@@ -12520,7 +13221,7 @@ end;
-Procedure TCreative.SettimerCustomEvents(AIndex : Integer; AValue : TCreativeTypetimerCustomEventsArray);
+Procedure TCreative.SettimerCustomEvents(AIndex : Integer; const AValue : TCreativeTypetimerCustomEventsArray);
begin
If (FtimerCustomEvents=AValue) then exit;
@@ -12550,7 +13251,7 @@ end;
-Procedure TCreative.Setversion(AIndex : Integer; AValue : integer);
+Procedure TCreative.Setversion(AIndex : Integer; const AValue : integer);
begin
If (Fversion=AValue) then exit;
@@ -12570,7 +13271,7 @@ end;
-Procedure TCreative.SetvideoDuration(AIndex : Integer; AValue : integer);
+Procedure TCreative.SetvideoDuration(AIndex : Integer; const AValue : integer);
begin
If (FvideoDuration=AValue) then exit;
@@ -12622,7 +13323,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCreativeAsset.SetactionScript3(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAsset.SetactionScript3(AIndex : Integer; const AValue : boolean);
begin
If (FactionScript3=AValue) then exit;
@@ -12632,7 +13333,7 @@ end;
-Procedure TCreativeAsset.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAsset.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -12662,7 +13363,7 @@ end;
-Procedure TCreativeAsset.SetassetIdentifier(AIndex : Integer; AValue : TCreativeAssetId);
+Procedure TCreativeAsset.SetassetIdentifier(AIndex : Integer; const AValue : TCreativeAssetId);
begin
If (FassetIdentifier=AValue) then exit;
@@ -12672,7 +13373,7 @@ end;
-Procedure TCreativeAsset.SetbackupImageExit(AIndex : Integer; AValue : TCreativeCustomEvent);
+Procedure TCreativeAsset.SetbackupImageExit(AIndex : Integer; const AValue : TCreativeCustomEvent);
begin
If (FbackupImageExit=AValue) then exit;
@@ -12682,7 +13383,7 @@ end;
-Procedure TCreativeAsset.SetbitRate(AIndex : Integer; AValue : integer);
+Procedure TCreativeAsset.SetbitRate(AIndex : Integer; const AValue : integer);
begin
If (FbitRate=AValue) then exit;
@@ -12702,7 +13403,7 @@ end;
-Procedure TCreativeAsset.SetcollapsedSize(AIndex : Integer; AValue : TSize);
+Procedure TCreativeAsset.SetcollapsedSize(AIndex : Integer; const AValue : TSize);
begin
If (FcollapsedSize=AValue) then exit;
@@ -12712,7 +13413,7 @@ end;
-Procedure TCreativeAsset.SetcustomStartTimeValue(AIndex : Integer; AValue : integer);
+Procedure TCreativeAsset.SetcustomStartTimeValue(AIndex : Integer; const AValue : integer);
begin
If (FcustomStartTimeValue=AValue) then exit;
@@ -12722,7 +13423,7 @@ end;
-Procedure TCreativeAsset.SetdetectedFeatures(AIndex : Integer; AValue : TStringArray);
+Procedure TCreativeAsset.SetdetectedFeatures(AIndex : Integer; const AValue : TStringArray);
begin
If (FdetectedFeatures=AValue) then exit;
@@ -12742,7 +13443,7 @@ end;
-Procedure TCreativeAsset.Setduration(AIndex : Integer; AValue : integer);
+Procedure TCreativeAsset.Setduration(AIndex : Integer; const AValue : integer);
begin
If (Fduration=AValue) then exit;
@@ -12762,7 +13463,7 @@ end;
-Procedure TCreativeAsset.SetexpandedDimension(AIndex : Integer; AValue : TSize);
+Procedure TCreativeAsset.SetexpandedDimension(AIndex : Integer; const AValue : TSize);
begin
If (FexpandedDimension=AValue) then exit;
@@ -12782,7 +13483,7 @@ end;
-Procedure TCreativeAsset.SetflashVersion(AIndex : Integer; AValue : integer);
+Procedure TCreativeAsset.SetflashVersion(AIndex : Integer; const AValue : integer);
begin
If (FflashVersion=AValue) then exit;
@@ -12792,7 +13493,7 @@ end;
-Procedure TCreativeAsset.SethideFlashObjects(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAsset.SethideFlashObjects(AIndex : Integer; const AValue : boolean);
begin
If (FhideFlashObjects=AValue) then exit;
@@ -12802,7 +13503,7 @@ end;
-Procedure TCreativeAsset.SethideSelectionBoxes(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAsset.SethideSelectionBoxes(AIndex : Integer; const AValue : boolean);
begin
If (FhideSelectionBoxes=AValue) then exit;
@@ -12812,7 +13513,7 @@ end;
-Procedure TCreativeAsset.SethorizontallyLocked(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAsset.SethorizontallyLocked(AIndex : Integer; const AValue : boolean);
begin
If (FhorizontallyLocked=AValue) then exit;
@@ -12842,7 +13543,7 @@ end;
-Procedure TCreativeAsset.Setoffset(AIndex : Integer; AValue : TOffsetPosition);
+Procedure TCreativeAsset.Setoffset(AIndex : Integer; const AValue : TOffsetPosition);
begin
If (Foffset=AValue) then exit;
@@ -12852,7 +13553,7 @@ end;
-Procedure TCreativeAsset.SetoriginalBackup(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAsset.SetoriginalBackup(AIndex : Integer; const AValue : boolean);
begin
If (ForiginalBackup=AValue) then exit;
@@ -12862,7 +13563,7 @@ end;
-Procedure TCreativeAsset.Setposition(AIndex : Integer; AValue : TOffsetPosition);
+Procedure TCreativeAsset.Setposition(AIndex : Integer; const AValue : TOffsetPosition);
begin
If (Fposition=AValue) then exit;
@@ -12902,7 +13603,7 @@ end;
-Procedure TCreativeAsset.Setpushdown(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAsset.Setpushdown(AIndex : Integer; const AValue : boolean);
begin
If (Fpushdown=AValue) then exit;
@@ -12912,7 +13613,7 @@ end;
-Procedure TCreativeAsset.SetpushdownDuration(AIndex : Integer; AValue : integer);
+Procedure TCreativeAsset.SetpushdownDuration(AIndex : Integer; const AValue : integer);
begin
If (FpushdownDuration=AValue) then exit;
@@ -12932,7 +13633,7 @@ end;
-Procedure TCreativeAsset.Setsize(AIndex : Integer; AValue : TSize);
+Procedure TCreativeAsset.Setsize(AIndex : Integer; const AValue : TSize);
begin
If (Fsize=AValue) then exit;
@@ -12942,7 +13643,7 @@ end;
-Procedure TCreativeAsset.SetsslCompliant(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAsset.SetsslCompliant(AIndex : Integer; const AValue : boolean);
begin
If (FsslCompliant=AValue) then exit;
@@ -12972,7 +13673,7 @@ end;
-Procedure TCreativeAsset.Settransparency(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAsset.Settransparency(AIndex : Integer; const AValue : boolean);
begin
If (Ftransparency=AValue) then exit;
@@ -12982,7 +13683,7 @@ end;
-Procedure TCreativeAsset.SetverticallyLocked(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAsset.SetverticallyLocked(AIndex : Integer; const AValue : boolean);
begin
If (FverticallyLocked=AValue) then exit;
@@ -12992,7 +13693,7 @@ end;
-Procedure TCreativeAsset.SetvideoDuration(AIndex : Integer; AValue : integer);
+Procedure TCreativeAsset.SetvideoDuration(AIndex : Integer; const AValue : integer);
begin
If (FvideoDuration=AValue) then exit;
@@ -13012,7 +13713,7 @@ end;
-Procedure TCreativeAsset.SetzIndex(AIndex : Integer; AValue : integer);
+Procedure TCreativeAsset.SetzIndex(AIndex : Integer; const AValue : integer);
begin
If (FzIndex=AValue) then exit;
@@ -13100,7 +13801,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCreativeAssetMetadata.SetassetIdentifier(AIndex : Integer; AValue : TCreativeAssetId);
+Procedure TCreativeAssetMetadata.SetassetIdentifier(AIndex : Integer; const AValue : TCreativeAssetId);
begin
If (FassetIdentifier=AValue) then exit;
@@ -13110,7 +13811,7 @@ end;
-Procedure TCreativeAssetMetadata.SetclickTags(AIndex : Integer; AValue : TCreativeAssetMetadataTypeclickTagsArray);
+Procedure TCreativeAssetMetadata.SetclickTags(AIndex : Integer; const AValue : TCreativeAssetMetadataTypeclickTagsArray);
begin
If (FclickTags=AValue) then exit;
@@ -13120,7 +13821,7 @@ end;
-Procedure TCreativeAssetMetadata.SetdetectedFeatures(AIndex : Integer; AValue : TStringArray);
+Procedure TCreativeAssetMetadata.SetdetectedFeatures(AIndex : Integer; const AValue : TStringArray);
begin
If (FdetectedFeatures=AValue) then exit;
@@ -13140,7 +13841,7 @@ end;
-Procedure TCreativeAssetMetadata.SetwarnedValidationRules(AIndex : Integer; AValue : TStringArray);
+Procedure TCreativeAssetMetadata.SetwarnedValidationRules(AIndex : Integer; const AValue : TStringArray);
begin
If (FwarnedValidationRules=AValue) then exit;
@@ -13172,7 +13873,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCreativeAssignment.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAssignment.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -13182,7 +13883,7 @@ end;
-Procedure TCreativeAssignment.SetapplyEventTags(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAssignment.SetapplyEventTags(AIndex : Integer; const AValue : boolean);
begin
If (FapplyEventTags=AValue) then exit;
@@ -13192,7 +13893,7 @@ end;
-Procedure TCreativeAssignment.SetclickThroughUrl(AIndex : Integer; AValue : TClickThroughUrl);
+Procedure TCreativeAssignment.SetclickThroughUrl(AIndex : Integer; const AValue : TClickThroughUrl);
begin
If (FclickThroughUrl=AValue) then exit;
@@ -13202,7 +13903,7 @@ end;
-Procedure TCreativeAssignment.SetcompanionCreativeOverrides(AIndex : Integer; AValue : TCreativeAssignmentTypecompanionCreativeOverridesArray);
+Procedure TCreativeAssignment.SetcompanionCreativeOverrides(AIndex : Integer; const AValue : TCreativeAssignmentTypecompanionCreativeOverridesArray);
begin
If (FcompanionCreativeOverrides=AValue) then exit;
@@ -13212,7 +13913,7 @@ end;
-Procedure TCreativeAssignment.SetcreativeGroupAssignments(AIndex : Integer; AValue : TCreativeAssignmentTypecreativeGroupAssignmentsArray);
+Procedure TCreativeAssignment.SetcreativeGroupAssignments(AIndex : Integer; const AValue : TCreativeAssignmentTypecreativeGroupAssignmentsArray);
begin
If (FcreativeGroupAssignments=AValue) then exit;
@@ -13232,7 +13933,7 @@ end;
-Procedure TCreativeAssignment.SetcreativeIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TCreativeAssignment.SetcreativeIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FcreativeIdDimensionValue=AValue) then exit;
@@ -13242,7 +13943,7 @@ end;
-Procedure TCreativeAssignment.SetendTime(AIndex : Integer; AValue : TDatetime);
+Procedure TCreativeAssignment.SetendTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FendTime=AValue) then exit;
@@ -13252,7 +13953,7 @@ end;
-Procedure TCreativeAssignment.SetrichMediaExitOverrides(AIndex : Integer; AValue : TCreativeAssignmentTyperichMediaExitOverridesArray);
+Procedure TCreativeAssignment.SetrichMediaExitOverrides(AIndex : Integer; const AValue : TCreativeAssignmentTyperichMediaExitOverridesArray);
begin
If (FrichMediaExitOverrides=AValue) then exit;
@@ -13262,7 +13963,7 @@ end;
-Procedure TCreativeAssignment.Setsequence(AIndex : Integer; AValue : integer);
+Procedure TCreativeAssignment.Setsequence(AIndex : Integer; const AValue : integer);
begin
If (Fsequence=AValue) then exit;
@@ -13272,7 +13973,7 @@ end;
-Procedure TCreativeAssignment.SetsslCompliant(AIndex : Integer; AValue : boolean);
+Procedure TCreativeAssignment.SetsslCompliant(AIndex : Integer; const AValue : boolean);
begin
If (FsslCompliant=AValue) then exit;
@@ -13282,7 +13983,7 @@ end;
-Procedure TCreativeAssignment.SetstartTime(AIndex : Integer; AValue : TDatetime);
+Procedure TCreativeAssignment.SetstartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FstartTime=AValue) then exit;
@@ -13292,7 +13993,7 @@ end;
-Procedure TCreativeAssignment.Setweight(AIndex : Integer; AValue : integer);
+Procedure TCreativeAssignment.Setweight(AIndex : Integer; const AValue : integer);
begin
If (Fweight=AValue) then exit;
@@ -13324,11 +14025,11 @@ end;
--------------------------------------------------------------------}
-Procedure TCreativeCustomEvent.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TCreativeCustomEvent.SetadvertiserCustomEventId(AIndex : Integer; const AValue : String);
begin
- If (Factive=AValue) then exit;
- Factive:=AValue;
+ If (FadvertiserCustomEventId=AValue) then exit;
+ FadvertiserCustomEventId:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -13394,7 +14095,7 @@ end;
-Procedure TCreativeCustomEvent.SetpopupWindowProperties(AIndex : Integer; AValue : TPopupWindowProperties);
+Procedure TCreativeCustomEvent.SetpopupWindowProperties(AIndex : Integer; const AValue : TPopupWindowProperties);
begin
If (FpopupWindowProperties=AValue) then exit;
@@ -13451,7 +14152,7 @@ end;
-Procedure TCreativeField.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TCreativeField.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -13572,7 +14273,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCreativeFieldValuesListResponse.SetcreativeFieldValues(AIndex : Integer; AValue : TCreativeFieldValuesListResponseTypecreativeFieldValuesArray);
+Procedure TCreativeFieldValuesListResponse.SetcreativeFieldValues(AIndex : Integer; const AValue : TCreativeFieldValuesListResponseTypecreativeFieldValuesArray);
begin
If (FcreativeFieldValues=AValue) then exit;
@@ -13622,7 +14323,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCreativeFieldsListResponse.SetcreativeFields(AIndex : Integer; AValue : TCreativeFieldsListResponseTypecreativeFieldsArray);
+Procedure TCreativeFieldsListResponse.SetcreativeFields(AIndex : Integer; const AValue : TCreativeFieldsListResponseTypecreativeFieldsArray);
begin
If (FcreativeFields=AValue) then exit;
@@ -13692,7 +14393,7 @@ end;
-Procedure TCreativeGroup.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TCreativeGroup.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -13702,7 +14403,7 @@ end;
-Procedure TCreativeGroup.SetgroupNumber(AIndex : Integer; AValue : integer);
+Procedure TCreativeGroup.SetgroupNumber(AIndex : Integer; const AValue : integer);
begin
If (FgroupNumber=AValue) then exit;
@@ -13786,7 +14487,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCreativeGroupsListResponse.SetcreativeGroups(AIndex : Integer; AValue : TCreativeGroupsListResponseTypecreativeGroupsArray);
+Procedure TCreativeGroupsListResponse.SetcreativeGroups(AIndex : Integer; const AValue : TCreativeGroupsListResponseTypecreativeGroupsArray);
begin
If (FcreativeGroups=AValue) then exit;
@@ -13856,7 +14557,7 @@ end;
-Procedure TCreativeOptimizationConfiguration.SetoptimizationActivitys(AIndex : Integer; AValue : TCreativeOptimizationConfigurationTypeoptimizationActivitysArray);
+Procedure TCreativeOptimizationConfiguration.SetoptimizationActivitys(AIndex : Integer; const AValue : TCreativeOptimizationConfigurationTypeoptimizationActivitysArray);
begin
If (FoptimizationActivitys=AValue) then exit;
@@ -13896,7 +14597,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCreativeRotation.SetcreativeAssignments(AIndex : Integer; AValue : TCreativeRotationTypecreativeAssignmentsArray);
+Procedure TCreativeRotation.SetcreativeAssignments(AIndex : Integer; const AValue : TCreativeRotationTypecreativeAssignmentsArray);
begin
If (FcreativeAssignments=AValue) then exit;
@@ -13994,7 +14695,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCreativesListResponse.Setcreatives(AIndex : Integer; AValue : TCreativesListResponseTypecreativesArray);
+Procedure TCreativesListResponse.Setcreatives(AIndex : Integer; const AValue : TCreativesListResponseTypecreativesArray);
begin
If (Fcreatives=AValue) then exit;
@@ -14044,7 +14745,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCrossDimensionReachReportCompatibleFields.Setbreakdown(AIndex : Integer; AValue : TCrossDimensionReachReportCompatibleFieldsTypebreakdownArray);
+Procedure TCrossDimensionReachReportCompatibleFields.Setbreakdown(AIndex : Integer; const AValue : TCrossDimensionReachReportCompatibleFieldsTypebreakdownArray);
begin
If (Fbreakdown=AValue) then exit;
@@ -14054,7 +14755,7 @@ end;
-Procedure TCrossDimensionReachReportCompatibleFields.SetdimensionFilters(AIndex : Integer; AValue : TCrossDimensionReachReportCompatibleFieldsTypedimensionFiltersArray);
+Procedure TCrossDimensionReachReportCompatibleFields.SetdimensionFilters(AIndex : Integer; const AValue : TCrossDimensionReachReportCompatibleFieldsTypedimensionFiltersArray);
begin
If (FdimensionFilters=AValue) then exit;
@@ -14074,7 +14775,7 @@ end;
-Procedure TCrossDimensionReachReportCompatibleFields.Setmetrics(AIndex : Integer; AValue : TCrossDimensionReachReportCompatibleFieldsTypemetricsArray);
+Procedure TCrossDimensionReachReportCompatibleFields.Setmetrics(AIndex : Integer; const AValue : TCrossDimensionReachReportCompatibleFieldsTypemetricsArray);
begin
If (Fmetrics=AValue) then exit;
@@ -14084,7 +14785,7 @@ end;
-Procedure TCrossDimensionReachReportCompatibleFields.SetoverlapMetrics(AIndex : Integer; AValue : TCrossDimensionReachReportCompatibleFieldsTypeoverlapMetricsArray);
+Procedure TCrossDimensionReachReportCompatibleFields.SetoverlapMetrics(AIndex : Integer; const AValue : TCrossDimensionReachReportCompatibleFieldsTypeoverlapMetricsArray);
begin
If (FoverlapMetrics=AValue) then exit;
@@ -14113,11 +14814,59 @@ end;
{ --------------------------------------------------------------------
+ TCustomFloodlightVariable
+ --------------------------------------------------------------------}
+
+
+Procedure TCustomFloodlightVariable.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCustomFloodlightVariable.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCustomFloodlightVariable.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TCustomFloodlightVariable.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
TCustomRichMediaEvents
--------------------------------------------------------------------}
-Procedure TCustomRichMediaEvents.SetfilteredEventIds(AIndex : Integer; AValue : TCustomRichMediaEventsTypefilteredEventIdsArray);
+Procedure TCustomRichMediaEvents.SetfilteredEventIds(AIndex : Integer; const AValue : TCustomRichMediaEventsTypefilteredEventIdsArray);
begin
If (FfilteredEventIds=AValue) then exit;
@@ -14157,7 +14906,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDateRange.SetendDate(AIndex : Integer; AValue : TDate);
+Procedure TDateRange.SetendDate(AIndex : Integer; const AValue : TDate);
begin
If (FendDate=AValue) then exit;
@@ -14187,7 +14936,7 @@ end;
-Procedure TDateRange.SetstartDate(AIndex : Integer; AValue : TDate);
+Procedure TDateRange.SetstartDate(AIndex : Integer; const AValue : TDate);
begin
If (FstartDate=AValue) then exit;
@@ -14204,7 +14953,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDayPartTargeting.SetdaysOfWeek(AIndex : Integer; AValue : TStringArray);
+Procedure TDayPartTargeting.SetdaysOfWeek(AIndex : Integer; const AValue : TStringArray);
begin
If (FdaysOfWeek=AValue) then exit;
@@ -14214,7 +14963,7 @@ end;
-Procedure TDayPartTargeting.SethoursOfDay(AIndex : Integer; AValue : TintegerArray);
+Procedure TDayPartTargeting.SethoursOfDay(AIndex : Integer; const AValue : TintegerArray);
begin
If (FhoursOfDay=AValue) then exit;
@@ -14224,7 +14973,7 @@ end;
-Procedure TDayPartTargeting.SetuserLocalTime(AIndex : Integer; AValue : boolean);
+Procedure TDayPartTargeting.SetuserLocalTime(AIndex : Integer; const AValue : boolean);
begin
If (FuserLocalTime=AValue) then exit;
@@ -14265,7 +15014,7 @@ end;
-Procedure TDefaultClickThroughEventTagProperties.SetoverrideInheritedEventTag(AIndex : Integer; AValue : boolean);
+Procedure TDefaultClickThroughEventTagProperties.SetoverrideInheritedEventTag(AIndex : Integer; const AValue : boolean);
begin
If (FoverrideInheritedEventTag=AValue) then exit;
@@ -14282,7 +15031,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDeliverySchedule.SetfrequencyCap(AIndex : Integer; AValue : TFrequencyCap);
+Procedure TDeliverySchedule.SetfrequencyCap(AIndex : Integer; const AValue : TFrequencyCap);
begin
If (FfrequencyCap=AValue) then exit;
@@ -14292,7 +15041,7 @@ end;
-Procedure TDeliverySchedule.SethardCutoff(AIndex : Integer; AValue : boolean);
+Procedure TDeliverySchedule.SethardCutoff(AIndex : Integer; const AValue : boolean);
begin
If (FhardCutoff=AValue) then exit;
@@ -14349,7 +15098,7 @@ end;
-Procedure TDfpSettings.SetprogrammaticPlacementAccepted(AIndex : Integer; AValue : boolean);
+Procedure TDfpSettings.SetprogrammaticPlacementAccepted(AIndex : Integer; const AValue : boolean);
begin
If (FprogrammaticPlacementAccepted=AValue) then exit;
@@ -14359,7 +15108,7 @@ end;
-Procedure TDfpSettings.SetpubPaidPlacementAccepted(AIndex : Integer; AValue : boolean);
+Procedure TDfpSettings.SetpubPaidPlacementAccepted(AIndex : Integer; const AValue : boolean);
begin
If (FpubPaidPlacementAccepted=AValue) then exit;
@@ -14369,7 +15118,7 @@ end;
-Procedure TDfpSettings.SetpublisherPortalOnly(AIndex : Integer; AValue : boolean);
+Procedure TDfpSettings.SetpublisherPortalOnly(AIndex : Integer; const AValue : boolean);
begin
If (FpublisherPortalOnly=AValue) then exit;
@@ -14527,7 +15276,7 @@ end;
-Procedure TDimensionValueList.Setitems(AIndex : Integer; AValue : TDimensionValueListTypeitemsArray);
+Procedure TDimensionValueList.Setitems(AIndex : Integer; const AValue : TDimensionValueListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -14587,7 +15336,7 @@ end;
-Procedure TDimensionValueRequest.SetendDate(AIndex : Integer; AValue : TDate);
+Procedure TDimensionValueRequest.SetendDate(AIndex : Integer; const AValue : TDate);
begin
If (FendDate=AValue) then exit;
@@ -14597,7 +15346,7 @@ end;
-Procedure TDimensionValueRequest.Setfilters(AIndex : Integer; AValue : TDimensionValueRequestTypefiltersArray);
+Procedure TDimensionValueRequest.Setfilters(AIndex : Integer; const AValue : TDimensionValueRequestTypefiltersArray);
begin
If (Ffilters=AValue) then exit;
@@ -14617,7 +15366,7 @@ end;
-Procedure TDimensionValueRequest.SetstartDate(AIndex : Integer; AValue : TDate);
+Procedure TDimensionValueRequest.SetstartDate(AIndex : Integer; const AValue : TDate);
begin
If (FstartDate=AValue) then exit;
@@ -14647,7 +15396,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDirectorySite.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TDirectorySite.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -14657,7 +15406,7 @@ end;
-Procedure TDirectorySite.SetcontactAssignments(AIndex : Integer; AValue : TDirectorySiteTypecontactAssignmentsArray);
+Procedure TDirectorySite.SetcontactAssignments(AIndex : Integer; const AValue : TDirectorySiteTypecontactAssignmentsArray);
begin
If (FcontactAssignments=AValue) then exit;
@@ -14707,7 +15456,7 @@ end;
-Procedure TDirectorySite.SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TDirectorySite.SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FidDimensionValue=AValue) then exit;
@@ -14717,7 +15466,7 @@ end;
-Procedure TDirectorySite.SetinpageTagFormats(AIndex : Integer; AValue : TStringArray);
+Procedure TDirectorySite.SetinpageTagFormats(AIndex : Integer; const AValue : TStringArray);
begin
If (FinpageTagFormats=AValue) then exit;
@@ -14727,7 +15476,7 @@ end;
-Procedure TDirectorySite.SetinterstitialTagFormats(AIndex : Integer; AValue : TStringArray);
+Procedure TDirectorySite.SetinterstitialTagFormats(AIndex : Integer; const AValue : TStringArray);
begin
If (FinterstitialTagFormats=AValue) then exit;
@@ -14767,7 +15516,7 @@ end;
-Procedure TDirectorySite.Setsettings(AIndex : Integer; AValue : TDirectorySiteSettings);
+Procedure TDirectorySite.Setsettings(AIndex : Integer; const AValue : TDirectorySiteSettings);
begin
If (Fsettings=AValue) then exit;
@@ -14954,7 +15703,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDirectorySiteContactsListResponse.SetdirectorySiteContacts(AIndex : Integer; AValue : TDirectorySiteContactsListResponseTypedirectorySiteContactsArray);
+Procedure TDirectorySiteContactsListResponse.SetdirectorySiteContacts(AIndex : Integer; const AValue : TDirectorySiteContactsListResponseTypedirectorySiteContactsArray);
begin
If (FdirectorySiteContacts=AValue) then exit;
@@ -15004,7 +15753,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDirectorySiteSettings.SetactiveViewOptOut(AIndex : Integer; AValue : boolean);
+Procedure TDirectorySiteSettings.SetactiveViewOptOut(AIndex : Integer; const AValue : boolean);
begin
If (FactiveViewOptOut=AValue) then exit;
@@ -15014,7 +15763,7 @@ end;
-Procedure TDirectorySiteSettings.Setdfp_settings(AIndex : Integer; AValue : TDfpSettings);
+Procedure TDirectorySiteSettings.Setdfp_settings(AIndex : Integer; const AValue : TDfpSettings);
begin
If (Fdfp_settings=AValue) then exit;
@@ -15024,7 +15773,7 @@ end;
-Procedure TDirectorySiteSettings.Setinstream_video_placement_accepted(AIndex : Integer; AValue : boolean);
+Procedure TDirectorySiteSettings.Setinstream_video_placement_accepted(AIndex : Integer; const AValue : boolean);
begin
If (Finstream_video_placement_accepted=AValue) then exit;
@@ -15034,7 +15783,7 @@ end;
-Procedure TDirectorySiteSettings.SetinterstitialPlacementAccepted(AIndex : Integer; AValue : boolean);
+Procedure TDirectorySiteSettings.SetinterstitialPlacementAccepted(AIndex : Integer; const AValue : boolean);
begin
If (FinterstitialPlacementAccepted=AValue) then exit;
@@ -15044,7 +15793,7 @@ end;
-Procedure TDirectorySiteSettings.SetnielsenOcrOptOut(AIndex : Integer; AValue : boolean);
+Procedure TDirectorySiteSettings.SetnielsenOcrOptOut(AIndex : Integer; const AValue : boolean);
begin
If (FnielsenOcrOptOut=AValue) then exit;
@@ -15054,7 +15803,7 @@ end;
-Procedure TDirectorySiteSettings.SetverificationTagOptOut(AIndex : Integer; AValue : boolean);
+Procedure TDirectorySiteSettings.SetverificationTagOptOut(AIndex : Integer; const AValue : boolean);
begin
If (FverificationTagOptOut=AValue) then exit;
@@ -15064,7 +15813,7 @@ end;
-Procedure TDirectorySiteSettings.SetvideoActiveViewOptOut(AIndex : Integer; AValue : boolean);
+Procedure TDirectorySiteSettings.SetvideoActiveViewOptOut(AIndex : Integer; const AValue : boolean);
begin
If (FvideoActiveViewOptOut=AValue) then exit;
@@ -15081,7 +15830,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDirectorySitesListResponse.SetdirectorySites(AIndex : Integer; AValue : TDirectorySitesListResponseTypedirectorySitesArray);
+Procedure TDirectorySitesListResponse.SetdirectorySites(AIndex : Integer; const AValue : TDirectorySitesListResponseTypedirectorySitesArray);
begin
If (FdirectorySites=AValue) then exit;
@@ -15127,6 +15876,140 @@ end;
{ --------------------------------------------------------------------
+ TDynamicTargetingKey
+ --------------------------------------------------------------------}
+
+
+Procedure TDynamicTargetingKey.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDynamicTargetingKey.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDynamicTargetingKey.SetobjectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FobjectId=AValue) then exit;
+ FobjectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDynamicTargetingKey.SetobjectType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FobjectType=AValue) then exit;
+ FobjectType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDynamicTargetingKeysListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TDynamicTargetingKeysListResponse.SetdynamicTargetingKeys(AIndex : Integer; const AValue : TDynamicTargetingKeysListResponseTypedynamicTargetingKeysArray);
+
+begin
+ If (FdynamicTargetingKeys=AValue) then exit;
+ FdynamicTargetingKeys:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDynamicTargetingKeysListResponse.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 TDynamicTargetingKeysListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dynamictargetingkeys' : SetLength(FdynamicTargetingKeys,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEncryptionInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TEncryptionInfo.SetencryptionEntityId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FencryptionEntityId=AValue) then exit;
+ FencryptionEntityId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEncryptionInfo.SetencryptionEntityType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FencryptionEntityType=AValue) then exit;
+ FencryptionEntityType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEncryptionInfo.SetencryptionSource(AIndex : Integer; const AValue : String);
+
+begin
+ If (FencryptionSource=AValue) then exit;
+ FencryptionSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEncryptionInfo.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TEventTag
--------------------------------------------------------------------}
@@ -15151,7 +16034,7 @@ end;
-Procedure TEventTag.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TEventTag.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -15171,7 +16054,7 @@ end;
-Procedure TEventTag.SetcampaignIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TEventTag.SetcampaignIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FcampaignIdDimensionValue=AValue) then exit;
@@ -15181,7 +16064,7 @@ end;
-Procedure TEventTag.SetenabledByDefault(AIndex : Integer; AValue : boolean);
+Procedure TEventTag.SetenabledByDefault(AIndex : Integer; const AValue : boolean);
begin
If (FenabledByDefault=AValue) then exit;
@@ -15191,6 +16074,16 @@ end;
+Procedure TEventTag.SetexcludeFromAdxRequests(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FexcludeFromAdxRequests=AValue) then exit;
+ FexcludeFromAdxRequests:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TEventTag.Setid(AIndex : Integer; const AValue : String);
begin
@@ -15231,7 +16124,7 @@ end;
-Procedure TEventTag.SetsiteIds(AIndex : Integer; AValue : TStringArray);
+Procedure TEventTag.SetsiteIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FsiteIds=AValue) then exit;
@@ -15241,7 +16134,7 @@ end;
-Procedure TEventTag.SetsslCompliant(AIndex : Integer; AValue : boolean);
+Procedure TEventTag.SetsslCompliant(AIndex : Integer; const AValue : boolean);
begin
If (FsslCompliant=AValue) then exit;
@@ -15291,7 +16184,7 @@ end;
-Procedure TEventTag.SeturlEscapeLevels(AIndex : Integer; AValue : integer);
+Procedure TEventTag.SeturlEscapeLevels(AIndex : Integer; const AValue : integer);
begin
If (FurlEscapeLevels=AValue) then exit;
@@ -15332,7 +16225,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEventTagOverride.Setenabled(AIndex : Integer; AValue : boolean);
+Procedure TEventTagOverride.Setenabled(AIndex : Integer; const AValue : boolean);
begin
If (Fenabled=AValue) then exit;
@@ -15359,7 +16252,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEventTagsListResponse.SeteventTags(AIndex : Integer; AValue : TEventTagsListResponseTypeeventTagsArray);
+Procedure TEventTagsListResponse.SeteventTags(AIndex : Integer; const AValue : TEventTagsListResponseTypeeventTagsArray);
begin
If (FeventTags=AValue) then exit;
@@ -15426,7 +16319,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFile.SetdateRange(AIndex : Integer; AValue : TDateRange);
+Procedure TFile.SetdateRange(AIndex : Integer; const AValue : TDateRange);
begin
If (FdateRange=AValue) then exit;
@@ -15516,7 +16409,7 @@ end;
-Procedure TFile.Seturls(AIndex : Integer; AValue : TFileTypeurls);
+Procedure TFile.Seturls(AIndex : Integer; const AValue : TFileTypeurls);
begin
If (Furls=AValue) then exit;
@@ -15543,7 +16436,7 @@ end;
-Procedure TFileList.Setitems(AIndex : Integer; AValue : TFileListTypeitemsArray);
+Procedure TFileList.Setitems(AIndex : Integer; const AValue : TFileListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -15593,7 +16486,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFlight.SetendDate(AIndex : Integer; AValue : TDate);
+Procedure TFlight.SetendDate(AIndex : Integer; const AValue : TDate);
begin
If (FendDate=AValue) then exit;
@@ -15613,7 +16506,7 @@ end;
-Procedure TFlight.SetstartDate(AIndex : Integer; AValue : TDate);
+Procedure TFlight.SetstartDate(AIndex : Integer; const AValue : TDate);
begin
If (FstartDate=AValue) then exit;
@@ -15667,7 +16560,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFloodlightActivitiesListResponse.SetfloodlightActivities(AIndex : Integer; AValue : TFloodlightActivitiesListResponseTypefloodlightActivitiesArray);
+Procedure TFloodlightActivitiesListResponse.SetfloodlightActivities(AIndex : Integer; const AValue : TFloodlightActivitiesListResponseTypefloodlightActivitiesArray);
begin
If (FfloodlightActivities=AValue) then exit;
@@ -15737,7 +16630,7 @@ end;
-Procedure TFloodlightActivity.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TFloodlightActivity.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -15767,7 +16660,7 @@ end;
-Procedure TFloodlightActivity.SetdefaultTags(AIndex : Integer; AValue : TFloodlightActivityTypedefaultTagsArray);
+Procedure TFloodlightActivity.SetdefaultTags(AIndex : Integer; const AValue : TFloodlightActivityTypedefaultTagsArray);
begin
If (FdefaultTags=AValue) then exit;
@@ -15837,7 +16730,7 @@ end;
-Procedure TFloodlightActivity.SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TFloodlightActivity.SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FfloodlightConfigurationIdDimensionValue=AValue) then exit;
@@ -15847,7 +16740,7 @@ end;
-Procedure TFloodlightActivity.Sethidden(AIndex : Integer; AValue : boolean);
+Procedure TFloodlightActivity.Sethidden(AIndex : Integer; const AValue : boolean);
begin
If (Fhidden=AValue) then exit;
@@ -15867,7 +16760,7 @@ end;
-Procedure TFloodlightActivity.SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TFloodlightActivity.SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FidDimensionValue=AValue) then exit;
@@ -15877,7 +16770,7 @@ end;
-Procedure TFloodlightActivity.SetimageTagEnabled(AIndex : Integer; AValue : boolean);
+Procedure TFloodlightActivity.SetimageTagEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FimageTagEnabled=AValue) then exit;
@@ -15917,7 +16810,7 @@ end;
-Procedure TFloodlightActivity.SetpublisherTags(AIndex : Integer; AValue : TFloodlightActivityTypepublisherTagsArray);
+Procedure TFloodlightActivity.SetpublisherTags(AIndex : Integer; const AValue : TFloodlightActivityTypepublisherTagsArray);
begin
If (FpublisherTags=AValue) then exit;
@@ -15927,7 +16820,7 @@ end;
-Procedure TFloodlightActivity.Setsecure(AIndex : Integer; AValue : boolean);
+Procedure TFloodlightActivity.Setsecure(AIndex : Integer; const AValue : boolean);
begin
If (Fsecure=AValue) then exit;
@@ -15937,7 +16830,7 @@ end;
-Procedure TFloodlightActivity.SetsslCompliant(AIndex : Integer; AValue : boolean);
+Procedure TFloodlightActivity.SetsslCompliant(AIndex : Integer; const AValue : boolean);
begin
If (FsslCompliant=AValue) then exit;
@@ -15947,7 +16840,7 @@ end;
-Procedure TFloodlightActivity.SetsslRequired(AIndex : Integer; AValue : boolean);
+Procedure TFloodlightActivity.SetsslRequired(AIndex : Integer; const AValue : boolean);
begin
If (FsslRequired=AValue) then exit;
@@ -15987,7 +16880,7 @@ end;
-Procedure TFloodlightActivity.SetuserDefinedVariableTypes(AIndex : Integer; AValue : TStringArray);
+Procedure TFloodlightActivity.SetuserDefinedVariableTypes(AIndex : Integer; const AValue : TStringArray);
begin
If (FuserDefinedVariableTypes=AValue) then exit;
@@ -16076,7 +16969,7 @@ end;
-Procedure TFloodlightActivityGroup.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TFloodlightActivityGroup.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -16096,7 +16989,7 @@ end;
-Procedure TFloodlightActivityGroup.SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TFloodlightActivityGroup.SetfloodlightConfigurationIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FfloodlightConfigurationIdDimensionValue=AValue) then exit;
@@ -16116,7 +17009,7 @@ end;
-Procedure TFloodlightActivityGroup.SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TFloodlightActivityGroup.SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FidDimensionValue=AValue) then exit;
@@ -16194,7 +17087,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFloodlightActivityGroupsListResponse.SetfloodlightActivityGroups(AIndex : Integer; AValue : TFloodlightActivityGroupsListResponseTypefloodlightActivityGroupsArray);
+Procedure TFloodlightActivityGroupsListResponse.SetfloodlightActivityGroups(AIndex : Integer; const AValue : TFloodlightActivityGroupsListResponseTypefloodlightActivityGroupsArray);
begin
If (FfloodlightActivityGroups=AValue) then exit;
@@ -16244,7 +17137,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFloodlightActivityPublisherDynamicTag.SetclickThrough(AIndex : Integer; AValue : boolean);
+Procedure TFloodlightActivityPublisherDynamicTag.SetclickThrough(AIndex : Integer; const AValue : boolean);
begin
If (FclickThrough=AValue) then exit;
@@ -16264,7 +17157,7 @@ end;
-Procedure TFloodlightActivityPublisherDynamicTag.SetdynamicTag(AIndex : Integer; AValue : TFloodlightActivityDynamicTag);
+Procedure TFloodlightActivityPublisherDynamicTag.SetdynamicTag(AIndex : Integer; const AValue : TFloodlightActivityDynamicTag);
begin
If (FdynamicTag=AValue) then exit;
@@ -16284,7 +17177,7 @@ end;
-Procedure TFloodlightActivityPublisherDynamicTag.SetsiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TFloodlightActivityPublisherDynamicTag.SetsiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FsiteIdDimensionValue=AValue) then exit;
@@ -16294,7 +17187,7 @@ end;
-Procedure TFloodlightActivityPublisherDynamicTag.SetviewThrough(AIndex : Integer; AValue : boolean);
+Procedure TFloodlightActivityPublisherDynamicTag.SetviewThrough(AIndex : Integer; const AValue : boolean);
begin
If (FviewThrough=AValue) then exit;
@@ -16331,7 +17224,7 @@ end;
-Procedure TFloodlightConfiguration.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TFloodlightConfiguration.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -16341,7 +17234,7 @@ end;
-Procedure TFloodlightConfiguration.SetanalyticsDataSharingEnabled(AIndex : Integer; AValue : boolean);
+Procedure TFloodlightConfiguration.SetanalyticsDataSharingEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FanalyticsDataSharingEnabled=AValue) then exit;
@@ -16351,7 +17244,7 @@ end;
-Procedure TFloodlightConfiguration.SetexposureToConversionEnabled(AIndex : Integer; AValue : boolean);
+Procedure TFloodlightConfiguration.SetexposureToConversionEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FexposureToConversionEnabled=AValue) then exit;
@@ -16381,7 +17274,7 @@ end;
-Procedure TFloodlightConfiguration.SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TFloodlightConfiguration.SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FidDimensionValue=AValue) then exit;
@@ -16391,6 +17284,16 @@ end;
+Procedure TFloodlightConfiguration.SetinAppAttributionTrackingEnabled(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FinAppAttributionTrackingEnabled=AValue) then exit;
+ FinAppAttributionTrackingEnabled:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TFloodlightConfiguration.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -16401,7 +17304,7 @@ end;
-Procedure TFloodlightConfiguration.SetlookbackConfiguration(AIndex : Integer; AValue : TLookbackConfiguration);
+Procedure TFloodlightConfiguration.SetlookbackConfiguration(AIndex : Integer; const AValue : TLookbackConfiguration);
begin
If (FlookbackConfiguration=AValue) then exit;
@@ -16421,7 +17324,7 @@ end;
-Procedure TFloodlightConfiguration.SetomnitureSettings(AIndex : Integer; AValue : TOmnitureSettings);
+Procedure TFloodlightConfiguration.SetomnitureSettings(AIndex : Integer; const AValue : TOmnitureSettings);
begin
If (FomnitureSettings=AValue) then exit;
@@ -16431,17 +17334,7 @@ end;
-Procedure TFloodlightConfiguration.SetsslRequired(AIndex : Integer; AValue : boolean);
-
-begin
- If (FsslRequired=AValue) then exit;
- FsslRequired:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFloodlightConfiguration.SetstandardVariableTypes(AIndex : Integer; AValue : TStringArray);
+Procedure TFloodlightConfiguration.SetstandardVariableTypes(AIndex : Integer; const AValue : TStringArray);
begin
If (FstandardVariableTypes=AValue) then exit;
@@ -16461,7 +17354,7 @@ end;
-Procedure TFloodlightConfiguration.SettagSettings(AIndex : Integer; AValue : TTagSettings);
+Procedure TFloodlightConfiguration.SettagSettings(AIndex : Integer; const AValue : TTagSettings);
begin
If (FtagSettings=AValue) then exit;
@@ -16471,7 +17364,17 @@ end;
-Procedure TFloodlightConfiguration.SetuserDefinedVariableConfigurations(AIndex : Integer; AValue : TFloodlightConfigurationTypeuserDefinedVariableConfigurationsArray);
+Procedure TFloodlightConfiguration.SetthirdPartyAuthenticationTokens(AIndex : Integer; const AValue : TFloodlightConfigurationTypethirdPartyAuthenticationTokensArray);
+
+begin
+ If (FthirdPartyAuthenticationTokens=AValue) then exit;
+ FthirdPartyAuthenticationTokens:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFloodlightConfiguration.SetuserDefinedVariableConfigurations(AIndex : Integer; const AValue : TFloodlightConfigurationTypeuserDefinedVariableConfigurationsArray);
begin
If (FuserDefinedVariableConfigurations=AValue) then exit;
@@ -16487,6 +17390,7 @@ Procedure TFloodlightConfiguration.SetArrayLength(Const AName : String; ALength
begin
Case AName of
'standardvariabletypes' : SetLength(FstandardVariableTypes,ALength);
+ 'thirdpartyauthenticationtokens' : SetLength(FthirdPartyAuthenticationTokens,ALength);
'userdefinedvariableconfigurations' : SetLength(FuserDefinedVariableConfigurations,ALength);
else
Inherited SetArrayLength(AName,ALength);
@@ -16502,7 +17406,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFloodlightConfigurationsListResponse.SetfloodlightConfigurations(AIndex : Integer; AValue : TFloodlightConfigurationsListResponseTypefloodlightConfigurationsArray);
+Procedure TFloodlightConfigurationsListResponse.SetfloodlightConfigurations(AIndex : Integer; const AValue : TFloodlightConfigurationsListResponseTypefloodlightConfigurationsArray);
begin
If (FfloodlightConfigurations=AValue) then exit;
@@ -16542,7 +17446,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFloodlightReportCompatibleFields.SetdimensionFilters(AIndex : Integer; AValue : TFloodlightReportCompatibleFieldsTypedimensionFiltersArray);
+Procedure TFloodlightReportCompatibleFields.SetdimensionFilters(AIndex : Integer; const AValue : TFloodlightReportCompatibleFieldsTypedimensionFiltersArray);
begin
If (FdimensionFilters=AValue) then exit;
@@ -16552,7 +17456,7 @@ end;
-Procedure TFloodlightReportCompatibleFields.Setdimensions(AIndex : Integer; AValue : TFloodlightReportCompatibleFieldsTypedimensionsArray);
+Procedure TFloodlightReportCompatibleFields.Setdimensions(AIndex : Integer; const AValue : TFloodlightReportCompatibleFieldsTypedimensionsArray);
begin
If (Fdimensions=AValue) then exit;
@@ -16572,7 +17476,7 @@ end;
-Procedure TFloodlightReportCompatibleFields.Setmetrics(AIndex : Integer; AValue : TFloodlightReportCompatibleFieldsTypemetricsArray);
+Procedure TFloodlightReportCompatibleFields.Setmetrics(AIndex : Integer; const AValue : TFloodlightReportCompatibleFieldsTypemetricsArray);
begin
If (Fmetrics=AValue) then exit;
@@ -16631,7 +17535,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFsCommand.Setleft(AIndex : Integer; AValue : integer);
+Procedure TFsCommand.Setleft(AIndex : Integer; const AValue : integer);
begin
If (Fleft=AValue) then exit;
@@ -16651,7 +17555,7 @@ end;
-Procedure TFsCommand.Settop(AIndex : Integer; AValue : integer);
+Procedure TFsCommand.Settop(AIndex : Integer; const AValue : integer);
begin
If (Ftop=AValue) then exit;
@@ -16661,7 +17565,7 @@ end;
-Procedure TFsCommand.SetwindowHeight(AIndex : Integer; AValue : integer);
+Procedure TFsCommand.SetwindowHeight(AIndex : Integer; const AValue : integer);
begin
If (FwindowHeight=AValue) then exit;
@@ -16671,7 +17575,7 @@ end;
-Procedure TFsCommand.SetwindowWidth(AIndex : Integer; AValue : integer);
+Procedure TFsCommand.SetwindowWidth(AIndex : Integer; const AValue : integer);
begin
If (FwindowWidth=AValue) then exit;
@@ -16688,7 +17592,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeoTargeting.Setcities(AIndex : Integer; AValue : TGeoTargetingTypecitiesArray);
+Procedure TGeoTargeting.Setcities(AIndex : Integer; const AValue : TGeoTargetingTypecitiesArray);
begin
If (Fcities=AValue) then exit;
@@ -16698,7 +17602,7 @@ end;
-Procedure TGeoTargeting.Setcountries(AIndex : Integer; AValue : TGeoTargetingTypecountriesArray);
+Procedure TGeoTargeting.Setcountries(AIndex : Integer; const AValue : TGeoTargetingTypecountriesArray);
begin
If (Fcountries=AValue) then exit;
@@ -16708,7 +17612,7 @@ end;
-Procedure TGeoTargeting.SetexcludeCountries(AIndex : Integer; AValue : boolean);
+Procedure TGeoTargeting.SetexcludeCountries(AIndex : Integer; const AValue : boolean);
begin
If (FexcludeCountries=AValue) then exit;
@@ -16718,7 +17622,7 @@ end;
-Procedure TGeoTargeting.Setmetros(AIndex : Integer; AValue : TGeoTargetingTypemetrosArray);
+Procedure TGeoTargeting.Setmetros(AIndex : Integer; const AValue : TGeoTargetingTypemetrosArray);
begin
If (Fmetros=AValue) then exit;
@@ -16728,7 +17632,7 @@ end;
-Procedure TGeoTargeting.SetpostalCodes(AIndex : Integer; AValue : TGeoTargetingTypepostalCodesArray);
+Procedure TGeoTargeting.SetpostalCodes(AIndex : Integer; const AValue : TGeoTargetingTypepostalCodesArray);
begin
If (FpostalCodes=AValue) then exit;
@@ -16738,7 +17642,7 @@ end;
-Procedure TGeoTargeting.Setregions(AIndex : Integer; AValue : TGeoTargetingTyperegionsArray);
+Procedure TGeoTargeting.Setregions(AIndex : Integer; const AValue : TGeoTargetingTyperegionsArray);
begin
If (Fregions=AValue) then exit;
@@ -16782,7 +17686,7 @@ end;
-Procedure TInventoryItem.SetadSlots(AIndex : Integer; AValue : TInventoryItemTypeadSlotsArray);
+Procedure TInventoryItem.SetadSlots(AIndex : Integer; const AValue : TInventoryItemTypeadSlotsArray);
begin
If (FadSlots=AValue) then exit;
@@ -16842,7 +17746,7 @@ end;
-Procedure TInventoryItem.SetinPlan(AIndex : Integer; AValue : boolean);
+Procedure TInventoryItem.SetinPlan(AIndex : Integer; const AValue : boolean);
begin
If (FinPlan=AValue) then exit;
@@ -16862,7 +17766,7 @@ end;
-Procedure TInventoryItem.SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TInventoryItem.SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FlastModifiedInfo=AValue) then exit;
@@ -16912,7 +17816,7 @@ end;
-Procedure TInventoryItem.Setpricing(AIndex : Integer; AValue : TPricing);
+Procedure TInventoryItem.Setpricing(AIndex : Integer; const AValue : TPricing);
begin
If (Fpricing=AValue) then exit;
@@ -16961,6 +17865,27 @@ begin
end;
+
+Procedure TInventoryItem.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TInventoryItem.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 TInventoryItem.SetArrayLength(Const AName : String; ALength : Longint);
@@ -16982,7 +17907,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInventoryItemsListResponse.SetinventoryItems(AIndex : Integer; AValue : TInventoryItemsListResponseTypeinventoryItemsArray);
+Procedure TInventoryItemsListResponse.SetinventoryItems(AIndex : Integer; const AValue : TInventoryItemsListResponseTypeinventoryItemsArray);
begin
If (FinventoryItems=AValue) then exit;
@@ -17049,7 +17974,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLandingPage.Setdefault(AIndex : Integer; AValue : boolean);
+Procedure TLandingPage.Setdefault(AIndex : Integer; const AValue : boolean);
begin
If (Fdefault=AValue) then exit;
@@ -17116,7 +18041,7 @@ end;
-Procedure TLandingPagesListResponse.SetlandingPages(AIndex : Integer; AValue : TLandingPagesListResponseTypelandingPagesArray);
+Procedure TLandingPagesListResponse.SetlandingPages(AIndex : Integer; const AValue : TLandingPagesListResponseTypelandingPagesArray);
begin
If (FlandingPages=AValue) then exit;
@@ -17163,7 +18088,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListPopulationClause.Setterms(AIndex : Integer; AValue : TListPopulationClauseTypetermsArray);
+Procedure TListPopulationClause.Setterms(AIndex : Integer; const AValue : TListPopulationClauseTypetermsArray);
begin
If (Fterms=AValue) then exit;
@@ -17213,7 +18138,7 @@ end;
-Procedure TListPopulationRule.SetlistPopulationClauses(AIndex : Integer; AValue : TListPopulationRuleTypelistPopulationClausesArray);
+Procedure TListPopulationRule.SetlistPopulationClauses(AIndex : Integer; const AValue : TListPopulationRuleTypelistPopulationClausesArray);
begin
If (FlistPopulationClauses=AValue) then exit;
@@ -17243,7 +18168,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListPopulationTerm.Setcontains(AIndex : Integer; AValue : boolean);
+Procedure TListPopulationTerm.Setcontains(AIndex : Integer; const AValue : boolean);
begin
If (Fcontains=AValue) then exit;
@@ -17253,7 +18178,7 @@ end;
-Procedure TListPopulationTerm.Setnegation(AIndex : Integer; AValue : boolean);
+Procedure TListPopulationTerm.Setnegation(AIndex : Integer; const AValue : boolean);
begin
If (Fnegation=AValue) then exit;
@@ -17359,7 +18284,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLookbackConfiguration.SetclickDuration(AIndex : Integer; AValue : integer);
+Procedure TLookbackConfiguration.SetclickDuration(AIndex : Integer; const AValue : integer);
begin
If (FclickDuration=AValue) then exit;
@@ -17369,7 +18294,7 @@ end;
-Procedure TLookbackConfiguration.SetpostImpressionActivitiesDuration(AIndex : Integer; AValue : integer);
+Procedure TLookbackConfiguration.SetpostImpressionActivitiesDuration(AIndex : Integer; const AValue : integer);
begin
If (FpostImpressionActivitiesDuration=AValue) then exit;
@@ -17500,7 +18425,7 @@ end;
-Procedure TMetrosListResponse.Setmetros(AIndex : Integer; AValue : TMetrosListResponseTypemetrosArray);
+Procedure TMetrosListResponse.Setmetros(AIndex : Integer; const AValue : TMetrosListResponseTypemetrosArray);
begin
If (Fmetros=AValue) then exit;
@@ -17597,7 +18522,7 @@ end;
-Procedure TMobileCarriersListResponse.SetmobileCarriers(AIndex : Integer; AValue : TMobileCarriersListResponseTypemobileCarriersArray);
+Procedure TMobileCarriersListResponse.SetmobileCarriers(AIndex : Integer; const AValue : TMobileCarriersListResponseTypemobileCarriersArray);
begin
If (FmobileCarriers=AValue) then exit;
@@ -17637,7 +18562,7 @@ end;
-Procedure TObjectFilter.SetobjectIds(AIndex : Integer; AValue : TStringArray);
+Procedure TObjectFilter.SetobjectIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FobjectIds=AValue) then exit;
@@ -17677,7 +18602,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOffsetPosition.Setleft(AIndex : Integer; AValue : integer);
+Procedure TOffsetPosition.Setleft(AIndex : Integer; const AValue : integer);
begin
If (Fleft=AValue) then exit;
@@ -17687,7 +18612,7 @@ end;
-Procedure TOffsetPosition.Settop(AIndex : Integer; AValue : integer);
+Procedure TOffsetPosition.Settop(AIndex : Integer; const AValue : integer);
begin
If (Ftop=AValue) then exit;
@@ -17704,7 +18629,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOmnitureSettings.SetomnitureCostDataEnabled(AIndex : Integer; AValue : boolean);
+Procedure TOmnitureSettings.SetomnitureCostDataEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FomnitureCostDataEnabled=AValue) then exit;
@@ -17714,7 +18639,7 @@ end;
-Procedure TOmnitureSettings.SetomnitureIntegrationEnabled(AIndex : Integer; AValue : boolean);
+Procedure TOmnitureSettings.SetomnitureIntegrationEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FomnitureIntegrationEnabled=AValue) then exit;
@@ -17741,7 +18666,7 @@ end;
-Procedure TOperatingSystem.Setdesktop(AIndex : Integer; AValue : boolean);
+Procedure TOperatingSystem.Setdesktop(AIndex : Integer; const AValue : boolean);
begin
If (Fdesktop=AValue) then exit;
@@ -17761,7 +18686,7 @@ end;
-Procedure TOperatingSystem.Setmobile(AIndex : Integer; AValue : boolean);
+Procedure TOperatingSystem.Setmobile(AIndex : Integer; const AValue : boolean);
begin
If (Fmobile=AValue) then exit;
@@ -17838,7 +18763,7 @@ end;
-Procedure TOperatingSystemVersion.SetoperatingSystem(AIndex : Integer; AValue : TOperatingSystem);
+Procedure TOperatingSystemVersion.SetoperatingSystem(AIndex : Integer; const AValue : TOperatingSystem);
begin
If (FoperatingSystem=AValue) then exit;
@@ -17865,7 +18790,7 @@ end;
-Procedure TOperatingSystemVersionsListResponse.SetoperatingSystemVersions(AIndex : Integer; AValue : TOperatingSystemVersionsListResponseTypeoperatingSystemVersionsArray);
+Procedure TOperatingSystemVersionsListResponse.SetoperatingSystemVersions(AIndex : Integer; const AValue : TOperatingSystemVersionsListResponseTypeoperatingSystemVersionsArray);
begin
If (FoperatingSystemVersions=AValue) then exit;
@@ -17905,7 +18830,7 @@ end;
-Procedure TOperatingSystemsListResponse.SetoperatingSystems(AIndex : Integer; AValue : TOperatingSystemsListResponseTypeoperatingSystemsArray);
+Procedure TOperatingSystemsListResponse.SetoperatingSystems(AIndex : Integer; const AValue : TOperatingSystemsListResponseTypeoperatingSystemsArray);
begin
If (FoperatingSystems=AValue) then exit;
@@ -17945,7 +18870,7 @@ end;
-Procedure TOptimizationActivity.SetfloodlightActivityIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TOptimizationActivity.SetfloodlightActivityIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FfloodlightActivityIdDimensionValue=AValue) then exit;
@@ -17955,7 +18880,7 @@ end;
-Procedure TOptimizationActivity.Setweight(AIndex : Integer; AValue : integer);
+Procedure TOptimizationActivity.Setweight(AIndex : Integer; const AValue : integer);
begin
If (Fweight=AValue) then exit;
@@ -17992,7 +18917,7 @@ end;
-Procedure TOrder.SetapproverUserProfileIds(AIndex : Integer; AValue : TStringArray);
+Procedure TOrder.SetapproverUserProfileIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FapproverUserProfileIds=AValue) then exit;
@@ -18032,7 +18957,7 @@ end;
-Procedure TOrder.Setcontacts(AIndex : Integer; AValue : TOrderTypecontactsArray);
+Procedure TOrder.Setcontacts(AIndex : Integer; const AValue : TOrderTypecontactsArray);
begin
If (Fcontacts=AValue) then exit;
@@ -18062,7 +18987,7 @@ end;
-Procedure TOrder.SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TOrder.SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FlastModifiedInfo=AValue) then exit;
@@ -18132,7 +19057,7 @@ end;
-Procedure TOrder.SetsiteId(AIndex : Integer; AValue : TStringArray);
+Procedure TOrder.SetsiteId(AIndex : Integer; const AValue : TStringArray);
begin
If (FsiteId=AValue) then exit;
@@ -18142,7 +19067,7 @@ end;
-Procedure TOrder.SetsiteNames(AIndex : Integer; AValue : TStringArray);
+Procedure TOrder.SetsiteNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FsiteNames=AValue) then exit;
@@ -18282,7 +19207,7 @@ end;
-Procedure TOrderDocument.SetapprovedByUserProfileIds(AIndex : Integer; AValue : TStringArray);
+Procedure TOrderDocument.SetapprovedByUserProfileIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FapprovedByUserProfileIds=AValue) then exit;
@@ -18292,7 +19217,7 @@ end;
-Procedure TOrderDocument.Setcancelled(AIndex : Integer; AValue : boolean);
+Procedure TOrderDocument.Setcancelled(AIndex : Integer; const AValue : boolean);
begin
If (Fcancelled=AValue) then exit;
@@ -18302,7 +19227,7 @@ end;
-Procedure TOrderDocument.SetcreatedInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TOrderDocument.SetcreatedInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FcreatedInfo=AValue) then exit;
@@ -18312,7 +19237,7 @@ end;
-Procedure TOrderDocument.SeteffectiveDate(AIndex : Integer; AValue : TDate);
+Procedure TOrderDocument.SeteffectiveDate(AIndex : Integer; const AValue : TDate);
begin
If (FeffectiveDate=AValue) then exit;
@@ -18342,6 +19267,26 @@ end;
+Procedure TOrderDocument.SetlastSentRecipients(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FlastSentRecipients=AValue) then exit;
+ FlastSentRecipients:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrderDocument.SetlastSentTime(AIndex : Integer; const AValue : TDatetime);
+
+begin
+ If (FlastSentTime=AValue) then exit;
+ FlastSentTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TOrderDocument.SetorderId(AIndex : Integer; const AValue : String);
begin
@@ -18362,7 +19307,7 @@ end;
-Procedure TOrderDocument.Setsigned(AIndex : Integer; AValue : boolean);
+Procedure TOrderDocument.Setsigned(AIndex : Integer; const AValue : boolean);
begin
If (Fsigned=AValue) then exit;
@@ -18419,6 +19364,7 @@ Procedure TOrderDocument.SetArrayLength(Const AName : String; ALength : Longint)
begin
Case AName of
'approvedbyuserprofileids' : SetLength(FapprovedByUserProfileIds,ALength);
+ 'lastsentrecipients' : SetLength(FlastSentRecipients,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -18453,7 +19399,7 @@ end;
-Procedure TOrderDocumentsListResponse.SetorderDocuments(AIndex : Integer; AValue : TOrderDocumentsListResponseTypeorderDocumentsArray);
+Procedure TOrderDocumentsListResponse.SetorderDocuments(AIndex : Integer; const AValue : TOrderDocumentsListResponseTypeorderDocumentsArray);
begin
If (ForderDocuments=AValue) then exit;
@@ -18503,7 +19449,7 @@ end;
-Procedure TOrdersListResponse.Setorders(AIndex : Integer; AValue : TOrdersListResponseTypeordersArray);
+Procedure TOrdersListResponse.Setorders(AIndex : Integer; const AValue : TOrdersListResponseTypeordersArray);
begin
If (Forders=AValue) then exit;
@@ -18533,7 +19479,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPathToConversionReportCompatibleFields.SetconversionDimensions(AIndex : Integer; AValue : TPathToConversionReportCompatibleFieldsTypeconversionDimensionsArray);
+Procedure TPathToConversionReportCompatibleFields.SetconversionDimensions(AIndex : Integer; const AValue : TPathToConversionReportCompatibleFieldsTypeconversionDimensionsArray);
begin
If (FconversionDimensions=AValue) then exit;
@@ -18543,7 +19489,7 @@ end;
-Procedure TPathToConversionReportCompatibleFields.SetcustomFloodlightVariables(AIndex : Integer; AValue : TPathToConversionReportCompatibleFieldsTypecustomFloodlightVariablesArray);
+Procedure TPathToConversionReportCompatibleFields.SetcustomFloodlightVariables(AIndex : Integer; const AValue : TPathToConversionReportCompatibleFieldsTypecustomFloodlightVariablesArray);
begin
If (FcustomFloodlightVariables=AValue) then exit;
@@ -18563,7 +19509,7 @@ end;
-Procedure TPathToConversionReportCompatibleFields.Setmetrics(AIndex : Integer; AValue : TPathToConversionReportCompatibleFieldsTypemetricsArray);
+Procedure TPathToConversionReportCompatibleFields.Setmetrics(AIndex : Integer; const AValue : TPathToConversionReportCompatibleFieldsTypemetricsArray);
begin
If (Fmetrics=AValue) then exit;
@@ -18573,7 +19519,7 @@ end;
-Procedure TPathToConversionReportCompatibleFields.SetperInteractionDimensions(AIndex : Integer; AValue : TPathToConversionReportCompatibleFieldsTypeperInteractionDimensionsArray);
+Procedure TPathToConversionReportCompatibleFields.SetperInteractionDimensions(AIndex : Integer; const AValue : TPathToConversionReportCompatibleFieldsTypeperInteractionDimensionsArray);
begin
If (FperInteractionDimensions=AValue) then exit;
@@ -18626,7 +19572,7 @@ end;
-Procedure TPlacement.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacement.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -18636,7 +19582,7 @@ end;
-Procedure TPlacement.Setarchived(AIndex : Integer; AValue : boolean);
+Procedure TPlacement.Setarchived(AIndex : Integer; const AValue : boolean);
begin
If (Farchived=AValue) then exit;
@@ -18656,7 +19602,7 @@ end;
-Procedure TPlacement.SetcampaignIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacement.SetcampaignIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FcampaignIdDimensionValue=AValue) then exit;
@@ -18696,7 +19642,7 @@ end;
-Procedure TPlacement.SetcreateInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TPlacement.SetcreateInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FcreateInfo=AValue) then exit;
@@ -18716,7 +19662,7 @@ end;
-Procedure TPlacement.SetdirectorySiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacement.SetdirectorySiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FdirectorySiteIdDimensionValue=AValue) then exit;
@@ -18746,7 +19692,7 @@ end;
-Procedure TPlacement.SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacement.SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FidDimensionValue=AValue) then exit;
@@ -18776,7 +19722,7 @@ end;
-Procedure TPlacement.SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TPlacement.SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FlastModifiedInfo=AValue) then exit;
@@ -18786,7 +19732,7 @@ end;
-Procedure TPlacement.SetlookbackConfiguration(AIndex : Integer; AValue : TLookbackConfiguration);
+Procedure TPlacement.SetlookbackConfiguration(AIndex : Integer; const AValue : TLookbackConfiguration);
begin
If (FlookbackConfiguration=AValue) then exit;
@@ -18806,7 +19752,7 @@ end;
-Procedure TPlacement.SetpaymentApproved(AIndex : Integer; AValue : boolean);
+Procedure TPlacement.SetpaymentApproved(AIndex : Integer; const AValue : boolean);
begin
If (FpaymentApproved=AValue) then exit;
@@ -18836,7 +19782,7 @@ end;
-Procedure TPlacement.SetplacementGroupIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacement.SetplacementGroupIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FplacementGroupIdDimensionValue=AValue) then exit;
@@ -18856,7 +19802,7 @@ end;
-Procedure TPlacement.SetpricingSchedule(AIndex : Integer; AValue : TPricingSchedule);
+Procedure TPlacement.SetpricingSchedule(AIndex : Integer; const AValue : TPricingSchedule);
begin
If (FpricingSchedule=AValue) then exit;
@@ -18866,7 +19812,7 @@ end;
-Procedure TPlacement.Setprimary(AIndex : Integer; AValue : boolean);
+Procedure TPlacement.Setprimary(AIndex : Integer; const AValue : boolean);
begin
If (Fprimary=AValue) then exit;
@@ -18876,7 +19822,7 @@ end;
-Procedure TPlacement.SetpublisherUpdateInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TPlacement.SetpublisherUpdateInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FpublisherUpdateInfo=AValue) then exit;
@@ -18896,7 +19842,7 @@ end;
-Procedure TPlacement.SetsiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacement.SetsiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FsiteIdDimensionValue=AValue) then exit;
@@ -18906,7 +19852,7 @@ end;
-Procedure TPlacement.Setsize(AIndex : Integer; AValue : TSize);
+Procedure TPlacement.Setsize(AIndex : Integer; const AValue : TSize);
begin
If (Fsize=AValue) then exit;
@@ -18916,7 +19862,7 @@ end;
-Procedure TPlacement.SetsslRequired(AIndex : Integer; AValue : boolean);
+Procedure TPlacement.SetsslRequired(AIndex : Integer; const AValue : boolean);
begin
If (FsslRequired=AValue) then exit;
@@ -18946,7 +19892,7 @@ end;
-Procedure TPlacement.SettagFormats(AIndex : Integer; AValue : TStringArray);
+Procedure TPlacement.SettagFormats(AIndex : Integer; const AValue : TStringArray);
begin
If (FtagFormats=AValue) then exit;
@@ -18956,7 +19902,7 @@ end;
-Procedure TPlacement.SettagSetting(AIndex : Integer; AValue : TTagSetting);
+Procedure TPlacement.SettagSetting(AIndex : Integer; const AValue : TTagSetting);
begin
If (FtagSetting=AValue) then exit;
@@ -18986,7 +19932,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlacementAssignment.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TPlacementAssignment.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -19006,7 +19952,7 @@ end;
-Procedure TPlacementAssignment.SetplacementIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacementAssignment.SetplacementIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FplacementIdDimensionValue=AValue) then exit;
@@ -19016,7 +19962,7 @@ end;
-Procedure TPlacementAssignment.SetsslRequired(AIndex : Integer; AValue : boolean);
+Procedure TPlacementAssignment.SetsslRequired(AIndex : Integer; const AValue : boolean);
begin
If (FsslRequired=AValue) then exit;
@@ -19053,7 +19999,7 @@ end;
-Procedure TPlacementGroup.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacementGroup.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -19063,7 +20009,7 @@ end;
-Procedure TPlacementGroup.Setarchived(AIndex : Integer; AValue : boolean);
+Procedure TPlacementGroup.Setarchived(AIndex : Integer; const AValue : boolean);
begin
If (Farchived=AValue) then exit;
@@ -19083,7 +20029,7 @@ end;
-Procedure TPlacementGroup.SetcampaignIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacementGroup.SetcampaignIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FcampaignIdDimensionValue=AValue) then exit;
@@ -19093,7 +20039,7 @@ end;
-Procedure TPlacementGroup.SetchildPlacementIds(AIndex : Integer; AValue : TStringArray);
+Procedure TPlacementGroup.SetchildPlacementIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FchildPlacementIds=AValue) then exit;
@@ -19123,7 +20069,7 @@ end;
-Procedure TPlacementGroup.SetcreateInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TPlacementGroup.SetcreateInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FcreateInfo=AValue) then exit;
@@ -19143,7 +20089,7 @@ end;
-Procedure TPlacementGroup.SetdirectorySiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacementGroup.SetdirectorySiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FdirectorySiteIdDimensionValue=AValue) then exit;
@@ -19173,7 +20119,7 @@ end;
-Procedure TPlacementGroup.SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacementGroup.SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FidDimensionValue=AValue) then exit;
@@ -19193,7 +20139,7 @@ end;
-Procedure TPlacementGroup.SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TPlacementGroup.SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FlastModifiedInfo=AValue) then exit;
@@ -19233,7 +20179,7 @@ end;
-Procedure TPlacementGroup.SetpricingSchedule(AIndex : Integer; AValue : TPricingSchedule);
+Procedure TPlacementGroup.SetpricingSchedule(AIndex : Integer; const AValue : TPricingSchedule);
begin
If (FpricingSchedule=AValue) then exit;
@@ -19253,7 +20199,7 @@ end;
-Procedure TPlacementGroup.SetprimaryPlacementIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacementGroup.SetprimaryPlacementIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FprimaryPlacementIdDimensionValue=AValue) then exit;
@@ -19263,16 +20209,6 @@ end;
-Procedure TPlacementGroup.SetprogrammaticSetting(AIndex : Integer; AValue : TProgrammaticSetting);
-
-begin
- If (FprogrammaticSetting=AValue) then exit;
- FprogrammaticSetting:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TPlacementGroup.SetsiteId(AIndex : Integer; const AValue : String);
begin
@@ -19283,7 +20219,7 @@ end;
-Procedure TPlacementGroup.SetsiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TPlacementGroup.SetsiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FsiteIdDimensionValue=AValue) then exit;
@@ -19343,7 +20279,7 @@ end;
-Procedure TPlacementGroupsListResponse.SetplacementGroups(AIndex : Integer; AValue : TPlacementGroupsListResponseTypeplacementGroupsArray);
+Procedure TPlacementGroupsListResponse.SetplacementGroups(AIndex : Integer; const AValue : TPlacementGroupsListResponseTypeplacementGroupsArray);
begin
If (FplacementGroups=AValue) then exit;
@@ -19393,7 +20329,7 @@ end;
-Procedure TPlacementStrategiesListResponse.SetplacementStrategies(AIndex : Integer; AValue : TPlacementStrategiesListResponseTypeplacementStrategiesArray);
+Procedure TPlacementStrategiesListResponse.SetplacementStrategies(AIndex : Integer; const AValue : TPlacementStrategiesListResponseTypeplacementStrategiesArray);
begin
If (FplacementStrategies=AValue) then exit;
@@ -19480,7 +20416,7 @@ end;
-Procedure TPlacementTag.SettagDatas(AIndex : Integer; AValue : TPlacementTagTypetagDatasArray);
+Procedure TPlacementTag.SettagDatas(AIndex : Integer; const AValue : TPlacementTagTypetagDatasArray);
begin
If (FtagDatas=AValue) then exit;
@@ -19520,7 +20456,7 @@ end;
-Procedure TPlacementsGenerateTagsResponse.SetplacementTags(AIndex : Integer; AValue : TPlacementsGenerateTagsResponseTypeplacementTagsArray);
+Procedure TPlacementsGenerateTagsResponse.SetplacementTags(AIndex : Integer; const AValue : TPlacementsGenerateTagsResponseTypeplacementTagsArray);
begin
If (FplacementTags=AValue) then exit;
@@ -19570,7 +20506,7 @@ end;
-Procedure TPlacementsListResponse.Setplacements(AIndex : Integer; AValue : TPlacementsListResponseTypeplacementsArray);
+Procedure TPlacementsListResponse.Setplacements(AIndex : Integer; const AValue : TPlacementsListResponseTypeplacementsArray);
begin
If (Fplacements=AValue) then exit;
@@ -19647,7 +20583,7 @@ end;
-Procedure TPlatformTypesListResponse.SetplatformTypes(AIndex : Integer; AValue : TPlatformTypesListResponseTypeplatformTypesArray);
+Procedure TPlatformTypesListResponse.SetplatformTypes(AIndex : Integer; const AValue : TPlatformTypesListResponseTypeplatformTypesArray);
begin
If (FplatformTypes=AValue) then exit;
@@ -19677,7 +20613,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPopupWindowProperties.Setdimension(AIndex : Integer; AValue : TSize);
+Procedure TPopupWindowProperties.Setdimension(AIndex : Integer; const AValue : TSize);
begin
If (Fdimension=AValue) then exit;
@@ -19687,7 +20623,7 @@ end;
-Procedure TPopupWindowProperties.Setoffset(AIndex : Integer; AValue : TOffsetPosition);
+Procedure TPopupWindowProperties.Setoffset(AIndex : Integer; const AValue : TOffsetPosition);
begin
If (Foffset=AValue) then exit;
@@ -19707,7 +20643,7 @@ end;
-Procedure TPopupWindowProperties.SetshowAddressBar(AIndex : Integer; AValue : boolean);
+Procedure TPopupWindowProperties.SetshowAddressBar(AIndex : Integer; const AValue : boolean);
begin
If (FshowAddressBar=AValue) then exit;
@@ -19717,7 +20653,7 @@ end;
-Procedure TPopupWindowProperties.SetshowMenuBar(AIndex : Integer; AValue : boolean);
+Procedure TPopupWindowProperties.SetshowMenuBar(AIndex : Integer; const AValue : boolean);
begin
If (FshowMenuBar=AValue) then exit;
@@ -19727,7 +20663,7 @@ end;
-Procedure TPopupWindowProperties.SetshowScrollBar(AIndex : Integer; AValue : boolean);
+Procedure TPopupWindowProperties.SetshowScrollBar(AIndex : Integer; const AValue : boolean);
begin
If (FshowScrollBar=AValue) then exit;
@@ -19737,7 +20673,7 @@ end;
-Procedure TPopupWindowProperties.SetshowStatusBar(AIndex : Integer; AValue : boolean);
+Procedure TPopupWindowProperties.SetshowStatusBar(AIndex : Integer; const AValue : boolean);
begin
If (FshowStatusBar=AValue) then exit;
@@ -19747,7 +20683,7 @@ end;
-Procedure TPopupWindowProperties.SetshowToolBar(AIndex : Integer; AValue : boolean);
+Procedure TPopupWindowProperties.SetshowToolBar(AIndex : Integer; const AValue : boolean);
begin
If (FshowToolBar=AValue) then exit;
@@ -19841,7 +20777,7 @@ end;
-Procedure TPostalCodesListResponse.SetpostalCodes(AIndex : Integer; AValue : TPostalCodesListResponseTypepostalCodesArray);
+Procedure TPostalCodesListResponse.SetpostalCodes(AIndex : Integer; const AValue : TPostalCodesListResponseTypepostalCodesArray);
begin
If (FpostalCodes=AValue) then exit;
@@ -19881,7 +20817,7 @@ end;
-Procedure TPricing.SetendDate(AIndex : Integer; AValue : TDate);
+Procedure TPricing.SetendDate(AIndex : Integer; const AValue : TDate);
begin
If (FendDate=AValue) then exit;
@@ -19891,7 +20827,7 @@ end;
-Procedure TPricing.Setflights(AIndex : Integer; AValue : TPricingTypeflightsArray);
+Procedure TPricing.Setflights(AIndex : Integer; const AValue : TPricingTypeflightsArray);
begin
If (Fflights=AValue) then exit;
@@ -19921,7 +20857,7 @@ end;
-Procedure TPricing.SetstartDate(AIndex : Integer; AValue : TDate);
+Procedure TPricing.SetstartDate(AIndex : Integer; const AValue : TDate);
begin
If (FstartDate=AValue) then exit;
@@ -19961,7 +20897,7 @@ end;
-Procedure TPricingSchedule.SetdisregardOverdelivery(AIndex : Integer; AValue : boolean);
+Procedure TPricingSchedule.SetdisregardOverdelivery(AIndex : Integer; const AValue : boolean);
begin
If (FdisregardOverdelivery=AValue) then exit;
@@ -19971,7 +20907,7 @@ end;
-Procedure TPricingSchedule.SetendDate(AIndex : Integer; AValue : TDate);
+Procedure TPricingSchedule.SetendDate(AIndex : Integer; const AValue : TDate);
begin
If (FendDate=AValue) then exit;
@@ -19981,7 +20917,7 @@ end;
-Procedure TPricingSchedule.Setflighted(AIndex : Integer; AValue : boolean);
+Procedure TPricingSchedule.Setflighted(AIndex : Integer; const AValue : boolean);
begin
If (Fflighted=AValue) then exit;
@@ -20001,7 +20937,7 @@ end;
-Procedure TPricingSchedule.SetpricingPeriods(AIndex : Integer; AValue : TPricingScheduleTypepricingPeriodsArray);
+Procedure TPricingSchedule.SetpricingPeriods(AIndex : Integer; const AValue : TPricingScheduleTypepricingPeriodsArray);
begin
If (FpricingPeriods=AValue) then exit;
@@ -20021,7 +20957,7 @@ end;
-Procedure TPricingSchedule.SetstartDate(AIndex : Integer; AValue : TDate);
+Procedure TPricingSchedule.SetstartDate(AIndex : Integer; const AValue : TDate);
begin
If (FstartDate=AValue) then exit;
@@ -20031,7 +20967,7 @@ end;
-Procedure TPricingSchedule.SettestingStartDate(AIndex : Integer; AValue : TDate);
+Procedure TPricingSchedule.SettestingStartDate(AIndex : Integer; const AValue : TDate);
begin
If (FtestingStartDate=AValue) then exit;
@@ -20061,7 +20997,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPricingSchedulePricingPeriod.SetendDate(AIndex : Integer; AValue : TDate);
+Procedure TPricingSchedulePricingPeriod.SetendDate(AIndex : Integer; const AValue : TDate);
begin
If (FendDate=AValue) then exit;
@@ -20091,7 +21027,7 @@ end;
-Procedure TPricingSchedulePricingPeriod.SetstartDate(AIndex : Integer; AValue : TDate);
+Procedure TPricingSchedulePricingPeriod.SetstartDate(AIndex : Integer; const AValue : TDate);
begin
If (FstartDate=AValue) then exit;
@@ -20114,87 +21050,6 @@ end;
{ --------------------------------------------------------------------
- TProgrammaticSetting
- --------------------------------------------------------------------}
-
-
-Procedure TProgrammaticSetting.SetadxDealIds(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FadxDealIds=AValue) then exit;
- FadxDealIds:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TProgrammaticSetting.SetinsertionOrderId(AIndex : Integer; const AValue : String);
-
-begin
- If (FinsertionOrderId=AValue) then exit;
- FinsertionOrderId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TProgrammaticSetting.SetinsertionOrderIdStatus(AIndex : Integer; AValue : boolean);
-
-begin
- If (FinsertionOrderIdStatus=AValue) then exit;
- FinsertionOrderIdStatus:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TProgrammaticSetting.SetmediaCostNanos(AIndex : Integer; const AValue : String);
-
-begin
- If (FmediaCostNanos=AValue) then exit;
- FmediaCostNanos:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TProgrammaticSetting.Setprogrammatic(AIndex : Integer; AValue : boolean);
-
-begin
- If (Fprogrammatic=AValue) then exit;
- Fprogrammatic:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TProgrammaticSetting.SettraffickerEmails(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FtraffickerEmails=AValue) then exit;
- FtraffickerEmails:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TProgrammaticSetting.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'adxdealids' : SetLength(FadxDealIds,ALength);
- 'traffickeremails' : SetLength(FtraffickerEmails,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
TProject
--------------------------------------------------------------------}
@@ -20269,7 +21124,7 @@ end;
-Procedure TProject.SetendDate(AIndex : Integer; AValue : TDate);
+Procedure TProject.SetendDate(AIndex : Integer; const AValue : TDate);
begin
If (FendDate=AValue) then exit;
@@ -20299,7 +21154,7 @@ end;
-Procedure TProject.SetlastModifiedInfo(AIndex : Integer; AValue : TLastModifiedInfo);
+Procedure TProject.SetlastModifiedInfo(AIndex : Integer; const AValue : TLastModifiedInfo);
begin
If (FlastModifiedInfo=AValue) then exit;
@@ -20329,7 +21184,7 @@ end;
-Procedure TProject.SetstartDate(AIndex : Integer; AValue : TDate);
+Procedure TProject.SetstartDate(AIndex : Integer; const AValue : TDate);
begin
If (FstartDate=AValue) then exit;
@@ -20436,7 +21291,7 @@ end;
-Procedure TProjectsListResponse.Setprojects(AIndex : Integer; AValue : TProjectsListResponseTypeprojectsArray);
+Procedure TProjectsListResponse.Setprojects(AIndex : Integer; const AValue : TProjectsListResponseTypeprojectsArray);
begin
If (Fprojects=AValue) then exit;
@@ -20466,7 +21321,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReachReportCompatibleFields.SetdimensionFilters(AIndex : Integer; AValue : TReachReportCompatibleFieldsTypedimensionFiltersArray);
+Procedure TReachReportCompatibleFields.SetdimensionFilters(AIndex : Integer; const AValue : TReachReportCompatibleFieldsTypedimensionFiltersArray);
begin
If (FdimensionFilters=AValue) then exit;
@@ -20476,7 +21331,7 @@ end;
-Procedure TReachReportCompatibleFields.Setdimensions(AIndex : Integer; AValue : TReachReportCompatibleFieldsTypedimensionsArray);
+Procedure TReachReportCompatibleFields.Setdimensions(AIndex : Integer; const AValue : TReachReportCompatibleFieldsTypedimensionsArray);
begin
If (Fdimensions=AValue) then exit;
@@ -20496,7 +21351,7 @@ end;
-Procedure TReachReportCompatibleFields.Setmetrics(AIndex : Integer; AValue : TReachReportCompatibleFieldsTypemetricsArray);
+Procedure TReachReportCompatibleFields.Setmetrics(AIndex : Integer; const AValue : TReachReportCompatibleFieldsTypemetricsArray);
begin
If (Fmetrics=AValue) then exit;
@@ -20506,7 +21361,7 @@ end;
-Procedure TReachReportCompatibleFields.SetpivotedActivityMetrics(AIndex : Integer; AValue : TReachReportCompatibleFieldsTypepivotedActivityMetricsArray);
+Procedure TReachReportCompatibleFields.SetpivotedActivityMetrics(AIndex : Integer; const AValue : TReachReportCompatibleFieldsTypepivotedActivityMetricsArray);
begin
If (FpivotedActivityMetrics=AValue) then exit;
@@ -20516,7 +21371,7 @@ end;
-Procedure TReachReportCompatibleFields.SetreachByFrequencyMetrics(AIndex : Integer; AValue : TReachReportCompatibleFieldsTypereachByFrequencyMetricsArray);
+Procedure TReachReportCompatibleFields.SetreachByFrequencyMetrics(AIndex : Integer; const AValue : TReachReportCompatibleFieldsTypereachByFrequencyMetricsArray);
begin
If (FreachByFrequencyMetrics=AValue) then exit;
@@ -20664,7 +21519,7 @@ end;
-Procedure TRegionsListResponse.Setregions(AIndex : Integer; AValue : TRegionsListResponseTyperegionsArray);
+Procedure TRegionsListResponse.Setregions(AIndex : Integer; const AValue : TRegionsListResponseTyperegionsArray);
begin
If (Fregions=AValue) then exit;
@@ -20704,7 +21559,7 @@ end;
-Procedure TRemarketingList.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TRemarketingList.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -20724,7 +21579,7 @@ end;
-Procedure TRemarketingList.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TRemarketingList.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -20774,7 +21629,7 @@ end;
-Procedure TRemarketingList.SetlistPopulationRule(AIndex : Integer; AValue : TListPopulationRule);
+Procedure TRemarketingList.SetlistPopulationRule(AIndex : Integer; const AValue : TListPopulationRule);
begin
If (FlistPopulationRule=AValue) then exit;
@@ -20851,7 +21706,7 @@ end;
-Procedure TRemarketingListShare.SetsharedAccountIds(AIndex : Integer; AValue : TStringArray);
+Procedure TRemarketingListShare.SetsharedAccountIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FsharedAccountIds=AValue) then exit;
@@ -20861,7 +21716,7 @@ end;
-Procedure TRemarketingListShare.SetsharedAdvertiserIds(AIndex : Integer; AValue : TStringArray);
+Procedure TRemarketingListShare.SetsharedAdvertiserIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FsharedAdvertiserIds=AValue) then exit;
@@ -20912,7 +21767,7 @@ end;
-Procedure TRemarketingListsListResponse.SetremarketingLists(AIndex : Integer; AValue : TRemarketingListsListResponseTyperemarketingListsArray);
+Procedure TRemarketingListsListResponse.SetremarketingLists(AIndex : Integer; const AValue : TRemarketingListsListResponseTyperemarketingListsArray);
begin
If (FremarketingLists=AValue) then exit;
@@ -20942,7 +21797,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportTypecriteria.Setactivities(AIndex : Integer; AValue : TActivities);
+Procedure TReportTypecriteria.Setactivities(AIndex : Integer; const AValue : TActivities);
begin
If (Factivities=AValue) then exit;
@@ -20952,7 +21807,7 @@ end;
-Procedure TReportTypecriteria.SetcustomRichMediaEvents(AIndex : Integer; AValue : TCustomRichMediaEvents);
+Procedure TReportTypecriteria.SetcustomRichMediaEvents(AIndex : Integer; const AValue : TCustomRichMediaEvents);
begin
If (FcustomRichMediaEvents=AValue) then exit;
@@ -20962,7 +21817,7 @@ end;
-Procedure TReportTypecriteria.SetdateRange(AIndex : Integer; AValue : TDateRange);
+Procedure TReportTypecriteria.SetdateRange(AIndex : Integer; const AValue : TDateRange);
begin
If (FdateRange=AValue) then exit;
@@ -20972,7 +21827,7 @@ end;
-Procedure TReportTypecriteria.SetdimensionFilters(AIndex : Integer; AValue : TReportTypecriteriaTypedimensionFiltersArray);
+Procedure TReportTypecriteria.SetdimensionFilters(AIndex : Integer; const AValue : TReportTypecriteriaTypedimensionFiltersArray);
begin
If (FdimensionFilters=AValue) then exit;
@@ -20982,7 +21837,7 @@ end;
-Procedure TReportTypecriteria.Setdimensions(AIndex : Integer; AValue : TReportTypecriteriaTypedimensionsArray);
+Procedure TReportTypecriteria.Setdimensions(AIndex : Integer; const AValue : TReportTypecriteriaTypedimensionsArray);
begin
If (Fdimensions=AValue) then exit;
@@ -20992,7 +21847,7 @@ end;
-Procedure TReportTypecriteria.SetmetricNames(AIndex : Integer; AValue : TStringArray);
+Procedure TReportTypecriteria.SetmetricNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FmetricNames=AValue) then exit;
@@ -21024,7 +21879,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportTypecrossDimensionReachCriteria.Setbreakdown(AIndex : Integer; AValue : TReportTypecrossDimensionReachCriteriaTypebreakdownArray);
+Procedure TReportTypecrossDimensionReachCriteria.Setbreakdown(AIndex : Integer; const AValue : TReportTypecrossDimensionReachCriteriaTypebreakdownArray);
begin
If (Fbreakdown=AValue) then exit;
@@ -21034,7 +21889,7 @@ end;
-Procedure TReportTypecrossDimensionReachCriteria.SetdateRange(AIndex : Integer; AValue : TDateRange);
+Procedure TReportTypecrossDimensionReachCriteria.SetdateRange(AIndex : Integer; const AValue : TDateRange);
begin
If (FdateRange=AValue) then exit;
@@ -21054,7 +21909,7 @@ end;
-Procedure TReportTypecrossDimensionReachCriteria.SetdimensionFilters(AIndex : Integer; AValue : TReportTypecrossDimensionReachCriteriaTypedimensionFiltersArray);
+Procedure TReportTypecrossDimensionReachCriteria.SetdimensionFilters(AIndex : Integer; const AValue : TReportTypecrossDimensionReachCriteriaTypedimensionFiltersArray);
begin
If (FdimensionFilters=AValue) then exit;
@@ -21064,7 +21919,7 @@ end;
-Procedure TReportTypecrossDimensionReachCriteria.SetmetricNames(AIndex : Integer; AValue : TStringArray);
+Procedure TReportTypecrossDimensionReachCriteria.SetmetricNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FmetricNames=AValue) then exit;
@@ -21074,7 +21929,7 @@ end;
-Procedure TReportTypecrossDimensionReachCriteria.SetoverlapMetricNames(AIndex : Integer; AValue : TStringArray);
+Procedure TReportTypecrossDimensionReachCriteria.SetoverlapMetricNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FoverlapMetricNames=AValue) then exit;
@@ -21084,7 +21939,7 @@ end;
-Procedure TReportTypecrossDimensionReachCriteria.Setpivoted(AIndex : Integer; AValue : boolean);
+Procedure TReportTypecrossDimensionReachCriteria.Setpivoted(AIndex : Integer; const AValue : boolean);
begin
If (Fpivoted=AValue) then exit;
@@ -21117,7 +21972,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportTypedelivery.SetemailOwner(AIndex : Integer; AValue : boolean);
+Procedure TReportTypedelivery.SetemailOwner(AIndex : Integer; const AValue : boolean);
begin
If (FemailOwner=AValue) then exit;
@@ -21147,7 +22002,7 @@ end;
-Procedure TReportTypedelivery.Setrecipients(AIndex : Integer; AValue : TReportTypedeliveryTyperecipientsArray);
+Procedure TReportTypedelivery.Setrecipients(AIndex : Integer; const AValue : TReportTypedeliveryTyperecipientsArray);
begin
If (Frecipients=AValue) then exit;
@@ -21177,7 +22032,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportTypefloodlightCriteriaTypereportProperties.SetincludeAttributedIPConversions(AIndex : Integer; AValue : boolean);
+Procedure TReportTypefloodlightCriteriaTypereportProperties.SetincludeAttributedIPConversions(AIndex : Integer; const AValue : boolean);
begin
If (FincludeAttributedIPConversions=AValue) then exit;
@@ -21187,7 +22042,7 @@ end;
-Procedure TReportTypefloodlightCriteriaTypereportProperties.SetincludeUnattributedCookieConversions(AIndex : Integer; AValue : boolean);
+Procedure TReportTypefloodlightCriteriaTypereportProperties.SetincludeUnattributedCookieConversions(AIndex : Integer; const AValue : boolean);
begin
If (FincludeUnattributedCookieConversions=AValue) then exit;
@@ -21197,7 +22052,7 @@ end;
-Procedure TReportTypefloodlightCriteriaTypereportProperties.SetincludeUnattributedIPConversions(AIndex : Integer; AValue : boolean);
+Procedure TReportTypefloodlightCriteriaTypereportProperties.SetincludeUnattributedIPConversions(AIndex : Integer; const AValue : boolean);
begin
If (FincludeUnattributedIPConversions=AValue) then exit;
@@ -21214,7 +22069,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportTypefloodlightCriteria.SetcustomRichMediaEvents(AIndex : Integer; AValue : TReportTypefloodlightCriteriaTypecustomRichMediaEventsArray);
+Procedure TReportTypefloodlightCriteria.SetcustomRichMediaEvents(AIndex : Integer; const AValue : TReportTypefloodlightCriteriaTypecustomRichMediaEventsArray);
begin
If (FcustomRichMediaEvents=AValue) then exit;
@@ -21224,7 +22079,7 @@ end;
-Procedure TReportTypefloodlightCriteria.SetdateRange(AIndex : Integer; AValue : TDateRange);
+Procedure TReportTypefloodlightCriteria.SetdateRange(AIndex : Integer; const AValue : TDateRange);
begin
If (FdateRange=AValue) then exit;
@@ -21234,7 +22089,7 @@ end;
-Procedure TReportTypefloodlightCriteria.SetdimensionFilters(AIndex : Integer; AValue : TReportTypefloodlightCriteriaTypedimensionFiltersArray);
+Procedure TReportTypefloodlightCriteria.SetdimensionFilters(AIndex : Integer; const AValue : TReportTypefloodlightCriteriaTypedimensionFiltersArray);
begin
If (FdimensionFilters=AValue) then exit;
@@ -21244,7 +22099,7 @@ end;
-Procedure TReportTypefloodlightCriteria.Setdimensions(AIndex : Integer; AValue : TReportTypefloodlightCriteriaTypedimensionsArray);
+Procedure TReportTypefloodlightCriteria.Setdimensions(AIndex : Integer; const AValue : TReportTypefloodlightCriteriaTypedimensionsArray);
begin
If (Fdimensions=AValue) then exit;
@@ -21254,7 +22109,7 @@ end;
-Procedure TReportTypefloodlightCriteria.SetfloodlightConfigId(AIndex : Integer; AValue : TDimensionValue);
+Procedure TReportTypefloodlightCriteria.SetfloodlightConfigId(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FfloodlightConfigId=AValue) then exit;
@@ -21264,7 +22119,7 @@ end;
-Procedure TReportTypefloodlightCriteria.SetmetricNames(AIndex : Integer; AValue : TStringArray);
+Procedure TReportTypefloodlightCriteria.SetmetricNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FmetricNames=AValue) then exit;
@@ -21274,7 +22129,7 @@ end;
-Procedure TReportTypefloodlightCriteria.SetreportProperties(AIndex : Integer; AValue : TReportTypefloodlightCriteriaTypereportProperties);
+Procedure TReportTypefloodlightCriteria.SetreportProperties(AIndex : Integer; const AValue : TReportTypefloodlightCriteriaTypereportProperties);
begin
If (FreportProperties=AValue) then exit;
@@ -21307,7 +22162,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetclicksLookbackWindow(AIndex : Integer; AValue : integer);
+Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetclicksLookbackWindow(AIndex : Integer; const AValue : integer);
begin
If (FclicksLookbackWindow=AValue) then exit;
@@ -21317,7 +22172,7 @@ end;
-Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetimpressionsLookbackWindow(AIndex : Integer; AValue : integer);
+Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetimpressionsLookbackWindow(AIndex : Integer; const AValue : integer);
begin
If (FimpressionsLookbackWindow=AValue) then exit;
@@ -21327,7 +22182,7 @@ end;
-Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetincludeAttributedIPConversions(AIndex : Integer; AValue : boolean);
+Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetincludeAttributedIPConversions(AIndex : Integer; const AValue : boolean);
begin
If (FincludeAttributedIPConversions=AValue) then exit;
@@ -21337,7 +22192,7 @@ end;
-Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetincludeUnattributedCookieConversions(AIndex : Integer; AValue : boolean);
+Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetincludeUnattributedCookieConversions(AIndex : Integer; const AValue : boolean);
begin
If (FincludeUnattributedCookieConversions=AValue) then exit;
@@ -21347,7 +22202,7 @@ end;
-Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetincludeUnattributedIPConversions(AIndex : Integer; AValue : boolean);
+Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetincludeUnattributedIPConversions(AIndex : Integer; const AValue : boolean);
begin
If (FincludeUnattributedIPConversions=AValue) then exit;
@@ -21357,7 +22212,7 @@ end;
-Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetmaximumClickInteractions(AIndex : Integer; AValue : integer);
+Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetmaximumClickInteractions(AIndex : Integer; const AValue : integer);
begin
If (FmaximumClickInteractions=AValue) then exit;
@@ -21367,7 +22222,7 @@ end;
-Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetmaximumImpressionInteractions(AIndex : Integer; AValue : integer);
+Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetmaximumImpressionInteractions(AIndex : Integer; const AValue : integer);
begin
If (FmaximumImpressionInteractions=AValue) then exit;
@@ -21377,7 +22232,7 @@ end;
-Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetmaximumInteractionGap(AIndex : Integer; AValue : integer);
+Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetmaximumInteractionGap(AIndex : Integer; const AValue : integer);
begin
If (FmaximumInteractionGap=AValue) then exit;
@@ -21387,7 +22242,7 @@ end;
-Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetpivotOnInteractionPath(AIndex : Integer; AValue : boolean);
+Procedure TReportTypepathToConversionCriteriaTypereportProperties.SetpivotOnInteractionPath(AIndex : Integer; const AValue : boolean);
begin
If (FpivotOnInteractionPath=AValue) then exit;
@@ -21404,7 +22259,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportTypepathToConversionCriteria.SetactivityFilters(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypeactivityFiltersArray);
+Procedure TReportTypepathToConversionCriteria.SetactivityFilters(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypeactivityFiltersArray);
begin
If (FactivityFilters=AValue) then exit;
@@ -21414,7 +22269,7 @@ end;
-Procedure TReportTypepathToConversionCriteria.SetconversionDimensions(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypeconversionDimensionsArray);
+Procedure TReportTypepathToConversionCriteria.SetconversionDimensions(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypeconversionDimensionsArray);
begin
If (FconversionDimensions=AValue) then exit;
@@ -21424,7 +22279,7 @@ end;
-Procedure TReportTypepathToConversionCriteria.SetcustomFloodlightVariables(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypecustomFloodlightVariablesArray);
+Procedure TReportTypepathToConversionCriteria.SetcustomFloodlightVariables(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypecustomFloodlightVariablesArray);
begin
If (FcustomFloodlightVariables=AValue) then exit;
@@ -21434,7 +22289,7 @@ end;
-Procedure TReportTypepathToConversionCriteria.SetcustomRichMediaEvents(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypecustomRichMediaEventsArray);
+Procedure TReportTypepathToConversionCriteria.SetcustomRichMediaEvents(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypecustomRichMediaEventsArray);
begin
If (FcustomRichMediaEvents=AValue) then exit;
@@ -21444,7 +22299,7 @@ end;
-Procedure TReportTypepathToConversionCriteria.SetdateRange(AIndex : Integer; AValue : TDateRange);
+Procedure TReportTypepathToConversionCriteria.SetdateRange(AIndex : Integer; const AValue : TDateRange);
begin
If (FdateRange=AValue) then exit;
@@ -21454,7 +22309,7 @@ end;
-Procedure TReportTypepathToConversionCriteria.SetfloodlightConfigId(AIndex : Integer; AValue : TDimensionValue);
+Procedure TReportTypepathToConversionCriteria.SetfloodlightConfigId(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FfloodlightConfigId=AValue) then exit;
@@ -21464,7 +22319,7 @@ end;
-Procedure TReportTypepathToConversionCriteria.SetmetricNames(AIndex : Integer; AValue : TStringArray);
+Procedure TReportTypepathToConversionCriteria.SetmetricNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FmetricNames=AValue) then exit;
@@ -21474,7 +22329,7 @@ end;
-Procedure TReportTypepathToConversionCriteria.SetperInteractionDimensions(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypeperInteractionDimensionsArray);
+Procedure TReportTypepathToConversionCriteria.SetperInteractionDimensions(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypeperInteractionDimensionsArray);
begin
If (FperInteractionDimensions=AValue) then exit;
@@ -21484,7 +22339,7 @@ end;
-Procedure TReportTypepathToConversionCriteria.SetreportProperties(AIndex : Integer; AValue : TReportTypepathToConversionCriteriaTypereportProperties);
+Procedure TReportTypepathToConversionCriteria.SetreportProperties(AIndex : Integer; const AValue : TReportTypepathToConversionCriteriaTypereportProperties);
begin
If (FreportProperties=AValue) then exit;
@@ -21519,7 +22374,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportTypereachCriteria.Setactivities(AIndex : Integer; AValue : TActivities);
+Procedure TReportTypereachCriteria.Setactivities(AIndex : Integer; const AValue : TActivities);
begin
If (Factivities=AValue) then exit;
@@ -21529,7 +22384,7 @@ end;
-Procedure TReportTypereachCriteria.SetcustomRichMediaEvents(AIndex : Integer; AValue : TCustomRichMediaEvents);
+Procedure TReportTypereachCriteria.SetcustomRichMediaEvents(AIndex : Integer; const AValue : TCustomRichMediaEvents);
begin
If (FcustomRichMediaEvents=AValue) then exit;
@@ -21539,7 +22394,7 @@ end;
-Procedure TReportTypereachCriteria.SetdateRange(AIndex : Integer; AValue : TDateRange);
+Procedure TReportTypereachCriteria.SetdateRange(AIndex : Integer; const AValue : TDateRange);
begin
If (FdateRange=AValue) then exit;
@@ -21549,7 +22404,7 @@ end;
-Procedure TReportTypereachCriteria.SetdimensionFilters(AIndex : Integer; AValue : TReportTypereachCriteriaTypedimensionFiltersArray);
+Procedure TReportTypereachCriteria.SetdimensionFilters(AIndex : Integer; const AValue : TReportTypereachCriteriaTypedimensionFiltersArray);
begin
If (FdimensionFilters=AValue) then exit;
@@ -21559,7 +22414,7 @@ end;
-Procedure TReportTypereachCriteria.Setdimensions(AIndex : Integer; AValue : TReportTypereachCriteriaTypedimensionsArray);
+Procedure TReportTypereachCriteria.Setdimensions(AIndex : Integer; const AValue : TReportTypereachCriteriaTypedimensionsArray);
begin
If (Fdimensions=AValue) then exit;
@@ -21569,7 +22424,7 @@ end;
-Procedure TReportTypereachCriteria.SetenableAllDimensionCombinations(AIndex : Integer; AValue : boolean);
+Procedure TReportTypereachCriteria.SetenableAllDimensionCombinations(AIndex : Integer; const AValue : boolean);
begin
If (FenableAllDimensionCombinations=AValue) then exit;
@@ -21579,7 +22434,7 @@ end;
-Procedure TReportTypereachCriteria.SetmetricNames(AIndex : Integer; AValue : TStringArray);
+Procedure TReportTypereachCriteria.SetmetricNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FmetricNames=AValue) then exit;
@@ -21589,7 +22444,7 @@ end;
-Procedure TReportTypereachCriteria.SetreachByFrequencyMetricNames(AIndex : Integer; AValue : TStringArray);
+Procedure TReportTypereachCriteria.SetreachByFrequencyMetricNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FreachByFrequencyMetricNames=AValue) then exit;
@@ -21622,7 +22477,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportTypeschedule.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TReportTypeschedule.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -21632,7 +22487,7 @@ end;
-Procedure TReportTypeschedule.Setevery(AIndex : Integer; AValue : integer);
+Procedure TReportTypeschedule.Setevery(AIndex : Integer; const AValue : integer);
begin
If (Fevery=AValue) then exit;
@@ -21642,7 +22497,7 @@ end;
-Procedure TReportTypeschedule.SetexpirationDate(AIndex : Integer; AValue : TDate);
+Procedure TReportTypeschedule.SetexpirationDate(AIndex : Integer; const AValue : TDate);
begin
If (FexpirationDate=AValue) then exit;
@@ -21662,7 +22517,7 @@ end;
-Procedure TReportTypeschedule.SetrepeatsOnWeekDays(AIndex : Integer; AValue : TStringArray);
+Procedure TReportTypeschedule.SetrepeatsOnWeekDays(AIndex : Integer; const AValue : TStringArray);
begin
If (FrepeatsOnWeekDays=AValue) then exit;
@@ -21682,7 +22537,7 @@ end;
-Procedure TReportTypeschedule.SetstartDate(AIndex : Integer; AValue : TDate);
+Procedure TReportTypeschedule.SetstartDate(AIndex : Integer; const AValue : TDate);
begin
If (FstartDate=AValue) then exit;
@@ -21722,7 +22577,7 @@ end;
-Procedure TReport.Setcriteria(AIndex : Integer; AValue : TReportTypecriteria);
+Procedure TReport.Setcriteria(AIndex : Integer; const AValue : TReportTypecriteria);
begin
If (Fcriteria=AValue) then exit;
@@ -21732,7 +22587,7 @@ end;
-Procedure TReport.SetcrossDimensionReachCriteria(AIndex : Integer; AValue : TReportTypecrossDimensionReachCriteria);
+Procedure TReport.SetcrossDimensionReachCriteria(AIndex : Integer; const AValue : TReportTypecrossDimensionReachCriteria);
begin
If (FcrossDimensionReachCriteria=AValue) then exit;
@@ -21742,7 +22597,7 @@ end;
-Procedure TReport.Setdelivery(AIndex : Integer; AValue : TReportTypedelivery);
+Procedure TReport.Setdelivery(AIndex : Integer; const AValue : TReportTypedelivery);
begin
If (Fdelivery=AValue) then exit;
@@ -21772,7 +22627,7 @@ end;
-Procedure TReport.SetfloodlightCriteria(AIndex : Integer; AValue : TReportTypefloodlightCriteria);
+Procedure TReport.SetfloodlightCriteria(AIndex : Integer; const AValue : TReportTypefloodlightCriteria);
begin
If (FfloodlightCriteria=AValue) then exit;
@@ -21842,7 +22697,7 @@ end;
-Procedure TReport.SetpathToConversionCriteria(AIndex : Integer; AValue : TReportTypepathToConversionCriteria);
+Procedure TReport.SetpathToConversionCriteria(AIndex : Integer; const AValue : TReportTypepathToConversionCriteria);
begin
If (FpathToConversionCriteria=AValue) then exit;
@@ -21852,7 +22707,7 @@ end;
-Procedure TReport.SetreachCriteria(AIndex : Integer; AValue : TReportTypereachCriteria);
+Procedure TReport.SetreachCriteria(AIndex : Integer; const AValue : TReportTypereachCriteria);
begin
If (FreachCriteria=AValue) then exit;
@@ -21862,7 +22717,7 @@ end;
-Procedure TReport.Setschedule(AIndex : Integer; AValue : TReportTypeschedule);
+Procedure TReport.Setschedule(AIndex : Integer; const AValue : TReportTypeschedule);
begin
If (Fschedule=AValue) then exit;
@@ -21910,7 +22765,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportCompatibleFields.SetdimensionFilters(AIndex : Integer; AValue : TReportCompatibleFieldsTypedimensionFiltersArray);
+Procedure TReportCompatibleFields.SetdimensionFilters(AIndex : Integer; const AValue : TReportCompatibleFieldsTypedimensionFiltersArray);
begin
If (FdimensionFilters=AValue) then exit;
@@ -21920,7 +22775,7 @@ end;
-Procedure TReportCompatibleFields.Setdimensions(AIndex : Integer; AValue : TReportCompatibleFieldsTypedimensionsArray);
+Procedure TReportCompatibleFields.Setdimensions(AIndex : Integer; const AValue : TReportCompatibleFieldsTypedimensionsArray);
begin
If (Fdimensions=AValue) then exit;
@@ -21940,7 +22795,7 @@ end;
-Procedure TReportCompatibleFields.Setmetrics(AIndex : Integer; AValue : TReportCompatibleFieldsTypemetricsArray);
+Procedure TReportCompatibleFields.Setmetrics(AIndex : Integer; const AValue : TReportCompatibleFieldsTypemetricsArray);
begin
If (Fmetrics=AValue) then exit;
@@ -21950,7 +22805,7 @@ end;
-Procedure TReportCompatibleFields.SetpivotedActivityMetrics(AIndex : Integer; AValue : TReportCompatibleFieldsTypepivotedActivityMetricsArray);
+Procedure TReportCompatibleFields.SetpivotedActivityMetrics(AIndex : Integer; const AValue : TReportCompatibleFieldsTypepivotedActivityMetricsArray);
begin
If (FpivotedActivityMetrics=AValue) then exit;
@@ -21993,7 +22848,7 @@ end;
-Procedure TReportList.Setitems(AIndex : Integer; AValue : TReportListTypeitemsArray);
+Procedure TReportList.Setitems(AIndex : Integer; const AValue : TReportListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -22043,7 +22898,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportsConfiguration.SetexposureToConversionEnabled(AIndex : Integer; AValue : boolean);
+Procedure TReportsConfiguration.SetexposureToConversionEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FexposureToConversionEnabled=AValue) then exit;
@@ -22053,7 +22908,7 @@ end;
-Procedure TReportsConfiguration.SetlookbackConfiguration(AIndex : Integer; AValue : TLookbackConfiguration);
+Procedure TReportsConfiguration.SetlookbackConfiguration(AIndex : Integer; const AValue : TLookbackConfiguration);
begin
If (FlookbackConfiguration=AValue) then exit;
@@ -22100,7 +22955,7 @@ end;
-Procedure TRichMediaExitOverride.SetuseCustomExitUrl(AIndex : Integer; AValue : boolean);
+Procedure TRichMediaExitOverride.SetuseCustomExitUrl(AIndex : Integer; const AValue : boolean);
begin
If (FuseCustomExitUrl=AValue) then exit;
@@ -22127,7 +22982,7 @@ end;
-Procedure TSite.Setapproved(AIndex : Integer; AValue : boolean);
+Procedure TSite.Setapproved(AIndex : Integer; const AValue : boolean);
begin
If (Fapproved=AValue) then exit;
@@ -22147,7 +23002,7 @@ end;
-Procedure TSite.SetdirectorySiteIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TSite.SetdirectorySiteIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FdirectorySiteIdDimensionValue=AValue) then exit;
@@ -22167,7 +23022,7 @@ end;
-Procedure TSite.SetidDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TSite.SetidDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FidDimensionValue=AValue) then exit;
@@ -22207,7 +23062,7 @@ end;
-Procedure TSite.SetsiteContacts(AIndex : Integer; AValue : TSiteTypesiteContactsArray);
+Procedure TSite.SetsiteContacts(AIndex : Integer; const AValue : TSiteTypesiteContactsArray);
begin
If (FsiteContacts=AValue) then exit;
@@ -22217,7 +23072,7 @@ end;
-Procedure TSite.SetsiteSettings(AIndex : Integer; AValue : TSiteSettings);
+Procedure TSite.SetsiteSettings(AIndex : Integer; const AValue : TSiteSettings);
begin
If (FsiteSettings=AValue) then exit;
@@ -22344,7 +23199,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSiteSettings.SetactiveViewOptOut(AIndex : Integer; AValue : boolean);
+Procedure TSiteSettings.SetactiveViewOptOut(AIndex : Integer; const AValue : boolean);
begin
If (FactiveViewOptOut=AValue) then exit;
@@ -22354,7 +23209,7 @@ end;
-Procedure TSiteSettings.SetcreativeSettings(AIndex : Integer; AValue : TCreativeSettings);
+Procedure TSiteSettings.SetcreativeSettings(AIndex : Integer; const AValue : TCreativeSettings);
begin
If (FcreativeSettings=AValue) then exit;
@@ -22364,7 +23219,7 @@ end;
-Procedure TSiteSettings.SetdisableBrandSafeAds(AIndex : Integer; AValue : boolean);
+Procedure TSiteSettings.SetdisableBrandSafeAds(AIndex : Integer; const AValue : boolean);
begin
If (FdisableBrandSafeAds=AValue) then exit;
@@ -22374,7 +23229,7 @@ end;
-Procedure TSiteSettings.SetdisableNewCookie(AIndex : Integer; AValue : boolean);
+Procedure TSiteSettings.SetdisableNewCookie(AIndex : Integer; const AValue : boolean);
begin
If (FdisableNewCookie=AValue) then exit;
@@ -22384,7 +23239,7 @@ end;
-Procedure TSiteSettings.SetlookbackConfiguration(AIndex : Integer; AValue : TLookbackConfiguration);
+Procedure TSiteSettings.SetlookbackConfiguration(AIndex : Integer; const AValue : TLookbackConfiguration);
begin
If (FlookbackConfiguration=AValue) then exit;
@@ -22394,7 +23249,7 @@ end;
-Procedure TSiteSettings.SettagSetting(AIndex : Integer; AValue : TTagSetting);
+Procedure TSiteSettings.SettagSetting(AIndex : Integer; const AValue : TTagSetting);
begin
If (FtagSetting=AValue) then exit;
@@ -22404,6 +23259,16 @@ end;
+Procedure TSiteSettings.SetvideoActiveViewOptOut(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FvideoActiveViewOptOut=AValue) then exit;
+ FvideoActiveViewOptOut:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -22431,7 +23296,7 @@ end;
-Procedure TSitesListResponse.Setsites(AIndex : Integer; AValue : TSitesListResponseTypesitesArray);
+Procedure TSitesListResponse.Setsites(AIndex : Integer; const AValue : TSitesListResponseTypesitesArray);
begin
If (Fsites=AValue) then exit;
@@ -22461,7 +23326,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSize.Setheight(AIndex : Integer; AValue : integer);
+Procedure TSize.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -22471,7 +23336,7 @@ end;
-Procedure TSize.Setiab(AIndex : Integer; AValue : boolean);
+Procedure TSize.Setiab(AIndex : Integer; const AValue : boolean);
begin
If (Fiab=AValue) then exit;
@@ -22501,7 +23366,7 @@ end;
-Procedure TSize.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TSize.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -22528,7 +23393,7 @@ end;
-Procedure TSizesListResponse.Setsizes(AIndex : Integer; AValue : TSizesListResponseTypesizesArray);
+Procedure TSizesListResponse.Setsizes(AIndex : Integer; const AValue : TSizesListResponseTypesizesArray);
begin
If (Fsizes=AValue) then exit;
@@ -22605,7 +23470,7 @@ end;
-Procedure TSubaccount.SetavailablePermissionIds(AIndex : Integer; AValue : TStringArray);
+Procedure TSubaccount.SetavailablePermissionIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FavailablePermissionIds=AValue) then exit;
@@ -22685,7 +23550,7 @@ end;
-Procedure TSubaccountsListResponse.Setsubaccounts(AIndex : Integer; AValue : TSubaccountsListResponseTypesubaccountsArray);
+Procedure TSubaccountsListResponse.Setsubaccounts(AIndex : Integer; const AValue : TSubaccountsListResponseTypesubaccountsArray);
begin
If (Fsubaccounts=AValue) then exit;
@@ -22782,7 +23647,7 @@ end;
-Procedure TTagSetting.SetincludeClickThroughUrls(AIndex : Integer; AValue : boolean);
+Procedure TTagSetting.SetincludeClickThroughUrls(AIndex : Integer; const AValue : boolean);
begin
If (FincludeClickThroughUrls=AValue) then exit;
@@ -22792,7 +23657,7 @@ end;
-Procedure TTagSetting.SetincludeClickTracking(AIndex : Integer; AValue : boolean);
+Procedure TTagSetting.SetincludeClickTracking(AIndex : Integer; const AValue : boolean);
begin
If (FincludeClickTracking=AValue) then exit;
@@ -22819,7 +23684,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTagSettings.SetdynamicTagEnabled(AIndex : Integer; AValue : boolean);
+Procedure TTagSettings.SetdynamicTagEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FdynamicTagEnabled=AValue) then exit;
@@ -22829,7 +23694,7 @@ end;
-Procedure TTagSettings.SetimageTagEnabled(AIndex : Integer; AValue : boolean);
+Procedure TTagSettings.SetimageTagEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FimageTagEnabled=AValue) then exit;
@@ -22883,7 +23748,7 @@ end;
-Procedure TTargetableRemarketingList.Setactive(AIndex : Integer; AValue : boolean);
+Procedure TTargetableRemarketingList.Setactive(AIndex : Integer; const AValue : boolean);
begin
If (Factive=AValue) then exit;
@@ -22903,7 +23768,7 @@ end;
-Procedure TTargetableRemarketingList.SetadvertiserIdDimensionValue(AIndex : Integer; AValue : TDimensionValue);
+Procedure TTargetableRemarketingList.SetadvertiserIdDimensionValue(AIndex : Integer; const AValue : TDimensionValue);
begin
If (FadvertiserIdDimensionValue=AValue) then exit;
@@ -23020,7 +23885,7 @@ end;
-Procedure TTargetableRemarketingListsListResponse.SettargetableRemarketingLists(AIndex : Integer; AValue : TTargetableRemarketingListsListResponseTypetargetableRemarketingListsArray);
+Procedure TTargetableRemarketingListsListResponse.SettargetableRemarketingLists(AIndex : Integer; const AValue : TTargetableRemarketingListsListResponseTypetargetableRemarketingListsArray);
begin
If (FtargetableRemarketingLists=AValue) then exit;
@@ -23050,7 +23915,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTechnologyTargeting.Setbrowsers(AIndex : Integer; AValue : TTechnologyTargetingTypebrowsersArray);
+Procedure TTechnologyTargeting.Setbrowsers(AIndex : Integer; const AValue : TTechnologyTargetingTypebrowsersArray);
begin
If (Fbrowsers=AValue) then exit;
@@ -23060,7 +23925,7 @@ end;
-Procedure TTechnologyTargeting.SetconnectionTypes(AIndex : Integer; AValue : TTechnologyTargetingTypeconnectionTypesArray);
+Procedure TTechnologyTargeting.SetconnectionTypes(AIndex : Integer; const AValue : TTechnologyTargetingTypeconnectionTypesArray);
begin
If (FconnectionTypes=AValue) then exit;
@@ -23070,7 +23935,7 @@ end;
-Procedure TTechnologyTargeting.SetmobileCarriers(AIndex : Integer; AValue : TTechnologyTargetingTypemobileCarriersArray);
+Procedure TTechnologyTargeting.SetmobileCarriers(AIndex : Integer; const AValue : TTechnologyTargetingTypemobileCarriersArray);
begin
If (FmobileCarriers=AValue) then exit;
@@ -23080,7 +23945,7 @@ end;
-Procedure TTechnologyTargeting.SetoperatingSystemVersions(AIndex : Integer; AValue : TTechnologyTargetingTypeoperatingSystemVersionsArray);
+Procedure TTechnologyTargeting.SetoperatingSystemVersions(AIndex : Integer; const AValue : TTechnologyTargetingTypeoperatingSystemVersionsArray);
begin
If (FoperatingSystemVersions=AValue) then exit;
@@ -23090,7 +23955,7 @@ end;
-Procedure TTechnologyTargeting.SetoperatingSystems(AIndex : Integer; AValue : TTechnologyTargetingTypeoperatingSystemsArray);
+Procedure TTechnologyTargeting.SetoperatingSystems(AIndex : Integer; const AValue : TTechnologyTargetingTypeoperatingSystemsArray);
begin
If (FoperatingSystems=AValue) then exit;
@@ -23100,7 +23965,7 @@ end;
-Procedure TTechnologyTargeting.SetplatformTypes(AIndex : Integer; AValue : TTechnologyTargetingTypeplatformTypesArray);
+Procedure TTechnologyTargeting.SetplatformTypes(AIndex : Integer; const AValue : TTechnologyTargetingTypeplatformTypesArray);
begin
If (FplatformTypes=AValue) then exit;
@@ -23131,6 +23996,33 @@ end;
{ --------------------------------------------------------------------
+ TThirdPartyAuthenticationToken
+ --------------------------------------------------------------------}
+
+
+Procedure TThirdPartyAuthenticationToken.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThirdPartyAuthenticationToken.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TThirdPartyTrackingUrl
--------------------------------------------------------------------}
@@ -23296,7 +24188,7 @@ end;
-Procedure TUserProfileList.Setitems(AIndex : Integer; AValue : TUserProfileListTypeitemsArray);
+Procedure TUserProfileList.Setitems(AIndex : Integer; const AValue : TUserProfileListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -23346,7 +24238,7 @@ end;
-Procedure TUserRole.SetdefaultUserRole(AIndex : Integer; AValue : boolean);
+Procedure TUserRole.SetdefaultUserRole(AIndex : Integer; const AValue : boolean);
begin
If (FdefaultUserRole=AValue) then exit;
@@ -23396,7 +24288,7 @@ end;
-Procedure TUserRole.Setpermissions(AIndex : Integer; AValue : TUserRoleTypepermissionsArray);
+Procedure TUserRole.Setpermissions(AIndex : Integer; const AValue : TUserRoleTypepermissionsArray);
begin
If (Fpermissions=AValue) then exit;
@@ -23540,7 +24432,7 @@ end;
-Procedure TUserRolePermissionGroupsListResponse.SetuserRolePermissionGroups(AIndex : Integer; AValue : TUserRolePermissionGroupsListResponseTypeuserRolePermissionGroupsArray);
+Procedure TUserRolePermissionGroupsListResponse.SetuserRolePermissionGroups(AIndex : Integer; const AValue : TUserRolePermissionGroupsListResponseTypeuserRolePermissionGroupsArray);
begin
If (FuserRolePermissionGroups=AValue) then exit;
@@ -23580,7 +24472,7 @@ end;
-Procedure TUserRolePermissionsListResponse.SetuserRolePermissions(AIndex : Integer; AValue : TUserRolePermissionsListResponseTypeuserRolePermissionsArray);
+Procedure TUserRolePermissionsListResponse.SetuserRolePermissions(AIndex : Integer; const AValue : TUserRolePermissionsListResponseTypeuserRolePermissionsArray);
begin
If (FuserRolePermissions=AValue) then exit;
@@ -23630,7 +24522,7 @@ end;
-Procedure TUserRolesListResponse.SetuserRoles(AIndex : Integer; AValue : TUserRolesListResponseTypeuserRolesArray);
+Procedure TUserRolesListResponse.SetuserRoles(AIndex : Integer; const AValue : TUserRolesListResponseTypeuserRolesArray);
begin
If (FuserRoles=AValue) then exit;
@@ -24977,6 +25869,40 @@ end;
{ --------------------------------------------------------------------
+ TConversionsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TConversionsResource.ResourceName : String;
+
+begin
+ Result:='conversions';
+end;
+
+Class Function TConversionsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TdfareportingAPI;
+end;
+
+Function TConversionsResource.Batchinsert(profileId: string; aConversionsBatchInsertRequest : TConversionsBatchInsertRequest) : TConversionsBatchInsertResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'userprofiles/{profileId}/conversions/batchinsert';
+ _Methodid = 'dfareporting.conversions.batchinsert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['profileId',profileId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aConversionsBatchInsertRequest,TConversionsBatchInsertResponse) as TConversionsBatchInsertResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
TCountriesResource
--------------------------------------------------------------------}
@@ -25797,6 +26723,98 @@ end;
{ --------------------------------------------------------------------
+ TDynamicTargetingKeysResource
+ --------------------------------------------------------------------}
+
+
+Class Function TDynamicTargetingKeysResource.ResourceName : String;
+
+begin
+ Result:='dynamicTargetingKeys';
+end;
+
+Class Function TDynamicTargetingKeysResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TdfareportingAPI;
+end;
+
+Procedure TDynamicTargetingKeysResource.Delete(objectId: string; profileId: string; AQuery : string = '');
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'userprofiles/{profileId}/dynamicTargetingKeys/{objectId}';
+ _Methodid = 'dfareporting.dynamicTargetingKeys.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['objectId',objectId,'profileId',profileId]);
+ ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
+end;
+
+
+Procedure TDynamicTargetingKeysResource.Delete(objectId: string; profileId: string; AQuery : TDynamicTargetingKeysdeleteOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'name',AQuery._name);
+ AddToQuery(_Q,'objectType',AQuery.objectType);
+ Delete(objectId,profileId,_Q);
+end;
+
+Function TDynamicTargetingKeysResource.Insert(profileId: string; aDynamicTargetingKey : TDynamicTargetingKey) : TDynamicTargetingKey;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'userprofiles/{profileId}/dynamicTargetingKeys';
+ _Methodid = 'dfareporting.dynamicTargetingKeys.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['profileId',profileId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aDynamicTargetingKey,TDynamicTargetingKey) as TDynamicTargetingKey;
+end;
+
+Function TDynamicTargetingKeysResource.List(profileId: string; AQuery : string = '') : TDynamicTargetingKeysListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'userprofiles/{profileId}/dynamicTargetingKeys';
+ _Methodid = 'dfareporting.dynamicTargetingKeys.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['profileId',profileId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDynamicTargetingKeysListResponse) as TDynamicTargetingKeysListResponse;
+end;
+
+
+Function TDynamicTargetingKeysResource.List(profileId: string; AQuery : TDynamicTargetingKeyslistOptions) : TDynamicTargetingKeysListResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'advertiserId',AQuery.advertiserId);
+ AddToQuery(_Q,'names',AQuery.names);
+ AddToQuery(_Q,'objectId',AQuery.objectId);
+ AddToQuery(_Q,'objectType',AQuery.objectType);
+ Result:=List(profileId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
TEventTagsResource
--------------------------------------------------------------------}
@@ -26192,21 +27210,6 @@ begin
Result:=TdfareportingAPI;
end;
-Procedure TFloodlightActivityGroupsResource.Delete(id: string; profileId: string);
-
-Const
- _HTTPMethod = 'DELETE';
- _Path = 'userprofiles/{profileId}/floodlightActivityGroups/{id}';
- _Methodid = 'dfareporting.floodlightActivityGroups.delete';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['id',id,'profileId',profileId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
-end;
-
Function TFloodlightActivityGroupsResource.Get(id: string; profileId: string) : TFloodlightActivityGroup;
Const
@@ -26482,6 +27485,7 @@ begin
AddToQuery(_Q,'siteId',AQuery.siteId);
AddToQuery(_Q,'sortField',AQuery.sortField);
AddToQuery(_Q,'sortOrder',AQuery.sortOrder);
+ AddToQuery(_Q,'type',AQuery._type);
Result:=List(profileId,projectId,_Q);
end;
@@ -27001,7 +28005,11 @@ begin
AddToQuery(_Q,'contentCategoryIds',AQuery.contentCategoryIds);
AddToQuery(_Q,'directorySiteIds',AQuery.directorySiteIds);
AddToQuery(_Q,'ids',AQuery.ids);
+ AddToQuery(_Q,'maxEndDate',AQuery.maxEndDate);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'maxStartDate',AQuery.maxStartDate);
+ AddToQuery(_Q,'minEndDate',AQuery.minEndDate);
+ AddToQuery(_Q,'minStartDate',AQuery.minStartDate);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'placementGroupType',AQuery.placementGroupType);
AddToQuery(_Q,'placementStrategyIds',AQuery.placementStrategyIds);
@@ -27302,7 +28310,11 @@ begin
AddToQuery(_Q,'directorySiteIds',AQuery.directorySiteIds);
AddToQuery(_Q,'groupIds',AQuery.groupIds);
AddToQuery(_Q,'ids',AQuery.ids);
+ AddToQuery(_Q,'maxEndDate',AQuery.maxEndDate);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'maxStartDate',AQuery.maxStartDate);
+ AddToQuery(_Q,'minEndDate',AQuery.minEndDate);
+ AddToQuery(_Q,'minStartDate',AQuery.minStartDate);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'paymentSource',AQuery.paymentSource);
AddToQuery(_Q,'placementStrategyIds',AQuery.placementStrategyIds);
@@ -28766,19 +29778,19 @@ end;
Class Function TDfareportingAPI.APIVersion : String;
begin
- Result:='v2.1';
+ Result:='v2.5';
end;
Class Function TDfareportingAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160509';
end;
Class Function TDfareportingAPI.APIID : String;
begin
- Result:='dfareporting:v2.1';
+ Result:='dfareporting:v2.5';
end;
Class Function TDfareportingAPI.APITitle : String;
@@ -28790,7 +29802,7 @@ end;
Class Function TDfareportingAPI.APIDescription : String;
begin
- Result:='Manage your DoubleClick Campaign Manager ad campaigns and reports.';
+ Result:='Manages your DoubleClick Campaign Manager ad campaigns and reports.';
end;
Class Function TDfareportingAPI.APIOwnerDomain : String;
@@ -28826,19 +29838,19 @@ end;
Class Function TDfareportingAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TDfareportingAPI.APIbasePath : string;
begin
- Result:='/dfareporting/v2.1/';
+ Result:='/dfareporting/v2.5/';
end;
Class Function TDfareportingAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/dfareporting/v2.1/';
+ Result:='https://www.googleapis.com/dfareporting/v2.5/';
end;
Class Function TDfareportingAPI.APIProtocol : string;
@@ -28850,7 +29862,7 @@ end;
Class Function TDfareportingAPI.APIservicePath : string;
begin
- Result:='dfareporting/v2.1/';
+ Result:='dfareporting/v2.5/';
end;
Class Function TDfareportingAPI.APIbatchPath : String;
@@ -28862,11 +29874,13 @@ end;
Class Function TDfareportingAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,2);
- Result[0].Name:='https://www.googleapis.com/auth/dfareporting';
- Result[0].Description:='View and manage DoubleClick for Advertisers reports';
- Result[1].Name:='https://www.googleapis.com/auth/dfatrafficking';
- Result[1].Description:='View and manage your DoubleClick Campaign Manager''s (DCM) display ad campaigns';
+ SetLength(Result,3);
+ Result[0].Name:='https://www.googleapis.com/auth/ddmconversions';
+ Result[0].Description:='Manage DoubleClick Digital Marketing conversions';
+ Result[1].Name:='https://www.googleapis.com/auth/dfareporting';
+ Result[1].Description:='View and manage DoubleClick for Advertisers reports';
+ Result[2].Name:='https://www.googleapis.com/auth/dfatrafficking';
+ Result[2].Description:='View and manage your DoubleClick Campaign Manager''s (DCM) display ad campaigns';
end;
@@ -28917,6 +29931,11 @@ begin
TConnectionTypesListResponse.RegisterObject;
TContentCategoriesListResponse.RegisterObject;
TContentCategory.RegisterObject;
+ TConversion.RegisterObject;
+ TConversionError.RegisterObject;
+ TConversionStatus.RegisterObject;
+ TConversionsBatchInsertRequest.RegisterObject;
+ TConversionsBatchInsertResponse.RegisterObject;
TCountriesListResponse.RegisterObject;
TCountry.RegisterObject;
TCreative.RegisterObject;
@@ -28938,6 +29957,7 @@ begin
TCreativeSettings.RegisterObject;
TCreativesListResponse.RegisterObject;
TCrossDimensionReachReportCompatibleFields.RegisterObject;
+ TCustomFloodlightVariable.RegisterObject;
TCustomRichMediaEvents.RegisterObject;
TDateRange.RegisterObject;
TDayPartTargeting.RegisterObject;
@@ -28955,6 +29975,9 @@ begin
TDirectorySiteContactsListResponse.RegisterObject;
TDirectorySiteSettings.RegisterObject;
TDirectorySitesListResponse.RegisterObject;
+ TDynamicTargetingKey.RegisterObject;
+ TDynamicTargetingKeysListResponse.RegisterObject;
+ TEncryptionInfo.RegisterObject;
TEventTag.RegisterObject;
TEventTagOverride.RegisterObject;
TEventTagsListResponse.RegisterObject;
@@ -29022,7 +30045,6 @@ begin
TPricing.RegisterObject;
TPricingSchedule.RegisterObject;
TPricingSchedulePricingPeriod.RegisterObject;
- TProgrammaticSetting.RegisterObject;
TProject.RegisterObject;
TProjectsListResponse.RegisterObject;
TReachReportCompatibleFields.RegisterObject;
@@ -29062,6 +30084,7 @@ begin
TTargetableRemarketingList.RegisterObject;
TTargetableRemarketingListsListResponse.RegisterObject;
TTechnologyTargeting.RegisterObject;
+ TThirdPartyAuthenticationToken.RegisterObject;
TThirdPartyTrackingUrl.RegisterObject;
TUserDefinedVariableConfiguration.RegisterObject;
TUserProfile.RegisterObject;
@@ -29435,6 +30458,30 @@ end;
+Function TDfareportingAPI.GetConversionsInstance : TConversionsResource;
+
+begin
+ if (FConversionsInstance=Nil) then
+ FConversionsInstance:=CreateConversionsResource;
+ Result:=FConversionsInstance;
+end;
+
+Function TDfareportingAPI.CreateConversionsResource : TConversionsResource;
+
+begin
+ Result:=CreateConversionsResource(Self);
+end;
+
+
+Function TDfareportingAPI.CreateConversionsResource(AOwner : TComponent) : TConversionsResource;
+
+begin
+ Result:=TConversionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TDfareportingAPI.GetCountriesInstance : TCountriesResource;
begin
@@ -29651,6 +30698,30 @@ end;
+Function TDfareportingAPI.GetDynamicTargetingKeysInstance : TDynamicTargetingKeysResource;
+
+begin
+ if (FDynamicTargetingKeysInstance=Nil) then
+ FDynamicTargetingKeysInstance:=CreateDynamicTargetingKeysResource;
+ Result:=FDynamicTargetingKeysInstance;
+end;
+
+Function TDfareportingAPI.CreateDynamicTargetingKeysResource : TDynamicTargetingKeysResource;
+
+begin
+ Result:=CreateDynamicTargetingKeysResource(Self);
+end;
+
+
+Function TDfareportingAPI.CreateDynamicTargetingKeysResource(AOwner : TComponent) : TDynamicTargetingKeysResource;
+
+begin
+ Result:=TDynamicTargetingKeysResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TDfareportingAPI.GetEventTagsInstance : TEventTagsResource;
begin
diff --git a/packages/googleapi/src/googlediscovery.pp b/packages/googleapi/src/googlediscovery.pp
index cbcd37e995..f9ec20a236 100644
--- a/packages/googleapi/src/googlediscovery.pp
+++ b/packages/googleapi/src/googlediscovery.pp
@@ -1,19 +1,4 @@
unit googlediscovery;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:02
{$MODE objfpc}
{$H+}
@@ -104,12 +89,12 @@ type
Procedure SetdiscoveryLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetdiscoveryRestUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetdocumentationLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Seticons(AIndex : Integer; AValue : TDirectoryListTypeitemsItemTypeicons); virtual;
+ Procedure Seticons(AIndex : Integer; const AValue : TDirectoryListTypeitemsItemTypeicons); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlabels(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpreferred(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setpreferred(AIndex : Integer; const AValue : boolean); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -145,7 +130,7 @@ type
Protected
//Property setters
Procedure SetdiscoveryVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TDirectoryListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TDirectoryListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -168,7 +153,7 @@ type
Frequired : TStringArray;
Protected
//Property setters
- Procedure Setrequired(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setrequired(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -224,7 +209,7 @@ type
Protected
//Property setters
Procedure Setdiscriminant(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmap(AIndex : Integer; AValue : TJsonSchemaTypevariantTypemapArray); virtual;
+ Procedure Setmap(AIndex : Integer; const AValue : TJsonSchemaTypevariantTypemapArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -266,25 +251,25 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setref(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadditionalProperties(AIndex : Integer; AValue : TJsonSchema); virtual;
- Procedure Setannotations(AIndex : Integer; AValue : TJsonSchemaTypeannotations); virtual;
+ Procedure SetadditionalProperties(AIndex : Integer; const AValue : TJsonSchema); virtual;
+ Procedure Setannotations(AIndex : Integer; const AValue : TJsonSchemaTypeannotations); virtual;
Procedure Setdefault(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setenum(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetenumDescriptions(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setenum(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetenumDescriptions(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TJsonSchema); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TJsonSchema); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
Procedure Setmaximum(AIndex : Integer; const AValue : String); virtual;
Procedure Setminimum(AIndex : Integer; const AValue : String); virtual;
Procedure Setpattern(AIndex : Integer; const AValue : String); virtual;
- Procedure Setproperties(AIndex : Integer; AValue : TJsonSchemaTypeproperties); virtual;
- Procedure SetreadOnly(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setrepeated(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setrequired(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TJsonSchemaTypeproperties); virtual;
+ Procedure SetreadOnly(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setrepeated(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setrequired(AIndex : Integer; const AValue : boolean); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvariant(AIndex : Integer; AValue : TJsonSchemaTypevariant); virtual;
+ Procedure Setvariant(AIndex : Integer; const AValue : TJsonSchemaTypevariant); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -337,7 +322,7 @@ type
Fscopes : TRestDescriptionTypeauthTypeoauth2Typescopes;
Protected
//Property setters
- Procedure Setscopes(AIndex : Integer; AValue : TRestDescriptionTypeauthTypeoauth2Typescopes); virtual;
+ Procedure Setscopes(AIndex : Integer; const AValue : TRestDescriptionTypeauthTypeoauth2Typescopes); virtual;
Public
Published
Property scopes : TRestDescriptionTypeauthTypeoauth2Typescopes Index 0 Read Fscopes Write Setscopes;
@@ -353,7 +338,7 @@ type
Foauth2 : TRestDescriptionTypeauthTypeoauth2;
Protected
//Property setters
- Procedure Setoauth2(AIndex : Integer; AValue : TRestDescriptionTypeauthTypeoauth2); virtual;
+ Procedure Setoauth2(AIndex : Integer; const AValue : TRestDescriptionTypeauthTypeoauth2); virtual;
Public
Published
Property oauth2 : TRestDescriptionTypeauthTypeoauth2 Index 0 Read Foauth2 Write Setoauth2;
@@ -450,6 +435,7 @@ type
FdiscoveryVersion : String;
FdocumentationLink : String;
Fetag : String;
+ FexponentialBackoffDefault : boolean;
Ffeatures : TStringArray;
Ficons : TRestDescriptionTypeicons;
Fid : String;
@@ -469,9 +455,10 @@ type
FservicePath : String;
Ftitle : String;
Fversion : String;
+ Fversion_module : boolean;
Protected
//Property setters
- Procedure Setauth(AIndex : Integer; AValue : TRestDescriptionTypeauth); virtual;
+ Procedure Setauth(AIndex : Integer; const AValue : TRestDescriptionTypeauth); virtual;
Procedure SetbasePath(AIndex : Integer; const AValue : String); virtual;
Procedure SetbaseUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbatchPath(AIndex : Integer; const AValue : String); virtual;
@@ -480,25 +467,27 @@ type
Procedure SetdiscoveryVersion(AIndex : Integer; const AValue : String); virtual;
Procedure SetdocumentationLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfeatures(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Seticons(AIndex : Integer; AValue : TRestDescriptionTypeicons); virtual;
+ Procedure SetexponentialBackoffDefault(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setfeatures(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Seticons(AIndex : Integer; const AValue : TRestDescriptionTypeicons); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlabels(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setmethods(AIndex : Integer; AValue : TRestDescriptionTypemethods); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setmethods(AIndex : Integer; const AValue : TRestDescriptionTypemethods); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetownerDomain(AIndex : Integer; const AValue : String); virtual;
Procedure SetownerName(AIndex : Integer; const AValue : String); virtual;
Procedure SetpackagePath(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparameters(AIndex : Integer; AValue : TRestDescriptionTypeparameters); virtual;
+ Procedure Setparameters(AIndex : Integer; const AValue : TRestDescriptionTypeparameters); virtual;
Procedure Setprotocol(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TRestDescriptionTyperesources); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TRestDescriptionTyperesources); virtual;
Procedure Setrevision(AIndex : Integer; const AValue : String); virtual;
Procedure SetrootUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setschemas(AIndex : Integer; AValue : TRestDescriptionTypeschemas); virtual;
+ Procedure Setschemas(AIndex : Integer; const AValue : TRestDescriptionTypeschemas); virtual;
Procedure SetservicePath(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setversion_module(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -514,25 +503,27 @@ type
Property discoveryVersion : String Index 48 Read FdiscoveryVersion Write SetdiscoveryVersion;
Property documentationLink : String Index 56 Read FdocumentationLink Write SetdocumentationLink;
Property etag : String Index 64 Read Fetag Write Setetag;
- Property features : TStringArray Index 72 Read Ffeatures Write Setfeatures;
- Property icons : TRestDescriptionTypeicons Index 80 Read Ficons Write Seticons;
- Property id : String Index 88 Read Fid Write Setid;
- Property kind : String Index 96 Read Fkind Write Setkind;
- Property labels : TStringArray Index 104 Read Flabels Write Setlabels;
- Property methods : TRestDescriptionTypemethods Index 112 Read Fmethods Write Setmethods;
- Property name : String Index 120 Read Fname Write Setname;
- Property ownerDomain : String Index 128 Read FownerDomain Write SetownerDomain;
- Property ownerName : String Index 136 Read FownerName Write SetownerName;
- Property packagePath : String Index 144 Read FpackagePath Write SetpackagePath;
- Property parameters : TRestDescriptionTypeparameters Index 152 Read Fparameters Write Setparameters;
- Property protocol : String Index 160 Read Fprotocol Write Setprotocol;
- Property resources : TRestDescriptionTyperesources Index 168 Read Fresources Write Setresources;
- Property revision : String Index 176 Read Frevision Write Setrevision;
- Property rootUrl : String Index 184 Read FrootUrl Write SetrootUrl;
- Property schemas : TRestDescriptionTypeschemas Index 192 Read Fschemas Write Setschemas;
- Property servicePath : String Index 200 Read FservicePath Write SetservicePath;
- Property title : String Index 208 Read Ftitle Write Settitle;
- Property version : String Index 216 Read Fversion Write Setversion;
+ Property exponentialBackoffDefault : boolean Index 72 Read FexponentialBackoffDefault Write SetexponentialBackoffDefault;
+ Property features : TStringArray Index 80 Read Ffeatures Write Setfeatures;
+ Property icons : TRestDescriptionTypeicons Index 88 Read Ficons Write Seticons;
+ Property id : String Index 96 Read Fid Write Setid;
+ Property kind : String Index 104 Read Fkind Write Setkind;
+ Property labels : TStringArray Index 112 Read Flabels Write Setlabels;
+ Property methods : TRestDescriptionTypemethods Index 120 Read Fmethods Write Setmethods;
+ Property name : String Index 128 Read Fname Write Setname;
+ Property ownerDomain : String Index 136 Read FownerDomain Write SetownerDomain;
+ Property ownerName : String Index 144 Read FownerName Write SetownerName;
+ Property packagePath : String Index 152 Read FpackagePath Write SetpackagePath;
+ Property parameters : TRestDescriptionTypeparameters Index 160 Read Fparameters Write Setparameters;
+ Property protocol : String Index 168 Read Fprotocol Write Setprotocol;
+ Property resources : TRestDescriptionTyperesources Index 176 Read Fresources Write Setresources;
+ Property revision : String Index 184 Read Frevision Write Setrevision;
+ Property rootUrl : String Index 192 Read FrootUrl Write SetrootUrl;
+ Property schemas : TRestDescriptionTypeschemas Index 200 Read Fschemas Write Setschemas;
+ Property servicePath : String Index 208 Read FservicePath Write SetservicePath;
+ Property title : String Index 216 Read Ftitle Write Settitle;
+ Property version : String Index 224 Read Fversion Write Setversion;
+ Property version_module : boolean Index 232 Read Fversion_module Write Setversion_module;
end;
TRestDescriptionClass = Class of TRestDescription;
@@ -546,7 +537,7 @@ type
Fpath : String;
Protected
//Property setters
- Procedure Setmultipart(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setmultipart(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -565,7 +556,7 @@ type
Fpath : String;
Protected
//Property setters
- Procedure Setmultipart(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setmultipart(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -584,8 +575,8 @@ type
Fsimple : TRestMethodTypemediaUploadTypeprotocolsTypesimple;
Protected
//Property setters
- Procedure Setresumable(AIndex : Integer; AValue : TRestMethodTypemediaUploadTypeprotocolsTyperesumable); virtual;
- Procedure Setsimple(AIndex : Integer; AValue : TRestMethodTypemediaUploadTypeprotocolsTypesimple); virtual;
+ Procedure Setresumable(AIndex : Integer; const AValue : TRestMethodTypemediaUploadTypeprotocolsTyperesumable); virtual;
+ Procedure Setsimple(AIndex : Integer; const AValue : TRestMethodTypemediaUploadTypeprotocolsTypesimple); virtual;
Public
Published
Property resumable : TRestMethodTypemediaUploadTypeprotocolsTyperesumable Index 0 Read Fresumable Write Setresumable;
@@ -604,9 +595,9 @@ type
Fprotocols : TRestMethodTypemediaUploadTypeprotocols;
Protected
//Property setters
- Procedure Setaccept(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setaccept(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetmaxSize(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprotocols(AIndex : Integer; AValue : TRestMethodTypemediaUploadTypeprotocols); virtual;
+ Procedure Setprotocols(AIndex : Integer; const AValue : TRestMethodTypemediaUploadTypeprotocols); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -694,20 +685,20 @@ type
Protected
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetetagRequired(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetetagRequired(AIndex : Integer; const AValue : boolean); virtual;
Procedure SethttpMethod(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmediaUpload(AIndex : Integer; AValue : TRestMethodTypemediaUpload); virtual;
- Procedure SetparameterOrder(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setparameters(AIndex : Integer; AValue : TRestMethodTypeparameters); virtual;
+ Procedure SetmediaUpload(AIndex : Integer; const AValue : TRestMethodTypemediaUpload); virtual;
+ Procedure SetparameterOrder(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setparameters(AIndex : Integer; const AValue : TRestMethodTypeparameters); virtual;
Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrequest(AIndex : Integer; AValue : TRestMethodTyperequest); virtual;
- Procedure Setresponse(AIndex : Integer; AValue : TRestMethodTyperesponse); virtual;
- Procedure Setscopes(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsupportsMediaDownload(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsupportsMediaUpload(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsupportsSubscription(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetuseMediaDownloadService(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setrequest(AIndex : Integer; const AValue : TRestMethodTyperequest); virtual;
+ Procedure Setresponse(AIndex : Integer; const AValue : TRestMethodTyperesponse); virtual;
+ Procedure Setscopes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetsupportsMediaDownload(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsupportsMediaUpload(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsupportsSubscription(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetuseMediaDownloadService(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -770,8 +761,8 @@ type
Fresources : TRestResourceTyperesources;
Protected
//Property setters
- Procedure Setmethods(AIndex : Integer; AValue : TRestResourceTypemethods); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TRestResourceTyperesources); virtual;
+ Procedure Setmethods(AIndex : Integer; const AValue : TRestResourceTypemethods); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TRestResourceTyperesources); virtual;
Public
Published
Property methods : TRestResourceTypemethods Index 0 Read Fmethods Write Setmethods;
@@ -913,7 +904,7 @@ end;
-Procedure TDirectoryListTypeitemsItem.Seticons(AIndex : Integer; AValue : TDirectoryListTypeitemsItemTypeicons);
+Procedure TDirectoryListTypeitemsItem.Seticons(AIndex : Integer; const AValue : TDirectoryListTypeitemsItemTypeicons);
begin
If (Ficons=AValue) then exit;
@@ -943,7 +934,7 @@ end;
-Procedure TDirectoryListTypeitemsItem.Setlabels(AIndex : Integer; AValue : TStringArray);
+Procedure TDirectoryListTypeitemsItem.Setlabels(AIndex : Integer; const AValue : TStringArray);
begin
If (Flabels=AValue) then exit;
@@ -963,7 +954,7 @@ end;
-Procedure TDirectoryListTypeitemsItem.Setpreferred(AIndex : Integer; AValue : boolean);
+Procedure TDirectoryListTypeitemsItem.Setpreferred(AIndex : Integer; const AValue : boolean);
begin
If (Fpreferred=AValue) then exit;
@@ -1023,7 +1014,7 @@ end;
-Procedure TDirectoryList.Setitems(AIndex : Integer; AValue : TDirectoryListTypeitemsArray);
+Procedure TDirectoryList.Setitems(AIndex : Integer; const AValue : TDirectoryListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1063,7 +1054,7 @@ end;
--------------------------------------------------------------------}
-Procedure TJsonSchemaTypeannotations.Setrequired(AIndex : Integer; AValue : TStringArray);
+Procedure TJsonSchemaTypeannotations.Setrequired(AIndex : Integer; const AValue : TStringArray);
begin
If (Frequired=AValue) then exit;
@@ -1154,7 +1145,7 @@ end;
-Procedure TJsonSchemaTypevariant.Setmap(AIndex : Integer; AValue : TJsonSchemaTypevariantTypemapArray);
+Procedure TJsonSchemaTypevariant.Setmap(AIndex : Integer; const AValue : TJsonSchemaTypevariantTypemapArray);
begin
If (Fmap=AValue) then exit;
@@ -1194,7 +1185,7 @@ end;
-Procedure TJsonSchema.SetadditionalProperties(AIndex : Integer; AValue : TJsonSchema);
+Procedure TJsonSchema.SetadditionalProperties(AIndex : Integer; const AValue : TJsonSchema);
begin
If (FadditionalProperties=AValue) then exit;
@@ -1204,7 +1195,7 @@ end;
-Procedure TJsonSchema.Setannotations(AIndex : Integer; AValue : TJsonSchemaTypeannotations);
+Procedure TJsonSchema.Setannotations(AIndex : Integer; const AValue : TJsonSchemaTypeannotations);
begin
If (Fannotations=AValue) then exit;
@@ -1234,7 +1225,7 @@ end;
-Procedure TJsonSchema.Setenum(AIndex : Integer; AValue : TStringArray);
+Procedure TJsonSchema.Setenum(AIndex : Integer; const AValue : TStringArray);
begin
If (Fenum=AValue) then exit;
@@ -1244,7 +1235,7 @@ end;
-Procedure TJsonSchema.SetenumDescriptions(AIndex : Integer; AValue : TStringArray);
+Procedure TJsonSchema.SetenumDescriptions(AIndex : Integer; const AValue : TStringArray);
begin
If (FenumDescriptions=AValue) then exit;
@@ -1274,7 +1265,7 @@ end;
-Procedure TJsonSchema.Setitems(AIndex : Integer; AValue : TJsonSchema);
+Procedure TJsonSchema.Setitems(AIndex : Integer; const AValue : TJsonSchema);
begin
If (Fitems=AValue) then exit;
@@ -1324,7 +1315,7 @@ end;
-Procedure TJsonSchema.Setproperties(AIndex : Integer; AValue : TJsonSchemaTypeproperties);
+Procedure TJsonSchema.Setproperties(AIndex : Integer; const AValue : TJsonSchemaTypeproperties);
begin
If (Fproperties=AValue) then exit;
@@ -1334,7 +1325,7 @@ end;
-Procedure TJsonSchema.SetreadOnly(AIndex : Integer; AValue : boolean);
+Procedure TJsonSchema.SetreadOnly(AIndex : Integer; const AValue : boolean);
begin
If (FreadOnly=AValue) then exit;
@@ -1344,7 +1335,7 @@ end;
-Procedure TJsonSchema.Setrepeated(AIndex : Integer; AValue : boolean);
+Procedure TJsonSchema.Setrepeated(AIndex : Integer; const AValue : boolean);
begin
If (Frepeated=AValue) then exit;
@@ -1354,7 +1345,7 @@ end;
-Procedure TJsonSchema.Setrequired(AIndex : Integer; AValue : boolean);
+Procedure TJsonSchema.Setrequired(AIndex : Integer; const AValue : boolean);
begin
If (Frequired=AValue) then exit;
@@ -1374,7 +1365,7 @@ end;
-Procedure TJsonSchema.Setvariant(AIndex : Integer; AValue : TJsonSchemaTypevariant);
+Procedure TJsonSchema.Setvariant(AIndex : Integer; const AValue : TJsonSchemaTypevariant);
begin
If (Fvariant=AValue) then exit;
@@ -1430,7 +1421,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRestDescriptionTypeauthTypeoauth2.Setscopes(AIndex : Integer; AValue : TRestDescriptionTypeauthTypeoauth2Typescopes);
+Procedure TRestDescriptionTypeauthTypeoauth2.Setscopes(AIndex : Integer; const AValue : TRestDescriptionTypeauthTypeoauth2Typescopes);
begin
If (Fscopes=AValue) then exit;
@@ -1447,7 +1438,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRestDescriptionTypeauth.Setoauth2(AIndex : Integer; AValue : TRestDescriptionTypeauthTypeoauth2);
+Procedure TRestDescriptionTypeauth.Setoauth2(AIndex : Integer; const AValue : TRestDescriptionTypeauthTypeoauth2);
begin
If (Foauth2=AValue) then exit;
@@ -1543,7 +1534,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRestDescription.Setauth(AIndex : Integer; AValue : TRestDescriptionTypeauth);
+Procedure TRestDescription.Setauth(AIndex : Integer; const AValue : TRestDescriptionTypeauth);
begin
If (Fauth=AValue) then exit;
@@ -1633,7 +1624,17 @@ end;
-Procedure TRestDescription.Setfeatures(AIndex : Integer; AValue : TStringArray);
+Procedure TRestDescription.SetexponentialBackoffDefault(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FexponentialBackoffDefault=AValue) then exit;
+ FexponentialBackoffDefault:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRestDescription.Setfeatures(AIndex : Integer; const AValue : TStringArray);
begin
If (Ffeatures=AValue) then exit;
@@ -1643,7 +1644,7 @@ end;
-Procedure TRestDescription.Seticons(AIndex : Integer; AValue : TRestDescriptionTypeicons);
+Procedure TRestDescription.Seticons(AIndex : Integer; const AValue : TRestDescriptionTypeicons);
begin
If (Ficons=AValue) then exit;
@@ -1673,7 +1674,7 @@ end;
-Procedure TRestDescription.Setlabels(AIndex : Integer; AValue : TStringArray);
+Procedure TRestDescription.Setlabels(AIndex : Integer; const AValue : TStringArray);
begin
If (Flabels=AValue) then exit;
@@ -1683,7 +1684,7 @@ end;
-Procedure TRestDescription.Setmethods(AIndex : Integer; AValue : TRestDescriptionTypemethods);
+Procedure TRestDescription.Setmethods(AIndex : Integer; const AValue : TRestDescriptionTypemethods);
begin
If (Fmethods=AValue) then exit;
@@ -1733,7 +1734,7 @@ end;
-Procedure TRestDescription.Setparameters(AIndex : Integer; AValue : TRestDescriptionTypeparameters);
+Procedure TRestDescription.Setparameters(AIndex : Integer; const AValue : TRestDescriptionTypeparameters);
begin
If (Fparameters=AValue) then exit;
@@ -1753,7 +1754,7 @@ end;
-Procedure TRestDescription.Setresources(AIndex : Integer; AValue : TRestDescriptionTyperesources);
+Procedure TRestDescription.Setresources(AIndex : Integer; const AValue : TRestDescriptionTyperesources);
begin
If (Fresources=AValue) then exit;
@@ -1783,7 +1784,7 @@ end;
-Procedure TRestDescription.Setschemas(AIndex : Integer; AValue : TRestDescriptionTypeschemas);
+Procedure TRestDescription.Setschemas(AIndex : Integer; const AValue : TRestDescriptionTypeschemas);
begin
If (Fschemas=AValue) then exit;
@@ -1822,6 +1823,16 @@ begin
end;
+
+Procedure TRestDescription.Setversion_module(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fversion_module=AValue) then exit;
+ Fversion_module:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRestDescription.SetArrayLength(Const AName : String; ALength : Longint);
@@ -1844,7 +1855,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRestMethodTypemediaUploadTypeprotocolsTyperesumable.Setmultipart(AIndex : Integer; AValue : boolean);
+Procedure TRestMethodTypemediaUploadTypeprotocolsTyperesumable.Setmultipart(AIndex : Integer; const AValue : boolean);
begin
If (Fmultipart=AValue) then exit;
@@ -1871,7 +1882,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRestMethodTypemediaUploadTypeprotocolsTypesimple.Setmultipart(AIndex : Integer; AValue : boolean);
+Procedure TRestMethodTypemediaUploadTypeprotocolsTypesimple.Setmultipart(AIndex : Integer; const AValue : boolean);
begin
If (Fmultipart=AValue) then exit;
@@ -1898,7 +1909,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRestMethodTypemediaUploadTypeprotocols.Setresumable(AIndex : Integer; AValue : TRestMethodTypemediaUploadTypeprotocolsTyperesumable);
+Procedure TRestMethodTypemediaUploadTypeprotocols.Setresumable(AIndex : Integer; const AValue : TRestMethodTypemediaUploadTypeprotocolsTyperesumable);
begin
If (Fresumable=AValue) then exit;
@@ -1908,7 +1919,7 @@ end;
-Procedure TRestMethodTypemediaUploadTypeprotocols.Setsimple(AIndex : Integer; AValue : TRestMethodTypemediaUploadTypeprotocolsTypesimple);
+Procedure TRestMethodTypemediaUploadTypeprotocols.Setsimple(AIndex : Integer; const AValue : TRestMethodTypemediaUploadTypeprotocolsTypesimple);
begin
If (Fsimple=AValue) then exit;
@@ -1925,7 +1936,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRestMethodTypemediaUpload.Setaccept(AIndex : Integer; AValue : TStringArray);
+Procedure TRestMethodTypemediaUpload.Setaccept(AIndex : Integer; const AValue : TStringArray);
begin
If (Faccept=AValue) then exit;
@@ -1945,7 +1956,7 @@ end;
-Procedure TRestMethodTypemediaUpload.Setprotocols(AIndex : Integer; AValue : TRestMethodTypemediaUploadTypeprotocols);
+Procedure TRestMethodTypemediaUpload.Setprotocols(AIndex : Integer; const AValue : TRestMethodTypemediaUploadTypeprotocols);
begin
If (Fprotocols=AValue) then exit;
@@ -2064,7 +2075,7 @@ end;
-Procedure TRestMethod.SetetagRequired(AIndex : Integer; AValue : boolean);
+Procedure TRestMethod.SetetagRequired(AIndex : Integer; const AValue : boolean);
begin
If (FetagRequired=AValue) then exit;
@@ -2094,7 +2105,7 @@ end;
-Procedure TRestMethod.SetmediaUpload(AIndex : Integer; AValue : TRestMethodTypemediaUpload);
+Procedure TRestMethod.SetmediaUpload(AIndex : Integer; const AValue : TRestMethodTypemediaUpload);
begin
If (FmediaUpload=AValue) then exit;
@@ -2104,7 +2115,7 @@ end;
-Procedure TRestMethod.SetparameterOrder(AIndex : Integer; AValue : TStringArray);
+Procedure TRestMethod.SetparameterOrder(AIndex : Integer; const AValue : TStringArray);
begin
If (FparameterOrder=AValue) then exit;
@@ -2114,7 +2125,7 @@ end;
-Procedure TRestMethod.Setparameters(AIndex : Integer; AValue : TRestMethodTypeparameters);
+Procedure TRestMethod.Setparameters(AIndex : Integer; const AValue : TRestMethodTypeparameters);
begin
If (Fparameters=AValue) then exit;
@@ -2134,7 +2145,7 @@ end;
-Procedure TRestMethod.Setrequest(AIndex : Integer; AValue : TRestMethodTyperequest);
+Procedure TRestMethod.Setrequest(AIndex : Integer; const AValue : TRestMethodTyperequest);
begin
If (Frequest=AValue) then exit;
@@ -2144,7 +2155,7 @@ end;
-Procedure TRestMethod.Setresponse(AIndex : Integer; AValue : TRestMethodTyperesponse);
+Procedure TRestMethod.Setresponse(AIndex : Integer; const AValue : TRestMethodTyperesponse);
begin
If (Fresponse=AValue) then exit;
@@ -2154,7 +2165,7 @@ end;
-Procedure TRestMethod.Setscopes(AIndex : Integer; AValue : TStringArray);
+Procedure TRestMethod.Setscopes(AIndex : Integer; const AValue : TStringArray);
begin
If (Fscopes=AValue) then exit;
@@ -2164,7 +2175,7 @@ end;
-Procedure TRestMethod.SetsupportsMediaDownload(AIndex : Integer; AValue : boolean);
+Procedure TRestMethod.SetsupportsMediaDownload(AIndex : Integer; const AValue : boolean);
begin
If (FsupportsMediaDownload=AValue) then exit;
@@ -2174,7 +2185,7 @@ end;
-Procedure TRestMethod.SetsupportsMediaUpload(AIndex : Integer; AValue : boolean);
+Procedure TRestMethod.SetsupportsMediaUpload(AIndex : Integer; const AValue : boolean);
begin
If (FsupportsMediaUpload=AValue) then exit;
@@ -2184,7 +2195,7 @@ end;
-Procedure TRestMethod.SetsupportsSubscription(AIndex : Integer; AValue : boolean);
+Procedure TRestMethod.SetsupportsSubscription(AIndex : Integer; const AValue : boolean);
begin
If (FsupportsSubscription=AValue) then exit;
@@ -2194,7 +2205,7 @@ end;
-Procedure TRestMethod.SetuseMediaDownloadService(AIndex : Integer; AValue : boolean);
+Procedure TRestMethod.SetuseMediaDownloadService(AIndex : Integer; const AValue : boolean);
begin
If (FuseMediaDownloadService=AValue) then exit;
@@ -2251,7 +2262,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRestResource.Setmethods(AIndex : Integer; AValue : TRestResourceTypemethods);
+Procedure TRestResource.Setmethods(AIndex : Integer; const AValue : TRestResourceTypemethods);
begin
If (Fmethods=AValue) then exit;
@@ -2261,7 +2272,7 @@ end;
-Procedure TRestResource.Setresources(AIndex : Integer; AValue : TRestResourceTyperesources);
+Procedure TRestResource.Setresources(AIndex : Integer; const AValue : TRestResourceTyperesources);
begin
If (Fresources=AValue) then exit;
@@ -2368,7 +2379,7 @@ end;
Class Function TDiscoveryAPI.APIDescription : String;
begin
- Result:='Lets you discover information about other Google APIs, such as what APIs are available, the resource and method details for each API.';
+ Result:='Provides information about other Google APIs, such as what APIs are available, the resource, and method details for each API.';
end;
Class Function TDiscoveryAPI.APIOwnerDomain : String;
@@ -2404,7 +2415,7 @@ end;
Class Function TDiscoveryAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TDiscoveryAPI.APIbasePath : string;
@@ -2416,7 +2427,7 @@ end;
Class Function TDiscoveryAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/discovery/v1/';
+ Result:='https://www.googleapis.com/discovery/v1/';
end;
Class Function TDiscoveryAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlediscoverytopas.pp b/packages/googleapi/src/googlediscoverytopas.pp
index bdc05f29e3..3e1a2bf6bc 100644
--- a/packages/googleapi/src/googlediscoverytopas.pp
+++ b/packages/googleapi/src/googlediscoverytopas.pp
@@ -280,6 +280,7 @@ Type
private
FDescription: String;
FeTagrequired: Boolean;
+ FflatPath: string;
FhttpMethod: string;
Fid: string;
fMediaUpload: TMediaUpload;
@@ -307,6 +308,7 @@ Type
Property parameterOrder : TStringArray Read FParameterOrder Write FParameterOrder;
Property parameters : TRestMethodParams read fparameters write fparameters;
Property path : string read fpath Write fpath;
+ Property flatPath : string read FflatPath Write FflatPath;
Property request : trequest read frequest write frequest;
Property response : tresponse read fresponse write fresponse;
property scopes : TStringArray Read Fscopes write Fscopes;
@@ -769,6 +771,8 @@ Var
BaseArrayElement : Boolean;
begin
+ if (S.Name='Component') and (NamePrefix='') then
+ NamePrefix:='_';
dt:=GetSchemaDataType(S);
BaseArrayElement:=(dt=dtArray) and S.Items.BaseType;
DoLog('[%s] Examining : %s (Ref : %s type: %s) Toplevel %s',[NamePrefix,S.Name,S.ref,S._type,BoolToStr(IsTopLevel,'True','False')]);
@@ -1061,7 +1065,7 @@ begin
begin
N:=S.PropertyName;
tn:=GetPropertyType(AClassName,S);
- AddLn('Procedure Set%s(AIndex : Integer; Const AValue : %s); virtual;',[N,tn]);
+ AddLn('Procedure Set%s(AIndex : Integer; const AValue : %s); virtual;',[N,tn]);
end;
if NeedSetArrayLength and not UseListForArray then
begin
@@ -1216,7 +1220,7 @@ begin
NeedGetWritename:=NeedGetWritename or (CompareText(N,S.Name)<>0);
TN:=GetPropertyType(AClassName,S);
Addln('');
- AddLn('Procedure %s.Set%s(AIndex : Integer; Const AValue : %s); ',[AClassName,N,tn]);
+ AddLn('Procedure %s.Set%s(AIndex : Integer; const AValue : %s); ',[AClassName,N,tn]);
SimpleMethodBody([Format('If (F%s=AValue) then exit;',[N]),
Format('F%s:=AValue;',[N]),
'MarkPropertyChanged(AIndex);']);
@@ -1553,6 +1557,8 @@ begin
Add('DefaultAPI');
Add('API');
Add('Notification');
+ Add('UpdateAction');
+ Add('ExecuteAction');
end;
// Actual paramters
For P in M.parameters do
@@ -1921,8 +1927,15 @@ Procedure TDiscoveryJSONToPas.CreateAPIClassImplementation;
Procedure StringRes(AValue : String);
+ Var
+ S : String;
+
begin
- SimpleMethodBody([Format('Result:=%s;',[MakePascalString(AValue,True)])]);
+ S:=MakePascalString(AValue,True);
+ S:=StringReplace(S,#13#10,'''#13#10''',[rfReplaceAll]);
+ S:=StringReplace(S,#10,'''#10''',[rfReplaceAll]);
+ S:=StringReplace(S,#13,'''#13''',[rfReplaceAll]);
+ SimpleMethodBody([Format('Result:=%s;',[S])]);
end;
Var
diff --git a/packages/googleapi/src/googledns.pp b/packages/googleapi/src/googledns.pp
index b90bda253c..340b3710b7 100644
--- a/packages/googleapi/src/googledns.pp
+++ b/packages/googleapi/src/googledns.pp
@@ -1,19 +1,4 @@
unit googledns;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:02
{$MODE objfpc}
{$H+}
@@ -61,8 +46,8 @@ type
Fstatus : String;
Protected
//Property setters
- Procedure Setadditions(AIndex : Integer; AValue : TChangeTypeadditionsArray); virtual;
- Procedure Setdeletions(AIndex : Integer; AValue : TChangeTypedeletionsArray); virtual;
+ Procedure Setadditions(AIndex : Integer; const AValue : TChangeTypeadditionsArray); virtual;
+ Procedure Setdeletions(AIndex : Integer; const AValue : TChangeTypedeletionsArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
@@ -93,7 +78,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setchanges(AIndex : Integer; AValue : TChangesListResponseTypechangesArray); virtual;
+ Procedure Setchanges(AIndex : Integer; const AValue : TChangesListResponseTypechangesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -131,7 +116,7 @@ type
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetnameServerSet(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnameServers(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetnameServers(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -161,7 +146,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmanagedZones(AIndex : Integer; AValue : TManagedZonesListResponseTypemanagedZonesArray); virtual;
+ Procedure SetmanagedZones(AIndex : Integer; const AValue : TManagedZonesListResponseTypemanagedZonesArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -190,7 +175,7 @@ type
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setnumber(AIndex : Integer; const AValue : String); virtual;
- Procedure Setquota(AIndex : Integer; AValue : TQuota); virtual;
+ Procedure Setquota(AIndex : Integer; const AValue : TQuota); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
@@ -216,12 +201,12 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmanagedZones(AIndex : Integer; AValue : integer); virtual;
- Procedure SetresourceRecordsPerRrset(AIndex : Integer; AValue : integer); virtual;
- Procedure SetrrsetAdditionsPerChange(AIndex : Integer; AValue : integer); virtual;
- Procedure SetrrsetDeletionsPerChange(AIndex : Integer; AValue : integer); virtual;
- Procedure SetrrsetsPerManagedZone(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalRrdataSizePerChange(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmanagedZones(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetresourceRecordsPerRrset(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetrrsetAdditionsPerChange(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetrrsetDeletionsPerChange(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetrrsetsPerManagedZone(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalRrdataSizePerChange(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
@@ -250,8 +235,8 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrrdatas(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setttl(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setrrdatas(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setttl(AIndex : Integer; const AValue : integer); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -280,7 +265,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrrsets(AIndex : Integer; AValue : TResourceRecordSetsListResponseTyperrsetsArray); virtual;
+ Procedure Setrrsets(AIndex : Integer; const AValue : TResourceRecordSetsListResponseTyperrsetsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -326,6 +311,7 @@ type
//Optional query Options for TManagedZonesResource, method List
TManagedZonesListOptions = Record
+ dnsName : String;
maxResults : integer;
pageToken : String;
end;
@@ -437,7 +423,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TChange.Setadditions(AIndex : Integer; AValue : TChangeTypeadditionsArray);
+Procedure TChange.Setadditions(AIndex : Integer; const AValue : TChangeTypeadditionsArray);
begin
If (Fadditions=AValue) then exit;
@@ -447,7 +433,7 @@ end;
-Procedure TChange.Setdeletions(AIndex : Integer; AValue : TChangeTypedeletionsArray);
+Procedure TChange.Setdeletions(AIndex : Integer; const AValue : TChangeTypedeletionsArray);
begin
If (Fdeletions=AValue) then exit;
@@ -518,7 +504,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChangesListResponse.Setchanges(AIndex : Integer; AValue : TChangesListResponseTypechangesArray);
+Procedure TChangesListResponse.Setchanges(AIndex : Integer; const AValue : TChangesListResponseTypechangesArray);
begin
If (Fchanges=AValue) then exit;
@@ -638,7 +624,7 @@ end;
-Procedure TManagedZone.SetnameServers(AIndex : Integer; AValue : TStringArray);
+Procedure TManagedZone.SetnameServers(AIndex : Integer; const AValue : TStringArray);
begin
If (FnameServers=AValue) then exit;
@@ -678,7 +664,7 @@ end;
-Procedure TManagedZonesListResponse.SetmanagedZones(AIndex : Integer; AValue : TManagedZonesListResponseTypemanagedZonesArray);
+Procedure TManagedZonesListResponse.SetmanagedZones(AIndex : Integer; const AValue : TManagedZonesListResponseTypemanagedZonesArray);
begin
If (FmanagedZones=AValue) then exit;
@@ -748,7 +734,7 @@ end;
-Procedure TProject.Setquota(AIndex : Integer; AValue : TQuota);
+Procedure TProject.Setquota(AIndex : Integer; const AValue : TQuota);
begin
If (Fquota=AValue) then exit;
@@ -775,7 +761,7 @@ end;
-Procedure TQuota.SetmanagedZones(AIndex : Integer; AValue : integer);
+Procedure TQuota.SetmanagedZones(AIndex : Integer; const AValue : integer);
begin
If (FmanagedZones=AValue) then exit;
@@ -785,7 +771,7 @@ end;
-Procedure TQuota.SetresourceRecordsPerRrset(AIndex : Integer; AValue : integer);
+Procedure TQuota.SetresourceRecordsPerRrset(AIndex : Integer; const AValue : integer);
begin
If (FresourceRecordsPerRrset=AValue) then exit;
@@ -795,7 +781,7 @@ end;
-Procedure TQuota.SetrrsetAdditionsPerChange(AIndex : Integer; AValue : integer);
+Procedure TQuota.SetrrsetAdditionsPerChange(AIndex : Integer; const AValue : integer);
begin
If (FrrsetAdditionsPerChange=AValue) then exit;
@@ -805,7 +791,7 @@ end;
-Procedure TQuota.SetrrsetDeletionsPerChange(AIndex : Integer; AValue : integer);
+Procedure TQuota.SetrrsetDeletionsPerChange(AIndex : Integer; const AValue : integer);
begin
If (FrrsetDeletionsPerChange=AValue) then exit;
@@ -815,7 +801,7 @@ end;
-Procedure TQuota.SetrrsetsPerManagedZone(AIndex : Integer; AValue : integer);
+Procedure TQuota.SetrrsetsPerManagedZone(AIndex : Integer; const AValue : integer);
begin
If (FrrsetsPerManagedZone=AValue) then exit;
@@ -825,7 +811,7 @@ end;
-Procedure TQuota.SettotalRrdataSizePerChange(AIndex : Integer; AValue : integer);
+Procedure TQuota.SettotalRrdataSizePerChange(AIndex : Integer; const AValue : integer);
begin
If (FtotalRrdataSizePerChange=AValue) then exit;
@@ -862,7 +848,7 @@ end;
-Procedure TResourceRecordSet.Setrrdatas(AIndex : Integer; AValue : TStringArray);
+Procedure TResourceRecordSet.Setrrdatas(AIndex : Integer; const AValue : TStringArray);
begin
If (Frrdatas=AValue) then exit;
@@ -872,7 +858,7 @@ end;
-Procedure TResourceRecordSet.Setttl(AIndex : Integer; AValue : integer);
+Procedure TResourceRecordSet.Setttl(AIndex : Integer; const AValue : integer);
begin
If (Fttl=AValue) then exit;
@@ -943,7 +929,7 @@ end;
-Procedure TResourceRecordSetsListResponse.Setrrsets(AIndex : Integer; AValue : TResourceRecordSetsListResponseTyperrsetsArray);
+Procedure TResourceRecordSetsListResponse.Setrrsets(AIndex : Integer; const AValue : TResourceRecordSetsListResponseTyperrsetsArray);
begin
If (Frrsets=AValue) then exit;
@@ -1132,6 +1118,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'dnsName',AQuery.dnsName);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
@@ -1241,7 +1228,7 @@ end;
Class Function TDnsAPI.APIRevision : String;
begin
- Result:='20150218';
+ Result:='20160513';
end;
Class Function TDnsAPI.APIID : String;
@@ -1259,7 +1246,7 @@ end;
Class Function TDnsAPI.APIDescription : String;
begin
- Result:='The Google Cloud DNS API provides services for configuring and serving authoritative DNS records.';
+ Result:='Configures and serves authoritative DNS records.';
end;
Class Function TDnsAPI.APIOwnerDomain : String;
@@ -1295,7 +1282,7 @@ end;
Class Function TDnsAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TDnsAPI.APIbasePath : string;
@@ -1307,7 +1294,7 @@ end;
Class Function TDnsAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/dns/v1/projects/';
+ Result:='https://www.googleapis.com/dns/v1/projects/';
end;
Class Function TDnsAPI.APIProtocol : string;
@@ -1331,13 +1318,15 @@ end;
Class Function TDnsAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,3);
+ SetLength(Result,4);
Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[0].Description:='View and manage your data across Google Cloud Platform services';
- Result[1].Name:='https://www.googleapis.com/auth/ndev.clouddns.readonly';
- Result[1].Description:='View your DNS records hosted by Google Cloud DNS';
- Result[2].Name:='https://www.googleapis.com/auth/ndev.clouddns.readwrite';
- Result[2].Description:='View and manage your DNS records hosted by Google Cloud DNS';
+ Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
+ Result[1].Description:='View your data across Google Cloud Platform services';
+ Result[2].Name:='https://www.googleapis.com/auth/ndev.clouddns.readonly';
+ Result[2].Description:='View your DNS records hosted by Google Cloud DNS';
+ Result[3].Name:='https://www.googleapis.com/auth/ndev.clouddns.readwrite';
+ Result[3].Description:='View and manage your DNS records hosted by Google Cloud DNS';
end;
diff --git a/packages/googleapi/src/googledoubleclickbidmanager.pp b/packages/googleapi/src/googledoubleclickbidmanager.pp
index 23d6269c11..27d3bd501b 100644
--- a/packages/googleapi/src/googledoubleclickbidmanager.pp
+++ b/packages/googleapi/src/googledoubleclickbidmanager.pp
@@ -1,19 +1,4 @@
unit googledoubleclickbidmanager;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:02
{$MODE objfpc}
{$H+}
@@ -29,6 +14,8 @@ type
TFilterPair = Class;
TListQueriesResponse = Class;
TListReportsResponse = Class;
+ TNote = Class;
+ TNotifyProposalChangeRequest = Class;
TParameters = Class;
TQuery = Class;
TQueryMetadata = Class;
@@ -48,6 +35,8 @@ type
TFilterPairArray = Array of TFilterPair;
TListQueriesResponseArray = Array of TListQueriesResponse;
TListReportsResponseArray = Array of TListReportsResponse;
+ TNoteArray = Array of TNote;
+ TNotifyProposalChangeRequestArray = Array of TNotifyProposalChangeRequest;
TParametersArray = Array of TParameters;
TQueryArray = Array of TQuery;
TQueryMetadataArray = Array of TQueryMetadata;
@@ -65,6 +54,7 @@ type
//Anonymous types, using auto-generated names
TListQueriesResponseTypequeriesArray = Array of TQuery;
TListReportsResponseTypereportsArray = Array of TReport;
+ TNotifyProposalChangeRequestTypenotesArray = Array of TNote;
TParametersTypefiltersArray = Array of TFilterPair;
TUploadStatusTyperowStatusArray = Array of TRowStatus;
@@ -74,12 +64,14 @@ type
TDownloadLineItemsRequest = Class(TGoogleBaseObject)
Private
+ FfileSpec : String;
FfilterIds : TStringArray;
FfilterType : String;
Fformat : String;
Protected
//Property setters
- Procedure SetfilterIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetfileSpec(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfilterIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetfilterType(AIndex : Integer; const AValue : String); virtual;
Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -88,9 +80,10 @@ type
{$ENDIF VER2_6}
Public
Published
- Property filterIds : TStringArray Index 0 Read FfilterIds Write SetfilterIds;
- Property filterType : String Index 8 Read FfilterType Write SetfilterType;
- Property format : String Index 16 Read Fformat Write Setformat;
+ Property fileSpec : String Index 0 Read FfileSpec Write SetfileSpec;
+ Property filterIds : TStringArray Index 8 Read FfilterIds Write SetfilterIds;
+ Property filterType : String Index 16 Read FfilterType Write SetfilterType;
+ Property format : String Index 24 Read Fformat Write Setformat;
end;
TDownloadLineItemsRequestClass = Class of TDownloadLineItemsRequest;
@@ -141,7 +134,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setqueries(AIndex : Integer; AValue : TListQueriesResponseTypequeriesArray); virtual;
+ Procedure Setqueries(AIndex : Integer; const AValue : TListQueriesResponseTypequeriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -164,7 +157,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setreports(AIndex : Integer; AValue : TListReportsResponseTypereportsArray); virtual;
+ Procedure Setreports(AIndex : Integer; const AValue : TListReportsResponseTypereportsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -177,6 +170,66 @@ type
TListReportsResponseClass = Class of TListReportsResponse;
{ --------------------------------------------------------------------
+ TNote
+ --------------------------------------------------------------------}
+
+ TNote = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fmessage : String;
+ Fsource : String;
+ Ftimestamp : String;
+ Fusername : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property message : String Index 8 Read Fmessage Write Setmessage;
+ Property source : String Index 16 Read Fsource Write Setsource;
+ Property timestamp : String Index 24 Read Ftimestamp Write Settimestamp;
+ Property username : String Index 32 Read Fusername Write Setusername;
+ end;
+ TNoteClass = Class of TNote;
+
+ { --------------------------------------------------------------------
+ TNotifyProposalChangeRequest
+ --------------------------------------------------------------------}
+
+ TNotifyProposalChangeRequest = Class(TGoogleBaseObject)
+ Private
+ Faction : String;
+ Fhref : String;
+ Fid : String;
+ Fnotes : TNotifyProposalChangeRequestTypenotesArray;
+ Ftoken : String;
+ Protected
+ //Property setters
+ Procedure Setaction(AIndex : Integer; const AValue : String); virtual;
+ Procedure Sethref(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnotes(AIndex : Integer; const AValue : TNotifyProposalChangeRequestTypenotesArray); virtual;
+ Procedure Settoken(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 action : String Index 0 Read Faction Write Setaction;
+ Property href : String Index 8 Read Fhref Write Sethref;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property notes : TNotifyProposalChangeRequestTypenotesArray Index 24 Read Fnotes Write Setnotes;
+ Property token : String Index 32 Read Ftoken Write Settoken;
+ end;
+ TNotifyProposalChangeRequestClass = Class of TNotifyProposalChangeRequest;
+
+ { --------------------------------------------------------------------
TParameters
--------------------------------------------------------------------}
@@ -190,10 +243,10 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setfilters(AIndex : Integer; AValue : TParametersTypefiltersArray); virtual;
- Procedure SetgroupBys(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetincludeInviteData(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setmetrics(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setfilters(AIndex : Integer; const AValue : TParametersTypefiltersArray); virtual;
+ Procedure SetgroupBys(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetincludeInviteData(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -226,12 +279,12 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetadata(AIndex : Integer; AValue : TQueryMetadata); virtual;
- Procedure Setparams(AIndex : Integer; AValue : TParameters); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TQueryMetadata); virtual;
+ Procedure Setparams(AIndex : Integer; const AValue : TParameters); virtual;
Procedure SetqueryId(AIndex : Integer; const AValue : String); virtual;
Procedure SetreportDataEndTimeMs(AIndex : Integer; const AValue : String); virtual;
Procedure SetreportDataStartTimeMs(AIndex : Integer; const AValue : String); virtual;
- Procedure Setschedule(AIndex : Integer; AValue : TQuerySchedule); virtual;
+ Procedure Setschedule(AIndex : Integer; const AValue : TQuerySchedule); virtual;
Procedure SettimezoneCode(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -271,10 +324,10 @@ type
Procedure SetgoogleDrivePathForLatestReport(AIndex : Integer; const AValue : String); virtual;
Procedure SetlatestReportRunTimeMs(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreportCount(AIndex : Integer; AValue : integer); virtual;
- Procedure Setrunning(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsendNotification(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetshareEmailAddress(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetreportCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setrunning(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsendNotification(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetshareEmailAddress(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -310,7 +363,7 @@ type
//Property setters
Procedure SetendTimeMs(AIndex : Integer; const AValue : String); virtual;
Procedure Setfrequency(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextRunMinuteOfDay(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetnextRunMinuteOfDay(AIndex : Integer; const AValue : integer); virtual;
Procedure SetnextRunTimezoneCode(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -332,9 +385,9 @@ type
Fparams : TParameters;
Protected
//Property setters
- Procedure Setkey(AIndex : Integer; AValue : TReportKey); virtual;
- Procedure Setmetadata(AIndex : Integer; AValue : TReportMetadata); virtual;
- Procedure Setparams(AIndex : Integer; AValue : TParameters); virtual;
+ Procedure Setkey(AIndex : Integer; const AValue : TReportKey); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TReportMetadata); virtual;
+ Procedure Setparams(AIndex : Integer; const AValue : TParameters); virtual;
Public
Published
Property key : TReportKey Index 0 Read Fkey Write Setkey;
@@ -393,7 +446,7 @@ type
Procedure SetgoogleCloudStoragePath(AIndex : Integer; const AValue : String); virtual;
Procedure SetreportDataEndTimeMs(AIndex : Integer; const AValue : String); virtual;
Procedure SetreportDataStartTimeMs(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TReportStatus); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TReportStatus); virtual;
Public
Published
Property googleCloudStoragePath : String Index 0 Read FgoogleCloudStoragePath Write SetgoogleCloudStoragePath;
@@ -415,7 +468,7 @@ type
Fstate : String;
Protected
//Property setters
- Procedure Setfailure(AIndex : Integer; AValue : TReportFailure); virtual;
+ Procedure Setfailure(AIndex : Integer; const AValue : TReportFailure); virtual;
Procedure SetfinishTimeMs(AIndex : Integer; const AValue : String); virtual;
Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
@@ -442,12 +495,12 @@ type
FrowNumber : integer;
Protected
//Property setters
- Procedure Setchanged(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setchanged(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetentityId(AIndex : Integer; const AValue : String); virtual;
Procedure SetentityName(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setpersisted(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetrowNumber(AIndex : Integer; AValue : integer); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setpersisted(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetrowNumber(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -499,7 +552,7 @@ type
FlineItems : String;
Protected
//Property setters
- Procedure SetdryRun(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdryRun(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
Procedure SetlineItems(AIndex : Integer; const AValue : String); virtual;
Public
@@ -519,7 +572,7 @@ type
FuploadStatus : TUploadStatus;
Protected
//Property setters
- Procedure SetuploadStatus(AIndex : Integer; AValue : TUploadStatus); virtual;
+ Procedure SetuploadStatus(AIndex : Integer; const AValue : TUploadStatus); virtual;
Public
Published
Property uploadStatus : TUploadStatus Index 0 Read FuploadStatus Write SetuploadStatus;
@@ -536,8 +589,8 @@ type
FrowStatus : TUploadStatusTyperowStatusArray;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetrowStatus(AIndex : Integer; AValue : TUploadStatusTyperowStatusArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetrowStatus(AIndex : Integer; const AValue : TUploadStatusTyperowStatusArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -591,6 +644,18 @@ type
{ --------------------------------------------------------------------
+ TRubiconResource
+ --------------------------------------------------------------------}
+
+ TRubiconResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure Notifyproposalchange(aNotifyProposalChangeRequest : TNotifyProposalChangeRequest);
+ end;
+
+
+ { --------------------------------------------------------------------
TDoubleclickbidmanagerAPI
--------------------------------------------------------------------}
@@ -599,9 +664,11 @@ type
FLineitemsInstance : TLineitemsResource;
FQueriesInstance : TQueriesResource;
FReportsInstance : TReportsResource;
+ FRubiconInstance : TRubiconResource;
Function GetLineitemsInstance : TLineitemsResource;virtual;
Function GetQueriesInstance : TQueriesResource;virtual;
Function GetReportsInstance : TReportsResource;virtual;
+ Function GetRubiconInstance : TRubiconResource;virtual;
Public
//Override class functions with API info
Class Function APIName : String; override;
@@ -631,10 +698,13 @@ type
Function CreateQueriesResource : TQueriesResource;virtual;overload;
Function CreateReportsResource(AOwner : TComponent) : TReportsResource;virtual;overload;
Function CreateReportsResource : TReportsResource;virtual;overload;
+ Function CreateRubiconResource(AOwner : TComponent) : TRubiconResource;virtual;overload;
+ Function CreateRubiconResource : TRubiconResource;virtual;overload;
//Add default on-demand instances for resources
Property LineitemsResource : TLineitemsResource Read GetLineitemsInstance;
Property QueriesResource : TQueriesResource Read GetQueriesInstance;
Property ReportsResource : TReportsResource Read GetReportsInstance;
+ Property RubiconResource : TRubiconResource Read GetRubiconInstance;
end;
implementation
@@ -645,7 +715,17 @@ implementation
--------------------------------------------------------------------}
-Procedure TDownloadLineItemsRequest.SetfilterIds(AIndex : Integer; AValue : TStringArray);
+Procedure TDownloadLineItemsRequest.SetfileSpec(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfileSpec=AValue) then exit;
+ FfileSpec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDownloadLineItemsRequest.SetfilterIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FfilterIds=AValue) then exit;
@@ -760,7 +840,7 @@ end;
-Procedure TListQueriesResponse.Setqueries(AIndex : Integer; AValue : TListQueriesResponseTypequeriesArray);
+Procedure TListQueriesResponse.Setqueries(AIndex : Integer; const AValue : TListQueriesResponseTypequeriesArray);
begin
If (Fqueries=AValue) then exit;
@@ -800,7 +880,7 @@ end;
-Procedure TListReportsResponse.Setreports(AIndex : Integer; AValue : TListReportsResponseTypereportsArray);
+Procedure TListReportsResponse.Setreports(AIndex : Integer; const AValue : TListReportsResponseTypereportsArray);
begin
If (Freports=AValue) then exit;
@@ -826,11 +906,138 @@ end;
{ --------------------------------------------------------------------
+ TNote
+ --------------------------------------------------------------------}
+
+
+Procedure TNote.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNote.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNote.Setsource(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNote.Settimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftimestamp=AValue) then exit;
+ Ftimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNote.Setusername(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fusername=AValue) then exit;
+ Fusername:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TNotifyProposalChangeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TNotifyProposalChangeRequest.Setaction(AIndex : Integer; const AValue : String);
+
+begin
+ If (Faction=AValue) then exit;
+ Faction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotifyProposalChangeRequest.Sethref(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fhref=AValue) then exit;
+ Fhref:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotifyProposalChangeRequest.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotifyProposalChangeRequest.Setnotes(AIndex : Integer; const AValue : TNotifyProposalChangeRequestTypenotesArray);
+
+begin
+ If (Fnotes=AValue) then exit;
+ Fnotes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNotifyProposalChangeRequest.Settoken(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftoken=AValue) then exit;
+ Ftoken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TNotifyProposalChangeRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'notes' : SetLength(Fnotes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TParameters
--------------------------------------------------------------------}
-Procedure TParameters.Setfilters(AIndex : Integer; AValue : TParametersTypefiltersArray);
+Procedure TParameters.Setfilters(AIndex : Integer; const AValue : TParametersTypefiltersArray);
begin
If (Ffilters=AValue) then exit;
@@ -840,7 +1047,7 @@ end;
-Procedure TParameters.SetgroupBys(AIndex : Integer; AValue : TStringArray);
+Procedure TParameters.SetgroupBys(AIndex : Integer; const AValue : TStringArray);
begin
If (FgroupBys=AValue) then exit;
@@ -850,7 +1057,7 @@ end;
-Procedure TParameters.SetincludeInviteData(AIndex : Integer; AValue : boolean);
+Procedure TParameters.SetincludeInviteData(AIndex : Integer; const AValue : boolean);
begin
If (FincludeInviteData=AValue) then exit;
@@ -860,7 +1067,7 @@ end;
-Procedure TParameters.Setmetrics(AIndex : Integer; AValue : TStringArray);
+Procedure TParameters.Setmetrics(AIndex : Integer; const AValue : TStringArray);
begin
If (Fmetrics=AValue) then exit;
@@ -923,7 +1130,7 @@ end;
-Procedure TQuery.Setmetadata(AIndex : Integer; AValue : TQueryMetadata);
+Procedure TQuery.Setmetadata(AIndex : Integer; const AValue : TQueryMetadata);
begin
If (Fmetadata=AValue) then exit;
@@ -933,7 +1140,7 @@ end;
-Procedure TQuery.Setparams(AIndex : Integer; AValue : TParameters);
+Procedure TQuery.Setparams(AIndex : Integer; const AValue : TParameters);
begin
If (Fparams=AValue) then exit;
@@ -973,7 +1180,7 @@ end;
-Procedure TQuery.Setschedule(AIndex : Integer; AValue : TQuerySchedule);
+Procedure TQuery.Setschedule(AIndex : Integer; const AValue : TQuerySchedule);
begin
If (Fschedule=AValue) then exit;
@@ -1060,7 +1267,7 @@ end;
-Procedure TQueryMetadata.SetreportCount(AIndex : Integer; AValue : integer);
+Procedure TQueryMetadata.SetreportCount(AIndex : Integer; const AValue : integer);
begin
If (FreportCount=AValue) then exit;
@@ -1070,7 +1277,7 @@ end;
-Procedure TQueryMetadata.Setrunning(AIndex : Integer; AValue : boolean);
+Procedure TQueryMetadata.Setrunning(AIndex : Integer; const AValue : boolean);
begin
If (Frunning=AValue) then exit;
@@ -1080,7 +1287,7 @@ end;
-Procedure TQueryMetadata.SetsendNotification(AIndex : Integer; AValue : boolean);
+Procedure TQueryMetadata.SetsendNotification(AIndex : Integer; const AValue : boolean);
begin
If (FsendNotification=AValue) then exit;
@@ -1090,7 +1297,7 @@ end;
-Procedure TQueryMetadata.SetshareEmailAddress(AIndex : Integer; AValue : TStringArray);
+Procedure TQueryMetadata.SetshareEmailAddress(AIndex : Integer; const AValue : TStringArray);
begin
If (FshareEmailAddress=AValue) then exit;
@@ -1150,7 +1357,7 @@ end;
-Procedure TQuerySchedule.SetnextRunMinuteOfDay(AIndex : Integer; AValue : integer);
+Procedure TQuerySchedule.SetnextRunMinuteOfDay(AIndex : Integer; const AValue : integer);
begin
If (FnextRunMinuteOfDay=AValue) then exit;
@@ -1177,7 +1384,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReport.Setkey(AIndex : Integer; AValue : TReportKey);
+Procedure TReport.Setkey(AIndex : Integer; const AValue : TReportKey);
begin
If (Fkey=AValue) then exit;
@@ -1187,7 +1394,7 @@ end;
-Procedure TReport.Setmetadata(AIndex : Integer; AValue : TReportMetadata);
+Procedure TReport.Setmetadata(AIndex : Integer; const AValue : TReportMetadata);
begin
If (Fmetadata=AValue) then exit;
@@ -1197,7 +1404,7 @@ end;
-Procedure TReport.Setparams(AIndex : Integer; AValue : TParameters);
+Procedure TReport.Setparams(AIndex : Integer; const AValue : TParameters);
begin
If (Fparams=AValue) then exit;
@@ -1288,7 +1495,7 @@ end;
-Procedure TReportMetadata.Setstatus(AIndex : Integer; AValue : TReportStatus);
+Procedure TReportMetadata.Setstatus(AIndex : Integer; const AValue : TReportStatus);
begin
If (Fstatus=AValue) then exit;
@@ -1305,7 +1512,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportStatus.Setfailure(AIndex : Integer; AValue : TReportFailure);
+Procedure TReportStatus.Setfailure(AIndex : Integer; const AValue : TReportFailure);
begin
If (Ffailure=AValue) then exit;
@@ -1352,7 +1559,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRowStatus.Setchanged(AIndex : Integer; AValue : boolean);
+Procedure TRowStatus.Setchanged(AIndex : Integer; const AValue : boolean);
begin
If (Fchanged=AValue) then exit;
@@ -1382,7 +1589,7 @@ end;
-Procedure TRowStatus.Seterrors(AIndex : Integer; AValue : TStringArray);
+Procedure TRowStatus.Seterrors(AIndex : Integer; const AValue : TStringArray);
begin
If (Ferrors=AValue) then exit;
@@ -1392,7 +1599,7 @@ end;
-Procedure TRowStatus.Setpersisted(AIndex : Integer; AValue : boolean);
+Procedure TRowStatus.Setpersisted(AIndex : Integer; const AValue : boolean);
begin
If (Fpersisted=AValue) then exit;
@@ -1402,7 +1609,7 @@ end;
-Procedure TRowStatus.SetrowNumber(AIndex : Integer; AValue : integer);
+Procedure TRowStatus.SetrowNumber(AIndex : Integer; const AValue : integer);
begin
If (FrowNumber=AValue) then exit;
@@ -1479,7 +1686,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUploadLineItemsRequest.SetdryRun(AIndex : Integer; AValue : boolean);
+Procedure TUploadLineItemsRequest.SetdryRun(AIndex : Integer; const AValue : boolean);
begin
If (FdryRun=AValue) then exit;
@@ -1516,7 +1723,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUploadLineItemsResponse.SetuploadStatus(AIndex : Integer; AValue : TUploadStatus);
+Procedure TUploadLineItemsResponse.SetuploadStatus(AIndex : Integer; const AValue : TUploadStatus);
begin
If (FuploadStatus=AValue) then exit;
@@ -1533,7 +1740,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUploadStatus.Seterrors(AIndex : Integer; AValue : TStringArray);
+Procedure TUploadStatus.Seterrors(AIndex : Integer; const AValue : TStringArray);
begin
If (Ferrors=AValue) then exit;
@@ -1543,7 +1750,7 @@ end;
-Procedure TUploadStatus.SetrowStatus(AIndex : Integer; AValue : TUploadStatusTyperowStatusArray);
+Procedure TUploadStatus.SetrowStatus(AIndex : Integer; const AValue : TUploadStatusTyperowStatusArray);
begin
If (FrowStatus=AValue) then exit;
@@ -1731,6 +1938,36 @@ end;
{ --------------------------------------------------------------------
+ TRubiconResource
+ --------------------------------------------------------------------}
+
+
+Class Function TRubiconResource.ResourceName : String;
+
+begin
+ Result:='rubicon';
+end;
+
+Class Function TRubiconResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TdoubleclickbidmanagerAPI;
+end;
+
+Procedure TRubiconResource.Notifyproposalchange(aNotifyProposalChangeRequest : TNotifyProposalChangeRequest);
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'rubicon/notifyproposalchange';
+ _Methodid = 'doubleclickbidmanager.rubicon.notifyproposalchange';
+
+begin
+ ServiceCall(_HTTPMethod,_Path,'',aNotifyProposalChangeRequest,Nil);
+end;
+
+
+
+{ --------------------------------------------------------------------
TDoubleclickbidmanagerAPI
--------------------------------------------------------------------}
@@ -1749,7 +1986,7 @@ end;
Class Function TDoubleclickbidmanagerAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160426';
end;
Class Function TDoubleclickbidmanagerAPI.APIID : String;
@@ -1803,7 +2040,7 @@ end;
Class Function TDoubleclickbidmanagerAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TDoubleclickbidmanagerAPI.APIbasePath : string;
@@ -1815,7 +2052,7 @@ end;
Class Function TDoubleclickbidmanagerAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/doubleclickbidmanager/v1/';
+ Result:='https://www.googleapis.com/doubleclickbidmanager/v1/';
end;
Class Function TDoubleclickbidmanagerAPI.APIProtocol : string;
@@ -1857,6 +2094,8 @@ begin
TFilterPair.RegisterObject;
TListQueriesResponse.RegisterObject;
TListReportsResponse.RegisterObject;
+ TNote.RegisterObject;
+ TNotifyProposalChangeRequest.RegisterObject;
TParameters.RegisterObject;
TQuery.RegisterObject;
TQueryMetadata.RegisterObject;
@@ -1946,6 +2185,30 @@ end;
+Function TDoubleclickbidmanagerAPI.GetRubiconInstance : TRubiconResource;
+
+begin
+ if (FRubiconInstance=Nil) then
+ FRubiconInstance:=CreateRubiconResource;
+ Result:=FRubiconInstance;
+end;
+
+Function TDoubleclickbidmanagerAPI.CreateRubiconResource : TRubiconResource;
+
+begin
+ Result:=CreateRubiconResource(Self);
+end;
+
+
+Function TDoubleclickbidmanagerAPI.CreateRubiconResource(AOwner : TComponent) : TRubiconResource;
+
+begin
+ Result:=TRubiconResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
initialization
TDoubleclickbidmanagerAPI.RegisterAPI;
end.
diff --git a/packages/googleapi/src/googledoubleclicksearch.pp b/packages/googleapi/src/googledoubleclicksearch.pp
index 1f9ad4f475..bd6ea2862f 100644
--- a/packages/googleapi/src/googledoubleclicksearch.pp
+++ b/packages/googleapi/src/googledoubleclicksearch.pp
@@ -1,19 +1,4 @@
unit googledoubleclicksearch;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:03
{$MODE objfpc}
{$H+}
@@ -124,8 +109,8 @@ type
FdeviceType : String;
FdsConversionId : String;
FengineAccountId : String;
- FfeedId : String;
FfloodlightOrderId : String;
+ FinventoryAccountId : String;
FproductCountry : String;
FproductGroupId : String;
FproductId : String;
@@ -155,13 +140,13 @@ type
Procedure SetcountMillis(AIndex : Integer; const AValue : String); virtual;
Procedure SetcriterionId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcustomDimension(AIndex : Integer; AValue : TConversionTypecustomDimensionArray); virtual;
- Procedure SetcustomMetric(AIndex : Integer; AValue : TConversionTypecustomMetricArray); virtual;
+ Procedure SetcustomDimension(AIndex : Integer; const AValue : TConversionTypecustomDimensionArray); virtual;
+ Procedure SetcustomMetric(AIndex : Integer; const AValue : TConversionTypecustomMetricArray); virtual;
Procedure SetdeviceType(AIndex : Integer; const AValue : String); virtual;
Procedure SetdsConversionId(AIndex : Integer; const AValue : String); virtual;
Procedure SetengineAccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfeedId(AIndex : Integer; const AValue : String); virtual;
Procedure SetfloodlightOrderId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinventoryAccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetproductCountry(AIndex : Integer; const AValue : String); virtual;
Procedure SetproductGroupId(AIndex : Integer; const AValue : String); virtual;
Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
@@ -199,8 +184,8 @@ type
Property deviceType : String Index 128 Read FdeviceType Write SetdeviceType;
Property dsConversionId : String Index 136 Read FdsConversionId Write SetdsConversionId;
Property engineAccountId : String Index 144 Read FengineAccountId Write SetengineAccountId;
- Property feedId : String Index 152 Read FfeedId Write SetfeedId;
- Property floodlightOrderId : String Index 160 Read FfloodlightOrderId Write SetfloodlightOrderId;
+ Property floodlightOrderId : String Index 152 Read FfloodlightOrderId Write SetfloodlightOrderId;
+ Property inventoryAccountId : String Index 160 Read FinventoryAccountId Write SetinventoryAccountId;
Property productCountry : String Index 168 Read FproductCountry Write SetproductCountry;
Property productGroupId : String Index 176 Read FproductGroupId Write SetproductGroupId;
Property productId : String Index 184 Read FproductId Write SetproductId;
@@ -226,7 +211,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setconversion(AIndex : Integer; AValue : TConversionListTypeconversionArray); virtual;
+ Procedure Setconversion(AIndex : Integer; const AValue : TConversionListTypeconversionArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -269,7 +254,7 @@ type
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; AValue : double); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
@@ -313,13 +298,13 @@ type
FstatisticsTimeZone : String;
Protected
//Property setters
- Procedure Setfiles(AIndex : Integer; AValue : TReportTypefilesArray); virtual;
+ Procedure Setfiles(AIndex : Integer; const AValue : TReportTypefilesArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisReportReady(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisReportReady(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrequest(AIndex : Integer; AValue : TReportRequest); virtual;
- Procedure SetrowCount(AIndex : Integer; AValue : integer); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TReportTyperowsArray); virtual;
+ Procedure Setrequest(AIndex : Integer; const AValue : TReportRequest); virtual;
+ Procedure SetrowCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TReportTyperowsArray); virtual;
Procedure SetstatisticsCurrencyCode(AIndex : Integer; const AValue : String); virtual;
Procedure SetstatisticsTimeZone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -353,6 +338,7 @@ type
FgroupByColumn : boolean;
FheaderText : String;
FplatformSource : String;
+ FproductReportPerspective : String;
FsavedColumnName : String;
FstartDate : String;
Protected
@@ -361,9 +347,10 @@ type
Procedure SetcustomDimensionName(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomMetricName(AIndex : Integer; const AValue : String); virtual;
Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
- Procedure SetgroupByColumn(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetgroupByColumn(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetheaderText(AIndex : Integer; const AValue : String); virtual;
Procedure SetplatformSource(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproductReportPerspective(AIndex : Integer; const AValue : String); virtual;
Procedure SetsavedColumnName(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
Public
@@ -375,8 +362,9 @@ type
Property groupByColumn : boolean Index 32 Read FgroupByColumn Write SetgroupByColumn;
Property headerText : String Index 40 Read FheaderText Write SetheaderText;
Property platformSource : String Index 48 Read FplatformSource Write SetplatformSource;
- Property savedColumnName : String Index 56 Read FsavedColumnName Write SetsavedColumnName;
- Property startDate : String Index 64 Read FstartDate Write SetstartDate;
+ Property productReportPerspective : String Index 56 Read FproductReportPerspective Write SetproductReportPerspective;
+ Property savedColumnName : String Index 64 Read FsavedColumnName Write SetsavedColumnName;
+ Property startDate : String Index 72 Read FstartDate Write SetstartDate;
end;
TReportApiColumnSpecClass = Class of TReportApiColumnSpec;
@@ -392,9 +380,9 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setcolumn(AIndex : Integer; AValue : TReportApiColumnSpec); virtual;
+ Procedure Setcolumn(AIndex : Integer; const AValue : TReportApiColumnSpec); virtual;
Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalues(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
+ Procedure Setvalues(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -417,7 +405,7 @@ type
FsortOrder : String;
Protected
//Property setters
- Procedure Setcolumn(AIndex : Integer; AValue : TReportApiColumnSpec); virtual;
+ Procedure Setcolumn(AIndex : Integer; const AValue : TReportApiColumnSpec); virtual;
Procedure SetsortOrder(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -472,8 +460,8 @@ type
FstartDate : String;
Protected
//Property setters
- Procedure SetchangedAttributesSinceTimestamp(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetchangedMetricsSinceTimestamp(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetchangedAttributesSinceTimestamp(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetchangedMetricsSinceTimestamp(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
Public
@@ -507,20 +495,20 @@ type
FverifySingleTimeZone : boolean;
Protected
//Property setters
- Procedure Setcolumns(AIndex : Integer; AValue : TReportRequestTypecolumnsArray); virtual;
+ Procedure Setcolumns(AIndex : Integer; const AValue : TReportRequestTypecolumnsArray); virtual;
Procedure SetdownloadFormat(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfilters(AIndex : Integer; AValue : TReportRequestTypefiltersArray); virtual;
- Procedure SetincludeDeletedEntities(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetincludeRemovedEntities(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetmaxRowsPerFile(AIndex : Integer; AValue : integer); virtual;
- Procedure SetorderBy(AIndex : Integer; AValue : TReportRequestTypeorderByArray); virtual;
- Procedure SetreportScope(AIndex : Integer; AValue : TReportRequestTypereportScope); virtual;
+ Procedure Setfilters(AIndex : Integer; const AValue : TReportRequestTypefiltersArray); virtual;
+ Procedure SetincludeDeletedEntities(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetincludeRemovedEntities(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetmaxRowsPerFile(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetorderBy(AIndex : Integer; const AValue : TReportRequestTypeorderByArray); virtual;
+ Procedure SetreportScope(AIndex : Integer; const AValue : TReportRequestTypereportScope); virtual;
Procedure SetreportType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrowCount(AIndex : Integer; AValue : integer); virtual;
- Procedure SetstartRow(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetrowCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetstartRow(AIndex : Integer; const AValue : integer); virtual;
Procedure SetstatisticsCurrency(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeRange(AIndex : Integer; AValue : TReportRequestTypetimeRange); virtual;
- Procedure SetverifySingleTimeZone(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SettimeRange(AIndex : Integer; const AValue : TReportRequestTypetimeRange); virtual;
+ Procedure SetverifySingleTimeZone(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -591,7 +579,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TSavedColumnListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSavedColumnListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -613,7 +601,7 @@ type
Favailabilities : TUpdateAvailabilityRequestTypeavailabilitiesArray;
Protected
//Property setters
- Procedure Setavailabilities(AIndex : Integer; AValue : TUpdateAvailabilityRequestTypeavailabilitiesArray); virtual;
+ Procedure Setavailabilities(AIndex : Integer; const AValue : TUpdateAvailabilityRequestTypeavailabilitiesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -633,7 +621,7 @@ type
Favailabilities : TUpdateAvailabilityResponseTypeavailabilitiesArray;
Protected
//Property setters
- Procedure Setavailabilities(AIndex : Integer; AValue : TUpdateAvailabilityResponseTypeavailabilitiesArray); virtual;
+ Procedure Setavailabilities(AIndex : Integer; const AValue : TUpdateAvailabilityResponseTypeavailabilitiesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -978,7 +966,7 @@ end;
-Procedure TConversion.SetcustomDimension(AIndex : Integer; AValue : TConversionTypecustomDimensionArray);
+Procedure TConversion.SetcustomDimension(AIndex : Integer; const AValue : TConversionTypecustomDimensionArray);
begin
If (FcustomDimension=AValue) then exit;
@@ -988,7 +976,7 @@ end;
-Procedure TConversion.SetcustomMetric(AIndex : Integer; AValue : TConversionTypecustomMetricArray);
+Procedure TConversion.SetcustomMetric(AIndex : Integer; const AValue : TConversionTypecustomMetricArray);
begin
If (FcustomMetric=AValue) then exit;
@@ -1028,21 +1016,21 @@ end;
-Procedure TConversion.SetfeedId(AIndex : Integer; const AValue : String);
+Procedure TConversion.SetfloodlightOrderId(AIndex : Integer; const AValue : String);
begin
- If (FfeedId=AValue) then exit;
- FfeedId:=AValue;
+ If (FfloodlightOrderId=AValue) then exit;
+ FfloodlightOrderId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TConversion.SetfloodlightOrderId(AIndex : Integer; const AValue : String);
+Procedure TConversion.SetinventoryAccountId(AIndex : Integer; const AValue : String);
begin
- If (FfloodlightOrderId=AValue) then exit;
- FfloodlightOrderId:=AValue;
+ If (FinventoryAccountId=AValue) then exit;
+ FinventoryAccountId:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -1200,7 +1188,7 @@ end;
--------------------------------------------------------------------}
-Procedure TConversionList.Setconversion(AIndex : Integer; AValue : TConversionListTypeconversionArray);
+Procedure TConversionList.Setconversion(AIndex : Integer; const AValue : TConversionListTypeconversionArray);
begin
If (Fconversion=AValue) then exit;
@@ -1277,7 +1265,7 @@ end;
-Procedure TCustomMetric.Setvalue(AIndex : Integer; AValue : double);
+Procedure TCustomMetric.Setvalue(AIndex : Integer; const AValue : double);
begin
If (Fvalue=AValue) then exit;
@@ -1321,7 +1309,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReport.Setfiles(AIndex : Integer; AValue : TReportTypefilesArray);
+Procedure TReport.Setfiles(AIndex : Integer; const AValue : TReportTypefilesArray);
begin
If (Ffiles=AValue) then exit;
@@ -1341,7 +1329,7 @@ end;
-Procedure TReport.SetisReportReady(AIndex : Integer; AValue : boolean);
+Procedure TReport.SetisReportReady(AIndex : Integer; const AValue : boolean);
begin
If (FisReportReady=AValue) then exit;
@@ -1361,7 +1349,7 @@ end;
-Procedure TReport.Setrequest(AIndex : Integer; AValue : TReportRequest);
+Procedure TReport.Setrequest(AIndex : Integer; const AValue : TReportRequest);
begin
If (Frequest=AValue) then exit;
@@ -1371,7 +1359,7 @@ end;
-Procedure TReport.SetrowCount(AIndex : Integer; AValue : integer);
+Procedure TReport.SetrowCount(AIndex : Integer; const AValue : integer);
begin
If (FrowCount=AValue) then exit;
@@ -1381,7 +1369,7 @@ end;
-Procedure TReport.Setrows(AIndex : Integer; AValue : TReportTyperowsArray);
+Procedure TReport.Setrows(AIndex : Integer; const AValue : TReportTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -1472,7 +1460,7 @@ end;
-Procedure TReportApiColumnSpec.SetgroupByColumn(AIndex : Integer; AValue : boolean);
+Procedure TReportApiColumnSpec.SetgroupByColumn(AIndex : Integer; const AValue : boolean);
begin
If (FgroupByColumn=AValue) then exit;
@@ -1502,6 +1490,16 @@ end;
+Procedure TReportApiColumnSpec.SetproductReportPerspective(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproductReportPerspective=AValue) then exit;
+ FproductReportPerspective:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TReportApiColumnSpec.SetsavedColumnName(AIndex : Integer; const AValue : String);
begin
@@ -1529,7 +1527,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportRequestTypefiltersItem.Setcolumn(AIndex : Integer; AValue : TReportApiColumnSpec);
+Procedure TReportRequestTypefiltersItem.Setcolumn(AIndex : Integer; const AValue : TReportApiColumnSpec);
begin
If (Fcolumn=AValue) then exit;
@@ -1549,7 +1547,7 @@ end;
-Procedure TReportRequestTypefiltersItem.Setvalues(AIndex : Integer; AValue : TTJSONSchemaArray);
+Procedure TReportRequestTypefiltersItem.Setvalues(AIndex : Integer; const AValue : TTJSONSchemaArray);
begin
If (Fvalues=AValue) then exit;
@@ -1590,7 +1588,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportRequestTypeorderByItem.Setcolumn(AIndex : Integer; AValue : TReportApiColumnSpec);
+Procedure TReportRequestTypeorderByItem.Setcolumn(AIndex : Integer; const AValue : TReportApiColumnSpec);
begin
If (Fcolumn=AValue) then exit;
@@ -1694,7 +1692,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportRequestTypetimeRange.SetchangedAttributesSinceTimestamp(AIndex : Integer; AValue : TDatetime);
+Procedure TReportRequestTypetimeRange.SetchangedAttributesSinceTimestamp(AIndex : Integer; const AValue : TDatetime);
begin
If (FchangedAttributesSinceTimestamp=AValue) then exit;
@@ -1704,7 +1702,7 @@ end;
-Procedure TReportRequestTypetimeRange.SetchangedMetricsSinceTimestamp(AIndex : Integer; AValue : TDatetime);
+Procedure TReportRequestTypetimeRange.SetchangedMetricsSinceTimestamp(AIndex : Integer; const AValue : TDatetime);
begin
If (FchangedMetricsSinceTimestamp=AValue) then exit;
@@ -1741,7 +1739,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReportRequest.Setcolumns(AIndex : Integer; AValue : TReportRequestTypecolumnsArray);
+Procedure TReportRequest.Setcolumns(AIndex : Integer; const AValue : TReportRequestTypecolumnsArray);
begin
If (Fcolumns=AValue) then exit;
@@ -1761,7 +1759,7 @@ end;
-Procedure TReportRequest.Setfilters(AIndex : Integer; AValue : TReportRequestTypefiltersArray);
+Procedure TReportRequest.Setfilters(AIndex : Integer; const AValue : TReportRequestTypefiltersArray);
begin
If (Ffilters=AValue) then exit;
@@ -1771,7 +1769,7 @@ end;
-Procedure TReportRequest.SetincludeDeletedEntities(AIndex : Integer; AValue : boolean);
+Procedure TReportRequest.SetincludeDeletedEntities(AIndex : Integer; const AValue : boolean);
begin
If (FincludeDeletedEntities=AValue) then exit;
@@ -1781,7 +1779,7 @@ end;
-Procedure TReportRequest.SetincludeRemovedEntities(AIndex : Integer; AValue : boolean);
+Procedure TReportRequest.SetincludeRemovedEntities(AIndex : Integer; const AValue : boolean);
begin
If (FincludeRemovedEntities=AValue) then exit;
@@ -1791,7 +1789,7 @@ end;
-Procedure TReportRequest.SetmaxRowsPerFile(AIndex : Integer; AValue : integer);
+Procedure TReportRequest.SetmaxRowsPerFile(AIndex : Integer; const AValue : integer);
begin
If (FmaxRowsPerFile=AValue) then exit;
@@ -1801,7 +1799,7 @@ end;
-Procedure TReportRequest.SetorderBy(AIndex : Integer; AValue : TReportRequestTypeorderByArray);
+Procedure TReportRequest.SetorderBy(AIndex : Integer; const AValue : TReportRequestTypeorderByArray);
begin
If (ForderBy=AValue) then exit;
@@ -1811,7 +1809,7 @@ end;
-Procedure TReportRequest.SetreportScope(AIndex : Integer; AValue : TReportRequestTypereportScope);
+Procedure TReportRequest.SetreportScope(AIndex : Integer; const AValue : TReportRequestTypereportScope);
begin
If (FreportScope=AValue) then exit;
@@ -1831,7 +1829,7 @@ end;
-Procedure TReportRequest.SetrowCount(AIndex : Integer; AValue : integer);
+Procedure TReportRequest.SetrowCount(AIndex : Integer; const AValue : integer);
begin
If (FrowCount=AValue) then exit;
@@ -1841,7 +1839,7 @@ end;
-Procedure TReportRequest.SetstartRow(AIndex : Integer; AValue : integer);
+Procedure TReportRequest.SetstartRow(AIndex : Integer; const AValue : integer);
begin
If (FstartRow=AValue) then exit;
@@ -1861,7 +1859,7 @@ end;
-Procedure TReportRequest.SettimeRange(AIndex : Integer; AValue : TReportRequestTypetimeRange);
+Procedure TReportRequest.SettimeRange(AIndex : Integer; const AValue : TReportRequestTypetimeRange);
begin
If (FtimeRange=AValue) then exit;
@@ -1871,7 +1869,7 @@ end;
-Procedure TReportRequest.SetverifySingleTimeZone(AIndex : Integer; AValue : boolean);
+Procedure TReportRequest.SetverifySingleTimeZone(AIndex : Integer; const AValue : boolean);
begin
If (FverifySingleTimeZone=AValue) then exit;
@@ -1964,7 +1962,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSavedColumnList.Setitems(AIndex : Integer; AValue : TSavedColumnListTypeitemsArray);
+Procedure TSavedColumnList.Setitems(AIndex : Integer; const AValue : TSavedColumnListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2004,7 +2002,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUpdateAvailabilityRequest.Setavailabilities(AIndex : Integer; AValue : TUpdateAvailabilityRequestTypeavailabilitiesArray);
+Procedure TUpdateAvailabilityRequest.Setavailabilities(AIndex : Integer; const AValue : TUpdateAvailabilityRequestTypeavailabilitiesArray);
begin
If (Favailabilities=AValue) then exit;
@@ -2034,7 +2032,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUpdateAvailabilityResponse.Setavailabilities(AIndex : Integer; AValue : TUpdateAvailabilityResponseTypeavailabilitiesArray);
+Procedure TUpdateAvailabilityResponse.Setavailabilities(AIndex : Integer; const AValue : TUpdateAvailabilityResponseTypeavailabilitiesArray);
begin
If (Favailabilities=AValue) then exit;
@@ -2298,7 +2296,7 @@ end;
Class Function TDoubleclicksearchAPI.APIRevision : String;
begin
- Result:='20150305';
+ Result:='20160519';
end;
Class Function TDoubleclicksearchAPI.APIID : String;
@@ -2316,7 +2314,7 @@ end;
Class Function TDoubleclicksearchAPI.APIDescription : String;
begin
- Result:='Report and modify your advertising data in DoubleClick Search (for example, campaigns, ad groups, keywords, and conversions).';
+ Result:='Reports and modifies your advertising data in DoubleClick Search (for example, campaigns, ad groups, keywords, and conversions).';
end;
Class Function TDoubleclicksearchAPI.APIOwnerDomain : String;
@@ -2352,7 +2350,7 @@ end;
Class Function TDoubleclicksearchAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TDoubleclicksearchAPI.APIbasePath : string;
@@ -2364,7 +2362,7 @@ end;
Class Function TDoubleclicksearchAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/doubleclicksearch/v2/';
+ Result:='https://www.googleapis.com/doubleclicksearch/v2/';
end;
Class Function TDoubleclicksearchAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googledrive.pp b/packages/googleapi/src/googledrive.pp
index 850c94be2d..1ae9503dc8 100644
--- a/packages/googleapi/src/googledrive.pp
+++ b/packages/googleapi/src/googledrive.pp
@@ -1,19 +1,4 @@
unit googledrive;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:03
{$MODE objfpc}
{$H+}
@@ -25,248 +10,130 @@ type
//Top-level schema types
TAbout = Class;
- TApp = Class;
- TAppList = Class;
TChange = Class;
TChangeList = Class;
TChannel = Class;
- TChildList = Class;
- TChildReference = Class;
TComment = Class;
TCommentList = Class;
- TCommentReply = Class;
- TCommentReplyList = Class;
TFile = Class;
TFileList = Class;
- TParentList = Class;
- TParentReference = Class;
+ TGeneratedIds = Class;
TPermission = Class;
- TPermissionId = Class;
TPermissionList = Class;
- TProperty = Class;
- TPropertyList = Class;
+ TReply = Class;
+ TReplyList = Class;
TRevision = Class;
TRevisionList = Class;
+ TStartPageToken = Class;
TUser = Class;
TAboutArray = Array of TAbout;
- TAppArray = Array of TApp;
- TAppListArray = Array of TAppList;
TChangeArray = Array of TChange;
TChangeListArray = Array of TChangeList;
TChannelArray = Array of TChannel;
- TChildListArray = Array of TChildList;
- TChildReferenceArray = Array of TChildReference;
TCommentArray = Array of TComment;
TCommentListArray = Array of TCommentList;
- TCommentReplyArray = Array of TCommentReply;
- TCommentReplyListArray = Array of TCommentReplyList;
TFileArray = Array of TFile;
TFileListArray = Array of TFileList;
- TParentListArray = Array of TParentList;
- TParentReferenceArray = Array of TParentReference;
+ TGeneratedIdsArray = Array of TGeneratedIds;
TPermissionArray = Array of TPermission;
- TPermissionIdArray = Array of TPermissionId;
TPermissionListArray = Array of TPermissionList;
- TPropertyArray = Array of TProperty;
- TPropertyListArray = Array of TPropertyList;
+ TReplyArray = Array of TReply;
+ TReplyListArray = Array of TReplyList;
TRevisionArray = Array of TRevision;
TRevisionListArray = Array of TRevisionList;
+ TStartPageTokenArray = Array of TStartPageToken;
TUserArray = Array of TUser;
//Anonymous types, using auto-generated names
- TAboutTypeadditionalRoleInfoItemTyperoleSetsItem = Class;
- TAboutTypeadditionalRoleInfoItem = Class;
- TAboutTypeexportFormatsItem = Class;
- TAboutTypefeaturesItem = Class;
- TAboutTypeimportFormatsItem = Class;
- TAboutTypemaxUploadSizesItem = Class;
- TAboutTypequotaBytesByServiceItem = Class;
- TAppTypeiconsItem = Class;
+ TAboutTypeexportFormats = Class;
+ TAboutTypeimportFormats = Class;
+ TAboutTypemaxImportSizes = Class;
+ TAboutTypestorageQuota = Class;
TChannelTypeparams = Class;
- TCommentTypecontext = Class;
- TFileTypeexportLinks = Class;
+ TCommentTypequotedFileContent = Class;
+ TFileTypeappProperties = Class;
+ TFileTypecapabilities = Class;
+ TFileTypecontentHintsTypethumbnail = Class;
+ TFileTypecontentHints = Class;
TFileTypeimageMediaMetadataTypelocation = Class;
TFileTypeimageMediaMetadata = Class;
- TFileTypeindexableText = Class;
- TFileTypelabels = Class;
- TFileTypeopenWithLinks = Class;
- TFileTypethumbnail = Class;
+ TFileTypeproperties = Class;
TFileTypevideoMediaMetadata = Class;
- TRevisionTypeexportLinks = Class;
- TUserTypepicture = Class;
- TAboutTypeadditionalRoleInfoItemTyperoleSetsArray = Array of TAboutTypeadditionalRoleInfoItemTyperoleSetsItem;
- TAboutTypeadditionalRoleInfoArray = Array of TAboutTypeadditionalRoleInfoItem;
- TAboutTypeexportFormatsArray = Array of TAboutTypeexportFormatsItem;
- TAboutTypefeaturesArray = Array of TAboutTypefeaturesItem;
- TAboutTypeimportFormatsArray = Array of TAboutTypeimportFormatsItem;
- TAboutTypemaxUploadSizesArray = Array of TAboutTypemaxUploadSizesItem;
- TAboutTypequotaBytesByServiceArray = Array of TAboutTypequotaBytesByServiceItem;
- TAppTypeiconsArray = Array of TAppTypeiconsItem;
- TAppListTypeitemsArray = Array of TApp;
- TChangeListTypeitemsArray = Array of TChange;
- TChildListTypeitemsArray = Array of TChildReference;
- TCommentTyperepliesArray = Array of TCommentReply;
- TCommentListTypeitemsArray = Array of TComment;
- TCommentReplyListTypeitemsArray = Array of TCommentReply;
+ TChangeListTypechangesArray = Array of TChange;
+ TCommentTyperepliesArray = Array of TReply;
+ TCommentListTypecommentsArray = Array of TComment;
TFileTypeownersArray = Array of TUser;
- TFileTypeparentsArray = Array of TParentReference;
TFileTypepermissionsArray = Array of TPermission;
- TFileTypepropertiesArray = Array of TProperty;
- TFileListTypeitemsArray = Array of TFile;
- TParentListTypeitemsArray = Array of TParentReference;
- TPermissionListTypeitemsArray = Array of TPermission;
- TPropertyListTypeitemsArray = Array of TProperty;
- TRevisionListTypeitemsArray = Array of TRevision;
-
- { --------------------------------------------------------------------
- TAboutTypeadditionalRoleInfoItemTyperoleSetsItem
- --------------------------------------------------------------------}
-
- TAboutTypeadditionalRoleInfoItemTyperoleSetsItem = Class(TGoogleBaseObject)
- Private
- FadditionalRoles : TStringArray;
- FprimaryRole : String;
- Protected
- //Property setters
- Procedure SetadditionalRoles(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetprimaryRole(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 additionalRoles : TStringArray Index 0 Read FadditionalRoles Write SetadditionalRoles;
- Property primaryRole : String Index 8 Read FprimaryRole Write SetprimaryRole;
- end;
- TAboutTypeadditionalRoleInfoItemTyperoleSetsItemClass = Class of TAboutTypeadditionalRoleInfoItemTyperoleSetsItem;
-
- { --------------------------------------------------------------------
- TAboutTypeadditionalRoleInfoItem
- --------------------------------------------------------------------}
-
- TAboutTypeadditionalRoleInfoItem = Class(TGoogleBaseObject)
- Private
- FroleSets : TAboutTypeadditionalRoleInfoItemTyperoleSetsArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetroleSets(AIndex : Integer; AValue : TAboutTypeadditionalRoleInfoItemTyperoleSetsArray); 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 roleSets : TAboutTypeadditionalRoleInfoItemTyperoleSetsArray Index 0 Read FroleSets Write SetroleSets;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TAboutTypeadditionalRoleInfoItemClass = Class of TAboutTypeadditionalRoleInfoItem;
-
- { --------------------------------------------------------------------
- TAboutTypeexportFormatsItem
- --------------------------------------------------------------------}
-
- TAboutTypeexportFormatsItem = Class(TGoogleBaseObject)
- Private
- Fsource : String;
- Ftargets : TStringArray;
- Protected
- //Property setters
- Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
- Procedure Settargets(AIndex : Integer; 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 source : String Index 0 Read Fsource Write Setsource;
- Property targets : TStringArray Index 8 Read Ftargets Write Settargets;
- end;
- TAboutTypeexportFormatsItemClass = Class of TAboutTypeexportFormatsItem;
+ TFileListTypefilesArray = Array of TFile;
+ TPermissionListTypepermissionsArray = Array of TPermission;
+ TReplyListTyperepliesArray = Array of TReply;
+ TRevisionListTyperevisionsArray = Array of TRevision;
{ --------------------------------------------------------------------
- TAboutTypefeaturesItem
+ TAboutTypeexportFormats
--------------------------------------------------------------------}
- TAboutTypefeaturesItem = Class(TGoogleBaseObject)
+ TAboutTypeexportFormats = Class(TGoogleBaseObject)
Private
- FfeatureName : String;
- FfeatureRate : double;
Protected
//Property setters
- Procedure SetfeatureName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfeatureRate(AIndex : Integer; AValue : double); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property featureName : String Index 0 Read FfeatureName Write SetfeatureName;
- Property featureRate : double Index 8 Read FfeatureRate Write SetfeatureRate;
end;
- TAboutTypefeaturesItemClass = Class of TAboutTypefeaturesItem;
+ TAboutTypeexportFormatsClass = Class of TAboutTypeexportFormats;
{ --------------------------------------------------------------------
- TAboutTypeimportFormatsItem
+ TAboutTypeimportFormats
--------------------------------------------------------------------}
- TAboutTypeimportFormatsItem = Class(TGoogleBaseObject)
+ TAboutTypeimportFormats = Class(TGoogleBaseObject)
Private
- Fsource : String;
- Ftargets : TStringArray;
Protected
//Property setters
- Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
- Procedure Settargets(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property source : String Index 0 Read Fsource Write Setsource;
- Property targets : TStringArray Index 8 Read Ftargets Write Settargets;
end;
- TAboutTypeimportFormatsItemClass = Class of TAboutTypeimportFormatsItem;
+ TAboutTypeimportFormatsClass = Class of TAboutTypeimportFormats;
{ --------------------------------------------------------------------
- TAboutTypemaxUploadSizesItem
+ TAboutTypemaxImportSizes
--------------------------------------------------------------------}
- TAboutTypemaxUploadSizesItem = Class(TGoogleBaseObject)
+ TAboutTypemaxImportSizes = Class(TGoogleBaseObject)
Private
- Fsize : String;
- F_type : String;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setsize(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property size : String Index 0 Read Fsize Write Setsize;
- Property _type : String Index 8 Read F_type Write Set_type;
end;
- TAboutTypemaxUploadSizesItemClass = Class of TAboutTypemaxUploadSizesItem;
+ TAboutTypemaxImportSizesClass = Class of TAboutTypemaxImportSizes;
{ --------------------------------------------------------------------
- TAboutTypequotaBytesByServiceItem
+ TAboutTypestorageQuota
--------------------------------------------------------------------}
- TAboutTypequotaBytesByServiceItem = Class(TGoogleBaseObject)
+ TAboutTypestorageQuota = Class(TGoogleBaseObject)
Private
- FbytesUsed : String;
- FserviceName : String;
+ Flimit : String;
+ Fusage : String;
+ FusageInDrive : String;
+ FusageInDriveTrash : String;
Protected
//Property setters
- Procedure SetbytesUsed(AIndex : Integer; const AValue : String); virtual;
- Procedure SetserviceName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlimit(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setusage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetusageInDrive(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetusageInDriveTrash(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property bytesUsed : String Index 0 Read FbytesUsed Write SetbytesUsed;
- Property serviceName : String Index 8 Read FserviceName Write SetserviceName;
+ Property limit : String Index 0 Read Flimit Write Setlimit;
+ Property usage : String Index 8 Read Fusage Write Setusage;
+ Property usageInDrive : String Index 16 Read FusageInDrive Write SetusageInDrive;
+ Property usageInDriveTrash : String Index 24 Read FusageInDriveTrash Write SetusageInDriveTrash;
end;
- TAboutTypequotaBytesByServiceItemClass = Class of TAboutTypequotaBytesByServiceItem;
+ TAboutTypestorageQuotaClass = Class of TAboutTypestorageQuota;
{ --------------------------------------------------------------------
TAbout
@@ -274,264 +141,70 @@ type
TAbout = Class(TGoogleBaseObject)
Private
- FadditionalRoleInfo : TAboutTypeadditionalRoleInfoArray;
- FdomainSharingPolicy : String;
- Fetag : String;
- FexportFormats : TAboutTypeexportFormatsArray;
- Ffeatures : TAboutTypefeaturesArray;
+ FappInstalled : boolean;
+ FexportFormats : TAboutTypeexportFormats;
FfolderColorPalette : TStringArray;
- FimportFormats : TAboutTypeimportFormatsArray;
- FisCurrentAppInstalled : boolean;
+ FimportFormats : TAboutTypeimportFormats;
Fkind : String;
- FlanguageCode : String;
- FlargestChangeId : String;
- FmaxUploadSizes : TAboutTypemaxUploadSizesArray;
- Fname : String;
- FpermissionId : String;
- FquotaBytesByService : TAboutTypequotaBytesByServiceArray;
- FquotaBytesTotal : String;
- FquotaBytesUsed : String;
- FquotaBytesUsedAggregate : String;
- FquotaBytesUsedInTrash : String;
- FquotaType : String;
- FremainingChangeIds : String;
- FrootFolderId : String;
- FselfLink : String;
+ FmaxImportSizes : TAboutTypemaxImportSizes;
+ FmaxUploadSize : String;
+ FstorageQuota : TAboutTypestorageQuota;
Fuser : TUser;
Protected
//Property setters
- Procedure SetadditionalRoleInfo(AIndex : Integer; AValue : TAboutTypeadditionalRoleInfoArray); virtual;
- Procedure SetdomainSharingPolicy(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexportFormats(AIndex : Integer; AValue : TAboutTypeexportFormatsArray); virtual;
- Procedure Setfeatures(AIndex : Integer; AValue : TAboutTypefeaturesArray); virtual;
- Procedure SetfolderColorPalette(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetimportFormats(AIndex : Integer; AValue : TAboutTypeimportFormatsArray); virtual;
- Procedure SetisCurrentAppInstalled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetappInstalled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetexportFormats(AIndex : Integer; const AValue : TAboutTypeexportFormats); virtual;
+ Procedure SetfolderColorPalette(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetimportFormats(AIndex : Integer; const AValue : TAboutTypeimportFormats); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlanguageCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlargestChangeId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxUploadSizes(AIndex : Integer; AValue : TAboutTypemaxUploadSizesArray); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpermissionId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetquotaBytesByService(AIndex : Integer; AValue : TAboutTypequotaBytesByServiceArray); virtual;
- Procedure SetquotaBytesTotal(AIndex : Integer; const AValue : String); virtual;
- Procedure SetquotaBytesUsed(AIndex : Integer; const AValue : String); virtual;
- Procedure SetquotaBytesUsedAggregate(AIndex : Integer; const AValue : String); virtual;
- Procedure SetquotaBytesUsedInTrash(AIndex : Integer; const AValue : String); virtual;
- Procedure SetquotaType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetremainingChangeIds(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrootFolderId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setuser(AIndex : Integer; AValue : TUser); virtual;
+ Procedure SetmaxImportSizes(AIndex : Integer; const AValue : TAboutTypemaxImportSizes); virtual;
+ Procedure SetmaxUploadSize(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstorageQuota(AIndex : Integer; const AValue : TAboutTypestorageQuota); virtual;
+ Procedure Setuser(AIndex : Integer; const AValue : TUser); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property additionalRoleInfo : TAboutTypeadditionalRoleInfoArray Index 0 Read FadditionalRoleInfo Write SetadditionalRoleInfo;
- Property domainSharingPolicy : String Index 8 Read FdomainSharingPolicy Write SetdomainSharingPolicy;
- Property etag : String Index 16 Read Fetag Write Setetag;
- Property exportFormats : TAboutTypeexportFormatsArray Index 24 Read FexportFormats Write SetexportFormats;
- Property features : TAboutTypefeaturesArray Index 32 Read Ffeatures Write Setfeatures;
- Property folderColorPalette : TStringArray Index 40 Read FfolderColorPalette Write SetfolderColorPalette;
- Property importFormats : TAboutTypeimportFormatsArray Index 48 Read FimportFormats Write SetimportFormats;
- Property isCurrentAppInstalled : boolean Index 56 Read FisCurrentAppInstalled Write SetisCurrentAppInstalled;
- Property kind : String Index 64 Read Fkind Write Setkind;
- Property languageCode : String Index 72 Read FlanguageCode Write SetlanguageCode;
- Property largestChangeId : String Index 80 Read FlargestChangeId Write SetlargestChangeId;
- Property maxUploadSizes : TAboutTypemaxUploadSizesArray Index 88 Read FmaxUploadSizes Write SetmaxUploadSizes;
- Property name : String Index 96 Read Fname Write Setname;
- Property permissionId : String Index 104 Read FpermissionId Write SetpermissionId;
- Property quotaBytesByService : TAboutTypequotaBytesByServiceArray Index 112 Read FquotaBytesByService Write SetquotaBytesByService;
- Property quotaBytesTotal : String Index 120 Read FquotaBytesTotal Write SetquotaBytesTotal;
- Property quotaBytesUsed : String Index 128 Read FquotaBytesUsed Write SetquotaBytesUsed;
- Property quotaBytesUsedAggregate : String Index 136 Read FquotaBytesUsedAggregate Write SetquotaBytesUsedAggregate;
- Property quotaBytesUsedInTrash : String Index 144 Read FquotaBytesUsedInTrash Write SetquotaBytesUsedInTrash;
- Property quotaType : String Index 152 Read FquotaType Write SetquotaType;
- Property remainingChangeIds : String Index 160 Read FremainingChangeIds Write SetremainingChangeIds;
- Property rootFolderId : String Index 168 Read FrootFolderId Write SetrootFolderId;
- Property selfLink : String Index 176 Read FselfLink Write SetselfLink;
- Property user : TUser Index 184 Read Fuser Write Setuser;
+ Property appInstalled : boolean Index 0 Read FappInstalled Write SetappInstalled;
+ Property exportFormats : TAboutTypeexportFormats Index 8 Read FexportFormats Write SetexportFormats;
+ Property folderColorPalette : TStringArray Index 16 Read FfolderColorPalette Write SetfolderColorPalette;
+ Property importFormats : TAboutTypeimportFormats Index 24 Read FimportFormats Write SetimportFormats;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property maxImportSizes : TAboutTypemaxImportSizes Index 40 Read FmaxImportSizes Write SetmaxImportSizes;
+ Property maxUploadSize : String Index 48 Read FmaxUploadSize Write SetmaxUploadSize;
+ Property storageQuota : TAboutTypestorageQuota Index 56 Read FstorageQuota Write SetstorageQuota;
+ Property user : TUser Index 64 Read Fuser Write Setuser;
end;
TAboutClass = Class of TAbout;
{ --------------------------------------------------------------------
- TAppTypeiconsItem
- --------------------------------------------------------------------}
-
- TAppTypeiconsItem = Class(TGoogleBaseObject)
- Private
- Fcategory : String;
- FiconUrl : String;
- Fsize : integer;
- Protected
- //Property setters
- Procedure Setcategory(AIndex : Integer; const AValue : String); virtual;
- Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsize(AIndex : Integer; AValue : integer); virtual;
- Public
- Published
- Property category : String Index 0 Read Fcategory Write Setcategory;
- Property iconUrl : String Index 8 Read FiconUrl Write SeticonUrl;
- Property size : integer Index 16 Read Fsize Write Setsize;
- end;
- TAppTypeiconsItemClass = Class of TAppTypeiconsItem;
-
- { --------------------------------------------------------------------
- TApp
- --------------------------------------------------------------------}
-
- TApp = Class(TGoogleBaseObject)
- Private
- Fauthorized : boolean;
- FcreateInFolderTemplate : String;
- FcreateUrl : String;
- FhasDriveWideScope : boolean;
- Ficons : TAppTypeiconsArray;
- Fid : String;
- Finstalled : boolean;
- Fkind : String;
- FlongDescription : String;
- Fname : String;
- FobjectType : String;
- FopenUrlTemplate : String;
- FprimaryFileExtensions : TStringArray;
- FprimaryMimeTypes : TStringArray;
- FproductId : String;
- FproductUrl : String;
- FsecondaryFileExtensions : TStringArray;
- FsecondaryMimeTypes : TStringArray;
- FshortDescription : String;
- FsupportsCreate : boolean;
- FsupportsImport : boolean;
- FsupportsMultiOpen : boolean;
- FsupportsOfflineCreate : boolean;
- FuseByDefault : boolean;
- Protected
- //Property setters
- Procedure Setauthorized(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcreateInFolderTemplate(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreateUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SethasDriveWideScope(AIndex : Integer; AValue : boolean); virtual;
- Procedure Seticons(AIndex : Integer; AValue : TAppTypeiconsArray); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinstalled(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlongDescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetopenUrlTemplate(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprimaryFileExtensions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetprimaryMimeTypes(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetproductUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsecondaryFileExtensions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsecondaryMimeTypes(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetshortDescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsupportsCreate(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsupportsImport(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsupportsMultiOpen(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsupportsOfflineCreate(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetuseByDefault(AIndex : Integer; 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 authorized : boolean Index 0 Read Fauthorized Write Setauthorized;
- Property createInFolderTemplate : String Index 8 Read FcreateInFolderTemplate Write SetcreateInFolderTemplate;
- Property createUrl : String Index 16 Read FcreateUrl Write SetcreateUrl;
- Property hasDriveWideScope : boolean Index 24 Read FhasDriveWideScope Write SethasDriveWideScope;
- Property icons : TAppTypeiconsArray Index 32 Read Ficons Write Seticons;
- Property id : String Index 40 Read Fid Write Setid;
- Property installed : boolean Index 48 Read Finstalled Write Setinstalled;
- Property kind : String Index 56 Read Fkind Write Setkind;
- Property longDescription : String Index 64 Read FlongDescription Write SetlongDescription;
- Property name : String Index 72 Read Fname Write Setname;
- Property objectType : String Index 80 Read FobjectType Write SetobjectType;
- Property openUrlTemplate : String Index 88 Read FopenUrlTemplate Write SetopenUrlTemplate;
- Property primaryFileExtensions : TStringArray Index 96 Read FprimaryFileExtensions Write SetprimaryFileExtensions;
- Property primaryMimeTypes : TStringArray Index 104 Read FprimaryMimeTypes Write SetprimaryMimeTypes;
- Property productId : String Index 112 Read FproductId Write SetproductId;
- Property productUrl : String Index 120 Read FproductUrl Write SetproductUrl;
- Property secondaryFileExtensions : TStringArray Index 128 Read FsecondaryFileExtensions Write SetsecondaryFileExtensions;
- Property secondaryMimeTypes : TStringArray Index 136 Read FsecondaryMimeTypes Write SetsecondaryMimeTypes;
- Property shortDescription : String Index 144 Read FshortDescription Write SetshortDescription;
- Property supportsCreate : boolean Index 152 Read FsupportsCreate Write SetsupportsCreate;
- Property supportsImport : boolean Index 160 Read FsupportsImport Write SetsupportsImport;
- Property supportsMultiOpen : boolean Index 168 Read FsupportsMultiOpen Write SetsupportsMultiOpen;
- Property supportsOfflineCreate : boolean Index 176 Read FsupportsOfflineCreate Write SetsupportsOfflineCreate;
- Property useByDefault : boolean Index 184 Read FuseByDefault Write SetuseByDefault;
- end;
- TAppClass = Class of TApp;
-
- { --------------------------------------------------------------------
- TAppList
- --------------------------------------------------------------------}
-
- TAppList = Class(TGoogleBaseObject)
- Private
- FdefaultAppIds : TStringArray;
- Fetag : String;
- Fitems : TAppListTypeitemsArray;
- Fkind : String;
- FselfLink : String;
- Protected
- //Property setters
- Procedure SetdefaultAppIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAppListTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(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 defaultAppIds : TStringArray Index 0 Read FdefaultAppIds Write SetdefaultAppIds;
- Property etag : String Index 8 Read Fetag Write Setetag;
- Property items : TAppListTypeitemsArray Index 16 Read Fitems Write Setitems;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
- end;
- TAppListClass = Class of TAppList;
-
- { --------------------------------------------------------------------
TChange
--------------------------------------------------------------------}
TChange = Class(TGoogleBaseObject)
Private
- Fdeleted : boolean;
F_file : TFile;
FfileId : String;
- Fid : String;
Fkind : String;
- FmodificationDate : TDatetime;
- FselfLink : String;
+ Fremoved : boolean;
+ Ftime : TDatetime;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
- Procedure Set_file(AIndex : Integer; AValue : TFile); virtual;
+ Procedure Set_file(AIndex : Integer; const AValue : TFile); virtual;
Procedure SetfileId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmodificationDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setremoved(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Settime(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
- Property deleted : boolean Index 0 Read Fdeleted Write Setdeleted;
- Property _file : TFile Index 8 Read F_file Write Set_file;
- Property fileId : String Index 16 Read FfileId Write SetfileId;
- Property id : String Index 24 Read Fid Write Setid;
- Property kind : String Index 32 Read Fkind Write Setkind;
- Property modificationDate : TDatetime Index 40 Read FmodificationDate Write SetmodificationDate;
- Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
+ Property _file : TFile Index 0 Read F_file Write Set_file;
+ Property fileId : String Index 8 Read FfileId Write SetfileId;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property removed : boolean Index 24 Read Fremoved Write Setremoved;
+ Property time : TDatetime Index 32 Read Ftime Write Settime;
end;
TChangeClass = Class of TChange;
@@ -541,35 +214,26 @@ type
TChangeList = Class(TGoogleBaseObject)
Private
- Fetag : String;
- Fitems : TChangeListTypeitemsArray;
+ Fchanges : TChangeListTypechangesArray;
Fkind : String;
- FlargestChangeId : String;
- FnextLink : String;
+ FnewStartPageToken : String;
FnextPageToken : String;
- FselfLink : String;
Protected
//Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TChangeListTypeitemsArray); virtual;
+ Procedure Setchanges(AIndex : Integer; const AValue : TChangeListTypechangesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlargestChangeId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnewStartPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(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 etag : String Index 0 Read Fetag Write Setetag;
- Property items : TChangeListTypeitemsArray Index 8 Read Fitems Write Setitems;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property largestChangeId : String Index 24 Read FlargestChangeId Write SetlargestChangeId;
- Property nextLink : String Index 32 Read FnextLink Write SetnextLink;
- Property nextPageToken : String Index 40 Read FnextPageToken Write SetnextPageToken;
- Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
+ Property changes : TChangeListTypechangesArray Index 0 Read Fchanges Write Setchanges;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property newStartPageToken : String Index 16 Read FnewStartPageToken Write SetnewStartPageToken;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
end;
TChangeListClass = Class of TChangeList;
@@ -610,8 +274,8 @@ type
Procedure Setexpiration(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparams(AIndex : Integer; AValue : TChannelTypeparams); virtual;
- Procedure Setpayload(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setparams(AIndex : Integer; const AValue : TChannelTypeparams); virtual;
+ Procedure Setpayload(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetresourceId(AIndex : Integer; const AValue : String); virtual;
Procedure SetresourceUri(AIndex : Integer; const AValue : String); virtual;
Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
@@ -632,84 +296,23 @@ type
TChannelClass = Class of TChannel;
{ --------------------------------------------------------------------
- TChildList
- --------------------------------------------------------------------}
-
- TChildList = Class(TGoogleBaseObject)
- Private
- Fetag : String;
- Fitems : TChildListTypeitemsArray;
- Fkind : String;
- FnextLink : String;
- FnextPageToken : String;
- FselfLink : String;
- Protected
- //Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TChildListTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property items : TChildListTypeitemsArray Index 8 Read Fitems Write Setitems;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property nextLink : String Index 24 Read FnextLink Write SetnextLink;
- Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
- Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
- end;
- TChildListClass = Class of TChildList;
-
- { --------------------------------------------------------------------
- TChildReference
- --------------------------------------------------------------------}
-
- TChildReference = Class(TGoogleBaseObject)
- Private
- FchildLink : String;
- Fid : String;
- Fkind : String;
- FselfLink : String;
- Protected
- //Property setters
- Procedure SetchildLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property childLink : String Index 0 Read FchildLink Write SetchildLink;
- Property id : String Index 8 Read Fid Write Setid;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
- end;
- TChildReferenceClass = Class of TChildReference;
-
- { --------------------------------------------------------------------
- TCommentTypecontext
+ TCommentTypequotedFileContent
--------------------------------------------------------------------}
- TCommentTypecontext = Class(TGoogleBaseObject)
+ TCommentTypequotedFileContent = Class(TGoogleBaseObject)
Private
- F_type : String;
+ FmimeType : String;
Fvalue : String;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property _type : String Index 0 Read F_type Write Set_type;
+ Property mimeType : String Index 0 Read FmimeType Write SetmimeType;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
- TCommentTypecontextClass = Class of TCommentTypecontext;
+ TCommentTypequotedFileContentClass = Class of TCommentTypequotedFileContent;
{ --------------------------------------------------------------------
TComment
@@ -719,36 +322,30 @@ type
Private
Fanchor : String;
Fauthor : TUser;
- FcommentId : String;
Fcontent : String;
- Fcontext : TCommentTypecontext;
- FcreatedDate : TDatetime;
+ FcreatedTime : TDatetime;
Fdeleted : boolean;
- FfileId : String;
- FfileTitle : String;
FhtmlContent : String;
+ Fid : String;
Fkind : String;
- FmodifiedDate : TDatetime;
+ FmodifiedTime : TDatetime;
+ FquotedFileContent : TCommentTypequotedFileContent;
Freplies : TCommentTyperepliesArray;
- FselfLink : String;
- Fstatus : String;
+ Fresolved : boolean;
Protected
//Property setters
Procedure Setanchor(AIndex : Integer; const AValue : String); virtual;
- Procedure Setauthor(AIndex : Integer; AValue : TUser); virtual;
- Procedure SetcommentId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setauthor(AIndex : Integer; const AValue : TUser); virtual;
Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcontext(AIndex : Integer; AValue : TCommentTypecontext); virtual;
- Procedure SetcreatedDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetfileId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfileTitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreatedTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual;
Procedure SethtmlContent(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmodifiedDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setreplies(AIndex : Integer; AValue : TCommentTyperepliesArray); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmodifiedTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetquotedFileContent(AIndex : Integer; const AValue : TCommentTypequotedFileContent); virtual;
+ Procedure Setreplies(AIndex : Integer; const AValue : TCommentTyperepliesArray); virtual;
+ Procedure Setresolved(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -757,19 +354,16 @@ type
Published
Property anchor : String Index 0 Read Fanchor Write Setanchor;
Property author : TUser Index 8 Read Fauthor Write Setauthor;
- Property commentId : String Index 16 Read FcommentId Write SetcommentId;
- Property content : String Index 24 Read Fcontent Write Setcontent;
- Property context : TCommentTypecontext Index 32 Read Fcontext Write Setcontext;
- Property createdDate : TDatetime Index 40 Read FcreatedDate Write SetcreatedDate;
- Property deleted : boolean Index 48 Read Fdeleted Write Setdeleted;
- Property fileId : String Index 56 Read FfileId Write SetfileId;
- Property fileTitle : String Index 64 Read FfileTitle Write SetfileTitle;
- Property htmlContent : String Index 72 Read FhtmlContent Write SethtmlContent;
- Property kind : String Index 80 Read Fkind Write Setkind;
- Property modifiedDate : TDatetime Index 88 Read FmodifiedDate Write SetmodifiedDate;
- Property replies : TCommentTyperepliesArray Index 96 Read Freplies Write Setreplies;
- Property selfLink : String Index 104 Read FselfLink Write SetselfLink;
- Property status : String Index 112 Read Fstatus Write Setstatus;
+ Property content : String Index 16 Read Fcontent Write Setcontent;
+ Property createdTime : TDatetime Index 24 Read FcreatedTime Write SetcreatedTime;
+ Property deleted : boolean Index 32 Read Fdeleted Write Setdeleted;
+ Property htmlContent : String Index 40 Read FhtmlContent Write SethtmlContent;
+ Property id : String Index 48 Read Fid Write Setid;
+ Property kind : String Index 56 Read Fkind Write Setkind;
+ Property modifiedTime : TDatetime Index 64 Read FmodifiedTime Write SetmodifiedTime;
+ Property quotedFileContent : TCommentTypequotedFileContent Index 72 Read FquotedFileContent Write SetquotedFileContent;
+ Property replies : TCommentTyperepliesArray Index 80 Read Freplies Write Setreplies;
+ Property resolved : boolean Index 88 Read Fresolved Write Setresolved;
end;
TCommentClass = Class of TComment;
@@ -779,117 +373,105 @@ type
TCommentList = Class(TGoogleBaseObject)
Private
- Fitems : TCommentListTypeitemsArray;
+ Fcomments : TCommentListTypecommentsArray;
Fkind : String;
- FnextLink : String;
FnextPageToken : String;
- FselfLink : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TCommentListTypeitemsArray); virtual;
+ Procedure Setcomments(AIndex : Integer; const AValue : TCommentListTypecommentsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property items : TCommentListTypeitemsArray Index 0 Read Fitems Write Setitems;
+ Property comments : TCommentListTypecommentsArray Index 0 Read Fcomments Write Setcomments;
Property kind : String Index 8 Read Fkind Write Setkind;
- Property nextLink : String Index 16 Read FnextLink Write SetnextLink;
- Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
- Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
end;
TCommentListClass = Class of TCommentList;
{ --------------------------------------------------------------------
- TCommentReply
+ TFileTypeappProperties
--------------------------------------------------------------------}
- TCommentReply = Class(TGoogleBaseObject)
+ TFileTypeappProperties = Class(TGoogleBaseObject)
Private
- Fauthor : TUser;
- Fcontent : String;
- FcreatedDate : TDatetime;
- Fdeleted : boolean;
- FhtmlContent : String;
- Fkind : String;
- FmodifiedDate : TDatetime;
- FreplyId : String;
- Fverb : String;
Protected
//Property setters
- Procedure Setauthor(AIndex : Integer; AValue : TUser); virtual;
- Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreatedDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
- Procedure SethtmlContent(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmodifiedDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetreplyId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setverb(AIndex : Integer; const AValue : String); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property author : TUser Index 0 Read Fauthor Write Setauthor;
- Property content : String Index 8 Read Fcontent Write Setcontent;
- Property createdDate : TDatetime Index 16 Read FcreatedDate Write SetcreatedDate;
- Property deleted : boolean Index 24 Read Fdeleted Write Setdeleted;
- Property htmlContent : String Index 32 Read FhtmlContent Write SethtmlContent;
- Property kind : String Index 40 Read Fkind Write Setkind;
- Property modifiedDate : TDatetime Index 48 Read FmodifiedDate Write SetmodifiedDate;
- Property replyId : String Index 56 Read FreplyId Write SetreplyId;
- Property verb : String Index 64 Read Fverb Write Setverb;
end;
- TCommentReplyClass = Class of TCommentReply;
+ TFileTypeappPropertiesClass = Class of TFileTypeappProperties;
{ --------------------------------------------------------------------
- TCommentReplyList
+ TFileTypecapabilities
--------------------------------------------------------------------}
- TCommentReplyList = Class(TGoogleBaseObject)
+ TFileTypecapabilities = Class(TGoogleBaseObject)
Private
- Fitems : TCommentReplyListTypeitemsArray;
- Fkind : String;
- FnextLink : String;
- FnextPageToken : String;
- FselfLink : String;
+ FcanComment : boolean;
+ FcanCopy : boolean;
+ FcanEdit : boolean;
+ FcanReadRevisions : boolean;
+ FcanShare : boolean;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TCommentReplyListTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure SetcanComment(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcanCopy(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcanEdit(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcanReadRevisions(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcanShare(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
- Property items : TCommentReplyListTypeitemsArray Index 0 Read Fitems Write Setitems;
- Property kind : String Index 8 Read Fkind Write Setkind;
- Property nextLink : String Index 16 Read FnextLink Write SetnextLink;
- Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
- Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ Property canComment : boolean Index 0 Read FcanComment Write SetcanComment;
+ Property canCopy : boolean Index 8 Read FcanCopy Write SetcanCopy;
+ Property canEdit : boolean Index 16 Read FcanEdit Write SetcanEdit;
+ Property canReadRevisions : boolean Index 24 Read FcanReadRevisions Write SetcanReadRevisions;
+ Property canShare : boolean Index 32 Read FcanShare Write SetcanShare;
+ end;
+ TFileTypecapabilitiesClass = Class of TFileTypecapabilities;
+
+ { --------------------------------------------------------------------
+ TFileTypecontentHintsTypethumbnail
+ --------------------------------------------------------------------}
+
+ TFileTypecontentHintsTypethumbnail = Class(TGoogleBaseObject)
+ Private
+ Fimage : String;
+ FmimeType : String;
+ Protected
+ //Property setters
+ Procedure Setimage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property image : String Index 0 Read Fimage Write Setimage;
+ Property mimeType : String Index 8 Read FmimeType Write SetmimeType;
end;
- TCommentReplyListClass = Class of TCommentReplyList;
+ TFileTypecontentHintsTypethumbnailClass = Class of TFileTypecontentHintsTypethumbnail;
{ --------------------------------------------------------------------
- TFileTypeexportLinks
+ TFileTypecontentHints
--------------------------------------------------------------------}
- TFileTypeexportLinks = Class(TGoogleBaseObject)
+ TFileTypecontentHints = Class(TGoogleBaseObject)
Private
+ FindexableText : String;
+ Fthumbnail : TFileTypecontentHintsTypethumbnail;
Protected
//Property setters
+ Procedure SetindexableText(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setthumbnail(AIndex : Integer; const AValue : TFileTypecontentHintsTypethumbnail); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property indexableText : String Index 0 Read FindexableText Write SetindexableText;
+ Property thumbnail : TFileTypecontentHintsTypethumbnail Index 8 Read Fthumbnail Write Setthumbnail;
end;
- TFileTypeexportLinksClass = Class of TFileTypeexportLinks;
+ TFileTypecontentHintsClass = Class of TFileTypecontentHints;
{ --------------------------------------------------------------------
TFileTypeimageMediaMetadataTypelocation
@@ -902,9 +484,9 @@ type
Flongitude : double;
Protected
//Property setters
- Procedure Setaltitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
+ Procedure Setaltitude(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property altitude : double Index 0 Read Faltitude Write Setaltitude;
@@ -923,7 +505,6 @@ type
FcameraMake : String;
FcameraModel : String;
FcolorSpace : String;
- Fdate : String;
FexposureBias : integer;
FexposureMode : String;
FexposureTime : integer;
@@ -938,106 +519,63 @@ type
Frotation : integer;
Fsensor : String;
FsubjectDistance : integer;
+ Ftime : String;
FwhiteBalance : String;
Fwidth : integer;
Protected
//Property setters
- Procedure Setaperture(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setaperture(AIndex : Integer; const AValue : integer); virtual;
Procedure SetcameraMake(AIndex : Integer; const AValue : String); virtual;
Procedure SetcameraModel(AIndex : Integer; const AValue : String); virtual;
Procedure SetcolorSpace(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdate(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexposureBias(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetexposureBias(AIndex : Integer; const AValue : integer); virtual;
Procedure SetexposureMode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexposureTime(AIndex : Integer; AValue : integer); virtual;
- Procedure SetflashUsed(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetfocalLength(AIndex : Integer; AValue : integer); virtual;
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
- Procedure SetisoSpeed(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetexposureTime(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetflashUsed(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetfocalLength(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetisoSpeed(AIndex : Integer; const AValue : integer); virtual;
Procedure Setlens(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocation(AIndex : Integer; AValue : TFileTypeimageMediaMetadataTypelocation); virtual;
- Procedure SetmaxApertureValue(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TFileTypeimageMediaMetadataTypelocation); virtual;
+ Procedure SetmaxApertureValue(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmeteringMode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrotation(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setrotation(AIndex : Integer; const AValue : integer); virtual;
Procedure Setsensor(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsubjectDistance(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetsubjectDistance(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Settime(AIndex : Integer; const AValue : String); virtual;
Procedure SetwhiteBalance(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property aperture : integer Index 0 Read Faperture Write Setaperture;
Property cameraMake : String Index 8 Read FcameraMake Write SetcameraMake;
Property cameraModel : String Index 16 Read FcameraModel Write SetcameraModel;
Property colorSpace : String Index 24 Read FcolorSpace Write SetcolorSpace;
- Property date : String Index 32 Read Fdate Write Setdate;
- Property exposureBias : integer Index 40 Read FexposureBias Write SetexposureBias;
- Property exposureMode : String Index 48 Read FexposureMode Write SetexposureMode;
- Property exposureTime : integer Index 56 Read FexposureTime Write SetexposureTime;
- Property flashUsed : boolean Index 64 Read FflashUsed Write SetflashUsed;
- Property focalLength : integer Index 72 Read FfocalLength Write SetfocalLength;
- Property height : integer Index 80 Read Fheight Write Setheight;
- Property isoSpeed : integer Index 88 Read FisoSpeed Write SetisoSpeed;
- Property lens : String Index 96 Read Flens Write Setlens;
- Property location : TFileTypeimageMediaMetadataTypelocation Index 104 Read Flocation Write Setlocation;
- Property maxApertureValue : integer Index 112 Read FmaxApertureValue Write SetmaxApertureValue;
- Property meteringMode : String Index 120 Read FmeteringMode Write SetmeteringMode;
- Property rotation : integer Index 128 Read Frotation Write Setrotation;
- Property sensor : String Index 136 Read Fsensor Write Setsensor;
- Property subjectDistance : integer Index 144 Read FsubjectDistance Write SetsubjectDistance;
+ Property exposureBias : integer Index 32 Read FexposureBias Write SetexposureBias;
+ Property exposureMode : String Index 40 Read FexposureMode Write SetexposureMode;
+ Property exposureTime : integer Index 48 Read FexposureTime Write SetexposureTime;
+ Property flashUsed : boolean Index 56 Read FflashUsed Write SetflashUsed;
+ Property focalLength : integer Index 64 Read FfocalLength Write SetfocalLength;
+ Property height : integer Index 72 Read Fheight Write Setheight;
+ Property isoSpeed : integer Index 80 Read FisoSpeed Write SetisoSpeed;
+ Property lens : String Index 88 Read Flens Write Setlens;
+ Property location : TFileTypeimageMediaMetadataTypelocation Index 96 Read Flocation Write Setlocation;
+ Property maxApertureValue : integer Index 104 Read FmaxApertureValue Write SetmaxApertureValue;
+ Property meteringMode : String Index 112 Read FmeteringMode Write SetmeteringMode;
+ Property rotation : integer Index 120 Read Frotation Write Setrotation;
+ Property sensor : String Index 128 Read Fsensor Write Setsensor;
+ Property subjectDistance : integer Index 136 Read FsubjectDistance Write SetsubjectDistance;
+ Property time : String Index 144 Read Ftime Write Settime;
Property whiteBalance : String Index 152 Read FwhiteBalance Write SetwhiteBalance;
Property width : integer Index 160 Read Fwidth Write Setwidth;
end;
TFileTypeimageMediaMetadataClass = Class of TFileTypeimageMediaMetadata;
{ --------------------------------------------------------------------
- TFileTypeindexableText
- --------------------------------------------------------------------}
-
- TFileTypeindexableText = Class(TGoogleBaseObject)
- Private
- Ftext : String;
- Protected
- //Property setters
- Procedure Settext(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property text : String Index 0 Read Ftext Write Settext;
- end;
- TFileTypeindexableTextClass = Class of TFileTypeindexableText;
-
- { --------------------------------------------------------------------
- TFileTypelabels
+ TFileTypeproperties
--------------------------------------------------------------------}
- TFileTypelabels = Class(TGoogleBaseObject)
- Private
- Fhidden : boolean;
- Frestricted : boolean;
- Fstarred : boolean;
- Ftrashed : boolean;
- Fviewed : boolean;
- Protected
- //Property setters
- Procedure Sethidden(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setrestricted(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setstarred(AIndex : Integer; AValue : boolean); virtual;
- Procedure Settrashed(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setviewed(AIndex : Integer; AValue : boolean); virtual;
- Public
- Published
- Property hidden : boolean Index 0 Read Fhidden Write Sethidden;
- Property restricted : boolean Index 8 Read Frestricted Write Setrestricted;
- Property starred : boolean Index 16 Read Fstarred Write Setstarred;
- Property trashed : boolean Index 24 Read Ftrashed Write Settrashed;
- Property viewed : boolean Index 32 Read Fviewed Write Setviewed;
- end;
- TFileTypelabelsClass = Class of TFileTypelabels;
-
- { --------------------------------------------------------------------
- TFileTypeopenWithLinks
- --------------------------------------------------------------------}
-
- TFileTypeopenWithLinks = Class(TGoogleBaseObject)
+ TFileTypeproperties = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -1045,26 +583,7 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TFileTypeopenWithLinksClass = Class of TFileTypeopenWithLinks;
-
- { --------------------------------------------------------------------
- TFileTypethumbnail
- --------------------------------------------------------------------}
-
- TFileTypethumbnail = Class(TGoogleBaseObject)
- Private
- Fimage : String;
- FmimeType : String;
- Protected
- //Property setters
- Procedure Setimage(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property image : String Index 0 Read Fimage Write Setimage;
- Property mimeType : String Index 8 Read FmimeType Write SetmimeType;
- end;
- TFileTypethumbnailClass = Class of TFileTypethumbnail;
+ TFileTypepropertiesClass = Class of TFileTypeproperties;
{ --------------------------------------------------------------------
TFileTypevideoMediaMetadata
@@ -1078,8 +597,8 @@ type
Protected
//Property setters
Procedure SetdurationMillis(AIndex : Integer; const AValue : String); virtual;
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property durationMillis : String Index 0 Read FdurationMillis Write SetdurationMillis;
@@ -1094,167 +613,146 @@ type
TFile = Class(TGoogleBaseObject)
Private
- FalternateLink : String;
- FappDataContents : boolean;
- Fcopyable : boolean;
- FcreatedDate : TDatetime;
- FdefaultOpenWithLink : String;
+ FappProperties : TFileTypeappProperties;
+ Fcapabilities : TFileTypecapabilities;
+ FcontentHints : TFileTypecontentHints;
+ FcreatedTime : TDatetime;
Fdescription : String;
- FdownloadUrl : String;
- Feditable : boolean;
- FembedLink : String;
- Fetag : String;
FexplicitlyTrashed : boolean;
- FexportLinks : TFileTypeexportLinks;
FfileExtension : String;
- FfileSize : String;
FfolderColorRgb : String;
+ FfullFileExtension : String;
FheadRevisionId : String;
FiconLink : String;
Fid : String;
FimageMediaMetadata : TFileTypeimageMediaMetadata;
- FindexableText : TFileTypeindexableText;
+ FisAppAuthorized : boolean;
Fkind : String;
- Flabels : TFileTypelabels;
FlastModifyingUser : TUser;
- FlastModifyingUserName : String;
- FlastViewedByMeDate : TDatetime;
- FmarkedViewedByMeDate : TDatetime;
Fmd5Checksum : String;
FmimeType : String;
- FmodifiedByMeDate : TDatetime;
- FmodifiedDate : TDatetime;
- FopenWithLinks : TFileTypeopenWithLinks;
+ FmodifiedByMeTime : TDatetime;
+ FmodifiedTime : TDatetime;
+ Fname : String;
ForiginalFilename : String;
- FownerNames : TStringArray;
+ FownedByMe : boolean;
Fowners : TFileTypeownersArray;
- Fparents : TFileTypeparentsArray;
+ Fparents : TStringArray;
Fpermissions : TFileTypepermissionsArray;
- Fproperties : TFileTypepropertiesArray;
+ Fproperties : TFileTypeproperties;
FquotaBytesUsed : String;
- FselfLink : String;
Fshared : boolean;
- FsharedWithMeDate : TDatetime;
+ FsharedWithMeTime : TDatetime;
FsharingUser : TUser;
- Fthumbnail : TFileTypethumbnail;
+ Fsize : String;
+ Fspaces : TStringArray;
+ Fstarred : boolean;
FthumbnailLink : String;
- Ftitle : String;
- FuserPermission : TPermission;
+ Ftrashed : boolean;
Fversion : String;
FvideoMediaMetadata : TFileTypevideoMediaMetadata;
+ FviewedByMe : boolean;
+ FviewedByMeTime : TDatetime;
+ FviewersCanCopyContent : boolean;
FwebContentLink : String;
FwebViewLink : String;
FwritersCanShare : boolean;
Protected
//Property setters
- Procedure SetalternateLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetappDataContents(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setcopyable(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcreatedDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetdefaultOpenWithLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetappProperties(AIndex : Integer; const AValue : TFileTypeappProperties); virtual;
+ Procedure Setcapabilities(AIndex : Integer; const AValue : TFileTypecapabilities); virtual;
+ Procedure SetcontentHints(AIndex : Integer; const AValue : TFileTypecontentHints); virtual;
+ Procedure SetcreatedTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdownloadUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Seteditable(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetembedLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexplicitlyTrashed(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetexportLinks(AIndex : Integer; AValue : TFileTypeexportLinks); virtual;
+ Procedure SetexplicitlyTrashed(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetfileExtension(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfileSize(AIndex : Integer; const AValue : String); virtual;
Procedure SetfolderColorRgb(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfullFileExtension(AIndex : Integer; const AValue : String); virtual;
Procedure SetheadRevisionId(AIndex : Integer; const AValue : String); virtual;
Procedure SeticonLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetimageMediaMetadata(AIndex : Integer; AValue : TFileTypeimageMediaMetadata); virtual;
- Procedure SetindexableText(AIndex : Integer; AValue : TFileTypeindexableText); virtual;
+ Procedure SetimageMediaMetadata(AIndex : Integer; const AValue : TFileTypeimageMediaMetadata); virtual;
+ Procedure SetisAppAuthorized(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlabels(AIndex : Integer; AValue : TFileTypelabels); virtual;
- Procedure SetlastModifyingUser(AIndex : Integer; AValue : TUser); virtual;
- Procedure SetlastModifyingUserName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastViewedByMeDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetmarkedViewedByMeDate(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetlastModifyingUser(AIndex : Integer; const AValue : TUser); virtual;
Procedure Setmd5Checksum(AIndex : Integer; const AValue : String); virtual;
Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmodifiedByMeDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetmodifiedDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetopenWithLinks(AIndex : Integer; AValue : TFileTypeopenWithLinks); virtual;
+ Procedure SetmodifiedByMeTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetmodifiedTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetoriginalFilename(AIndex : Integer; const AValue : String); virtual;
- Procedure SetownerNames(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setowners(AIndex : Integer; AValue : TFileTypeownersArray); virtual;
- Procedure Setparents(AIndex : Integer; AValue : TFileTypeparentsArray); virtual;
- Procedure Setpermissions(AIndex : Integer; AValue : TFileTypepermissionsArray); virtual;
- Procedure Setproperties(AIndex : Integer; AValue : TFileTypepropertiesArray); virtual;
+ Procedure SetownedByMe(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setowners(AIndex : Integer; const AValue : TFileTypeownersArray); virtual;
+ Procedure Setparents(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setpermissions(AIndex : Integer; const AValue : TFileTypepermissionsArray); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TFileTypeproperties); virtual;
Procedure SetquotaBytesUsed(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setshared(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsharedWithMeDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetsharingUser(AIndex : Integer; AValue : TUser); virtual;
- Procedure Setthumbnail(AIndex : Integer; AValue : TFileTypethumbnail); virtual;
+ Procedure Setshared(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsharedWithMeTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetsharingUser(AIndex : Integer; const AValue : TUser); virtual;
+ Procedure Setsize(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setspaces(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setstarred(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetthumbnailLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserPermission(AIndex : Integer; AValue : TPermission); virtual;
+ Procedure Settrashed(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvideoMediaMetadata(AIndex : Integer; AValue : TFileTypevideoMediaMetadata); virtual;
+ Procedure SetvideoMediaMetadata(AIndex : Integer; const AValue : TFileTypevideoMediaMetadata); virtual;
+ Procedure SetviewedByMe(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetviewedByMeTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetviewersCanCopyContent(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetwebContentLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetwebViewLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetwritersCanShare(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetwritersCanShare(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 alternateLink : String Index 0 Read FalternateLink Write SetalternateLink;
- Property appDataContents : boolean Index 8 Read FappDataContents Write SetappDataContents;
- Property copyable : boolean Index 16 Read Fcopyable Write Setcopyable;
- Property createdDate : TDatetime Index 24 Read FcreatedDate Write SetcreatedDate;
- Property defaultOpenWithLink : String Index 32 Read FdefaultOpenWithLink Write SetdefaultOpenWithLink;
- Property description : String Index 40 Read Fdescription Write Setdescription;
- Property downloadUrl : String Index 48 Read FdownloadUrl Write SetdownloadUrl;
- Property editable : boolean Index 56 Read Feditable Write Seteditable;
- Property embedLink : String Index 64 Read FembedLink Write SetembedLink;
- Property etag : String Index 72 Read Fetag Write Setetag;
- Property explicitlyTrashed : boolean Index 80 Read FexplicitlyTrashed Write SetexplicitlyTrashed;
- Property exportLinks : TFileTypeexportLinks Index 88 Read FexportLinks Write SetexportLinks;
- Property fileExtension : String Index 96 Read FfileExtension Write SetfileExtension;
- Property fileSize : String Index 104 Read FfileSize Write SetfileSize;
- Property folderColorRgb : String Index 112 Read FfolderColorRgb Write SetfolderColorRgb;
- Property headRevisionId : String Index 120 Read FheadRevisionId Write SetheadRevisionId;
- Property iconLink : String Index 128 Read FiconLink Write SeticonLink;
- Property id : String Index 136 Read Fid Write Setid;
- Property imageMediaMetadata : TFileTypeimageMediaMetadata Index 144 Read FimageMediaMetadata Write SetimageMediaMetadata;
- Property indexableText : TFileTypeindexableText Index 152 Read FindexableText Write SetindexableText;
- Property kind : String Index 160 Read Fkind Write Setkind;
- Property labels : TFileTypelabels Index 168 Read Flabels Write Setlabels;
- Property lastModifyingUser : TUser Index 176 Read FlastModifyingUser Write SetlastModifyingUser;
- Property lastModifyingUserName : String Index 184 Read FlastModifyingUserName Write SetlastModifyingUserName;
- Property lastViewedByMeDate : TDatetime Index 192 Read FlastViewedByMeDate Write SetlastViewedByMeDate;
- Property markedViewedByMeDate : TDatetime Index 200 Read FmarkedViewedByMeDate Write SetmarkedViewedByMeDate;
- Property md5Checksum : String Index 208 Read Fmd5Checksum Write Setmd5Checksum;
- Property mimeType : String Index 216 Read FmimeType Write SetmimeType;
- Property modifiedByMeDate : TDatetime Index 224 Read FmodifiedByMeDate Write SetmodifiedByMeDate;
- Property modifiedDate : TDatetime Index 232 Read FmodifiedDate Write SetmodifiedDate;
- Property openWithLinks : TFileTypeopenWithLinks Index 240 Read FopenWithLinks Write SetopenWithLinks;
- Property originalFilename : String Index 248 Read ForiginalFilename Write SetoriginalFilename;
- Property ownerNames : TStringArray Index 256 Read FownerNames Write SetownerNames;
- Property owners : TFileTypeownersArray Index 264 Read Fowners Write Setowners;
- Property parents : TFileTypeparentsArray Index 272 Read Fparents Write Setparents;
- Property permissions : TFileTypepermissionsArray Index 280 Read Fpermissions Write Setpermissions;
- Property properties : TFileTypepropertiesArray Index 288 Read Fproperties Write Setproperties;
- Property quotaBytesUsed : String Index 296 Read FquotaBytesUsed Write SetquotaBytesUsed;
- Property selfLink : String Index 304 Read FselfLink Write SetselfLink;
- Property shared : boolean Index 312 Read Fshared Write Setshared;
- Property sharedWithMeDate : TDatetime Index 320 Read FsharedWithMeDate Write SetsharedWithMeDate;
- Property sharingUser : TUser Index 328 Read FsharingUser Write SetsharingUser;
- Property thumbnail : TFileTypethumbnail Index 336 Read Fthumbnail Write Setthumbnail;
- Property thumbnailLink : String Index 344 Read FthumbnailLink Write SetthumbnailLink;
- Property title : String Index 352 Read Ftitle Write Settitle;
- Property userPermission : TPermission Index 360 Read FuserPermission Write SetuserPermission;
- Property version : String Index 368 Read Fversion Write Setversion;
- Property videoMediaMetadata : TFileTypevideoMediaMetadata Index 376 Read FvideoMediaMetadata Write SetvideoMediaMetadata;
- Property webContentLink : String Index 384 Read FwebContentLink Write SetwebContentLink;
- Property webViewLink : String Index 392 Read FwebViewLink Write SetwebViewLink;
- Property writersCanShare : boolean Index 400 Read FwritersCanShare Write SetwritersCanShare;
+ Property appProperties : TFileTypeappProperties Index 0 Read FappProperties Write SetappProperties;
+ Property capabilities : TFileTypecapabilities Index 8 Read Fcapabilities Write Setcapabilities;
+ Property contentHints : TFileTypecontentHints Index 16 Read FcontentHints Write SetcontentHints;
+ Property createdTime : TDatetime Index 24 Read FcreatedTime Write SetcreatedTime;
+ Property description : String Index 32 Read Fdescription Write Setdescription;
+ Property explicitlyTrashed : boolean Index 40 Read FexplicitlyTrashed Write SetexplicitlyTrashed;
+ Property fileExtension : String Index 48 Read FfileExtension Write SetfileExtension;
+ Property folderColorRgb : String Index 56 Read FfolderColorRgb Write SetfolderColorRgb;
+ Property fullFileExtension : String Index 64 Read FfullFileExtension Write SetfullFileExtension;
+ Property headRevisionId : String Index 72 Read FheadRevisionId Write SetheadRevisionId;
+ Property iconLink : String Index 80 Read FiconLink Write SeticonLink;
+ Property id : String Index 88 Read Fid Write Setid;
+ Property imageMediaMetadata : TFileTypeimageMediaMetadata Index 96 Read FimageMediaMetadata Write SetimageMediaMetadata;
+ Property isAppAuthorized : boolean Index 104 Read FisAppAuthorized Write SetisAppAuthorized;
+ Property kind : String Index 112 Read Fkind Write Setkind;
+ Property lastModifyingUser : TUser Index 120 Read FlastModifyingUser Write SetlastModifyingUser;
+ Property md5Checksum : String Index 128 Read Fmd5Checksum Write Setmd5Checksum;
+ Property mimeType : String Index 136 Read FmimeType Write SetmimeType;
+ Property modifiedByMeTime : TDatetime Index 144 Read FmodifiedByMeTime Write SetmodifiedByMeTime;
+ Property modifiedTime : TDatetime Index 152 Read FmodifiedTime Write SetmodifiedTime;
+ Property name : String Index 160 Read Fname Write Setname;
+ Property originalFilename : String Index 168 Read ForiginalFilename Write SetoriginalFilename;
+ Property ownedByMe : boolean Index 176 Read FownedByMe Write SetownedByMe;
+ Property owners : TFileTypeownersArray Index 184 Read Fowners Write Setowners;
+ Property parents : TStringArray Index 192 Read Fparents Write Setparents;
+ Property permissions : TFileTypepermissionsArray Index 200 Read Fpermissions Write Setpermissions;
+ Property properties : TFileTypeproperties Index 208 Read Fproperties Write Setproperties;
+ Property quotaBytesUsed : String Index 216 Read FquotaBytesUsed Write SetquotaBytesUsed;
+ Property shared : boolean Index 224 Read Fshared Write Setshared;
+ Property sharedWithMeTime : TDatetime Index 232 Read FsharedWithMeTime Write SetsharedWithMeTime;
+ Property sharingUser : TUser Index 240 Read FsharingUser Write SetsharingUser;
+ Property size : String Index 248 Read Fsize Write Setsize;
+ Property spaces : TStringArray Index 256 Read Fspaces Write Setspaces;
+ Property starred : boolean Index 264 Read Fstarred Write Setstarred;
+ Property thumbnailLink : String Index 272 Read FthumbnailLink Write SetthumbnailLink;
+ Property trashed : boolean Index 280 Read Ftrashed Write Settrashed;
+ Property version : String Index 288 Read Fversion Write Setversion;
+ Property videoMediaMetadata : TFileTypevideoMediaMetadata Index 296 Read FvideoMediaMetadata Write SetvideoMediaMetadata;
+ Property viewedByMe : boolean Index 304 Read FviewedByMe Write SetviewedByMe;
+ Property viewedByMeTime : TDatetime Index 312 Read FviewedByMeTime Write SetviewedByMeTime;
+ Property viewersCanCopyContent : boolean Index 320 Read FviewersCanCopyContent Write SetviewersCanCopyContent;
+ Property webContentLink : String Index 328 Read FwebContentLink Write SetwebContentLink;
+ Property webViewLink : String Index 336 Read FwebViewLink Write SetwebViewLink;
+ Property writersCanShare : boolean Index 344 Read FwritersCanShare Write SetwritersCanShare;
end;
TFileClass = Class of TFile;
@@ -1264,91 +762,51 @@ type
TFileList = Class(TGoogleBaseObject)
Private
- Fetag : String;
- Fitems : TFileListTypeitemsArray;
+ Ffiles : TFileListTypefilesArray;
Fkind : String;
- FnextLink : String;
FnextPageToken : String;
- FselfLink : String;
Protected
//Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TFileListTypeitemsArray); virtual;
+ Procedure Setfiles(AIndex : Integer; const AValue : TFileListTypefilesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property items : TFileListTypeitemsArray Index 8 Read Fitems Write Setitems;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property nextLink : String Index 24 Read FnextLink Write SetnextLink;
- Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
- Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
+ Property files : TFileListTypefilesArray Index 0 Read Ffiles Write Setfiles;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
end;
TFileListClass = Class of TFileList;
{ --------------------------------------------------------------------
- TParentList
+ TGeneratedIds
--------------------------------------------------------------------}
- TParentList = Class(TGoogleBaseObject)
+ TGeneratedIds = Class(TGoogleBaseObject)
Private
- Fetag : String;
- Fitems : TParentListTypeitemsArray;
+ Fids : TStringArray;
Fkind : String;
- FselfLink : String;
+ Fspace : String;
Protected
//Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TParentListTypeitemsArray); virtual;
+ Procedure Setids(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setspace(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 etag : String Index 0 Read Fetag Write Setetag;
- Property items : TParentListTypeitemsArray Index 8 Read Fitems Write Setitems;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
- end;
- TParentListClass = Class of TParentList;
-
- { --------------------------------------------------------------------
- TParentReference
- --------------------------------------------------------------------}
-
- TParentReference = Class(TGoogleBaseObject)
- Private
- Fid : String;
- FisRoot : boolean;
- Fkind : String;
- FparentLink : String;
- FselfLink : String;
- Protected
- //Property setters
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisRoot(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetparentLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property id : String Index 0 Read Fid Write Setid;
- Property isRoot : boolean Index 8 Read FisRoot Write SetisRoot;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property parentLink : String Index 24 Read FparentLink Write SetparentLink;
- Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ Property ids : TStringArray Index 0 Read Fids Write Setids;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property space : String Index 16 Read Fspace Write Setspace;
end;
- TParentReferenceClass = Class of TParentReference;
+ TGeneratedIdsClass = Class of TGeneratedIds;
{ --------------------------------------------------------------------
TPermission
@@ -1356,181 +814,129 @@ type
TPermission = Class(TGoogleBaseObject)
Private
- FadditionalRoles : TStringArray;
- FauthKey : String;
+ FallowFileDiscovery : boolean;
+ FdisplayName : String;
Fdomain : String;
FemailAddress : String;
- Fetag : String;
Fid : String;
Fkind : String;
- Fname : String;
FphotoLink : String;
Frole : String;
- FselfLink : String;
F_type : String;
- Fvalue : String;
- FwithLink : boolean;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetadditionalRoles(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetauthKey(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetallowFileDiscovery(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setdomain(AIndex : Integer; const AValue : String); virtual;
Procedure SetemailAddress(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetphotoLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetwithLink(AIndex : Integer; 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 additionalRoles : TStringArray Index 0 Read FadditionalRoles Write SetadditionalRoles;
- Property authKey : String Index 8 Read FauthKey Write SetauthKey;
+ Property allowFileDiscovery : boolean Index 0 Read FallowFileDiscovery Write SetallowFileDiscovery;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
Property domain : String Index 16 Read Fdomain Write Setdomain;
Property emailAddress : String Index 24 Read FemailAddress Write SetemailAddress;
- Property etag : String Index 32 Read Fetag Write Setetag;
- Property id : String Index 40 Read Fid Write Setid;
- Property kind : String Index 48 Read Fkind Write Setkind;
- Property name : String Index 56 Read Fname Write Setname;
- Property photoLink : String Index 64 Read FphotoLink Write SetphotoLink;
- Property role : String Index 72 Read Frole Write Setrole;
- Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
- Property _type : String Index 88 Read F_type Write Set_type;
- Property value : String Index 96 Read Fvalue Write Setvalue;
- Property withLink : boolean Index 104 Read FwithLink Write SetwithLink;
+ Property id : String Index 32 Read Fid Write Setid;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property photoLink : String Index 48 Read FphotoLink Write SetphotoLink;
+ Property role : String Index 56 Read Frole Write Setrole;
+ Property _type : String Index 64 Read F_type Write Set_type;
end;
TPermissionClass = Class of TPermission;
{ --------------------------------------------------------------------
- TPermissionId
- --------------------------------------------------------------------}
-
- TPermissionId = Class(TGoogleBaseObject)
- Private
- Fid : String;
- Fkind : String;
- Protected
- //Property setters
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property id : String Index 0 Read Fid Write Setid;
- Property kind : String Index 8 Read Fkind Write Setkind;
- end;
- TPermissionIdClass = Class of TPermissionId;
-
- { --------------------------------------------------------------------
TPermissionList
--------------------------------------------------------------------}
TPermissionList = Class(TGoogleBaseObject)
Private
- Fetag : String;
- Fitems : TPermissionListTypeitemsArray;
Fkind : String;
- FselfLink : String;
+ Fpermissions : TPermissionListTypepermissionsArray;
Protected
//Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TPermissionListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpermissions(AIndex : Integer; const AValue : TPermissionListTypepermissionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property items : TPermissionListTypeitemsArray Index 8 Read Fitems Write Setitems;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property permissions : TPermissionListTypepermissionsArray Index 8 Read Fpermissions Write Setpermissions;
end;
TPermissionListClass = Class of TPermissionList;
{ --------------------------------------------------------------------
- TProperty
+ TReply
--------------------------------------------------------------------}
- TProperty = Class(TGoogleBaseObject)
+ TReply = Class(TGoogleBaseObject)
Private
- Fetag : String;
- Fkey : String;
+ Faction : String;
+ Fauthor : TUser;
+ Fcontent : String;
+ FcreatedTime : TDatetime;
+ Fdeleted : boolean;
+ FhtmlContent : String;
+ Fid : String;
Fkind : String;
- FselfLink : String;
- Fvalue : String;
- Fvisibility : String;
+ FmodifiedTime : TDatetime;
Protected
//Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setaction(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setauthor(AIndex : Integer; const AValue : TUser); virtual;
+ Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreatedTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SethtmlContent(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmodifiedTime(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property key : String Index 8 Read Fkey Write Setkey;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
- Property value : String Index 32 Read Fvalue Write Setvalue;
- Property visibility : String Index 40 Read Fvisibility Write Setvisibility;
+ Property action : String Index 0 Read Faction Write Setaction;
+ Property author : TUser Index 8 Read Fauthor Write Setauthor;
+ Property content : String Index 16 Read Fcontent Write Setcontent;
+ Property createdTime : TDatetime Index 24 Read FcreatedTime Write SetcreatedTime;
+ Property deleted : boolean Index 32 Read Fdeleted Write Setdeleted;
+ Property htmlContent : String Index 40 Read FhtmlContent Write SethtmlContent;
+ Property id : String Index 48 Read Fid Write Setid;
+ Property kind : String Index 56 Read Fkind Write Setkind;
+ Property modifiedTime : TDatetime Index 64 Read FmodifiedTime Write SetmodifiedTime;
end;
- TPropertyClass = Class of TProperty;
+ TReplyClass = Class of TReply;
{ --------------------------------------------------------------------
- TPropertyList
+ TReplyList
--------------------------------------------------------------------}
- TPropertyList = Class(TGoogleBaseObject)
+ TReplyList = Class(TGoogleBaseObject)
Private
- Fetag : String;
- Fitems : TPropertyListTypeitemsArray;
Fkind : String;
- FselfLink : String;
+ FnextPageToken : String;
+ Freplies : TReplyListTyperepliesArray;
Protected
//Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TPropertyListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setreplies(AIndex : Integer; const AValue : TReplyListTyperepliesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property items : TPropertyListTypeitemsArray Index 8 Read Fitems Write Setitems;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
- end;
- TPropertyListClass = Class of TPropertyList;
-
- { --------------------------------------------------------------------
- TRevisionTypeexportLinks
- --------------------------------------------------------------------}
-
- TRevisionTypeexportLinks = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Class Function AllowAdditionalProperties : Boolean; override;
- Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property replies : TReplyListTyperepliesArray Index 16 Read Freplies Write Setreplies;
end;
- TRevisionTypeexportLinksClass = Class of TRevisionTypeexportLinks;
+ TReplyListClass = Class of TReplyList;
{ --------------------------------------------------------------------
TRevision
@@ -1538,65 +944,47 @@ type
TRevision = Class(TGoogleBaseObject)
Private
- FdownloadUrl : String;
- Fetag : String;
- FexportLinks : TRevisionTypeexportLinks;
- FfileSize : String;
Fid : String;
+ FkeepForever : boolean;
Fkind : String;
FlastModifyingUser : TUser;
- FlastModifyingUserName : String;
Fmd5Checksum : String;
FmimeType : String;
- FmodifiedDate : TDatetime;
+ FmodifiedTime : TDatetime;
ForiginalFilename : String;
- Fpinned : boolean;
FpublishAuto : boolean;
F_published : boolean;
- FpublishedLink : String;
FpublishedOutsideDomain : boolean;
- FselfLink : String;
+ Fsize : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdownloadUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexportLinks(AIndex : Integer; AValue : TRevisionTypeexportLinks); virtual;
- Procedure SetfileSize(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetkeepForever(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModifyingUser(AIndex : Integer; AValue : TUser); virtual;
- Procedure SetlastModifyingUserName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlastModifyingUser(AIndex : Integer; const AValue : TUser); virtual;
Procedure Setmd5Checksum(AIndex : Integer; const AValue : String); virtual;
Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmodifiedDate(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetmodifiedTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetoriginalFilename(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpinned(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetpublishAuto(AIndex : Integer; AValue : boolean); virtual;
- Procedure Set_published(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetpublishedLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublishedOutsideDomain(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpublishAuto(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpublishedOutsideDomain(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setsize(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property downloadUrl : String Index 0 Read FdownloadUrl Write SetdownloadUrl;
- Property etag : String Index 8 Read Fetag Write Setetag;
- Property exportLinks : TRevisionTypeexportLinks Index 16 Read FexportLinks Write SetexportLinks;
- Property fileSize : String Index 24 Read FfileSize Write SetfileSize;
- Property id : String Index 32 Read Fid Write Setid;
- Property kind : String Index 40 Read Fkind Write Setkind;
- Property lastModifyingUser : TUser Index 48 Read FlastModifyingUser Write SetlastModifyingUser;
- Property lastModifyingUserName : String Index 56 Read FlastModifyingUserName Write SetlastModifyingUserName;
- Property md5Checksum : String Index 64 Read Fmd5Checksum Write Setmd5Checksum;
- Property mimeType : String Index 72 Read FmimeType Write SetmimeType;
- Property modifiedDate : TDatetime Index 80 Read FmodifiedDate Write SetmodifiedDate;
- Property originalFilename : String Index 88 Read ForiginalFilename Write SetoriginalFilename;
- Property pinned : boolean Index 96 Read Fpinned Write Setpinned;
- Property publishAuto : boolean Index 104 Read FpublishAuto Write SetpublishAuto;
- Property _published : boolean Index 112 Read F_published Write Set_published;
- Property publishedLink : String Index 120 Read FpublishedLink Write SetpublishedLink;
- Property publishedOutsideDomain : boolean Index 128 Read FpublishedOutsideDomain Write SetpublishedOutsideDomain;
- Property selfLink : String Index 136 Read FselfLink Write SetselfLink;
+ Property id : String Index 0 Read Fid Write Setid;
+ Property keepForever : boolean Index 8 Read FkeepForever Write SetkeepForever;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property lastModifyingUser : TUser Index 24 Read FlastModifyingUser Write SetlastModifyingUser;
+ Property md5Checksum : String Index 32 Read Fmd5Checksum Write Setmd5Checksum;
+ Property mimeType : String Index 40 Read FmimeType Write SetmimeType;
+ Property modifiedTime : TDatetime Index 48 Read FmodifiedTime Write SetmodifiedTime;
+ Property originalFilename : String Index 56 Read ForiginalFilename Write SetoriginalFilename;
+ Property publishAuto : boolean Index 64 Read FpublishAuto Write SetpublishAuto;
+ Property _published : boolean Index 72 Read F_published Write Set_published;
+ Property publishedOutsideDomain : boolean Index 80 Read FpublishedOutsideDomain Write SetpublishedOutsideDomain;
+ Property size : String Index 88 Read Fsize Write Setsize;
end;
TRevisionClass = Class of TRevision;
@@ -1606,44 +994,41 @@ type
TRevisionList = Class(TGoogleBaseObject)
Private
- Fetag : String;
- Fitems : TRevisionListTypeitemsArray;
Fkind : String;
- FselfLink : String;
+ Frevisions : TRevisionListTyperevisionsArray;
Protected
//Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TRevisionListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrevisions(AIndex : Integer; const AValue : TRevisionListTyperevisionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property items : TRevisionListTypeitemsArray Index 8 Read Fitems Write Setitems;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property revisions : TRevisionListTyperevisionsArray Index 8 Read Frevisions Write Setrevisions;
end;
TRevisionListClass = Class of TRevisionList;
{ --------------------------------------------------------------------
- TUserTypepicture
+ TStartPageToken
--------------------------------------------------------------------}
- TUserTypepicture = Class(TGoogleBaseObject)
+ TStartPageToken = Class(TGoogleBaseObject)
Private
- Furl : String;
+ Fkind : String;
+ FstartPageToken : String;
Protected
//Property setters
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartPageToken(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property url : String Index 0 Read Furl Write Seturl;
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property startPageToken : String Index 8 Read FstartPageToken Write SetstartPageToken;
end;
- TUserTypepictureClass = Class of TUserTypepicture;
+ TStartPageTokenClass = Class of TStartPageToken;
{ --------------------------------------------------------------------
TUser
@@ -1653,26 +1038,26 @@ type
Private
FdisplayName : String;
FemailAddress : String;
- FisAuthenticatedUser : boolean;
Fkind : String;
+ Fme : boolean;
FpermissionId : String;
- Fpicture : TUserTypepicture;
+ FphotoLink : String;
Protected
//Property setters
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure SetemailAddress(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisAuthenticatedUser(AIndex : Integer; AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setme(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetpermissionId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpicture(AIndex : Integer; AValue : TUserTypepicture); virtual;
+ Procedure SetphotoLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
Property emailAddress : String Index 8 Read FemailAddress Write SetemailAddress;
- Property isAuthenticatedUser : boolean Index 16 Read FisAuthenticatedUser Write SetisAuthenticatedUser;
- Property kind : String Index 24 Read Fkind Write Setkind;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property me : boolean Index 24 Read Fme Write Setme;
Property permissionId : String Index 32 Read FpermissionId Write SetpermissionId;
- Property picture : TUserTypepicture Index 40 Read Fpicture Write Setpicture;
+ Property photoLink : String Index 40 Read FphotoLink Write SetphotoLink;
end;
TUserClass = Class of TUser;
@@ -1680,44 +1065,11 @@ type
TAboutResource
--------------------------------------------------------------------}
-
- //Optional query Options for TAboutResource, method Get
-
- TAboutGetOptions = Record
- includeSubscribed : boolean;
- maxChangeIdCount : int64;
- startChangeId : int64;
- end;
-
TAboutResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(AQuery : string = '') : TAbout;
- Function Get(AQuery : TAboutgetOptions) : TAbout;
- end;
-
-
- { --------------------------------------------------------------------
- TAppsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAppsResource, method List
-
- TAppsListOptions = Record
- appFilterExtensions : String;
- appFilterMimeTypes : String;
- languageCode : String;
- end;
-
- TAppsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(appId: string) : TApp;
- Function List(AQuery : string = '') : TAppList;
- Function List(AQuery : TAppslistOptions) : TAppList;
+ Function Get : TAbout;
end;
@@ -1729,29 +1081,29 @@ type
//Optional query Options for TChangesResource, method List
TChangesListOptions = Record
- includeDeleted : boolean;
- includeSubscribed : boolean;
- maxResults : integer;
+ includeRemoved : boolean;
+ pageSize : integer;
pageToken : String;
- startChangeId : int64;
+ restrictToMyDrive : boolean;
+ spaces : String;
end;
//Optional query Options for TChangesResource, method Watch
TChangesWatchOptions = Record
- includeDeleted : boolean;
- includeSubscribed : boolean;
- maxResults : integer;
+ includeRemoved : boolean;
+ pageSize : integer;
pageToken : String;
- startChangeId : int64;
+ restrictToMyDrive : boolean;
+ spaces : String;
end;
TChangesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(changeId: string) : TChange;
+ Function GetStartPageToken : TStartPageToken;
Function List(AQuery : string = '') : TChangeList;
Function List(AQuery : TChangeslistOptions) : TChangeList;
Function Watch(aChannel : TChannel; AQuery : string = '') : TChannel;
@@ -1772,31 +1124,6 @@ type
{ --------------------------------------------------------------------
- TChildrenResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TChildrenResource, method List
-
- TChildrenListOptions = Record
- maxResults : integer;
- pageToken : String;
- q : String;
- end;
-
- TChildrenResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Delete(childId: string; folderId: string);
- Function Get(childId: string; folderId: string) : TChildReference;
- Function Insert(folderId: string; aChildReference : TChildReference) : TChildReference;
- Function List(folderId: string; AQuery : string = '') : TChildList;
- Function List(folderId: string; AQuery : TChildrenlistOptions) : TChildList;
- end;
-
-
- { --------------------------------------------------------------------
TCommentsResource
--------------------------------------------------------------------}
@@ -1812,22 +1139,21 @@ type
TCommentsListOptions = Record
includeDeleted : boolean;
- maxResults : integer;
+ pageSize : integer;
pageToken : String;
- updatedMin : String;
+ startModifiedTime : String;
end;
TCommentsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(fileId: string; aComment : TComment) : TComment;overload;
Procedure Delete(commentId: string; fileId: string);
Function Get(commentId: string; fileId: string; AQuery : string = '') : TComment;
Function Get(commentId: string; fileId: string; AQuery : TCommentsgetOptions) : TComment;
- Function Insert(fileId: string; aComment : TComment) : TComment;
Function List(fileId: string; AQuery : string = '') : TCommentList;
Function List(fileId: string; AQuery : TCommentslistOptions) : TCommentList;
- Function Patch(commentId: string; fileId: string; aComment : TComment) : TComment;
Function Update(commentId: string; fileId: string; aComment : TComment) : TComment;
end;
@@ -1840,37 +1166,41 @@ type
//Optional query Options for TFilesResource, method Copy
TFilesCopyOptions = Record
- convert : boolean;
- ocr : boolean;
+ ignoreDefaultVisibility : boolean;
+ keepRevisionForever : boolean;
ocrLanguage : String;
- pinned : boolean;
- timedTextLanguage : String;
- timedTextTrackName : String;
- visibility : String;
end;
- //Optional query Options for TFilesResource, method Get
+ //Optional query Options for TFilesResource, method Create
- TFilesGetOptions = Record
- acknowledgeAbuse : boolean;
- projection : String;
- revisionId : String;
- updateViewedDate : boolean;
+ TFilesCreateOptions = Record
+ ignoreDefaultVisibility : boolean;
+ keepRevisionForever : boolean;
+ ocrLanguage : String;
+ useContentAsIndexableText : boolean;
end;
- //Optional query Options for TFilesResource, method Insert
+ //Optional query Options for TFilesResource, method Export
- TFilesInsertOptions = Record
- convert : boolean;
- ocr : boolean;
- ocrLanguage : String;
- pinned : boolean;
- timedTextLanguage : String;
- timedTextTrackName : String;
- useContentAsIndexableText : boolean;
- visibility : String;
+ TFilesExportOptions = Record
+ mimeType : String;
+ end;
+
+
+ //Optional query Options for TFilesResource, method GenerateIds
+
+ TFilesGenerateIdsOptions = Record
+ count : integer;
+ space : String;
+ end;
+
+
+ //Optional query Options for TFilesResource, method Get
+
+ TFilesGetOptions = Record
+ acknowledgeAbuse : boolean;
end;
@@ -1878,28 +1208,11 @@ type
TFilesListOptions = Record
corpus : String;
- maxResults : integer;
+ orderBy : String;
+ pageSize : integer;
pageToken : String;
- projection : String;
q : String;
- end;
-
-
- //Optional query Options for TFilesResource, method Patch
-
- TFilesPatchOptions = Record
- addParents : String;
- convert : boolean;
- newRevision : boolean;
- ocr : boolean;
- ocrLanguage : String;
- pinned : boolean;
- removeParents : String;
- setModifiedDate : boolean;
- timedTextLanguage : String;
- timedTextTrackName : String;
- updateViewedDate : boolean;
- useContentAsIndexableText : boolean;
+ spaces : String;
end;
@@ -1907,16 +1220,9 @@ type
TFilesUpdateOptions = Record
addParents : String;
- convert : boolean;
- newRevision : boolean;
- ocr : boolean;
+ keepRevisionForever : boolean;
ocrLanguage : String;
- pinned : boolean;
removeParents : String;
- setModifiedDate : boolean;
- timedTextLanguage : String;
- timedTextTrackName : String;
- updateViewedDate : boolean;
useContentAsIndexableText : boolean;
end;
@@ -1925,9 +1231,6 @@ type
TFilesWatchOptions = Record
acknowledgeAbuse : boolean;
- projection : String;
- revisionId : String;
- updateViewedDate : boolean;
end;
TFilesResource = Class(TGoogleResource)
@@ -1936,19 +1239,18 @@ type
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Copy(fileId: string; aFile : TFile; AQuery : string = '') : TFile;
Function Copy(fileId: string; aFile : TFile; AQuery : TFilescopyOptions) : TFile;
+ Function Create(aFile : TFile; AQuery : string = '') : TFile;overload;
+ Function Create(aFile : TFile; AQuery : TFilescreateOptions) : TFile;overload;
Procedure Delete(fileId: string);
Procedure EmptyTrash;
+ Procedure Export(fileId: string; AQuery : string = '');
+ Procedure Export(fileId: string; AQuery : TFilesexportOptions);
+ Function GenerateIds(AQuery : string = '') : TGeneratedIds;
+ Function GenerateIds(AQuery : TFilesgenerateIdsOptions) : TGeneratedIds;
Function Get(fileId: string; AQuery : string = '') : TFile;
Function Get(fileId: string; AQuery : TFilesgetOptions) : TFile;
- Function Insert(aFile : TFile; AQuery : string = '') : TFile;
- Function Insert(aFile : TFile; AQuery : TFilesinsertOptions) : TFile;
Function List(AQuery : string = '') : TFileList;
Function List(AQuery : TFileslistOptions) : TFileList;
- Function Patch(fileId: string; aFile : TFile; AQuery : string = '') : TFile;
- Function Patch(fileId: string; aFile : TFile; AQuery : TFilespatchOptions) : TFile;
- Function Touch(fileId: string) : TFile;
- Function Trash(fileId: string) : TFile;
- Function Untrash(fileId: string) : TFile;
Function Update(fileId: string; aFile : TFile; AQuery : string = '') : TFile;
Function Update(fileId: string; aFile : TFile; AQuery : TFilesupdateOptions) : TFile;
Function Watch(fileId: string; aChannel : TChannel; AQuery : string = '') : TChannel;
@@ -1957,36 +1259,15 @@ type
{ --------------------------------------------------------------------
- TParentsResource
- --------------------------------------------------------------------}
-
- TParentsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Delete(fileId: string; parentId: string);
- Function Get(fileId: string; parentId: string) : TParentReference;
- Function Insert(fileId: string; aParentReference : TParentReference) : TParentReference;
- Function List(fileId: string) : TParentList;
- end;
-
-
- { --------------------------------------------------------------------
TPermissionsResource
--------------------------------------------------------------------}
- //Optional query Options for TPermissionsResource, method Insert
+ //Optional query Options for TPermissionsResource, method Create
- TPermissionsInsertOptions = Record
+ TPermissionsCreateOptions = Record
emailMessage : String;
- sendNotificationEmails : boolean;
- end;
-
-
- //Optional query Options for TPermissionsResource, method Patch
-
- TPermissionsPatchOptions = Record
+ sendNotificationEmail : boolean;
transferOwnership : boolean;
end;
@@ -2001,98 +1282,17 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(fileId: string; aPermission : TPermission; AQuery : string = '') : TPermission;overload;
+ Function Create(fileId: string; aPermission : TPermission; AQuery : TPermissionscreateOptions) : TPermission;overload;
Procedure Delete(fileId: string; permissionId: string);
Function Get(fileId: string; permissionId: string) : TPermission;
- Function GetIdForEmail(email: string) : TPermissionId;
- Function Insert(fileId: string; aPermission : TPermission; AQuery : string = '') : TPermission;
- Function Insert(fileId: string; aPermission : TPermission; AQuery : TPermissionsinsertOptions) : TPermission;
Function List(fileId: string) : TPermissionList;
- Function Patch(fileId: string; permissionId: string; aPermission : TPermission; AQuery : string = '') : TPermission;
- Function Patch(fileId: string; permissionId: string; aPermission : TPermission; AQuery : TPermissionspatchOptions) : TPermission;
Function Update(fileId: string; permissionId: string; aPermission : TPermission; AQuery : string = '') : TPermission;
Function Update(fileId: string; permissionId: string; aPermission : TPermission; AQuery : TPermissionsupdateOptions) : TPermission;
end;
{ --------------------------------------------------------------------
- TPropertiesResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TPropertiesResource, method Delete
-
- TPropertiesDeleteOptions = Record
- visibility : String;
- end;
-
-
- //Optional query Options for TPropertiesResource, method Get
-
- TPropertiesGetOptions = Record
- visibility : String;
- end;
-
-
- //Optional query Options for TPropertiesResource, method Patch
-
- TPropertiesPatchOptions = Record
- visibility : String;
- end;
-
-
- //Optional query Options for TPropertiesResource, method Update
-
- TPropertiesUpdateOptions = Record
- visibility : String;
- end;
-
- TPropertiesResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Delete(fileId: string; propertyKey: string; AQuery : string = '');
- Procedure Delete(fileId: string; propertyKey: string; AQuery : TPropertiesdeleteOptions);
- Function Get(fileId: string; propertyKey: string; AQuery : string = '') : TProperty;
- Function Get(fileId: string; propertyKey: string; AQuery : TPropertiesgetOptions) : TProperty;
- Function Insert(fileId: string; aProperty : TProperty) : TProperty;
- Function List(fileId: string) : TPropertyList;
- Function Patch(fileId: string; propertyKey: string; aProperty : TProperty; AQuery : string = '') : TProperty;
- Function Patch(fileId: string; propertyKey: string; aProperty : TProperty; AQuery : TPropertiespatchOptions) : TProperty;
- Function Update(fileId: string; propertyKey: string; aProperty : TProperty; AQuery : string = '') : TProperty;
- Function Update(fileId: string; propertyKey: string; aProperty : TProperty; AQuery : TPropertiesupdateOptions) : TProperty;
- end;
-
-
- { --------------------------------------------------------------------
- TRealtimeResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TRealtimeResource, method Get
-
- TRealtimeGetOptions = Record
- revision : integer;
- end;
-
-
- //Optional query Options for TRealtimeResource, method Update
-
- TRealtimeUpdateOptions = Record
- baseRevision : String;
- end;
-
- TRealtimeResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Get(fileId: string; AQuery : string = '');
- Procedure Get(fileId: string; AQuery : TRealtimegetOptions);
- Procedure Update(fileId: string; AQuery : string = '');
- Procedure Update(fileId: string; AQuery : TRealtimeupdateOptions);
- end;
-
-
- { --------------------------------------------------------------------
TRepliesResource
--------------------------------------------------------------------}
@@ -2108,7 +1308,7 @@ type
TRepliesListOptions = Record
includeDeleted : boolean;
- maxResults : integer;
+ pageSize : integer;
pageToken : String;
end;
@@ -2116,14 +1316,13 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(commentId: string; fileId: string; aReply : TReply) : TReply;overload;
Procedure Delete(commentId: string; fileId: string; replyId: string);
- Function Get(commentId: string; fileId: string; replyId: string; AQuery : string = '') : TCommentReply;
- Function Get(commentId: string; fileId: string; replyId: string; AQuery : TRepliesgetOptions) : TCommentReply;
- Function Insert(commentId: string; fileId: string; aCommentReply : TCommentReply) : TCommentReply;
- Function List(commentId: string; fileId: string; AQuery : string = '') : TCommentReplyList;
- Function List(commentId: string; fileId: string; AQuery : TReplieslistOptions) : TCommentReplyList;
- Function Patch(commentId: string; fileId: string; replyId: string; aCommentReply : TCommentReply) : TCommentReply;
- Function Update(commentId: string; fileId: string; replyId: string; aCommentReply : TCommentReply) : TCommentReply;
+ Function Get(commentId: string; fileId: string; replyId: string; AQuery : string = '') : TReply;
+ Function Get(commentId: string; fileId: string; replyId: string; AQuery : TRepliesgetOptions) : TReply;
+ Function List(commentId: string; fileId: string; AQuery : string = '') : TReplyList;
+ Function List(commentId: string; fileId: string; AQuery : TReplieslistOptions) : TReplyList;
+ Function Update(commentId: string; fileId: string; replyId: string; aReply : TReply) : TReply;
end;
@@ -2131,14 +1330,21 @@ type
TRevisionsResource
--------------------------------------------------------------------}
+
+ //Optional query Options for TRevisionsResource, method Get
+
+ TRevisionsGetOptions = Record
+ acknowledgeAbuse : boolean;
+ end;
+
TRevisionsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(fileId: string; revisionId: string);
- Function Get(fileId: string; revisionId: string) : TRevision;
+ Function Get(fileId: string; revisionId: string; AQuery : string = '') : TRevision;
+ Function Get(fileId: string; revisionId: string; AQuery : TRevisionsgetOptions) : TRevision;
Function List(fileId: string) : TRevisionList;
- Function Patch(fileId: string; revisionId: string; aRevision : TRevision) : TRevision;
Function Update(fileId: string; revisionId: string; aRevision : TRevision) : TRevision;
end;
@@ -2150,29 +1356,19 @@ type
TDriveAPI = Class(TGoogleAPI)
Private
FAboutInstance : TAboutResource;
- FAppsInstance : TAppsResource;
FChangesInstance : TChangesResource;
FChannelsInstance : TChannelsResource;
- FChildrenInstance : TChildrenResource;
FCommentsInstance : TCommentsResource;
FFilesInstance : TFilesResource;
- FParentsInstance : TParentsResource;
FPermissionsInstance : TPermissionsResource;
- FPropertiesInstance : TPropertiesResource;
- FRealtimeInstance : TRealtimeResource;
FRepliesInstance : TRepliesResource;
FRevisionsInstance : TRevisionsResource;
Function GetAboutInstance : TAboutResource;virtual;
- Function GetAppsInstance : TAppsResource;virtual;
Function GetChangesInstance : TChangesResource;virtual;
Function GetChannelsInstance : TChannelsResource;virtual;
- Function GetChildrenInstance : TChildrenResource;virtual;
Function GetCommentsInstance : TCommentsResource;virtual;
Function GetFilesInstance : TFilesResource;virtual;
- Function GetParentsInstance : TParentsResource;virtual;
Function GetPermissionsInstance : TPermissionsResource;virtual;
- Function GetPropertiesInstance : TPropertiesResource;virtual;
- Function GetRealtimeInstance : TRealtimeResource;virtual;
Function GetRepliesInstance : TRepliesResource;virtual;
Function GetRevisionsInstance : TRevisionsResource;virtual;
Public
@@ -2200,42 +1396,27 @@ type
//Add create function for resources
Function CreateAboutResource(AOwner : TComponent) : TAboutResource;virtual;overload;
Function CreateAboutResource : TAboutResource;virtual;overload;
- Function CreateAppsResource(AOwner : TComponent) : TAppsResource;virtual;overload;
- Function CreateAppsResource : TAppsResource;virtual;overload;
Function CreateChangesResource(AOwner : TComponent) : TChangesResource;virtual;overload;
Function CreateChangesResource : TChangesResource;virtual;overload;
Function CreateChannelsResource(AOwner : TComponent) : TChannelsResource;virtual;overload;
Function CreateChannelsResource : TChannelsResource;virtual;overload;
- Function CreateChildrenResource(AOwner : TComponent) : TChildrenResource;virtual;overload;
- Function CreateChildrenResource : TChildrenResource;virtual;overload;
Function CreateCommentsResource(AOwner : TComponent) : TCommentsResource;virtual;overload;
Function CreateCommentsResource : TCommentsResource;virtual;overload;
Function CreateFilesResource(AOwner : TComponent) : TFilesResource;virtual;overload;
Function CreateFilesResource : TFilesResource;virtual;overload;
- Function CreateParentsResource(AOwner : TComponent) : TParentsResource;virtual;overload;
- Function CreateParentsResource : TParentsResource;virtual;overload;
Function CreatePermissionsResource(AOwner : TComponent) : TPermissionsResource;virtual;overload;
Function CreatePermissionsResource : TPermissionsResource;virtual;overload;
- Function CreatePropertiesResource(AOwner : TComponent) : TPropertiesResource;virtual;overload;
- Function CreatePropertiesResource : TPropertiesResource;virtual;overload;
- Function CreateRealtimeResource(AOwner : TComponent) : TRealtimeResource;virtual;overload;
- Function CreateRealtimeResource : TRealtimeResource;virtual;overload;
Function CreateRepliesResource(AOwner : TComponent) : TRepliesResource;virtual;overload;
Function CreateRepliesResource : TRepliesResource;virtual;overload;
Function CreateRevisionsResource(AOwner : TComponent) : TRevisionsResource;virtual;overload;
Function CreateRevisionsResource : TRevisionsResource;virtual;overload;
//Add default on-demand instances for resources
Property AboutResource : TAboutResource Read GetAboutInstance;
- Property AppsResource : TAppsResource Read GetAppsInstance;
Property ChangesResource : TChangesResource Read GetChangesInstance;
Property ChannelsResource : TChannelsResource Read GetChannelsInstance;
- Property ChildrenResource : TChildrenResource Read GetChildrenInstance;
Property CommentsResource : TCommentsResource Read GetCommentsInstance;
Property FilesResource : TFilesResource Read GetFilesInstance;
- Property ParentsResource : TParentsResource Read GetParentsInstance;
Property PermissionsResource : TPermissionsResource Read GetPermissionsInstance;
- Property PropertiesResource : TPropertiesResource Read GetPropertiesInstance;
- Property RealtimeResource : TRealtimeResource Read GetRealtimeInstance;
Property RepliesResource : TRepliesResource Read GetRepliesInstance;
Property RevisionsResource : TRevisionsResource Read GetRevisionsInstance;
end;
@@ -2244,261 +1425,84 @@ implementation
{ --------------------------------------------------------------------
- TAboutTypeadditionalRoleInfoItemTyperoleSetsItem
- --------------------------------------------------------------------}
-
-
-Procedure TAboutTypeadditionalRoleInfoItemTyperoleSetsItem.SetadditionalRoles(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FadditionalRoles=AValue) then exit;
- FadditionalRoles:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAboutTypeadditionalRoleInfoItemTyperoleSetsItem.SetprimaryRole(AIndex : Integer; const AValue : String);
-
-begin
- If (FprimaryRole=AValue) then exit;
- FprimaryRole:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TAboutTypeadditionalRoleInfoItemTyperoleSetsItem.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'additionalroles' : SetLength(FadditionalRoles,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
- TAboutTypeadditionalRoleInfoItem
- --------------------------------------------------------------------}
-
-
-Procedure TAboutTypeadditionalRoleInfoItem.SetroleSets(AIndex : Integer; AValue : TAboutTypeadditionalRoleInfoItemTyperoleSetsArray);
-
-begin
- If (FroleSets=AValue) then exit;
- FroleSets:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAboutTypeadditionalRoleInfoItem.Set_type(AIndex : Integer; const AValue : String);
-
-begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Class Function TAboutTypeadditionalRoleInfoItem.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 TAboutTypeadditionalRoleInfoItem.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'rolesets' : SetLength(FroleSets,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
- TAboutTypeexportFormatsItem
+ TAboutTypeexportFormats
--------------------------------------------------------------------}
-Procedure TAboutTypeexportFormatsItem.Setsource(AIndex : Integer; const AValue : String);
+Class Function TAboutTypeexportFormats.AllowAdditionalProperties : Boolean;
begin
- If (Fsource=AValue) then exit;
- Fsource:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAboutTypeexportFormatsItem.Settargets(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (Ftargets=AValue) then exit;
- Ftargets:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TAboutTypeexportFormatsItem.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'targets' : SetLength(Ftargets,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ Result:=True;
end;
-{$ENDIF VER2_6}
-
{ --------------------------------------------------------------------
- TAboutTypefeaturesItem
+ TAboutTypeimportFormats
--------------------------------------------------------------------}
-Procedure TAboutTypefeaturesItem.SetfeatureName(AIndex : Integer; const AValue : String);
-
-begin
- If (FfeatureName=AValue) then exit;
- FfeatureName:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAboutTypefeaturesItem.SetfeatureRate(AIndex : Integer; AValue : double);
+Class Function TAboutTypeimportFormats.AllowAdditionalProperties : Boolean;
begin
- If (FfeatureRate=AValue) then exit;
- FfeatureRate:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-
-
{ --------------------------------------------------------------------
- TAboutTypeimportFormatsItem
+ TAboutTypemaxImportSizes
--------------------------------------------------------------------}
-Procedure TAboutTypeimportFormatsItem.Setsource(AIndex : Integer; const AValue : String);
-
-begin
- If (Fsource=AValue) then exit;
- Fsource:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAboutTypeimportFormatsItem.Settargets(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (Ftargets=AValue) then exit;
- Ftargets:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TAboutTypeimportFormatsItem.SetArrayLength(Const AName : String; ALength : Longint);
+Class Function TAboutTypemaxImportSizes.AllowAdditionalProperties : Boolean;
begin
- Case AName of
- 'targets' : SetLength(Ftargets,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ Result:=True;
end;
-{$ENDIF VER2_6}
-
{ --------------------------------------------------------------------
- TAboutTypemaxUploadSizesItem
+ TAboutTypestorageQuota
--------------------------------------------------------------------}
-Procedure TAboutTypemaxUploadSizesItem.Setsize(AIndex : Integer; const AValue : String);
+Procedure TAboutTypestorageQuota.Setlimit(AIndex : Integer; const AValue : String);
begin
- If (Fsize=AValue) then exit;
- Fsize:=AValue;
+ If (Flimit=AValue) then exit;
+ Flimit:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAboutTypemaxUploadSizesItem.Set_type(AIndex : Integer; const AValue : String);
+Procedure TAboutTypestorageQuota.Setusage(AIndex : Integer; const AValue : String);
begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
+ If (Fusage=AValue) then exit;
+ Fusage:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TAboutTypemaxUploadSizesItem.ExportPropertyName(Const AName : String) :String;
+Procedure TAboutTypestorageQuota.SetusageInDrive(AIndex : Integer; const AValue : String);
begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
-end;
-
-
-
-
-{ --------------------------------------------------------------------
- TAboutTypequotaBytesByServiceItem
- --------------------------------------------------------------------}
-
-
-Procedure TAboutTypequotaBytesByServiceItem.SetbytesUsed(AIndex : Integer; const AValue : String);
-
-begin
- If (FbytesUsed=AValue) then exit;
- FbytesUsed:=AValue;
+ If (FusageInDrive=AValue) then exit;
+ FusageInDrive:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAboutTypequotaBytesByServiceItem.SetserviceName(AIndex : Integer; const AValue : String);
+Procedure TAboutTypestorageQuota.SetusageInDriveTrash(AIndex : Integer; const AValue : String);
begin
- If (FserviceName=AValue) then exit;
- FserviceName:=AValue;
+ If (FusageInDriveTrash=AValue) then exit;
+ FusageInDriveTrash:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -2511,37 +1515,17 @@ end;
--------------------------------------------------------------------}
-Procedure TAbout.SetadditionalRoleInfo(AIndex : Integer; AValue : TAboutTypeadditionalRoleInfoArray);
-
-begin
- If (FadditionalRoleInfo=AValue) then exit;
- FadditionalRoleInfo:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetdomainSharingPolicy(AIndex : Integer; const AValue : String);
+Procedure TAbout.SetappInstalled(AIndex : Integer; const AValue : boolean);
begin
- If (FdomainSharingPolicy=AValue) then exit;
- FdomainSharingPolicy:=AValue;
+ If (FappInstalled=AValue) then exit;
+ FappInstalled:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAbout.Setetag(AIndex : Integer; const AValue : String);
-
-begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetexportFormats(AIndex : Integer; AValue : TAboutTypeexportFormatsArray);
+Procedure TAbout.SetexportFormats(AIndex : Integer; const AValue : TAboutTypeexportFormats);
begin
If (FexportFormats=AValue) then exit;
@@ -2551,17 +1535,7 @@ end;
-Procedure TAbout.Setfeatures(AIndex : Integer; AValue : TAboutTypefeaturesArray);
-
-begin
- If (Ffeatures=AValue) then exit;
- Ffeatures:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetfolderColorPalette(AIndex : Integer; AValue : TStringArray);
+Procedure TAbout.SetfolderColorPalette(AIndex : Integer; const AValue : TStringArray);
begin
If (FfolderColorPalette=AValue) then exit;
@@ -2571,7 +1545,7 @@ end;
-Procedure TAbout.SetimportFormats(AIndex : Integer; AValue : TAboutTypeimportFormatsArray);
+Procedure TAbout.SetimportFormats(AIndex : Integer; const AValue : TAboutTypeimportFormats);
begin
If (FimportFormats=AValue) then exit;
@@ -2581,16 +1555,6 @@ end;
-Procedure TAbout.SetisCurrentAppInstalled(AIndex : Integer; AValue : boolean);
-
-begin
- If (FisCurrentAppInstalled=AValue) then exit;
- FisCurrentAppInstalled:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TAbout.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -2601,147 +1565,37 @@ end;
-Procedure TAbout.SetlanguageCode(AIndex : Integer; const AValue : String);
-
-begin
- If (FlanguageCode=AValue) then exit;
- FlanguageCode:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetlargestChangeId(AIndex : Integer; const AValue : String);
-
-begin
- If (FlargestChangeId=AValue) then exit;
- FlargestChangeId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetmaxUploadSizes(AIndex : Integer; AValue : TAboutTypemaxUploadSizesArray);
-
-begin
- If (FmaxUploadSizes=AValue) then exit;
- FmaxUploadSizes:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.Setname(AIndex : Integer; const AValue : String);
-
-begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetpermissionId(AIndex : Integer; const AValue : String);
-
-begin
- If (FpermissionId=AValue) then exit;
- FpermissionId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetquotaBytesByService(AIndex : Integer; AValue : TAboutTypequotaBytesByServiceArray);
-
-begin
- If (FquotaBytesByService=AValue) then exit;
- FquotaBytesByService:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetquotaBytesTotal(AIndex : Integer; const AValue : String);
-
-begin
- If (FquotaBytesTotal=AValue) then exit;
- FquotaBytesTotal:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetquotaBytesUsed(AIndex : Integer; const AValue : String);
-
-begin
- If (FquotaBytesUsed=AValue) then exit;
- FquotaBytesUsed:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetquotaBytesUsedAggregate(AIndex : Integer; const AValue : String);
-
-begin
- If (FquotaBytesUsedAggregate=AValue) then exit;
- FquotaBytesUsedAggregate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetquotaBytesUsedInTrash(AIndex : Integer; const AValue : String);
-
-begin
- If (FquotaBytesUsedInTrash=AValue) then exit;
- FquotaBytesUsedInTrash:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.SetquotaType(AIndex : Integer; const AValue : String);
+Procedure TAbout.SetmaxImportSizes(AIndex : Integer; const AValue : TAboutTypemaxImportSizes);
begin
- If (FquotaType=AValue) then exit;
- FquotaType:=AValue;
+ If (FmaxImportSizes=AValue) then exit;
+ FmaxImportSizes:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAbout.SetremainingChangeIds(AIndex : Integer; const AValue : String);
+Procedure TAbout.SetmaxUploadSize(AIndex : Integer; const AValue : String);
begin
- If (FremainingChangeIds=AValue) then exit;
- FremainingChangeIds:=AValue;
+ If (FmaxUploadSize=AValue) then exit;
+ FmaxUploadSize:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAbout.SetrootFolderId(AIndex : Integer; const AValue : String);
+Procedure TAbout.SetstorageQuota(AIndex : Integer; const AValue : TAboutTypestorageQuota);
begin
- If (FrootFolderId=AValue) then exit;
- FrootFolderId:=AValue;
+ If (FstorageQuota=AValue) then exit;
+ FstorageQuota:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAbout.SetselfLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAbout.Setuser(AIndex : Integer; AValue : TUser);
+Procedure TAbout.Setuser(AIndex : Integer; const AValue : TUser);
begin
If (Fuser=AValue) then exit;
@@ -2756,385 +1610,7 @@ Procedure TAbout.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'additionalroleinfo' : SetLength(FadditionalRoleInfo,ALength);
- 'exportformats' : SetLength(FexportFormats,ALength);
- 'features' : SetLength(Ffeatures,ALength);
'foldercolorpalette' : SetLength(FfolderColorPalette,ALength);
- 'importformats' : SetLength(FimportFormats,ALength);
- 'maxuploadsizes' : SetLength(FmaxUploadSizes,ALength);
- 'quotabytesbyservice' : SetLength(FquotaBytesByService,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
- TAppTypeiconsItem
- --------------------------------------------------------------------}
-
-
-Procedure TAppTypeiconsItem.Setcategory(AIndex : Integer; const AValue : String);
-
-begin
- If (Fcategory=AValue) then exit;
- Fcategory:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAppTypeiconsItem.SeticonUrl(AIndex : Integer; const AValue : String);
-
-begin
- If (FiconUrl=AValue) then exit;
- FiconUrl:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAppTypeiconsItem.Setsize(AIndex : Integer; AValue : integer);
-
-begin
- If (Fsize=AValue) then exit;
- Fsize:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
- TApp
- --------------------------------------------------------------------}
-
-
-Procedure TApp.Setauthorized(AIndex : Integer; AValue : boolean);
-
-begin
- If (Fauthorized=AValue) then exit;
- Fauthorized:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetcreateInFolderTemplate(AIndex : Integer; const AValue : String);
-
-begin
- If (FcreateInFolderTemplate=AValue) then exit;
- FcreateInFolderTemplate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetcreateUrl(AIndex : Integer; const AValue : String);
-
-begin
- If (FcreateUrl=AValue) then exit;
- FcreateUrl:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SethasDriveWideScope(AIndex : Integer; AValue : boolean);
-
-begin
- If (FhasDriveWideScope=AValue) then exit;
- FhasDriveWideScope:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.Seticons(AIndex : Integer; AValue : TAppTypeiconsArray);
-
-begin
- If (Ficons=AValue) then exit;
- Ficons:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.Setid(AIndex : Integer; const AValue : String);
-
-begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.Setinstalled(AIndex : Integer; AValue : boolean);
-
-begin
- If (Finstalled=AValue) then exit;
- Finstalled:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.Setkind(AIndex : Integer; const AValue : String);
-
-begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetlongDescription(AIndex : Integer; const AValue : String);
-
-begin
- If (FlongDescription=AValue) then exit;
- FlongDescription:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.Setname(AIndex : Integer; const AValue : String);
-
-begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetobjectType(AIndex : Integer; const AValue : String);
-
-begin
- If (FobjectType=AValue) then exit;
- FobjectType:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetopenUrlTemplate(AIndex : Integer; const AValue : String);
-
-begin
- If (FopenUrlTemplate=AValue) then exit;
- FopenUrlTemplate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetprimaryFileExtensions(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FprimaryFileExtensions=AValue) then exit;
- FprimaryFileExtensions:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetprimaryMimeTypes(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FprimaryMimeTypes=AValue) then exit;
- FprimaryMimeTypes:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetproductId(AIndex : Integer; const AValue : String);
-
-begin
- If (FproductId=AValue) then exit;
- FproductId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetproductUrl(AIndex : Integer; const AValue : String);
-
-begin
- If (FproductUrl=AValue) then exit;
- FproductUrl:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetsecondaryFileExtensions(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FsecondaryFileExtensions=AValue) then exit;
- FsecondaryFileExtensions:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetsecondaryMimeTypes(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FsecondaryMimeTypes=AValue) then exit;
- FsecondaryMimeTypes:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetshortDescription(AIndex : Integer; const AValue : String);
-
-begin
- If (FshortDescription=AValue) then exit;
- FshortDescription:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetsupportsCreate(AIndex : Integer; AValue : boolean);
-
-begin
- If (FsupportsCreate=AValue) then exit;
- FsupportsCreate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetsupportsImport(AIndex : Integer; AValue : boolean);
-
-begin
- If (FsupportsImport=AValue) then exit;
- FsupportsImport:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetsupportsMultiOpen(AIndex : Integer; AValue : boolean);
-
-begin
- If (FsupportsMultiOpen=AValue) then exit;
- FsupportsMultiOpen:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetsupportsOfflineCreate(AIndex : Integer; AValue : boolean);
-
-begin
- If (FsupportsOfflineCreate=AValue) then exit;
- FsupportsOfflineCreate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TApp.SetuseByDefault(AIndex : Integer; AValue : boolean);
-
-begin
- If (FuseByDefault=AValue) then exit;
- FuseByDefault:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TApp.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'icons' : SetLength(Ficons,ALength);
- 'primaryfileextensions' : SetLength(FprimaryFileExtensions,ALength);
- 'primarymimetypes' : SetLength(FprimaryMimeTypes,ALength);
- 'secondaryfileextensions' : SetLength(FsecondaryFileExtensions,ALength);
- 'secondarymimetypes' : SetLength(FsecondaryMimeTypes,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
- TAppList
- --------------------------------------------------------------------}
-
-
-Procedure TAppList.SetdefaultAppIds(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FdefaultAppIds=AValue) then exit;
- FdefaultAppIds:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAppList.Setetag(AIndex : Integer; const AValue : String);
-
-begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAppList.Setitems(AIndex : Integer; AValue : TAppListTypeitemsArray);
-
-begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAppList.Setkind(AIndex : Integer; const AValue : String);
-
-begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAppList.SetselfLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TAppList.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'defaultappids' : SetLength(FdefaultAppIds,ALength);
- 'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3149,17 +1625,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChange.Setdeleted(AIndex : Integer; AValue : boolean);
-
-begin
- If (Fdeleted=AValue) then exit;
- Fdeleted:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TChange.Set_file(AIndex : Integer; AValue : TFile);
+Procedure TChange.Set_file(AIndex : Integer; const AValue : TFile);
begin
If (F_file=AValue) then exit;
@@ -3179,16 +1645,6 @@ end;
-Procedure TChange.Setid(AIndex : Integer; const AValue : String);
-
-begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TChange.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -3199,21 +1655,21 @@ end;
-Procedure TChange.SetmodificationDate(AIndex : Integer; AValue : TDatetime);
+Procedure TChange.Setremoved(AIndex : Integer; const AValue : boolean);
begin
- If (FmodificationDate=AValue) then exit;
- FmodificationDate:=AValue;
+ If (Fremoved=AValue) then exit;
+ Fremoved:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TChange.SetselfLink(AIndex : Integer; const AValue : String);
+Procedure TChange.Settime(AIndex : Integer; const AValue : TDatetime);
begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
+ If (Ftime=AValue) then exit;
+ Ftime:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -3237,21 +1693,11 @@ end;
--------------------------------------------------------------------}
-Procedure TChangeList.Setetag(AIndex : Integer; const AValue : String);
-
-begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TChangeList.Setitems(AIndex : Integer; AValue : TChangeListTypeitemsArray);
+Procedure TChangeList.Setchanges(AIndex : Integer; const AValue : TChangeListTypechangesArray);
begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
+ If (Fchanges=AValue) then exit;
+ Fchanges:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -3267,21 +1713,11 @@ end;
-Procedure TChangeList.SetlargestChangeId(AIndex : Integer; const AValue : String);
+Procedure TChangeList.SetnewStartPageToken(AIndex : Integer; const AValue : String);
begin
- If (FlargestChangeId=AValue) then exit;
- FlargestChangeId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TChangeList.SetnextLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FnextLink=AValue) then exit;
- FnextLink:=AValue;
+ If (FnewStartPageToken=AValue) then exit;
+ FnewStartPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -3296,23 +1732,13 @@ begin
end;
-
-Procedure TChangeList.SetselfLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TChangeList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'items' : SetLength(Fitems,ALength);
+ 'changes' : SetLength(Fchanges,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3380,7 +1806,7 @@ end;
-Procedure TChannel.Setparams(AIndex : Integer; AValue : TChannelTypeparams);
+Procedure TChannel.Setparams(AIndex : Integer; const AValue : TChannelTypeparams);
begin
If (Fparams=AValue) then exit;
@@ -3390,7 +1816,7 @@ end;
-Procedure TChannel.Setpayload(AIndex : Integer; AValue : boolean);
+Procedure TChannel.Setpayload(AIndex : Integer; const AValue : boolean);
begin
If (Fpayload=AValue) then exit;
@@ -3454,148 +1880,21 @@ end;
{ --------------------------------------------------------------------
- TChildList
- --------------------------------------------------------------------}
-
-
-Procedure TChildList.Setetag(AIndex : Integer; const AValue : String);
-
-begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TChildList.Setitems(AIndex : Integer; AValue : TChildListTypeitemsArray);
-
-begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TChildList.Setkind(AIndex : Integer; const AValue : String);
-
-begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TChildList.SetnextLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FnextLink=AValue) then exit;
- FnextLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TChildList.SetnextPageToken(AIndex : Integer; const AValue : String);
-
-begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TChildList.SetselfLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TChildList.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
- TChildReference
- --------------------------------------------------------------------}
-
-
-Procedure TChildReference.SetchildLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FchildLink=AValue) then exit;
- FchildLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TChildReference.Setid(AIndex : Integer; const AValue : String);
-
-begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TChildReference.Setkind(AIndex : Integer; const AValue : String);
-
-begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TChildReference.SetselfLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
- TCommentTypecontext
+ TCommentTypequotedFileContent
--------------------------------------------------------------------}
-Procedure TCommentTypecontext.Set_type(AIndex : Integer; const AValue : String);
+Procedure TCommentTypequotedFileContent.SetmimeType(AIndex : Integer; const AValue : String);
begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
+ If (FmimeType=AValue) then exit;
+ FmimeType:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommentTypecontext.Setvalue(AIndex : Integer; const AValue : String);
+Procedure TCommentTypequotedFileContent.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
@@ -3605,17 +1904,6 @@ end;
-Class Function TCommentTypecontext.ExportPropertyName(Const AName : String) :String;
-
-begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
-end;
-
-
{ --------------------------------------------------------------------
@@ -3633,7 +1921,7 @@ end;
-Procedure TComment.Setauthor(AIndex : Integer; AValue : TUser);
+Procedure TComment.Setauthor(AIndex : Integer; const AValue : TUser);
begin
If (Fauthor=AValue) then exit;
@@ -3643,16 +1931,6 @@ end;
-Procedure TComment.SetcommentId(AIndex : Integer; const AValue : String);
-
-begin
- If (FcommentId=AValue) then exit;
- FcommentId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TComment.Setcontent(AIndex : Integer; const AValue : String);
begin
@@ -3663,27 +1941,17 @@ end;
-Procedure TComment.Setcontext(AIndex : Integer; AValue : TCommentTypecontext);
-
-begin
- If (Fcontext=AValue) then exit;
- Fcontext:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TComment.SetcreatedDate(AIndex : Integer; AValue : TDatetime);
+Procedure TComment.SetcreatedTime(AIndex : Integer; const AValue : TDatetime);
begin
- If (FcreatedDate=AValue) then exit;
- FcreatedDate:=AValue;
+ If (FcreatedTime=AValue) then exit;
+ FcreatedTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TComment.Setdeleted(AIndex : Integer; AValue : boolean);
+Procedure TComment.Setdeleted(AIndex : Integer; const AValue : boolean);
begin
If (Fdeleted=AValue) then exit;
@@ -3693,31 +1961,21 @@ end;
-Procedure TComment.SetfileId(AIndex : Integer; const AValue : String);
-
-begin
- If (FfileId=AValue) then exit;
- FfileId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TComment.SetfileTitle(AIndex : Integer; const AValue : String);
+Procedure TComment.SethtmlContent(AIndex : Integer; const AValue : String);
begin
- If (FfileTitle=AValue) then exit;
- FfileTitle:=AValue;
+ If (FhtmlContent=AValue) then exit;
+ FhtmlContent:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TComment.SethtmlContent(AIndex : Integer; const AValue : String);
+Procedure TComment.Setid(AIndex : Integer; const AValue : String);
begin
- If (FhtmlContent=AValue) then exit;
- FhtmlContent:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -3733,41 +1991,41 @@ end;
-Procedure TComment.SetmodifiedDate(AIndex : Integer; AValue : TDatetime);
+Procedure TComment.SetmodifiedTime(AIndex : Integer; const AValue : TDatetime);
begin
- If (FmodifiedDate=AValue) then exit;
- FmodifiedDate:=AValue;
+ If (FmodifiedTime=AValue) then exit;
+ FmodifiedTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TComment.Setreplies(AIndex : Integer; AValue : TCommentTyperepliesArray);
+Procedure TComment.SetquotedFileContent(AIndex : Integer; const AValue : TCommentTypequotedFileContent);
begin
- If (Freplies=AValue) then exit;
- Freplies:=AValue;
+ If (FquotedFileContent=AValue) then exit;
+ FquotedFileContent:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TComment.SetselfLink(AIndex : Integer; const AValue : String);
+Procedure TComment.Setreplies(AIndex : Integer; const AValue : TCommentTyperepliesArray);
begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
+ If (Freplies=AValue) then exit;
+ Freplies:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TComment.Setstatus(AIndex : Integer; const AValue : String);
+Procedure TComment.Setresolved(AIndex : Integer; const AValue : boolean);
begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
+ If (Fresolved=AValue) then exit;
+ Fresolved:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -3793,11 +2051,11 @@ end;
--------------------------------------------------------------------}
-Procedure TCommentList.Setitems(AIndex : Integer; AValue : TCommentListTypeitemsArray);
+Procedure TCommentList.Setcomments(AIndex : Integer; const AValue : TCommentListTypecommentsArray);
begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
+ If (Fcomments=AValue) then exit;
+ Fcomments:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -3813,16 +2071,6 @@ end;
-Procedure TCommentList.SetnextLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FnextLink=AValue) then exit;
- FnextLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TCommentList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
@@ -3832,23 +2080,13 @@ begin
end;
-
-Procedure TCommentList.SetselfLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TCommentList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'items' : SetLength(Fitems,ALength);
+ 'comments' : SetLength(Fcomments,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3859,95 +2097,68 @@ end;
{ --------------------------------------------------------------------
- TCommentReply
+ TFileTypeappProperties
--------------------------------------------------------------------}
-Procedure TCommentReply.Setauthor(AIndex : Integer; AValue : TUser);
-
-begin
- If (Fauthor=AValue) then exit;
- Fauthor:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TCommentReply.Setcontent(AIndex : Integer; const AValue : String);
+Class Function TFileTypeappProperties.AllowAdditionalProperties : Boolean;
begin
- If (Fcontent=AValue) then exit;
- Fcontent:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TCommentReply.SetcreatedDate(AIndex : Integer; AValue : TDatetime);
-
-begin
- If (FcreatedDate=AValue) then exit;
- FcreatedDate:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TCommentReply.Setdeleted(AIndex : Integer; AValue : boolean);
-
-begin
- If (Fdeleted=AValue) then exit;
- Fdeleted:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
+{ --------------------------------------------------------------------
+ TFileTypecapabilities
+ --------------------------------------------------------------------}
-Procedure TCommentReply.SethtmlContent(AIndex : Integer; const AValue : String);
+Procedure TFileTypecapabilities.SetcanComment(AIndex : Integer; const AValue : boolean);
begin
- If (FhtmlContent=AValue) then exit;
- FhtmlContent:=AValue;
+ If (FcanComment=AValue) then exit;
+ FcanComment:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommentReply.Setkind(AIndex : Integer; const AValue : String);
+Procedure TFileTypecapabilities.SetcanCopy(AIndex : Integer; const AValue : boolean);
begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
+ If (FcanCopy=AValue) then exit;
+ FcanCopy:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommentReply.SetmodifiedDate(AIndex : Integer; AValue : TDatetime);
+Procedure TFileTypecapabilities.SetcanEdit(AIndex : Integer; const AValue : boolean);
begin
- If (FmodifiedDate=AValue) then exit;
- FmodifiedDate:=AValue;
+ If (FcanEdit=AValue) then exit;
+ FcanEdit:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommentReply.SetreplyId(AIndex : Integer; const AValue : String);
+Procedure TFileTypecapabilities.SetcanReadRevisions(AIndex : Integer; const AValue : boolean);
begin
- If (FreplyId=AValue) then exit;
- FreplyId:=AValue;
+ If (FcanReadRevisions=AValue) then exit;
+ FcanReadRevisions:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommentReply.Setverb(AIndex : Integer; const AValue : String);
+Procedure TFileTypecapabilities.SetcanShare(AIndex : Integer; const AValue : boolean);
begin
- If (Fverb=AValue) then exit;
- Fverb:=AValue;
+ If (FcanShare=AValue) then exit;
+ FcanShare:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -3956,85 +2167,56 @@ end;
{ --------------------------------------------------------------------
- TCommentReplyList
+ TFileTypecontentHintsTypethumbnail
--------------------------------------------------------------------}
-Procedure TCommentReplyList.Setitems(AIndex : Integer; AValue : TCommentReplyListTypeitemsArray);
+Procedure TFileTypecontentHintsTypethumbnail.Setimage(AIndex : Integer; const AValue : String);
begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
+ If (Fimage=AValue) then exit;
+ Fimage:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommentReplyList.Setkind(AIndex : Integer; const AValue : String);
+Procedure TFileTypecontentHintsTypethumbnail.SetmimeType(AIndex : Integer; const AValue : String);
begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
+ If (FmimeType=AValue) then exit;
+ FmimeType:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommentReplyList.SetnextLink(AIndex : Integer; const AValue : String);
-begin
- If (FnextLink=AValue) then exit;
- FnextLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TFileTypecontentHints
+ --------------------------------------------------------------------}
-Procedure TCommentReplyList.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TFileTypecontentHints.SetindexableText(AIndex : Integer; const AValue : String);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (FindexableText=AValue) then exit;
+ FindexableText:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCommentReplyList.SetselfLink(AIndex : Integer; const AValue : String);
+Procedure TFileTypecontentHints.Setthumbnail(AIndex : Integer; const AValue : TFileTypecontentHintsTypethumbnail);
begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
+ If (Fthumbnail=AValue) then exit;
+ Fthumbnail:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TCommentReplyList.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
- TFileTypeexportLinks
- --------------------------------------------------------------------}
-
-
-Class Function TFileTypeexportLinks.AllowAdditionalProperties : Boolean;
-
-begin
- Result:=True;
-end;
@@ -4043,7 +2225,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFileTypeimageMediaMetadataTypelocation.Setaltitude(AIndex : Integer; AValue : double);
+Procedure TFileTypeimageMediaMetadataTypelocation.Setaltitude(AIndex : Integer; const AValue : double);
begin
If (Faltitude=AValue) then exit;
@@ -4053,7 +2235,7 @@ end;
-Procedure TFileTypeimageMediaMetadataTypelocation.Setlatitude(AIndex : Integer; AValue : double);
+Procedure TFileTypeimageMediaMetadataTypelocation.Setlatitude(AIndex : Integer; const AValue : double);
begin
If (Flatitude=AValue) then exit;
@@ -4063,7 +2245,7 @@ end;
-Procedure TFileTypeimageMediaMetadataTypelocation.Setlongitude(AIndex : Integer; AValue : double);
+Procedure TFileTypeimageMediaMetadataTypelocation.Setlongitude(AIndex : Integer; const AValue : double);
begin
If (Flongitude=AValue) then exit;
@@ -4080,7 +2262,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFileTypeimageMediaMetadata.Setaperture(AIndex : Integer; AValue : integer);
+Procedure TFileTypeimageMediaMetadata.Setaperture(AIndex : Integer; const AValue : integer);
begin
If (Faperture=AValue) then exit;
@@ -4120,17 +2302,7 @@ end;
-Procedure TFileTypeimageMediaMetadata.Setdate(AIndex : Integer; const AValue : String);
-
-begin
- If (Fdate=AValue) then exit;
- Fdate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFileTypeimageMediaMetadata.SetexposureBias(AIndex : Integer; AValue : integer);
+Procedure TFileTypeimageMediaMetadata.SetexposureBias(AIndex : Integer; const AValue : integer);
begin
If (FexposureBias=AValue) then exit;
@@ -4150,7 +2322,7 @@ end;
-Procedure TFileTypeimageMediaMetadata.SetexposureTime(AIndex : Integer; AValue : integer);
+Procedure TFileTypeimageMediaMetadata.SetexposureTime(AIndex : Integer; const AValue : integer);
begin
If (FexposureTime=AValue) then exit;
@@ -4160,7 +2332,7 @@ end;
-Procedure TFileTypeimageMediaMetadata.SetflashUsed(AIndex : Integer; AValue : boolean);
+Procedure TFileTypeimageMediaMetadata.SetflashUsed(AIndex : Integer; const AValue : boolean);
begin
If (FflashUsed=AValue) then exit;
@@ -4170,7 +2342,7 @@ end;
-Procedure TFileTypeimageMediaMetadata.SetfocalLength(AIndex : Integer; AValue : integer);
+Procedure TFileTypeimageMediaMetadata.SetfocalLength(AIndex : Integer; const AValue : integer);
begin
If (FfocalLength=AValue) then exit;
@@ -4180,7 +2352,7 @@ end;
-Procedure TFileTypeimageMediaMetadata.Setheight(AIndex : Integer; AValue : integer);
+Procedure TFileTypeimageMediaMetadata.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -4190,7 +2362,7 @@ end;
-Procedure TFileTypeimageMediaMetadata.SetisoSpeed(AIndex : Integer; AValue : integer);
+Procedure TFileTypeimageMediaMetadata.SetisoSpeed(AIndex : Integer; const AValue : integer);
begin
If (FisoSpeed=AValue) then exit;
@@ -4210,7 +2382,7 @@ end;
-Procedure TFileTypeimageMediaMetadata.Setlocation(AIndex : Integer; AValue : TFileTypeimageMediaMetadataTypelocation);
+Procedure TFileTypeimageMediaMetadata.Setlocation(AIndex : Integer; const AValue : TFileTypeimageMediaMetadataTypelocation);
begin
If (Flocation=AValue) then exit;
@@ -4220,7 +2392,7 @@ end;
-Procedure TFileTypeimageMediaMetadata.SetmaxApertureValue(AIndex : Integer; AValue : integer);
+Procedure TFileTypeimageMediaMetadata.SetmaxApertureValue(AIndex : Integer; const AValue : integer);
begin
If (FmaxApertureValue=AValue) then exit;
@@ -4240,7 +2412,7 @@ end;
-Procedure TFileTypeimageMediaMetadata.Setrotation(AIndex : Integer; AValue : integer);
+Procedure TFileTypeimageMediaMetadata.Setrotation(AIndex : Integer; const AValue : integer);
begin
If (Frotation=AValue) then exit;
@@ -4260,7 +2432,7 @@ end;
-Procedure TFileTypeimageMediaMetadata.SetsubjectDistance(AIndex : Integer; AValue : integer);
+Procedure TFileTypeimageMediaMetadata.SetsubjectDistance(AIndex : Integer; const AValue : integer);
begin
If (FsubjectDistance=AValue) then exit;
@@ -4270,95 +2442,31 @@ end;
-Procedure TFileTypeimageMediaMetadata.SetwhiteBalance(AIndex : Integer; const AValue : String);
-
-begin
- If (FwhiteBalance=AValue) then exit;
- FwhiteBalance:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFileTypeimageMediaMetadata.Setwidth(AIndex : Integer; AValue : integer);
-
-begin
- If (Fwidth=AValue) then exit;
- Fwidth:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
- TFileTypeindexableText
- --------------------------------------------------------------------}
-
-
-Procedure TFileTypeindexableText.Settext(AIndex : Integer; const AValue : String);
-
-begin
- If (Ftext=AValue) then exit;
- Ftext:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
- TFileTypelabels
- --------------------------------------------------------------------}
-
-
-Procedure TFileTypelabels.Sethidden(AIndex : Integer; AValue : boolean);
-
-begin
- If (Fhidden=AValue) then exit;
- Fhidden:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFileTypelabels.Setrestricted(AIndex : Integer; AValue : boolean);
+Procedure TFileTypeimageMediaMetadata.Settime(AIndex : Integer; const AValue : String);
begin
- If (Frestricted=AValue) then exit;
- Frestricted:=AValue;
+ If (Ftime=AValue) then exit;
+ Ftime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFileTypelabels.Setstarred(AIndex : Integer; AValue : boolean);
-
-begin
- If (Fstarred=AValue) then exit;
- Fstarred:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFileTypelabels.Settrashed(AIndex : Integer; AValue : boolean);
+Procedure TFileTypeimageMediaMetadata.SetwhiteBalance(AIndex : Integer; const AValue : String);
begin
- If (Ftrashed=AValue) then exit;
- Ftrashed:=AValue;
+ If (FwhiteBalance=AValue) then exit;
+ FwhiteBalance:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFileTypelabels.Setviewed(AIndex : Integer; AValue : boolean);
+Procedure TFileTypeimageMediaMetadata.Setwidth(AIndex : Integer; const AValue : integer);
begin
- If (Fviewed=AValue) then exit;
- Fviewed:=AValue;
+ If (Fwidth=AValue) then exit;
+ Fwidth:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -4367,11 +2475,11 @@ end;
{ --------------------------------------------------------------------
- TFileTypeopenWithLinks
+ TFileTypeproperties
--------------------------------------------------------------------}
-Class Function TFileTypeopenWithLinks.AllowAdditionalProperties : Boolean;
+Class Function TFileTypeproperties.AllowAdditionalProperties : Boolean;
begin
Result:=True;
@@ -4380,33 +2488,6 @@ end;
{ --------------------------------------------------------------------
- TFileTypethumbnail
- --------------------------------------------------------------------}
-
-
-Procedure TFileTypethumbnail.Setimage(AIndex : Integer; const AValue : String);
-
-begin
- If (Fimage=AValue) then exit;
- Fimage:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFileTypethumbnail.SetmimeType(AIndex : Integer; const AValue : String);
-
-begin
- If (FmimeType=AValue) then exit;
- FmimeType:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
TFileTypevideoMediaMetadata
--------------------------------------------------------------------}
@@ -4421,7 +2502,7 @@ end;
-Procedure TFileTypevideoMediaMetadata.Setheight(AIndex : Integer; AValue : integer);
+Procedure TFileTypevideoMediaMetadata.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -4431,7 +2512,7 @@ end;
-Procedure TFileTypevideoMediaMetadata.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TFileTypevideoMediaMetadata.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -4448,51 +2529,41 @@ end;
--------------------------------------------------------------------}
-Procedure TFile.SetalternateLink(AIndex : Integer; const AValue : String);
+Procedure TFile.SetappProperties(AIndex : Integer; const AValue : TFileTypeappProperties);
begin
- If (FalternateLink=AValue) then exit;
- FalternateLink:=AValue;
+ If (FappProperties=AValue) then exit;
+ FappProperties:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.SetappDataContents(AIndex : Integer; AValue : boolean);
+Procedure TFile.Setcapabilities(AIndex : Integer; const AValue : TFileTypecapabilities);
begin
- If (FappDataContents=AValue) then exit;
- FappDataContents:=AValue;
+ If (Fcapabilities=AValue) then exit;
+ Fcapabilities:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.Setcopyable(AIndex : Integer; AValue : boolean);
+Procedure TFile.SetcontentHints(AIndex : Integer; const AValue : TFileTypecontentHints);
begin
- If (Fcopyable=AValue) then exit;
- Fcopyable:=AValue;
+ If (FcontentHints=AValue) then exit;
+ FcontentHints:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.SetcreatedDate(AIndex : Integer; AValue : TDatetime);
+Procedure TFile.SetcreatedTime(AIndex : Integer; const AValue : TDatetime);
begin
- If (FcreatedDate=AValue) then exit;
- FcreatedDate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFile.SetdefaultOpenWithLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FdefaultOpenWithLink=AValue) then exit;
- FdefaultOpenWithLink:=AValue;
+ If (FcreatedTime=AValue) then exit;
+ FcreatedTime:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -4508,47 +2579,7 @@ end;
-Procedure TFile.SetdownloadUrl(AIndex : Integer; const AValue : String);
-
-begin
- If (FdownloadUrl=AValue) then exit;
- FdownloadUrl:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFile.Seteditable(AIndex : Integer; AValue : boolean);
-
-begin
- If (Feditable=AValue) then exit;
- Feditable:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFile.SetembedLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FembedLink=AValue) then exit;
- FembedLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFile.Setetag(AIndex : Integer; const AValue : String);
-
-begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFile.SetexplicitlyTrashed(AIndex : Integer; AValue : boolean);
+Procedure TFile.SetexplicitlyTrashed(AIndex : Integer; const AValue : boolean);
begin
If (FexplicitlyTrashed=AValue) then exit;
@@ -4558,16 +2589,6 @@ end;
-Procedure TFile.SetexportLinks(AIndex : Integer; AValue : TFileTypeexportLinks);
-
-begin
- If (FexportLinks=AValue) then exit;
- FexportLinks:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TFile.SetfileExtension(AIndex : Integer; const AValue : String);
begin
@@ -4578,21 +2599,21 @@ end;
-Procedure TFile.SetfileSize(AIndex : Integer; const AValue : String);
+Procedure TFile.SetfolderColorRgb(AIndex : Integer; const AValue : String);
begin
- If (FfileSize=AValue) then exit;
- FfileSize:=AValue;
+ If (FfolderColorRgb=AValue) then exit;
+ FfolderColorRgb:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.SetfolderColorRgb(AIndex : Integer; const AValue : String);
+Procedure TFile.SetfullFileExtension(AIndex : Integer; const AValue : String);
begin
- If (FfolderColorRgb=AValue) then exit;
- FfolderColorRgb:=AValue;
+ If (FfullFileExtension=AValue) then exit;
+ FfullFileExtension:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -4628,7 +2649,7 @@ end;
-Procedure TFile.SetimageMediaMetadata(AIndex : Integer; AValue : TFileTypeimageMediaMetadata);
+Procedure TFile.SetimageMediaMetadata(AIndex : Integer; const AValue : TFileTypeimageMediaMetadata);
begin
If (FimageMediaMetadata=AValue) then exit;
@@ -4638,11 +2659,11 @@ end;
-Procedure TFile.SetindexableText(AIndex : Integer; AValue : TFileTypeindexableText);
+Procedure TFile.SetisAppAuthorized(AIndex : Integer; const AValue : boolean);
begin
- If (FindexableText=AValue) then exit;
- FindexableText:=AValue;
+ If (FisAppAuthorized=AValue) then exit;
+ FisAppAuthorized:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -4658,17 +2679,7 @@ end;
-Procedure TFile.Setlabels(AIndex : Integer; AValue : TFileTypelabels);
-
-begin
- If (Flabels=AValue) then exit;
- Flabels:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFile.SetlastModifyingUser(AIndex : Integer; AValue : TUser);
+Procedure TFile.SetlastModifyingUser(AIndex : Integer; const AValue : TUser);
begin
If (FlastModifyingUser=AValue) then exit;
@@ -4678,36 +2689,6 @@ end;
-Procedure TFile.SetlastModifyingUserName(AIndex : Integer; const AValue : String);
-
-begin
- If (FlastModifyingUserName=AValue) then exit;
- FlastModifyingUserName:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFile.SetlastViewedByMeDate(AIndex : Integer; AValue : TDatetime);
-
-begin
- If (FlastViewedByMeDate=AValue) then exit;
- FlastViewedByMeDate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFile.SetmarkedViewedByMeDate(AIndex : Integer; AValue : TDatetime);
-
-begin
- If (FmarkedViewedByMeDate=AValue) then exit;
- FmarkedViewedByMeDate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TFile.Setmd5Checksum(AIndex : Integer; const AValue : String);
begin
@@ -4728,31 +2709,31 @@ end;
-Procedure TFile.SetmodifiedByMeDate(AIndex : Integer; AValue : TDatetime);
+Procedure TFile.SetmodifiedByMeTime(AIndex : Integer; const AValue : TDatetime);
begin
- If (FmodifiedByMeDate=AValue) then exit;
- FmodifiedByMeDate:=AValue;
+ If (FmodifiedByMeTime=AValue) then exit;
+ FmodifiedByMeTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.SetmodifiedDate(AIndex : Integer; AValue : TDatetime);
+Procedure TFile.SetmodifiedTime(AIndex : Integer; const AValue : TDatetime);
begin
- If (FmodifiedDate=AValue) then exit;
- FmodifiedDate:=AValue;
+ If (FmodifiedTime=AValue) then exit;
+ FmodifiedTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.SetopenWithLinks(AIndex : Integer; AValue : TFileTypeopenWithLinks);
+Procedure TFile.Setname(AIndex : Integer; const AValue : String);
begin
- If (FopenWithLinks=AValue) then exit;
- FopenWithLinks:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -4768,17 +2749,17 @@ end;
-Procedure TFile.SetownerNames(AIndex : Integer; AValue : TStringArray);
+Procedure TFile.SetownedByMe(AIndex : Integer; const AValue : boolean);
begin
- If (FownerNames=AValue) then exit;
- FownerNames:=AValue;
+ If (FownedByMe=AValue) then exit;
+ FownedByMe:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.Setowners(AIndex : Integer; AValue : TFileTypeownersArray);
+Procedure TFile.Setowners(AIndex : Integer; const AValue : TFileTypeownersArray);
begin
If (Fowners=AValue) then exit;
@@ -4788,7 +2769,7 @@ end;
-Procedure TFile.Setparents(AIndex : Integer; AValue : TFileTypeparentsArray);
+Procedure TFile.Setparents(AIndex : Integer; const AValue : TStringArray);
begin
If (Fparents=AValue) then exit;
@@ -4798,7 +2779,7 @@ end;
-Procedure TFile.Setpermissions(AIndex : Integer; AValue : TFileTypepermissionsArray);
+Procedure TFile.Setpermissions(AIndex : Integer; const AValue : TFileTypepermissionsArray);
begin
If (Fpermissions=AValue) then exit;
@@ -4808,7 +2789,7 @@ end;
-Procedure TFile.Setproperties(AIndex : Integer; AValue : TFileTypepropertiesArray);
+Procedure TFile.Setproperties(AIndex : Integer; const AValue : TFileTypeproperties);
begin
If (Fproperties=AValue) then exit;
@@ -4828,81 +2809,81 @@ end;
-Procedure TFile.SetselfLink(AIndex : Integer; const AValue : String);
+Procedure TFile.Setshared(AIndex : Integer; const AValue : boolean);
begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
+ If (Fshared=AValue) then exit;
+ Fshared:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.Setshared(AIndex : Integer; AValue : boolean);
+Procedure TFile.SetsharedWithMeTime(AIndex : Integer; const AValue : TDatetime);
begin
- If (Fshared=AValue) then exit;
- Fshared:=AValue;
+ If (FsharedWithMeTime=AValue) then exit;
+ FsharedWithMeTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.SetsharedWithMeDate(AIndex : Integer; AValue : TDatetime);
+Procedure TFile.SetsharingUser(AIndex : Integer; const AValue : TUser);
begin
- If (FsharedWithMeDate=AValue) then exit;
- FsharedWithMeDate:=AValue;
+ If (FsharingUser=AValue) then exit;
+ FsharingUser:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.SetsharingUser(AIndex : Integer; AValue : TUser);
+Procedure TFile.Setsize(AIndex : Integer; const AValue : String);
begin
- If (FsharingUser=AValue) then exit;
- FsharingUser:=AValue;
+ If (Fsize=AValue) then exit;
+ Fsize:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.Setthumbnail(AIndex : Integer; AValue : TFileTypethumbnail);
+Procedure TFile.Setspaces(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fthumbnail=AValue) then exit;
- Fthumbnail:=AValue;
+ If (Fspaces=AValue) then exit;
+ Fspaces:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.SetthumbnailLink(AIndex : Integer; const AValue : String);
+Procedure TFile.Setstarred(AIndex : Integer; const AValue : boolean);
begin
- If (FthumbnailLink=AValue) then exit;
- FthumbnailLink:=AValue;
+ If (Fstarred=AValue) then exit;
+ Fstarred:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.Settitle(AIndex : Integer; const AValue : String);
+Procedure TFile.SetthumbnailLink(AIndex : Integer; const AValue : String);
begin
- If (Ftitle=AValue) then exit;
- Ftitle:=AValue;
+ If (FthumbnailLink=AValue) then exit;
+ FthumbnailLink:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFile.SetuserPermission(AIndex : Integer; AValue : TPermission);
+Procedure TFile.Settrashed(AIndex : Integer; const AValue : boolean);
begin
- If (FuserPermission=AValue) then exit;
- FuserPermission:=AValue;
+ If (Ftrashed=AValue) then exit;
+ Ftrashed:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -4918,7 +2899,7 @@ end;
-Procedure TFile.SetvideoMediaMetadata(AIndex : Integer; AValue : TFileTypevideoMediaMetadata);
+Procedure TFile.SetvideoMediaMetadata(AIndex : Integer; const AValue : TFileTypevideoMediaMetadata);
begin
If (FvideoMediaMetadata=AValue) then exit;
@@ -4928,6 +2909,36 @@ end;
+Procedure TFile.SetviewedByMe(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FviewedByMe=AValue) then exit;
+ FviewedByMe:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFile.SetviewedByMeTime(AIndex : Integer; const AValue : TDatetime);
+
+begin
+ If (FviewedByMeTime=AValue) then exit;
+ FviewedByMeTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFile.SetviewersCanCopyContent(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FviewersCanCopyContent=AValue) then exit;
+ FviewersCanCopyContent:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TFile.SetwebContentLink(AIndex : Integer; const AValue : String);
begin
@@ -4948,7 +2959,7 @@ end;
-Procedure TFile.SetwritersCanShare(AIndex : Integer; AValue : boolean);
+Procedure TFile.SetwritersCanShare(AIndex : Integer; const AValue : boolean);
begin
If (FwritersCanShare=AValue) then exit;
@@ -4963,11 +2974,10 @@ Procedure TFile.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'ownernames' : SetLength(FownerNames,ALength);
'owners' : SetLength(Fowners,ALength);
'parents' : SetLength(Fparents,ALength);
'permissions' : SetLength(Fpermissions,ALength);
- 'properties' : SetLength(Fproperties,ALength);
+ 'spaces' : SetLength(Fspaces,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4982,21 +2992,11 @@ end;
--------------------------------------------------------------------}
-Procedure TFileList.Setetag(AIndex : Integer; const AValue : String);
+Procedure TFileList.Setfiles(AIndex : Integer; const AValue : TFileListTypefilesArray);
begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TFileList.Setitems(AIndex : Integer; AValue : TFileListTypeitemsArray);
-
-begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
+ If (Ffiles=AValue) then exit;
+ Ffiles:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5012,16 +3012,6 @@ end;
-Procedure TFileList.SetnextLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FnextLink=AValue) then exit;
- FnextLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TFileList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
@@ -5031,23 +3021,13 @@ begin
end;
-
-Procedure TFileList.SetselfLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TFileList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'items' : SetLength(Fitems,ALength);
+ 'files' : SetLength(Ffiles,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5058,31 +3038,21 @@ end;
{ --------------------------------------------------------------------
- TParentList
+ TGeneratedIds
--------------------------------------------------------------------}
-Procedure TParentList.Setetag(AIndex : Integer; const AValue : String);
-
-begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TParentList.Setitems(AIndex : Integer; AValue : TParentListTypeitemsArray);
+Procedure TGeneratedIds.Setids(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
+ If (Fids=AValue) then exit;
+ Fids:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TParentList.Setkind(AIndex : Integer; const AValue : String);
+Procedure TGeneratedIds.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
@@ -5092,22 +3062,22 @@ end;
-Procedure TParentList.SetselfLink(AIndex : Integer; const AValue : String);
+Procedure TGeneratedIds.Setspace(AIndex : Integer; const AValue : String);
begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
+ If (Fspace=AValue) then exit;
+ Fspace:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TParentList.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TGeneratedIds.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'items' : SetLength(Fitems,ALength);
+ 'ids' : SetLength(Fids,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5118,82 +3088,25 @@ end;
{ --------------------------------------------------------------------
- TParentReference
- --------------------------------------------------------------------}
-
-
-Procedure TParentReference.Setid(AIndex : Integer; const AValue : String);
-
-begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TParentReference.SetisRoot(AIndex : Integer; AValue : boolean);
-
-begin
- If (FisRoot=AValue) then exit;
- FisRoot:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TParentReference.Setkind(AIndex : Integer; const AValue : String);
-
-begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TParentReference.SetparentLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FparentLink=AValue) then exit;
- FparentLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TParentReference.SetselfLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
TPermission
--------------------------------------------------------------------}
-Procedure TPermission.SetadditionalRoles(AIndex : Integer; AValue : TStringArray);
+Procedure TPermission.SetallowFileDiscovery(AIndex : Integer; const AValue : boolean);
begin
- If (FadditionalRoles=AValue) then exit;
- FadditionalRoles:=AValue;
+ If (FallowFileDiscovery=AValue) then exit;
+ FallowFileDiscovery:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPermission.SetauthKey(AIndex : Integer; const AValue : String);
+Procedure TPermission.SetdisplayName(AIndex : Integer; const AValue : String);
begin
- If (FauthKey=AValue) then exit;
- FauthKey:=AValue;
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5219,16 +3132,6 @@ end;
-Procedure TPermission.Setetag(AIndex : Integer; const AValue : String);
-
-begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TPermission.Setid(AIndex : Integer; const AValue : String);
begin
@@ -5249,16 +3152,6 @@ end;
-Procedure TPermission.Setname(AIndex : Integer; const AValue : String);
-
-begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TPermission.SetphotoLink(AIndex : Integer; const AValue : String);
begin
@@ -5279,16 +3172,6 @@ end;
-Procedure TPermission.SetselfLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TPermission.Set_type(AIndex : Integer; const AValue : String);
begin
@@ -5299,26 +3182,6 @@ end;
-Procedure TPermission.Setvalue(AIndex : Integer; const AValue : String);
-
-begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TPermission.SetwithLink(AIndex : Integer; AValue : boolean);
-
-begin
- If (FwithLink=AValue) then exit;
- FwithLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Class Function TPermission.ExportPropertyName(Const AName : String) :String;
begin
@@ -5329,46 +3192,6 @@ begin
end;
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TPermission.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'additionalroles' : SetLength(FadditionalRoles,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
- TPermissionId
- --------------------------------------------------------------------}
-
-
-Procedure TPermissionId.Setid(AIndex : Integer; const AValue : String);
-
-begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TPermissionId.Setkind(AIndex : Integer; const AValue : String);
-
-begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
@@ -5377,26 +3200,6 @@ end;
--------------------------------------------------------------------}
-Procedure TPermissionList.Setetag(AIndex : Integer; const AValue : String);
-
-begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TPermissionList.Setitems(AIndex : Integer; AValue : TPermissionListTypeitemsArray);
-
-begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TPermissionList.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -5407,11 +3210,11 @@ end;
-Procedure TPermissionList.SetselfLink(AIndex : Integer; const AValue : String);
+Procedure TPermissionList.Setpermissions(AIndex : Integer; const AValue : TPermissionListTypepermissionsArray);
begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5422,7 +3225,7 @@ Procedure TPermissionList.SetArrayLength(Const AName : String; ALength : Longint
begin
Case AName of
- 'items' : SetLength(Fitems,ALength);
+ 'permissions' : SetLength(Fpermissions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5433,98 +3236,81 @@ end;
{ --------------------------------------------------------------------
- TProperty
+ TReply
--------------------------------------------------------------------}
-Procedure TProperty.Setetag(AIndex : Integer; const AValue : String);
-
-begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TProperty.Setkey(AIndex : Integer; const AValue : String);
+Procedure TReply.Setaction(AIndex : Integer; const AValue : String);
begin
- If (Fkey=AValue) then exit;
- Fkey:=AValue;
+ If (Faction=AValue) then exit;
+ Faction:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TProperty.Setkind(AIndex : Integer; const AValue : String);
+Procedure TReply.Setauthor(AIndex : Integer; const AValue : TUser);
begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
+ If (Fauthor=AValue) then exit;
+ Fauthor:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TProperty.SetselfLink(AIndex : Integer; const AValue : String);
+Procedure TReply.Setcontent(AIndex : Integer; const AValue : String);
begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
+ If (Fcontent=AValue) then exit;
+ Fcontent:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TProperty.Setvalue(AIndex : Integer; const AValue : String);
+Procedure TReply.SetcreatedTime(AIndex : Integer; const AValue : TDatetime);
begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
+ If (FcreatedTime=AValue) then exit;
+ FcreatedTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TProperty.Setvisibility(AIndex : Integer; const AValue : String);
+Procedure TReply.Setdeleted(AIndex : Integer; const AValue : boolean);
begin
- If (Fvisibility=AValue) then exit;
- Fvisibility:=AValue;
+ If (Fdeleted=AValue) then exit;
+ Fdeleted:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TPropertyList
- --------------------------------------------------------------------}
-
-
-Procedure TPropertyList.Setetag(AIndex : Integer; const AValue : String);
+Procedure TReply.SethtmlContent(AIndex : Integer; const AValue : String);
begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
+ If (FhtmlContent=AValue) then exit;
+ FhtmlContent:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPropertyList.Setitems(AIndex : Integer; AValue : TPropertyListTypeitemsArray);
+Procedure TReply.Setid(AIndex : Integer; const AValue : String);
begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPropertyList.Setkind(AIndex : Integer; const AValue : String);
+Procedure TReply.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
@@ -5534,87 +3320,71 @@ end;
-Procedure TPropertyList.SetselfLink(AIndex : Integer; const AValue : String);
+Procedure TReply.SetmodifiedTime(AIndex : Integer; const AValue : TDatetime);
begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
+ If (FmodifiedTime=AValue) then exit;
+ FmodifiedTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TPropertyList.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
{ --------------------------------------------------------------------
- TRevisionTypeexportLinks
+ TReplyList
--------------------------------------------------------------------}
-Class Function TRevisionTypeexportLinks.AllowAdditionalProperties : Boolean;
+Procedure TReplyList.Setkind(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TRevision
- --------------------------------------------------------------------}
-
-
-Procedure TRevision.SetdownloadUrl(AIndex : Integer; const AValue : String);
+Procedure TReplyList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (FdownloadUrl=AValue) then exit;
- FdownloadUrl:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRevision.Setetag(AIndex : Integer; const AValue : String);
+Procedure TReplyList.Setreplies(AIndex : Integer; const AValue : TReplyListTyperepliesArray);
begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
+ If (Freplies=AValue) then exit;
+ Freplies:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TRevision.SetexportLinks(AIndex : Integer; AValue : TRevisionTypeexportLinks);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TReplyList.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FexportLinks=AValue) then exit;
- FexportLinks:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'replies' : SetLength(Freplies,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Procedure TRevision.SetfileSize(AIndex : Integer; const AValue : String);
-
-begin
- If (FfileSize=AValue) then exit;
- FfileSize:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TRevision
+ --------------------------------------------------------------------}
Procedure TRevision.Setid(AIndex : Integer; const AValue : String);
@@ -5627,31 +3397,31 @@ end;
-Procedure TRevision.Setkind(AIndex : Integer; const AValue : String);
+Procedure TRevision.SetkeepForever(AIndex : Integer; const AValue : boolean);
begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
+ If (FkeepForever=AValue) then exit;
+ FkeepForever:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRevision.SetlastModifyingUser(AIndex : Integer; AValue : TUser);
+Procedure TRevision.Setkind(AIndex : Integer; const AValue : String);
begin
- If (FlastModifyingUser=AValue) then exit;
- FlastModifyingUser:=AValue;
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRevision.SetlastModifyingUserName(AIndex : Integer; const AValue : String);
+Procedure TRevision.SetlastModifyingUser(AIndex : Integer; const AValue : TUser);
begin
- If (FlastModifyingUserName=AValue) then exit;
- FlastModifyingUserName:=AValue;
+ If (FlastModifyingUser=AValue) then exit;
+ FlastModifyingUser:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5677,11 +3447,11 @@ end;
-Procedure TRevision.SetmodifiedDate(AIndex : Integer; AValue : TDatetime);
+Procedure TRevision.SetmodifiedTime(AIndex : Integer; const AValue : TDatetime);
begin
- If (FmodifiedDate=AValue) then exit;
- FmodifiedDate:=AValue;
+ If (FmodifiedTime=AValue) then exit;
+ FmodifiedTime:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5697,17 +3467,7 @@ end;
-Procedure TRevision.Setpinned(AIndex : Integer; AValue : boolean);
-
-begin
- If (Fpinned=AValue) then exit;
- Fpinned:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TRevision.SetpublishAuto(AIndex : Integer; AValue : boolean);
+Procedure TRevision.SetpublishAuto(AIndex : Integer; const AValue : boolean);
begin
If (FpublishAuto=AValue) then exit;
@@ -5717,7 +3477,7 @@ end;
-Procedure TRevision.Set_published(AIndex : Integer; AValue : boolean);
+Procedure TRevision.Set_published(AIndex : Integer; const AValue : boolean);
begin
If (F_published=AValue) then exit;
@@ -5727,17 +3487,7 @@ end;
-Procedure TRevision.SetpublishedLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FpublishedLink=AValue) then exit;
- FpublishedLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TRevision.SetpublishedOutsideDomain(AIndex : Integer; AValue : boolean);
+Procedure TRevision.SetpublishedOutsideDomain(AIndex : Integer; const AValue : boolean);
begin
If (FpublishedOutsideDomain=AValue) then exit;
@@ -5747,11 +3497,11 @@ end;
-Procedure TRevision.SetselfLink(AIndex : Integer; const AValue : String);
+Procedure TRevision.Setsize(AIndex : Integer; const AValue : String);
begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
+ If (Fsize=AValue) then exit;
+ Fsize:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5775,26 +3525,6 @@ end;
--------------------------------------------------------------------}
-Procedure TRevisionList.Setetag(AIndex : Integer; const AValue : String);
-
-begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TRevisionList.Setitems(AIndex : Integer; AValue : TRevisionListTypeitemsArray);
-
-begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TRevisionList.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -5805,11 +3535,11 @@ end;
-Procedure TRevisionList.SetselfLink(AIndex : Integer; const AValue : String);
+Procedure TRevisionList.Setrevisions(AIndex : Integer; const AValue : TRevisionListTyperevisionsArray);
begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
+ If (Frevisions=AValue) then exit;
+ Frevisions:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5820,7 +3550,7 @@ Procedure TRevisionList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'items' : SetLength(Fitems,ALength);
+ 'revisions' : SetLength(Frevisions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5831,15 +3561,25 @@ end;
{ --------------------------------------------------------------------
- TUserTypepicture
+ TStartPageToken
--------------------------------------------------------------------}
-Procedure TUserTypepicture.Seturl(AIndex : Integer; const AValue : String);
+Procedure TStartPageToken.Setkind(AIndex : Integer; const AValue : String);
begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStartPageToken.SetstartPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartPageToken=AValue) then exit;
+ FstartPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5872,21 +3612,21 @@ end;
-Procedure TUser.SetisAuthenticatedUser(AIndex : Integer; AValue : boolean);
+Procedure TUser.Setkind(AIndex : Integer; const AValue : String);
begin
- If (FisAuthenticatedUser=AValue) then exit;
- FisAuthenticatedUser:=AValue;
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TUser.Setkind(AIndex : Integer; const AValue : String);
+Procedure TUser.Setme(AIndex : Integer; const AValue : boolean);
begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
+ If (Fme=AValue) then exit;
+ Fme:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5902,11 +3642,11 @@ end;
-Procedure TUser.Setpicture(AIndex : Integer; AValue : TUserTypepicture);
+Procedure TUser.SetphotoLink(AIndex : Integer; const AValue : String);
begin
- If (Fpicture=AValue) then exit;
- Fpicture:=AValue;
+ If (FphotoLink=AValue) then exit;
+ FphotoLink:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5931,7 +3671,7 @@ begin
Result:=TdriveAPI;
end;
-Function TAboutResource.Get(AQuery : string = '') : TAbout;
+Function TAboutResource.Get : TAbout;
Const
_HTTPMethod = 'GET';
@@ -5939,80 +3679,7 @@ Const
_Methodid = 'drive.about.get';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TAbout) as TAbout;
-end;
-
-
-Function TAboutResource.Get(AQuery : TAboutgetOptions) : TAbout;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'includeSubscribed',AQuery.includeSubscribed);
- AddToQuery(_Q,'maxChangeIdCount',AQuery.maxChangeIdCount);
- AddToQuery(_Q,'startChangeId',AQuery.startChangeId);
- Result:=Get(_Q);
-end;
-
-
-
-{ --------------------------------------------------------------------
- TAppsResource
- --------------------------------------------------------------------}
-
-
-Class Function TAppsResource.ResourceName : String;
-
-begin
- Result:='apps';
-end;
-
-Class Function TAppsResource.DefaultAPI : TGoogleAPIClass;
-
-begin
- Result:=TdriveAPI;
-end;
-
-Function TAppsResource.Get(appId: string) : TApp;
-
-Const
- _HTTPMethod = 'GET';
- _Path = 'apps/{appId}';
- _Methodid = 'drive.apps.get';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['appId',appId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TApp) as TApp;
-end;
-
-Function TAppsResource.List(AQuery : string = '') : TAppList;
-
-Const
- _HTTPMethod = 'GET';
- _Path = 'apps';
- _Methodid = 'drive.apps.list';
-
-begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TAppList) as TAppList;
-end;
-
-
-Function TAppsResource.List(AQuery : TAppslistOptions) : TAppList;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'appFilterExtensions',AQuery.appFilterExtensions);
- AddToQuery(_Q,'appFilterMimeTypes',AQuery.appFilterMimeTypes);
- AddToQuery(_Q,'languageCode',AQuery.languageCode);
- Result:=List(_Q);
+ Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TAbout) as TAbout;
end;
@@ -6034,19 +3701,15 @@ begin
Result:=TdriveAPI;
end;
-Function TChangesResource.Get(changeId: string) : TChange;
+Function TChangesResource.GetStartPageToken : TStartPageToken;
Const
_HTTPMethod = 'GET';
- _Path = 'changes/{changeId}';
- _Methodid = 'drive.changes.get';
-
-Var
- _P : String;
+ _Path = 'changes/startPageToken';
+ _Methodid = 'drive.changes.getStartPageToken';
begin
- _P:=SubstitutePath(_Path,['changeId',changeId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TChange) as TChange;
+ Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TStartPageToken) as TStartPageToken;
end;
Function TChangesResource.List(AQuery : string = '') : TChangeList;
@@ -6068,11 +3731,11 @@ Var
begin
_Q:='';
- AddToQuery(_Q,'includeDeleted',AQuery.includeDeleted);
- AddToQuery(_Q,'includeSubscribed',AQuery.includeSubscribed);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'includeRemoved',AQuery.includeRemoved);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'startChangeId',AQuery.startChangeId);
+ AddToQuery(_Q,'restrictToMyDrive',AQuery.restrictToMyDrive);
+ AddToQuery(_Q,'spaces',AQuery.spaces);
Result:=List(_Q);
end;
@@ -6095,11 +3758,11 @@ Var
begin
_Q:='';
- AddToQuery(_Q,'includeDeleted',AQuery.includeDeleted);
- AddToQuery(_Q,'includeSubscribed',AQuery.includeSubscribed);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'includeRemoved',AQuery.includeRemoved);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'startChangeId',AQuery.startChangeId);
+ AddToQuery(_Q,'restrictToMyDrive',AQuery.restrictToMyDrive);
+ AddToQuery(_Q,'spaces',AQuery.spaces);
Result:=Watch(aChannel,_Q);
end;
@@ -6136,113 +3799,35 @@ end;
{ --------------------------------------------------------------------
- TChildrenResource
+ TCommentsResource
--------------------------------------------------------------------}
-Class Function TChildrenResource.ResourceName : String;
+Class Function TCommentsResource.ResourceName : String;
begin
- Result:='children';
+ Result:='comments';
end;
-Class Function TChildrenResource.DefaultAPI : TGoogleAPIClass;
+Class Function TCommentsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TdriveAPI;
end;
-Procedure TChildrenResource.Delete(childId: string; folderId: string);
-
-Const
- _HTTPMethod = 'DELETE';
- _Path = 'files/{folderId}/children/{childId}';
- _Methodid = 'drive.children.delete';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['childId',childId,'folderId',folderId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
-end;
-
-Function TChildrenResource.Get(childId: string; folderId: string) : TChildReference;
-
-Const
- _HTTPMethod = 'GET';
- _Path = 'files/{folderId}/children/{childId}';
- _Methodid = 'drive.children.get';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['childId',childId,'folderId',folderId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TChildReference) as TChildReference;
-end;
-
-Function TChildrenResource.Insert(folderId: string; aChildReference : TChildReference) : TChildReference;
+Function TCommentsResource.Create(fileId: string; aComment : TComment) : TComment;
Const
_HTTPMethod = 'POST';
- _Path = 'files/{folderId}/children';
- _Methodid = 'drive.children.insert';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['folderId',folderId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aChildReference,TChildReference) as TChildReference;
-end;
-
-Function TChildrenResource.List(folderId: string; AQuery : string = '') : TChildList;
-
-Const
- _HTTPMethod = 'GET';
- _Path = 'files/{folderId}/children';
- _Methodid = 'drive.children.list';
+ _Path = 'files/{fileId}/comments';
+ _Methodid = 'drive.comments.create';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['folderId',folderId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TChildList) as TChildList;
-end;
-
-
-Function TChildrenResource.List(folderId: string; AQuery : TChildrenlistOptions) : TChildList;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'q',AQuery.q);
- Result:=List(folderId,_Q);
-end;
-
-
-
-{ --------------------------------------------------------------------
- TCommentsResource
- --------------------------------------------------------------------}
-
-
-Class Function TCommentsResource.ResourceName : String;
-
-begin
- Result:='comments';
-end;
-
-Class Function TCommentsResource.DefaultAPI : TGoogleAPIClass;
-
-begin
- Result:=TdriveAPI;
+ _P:=SubstitutePath(_Path,['fileId',fileId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aComment,TComment) as TComment;
end;
Procedure TCommentsResource.Delete(commentId: string; fileId: string);
@@ -6287,21 +3872,6 @@ begin
Result:=Get(commentId,fileId,_Q);
end;
-Function TCommentsResource.Insert(fileId: string; aComment : TComment) : TComment;
-
-Const
- _HTTPMethod = 'POST';
- _Path = 'files/{fileId}/comments';
- _Methodid = 'drive.comments.insert';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aComment,TComment) as TComment;
-end;
-
Function TCommentsResource.List(fileId: string; AQuery : string = '') : TCommentList;
Const
@@ -6326,31 +3896,16 @@ Var
begin
_Q:='';
AddToQuery(_Q,'includeDeleted',AQuery.includeDeleted);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'updatedMin',AQuery.updatedMin);
+ AddToQuery(_Q,'startModifiedTime',AQuery.startModifiedTime);
Result:=List(fileId,_Q);
end;
-Function TCommentsResource.Patch(commentId: string; fileId: string; aComment : TComment) : TComment;
-
-Const
- _HTTPMethod = 'PATCH';
- _Path = 'files/{fileId}/comments/{commentId}';
- _Methodid = 'drive.comments.patch';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['commentId',commentId,'fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aComment,TComment) as TComment;
-end;
-
Function TCommentsResource.Update(commentId: string; fileId: string; aComment : TComment) : TComment;
Const
- _HTTPMethod = 'PUT';
+ _HTTPMethod = 'PATCH';
_Path = 'files/{fileId}/comments/{commentId}';
_Methodid = 'drive.comments.update';
@@ -6404,16 +3959,38 @@ Var
begin
_Q:='';
- AddToQuery(_Q,'convert',AQuery.convert);
- AddToQuery(_Q,'ocr',AQuery.ocr);
+ AddToQuery(_Q,'ignoreDefaultVisibility',AQuery.ignoreDefaultVisibility);
+ AddToQuery(_Q,'keepRevisionForever',AQuery.keepRevisionForever);
AddToQuery(_Q,'ocrLanguage',AQuery.ocrLanguage);
- AddToQuery(_Q,'pinned',AQuery.pinned);
- AddToQuery(_Q,'timedTextLanguage',AQuery.timedTextLanguage);
- AddToQuery(_Q,'timedTextTrackName',AQuery.timedTextTrackName);
- AddToQuery(_Q,'visibility',AQuery.visibility);
Result:=Copy(fileId,aFile,_Q);
end;
+Function TFilesResource.Create(aFile : TFile; AQuery : string = '') : TFile;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'files';
+ _Methodid = 'drive.files.create';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aFile,TFile) as TFile;
+end;
+
+
+Function TFilesResource.Create(aFile : TFile; AQuery : TFilescreateOptions) : TFile;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'ignoreDefaultVisibility',AQuery.ignoreDefaultVisibility);
+ AddToQuery(_Q,'keepRevisionForever',AQuery.keepRevisionForever);
+ AddToQuery(_Q,'ocrLanguage',AQuery.ocrLanguage);
+ AddToQuery(_Q,'useContentAsIndexableText',AQuery.useContentAsIndexableText);
+ Result:=Create(aFile,_Q);
+end;
+
Procedure TFilesResource.Delete(fileId: string);
Const
@@ -6440,180 +4017,116 @@ begin
ServiceCall(_HTTPMethod,_Path,'',Nil,Nil);
end;
-Function TFilesResource.Get(fileId: string; AQuery : string = '') : TFile;
+Procedure TFilesResource.Export(fileId: string; AQuery : string = '');
Const
_HTTPMethod = 'GET';
- _Path = 'files/{fileId}';
- _Methodid = 'drive.files.get';
+ _Path = 'files/{fileId}/export';
+ _Methodid = 'drive.files.export';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TFile) as TFile;
-end;
-
-
-Function TFilesResource.Get(fileId: string; AQuery : TFilesgetOptions) : TFile;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'acknowledgeAbuse',AQuery.acknowledgeAbuse);
- AddToQuery(_Q,'projection',AQuery.projection);
- AddToQuery(_Q,'revisionId',AQuery.revisionId);
- AddToQuery(_Q,'updateViewedDate',AQuery.updateViewedDate);
- Result:=Get(fileId,_Q);
-end;
-
-Function TFilesResource.Insert(aFile : TFile; AQuery : string = '') : TFile;
-
-Const
- _HTTPMethod = 'POST';
- _Path = 'files';
- _Methodid = 'drive.files.insert';
-
-begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aFile,TFile) as TFile;
+ ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
end;
-Function TFilesResource.Insert(aFile : TFile; AQuery : TFilesinsertOptions) : TFile;
+Procedure TFilesResource.Export(fileId: string; AQuery : TFilesexportOptions);
Var
_Q : String;
begin
_Q:='';
- AddToQuery(_Q,'convert',AQuery.convert);
- AddToQuery(_Q,'ocr',AQuery.ocr);
- AddToQuery(_Q,'ocrLanguage',AQuery.ocrLanguage);
- AddToQuery(_Q,'pinned',AQuery.pinned);
- AddToQuery(_Q,'timedTextLanguage',AQuery.timedTextLanguage);
- AddToQuery(_Q,'timedTextTrackName',AQuery.timedTextTrackName);
- AddToQuery(_Q,'useContentAsIndexableText',AQuery.useContentAsIndexableText);
- AddToQuery(_Q,'visibility',AQuery.visibility);
- Result:=Insert(aFile,_Q);
+ AddToQuery(_Q,'mimeType',AQuery.mimeType);
+ Export(fileId,_Q);
end;
-Function TFilesResource.List(AQuery : string = '') : TFileList;
+Function TFilesResource.GenerateIds(AQuery : string = '') : TGeneratedIds;
Const
_HTTPMethod = 'GET';
- _Path = 'files';
- _Methodid = 'drive.files.list';
+ _Path = 'files/generateIds';
+ _Methodid = 'drive.files.generateIds';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TFileList) as TFileList;
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TGeneratedIds) as TGeneratedIds;
end;
-Function TFilesResource.List(AQuery : TFileslistOptions) : TFileList;
+Function TFilesResource.GenerateIds(AQuery : TFilesgenerateIdsOptions) : TGeneratedIds;
Var
_Q : String;
begin
_Q:='';
- AddToQuery(_Q,'corpus',AQuery.corpus);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'projection',AQuery.projection);
- AddToQuery(_Q,'q',AQuery.q);
- Result:=List(_Q);
+ AddToQuery(_Q,'count',AQuery.count);
+ AddToQuery(_Q,'space',AQuery.space);
+ Result:=GenerateIds(_Q);
end;
-Function TFilesResource.Patch(fileId: string; aFile : TFile; AQuery : string = '') : TFile;
+Function TFilesResource.Get(fileId: string; AQuery : string = '') : TFile;
Const
- _HTTPMethod = 'PATCH';
+ _HTTPMethod = 'GET';
_Path = 'files/{fileId}';
- _Methodid = 'drive.files.patch';
+ _Methodid = 'drive.files.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aFile,TFile) as TFile;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TFile) as TFile;
end;
-Function TFilesResource.Patch(fileId: string; aFile : TFile; AQuery : TFilespatchOptions) : TFile;
+Function TFilesResource.Get(fileId: string; AQuery : TFilesgetOptions) : TFile;
Var
_Q : String;
begin
_Q:='';
- AddToQuery(_Q,'addParents',AQuery.addParents);
- AddToQuery(_Q,'convert',AQuery.convert);
- AddToQuery(_Q,'newRevision',AQuery.newRevision);
- AddToQuery(_Q,'ocr',AQuery.ocr);
- AddToQuery(_Q,'ocrLanguage',AQuery.ocrLanguage);
- AddToQuery(_Q,'pinned',AQuery.pinned);
- AddToQuery(_Q,'removeParents',AQuery.removeParents);
- AddToQuery(_Q,'setModifiedDate',AQuery.setModifiedDate);
- AddToQuery(_Q,'timedTextLanguage',AQuery.timedTextLanguage);
- AddToQuery(_Q,'timedTextTrackName',AQuery.timedTextTrackName);
- AddToQuery(_Q,'updateViewedDate',AQuery.updateViewedDate);
- AddToQuery(_Q,'useContentAsIndexableText',AQuery.useContentAsIndexableText);
- Result:=Patch(fileId,aFile,_Q);
-end;
-
-Function TFilesResource.Touch(fileId: string) : TFile;
-
-Const
- _HTTPMethod = 'POST';
- _Path = 'files/{fileId}/touch';
- _Methodid = 'drive.files.touch';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TFile) as TFile;
+ AddToQuery(_Q,'acknowledgeAbuse',AQuery.acknowledgeAbuse);
+ Result:=Get(fileId,_Q);
end;
-Function TFilesResource.Trash(fileId: string) : TFile;
+Function TFilesResource.List(AQuery : string = '') : TFileList;
Const
- _HTTPMethod = 'POST';
- _Path = 'files/{fileId}/trash';
- _Methodid = 'drive.files.trash';
-
-Var
- _P : String;
+ _HTTPMethod = 'GET';
+ _Path = 'files';
+ _Methodid = 'drive.files.list';
begin
- _P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TFile) as TFile;
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TFileList) as TFileList;
end;
-Function TFilesResource.Untrash(fileId: string) : TFile;
-Const
- _HTTPMethod = 'POST';
- _Path = 'files/{fileId}/untrash';
- _Methodid = 'drive.files.untrash';
+Function TFilesResource.List(AQuery : TFileslistOptions) : TFileList;
Var
- _P : String;
+ _Q : String;
begin
- _P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TFile) as TFile;
+ _Q:='';
+ AddToQuery(_Q,'corpus',AQuery.corpus);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'q',AQuery.q);
+ AddToQuery(_Q,'spaces',AQuery.spaces);
+ Result:=List(_Q);
end;
Function TFilesResource.Update(fileId: string; aFile : TFile; AQuery : string = '') : TFile;
Const
- _HTTPMethod = 'PUT';
+ _HTTPMethod = 'PATCH';
_Path = 'files/{fileId}';
_Methodid = 'drive.files.update';
@@ -6634,16 +4147,9 @@ Var
begin
_Q:='';
AddToQuery(_Q,'addParents',AQuery.addParents);
- AddToQuery(_Q,'convert',AQuery.convert);
- AddToQuery(_Q,'newRevision',AQuery.newRevision);
- AddToQuery(_Q,'ocr',AQuery.ocr);
+ AddToQuery(_Q,'keepRevisionForever',AQuery.keepRevisionForever);
AddToQuery(_Q,'ocrLanguage',AQuery.ocrLanguage);
- AddToQuery(_Q,'pinned',AQuery.pinned);
AddToQuery(_Q,'removeParents',AQuery.removeParents);
- AddToQuery(_Q,'setModifiedDate',AQuery.setModifiedDate);
- AddToQuery(_Q,'timedTextLanguage',AQuery.timedTextLanguage);
- AddToQuery(_Q,'timedTextTrackName',AQuery.timedTextTrackName);
- AddToQuery(_Q,'updateViewedDate',AQuery.updateViewedDate);
AddToQuery(_Q,'useContentAsIndexableText',AQuery.useContentAsIndexableText);
Result:=Update(fileId,aFile,_Q);
end;
@@ -6672,108 +4178,55 @@ Var
begin
_Q:='';
AddToQuery(_Q,'acknowledgeAbuse',AQuery.acknowledgeAbuse);
- AddToQuery(_Q,'projection',AQuery.projection);
- AddToQuery(_Q,'revisionId',AQuery.revisionId);
- AddToQuery(_Q,'updateViewedDate',AQuery.updateViewedDate);
Result:=Watch(fileId,aChannel,_Q);
end;
{ --------------------------------------------------------------------
- TParentsResource
+ TPermissionsResource
--------------------------------------------------------------------}
-Class Function TParentsResource.ResourceName : String;
+Class Function TPermissionsResource.ResourceName : String;
begin
- Result:='parents';
+ Result:='permissions';
end;
-Class Function TParentsResource.DefaultAPI : TGoogleAPIClass;
+Class Function TPermissionsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TdriveAPI;
end;
-Procedure TParentsResource.Delete(fileId: string; parentId: string);
-
-Const
- _HTTPMethod = 'DELETE';
- _Path = 'files/{fileId}/parents/{parentId}';
- _Methodid = 'drive.parents.delete';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId,'parentId',parentId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
-end;
-
-Function TParentsResource.Get(fileId: string; parentId: string) : TParentReference;
-
-Const
- _HTTPMethod = 'GET';
- _Path = 'files/{fileId}/parents/{parentId}';
- _Methodid = 'drive.parents.get';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId,'parentId',parentId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TParentReference) as TParentReference;
-end;
-
-Function TParentsResource.Insert(fileId: string; aParentReference : TParentReference) : TParentReference;
+Function TPermissionsResource.Create(fileId: string; aPermission : TPermission; AQuery : string = '') : TPermission;
Const
_HTTPMethod = 'POST';
- _Path = 'files/{fileId}/parents';
- _Methodid = 'drive.parents.insert';
+ _Path = 'files/{fileId}/permissions';
+ _Methodid = 'drive.permissions.create';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aParentReference,TParentReference) as TParentReference;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aPermission,TPermission) as TPermission;
end;
-Function TParentsResource.List(fileId: string) : TParentList;
-Const
- _HTTPMethod = 'GET';
- _Path = 'files/{fileId}/parents';
- _Methodid = 'drive.parents.list';
+Function TPermissionsResource.Create(fileId: string; aPermission : TPermission; AQuery : TPermissionscreateOptions) : TPermission;
Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TParentList) as TParentList;
-end;
-
-
-
-{ --------------------------------------------------------------------
- TPermissionsResource
- --------------------------------------------------------------------}
-
-
-Class Function TPermissionsResource.ResourceName : String;
-
-begin
- Result:='permissions';
-end;
-
-Class Function TPermissionsResource.DefaultAPI : TGoogleAPIClass;
+ _Q : String;
begin
- Result:=TdriveAPI;
+ _Q:='';
+ AddToQuery(_Q,'emailMessage',AQuery.emailMessage);
+ AddToQuery(_Q,'sendNotificationEmail',AQuery.sendNotificationEmail);
+ AddToQuery(_Q,'transferOwnership',AQuery.transferOwnership);
+ Result:=Create(fileId,aPermission,_Q);
end;
Procedure TPermissionsResource.Delete(fileId: string; permissionId: string);
@@ -6806,49 +4259,6 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermission) as TPermission;
end;
-Function TPermissionsResource.GetIdForEmail(email: string) : TPermissionId;
-
-Const
- _HTTPMethod = 'GET';
- _Path = 'permissionIds/{email}';
- _Methodid = 'drive.permissions.getIdForEmail';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['email',email]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionId) as TPermissionId;
-end;
-
-Function TPermissionsResource.Insert(fileId: string; aPermission : TPermission; AQuery : string = '') : TPermission;
-
-Const
- _HTTPMethod = 'POST';
- _Path = 'files/{fileId}/permissions';
- _Methodid = 'drive.permissions.insert';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aPermission,TPermission) as TPermission;
-end;
-
-
-Function TPermissionsResource.Insert(fileId: string; aPermission : TPermission; AQuery : TPermissionsinsertOptions) : TPermission;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'emailMessage',AQuery.emailMessage);
- AddToQuery(_Q,'sendNotificationEmails',AQuery.sendNotificationEmails);
- Result:=Insert(fileId,aPermission,_Q);
-end;
-
Function TPermissionsResource.List(fileId: string) : TPermissionList;
Const
@@ -6864,37 +4274,10 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPermissionList) as TPermissionList;
end;
-Function TPermissionsResource.Patch(fileId: string; permissionId: string; aPermission : TPermission; AQuery : string = '') : TPermission;
-
-Const
- _HTTPMethod = 'PATCH';
- _Path = 'files/{fileId}/permissions/{permissionId}';
- _Methodid = 'drive.permissions.patch';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId,'permissionId',permissionId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aPermission,TPermission) as TPermission;
-end;
-
-
-Function TPermissionsResource.Patch(fileId: string; permissionId: string; aPermission : TPermission; AQuery : TPermissionspatchOptions) : TPermission;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'transferOwnership',AQuery.transferOwnership);
- Result:=Patch(fileId,permissionId,aPermission,_Q);
-end;
-
Function TPermissionsResource.Update(fileId: string; permissionId: string; aPermission : TPermission; AQuery : string = '') : TPermission;
Const
- _HTTPMethod = 'PUT';
+ _HTTPMethod = 'PATCH';
_Path = 'files/{fileId}/permissions/{permissionId}';
_Methodid = 'drive.permissions.update';
@@ -6921,250 +4304,35 @@ end;
{ --------------------------------------------------------------------
- TPropertiesResource
+ TRepliesResource
--------------------------------------------------------------------}
-Class Function TPropertiesResource.ResourceName : String;
+Class Function TRepliesResource.ResourceName : String;
begin
- Result:='properties';
+ Result:='replies';
end;
-Class Function TPropertiesResource.DefaultAPI : TGoogleAPIClass;
+Class Function TRepliesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TdriveAPI;
end;
-Procedure TPropertiesResource.Delete(fileId: string; propertyKey: string; AQuery : string = '');
-
-Const
- _HTTPMethod = 'DELETE';
- _Path = 'files/{fileId}/properties/{propertyKey}';
- _Methodid = 'drive.properties.delete';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId,'propertyKey',propertyKey]);
- ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
-end;
-
-
-Procedure TPropertiesResource.Delete(fileId: string; propertyKey: string; AQuery : TPropertiesdeleteOptions);
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'visibility',AQuery.visibility);
- Delete(fileId,propertyKey,_Q);
-end;
-
-Function TPropertiesResource.Get(fileId: string; propertyKey: string; AQuery : string = '') : TProperty;
-
-Const
- _HTTPMethod = 'GET';
- _Path = 'files/{fileId}/properties/{propertyKey}';
- _Methodid = 'drive.properties.get';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId,'propertyKey',propertyKey]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TProperty) as TProperty;
-end;
-
-
-Function TPropertiesResource.Get(fileId: string; propertyKey: string; AQuery : TPropertiesgetOptions) : TProperty;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'visibility',AQuery.visibility);
- Result:=Get(fileId,propertyKey,_Q);
-end;
-
-Function TPropertiesResource.Insert(fileId: string; aProperty : TProperty) : TProperty;
+Function TRepliesResource.Create(commentId: string; fileId: string; aReply : TReply) : TReply;
Const
_HTTPMethod = 'POST';
- _Path = 'files/{fileId}/properties';
- _Methodid = 'drive.properties.insert';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aProperty,TProperty) as TProperty;
-end;
-
-Function TPropertiesResource.List(fileId: string) : TPropertyList;
-
-Const
- _HTTPMethod = 'GET';
- _Path = 'files/{fileId}/properties';
- _Methodid = 'drive.properties.list';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPropertyList) as TPropertyList;
-end;
-
-Function TPropertiesResource.Patch(fileId: string; propertyKey: string; aProperty : TProperty; AQuery : string = '') : TProperty;
-
-Const
- _HTTPMethod = 'PATCH';
- _Path = 'files/{fileId}/properties/{propertyKey}';
- _Methodid = 'drive.properties.patch';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId,'propertyKey',propertyKey]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aProperty,TProperty) as TProperty;
-end;
-
-
-Function TPropertiesResource.Patch(fileId: string; propertyKey: string; aProperty : TProperty; AQuery : TPropertiespatchOptions) : TProperty;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'visibility',AQuery.visibility);
- Result:=Patch(fileId,propertyKey,aProperty,_Q);
-end;
-
-Function TPropertiesResource.Update(fileId: string; propertyKey: string; aProperty : TProperty; AQuery : string = '') : TProperty;
-
-Const
- _HTTPMethod = 'PUT';
- _Path = 'files/{fileId}/properties/{propertyKey}';
- _Methodid = 'drive.properties.update';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId,'propertyKey',propertyKey]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aProperty,TProperty) as TProperty;
-end;
-
-
-Function TPropertiesResource.Update(fileId: string; propertyKey: string; aProperty : TProperty; AQuery : TPropertiesupdateOptions) : TProperty;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'visibility',AQuery.visibility);
- Result:=Update(fileId,propertyKey,aProperty,_Q);
-end;
-
-
-
-{ --------------------------------------------------------------------
- TRealtimeResource
- --------------------------------------------------------------------}
-
-
-Class Function TRealtimeResource.ResourceName : String;
-
-begin
- Result:='realtime';
-end;
-
-Class Function TRealtimeResource.DefaultAPI : TGoogleAPIClass;
-
-begin
- Result:=TdriveAPI;
-end;
-
-Procedure TRealtimeResource.Get(fileId: string; AQuery : string = '');
-
-Const
- _HTTPMethod = 'GET';
- _Path = 'files/{fileId}/realtime';
- _Methodid = 'drive.realtime.get';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['fileId',fileId]);
- ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
-end;
-
-
-Procedure TRealtimeResource.Get(fileId: string; AQuery : TRealtimegetOptions);
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'revision',AQuery.revision);
- Get(fileId,_Q);
-end;
-
-Procedure TRealtimeResource.Update(fileId: string; AQuery : string = '');
-
-Const
- _HTTPMethod = 'PUT';
- _Path = 'files/{fileId}/realtime';
- _Methodid = 'drive.realtime.update';
+ _Path = 'files/{fileId}/comments/{commentId}/replies';
+ _Methodid = 'drive.replies.create';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['fileId',fileId]);
- ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
-end;
-
-
-Procedure TRealtimeResource.Update(fileId: string; AQuery : TRealtimeupdateOptions);
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'baseRevision',AQuery.baseRevision);
- Update(fileId,_Q);
-end;
-
-
-
-{ --------------------------------------------------------------------
- TRepliesResource
- --------------------------------------------------------------------}
-
-
-Class Function TRepliesResource.ResourceName : String;
-
-begin
- Result:='replies';
-end;
-
-Class Function TRepliesResource.DefaultAPI : TGoogleAPIClass;
-
-begin
- Result:=TdriveAPI;
+ _P:=SubstitutePath(_Path,['commentId',commentId,'fileId',fileId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aReply,TReply) as TReply;
end;
Procedure TRepliesResource.Delete(commentId: string; fileId: string; replyId: string);
@@ -7182,7 +4350,7 @@ begin
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;
-Function TRepliesResource.Get(commentId: string; fileId: string; replyId: string; AQuery : string = '') : TCommentReply;
+Function TRepliesResource.Get(commentId: string; fileId: string; replyId: string; AQuery : string = '') : TReply;
Const
_HTTPMethod = 'GET';
@@ -7194,11 +4362,11 @@ Var
begin
_P:=SubstitutePath(_Path,['commentId',commentId,'fileId',fileId,'replyId',replyId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCommentReply) as TCommentReply;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TReply) as TReply;
end;
-Function TRepliesResource.Get(commentId: string; fileId: string; replyId: string; AQuery : TRepliesgetOptions) : TCommentReply;
+Function TRepliesResource.Get(commentId: string; fileId: string; replyId: string; AQuery : TRepliesgetOptions) : TReply;
Var
_Q : String;
@@ -7209,22 +4377,7 @@ begin
Result:=Get(commentId,fileId,replyId,_Q);
end;
-Function TRepliesResource.Insert(commentId: string; fileId: string; aCommentReply : TCommentReply) : TCommentReply;
-
-Const
- _HTTPMethod = 'POST';
- _Path = 'files/{fileId}/comments/{commentId}/replies';
- _Methodid = 'drive.replies.insert';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['commentId',commentId,'fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCommentReply,TCommentReply) as TCommentReply;
-end;
-
-Function TRepliesResource.List(commentId: string; fileId: string; AQuery : string = '') : TCommentReplyList;
+Function TRepliesResource.List(commentId: string; fileId: string; AQuery : string = '') : TReplyList;
Const
_HTTPMethod = 'GET';
@@ -7236,11 +4389,11 @@ Var
begin
_P:=SubstitutePath(_Path,['commentId',commentId,'fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCommentReplyList) as TCommentReplyList;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TReplyList) as TReplyList;
end;
-Function TRepliesResource.List(commentId: string; fileId: string; AQuery : TReplieslistOptions) : TCommentReplyList;
+Function TRepliesResource.List(commentId: string; fileId: string; AQuery : TReplieslistOptions) : TReplyList;
Var
_Q : String;
@@ -7248,31 +4401,16 @@ Var
begin
_Q:='';
AddToQuery(_Q,'includeDeleted',AQuery.includeDeleted);
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(commentId,fileId,_Q);
end;
-Function TRepliesResource.Patch(commentId: string; fileId: string; replyId: string; aCommentReply : TCommentReply) : TCommentReply;
+Function TRepliesResource.Update(commentId: string; fileId: string; replyId: string; aReply : TReply) : TReply;
Const
_HTTPMethod = 'PATCH';
_Path = 'files/{fileId}/comments/{commentId}/replies/{replyId}';
- _Methodid = 'drive.replies.patch';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['commentId',commentId,'fileId',fileId,'replyId',replyId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCommentReply,TCommentReply) as TCommentReply;
-end;
-
-Function TRepliesResource.Update(commentId: string; fileId: string; replyId: string; aCommentReply : TCommentReply) : TCommentReply;
-
-Const
- _HTTPMethod = 'PUT';
- _Path = 'files/{fileId}/comments/{commentId}/replies/{replyId}';
_Methodid = 'drive.replies.update';
Var
@@ -7280,7 +4418,7 @@ Var
begin
_P:=SubstitutePath(_Path,['commentId',commentId,'fileId',fileId,'replyId',replyId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCommentReply,TCommentReply) as TCommentReply;
+ Result:=ServiceCall(_HTTPMethod,_P,'',aReply,TReply) as TReply;
end;
@@ -7317,7 +4455,7 @@ begin
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;
-Function TRevisionsResource.Get(fileId: string; revisionId: string) : TRevision;
+Function TRevisionsResource.Get(fileId: string; revisionId: string; AQuery : string = '') : TRevision;
Const
_HTTPMethod = 'GET';
@@ -7329,43 +4467,40 @@ Var
begin
_P:=SubstitutePath(_Path,['fileId',fileId,'revisionId',revisionId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRevision) as TRevision;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TRevision) as TRevision;
end;
-Function TRevisionsResource.List(fileId: string) : TRevisionList;
-Const
- _HTTPMethod = 'GET';
- _Path = 'files/{fileId}/revisions';
- _Methodid = 'drive.revisions.list';
+Function TRevisionsResource.Get(fileId: string; revisionId: string; AQuery : TRevisionsgetOptions) : TRevision;
Var
- _P : String;
+ _Q : String;
begin
- _P:=SubstitutePath(_Path,['fileId',fileId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRevisionList) as TRevisionList;
+ _Q:='';
+ AddToQuery(_Q,'acknowledgeAbuse',AQuery.acknowledgeAbuse);
+ Result:=Get(fileId,revisionId,_Q);
end;
-Function TRevisionsResource.Patch(fileId: string; revisionId: string; aRevision : TRevision) : TRevision;
+Function TRevisionsResource.List(fileId: string) : TRevisionList;
Const
- _HTTPMethod = 'PATCH';
- _Path = 'files/{fileId}/revisions/{revisionId}';
- _Methodid = 'drive.revisions.patch';
+ _HTTPMethod = 'GET';
+ _Path = 'files/{fileId}/revisions';
+ _Methodid = 'drive.revisions.list';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['fileId',fileId,'revisionId',revisionId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aRevision,TRevision) as TRevision;
+ _P:=SubstitutePath(_Path,['fileId',fileId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRevisionList) as TRevisionList;
end;
Function TRevisionsResource.Update(fileId: string; revisionId: string; aRevision : TRevision) : TRevision;
Const
- _HTTPMethod = 'PUT';
+ _HTTPMethod = 'PATCH';
_Path = 'files/{fileId}/revisions/{revisionId}';
_Methodid = 'drive.revisions.update';
@@ -7392,19 +4527,19 @@ end;
Class Function TDriveAPI.APIVersion : String;
begin
- Result:='v2';
+ Result:='v3';
end;
Class Function TDriveAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160513';
end;
Class Function TDriveAPI.APIID : String;
begin
- Result:='drive:v2';
+ Result:='drive:v3';
end;
Class Function TDriveAPI.APITitle : String;
@@ -7416,7 +4551,7 @@ end;
Class Function TDriveAPI.APIDescription : String;
begin
- Result:='The API to interact with Drive.';
+ Result:='Manages files in Drive including uploading, downloading, searching, detecting changes, and updating sharing permissions.';
end;
Class Function TDriveAPI.APIOwnerDomain : String;
@@ -7452,19 +4587,19 @@ end;
Class Function TDriveAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TDriveAPI.APIbasePath : string;
begin
- Result:='/drive/v2/';
+ Result:='/drive/v3/';
end;
Class Function TDriveAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/drive/v2/';
+ Result:='https://www.googleapis.com/drive/v3/';
end;
Class Function TDriveAPI.APIProtocol : string;
@@ -7476,7 +4611,7 @@ end;
Class Function TDriveAPI.APIservicePath : string;
begin
- Result:='drive/v2/';
+ Result:='drive/v3/';
end;
Class Function TDriveAPI.APIbatchPath : String;
@@ -7493,14 +4628,14 @@ begin
Result[0].Description:='View and manage the files in your Google Drive';
Result[1].Name:='https://www.googleapis.com/auth/drive.appdata';
Result[1].Description:='View and manage its own configuration data in your Google Drive';
- Result[2].Name:='https://www.googleapis.com/auth/drive.apps.readonly';
- Result[2].Description:='View your Google Drive apps';
- Result[3].Name:='https://www.googleapis.com/auth/drive.file';
- Result[3].Description:='View and manage Google Drive files that you have opened or created with this app';
- Result[4].Name:='https://www.googleapis.com/auth/drive.metadata';
- Result[4].Description:='View and manage metadata of files in your Google Drive';
- Result[5].Name:='https://www.googleapis.com/auth/drive.metadata.readonly';
- Result[5].Description:='View metadata for files in your Google Drive';
+ Result[2].Name:='https://www.googleapis.com/auth/drive.file';
+ Result[2].Description:='View and manage Google Drive files and folders that you have opened or created with this app';
+ Result[3].Name:='https://www.googleapis.com/auth/drive.metadata';
+ Result[3].Description:='View and manage metadata of files in your Google Drive';
+ Result[4].Name:='https://www.googleapis.com/auth/drive.metadata.readonly';
+ Result[4].Description:='View metadata for files in your Google Drive';
+ Result[5].Name:='https://www.googleapis.com/auth/drive.photos.readonly';
+ Result[5].Description:='View the photos, videos and albums in your Google Photos';
Result[6].Name:='https://www.googleapis.com/auth/drive.readonly';
Result[6].Description:='View the files in your Google Drive';
Result[7].Name:='https://www.googleapis.com/auth/drive.scripts';
@@ -7517,49 +4652,36 @@ end;
Class Procedure TDriveAPI.RegisterAPIResources;
begin
- TAboutTypeadditionalRoleInfoItemTyperoleSetsItem.RegisterObject;
- TAboutTypeadditionalRoleInfoItem.RegisterObject;
- TAboutTypeexportFormatsItem.RegisterObject;
- TAboutTypefeaturesItem.RegisterObject;
- TAboutTypeimportFormatsItem.RegisterObject;
- TAboutTypemaxUploadSizesItem.RegisterObject;
- TAboutTypequotaBytesByServiceItem.RegisterObject;
+ TAboutTypeexportFormats.RegisterObject;
+ TAboutTypeimportFormats.RegisterObject;
+ TAboutTypemaxImportSizes.RegisterObject;
+ TAboutTypestorageQuota.RegisterObject;
TAbout.RegisterObject;
- TAppTypeiconsItem.RegisterObject;
- TApp.RegisterObject;
- TAppList.RegisterObject;
TChange.RegisterObject;
TChangeList.RegisterObject;
TChannelTypeparams.RegisterObject;
TChannel.RegisterObject;
- TChildList.RegisterObject;
- TChildReference.RegisterObject;
- TCommentTypecontext.RegisterObject;
+ TCommentTypequotedFileContent.RegisterObject;
TComment.RegisterObject;
TCommentList.RegisterObject;
- TCommentReply.RegisterObject;
- TCommentReplyList.RegisterObject;
- TFileTypeexportLinks.RegisterObject;
+ TFileTypeappProperties.RegisterObject;
+ TFileTypecapabilities.RegisterObject;
+ TFileTypecontentHintsTypethumbnail.RegisterObject;
+ TFileTypecontentHints.RegisterObject;
TFileTypeimageMediaMetadataTypelocation.RegisterObject;
TFileTypeimageMediaMetadata.RegisterObject;
- TFileTypeindexableText.RegisterObject;
- TFileTypelabels.RegisterObject;
- TFileTypeopenWithLinks.RegisterObject;
- TFileTypethumbnail.RegisterObject;
+ TFileTypeproperties.RegisterObject;
TFileTypevideoMediaMetadata.RegisterObject;
TFile.RegisterObject;
TFileList.RegisterObject;
- TParentList.RegisterObject;
- TParentReference.RegisterObject;
+ TGeneratedIds.RegisterObject;
TPermission.RegisterObject;
- TPermissionId.RegisterObject;
TPermissionList.RegisterObject;
- TProperty.RegisterObject;
- TPropertyList.RegisterObject;
- TRevisionTypeexportLinks.RegisterObject;
+ TReply.RegisterObject;
+ TReplyList.RegisterObject;
TRevision.RegisterObject;
TRevisionList.RegisterObject;
- TUserTypepicture.RegisterObject;
+ TStartPageToken.RegisterObject;
TUser.RegisterObject;
end;
@@ -7588,30 +4710,6 @@ end;
-Function TDriveAPI.GetAppsInstance : TAppsResource;
-
-begin
- if (FAppsInstance=Nil) then
- FAppsInstance:=CreateAppsResource;
- Result:=FAppsInstance;
-end;
-
-Function TDriveAPI.CreateAppsResource : TAppsResource;
-
-begin
- Result:=CreateAppsResource(Self);
-end;
-
-
-Function TDriveAPI.CreateAppsResource(AOwner : TComponent) : TAppsResource;
-
-begin
- Result:=TAppsResource.Create(AOwner);
- Result.API:=Self.API;
-end;
-
-
-
Function TDriveAPI.GetChangesInstance : TChangesResource;
begin
@@ -7660,30 +4758,6 @@ end;
-Function TDriveAPI.GetChildrenInstance : TChildrenResource;
-
-begin
- if (FChildrenInstance=Nil) then
- FChildrenInstance:=CreateChildrenResource;
- Result:=FChildrenInstance;
-end;
-
-Function TDriveAPI.CreateChildrenResource : TChildrenResource;
-
-begin
- Result:=CreateChildrenResource(Self);
-end;
-
-
-Function TDriveAPI.CreateChildrenResource(AOwner : TComponent) : TChildrenResource;
-
-begin
- Result:=TChildrenResource.Create(AOwner);
- Result.API:=Self.API;
-end;
-
-
-
Function TDriveAPI.GetCommentsInstance : TCommentsResource;
begin
@@ -7732,30 +4806,6 @@ end;
-Function TDriveAPI.GetParentsInstance : TParentsResource;
-
-begin
- if (FParentsInstance=Nil) then
- FParentsInstance:=CreateParentsResource;
- Result:=FParentsInstance;
-end;
-
-Function TDriveAPI.CreateParentsResource : TParentsResource;
-
-begin
- Result:=CreateParentsResource(Self);
-end;
-
-
-Function TDriveAPI.CreateParentsResource(AOwner : TComponent) : TParentsResource;
-
-begin
- Result:=TParentsResource.Create(AOwner);
- Result.API:=Self.API;
-end;
-
-
-
Function TDriveAPI.GetPermissionsInstance : TPermissionsResource;
begin
@@ -7780,54 +4830,6 @@ end;
-Function TDriveAPI.GetPropertiesInstance : TPropertiesResource;
-
-begin
- if (FPropertiesInstance=Nil) then
- FPropertiesInstance:=CreatePropertiesResource;
- Result:=FPropertiesInstance;
-end;
-
-Function TDriveAPI.CreatePropertiesResource : TPropertiesResource;
-
-begin
- Result:=CreatePropertiesResource(Self);
-end;
-
-
-Function TDriveAPI.CreatePropertiesResource(AOwner : TComponent) : TPropertiesResource;
-
-begin
- Result:=TPropertiesResource.Create(AOwner);
- Result.API:=Self.API;
-end;
-
-
-
-Function TDriveAPI.GetRealtimeInstance : TRealtimeResource;
-
-begin
- if (FRealtimeInstance=Nil) then
- FRealtimeInstance:=CreateRealtimeResource;
- Result:=FRealtimeInstance;
-end;
-
-Function TDriveAPI.CreateRealtimeResource : TRealtimeResource;
-
-begin
- Result:=CreateRealtimeResource(Self);
-end;
-
-
-Function TDriveAPI.CreateRealtimeResource(AOwner : TComponent) : TRealtimeResource;
-
-begin
- Result:=TRealtimeResource.Create(AOwner);
- Result.API:=Self.API;
-end;
-
-
-
Function TDriveAPI.GetRepliesInstance : TRepliesResource;
begin
diff --git a/packages/googleapi/src/googlefirebaserules.pp b/packages/googleapi/src/googlefirebaserules.pp
new file mode 100644
index 0000000000..2aa761e2f2
--- /dev/null
+++ b/packages/googleapi/src/googlefirebaserules.pp
@@ -0,0 +1,1244 @@
+unit googlefirebaserules;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TRelease = Class;
+ TSource = Class;
+ TSourcePosition = Class;
+ TTestRulesetResponse = Class;
+ TRuleset = Class;
+ TListReleasesResponse = Class;
+ TListRulesetsResponse = Class;
+ TEmpty = Class;
+ TFile = Class;
+ TTestRulesetRequest = Class;
+ TIssue = Class;
+ TReleaseArray = Array of TRelease;
+ TSourceArray = Array of TSource;
+ TSourcePositionArray = Array of TSourcePosition;
+ TTestRulesetResponseArray = Array of TTestRulesetResponse;
+ TRulesetArray = Array of TRuleset;
+ TListReleasesResponseArray = Array of TListReleasesResponse;
+ TListRulesetsResponseArray = Array of TListRulesetsResponse;
+ TEmptyArray = Array of TEmpty;
+ TFileArray = Array of TFile;
+ TTestRulesetRequestArray = Array of TTestRulesetRequest;
+ TIssueArray = Array of TIssue;
+ //Anonymous types, using auto-generated names
+ TSourceTypefilesArray = Array of TFile;
+ TTestRulesetResponseTypeissuesArray = Array of TIssue;
+ TListReleasesResponseTypereleasesArray = Array of TRelease;
+ TListRulesetsResponseTyperulesetsArray = Array of TRuleset;
+
+ { --------------------------------------------------------------------
+ TRelease
+ --------------------------------------------------------------------}
+
+ TRelease = Class(TGoogleBaseObject)
+ Private
+ FupdateTime : String;
+ FcreateTime : String;
+ Fname : String;
+ FrulesetName : String;
+ Protected
+ //Property setters
+ Procedure SetupdateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrulesetName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property updateTime : String Index 0 Read FupdateTime Write SetupdateTime;
+ Property createTime : String Index 8 Read FcreateTime Write SetcreateTime;
+ Property name : String Index 16 Read Fname Write Setname;
+ Property rulesetName : String Index 24 Read FrulesetName Write SetrulesetName;
+ end;
+ TReleaseClass = Class of TRelease;
+
+ { --------------------------------------------------------------------
+ TSource
+ --------------------------------------------------------------------}
+
+ TSource = Class(TGoogleBaseObject)
+ Private
+ Ffiles : TSourceTypefilesArray;
+ Protected
+ //Property setters
+ Procedure Setfiles(AIndex : Integer; const AValue : TSourceTypefilesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property files : TSourceTypefilesArray Index 0 Read Ffiles Write Setfiles;
+ end;
+ TSourceClass = Class of TSource;
+
+ { --------------------------------------------------------------------
+ TSourcePosition
+ --------------------------------------------------------------------}
+
+ TSourcePosition = Class(TGoogleBaseObject)
+ Private
+ FfileName : String;
+ Fcolumn : integer;
+ Fline : integer;
+ Protected
+ //Property setters
+ Procedure SetfileName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcolumn(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setline(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property fileName : String Index 0 Read FfileName Write SetfileName;
+ Property column : integer Index 8 Read Fcolumn Write Setcolumn;
+ Property line : integer Index 16 Read Fline Write Setline;
+ end;
+ TSourcePositionClass = Class of TSourcePosition;
+
+ { --------------------------------------------------------------------
+ TTestRulesetResponse
+ --------------------------------------------------------------------}
+
+ TTestRulesetResponse = Class(TGoogleBaseObject)
+ Private
+ Fissues : TTestRulesetResponseTypeissuesArray;
+ Protected
+ //Property setters
+ Procedure Setissues(AIndex : Integer; const AValue : TTestRulesetResponseTypeissuesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property issues : TTestRulesetResponseTypeissuesArray Index 0 Read Fissues Write Setissues;
+ end;
+ TTestRulesetResponseClass = Class of TTestRulesetResponse;
+
+ { --------------------------------------------------------------------
+ TRuleset
+ --------------------------------------------------------------------}
+
+ TRuleset = Class(TGoogleBaseObject)
+ Private
+ Fsource : TSource;
+ FcreateTime : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure Setsource(AIndex : Integer; const AValue : TSource); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property source : TSource Index 0 Read Fsource Write Setsource;
+ Property createTime : String Index 8 Read FcreateTime Write SetcreateTime;
+ Property name : String Index 16 Read Fname Write Setname;
+ end;
+ TRulesetClass = Class of TRuleset;
+
+ { --------------------------------------------------------------------
+ TListReleasesResponse
+ --------------------------------------------------------------------}
+
+ TListReleasesResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ Freleases : TListReleasesResponseTypereleasesArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setreleases(AIndex : Integer; const AValue : TListReleasesResponseTypereleasesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property releases : TListReleasesResponseTypereleasesArray Index 8 Read Freleases Write Setreleases;
+ end;
+ TListReleasesResponseClass = Class of TListReleasesResponse;
+
+ { --------------------------------------------------------------------
+ TListRulesetsResponse
+ --------------------------------------------------------------------}
+
+ TListRulesetsResponse = Class(TGoogleBaseObject)
+ Private
+ Frulesets : TListRulesetsResponseTyperulesetsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setrulesets(AIndex : Integer; const AValue : TListRulesetsResponseTyperulesetsArray); 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 rulesets : TListRulesetsResponseTyperulesetsArray Index 0 Read Frulesets Write Setrulesets;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListRulesetsResponseClass = Class of TListRulesetsResponse;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TFile
+ --------------------------------------------------------------------}
+
+ TFile = Class(TGoogleBaseObject)
+ Private
+ Fcontent : String;
+ Fname : String;
+ Ffingerprint : String;
+ Protected
+ //Property setters
+ Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property content : String Index 0 Read Fcontent Write Setcontent;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property fingerprint : String Index 16 Read Ffingerprint Write Setfingerprint;
+ end;
+ TFileClass = Class of TFile;
+
+ { --------------------------------------------------------------------
+ TTestRulesetRequest
+ --------------------------------------------------------------------}
+
+ TTestRulesetRequest = Class(TGoogleBaseObject)
+ Private
+ Fsource : TSource;
+ Protected
+ //Property setters
+ Procedure Setsource(AIndex : Integer; const AValue : TSource); virtual;
+ Public
+ Published
+ Property source : TSource Index 0 Read Fsource Write Setsource;
+ end;
+ TTestRulesetRequestClass = Class of TTestRulesetRequest;
+
+ { --------------------------------------------------------------------
+ TIssue
+ --------------------------------------------------------------------}
+
+ TIssue = Class(TGoogleBaseObject)
+ Private
+ Fdescription : String;
+ Fseverity : String;
+ FsourcePosition : TSourcePosition;
+ Protected
+ //Property setters
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setseverity(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourcePosition(AIndex : Integer; const AValue : TSourcePosition); virtual;
+ Public
+ Published
+ Property description : String Index 0 Read Fdescription Write Setdescription;
+ Property severity : String Index 8 Read Fseverity Write Setseverity;
+ Property sourcePosition : TSourcePosition Index 16 Read FsourcePosition Write SetsourcePosition;
+ end;
+ TIssueClass = Class of TIssue;
+
+ { --------------------------------------------------------------------
+ TProjectsRulesetsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsRulesetsResource, method List
+
+ TProjectsRulesetsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsRulesetsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(_name: string; aRuleset : TRuleset) : TRuleset;overload;
+ Function Get(_name: string) : TRuleset;
+ Function List(_name: string; AQuery : string = '') : TListRulesetsResponse;
+ Function List(_name: string; AQuery : TProjectsRulesetslistOptions) : TListRulesetsResponse;
+ Function Delete(_name: string) : TEmpty;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsReleasesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsReleasesResource, method List
+
+ TProjectsReleasesListOptions = Record
+ pageSize : integer;
+ filter : String;
+ pageToken : String;
+ end;
+
+ TProjectsReleasesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Update(_name: string; aRelease : TRelease) : TRelease;
+ Function Create(_name: string; aRelease : TRelease) : TRelease;overload;
+ Function Get(_name: string) : TRelease;
+ Function List(_name: string; AQuery : string = '') : TListReleasesResponse;
+ Function List(_name: string; AQuery : TProjectsReleaseslistOptions) : TListReleasesResponse;
+ Function Delete(_name: string) : TEmpty;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+ TProjectsResource = Class(TGoogleResource)
+ Private
+ FRulesetsInstance : TProjectsRulesetsResource;
+ FReleasesInstance : TProjectsReleasesResource;
+ Function GetRulesetsInstance : TProjectsRulesetsResource;virtual;
+ Function GetReleasesInstance : TProjectsReleasesResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Test(_name: string; aTestRulesetRequest : TTestRulesetRequest) : TTestRulesetResponse;
+ Function CreateRulesetsResource(AOwner : TComponent) : TProjectsRulesetsResource;virtual;overload;
+ Function CreateRulesetsResource : TProjectsRulesetsResource;virtual;overload;
+ Function CreateReleasesResource(AOwner : TComponent) : TProjectsReleasesResource;virtual;overload;
+ Function CreateReleasesResource : TProjectsReleasesResource;virtual;overload;
+ Property RulesetsResource : TProjectsRulesetsResource Read GetRulesetsInstance;
+ Property ReleasesResource : TProjectsReleasesResource Read GetReleasesInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TFirebaserulesAPI
+ --------------------------------------------------------------------}
+
+ TFirebaserulesAPI = Class(TGoogleAPI)
+ Private
+ FProjectsRulesetsInstance : TProjectsRulesetsResource;
+ FProjectsReleasesInstance : TProjectsReleasesResource;
+ FProjectsInstance : TProjectsResource;
+ Function GetProjectsRulesetsInstance : TProjectsRulesetsResource;virtual;
+ Function GetProjectsReleasesInstance : TProjectsReleasesResource;virtual;
+ Function GetProjectsInstance : TProjectsResource;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 CreateProjectsRulesetsResource(AOwner : TComponent) : TProjectsRulesetsResource;virtual;overload;
+ Function CreateProjectsRulesetsResource : TProjectsRulesetsResource;virtual;overload;
+ Function CreateProjectsReleasesResource(AOwner : TComponent) : TProjectsReleasesResource;virtual;overload;
+ Function CreateProjectsReleasesResource : TProjectsReleasesResource;virtual;overload;
+ Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ProjectsRulesetsResource : TProjectsRulesetsResource Read GetProjectsRulesetsInstance;
+ Property ProjectsReleasesResource : TProjectsReleasesResource Read GetProjectsReleasesInstance;
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TRelease
+ --------------------------------------------------------------------}
+
+
+Procedure TRelease.SetupdateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdateTime=AValue) then exit;
+ FupdateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRelease.SetcreateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRelease.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRelease.SetrulesetName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrulesetName=AValue) then exit;
+ FrulesetName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSource
+ --------------------------------------------------------------------}
+
+
+Procedure TSource.Setfiles(AIndex : Integer; const AValue : TSourceTypefilesArray);
+
+begin
+ If (Ffiles=AValue) then exit;
+ Ffiles:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSource.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'files' : SetLength(Ffiles,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSourcePosition
+ --------------------------------------------------------------------}
+
+
+Procedure TSourcePosition.SetfileName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfileName=AValue) then exit;
+ FfileName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourcePosition.Setcolumn(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fcolumn=AValue) then exit;
+ Fcolumn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourcePosition.Setline(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fline=AValue) then exit;
+ Fline:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestRulesetResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TTestRulesetResponse.Setissues(AIndex : Integer; const AValue : TTestRulesetResponseTypeissuesArray);
+
+begin
+ If (Fissues=AValue) then exit;
+ Fissues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestRulesetResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'issues' : SetLength(Fissues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TRuleset
+ --------------------------------------------------------------------}
+
+
+Procedure TRuleset.Setsource(AIndex : Integer; const AValue : TSource);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRuleset.SetcreateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRuleset.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListReleasesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListReleasesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListReleasesResponse.Setreleases(AIndex : Integer; const AValue : TListReleasesResponseTypereleasesArray);
+
+begin
+ If (Freleases=AValue) then exit;
+ Freleases:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListReleasesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'releases' : SetLength(Freleases,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListRulesetsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListRulesetsResponse.Setrulesets(AIndex : Integer; const AValue : TListRulesetsResponseTyperulesetsArray);
+
+begin
+ If (Frulesets=AValue) then exit;
+ Frulesets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListRulesetsResponse.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 TListRulesetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'rulesets' : SetLength(Frulesets,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TFile
+ --------------------------------------------------------------------}
+
+
+Procedure TFile.Setcontent(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcontent=AValue) then exit;
+ Fcontent:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFile.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFile.Setfingerprint(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffingerprint=AValue) then exit;
+ Ffingerprint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestRulesetRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TTestRulesetRequest.Setsource(AIndex : Integer; const AValue : TSource);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TIssue
+ --------------------------------------------------------------------}
+
+
+Procedure TIssue.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIssue.Setseverity(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fseverity=AValue) then exit;
+ Fseverity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIssue.SetsourcePosition(AIndex : Integer; const AValue : TSourcePosition);
+
+begin
+ If (FsourcePosition=AValue) then exit;
+ FsourcePosition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsRulesetsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsRulesetsResource.ResourceName : String;
+
+begin
+ Result:='rulesets';
+end;
+
+Class Function TProjectsRulesetsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TfirebaserulesAPI;
+end;
+
+Function TProjectsRulesetsResource.Create(_name: string; aRuleset : TRuleset) : TRuleset;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+name}/rulesets';
+ _Methodid = 'firebaserules.projects.rulesets.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aRuleset,TRuleset) as TRuleset;
+end;
+
+Function TProjectsRulesetsResource.Get(_name: string) : TRuleset;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'firebaserules.projects.rulesets.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRuleset) as TRuleset;
+end;
+
+Function TProjectsRulesetsResource.List(_name: string; AQuery : string = '') : TListRulesetsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}/rulesets';
+ _Methodid = 'firebaserules.projects.rulesets.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListRulesetsResponse) as TListRulesetsResponse;
+end;
+
+
+Function TProjectsRulesetsResource.List(_name: string; AQuery : TProjectsRulesetslistOptions) : TListRulesetsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
+end;
+
+Function TProjectsRulesetsResource.Delete(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/{+name}';
+ _Methodid = 'firebaserules.projects.rulesets.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsReleasesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsReleasesResource.ResourceName : String;
+
+begin
+ Result:='releases';
+end;
+
+Class Function TProjectsReleasesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TfirebaserulesAPI;
+end;
+
+Function TProjectsReleasesResource.Update(_name: string; aRelease : TRelease) : TRelease;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v1/{+name}';
+ _Methodid = 'firebaserules.projects.releases.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aRelease,TRelease) as TRelease;
+end;
+
+Function TProjectsReleasesResource.Create(_name: string; aRelease : TRelease) : TRelease;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+name}/releases';
+ _Methodid = 'firebaserules.projects.releases.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aRelease,TRelease) as TRelease;
+end;
+
+Function TProjectsReleasesResource.Get(_name: string) : TRelease;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'firebaserules.projects.releases.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRelease) as TRelease;
+end;
+
+Function TProjectsReleasesResource.List(_name: string; AQuery : string = '') : TListReleasesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}/releases';
+ _Methodid = 'firebaserules.projects.releases.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListReleasesResponse) as TListReleasesResponse;
+end;
+
+
+Function TProjectsReleasesResource.List(_name: string; AQuery : TProjectsReleaseslistOptions) : TListReleasesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
+end;
+
+Function TProjectsReleasesResource.Delete(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/{+name}';
+ _Methodid = 'firebaserules.projects.releases.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TfirebaserulesAPI;
+end;
+
+Function TProjectsResource.Test(_name: string; aTestRulesetRequest : TTestRulesetRequest) : TTestRulesetResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+name}:test';
+ _Methodid = 'firebaserules.projects.test';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTestRulesetRequest,TTestRulesetResponse) as TTestRulesetResponse;
+end;
+
+
+
+Function TProjectsResource.GetRulesetsInstance : TProjectsRulesetsResource;
+
+begin
+ if (FRulesetsInstance=Nil) then
+ FRulesetsInstance:=CreateRulesetsResource;
+ Result:=FRulesetsInstance;
+end;
+
+Function TProjectsResource.CreateRulesetsResource : TProjectsRulesetsResource;
+
+begin
+ Result:=CreateRulesetsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateRulesetsResource(AOwner : TComponent) : TProjectsRulesetsResource;
+
+begin
+ Result:=TProjectsRulesetsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetReleasesInstance : TProjectsReleasesResource;
+
+begin
+ if (FReleasesInstance=Nil) then
+ FReleasesInstance:=CreateReleasesResource;
+ Result:=FReleasesInstance;
+end;
+
+Function TProjectsResource.CreateReleasesResource : TProjectsReleasesResource;
+
+begin
+ Result:=CreateReleasesResource(Self);
+end;
+
+
+Function TProjectsResource.CreateReleasesResource(AOwner : TComponent) : TProjectsReleasesResource;
+
+begin
+ Result:=TProjectsReleasesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TFirebaserulesAPI
+ --------------------------------------------------------------------}
+
+Class Function TFirebaserulesAPI.APIName : String;
+
+begin
+ Result:='firebaserules';
+end;
+
+Class Function TFirebaserulesAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TFirebaserulesAPI.APIRevision : String;
+
+begin
+ Result:='20160517';
+end;
+
+Class Function TFirebaserulesAPI.APIID : String;
+
+begin
+ Result:='firebaserules:v1';
+end;
+
+Class Function TFirebaserulesAPI.APITitle : String;
+
+begin
+ Result:='Firebase Rules API';
+end;
+
+Class Function TFirebaserulesAPI.APIDescription : String;
+
+begin
+ Result:='Creates and manages rules that determine when a Firebase Rules-enabled service should permit a request.';
+end;
+
+Class Function TFirebaserulesAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TFirebaserulesAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TFirebaserulesAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TFirebaserulesAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TFirebaserulesAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://firebase.google.com/docs/storage/security/start';
+end;
+
+Class Function TFirebaserulesAPI.APIrootUrl : string;
+
+begin
+ Result:='https://firebaserules.googleapis.com/';
+end;
+
+Class Function TFirebaserulesAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TFirebaserulesAPI.APIbaseURL : String;
+
+begin
+ Result:='https://firebaserules.googleapis.com/';
+end;
+
+Class Function TFirebaserulesAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TFirebaserulesAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TFirebaserulesAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TFirebaserulesAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+
+end;
+
+Class Function TFirebaserulesAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TFirebaserulesAPI.RegisterAPIResources;
+
+begin
+ TRelease.RegisterObject;
+ TSource.RegisterObject;
+ TSourcePosition.RegisterObject;
+ TTestRulesetResponse.RegisterObject;
+ TRuleset.RegisterObject;
+ TListReleasesResponse.RegisterObject;
+ TListRulesetsResponse.RegisterObject;
+ TEmpty.RegisterObject;
+ TFile.RegisterObject;
+ TTestRulesetRequest.RegisterObject;
+ TIssue.RegisterObject;
+end;
+
+
+Function TFirebaserulesAPI.GetProjectsRulesetsInstance : TProjectsRulesetsResource;
+
+begin
+ if (FProjectsRulesetsInstance=Nil) then
+ FProjectsRulesetsInstance:=CreateProjectsRulesetsResource;
+ Result:=FProjectsRulesetsInstance;
+end;
+
+Function TFirebaserulesAPI.CreateProjectsRulesetsResource : TProjectsRulesetsResource;
+
+begin
+ Result:=CreateProjectsRulesetsResource(Self);
+end;
+
+
+Function TFirebaserulesAPI.CreateProjectsRulesetsResource(AOwner : TComponent) : TProjectsRulesetsResource;
+
+begin
+ Result:=TProjectsRulesetsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TFirebaserulesAPI.GetProjectsReleasesInstance : TProjectsReleasesResource;
+
+begin
+ if (FProjectsReleasesInstance=Nil) then
+ FProjectsReleasesInstance:=CreateProjectsReleasesResource;
+ Result:=FProjectsReleasesInstance;
+end;
+
+Function TFirebaserulesAPI.CreateProjectsReleasesResource : TProjectsReleasesResource;
+
+begin
+ Result:=CreateProjectsReleasesResource(Self);
+end;
+
+
+Function TFirebaserulesAPI.CreateProjectsReleasesResource(AOwner : TComponent) : TProjectsReleasesResource;
+
+begin
+ Result:=TProjectsReleasesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TFirebaserulesAPI.GetProjectsInstance : TProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TFirebaserulesAPI.CreateProjectsResource : TProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TFirebaserulesAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+
+begin
+ Result:=TProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TFirebaserulesAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlefitness.pp b/packages/googleapi/src/googlefitness.pp
index 805de4f0d3..d2b8ee0e91 100644
--- a/packages/googleapi/src/googlefitness.pp
+++ b/packages/googleapi/src/googlefitness.pp
@@ -1,19 +1,4 @@
unit googlefitness;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:03
{$MODE objfpc}
{$H+}
@@ -24,7 +9,14 @@ uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
+ TAggregateBucket = Class;
+ TAggregateBy = Class;
+ TAggregateRequest = Class;
+ TAggregateResponse = Class;
TApplication = Class;
+ TBucketByActivity = Class;
+ TBucketBySession = Class;
+ TBucketByTime = Class;
TDataPoint = Class;
TDataSource = Class;
TDataType = Class;
@@ -33,9 +25,18 @@ type
TDevice = Class;
TListDataSourcesResponse = Class;
TListSessionsResponse = Class;
+ TMapValue = Class;
TSession = Class;
TValue = Class;
+ TValueMapValEntry = Class;
+ TAggregateBucketArray = Array of TAggregateBucket;
+ TAggregateByArray = Array of TAggregateBy;
+ TAggregateRequestArray = Array of TAggregateRequest;
+ TAggregateResponseArray = Array of TAggregateResponse;
TApplicationArray = Array of TApplication;
+ TBucketByActivityArray = Array of TBucketByActivity;
+ TBucketBySessionArray = Array of TBucketBySession;
+ TBucketByTimeArray = Array of TBucketByTime;
TDataPointArray = Array of TDataPoint;
TDataSourceArray = Array of TDataSource;
TDataTypeArray = Array of TDataType;
@@ -44,15 +45,134 @@ type
TDeviceArray = Array of TDevice;
TListDataSourcesResponseArray = Array of TListDataSourcesResponse;
TListSessionsResponseArray = Array of TListSessionsResponse;
+ TMapValueArray = Array of TMapValue;
TSessionArray = Array of TSession;
TValueArray = Array of TValue;
+ TValueMapValEntryArray = Array of TValueMapValEntry;
//Anonymous types, using auto-generated names
+ TAggregateBucketTypedatasetArray = Array of TDataset;
+ TAggregateRequestTypeaggregateByArray = Array of TAggregateBy;
+ TAggregateResponseTypebucketArray = Array of TAggregateBucket;
TDataPointTypevalueArray = Array of TValue;
TDataTypeTypefieldArray = Array of TDataTypeField;
TDatasetTypepointArray = Array of TDataPoint;
TListDataSourcesResponseTypedataSourceArray = Array of TDataSource;
TListSessionsResponseTypedeletedSessionArray = Array of TSession;
TListSessionsResponseTypesessionArray = Array of TSession;
+ TValueTypemapValArray = Array of TValueMapValEntry;
+
+ { --------------------------------------------------------------------
+ TAggregateBucket
+ --------------------------------------------------------------------}
+
+ TAggregateBucket = Class(TGoogleBaseObject)
+ Private
+ Factivity : integer;
+ Fdataset : TAggregateBucketTypedatasetArray;
+ FendTimeMillis : String;
+ Fsession : TSession;
+ FstartTimeMillis : String;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setactivity(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdataset(AIndex : Integer; const AValue : TAggregateBucketTypedatasetArray); virtual;
+ Procedure SetendTimeMillis(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsession(AIndex : Integer; const AValue : TSession); virtual;
+ Procedure SetstartTimeMillis(AIndex : Integer; const AValue : String); 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 activity : integer Index 0 Read Factivity Write Setactivity;
+ Property dataset : TAggregateBucketTypedatasetArray Index 8 Read Fdataset Write Setdataset;
+ Property endTimeMillis : String Index 16 Read FendTimeMillis Write SetendTimeMillis;
+ Property session : TSession Index 24 Read Fsession Write Setsession;
+ Property startTimeMillis : String Index 32 Read FstartTimeMillis Write SetstartTimeMillis;
+ Property _type : String Index 40 Read F_type Write Set_type;
+ end;
+ TAggregateBucketClass = Class of TAggregateBucket;
+
+ { --------------------------------------------------------------------
+ TAggregateBy
+ --------------------------------------------------------------------}
+
+ TAggregateBy = Class(TGoogleBaseObject)
+ Private
+ FdataSourceId : String;
+ FdataTypeName : String;
+ Protected
+ //Property setters
+ Procedure SetdataSourceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdataTypeName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property dataSourceId : String Index 0 Read FdataSourceId Write SetdataSourceId;
+ Property dataTypeName : String Index 8 Read FdataTypeName Write SetdataTypeName;
+ end;
+ TAggregateByClass = Class of TAggregateBy;
+
+ { --------------------------------------------------------------------
+ TAggregateRequest
+ --------------------------------------------------------------------}
+
+ TAggregateRequest = Class(TGoogleBaseObject)
+ Private
+ FaggregateBy : TAggregateRequestTypeaggregateByArray;
+ FbucketByActivitySegment : TBucketByActivity;
+ FbucketByActivityType : TBucketByActivity;
+ FbucketBySession : TBucketBySession;
+ FbucketByTime : TBucketByTime;
+ FendTimeMillis : String;
+ FstartTimeMillis : String;
+ Protected
+ //Property setters
+ Procedure SetaggregateBy(AIndex : Integer; const AValue : TAggregateRequestTypeaggregateByArray); virtual;
+ Procedure SetbucketByActivitySegment(AIndex : Integer; const AValue : TBucketByActivity); virtual;
+ Procedure SetbucketByActivityType(AIndex : Integer; const AValue : TBucketByActivity); virtual;
+ Procedure SetbucketBySession(AIndex : Integer; const AValue : TBucketBySession); virtual;
+ Procedure SetbucketByTime(AIndex : Integer; const AValue : TBucketByTime); virtual;
+ Procedure SetendTimeMillis(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartTimeMillis(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 aggregateBy : TAggregateRequestTypeaggregateByArray Index 0 Read FaggregateBy Write SetaggregateBy;
+ Property bucketByActivitySegment : TBucketByActivity Index 8 Read FbucketByActivitySegment Write SetbucketByActivitySegment;
+ Property bucketByActivityType : TBucketByActivity Index 16 Read FbucketByActivityType Write SetbucketByActivityType;
+ Property bucketBySession : TBucketBySession Index 24 Read FbucketBySession Write SetbucketBySession;
+ Property bucketByTime : TBucketByTime Index 32 Read FbucketByTime Write SetbucketByTime;
+ Property endTimeMillis : String Index 40 Read FendTimeMillis Write SetendTimeMillis;
+ Property startTimeMillis : String Index 48 Read FstartTimeMillis Write SetstartTimeMillis;
+ end;
+ TAggregateRequestClass = Class of TAggregateRequest;
+
+ { --------------------------------------------------------------------
+ TAggregateResponse
+ --------------------------------------------------------------------}
+
+ TAggregateResponse = Class(TGoogleBaseObject)
+ Private
+ Fbucket : TAggregateResponseTypebucketArray;
+ Protected
+ //Property setters
+ Procedure Setbucket(AIndex : Integer; const AValue : TAggregateResponseTypebucketArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property bucket : TAggregateResponseTypebucketArray Index 0 Read Fbucket Write Setbucket;
+ end;
+ TAggregateResponseClass = Class of TAggregateResponse;
{ --------------------------------------------------------------------
TApplication
@@ -80,6 +200,57 @@ type
TApplicationClass = Class of TApplication;
{ --------------------------------------------------------------------
+ TBucketByActivity
+ --------------------------------------------------------------------}
+
+ TBucketByActivity = Class(TGoogleBaseObject)
+ Private
+ FactivityDataSourceId : String;
+ FminDurationMillis : String;
+ Protected
+ //Property setters
+ Procedure SetactivityDataSourceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetminDurationMillis(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property activityDataSourceId : String Index 0 Read FactivityDataSourceId Write SetactivityDataSourceId;
+ Property minDurationMillis : String Index 8 Read FminDurationMillis Write SetminDurationMillis;
+ end;
+ TBucketByActivityClass = Class of TBucketByActivity;
+
+ { --------------------------------------------------------------------
+ TBucketBySession
+ --------------------------------------------------------------------}
+
+ TBucketBySession = Class(TGoogleBaseObject)
+ Private
+ FminDurationMillis : String;
+ Protected
+ //Property setters
+ Procedure SetminDurationMillis(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property minDurationMillis : String Index 0 Read FminDurationMillis Write SetminDurationMillis;
+ end;
+ TBucketBySessionClass = Class of TBucketBySession;
+
+ { --------------------------------------------------------------------
+ TBucketByTime
+ --------------------------------------------------------------------}
+
+ TBucketByTime = Class(TGoogleBaseObject)
+ Private
+ FdurationMillis : String;
+ Protected
+ //Property setters
+ Procedure SetdurationMillis(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property durationMillis : String Index 0 Read FdurationMillis Write SetdurationMillis;
+ end;
+ TBucketByTimeClass = Class of TBucketByTime;
+
+ { --------------------------------------------------------------------
TDataPoint
--------------------------------------------------------------------}
@@ -102,7 +273,7 @@ type
Procedure SetoriginDataSourceId(AIndex : Integer; const AValue : String); virtual;
Procedure SetrawTimestampNanos(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTimeNanos(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; AValue : TDataPointTypevalueArray); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : TDataPointTypevalueArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -136,11 +307,11 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setapplication(AIndex : Integer; AValue : TApplication); virtual;
+ Procedure Setapplication(AIndex : Integer; const AValue : TApplication); virtual;
Procedure SetdataStreamId(AIndex : Integer; const AValue : String); virtual;
Procedure SetdataStreamName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdataType(AIndex : Integer; AValue : TDataType); virtual;
- Procedure Setdevice(AIndex : Integer; AValue : TDevice); virtual;
+ Procedure SetdataType(AIndex : Integer; const AValue : TDataType); virtual;
+ Procedure Setdevice(AIndex : Integer; const AValue : TDevice); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
@@ -165,7 +336,7 @@ type
Fname : String;
Protected
//Property setters
- Procedure Setfield(AIndex : Integer; AValue : TDataTypeTypefieldArray); virtual;
+ Procedure Setfield(AIndex : Integer; const AValue : TDataTypeTypefieldArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -191,7 +362,7 @@ type
//Property setters
Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setoptional(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setoptional(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property format : String Index 0 Read Fformat Write Setformat;
@@ -217,7 +388,7 @@ type
Procedure SetmaxEndTimeNs(AIndex : Integer; const AValue : String); virtual;
Procedure SetminStartTimeNs(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpoint(AIndex : Integer; AValue : TDatasetTypepointArray); virtual;
+ Procedure Setpoint(AIndex : Integer; const AValue : TDatasetTypepointArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -270,7 +441,7 @@ type
FdataSource : TListDataSourcesResponseTypedataSourceArray;
Protected
//Property setters
- Procedure SetdataSource(AIndex : Integer; AValue : TListDataSourcesResponseTypedataSourceArray); virtual;
+ Procedure SetdataSource(AIndex : Integer; const AValue : TListDataSourcesResponseTypedataSourceArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -292,9 +463,9 @@ type
Fsession : TListSessionsResponseTypesessionArray;
Protected
//Property setters
- Procedure SetdeletedSession(AIndex : Integer; AValue : TListSessionsResponseTypedeletedSessionArray); virtual;
+ Procedure SetdeletedSession(AIndex : Integer; const AValue : TListSessionsResponseTypedeletedSessionArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsession(AIndex : Integer; AValue : TListSessionsResponseTypesessionArray); virtual;
+ Procedure Setsession(AIndex : Integer; const AValue : TListSessionsResponseTypesessionArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -308,6 +479,22 @@ type
TListSessionsResponseClass = Class of TListSessionsResponse;
{ --------------------------------------------------------------------
+ TMapValue
+ --------------------------------------------------------------------}
+
+ TMapValue = Class(TGoogleBaseObject)
+ Private
+ FfpVal : double;
+ Protected
+ //Property setters
+ Procedure SetfpVal(AIndex : Integer; const AValue : double); virtual;
+ Public
+ Published
+ Property fpVal : double Index 0 Read FfpVal Write SetfpVal;
+ end;
+ TMapValueClass = Class of TMapValue;
+
+ { --------------------------------------------------------------------
TSession
--------------------------------------------------------------------}
@@ -325,8 +512,8 @@ type
Protected
//Property setters
Procedure SetactiveTimeMillis(AIndex : Integer; const AValue : String); virtual;
- Procedure SetactivityType(AIndex : Integer; AValue : integer); virtual;
- Procedure Setapplication(AIndex : Integer; AValue : TApplication); virtual;
+ Procedure SetactivityType(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setapplication(AIndex : Integer; const AValue : TApplication); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTimeMillis(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
@@ -355,18 +542,47 @@ type
Private
FfpVal : double;
FintVal : integer;
+ FmapVal : TValueTypemapValArray;
+ FstringVal : String;
Protected
//Property setters
- Procedure SetfpVal(AIndex : Integer; AValue : double); virtual;
- Procedure SetintVal(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetfpVal(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetintVal(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmapVal(AIndex : Integer; const AValue : TValueTypemapValArray); virtual;
+ Procedure SetstringVal(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 fpVal : double Index 0 Read FfpVal Write SetfpVal;
Property intVal : integer Index 8 Read FintVal Write SetintVal;
+ Property mapVal : TValueTypemapValArray Index 16 Read FmapVal Write SetmapVal;
+ Property stringVal : String Index 24 Read FstringVal Write SetstringVal;
end;
TValueClass = Class of TValue;
{ --------------------------------------------------------------------
+ TValueMapValEntry
+ --------------------------------------------------------------------}
+
+ TValueMapValEntry = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : TMapValue;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : TMapValue); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : TMapValue Index 8 Read Fvalue Write Setvalue;
+ end;
+ TValueMapValEntryClass = Class of TValueMapValEntry;
+
+ { --------------------------------------------------------------------
TUsersDataSourcesDatasetsResource
--------------------------------------------------------------------}
@@ -438,6 +654,18 @@ type
{ --------------------------------------------------------------------
+ TUsersDatasetResource
+ --------------------------------------------------------------------}
+
+ TUsersDatasetResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Aggregate(userId: string; aAggregateRequest : TAggregateRequest) : TAggregateResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
TUsersSessionsResource
--------------------------------------------------------------------}
@@ -486,9 +714,11 @@ type
Private
FDataSourcesDatasetsInstance : TUsersDataSourcesDatasetsResource;
FDataSourcesInstance : TUsersDataSourcesResource;
+ FDatasetInstance : TUsersDatasetResource;
FSessionsInstance : TUsersSessionsResource;
Function GetDataSourcesDatasetsInstance : TUsersDataSourcesDatasetsResource;virtual;
Function GetDataSourcesInstance : TUsersDataSourcesResource;virtual;
+ Function GetDatasetInstance : TUsersDatasetResource;virtual;
Function GetSessionsInstance : TUsersSessionsResource;virtual;
Public
Class Function ResourceName : String; override;
@@ -497,10 +727,13 @@ type
Function CreateDataSourcesDatasetsResource : TUsersDataSourcesDatasetsResource;virtual;overload;
Function CreateDataSourcesResource(AOwner : TComponent) : TUsersDataSourcesResource;virtual;overload;
Function CreateDataSourcesResource : TUsersDataSourcesResource;virtual;overload;
+ Function CreateDatasetResource(AOwner : TComponent) : TUsersDatasetResource;virtual;overload;
+ Function CreateDatasetResource : TUsersDatasetResource;virtual;overload;
Function CreateSessionsResource(AOwner : TComponent) : TUsersSessionsResource;virtual;overload;
Function CreateSessionsResource : TUsersSessionsResource;virtual;overload;
Property DataSourcesDatasetsResource : TUsersDataSourcesDatasetsResource Read GetDataSourcesDatasetsInstance;
Property DataSourcesResource : TUsersDataSourcesResource Read GetDataSourcesInstance;
+ Property DatasetResource : TUsersDatasetResource Read GetDatasetInstance;
Property SessionsResource : TUsersSessionsResource Read GetSessionsInstance;
end;
@@ -513,10 +746,12 @@ type
Private
FUsersDataSourcesDatasetsInstance : TUsersDataSourcesDatasetsResource;
FUsersDataSourcesInstance : TUsersDataSourcesResource;
+ FUsersDatasetInstance : TUsersDatasetResource;
FUsersSessionsInstance : TUsersSessionsResource;
FUsersInstance : TUsersResource;
Function GetUsersDataSourcesDatasetsInstance : TUsersDataSourcesDatasetsResource;virtual;
Function GetUsersDataSourcesInstance : TUsersDataSourcesResource;virtual;
+ Function GetUsersDatasetInstance : TUsersDatasetResource;virtual;
Function GetUsersSessionsInstance : TUsersSessionsResource;virtual;
Function GetUsersInstance : TUsersResource;virtual;
Public
@@ -546,6 +781,8 @@ type
Function CreateUsersDataSourcesDatasetsResource : TUsersDataSourcesDatasetsResource;virtual;overload;
Function CreateUsersDataSourcesResource(AOwner : TComponent) : TUsersDataSourcesResource;virtual;overload;
Function CreateUsersDataSourcesResource : TUsersDataSourcesResource;virtual;overload;
+ Function CreateUsersDatasetResource(AOwner : TComponent) : TUsersDatasetResource;virtual;overload;
+ Function CreateUsersDatasetResource : TUsersDatasetResource;virtual;overload;
Function CreateUsersSessionsResource(AOwner : TComponent) : TUsersSessionsResource;virtual;overload;
Function CreateUsersSessionsResource : TUsersSessionsResource;virtual;overload;
Function CreateUsersResource(AOwner : TComponent) : TUsersResource;virtual;overload;
@@ -553,6 +790,7 @@ type
//Add default on-demand instances for resources
Property UsersDataSourcesDatasetsResource : TUsersDataSourcesDatasetsResource Read GetUsersDataSourcesDatasetsInstance;
Property UsersDataSourcesResource : TUsersDataSourcesResource Read GetUsersDataSourcesInstance;
+ Property UsersDatasetResource : TUsersDatasetResource Read GetUsersDatasetInstance;
Property UsersSessionsResource : TUsersSessionsResource Read GetUsersSessionsInstance;
Property UsersResource : TUsersResource Read GetUsersInstance;
end;
@@ -561,6 +799,244 @@ implementation
{ --------------------------------------------------------------------
+ TAggregateBucket
+ --------------------------------------------------------------------}
+
+
+Procedure TAggregateBucket.Setactivity(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Factivity=AValue) then exit;
+ Factivity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateBucket.Setdataset(AIndex : Integer; const AValue : TAggregateBucketTypedatasetArray);
+
+begin
+ If (Fdataset=AValue) then exit;
+ Fdataset:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateBucket.SetendTimeMillis(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTimeMillis=AValue) then exit;
+ FendTimeMillis:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateBucket.Setsession(AIndex : Integer; const AValue : TSession);
+
+begin
+ If (Fsession=AValue) then exit;
+ Fsession:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateBucket.SetstartTimeMillis(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTimeMillis=AValue) then exit;
+ FstartTimeMillis:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateBucket.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TAggregateBucket.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 TAggregateBucket.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dataset' : SetLength(Fdataset,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAggregateBy
+ --------------------------------------------------------------------}
+
+
+Procedure TAggregateBy.SetdataSourceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdataSourceId=AValue) then exit;
+ FdataSourceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateBy.SetdataTypeName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdataTypeName=AValue) then exit;
+ FdataTypeName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAggregateRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAggregateRequest.SetaggregateBy(AIndex : Integer; const AValue : TAggregateRequestTypeaggregateByArray);
+
+begin
+ If (FaggregateBy=AValue) then exit;
+ FaggregateBy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateRequest.SetbucketByActivitySegment(AIndex : Integer; const AValue : TBucketByActivity);
+
+begin
+ If (FbucketByActivitySegment=AValue) then exit;
+ FbucketByActivitySegment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateRequest.SetbucketByActivityType(AIndex : Integer; const AValue : TBucketByActivity);
+
+begin
+ If (FbucketByActivityType=AValue) then exit;
+ FbucketByActivityType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateRequest.SetbucketBySession(AIndex : Integer; const AValue : TBucketBySession);
+
+begin
+ If (FbucketBySession=AValue) then exit;
+ FbucketBySession:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateRequest.SetbucketByTime(AIndex : Integer; const AValue : TBucketByTime);
+
+begin
+ If (FbucketByTime=AValue) then exit;
+ FbucketByTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateRequest.SetendTimeMillis(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTimeMillis=AValue) then exit;
+ FendTimeMillis:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAggregateRequest.SetstartTimeMillis(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTimeMillis=AValue) then exit;
+ FstartTimeMillis:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAggregateRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'aggregateby' : SetLength(FaggregateBy,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAggregateResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TAggregateResponse.Setbucket(AIndex : Integer; const AValue : TAggregateResponseTypebucketArray);
+
+begin
+ If (Fbucket=AValue) then exit;
+ Fbucket:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAggregateResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'bucket' : SetLength(Fbucket,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TApplication
--------------------------------------------------------------------}
@@ -608,6 +1084,67 @@ end;
{ --------------------------------------------------------------------
+ TBucketByActivity
+ --------------------------------------------------------------------}
+
+
+Procedure TBucketByActivity.SetactivityDataSourceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FactivityDataSourceId=AValue) then exit;
+ FactivityDataSourceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBucketByActivity.SetminDurationMillis(AIndex : Integer; const AValue : String);
+
+begin
+ If (FminDurationMillis=AValue) then exit;
+ FminDurationMillis:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBucketBySession
+ --------------------------------------------------------------------}
+
+
+Procedure TBucketBySession.SetminDurationMillis(AIndex : Integer; const AValue : String);
+
+begin
+ If (FminDurationMillis=AValue) then exit;
+ FminDurationMillis:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBucketByTime
+ --------------------------------------------------------------------}
+
+
+Procedure TBucketByTime.SetdurationMillis(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdurationMillis=AValue) then exit;
+ FdurationMillis:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TDataPoint
--------------------------------------------------------------------}
@@ -682,7 +1219,7 @@ end;
-Procedure TDataPoint.Setvalue(AIndex : Integer; AValue : TDataPointTypevalueArray);
+Procedure TDataPoint.Setvalue(AIndex : Integer; const AValue : TDataPointTypevalueArray);
begin
If (Fvalue=AValue) then exit;
@@ -712,7 +1249,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDataSource.Setapplication(AIndex : Integer; AValue : TApplication);
+Procedure TDataSource.Setapplication(AIndex : Integer; const AValue : TApplication);
begin
If (Fapplication=AValue) then exit;
@@ -742,7 +1279,7 @@ end;
-Procedure TDataSource.SetdataType(AIndex : Integer; AValue : TDataType);
+Procedure TDataSource.SetdataType(AIndex : Integer; const AValue : TDataType);
begin
If (FdataType=AValue) then exit;
@@ -752,7 +1289,7 @@ end;
-Procedure TDataSource.Setdevice(AIndex : Integer; AValue : TDevice);
+Procedure TDataSource.Setdevice(AIndex : Integer; const AValue : TDevice);
begin
If (Fdevice=AValue) then exit;
@@ -800,7 +1337,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDataType.Setfield(AIndex : Integer; AValue : TDataTypeTypefieldArray);
+Procedure TDataType.Setfield(AIndex : Integer; const AValue : TDataTypeTypefieldArray);
begin
If (Ffield=AValue) then exit;
@@ -860,7 +1397,7 @@ end;
-Procedure TDataTypeField.Setoptional(AIndex : Integer; AValue : boolean);
+Procedure TDataTypeField.Setoptional(AIndex : Integer; const AValue : boolean);
begin
If (Foptional=AValue) then exit;
@@ -917,7 +1454,7 @@ end;
-Procedure TDataset.Setpoint(AIndex : Integer; AValue : TDatasetTypepointArray);
+Procedure TDataset.Setpoint(AIndex : Integer; const AValue : TDatasetTypepointArray);
begin
If (Fpoint=AValue) then exit;
@@ -1015,7 +1552,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListDataSourcesResponse.SetdataSource(AIndex : Integer; AValue : TListDataSourcesResponseTypedataSourceArray);
+Procedure TListDataSourcesResponse.SetdataSource(AIndex : Integer; const AValue : TListDataSourcesResponseTypedataSourceArray);
begin
If (FdataSource=AValue) then exit;
@@ -1045,7 +1582,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListSessionsResponse.SetdeletedSession(AIndex : Integer; AValue : TListSessionsResponseTypedeletedSessionArray);
+Procedure TListSessionsResponse.SetdeletedSession(AIndex : Integer; const AValue : TListSessionsResponseTypedeletedSessionArray);
begin
If (FdeletedSession=AValue) then exit;
@@ -1065,7 +1602,7 @@ end;
-Procedure TListSessionsResponse.Setsession(AIndex : Integer; AValue : TListSessionsResponseTypesessionArray);
+Procedure TListSessionsResponse.Setsession(AIndex : Integer; const AValue : TListSessionsResponseTypesessionArray);
begin
If (Fsession=AValue) then exit;
@@ -1092,6 +1629,23 @@ end;
{ --------------------------------------------------------------------
+ TMapValue
+ --------------------------------------------------------------------}
+
+
+Procedure TMapValue.SetfpVal(AIndex : Integer; const AValue : double);
+
+begin
+ If (FfpVal=AValue) then exit;
+ FfpVal:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TSession
--------------------------------------------------------------------}
@@ -1106,7 +1660,7 @@ end;
-Procedure TSession.SetactivityType(AIndex : Integer; AValue : integer);
+Procedure TSession.SetactivityType(AIndex : Integer; const AValue : integer);
begin
If (FactivityType=AValue) then exit;
@@ -1116,7 +1670,7 @@ end;
-Procedure TSession.Setapplication(AIndex : Integer; AValue : TApplication);
+Procedure TSession.Setapplication(AIndex : Integer; const AValue : TApplication);
begin
If (Fapplication=AValue) then exit;
@@ -1193,7 +1747,7 @@ end;
--------------------------------------------------------------------}
-Procedure TValue.SetfpVal(AIndex : Integer; AValue : double);
+Procedure TValue.SetfpVal(AIndex : Integer; const AValue : double);
begin
If (FfpVal=AValue) then exit;
@@ -1203,7 +1757,7 @@ end;
-Procedure TValue.SetintVal(AIndex : Integer; AValue : integer);
+Procedure TValue.SetintVal(AIndex : Integer; const AValue : integer);
begin
If (FintVal=AValue) then exit;
@@ -1213,6 +1767,66 @@ end;
+Procedure TValue.SetmapVal(AIndex : Integer; const AValue : TValueTypemapValArray);
+
+begin
+ If (FmapVal=AValue) then exit;
+ FmapVal:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TValue.SetstringVal(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstringVal=AValue) then exit;
+ FstringVal:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TValue.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'mapval' : SetLength(FmapVal,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TValueMapValEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TValueMapValEntry.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TValueMapValEntry.Setvalue(AIndex : Integer; const AValue : TMapValue);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -1463,6 +2077,40 @@ end;
{ --------------------------------------------------------------------
+ TUsersDatasetResource
+ --------------------------------------------------------------------}
+
+
+Class Function TUsersDatasetResource.ResourceName : String;
+
+begin
+ Result:='dataset';
+end;
+
+Class Function TUsersDatasetResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TfitnessAPI;
+end;
+
+Function TUsersDatasetResource.Aggregate(userId: string; aAggregateRequest : TAggregateRequest) : TAggregateResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{userId}/dataset:aggregate';
+ _Methodid = 'fitness.users.dataset.aggregate';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['userId',userId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aAggregateRequest,TAggregateResponse) as TAggregateResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
TUsersSessionsResource
--------------------------------------------------------------------}
@@ -1632,6 +2280,30 @@ end;
+Function TUsersResource.GetDatasetInstance : TUsersDatasetResource;
+
+begin
+ if (FDatasetInstance=Nil) then
+ FDatasetInstance:=CreateDatasetResource;
+ Result:=FDatasetInstance;
+end;
+
+Function TUsersResource.CreateDatasetResource : TUsersDatasetResource;
+
+begin
+ Result:=CreateDatasetResource(Self);
+end;
+
+
+Function TUsersResource.CreateDatasetResource(AOwner : TComponent) : TUsersDatasetResource;
+
+begin
+ Result:=TUsersDatasetResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TUsersResource.GetSessionsInstance : TUsersSessionsResource;
begin
@@ -1675,7 +2347,7 @@ end;
Class Function TFitnessAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20151021';
end;
Class Function TFitnessAPI.APIID : String;
@@ -1729,7 +2401,7 @@ end;
Class Function TFitnessAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TFitnessAPI.APIbasePath : string;
@@ -1741,7 +2413,7 @@ end;
Class Function TFitnessAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/fitness/v1/users/';
+ Result:='https://www.googleapis.com/fitness/v1/users/';
end;
Class Function TFitnessAPI.APIProtocol : string;
@@ -1790,7 +2462,14 @@ end;
Class Procedure TFitnessAPI.RegisterAPIResources;
begin
+ TAggregateBucket.RegisterObject;
+ TAggregateBy.RegisterObject;
+ TAggregateRequest.RegisterObject;
+ TAggregateResponse.RegisterObject;
TApplication.RegisterObject;
+ TBucketByActivity.RegisterObject;
+ TBucketBySession.RegisterObject;
+ TBucketByTime.RegisterObject;
TDataPoint.RegisterObject;
TDataSource.RegisterObject;
TDataType.RegisterObject;
@@ -1799,8 +2478,10 @@ begin
TDevice.RegisterObject;
TListDataSourcesResponse.RegisterObject;
TListSessionsResponse.RegisterObject;
+ TMapValue.RegisterObject;
TSession.RegisterObject;
TValue.RegisterObject;
+ TValueMapValEntry.RegisterObject;
end;
@@ -1852,6 +2533,30 @@ end;
+Function TFitnessAPI.GetUsersDatasetInstance : TUsersDatasetResource;
+
+begin
+ if (FUsersDatasetInstance=Nil) then
+ FUsersDatasetInstance:=CreateUsersDatasetResource;
+ Result:=FUsersDatasetInstance;
+end;
+
+Function TFitnessAPI.CreateUsersDatasetResource : TUsersDatasetResource;
+
+begin
+ Result:=CreateUsersDatasetResource(Self);
+end;
+
+
+Function TFitnessAPI.CreateUsersDatasetResource(AOwner : TComponent) : TUsersDatasetResource;
+
+begin
+ Result:=TUsersDatasetResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TFitnessAPI.GetUsersSessionsInstance : TUsersSessionsResource;
begin
diff --git a/packages/googleapi/src/googlefreebase.pp b/packages/googleapi/src/googlefreebase.pp
index c026b440f0..8d478c8004 100644
--- a/packages/googleapi/src/googlefreebase.pp
+++ b/packages/googleapi/src/googlefreebase.pp
@@ -1,19 +1,4 @@
unit googlefreebase;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:03
{$MODE objfpc}
{$H+}
@@ -67,11 +52,11 @@ type
Fnotable : TReconcileCandidateTypenotable;
Protected
//Property setters
- Procedure Setconfidence(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setconfidence(AIndex : Integer; const AValue : integer); virtual;
Procedure Setlang(AIndex : Integer; const AValue : String); virtual;
Procedure Setmid(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnotable(AIndex : Integer; AValue : TReconcileCandidateTypenotable); virtual;
+ Procedure Setnotable(AIndex : Integer; const AValue : TReconcileCandidateTypenotable); virtual;
Public
Published
Property confidence : integer Index 0 Read Fconfidence Write Setconfidence;
@@ -92,8 +77,8 @@ type
Fms : integer;
Protected
//Property setters
- Procedure Sethits(AIndex : Integer; AValue : integer); virtual;
- Procedure Setms(AIndex : Integer; AValue : integer); virtual;
+ Procedure Sethits(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setms(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property hits : integer Index 0 Read Fhits Write Sethits;
@@ -135,10 +120,10 @@ type
Fwarning : TReconcileGetTypewarningArray;
Protected
//Property setters
- Procedure Setcandidate(AIndex : Integer; AValue : TReconcileGetTypecandidateArray); virtual;
- Procedure Setcosts(AIndex : Integer; AValue : TReconcileGetTypecosts); virtual;
- Procedure Setmatch(AIndex : Integer; AValue : TReconcileCandidate); virtual;
- Procedure Setwarning(AIndex : Integer; AValue : TReconcileGetTypewarningArray); virtual;
+ Procedure Setcandidate(AIndex : Integer; const AValue : TReconcileGetTypecandidateArray); virtual;
+ Procedure Setcosts(AIndex : Integer; const AValue : TReconcileGetTypecosts); virtual;
+ Procedure Setmatch(AIndex : Integer; const AValue : TReconcileCandidate); virtual;
+ Procedure Setwarning(AIndex : Integer; const AValue : TReconcileGetTypewarningArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -219,7 +204,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReconcileCandidate.Setconfidence(AIndex : Integer; AValue : integer);
+Procedure TReconcileCandidate.Setconfidence(AIndex : Integer; const AValue : integer);
begin
If (Fconfidence=AValue) then exit;
@@ -259,7 +244,7 @@ end;
-Procedure TReconcileCandidate.Setnotable(AIndex : Integer; AValue : TReconcileCandidateTypenotable);
+Procedure TReconcileCandidate.Setnotable(AIndex : Integer; const AValue : TReconcileCandidateTypenotable);
begin
If (Fnotable=AValue) then exit;
@@ -276,7 +261,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReconcileGetTypecosts.Sethits(AIndex : Integer; AValue : integer);
+Procedure TReconcileGetTypecosts.Sethits(AIndex : Integer; const AValue : integer);
begin
If (Fhits=AValue) then exit;
@@ -286,7 +271,7 @@ end;
-Procedure TReconcileGetTypecosts.Setms(AIndex : Integer; AValue : integer);
+Procedure TReconcileGetTypecosts.Setms(AIndex : Integer; const AValue : integer);
begin
If (Fms=AValue) then exit;
@@ -340,7 +325,7 @@ end;
--------------------------------------------------------------------}
-Procedure TReconcileGet.Setcandidate(AIndex : Integer; AValue : TReconcileGetTypecandidateArray);
+Procedure TReconcileGet.Setcandidate(AIndex : Integer; const AValue : TReconcileGetTypecandidateArray);
begin
If (Fcandidate=AValue) then exit;
@@ -350,7 +335,7 @@ end;
-Procedure TReconcileGet.Setcosts(AIndex : Integer; AValue : TReconcileGetTypecosts);
+Procedure TReconcileGet.Setcosts(AIndex : Integer; const AValue : TReconcileGetTypecosts);
begin
If (Fcosts=AValue) then exit;
@@ -360,7 +345,7 @@ end;
-Procedure TReconcileGet.Setmatch(AIndex : Integer; AValue : TReconcileCandidate);
+Procedure TReconcileGet.Setmatch(AIndex : Integer; const AValue : TReconcileCandidate);
begin
If (Fmatch=AValue) then exit;
@@ -370,7 +355,7 @@ end;
-Procedure TReconcileGet.Setwarning(AIndex : Integer; AValue : TReconcileGetTypewarningArray);
+Procedure TReconcileGet.Setwarning(AIndex : Integer; const AValue : TReconcileGetTypewarningArray);
begin
If (Fwarning=AValue) then exit;
@@ -415,7 +400,7 @@ end;
Class Function TFreebaseAPI.APIRevision : String;
begin
- Result:='20150330';
+ Result:='20150728';
end;
Class Function TFreebaseAPI.APIID : String;
@@ -469,7 +454,7 @@ end;
Class Function TFreebaseAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TFreebaseAPI.APIbasePath : string;
@@ -481,7 +466,7 @@ end;
Class Function TFreebaseAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/freebase/v1/';
+ Result:='https://www.googleapis.com/freebase/v1/';
end;
Class Function TFreebaseAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlefusiontables.pp b/packages/googleapi/src/googlefusiontables.pp
index 3f250662f2..08bca41b32 100644
--- a/packages/googleapi/src/googlefusiontables.pp
+++ b/packages/googleapi/src/googlefusiontables.pp
@@ -1,19 +1,4 @@
unit googlefusiontables;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:03
{$MODE objfpc}
{$H+}
@@ -99,10 +84,10 @@ type
//Property setters
Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
Procedure Seticon(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmax(AIndex : Integer; AValue : double); virtual;
- Procedure Setmin(AIndex : Integer; AValue : double); virtual;
- Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
- Procedure Setweight(AIndex : Integer; AValue : integer); 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;
@@ -124,8 +109,8 @@ type
FtableIndex : integer;
Protected
//Property setters
- Procedure SetcolumnId(AIndex : Integer; AValue : integer); virtual;
- Procedure SettableIndex(AIndex : Integer; AValue : integer); virtual;
+ 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;
@@ -154,8 +139,8 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetbaseColumn(AIndex : Integer; AValue : TColumnTypebaseColumn); virtual;
- Procedure SetcolumnId(AIndex : Integer; AValue : integer); virtual;
+ 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;
@@ -164,8 +149,8 @@ type
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; AValue : TStringArray); virtual;
- Procedure SetvalidateData(AIndex : Integer; AValue : boolean); 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;
@@ -199,10 +184,10 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TColumnListTypeitemsArray); virtual;
+ 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; AValue : integer); 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;
@@ -228,8 +213,8 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setgeometries(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
- Procedure Setgeometry(AIndex : Integer; AValue : TJSONSchema); virtual;
+ 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}
@@ -273,7 +258,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setcoordinates(AIndex : Integer; AValue : TLineTypecoordinatesArray); virtual;
+ 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}
@@ -300,10 +285,10 @@ type
Protected
//Property setters
Procedure SetstrokeColor(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstrokeColorStyler(AIndex : Integer; AValue : TStyleFunction); virtual;
- Procedure SetstrokeOpacity(AIndex : Integer; AValue : double); virtual;
- Procedure SetstrokeWeight(AIndex : Integer; AValue : integer); virtual;
- Procedure SetstrokeWeightStyler(AIndex : Integer; AValue : TStyleFunction); 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;
@@ -325,7 +310,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setcoordinates(AIndex : Integer; AValue : TdoubleArray); virtual;
+ 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}
@@ -349,7 +334,7 @@ type
Protected
//Property setters
Procedure SeticonName(AIndex : Integer; const AValue : String); virtual;
- Procedure SeticonStyler(AIndex : Integer; AValue : TStyleFunction); virtual;
+ Procedure SeticonStyler(AIndex : Integer; const AValue : TStyleFunction); virtual;
Public
Published
Property iconName : String Index 0 Read FiconName Write SeticonName;
@@ -368,7 +353,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setcoordinates(AIndex : Integer; AValue : TPolygonTypecoordinatesArray); virtual;
+ 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}
@@ -398,13 +383,13 @@ type
Protected
//Property setters
Procedure SetfillColor(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfillColorStyler(AIndex : Integer; AValue : TStyleFunction); virtual;
- Procedure SetfillOpacity(AIndex : Integer; AValue : double); 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; AValue : TStyleFunction); virtual;
- Procedure SetstrokeOpacity(AIndex : Integer; AValue : double); virtual;
- Procedure SetstrokeWeight(AIndex : Integer; AValue : integer); virtual;
- Procedure SetstrokeWeightStyler(AIndex : Integer; AValue : TStyleFunction); 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;
@@ -429,9 +414,9 @@ type
Frows : TSqlresponseTyperowsArray;
Protected
//Property setters
- Procedure Setcolumns(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setcolumns(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TSqlresponseTyperowsArray); 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;
@@ -455,7 +440,7 @@ type
Protected
//Property setters
Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
- Procedure Setopacity(AIndex : Integer; AValue : double); virtual;
+ Procedure Setopacity(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property color : String Index 0 Read Fcolor Write Setcolor;
@@ -474,9 +459,9 @@ type
Fmin : double;
Protected
//Property setters
- Procedure Setcolors(AIndex : Integer; AValue : TStyleFunctionTypegradientTypecolorsArray); virtual;
- Procedure Setmax(AIndex : Integer; AValue : double); virtual;
- Procedure Setmin(AIndex : Integer; AValue : double); virtual;
+ 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;
@@ -501,9 +486,9 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setbuckets(AIndex : Integer; AValue : TStyleFunctionTypebucketsArray); virtual;
+ Procedure Setbuckets(AIndex : Integer; const AValue : TStyleFunctionTypebucketsArray); virtual;
Procedure SetcolumnName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setgradient(AIndex : Integer; AValue : TStyleFunctionTypegradient); 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}
@@ -534,11 +519,11 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmarkerOptions(AIndex : Integer; AValue : TPointStyle); virtual;
+ Procedure SetmarkerOptions(AIndex : Integer; const AValue : TPointStyle); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpolygonOptions(AIndex : Integer; AValue : TPolygonStyle); virtual;
- Procedure SetpolylineOptions(AIndex : Integer; AValue : TLineStyle); virtual;
- Procedure SetstyleId(AIndex : Integer; AValue : integer); 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
@@ -564,10 +549,10 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TStyleSettingListTypeitemsArray); virtual;
+ 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; AValue : integer); 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;
@@ -604,11 +589,11 @@ type
//Property setters
Procedure Setattribution(AIndex : Integer; const AValue : String); virtual;
Procedure SetattributionLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbaseTableIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetbaseTableIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetcolumnPropertiesJsonSchema(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcolumns(AIndex : Integer; AValue : TTableTypecolumnsArray); virtual;
+ Procedure Setcolumns(AIndex : Integer; const AValue : TTableTypecolumnsArray); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisExportable(AIndex : Integer; AValue : boolean); 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;
@@ -648,7 +633,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TTableListTypeitemsArray); virtual;
+ 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
@@ -679,7 +664,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setprogress(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstarted(AIndex : Integer; AValue : boolean); 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
@@ -704,10 +689,10 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TTaskListTypeitemsArray); virtual;
+ 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; AValue : integer); 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;
@@ -735,12 +720,12 @@ type
FtemplateId : integer;
Protected
//Property setters
- Procedure SetautomaticColumnNames(AIndex : Integer; AValue : TStringArray); virtual;
+ 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; AValue : integer); 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;
@@ -768,10 +753,10 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TTemplateListTypeitemsArray); virtual;
+ 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; AValue : integer); 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;
@@ -1098,7 +1083,7 @@ end;
-Procedure TBucket.Setmax(AIndex : Integer; AValue : double);
+Procedure TBucket.Setmax(AIndex : Integer; const AValue : double);
begin
If (Fmax=AValue) then exit;
@@ -1108,7 +1093,7 @@ end;
-Procedure TBucket.Setmin(AIndex : Integer; AValue : double);
+Procedure TBucket.Setmin(AIndex : Integer; const AValue : double);
begin
If (Fmin=AValue) then exit;
@@ -1118,7 +1103,7 @@ end;
-Procedure TBucket.Setopacity(AIndex : Integer; AValue : double);
+Procedure TBucket.Setopacity(AIndex : Integer; const AValue : double);
begin
If (Fopacity=AValue) then exit;
@@ -1128,7 +1113,7 @@ end;
-Procedure TBucket.Setweight(AIndex : Integer; AValue : integer);
+Procedure TBucket.Setweight(AIndex : Integer; const AValue : integer);
begin
If (Fweight=AValue) then exit;
@@ -1145,7 +1130,7 @@ end;
--------------------------------------------------------------------}
-Procedure TColumnTypebaseColumn.SetcolumnId(AIndex : Integer; AValue : integer);
+Procedure TColumnTypebaseColumn.SetcolumnId(AIndex : Integer; const AValue : integer);
begin
If (FcolumnId=AValue) then exit;
@@ -1155,7 +1140,7 @@ end;
-Procedure TColumnTypebaseColumn.SettableIndex(AIndex : Integer; AValue : integer);
+Procedure TColumnTypebaseColumn.SettableIndex(AIndex : Integer; const AValue : integer);
begin
If (FtableIndex=AValue) then exit;
@@ -1172,7 +1157,7 @@ end;
--------------------------------------------------------------------}
-Procedure TColumn.SetbaseColumn(AIndex : Integer; AValue : TColumnTypebaseColumn);
+Procedure TColumn.SetbaseColumn(AIndex : Integer; const AValue : TColumnTypebaseColumn);
begin
If (FbaseColumn=AValue) then exit;
@@ -1182,7 +1167,7 @@ end;
-Procedure TColumn.SetcolumnId(AIndex : Integer; AValue : integer);
+Procedure TColumn.SetcolumnId(AIndex : Integer; const AValue : integer);
begin
If (FcolumnId=AValue) then exit;
@@ -1272,7 +1257,7 @@ end;
-Procedure TColumn.SetvalidValues(AIndex : Integer; AValue : TStringArray);
+Procedure TColumn.SetvalidValues(AIndex : Integer; const AValue : TStringArray);
begin
If (FvalidValues=AValue) then exit;
@@ -1282,7 +1267,7 @@ end;
-Procedure TColumn.SetvalidateData(AIndex : Integer; AValue : boolean);
+Procedure TColumn.SetvalidateData(AIndex : Integer; const AValue : boolean);
begin
If (FvalidateData=AValue) then exit;
@@ -1323,7 +1308,7 @@ end;
--------------------------------------------------------------------}
-Procedure TColumnList.Setitems(AIndex : Integer; AValue : TColumnListTypeitemsArray);
+Procedure TColumnList.Setitems(AIndex : Integer; const AValue : TColumnListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1353,7 +1338,7 @@ end;
-Procedure TColumnList.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TColumnList.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -1383,7 +1368,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeometry.Setgeometries(AIndex : Integer; AValue : TTJSONSchemaArray);
+Procedure TGeometry.Setgeometries(AIndex : Integer; const AValue : TTJSONSchemaArray);
begin
If (Fgeometries=AValue) then exit;
@@ -1393,7 +1378,7 @@ end;
-Procedure TGeometry.Setgeometry(AIndex : Integer; AValue : TJSONSchema);
+Procedure TGeometry.Setgeometry(AIndex : Integer; const AValue : TJSONSchema);
begin
If (Fgeometry=AValue) then exit;
@@ -1471,7 +1456,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLine.Setcoordinates(AIndex : Integer; AValue : TLineTypecoordinatesArray);
+Procedure TLine.Setcoordinates(AIndex : Integer; const AValue : TLineTypecoordinatesArray);
begin
If (Fcoordinates=AValue) then exit;
@@ -1532,7 +1517,7 @@ end;
-Procedure TLineStyle.SetstrokeColorStyler(AIndex : Integer; AValue : TStyleFunction);
+Procedure TLineStyle.SetstrokeColorStyler(AIndex : Integer; const AValue : TStyleFunction);
begin
If (FstrokeColorStyler=AValue) then exit;
@@ -1542,7 +1527,7 @@ end;
-Procedure TLineStyle.SetstrokeOpacity(AIndex : Integer; AValue : double);
+Procedure TLineStyle.SetstrokeOpacity(AIndex : Integer; const AValue : double);
begin
If (FstrokeOpacity=AValue) then exit;
@@ -1552,7 +1537,7 @@ end;
-Procedure TLineStyle.SetstrokeWeight(AIndex : Integer; AValue : integer);
+Procedure TLineStyle.SetstrokeWeight(AIndex : Integer; const AValue : integer);
begin
If (FstrokeWeight=AValue) then exit;
@@ -1562,7 +1547,7 @@ end;
-Procedure TLineStyle.SetstrokeWeightStyler(AIndex : Integer; AValue : TStyleFunction);
+Procedure TLineStyle.SetstrokeWeightStyler(AIndex : Integer; const AValue : TStyleFunction);
begin
If (FstrokeWeightStyler=AValue) then exit;
@@ -1579,7 +1564,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPoint.Setcoordinates(AIndex : Integer; AValue : TdoubleArray);
+Procedure TPoint.Setcoordinates(AIndex : Integer; const AValue : TdoubleArray);
begin
If (Fcoordinates=AValue) then exit;
@@ -1640,7 +1625,7 @@ end;
-Procedure TPointStyle.SeticonStyler(AIndex : Integer; AValue : TStyleFunction);
+Procedure TPointStyle.SeticonStyler(AIndex : Integer; const AValue : TStyleFunction);
begin
If (FiconStyler=AValue) then exit;
@@ -1657,7 +1642,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPolygon.Setcoordinates(AIndex : Integer; AValue : TPolygonTypecoordinatesArray);
+Procedure TPolygon.Setcoordinates(AIndex : Integer; const AValue : TPolygonTypecoordinatesArray);
begin
If (Fcoordinates=AValue) then exit;
@@ -1718,7 +1703,7 @@ end;
-Procedure TPolygonStyle.SetfillColorStyler(AIndex : Integer; AValue : TStyleFunction);
+Procedure TPolygonStyle.SetfillColorStyler(AIndex : Integer; const AValue : TStyleFunction);
begin
If (FfillColorStyler=AValue) then exit;
@@ -1728,7 +1713,7 @@ end;
-Procedure TPolygonStyle.SetfillOpacity(AIndex : Integer; AValue : double);
+Procedure TPolygonStyle.SetfillOpacity(AIndex : Integer; const AValue : double);
begin
If (FfillOpacity=AValue) then exit;
@@ -1748,7 +1733,7 @@ end;
-Procedure TPolygonStyle.SetstrokeColorStyler(AIndex : Integer; AValue : TStyleFunction);
+Procedure TPolygonStyle.SetstrokeColorStyler(AIndex : Integer; const AValue : TStyleFunction);
begin
If (FstrokeColorStyler=AValue) then exit;
@@ -1758,7 +1743,7 @@ end;
-Procedure TPolygonStyle.SetstrokeOpacity(AIndex : Integer; AValue : double);
+Procedure TPolygonStyle.SetstrokeOpacity(AIndex : Integer; const AValue : double);
begin
If (FstrokeOpacity=AValue) then exit;
@@ -1768,7 +1753,7 @@ end;
-Procedure TPolygonStyle.SetstrokeWeight(AIndex : Integer; AValue : integer);
+Procedure TPolygonStyle.SetstrokeWeight(AIndex : Integer; const AValue : integer);
begin
If (FstrokeWeight=AValue) then exit;
@@ -1778,7 +1763,7 @@ end;
-Procedure TPolygonStyle.SetstrokeWeightStyler(AIndex : Integer; AValue : TStyleFunction);
+Procedure TPolygonStyle.SetstrokeWeightStyler(AIndex : Integer; const AValue : TStyleFunction);
begin
If (FstrokeWeightStyler=AValue) then exit;
@@ -1795,7 +1780,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSqlresponse.Setcolumns(AIndex : Integer; AValue : TStringArray);
+Procedure TSqlresponse.Setcolumns(AIndex : Integer; const AValue : TStringArray);
begin
If (Fcolumns=AValue) then exit;
@@ -1815,7 +1800,7 @@ end;
-Procedure TSqlresponse.Setrows(AIndex : Integer; AValue : TSqlresponseTyperowsArray);
+Procedure TSqlresponse.Setrows(AIndex : Integer; const AValue : TSqlresponseTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -1856,7 +1841,7 @@ end;
-Procedure TStyleFunctionTypegradientTypecolorsItem.Setopacity(AIndex : Integer; AValue : double);
+Procedure TStyleFunctionTypegradientTypecolorsItem.Setopacity(AIndex : Integer; const AValue : double);
begin
If (Fopacity=AValue) then exit;
@@ -1873,7 +1858,7 @@ end;
--------------------------------------------------------------------}
-Procedure TStyleFunctionTypegradient.Setcolors(AIndex : Integer; AValue : TStyleFunctionTypegradientTypecolorsArray);
+Procedure TStyleFunctionTypegradient.Setcolors(AIndex : Integer; const AValue : TStyleFunctionTypegradientTypecolorsArray);
begin
If (Fcolors=AValue) then exit;
@@ -1883,7 +1868,7 @@ end;
-Procedure TStyleFunctionTypegradient.Setmax(AIndex : Integer; AValue : double);
+Procedure TStyleFunctionTypegradient.Setmax(AIndex : Integer; const AValue : double);
begin
If (Fmax=AValue) then exit;
@@ -1893,7 +1878,7 @@ end;
-Procedure TStyleFunctionTypegradient.Setmin(AIndex : Integer; AValue : double);
+Procedure TStyleFunctionTypegradient.Setmin(AIndex : Integer; const AValue : double);
begin
If (Fmin=AValue) then exit;
@@ -1923,7 +1908,7 @@ end;
--------------------------------------------------------------------}
-Procedure TStyleFunction.Setbuckets(AIndex : Integer; AValue : TStyleFunctionTypebucketsArray);
+Procedure TStyleFunction.Setbuckets(AIndex : Integer; const AValue : TStyleFunctionTypebucketsArray);
begin
If (Fbuckets=AValue) then exit;
@@ -1943,7 +1928,7 @@ end;
-Procedure TStyleFunction.Setgradient(AIndex : Integer; AValue : TStyleFunctionTypegradient);
+Procedure TStyleFunction.Setgradient(AIndex : Integer; const AValue : TStyleFunctionTypegradient);
begin
If (Fgradient=AValue) then exit;
@@ -1993,7 +1978,7 @@ end;
-Procedure TStyleSetting.SetmarkerOptions(AIndex : Integer; AValue : TPointStyle);
+Procedure TStyleSetting.SetmarkerOptions(AIndex : Integer; const AValue : TPointStyle);
begin
If (FmarkerOptions=AValue) then exit;
@@ -2013,7 +1998,7 @@ end;
-Procedure TStyleSetting.SetpolygonOptions(AIndex : Integer; AValue : TPolygonStyle);
+Procedure TStyleSetting.SetpolygonOptions(AIndex : Integer; const AValue : TPolygonStyle);
begin
If (FpolygonOptions=AValue) then exit;
@@ -2023,7 +2008,7 @@ end;
-Procedure TStyleSetting.SetpolylineOptions(AIndex : Integer; AValue : TLineStyle);
+Procedure TStyleSetting.SetpolylineOptions(AIndex : Integer; const AValue : TLineStyle);
begin
If (FpolylineOptions=AValue) then exit;
@@ -2033,7 +2018,7 @@ end;
-Procedure TStyleSetting.SetstyleId(AIndex : Integer; AValue : integer);
+Procedure TStyleSetting.SetstyleId(AIndex : Integer; const AValue : integer);
begin
If (FstyleId=AValue) then exit;
@@ -2060,7 +2045,7 @@ end;
--------------------------------------------------------------------}
-Procedure TStyleSettingList.Setitems(AIndex : Integer; AValue : TStyleSettingListTypeitemsArray);
+Procedure TStyleSettingList.Setitems(AIndex : Integer; const AValue : TStyleSettingListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2090,7 +2075,7 @@ end;
-Procedure TStyleSettingList.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TStyleSettingList.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -2140,7 +2125,7 @@ end;
-Procedure TTable.SetbaseTableIds(AIndex : Integer; AValue : TStringArray);
+Procedure TTable.SetbaseTableIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FbaseTableIds=AValue) then exit;
@@ -2160,7 +2145,7 @@ end;
-Procedure TTable.Setcolumns(AIndex : Integer; AValue : TTableTypecolumnsArray);
+Procedure TTable.Setcolumns(AIndex : Integer; const AValue : TTableTypecolumnsArray);
begin
If (Fcolumns=AValue) then exit;
@@ -2180,7 +2165,7 @@ end;
-Procedure TTable.SetisExportable(AIndex : Integer; AValue : boolean);
+Procedure TTable.SetisExportable(AIndex : Integer; const AValue : boolean);
begin
If (FisExportable=AValue) then exit;
@@ -2271,7 +2256,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTableList.Setitems(AIndex : Integer; AValue : TTableListTypeitemsArray);
+Procedure TTableList.Setitems(AIndex : Integer; const AValue : TTableListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2341,7 +2326,7 @@ end;
-Procedure TTask.Setstarted(AIndex : Integer; AValue : boolean);
+Procedure TTask.Setstarted(AIndex : Integer; const AValue : boolean);
begin
If (Fstarted=AValue) then exit;
@@ -2389,7 +2374,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTaskList.Setitems(AIndex : Integer; AValue : TTaskListTypeitemsArray);
+Procedure TTaskList.Setitems(AIndex : Integer; const AValue : TTaskListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2419,7 +2404,7 @@ end;
-Procedure TTaskList.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TTaskList.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -2449,7 +2434,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTemplate.SetautomaticColumnNames(AIndex : Integer; AValue : TStringArray);
+Procedure TTemplate.SetautomaticColumnNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FautomaticColumnNames=AValue) then exit;
@@ -2499,7 +2484,7 @@ end;
-Procedure TTemplate.SettemplateId(AIndex : Integer; AValue : integer);
+Procedure TTemplate.SettemplateId(AIndex : Integer; const AValue : integer);
begin
If (FtemplateId=AValue) then exit;
@@ -2529,7 +2514,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTemplateList.Setitems(AIndex : Integer; AValue : TTemplateListTypeitemsArray);
+Procedure TTemplateList.Setitems(AIndex : Integer; const AValue : TTemplateListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2559,7 +2544,7 @@ end;
-Procedure TTemplateList.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TTemplateList.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -3368,7 +3353,7 @@ end;
Class Function TFusiontablesAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160317';
end;
Class Function TFusiontablesAPI.APIID : String;
@@ -3422,7 +3407,7 @@ end;
Class Function TFusiontablesAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TFusiontablesAPI.APIbasePath : string;
@@ -3434,7 +3419,7 @@ end;
Class Function TFusiontablesAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/fusiontables/v2/';
+ Result:='https://www.googleapis.com/fusiontables/v2/';
end;
Class Function TFusiontablesAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlegames.pp b/packages/googleapi/src/googlegames.pp
index 8d47cca3f4..dd448742d9 100644
--- a/packages/googleapi/src/googlegames.pp
+++ b/packages/googleapi/src/googlegames.pp
@@ -1,19 +1,4 @@
unit googlegames;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:03
{$MODE objfpc}
{$H+}
@@ -38,6 +23,7 @@ type
TAnonymousPlayer = Class;
TApplication = Class;
TApplicationCategory = Class;
+ TApplicationVerifyResponse = Class;
TCategory = Class;
TCategoryListResponse = Class;
TEventBatchRecordFailure = Class;
@@ -82,6 +68,7 @@ type
TPlayerScoreListResponse = Class;
TPlayerScoreResponse = Class;
TPlayerScoreSubmissionList = Class;
+ TProfileSettings = Class;
TPushToken = Class;
TPushTokenId = Class;
TQuest = Class;
@@ -134,6 +121,7 @@ type
TAnonymousPlayerArray = Array of TAnonymousPlayer;
TApplicationArray = Array of TApplication;
TApplicationCategoryArray = Array of TApplicationCategory;
+ TApplicationVerifyResponseArray = Array of TApplicationVerifyResponse;
TCategoryArray = Array of TCategory;
TCategoryListResponseArray = Array of TCategoryListResponse;
TEventBatchRecordFailureArray = Array of TEventBatchRecordFailure;
@@ -178,6 +166,7 @@ type
TPlayerScoreListResponseArray = Array of TPlayerScoreListResponse;
TPlayerScoreResponseArray = Array of TPlayerScoreResponse;
TPlayerScoreSubmissionListArray = Array of TPlayerScoreSubmissionList;
+ TProfileSettingsArray = Array of TProfileSettings;
TPushTokenArray = Array of TPushToken;
TPushTokenIdArray = Array of TPushTokenId;
TQuestArray = Array of TQuest;
@@ -285,12 +274,12 @@ type
Procedure SetformattedTotalSteps(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinitialState(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisRevealedIconUrlDefault(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisUnlockedIconUrlDefault(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisRevealedIconUrlDefault(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisUnlockedIconUrlDefault(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetrevealedIconUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalSteps(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalSteps(AIndex : Integer; const AValue : integer); virtual;
Procedure SetunlockedIconUrl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -321,7 +310,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAchievementDefinitionsListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAchievementDefinitionsListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -347,9 +336,9 @@ type
FnewlyUnlocked : boolean;
Protected
//Property setters
- Procedure SetcurrentSteps(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetcurrentSteps(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnewlyUnlocked(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property currentSteps : integer Index 0 Read FcurrentSteps Write SetcurrentSteps;
@@ -388,9 +377,9 @@ type
FnewlyUnlocked : boolean;
Protected
//Property setters
- Procedure SetcurrentSteps(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetcurrentSteps(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnewlyUnlocked(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property currentSteps : integer Index 0 Read FcurrentSteps Write SetcurrentSteps;
@@ -410,7 +399,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnewlyUnlocked(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
@@ -429,7 +418,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdates(AIndex : Integer; AValue : TAchievementUpdateMultipleRequestTypeupdatesArray); virtual;
+ Procedure Setupdates(AIndex : Integer; const AValue : TAchievementUpdateMultipleRequestTypeupdatesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -452,7 +441,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetupdatedAchievements(AIndex : Integer; AValue : TAchievementUpdateMultipleResponseTypeupdatedAchievementsArray); virtual;
+ Procedure SetupdatedAchievements(AIndex : Integer; const AValue : TAchievementUpdateMultipleResponseTypeupdatedAchievementsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -478,9 +467,9 @@ type
Protected
//Property setters
Procedure SetachievementId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetincrementPayload(AIndex : Integer; AValue : TGamesAchievementIncrement); virtual;
+ Procedure SetincrementPayload(AIndex : Integer; const AValue : TGamesAchievementIncrement); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsetStepsAtLeastPayload(AIndex : Integer; AValue : TGamesAchievementSetStepsAtLeast); virtual;
+ Procedure SetsetStepsAtLeastPayload(AIndex : Integer; const AValue : TGamesAchievementSetStepsAtLeast); virtual;
Procedure SetupdateType(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -508,10 +497,10 @@ type
//Property setters
Procedure SetachievementId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcurrentState(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcurrentSteps(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetcurrentSteps(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnewlyUnlocked(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetupdateOccurred(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetnewlyUnlocked(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetupdateOccurred(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property achievementId : String Index 0 Read FachievementId Write SetachievementId;
@@ -594,17 +583,17 @@ type
FthemeColor : String;
Protected
//Property setters
- Procedure Setachievement_count(AIndex : Integer; AValue : integer); virtual;
- Procedure Setassets(AIndex : Integer; AValue : TApplicationTypeassetsArray); virtual;
+ Procedure Setachievement_count(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setassets(AIndex : Integer; const AValue : TApplicationTypeassetsArray); virtual;
Procedure Setauthor(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcategory(AIndex : Integer; AValue : TApplicationCategory); virtual;
+ Procedure Setcategory(AIndex : Integer; const AValue : TApplicationCategory); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetenabledFeatures(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetenabledFeatures(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinstances(AIndex : Integer; AValue : TApplicationTypeinstancesArray); virtual;
+ Procedure Setinstances(AIndex : Integer; const AValue : TApplicationTypeinstancesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastUpdatedTimestamp(AIndex : Integer; const AValue : String); virtual;
- Procedure Setleaderboard_count(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setleaderboard_count(AIndex : Integer; const AValue : integer); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetthemeColor(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -652,6 +641,28 @@ type
TApplicationCategoryClass = Class of TApplicationCategory;
{ --------------------------------------------------------------------
+ TApplicationVerifyResponse
+ --------------------------------------------------------------------}
+
+ TApplicationVerifyResponse = Class(TGoogleBaseObject)
+ Private
+ Falternate_player_id : String;
+ Fkind : String;
+ Fplayer_id : String;
+ Protected
+ //Property setters
+ Procedure Setalternate_player_id(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setplayer_id(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property alternate_player_id : String Index 0 Read Falternate_player_id Write Setalternate_player_id;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property player_id : String Index 16 Read Fplayer_id Write Setplayer_id;
+ end;
+ TApplicationVerifyResponseClass = Class of TApplicationVerifyResponse;
+
+ { --------------------------------------------------------------------
TCategory
--------------------------------------------------------------------}
@@ -684,7 +695,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TCategoryListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCategoryListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -712,7 +723,7 @@ type
//Property setters
Procedure SetfailureCause(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrange(AIndex : Integer; AValue : TEventPeriodRange); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TEventPeriodRange); virtual;
Public
Published
Property failureCause : String Index 0 Read FfailureCause Write SetfailureCause;
@@ -756,12 +767,12 @@ type
Fvisibility : String;
Protected
//Property setters
- Procedure SetchildEvents(AIndex : Integer; AValue : TEventDefinitionTypechildEventsArray); virtual;
+ Procedure SetchildEvents(AIndex : Integer; const AValue : TEventDefinitionTypechildEventsArray); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetimageUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisDefaultImageUrl(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisDefaultImageUrl(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -792,7 +803,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TEventDefinitionListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TEventDefinitionListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -841,8 +852,8 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimePeriod(AIndex : Integer; AValue : TEventPeriodRange); virtual;
- Procedure Setupdates(AIndex : Integer; AValue : TEventPeriodUpdateTypeupdatesArray); virtual;
+ Procedure SettimePeriod(AIndex : Integer; const AValue : TEventPeriodRange); virtual;
+ Procedure Setupdates(AIndex : Integer; const AValue : TEventPeriodUpdateTypeupdatesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -892,7 +903,7 @@ type
Procedure SetcurrentTimeMillis(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimePeriods(AIndex : Integer; AValue : TEventRecordRequestTypetimePeriodsArray); virtual;
+ Procedure SettimePeriods(AIndex : Integer; const AValue : TEventRecordRequestTypetimePeriodsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -940,10 +951,10 @@ type
FplayerEvents : TEventUpdateResponseTypeplayerEventsArray;
Protected
//Property setters
- Procedure SetbatchFailures(AIndex : Integer; AValue : TEventUpdateResponseTypebatchFailuresArray); virtual;
- Procedure SeteventFailures(AIndex : Integer; AValue : TEventUpdateResponseTypeeventFailuresArray); virtual;
+ Procedure SetbatchFailures(AIndex : Integer; const AValue : TEventUpdateResponseTypebatchFailuresArray); virtual;
+ Procedure SeteventFailures(AIndex : Integer; const AValue : TEventUpdateResponseTypeeventFailuresArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplayerEvents(AIndex : Integer; AValue : TEventUpdateResponseTypeplayerEventsArray); virtual;
+ Procedure SetplayerEvents(AIndex : Integer; const AValue : TEventUpdateResponseTypeplayerEventsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -970,7 +981,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsteps(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setsteps(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
@@ -990,7 +1001,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsteps(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setsteps(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
@@ -1011,11 +1022,11 @@ type
Fwidth : integer;
Protected
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -1044,14 +1055,14 @@ type
Protected
//Property setters
Procedure SetacquisitionUri(AIndex : Integer; const AValue : String); virtual;
- Procedure SetandroidInstance(AIndex : Integer; AValue : TInstanceAndroidDetails); virtual;
- Procedure SetiosInstance(AIndex : Integer; AValue : TInstanceIosDetails); virtual;
+ Procedure SetandroidInstance(AIndex : Integer; const AValue : TInstanceAndroidDetails); virtual;
+ Procedure SetiosInstance(AIndex : Integer; const AValue : TInstanceIosDetails); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetplatformType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrealtimePlay(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetturnBasedPlay(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetwebInstance(AIndex : Integer; AValue : TInstanceWebDetails); virtual;
+ Procedure SetrealtimePlay(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetturnBasedPlay(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetwebInstance(AIndex : Integer; const AValue : TInstanceWebDetails); virtual;
Public
Published
Property acquisitionUri : String Index 0 Read FacquisitionUri Write SetacquisitionUri;
@@ -1078,10 +1089,10 @@ type
Fpreferred : boolean;
Protected
//Property setters
- Procedure SetenablePiracyCheck(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetenablePiracyCheck(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetpackageName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpreferred(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setpreferred(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property enablePiracyCheck : boolean Index 0 Read FenablePiracyCheck Write SetenablePiracyCheck;
@@ -1109,10 +1120,10 @@ type
Procedure SetbundleIdentifier(AIndex : Integer; const AValue : String); virtual;
Procedure SetitunesAppId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpreferredForIpad(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetpreferredForIphone(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsupportIpad(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsupportIphone(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetpreferredForIpad(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpreferredForIphone(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsupportIpad(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsupportIphone(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property bundleIdentifier : String Index 0 Read FbundleIdentifier Write SetbundleIdentifier;
@@ -1138,7 +1149,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlaunchUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpreferred(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setpreferred(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
@@ -1163,7 +1174,7 @@ type
//Property setters
Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisIconUrlDefault(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisIconUrlDefault(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setorder(AIndex : Integer; const AValue : String); virtual;
@@ -1198,7 +1209,7 @@ type
Procedure SetformattedScore(AIndex : Integer; const AValue : String); virtual;
Procedure SetformattedScoreRank(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplayer(AIndex : Integer; AValue : TPlayer); virtual;
+ Procedure Setplayer(AIndex : Integer; const AValue : TPlayer); virtual;
Procedure SetscoreRank(AIndex : Integer; const AValue : String); virtual;
Procedure SetscoreTag(AIndex : Integer; const AValue : String); virtual;
Procedure SetscoreValue(AIndex : Integer; const AValue : String); virtual;
@@ -1229,7 +1240,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TLeaderboardListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TLeaderboardListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1286,11 +1297,11 @@ type
FprevPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TLeaderboardScoresTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TLeaderboardScoresTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetnumScores(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplayerScore(AIndex : Integer; AValue : TLeaderboardEntry); virtual;
+ Procedure SetplayerScore(AIndex : Integer; const AValue : TLeaderboardEntry); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1318,9 +1329,9 @@ type
FplayerLevels : TMetagameConfigTypeplayerLevelsArray;
Protected
//Property setters
- Procedure SetcurrentVersion(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetcurrentVersion(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplayerLevels(AIndex : Integer; AValue : TMetagameConfigTypeplayerLevelsArray); virtual;
+ Procedure SetplayerLevels(AIndex : Integer; const AValue : TMetagameConfigTypeplayerLevelsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1348,13 +1359,13 @@ type
FregistrationLatencyMillis : integer;
Protected
//Property setters
- Procedure SetandroidNetworkSubtype(AIndex : Integer; AValue : integer); virtual;
- Procedure SetandroidNetworkType(AIndex : Integer; AValue : integer); virtual;
- Procedure SetiosNetworkType(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetandroidNetworkSubtype(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetandroidNetworkType(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetiosNetworkType(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnetworkOperatorCode(AIndex : Integer; const AValue : String); virtual;
Procedure SetnetworkOperatorName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetregistrationLatencyMillis(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetregistrationLatencyMillis(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property androidNetworkSubtype : integer Index 0 Read FandroidNetworkSubtype Write SetandroidNetworkSubtype;
@@ -1381,7 +1392,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetparticipantId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplacing(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setplacing(AIndex : Integer; const AValue : integer); virtual;
Procedure Setresult(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1408,14 +1419,14 @@ type
FroundtripLatencyMillis : TAggregateStats;
Protected
//Property setters
- Procedure SetbytesReceived(AIndex : Integer; AValue : TAggregateStats); virtual;
- Procedure SetbytesSent(AIndex : Integer; AValue : TAggregateStats); virtual;
+ Procedure SetbytesReceived(AIndex : Integer; const AValue : TAggregateStats); virtual;
+ Procedure SetbytesSent(AIndex : Integer; const AValue : TAggregateStats); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnumMessagesLost(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnumMessagesReceived(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnumMessagesSent(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnumSendFailures(AIndex : Integer; AValue : integer); virtual;
- Procedure SetroundtripLatencyMillis(AIndex : Integer; AValue : TAggregateStats); virtual;
+ Procedure SetnumMessagesLost(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumMessagesReceived(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumMessagesSent(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumSendFailures(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetroundtripLatencyMillis(AIndex : Integer; const AValue : TAggregateStats); virtual;
Public
Published
Property bytesReceived : TAggregateStats Index 0 Read FbytesReceived Write SetbytesReceived;
@@ -1445,8 +1456,8 @@ type
Procedure SetconnectedTimestampMillis(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetparticipantId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreliableChannel(AIndex : Integer; AValue : TPeerChannelDiagnostics); virtual;
- Procedure SetunreliableChannel(AIndex : Integer; AValue : TPeerChannelDiagnostics); virtual;
+ Procedure SetreliableChannel(AIndex : Integer; const AValue : TPeerChannelDiagnostics); virtual;
+ Procedure SetunreliableChannel(AIndex : Integer; const AValue : TPeerChannelDiagnostics); virtual;
Public
Published
Property connectedTimestampMillis : String Index 0 Read FconnectedTimestampMillis Write SetconnectedTimestampMillis;
@@ -1468,7 +1479,7 @@ type
FtimeMillis : String;
Protected
//Property setters
- Procedure SetautoMatched(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetautoMatched(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeMillis(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1505,33 +1516,45 @@ type
TPlayer = Class(TGoogleBaseObject)
Private
FavatarImageUrl : String;
+ FbannerUrlLandscape : String;
+ FbannerUrlPortrait : String;
FdisplayName : String;
FexperienceInfo : TPlayerExperienceInfo;
Fkind : String;
FlastPlayedWith : TPlayed;
Fname : TPlayerTypename;
+ ForiginalPlayerId : String;
FplayerId : String;
+ FprofileSettings : TProfileSettings;
Ftitle : String;
Protected
//Property setters
Procedure SetavatarImageUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbannerUrlLandscape(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbannerUrlPortrait(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexperienceInfo(AIndex : Integer; AValue : TPlayerExperienceInfo); virtual;
+ Procedure SetexperienceInfo(AIndex : Integer; const AValue : TPlayerExperienceInfo); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastPlayedWith(AIndex : Integer; AValue : TPlayed); virtual;
- Procedure Setname(AIndex : Integer; AValue : TPlayerTypename); virtual;
+ Procedure SetlastPlayedWith(AIndex : Integer; const AValue : TPlayed); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TPlayerTypename); virtual;
+ Procedure SetoriginalPlayerId(AIndex : Integer; const AValue : String); virtual;
Procedure SetplayerId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprofileSettings(AIndex : Integer; const AValue : TProfileSettings); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property avatarImageUrl : String Index 0 Read FavatarImageUrl Write SetavatarImageUrl;
- Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
- Property experienceInfo : TPlayerExperienceInfo Index 16 Read FexperienceInfo Write SetexperienceInfo;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property lastPlayedWith : TPlayed Index 32 Read FlastPlayedWith Write SetlastPlayedWith;
- Property name : TPlayerTypename Index 40 Read Fname Write Setname;
- Property playerId : String Index 48 Read FplayerId Write SetplayerId;
- Property title : String Index 56 Read Ftitle Write Settitle;
+ Property bannerUrlLandscape : String Index 8 Read FbannerUrlLandscape Write SetbannerUrlLandscape;
+ Property bannerUrlPortrait : String Index 16 Read FbannerUrlPortrait Write SetbannerUrlPortrait;
+ Property displayName : String Index 24 Read FdisplayName Write SetdisplayName;
+ Property experienceInfo : TPlayerExperienceInfo Index 32 Read FexperienceInfo Write SetexperienceInfo;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property lastPlayedWith : TPlayed Index 48 Read FlastPlayedWith Write SetlastPlayedWith;
+ Property name : TPlayerTypename Index 56 Read Fname Write Setname;
+ Property originalPlayerId : String Index 64 Read ForiginalPlayerId Write SetoriginalPlayerId;
+ Property playerId : String Index 72 Read FplayerId Write SetplayerId;
+ Property profileSettings : TProfileSettings Index 80 Read FprofileSettings Write SetprofileSettings;
+ Property title : String Index 88 Read Ftitle Write Settitle;
end;
TPlayerClass = Class of TPlayer;
@@ -1551,7 +1574,7 @@ type
Protected
//Property setters
Procedure SetachievementState(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcurrentSteps(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetcurrentSteps(AIndex : Integer; const AValue : integer); virtual;
Procedure SetexperiencePoints(AIndex : Integer; const AValue : String); virtual;
Procedure SetformattedCurrentStepsString(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
@@ -1580,7 +1603,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TPlayerAchievementListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPlayerAchievementListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1634,7 +1657,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TPlayerEventListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPlayerEventListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1663,10 +1686,10 @@ type
Protected
//Property setters
Procedure SetcurrentExperiencePoints(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcurrentLevel(AIndex : Integer; AValue : TPlayerLevel); virtual;
+ Procedure SetcurrentLevel(AIndex : Integer; const AValue : TPlayerLevel); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastLevelUpTimestampMillis(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextLevel(AIndex : Integer; AValue : TPlayerLevel); virtual;
+ Procedure SetnextLevel(AIndex : Integer; const AValue : TPlayerLevel); virtual;
Public
Published
Property currentExperiencePoints : String Index 0 Read FcurrentExperiencePoints Write SetcurrentExperiencePoints;
@@ -1696,11 +1719,11 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setleaderboard_id(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublicRank(AIndex : Integer; AValue : TLeaderboardScoreRank); virtual;
+ Procedure SetpublicRank(AIndex : Integer; const AValue : TLeaderboardScoreRank); virtual;
Procedure SetscoreString(AIndex : Integer; const AValue : String); virtual;
Procedure SetscoreTag(AIndex : Integer; const AValue : String); virtual;
Procedure SetscoreValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsocialRank(AIndex : Integer; AValue : TLeaderboardScoreRank); virtual;
+ Procedure SetsocialRank(AIndex : Integer; const AValue : TLeaderboardScoreRank); virtual;
Procedure SettimeSpan(AIndex : Integer; const AValue : String); virtual;
Procedure SetwriteTimestamp(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1729,10 +1752,10 @@ type
Fplayer : TPlayer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TPlayerLeaderboardScoreListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPlayerLeaderboardScoreListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplayer(AIndex : Integer; AValue : TPlayer); virtual;
+ Procedure Setplayer(AIndex : Integer; const AValue : TPlayer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1759,7 +1782,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlevel(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setlevel(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmaxExperiencePoints(AIndex : Integer; const AValue : String); virtual;
Procedure SetminExperiencePoints(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1782,7 +1805,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TPlayerListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPlayerListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1836,7 +1859,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsubmittedScores(AIndex : Integer; AValue : TPlayerScoreListResponseTypesubmittedScoresArray); virtual;
+ Procedure SetsubmittedScores(AIndex : Integer; const AValue : TPlayerScoreListResponseTypesubmittedScoresArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1862,12 +1885,12 @@ type
FunbeatenScores : TPlayerScoreResponseTypeunbeatenScoresArray;
Protected
//Property setters
- Procedure SetbeatenScoreTimeSpans(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetbeatenScoreTimeSpans(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetformattedScore(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetleaderboardId(AIndex : Integer; const AValue : String); virtual;
Procedure SetscoreTag(AIndex : Integer; const AValue : String); virtual;
- Procedure SetunbeatenScores(AIndex : Integer; AValue : TPlayerScoreResponseTypeunbeatenScoresArray); virtual;
+ Procedure SetunbeatenScores(AIndex : Integer; const AValue : TPlayerScoreResponseTypeunbeatenScoresArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1894,7 +1917,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setscores(AIndex : Integer; AValue : TPlayerScoreSubmissionListTypescoresArray); virtual;
+ Procedure Setscores(AIndex : Integer; const AValue : TPlayerScoreSubmissionListTypescoresArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1907,6 +1930,25 @@ type
TPlayerScoreSubmissionListClass = Class of TPlayerScoreSubmissionList;
{ --------------------------------------------------------------------
+ TProfileSettings
+ --------------------------------------------------------------------}
+
+ TProfileSettings = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ FprofileVisible : boolean;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprofileVisible(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property profileVisible : boolean Index 8 Read FprofileVisible Write SetprofileVisible;
+ end;
+ TProfileSettingsClass = Class of TProfileSettings;
+
+ { --------------------------------------------------------------------
TPushToken
--------------------------------------------------------------------}
@@ -1919,7 +1961,7 @@ type
Protected
//Property setters
Procedure SetclientRevision(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; AValue : TPushTokenId); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : TPushTokenId); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1960,7 +2002,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setios(AIndex : Integer; AValue : TPushTokenIdTypeios); virtual;
+ Procedure Setios(AIndex : Integer; const AValue : TPushTokenIdTypeios); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2000,11 +2042,11 @@ type
Procedure SetendTimestampMillis(AIndex : Integer; const AValue : String); virtual;
Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisDefaultBannerUrl(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisDefaultIconUrl(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisDefaultBannerUrl(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisDefaultIconUrl(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastUpdatedTimestampMillis(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmilestones(AIndex : Integer; AValue : TQuestTypemilestonesArray); virtual;
+ Procedure Setmilestones(AIndex : Integer; const AValue : TQuestTypemilestonesArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetnotifyTimestampMillis(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTimestampMillis(AIndex : Integer; const AValue : String); virtual;
@@ -2069,10 +2111,10 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetcompletionContribution(AIndex : Integer; AValue : TQuestContribution); virtual;
- Procedure SetcurrentContribution(AIndex : Integer; AValue : TQuestContribution); virtual;
+ Procedure SetcompletionContribution(AIndex : Integer; const AValue : TQuestContribution); virtual;
+ Procedure SetcurrentContribution(AIndex : Integer; const AValue : TQuestContribution); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinitialPlayerProgress(AIndex : Integer; AValue : TQuestContribution); virtual;
+ Procedure SetinitialPlayerProgress(AIndex : Integer; const AValue : TQuestContribution); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2095,7 +2137,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TQuestListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TQuestListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2124,7 +2166,7 @@ type
Protected
//Property setters
Procedure SetcompletionRewardData(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcriteria(AIndex : Integer; AValue : TQuestMilestoneTypecriteriaArray); virtual;
+ Procedure Setcriteria(AIndex : Integer; const AValue : TQuestMilestoneTypecriteriaArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
@@ -2186,18 +2228,18 @@ type
Protected
//Property setters
Procedure SetapplicationId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetautoMatchingCriteria(AIndex : Integer; AValue : TRoomAutoMatchingCriteria); virtual;
- Procedure SetautoMatchingStatus(AIndex : Integer; AValue : TRoomAutoMatchStatus); virtual;
- Procedure SetcreationDetails(AIndex : Integer; AValue : TRoomModification); virtual;
+ Procedure SetautoMatchingCriteria(AIndex : Integer; const AValue : TRoomAutoMatchingCriteria); virtual;
+ Procedure SetautoMatchingStatus(AIndex : Integer; const AValue : TRoomAutoMatchStatus); virtual;
+ Procedure SetcreationDetails(AIndex : Integer; const AValue : TRoomModification); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetinviterId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastUpdateDetails(AIndex : Integer; AValue : TRoomModification); virtual;
- Procedure Setparticipants(AIndex : Integer; AValue : TRoomTypeparticipantsArray); virtual;
+ Procedure SetlastUpdateDetails(AIndex : Integer; const AValue : TRoomModification); virtual;
+ Procedure Setparticipants(AIndex : Integer; const AValue : TRoomTypeparticipantsArray); virtual;
Procedure SetroomId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetroomStatusVersion(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetroomStatusVersion(AIndex : Integer; const AValue : integer); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvariant(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setvariant(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2231,7 +2273,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetwaitEstimateSeconds(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetwaitEstimateSeconds(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
@@ -2253,8 +2295,8 @@ type
//Property setters
Procedure SetexclusiveBitmask(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxAutoMatchingPlayers(AIndex : Integer; AValue : integer); virtual;
- Procedure SetminAutoMatchingPlayers(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmaxAutoMatchingPlayers(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetminAutoMatchingPlayers(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property exclusiveBitmask : String Index 0 Read FexclusiveBitmask Write SetexclusiveBitmask;
@@ -2299,14 +2341,14 @@ type
Fvariant : integer;
Protected
//Property setters
- Procedure SetautoMatchingCriteria(AIndex : Integer; AValue : TRoomAutoMatchingCriteria); virtual;
- Procedure Setcapabilities(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetclientAddress(AIndex : Integer; AValue : TRoomClientAddress); virtual;
- Procedure SetinvitedPlayerIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetautoMatchingCriteria(AIndex : Integer; const AValue : TRoomAutoMatchingCriteria); virtual;
+ Procedure Setcapabilities(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress); virtual;
+ Procedure SetinvitedPlayerIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnetworkDiagnostics(AIndex : Integer; AValue : TNetworkDiagnostics); virtual;
+ Procedure SetnetworkDiagnostics(AIndex : Integer; const AValue : TNetworkDiagnostics); virtual;
Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvariant(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setvariant(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2336,10 +2378,10 @@ type
FnetworkDiagnostics : TNetworkDiagnostics;
Protected
//Property setters
- Procedure Setcapabilities(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetclientAddress(AIndex : Integer; AValue : TRoomClientAddress); virtual;
+ Procedure Setcapabilities(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnetworkDiagnostics(AIndex : Integer; AValue : TNetworkDiagnostics); virtual;
+ Procedure SetnetworkDiagnostics(AIndex : Integer; const AValue : TNetworkDiagnostics); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2369,14 +2411,14 @@ type
FsocketsUsed : boolean;
Protected
//Property setters
- Procedure SetandroidNetworkSubtype(AIndex : Integer; AValue : integer); virtual;
- Procedure SetandroidNetworkType(AIndex : Integer; AValue : integer); virtual;
- Procedure SetiosNetworkType(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetandroidNetworkSubtype(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetandroidNetworkType(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetiosNetworkType(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnetworkOperatorCode(AIndex : Integer; const AValue : String); virtual;
Procedure SetnetworkOperatorName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpeerSession(AIndex : Integer; AValue : TRoomLeaveDiagnosticsTypepeerSessionArray); virtual;
- Procedure SetsocketsUsed(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetpeerSession(AIndex : Integer; const AValue : TRoomLeaveDiagnosticsTypepeerSessionArray); virtual;
+ Procedure SetsocketsUsed(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2406,7 +2448,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetleaveDiagnostics(AIndex : Integer; AValue : TRoomLeaveDiagnostics); virtual;
+ Procedure SetleaveDiagnostics(AIndex : Integer; const AValue : TRoomLeaveDiagnostics); virtual;
Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2427,7 +2469,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TRoomListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TRoomListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2479,13 +2521,13 @@ type
FunreliableRoundtripLatencyMillis : integer;
Protected
//Property setters
- Procedure SetconnectionSetupLatencyMillis(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetconnectionSetupLatencyMillis(AIndex : Integer; const AValue : integer); virtual;
Procedure Seterror(AIndex : Integer; const AValue : String); virtual;
Procedure Seterror_reason(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetparticipantId(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetunreliableRoundtripLatencyMillis(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetunreliableRoundtripLatencyMillis(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property connectionSetupLatencyMillis : integer Index 0 Read FconnectionSetupLatencyMillis Write SetconnectionSetupLatencyMillis;
@@ -2509,7 +2551,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdates(AIndex : Integer; AValue : TRoomP2PStatusesTypeupdatesArray); virtual;
+ Procedure Setupdates(AIndex : Integer; const AValue : TRoomP2PStatusesTypeupdatesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2539,15 +2581,15 @@ type
Fstatus : String;
Protected
//Property setters
- Procedure SetautoMatched(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetautoMatchedPlayer(AIndex : Integer; AValue : TAnonymousPlayer); virtual;
- Procedure Setcapabilities(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetclientAddress(AIndex : Integer; AValue : TRoomClientAddress); virtual;
- Procedure Setconnected(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetautoMatched(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetautoMatchedPlayer(AIndex : Integer; const AValue : TAnonymousPlayer); virtual;
+ Procedure Setcapabilities(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress); virtual;
+ Procedure Setconnected(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetleaveReason(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplayer(AIndex : Integer; AValue : TPlayer); virtual;
+ Procedure Setplayer(AIndex : Integer; const AValue : TPlayer); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2582,12 +2624,12 @@ type
FstatusVersion : integer;
Protected
//Property setters
- Procedure SetautoMatchingStatus(AIndex : Integer; AValue : TRoomAutoMatchStatus); virtual;
+ Procedure SetautoMatchingStatus(AIndex : Integer; const AValue : TRoomAutoMatchStatus); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparticipants(AIndex : Integer; AValue : TRoomStatusTypeparticipantsArray); virtual;
+ Procedure Setparticipants(AIndex : Integer; const AValue : TRoomStatusTypeparticipantsArray); virtual;
Procedure SetroomId(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstatusVersion(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetstatusVersion(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2651,7 +2693,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetcoverImage(AIndex : Integer; AValue : TSnapshotImage); virtual;
+ Procedure SetcoverImage(AIndex : Integer; const AValue : TSnapshotImage); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetdriveId(AIndex : Integer; const AValue : String); virtual;
Procedure SetdurationMillis(AIndex : Integer; const AValue : String); virtual;
@@ -2691,11 +2733,11 @@ type
Fwidth : integer;
Protected
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setmime_type(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -2717,7 +2759,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TSnapshotListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSnapshotListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2746,8 +2788,8 @@ type
//Property setters
Procedure SetexclusiveBitmask(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxAutoMatchingPlayers(AIndex : Integer; AValue : integer); virtual;
- Procedure SetminAutoMatchingPlayers(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmaxAutoMatchingPlayers(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetminAutoMatchingPlayers(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property exclusiveBitmask : String Index 0 Read FexclusiveBitmask Write SetexclusiveBitmask;
@@ -2786,24 +2828,24 @@ type
Protected
//Property setters
Procedure SetapplicationId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetautoMatchingCriteria(AIndex : Integer; AValue : TTurnBasedAutoMatchingCriteria); virtual;
- Procedure SetcreationDetails(AIndex : Integer; AValue : TTurnBasedMatchModification); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TTurnBasedMatchData); virtual;
+ Procedure SetautoMatchingCriteria(AIndex : Integer; const AValue : TTurnBasedAutoMatchingCriteria); virtual;
+ Procedure SetcreationDetails(AIndex : Integer; const AValue : TTurnBasedMatchModification); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TTurnBasedMatchData); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetinviterId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastUpdateDetails(AIndex : Integer; AValue : TTurnBasedMatchModification); virtual;
+ Procedure SetlastUpdateDetails(AIndex : Integer; const AValue : TTurnBasedMatchModification); virtual;
Procedure SetmatchId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmatchNumber(AIndex : Integer; AValue : integer); virtual;
- Procedure SetmatchVersion(AIndex : Integer; AValue : integer); virtual;
- Procedure Setparticipants(AIndex : Integer; AValue : TTurnBasedMatchTypeparticipantsArray); virtual;
+ Procedure SetmatchNumber(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmatchVersion(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setparticipants(AIndex : Integer; const AValue : TTurnBasedMatchTypeparticipantsArray); virtual;
Procedure SetpendingParticipantId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpreviousMatchData(AIndex : Integer; AValue : TTurnBasedMatchData); virtual;
+ Procedure SetpreviousMatchData(AIndex : Integer; const AValue : TTurnBasedMatchData); virtual;
Procedure SetrematchId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresults(AIndex : Integer; AValue : TTurnBasedMatchTyperesultsArray); virtual;
+ Procedure Setresults(AIndex : Integer; const AValue : TTurnBasedMatchTyperesultsArray); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetuserMatchStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvariant(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setvariant(AIndex : Integer; const AValue : integer); virtual;
Procedure SetwithParticipantId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2847,11 +2889,11 @@ type
Fvariant : integer;
Protected
//Property setters
- Procedure SetautoMatchingCriteria(AIndex : Integer; AValue : TTurnBasedAutoMatchingCriteria); virtual;
- Procedure SetinvitedPlayerIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetautoMatchingCriteria(AIndex : Integer; const AValue : TTurnBasedAutoMatchingCriteria); virtual;
+ Procedure SetinvitedPlayerIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvariant(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setvariant(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2878,7 +2920,7 @@ type
Protected
//Property setters
Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdataAvailable(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdataAvailable(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2918,7 +2960,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TTurnBasedMatchListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTurnBasedMatchListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2969,11 +3011,11 @@ type
Fstatus : String;
Protected
//Property setters
- Procedure SetautoMatched(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetautoMatchedPlayer(AIndex : Integer; AValue : TAnonymousPlayer); virtual;
+ Procedure SetautoMatched(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetautoMatchedPlayer(AIndex : Integer; const AValue : TAnonymousPlayer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplayer(AIndex : Integer; AValue : TPlayer); virtual;
+ Procedure Setplayer(AIndex : Integer; const AValue : TPlayer); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2998,8 +3040,8 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpreviousMatch(AIndex : Integer; AValue : TTurnBasedMatch); virtual;
- Procedure Setrematch(AIndex : Integer; AValue : TTurnBasedMatch); virtual;
+ Procedure SetpreviousMatch(AIndex : Integer; const AValue : TTurnBasedMatch); virtual;
+ Procedure Setrematch(AIndex : Integer; const AValue : TTurnBasedMatch); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
@@ -3020,10 +3062,10 @@ type
Fresults : TTurnBasedMatchResultsTyperesultsArray;
Protected
//Property setters
- Procedure Setdata(AIndex : Integer; AValue : TTurnBasedMatchDataRequest); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TTurnBasedMatchDataRequest); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmatchVersion(AIndex : Integer; AValue : integer); virtual;
- Procedure Setresults(AIndex : Integer; AValue : TTurnBasedMatchResultsTyperesultsArray); virtual;
+ Procedure SetmatchVersion(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setresults(AIndex : Integer; const AValue : TTurnBasedMatchResultsTyperesultsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3049,9 +3091,9 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TTurnBasedMatchSyncTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTurnBasedMatchSyncTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmoreAvailable(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetmoreAvailable(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3079,11 +3121,11 @@ type
Fresults : TTurnBasedMatchTurnTyperesultsArray;
Protected
//Property setters
- Procedure Setdata(AIndex : Integer; AValue : TTurnBasedMatchDataRequest); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TTurnBasedMatchDataRequest); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmatchVersion(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmatchVersion(AIndex : Integer; const AValue : integer); virtual;
Procedure SetpendingParticipantId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresults(AIndex : Integer; AValue : TTurnBasedMatchTurnTyperesultsArray); virtual;
+ Procedure Setresults(AIndex : Integer; const AValue : TTurnBasedMatchTurnTyperesultsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -3106,6 +3148,7 @@ type
//Optional query Options for TAchievementDefinitionsResource, method List
TAchievementDefinitionsListOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3128,6 +3171,7 @@ type
//Optional query Options for TAchievementsResource, method Increment
TAchievementsIncrementOptions = Record
+ consistencyToken : int64;
requestId : int64;
stepsToIncrement : integer;
end;
@@ -3136,6 +3180,7 @@ type
//Optional query Options for TAchievementsResource, method List
TAchievementsListOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3143,12 +3188,34 @@ type
end;
+ //Optional query Options for TAchievementsResource, method Reveal
+
+ TAchievementsRevealOptions = Record
+ consistencyToken : int64;
+ end;
+
+
//Optional query Options for TAchievementsResource, method SetStepsAtLeast
TAchievementsSetStepsAtLeastOptions = Record
+ consistencyToken : int64;
steps : integer;
end;
+
+ //Optional query Options for TAchievementsResource, method Unlock
+
+ TAchievementsUnlockOptions = Record
+ consistencyToken : int64;
+ end;
+
+
+ //Optional query Options for TAchievementsResource, method UpdateMultiple
+
+ TAchievementsUpdateMultipleOptions = Record
+ consistencyToken : int64;
+ end;
+
TAchievementsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
@@ -3157,11 +3224,14 @@ type
Function Increment(achievementId: string; AQuery : TAchievementsincrementOptions) : TAchievementIncrementResponse;
Function List(playerId: string; AQuery : string = '') : TPlayerAchievementListResponse;
Function List(playerId: string; AQuery : TAchievementslistOptions) : TPlayerAchievementListResponse;
- Function Reveal(achievementId: string) : TAchievementRevealResponse;
+ Function Reveal(achievementId: string; AQuery : string = '') : TAchievementRevealResponse;
+ Function Reveal(achievementId: string; AQuery : TAchievementsrevealOptions) : TAchievementRevealResponse;
Function SetStepsAtLeast(achievementId: string; AQuery : string = '') : TAchievementSetStepsAtLeastResponse;
Function SetStepsAtLeast(achievementId: string; AQuery : TAchievementssetStepsAtLeastOptions) : TAchievementSetStepsAtLeastResponse;
- Function Unlock(achievementId: string) : TAchievementUnlockResponse;
- Function UpdateMultiple(aAchievementUpdateMultipleRequest : TAchievementUpdateMultipleRequest) : TAchievementUpdateMultipleResponse;
+ Function Unlock(achievementId: string; AQuery : string = '') : TAchievementUnlockResponse;
+ Function Unlock(achievementId: string; AQuery : TAchievementsunlockOptions) : TAchievementUnlockResponse;
+ Function UpdateMultiple(aAchievementUpdateMultipleRequest : TAchievementUpdateMultipleRequest; AQuery : string = '') : TAchievementUpdateMultipleResponse;
+ Function UpdateMultiple(aAchievementUpdateMultipleRequest : TAchievementUpdateMultipleRequest; AQuery : TAchievementsupdateMultipleOptions) : TAchievementUpdateMultipleResponse;
end;
@@ -3173,17 +3243,35 @@ type
//Optional query Options for TApplicationsResource, method Get
TApplicationsGetOptions = Record
+ consistencyToken : int64;
language : String;
platformType : String;
end;
+
+ //Optional query Options for TApplicationsResource, method Played
+
+ TApplicationsPlayedOptions = Record
+ consistencyToken : int64;
+ end;
+
+
+ //Optional query Options for TApplicationsResource, method Verify
+
+ TApplicationsVerifyOptions = Record
+ consistencyToken : int64;
+ end;
+
TApplicationsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Get(applicationId: string; AQuery : string = '') : TApplication;
Function Get(applicationId: string; AQuery : TApplicationsgetOptions) : TApplication;
- Procedure Played;
+ Procedure Played(AQuery : string = '');
+ Procedure Played(AQuery : TApplicationsplayedOptions);
+ Function Verify(applicationId: string; AQuery : string = '') : TApplicationVerifyResponse;
+ Function Verify(applicationId: string; AQuery : TApplicationsverifyOptions) : TApplicationVerifyResponse;
end;
@@ -3195,6 +3283,7 @@ type
//Optional query Options for TEventsResource, method ListByPlayer
TEventsListByPlayerOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3204,6 +3293,7 @@ type
//Optional query Options for TEventsResource, method ListDefinitions
TEventsListDefinitionsOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3213,6 +3303,7 @@ type
//Optional query Options for TEventsResource, method Record
TEventsRecordOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3237,6 +3328,7 @@ type
//Optional query Options for TLeaderboardsResource, method Get
TLeaderboardsGetOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3244,6 +3336,7 @@ type
//Optional query Options for TLeaderboardsResource, method List
TLeaderboardsListOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3265,9 +3358,17 @@ type
--------------------------------------------------------------------}
+ //Optional query Options for TMetagameResource, method GetMetagameConfig
+
+ TMetagameGetMetagameConfigOptions = Record
+ consistencyToken : int64;
+ end;
+
+
//Optional query Options for TMetagameResource, method ListCategoriesByPlayer
TMetagameListCategoriesByPlayerOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3277,7 +3378,8 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function GetMetagameConfig : TMetagameConfig;
+ Function GetMetagameConfig(AQuery : string = '') : TMetagameConfig;
+ Function GetMetagameConfig(AQuery : TMetagamegetMetagameConfigOptions) : TMetagameConfig;
Function ListCategoriesByPlayer(collection: string; playerId: string; AQuery : string = '') : TCategoryListResponse;
Function ListCategoriesByPlayer(collection: string; playerId: string; AQuery : TMetagamelistCategoriesByPlayerOptions) : TCategoryListResponse;
end;
@@ -3291,6 +3393,7 @@ type
//Optional query Options for TPlayersResource, method Get
TPlayersGetOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3298,6 +3401,7 @@ type
//Optional query Options for TPlayersResource, method List
TPlayersListOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3318,12 +3422,28 @@ type
TPushtokensResource
--------------------------------------------------------------------}
+
+ //Optional query Options for TPushtokensResource, method Remove
+
+ TPushtokensRemoveOptions = Record
+ consistencyToken : int64;
+ end;
+
+
+ //Optional query Options for TPushtokensResource, method Update
+
+ TPushtokensUpdateOptions = Record
+ consistencyToken : int64;
+ end;
+
TPushtokensResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Remove(aPushTokenId : TPushTokenId);
- Procedure Update(aPushToken : TPushToken);
+ Procedure Remove(aPushTokenId : TPushTokenId; AQuery : string = '');
+ Procedure Remove(aPushTokenId : TPushTokenId; AQuery : TPushtokensremoveOptions);
+ Procedure Update(aPushToken : TPushToken; AQuery : string = '');
+ Procedure Update(aPushToken : TPushToken; AQuery : TPushtokensupdateOptions);
end;
@@ -3335,6 +3455,7 @@ type
//Optional query Options for TQuestMilestonesResource, method Claim
TQuestMilestonesClaimOptions = Record
+ consistencyToken : int64;
requestId : int64;
end;
@@ -3355,6 +3476,7 @@ type
//Optional query Options for TQuestsResource, method Accept
TQuestsAcceptOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3362,6 +3484,7 @@ type
//Optional query Options for TQuestsResource, method List
TQuestsListOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3387,6 +3510,7 @@ type
TRevisionsCheckOptions = Record
clientRevision : String;
+ consistencyToken : int64;
end;
TRevisionsResource = Class(TGoogleResource)
@@ -3406,6 +3530,7 @@ type
//Optional query Options for TRoomsResource, method Create
TRoomsCreateOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3413,13 +3538,22 @@ type
//Optional query Options for TRoomsResource, method Decline
TRoomsDeclineOptions = Record
+ consistencyToken : int64;
language : String;
end;
+ //Optional query Options for TRoomsResource, method Dismiss
+
+ TRoomsDismissOptions = Record
+ consistencyToken : int64;
+ end;
+
+
//Optional query Options for TRoomsResource, method Get
TRoomsGetOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3427,6 +3561,7 @@ type
//Optional query Options for TRoomsResource, method Join
TRoomsJoinOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3434,6 +3569,7 @@ type
//Optional query Options for TRoomsResource, method Leave
TRoomsLeaveOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3441,6 +3577,7 @@ type
//Optional query Options for TRoomsResource, method List
TRoomsListOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3450,6 +3587,7 @@ type
//Optional query Options for TRoomsResource, method ReportStatus
TRoomsReportStatusOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3461,7 +3599,8 @@ type
Function Create(aRoomCreateRequest : TRoomCreateRequest; AQuery : TRoomscreateOptions) : TRoom;overload;
Function Decline(roomId: string; AQuery : string = '') : TRoom;
Function Decline(roomId: string; AQuery : TRoomsdeclineOptions) : TRoom;
- Procedure Dismiss(roomId: string);
+ Procedure Dismiss(roomId: string; AQuery : string = '');
+ Procedure Dismiss(roomId: string; AQuery : TRoomsdismissOptions);
Function Get(roomId: string; AQuery : string = '') : TRoom;
Function Get(roomId: string; AQuery : TRoomsgetOptions) : TRoom;
Function Join(roomId: string; aRoomJoinRequest : TRoomJoinRequest; AQuery : string = '') : TRoom;
@@ -3483,6 +3622,7 @@ type
//Optional query Options for TScoresResource, method Get
TScoresGetOptions = Record
+ consistencyToken : int64;
includeRankType : String;
language : String;
maxResults : integer;
@@ -3493,6 +3633,7 @@ type
//Optional query Options for TScoresResource, method List
TScoresListOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3503,6 +3644,7 @@ type
//Optional query Options for TScoresResource, method ListWindow
TScoresListWindowOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3515,6 +3657,7 @@ type
//Optional query Options for TScoresResource, method Submit
TScoresSubmitOptions = Record
+ consistencyToken : int64;
language : String;
score : int64;
scoreTag : String;
@@ -3524,6 +3667,7 @@ type
//Optional query Options for TScoresResource, method SubmitMultiple
TScoresSubmitMultipleOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3552,6 +3696,7 @@ type
//Optional query Options for TSnapshotsResource, method Get
TSnapshotsGetOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3559,6 +3704,7 @@ type
//Optional query Options for TSnapshotsResource, method List
TSnapshotsListOptions = Record
+ consistencyToken : int64;
language : String;
maxResults : integer;
pageToken : String;
@@ -3580,9 +3726,17 @@ type
--------------------------------------------------------------------}
+ //Optional query Options for TTurnBasedMatchesResource, method Cancel
+
+ TTurnBasedMatchesCancelOptions = Record
+ consistencyToken : int64;
+ end;
+
+
//Optional query Options for TTurnBasedMatchesResource, method Create
TTurnBasedMatchesCreateOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3590,13 +3744,22 @@ type
//Optional query Options for TTurnBasedMatchesResource, method Decline
TTurnBasedMatchesDeclineOptions = Record
+ consistencyToken : int64;
language : String;
end;
+ //Optional query Options for TTurnBasedMatchesResource, method Dismiss
+
+ TTurnBasedMatchesDismissOptions = Record
+ consistencyToken : int64;
+ end;
+
+
//Optional query Options for TTurnBasedMatchesResource, method Finish
TTurnBasedMatchesFinishOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3604,6 +3767,7 @@ type
//Optional query Options for TTurnBasedMatchesResource, method Get
TTurnBasedMatchesGetOptions = Record
+ consistencyToken : int64;
includeMatchData : boolean;
language : String;
end;
@@ -3612,6 +3776,7 @@ type
//Optional query Options for TTurnBasedMatchesResource, method Join
TTurnBasedMatchesJoinOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3619,6 +3784,7 @@ type
//Optional query Options for TTurnBasedMatchesResource, method Leave
TTurnBasedMatchesLeaveOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3626,6 +3792,7 @@ type
//Optional query Options for TTurnBasedMatchesResource, method LeaveTurn
TTurnBasedMatchesLeaveTurnOptions = Record
+ consistencyToken : int64;
language : String;
matchVersion : integer;
pendingParticipantId : String;
@@ -3635,6 +3802,7 @@ type
//Optional query Options for TTurnBasedMatchesResource, method List
TTurnBasedMatchesListOptions = Record
+ consistencyToken : int64;
includeMatchData : boolean;
language : String;
maxCompletedMatches : integer;
@@ -3646,6 +3814,7 @@ type
//Optional query Options for TTurnBasedMatchesResource, method Rematch
TTurnBasedMatchesRematchOptions = Record
+ consistencyToken : int64;
language : String;
requestId : int64;
end;
@@ -3654,6 +3823,7 @@ type
//Optional query Options for TTurnBasedMatchesResource, method Sync
TTurnBasedMatchesSyncOptions = Record
+ consistencyToken : int64;
includeMatchData : boolean;
language : String;
maxCompletedMatches : integer;
@@ -3665,6 +3835,7 @@ type
//Optional query Options for TTurnBasedMatchesResource, method TakeTurn
TTurnBasedMatchesTakeTurnOptions = Record
+ consistencyToken : int64;
language : String;
end;
@@ -3672,12 +3843,14 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Cancel(matchId: string);
+ Procedure Cancel(matchId: string; AQuery : string = '');
+ Procedure Cancel(matchId: string; AQuery : TTurnBasedMatchescancelOptions);
Function Create(aTurnBasedMatchCreateRequest : TTurnBasedMatchCreateRequest; AQuery : string = '') : TTurnBasedMatch;overload;
Function Create(aTurnBasedMatchCreateRequest : TTurnBasedMatchCreateRequest; AQuery : TTurnBasedMatchescreateOptions) : TTurnBasedMatch;overload;
Function Decline(matchId: string; AQuery : string = '') : TTurnBasedMatch;
Function Decline(matchId: string; AQuery : TTurnBasedMatchesdeclineOptions) : TTurnBasedMatch;
- Procedure Dismiss(matchId: string);
+ Procedure Dismiss(matchId: string; AQuery : string = '');
+ Procedure Dismiss(matchId: string; AQuery : TTurnBasedMatchesdismissOptions);
Function Finish(matchId: string; aTurnBasedMatchResults : TTurnBasedMatchResults; AQuery : string = '') : TTurnBasedMatch;
Function Finish(matchId: string; aTurnBasedMatchResults : TTurnBasedMatchResults; AQuery : TTurnBasedMatchesfinishOptions) : TTurnBasedMatch;
Function Get(matchId: string; AQuery : string = '') : TTurnBasedMatch;
@@ -3874,7 +4047,7 @@ end;
-Procedure TAchievementDefinition.SetisRevealedIconUrlDefault(AIndex : Integer; AValue : boolean);
+Procedure TAchievementDefinition.SetisRevealedIconUrlDefault(AIndex : Integer; const AValue : boolean);
begin
If (FisRevealedIconUrlDefault=AValue) then exit;
@@ -3884,7 +4057,7 @@ end;
-Procedure TAchievementDefinition.SetisUnlockedIconUrlDefault(AIndex : Integer; AValue : boolean);
+Procedure TAchievementDefinition.SetisUnlockedIconUrlDefault(AIndex : Integer; const AValue : boolean);
begin
If (FisUnlockedIconUrlDefault=AValue) then exit;
@@ -3924,7 +4097,7 @@ end;
-Procedure TAchievementDefinition.SettotalSteps(AIndex : Integer; AValue : integer);
+Procedure TAchievementDefinition.SettotalSteps(AIndex : Integer; const AValue : integer);
begin
If (FtotalSteps=AValue) then exit;
@@ -3951,7 +4124,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAchievementDefinitionsListResponse.Setitems(AIndex : Integer; AValue : TAchievementDefinitionsListResponseTypeitemsArray);
+Procedure TAchievementDefinitionsListResponse.Setitems(AIndex : Integer; const AValue : TAchievementDefinitionsListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -4001,7 +4174,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAchievementIncrementResponse.SetcurrentSteps(AIndex : Integer; AValue : integer);
+Procedure TAchievementIncrementResponse.SetcurrentSteps(AIndex : Integer; const AValue : integer);
begin
If (FcurrentSteps=AValue) then exit;
@@ -4021,7 +4194,7 @@ end;
-Procedure TAchievementIncrementResponse.SetnewlyUnlocked(AIndex : Integer; AValue : boolean);
+Procedure TAchievementIncrementResponse.SetnewlyUnlocked(AIndex : Integer; const AValue : boolean);
begin
If (FnewlyUnlocked=AValue) then exit;
@@ -4065,7 +4238,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAchievementSetStepsAtLeastResponse.SetcurrentSteps(AIndex : Integer; AValue : integer);
+Procedure TAchievementSetStepsAtLeastResponse.SetcurrentSteps(AIndex : Integer; const AValue : integer);
begin
If (FcurrentSteps=AValue) then exit;
@@ -4085,7 +4258,7 @@ end;
-Procedure TAchievementSetStepsAtLeastResponse.SetnewlyUnlocked(AIndex : Integer; AValue : boolean);
+Procedure TAchievementSetStepsAtLeastResponse.SetnewlyUnlocked(AIndex : Integer; const AValue : boolean);
begin
If (FnewlyUnlocked=AValue) then exit;
@@ -4112,7 +4285,7 @@ end;
-Procedure TAchievementUnlockResponse.SetnewlyUnlocked(AIndex : Integer; AValue : boolean);
+Procedure TAchievementUnlockResponse.SetnewlyUnlocked(AIndex : Integer; const AValue : boolean);
begin
If (FnewlyUnlocked=AValue) then exit;
@@ -4139,7 +4312,7 @@ end;
-Procedure TAchievementUpdateMultipleRequest.Setupdates(AIndex : Integer; AValue : TAchievementUpdateMultipleRequestTypeupdatesArray);
+Procedure TAchievementUpdateMultipleRequest.Setupdates(AIndex : Integer; const AValue : TAchievementUpdateMultipleRequestTypeupdatesArray);
begin
If (Fupdates=AValue) then exit;
@@ -4179,7 +4352,7 @@ end;
-Procedure TAchievementUpdateMultipleResponse.SetupdatedAchievements(AIndex : Integer; AValue : TAchievementUpdateMultipleResponseTypeupdatedAchievementsArray);
+Procedure TAchievementUpdateMultipleResponse.SetupdatedAchievements(AIndex : Integer; const AValue : TAchievementUpdateMultipleResponseTypeupdatedAchievementsArray);
begin
If (FupdatedAchievements=AValue) then exit;
@@ -4219,7 +4392,7 @@ end;
-Procedure TAchievementUpdateRequest.SetincrementPayload(AIndex : Integer; AValue : TGamesAchievementIncrement);
+Procedure TAchievementUpdateRequest.SetincrementPayload(AIndex : Integer; const AValue : TGamesAchievementIncrement);
begin
If (FincrementPayload=AValue) then exit;
@@ -4239,7 +4412,7 @@ end;
-Procedure TAchievementUpdateRequest.SetsetStepsAtLeastPayload(AIndex : Integer; AValue : TGamesAchievementSetStepsAtLeast);
+Procedure TAchievementUpdateRequest.SetsetStepsAtLeastPayload(AIndex : Integer; const AValue : TGamesAchievementSetStepsAtLeast);
begin
If (FsetStepsAtLeastPayload=AValue) then exit;
@@ -4286,7 +4459,7 @@ end;
-Procedure TAchievementUpdateResponse.SetcurrentSteps(AIndex : Integer; AValue : integer);
+Procedure TAchievementUpdateResponse.SetcurrentSteps(AIndex : Integer; const AValue : integer);
begin
If (FcurrentSteps=AValue) then exit;
@@ -4306,7 +4479,7 @@ end;
-Procedure TAchievementUpdateResponse.SetnewlyUnlocked(AIndex : Integer; AValue : boolean);
+Procedure TAchievementUpdateResponse.SetnewlyUnlocked(AIndex : Integer; const AValue : boolean);
begin
If (FnewlyUnlocked=AValue) then exit;
@@ -4316,7 +4489,7 @@ end;
-Procedure TAchievementUpdateResponse.SetupdateOccurred(AIndex : Integer; AValue : boolean);
+Procedure TAchievementUpdateResponse.SetupdateOccurred(AIndex : Integer; const AValue : boolean);
begin
If (FupdateOccurred=AValue) then exit;
@@ -4427,7 +4600,7 @@ end;
--------------------------------------------------------------------}
-Procedure TApplication.Setachievement_count(AIndex : Integer; AValue : integer);
+Procedure TApplication.Setachievement_count(AIndex : Integer; const AValue : integer);
begin
If (Fachievement_count=AValue) then exit;
@@ -4437,7 +4610,7 @@ end;
-Procedure TApplication.Setassets(AIndex : Integer; AValue : TApplicationTypeassetsArray);
+Procedure TApplication.Setassets(AIndex : Integer; const AValue : TApplicationTypeassetsArray);
begin
If (Fassets=AValue) then exit;
@@ -4457,7 +4630,7 @@ end;
-Procedure TApplication.Setcategory(AIndex : Integer; AValue : TApplicationCategory);
+Procedure TApplication.Setcategory(AIndex : Integer; const AValue : TApplicationCategory);
begin
If (Fcategory=AValue) then exit;
@@ -4477,7 +4650,7 @@ end;
-Procedure TApplication.SetenabledFeatures(AIndex : Integer; AValue : TStringArray);
+Procedure TApplication.SetenabledFeatures(AIndex : Integer; const AValue : TStringArray);
begin
If (FenabledFeatures=AValue) then exit;
@@ -4497,7 +4670,7 @@ end;
-Procedure TApplication.Setinstances(AIndex : Integer; AValue : TApplicationTypeinstancesArray);
+Procedure TApplication.Setinstances(AIndex : Integer; const AValue : TApplicationTypeinstancesArray);
begin
If (Finstances=AValue) then exit;
@@ -4527,7 +4700,7 @@ end;
-Procedure TApplication.Setleaderboard_count(AIndex : Integer; AValue : integer);
+Procedure TApplication.Setleaderboard_count(AIndex : Integer; const AValue : integer);
begin
If (Fleaderboard_count=AValue) then exit;
@@ -4612,6 +4785,43 @@ end;
{ --------------------------------------------------------------------
+ TApplicationVerifyResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TApplicationVerifyResponse.Setalternate_player_id(AIndex : Integer; const AValue : String);
+
+begin
+ If (Falternate_player_id=AValue) then exit;
+ Falternate_player_id:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApplicationVerifyResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApplicationVerifyResponse.Setplayer_id(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fplayer_id=AValue) then exit;
+ Fplayer_id:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TCategory
--------------------------------------------------------------------}
@@ -4653,7 +4863,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCategoryListResponse.Setitems(AIndex : Integer; AValue : TCategoryListResponseTypeitemsArray);
+Procedure TCategoryListResponse.Setitems(AIndex : Integer; const AValue : TCategoryListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -4723,7 +4933,7 @@ end;
-Procedure TEventBatchRecordFailure.Setrange(AIndex : Integer; AValue : TEventPeriodRange);
+Procedure TEventBatchRecordFailure.Setrange(AIndex : Integer; const AValue : TEventPeriodRange);
begin
If (Frange=AValue) then exit;
@@ -4767,7 +4977,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEventDefinition.SetchildEvents(AIndex : Integer; AValue : TEventDefinitionTypechildEventsArray);
+Procedure TEventDefinition.SetchildEvents(AIndex : Integer; const AValue : TEventDefinitionTypechildEventsArray);
begin
If (FchildEvents=AValue) then exit;
@@ -4817,7 +5027,7 @@ end;
-Procedure TEventDefinition.SetisDefaultImageUrl(AIndex : Integer; AValue : boolean);
+Procedure TEventDefinition.SetisDefaultImageUrl(AIndex : Integer; const AValue : boolean);
begin
If (FisDefaultImageUrl=AValue) then exit;
@@ -4867,7 +5077,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEventDefinitionListResponse.Setitems(AIndex : Integer; AValue : TEventDefinitionListResponseTypeitemsArray);
+Procedure TEventDefinitionListResponse.Setitems(AIndex : Integer; const AValue : TEventDefinitionListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -4964,7 +5174,7 @@ end;
-Procedure TEventPeriodUpdate.SettimePeriod(AIndex : Integer; AValue : TEventPeriodRange);
+Procedure TEventPeriodUpdate.SettimePeriod(AIndex : Integer; const AValue : TEventPeriodRange);
begin
If (FtimePeriod=AValue) then exit;
@@ -4974,7 +5184,7 @@ end;
-Procedure TEventPeriodUpdate.Setupdates(AIndex : Integer; AValue : TEventPeriodUpdateTypeupdatesArray);
+Procedure TEventPeriodUpdate.Setupdates(AIndex : Integer; const AValue : TEventPeriodUpdateTypeupdatesArray);
begin
If (Fupdates=AValue) then exit;
@@ -5071,7 +5281,7 @@ end;
-Procedure TEventRecordRequest.SettimePeriods(AIndex : Integer; AValue : TEventRecordRequestTypetimePeriodsArray);
+Procedure TEventRecordRequest.SettimePeriods(AIndex : Integer; const AValue : TEventRecordRequestTypetimePeriodsArray);
begin
If (FtimePeriods=AValue) then exit;
@@ -5138,7 +5348,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEventUpdateResponse.SetbatchFailures(AIndex : Integer; AValue : TEventUpdateResponseTypebatchFailuresArray);
+Procedure TEventUpdateResponse.SetbatchFailures(AIndex : Integer; const AValue : TEventUpdateResponseTypebatchFailuresArray);
begin
If (FbatchFailures=AValue) then exit;
@@ -5148,7 +5358,7 @@ end;
-Procedure TEventUpdateResponse.SeteventFailures(AIndex : Integer; AValue : TEventUpdateResponseTypeeventFailuresArray);
+Procedure TEventUpdateResponse.SeteventFailures(AIndex : Integer; const AValue : TEventUpdateResponseTypeeventFailuresArray);
begin
If (FeventFailures=AValue) then exit;
@@ -5168,7 +5378,7 @@ end;
-Procedure TEventUpdateResponse.SetplayerEvents(AIndex : Integer; AValue : TEventUpdateResponseTypeplayerEventsArray);
+Procedure TEventUpdateResponse.SetplayerEvents(AIndex : Integer; const AValue : TEventUpdateResponseTypeplayerEventsArray);
begin
If (FplayerEvents=AValue) then exit;
@@ -5220,7 +5430,7 @@ end;
-Procedure TGamesAchievementIncrement.Setsteps(AIndex : Integer; AValue : integer);
+Procedure TGamesAchievementIncrement.Setsteps(AIndex : Integer; const AValue : integer);
begin
If (Fsteps=AValue) then exit;
@@ -5247,7 +5457,7 @@ end;
-Procedure TGamesAchievementSetStepsAtLeast.Setsteps(AIndex : Integer; AValue : integer);
+Procedure TGamesAchievementSetStepsAtLeast.Setsteps(AIndex : Integer; const AValue : integer);
begin
If (Fsteps=AValue) then exit;
@@ -5264,7 +5474,7 @@ end;
--------------------------------------------------------------------}
-Procedure TImageAsset.Setheight(AIndex : Integer; AValue : integer);
+Procedure TImageAsset.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -5304,7 +5514,7 @@ end;
-Procedure TImageAsset.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TImageAsset.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -5331,7 +5541,7 @@ end;
-Procedure TInstance.SetandroidInstance(AIndex : Integer; AValue : TInstanceAndroidDetails);
+Procedure TInstance.SetandroidInstance(AIndex : Integer; const AValue : TInstanceAndroidDetails);
begin
If (FandroidInstance=AValue) then exit;
@@ -5341,7 +5551,7 @@ end;
-Procedure TInstance.SetiosInstance(AIndex : Integer; AValue : TInstanceIosDetails);
+Procedure TInstance.SetiosInstance(AIndex : Integer; const AValue : TInstanceIosDetails);
begin
If (FiosInstance=AValue) then exit;
@@ -5381,7 +5591,7 @@ end;
-Procedure TInstance.SetrealtimePlay(AIndex : Integer; AValue : boolean);
+Procedure TInstance.SetrealtimePlay(AIndex : Integer; const AValue : boolean);
begin
If (FrealtimePlay=AValue) then exit;
@@ -5391,7 +5601,7 @@ end;
-Procedure TInstance.SetturnBasedPlay(AIndex : Integer; AValue : boolean);
+Procedure TInstance.SetturnBasedPlay(AIndex : Integer; const AValue : boolean);
begin
If (FturnBasedPlay=AValue) then exit;
@@ -5401,7 +5611,7 @@ end;
-Procedure TInstance.SetwebInstance(AIndex : Integer; AValue : TInstanceWebDetails);
+Procedure TInstance.SetwebInstance(AIndex : Integer; const AValue : TInstanceWebDetails);
begin
If (FwebInstance=AValue) then exit;
@@ -5418,7 +5628,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstanceAndroidDetails.SetenablePiracyCheck(AIndex : Integer; AValue : boolean);
+Procedure TInstanceAndroidDetails.SetenablePiracyCheck(AIndex : Integer; const AValue : boolean);
begin
If (FenablePiracyCheck=AValue) then exit;
@@ -5448,7 +5658,7 @@ end;
-Procedure TInstanceAndroidDetails.Setpreferred(AIndex : Integer; AValue : boolean);
+Procedure TInstanceAndroidDetails.Setpreferred(AIndex : Integer; const AValue : boolean);
begin
If (Fpreferred=AValue) then exit;
@@ -5495,7 +5705,7 @@ end;
-Procedure TInstanceIosDetails.SetpreferredForIpad(AIndex : Integer; AValue : boolean);
+Procedure TInstanceIosDetails.SetpreferredForIpad(AIndex : Integer; const AValue : boolean);
begin
If (FpreferredForIpad=AValue) then exit;
@@ -5505,7 +5715,7 @@ end;
-Procedure TInstanceIosDetails.SetpreferredForIphone(AIndex : Integer; AValue : boolean);
+Procedure TInstanceIosDetails.SetpreferredForIphone(AIndex : Integer; const AValue : boolean);
begin
If (FpreferredForIphone=AValue) then exit;
@@ -5515,7 +5725,7 @@ end;
-Procedure TInstanceIosDetails.SetsupportIpad(AIndex : Integer; AValue : boolean);
+Procedure TInstanceIosDetails.SetsupportIpad(AIndex : Integer; const AValue : boolean);
begin
If (FsupportIpad=AValue) then exit;
@@ -5525,7 +5735,7 @@ end;
-Procedure TInstanceIosDetails.SetsupportIphone(AIndex : Integer; AValue : boolean);
+Procedure TInstanceIosDetails.SetsupportIphone(AIndex : Integer; const AValue : boolean);
begin
If (FsupportIphone=AValue) then exit;
@@ -5562,7 +5772,7 @@ end;
-Procedure TInstanceWebDetails.Setpreferred(AIndex : Integer; AValue : boolean);
+Procedure TInstanceWebDetails.Setpreferred(AIndex : Integer; const AValue : boolean);
begin
If (Fpreferred=AValue) then exit;
@@ -5599,7 +5809,7 @@ end;
-Procedure TLeaderboard.SetisIconUrlDefault(AIndex : Integer; AValue : boolean);
+Procedure TLeaderboard.SetisIconUrlDefault(AIndex : Integer; const AValue : boolean);
begin
If (FisIconUrlDefault=AValue) then exit;
@@ -5676,7 +5886,7 @@ end;
-Procedure TLeaderboardEntry.Setplayer(AIndex : Integer; AValue : TPlayer);
+Procedure TLeaderboardEntry.Setplayer(AIndex : Integer; const AValue : TPlayer);
begin
If (Fplayer=AValue) then exit;
@@ -5743,7 +5953,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLeaderboardListResponse.Setitems(AIndex : Integer; AValue : TLeaderboardListResponseTypeitemsArray);
+Procedure TLeaderboardListResponse.Setitems(AIndex : Integer; const AValue : TLeaderboardListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -5850,7 +6060,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLeaderboardScores.Setitems(AIndex : Integer; AValue : TLeaderboardScoresTypeitemsArray);
+Procedure TLeaderboardScores.Setitems(AIndex : Integer; const AValue : TLeaderboardScoresTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -5890,7 +6100,7 @@ end;
-Procedure TLeaderboardScores.SetplayerScore(AIndex : Integer; AValue : TLeaderboardEntry);
+Procedure TLeaderboardScores.SetplayerScore(AIndex : Integer; const AValue : TLeaderboardEntry);
begin
If (FplayerScore=AValue) then exit;
@@ -5930,7 +6140,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMetagameConfig.SetcurrentVersion(AIndex : Integer; AValue : integer);
+Procedure TMetagameConfig.SetcurrentVersion(AIndex : Integer; const AValue : integer);
begin
If (FcurrentVersion=AValue) then exit;
@@ -5950,7 +6160,7 @@ end;
-Procedure TMetagameConfig.SetplayerLevels(AIndex : Integer; AValue : TMetagameConfigTypeplayerLevelsArray);
+Procedure TMetagameConfig.SetplayerLevels(AIndex : Integer; const AValue : TMetagameConfigTypeplayerLevelsArray);
begin
If (FplayerLevels=AValue) then exit;
@@ -5980,7 +6190,7 @@ end;
--------------------------------------------------------------------}
-Procedure TNetworkDiagnostics.SetandroidNetworkSubtype(AIndex : Integer; AValue : integer);
+Procedure TNetworkDiagnostics.SetandroidNetworkSubtype(AIndex : Integer; const AValue : integer);
begin
If (FandroidNetworkSubtype=AValue) then exit;
@@ -5990,7 +6200,7 @@ end;
-Procedure TNetworkDiagnostics.SetandroidNetworkType(AIndex : Integer; AValue : integer);
+Procedure TNetworkDiagnostics.SetandroidNetworkType(AIndex : Integer; const AValue : integer);
begin
If (FandroidNetworkType=AValue) then exit;
@@ -6000,7 +6210,7 @@ end;
-Procedure TNetworkDiagnostics.SetiosNetworkType(AIndex : Integer; AValue : integer);
+Procedure TNetworkDiagnostics.SetiosNetworkType(AIndex : Integer; const AValue : integer);
begin
If (FiosNetworkType=AValue) then exit;
@@ -6040,7 +6250,7 @@ end;
-Procedure TNetworkDiagnostics.SetregistrationLatencyMillis(AIndex : Integer; AValue : integer);
+Procedure TNetworkDiagnostics.SetregistrationLatencyMillis(AIndex : Integer; const AValue : integer);
begin
If (FregistrationLatencyMillis=AValue) then exit;
@@ -6077,7 +6287,7 @@ end;
-Procedure TParticipantResult.Setplacing(AIndex : Integer; AValue : integer);
+Procedure TParticipantResult.Setplacing(AIndex : Integer; const AValue : integer);
begin
If (Fplacing=AValue) then exit;
@@ -6104,7 +6314,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPeerChannelDiagnostics.SetbytesReceived(AIndex : Integer; AValue : TAggregateStats);
+Procedure TPeerChannelDiagnostics.SetbytesReceived(AIndex : Integer; const AValue : TAggregateStats);
begin
If (FbytesReceived=AValue) then exit;
@@ -6114,7 +6324,7 @@ end;
-Procedure TPeerChannelDiagnostics.SetbytesSent(AIndex : Integer; AValue : TAggregateStats);
+Procedure TPeerChannelDiagnostics.SetbytesSent(AIndex : Integer; const AValue : TAggregateStats);
begin
If (FbytesSent=AValue) then exit;
@@ -6134,7 +6344,7 @@ end;
-Procedure TPeerChannelDiagnostics.SetnumMessagesLost(AIndex : Integer; AValue : integer);
+Procedure TPeerChannelDiagnostics.SetnumMessagesLost(AIndex : Integer; const AValue : integer);
begin
If (FnumMessagesLost=AValue) then exit;
@@ -6144,7 +6354,7 @@ end;
-Procedure TPeerChannelDiagnostics.SetnumMessagesReceived(AIndex : Integer; AValue : integer);
+Procedure TPeerChannelDiagnostics.SetnumMessagesReceived(AIndex : Integer; const AValue : integer);
begin
If (FnumMessagesReceived=AValue) then exit;
@@ -6154,7 +6364,7 @@ end;
-Procedure TPeerChannelDiagnostics.SetnumMessagesSent(AIndex : Integer; AValue : integer);
+Procedure TPeerChannelDiagnostics.SetnumMessagesSent(AIndex : Integer; const AValue : integer);
begin
If (FnumMessagesSent=AValue) then exit;
@@ -6164,7 +6374,7 @@ end;
-Procedure TPeerChannelDiagnostics.SetnumSendFailures(AIndex : Integer; AValue : integer);
+Procedure TPeerChannelDiagnostics.SetnumSendFailures(AIndex : Integer; const AValue : integer);
begin
If (FnumSendFailures=AValue) then exit;
@@ -6174,7 +6384,7 @@ end;
-Procedure TPeerChannelDiagnostics.SetroundtripLatencyMillis(AIndex : Integer; AValue : TAggregateStats);
+Procedure TPeerChannelDiagnostics.SetroundtripLatencyMillis(AIndex : Integer; const AValue : TAggregateStats);
begin
If (FroundtripLatencyMillis=AValue) then exit;
@@ -6221,7 +6431,7 @@ end;
-Procedure TPeerSessionDiagnostics.SetreliableChannel(AIndex : Integer; AValue : TPeerChannelDiagnostics);
+Procedure TPeerSessionDiagnostics.SetreliableChannel(AIndex : Integer; const AValue : TPeerChannelDiagnostics);
begin
If (FreliableChannel=AValue) then exit;
@@ -6231,7 +6441,7 @@ end;
-Procedure TPeerSessionDiagnostics.SetunreliableChannel(AIndex : Integer; AValue : TPeerChannelDiagnostics);
+Procedure TPeerSessionDiagnostics.SetunreliableChannel(AIndex : Integer; const AValue : TPeerChannelDiagnostics);
begin
If (FunreliableChannel=AValue) then exit;
@@ -6248,7 +6458,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlayed.SetautoMatched(AIndex : Integer; AValue : boolean);
+Procedure TPlayed.SetautoMatched(AIndex : Integer; const AValue : boolean);
begin
If (FautoMatched=AValue) then exit;
@@ -6322,6 +6532,26 @@ end;
+Procedure TPlayer.SetbannerUrlLandscape(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbannerUrlLandscape=AValue) then exit;
+ FbannerUrlLandscape:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPlayer.SetbannerUrlPortrait(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbannerUrlPortrait=AValue) then exit;
+ FbannerUrlPortrait:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TPlayer.SetdisplayName(AIndex : Integer; const AValue : String);
begin
@@ -6332,7 +6562,7 @@ end;
-Procedure TPlayer.SetexperienceInfo(AIndex : Integer; AValue : TPlayerExperienceInfo);
+Procedure TPlayer.SetexperienceInfo(AIndex : Integer; const AValue : TPlayerExperienceInfo);
begin
If (FexperienceInfo=AValue) then exit;
@@ -6352,7 +6582,7 @@ end;
-Procedure TPlayer.SetlastPlayedWith(AIndex : Integer; AValue : TPlayed);
+Procedure TPlayer.SetlastPlayedWith(AIndex : Integer; const AValue : TPlayed);
begin
If (FlastPlayedWith=AValue) then exit;
@@ -6362,7 +6592,7 @@ end;
-Procedure TPlayer.Setname(AIndex : Integer; AValue : TPlayerTypename);
+Procedure TPlayer.Setname(AIndex : Integer; const AValue : TPlayerTypename);
begin
If (Fname=AValue) then exit;
@@ -6372,6 +6602,16 @@ end;
+Procedure TPlayer.SetoriginalPlayerId(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForiginalPlayerId=AValue) then exit;
+ ForiginalPlayerId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TPlayer.SetplayerId(AIndex : Integer; const AValue : String);
begin
@@ -6382,6 +6622,16 @@ end;
+Procedure TPlayer.SetprofileSettings(AIndex : Integer; const AValue : TProfileSettings);
+
+begin
+ If (FprofileSettings=AValue) then exit;
+ FprofileSettings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TPlayer.Settitle(AIndex : Integer; const AValue : String);
begin
@@ -6409,7 +6659,7 @@ end;
-Procedure TPlayerAchievement.SetcurrentSteps(AIndex : Integer; AValue : integer);
+Procedure TPlayerAchievement.SetcurrentSteps(AIndex : Integer; const AValue : integer);
begin
If (FcurrentSteps=AValue) then exit;
@@ -6476,7 +6726,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlayerAchievementListResponse.Setitems(AIndex : Integer; AValue : TPlayerAchievementListResponseTypeitemsArray);
+Procedure TPlayerAchievementListResponse.Setitems(AIndex : Integer; const AValue : TPlayerAchievementListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6583,7 +6833,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlayerEventListResponse.Setitems(AIndex : Integer; AValue : TPlayerEventListResponseTypeitemsArray);
+Procedure TPlayerEventListResponse.Setitems(AIndex : Integer; const AValue : TPlayerEventListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6643,7 +6893,7 @@ end;
-Procedure TPlayerExperienceInfo.SetcurrentLevel(AIndex : Integer; AValue : TPlayerLevel);
+Procedure TPlayerExperienceInfo.SetcurrentLevel(AIndex : Integer; const AValue : TPlayerLevel);
begin
If (FcurrentLevel=AValue) then exit;
@@ -6673,7 +6923,7 @@ end;
-Procedure TPlayerExperienceInfo.SetnextLevel(AIndex : Integer; AValue : TPlayerLevel);
+Procedure TPlayerExperienceInfo.SetnextLevel(AIndex : Integer; const AValue : TPlayerLevel);
begin
If (FnextLevel=AValue) then exit;
@@ -6710,7 +6960,7 @@ end;
-Procedure TPlayerLeaderboardScore.SetpublicRank(AIndex : Integer; AValue : TLeaderboardScoreRank);
+Procedure TPlayerLeaderboardScore.SetpublicRank(AIndex : Integer; const AValue : TLeaderboardScoreRank);
begin
If (FpublicRank=AValue) then exit;
@@ -6750,7 +7000,7 @@ end;
-Procedure TPlayerLeaderboardScore.SetsocialRank(AIndex : Integer; AValue : TLeaderboardScoreRank);
+Procedure TPlayerLeaderboardScore.SetsocialRank(AIndex : Integer; const AValue : TLeaderboardScoreRank);
begin
If (FsocialRank=AValue) then exit;
@@ -6787,7 +7037,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlayerLeaderboardScoreListResponse.Setitems(AIndex : Integer; AValue : TPlayerLeaderboardScoreListResponseTypeitemsArray);
+Procedure TPlayerLeaderboardScoreListResponse.Setitems(AIndex : Integer; const AValue : TPlayerLeaderboardScoreListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6817,7 +7067,7 @@ end;
-Procedure TPlayerLeaderboardScoreListResponse.Setplayer(AIndex : Integer; AValue : TPlayer);
+Procedure TPlayerLeaderboardScoreListResponse.Setplayer(AIndex : Integer; const AValue : TPlayer);
begin
If (Fplayer=AValue) then exit;
@@ -6857,7 +7107,7 @@ end;
-Procedure TPlayerLevel.Setlevel(AIndex : Integer; AValue : integer);
+Procedure TPlayerLevel.Setlevel(AIndex : Integer; const AValue : integer);
begin
If (Flevel=AValue) then exit;
@@ -6894,7 +7144,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlayerListResponse.Setitems(AIndex : Integer; AValue : TPlayerListResponseTypeitemsArray);
+Procedure TPlayerListResponse.Setitems(AIndex : Integer; const AValue : TPlayerListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -7011,7 +7261,7 @@ end;
-Procedure TPlayerScoreListResponse.SetsubmittedScores(AIndex : Integer; AValue : TPlayerScoreListResponseTypesubmittedScoresArray);
+Procedure TPlayerScoreListResponse.SetsubmittedScores(AIndex : Integer; const AValue : TPlayerScoreListResponseTypesubmittedScoresArray);
begin
If (FsubmittedScores=AValue) then exit;
@@ -7041,7 +7291,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlayerScoreResponse.SetbeatenScoreTimeSpans(AIndex : Integer; AValue : TStringArray);
+Procedure TPlayerScoreResponse.SetbeatenScoreTimeSpans(AIndex : Integer; const AValue : TStringArray);
begin
If (FbeatenScoreTimeSpans=AValue) then exit;
@@ -7091,7 +7341,7 @@ end;
-Procedure TPlayerScoreResponse.SetunbeatenScores(AIndex : Integer; AValue : TPlayerScoreResponseTypeunbeatenScoresArray);
+Procedure TPlayerScoreResponse.SetunbeatenScores(AIndex : Integer; const AValue : TPlayerScoreResponseTypeunbeatenScoresArray);
begin
If (FunbeatenScores=AValue) then exit;
@@ -7132,7 +7382,7 @@ end;
-Procedure TPlayerScoreSubmissionList.Setscores(AIndex : Integer; AValue : TPlayerScoreSubmissionListTypescoresArray);
+Procedure TPlayerScoreSubmissionList.Setscores(AIndex : Integer; const AValue : TPlayerScoreSubmissionListTypescoresArray);
begin
If (Fscores=AValue) then exit;
@@ -7158,6 +7408,33 @@ end;
{ --------------------------------------------------------------------
+ TProfileSettings
+ --------------------------------------------------------------------}
+
+
+Procedure TProfileSettings.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProfileSettings.SetprofileVisible(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FprofileVisible=AValue) then exit;
+ FprofileVisible:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TPushToken
--------------------------------------------------------------------}
@@ -7172,7 +7449,7 @@ end;
-Procedure TPushToken.Setid(AIndex : Integer; AValue : TPushTokenId);
+Procedure TPushToken.Setid(AIndex : Integer; const AValue : TPushTokenId);
begin
If (Fid=AValue) then exit;
@@ -7236,7 +7513,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPushTokenId.Setios(AIndex : Integer; AValue : TPushTokenIdTypeios);
+Procedure TPushTokenId.Setios(AIndex : Integer; const AValue : TPushTokenIdTypeios);
begin
If (Fios=AValue) then exit;
@@ -7333,7 +7610,7 @@ end;
-Procedure TQuest.SetisDefaultBannerUrl(AIndex : Integer; AValue : boolean);
+Procedure TQuest.SetisDefaultBannerUrl(AIndex : Integer; const AValue : boolean);
begin
If (FisDefaultBannerUrl=AValue) then exit;
@@ -7343,7 +7620,7 @@ end;
-Procedure TQuest.SetisDefaultIconUrl(AIndex : Integer; AValue : boolean);
+Procedure TQuest.SetisDefaultIconUrl(AIndex : Integer; const AValue : boolean);
begin
If (FisDefaultIconUrl=AValue) then exit;
@@ -7373,7 +7650,7 @@ end;
-Procedure TQuest.Setmilestones(AIndex : Integer; AValue : TQuestTypemilestonesArray);
+Procedure TQuest.Setmilestones(AIndex : Integer; const AValue : TQuestTypemilestonesArray);
begin
If (Fmilestones=AValue) then exit;
@@ -7480,7 +7757,7 @@ end;
--------------------------------------------------------------------}
-Procedure TQuestCriterion.SetcompletionContribution(AIndex : Integer; AValue : TQuestContribution);
+Procedure TQuestCriterion.SetcompletionContribution(AIndex : Integer; const AValue : TQuestContribution);
begin
If (FcompletionContribution=AValue) then exit;
@@ -7490,7 +7767,7 @@ end;
-Procedure TQuestCriterion.SetcurrentContribution(AIndex : Integer; AValue : TQuestContribution);
+Procedure TQuestCriterion.SetcurrentContribution(AIndex : Integer; const AValue : TQuestContribution);
begin
If (FcurrentContribution=AValue) then exit;
@@ -7510,7 +7787,7 @@ end;
-Procedure TQuestCriterion.SetinitialPlayerProgress(AIndex : Integer; AValue : TQuestContribution);
+Procedure TQuestCriterion.SetinitialPlayerProgress(AIndex : Integer; const AValue : TQuestContribution);
begin
If (FinitialPlayerProgress=AValue) then exit;
@@ -7537,7 +7814,7 @@ end;
--------------------------------------------------------------------}
-Procedure TQuestListResponse.Setitems(AIndex : Integer; AValue : TQuestListResponseTypeitemsArray);
+Procedure TQuestListResponse.Setitems(AIndex : Integer; const AValue : TQuestListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -7597,7 +7874,7 @@ end;
-Procedure TQuestMilestone.Setcriteria(AIndex : Integer; AValue : TQuestMilestoneTypecriteriaArray);
+Procedure TQuestMilestone.Setcriteria(AIndex : Integer; const AValue : TQuestMilestoneTypecriteriaArray);
begin
If (Fcriteria=AValue) then exit;
@@ -7704,7 +7981,7 @@ end;
-Procedure TRoom.SetautoMatchingCriteria(AIndex : Integer; AValue : TRoomAutoMatchingCriteria);
+Procedure TRoom.SetautoMatchingCriteria(AIndex : Integer; const AValue : TRoomAutoMatchingCriteria);
begin
If (FautoMatchingCriteria=AValue) then exit;
@@ -7714,7 +7991,7 @@ end;
-Procedure TRoom.SetautoMatchingStatus(AIndex : Integer; AValue : TRoomAutoMatchStatus);
+Procedure TRoom.SetautoMatchingStatus(AIndex : Integer; const AValue : TRoomAutoMatchStatus);
begin
If (FautoMatchingStatus=AValue) then exit;
@@ -7724,7 +8001,7 @@ end;
-Procedure TRoom.SetcreationDetails(AIndex : Integer; AValue : TRoomModification);
+Procedure TRoom.SetcreationDetails(AIndex : Integer; const AValue : TRoomModification);
begin
If (FcreationDetails=AValue) then exit;
@@ -7764,7 +8041,7 @@ end;
-Procedure TRoom.SetlastUpdateDetails(AIndex : Integer; AValue : TRoomModification);
+Procedure TRoom.SetlastUpdateDetails(AIndex : Integer; const AValue : TRoomModification);
begin
If (FlastUpdateDetails=AValue) then exit;
@@ -7774,7 +8051,7 @@ end;
-Procedure TRoom.Setparticipants(AIndex : Integer; AValue : TRoomTypeparticipantsArray);
+Procedure TRoom.Setparticipants(AIndex : Integer; const AValue : TRoomTypeparticipantsArray);
begin
If (Fparticipants=AValue) then exit;
@@ -7794,7 +8071,7 @@ end;
-Procedure TRoom.SetroomStatusVersion(AIndex : Integer; AValue : integer);
+Procedure TRoom.SetroomStatusVersion(AIndex : Integer; const AValue : integer);
begin
If (FroomStatusVersion=AValue) then exit;
@@ -7814,7 +8091,7 @@ end;
-Procedure TRoom.Setvariant(AIndex : Integer; AValue : integer);
+Procedure TRoom.Setvariant(AIndex : Integer; const AValue : integer);
begin
If (Fvariant=AValue) then exit;
@@ -7854,7 +8131,7 @@ end;
-Procedure TRoomAutoMatchStatus.SetwaitEstimateSeconds(AIndex : Integer; AValue : integer);
+Procedure TRoomAutoMatchStatus.SetwaitEstimateSeconds(AIndex : Integer; const AValue : integer);
begin
If (FwaitEstimateSeconds=AValue) then exit;
@@ -7891,7 +8168,7 @@ end;
-Procedure TRoomAutoMatchingCriteria.SetmaxAutoMatchingPlayers(AIndex : Integer; AValue : integer);
+Procedure TRoomAutoMatchingCriteria.SetmaxAutoMatchingPlayers(AIndex : Integer; const AValue : integer);
begin
If (FmaxAutoMatchingPlayers=AValue) then exit;
@@ -7901,7 +8178,7 @@ end;
-Procedure TRoomAutoMatchingCriteria.SetminAutoMatchingPlayers(AIndex : Integer; AValue : integer);
+Procedure TRoomAutoMatchingCriteria.SetminAutoMatchingPlayers(AIndex : Integer; const AValue : integer);
begin
If (FminAutoMatchingPlayers=AValue) then exit;
@@ -7945,7 +8222,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRoomCreateRequest.SetautoMatchingCriteria(AIndex : Integer; AValue : TRoomAutoMatchingCriteria);
+Procedure TRoomCreateRequest.SetautoMatchingCriteria(AIndex : Integer; const AValue : TRoomAutoMatchingCriteria);
begin
If (FautoMatchingCriteria=AValue) then exit;
@@ -7955,7 +8232,7 @@ end;
-Procedure TRoomCreateRequest.Setcapabilities(AIndex : Integer; AValue : TStringArray);
+Procedure TRoomCreateRequest.Setcapabilities(AIndex : Integer; const AValue : TStringArray);
begin
If (Fcapabilities=AValue) then exit;
@@ -7965,7 +8242,7 @@ end;
-Procedure TRoomCreateRequest.SetclientAddress(AIndex : Integer; AValue : TRoomClientAddress);
+Procedure TRoomCreateRequest.SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress);
begin
If (FclientAddress=AValue) then exit;
@@ -7975,7 +8252,7 @@ end;
-Procedure TRoomCreateRequest.SetinvitedPlayerIds(AIndex : Integer; AValue : TStringArray);
+Procedure TRoomCreateRequest.SetinvitedPlayerIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FinvitedPlayerIds=AValue) then exit;
@@ -7995,7 +8272,7 @@ end;
-Procedure TRoomCreateRequest.SetnetworkDiagnostics(AIndex : Integer; AValue : TNetworkDiagnostics);
+Procedure TRoomCreateRequest.SetnetworkDiagnostics(AIndex : Integer; const AValue : TNetworkDiagnostics);
begin
If (FnetworkDiagnostics=AValue) then exit;
@@ -8015,7 +8292,7 @@ end;
-Procedure TRoomCreateRequest.Setvariant(AIndex : Integer; AValue : integer);
+Procedure TRoomCreateRequest.Setvariant(AIndex : Integer; const AValue : integer);
begin
If (Fvariant=AValue) then exit;
@@ -8046,7 +8323,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRoomJoinRequest.Setcapabilities(AIndex : Integer; AValue : TStringArray);
+Procedure TRoomJoinRequest.Setcapabilities(AIndex : Integer; const AValue : TStringArray);
begin
If (Fcapabilities=AValue) then exit;
@@ -8056,7 +8333,7 @@ end;
-Procedure TRoomJoinRequest.SetclientAddress(AIndex : Integer; AValue : TRoomClientAddress);
+Procedure TRoomJoinRequest.SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress);
begin
If (FclientAddress=AValue) then exit;
@@ -8076,7 +8353,7 @@ end;
-Procedure TRoomJoinRequest.SetnetworkDiagnostics(AIndex : Integer; AValue : TNetworkDiagnostics);
+Procedure TRoomJoinRequest.SetnetworkDiagnostics(AIndex : Integer; const AValue : TNetworkDiagnostics);
begin
If (FnetworkDiagnostics=AValue) then exit;
@@ -8106,7 +8383,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRoomLeaveDiagnostics.SetandroidNetworkSubtype(AIndex : Integer; AValue : integer);
+Procedure TRoomLeaveDiagnostics.SetandroidNetworkSubtype(AIndex : Integer; const AValue : integer);
begin
If (FandroidNetworkSubtype=AValue) then exit;
@@ -8116,7 +8393,7 @@ end;
-Procedure TRoomLeaveDiagnostics.SetandroidNetworkType(AIndex : Integer; AValue : integer);
+Procedure TRoomLeaveDiagnostics.SetandroidNetworkType(AIndex : Integer; const AValue : integer);
begin
If (FandroidNetworkType=AValue) then exit;
@@ -8126,7 +8403,7 @@ end;
-Procedure TRoomLeaveDiagnostics.SetiosNetworkType(AIndex : Integer; AValue : integer);
+Procedure TRoomLeaveDiagnostics.SetiosNetworkType(AIndex : Integer; const AValue : integer);
begin
If (FiosNetworkType=AValue) then exit;
@@ -8166,7 +8443,7 @@ end;
-Procedure TRoomLeaveDiagnostics.SetpeerSession(AIndex : Integer; AValue : TRoomLeaveDiagnosticsTypepeerSessionArray);
+Procedure TRoomLeaveDiagnostics.SetpeerSession(AIndex : Integer; const AValue : TRoomLeaveDiagnosticsTypepeerSessionArray);
begin
If (FpeerSession=AValue) then exit;
@@ -8176,7 +8453,7 @@ end;
-Procedure TRoomLeaveDiagnostics.SetsocketsUsed(AIndex : Integer; AValue : boolean);
+Procedure TRoomLeaveDiagnostics.SetsocketsUsed(AIndex : Integer; const AValue : boolean);
begin
If (FsocketsUsed=AValue) then exit;
@@ -8216,7 +8493,7 @@ end;
-Procedure TRoomLeaveRequest.SetleaveDiagnostics(AIndex : Integer; AValue : TRoomLeaveDiagnostics);
+Procedure TRoomLeaveRequest.SetleaveDiagnostics(AIndex : Integer; const AValue : TRoomLeaveDiagnostics);
begin
If (FleaveDiagnostics=AValue) then exit;
@@ -8243,7 +8520,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRoomList.Setitems(AIndex : Integer; AValue : TRoomListTypeitemsArray);
+Procedure TRoomList.Setitems(AIndex : Integer; const AValue : TRoomListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -8330,7 +8607,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRoomP2PStatus.SetconnectionSetupLatencyMillis(AIndex : Integer; AValue : integer);
+Procedure TRoomP2PStatus.SetconnectionSetupLatencyMillis(AIndex : Integer; const AValue : integer);
begin
If (FconnectionSetupLatencyMillis=AValue) then exit;
@@ -8390,7 +8667,7 @@ end;
-Procedure TRoomP2PStatus.SetunreliableRoundtripLatencyMillis(AIndex : Integer; AValue : integer);
+Procedure TRoomP2PStatus.SetunreliableRoundtripLatencyMillis(AIndex : Integer; const AValue : integer);
begin
If (FunreliableRoundtripLatencyMillis=AValue) then exit;
@@ -8417,7 +8694,7 @@ end;
-Procedure TRoomP2PStatuses.Setupdates(AIndex : Integer; AValue : TRoomP2PStatusesTypeupdatesArray);
+Procedure TRoomP2PStatuses.Setupdates(AIndex : Integer; const AValue : TRoomP2PStatusesTypeupdatesArray);
begin
If (Fupdates=AValue) then exit;
@@ -8447,7 +8724,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRoomParticipant.SetautoMatched(AIndex : Integer; AValue : boolean);
+Procedure TRoomParticipant.SetautoMatched(AIndex : Integer; const AValue : boolean);
begin
If (FautoMatched=AValue) then exit;
@@ -8457,7 +8734,7 @@ end;
-Procedure TRoomParticipant.SetautoMatchedPlayer(AIndex : Integer; AValue : TAnonymousPlayer);
+Procedure TRoomParticipant.SetautoMatchedPlayer(AIndex : Integer; const AValue : TAnonymousPlayer);
begin
If (FautoMatchedPlayer=AValue) then exit;
@@ -8467,7 +8744,7 @@ end;
-Procedure TRoomParticipant.Setcapabilities(AIndex : Integer; AValue : TStringArray);
+Procedure TRoomParticipant.Setcapabilities(AIndex : Integer; const AValue : TStringArray);
begin
If (Fcapabilities=AValue) then exit;
@@ -8477,7 +8754,7 @@ end;
-Procedure TRoomParticipant.SetclientAddress(AIndex : Integer; AValue : TRoomClientAddress);
+Procedure TRoomParticipant.SetclientAddress(AIndex : Integer; const AValue : TRoomClientAddress);
begin
If (FclientAddress=AValue) then exit;
@@ -8487,7 +8764,7 @@ end;
-Procedure TRoomParticipant.Setconnected(AIndex : Integer; AValue : boolean);
+Procedure TRoomParticipant.Setconnected(AIndex : Integer; const AValue : boolean);
begin
If (Fconnected=AValue) then exit;
@@ -8527,7 +8804,7 @@ end;
-Procedure TRoomParticipant.Setplayer(AIndex : Integer; AValue : TPlayer);
+Procedure TRoomParticipant.Setplayer(AIndex : Integer; const AValue : TPlayer);
begin
If (Fplayer=AValue) then exit;
@@ -8567,7 +8844,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRoomStatus.SetautoMatchingStatus(AIndex : Integer; AValue : TRoomAutoMatchStatus);
+Procedure TRoomStatus.SetautoMatchingStatus(AIndex : Integer; const AValue : TRoomAutoMatchStatus);
begin
If (FautoMatchingStatus=AValue) then exit;
@@ -8587,7 +8864,7 @@ end;
-Procedure TRoomStatus.Setparticipants(AIndex : Integer; AValue : TRoomStatusTypeparticipantsArray);
+Procedure TRoomStatus.Setparticipants(AIndex : Integer; const AValue : TRoomStatusTypeparticipantsArray);
begin
If (Fparticipants=AValue) then exit;
@@ -8617,7 +8894,7 @@ end;
-Procedure TRoomStatus.SetstatusVersion(AIndex : Integer; AValue : integer);
+Procedure TRoomStatus.SetstatusVersion(AIndex : Integer; const AValue : integer);
begin
If (FstatusVersion=AValue) then exit;
@@ -8704,7 +8981,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSnapshot.SetcoverImage(AIndex : Integer; AValue : TSnapshotImage);
+Procedure TSnapshot.SetcoverImage(AIndex : Integer; const AValue : TSnapshotImage);
begin
If (FcoverImage=AValue) then exit;
@@ -8832,7 +9109,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSnapshotImage.Setheight(AIndex : Integer; AValue : integer);
+Procedure TSnapshotImage.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -8872,7 +9149,7 @@ end;
-Procedure TSnapshotImage.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TSnapshotImage.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -8889,7 +9166,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSnapshotListResponse.Setitems(AIndex : Integer; AValue : TSnapshotListResponseTypeitemsArray);
+Procedure TSnapshotListResponse.Setitems(AIndex : Integer; const AValue : TSnapshotListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -8959,7 +9236,7 @@ end;
-Procedure TTurnBasedAutoMatchingCriteria.SetmaxAutoMatchingPlayers(AIndex : Integer; AValue : integer);
+Procedure TTurnBasedAutoMatchingCriteria.SetmaxAutoMatchingPlayers(AIndex : Integer; const AValue : integer);
begin
If (FmaxAutoMatchingPlayers=AValue) then exit;
@@ -8969,7 +9246,7 @@ end;
-Procedure TTurnBasedAutoMatchingCriteria.SetminAutoMatchingPlayers(AIndex : Integer; AValue : integer);
+Procedure TTurnBasedAutoMatchingCriteria.SetminAutoMatchingPlayers(AIndex : Integer; const AValue : integer);
begin
If (FminAutoMatchingPlayers=AValue) then exit;
@@ -8996,7 +9273,7 @@ end;
-Procedure TTurnBasedMatch.SetautoMatchingCriteria(AIndex : Integer; AValue : TTurnBasedAutoMatchingCriteria);
+Procedure TTurnBasedMatch.SetautoMatchingCriteria(AIndex : Integer; const AValue : TTurnBasedAutoMatchingCriteria);
begin
If (FautoMatchingCriteria=AValue) then exit;
@@ -9006,7 +9283,7 @@ end;
-Procedure TTurnBasedMatch.SetcreationDetails(AIndex : Integer; AValue : TTurnBasedMatchModification);
+Procedure TTurnBasedMatch.SetcreationDetails(AIndex : Integer; const AValue : TTurnBasedMatchModification);
begin
If (FcreationDetails=AValue) then exit;
@@ -9016,7 +9293,7 @@ end;
-Procedure TTurnBasedMatch.Setdata(AIndex : Integer; AValue : TTurnBasedMatchData);
+Procedure TTurnBasedMatch.Setdata(AIndex : Integer; const AValue : TTurnBasedMatchData);
begin
If (Fdata=AValue) then exit;
@@ -9056,7 +9333,7 @@ end;
-Procedure TTurnBasedMatch.SetlastUpdateDetails(AIndex : Integer; AValue : TTurnBasedMatchModification);
+Procedure TTurnBasedMatch.SetlastUpdateDetails(AIndex : Integer; const AValue : TTurnBasedMatchModification);
begin
If (FlastUpdateDetails=AValue) then exit;
@@ -9076,7 +9353,7 @@ end;
-Procedure TTurnBasedMatch.SetmatchNumber(AIndex : Integer; AValue : integer);
+Procedure TTurnBasedMatch.SetmatchNumber(AIndex : Integer; const AValue : integer);
begin
If (FmatchNumber=AValue) then exit;
@@ -9086,7 +9363,7 @@ end;
-Procedure TTurnBasedMatch.SetmatchVersion(AIndex : Integer; AValue : integer);
+Procedure TTurnBasedMatch.SetmatchVersion(AIndex : Integer; const AValue : integer);
begin
If (FmatchVersion=AValue) then exit;
@@ -9096,7 +9373,7 @@ end;
-Procedure TTurnBasedMatch.Setparticipants(AIndex : Integer; AValue : TTurnBasedMatchTypeparticipantsArray);
+Procedure TTurnBasedMatch.Setparticipants(AIndex : Integer; const AValue : TTurnBasedMatchTypeparticipantsArray);
begin
If (Fparticipants=AValue) then exit;
@@ -9116,7 +9393,7 @@ end;
-Procedure TTurnBasedMatch.SetpreviousMatchData(AIndex : Integer; AValue : TTurnBasedMatchData);
+Procedure TTurnBasedMatch.SetpreviousMatchData(AIndex : Integer; const AValue : TTurnBasedMatchData);
begin
If (FpreviousMatchData=AValue) then exit;
@@ -9136,7 +9413,7 @@ end;
-Procedure TTurnBasedMatch.Setresults(AIndex : Integer; AValue : TTurnBasedMatchTyperesultsArray);
+Procedure TTurnBasedMatch.Setresults(AIndex : Integer; const AValue : TTurnBasedMatchTyperesultsArray);
begin
If (Fresults=AValue) then exit;
@@ -9166,7 +9443,7 @@ end;
-Procedure TTurnBasedMatch.Setvariant(AIndex : Integer; AValue : integer);
+Procedure TTurnBasedMatch.Setvariant(AIndex : Integer; const AValue : integer);
begin
If (Fvariant=AValue) then exit;
@@ -9207,7 +9484,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTurnBasedMatchCreateRequest.SetautoMatchingCriteria(AIndex : Integer; AValue : TTurnBasedAutoMatchingCriteria);
+Procedure TTurnBasedMatchCreateRequest.SetautoMatchingCriteria(AIndex : Integer; const AValue : TTurnBasedAutoMatchingCriteria);
begin
If (FautoMatchingCriteria=AValue) then exit;
@@ -9217,7 +9494,7 @@ end;
-Procedure TTurnBasedMatchCreateRequest.SetinvitedPlayerIds(AIndex : Integer; AValue : TStringArray);
+Procedure TTurnBasedMatchCreateRequest.SetinvitedPlayerIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FinvitedPlayerIds=AValue) then exit;
@@ -9247,7 +9524,7 @@ end;
-Procedure TTurnBasedMatchCreateRequest.Setvariant(AIndex : Integer; AValue : integer);
+Procedure TTurnBasedMatchCreateRequest.Setvariant(AIndex : Integer; const AValue : integer);
begin
If (Fvariant=AValue) then exit;
@@ -9287,7 +9564,7 @@ end;
-Procedure TTurnBasedMatchData.SetdataAvailable(AIndex : Integer; AValue : boolean);
+Procedure TTurnBasedMatchData.SetdataAvailable(AIndex : Integer; const AValue : boolean);
begin
If (FdataAvailable=AValue) then exit;
@@ -9341,7 +9618,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTurnBasedMatchList.Setitems(AIndex : Integer; AValue : TTurnBasedMatchListTypeitemsArray);
+Procedure TTurnBasedMatchList.Setitems(AIndex : Integer; const AValue : TTurnBasedMatchListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -9428,7 +9705,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTurnBasedMatchParticipant.SetautoMatched(AIndex : Integer; AValue : boolean);
+Procedure TTurnBasedMatchParticipant.SetautoMatched(AIndex : Integer; const AValue : boolean);
begin
If (FautoMatched=AValue) then exit;
@@ -9438,7 +9715,7 @@ end;
-Procedure TTurnBasedMatchParticipant.SetautoMatchedPlayer(AIndex : Integer; AValue : TAnonymousPlayer);
+Procedure TTurnBasedMatchParticipant.SetautoMatchedPlayer(AIndex : Integer; const AValue : TAnonymousPlayer);
begin
If (FautoMatchedPlayer=AValue) then exit;
@@ -9468,7 +9745,7 @@ end;
-Procedure TTurnBasedMatchParticipant.Setplayer(AIndex : Integer; AValue : TPlayer);
+Procedure TTurnBasedMatchParticipant.Setplayer(AIndex : Integer; const AValue : TPlayer);
begin
If (Fplayer=AValue) then exit;
@@ -9505,7 +9782,7 @@ end;
-Procedure TTurnBasedMatchRematch.SetpreviousMatch(AIndex : Integer; AValue : TTurnBasedMatch);
+Procedure TTurnBasedMatchRematch.SetpreviousMatch(AIndex : Integer; const AValue : TTurnBasedMatch);
begin
If (FpreviousMatch=AValue) then exit;
@@ -9515,7 +9792,7 @@ end;
-Procedure TTurnBasedMatchRematch.Setrematch(AIndex : Integer; AValue : TTurnBasedMatch);
+Procedure TTurnBasedMatchRematch.Setrematch(AIndex : Integer; const AValue : TTurnBasedMatch);
begin
If (Frematch=AValue) then exit;
@@ -9532,7 +9809,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTurnBasedMatchResults.Setdata(AIndex : Integer; AValue : TTurnBasedMatchDataRequest);
+Procedure TTurnBasedMatchResults.Setdata(AIndex : Integer; const AValue : TTurnBasedMatchDataRequest);
begin
If (Fdata=AValue) then exit;
@@ -9552,7 +9829,7 @@ end;
-Procedure TTurnBasedMatchResults.SetmatchVersion(AIndex : Integer; AValue : integer);
+Procedure TTurnBasedMatchResults.SetmatchVersion(AIndex : Integer; const AValue : integer);
begin
If (FmatchVersion=AValue) then exit;
@@ -9562,7 +9839,7 @@ end;
-Procedure TTurnBasedMatchResults.Setresults(AIndex : Integer; AValue : TTurnBasedMatchResultsTyperesultsArray);
+Procedure TTurnBasedMatchResults.Setresults(AIndex : Integer; const AValue : TTurnBasedMatchResultsTyperesultsArray);
begin
If (Fresults=AValue) then exit;
@@ -9592,7 +9869,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTurnBasedMatchSync.Setitems(AIndex : Integer; AValue : TTurnBasedMatchSyncTypeitemsArray);
+Procedure TTurnBasedMatchSync.Setitems(AIndex : Integer; const AValue : TTurnBasedMatchSyncTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -9612,7 +9889,7 @@ end;
-Procedure TTurnBasedMatchSync.SetmoreAvailable(AIndex : Integer; AValue : boolean);
+Procedure TTurnBasedMatchSync.SetmoreAvailable(AIndex : Integer; const AValue : boolean);
begin
If (FmoreAvailable=AValue) then exit;
@@ -9652,7 +9929,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTurnBasedMatchTurn.Setdata(AIndex : Integer; AValue : TTurnBasedMatchDataRequest);
+Procedure TTurnBasedMatchTurn.Setdata(AIndex : Integer; const AValue : TTurnBasedMatchDataRequest);
begin
If (Fdata=AValue) then exit;
@@ -9672,7 +9949,7 @@ end;
-Procedure TTurnBasedMatchTurn.SetmatchVersion(AIndex : Integer; AValue : integer);
+Procedure TTurnBasedMatchTurn.SetmatchVersion(AIndex : Integer; const AValue : integer);
begin
If (FmatchVersion=AValue) then exit;
@@ -9692,7 +9969,7 @@ end;
-Procedure TTurnBasedMatchTurn.Setresults(AIndex : Integer; AValue : TTurnBasedMatchTurnTyperesultsArray);
+Procedure TTurnBasedMatchTurn.Setresults(AIndex : Integer; const AValue : TTurnBasedMatchTurnTyperesultsArray);
begin
If (Fresults=AValue) then exit;
@@ -9753,6 +10030,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -9801,6 +10079,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'requestId',AQuery.requestId);
AddToQuery(_Q,'stepsToIncrement',AQuery.stepsToIncrement);
Result:=Increment(achievementId,_Q);
@@ -9829,6 +10108,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -9836,7 +10116,7 @@ begin
Result:=List(playerId,_Q);
end;
-Function TAchievementsResource.Reveal(achievementId: string) : TAchievementRevealResponse;
+Function TAchievementsResource.Reveal(achievementId: string; AQuery : string = '') : TAchievementRevealResponse;
Const
_HTTPMethod = 'POST';
@@ -9848,7 +10128,19 @@ Var
begin
_P:=SubstitutePath(_Path,['achievementId',achievementId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAchievementRevealResponse) as TAchievementRevealResponse;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAchievementRevealResponse) as TAchievementRevealResponse;
+end;
+
+
+Function TAchievementsResource.Reveal(achievementId: string; AQuery : TAchievementsrevealOptions) : TAchievementRevealResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
+ Result:=Reveal(achievementId,_Q);
end;
Function TAchievementsResource.SetStepsAtLeast(achievementId: string; AQuery : string = '') : TAchievementSetStepsAtLeastResponse;
@@ -9874,11 +10166,12 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'steps',AQuery.steps);
Result:=SetStepsAtLeast(achievementId,_Q);
end;
-Function TAchievementsResource.Unlock(achievementId: string) : TAchievementUnlockResponse;
+Function TAchievementsResource.Unlock(achievementId: string; AQuery : string = '') : TAchievementUnlockResponse;
Const
_HTTPMethod = 'POST';
@@ -9890,10 +10183,22 @@ Var
begin
_P:=SubstitutePath(_Path,['achievementId',achievementId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAchievementUnlockResponse) as TAchievementUnlockResponse;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAchievementUnlockResponse) as TAchievementUnlockResponse;
end;
-Function TAchievementsResource.UpdateMultiple(aAchievementUpdateMultipleRequest : TAchievementUpdateMultipleRequest) : TAchievementUpdateMultipleResponse;
+
+Function TAchievementsResource.Unlock(achievementId: string; AQuery : TAchievementsunlockOptions) : TAchievementUnlockResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
+ Result:=Unlock(achievementId,_Q);
+end;
+
+Function TAchievementsResource.UpdateMultiple(aAchievementUpdateMultipleRequest : TAchievementUpdateMultipleRequest; AQuery : string = '') : TAchievementUpdateMultipleResponse;
Const
_HTTPMethod = 'POST';
@@ -9901,7 +10206,19 @@ Const
_Methodid = 'games.achievements.updateMultiple';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aAchievementUpdateMultipleRequest,TAchievementUpdateMultipleResponse) as TAchievementUpdateMultipleResponse;
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aAchievementUpdateMultipleRequest,TAchievementUpdateMultipleResponse) as TAchievementUpdateMultipleResponse;
+end;
+
+
+Function TAchievementsResource.UpdateMultiple(aAchievementUpdateMultipleRequest : TAchievementUpdateMultipleRequest; AQuery : TAchievementsupdateMultipleOptions) : TAchievementUpdateMultipleResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
+ Result:=UpdateMultiple(aAchievementUpdateMultipleRequest,_Q);
end;
@@ -9946,12 +10263,13 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'platformType',AQuery.platformType);
Result:=Get(applicationId,_Q);
end;
-Procedure TApplicationsResource.Played;
+Procedure TApplicationsResource.Played(AQuery : string = '');
Const
_HTTPMethod = 'POST';
@@ -9959,7 +10277,46 @@ Const
_Methodid = 'games.applications.played';
begin
- ServiceCall(_HTTPMethod,_Path,'',Nil,Nil);
+ ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
+end;
+
+
+Procedure TApplicationsResource.Played(AQuery : TApplicationsplayedOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
+ Played(_Q);
+end;
+
+Function TApplicationsResource.Verify(applicationId: string; AQuery : string = '') : TApplicationVerifyResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'applications/{applicationId}/verify';
+ _Methodid = 'games.applications.verify';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['applicationId',applicationId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TApplicationVerifyResponse) as TApplicationVerifyResponse;
+end;
+
+
+Function TApplicationsResource.Verify(applicationId: string; AQuery : TApplicationsverifyOptions) : TApplicationVerifyResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
+ Result:=Verify(applicationId,_Q);
end;
@@ -10000,6 +10357,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -10025,6 +10383,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -10050,6 +10409,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=_record(aEventRecordRequest,_Q);
end;
@@ -10096,6 +10456,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Get(leaderboardId,_Q);
end;
@@ -10119,6 +10480,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -10144,7 +10506,7 @@ begin
Result:=TgamesAPI;
end;
-Function TMetagameResource.GetMetagameConfig : TMetagameConfig;
+Function TMetagameResource.GetMetagameConfig(AQuery : string = '') : TMetagameConfig;
Const
_HTTPMethod = 'GET';
@@ -10152,7 +10514,19 @@ Const
_Methodid = 'games.metagame.getMetagameConfig';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TMetagameConfig) as TMetagameConfig;
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TMetagameConfig) as TMetagameConfig;
+end;
+
+
+Function TMetagameResource.GetMetagameConfig(AQuery : TMetagamegetMetagameConfigOptions) : TMetagameConfig;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
+ Result:=GetMetagameConfig(_Q);
end;
Function TMetagameResource.ListCategoriesByPlayer(collection: string; playerId: string; AQuery : string = '') : TCategoryListResponse;
@@ -10178,6 +10552,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -10226,6 +10601,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Get(playerId,_Q);
end;
@@ -10253,6 +10629,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -10278,7 +10655,7 @@ begin
Result:=TgamesAPI;
end;
-Procedure TPushtokensResource.Remove(aPushTokenId : TPushTokenId);
+Procedure TPushtokensResource.Remove(aPushTokenId : TPushTokenId; AQuery : string = '');
Const
_HTTPMethod = 'POST';
@@ -10286,10 +10663,22 @@ Const
_Methodid = 'games.pushtokens.remove';
begin
- ServiceCall(_HTTPMethod,_Path,'',aPushTokenId,Nil);
+ ServiceCall(_HTTPMethod,_Path,AQuery,aPushTokenId,Nil);
end;
-Procedure TPushtokensResource.Update(aPushToken : TPushToken);
+
+Procedure TPushtokensResource.Remove(aPushTokenId : TPushTokenId; AQuery : TPushtokensremoveOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
+ Remove(aPushTokenId,_Q);
+end;
+
+Procedure TPushtokensResource.Update(aPushToken : TPushToken; AQuery : string = '');
Const
_HTTPMethod = 'PUT';
@@ -10297,7 +10686,19 @@ Const
_Methodid = 'games.pushtokens.update';
begin
- ServiceCall(_HTTPMethod,_Path,'',aPushToken,Nil);
+ ServiceCall(_HTTPMethod,_Path,AQuery,aPushToken,Nil);
+end;
+
+
+Procedure TPushtokensResource.Update(aPushToken : TPushToken; AQuery : TPushtokensupdateOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
+ Update(aPushToken,_Q);
end;
@@ -10342,6 +10743,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'requestId',AQuery.requestId);
Claim(milestoneId,questId,_Q);
end;
@@ -10388,6 +10790,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Accept(questId,_Q);
end;
@@ -10415,6 +10818,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -10460,6 +10864,7 @@ Var
begin
_Q:='';
AddToQuery(_Q,'clientRevision',AQuery.clientRevision);
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
Result:=Check(_Q);
end;
@@ -10501,6 +10906,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Create(aRoomCreateRequest,_Q);
end;
@@ -10528,11 +10934,12 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Decline(roomId,_Q);
end;
-Procedure TRoomsResource.Dismiss(roomId: string);
+Procedure TRoomsResource.Dismiss(roomId: string; AQuery : string = '');
Const
_HTTPMethod = 'POST';
@@ -10544,7 +10951,19 @@ Var
begin
_P:=SubstitutePath(_Path,['roomId',roomId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
+end;
+
+
+Procedure TRoomsResource.Dismiss(roomId: string; AQuery : TRoomsdismissOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
+ Dismiss(roomId,_Q);
end;
Function TRoomsResource.Get(roomId: string; AQuery : string = '') : TRoom;
@@ -10570,6 +10989,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Get(roomId,_Q);
end;
@@ -10597,6 +11017,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Join(roomId,aRoomJoinRequest,_Q);
end;
@@ -10624,6 +11045,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Leave(roomId,aRoomLeaveRequest,_Q);
end;
@@ -10647,6 +11069,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -10676,6 +11099,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=ReportStatus(roomId,aRoomP2PStatuses,_Q);
end;
@@ -10722,6 +11146,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'includeRankType',AQuery.includeRankType);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
@@ -10752,6 +11177,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -10782,6 +11208,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -10814,6 +11241,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'score',AQuery.score);
AddToQuery(_Q,'scoreTag',AQuery.scoreTag);
@@ -10839,6 +11267,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=SubmitMultiple(aPlayerScoreSubmissionList,_Q);
end;
@@ -10885,6 +11314,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Get(snapshotId,_Q);
end;
@@ -10912,6 +11342,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
@@ -10937,7 +11368,7 @@ begin
Result:=TgamesAPI;
end;
-Procedure TTurnBasedMatchesResource.Cancel(matchId: string);
+Procedure TTurnBasedMatchesResource.Cancel(matchId: string; AQuery : string = '');
Const
_HTTPMethod = 'PUT';
@@ -10949,7 +11380,19 @@ Var
begin
_P:=SubstitutePath(_Path,['matchId',matchId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
+end;
+
+
+Procedure TTurnBasedMatchesResource.Cancel(matchId: string; AQuery : TTurnBasedMatchescancelOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
+ Cancel(matchId,_Q);
end;
Function TTurnBasedMatchesResource.Create(aTurnBasedMatchCreateRequest : TTurnBasedMatchCreateRequest; AQuery : string = '') : TTurnBasedMatch;
@@ -10971,6 +11414,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Create(aTurnBasedMatchCreateRequest,_Q);
end;
@@ -10998,11 +11442,12 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Decline(matchId,_Q);
end;
-Procedure TTurnBasedMatchesResource.Dismiss(matchId: string);
+Procedure TTurnBasedMatchesResource.Dismiss(matchId: string; AQuery : string = '');
Const
_HTTPMethod = 'PUT';
@@ -11014,7 +11459,19 @@ Var
begin
_P:=SubstitutePath(_Path,['matchId',matchId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
+end;
+
+
+Procedure TTurnBasedMatchesResource.Dismiss(matchId: string; AQuery : TTurnBasedMatchesdismissOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
+ Dismiss(matchId,_Q);
end;
Function TTurnBasedMatchesResource.Finish(matchId: string; aTurnBasedMatchResults : TTurnBasedMatchResults; AQuery : string = '') : TTurnBasedMatch;
@@ -11040,6 +11497,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Finish(matchId,aTurnBasedMatchResults,_Q);
end;
@@ -11067,6 +11525,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'includeMatchData',AQuery.includeMatchData);
AddToQuery(_Q,'language',AQuery.language);
Result:=Get(matchId,_Q);
@@ -11095,6 +11554,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Join(matchId,_Q);
end;
@@ -11122,6 +11582,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=Leave(matchId,_Q);
end;
@@ -11149,6 +11610,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'matchVersion',AQuery.matchVersion);
AddToQuery(_Q,'pendingParticipantId',AQuery.pendingParticipantId);
@@ -11174,6 +11636,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'includeMatchData',AQuery.includeMatchData);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxCompletedMatches',AQuery.maxCompletedMatches);
@@ -11205,6 +11668,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'requestId',AQuery.requestId);
Result:=Rematch(matchId,_Q);
@@ -11229,6 +11693,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'includeMatchData',AQuery.includeMatchData);
AddToQuery(_Q,'language',AQuery.language);
AddToQuery(_Q,'maxCompletedMatches',AQuery.maxCompletedMatches);
@@ -11260,6 +11725,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'consistencyToken',AQuery.consistencyToken);
AddToQuery(_Q,'language',AQuery.language);
Result:=TakeTurn(matchId,aTurnBasedMatchTurn,_Q);
end;
@@ -11285,7 +11751,7 @@ end;
Class Function TGamesAPI.APIRevision : String;
begin
- Result:='20150511';
+ Result:='20160519';
end;
Class Function TGamesAPI.APIID : String;
@@ -11339,7 +11805,7 @@ end;
Class Function TGamesAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TGamesAPI.APIbasePath : string;
@@ -11351,7 +11817,7 @@ end;
Class Function TGamesAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/games/v1/';
+ Result:='https://www.googleapis.com/games/v1/';
end;
Class Function TGamesAPI.APIProtocol : string;
@@ -11381,7 +11847,7 @@ begin
Result[1].Name:='https://www.googleapis.com/auth/games';
Result[1].Description:='Share your Google+ profile information and view and manage your game activity';
Result[2].Name:='https://www.googleapis.com/auth/plus.login';
- Result[2].Description:='Know your basic profile info and list of people in your circles.';
+ Result[2].Description:='Know the list of people in your circles, your age range, and language';
end;
@@ -11408,6 +11874,7 @@ begin
TAnonymousPlayer.RegisterObject;
TApplication.RegisterObject;
TApplicationCategory.RegisterObject;
+ TApplicationVerifyResponse.RegisterObject;
TCategory.RegisterObject;
TCategoryListResponse.RegisterObject;
TEventBatchRecordFailure.RegisterObject;
@@ -11453,6 +11920,7 @@ begin
TPlayerScoreListResponse.RegisterObject;
TPlayerScoreResponse.RegisterObject;
TPlayerScoreSubmissionList.RegisterObject;
+ TProfileSettings.RegisterObject;
TPushToken.RegisterObject;
TPushTokenIdTypeios.RegisterObject;
TPushTokenId.RegisterObject;
diff --git a/packages/googleapi/src/googlegamesConfiguration.pp b/packages/googleapi/src/googlegamesconfiguration.pp
index c254f8ee13..43df1e9794 100644
--- a/packages/googleapi/src/googlegamesConfiguration.pp
+++ b/packages/googleapi/src/googlegamesconfiguration.pp
@@ -1,19 +1,4 @@
unit googlegamesConfiguration;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:04
{$MODE objfpc}
{$H+}
@@ -69,12 +54,12 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetachievementType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdraft(AIndex : Integer; AValue : TAchievementConfigurationDetail); virtual;
+ Procedure Setdraft(AIndex : Integer; const AValue : TAchievementConfigurationDetail); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinitialState(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_published(AIndex : Integer; AValue : TAchievementConfigurationDetail); virtual;
- Procedure SetstepsToUnlock(AIndex : Integer; AValue : integer); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : TAchievementConfigurationDetail); virtual;
+ Procedure SetstepsToUnlock(AIndex : Integer; const AValue : integer); virtual;
Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -103,12 +88,12 @@ type
FsortRank : integer;
Protected
//Property setters
- Procedure Setdescription(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : TLocalizedStringBundle); virtual;
Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
- Procedure SetpointValue(AIndex : Integer; AValue : integer); virtual;
- Procedure SetsortRank(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TLocalizedStringBundle); virtual;
+ Procedure SetpointValue(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetsortRank(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property description : TLocalizedStringBundle Index 0 Read Fdescription Write Setdescription;
@@ -131,7 +116,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAchievementConfigurationListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAchievementConfigurationListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -160,12 +145,12 @@ type
Fzero : TLocalizedStringBundle;
Protected
//Property setters
- Procedure Setfew(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
- Procedure Setmany(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
- Procedure Setone(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
- Procedure Setother(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
- Procedure Settwo(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
- Procedure Setzero(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
+ Procedure Setfew(AIndex : Integer; const AValue : TLocalizedStringBundle); virtual;
+ Procedure Setmany(AIndex : Integer; const AValue : TLocalizedStringBundle); virtual;
+ Procedure Setone(AIndex : Integer; const AValue : TLocalizedStringBundle); virtual;
+ Procedure Setother(AIndex : Integer; const AValue : TLocalizedStringBundle); virtual;
+ Procedure Settwo(AIndex : Integer; const AValue : TLocalizedStringBundle); virtual;
+ Procedure Setzero(AIndex : Integer; const AValue : TLocalizedStringBundle); virtual;
Public
Published
Property few : TLocalizedStringBundle Index 0 Read Ffew Write Setfew;
@@ -190,9 +175,9 @@ type
Protected
//Property setters
Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnumDecimalPlaces(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetnumDecimalPlaces(AIndex : Integer; const AValue : integer); virtual;
Procedure SetnumberFormatType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsuffix(AIndex : Integer; AValue : TGamesNumberAffixConfiguration); virtual;
+ Procedure Setsuffix(AIndex : Integer; const AValue : TGamesNumberAffixConfiguration); virtual;
Public
Published
Property currencyCode : String Index 0 Read FcurrencyCode Write SetcurrencyCode;
@@ -244,10 +229,10 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setdraft(AIndex : Integer; AValue : TLeaderboardConfigurationDetail); virtual;
+ Procedure Setdraft(AIndex : Integer; const AValue : TLeaderboardConfigurationDetail); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_published(AIndex : Integer; AValue : TLeaderboardConfigurationDetail); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : TLeaderboardConfigurationDetail); virtual;
Procedure SetscoreMax(AIndex : Integer; const AValue : String); virtual;
Procedure SetscoreMin(AIndex : Integer; const AValue : String); virtual;
Procedure SetscoreOrder(AIndex : Integer; const AValue : String); virtual;
@@ -280,9 +265,9 @@ type
//Property setters
Procedure SeticonUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; AValue : TLocalizedStringBundle); virtual;
- Procedure SetscoreFormat(AIndex : Integer; AValue : TGamesNumberFormatConfiguration); virtual;
- Procedure SetsortRank(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TLocalizedStringBundle); virtual;
+ Procedure SetscoreFormat(AIndex : Integer; const AValue : TGamesNumberFormatConfiguration); virtual;
+ Procedure SetsortRank(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property iconUrl : String Index 0 Read FiconUrl Write SeticonUrl;
@@ -304,7 +289,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TLeaderboardConfigurationListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TLeaderboardConfigurationListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -352,7 +337,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Settranslations(AIndex : Integer; AValue : TLocalizedStringBundleTypetranslationsArray); virtual;
+ Procedure Settranslations(AIndex : Integer; const AValue : TLocalizedStringBundleTypetranslationsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -493,7 +478,7 @@ end;
-Procedure TAchievementConfiguration.Setdraft(AIndex : Integer; AValue : TAchievementConfigurationDetail);
+Procedure TAchievementConfiguration.Setdraft(AIndex : Integer; const AValue : TAchievementConfigurationDetail);
begin
If (Fdraft=AValue) then exit;
@@ -533,7 +518,7 @@ end;
-Procedure TAchievementConfiguration.Set_published(AIndex : Integer; AValue : TAchievementConfigurationDetail);
+Procedure TAchievementConfiguration.Set_published(AIndex : Integer; const AValue : TAchievementConfigurationDetail);
begin
If (F_published=AValue) then exit;
@@ -543,7 +528,7 @@ end;
-Procedure TAchievementConfiguration.SetstepsToUnlock(AIndex : Integer; AValue : integer);
+Procedure TAchievementConfiguration.SetstepsToUnlock(AIndex : Integer; const AValue : integer);
begin
If (FstepsToUnlock=AValue) then exit;
@@ -581,7 +566,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAchievementConfigurationDetail.Setdescription(AIndex : Integer; AValue : TLocalizedStringBundle);
+Procedure TAchievementConfigurationDetail.Setdescription(AIndex : Integer; const AValue : TLocalizedStringBundle);
begin
If (Fdescription=AValue) then exit;
@@ -611,7 +596,7 @@ end;
-Procedure TAchievementConfigurationDetail.Setname(AIndex : Integer; AValue : TLocalizedStringBundle);
+Procedure TAchievementConfigurationDetail.Setname(AIndex : Integer; const AValue : TLocalizedStringBundle);
begin
If (Fname=AValue) then exit;
@@ -621,7 +606,7 @@ end;
-Procedure TAchievementConfigurationDetail.SetpointValue(AIndex : Integer; AValue : integer);
+Procedure TAchievementConfigurationDetail.SetpointValue(AIndex : Integer; const AValue : integer);
begin
If (FpointValue=AValue) then exit;
@@ -631,7 +616,7 @@ end;
-Procedure TAchievementConfigurationDetail.SetsortRank(AIndex : Integer; AValue : integer);
+Procedure TAchievementConfigurationDetail.SetsortRank(AIndex : Integer; const AValue : integer);
begin
If (FsortRank=AValue) then exit;
@@ -648,7 +633,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAchievementConfigurationListResponse.Setitems(AIndex : Integer; AValue : TAchievementConfigurationListResponseTypeitemsArray);
+Procedure TAchievementConfigurationListResponse.Setitems(AIndex : Integer; const AValue : TAchievementConfigurationListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -698,7 +683,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGamesNumberAffixConfiguration.Setfew(AIndex : Integer; AValue : TLocalizedStringBundle);
+Procedure TGamesNumberAffixConfiguration.Setfew(AIndex : Integer; const AValue : TLocalizedStringBundle);
begin
If (Ffew=AValue) then exit;
@@ -708,7 +693,7 @@ end;
-Procedure TGamesNumberAffixConfiguration.Setmany(AIndex : Integer; AValue : TLocalizedStringBundle);
+Procedure TGamesNumberAffixConfiguration.Setmany(AIndex : Integer; const AValue : TLocalizedStringBundle);
begin
If (Fmany=AValue) then exit;
@@ -718,7 +703,7 @@ end;
-Procedure TGamesNumberAffixConfiguration.Setone(AIndex : Integer; AValue : TLocalizedStringBundle);
+Procedure TGamesNumberAffixConfiguration.Setone(AIndex : Integer; const AValue : TLocalizedStringBundle);
begin
If (Fone=AValue) then exit;
@@ -728,7 +713,7 @@ end;
-Procedure TGamesNumberAffixConfiguration.Setother(AIndex : Integer; AValue : TLocalizedStringBundle);
+Procedure TGamesNumberAffixConfiguration.Setother(AIndex : Integer; const AValue : TLocalizedStringBundle);
begin
If (Fother=AValue) then exit;
@@ -738,7 +723,7 @@ end;
-Procedure TGamesNumberAffixConfiguration.Settwo(AIndex : Integer; AValue : TLocalizedStringBundle);
+Procedure TGamesNumberAffixConfiguration.Settwo(AIndex : Integer; const AValue : TLocalizedStringBundle);
begin
If (Ftwo=AValue) then exit;
@@ -748,7 +733,7 @@ end;
-Procedure TGamesNumberAffixConfiguration.Setzero(AIndex : Integer; AValue : TLocalizedStringBundle);
+Procedure TGamesNumberAffixConfiguration.Setzero(AIndex : Integer; const AValue : TLocalizedStringBundle);
begin
If (Fzero=AValue) then exit;
@@ -775,7 +760,7 @@ end;
-Procedure TGamesNumberFormatConfiguration.SetnumDecimalPlaces(AIndex : Integer; AValue : integer);
+Procedure TGamesNumberFormatConfiguration.SetnumDecimalPlaces(AIndex : Integer; const AValue : integer);
begin
If (FnumDecimalPlaces=AValue) then exit;
@@ -795,7 +780,7 @@ end;
-Procedure TGamesNumberFormatConfiguration.Setsuffix(AIndex : Integer; AValue : TGamesNumberAffixConfiguration);
+Procedure TGamesNumberFormatConfiguration.Setsuffix(AIndex : Integer; const AValue : TGamesNumberAffixConfiguration);
begin
If (Fsuffix=AValue) then exit;
@@ -859,7 +844,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLeaderboardConfiguration.Setdraft(AIndex : Integer; AValue : TLeaderboardConfigurationDetail);
+Procedure TLeaderboardConfiguration.Setdraft(AIndex : Integer; const AValue : TLeaderboardConfigurationDetail);
begin
If (Fdraft=AValue) then exit;
@@ -889,7 +874,7 @@ end;
-Procedure TLeaderboardConfiguration.Set_published(AIndex : Integer; AValue : TLeaderboardConfigurationDetail);
+Procedure TLeaderboardConfiguration.Set_published(AIndex : Integer; const AValue : TLeaderboardConfigurationDetail);
begin
If (F_published=AValue) then exit;
@@ -977,7 +962,7 @@ end;
-Procedure TLeaderboardConfigurationDetail.Setname(AIndex : Integer; AValue : TLocalizedStringBundle);
+Procedure TLeaderboardConfigurationDetail.Setname(AIndex : Integer; const AValue : TLocalizedStringBundle);
begin
If (Fname=AValue) then exit;
@@ -987,7 +972,7 @@ end;
-Procedure TLeaderboardConfigurationDetail.SetscoreFormat(AIndex : Integer; AValue : TGamesNumberFormatConfiguration);
+Procedure TLeaderboardConfigurationDetail.SetscoreFormat(AIndex : Integer; const AValue : TGamesNumberFormatConfiguration);
begin
If (FscoreFormat=AValue) then exit;
@@ -997,7 +982,7 @@ end;
-Procedure TLeaderboardConfigurationDetail.SetsortRank(AIndex : Integer; AValue : integer);
+Procedure TLeaderboardConfigurationDetail.SetsortRank(AIndex : Integer; const AValue : integer);
begin
If (FsortRank=AValue) then exit;
@@ -1014,7 +999,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLeaderboardConfigurationListResponse.Setitems(AIndex : Integer; AValue : TLeaderboardConfigurationListResponseTypeitemsArray);
+Procedure TLeaderboardConfigurationListResponse.Setitems(AIndex : Integer; const AValue : TLeaderboardConfigurationListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1111,7 +1096,7 @@ end;
-Procedure TLocalizedStringBundle.Settranslations(AIndex : Integer; AValue : TLocalizedStringBundleTypetranslationsArray);
+Procedure TLocalizedStringBundle.Settranslations(AIndex : Integer; const AValue : TLocalizedStringBundleTypetranslationsArray);
begin
If (Ftranslations=AValue) then exit;
@@ -1433,7 +1418,7 @@ end;
Class Function TGamesConfigurationAPI.APIRevision : String;
begin
- Result:='20150511';
+ Result:='20160519';
end;
Class Function TGamesConfigurationAPI.APIID : String;
@@ -1487,7 +1472,7 @@ end;
Class Function TGamesConfigurationAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TGamesConfigurationAPI.APIbasePath : string;
@@ -1499,7 +1484,7 @@ end;
Class Function TGamesConfigurationAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/games/v1configuration/';
+ Result:='https://www.googleapis.com/games/v1configuration/';
end;
Class Function TGamesConfigurationAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlegamesManagement.pp b/packages/googleapi/src/googlegamesmanagement.pp
index 49f53e89c7..e44b2a4d49 100644
--- a/packages/googleapi/src/googlegamesManagement.pp
+++ b/packages/googleapi/src/googlegamesmanagement.pp
@@ -1,19 +1,4 @@
unit googlegamesManagement;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:04
{$MODE objfpc}
{$H+}
@@ -36,6 +21,7 @@ type
TPlayer = Class;
TPlayerScoreResetAllResponse = Class;
TPlayerScoreResetResponse = Class;
+ TProfileSettings = Class;
TQuestsResetMultipleForAllRequest = Class;
TScoresResetMultipleForAllRequest = Class;
TAchievementResetAllResponseArray = Array of TAchievementResetAllResponse;
@@ -50,6 +36,7 @@ type
TPlayerArray = Array of TPlayer;
TPlayerScoreResetAllResponseArray = Array of TPlayerScoreResetAllResponse;
TPlayerScoreResetResponseArray = Array of TPlayerScoreResetResponse;
+ TProfileSettingsArray = Array of TProfileSettings;
TQuestsResetMultipleForAllRequestArray = Array of TQuestsResetMultipleForAllRequest;
TScoresResetMultipleForAllRequestArray = Array of TScoresResetMultipleForAllRequest;
//Anonymous types, using auto-generated names
@@ -69,7 +56,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresults(AIndex : Integer; AValue : TAchievementResetAllResponseTyperesultsArray); virtual;
+ Procedure Setresults(AIndex : Integer; const AValue : TAchievementResetAllResponseTyperesultsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -91,7 +78,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setachievement_ids(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setachievement_ids(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -119,7 +106,7 @@ type
Procedure SetcurrentState(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefinitionId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetupdateOccurred(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetupdateOccurred(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property currentState : String Index 0 Read FcurrentState Write SetcurrentState;
@@ -139,7 +126,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setevent_ids(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setevent_ids(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -162,7 +149,7 @@ type
FtimeMillis : String;
Protected
//Property setters
- Procedure SetautoMatched(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetautoMatched(AIndex : Integer; const AValue : boolean); virtual;
Procedure SettimeMillis(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -184,9 +171,9 @@ type
Protected
//Property setters
Procedure SetcurrentExperiencePoints(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcurrentLevel(AIndex : Integer; AValue : TGamesPlayerLevelResource); virtual;
+ Procedure SetcurrentLevel(AIndex : Integer; const AValue : TGamesPlayerLevelResource); virtual;
Procedure SetlastLevelUpTimestampMillis(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextLevel(AIndex : Integer; AValue : TGamesPlayerLevelResource); virtual;
+ Procedure SetnextLevel(AIndex : Integer; const AValue : TGamesPlayerLevelResource); virtual;
Public
Published
Property currentExperiencePoints : String Index 0 Read FcurrentExperiencePoints Write SetcurrentExperiencePoints;
@@ -207,7 +194,7 @@ type
FminExperiencePoints : String;
Protected
//Property setters
- Procedure Setlevel(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setlevel(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmaxExperiencePoints(AIndex : Integer; const AValue : String); virtual;
Procedure SetminExperiencePoints(AIndex : Integer; const AValue : String); virtual;
Public
@@ -231,7 +218,7 @@ type
//Property setters
Procedure SethiddenTimeMillis(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplayer(AIndex : Integer; AValue : TPlayer); virtual;
+ Procedure Setplayer(AIndex : Integer; const AValue : TPlayer); virtual;
Public
Published
Property hiddenTimeMillis : String Index 0 Read FhiddenTimeMillis Write SethiddenTimeMillis;
@@ -251,7 +238,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : THiddenPlayerListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : THiddenPlayerListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -292,33 +279,45 @@ type
TPlayer = Class(TGoogleBaseObject)
Private
FavatarImageUrl : String;
+ FbannerUrlLandscape : String;
+ FbannerUrlPortrait : String;
FdisplayName : String;
FexperienceInfo : TGamesPlayerExperienceInfoResource;
Fkind : String;
FlastPlayedWith : TGamesPlayedResource;
Fname : TPlayerTypename;
+ ForiginalPlayerId : String;
FplayerId : String;
+ FprofileSettings : TProfileSettings;
Ftitle : String;
Protected
//Property setters
Procedure SetavatarImageUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbannerUrlLandscape(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbannerUrlPortrait(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexperienceInfo(AIndex : Integer; AValue : TGamesPlayerExperienceInfoResource); virtual;
+ Procedure SetexperienceInfo(AIndex : Integer; const AValue : TGamesPlayerExperienceInfoResource); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastPlayedWith(AIndex : Integer; AValue : TGamesPlayedResource); virtual;
- Procedure Setname(AIndex : Integer; AValue : TPlayerTypename); virtual;
+ Procedure SetlastPlayedWith(AIndex : Integer; const AValue : TGamesPlayedResource); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TPlayerTypename); virtual;
+ Procedure SetoriginalPlayerId(AIndex : Integer; const AValue : String); virtual;
Procedure SetplayerId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprofileSettings(AIndex : Integer; const AValue : TProfileSettings); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property avatarImageUrl : String Index 0 Read FavatarImageUrl Write SetavatarImageUrl;
- Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
- Property experienceInfo : TGamesPlayerExperienceInfoResource Index 16 Read FexperienceInfo Write SetexperienceInfo;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property lastPlayedWith : TGamesPlayedResource Index 32 Read FlastPlayedWith Write SetlastPlayedWith;
- Property name : TPlayerTypename Index 40 Read Fname Write Setname;
- Property playerId : String Index 48 Read FplayerId Write SetplayerId;
- Property title : String Index 56 Read Ftitle Write Settitle;
+ Property bannerUrlLandscape : String Index 8 Read FbannerUrlLandscape Write SetbannerUrlLandscape;
+ Property bannerUrlPortrait : String Index 16 Read FbannerUrlPortrait Write SetbannerUrlPortrait;
+ Property displayName : String Index 24 Read FdisplayName Write SetdisplayName;
+ Property experienceInfo : TGamesPlayerExperienceInfoResource Index 32 Read FexperienceInfo Write SetexperienceInfo;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property lastPlayedWith : TGamesPlayedResource Index 48 Read FlastPlayedWith Write SetlastPlayedWith;
+ Property name : TPlayerTypename Index 56 Read Fname Write Setname;
+ Property originalPlayerId : String Index 64 Read ForiginalPlayerId Write SetoriginalPlayerId;
+ Property playerId : String Index 72 Read FplayerId Write SetplayerId;
+ Property profileSettings : TProfileSettings Index 80 Read FprofileSettings Write SetprofileSettings;
+ Property title : String Index 88 Read Ftitle Write Settitle;
end;
TPlayerClass = Class of TPlayer;
@@ -333,7 +332,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresults(AIndex : Integer; AValue : TPlayerScoreResetAllResponseTyperesultsArray); virtual;
+ Procedure Setresults(AIndex : Integer; const AValue : TPlayerScoreResetAllResponseTyperesultsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -358,7 +357,7 @@ type
//Property setters
Procedure SetdefinitionId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetresetScoreTimeSpans(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetresetScoreTimeSpans(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -372,6 +371,25 @@ type
TPlayerScoreResetResponseClass = Class of TPlayerScoreResetResponse;
{ --------------------------------------------------------------------
+ TProfileSettings
+ --------------------------------------------------------------------}
+
+ TProfileSettings = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ FprofileVisible : boolean;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprofileVisible(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property profileVisible : boolean Index 8 Read FprofileVisible Write SetprofileVisible;
+ end;
+ TProfileSettingsClass = Class of TProfileSettings;
+
+ { --------------------------------------------------------------------
TQuestsResetMultipleForAllRequest
--------------------------------------------------------------------}
@@ -382,7 +400,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setquest_ids(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setquest_ids(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -405,7 +423,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setleaderboard_ids(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setleaderboard_ids(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -631,7 +649,7 @@ end;
-Procedure TAchievementResetAllResponse.Setresults(AIndex : Integer; AValue : TAchievementResetAllResponseTyperesultsArray);
+Procedure TAchievementResetAllResponse.Setresults(AIndex : Integer; const AValue : TAchievementResetAllResponseTyperesultsArray);
begin
If (Fresults=AValue) then exit;
@@ -661,7 +679,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAchievementResetMultipleForAllRequest.Setachievement_ids(AIndex : Integer; AValue : TStringArray);
+Procedure TAchievementResetMultipleForAllRequest.Setachievement_ids(AIndex : Integer; const AValue : TStringArray);
begin
If (Fachievement_ids=AValue) then exit;
@@ -731,7 +749,7 @@ end;
-Procedure TAchievementResetResponse.SetupdateOccurred(AIndex : Integer; AValue : boolean);
+Procedure TAchievementResetResponse.SetupdateOccurred(AIndex : Integer; const AValue : boolean);
begin
If (FupdateOccurred=AValue) then exit;
@@ -748,7 +766,7 @@ end;
--------------------------------------------------------------------}
-Procedure TEventsResetMultipleForAllRequest.Setevent_ids(AIndex : Integer; AValue : TStringArray);
+Procedure TEventsResetMultipleForAllRequest.Setevent_ids(AIndex : Integer; const AValue : TStringArray);
begin
If (Fevent_ids=AValue) then exit;
@@ -788,7 +806,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGamesPlayedResource.SetautoMatched(AIndex : Integer; AValue : boolean);
+Procedure TGamesPlayedResource.SetautoMatched(AIndex : Integer; const AValue : boolean);
begin
If (FautoMatched=AValue) then exit;
@@ -825,7 +843,7 @@ end;
-Procedure TGamesPlayerExperienceInfoResource.SetcurrentLevel(AIndex : Integer; AValue : TGamesPlayerLevelResource);
+Procedure TGamesPlayerExperienceInfoResource.SetcurrentLevel(AIndex : Integer; const AValue : TGamesPlayerLevelResource);
begin
If (FcurrentLevel=AValue) then exit;
@@ -845,7 +863,7 @@ end;
-Procedure TGamesPlayerExperienceInfoResource.SetnextLevel(AIndex : Integer; AValue : TGamesPlayerLevelResource);
+Procedure TGamesPlayerExperienceInfoResource.SetnextLevel(AIndex : Integer; const AValue : TGamesPlayerLevelResource);
begin
If (FnextLevel=AValue) then exit;
@@ -862,7 +880,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGamesPlayerLevelResource.Setlevel(AIndex : Integer; AValue : integer);
+Procedure TGamesPlayerLevelResource.Setlevel(AIndex : Integer; const AValue : integer);
begin
If (Flevel=AValue) then exit;
@@ -919,7 +937,7 @@ end;
-Procedure THiddenPlayer.Setplayer(AIndex : Integer; AValue : TPlayer);
+Procedure THiddenPlayer.Setplayer(AIndex : Integer; const AValue : TPlayer);
begin
If (Fplayer=AValue) then exit;
@@ -936,7 +954,7 @@ end;
--------------------------------------------------------------------}
-Procedure THiddenPlayerList.Setitems(AIndex : Integer; AValue : THiddenPlayerListTypeitemsArray);
+Procedure THiddenPlayerList.Setitems(AIndex : Integer; const AValue : THiddenPlayerListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1023,6 +1041,26 @@ end;
+Procedure TPlayer.SetbannerUrlLandscape(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbannerUrlLandscape=AValue) then exit;
+ FbannerUrlLandscape:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPlayer.SetbannerUrlPortrait(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbannerUrlPortrait=AValue) then exit;
+ FbannerUrlPortrait:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TPlayer.SetdisplayName(AIndex : Integer; const AValue : String);
begin
@@ -1033,7 +1071,7 @@ end;
-Procedure TPlayer.SetexperienceInfo(AIndex : Integer; AValue : TGamesPlayerExperienceInfoResource);
+Procedure TPlayer.SetexperienceInfo(AIndex : Integer; const AValue : TGamesPlayerExperienceInfoResource);
begin
If (FexperienceInfo=AValue) then exit;
@@ -1053,7 +1091,7 @@ end;
-Procedure TPlayer.SetlastPlayedWith(AIndex : Integer; AValue : TGamesPlayedResource);
+Procedure TPlayer.SetlastPlayedWith(AIndex : Integer; const AValue : TGamesPlayedResource);
begin
If (FlastPlayedWith=AValue) then exit;
@@ -1063,7 +1101,7 @@ end;
-Procedure TPlayer.Setname(AIndex : Integer; AValue : TPlayerTypename);
+Procedure TPlayer.Setname(AIndex : Integer; const AValue : TPlayerTypename);
begin
If (Fname=AValue) then exit;
@@ -1073,6 +1111,16 @@ end;
+Procedure TPlayer.SetoriginalPlayerId(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForiginalPlayerId=AValue) then exit;
+ ForiginalPlayerId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TPlayer.SetplayerId(AIndex : Integer; const AValue : String);
begin
@@ -1083,6 +1131,16 @@ end;
+Procedure TPlayer.SetprofileSettings(AIndex : Integer; const AValue : TProfileSettings);
+
+begin
+ If (FprofileSettings=AValue) then exit;
+ FprofileSettings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TPlayer.Settitle(AIndex : Integer; const AValue : String);
begin
@@ -1110,7 +1168,7 @@ end;
-Procedure TPlayerScoreResetAllResponse.Setresults(AIndex : Integer; AValue : TPlayerScoreResetAllResponseTyperesultsArray);
+Procedure TPlayerScoreResetAllResponse.Setresults(AIndex : Integer; const AValue : TPlayerScoreResetAllResponseTyperesultsArray);
begin
If (Fresults=AValue) then exit;
@@ -1160,7 +1218,7 @@ end;
-Procedure TPlayerScoreResetResponse.SetresetScoreTimeSpans(AIndex : Integer; AValue : TStringArray);
+Procedure TPlayerScoreResetResponse.SetresetScoreTimeSpans(AIndex : Integer; const AValue : TStringArray);
begin
If (FresetScoreTimeSpans=AValue) then exit;
@@ -1186,6 +1244,33 @@ end;
{ --------------------------------------------------------------------
+ TProfileSettings
+ --------------------------------------------------------------------}
+
+
+Procedure TProfileSettings.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProfileSettings.SetprofileVisible(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FprofileVisible=AValue) then exit;
+ FprofileVisible:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TQuestsResetMultipleForAllRequest
--------------------------------------------------------------------}
@@ -1200,7 +1285,7 @@ end;
-Procedure TQuestsResetMultipleForAllRequest.Setquest_ids(AIndex : Integer; AValue : TStringArray);
+Procedure TQuestsResetMultipleForAllRequest.Setquest_ids(AIndex : Integer; const AValue : TStringArray);
begin
If (Fquest_ids=AValue) then exit;
@@ -1240,7 +1325,7 @@ end;
-Procedure TScoresResetMultipleForAllRequest.Setleaderboard_ids(AIndex : Integer; AValue : TStringArray);
+Procedure TScoresResetMultipleForAllRequest.Setleaderboard_ids(AIndex : Integer; const AValue : TStringArray);
begin
If (Fleaderboard_ids=AValue) then exit;
@@ -1790,7 +1875,7 @@ end;
Class Function TGamesManagementAPI.APIRevision : String;
begin
- Result:='20150511';
+ Result:='20160519';
end;
Class Function TGamesManagementAPI.APIID : String;
@@ -1844,7 +1929,7 @@ end;
Class Function TGamesManagementAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TGamesManagementAPI.APIbasePath : string;
@@ -1856,7 +1941,7 @@ end;
Class Function TGamesManagementAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/games/v1management/';
+ Result:='https://www.googleapis.com/games/v1management/';
end;
Class Function TGamesManagementAPI.APIProtocol : string;
@@ -1884,7 +1969,7 @@ begin
Result[0].Name:='https://www.googleapis.com/auth/games';
Result[0].Description:='Share your Google+ profile information and view and manage your game activity';
Result[1].Name:='https://www.googleapis.com/auth/plus.login';
- Result[1].Description:='Know your basic profile info and list of people in your circles.';
+ Result[1].Description:='Know the list of people in your circles, your age range, and language';
end;
@@ -1910,6 +1995,7 @@ begin
TPlayer.RegisterObject;
TPlayerScoreResetAllResponse.RegisterObject;
TPlayerScoreResetResponse.RegisterObject;
+ TProfileSettings.RegisterObject;
TQuestsResetMultipleForAllRequest.RegisterObject;
TScoresResetMultipleForAllRequest.RegisterObject;
end;
diff --git a/packages/googleapi/src/googlegenomics.pp b/packages/googleapi/src/googlegenomics.pp
index d6f0ab4457..0bb33cb8a8 100644
--- a/packages/googleapi/src/googlegenomics.pp
+++ b/packages/googleapi/src/googlegenomics.pp
@@ -1,19 +1,4 @@
unit googlegenomics;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:04
{$MODE objfpc}
{$H+}
@@ -24,242 +9,323 @@ uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
- TAlignReadGroupSetsRequest = Class;
- TAlignReadGroupSetsResponse = Class;
- TAnnotation = Class;
TAnnotationSet = Class;
- TBatchAnnotationsResponse = Class;
- TBatchAnnotationsResponseEntry = Class;
- TBatchAnnotationsResponseEntryStatus = Class;
- TBatchCreateAnnotationsRequest = Class;
- TCall = Class;
- TCallReadGroupSetsRequest = Class;
- TCallReadGroupSetsResponse = Class;
- TCallSet = Class;
- TCigarUnit = Class;
- TCoverageBucket = Class;
- TDataset = Class;
- TExperimentalCreateJobRequest = Class;
- TExperimentalCreateJobResponse = Class;
- TExportReadGroupSetsRequest = Class;
- TExportReadGroupSetsResponse = Class;
- TExportVariantSetRequest = Class;
- TExportVariantSetResponse = Class;
- TExternalId = Class;
- TFastqMetadata = Class;
- TImportReadGroupSetsRequest = Class;
- TImportReadGroupSetsResponse = Class;
- TImportVariantsRequest = Class;
- TImportVariantsResponse = Class;
- TInt32Value = Class;
- TInterleavedFastqSource = Class;
- TJob = Class;
- TJobRequest = Class;
- TLinearAlignment = Class;
- TListBasesResponse = Class;
- TListCoverageBucketsResponse = Class;
- TListDatasetsResponse = Class;
- TMergeVariantsRequest = Class;
- TMetadata = Class;
- TPairedFastqSource = Class;
- TPosition = Class;
- TQueryRange = Class;
- TRange = Class;
- TRangePosition = Class;
- TRead = Class;
- TReadGroup = Class;
- TReadGroupExperiment = Class;
- TReadGroupProgram = Class;
- TReadGroupSet = Class;
- TReference = Class;
- TReferenceBound = Class;
- TReferenceSet = Class;
+ TEmpty = Class;
TSearchAnnotationSetsRequest = Class;
TSearchAnnotationSetsResponse = Class;
+ TAnnotation = Class;
+ TVariantAnnotation = Class;
+ TClinicalCondition = Class;
+ TExternalId = Class;
+ TTranscript = Class;
+ TExon = Class;
+ TCodingSequence = Class;
+ TBatchCreateAnnotationsRequest = Class;
+ TBatchCreateAnnotationsResponse = Class;
+ TEntry = Class;
+ TStatus = Class;
TSearchAnnotationsRequest = Class;
TSearchAnnotationsResponse = Class;
- TSearchCallSetsRequest = Class;
- TSearchCallSetsResponse = Class;
- TSearchJobsRequest = Class;
- TSearchJobsResponse = Class;
+ TListDatasetsResponse = Class;
+ TDataset = Class;
+ TUndeleteDatasetRequest = Class;
+ TSetIamPolicyRequest = Class;
+ TPolicy = Class;
+ TBinding = Class;
+ TGetIamPolicyRequest = Class;
+ TTestIamPermissionsRequest = Class;
+ TTestIamPermissionsResponse = Class;
+ TOperation = Class;
+ TListOperationsResponse = Class;
+ TCancelOperationRequest = Class;
+ TImportReadGroupSetsRequest = Class;
+ TExportReadGroupSetRequest = Class;
TSearchReadGroupSetsRequest = Class;
TSearchReadGroupSetsResponse = Class;
+ TReadGroupSet = Class;
+ TReadGroup = Class;
+ TExperiment = Class;
+ TProgram = Class;
+ TListCoverageBucketsResponse = Class;
+ TCoverageBucket = Class;
+ TRange = Class;
TSearchReadsRequest = Class;
TSearchReadsResponse = Class;
+ TRead = Class;
+ TLinearAlignment = Class;
+ TPosition = Class;
+ TCigarUnit = Class;
+ TStreamReadsRequest = Class;
+ TStreamReadsResponse = Class;
TSearchReferenceSetsRequest = Class;
TSearchReferenceSetsResponse = Class;
+ TReferenceSet = Class;
TSearchReferencesRequest = Class;
TSearchReferencesResponse = Class;
+ TReference = Class;
+ TListBasesResponse = Class;
+ TImportVariantsRequest = Class;
+ TVariantSet = Class;
+ TReferenceBound = Class;
+ TVariantSetMetadata = Class;
+ TExportVariantSetRequest = Class;
TSearchVariantSetsRequest = Class;
TSearchVariantSetsResponse = Class;
TSearchVariantsRequest = Class;
TSearchVariantsResponse = Class;
- TTranscript = Class;
- TTranscriptCodingSequence = Class;
- TTranscriptExon = Class;
TVariant = Class;
- TVariantAnnotation = Class;
- TVariantAnnotationCondition = Class;
- TVariantSet = Class;
- TAlignReadGroupSetsRequestArray = Array of TAlignReadGroupSetsRequest;
- TAlignReadGroupSetsResponseArray = Array of TAlignReadGroupSetsResponse;
- TAnnotationArray = Array of TAnnotation;
+ TVariantCall = Class;
+ TMergeVariantsRequest = Class;
+ TSearchCallSetsRequest = Class;
+ TSearchCallSetsResponse = Class;
+ TCallSet = Class;
+ TStreamVariantsRequest = Class;
+ TStreamVariantsResponse = Class;
+ TImportReadGroupSetsResponse = Class;
+ TImportVariantsResponse = Class;
+ TOperationMetadata = Class;
+ TOperationEvent = Class;
TAnnotationSetArray = Array of TAnnotationSet;
- TBatchAnnotationsResponseArray = Array of TBatchAnnotationsResponse;
- TBatchAnnotationsResponseEntryArray = Array of TBatchAnnotationsResponseEntry;
- TBatchAnnotationsResponseEntryStatusArray = Array of TBatchAnnotationsResponseEntryStatus;
- TBatchCreateAnnotationsRequestArray = Array of TBatchCreateAnnotationsRequest;
- TCallArray = Array of TCall;
- TCallReadGroupSetsRequestArray = Array of TCallReadGroupSetsRequest;
- TCallReadGroupSetsResponseArray = Array of TCallReadGroupSetsResponse;
- TCallSetArray = Array of TCallSet;
- TCigarUnitArray = Array of TCigarUnit;
- TCoverageBucketArray = Array of TCoverageBucket;
- TDatasetArray = Array of TDataset;
- TExperimentalCreateJobRequestArray = Array of TExperimentalCreateJobRequest;
- TExperimentalCreateJobResponseArray = Array of TExperimentalCreateJobResponse;
- TExportReadGroupSetsRequestArray = Array of TExportReadGroupSetsRequest;
- TExportReadGroupSetsResponseArray = Array of TExportReadGroupSetsResponse;
- TExportVariantSetRequestArray = Array of TExportVariantSetRequest;
- TExportVariantSetResponseArray = Array of TExportVariantSetResponse;
- TExternalIdArray = Array of TExternalId;
- TFastqMetadataArray = Array of TFastqMetadata;
- TImportReadGroupSetsRequestArray = Array of TImportReadGroupSetsRequest;
- TImportReadGroupSetsResponseArray = Array of TImportReadGroupSetsResponse;
- TImportVariantsRequestArray = Array of TImportVariantsRequest;
- TImportVariantsResponseArray = Array of TImportVariantsResponse;
- TInt32ValueArray = Array of TInt32Value;
- TInterleavedFastqSourceArray = Array of TInterleavedFastqSource;
- TJobArray = Array of TJob;
- TJobRequestArray = Array of TJobRequest;
- TLinearAlignmentArray = Array of TLinearAlignment;
- TListBasesResponseArray = Array of TListBasesResponse;
- TListCoverageBucketsResponseArray = Array of TListCoverageBucketsResponse;
- TListDatasetsResponseArray = Array of TListDatasetsResponse;
- TMergeVariantsRequestArray = Array of TMergeVariantsRequest;
- TMetadataArray = Array of TMetadata;
- TPairedFastqSourceArray = Array of TPairedFastqSource;
- TPositionArray = Array of TPosition;
- TQueryRangeArray = Array of TQueryRange;
- TRangeArray = Array of TRange;
- TRangePositionArray = Array of TRangePosition;
- TReadArray = Array of TRead;
- TReadGroupArray = Array of TReadGroup;
- TReadGroupExperimentArray = Array of TReadGroupExperiment;
- TReadGroupProgramArray = Array of TReadGroupProgram;
- TReadGroupSetArray = Array of TReadGroupSet;
- TReferenceArray = Array of TReference;
- TReferenceBoundArray = Array of TReferenceBound;
- TReferenceSetArray = Array of TReferenceSet;
+ TEmptyArray = Array of TEmpty;
TSearchAnnotationSetsRequestArray = Array of TSearchAnnotationSetsRequest;
TSearchAnnotationSetsResponseArray = Array of TSearchAnnotationSetsResponse;
+ TAnnotationArray = Array of TAnnotation;
+ TVariantAnnotationArray = Array of TVariantAnnotation;
+ TClinicalConditionArray = Array of TClinicalCondition;
+ TExternalIdArray = Array of TExternalId;
+ TTranscriptArray = Array of TTranscript;
+ TExonArray = Array of TExon;
+ TCodingSequenceArray = Array of TCodingSequence;
+ TBatchCreateAnnotationsRequestArray = Array of TBatchCreateAnnotationsRequest;
+ TBatchCreateAnnotationsResponseArray = Array of TBatchCreateAnnotationsResponse;
+ TEntryArray = Array of TEntry;
+ TStatusArray = Array of TStatus;
TSearchAnnotationsRequestArray = Array of TSearchAnnotationsRequest;
TSearchAnnotationsResponseArray = Array of TSearchAnnotationsResponse;
- TSearchCallSetsRequestArray = Array of TSearchCallSetsRequest;
- TSearchCallSetsResponseArray = Array of TSearchCallSetsResponse;
- TSearchJobsRequestArray = Array of TSearchJobsRequest;
- TSearchJobsResponseArray = Array of TSearchJobsResponse;
+ TListDatasetsResponseArray = Array of TListDatasetsResponse;
+ TDatasetArray = Array of TDataset;
+ TUndeleteDatasetRequestArray = Array of TUndeleteDatasetRequest;
+ TSetIamPolicyRequestArray = Array of TSetIamPolicyRequest;
+ TPolicyArray = Array of TPolicy;
+ TBindingArray = Array of TBinding;
+ TGetIamPolicyRequestArray = Array of TGetIamPolicyRequest;
+ TTestIamPermissionsRequestArray = Array of TTestIamPermissionsRequest;
+ TTestIamPermissionsResponseArray = Array of TTestIamPermissionsResponse;
+ TOperationArray = Array of TOperation;
+ TListOperationsResponseArray = Array of TListOperationsResponse;
+ TCancelOperationRequestArray = Array of TCancelOperationRequest;
+ TImportReadGroupSetsRequestArray = Array of TImportReadGroupSetsRequest;
+ TExportReadGroupSetRequestArray = Array of TExportReadGroupSetRequest;
TSearchReadGroupSetsRequestArray = Array of TSearchReadGroupSetsRequest;
TSearchReadGroupSetsResponseArray = Array of TSearchReadGroupSetsResponse;
+ TReadGroupSetArray = Array of TReadGroupSet;
+ TReadGroupArray = Array of TReadGroup;
+ TExperimentArray = Array of TExperiment;
+ TProgramArray = Array of TProgram;
+ TListCoverageBucketsResponseArray = Array of TListCoverageBucketsResponse;
+ TCoverageBucketArray = Array of TCoverageBucket;
+ TRangeArray = Array of TRange;
TSearchReadsRequestArray = Array of TSearchReadsRequest;
TSearchReadsResponseArray = Array of TSearchReadsResponse;
+ TReadArray = Array of TRead;
+ TLinearAlignmentArray = Array of TLinearAlignment;
+ TPositionArray = Array of TPosition;
+ TCigarUnitArray = Array of TCigarUnit;
+ TStreamReadsRequestArray = Array of TStreamReadsRequest;
+ TStreamReadsResponseArray = Array of TStreamReadsResponse;
TSearchReferenceSetsRequestArray = Array of TSearchReferenceSetsRequest;
TSearchReferenceSetsResponseArray = Array of TSearchReferenceSetsResponse;
+ TReferenceSetArray = Array of TReferenceSet;
TSearchReferencesRequestArray = Array of TSearchReferencesRequest;
TSearchReferencesResponseArray = Array of TSearchReferencesResponse;
+ TReferenceArray = Array of TReference;
+ TListBasesResponseArray = Array of TListBasesResponse;
+ TImportVariantsRequestArray = Array of TImportVariantsRequest;
+ TVariantSetArray = Array of TVariantSet;
+ TReferenceBoundArray = Array of TReferenceBound;
+ TVariantSetMetadataArray = Array of TVariantSetMetadata;
+ TExportVariantSetRequestArray = Array of TExportVariantSetRequest;
TSearchVariantSetsRequestArray = Array of TSearchVariantSetsRequest;
TSearchVariantSetsResponseArray = Array of TSearchVariantSetsResponse;
TSearchVariantsRequestArray = Array of TSearchVariantsRequest;
TSearchVariantsResponseArray = Array of TSearchVariantsResponse;
- TTranscriptArray = Array of TTranscript;
- TTranscriptCodingSequenceArray = Array of TTranscriptCodingSequence;
- TTranscriptExonArray = Array of TTranscriptExon;
TVariantArray = Array of TVariant;
- TVariantAnnotationArray = Array of TVariantAnnotation;
- TVariantAnnotationConditionArray = Array of TVariantAnnotationCondition;
- TVariantSetArray = Array of TVariantSet;
+ TVariantCallArray = Array of TVariantCall;
+ TMergeVariantsRequestArray = Array of TMergeVariantsRequest;
+ TSearchCallSetsRequestArray = Array of TSearchCallSetsRequest;
+ TSearchCallSetsResponseArray = Array of TSearchCallSetsResponse;
+ TCallSetArray = Array of TCallSet;
+ TStreamVariantsRequestArray = Array of TStreamVariantsRequest;
+ TStreamVariantsResponseArray = Array of TStreamVariantsResponse;
+ TImportReadGroupSetsResponseArray = Array of TImportReadGroupSetsResponse;
+ TImportVariantsResponseArray = Array of TImportVariantsResponse;
+ TOperationMetadataArray = Array of TOperationMetadata;
+ TOperationEventArray = Array of TOperationEvent;
//Anonymous types, using auto-generated names
- TAnnotationTypeinfo = Class;
TAnnotationSetTypeinfo = Class;
- TCallTypeinfo = Class;
- TCallSetTypeinfo = Class;
- TMetadataTypeinfo = Class;
- TReadTypeinfo = Class;
- TReadGroupTypeinfo = Class;
+ TAnnotationTypeinfo = Class;
+ TStatusTypedetailsItem = Class;
+ TOperationTypemetadata = Class;
+ TOperationTyperesponse = Class;
TReadGroupSetTypeinfo = Class;
+ TReadGroupTypeinfo = Class;
+ TReadTypeinfo = Class;
+ TImportVariantsRequestTypeinfoMergeConfig = Class;
+ TVariantSetMetadataTypeinfo = Class;
TVariantTypeinfo = Class;
- TBatchAnnotationsResponseTypeentriesArray = Array of TBatchAnnotationsResponseEntry;
- TBatchCreateAnnotationsRequestTypeannotationsArray = Array of TAnnotation;
- TLinearAlignmentTypecigarArray = Array of TCigarUnit;
- TListCoverageBucketsResponseTypecoverageBucketsArray = Array of TCoverageBucket;
- TListDatasetsResponseTypedatasetsArray = Array of TDataset;
- TMergeVariantsRequestTypevariantsArray = Array of TVariant;
- TReadGroupTypeprogramsArray = Array of TReadGroupProgram;
- TReadGroupSetTypereadGroupsArray = Array of TReadGroup;
+ TVariantCallTypeinfo = Class;
+ TMergeVariantsRequestTypeinfoMergeConfig = Class;
+ TCallSetTypeinfo = Class;
+ TOperationMetadataTyperequest = Class;
TSearchAnnotationSetsResponseTypeannotationSetsArray = Array of TAnnotationSet;
+ TVariantAnnotationTypeconditionsArray = Array of TClinicalCondition;
+ TClinicalConditionTypeexternalIdsArray = Array of TExternalId;
+ TTranscriptTypeexonsArray = Array of TExon;
+ TBatchCreateAnnotationsRequestTypeannotationsArray = Array of TAnnotation;
+ TBatchCreateAnnotationsResponseTypeentriesArray = Array of TEntry;
+ TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
TSearchAnnotationsResponseTypeannotationsArray = Array of TAnnotation;
- TSearchCallSetsResponseTypecallSetsArray = Array of TCallSet;
- TSearchJobsResponseTypejobsArray = Array of TJob;
+ TListDatasetsResponseTypedatasetsArray = Array of TDataset;
+ TPolicyTypebindingsArray = Array of TBinding;
+ TListOperationsResponseTypeoperationsArray = Array of TOperation;
TSearchReadGroupSetsResponseTypereadGroupSetsArray = Array of TReadGroupSet;
+ TReadGroupSetTypereadGroupsArray = Array of TReadGroup;
+ TReadGroupTypeprogramsArray = Array of TProgram;
+ TListCoverageBucketsResponseTypecoverageBucketsArray = Array of TCoverageBucket;
TSearchReadsResponseTypealignmentsArray = Array of TRead;
+ TLinearAlignmentTypecigarArray = Array of TCigarUnit;
+ TStreamReadsResponseTypealignmentsArray = Array of TRead;
TSearchReferenceSetsResponseTypereferenceSetsArray = Array of TReferenceSet;
TSearchReferencesResponseTypereferencesArray = Array of TReference;
+ TVariantSetTypereferenceBoundsArray = Array of TReferenceBound;
+ TVariantSetTypemetadataArray = Array of TVariantSetMetadata;
TSearchVariantSetsResponseTypevariantSetsArray = Array of TVariantSet;
TSearchVariantsResponseTypevariantsArray = Array of TVariant;
- TTranscriptTypeexonsArray = Array of TTranscriptExon;
- TVariantTypecallsArray = Array of TCall;
- TVariantAnnotationTypeconditionsArray = Array of TVariantAnnotationCondition;
- TVariantAnnotationConditionTypeexternalIdsArray = Array of TExternalId;
- TVariantSetTypemetadataArray = Array of TMetadata;
- TVariantSetTypereferenceBoundsArray = Array of TReferenceBound;
+ TVariantTypecallsArray = Array of TVariantCall;
+ TMergeVariantsRequestTypevariantsArray = Array of TVariant;
+ TSearchCallSetsResponseTypecallSetsArray = Array of TCallSet;
+ TStreamVariantsResponseTypevariantsArray = Array of TVariant;
+ TOperationMetadataTypeeventsArray = Array of TOperationEvent;
{ --------------------------------------------------------------------
- TAlignReadGroupSetsRequest
+ TAnnotationSetTypeinfo
--------------------------------------------------------------------}
- TAlignReadGroupSetsRequest = Class(TGoogleBaseObject)
+ TAnnotationSetTypeinfo = Class(TGoogleBaseObject)
Private
- FbamSourceUris : TStringArray;
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TAnnotationSetTypeinfoClass = Class of TAnnotationSetTypeinfo;
+
+ { --------------------------------------------------------------------
+ TAnnotationSet
+ --------------------------------------------------------------------}
+
+ TAnnotationSet = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
FdatasetId : String;
- FinterleavedFastqSource : TInterleavedFastqSource;
- FpairedFastqSource : TPairedFastqSource;
- FreadGroupSetId : String;
+ FreferenceSetId : String;
+ Fname : String;
+ FsourceUri : String;
+ F_type : String;
+ Finfo : TAnnotationSetTypeinfo;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetbamSourceUris(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinterleavedFastqSource(AIndex : Integer; AValue : TInterleavedFastqSource); virtual;
- Procedure SetpairedFastqSource(AIndex : Integer; AValue : TPairedFastqSource); virtual;
- Procedure SetreadGroupSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setinfo(AIndex : Integer; const AValue : TAnnotationSetTypeinfo); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property datasetId : String Index 8 Read FdatasetId Write SetdatasetId;
+ Property referenceSetId : String Index 16 Read FreferenceSetId Write SetreferenceSetId;
+ Property name : String Index 24 Read Fname Write Setname;
+ Property sourceUri : String Index 32 Read FsourceUri Write SetsourceUri;
+ Property _type : String Index 40 Read F_type Write Set_type;
+ Property info : TAnnotationSetTypeinfo Index 48 Read Finfo Write Setinfo;
+ end;
+ TAnnotationSetClass = Class of TAnnotationSet;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TSearchAnnotationSetsRequest
+ --------------------------------------------------------------------}
+
+ TSearchAnnotationSetsRequest = Class(TGoogleBaseObject)
+ Private
+ FdatasetIds : TStringArray;
+ FreferenceSetId : String;
+ Fname : String;
+ Ftypes : TStringArray;
+ FpageToken : String;
+ FpageSize : integer;
+ Protected
+ //Property setters
+ Procedure SetdatasetIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetreferenceSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settypes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageSize(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 bamSourceUris : TStringArray Index 0 Read FbamSourceUris Write SetbamSourceUris;
- Property datasetId : String Index 8 Read FdatasetId Write SetdatasetId;
- Property interleavedFastqSource : TInterleavedFastqSource Index 16 Read FinterleavedFastqSource Write SetinterleavedFastqSource;
- Property pairedFastqSource : TPairedFastqSource Index 24 Read FpairedFastqSource Write SetpairedFastqSource;
- Property readGroupSetId : String Index 32 Read FreadGroupSetId Write SetreadGroupSetId;
+ Property datasetIds : TStringArray Index 0 Read FdatasetIds Write SetdatasetIds;
+ Property referenceSetId : String Index 8 Read FreferenceSetId Write SetreferenceSetId;
+ Property name : String Index 16 Read Fname Write Setname;
+ Property types : TStringArray Index 24 Read Ftypes Write Settypes;
+ Property pageToken : String Index 32 Read FpageToken Write SetpageToken;
+ Property pageSize : integer Index 40 Read FpageSize Write SetpageSize;
end;
- TAlignReadGroupSetsRequestClass = Class of TAlignReadGroupSetsRequest;
+ TSearchAnnotationSetsRequestClass = Class of TSearchAnnotationSetsRequest;
{ --------------------------------------------------------------------
- TAlignReadGroupSetsResponse
+ TSearchAnnotationSetsResponse
--------------------------------------------------------------------}
- TAlignReadGroupSetsResponse = Class(TGoogleBaseObject)
+ TSearchAnnotationSetsResponse = Class(TGoogleBaseObject)
Private
- FjobId : String;
+ FannotationSets : TSearchAnnotationSetsResponseTypeannotationSetsArray;
+ FnextPageToken : String;
Protected
//Property setters
- Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetannotationSets(AIndex : Integer; const AValue : TSearchAnnotationSetsResponseTypeannotationSetsArray); 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 jobId : String Index 0 Read FjobId Write SetjobId;
+ Property annotationSets : TSearchAnnotationSetsResponseTypeannotationSetsArray Index 0 Read FannotationSets Write SetannotationSets;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TAlignReadGroupSetsResponseClass = Class of TAlignReadGroupSetsResponse;
+ TSearchAnnotationSetsResponseClass = Class of TSearchAnnotationSetsResponse;
{ --------------------------------------------------------------------
TAnnotationTypeinfo
@@ -281,144 +347,205 @@ type
TAnnotation = Class(TGoogleBaseObject)
Private
- FannotationSetId : String;
Fid : String;
- Finfo : TAnnotationTypeinfo;
+ FannotationSetId : String;
Fname : String;
- Fposition : TRangePosition;
- Ftranscript : TTranscript;
+ FreferenceId : String;
+ FreferenceName : String;
+ Fstart : String;
+ F_end : String;
+ FreverseStrand : boolean;
F_type : String;
Fvariant : TVariantAnnotation;
+ Ftranscript : TTranscript;
+ Finfo : TAnnotationTypeinfo;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetannotationSetId(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinfo(AIndex : Integer; AValue : TAnnotationTypeinfo); virtual;
+ Procedure SetannotationSetId(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setposition(AIndex : Integer; AValue : TRangePosition); virtual;
- Procedure Settranscript(AIndex : Integer; AValue : TTranscript); virtual;
+ Procedure SetreferenceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreverseStrand(AIndex : Integer; const AValue : boolean); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvariant(AIndex : Integer; AValue : TVariantAnnotation); virtual;
+ Procedure Setvariant(AIndex : Integer; const AValue : TVariantAnnotation); virtual;
+ Procedure Settranscript(AIndex : Integer; const AValue : TTranscript); virtual;
+ Procedure Setinfo(AIndex : Integer; const AValue : TAnnotationTypeinfo); virtual;
Public
Published
- Property annotationSetId : String Index 0 Read FannotationSetId Write SetannotationSetId;
- Property id : String Index 8 Read Fid Write Setid;
- Property info : TAnnotationTypeinfo Index 16 Read Finfo Write Setinfo;
- Property name : String Index 24 Read Fname Write Setname;
- Property position : TRangePosition Index 32 Read Fposition Write Setposition;
- Property transcript : TTranscript Index 40 Read Ftranscript Write Settranscript;
- Property _type : String Index 48 Read F_type Write Set_type;
- Property variant : TVariantAnnotation Index 56 Read Fvariant Write Setvariant;
+ Property id : String Index 0 Read Fid Write Setid;
+ Property annotationSetId : String Index 8 Read FannotationSetId Write SetannotationSetId;
+ Property name : String Index 16 Read Fname Write Setname;
+ Property referenceId : String Index 24 Read FreferenceId Write SetreferenceId;
+ Property referenceName : String Index 32 Read FreferenceName Write SetreferenceName;
+ Property start : String Index 40 Read Fstart Write Setstart;
+ Property _end : String Index 48 Read F_end Write Set_end;
+ Property reverseStrand : boolean Index 56 Read FreverseStrand Write SetreverseStrand;
+ Property _type : String Index 64 Read F_type Write Set_type;
+ Property variant : TVariantAnnotation Index 72 Read Fvariant Write Setvariant;
+ Property transcript : TTranscript Index 80 Read Ftranscript Write Settranscript;
+ Property info : TAnnotationTypeinfo Index 88 Read Finfo Write Setinfo;
end;
TAnnotationClass = Class of TAnnotation;
{ --------------------------------------------------------------------
- TAnnotationSetTypeinfo
+ TVariantAnnotation
--------------------------------------------------------------------}
- TAnnotationSetTypeinfo = Class(TGoogleBaseObject)
+ TVariantAnnotation = Class(TGoogleBaseObject)
Private
+ F_type : String;
+ Feffect : String;
+ FalternateBases : String;
+ FgeneId : String;
+ FtranscriptIds : TStringArray;
+ Fconditions : TVariantAnnotationTypeconditionsArray;
+ FclinicalSignificance : String;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Seteffect(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetalternateBases(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetgeneId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettranscriptIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setconditions(AIndex : Integer; const AValue : TVariantAnnotationTypeconditionsArray); virtual;
+ Procedure SetclinicalSignificance(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
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property _type : String Index 0 Read F_type Write Set_type;
+ Property effect : String Index 8 Read Feffect Write Seteffect;
+ Property alternateBases : String Index 16 Read FalternateBases Write SetalternateBases;
+ Property geneId : String Index 24 Read FgeneId Write SetgeneId;
+ Property transcriptIds : TStringArray Index 32 Read FtranscriptIds Write SettranscriptIds;
+ Property conditions : TVariantAnnotationTypeconditionsArray Index 40 Read Fconditions Write Setconditions;
+ Property clinicalSignificance : String Index 48 Read FclinicalSignificance Write SetclinicalSignificance;
end;
- TAnnotationSetTypeinfoClass = Class of TAnnotationSetTypeinfo;
+ TVariantAnnotationClass = Class of TVariantAnnotation;
{ --------------------------------------------------------------------
- TAnnotationSet
+ TClinicalCondition
--------------------------------------------------------------------}
- TAnnotationSet = Class(TGoogleBaseObject)
+ TClinicalCondition = Class(TGoogleBaseObject)
Private
- FdatasetId : String;
+ Fnames : TStringArray;
+ FexternalIds : TClinicalConditionTypeexternalIdsArray;
+ FconceptId : String;
+ FomimId : String;
+ Protected
+ //Property setters
+ Procedure Setnames(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetexternalIds(AIndex : Integer; const AValue : TClinicalConditionTypeexternalIdsArray); virtual;
+ Procedure SetconceptId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetomimId(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 names : TStringArray Index 0 Read Fnames Write Setnames;
+ Property externalIds : TClinicalConditionTypeexternalIdsArray Index 8 Read FexternalIds Write SetexternalIds;
+ Property conceptId : String Index 16 Read FconceptId Write SetconceptId;
+ Property omimId : String Index 24 Read FomimId Write SetomimId;
+ end;
+ TClinicalConditionClass = Class of TClinicalCondition;
+
+ { --------------------------------------------------------------------
+ TExternalId
+ --------------------------------------------------------------------}
+
+ TExternalId = Class(TGoogleBaseObject)
+ Private
+ FsourceName : String;
Fid : String;
- Finfo : TAnnotationSetTypeinfo;
- Fname : String;
- FreferenceSetId : String;
- FsourceUri : String;
- F_type : String;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinfo(AIndex : Integer; AValue : TAnnotationSetTypeinfo); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferenceSetId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsourceUri(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
+ Property sourceName : String Index 0 Read FsourceName Write SetsourceName;
Property id : String Index 8 Read Fid Write Setid;
- Property info : TAnnotationSetTypeinfo Index 16 Read Finfo Write Setinfo;
- Property name : String Index 24 Read Fname Write Setname;
- Property referenceSetId : String Index 32 Read FreferenceSetId Write SetreferenceSetId;
- Property sourceUri : String Index 40 Read FsourceUri Write SetsourceUri;
- Property _type : String Index 48 Read F_type Write Set_type;
end;
- TAnnotationSetClass = Class of TAnnotationSet;
+ TExternalIdClass = Class of TExternalId;
{ --------------------------------------------------------------------
- TBatchAnnotationsResponse
+ TTranscript
--------------------------------------------------------------------}
- TBatchAnnotationsResponse = Class(TGoogleBaseObject)
+ TTranscript = Class(TGoogleBaseObject)
Private
- Fentries : TBatchAnnotationsResponseTypeentriesArray;
+ FgeneId : String;
+ Fexons : TTranscriptTypeexonsArray;
+ FcodingSequence : TCodingSequence;
Protected
//Property setters
- Procedure Setentries(AIndex : Integer; AValue : TBatchAnnotationsResponseTypeentriesArray); virtual;
+ Procedure SetgeneId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setexons(AIndex : Integer; const AValue : TTranscriptTypeexonsArray); virtual;
+ Procedure SetcodingSequence(AIndex : Integer; const AValue : TCodingSequence); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property entries : TBatchAnnotationsResponseTypeentriesArray Index 0 Read Fentries Write Setentries;
+ Property geneId : String Index 0 Read FgeneId Write SetgeneId;
+ Property exons : TTranscriptTypeexonsArray Index 8 Read Fexons Write Setexons;
+ Property codingSequence : TCodingSequence Index 16 Read FcodingSequence Write SetcodingSequence;
end;
- TBatchAnnotationsResponseClass = Class of TBatchAnnotationsResponse;
+ TTranscriptClass = Class of TTranscript;
{ --------------------------------------------------------------------
- TBatchAnnotationsResponseEntry
+ TExon
--------------------------------------------------------------------}
- TBatchAnnotationsResponseEntry = Class(TGoogleBaseObject)
+ TExon = Class(TGoogleBaseObject)
Private
- Fannotation : TAnnotation;
- Fstatus : TBatchAnnotationsResponseEntryStatus;
+ Fstart : String;
+ F_end : String;
+ Fframe : integer;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setannotation(AIndex : Integer; AValue : TAnnotation); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TBatchAnnotationsResponseEntryStatus); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setframe(AIndex : Integer; const AValue : integer); virtual;
Public
Published
- Property annotation : TAnnotation Index 0 Read Fannotation Write Setannotation;
- Property status : TBatchAnnotationsResponseEntryStatus Index 8 Read Fstatus Write Setstatus;
+ Property start : String Index 0 Read Fstart Write Setstart;
+ Property _end : String Index 8 Read F_end Write Set_end;
+ Property frame : integer Index 16 Read Fframe Write Setframe;
end;
- TBatchAnnotationsResponseEntryClass = Class of TBatchAnnotationsResponseEntry;
+ TExonClass = Class of TExon;
{ --------------------------------------------------------------------
- TBatchAnnotationsResponseEntryStatus
+ TCodingSequence
--------------------------------------------------------------------}
- TBatchAnnotationsResponseEntryStatus = Class(TGoogleBaseObject)
+ TCodingSequence = Class(TGoogleBaseObject)
Private
- Fcode : integer;
- Fmessage : String;
+ Fstart : String;
+ F_end : String;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setcode(AIndex : Integer; AValue : integer); virtual;
- Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property code : integer Index 0 Read Fcode Write Setcode;
- Property message : String Index 8 Read Fmessage Write Setmessage;
+ Property start : String Index 0 Read Fstart Write Setstart;
+ Property _end : String Index 8 Read F_end Write Set_end;
end;
- TBatchAnnotationsResponseEntryStatusClass = Class of TBatchAnnotationsResponseEntryStatus;
+ TCodingSequenceClass = Class of TCodingSequence;
{ --------------------------------------------------------------------
TBatchCreateAnnotationsRequest
@@ -429,7 +556,7 @@ type
Fannotations : TBatchCreateAnnotationsRequestTypeannotationsArray;
Protected
//Property setters
- Procedure Setannotations(AIndex : Integer; AValue : TBatchCreateAnnotationsRequestTypeannotationsArray); virtual;
+ Procedure Setannotations(AIndex : Integer; const AValue : TBatchCreateAnnotationsRequestTypeannotationsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -441,185 +568,168 @@ type
TBatchCreateAnnotationsRequestClass = Class of TBatchCreateAnnotationsRequest;
{ --------------------------------------------------------------------
- TCallTypeinfo
+ TBatchCreateAnnotationsResponse
--------------------------------------------------------------------}
- TCallTypeinfo = Class(TGoogleBaseObject)
+ TBatchCreateAnnotationsResponse = Class(TGoogleBaseObject)
Private
+ Fentries : TBatchCreateAnnotationsResponseTypeentriesArray;
Protected
//Property setters
- Public
- Class Function AllowAdditionalProperties : Boolean; override;
- Published
- end;
- TCallTypeinfoClass = Class of TCallTypeinfo;
-
- { --------------------------------------------------------------------
- TCall
- --------------------------------------------------------------------}
-
- TCall = Class(TGoogleBaseObject)
- Private
- FcallSetId : String;
- FcallSetName : String;
- Fgenotype : TintegerArray;
- FgenotypeLikelihood : TdoubleArray;
- Finfo : TCallTypeinfo;
- Fphaseset : String;
- Protected
- //Property setters
- Procedure SetcallSetId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcallSetName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setgenotype(AIndex : Integer; AValue : TintegerArray); virtual;
- Procedure SetgenotypeLikelihood(AIndex : Integer; AValue : TdoubleArray); virtual;
- Procedure Setinfo(AIndex : Integer; AValue : TCallTypeinfo); virtual;
- Procedure Setphaseset(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TBatchCreateAnnotationsResponseTypeentriesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property callSetId : String Index 0 Read FcallSetId Write SetcallSetId;
- Property callSetName : String Index 8 Read FcallSetName Write SetcallSetName;
- Property genotype : TintegerArray Index 16 Read Fgenotype Write Setgenotype;
- Property genotypeLikelihood : TdoubleArray Index 24 Read FgenotypeLikelihood Write SetgenotypeLikelihood;
- Property info : TCallTypeinfo Index 32 Read Finfo Write Setinfo;
- Property phaseset : String Index 40 Read Fphaseset Write Setphaseset;
+ Property entries : TBatchCreateAnnotationsResponseTypeentriesArray Index 0 Read Fentries Write Setentries;
end;
- TCallClass = Class of TCall;
+ TBatchCreateAnnotationsResponseClass = Class of TBatchCreateAnnotationsResponse;
{ --------------------------------------------------------------------
- TCallReadGroupSetsRequest
+ TEntry
--------------------------------------------------------------------}
- TCallReadGroupSetsRequest = Class(TGoogleBaseObject)
+ TEntry = Class(TGoogleBaseObject)
Private
- FdatasetId : String;
- FreadGroupSetId : String;
- FsourceUris : TStringArray;
+ Fstatus : TStatus;
+ Fannotation : TAnnotation;
Protected
//Property setters
- Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreadGroupSetId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsourceUris(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Setstatus(AIndex : Integer; const AValue : TStatus); virtual;
+ Procedure Setannotation(AIndex : Integer; const AValue : TAnnotation); virtual;
Public
Published
- Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
- Property readGroupSetId : String Index 8 Read FreadGroupSetId Write SetreadGroupSetId;
- Property sourceUris : TStringArray Index 16 Read FsourceUris Write SetsourceUris;
+ Property status : TStatus Index 0 Read Fstatus Write Setstatus;
+ Property annotation : TAnnotation Index 8 Read Fannotation Write Setannotation;
end;
- TCallReadGroupSetsRequestClass = Class of TCallReadGroupSetsRequest;
+ TEntryClass = Class of TEntry;
{ --------------------------------------------------------------------
- TCallReadGroupSetsResponse
+ TStatusTypedetailsItem
--------------------------------------------------------------------}
- TCallReadGroupSetsResponse = Class(TGoogleBaseObject)
+ TStatusTypedetailsItem = Class(TGoogleBaseObject)
Private
- FjobId : String;
Protected
//Property setters
- Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property jobId : String Index 0 Read FjobId Write SetjobId;
end;
- TCallReadGroupSetsResponseClass = Class of TCallReadGroupSetsResponse;
+ TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
{ --------------------------------------------------------------------
- TCallSetTypeinfo
+ TStatus
--------------------------------------------------------------------}
- TCallSetTypeinfo = Class(TGoogleBaseObject)
+ TStatus = Class(TGoogleBaseObject)
Private
+ Fcode : integer;
+ Fmessage : String;
+ Fdetails : TStatusTypedetailsArray;
Protected
//Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property code : integer Index 0 Read Fcode Write Setcode;
+ Property message : String Index 8 Read Fmessage Write Setmessage;
+ Property details : TStatusTypedetailsArray Index 16 Read Fdetails Write Setdetails;
end;
- TCallSetTypeinfoClass = Class of TCallSetTypeinfo;
+ TStatusClass = Class of TStatus;
{ --------------------------------------------------------------------
- TCallSet
+ TSearchAnnotationsRequest
--------------------------------------------------------------------}
- TCallSet = Class(TGoogleBaseObject)
+ TSearchAnnotationsRequest = Class(TGoogleBaseObject)
Private
- Fcreated : String;
- Fid : String;
- Finfo : TCallSetTypeinfo;
- Fname : String;
- FsampleId : String;
- FvariantSetIds : TStringArray;
+ FannotationSetIds : TStringArray;
+ FreferenceId : String;
+ FreferenceName : String;
+ Fstart : String;
+ F_end : String;
+ FpageToken : String;
+ FpageSize : integer;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setcreated(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinfo(AIndex : Integer; AValue : TCallSetTypeinfo); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsampleId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvariantSetIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetannotationSetIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetreferenceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageSize(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 created : String Index 0 Read Fcreated Write Setcreated;
- Property id : String Index 8 Read Fid Write Setid;
- Property info : TCallSetTypeinfo Index 16 Read Finfo Write Setinfo;
- Property name : String Index 24 Read Fname Write Setname;
- Property sampleId : String Index 32 Read FsampleId Write SetsampleId;
- Property variantSetIds : TStringArray Index 40 Read FvariantSetIds Write SetvariantSetIds;
+ Property annotationSetIds : TStringArray Index 0 Read FannotationSetIds Write SetannotationSetIds;
+ Property referenceId : String Index 8 Read FreferenceId Write SetreferenceId;
+ Property referenceName : String Index 16 Read FreferenceName Write SetreferenceName;
+ Property start : String Index 24 Read Fstart Write Setstart;
+ Property _end : String Index 32 Read F_end Write Set_end;
+ Property pageToken : String Index 40 Read FpageToken Write SetpageToken;
+ Property pageSize : integer Index 48 Read FpageSize Write SetpageSize;
end;
- TCallSetClass = Class of TCallSet;
+ TSearchAnnotationsRequestClass = Class of TSearchAnnotationsRequest;
{ --------------------------------------------------------------------
- TCigarUnit
+ TSearchAnnotationsResponse
--------------------------------------------------------------------}
- TCigarUnit = Class(TGoogleBaseObject)
+ TSearchAnnotationsResponse = Class(TGoogleBaseObject)
Private
- Foperation : String;
- FoperationLength : String;
- FreferenceSequence : String;
+ Fannotations : TSearchAnnotationsResponseTypeannotationsArray;
+ FnextPageToken : String;
Protected
//Property setters
- Procedure Setoperation(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoperationLength(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferenceSequence(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setannotations(AIndex : Integer; const AValue : TSearchAnnotationsResponseTypeannotationsArray); 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 operation : String Index 0 Read Foperation Write Setoperation;
- Property operationLength : String Index 8 Read FoperationLength Write SetoperationLength;
- Property referenceSequence : String Index 16 Read FreferenceSequence Write SetreferenceSequence;
+ Property annotations : TSearchAnnotationsResponseTypeannotationsArray Index 0 Read Fannotations Write Setannotations;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TCigarUnitClass = Class of TCigarUnit;
+ TSearchAnnotationsResponseClass = Class of TSearchAnnotationsResponse;
{ --------------------------------------------------------------------
- TCoverageBucket
+ TListDatasetsResponse
--------------------------------------------------------------------}
- TCoverageBucket = Class(TGoogleBaseObject)
+ TListDatasetsResponse = Class(TGoogleBaseObject)
Private
- FmeanCoverage : integer;
- Frange : TRange;
+ Fdatasets : TListDatasetsResponseTypedatasetsArray;
+ FnextPageToken : String;
Protected
//Property setters
- Procedure SetmeanCoverage(AIndex : Integer; AValue : integer); virtual;
- Procedure Setrange(AIndex : Integer; AValue : TRange); virtual;
+ Procedure Setdatasets(AIndex : Integer; const AValue : TListDatasetsResponseTypedatasetsArray); 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 meanCoverage : integer Index 0 Read FmeanCoverage Write SetmeanCoverage;
- Property range : TRange Index 8 Read Frange Write Setrange;
+ Property datasets : TListDatasetsResponseTypedatasetsArray Index 0 Read Fdatasets Write Setdatasets;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TCoverageBucketClass = Class of TCoverageBucket;
+ TListDatasetsResponseClass = Class of TListDatasetsResponse;
{ --------------------------------------------------------------------
TDataset
@@ -628,700 +738,649 @@ type
TDataset = Class(TGoogleBaseObject)
Private
Fid : String;
- FisPublic : boolean;
+ FprojectId : String;
Fname : String;
- FprojectNumber : String;
+ FcreateTime : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisPublic(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
- Property isPublic : boolean Index 8 Read FisPublic Write SetisPublic;
+ Property projectId : String Index 8 Read FprojectId Write SetprojectId;
Property name : String Index 16 Read Fname Write Setname;
- Property projectNumber : String Index 24 Read FprojectNumber Write SetprojectNumber;
+ Property createTime : String Index 24 Read FcreateTime Write SetcreateTime;
end;
TDatasetClass = Class of TDataset;
{ --------------------------------------------------------------------
- TExperimentalCreateJobRequest
+ TUndeleteDatasetRequest
--------------------------------------------------------------------}
- TExperimentalCreateJobRequest = Class(TGoogleBaseObject)
+ TUndeleteDatasetRequest = Class(TGoogleBaseObject)
Private
- Falign : boolean;
- FcallVariants : boolean;
- FgcsOutputPath : String;
- FpairedSourceUris : TStringArray;
- FprojectNumber : String;
- FsourceUris : TStringArray;
Protected
//Property setters
- Procedure Setalign(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcallVariants(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetgcsOutputPath(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpairedSourceUris(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetprojectNumber(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsourceUris(AIndex : Integer; 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 align : boolean Index 0 Read Falign Write Setalign;
- Property callVariants : boolean Index 8 Read FcallVariants Write SetcallVariants;
- Property gcsOutputPath : String Index 16 Read FgcsOutputPath Write SetgcsOutputPath;
- Property pairedSourceUris : TStringArray Index 24 Read FpairedSourceUris Write SetpairedSourceUris;
- Property projectNumber : String Index 32 Read FprojectNumber Write SetprojectNumber;
- Property sourceUris : TStringArray Index 40 Read FsourceUris Write SetsourceUris;
end;
- TExperimentalCreateJobRequestClass = Class of TExperimentalCreateJobRequest;
+ TUndeleteDatasetRequestClass = Class of TUndeleteDatasetRequest;
{ --------------------------------------------------------------------
- TExperimentalCreateJobResponse
+ TSetIamPolicyRequest
--------------------------------------------------------------------}
- TExperimentalCreateJobResponse = Class(TGoogleBaseObject)
+ TSetIamPolicyRequest = Class(TGoogleBaseObject)
Private
- FjobId : String;
+ Fpolicy : TPolicy;
Protected
//Property setters
- Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpolicy(AIndex : Integer; const AValue : TPolicy); virtual;
Public
Published
- Property jobId : String Index 0 Read FjobId Write SetjobId;
+ Property policy : TPolicy Index 0 Read Fpolicy Write Setpolicy;
end;
- TExperimentalCreateJobResponseClass = Class of TExperimentalCreateJobResponse;
+ TSetIamPolicyRequestClass = Class of TSetIamPolicyRequest;
{ --------------------------------------------------------------------
- TExportReadGroupSetsRequest
+ TPolicy
--------------------------------------------------------------------}
- TExportReadGroupSetsRequest = Class(TGoogleBaseObject)
+ TPolicy = Class(TGoogleBaseObject)
Private
- FexportUri : String;
- FprojectNumber : String;
- FreadGroupSetIds : TStringArray;
- FreferenceNames : TStringArray;
+ Fversion : integer;
+ Fbindings : TPolicyTypebindingsArray;
+ Fetag : String;
Protected
//Property setters
- Procedure SetexportUri(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectNumber(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreadGroupSetIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetreferenceNames(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setversion(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray); virtual;
+ Procedure Setetag(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 exportUri : String Index 0 Read FexportUri Write SetexportUri;
- Property projectNumber : String Index 8 Read FprojectNumber Write SetprojectNumber;
- Property readGroupSetIds : TStringArray Index 16 Read FreadGroupSetIds Write SetreadGroupSetIds;
- Property referenceNames : TStringArray Index 24 Read FreferenceNames Write SetreferenceNames;
+ Property version : integer Index 0 Read Fversion Write Setversion;
+ Property bindings : TPolicyTypebindingsArray Index 8 Read Fbindings Write Setbindings;
+ Property etag : String Index 16 Read Fetag Write Setetag;
end;
- TExportReadGroupSetsRequestClass = Class of TExportReadGroupSetsRequest;
+ TPolicyClass = Class of TPolicy;
{ --------------------------------------------------------------------
- TExportReadGroupSetsResponse
+ TBinding
--------------------------------------------------------------------}
- TExportReadGroupSetsResponse = Class(TGoogleBaseObject)
+ TBinding = Class(TGoogleBaseObject)
Private
- FjobId : String;
+ Frole : String;
+ Fmembers : TStringArray;
Protected
//Property setters
- Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property jobId : String Index 0 Read FjobId Write SetjobId;
- end;
- TExportReadGroupSetsResponseClass = Class of TExportReadGroupSetsResponse;
-
- { --------------------------------------------------------------------
- TExportVariantSetRequest
- --------------------------------------------------------------------}
-
- TExportVariantSetRequest = Class(TGoogleBaseObject)
- Private
- FbigqueryDataset : String;
- FbigqueryTable : String;
- FcallSetIds : TStringArray;
- Fformat : String;
- FprojectNumber : String;
- Protected
- //Property setters
- Procedure SetbigqueryDataset(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbigqueryTable(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcallSetIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmembers(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 bigqueryDataset : String Index 0 Read FbigqueryDataset Write SetbigqueryDataset;
- Property bigqueryTable : String Index 8 Read FbigqueryTable Write SetbigqueryTable;
- Property callSetIds : TStringArray Index 16 Read FcallSetIds Write SetcallSetIds;
- Property format : String Index 24 Read Fformat Write Setformat;
- Property projectNumber : String Index 32 Read FprojectNumber Write SetprojectNumber;
+ Property role : String Index 0 Read Frole Write Setrole;
+ Property members : TStringArray Index 8 Read Fmembers Write Setmembers;
end;
- TExportVariantSetRequestClass = Class of TExportVariantSetRequest;
+ TBindingClass = Class of TBinding;
{ --------------------------------------------------------------------
- TExportVariantSetResponse
+ TGetIamPolicyRequest
--------------------------------------------------------------------}
- TExportVariantSetResponse = Class(TGoogleBaseObject)
+ TGetIamPolicyRequest = Class(TGoogleBaseObject)
Private
- FjobId : String;
Protected
//Property setters
- Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property jobId : String Index 0 Read FjobId Write SetjobId;
end;
- TExportVariantSetResponseClass = Class of TExportVariantSetResponse;
+ TGetIamPolicyRequestClass = Class of TGetIamPolicyRequest;
{ --------------------------------------------------------------------
- TExternalId
+ TTestIamPermissionsRequest
--------------------------------------------------------------------}
- TExternalId = Class(TGoogleBaseObject)
+ TTestIamPermissionsRequest = Class(TGoogleBaseObject)
Private
- Fid : String;
- FsourceName : String;
+ Fpermissions : TStringArray;
Protected
//Property setters
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsourceName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpermissions(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 id : String Index 0 Read Fid Write Setid;
- Property sourceName : String Index 8 Read FsourceName Write SetsourceName;
+ Property permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
end;
- TExternalIdClass = Class of TExternalId;
+ TTestIamPermissionsRequestClass = Class of TTestIamPermissionsRequest;
{ --------------------------------------------------------------------
- TFastqMetadata
+ TTestIamPermissionsResponse
--------------------------------------------------------------------}
- TFastqMetadata = Class(TGoogleBaseObject)
+ TTestIamPermissionsResponse = Class(TGoogleBaseObject)
Private
- FlibraryName : String;
- FplatformName : String;
- FplatformUnit : String;
- FreadGroupName : String;
- FsampleName : String;
+ Fpermissions : TStringArray;
Protected
//Property setters
- Procedure SetlibraryName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplatformName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplatformUnit(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreadGroupName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsampleName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpermissions(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 libraryName : String Index 0 Read FlibraryName Write SetlibraryName;
- Property platformName : String Index 8 Read FplatformName Write SetplatformName;
- Property platformUnit : String Index 16 Read FplatformUnit Write SetplatformUnit;
- Property readGroupName : String Index 24 Read FreadGroupName Write SetreadGroupName;
- Property sampleName : String Index 32 Read FsampleName Write SetsampleName;
+ Property permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
end;
- TFastqMetadataClass = Class of TFastqMetadata;
+ TTestIamPermissionsResponseClass = Class of TTestIamPermissionsResponse;
{ --------------------------------------------------------------------
- TImportReadGroupSetsRequest
+ TOperationTypemetadata
--------------------------------------------------------------------}
- TImportReadGroupSetsRequest = Class(TGoogleBaseObject)
+ TOperationTypemetadata = Class(TGoogleBaseObject)
Private
- FdatasetId : String;
- FpartitionStrategy : String;
- FreferenceSetId : String;
- FsourceUris : TStringArray;
Protected
//Property setters
- Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpartitionStrategy(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferenceSetId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsourceUris(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
- Property partitionStrategy : String Index 8 Read FpartitionStrategy Write SetpartitionStrategy;
- Property referenceSetId : String Index 16 Read FreferenceSetId Write SetreferenceSetId;
- Property sourceUris : TStringArray Index 24 Read FsourceUris Write SetsourceUris;
end;
- TImportReadGroupSetsRequestClass = Class of TImportReadGroupSetsRequest;
+ TOperationTypemetadataClass = Class of TOperationTypemetadata;
{ --------------------------------------------------------------------
- TImportReadGroupSetsResponse
+ TOperationTyperesponse
--------------------------------------------------------------------}
- TImportReadGroupSetsResponse = Class(TGoogleBaseObject)
+ TOperationTyperesponse = Class(TGoogleBaseObject)
Private
- FjobId : String;
Protected
//Property setters
- Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property jobId : String Index 0 Read FjobId Write SetjobId;
end;
- TImportReadGroupSetsResponseClass = Class of TImportReadGroupSetsResponse;
+ TOperationTyperesponseClass = Class of TOperationTyperesponse;
{ --------------------------------------------------------------------
- TImportVariantsRequest
+ TOperation
--------------------------------------------------------------------}
- TImportVariantsRequest = Class(TGoogleBaseObject)
+ TOperation = Class(TGoogleBaseObject)
Private
- Fformat : String;
- FsourceUris : TStringArray;
+ Fname : String;
+ Fmetadata : TOperationTypemetadata;
+ Fdone : boolean;
+ Ferror : TStatus;
+ Fresponse : TOperationTyperesponse;
Protected
//Property setters
- Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsourceUris(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); virtual;
+ Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
+ Procedure Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); virtual;
Public
Published
- Property format : String Index 0 Read Fformat Write Setformat;
- Property sourceUris : TStringArray Index 8 Read FsourceUris Write SetsourceUris;
+ Property name : String Index 0 Read Fname Write Setname;
+ Property metadata : TOperationTypemetadata Index 8 Read Fmetadata Write Setmetadata;
+ Property done : boolean Index 16 Read Fdone Write Setdone;
+ Property error : TStatus Index 24 Read Ferror Write Seterror;
+ Property response : TOperationTyperesponse Index 32 Read Fresponse Write Setresponse;
end;
- TImportVariantsRequestClass = Class of TImportVariantsRequest;
+ TOperationClass = Class of TOperation;
{ --------------------------------------------------------------------
- TImportVariantsResponse
+ TListOperationsResponse
--------------------------------------------------------------------}
- TImportVariantsResponse = Class(TGoogleBaseObject)
+ TListOperationsResponse = Class(TGoogleBaseObject)
Private
- FjobId : String;
+ Foperations : TListOperationsResponseTypeoperationsArray;
+ FnextPageToken : String;
Protected
//Property setters
- Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray); 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 jobId : String Index 0 Read FjobId Write SetjobId;
+ Property operations : TListOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TImportVariantsResponseClass = Class of TImportVariantsResponse;
+ TListOperationsResponseClass = Class of TListOperationsResponse;
{ --------------------------------------------------------------------
- TInt32Value
+ TCancelOperationRequest
--------------------------------------------------------------------}
- TInt32Value = Class(TGoogleBaseObject)
+ TCancelOperationRequest = Class(TGoogleBaseObject)
Private
- Fvalue : integer;
Protected
//Property setters
- Procedure Setvalue(AIndex : Integer; AValue : integer); virtual;
Public
Published
- Property value : integer Index 0 Read Fvalue Write Setvalue;
end;
- TInt32ValueClass = Class of TInt32Value;
+ TCancelOperationRequestClass = Class of TCancelOperationRequest;
{ --------------------------------------------------------------------
- TInterleavedFastqSource
+ TImportReadGroupSetsRequest
--------------------------------------------------------------------}
- TInterleavedFastqSource = Class(TGoogleBaseObject)
+ TImportReadGroupSetsRequest = Class(TGoogleBaseObject)
Private
- Fmetadata : TFastqMetadata;
+ FdatasetId : String;
+ FreferenceSetId : String;
FsourceUris : TStringArray;
+ FpartitionStrategy : String;
Protected
//Property setters
- Procedure Setmetadata(AIndex : Integer; AValue : TFastqMetadata); virtual;
- Procedure SetsourceUris(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetpartitionStrategy(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 metadata : TFastqMetadata Index 0 Read Fmetadata Write Setmetadata;
- Property sourceUris : TStringArray Index 8 Read FsourceUris Write SetsourceUris;
+ Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
+ Property referenceSetId : String Index 8 Read FreferenceSetId Write SetreferenceSetId;
+ Property sourceUris : TStringArray Index 16 Read FsourceUris Write SetsourceUris;
+ Property partitionStrategy : String Index 24 Read FpartitionStrategy Write SetpartitionStrategy;
end;
- TInterleavedFastqSourceClass = Class of TInterleavedFastqSource;
+ TImportReadGroupSetsRequestClass = Class of TImportReadGroupSetsRequest;
{ --------------------------------------------------------------------
- TJob
+ TExportReadGroupSetRequest
--------------------------------------------------------------------}
- TJob = Class(TGoogleBaseObject)
+ TExportReadGroupSetRequest = Class(TGoogleBaseObject)
Private
- Fcreated : String;
- FdetailedStatus : String;
- Ferrors : TStringArray;
- Fid : String;
- FimportedIds : TStringArray;
- FprojectNumber : String;
- Frequest : TJobRequest;
- Fstatus : String;
- Fwarnings : TStringArray;
+ FprojectId : String;
+ FexportUri : String;
+ FreferenceNames : TStringArray;
Protected
//Property setters
- Procedure Setcreated(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdetailedStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetimportedIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetprojectNumber(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrequest(AIndex : Integer; AValue : TJobRequest); virtual;
- Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexportUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceNames(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 created : String Index 0 Read Fcreated Write Setcreated;
- Property detailedStatus : String Index 8 Read FdetailedStatus Write SetdetailedStatus;
- Property errors : TStringArray Index 16 Read Ferrors Write Seterrors;
- Property id : String Index 24 Read Fid Write Setid;
- Property importedIds : TStringArray Index 32 Read FimportedIds Write SetimportedIds;
- Property projectNumber : String Index 40 Read FprojectNumber Write SetprojectNumber;
- Property request : TJobRequest Index 48 Read Frequest Write Setrequest;
- Property status : String Index 56 Read Fstatus Write Setstatus;
- Property warnings : TStringArray Index 64 Read Fwarnings Write Setwarnings;
- end;
- TJobClass = Class of TJob;
+ Property projectId : String Index 0 Read FprojectId Write SetprojectId;
+ Property exportUri : String Index 8 Read FexportUri Write SetexportUri;
+ Property referenceNames : TStringArray Index 16 Read FreferenceNames Write SetreferenceNames;
+ end;
+ TExportReadGroupSetRequestClass = Class of TExportReadGroupSetRequest;
{ --------------------------------------------------------------------
- TJobRequest
+ TSearchReadGroupSetsRequest
--------------------------------------------------------------------}
- TJobRequest = Class(TGoogleBaseObject)
+ TSearchReadGroupSetsRequest = Class(TGoogleBaseObject)
Private
- Fdestination : TStringArray;
- Fsource : TStringArray;
- F_type : String;
+ FdatasetIds : TStringArray;
+ Fname : String;
+ FpageToken : String;
+ FpageSize : integer;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setdestination(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setsource(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdatasetIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageSize(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 destination : TStringArray Index 0 Read Fdestination Write Setdestination;
- Property source : TStringArray Index 8 Read Fsource Write Setsource;
- Property _type : String Index 16 Read F_type Write Set_type;
+ Property datasetIds : TStringArray Index 0 Read FdatasetIds Write SetdatasetIds;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property pageToken : String Index 16 Read FpageToken Write SetpageToken;
+ Property pageSize : integer Index 24 Read FpageSize Write SetpageSize;
end;
- TJobRequestClass = Class of TJobRequest;
+ TSearchReadGroupSetsRequestClass = Class of TSearchReadGroupSetsRequest;
{ --------------------------------------------------------------------
- TLinearAlignment
+ TSearchReadGroupSetsResponse
--------------------------------------------------------------------}
- TLinearAlignment = Class(TGoogleBaseObject)
+ TSearchReadGroupSetsResponse = Class(TGoogleBaseObject)
Private
- Fcigar : TLinearAlignmentTypecigarArray;
- FmappingQuality : integer;
- Fposition : TPosition;
+ FreadGroupSets : TSearchReadGroupSetsResponseTypereadGroupSetsArray;
+ FnextPageToken : String;
Protected
//Property setters
- Procedure Setcigar(AIndex : Integer; AValue : TLinearAlignmentTypecigarArray); virtual;
- Procedure SetmappingQuality(AIndex : Integer; AValue : integer); virtual;
- Procedure Setposition(AIndex : Integer; AValue : TPosition); virtual;
+ Procedure SetreadGroupSets(AIndex : Integer; const AValue : TSearchReadGroupSetsResponseTypereadGroupSetsArray); 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 cigar : TLinearAlignmentTypecigarArray Index 0 Read Fcigar Write Setcigar;
- Property mappingQuality : integer Index 8 Read FmappingQuality Write SetmappingQuality;
- Property position : TPosition Index 16 Read Fposition Write Setposition;
+ Property readGroupSets : TSearchReadGroupSetsResponseTypereadGroupSetsArray Index 0 Read FreadGroupSets Write SetreadGroupSets;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TLinearAlignmentClass = Class of TLinearAlignment;
+ TSearchReadGroupSetsResponseClass = Class of TSearchReadGroupSetsResponse;
{ --------------------------------------------------------------------
- TListBasesResponse
+ TReadGroupSetTypeinfo
--------------------------------------------------------------------}
- TListBasesResponse = Class(TGoogleBaseObject)
+ TReadGroupSetTypeinfo = Class(TGoogleBaseObject)
Private
- FnextPageToken : String;
- Foffset : String;
- Fsequence : String;
Protected
//Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setoffset(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsequence(AIndex : Integer; const AValue : String); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property offset : String Index 8 Read Foffset Write Setoffset;
- Property sequence : String Index 16 Read Fsequence Write Setsequence;
end;
- TListBasesResponseClass = Class of TListBasesResponse;
+ TReadGroupSetTypeinfoClass = Class of TReadGroupSetTypeinfo;
{ --------------------------------------------------------------------
- TListCoverageBucketsResponse
+ TReadGroupSet
--------------------------------------------------------------------}
- TListCoverageBucketsResponse = Class(TGoogleBaseObject)
+ TReadGroupSet = Class(TGoogleBaseObject)
Private
- FbucketWidth : String;
- FcoverageBuckets : TListCoverageBucketsResponseTypecoverageBucketsArray;
- FnextPageToken : String;
+ Fid : String;
+ FdatasetId : String;
+ FreferenceSetId : String;
+ Fname : String;
+ Ffilename : String;
+ FreadGroups : TReadGroupSetTypereadGroupsArray;
+ Finfo : TReadGroupSetTypeinfo;
Protected
//Property setters
- Procedure SetbucketWidth(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcoverageBuckets(AIndex : Integer; AValue : TListCoverageBucketsResponseTypecoverageBucketsArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfilename(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreadGroups(AIndex : Integer; const AValue : TReadGroupSetTypereadGroupsArray); virtual;
+ Procedure Setinfo(AIndex : Integer; const AValue : TReadGroupSetTypeinfo); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property bucketWidth : String Index 0 Read FbucketWidth Write SetbucketWidth;
- Property coverageBuckets : TListCoverageBucketsResponseTypecoverageBucketsArray Index 8 Read FcoverageBuckets Write SetcoverageBuckets;
- Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
+ Property id : String Index 0 Read Fid Write Setid;
+ Property datasetId : String Index 8 Read FdatasetId Write SetdatasetId;
+ Property referenceSetId : String Index 16 Read FreferenceSetId Write SetreferenceSetId;
+ Property name : String Index 24 Read Fname Write Setname;
+ Property filename : String Index 32 Read Ffilename Write Setfilename;
+ Property readGroups : TReadGroupSetTypereadGroupsArray Index 40 Read FreadGroups Write SetreadGroups;
+ Property info : TReadGroupSetTypeinfo Index 48 Read Finfo Write Setinfo;
end;
- TListCoverageBucketsResponseClass = Class of TListCoverageBucketsResponse;
+ TReadGroupSetClass = Class of TReadGroupSet;
{ --------------------------------------------------------------------
- TListDatasetsResponse
+ TReadGroupTypeinfo
--------------------------------------------------------------------}
- TListDatasetsResponse = Class(TGoogleBaseObject)
+ TReadGroupTypeinfo = Class(TGoogleBaseObject)
Private
- Fdatasets : TListDatasetsResponseTypedatasetsArray;
- FnextPageToken : String;
Protected
//Property setters
- Procedure Setdatasets(AIndex : Integer; AValue : TListDatasetsResponseTypedatasetsArray); 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
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property datasets : TListDatasetsResponseTypedatasetsArray Index 0 Read Fdatasets Write Setdatasets;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TListDatasetsResponseClass = Class of TListDatasetsResponse;
+ TReadGroupTypeinfoClass = Class of TReadGroupTypeinfo;
{ --------------------------------------------------------------------
- TMergeVariantsRequest
+ TReadGroup
--------------------------------------------------------------------}
- TMergeVariantsRequest = Class(TGoogleBaseObject)
+ TReadGroup = Class(TGoogleBaseObject)
Private
- Fvariants : TMergeVariantsRequestTypevariantsArray;
+ Fid : String;
+ FdatasetId : String;
+ Fname : String;
+ Fdescription : String;
+ FsampleId : String;
+ Fexperiment : TExperiment;
+ FpredictedInsertSize : integer;
+ Fprograms : TReadGroupTypeprogramsArray;
+ FreferenceSetId : String;
+ Finfo : TReadGroupTypeinfo;
Protected
//Property setters
- Procedure Setvariants(AIndex : Integer; AValue : TMergeVariantsRequestTypevariantsArray); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsampleId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setexperiment(AIndex : Integer; const AValue : TExperiment); virtual;
+ Procedure SetpredictedInsertSize(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setprograms(AIndex : Integer; const AValue : TReadGroupTypeprogramsArray); virtual;
+ Procedure SetreferenceSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setinfo(AIndex : Integer; const AValue : TReadGroupTypeinfo); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property variants : TMergeVariantsRequestTypevariantsArray Index 0 Read Fvariants Write Setvariants;
+ Property id : String Index 0 Read Fid Write Setid;
+ Property datasetId : String Index 8 Read FdatasetId Write SetdatasetId;
+ Property name : String Index 16 Read Fname Write Setname;
+ Property description : String Index 24 Read Fdescription Write Setdescription;
+ Property sampleId : String Index 32 Read FsampleId Write SetsampleId;
+ Property experiment : TExperiment Index 40 Read Fexperiment Write Setexperiment;
+ Property predictedInsertSize : integer Index 48 Read FpredictedInsertSize Write SetpredictedInsertSize;
+ Property programs : TReadGroupTypeprogramsArray Index 56 Read Fprograms Write Setprograms;
+ Property referenceSetId : String Index 64 Read FreferenceSetId Write SetreferenceSetId;
+ Property info : TReadGroupTypeinfo Index 72 Read Finfo Write Setinfo;
end;
- TMergeVariantsRequestClass = Class of TMergeVariantsRequest;
+ TReadGroupClass = Class of TReadGroup;
{ --------------------------------------------------------------------
- TMetadataTypeinfo
+ TExperiment
--------------------------------------------------------------------}
- TMetadataTypeinfo = Class(TGoogleBaseObject)
+ TExperiment = Class(TGoogleBaseObject)
Private
+ FlibraryId : String;
+ FplatformUnit : String;
+ FsequencingCenter : String;
+ FinstrumentModel : String;
Protected
//Property setters
+ Procedure SetlibraryId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetplatformUnit(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsequencingCenter(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstrumentModel(AIndex : Integer; const AValue : String); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property libraryId : String Index 0 Read FlibraryId Write SetlibraryId;
+ Property platformUnit : String Index 8 Read FplatformUnit Write SetplatformUnit;
+ Property sequencingCenter : String Index 16 Read FsequencingCenter Write SetsequencingCenter;
+ Property instrumentModel : String Index 24 Read FinstrumentModel Write SetinstrumentModel;
end;
- TMetadataTypeinfoClass = Class of TMetadataTypeinfo;
+ TExperimentClass = Class of TExperiment;
{ --------------------------------------------------------------------
- TMetadata
+ TProgram
--------------------------------------------------------------------}
- TMetadata = Class(TGoogleBaseObject)
+ TProgram = Class(TGoogleBaseObject)
Private
- Fdescription : String;
+ FcommandLine : String;
Fid : String;
- Finfo : TMetadataTypeinfo;
- Fkey : String;
- Fnumber : String;
- F_type : String;
- Fvalue : String;
+ Fname : String;
+ FprevProgramId : String;
+ Fversion : String;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcommandLine(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinfo(AIndex : Integer; AValue : TMetadataTypeinfo); virtual;
- Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnumber(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprevProgramId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property description : String Index 0 Read Fdescription Write Setdescription;
+ Property commandLine : String Index 0 Read FcommandLine Write SetcommandLine;
Property id : String Index 8 Read Fid Write Setid;
- Property info : TMetadataTypeinfo Index 16 Read Finfo Write Setinfo;
- Property key : String Index 24 Read Fkey Write Setkey;
- Property number : String Index 32 Read Fnumber Write Setnumber;
- Property _type : String Index 40 Read F_type Write Set_type;
- Property value : String Index 48 Read Fvalue Write Setvalue;
+ Property name : String Index 16 Read Fname Write Setname;
+ Property prevProgramId : String Index 24 Read FprevProgramId Write SetprevProgramId;
+ Property version : String Index 32 Read Fversion Write Setversion;
end;
- TMetadataClass = Class of TMetadata;
+ TProgramClass = Class of TProgram;
{ --------------------------------------------------------------------
- TPairedFastqSource
+ TListCoverageBucketsResponse
--------------------------------------------------------------------}
- TPairedFastqSource = Class(TGoogleBaseObject)
+ TListCoverageBucketsResponse = Class(TGoogleBaseObject)
Private
- FfirstSourceUris : TStringArray;
- Fmetadata : TFastqMetadata;
- FsecondSourceUris : TStringArray;
+ FbucketWidth : String;
+ FcoverageBuckets : TListCoverageBucketsResponseTypecoverageBucketsArray;
+ FnextPageToken : String;
Protected
//Property setters
- Procedure SetfirstSourceUris(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setmetadata(AIndex : Integer; AValue : TFastqMetadata); virtual;
- Procedure SetsecondSourceUris(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetbucketWidth(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcoverageBuckets(AIndex : Integer; const AValue : TListCoverageBucketsResponseTypecoverageBucketsArray); 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 firstSourceUris : TStringArray Index 0 Read FfirstSourceUris Write SetfirstSourceUris;
- Property metadata : TFastqMetadata Index 8 Read Fmetadata Write Setmetadata;
- Property secondSourceUris : TStringArray Index 16 Read FsecondSourceUris Write SetsecondSourceUris;
+ Property bucketWidth : String Index 0 Read FbucketWidth Write SetbucketWidth;
+ Property coverageBuckets : TListCoverageBucketsResponseTypecoverageBucketsArray Index 8 Read FcoverageBuckets Write SetcoverageBuckets;
+ Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
end;
- TPairedFastqSourceClass = Class of TPairedFastqSource;
+ TListCoverageBucketsResponseClass = Class of TListCoverageBucketsResponse;
{ --------------------------------------------------------------------
- TPosition
+ TCoverageBucket
--------------------------------------------------------------------}
- TPosition = Class(TGoogleBaseObject)
+ TCoverageBucket = Class(TGoogleBaseObject)
Private
- Fposition : String;
- FreferenceName : String;
- FreverseStrand : boolean;
+ Frange : TRange;
+ FmeanCoverage : integer;
Protected
//Property setters
- Procedure Setposition(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreverseStrand(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TRange); virtual;
+ Procedure SetmeanCoverage(AIndex : Integer; const AValue : integer); virtual;
Public
Published
- Property position : String Index 0 Read Fposition Write Setposition;
- Property referenceName : String Index 8 Read FreferenceName Write SetreferenceName;
- Property reverseStrand : boolean Index 16 Read FreverseStrand Write SetreverseStrand;
+ Property range : TRange Index 0 Read Frange Write Setrange;
+ Property meanCoverage : integer Index 8 Read FmeanCoverage Write SetmeanCoverage;
end;
- TPositionClass = Class of TPosition;
+ TCoverageBucketClass = Class of TCoverageBucket;
{ --------------------------------------------------------------------
- TQueryRange
+ TRange
--------------------------------------------------------------------}
- TQueryRange = Class(TGoogleBaseObject)
+ TRange = Class(TGoogleBaseObject)
Private
- F_end : String;
- FreferenceId : String;
FreferenceName : String;
Fstart : String;
+ F_end : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferenceId(AIndex : Integer; const AValue : String); virtual;
Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property _end : String Index 0 Read F_end Write Set_end;
- Property referenceId : String Index 8 Read FreferenceId Write SetreferenceId;
- Property referenceName : String Index 16 Read FreferenceName Write SetreferenceName;
- Property start : String Index 24 Read Fstart Write Setstart;
+ Property referenceName : String Index 0 Read FreferenceName Write SetreferenceName;
+ Property start : String Index 8 Read Fstart Write Setstart;
+ Property _end : String Index 16 Read F_end Write Set_end;
end;
- TQueryRangeClass = Class of TQueryRange;
+ TRangeClass = Class of TRange;
{ --------------------------------------------------------------------
- TRange
+ TSearchReadsRequest
--------------------------------------------------------------------}
- TRange = Class(TGoogleBaseObject)
+ TSearchReadsRequest = Class(TGoogleBaseObject)
Private
- F_end : String;
+ FreadGroupSetIds : TStringArray;
+ FreadGroupIds : TStringArray;
FreferenceName : String;
Fstart : String;
+ F_end : String;
+ FpageToken : String;
+ FpageSize : integer;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreadGroupSetIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetreadGroupIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageSize(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 _end : String Index 0 Read F_end Write Set_end;
- Property referenceName : String Index 8 Read FreferenceName Write SetreferenceName;
- Property start : String Index 16 Read Fstart Write Setstart;
+ Property readGroupSetIds : TStringArray Index 0 Read FreadGroupSetIds Write SetreadGroupSetIds;
+ Property readGroupIds : TStringArray Index 8 Read FreadGroupIds Write SetreadGroupIds;
+ Property referenceName : String Index 16 Read FreferenceName Write SetreferenceName;
+ Property start : String Index 24 Read Fstart Write Setstart;
+ Property _end : String Index 32 Read F_end Write Set_end;
+ Property pageToken : String Index 40 Read FpageToken Write SetpageToken;
+ Property pageSize : integer Index 48 Read FpageSize Write SetpageSize;
end;
- TRangeClass = Class of TRange;
+ TSearchReadsRequestClass = Class of TSearchReadsRequest;
{ --------------------------------------------------------------------
- TRangePosition
+ TSearchReadsResponse
--------------------------------------------------------------------}
- TRangePosition = Class(TGoogleBaseObject)
+ TSearchReadsResponse = Class(TGoogleBaseObject)
Private
- F_end : String;
- FreferenceId : String;
- FreferenceName : String;
- FreverseStrand : boolean;
- Fstart : String;
+ Falignments : TSearchReadsResponseTypealignmentsArray;
+ FnextPageToken : String;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferenceId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreverseStrand(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setalignments(AIndex : Integer; const AValue : TSearchReadsResponseTypealignmentsArray); 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 _end : String Index 0 Read F_end Write Set_end;
- Property referenceId : String Index 8 Read FreferenceId Write SetreferenceId;
- Property referenceName : String Index 16 Read FreferenceName Write SetreferenceName;
- Property reverseStrand : boolean Index 24 Read FreverseStrand Write SetreverseStrand;
- Property start : String Index 32 Read Fstart Write Setstart;
+ Property alignments : TSearchReadsResponseTypealignmentsArray Index 0 Read Falignments Write Setalignments;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TRangePositionClass = Class of TRangePosition;
+ TSearchReadsResponseClass = Class of TSearchReadsResponse;
{ --------------------------------------------------------------------
TReadTypeinfo
@@ -1343,290 +1402,247 @@ type
TRead = Class(TGoogleBaseObject)
Private
- FalignedQuality : TintegerArray;
- FalignedSequence : String;
- Falignment : TLinearAlignment;
- FduplicateFragment : boolean;
- FfailedVendorQualityChecks : boolean;
- FfragmentLength : integer;
- FfragmentName : String;
Fid : String;
- Finfo : TReadTypeinfo;
- FnextMatePosition : TPosition;
- FnumberReads : integer;
- FproperPlacement : boolean;
FreadGroupId : String;
FreadGroupSetId : String;
+ FfragmentName : String;
+ FproperPlacement : boolean;
+ FduplicateFragment : boolean;
+ FfragmentLength : integer;
FreadNumber : integer;
+ FnumberReads : integer;
+ FfailedVendorQualityChecks : boolean;
+ Falignment : TLinearAlignment;
FsecondaryAlignment : boolean;
FsupplementaryAlignment : boolean;
+ FalignedSequence : String;
+ FalignedQuality : TintegerArray;
+ FnextMatePosition : TPosition;
+ Finfo : TReadTypeinfo;
Protected
//Property setters
- Procedure SetalignedQuality(AIndex : Integer; AValue : TintegerArray); virtual;
- Procedure SetalignedSequence(AIndex : Integer; const AValue : String); virtual;
- Procedure Setalignment(AIndex : Integer; AValue : TLinearAlignment); virtual;
- Procedure SetduplicateFragment(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetfailedVendorQualityChecks(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetfragmentLength(AIndex : Integer; AValue : integer); virtual;
- Procedure SetfragmentName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinfo(AIndex : Integer; AValue : TReadTypeinfo); virtual;
- Procedure SetnextMatePosition(AIndex : Integer; AValue : TPosition); virtual;
- Procedure SetnumberReads(AIndex : Integer; AValue : integer); virtual;
- Procedure SetproperPlacement(AIndex : Integer; AValue : boolean); virtual;
Procedure SetreadGroupId(AIndex : Integer; const AValue : String); virtual;
Procedure SetreadGroupSetId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreadNumber(AIndex : Integer; AValue : integer); virtual;
- Procedure SetsecondaryAlignment(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetsupplementaryAlignment(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetfragmentName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproperPlacement(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetduplicateFragment(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetfragmentLength(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetreadNumber(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumberReads(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetfailedVendorQualityChecks(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setalignment(AIndex : Integer; const AValue : TLinearAlignment); virtual;
+ Procedure SetsecondaryAlignment(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsupplementaryAlignment(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetalignedSequence(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetalignedQuality(AIndex : Integer; const AValue : TintegerArray); virtual;
+ Procedure SetnextMatePosition(AIndex : Integer; const AValue : TPosition); virtual;
+ Procedure Setinfo(AIndex : Integer; const AValue : TReadTypeinfo); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property alignedQuality : TintegerArray Index 0 Read FalignedQuality Write SetalignedQuality;
- Property alignedSequence : String Index 8 Read FalignedSequence Write SetalignedSequence;
- Property alignment : TLinearAlignment Index 16 Read Falignment Write Setalignment;
- Property duplicateFragment : boolean Index 24 Read FduplicateFragment Write SetduplicateFragment;
- Property failedVendorQualityChecks : boolean Index 32 Read FfailedVendorQualityChecks Write SetfailedVendorQualityChecks;
- Property fragmentLength : integer Index 40 Read FfragmentLength Write SetfragmentLength;
- Property fragmentName : String Index 48 Read FfragmentName Write SetfragmentName;
- Property id : String Index 56 Read Fid Write Setid;
- Property info : TReadTypeinfo Index 64 Read Finfo Write Setinfo;
- Property nextMatePosition : TPosition Index 72 Read FnextMatePosition Write SetnextMatePosition;
- Property numberReads : integer Index 80 Read FnumberReads Write SetnumberReads;
- Property properPlacement : boolean Index 88 Read FproperPlacement Write SetproperPlacement;
- Property readGroupId : String Index 96 Read FreadGroupId Write SetreadGroupId;
- Property readGroupSetId : String Index 104 Read FreadGroupSetId Write SetreadGroupSetId;
- Property readNumber : integer Index 112 Read FreadNumber Write SetreadNumber;
- Property secondaryAlignment : boolean Index 120 Read FsecondaryAlignment Write SetsecondaryAlignment;
- Property supplementaryAlignment : boolean Index 128 Read FsupplementaryAlignment Write SetsupplementaryAlignment;
+ Property id : String Index 0 Read Fid Write Setid;
+ Property readGroupId : String Index 8 Read FreadGroupId Write SetreadGroupId;
+ Property readGroupSetId : String Index 16 Read FreadGroupSetId Write SetreadGroupSetId;
+ Property fragmentName : String Index 24 Read FfragmentName Write SetfragmentName;
+ Property properPlacement : boolean Index 32 Read FproperPlacement Write SetproperPlacement;
+ Property duplicateFragment : boolean Index 40 Read FduplicateFragment Write SetduplicateFragment;
+ Property fragmentLength : integer Index 48 Read FfragmentLength Write SetfragmentLength;
+ Property readNumber : integer Index 56 Read FreadNumber Write SetreadNumber;
+ Property numberReads : integer Index 64 Read FnumberReads Write SetnumberReads;
+ Property failedVendorQualityChecks : boolean Index 72 Read FfailedVendorQualityChecks Write SetfailedVendorQualityChecks;
+ Property alignment : TLinearAlignment Index 80 Read Falignment Write Setalignment;
+ Property secondaryAlignment : boolean Index 88 Read FsecondaryAlignment Write SetsecondaryAlignment;
+ Property supplementaryAlignment : boolean Index 96 Read FsupplementaryAlignment Write SetsupplementaryAlignment;
+ Property alignedSequence : String Index 104 Read FalignedSequence Write SetalignedSequence;
+ Property alignedQuality : TintegerArray Index 112 Read FalignedQuality Write SetalignedQuality;
+ Property nextMatePosition : TPosition Index 120 Read FnextMatePosition Write SetnextMatePosition;
+ Property info : TReadTypeinfo Index 128 Read Finfo Write Setinfo;
end;
TReadClass = Class of TRead;
{ --------------------------------------------------------------------
- TReadGroupTypeinfo
- --------------------------------------------------------------------}
-
- TReadGroupTypeinfo = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Class Function AllowAdditionalProperties : Boolean; override;
- Published
- end;
- TReadGroupTypeinfoClass = Class of TReadGroupTypeinfo;
-
- { --------------------------------------------------------------------
- TReadGroup
+ TLinearAlignment
--------------------------------------------------------------------}
- TReadGroup = Class(TGoogleBaseObject)
+ TLinearAlignment = Class(TGoogleBaseObject)
Private
- FdatasetId : String;
- Fdescription : String;
- Fexperiment : TReadGroupExperiment;
- Fid : String;
- Finfo : TReadGroupTypeinfo;
- Fname : String;
- FpredictedInsertSize : integer;
- Fprograms : TReadGroupTypeprogramsArray;
- FreferenceSetId : String;
- FsampleId : String;
+ Fposition : TPosition;
+ FmappingQuality : integer;
+ Fcigar : TLinearAlignmentTypecigarArray;
Protected
//Property setters
- Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setexperiment(AIndex : Integer; AValue : TReadGroupExperiment); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinfo(AIndex : Integer; AValue : TReadGroupTypeinfo); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpredictedInsertSize(AIndex : Integer; AValue : integer); virtual;
- Procedure Setprograms(AIndex : Integer; AValue : TReadGroupTypeprogramsArray); virtual;
- Procedure SetreferenceSetId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsampleId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : TPosition); virtual;
+ Procedure SetmappingQuality(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setcigar(AIndex : Integer; const AValue : TLinearAlignmentTypecigarArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
- Property description : String Index 8 Read Fdescription Write Setdescription;
- Property experiment : TReadGroupExperiment Index 16 Read Fexperiment Write Setexperiment;
- Property id : String Index 24 Read Fid Write Setid;
- Property info : TReadGroupTypeinfo Index 32 Read Finfo Write Setinfo;
- Property name : String Index 40 Read Fname Write Setname;
- Property predictedInsertSize : integer Index 48 Read FpredictedInsertSize Write SetpredictedInsertSize;
- Property programs : TReadGroupTypeprogramsArray Index 56 Read Fprograms Write Setprograms;
- Property referenceSetId : String Index 64 Read FreferenceSetId Write SetreferenceSetId;
- Property sampleId : String Index 72 Read FsampleId Write SetsampleId;
+ Property position : TPosition Index 0 Read Fposition Write Setposition;
+ Property mappingQuality : integer Index 8 Read FmappingQuality Write SetmappingQuality;
+ Property cigar : TLinearAlignmentTypecigarArray Index 16 Read Fcigar Write Setcigar;
end;
- TReadGroupClass = Class of TReadGroup;
+ TLinearAlignmentClass = Class of TLinearAlignment;
{ --------------------------------------------------------------------
- TReadGroupExperiment
+ TPosition
--------------------------------------------------------------------}
- TReadGroupExperiment = Class(TGoogleBaseObject)
+ TPosition = Class(TGoogleBaseObject)
Private
- FinstrumentModel : String;
- FlibraryId : String;
- FplatformUnit : String;
- FsequencingCenter : String;
+ FreferenceName : String;
+ Fposition : String;
+ FreverseStrand : boolean;
Protected
//Property setters
- Procedure SetinstrumentModel(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlibraryId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplatformUnit(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsequencingCenter(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreverseStrand(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
- Property instrumentModel : String Index 0 Read FinstrumentModel Write SetinstrumentModel;
- Property libraryId : String Index 8 Read FlibraryId Write SetlibraryId;
- Property platformUnit : String Index 16 Read FplatformUnit Write SetplatformUnit;
- Property sequencingCenter : String Index 24 Read FsequencingCenter Write SetsequencingCenter;
+ Property referenceName : String Index 0 Read FreferenceName Write SetreferenceName;
+ Property position : String Index 8 Read Fposition Write Setposition;
+ Property reverseStrand : boolean Index 16 Read FreverseStrand Write SetreverseStrand;
end;
- TReadGroupExperimentClass = Class of TReadGroupExperiment;
+ TPositionClass = Class of TPosition;
{ --------------------------------------------------------------------
- TReadGroupProgram
+ TCigarUnit
--------------------------------------------------------------------}
- TReadGroupProgram = Class(TGoogleBaseObject)
+ TCigarUnit = Class(TGoogleBaseObject)
Private
- FcommandLine : String;
- Fid : String;
- Fname : String;
- FprevProgramId : String;
- Fversion : String;
+ Foperation : String;
+ FoperationLength : String;
+ FreferenceSequence : String;
Protected
//Property setters
- Procedure SetcommandLine(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprevProgramId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setoperation(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoperationLength(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceSequence(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property commandLine : String Index 0 Read FcommandLine Write SetcommandLine;
- Property id : String Index 8 Read Fid Write Setid;
- Property name : String Index 16 Read Fname Write Setname;
- Property prevProgramId : String Index 24 Read FprevProgramId Write SetprevProgramId;
- Property version : String Index 32 Read Fversion Write Setversion;
+ Property operation : String Index 0 Read Foperation Write Setoperation;
+ Property operationLength : String Index 8 Read FoperationLength Write SetoperationLength;
+ Property referenceSequence : String Index 16 Read FreferenceSequence Write SetreferenceSequence;
end;
- TReadGroupProgramClass = Class of TReadGroupProgram;
+ TCigarUnitClass = Class of TCigarUnit;
{ --------------------------------------------------------------------
- TReadGroupSetTypeinfo
+ TStreamReadsRequest
--------------------------------------------------------------------}
- TReadGroupSetTypeinfo = Class(TGoogleBaseObject)
+ TStreamReadsRequest = Class(TGoogleBaseObject)
Private
+ FprojectId : String;
+ FreadGroupSetId : String;
+ FreferenceName : String;
+ Fstart : String;
+ F_end : String;
+ Fshard : integer;
+ FtotalShards : integer;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreadGroupSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setshard(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalShards(AIndex : Integer; const AValue : integer); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property projectId : String Index 0 Read FprojectId Write SetprojectId;
+ Property readGroupSetId : String Index 8 Read FreadGroupSetId Write SetreadGroupSetId;
+ Property referenceName : String Index 16 Read FreferenceName Write SetreferenceName;
+ Property start : String Index 24 Read Fstart Write Setstart;
+ Property _end : String Index 32 Read F_end Write Set_end;
+ Property shard : integer Index 40 Read Fshard Write Setshard;
+ Property totalShards : integer Index 48 Read FtotalShards Write SettotalShards;
end;
- TReadGroupSetTypeinfoClass = Class of TReadGroupSetTypeinfo;
+ TStreamReadsRequestClass = Class of TStreamReadsRequest;
{ --------------------------------------------------------------------
- TReadGroupSet
+ TStreamReadsResponse
--------------------------------------------------------------------}
- TReadGroupSet = Class(TGoogleBaseObject)
+ TStreamReadsResponse = Class(TGoogleBaseObject)
Private
- FdatasetId : String;
- Ffilename : String;
- Fid : String;
- Finfo : TReadGroupSetTypeinfo;
- Fname : String;
- FreadGroups : TReadGroupSetTypereadGroupsArray;
- FreferenceSetId : String;
+ Falignments : TStreamReadsResponseTypealignmentsArray;
Protected
//Property setters
- Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfilename(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinfo(AIndex : Integer; AValue : TReadGroupSetTypeinfo); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreadGroups(AIndex : Integer; AValue : TReadGroupSetTypereadGroupsArray); virtual;
- Procedure SetreferenceSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setalignments(AIndex : Integer; const AValue : TStreamReadsResponseTypealignmentsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
- Property filename : String Index 8 Read Ffilename Write Setfilename;
- Property id : String Index 16 Read Fid Write Setid;
- Property info : TReadGroupSetTypeinfo Index 24 Read Finfo Write Setinfo;
- Property name : String Index 32 Read Fname Write Setname;
- Property readGroups : TReadGroupSetTypereadGroupsArray Index 40 Read FreadGroups Write SetreadGroups;
- Property referenceSetId : String Index 48 Read FreferenceSetId Write SetreferenceSetId;
+ Property alignments : TStreamReadsResponseTypealignmentsArray Index 0 Read Falignments Write Setalignments;
end;
- TReadGroupSetClass = Class of TReadGroupSet;
+ TStreamReadsResponseClass = Class of TStreamReadsResponse;
{ --------------------------------------------------------------------
- TReference
+ TSearchReferenceSetsRequest
--------------------------------------------------------------------}
- TReference = Class(TGoogleBaseObject)
+ TSearchReferenceSetsRequest = Class(TGoogleBaseObject)
Private
- Fid : String;
- F_length : String;
- Fmd5checksum : String;
- Fname : String;
- FncbiTaxonId : integer;
- FsourceAccessions : TStringArray;
- FsourceURI : String;
+ Fmd5checksums : TStringArray;
+ Faccessions : TStringArray;
+ FassemblyId : String;
+ FpageToken : String;
+ FpageSize : integer;
Protected
//Property setters
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_length(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmd5checksum(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetncbiTaxonId(AIndex : Integer; AValue : integer); virtual;
- Procedure SetsourceAccessions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsourceURI(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmd5checksums(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setaccessions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetassemblyId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageSize(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 id : String Index 0 Read Fid Write Setid;
- Property _length : String Index 8 Read F_length Write Set_length;
- Property md5checksum : String Index 16 Read Fmd5checksum Write Setmd5checksum;
- Property name : String Index 24 Read Fname Write Setname;
- Property ncbiTaxonId : integer Index 32 Read FncbiTaxonId Write SetncbiTaxonId;
- Property sourceAccessions : TStringArray Index 40 Read FsourceAccessions Write SetsourceAccessions;
- Property sourceURI : String Index 48 Read FsourceURI Write SetsourceURI;
+ Property md5checksums : TStringArray Index 0 Read Fmd5checksums Write Setmd5checksums;
+ Property accessions : TStringArray Index 8 Read Faccessions Write Setaccessions;
+ Property assemblyId : String Index 16 Read FassemblyId Write SetassemblyId;
+ Property pageToken : String Index 24 Read FpageToken Write SetpageToken;
+ Property pageSize : integer Index 32 Read FpageSize Write SetpageSize;
end;
- TReferenceClass = Class of TReference;
+ TSearchReferenceSetsRequestClass = Class of TSearchReferenceSetsRequest;
{ --------------------------------------------------------------------
- TReferenceBound
+ TSearchReferenceSetsResponse
--------------------------------------------------------------------}
- TReferenceBound = Class(TGoogleBaseObject)
+ TSearchReferenceSetsResponse = Class(TGoogleBaseObject)
Private
- FreferenceName : String;
- FupperBound : String;
+ FreferenceSets : TSearchReferenceSetsResponseTypereferenceSetsArray;
+ FnextPageToken : String;
Protected
//Property setters
- Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetupperBound(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceSets(AIndex : Integer; const AValue : TSearchReferenceSetsResponseTypereferenceSetsArray); 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 referenceName : String Index 0 Read FreferenceName Write SetreferenceName;
- Property upperBound : String Index 8 Read FupperBound Write SetupperBound;
+ Property referenceSets : TSearchReferenceSetsResponseTypereferenceSetsArray Index 0 Read FreferenceSets Write SetreferenceSets;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TReferenceBoundClass = Class of TReferenceBound;
+ TSearchReferenceSetsResponseClass = Class of TSearchReferenceSetsResponse;
{ --------------------------------------------------------------------
TReferenceSet
@@ -1634,87 +1650,84 @@ type
TReferenceSet = Class(TGoogleBaseObject)
Private
- FassemblyId : String;
- Fdescription : String;
Fid : String;
+ FreferenceIds : TStringArray;
Fmd5checksum : String;
FncbiTaxonId : integer;
- FreferenceIds : TStringArray;
+ Fdescription : String;
+ FassemblyId : String;
+ FsourceUri : String;
FsourceAccessions : TStringArray;
- FsourceURI : String;
Protected
//Property setters
- Procedure SetassemblyId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setmd5checksum(AIndex : Integer; const AValue : String); virtual;
- Procedure SetncbiTaxonId(AIndex : Integer; AValue : integer); virtual;
- Procedure SetreferenceIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsourceAccessions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetsourceURI(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetncbiTaxonId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetassemblyId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceAccessions(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 assemblyId : String Index 0 Read FassemblyId Write SetassemblyId;
- Property description : String Index 8 Read Fdescription Write Setdescription;
- Property id : String Index 16 Read Fid Write Setid;
- Property md5checksum : String Index 24 Read Fmd5checksum Write Setmd5checksum;
- Property ncbiTaxonId : integer Index 32 Read FncbiTaxonId Write SetncbiTaxonId;
- Property referenceIds : TStringArray Index 40 Read FreferenceIds Write SetreferenceIds;
- Property sourceAccessions : TStringArray Index 48 Read FsourceAccessions Write SetsourceAccessions;
- Property sourceURI : String Index 56 Read FsourceURI Write SetsourceURI;
+ Property id : String Index 0 Read Fid Write Setid;
+ Property referenceIds : TStringArray Index 8 Read FreferenceIds Write SetreferenceIds;
+ Property md5checksum : String Index 16 Read Fmd5checksum Write Setmd5checksum;
+ Property ncbiTaxonId : integer Index 24 Read FncbiTaxonId Write SetncbiTaxonId;
+ Property description : String Index 32 Read Fdescription Write Setdescription;
+ Property assemblyId : String Index 40 Read FassemblyId Write SetassemblyId;
+ Property sourceUri : String Index 48 Read FsourceUri Write SetsourceUri;
+ Property sourceAccessions : TStringArray Index 56 Read FsourceAccessions Write SetsourceAccessions;
end;
TReferenceSetClass = Class of TReferenceSet;
{ --------------------------------------------------------------------
- TSearchAnnotationSetsRequest
+ TSearchReferencesRequest
--------------------------------------------------------------------}
- TSearchAnnotationSetsRequest = Class(TGoogleBaseObject)
+ TSearchReferencesRequest = Class(TGoogleBaseObject)
Private
- FdatasetIds : TStringArray;
- Fname : String;
- FpageSize : integer;
- FpageToken : String;
+ Fmd5checksums : TStringArray;
+ Faccessions : TStringArray;
FreferenceSetId : String;
- Ftypes : TStringArray;
+ FpageToken : String;
+ FpageSize : integer;
Protected
//Property setters
- Procedure SetdatasetIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageSize(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmd5checksums(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setaccessions(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetreferenceSetId(AIndex : Integer; const AValue : String); virtual;
- Procedure Settypes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageSize(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 datasetIds : TStringArray Index 0 Read FdatasetIds Write SetdatasetIds;
- Property name : String Index 8 Read Fname Write Setname;
- Property pageSize : integer Index 16 Read FpageSize Write SetpageSize;
+ Property md5checksums : TStringArray Index 0 Read Fmd5checksums Write Setmd5checksums;
+ Property accessions : TStringArray Index 8 Read Faccessions Write Setaccessions;
+ Property referenceSetId : String Index 16 Read FreferenceSetId Write SetreferenceSetId;
Property pageToken : String Index 24 Read FpageToken Write SetpageToken;
- Property referenceSetId : String Index 32 Read FreferenceSetId Write SetreferenceSetId;
- Property types : TStringArray Index 40 Read Ftypes Write Settypes;
+ Property pageSize : integer Index 32 Read FpageSize Write SetpageSize;
end;
- TSearchAnnotationSetsRequestClass = Class of TSearchAnnotationSetsRequest;
+ TSearchReferencesRequestClass = Class of TSearchReferencesRequest;
{ --------------------------------------------------------------------
- TSearchAnnotationSetsResponse
+ TSearchReferencesResponse
--------------------------------------------------------------------}
- TSearchAnnotationSetsResponse = Class(TGoogleBaseObject)
+ TSearchReferencesResponse = Class(TGoogleBaseObject)
Private
- FannotationSets : TSearchAnnotationSetsResponseTypeannotationSetsArray;
+ Freferences : TSearchReferencesResponseTypereferencesArray;
FnextPageToken : String;
Protected
//Property setters
- Procedure SetannotationSets(AIndex : Integer; AValue : TSearchAnnotationSetsResponseTypeannotationSetsArray); virtual;
+ Procedure Setreferences(AIndex : Integer; const AValue : TSearchReferencesResponseTypereferencesArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1722,189 +1735,270 @@ type
{$ENDIF VER2_6}
Public
Published
- Property annotationSets : TSearchAnnotationSetsResponseTypeannotationSetsArray Index 0 Read FannotationSets Write SetannotationSets;
+ Property references : TSearchReferencesResponseTypereferencesArray Index 0 Read Freferences Write Setreferences;
Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TSearchAnnotationSetsResponseClass = Class of TSearchAnnotationSetsResponse;
+ TSearchReferencesResponseClass = Class of TSearchReferencesResponse;
{ --------------------------------------------------------------------
- TSearchAnnotationsRequest
+ TReference
--------------------------------------------------------------------}
- TSearchAnnotationsRequest = Class(TGoogleBaseObject)
+ TReference = Class(TGoogleBaseObject)
Private
- FannotationSetIds : TStringArray;
- FpageSize : integer;
- FpageToken : String;
- Frange : TQueryRange;
+ Fid : String;
+ F_length : String;
+ Fmd5checksum : String;
+ Fname : String;
+ FsourceUri : String;
+ FsourceAccessions : TStringArray;
+ FncbiTaxonId : integer;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetannotationSetIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetpageSize(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrange(AIndex : Integer; AValue : TQueryRange); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_length(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmd5checksum(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceUri(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceAccessions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetncbiTaxonId(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 annotationSetIds : TStringArray Index 0 Read FannotationSetIds Write SetannotationSetIds;
- Property pageSize : integer Index 8 Read FpageSize Write SetpageSize;
- Property pageToken : String Index 16 Read FpageToken Write SetpageToken;
- Property range : TQueryRange Index 24 Read Frange Write Setrange;
+ Property id : String Index 0 Read Fid Write Setid;
+ Property _length : String Index 8 Read F_length Write Set_length;
+ Property md5checksum : String Index 16 Read Fmd5checksum Write Setmd5checksum;
+ Property name : String Index 24 Read Fname Write Setname;
+ Property sourceUri : String Index 32 Read FsourceUri Write SetsourceUri;
+ Property sourceAccessions : TStringArray Index 40 Read FsourceAccessions Write SetsourceAccessions;
+ Property ncbiTaxonId : integer Index 48 Read FncbiTaxonId Write SetncbiTaxonId;
end;
- TSearchAnnotationsRequestClass = Class of TSearchAnnotationsRequest;
+ TReferenceClass = Class of TReference;
{ --------------------------------------------------------------------
- TSearchAnnotationsResponse
+ TListBasesResponse
--------------------------------------------------------------------}
- TSearchAnnotationsResponse = Class(TGoogleBaseObject)
+ TListBasesResponse = Class(TGoogleBaseObject)
Private
- Fannotations : TSearchAnnotationsResponseTypeannotationsArray;
+ Foffset : String;
+ Fsequence : String;
FnextPageToken : String;
Protected
//Property setters
- Procedure Setannotations(AIndex : Integer; AValue : TSearchAnnotationsResponseTypeannotationsArray); virtual;
+ Procedure Setoffset(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsequence(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property offset : String Index 0 Read Foffset Write Setoffset;
+ Property sequence : String Index 8 Read Fsequence Write Setsequence;
+ Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListBasesResponseClass = Class of TListBasesResponse;
+
+ { --------------------------------------------------------------------
+ TImportVariantsRequestTypeinfoMergeConfig
+ --------------------------------------------------------------------}
+
+ TImportVariantsRequestTypeinfoMergeConfig = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TImportVariantsRequestTypeinfoMergeConfigClass = Class of TImportVariantsRequestTypeinfoMergeConfig;
+
+ { --------------------------------------------------------------------
+ TImportVariantsRequest
+ --------------------------------------------------------------------}
+
+ TImportVariantsRequest = Class(TGoogleBaseObject)
+ Private
+ FvariantSetId : String;
+ FsourceUris : TStringArray;
+ Fformat : String;
+ FnormalizeReferenceNames : boolean;
+ FinfoMergeConfig : TImportVariantsRequestTypeinfoMergeConfig;
+ Protected
+ //Property setters
+ Procedure SetvariantSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceUris(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnormalizeReferenceNames(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetinfoMergeConfig(AIndex : Integer; const AValue : TImportVariantsRequestTypeinfoMergeConfig); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property annotations : TSearchAnnotationsResponseTypeannotationsArray Index 0 Read Fannotations Write Setannotations;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property variantSetId : String Index 0 Read FvariantSetId Write SetvariantSetId;
+ Property sourceUris : TStringArray Index 8 Read FsourceUris Write SetsourceUris;
+ Property format : String Index 16 Read Fformat Write Setformat;
+ Property normalizeReferenceNames : boolean Index 24 Read FnormalizeReferenceNames Write SetnormalizeReferenceNames;
+ Property infoMergeConfig : TImportVariantsRequestTypeinfoMergeConfig Index 32 Read FinfoMergeConfig Write SetinfoMergeConfig;
end;
- TSearchAnnotationsResponseClass = Class of TSearchAnnotationsResponse;
+ TImportVariantsRequestClass = Class of TImportVariantsRequest;
{ --------------------------------------------------------------------
- TSearchCallSetsRequest
+ TVariantSet
--------------------------------------------------------------------}
- TSearchCallSetsRequest = Class(TGoogleBaseObject)
+ TVariantSet = Class(TGoogleBaseObject)
Private
+ FdatasetId : String;
+ Fid : String;
+ FreferenceSetId : String;
+ FreferenceBounds : TVariantSetTypereferenceBoundsArray;
+ Fmetadata : TVariantSetTypemetadataArray;
Fname : String;
- FpageSize : integer;
- FpageToken : String;
- FvariantSetIds : TStringArray;
+ Fdescription : String;
Protected
//Property setters
+ Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceBounds(AIndex : Integer; const AValue : TVariantSetTypereferenceBoundsArray); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TVariantSetTypemetadataArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageSize(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvariantSetIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setdescription(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 name : String Index 0 Read Fname Write Setname;
- Property pageSize : integer Index 8 Read FpageSize Write SetpageSize;
- Property pageToken : String Index 16 Read FpageToken Write SetpageToken;
- Property variantSetIds : TStringArray Index 24 Read FvariantSetIds Write SetvariantSetIds;
+ Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property referenceSetId : String Index 16 Read FreferenceSetId Write SetreferenceSetId;
+ Property referenceBounds : TVariantSetTypereferenceBoundsArray Index 24 Read FreferenceBounds Write SetreferenceBounds;
+ Property metadata : TVariantSetTypemetadataArray Index 32 Read Fmetadata Write Setmetadata;
+ Property name : String Index 40 Read Fname Write Setname;
+ Property description : String Index 48 Read Fdescription Write Setdescription;
end;
- TSearchCallSetsRequestClass = Class of TSearchCallSetsRequest;
+ TVariantSetClass = Class of TVariantSet;
{ --------------------------------------------------------------------
- TSearchCallSetsResponse
+ TReferenceBound
--------------------------------------------------------------------}
- TSearchCallSetsResponse = Class(TGoogleBaseObject)
+ TReferenceBound = Class(TGoogleBaseObject)
Private
- FcallSets : TSearchCallSetsResponseTypecallSetsArray;
- FnextPageToken : String;
+ FreferenceName : String;
+ FupperBound : String;
Protected
//Property setters
- Procedure SetcallSets(AIndex : Integer; AValue : TSearchCallSetsResponseTypecallSetsArray); 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}
+ Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupperBound(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property callSets : TSearchCallSetsResponseTypecallSetsArray Index 0 Read FcallSets Write SetcallSets;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property referenceName : String Index 0 Read FreferenceName Write SetreferenceName;
+ Property upperBound : String Index 8 Read FupperBound Write SetupperBound;
end;
- TSearchCallSetsResponseClass = Class of TSearchCallSetsResponse;
+ TReferenceBoundClass = Class of TReferenceBound;
{ --------------------------------------------------------------------
- TSearchJobsRequest
+ TVariantSetMetadataTypeinfo
--------------------------------------------------------------------}
- TSearchJobsRequest = Class(TGoogleBaseObject)
+ TVariantSetMetadataTypeinfo = Class(TGoogleBaseObject)
Private
- FcreatedAfter : String;
- FcreatedBefore : String;
- FpageSize : integer;
- FpageToken : String;
- FprojectNumber : String;
- Fstatus : TStringArray;
Protected
//Property setters
- Procedure SetcreatedAfter(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreatedBefore(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageSize(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectNumber(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property createdAfter : String Index 0 Read FcreatedAfter Write SetcreatedAfter;
- Property createdBefore : String Index 8 Read FcreatedBefore Write SetcreatedBefore;
- Property pageSize : integer Index 16 Read FpageSize Write SetpageSize;
- Property pageToken : String Index 24 Read FpageToken Write SetpageToken;
- Property projectNumber : String Index 32 Read FprojectNumber Write SetprojectNumber;
- Property status : TStringArray Index 40 Read Fstatus Write Setstatus;
end;
- TSearchJobsRequestClass = Class of TSearchJobsRequest;
+ TVariantSetMetadataTypeinfoClass = Class of TVariantSetMetadataTypeinfo;
{ --------------------------------------------------------------------
- TSearchJobsResponse
+ TVariantSetMetadata
--------------------------------------------------------------------}
- TSearchJobsResponse = Class(TGoogleBaseObject)
+ TVariantSetMetadata = Class(TGoogleBaseObject)
Private
- Fjobs : TSearchJobsResponseTypejobsArray;
- FnextPageToken : String;
+ Fkey : String;
+ Fvalue : String;
+ Fid : String;
+ F_type : String;
+ Fnumber : String;
+ Fdescription : String;
+ Finfo : TVariantSetMetadataTypeinfo;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setjobs(AIndex : Integer; AValue : TSearchJobsResponseTypejobsArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setinfo(AIndex : Integer; const AValue : TVariantSetMetadataTypeinfo); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property _type : String Index 24 Read F_type Write Set_type;
+ Property number : String Index 32 Read Fnumber Write Setnumber;
+ Property description : String Index 40 Read Fdescription Write Setdescription;
+ Property info : TVariantSetMetadataTypeinfo Index 48 Read Finfo Write Setinfo;
+ end;
+ TVariantSetMetadataClass = Class of TVariantSetMetadata;
+
+ { --------------------------------------------------------------------
+ TExportVariantSetRequest
+ --------------------------------------------------------------------}
+
+ TExportVariantSetRequest = Class(TGoogleBaseObject)
+ Private
+ FcallSetIds : TStringArray;
+ FprojectId : String;
+ Fformat : String;
+ FbigqueryDataset : String;
+ FbigqueryTable : String;
+ Protected
+ //Property setters
+ Procedure SetcallSetIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbigqueryDataset(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbigqueryTable(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 jobs : TSearchJobsResponseTypejobsArray Index 0 Read Fjobs Write Setjobs;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property callSetIds : TStringArray Index 0 Read FcallSetIds Write SetcallSetIds;
+ Property projectId : String Index 8 Read FprojectId Write SetprojectId;
+ Property format : String Index 16 Read Fformat Write Setformat;
+ Property bigqueryDataset : String Index 24 Read FbigqueryDataset Write SetbigqueryDataset;
+ Property bigqueryTable : String Index 32 Read FbigqueryTable Write SetbigqueryTable;
end;
- TSearchJobsResponseClass = Class of TSearchJobsResponse;
+ TExportVariantSetRequestClass = Class of TExportVariantSetRequest;
{ --------------------------------------------------------------------
- TSearchReadGroupSetsRequest
+ TSearchVariantSetsRequest
--------------------------------------------------------------------}
- TSearchReadGroupSetsRequest = Class(TGoogleBaseObject)
+ TSearchVariantSetsRequest = Class(TGoogleBaseObject)
Private
FdatasetIds : TStringArray;
- Fname : String;
- FpageSize : integer;
FpageToken : String;
+ FpageSize : integer;
Protected
//Property setters
- Procedure SetdatasetIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageSize(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetdatasetIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageSize(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1912,85 +2006,90 @@ type
Public
Published
Property datasetIds : TStringArray Index 0 Read FdatasetIds Write SetdatasetIds;
- Property name : String Index 8 Read Fname Write Setname;
+ Property pageToken : String Index 8 Read FpageToken Write SetpageToken;
Property pageSize : integer Index 16 Read FpageSize Write SetpageSize;
- Property pageToken : String Index 24 Read FpageToken Write SetpageToken;
end;
- TSearchReadGroupSetsRequestClass = Class of TSearchReadGroupSetsRequest;
+ TSearchVariantSetsRequestClass = Class of TSearchVariantSetsRequest;
{ --------------------------------------------------------------------
- TSearchReadGroupSetsResponse
+ TSearchVariantSetsResponse
--------------------------------------------------------------------}
- TSearchReadGroupSetsResponse = Class(TGoogleBaseObject)
+ TSearchVariantSetsResponse = Class(TGoogleBaseObject)
Private
+ FvariantSets : TSearchVariantSetsResponseTypevariantSetsArray;
FnextPageToken : String;
- FreadGroupSets : TSearchReadGroupSetsResponseTypereadGroupSetsArray;
Protected
//Property setters
+ Procedure SetvariantSets(AIndex : Integer; const AValue : TSearchVariantSetsResponseTypevariantSetsArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreadGroupSets(AIndex : Integer; AValue : TSearchReadGroupSetsResponseTypereadGroupSetsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property readGroupSets : TSearchReadGroupSetsResponseTypereadGroupSetsArray Index 8 Read FreadGroupSets Write SetreadGroupSets;
+ Property variantSets : TSearchVariantSetsResponseTypevariantSetsArray Index 0 Read FvariantSets Write SetvariantSets;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TSearchReadGroupSetsResponseClass = Class of TSearchReadGroupSetsResponse;
+ TSearchVariantSetsResponseClass = Class of TSearchVariantSetsResponse;
{ --------------------------------------------------------------------
- TSearchReadsRequest
+ TSearchVariantsRequest
--------------------------------------------------------------------}
- TSearchReadsRequest = Class(TGoogleBaseObject)
+ TSearchVariantsRequest = Class(TGoogleBaseObject)
Private
- F_end : String;
- FpageSize : integer;
- FpageToken : String;
- FreadGroupIds : TStringArray;
- FreadGroupSetIds : TStringArray;
+ FvariantSetIds : TStringArray;
+ FvariantName : String;
+ FcallSetIds : TStringArray;
FreferenceName : String;
Fstart : String;
+ F_end : String;
+ FpageToken : String;
+ FpageSize : integer;
+ FmaxCalls : integer;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageSize(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreadGroupIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetreadGroupSetIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetvariantSetIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetvariantName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcallSetIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageSize(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaxCalls(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 _end : String Index 0 Read F_end Write Set_end;
- Property pageSize : integer Index 8 Read FpageSize Write SetpageSize;
- Property pageToken : String Index 16 Read FpageToken Write SetpageToken;
- Property readGroupIds : TStringArray Index 24 Read FreadGroupIds Write SetreadGroupIds;
- Property readGroupSetIds : TStringArray Index 32 Read FreadGroupSetIds Write SetreadGroupSetIds;
- Property referenceName : String Index 40 Read FreferenceName Write SetreferenceName;
- Property start : String Index 48 Read Fstart Write Setstart;
+ Property variantSetIds : TStringArray Index 0 Read FvariantSetIds Write SetvariantSetIds;
+ Property variantName : String Index 8 Read FvariantName Write SetvariantName;
+ Property callSetIds : TStringArray Index 16 Read FcallSetIds Write SetcallSetIds;
+ Property referenceName : String Index 24 Read FreferenceName Write SetreferenceName;
+ Property start : String Index 32 Read Fstart Write Setstart;
+ Property _end : String Index 40 Read F_end Write Set_end;
+ Property pageToken : String Index 48 Read FpageToken Write SetpageToken;
+ Property pageSize : integer Index 56 Read FpageSize Write SetpageSize;
+ Property maxCalls : integer Index 64 Read FmaxCalls Write SetmaxCalls;
end;
- TSearchReadsRequestClass = Class of TSearchReadsRequest;
+ TSearchVariantsRequestClass = Class of TSearchVariantsRequest;
{ --------------------------------------------------------------------
- TSearchReadsResponse
+ TSearchVariantsResponse
--------------------------------------------------------------------}
- TSearchReadsResponse = Class(TGoogleBaseObject)
+ TSearchVariantsResponse = Class(TGoogleBaseObject)
Private
- Falignments : TSearchReadsResponseTypealignmentsArray;
+ Fvariants : TSearchVariantsResponseTypevariantsArray;
FnextPageToken : String;
Protected
//Property setters
- Procedure Setalignments(AIndex : Integer; AValue : TSearchReadsResponseTypealignmentsArray); virtual;
+ Procedure Setvariants(AIndex : Integer; const AValue : TSearchVariantsResponseTypevariantsArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1998,489 +2097,451 @@ type
{$ENDIF VER2_6}
Public
Published
- Property alignments : TSearchReadsResponseTypealignmentsArray Index 0 Read Falignments Write Setalignments;
+ Property variants : TSearchVariantsResponseTypevariantsArray Index 0 Read Fvariants Write Setvariants;
Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TSearchReadsResponseClass = Class of TSearchReadsResponse;
+ TSearchVariantsResponseClass = Class of TSearchVariantsResponse;
{ --------------------------------------------------------------------
- TSearchReferenceSetsRequest
+ TVariantTypeinfo
--------------------------------------------------------------------}
- TSearchReferenceSetsRequest = Class(TGoogleBaseObject)
+ TVariantTypeinfo = Class(TGoogleBaseObject)
Private
- Faccessions : TStringArray;
- FassemblyId : String;
- Fmd5checksums : TStringArray;
- FpageSize : integer;
- FpageToken : String;
Protected
//Property setters
- Procedure Setaccessions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetassemblyId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmd5checksums(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetpageSize(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpageToken(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
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property accessions : TStringArray Index 0 Read Faccessions Write Setaccessions;
- Property assemblyId : String Index 8 Read FassemblyId Write SetassemblyId;
- Property md5checksums : TStringArray Index 16 Read Fmd5checksums Write Setmd5checksums;
- Property pageSize : integer Index 24 Read FpageSize Write SetpageSize;
- Property pageToken : String Index 32 Read FpageToken Write SetpageToken;
end;
- TSearchReferenceSetsRequestClass = Class of TSearchReferenceSetsRequest;
+ TVariantTypeinfoClass = Class of TVariantTypeinfo;
{ --------------------------------------------------------------------
- TSearchReferenceSetsResponse
+ TVariant
--------------------------------------------------------------------}
- TSearchReferenceSetsResponse = Class(TGoogleBaseObject)
+ TVariant = Class(TGoogleBaseObject)
Private
- FnextPageToken : String;
- FreferenceSets : TSearchReferenceSetsResponseTypereferenceSetsArray;
+ FvariantSetId : String;
+ Fid : String;
+ Fnames : TStringArray;
+ Fcreated : String;
+ FreferenceName : String;
+ Fstart : String;
+ F_end : String;
+ FreferenceBases : String;
+ FalternateBases : TStringArray;
+ Fquality : double;
+ Ffilter : TStringArray;
+ Finfo : TVariantTypeinfo;
+ Fcalls : TVariantTypecallsArray;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferenceSets(AIndex : Integer; AValue : TSearchReferenceSetsResponseTypereferenceSetsArray); virtual;
+ Procedure SetvariantSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnames(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreferenceBases(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetalternateBases(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setquality(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setfilter(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setinfo(AIndex : Integer; const AValue : TVariantTypeinfo); virtual;
+ Procedure Setcalls(AIndex : Integer; const AValue : TVariantTypecallsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property referenceSets : TSearchReferenceSetsResponseTypereferenceSetsArray Index 8 Read FreferenceSets Write SetreferenceSets;
+ Property variantSetId : String Index 0 Read FvariantSetId Write SetvariantSetId;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property names : TStringArray Index 16 Read Fnames Write Setnames;
+ Property created : String Index 24 Read Fcreated Write Setcreated;
+ Property referenceName : String Index 32 Read FreferenceName Write SetreferenceName;
+ Property start : String Index 40 Read Fstart Write Setstart;
+ Property _end : String Index 48 Read F_end Write Set_end;
+ Property referenceBases : String Index 56 Read FreferenceBases Write SetreferenceBases;
+ Property alternateBases : TStringArray Index 64 Read FalternateBases Write SetalternateBases;
+ Property quality : double Index 72 Read Fquality Write Setquality;
+ Property filter : TStringArray Index 80 Read Ffilter Write Setfilter;
+ Property info : TVariantTypeinfo Index 88 Read Finfo Write Setinfo;
+ Property calls : TVariantTypecallsArray Index 96 Read Fcalls Write Setcalls;
end;
- TSearchReferenceSetsResponseClass = Class of TSearchReferenceSetsResponse;
+ TVariantClass = Class of TVariant;
{ --------------------------------------------------------------------
- TSearchReferencesRequest
+ TVariantCallTypeinfo
--------------------------------------------------------------------}
- TSearchReferencesRequest = Class(TGoogleBaseObject)
+ TVariantCallTypeinfo = Class(TGoogleBaseObject)
Private
- Faccessions : TStringArray;
- Fmd5checksums : TStringArray;
- FpageSize : integer;
- FpageToken : String;
- FreferenceSetId : String;
Protected
//Property setters
- Procedure Setaccessions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setmd5checksums(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetpageSize(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferenceSetId(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
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property accessions : TStringArray Index 0 Read Faccessions Write Setaccessions;
- Property md5checksums : TStringArray Index 8 Read Fmd5checksums Write Setmd5checksums;
- Property pageSize : integer Index 16 Read FpageSize Write SetpageSize;
- Property pageToken : String Index 24 Read FpageToken Write SetpageToken;
- Property referenceSetId : String Index 32 Read FreferenceSetId Write SetreferenceSetId;
end;
- TSearchReferencesRequestClass = Class of TSearchReferencesRequest;
+ TVariantCallTypeinfoClass = Class of TVariantCallTypeinfo;
{ --------------------------------------------------------------------
- TSearchReferencesResponse
+ TVariantCall
--------------------------------------------------------------------}
- TSearchReferencesResponse = Class(TGoogleBaseObject)
+ TVariantCall = Class(TGoogleBaseObject)
Private
- FnextPageToken : String;
- Freferences : TSearchReferencesResponseTypereferencesArray;
+ FcallSetId : String;
+ FcallSetName : String;
+ Fgenotype : TintegerArray;
+ Fphaseset : String;
+ FgenotypeLikelihood : TdoubleArray;
+ Finfo : TVariantCallTypeinfo;
Protected
//Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setreferences(AIndex : Integer; AValue : TSearchReferencesResponseTypereferencesArray); virtual;
+ Procedure SetcallSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcallSetName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setgenotype(AIndex : Integer; const AValue : TintegerArray); virtual;
+ Procedure Setphaseset(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetgenotypeLikelihood(AIndex : Integer; const AValue : TdoubleArray); virtual;
+ Procedure Setinfo(AIndex : Integer; const AValue : TVariantCallTypeinfo); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property references : TSearchReferencesResponseTypereferencesArray Index 8 Read Freferences Write Setreferences;
+ Property callSetId : String Index 0 Read FcallSetId Write SetcallSetId;
+ Property callSetName : String Index 8 Read FcallSetName Write SetcallSetName;
+ Property genotype : TintegerArray Index 16 Read Fgenotype Write Setgenotype;
+ Property phaseset : String Index 24 Read Fphaseset Write Setphaseset;
+ Property genotypeLikelihood : TdoubleArray Index 32 Read FgenotypeLikelihood Write SetgenotypeLikelihood;
+ Property info : TVariantCallTypeinfo Index 40 Read Finfo Write Setinfo;
end;
- TSearchReferencesResponseClass = Class of TSearchReferencesResponse;
+ TVariantCallClass = Class of TVariantCall;
{ --------------------------------------------------------------------
- TSearchVariantSetsRequest
+ TMergeVariantsRequestTypeinfoMergeConfig
--------------------------------------------------------------------}
- TSearchVariantSetsRequest = Class(TGoogleBaseObject)
+ TMergeVariantsRequestTypeinfoMergeConfig = Class(TGoogleBaseObject)
Private
- FdatasetIds : TStringArray;
- FpageSize : integer;
- FpageToken : String;
Protected
//Property setters
- Procedure SetdatasetIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetpageSize(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpageToken(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
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property datasetIds : TStringArray Index 0 Read FdatasetIds Write SetdatasetIds;
- Property pageSize : integer Index 8 Read FpageSize Write SetpageSize;
- Property pageToken : String Index 16 Read FpageToken Write SetpageToken;
end;
- TSearchVariantSetsRequestClass = Class of TSearchVariantSetsRequest;
+ TMergeVariantsRequestTypeinfoMergeConfigClass = Class of TMergeVariantsRequestTypeinfoMergeConfig;
{ --------------------------------------------------------------------
- TSearchVariantSetsResponse
+ TMergeVariantsRequest
--------------------------------------------------------------------}
- TSearchVariantSetsResponse = Class(TGoogleBaseObject)
+ TMergeVariantsRequest = Class(TGoogleBaseObject)
Private
- FnextPageToken : String;
- FvariantSets : TSearchVariantSetsResponseTypevariantSetsArray;
+ FvariantSetId : String;
+ Fvariants : TMergeVariantsRequestTypevariantsArray;
+ FinfoMergeConfig : TMergeVariantsRequestTypeinfoMergeConfig;
Protected
//Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvariantSets(AIndex : Integer; AValue : TSearchVariantSetsResponseTypevariantSetsArray); virtual;
+ Procedure SetvariantSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvariants(AIndex : Integer; const AValue : TMergeVariantsRequestTypevariantsArray); virtual;
+ Procedure SetinfoMergeConfig(AIndex : Integer; const AValue : TMergeVariantsRequestTypeinfoMergeConfig); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property variantSets : TSearchVariantSetsResponseTypevariantSetsArray Index 8 Read FvariantSets Write SetvariantSets;
+ Property variantSetId : String Index 0 Read FvariantSetId Write SetvariantSetId;
+ Property variants : TMergeVariantsRequestTypevariantsArray Index 8 Read Fvariants Write Setvariants;
+ Property infoMergeConfig : TMergeVariantsRequestTypeinfoMergeConfig Index 16 Read FinfoMergeConfig Write SetinfoMergeConfig;
end;
- TSearchVariantSetsResponseClass = Class of TSearchVariantSetsResponse;
+ TMergeVariantsRequestClass = Class of TMergeVariantsRequest;
{ --------------------------------------------------------------------
- TSearchVariantsRequest
+ TSearchCallSetsRequest
--------------------------------------------------------------------}
- TSearchVariantsRequest = Class(TGoogleBaseObject)
+ TSearchCallSetsRequest = Class(TGoogleBaseObject)
Private
- FcallSetIds : TStringArray;
- F_end : String;
- FmaxCalls : integer;
- FpageSize : integer;
- FpageToken : String;
- FreferenceName : String;
- Fstart : String;
- FvariantName : String;
FvariantSetIds : TStringArray;
+ Fname : String;
+ FpageToken : String;
+ FpageSize : integer;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetcallSetIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxCalls(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpageSize(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetvariantSetIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvariantName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvariantSetIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetpageSize(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 callSetIds : TStringArray Index 0 Read FcallSetIds Write SetcallSetIds;
- Property _end : String Index 8 Read F_end Write Set_end;
- Property maxCalls : integer Index 16 Read FmaxCalls Write SetmaxCalls;
+ Property variantSetIds : TStringArray Index 0 Read FvariantSetIds Write SetvariantSetIds;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property pageToken : String Index 16 Read FpageToken Write SetpageToken;
Property pageSize : integer Index 24 Read FpageSize Write SetpageSize;
- Property pageToken : String Index 32 Read FpageToken Write SetpageToken;
- Property referenceName : String Index 40 Read FreferenceName Write SetreferenceName;
- Property start : String Index 48 Read Fstart Write Setstart;
- Property variantName : String Index 56 Read FvariantName Write SetvariantName;
- Property variantSetIds : TStringArray Index 64 Read FvariantSetIds Write SetvariantSetIds;
end;
- TSearchVariantsRequestClass = Class of TSearchVariantsRequest;
+ TSearchCallSetsRequestClass = Class of TSearchCallSetsRequest;
{ --------------------------------------------------------------------
- TSearchVariantsResponse
+ TSearchCallSetsResponse
--------------------------------------------------------------------}
- TSearchVariantsResponse = Class(TGoogleBaseObject)
+ TSearchCallSetsResponse = Class(TGoogleBaseObject)
Private
+ FcallSets : TSearchCallSetsResponseTypecallSetsArray;
FnextPageToken : String;
- Fvariants : TSearchVariantsResponseTypevariantsArray;
Protected
//Property setters
+ Procedure SetcallSets(AIndex : Integer; const AValue : TSearchCallSetsResponseTypecallSetsArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvariants(AIndex : Integer; AValue : TSearchVariantsResponseTypevariantsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property variants : TSearchVariantsResponseTypevariantsArray Index 8 Read Fvariants Write Setvariants;
+ Property callSets : TSearchCallSetsResponseTypecallSetsArray Index 0 Read FcallSets Write SetcallSets;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TSearchVariantsResponseClass = Class of TSearchVariantsResponse;
+ TSearchCallSetsResponseClass = Class of TSearchCallSetsResponse;
{ --------------------------------------------------------------------
- TTranscript
+ TCallSetTypeinfo
--------------------------------------------------------------------}
- TTranscript = Class(TGoogleBaseObject)
+ TCallSetTypeinfo = Class(TGoogleBaseObject)
Private
- FcodingSequence : TTranscriptCodingSequence;
- Fexons : TTranscriptTypeexonsArray;
- FgeneId : String;
Protected
//Property setters
- Procedure SetcodingSequence(AIndex : Integer; AValue : TTranscriptCodingSequence); virtual;
- Procedure Setexons(AIndex : Integer; AValue : TTranscriptTypeexonsArray); virtual;
- Procedure SetgeneId(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
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property codingSequence : TTranscriptCodingSequence Index 0 Read FcodingSequence Write SetcodingSequence;
- Property exons : TTranscriptTypeexonsArray Index 8 Read Fexons Write Setexons;
- Property geneId : String Index 16 Read FgeneId Write SetgeneId;
end;
- TTranscriptClass = Class of TTranscript;
+ TCallSetTypeinfoClass = Class of TCallSetTypeinfo;
{ --------------------------------------------------------------------
- TTranscriptCodingSequence
+ TCallSet
--------------------------------------------------------------------}
- TTranscriptCodingSequence = Class(TGoogleBaseObject)
+ TCallSet = Class(TGoogleBaseObject)
Private
- F_end : String;
- Fstart : String;
+ Fid : String;
+ Fname : String;
+ FsampleId : String;
+ FvariantSetIds : TStringArray;
+ Fcreated : String;
+ Finfo : TCallSetTypeinfo;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsampleId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvariantSetIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setinfo(AIndex : Integer; const AValue : TCallSetTypeinfo); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property _end : String Index 0 Read F_end Write Set_end;
- Property start : String Index 8 Read Fstart Write Setstart;
+ Property id : String Index 0 Read Fid Write Setid;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property sampleId : String Index 16 Read FsampleId Write SetsampleId;
+ Property variantSetIds : TStringArray Index 24 Read FvariantSetIds Write SetvariantSetIds;
+ Property created : String Index 32 Read Fcreated Write Setcreated;
+ Property info : TCallSetTypeinfo Index 40 Read Finfo Write Setinfo;
end;
- TTranscriptCodingSequenceClass = Class of TTranscriptCodingSequence;
+ TCallSetClass = Class of TCallSet;
{ --------------------------------------------------------------------
- TTranscriptExon
+ TStreamVariantsRequest
--------------------------------------------------------------------}
- TTranscriptExon = Class(TGoogleBaseObject)
+ TStreamVariantsRequest = Class(TGoogleBaseObject)
Private
- F_end : String;
- Fframe : TInt32Value;
+ FprojectId : String;
+ FvariantSetId : String;
+ FcallSetIds : TStringArray;
+ FreferenceName : String;
Fstart : String;
+ F_end : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
- Procedure Setframe(AIndex : Integer; AValue : TInt32Value); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvariantSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcallSetIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(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 _end : String Index 0 Read F_end Write Set_end;
- Property frame : TInt32Value Index 8 Read Fframe Write Setframe;
- Property start : String Index 16 Read Fstart Write Setstart;
+ Property projectId : String Index 0 Read FprojectId Write SetprojectId;
+ Property variantSetId : String Index 8 Read FvariantSetId Write SetvariantSetId;
+ Property callSetIds : TStringArray Index 16 Read FcallSetIds Write SetcallSetIds;
+ Property referenceName : String Index 24 Read FreferenceName Write SetreferenceName;
+ Property start : String Index 32 Read Fstart Write Setstart;
+ Property _end : String Index 40 Read F_end Write Set_end;
end;
- TTranscriptExonClass = Class of TTranscriptExon;
+ TStreamVariantsRequestClass = Class of TStreamVariantsRequest;
{ --------------------------------------------------------------------
- TVariantTypeinfo
+ TStreamVariantsResponse
--------------------------------------------------------------------}
- TVariantTypeinfo = Class(TGoogleBaseObject)
+ TStreamVariantsResponse = Class(TGoogleBaseObject)
Private
+ Fvariants : TStreamVariantsResponseTypevariantsArray;
Protected
//Property setters
+ Procedure Setvariants(AIndex : Integer; const AValue : TStreamVariantsResponseTypevariantsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property variants : TStreamVariantsResponseTypevariantsArray Index 0 Read Fvariants Write Setvariants;
end;
- TVariantTypeinfoClass = Class of TVariantTypeinfo;
+ TStreamVariantsResponseClass = Class of TStreamVariantsResponse;
{ --------------------------------------------------------------------
- TVariant
+ TImportReadGroupSetsResponse
--------------------------------------------------------------------}
- TVariant = Class(TGoogleBaseObject)
+ TImportReadGroupSetsResponse = Class(TGoogleBaseObject)
Private
- FalternateBases : TStringArray;
- Fcalls : TVariantTypecallsArray;
- Fcreated : String;
- F_end : String;
- Ffilter : TStringArray;
- Fid : String;
- Finfo : TVariantTypeinfo;
- Fnames : TStringArray;
- Fquality : double;
- FreferenceBases : String;
- FreferenceName : String;
- Fstart : String;
- FvariantSetId : String;
+ FreadGroupSetIds : TStringArray;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetalternateBases(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setcalls(AIndex : Integer; AValue : TVariantTypecallsArray); virtual;
- Procedure Setcreated(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfilter(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinfo(AIndex : Integer; AValue : TVariantTypeinfo); virtual;
- Procedure Setnames(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setquality(AIndex : Integer; AValue : double); virtual;
- Procedure SetreferenceBases(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreferenceName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvariantSetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreadGroupSetIds(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 alternateBases : TStringArray Index 0 Read FalternateBases Write SetalternateBases;
- Property calls : TVariantTypecallsArray Index 8 Read Fcalls Write Setcalls;
- Property created : String Index 16 Read Fcreated Write Setcreated;
- Property _end : String Index 24 Read F_end Write Set_end;
- Property filter : TStringArray Index 32 Read Ffilter Write Setfilter;
- Property id : String Index 40 Read Fid Write Setid;
- Property info : TVariantTypeinfo Index 48 Read Finfo Write Setinfo;
- Property names : TStringArray Index 56 Read Fnames Write Setnames;
- Property quality : double Index 64 Read Fquality Write Setquality;
- Property referenceBases : String Index 72 Read FreferenceBases Write SetreferenceBases;
- Property referenceName : String Index 80 Read FreferenceName Write SetreferenceName;
- Property start : String Index 88 Read Fstart Write Setstart;
- Property variantSetId : String Index 96 Read FvariantSetId Write SetvariantSetId;
+ Property readGroupSetIds : TStringArray Index 0 Read FreadGroupSetIds Write SetreadGroupSetIds;
end;
- TVariantClass = Class of TVariant;
+ TImportReadGroupSetsResponseClass = Class of TImportReadGroupSetsResponse;
{ --------------------------------------------------------------------
- TVariantAnnotation
+ TImportVariantsResponse
--------------------------------------------------------------------}
- TVariantAnnotation = Class(TGoogleBaseObject)
+ TImportVariantsResponse = Class(TGoogleBaseObject)
Private
- FalternateBases : String;
- FclinicalSignificance : String;
- Fconditions : TVariantAnnotationTypeconditionsArray;
- Feffect : String;
- FgeneId : String;
- FtranscriptIds : TStringArray;
- F_type : String;
+ FcallSetIds : TStringArray;
Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetalternateBases(AIndex : Integer; const AValue : String); virtual;
- Procedure SetclinicalSignificance(AIndex : Integer; const AValue : String); virtual;
- Procedure Setconditions(AIndex : Integer; AValue : TVariantAnnotationTypeconditionsArray); virtual;
- Procedure Seteffect(AIndex : Integer; const AValue : String); virtual;
- Procedure SetgeneId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettranscriptIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcallSetIds(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 alternateBases : String Index 0 Read FalternateBases Write SetalternateBases;
- Property clinicalSignificance : String Index 8 Read FclinicalSignificance Write SetclinicalSignificance;
- Property conditions : TVariantAnnotationTypeconditionsArray Index 16 Read Fconditions Write Setconditions;
- Property effect : String Index 24 Read Feffect Write Seteffect;
- Property geneId : String Index 32 Read FgeneId Write SetgeneId;
- Property transcriptIds : TStringArray Index 40 Read FtranscriptIds Write SettranscriptIds;
- Property _type : String Index 48 Read F_type Write Set_type;
+ Property callSetIds : TStringArray Index 0 Read FcallSetIds Write SetcallSetIds;
end;
- TVariantAnnotationClass = Class of TVariantAnnotation;
+ TImportVariantsResponseClass = Class of TImportVariantsResponse;
{ --------------------------------------------------------------------
- TVariantAnnotationCondition
+ TOperationMetadataTyperequest
--------------------------------------------------------------------}
- TVariantAnnotationCondition = Class(TGoogleBaseObject)
+ TOperationMetadataTyperequest = Class(TGoogleBaseObject)
Private
- FconceptId : String;
- FexternalIds : TVariantAnnotationConditionTypeexternalIdsArray;
- Fnames : TStringArray;
- FomimId : String;
Protected
//Property setters
- Procedure SetconceptId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetexternalIds(AIndex : Integer; AValue : TVariantAnnotationConditionTypeexternalIdsArray); virtual;
- Procedure Setnames(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetomimId(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
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property conceptId : String Index 0 Read FconceptId Write SetconceptId;
- Property externalIds : TVariantAnnotationConditionTypeexternalIdsArray Index 8 Read FexternalIds Write SetexternalIds;
- Property names : TStringArray Index 16 Read Fnames Write Setnames;
- Property omimId : String Index 24 Read FomimId Write SetomimId;
end;
- TVariantAnnotationConditionClass = Class of TVariantAnnotationCondition;
+ TOperationMetadataTyperequestClass = Class of TOperationMetadataTyperequest;
{ --------------------------------------------------------------------
- TVariantSet
+ TOperationMetadata
--------------------------------------------------------------------}
- TVariantSet = Class(TGoogleBaseObject)
+ TOperationMetadata = Class(TGoogleBaseObject)
Private
- FdatasetId : String;
- Fid : String;
- Fmetadata : TVariantSetTypemetadataArray;
- FreferenceBounds : TVariantSetTypereferenceBoundsArray;
+ FprojectId : String;
+ FcreateTime : String;
+ FendTime : String;
+ Frequest : TOperationMetadataTyperequest;
+ Fevents : TOperationMetadataTypeeventsArray;
Protected
//Property setters
- Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetadata(AIndex : Integer; AValue : TVariantSetTypemetadataArray); virtual;
- Procedure SetreferenceBounds(AIndex : Integer; AValue : TVariantSetTypereferenceBoundsArray); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrequest(AIndex : Integer; const AValue : TOperationMetadataTyperequest); virtual;
+ Procedure Setevents(AIndex : Integer; const AValue : TOperationMetadataTypeeventsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
- Property id : String Index 8 Read Fid Write Setid;
- Property metadata : TVariantSetTypemetadataArray Index 16 Read Fmetadata Write Setmetadata;
- Property referenceBounds : TVariantSetTypereferenceBoundsArray Index 24 Read FreferenceBounds Write SetreferenceBounds;
+ Property projectId : String Index 0 Read FprojectId Write SetprojectId;
+ Property createTime : String Index 8 Read FcreateTime Write SetcreateTime;
+ Property endTime : String Index 16 Read FendTime Write SetendTime;
+ Property request : TOperationMetadataTyperequest Index 24 Read Frequest Write Setrequest;
+ Property events : TOperationMetadataTypeeventsArray Index 32 Read Fevents Write Setevents;
end;
- TVariantSetClass = Class of TVariantSet;
+ TOperationMetadataClass = Class of TOperationMetadata;
+
+ { --------------------------------------------------------------------
+ TOperationEvent
+ --------------------------------------------------------------------}
+
+ TOperationEvent = Class(TGoogleBaseObject)
+ Private
+ Fdescription : String;
+ Protected
+ //Property setters
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property description : String Index 0 Read Fdescription Write Setdescription;
+ end;
+ TOperationEventClass = Class of TOperationEvent;
{ --------------------------------------------------------------------
- TAnnotationSetsResource
+ TAnnotationsetsResource
--------------------------------------------------------------------}
- TAnnotationSetsResource = Class(TGoogleResource)
+
+ //Optional query Options for TAnnotationsetsResource, method Update
+
+ TAnnotationsetsUpdateOptions = Record
+ updateMask : String;
+ end;
+
+ TAnnotationsetsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Create(aAnnotationSet : TAnnotationSet) : TAnnotationSet;overload;
- Procedure Delete(annotationSetId: string);
Function Get(annotationSetId: string) : TAnnotationSet;
- Function Patch(annotationSetId: string; aAnnotationSet : TAnnotationSet) : TAnnotationSet;
+ Function Update(annotationSetId: string; aAnnotationSet : TAnnotationSet; AQuery : string = '') : TAnnotationSet;
+ Function Update(annotationSetId: string; aAnnotationSet : TAnnotationSet; AQuery : TAnnotationsetsupdateOptions) : TAnnotationSet;
+ Function Delete(annotationSetId: string) : TEmpty;
Function Search(aSearchAnnotationSetsRequest : TSearchAnnotationSetsRequest) : TSearchAnnotationSetsResponse;
- Function Update(annotationSetId: string; aAnnotationSet : TAnnotationSet) : TAnnotationSet;
end;
@@ -2488,34 +2549,24 @@ type
TAnnotationsResource
--------------------------------------------------------------------}
+
+ //Optional query Options for TAnnotationsResource, method Update
+
+ TAnnotationsUpdateOptions = Record
+ updateMask : String;
+ end;
+
TAnnotationsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function BatchCreate(aBatchCreateAnnotationsRequest : TBatchCreateAnnotationsRequest) : TBatchAnnotationsResponse;
Function Create(aAnnotation : TAnnotation) : TAnnotation;overload;
- Procedure Delete(annotationId: string);
+ Function BatchCreate(aBatchCreateAnnotationsRequest : TBatchCreateAnnotationsRequest) : TBatchCreateAnnotationsResponse;
Function Get(annotationId: string) : TAnnotation;
- Function Patch(annotationId: string; aAnnotation : TAnnotation) : TAnnotation;
+ Function Update(annotationId: string; aAnnotation : TAnnotation; AQuery : string = '') : TAnnotation;
+ Function Update(annotationId: string; aAnnotation : TAnnotation; AQuery : TAnnotationsupdateOptions) : TAnnotation;
+ Function Delete(annotationId: string) : TEmpty;
Function Search(aSearchAnnotationsRequest : TSearchAnnotationsRequest) : TSearchAnnotationsResponse;
- Function Update(annotationId: string; aAnnotation : TAnnotation) : TAnnotation;
- end;
-
-
- { --------------------------------------------------------------------
- TCallsetsResource
- --------------------------------------------------------------------}
-
- TCallsetsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(aCallSet : TCallSet) : TCallSet;overload;
- Procedure Delete(callSetId: string);
- Function Get(callSetId: string) : TCallSet;
- Function Patch(callSetId: string; aCallSet : TCallSet) : TCallSet;
- Function Search(aSearchCallSetsRequest : TSearchCallSetsRequest) : TSearchCallSetsResponse;
- Function Update(callSetId: string; aCallSet : TCallSet) : TCallSet;
end;
@@ -2527,66 +2578,57 @@ type
//Optional query Options for TDatasetsResource, method List
TDatasetsListOptions = Record
+ projectId : String;
pageSize : integer;
pageToken : String;
- projectNumber : int64;
+ end;
+
+
+ //Optional query Options for TDatasetsResource, method Patch
+
+ TDatasetsPatchOptions = Record
+ updateMask : String;
end;
TDatasetsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(aDataset : TDataset) : TDataset;overload;
- Procedure Delete(datasetId: string);
- Function Get(datasetId: string) : TDataset;
Function List(AQuery : string = '') : TListDatasetsResponse;
Function List(AQuery : TDatasetslistOptions) : TListDatasetsResponse;
- Function Patch(datasetId: string; aDataset : TDataset) : TDataset;
- Function Undelete(datasetId: string) : TDataset;
- Function Update(datasetId: string; aDataset : TDataset) : TDataset;
+ Function Create(aDataset : TDataset) : TDataset;overload;
+ Function Get(datasetId: string) : TDataset;
+ Function Patch(datasetId: string; aDataset : TDataset; AQuery : string = '') : TDataset;
+ Function Patch(datasetId: string; aDataset : TDataset; AQuery : TDatasetspatchOptions) : TDataset;
+ Function Delete(datasetId: string) : TEmpty;
+ Function Undelete(datasetId: string; aUndeleteDatasetRequest : TUndeleteDatasetRequest) : TDataset;
+ Function SetIamPolicy(resource: string; aSetIamPolicyRequest : TSetIamPolicyRequest) : TPolicy;
+ Function GetIamPolicy(resource: string; aGetIamPolicyRequest : TGetIamPolicyRequest) : TPolicy;
+ Function TestIamPermissions(resource: string; aTestIamPermissionsRequest : TTestIamPermissionsRequest) : TTestIamPermissionsResponse;
end;
{ --------------------------------------------------------------------
- TExperimentalJobsResource
+ TOperationsResource
--------------------------------------------------------------------}
- TExperimentalJobsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(aExperimentalCreateJobRequest : TExperimentalCreateJobRequest) : TExperimentalCreateJobResponse;overload;
- end;
-
- { --------------------------------------------------------------------
- TExperimentalResource
- --------------------------------------------------------------------}
+ //Optional query Options for TOperationsResource, method List
- TExperimentalResource = Class(TGoogleResource)
- Private
- FJobsInstance : TExperimentalJobsResource;
- Function GetJobsInstance : TExperimentalJobsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function CreateJobsResource(AOwner : TComponent) : TExperimentalJobsResource;virtual;overload;
- Function CreateJobsResource : TExperimentalJobsResource;virtual;overload;
- Property JobsResource : TExperimentalJobsResource Read GetJobsInstance;
+ TOperationsListOptions = Record
+ filter : String;
+ pageSize : integer;
+ pageToken : String;
end;
-
- { --------------------------------------------------------------------
- TJobsResource
- --------------------------------------------------------------------}
-
- TJobsResource = Class(TGoogleResource)
+ TOperationsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Cancel(jobId: string);
- Function Get(jobId: string) : TJob;
- Function Search(aSearchJobsRequest : TSearchJobsRequest) : TSearchJobsResponse;
+ Function Get(_name: string) : TOperation;
+ Function List(_name: string; AQuery : string = '') : TListOperationsResponse;
+ Function List(_name: string; AQuery : TOperationslistOptions) : TListOperationsResponse;
+ Function Cancel(_name: string; aCancelOperationRequest : TCancelOperationRequest) : TEmpty;
end;
@@ -2598,12 +2640,12 @@ type
//Optional query Options for TReadgroupsetsCoveragebucketsResource, method List
TReadgroupsetsCoveragebucketsListOptions = Record
- pageSize : integer;
- pageToken : String;
- rangeend : int64;
- rangereferenceName : String;
- rangestart : int64;
+ referenceName : String;
+ start : int64;
+ _end : int64;
targetBucketWidth : int64;
+ pageToken : String;
+ pageSize : integer;
end;
TReadgroupsetsCoveragebucketsResource = Class(TGoogleResource)
@@ -2619,6 +2661,13 @@ type
TReadgroupsetsResource
--------------------------------------------------------------------}
+
+ //Optional query Options for TReadgroupsetsResource, method Patch
+
+ TReadgroupsetsPatchOptions = Record
+ updateMask : String;
+ end;
+
TReadgroupsetsResource = Class(TGoogleResource)
Private
FCoveragebucketsInstance : TReadgroupsetsCoveragebucketsResource;
@@ -2626,15 +2675,13 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Align(aAlignReadGroupSetsRequest : TAlignReadGroupSetsRequest) : TAlignReadGroupSetsResponse;
- Function Call(aCallReadGroupSetsRequest : TCallReadGroupSetsRequest) : TCallReadGroupSetsResponse;
- Procedure Delete(readGroupSetId: string);
- Function Export(aExportReadGroupSetsRequest : TExportReadGroupSetsRequest) : TExportReadGroupSetsResponse;
- Function Get(readGroupSetId: string) : TReadGroupSet;
- Function Import(aImportReadGroupSetsRequest : TImportReadGroupSetsRequest) : TImportReadGroupSetsResponse;
- Function Patch(readGroupSetId: string; aReadGroupSet : TReadGroupSet) : TReadGroupSet;
+ Function Import(aImportReadGroupSetsRequest : TImportReadGroupSetsRequest) : TOperation;
+ Function Export(readGroupSetId: string; aExportReadGroupSetRequest : TExportReadGroupSetRequest) : TOperation;
Function Search(aSearchReadGroupSetsRequest : TSearchReadGroupSetsRequest) : TSearchReadGroupSetsResponse;
- Function Update(readGroupSetId: string; aReadGroupSet : TReadGroupSet) : TReadGroupSet;
+ Function Patch(readGroupSetId: string; aReadGroupSet : TReadGroupSet; AQuery : string = '') : TReadGroupSet;
+ Function Patch(readGroupSetId: string; aReadGroupSet : TReadGroupSet; AQuery : TReadgroupsetspatchOptions) : TReadGroupSet;
+ Function Delete(readGroupSetId: string) : TEmpty;
+ Function Get(readGroupSetId: string) : TReadGroupSet;
Function CreateCoveragebucketsResource(AOwner : TComponent) : TReadgroupsetsCoveragebucketsResource;virtual;overload;
Function CreateCoveragebucketsResource : TReadgroupsetsCoveragebucketsResource;virtual;overload;
Property CoveragebucketsResource : TReadgroupsetsCoveragebucketsResource Read GetCoveragebucketsInstance;
@@ -2650,6 +2697,20 @@ type
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Search(aSearchReadsRequest : TSearchReadsRequest) : TSearchReadsResponse;
+ Function Stream(aStreamReadsRequest : TStreamReadsRequest) : TStreamReadsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TReferencesetsResource
+ --------------------------------------------------------------------}
+
+ TReferencesetsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Search(aSearchReferenceSetsRequest : TSearchReferenceSetsRequest) : TSearchReferenceSetsResponse;
+ Function Get(referenceSetId: string) : TReferenceSet;
end;
@@ -2661,10 +2722,10 @@ type
//Optional query Options for TReferencesBasesResource, method List
TReferencesBasesListOptions = Record
+ start : int64;
_end : int64;
- pageSize : integer;
pageToken : String;
- start : int64;
+ pageSize : integer;
end;
TReferencesBasesResource = Class(TGoogleResource)
@@ -2687,8 +2748,8 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(referenceId: string) : TReference;
Function Search(aSearchReferencesRequest : TSearchReferencesRequest) : TSearchReferencesResponse;
+ Function Get(referenceId: string) : TReference;
Function CreateBasesResource(AOwner : TComponent) : TReferencesBasesResource;virtual;overload;
Function CreateBasesResource : TReferencesBasesResource;virtual;overload;
Property BasesResource : TReferencesBasesResource Read GetBasesInstance;
@@ -2696,31 +2757,29 @@ type
{ --------------------------------------------------------------------
- TReferencesetsResource
+ TVariantsResource
--------------------------------------------------------------------}
- TReferencesetsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(referenceSetId: string) : TReferenceSet;
- Function Search(aSearchReferenceSetsRequest : TSearchReferenceSetsRequest) : TSearchReferenceSetsResponse;
- end;
+ //Optional query Options for TVariantsResource, method Patch
- { --------------------------------------------------------------------
- TVariantsResource
- --------------------------------------------------------------------}
+ TVariantsPatchOptions = Record
+ updateMask : String;
+ end;
TVariantsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Import(aImportVariantsRequest : TImportVariantsRequest) : TOperation;
+ Function Search(aSearchVariantsRequest : TSearchVariantsRequest) : TSearchVariantsResponse;
Function Create(aVariant : TVariant) : TVariant;overload;
- Procedure Delete(variantId: string);
+ Function Patch(variantId: string; aVariant : TVariant; AQuery : string = '') : TVariant;
+ Function Patch(variantId: string; aVariant : TVariant; AQuery : TVariantspatchOptions) : TVariant;
+ Function Delete(variantId: string) : TEmpty;
Function Get(variantId: string) : TVariant;
- Function Search(aSearchVariantsRequest : TSearchVariantsRequest) : TSearchVariantsResponse;
- Function Update(variantId: string; aVariant : TVariant) : TVariant;
+ Function Merge(aMergeVariantsRequest : TMergeVariantsRequest) : TEmpty;
+ Function Stream(aStreamVariantsRequest : TStreamVariantsRequest) : TStreamVariantsResponse;
end;
@@ -2728,18 +2787,48 @@ type
TVariantsetsResource
--------------------------------------------------------------------}
+
+ //Optional query Options for TVariantsetsResource, method Patch
+
+ TVariantsetsPatchOptions = Record
+ updateMask : String;
+ end;
+
TVariantsetsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Delete(variantSetId: string);
- Function Export(variantSetId: string; aExportVariantSetRequest : TExportVariantSetRequest) : TExportVariantSetResponse;
+ Function Create(aVariantSet : TVariantSet) : TVariantSet;overload;
+ Function Export(variantSetId: string; aExportVariantSetRequest : TExportVariantSetRequest) : TOperation;
Function Get(variantSetId: string) : TVariantSet;
- Function ImportVariants(variantSetId: string; aImportVariantsRequest : TImportVariantsRequest) : TImportVariantsResponse;
- Procedure MergeVariants(variantSetId: string; aMergeVariantsRequest : TMergeVariantsRequest);
- Function Patch(variantSetId: string; aVariantSet : TVariantSet) : TVariantSet;
Function Search(aSearchVariantSetsRequest : TSearchVariantSetsRequest) : TSearchVariantSetsResponse;
- Function Update(variantSetId: string; aVariantSet : TVariantSet) : TVariantSet;
+ Function Delete(variantSetId: string) : TEmpty;
+ Function Patch(variantSetId: string; aVariantSet : TVariantSet; AQuery : string = '') : TVariantSet;
+ Function Patch(variantSetId: string; aVariantSet : TVariantSet; AQuery : TVariantsetspatchOptions) : TVariantSet;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCallsetsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TCallsetsResource, method Patch
+
+ TCallsetsPatchOptions = Record
+ updateMask : String;
+ end;
+
+ TCallsetsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Search(aSearchCallSetsRequest : TSearchCallSetsRequest) : TSearchCallSetsResponse;
+ Function Create(aCallSet : TCallSet) : TCallSet;overload;
+ Function Patch(callSetId: string; aCallSet : TCallSet; AQuery : string = '') : TCallSet;
+ Function Patch(callSetId: string; aCallSet : TCallSet; AQuery : TCallsetspatchOptions) : TCallSet;
+ Function Delete(callSetId: string) : TEmpty;
+ Function Get(callSetId: string) : TCallSet;
end;
@@ -2749,36 +2838,32 @@ type
TGenomicsAPI = Class(TGoogleAPI)
Private
- FAnnotationSetsInstance : TAnnotationSetsResource;
+ FAnnotationsetsInstance : TAnnotationsetsResource;
FAnnotationsInstance : TAnnotationsResource;
- FCallsetsInstance : TCallsetsResource;
FDatasetsInstance : TDatasetsResource;
- FExperimentalJobsInstance : TExperimentalJobsResource;
- FExperimentalInstance : TExperimentalResource;
- FJobsInstance : TJobsResource;
+ FOperationsInstance : TOperationsResource;
FReadgroupsetsCoveragebucketsInstance : TReadgroupsetsCoveragebucketsResource;
FReadgroupsetsInstance : TReadgroupsetsResource;
FReadsInstance : TReadsResource;
+ FReferencesetsInstance : TReferencesetsResource;
FReferencesBasesInstance : TReferencesBasesResource;
FReferencesInstance : TReferencesResource;
- FReferencesetsInstance : TReferencesetsResource;
FVariantsInstance : TVariantsResource;
FVariantsetsInstance : TVariantsetsResource;
- Function GetAnnotationSetsInstance : TAnnotationSetsResource;virtual;
+ FCallsetsInstance : TCallsetsResource;
+ Function GetAnnotationsetsInstance : TAnnotationsetsResource;virtual;
Function GetAnnotationsInstance : TAnnotationsResource;virtual;
- Function GetCallsetsInstance : TCallsetsResource;virtual;
Function GetDatasetsInstance : TDatasetsResource;virtual;
- Function GetExperimentalJobsInstance : TExperimentalJobsResource;virtual;
- Function GetExperimentalInstance : TExperimentalResource;virtual;
- Function GetJobsInstance : TJobsResource;virtual;
+ Function GetOperationsInstance : TOperationsResource;virtual;
Function GetReadgroupsetsCoveragebucketsInstance : TReadgroupsetsCoveragebucketsResource;virtual;
Function GetReadgroupsetsInstance : TReadgroupsetsResource;virtual;
Function GetReadsInstance : TReadsResource;virtual;
+ Function GetReferencesetsInstance : TReferencesetsResource;virtual;
Function GetReferencesBasesInstance : TReferencesBasesResource;virtual;
Function GetReferencesInstance : TReferencesResource;virtual;
- Function GetReferencesetsInstance : TReferencesetsResource;virtual;
Function GetVariantsInstance : TVariantsResource;virtual;
Function GetVariantsetsInstance : TVariantsetsResource;virtual;
+ Function GetCallsetsInstance : TCallsetsResource;virtual;
Public
//Override class functions with API info
Class Function APIName : String; override;
@@ -2802,73 +2887,80 @@ type
Class Function APINeedsAuth : Boolean;override;
Class Procedure RegisterAPIResources; override;
//Add create function for resources
- Function CreateAnnotationSetsResource(AOwner : TComponent) : TAnnotationSetsResource;virtual;overload;
- Function CreateAnnotationSetsResource : TAnnotationSetsResource;virtual;overload;
+ Function CreateAnnotationsetsResource(AOwner : TComponent) : TAnnotationsetsResource;virtual;overload;
+ Function CreateAnnotationsetsResource : TAnnotationsetsResource;virtual;overload;
Function CreateAnnotationsResource(AOwner : TComponent) : TAnnotationsResource;virtual;overload;
Function CreateAnnotationsResource : TAnnotationsResource;virtual;overload;
- Function CreateCallsetsResource(AOwner : TComponent) : TCallsetsResource;virtual;overload;
- Function CreateCallsetsResource : TCallsetsResource;virtual;overload;
Function CreateDatasetsResource(AOwner : TComponent) : TDatasetsResource;virtual;overload;
Function CreateDatasetsResource : TDatasetsResource;virtual;overload;
- Function CreateExperimentalJobsResource(AOwner : TComponent) : TExperimentalJobsResource;virtual;overload;
- Function CreateExperimentalJobsResource : TExperimentalJobsResource;virtual;overload;
- Function CreateExperimentalResource(AOwner : TComponent) : TExperimentalResource;virtual;overload;
- Function CreateExperimentalResource : TExperimentalResource;virtual;overload;
- Function CreateJobsResource(AOwner : TComponent) : TJobsResource;virtual;overload;
- Function CreateJobsResource : TJobsResource;virtual;overload;
+ Function CreateOperationsResource(AOwner : TComponent) : TOperationsResource;virtual;overload;
+ Function CreateOperationsResource : TOperationsResource;virtual;overload;
Function CreateReadgroupsetsCoveragebucketsResource(AOwner : TComponent) : TReadgroupsetsCoveragebucketsResource;virtual;overload;
Function CreateReadgroupsetsCoveragebucketsResource : TReadgroupsetsCoveragebucketsResource;virtual;overload;
Function CreateReadgroupsetsResource(AOwner : TComponent) : TReadgroupsetsResource;virtual;overload;
Function CreateReadgroupsetsResource : TReadgroupsetsResource;virtual;overload;
Function CreateReadsResource(AOwner : TComponent) : TReadsResource;virtual;overload;
Function CreateReadsResource : TReadsResource;virtual;overload;
+ Function CreateReferencesetsResource(AOwner : TComponent) : TReferencesetsResource;virtual;overload;
+ Function CreateReferencesetsResource : TReferencesetsResource;virtual;overload;
Function CreateReferencesBasesResource(AOwner : TComponent) : TReferencesBasesResource;virtual;overload;
Function CreateReferencesBasesResource : TReferencesBasesResource;virtual;overload;
Function CreateReferencesResource(AOwner : TComponent) : TReferencesResource;virtual;overload;
Function CreateReferencesResource : TReferencesResource;virtual;overload;
- Function CreateReferencesetsResource(AOwner : TComponent) : TReferencesetsResource;virtual;overload;
- Function CreateReferencesetsResource : TReferencesetsResource;virtual;overload;
Function CreateVariantsResource(AOwner : TComponent) : TVariantsResource;virtual;overload;
Function CreateVariantsResource : TVariantsResource;virtual;overload;
Function CreateVariantsetsResource(AOwner : TComponent) : TVariantsetsResource;virtual;overload;
Function CreateVariantsetsResource : TVariantsetsResource;virtual;overload;
+ Function CreateCallsetsResource(AOwner : TComponent) : TCallsetsResource;virtual;overload;
+ Function CreateCallsetsResource : TCallsetsResource;virtual;overload;
//Add default on-demand instances for resources
- Property AnnotationSetsResource : TAnnotationSetsResource Read GetAnnotationSetsInstance;
+ Property AnnotationsetsResource : TAnnotationsetsResource Read GetAnnotationsetsInstance;
Property AnnotationsResource : TAnnotationsResource Read GetAnnotationsInstance;
- Property CallsetsResource : TCallsetsResource Read GetCallsetsInstance;
Property DatasetsResource : TDatasetsResource Read GetDatasetsInstance;
- Property ExperimentalJobsResource : TExperimentalJobsResource Read GetExperimentalJobsInstance;
- Property ExperimentalResource : TExperimentalResource Read GetExperimentalInstance;
- Property JobsResource : TJobsResource Read GetJobsInstance;
+ Property OperationsResource : TOperationsResource Read GetOperationsInstance;
Property ReadgroupsetsCoveragebucketsResource : TReadgroupsetsCoveragebucketsResource Read GetReadgroupsetsCoveragebucketsInstance;
Property ReadgroupsetsResource : TReadgroupsetsResource Read GetReadgroupsetsInstance;
Property ReadsResource : TReadsResource Read GetReadsInstance;
+ Property ReferencesetsResource : TReferencesetsResource Read GetReferencesetsInstance;
Property ReferencesBasesResource : TReferencesBasesResource Read GetReferencesBasesInstance;
Property ReferencesResource : TReferencesResource Read GetReferencesInstance;
- Property ReferencesetsResource : TReferencesetsResource Read GetReferencesetsInstance;
Property VariantsResource : TVariantsResource Read GetVariantsInstance;
Property VariantsetsResource : TVariantsetsResource Read GetVariantsetsInstance;
+ Property CallsetsResource : TCallsetsResource Read GetCallsetsInstance;
end;
implementation
{ --------------------------------------------------------------------
- TAlignReadGroupSetsRequest
+ TAnnotationSetTypeinfo
--------------------------------------------------------------------}
-Procedure TAlignReadGroupSetsRequest.SetbamSourceUris(AIndex : Integer; AValue : TStringArray);
+Class Function TAnnotationSetTypeinfo.AllowAdditionalProperties : Boolean;
begin
- If (FbamSourceUris=AValue) then exit;
- FbamSourceUris:=AValue;
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAnnotationSet
+ --------------------------------------------------------------------}
+
+
+Procedure TAnnotationSet.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAlignReadGroupSetsRequest.SetdatasetId(AIndex : Integer; const AValue : String);
+Procedure TAnnotationSet.SetdatasetId(AIndex : Integer; const AValue : String);
begin
If (FdatasetId=AValue) then exit;
@@ -2878,185 +2970,203 @@ end;
-Procedure TAlignReadGroupSetsRequest.SetinterleavedFastqSource(AIndex : Integer; AValue : TInterleavedFastqSource);
+Procedure TAnnotationSet.SetreferenceSetId(AIndex : Integer; const AValue : String);
begin
- If (FinterleavedFastqSource=AValue) then exit;
- FinterleavedFastqSource:=AValue;
+ If (FreferenceSetId=AValue) then exit;
+ FreferenceSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAlignReadGroupSetsRequest.SetpairedFastqSource(AIndex : Integer; AValue : TPairedFastqSource);
+Procedure TAnnotationSet.Setname(AIndex : Integer; const AValue : String);
begin
- If (FpairedFastqSource=AValue) then exit;
- FpairedFastqSource:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAlignReadGroupSetsRequest.SetreadGroupSetId(AIndex : Integer; const AValue : String);
+Procedure TAnnotationSet.SetsourceUri(AIndex : Integer; const AValue : String);
begin
- If (FreadGroupSetId=AValue) then exit;
- FreadGroupSetId:=AValue;
+ If (FsourceUri=AValue) then exit;
+ FsourceUri:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TAlignReadGroupSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TAnnotationSet.Set_type(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'bamsourceuris' : SetLength(FbamSourceUris,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TAnnotationSet.Setinfo(AIndex : Integer; const AValue : TAnnotationSetTypeinfo);
-{ --------------------------------------------------------------------
- TAlignReadGroupSetsResponse
- --------------------------------------------------------------------}
+begin
+ If (Finfo=AValue) then exit;
+ Finfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TAlignReadGroupSetsResponse.SetjobId(AIndex : Integer; const AValue : String);
+
+Class Function TAnnotationSet.ExportPropertyName(Const AName : String) :String;
begin
- If (FjobId=AValue) then exit;
- FjobId:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
end;
-
{ --------------------------------------------------------------------
- TAnnotationTypeinfo
+ TEmpty
--------------------------------------------------------------------}
-Class Function TAnnotationTypeinfo.AllowAdditionalProperties : Boolean;
-
-begin
- Result:=True;
-end;
-
{ --------------------------------------------------------------------
- TAnnotation
+ TSearchAnnotationSetsRequest
--------------------------------------------------------------------}
-Procedure TAnnotation.SetannotationSetId(AIndex : Integer; const AValue : String);
+Procedure TSearchAnnotationSetsRequest.SetdatasetIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (FannotationSetId=AValue) then exit;
- FannotationSetId:=AValue;
+ If (FdatasetIds=AValue) then exit;
+ FdatasetIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAnnotation.Setid(AIndex : Integer; const AValue : String);
+Procedure TSearchAnnotationSetsRequest.SetreferenceSetId(AIndex : Integer; const AValue : String);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (FreferenceSetId=AValue) then exit;
+ FreferenceSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAnnotation.Setinfo(AIndex : Integer; AValue : TAnnotationTypeinfo);
+Procedure TSearchAnnotationSetsRequest.Setname(AIndex : Integer; const AValue : String);
begin
- If (Finfo=AValue) then exit;
- Finfo:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAnnotation.Setname(AIndex : Integer; const AValue : String);
+Procedure TSearchAnnotationSetsRequest.Settypes(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (Ftypes=AValue) then exit;
+ Ftypes:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAnnotation.Setposition(AIndex : Integer; AValue : TRangePosition);
+Procedure TSearchAnnotationSetsRequest.SetpageToken(AIndex : Integer; const AValue : String);
begin
- If (Fposition=AValue) then exit;
- Fposition:=AValue;
+ If (FpageToken=AValue) then exit;
+ FpageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAnnotation.Settranscript(AIndex : Integer; AValue : TTranscript);
+Procedure TSearchAnnotationSetsRequest.SetpageSize(AIndex : Integer; const AValue : integer);
begin
- If (Ftranscript=AValue) then exit;
- Ftranscript:=AValue;
+ If (FpageSize=AValue) then exit;
+ FpageSize:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSearchAnnotationSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
-Procedure TAnnotation.Set_type(AIndex : Integer; const AValue : String);
+begin
+ Case AName of
+ 'datasetids' : SetLength(FdatasetIds,ALength);
+ 'types' : SetLength(Ftypes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSearchAnnotationSetsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSearchAnnotationSetsResponse.SetannotationSets(AIndex : Integer; const AValue : TSearchAnnotationSetsResponseTypeannotationSetsArray);
begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
+ If (FannotationSets=AValue) then exit;
+ FannotationSets:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAnnotation.Setvariant(AIndex : Integer; AValue : TVariantAnnotation);
+Procedure TSearchAnnotationSetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (Fvariant=AValue) then exit;
- Fvariant:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Class Function TAnnotation.ExportPropertyName(Const AName : String) :String;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSearchAnnotationSetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- '_type' : Result:='type';
+ 'annotationsets' : SetLength(FannotationSets,ALength);
else
- Result:=Inherited ExportPropertyName(AName);
+ Inherited SetArrayLength(AName,ALength);
end;
end;
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TAnnotationSetTypeinfo
+ TAnnotationTypeinfo
--------------------------------------------------------------------}
-Class Function TAnnotationSetTypeinfo.AllowAdditionalProperties : Boolean;
+Class Function TAnnotationTypeinfo.AllowAdditionalProperties : Boolean;
begin
Result:=True;
@@ -3065,21 +3175,11 @@ end;
{ --------------------------------------------------------------------
- TAnnotationSet
+ TAnnotation
--------------------------------------------------------------------}
-Procedure TAnnotationSet.SetdatasetId(AIndex : Integer; const AValue : String);
-
-begin
- If (FdatasetId=AValue) then exit;
- FdatasetId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TAnnotationSet.Setid(AIndex : Integer; const AValue : String);
+Procedure TAnnotation.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
@@ -3089,17 +3189,17 @@ end;
-Procedure TAnnotationSet.Setinfo(AIndex : Integer; AValue : TAnnotationSetTypeinfo);
+Procedure TAnnotation.SetannotationSetId(AIndex : Integer; const AValue : String);
begin
- If (Finfo=AValue) then exit;
- Finfo:=AValue;
+ If (FannotationSetId=AValue) then exit;
+ FannotationSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAnnotationSet.Setname(AIndex : Integer; const AValue : String);
+Procedure TAnnotation.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
@@ -3109,248 +3209,203 @@ end;
-Procedure TAnnotationSet.SetreferenceSetId(AIndex : Integer; const AValue : String);
+Procedure TAnnotation.SetreferenceId(AIndex : Integer; const AValue : String);
begin
- If (FreferenceSetId=AValue) then exit;
- FreferenceSetId:=AValue;
+ If (FreferenceId=AValue) then exit;
+ FreferenceId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAnnotationSet.SetsourceUri(AIndex : Integer; const AValue : String);
+Procedure TAnnotation.SetreferenceName(AIndex : Integer; const AValue : String);
begin
- If (FsourceUri=AValue) then exit;
- FsourceUri:=AValue;
+ If (FreferenceName=AValue) then exit;
+ FreferenceName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TAnnotationSet.Set_type(AIndex : Integer; const AValue : String);
+Procedure TAnnotation.Setstart(AIndex : Integer; const AValue : String);
begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TAnnotationSet.ExportPropertyName(Const AName : String) :String;
+Procedure TAnnotation.Set_end(AIndex : Integer; const AValue : String);
begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
-end;
-
-
-
-
-{ --------------------------------------------------------------------
- TBatchAnnotationsResponse
- --------------------------------------------------------------------}
-
-
-Procedure TBatchAnnotationsResponse.Setentries(AIndex : Integer; AValue : TBatchAnnotationsResponseTypeentriesArray);
-
-begin
- If (Fentries=AValue) then exit;
- Fentries:=AValue;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TBatchAnnotationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
-begin
- Case AName of
- 'entries' : SetLength(Fentries,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
- TBatchAnnotationsResponseEntry
- --------------------------------------------------------------------}
-
-
-Procedure TBatchAnnotationsResponseEntry.Setannotation(AIndex : Integer; AValue : TAnnotation);
+Procedure TAnnotation.SetreverseStrand(AIndex : Integer; const AValue : boolean);
begin
- If (Fannotation=AValue) then exit;
- Fannotation:=AValue;
+ If (FreverseStrand=AValue) then exit;
+ FreverseStrand:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TBatchAnnotationsResponseEntry.Setstatus(AIndex : Integer; AValue : TBatchAnnotationsResponseEntryStatus);
+Procedure TAnnotation.Set_type(AIndex : Integer; const AValue : String);
begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TBatchAnnotationsResponseEntryStatus
- --------------------------------------------------------------------}
-
-
-Procedure TBatchAnnotationsResponseEntryStatus.Setcode(AIndex : Integer; AValue : integer);
+Procedure TAnnotation.Setvariant(AIndex : Integer; const AValue : TVariantAnnotation);
begin
- If (Fcode=AValue) then exit;
- Fcode:=AValue;
+ If (Fvariant=AValue) then exit;
+ Fvariant:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TBatchAnnotationsResponseEntryStatus.Setmessage(AIndex : Integer; const AValue : String);
+Procedure TAnnotation.Settranscript(AIndex : Integer; const AValue : TTranscript);
begin
- If (Fmessage=AValue) then exit;
- Fmessage:=AValue;
+ If (Ftranscript=AValue) then exit;
+ Ftranscript:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TBatchCreateAnnotationsRequest
- --------------------------------------------------------------------}
-
-
-Procedure TBatchCreateAnnotationsRequest.Setannotations(AIndex : Integer; AValue : TBatchCreateAnnotationsRequestTypeannotationsArray);
+Procedure TAnnotation.Setinfo(AIndex : Integer; const AValue : TAnnotationTypeinfo);
begin
- If (Fannotations=AValue) then exit;
- Fannotations:=AValue;
+ If (Finfo=AValue) then exit;
+ Finfo:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TBatchCreateAnnotationsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+Class Function TAnnotation.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
- 'annotations' : SetLength(Fannotations,ALength);
+ '_end' : Result:='end';
+ '_type' : Result:='type';
else
- Inherited SetArrayLength(AName,ALength);
+ Result:=Inherited ExportPropertyName(AName);
end;
end;
-{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TCallTypeinfo
+ TVariantAnnotation
--------------------------------------------------------------------}
-Class Function TCallTypeinfo.AllowAdditionalProperties : Boolean;
+Procedure TVariantAnnotation.Set_type(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TCall
- --------------------------------------------------------------------}
-
-
-Procedure TCall.SetcallSetId(AIndex : Integer; const AValue : String);
+Procedure TVariantAnnotation.Seteffect(AIndex : Integer; const AValue : String);
begin
- If (FcallSetId=AValue) then exit;
- FcallSetId:=AValue;
+ If (Feffect=AValue) then exit;
+ Feffect:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCall.SetcallSetName(AIndex : Integer; const AValue : String);
+Procedure TVariantAnnotation.SetalternateBases(AIndex : Integer; const AValue : String);
begin
- If (FcallSetName=AValue) then exit;
- FcallSetName:=AValue;
+ If (FalternateBases=AValue) then exit;
+ FalternateBases:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCall.Setgenotype(AIndex : Integer; AValue : TintegerArray);
+Procedure TVariantAnnotation.SetgeneId(AIndex : Integer; const AValue : String);
begin
- If (Fgenotype=AValue) then exit;
- Fgenotype:=AValue;
+ If (FgeneId=AValue) then exit;
+ FgeneId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCall.SetgenotypeLikelihood(AIndex : Integer; AValue : TdoubleArray);
+Procedure TVariantAnnotation.SettranscriptIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (FgenotypeLikelihood=AValue) then exit;
- FgenotypeLikelihood:=AValue;
+ If (FtranscriptIds=AValue) then exit;
+ FtranscriptIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCall.Setinfo(AIndex : Integer; AValue : TCallTypeinfo);
+Procedure TVariantAnnotation.Setconditions(AIndex : Integer; const AValue : TVariantAnnotationTypeconditionsArray);
begin
- If (Finfo=AValue) then exit;
- Finfo:=AValue;
+ If (Fconditions=AValue) then exit;
+ Fconditions:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCall.Setphaseset(AIndex : Integer; const AValue : String);
+Procedure TVariantAnnotation.SetclinicalSignificance(AIndex : Integer; const AValue : String);
begin
- If (Fphaseset=AValue) then exit;
- Fphaseset:=AValue;
+ If (FclinicalSignificance=AValue) then exit;
+ FclinicalSignificance:=AValue;
MarkPropertyChanged(AIndex);
end;
+
+Class Function TVariantAnnotation.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 TCall.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TVariantAnnotation.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'genotype' : SetLength(Fgenotype,ALength);
- 'genotypelikelihood' : SetLength(FgenotypeLikelihood,ALength);
+ 'transcriptids' : SetLength(FtranscriptIds,ALength);
+ 'conditions' : SetLength(Fconditions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3361,46 +3416,57 @@ end;
{ --------------------------------------------------------------------
- TCallReadGroupSetsRequest
+ TClinicalCondition
--------------------------------------------------------------------}
-Procedure TCallReadGroupSetsRequest.SetdatasetId(AIndex : Integer; const AValue : String);
+Procedure TClinicalCondition.Setnames(AIndex : Integer; const AValue : TStringArray);
begin
- If (FdatasetId=AValue) then exit;
- FdatasetId:=AValue;
+ If (Fnames=AValue) then exit;
+ Fnames:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCallReadGroupSetsRequest.SetreadGroupSetId(AIndex : Integer; const AValue : String);
+Procedure TClinicalCondition.SetexternalIds(AIndex : Integer; const AValue : TClinicalConditionTypeexternalIdsArray);
begin
- If (FreadGroupSetId=AValue) then exit;
- FreadGroupSetId:=AValue;
+ If (FexternalIds=AValue) then exit;
+ FexternalIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCallReadGroupSetsRequest.SetsourceUris(AIndex : Integer; AValue : TStringArray);
+Procedure TClinicalCondition.SetconceptId(AIndex : Integer; const AValue : String);
begin
- If (FsourceUris=AValue) then exit;
- FsourceUris:=AValue;
+ If (FconceptId=AValue) then exit;
+ FconceptId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClinicalCondition.SetomimId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FomimId=AValue) then exit;
+ FomimId:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TCallReadGroupSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TClinicalCondition.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'sourceuris' : SetLength(FsourceUris,ALength);
+ 'names' : SetLength(Fnames,ALength);
+ 'externalids' : SetLength(FexternalIds,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3411,51 +3477,21 @@ end;
{ --------------------------------------------------------------------
- TCallReadGroupSetsResponse
- --------------------------------------------------------------------}
-
-
-Procedure TCallReadGroupSetsResponse.SetjobId(AIndex : Integer; const AValue : String);
-
-begin
- If (FjobId=AValue) then exit;
- FjobId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
- TCallSetTypeinfo
- --------------------------------------------------------------------}
-
-
-Class Function TCallSetTypeinfo.AllowAdditionalProperties : Boolean;
-
-begin
- Result:=True;
-end;
-
-
-
-{ --------------------------------------------------------------------
- TCallSet
+ TExternalId
--------------------------------------------------------------------}
-Procedure TCallSet.Setcreated(AIndex : Integer; const AValue : String);
+Procedure TExternalId.SetsourceName(AIndex : Integer; const AValue : String);
begin
- If (Fcreated=AValue) then exit;
- Fcreated:=AValue;
+ If (FsourceName=AValue) then exit;
+ FsourceName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCallSet.Setid(AIndex : Integer; const AValue : String);
+Procedure TExternalId.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
@@ -3465,52 +3501,49 @@ end;
-Procedure TCallSet.Setinfo(AIndex : Integer; AValue : TCallSetTypeinfo);
-begin
- If (Finfo=AValue) then exit;
- Finfo:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TTranscript
+ --------------------------------------------------------------------}
-Procedure TCallSet.Setname(AIndex : Integer; const AValue : String);
+Procedure TTranscript.SetgeneId(AIndex : Integer; const AValue : String);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (FgeneId=AValue) then exit;
+ FgeneId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCallSet.SetsampleId(AIndex : Integer; const AValue : String);
+Procedure TTranscript.Setexons(AIndex : Integer; const AValue : TTranscriptTypeexonsArray);
begin
- If (FsampleId=AValue) then exit;
- FsampleId:=AValue;
+ If (Fexons=AValue) then exit;
+ Fexons:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCallSet.SetvariantSetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TTranscript.SetcodingSequence(AIndex : Integer; const AValue : TCodingSequence);
begin
- If (FvariantSetIds=AValue) then exit;
- FvariantSetIds:=AValue;
+ If (FcodingSequence=AValue) then exit;
+ FcodingSequence:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TCallSet.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TTranscript.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'variantsetids' : SetLength(FvariantSetIds,ALength);
+ 'exons' : SetLength(Fexons,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3521,188 +3554,142 @@ end;
{ --------------------------------------------------------------------
- TCigarUnit
+ TExon
--------------------------------------------------------------------}
-Procedure TCigarUnit.Setoperation(AIndex : Integer; const AValue : String);
+Procedure TExon.Setstart(AIndex : Integer; const AValue : String);
begin
- If (Foperation=AValue) then exit;
- Foperation:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TCigarUnit.SetoperationLength(AIndex : Integer; const AValue : String);
-
-begin
- If (FoperationLength=AValue) then exit;
- FoperationLength:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCigarUnit.SetreferenceSequence(AIndex : Integer; const AValue : String);
+Procedure TExon.Set_end(AIndex : Integer; const AValue : String);
begin
- If (FreferenceSequence=AValue) then exit;
- FreferenceSequence:=AValue;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TCoverageBucket
- --------------------------------------------------------------------}
-
-
-Procedure TCoverageBucket.SetmeanCoverage(AIndex : Integer; AValue : integer);
+Procedure TExon.Setframe(AIndex : Integer; const AValue : integer);
begin
- If (FmeanCoverage=AValue) then exit;
- FmeanCoverage:=AValue;
+ If (Fframe=AValue) then exit;
+ Fframe:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TCoverageBucket.Setrange(AIndex : Integer; AValue : TRange);
+Class Function TExon.ExportPropertyName(Const AName : String) :String;
begin
- If (Frange=AValue) then exit;
- Frange:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ '_end' : Result:='end';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
end;
-
{ --------------------------------------------------------------------
- TDataset
+ TCodingSequence
--------------------------------------------------------------------}
-Procedure TDataset.Setid(AIndex : Integer; const AValue : String);
+Procedure TCodingSequence.Setstart(AIndex : Integer; const AValue : String);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TDataset.SetisPublic(AIndex : Integer; AValue : boolean);
-
-begin
- If (FisPublic=AValue) then exit;
- FisPublic:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDataset.Setname(AIndex : Integer; const AValue : String);
+Procedure TCodingSequence.Set_end(AIndex : Integer; const AValue : String);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TDataset.SetprojectNumber(AIndex : Integer; const AValue : String);
+Class Function TCodingSequence.ExportPropertyName(Const AName : String) :String;
begin
- If (FprojectNumber=AValue) then exit;
- FprojectNumber:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ '_end' : Result:='end';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
end;
-
{ --------------------------------------------------------------------
- TExperimentalCreateJobRequest
+ TBatchCreateAnnotationsRequest
--------------------------------------------------------------------}
-Procedure TExperimentalCreateJobRequest.Setalign(AIndex : Integer; AValue : boolean);
-
-begin
- If (Falign=AValue) then exit;
- Falign:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TExperimentalCreateJobRequest.SetcallVariants(AIndex : Integer; AValue : boolean);
+Procedure TBatchCreateAnnotationsRequest.Setannotations(AIndex : Integer; const AValue : TBatchCreateAnnotationsRequestTypeannotationsArray);
begin
- If (FcallVariants=AValue) then exit;
- FcallVariants:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TExperimentalCreateJobRequest.SetgcsOutputPath(AIndex : Integer; const AValue : String);
-
-begin
- If (FgcsOutputPath=AValue) then exit;
- FgcsOutputPath:=AValue;
+ If (Fannotations=AValue) then exit;
+ Fannotations:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TExperimentalCreateJobRequest.SetpairedSourceUris(AIndex : Integer; AValue : TStringArray);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchCreateAnnotationsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FpairedSourceUris=AValue) then exit;
- FpairedSourceUris:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'annotations' : SetLength(Fannotations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Procedure TExperimentalCreateJobRequest.SetprojectNumber(AIndex : Integer; const AValue : String);
-
-begin
- If (FprojectNumber=AValue) then exit;
- FprojectNumber:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TBatchCreateAnnotationsResponse
+ --------------------------------------------------------------------}
-Procedure TExperimentalCreateJobRequest.SetsourceUris(AIndex : Integer; AValue : TStringArray);
+Procedure TBatchCreateAnnotationsResponse.Setentries(AIndex : Integer; const AValue : TBatchCreateAnnotationsResponseTypeentriesArray);
begin
- If (FsourceUris=AValue) then exit;
- FsourceUris:=AValue;
+ If (Fentries=AValue) then exit;
+ Fentries:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TExperimentalCreateJobRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TBatchCreateAnnotationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'pairedsourceuris' : SetLength(FpairedSourceUris,ALength);
- 'sourceuris' : SetLength(FsourceUris,ALength);
+ 'entries' : SetLength(Fentries,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3713,15 +3700,25 @@ end;
{ --------------------------------------------------------------------
- TExperimentalCreateJobResponse
+ TEntry
--------------------------------------------------------------------}
-Procedure TExperimentalCreateJobResponse.SetjobId(AIndex : Integer; const AValue : String);
+Procedure TEntry.Setstatus(AIndex : Integer; const AValue : TStatus);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEntry.Setannotation(AIndex : Integer; const AValue : TAnnotation);
begin
- If (FjobId=AValue) then exit;
- FjobId:=AValue;
+ If (Fannotation=AValue) then exit;
+ Fannotation:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -3730,57 +3727,59 @@ end;
{ --------------------------------------------------------------------
- TExportReadGroupSetsRequest
+ TStatusTypedetailsItem
--------------------------------------------------------------------}
-Procedure TExportReadGroupSetsRequest.SetexportUri(AIndex : Integer; const AValue : String);
+Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
begin
- If (FexportUri=AValue) then exit;
- FexportUri:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TExportReadGroupSetsRequest.SetprojectNumber(AIndex : Integer; const AValue : String);
+{ --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
begin
- If (FprojectNumber=AValue) then exit;
- FprojectNumber:=AValue;
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TExportReadGroupSetsRequest.SetreadGroupSetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
begin
- If (FreadGroupSetIds=AValue) then exit;
- FreadGroupSetIds:=AValue;
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TExportReadGroupSetsRequest.SetreferenceNames(AIndex : Integer; AValue : TStringArray);
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
begin
- If (FreferenceNames=AValue) then exit;
- FreferenceNames:=AValue;
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TExportReadGroupSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'readgroupsetids' : SetLength(FreadGroupSetIds,ALength);
- 'referencenames' : SetLength(FreferenceNames,ALength);
+ 'details' : SetLength(Fdetails,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3791,83 +3790,97 @@ end;
{ --------------------------------------------------------------------
- TExportReadGroupSetsResponse
+ TSearchAnnotationsRequest
--------------------------------------------------------------------}
-Procedure TExportReadGroupSetsResponse.SetjobId(AIndex : Integer; const AValue : String);
+Procedure TSearchAnnotationsRequest.SetannotationSetIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (FjobId=AValue) then exit;
- FjobId:=AValue;
+ If (FannotationSetIds=AValue) then exit;
+ FannotationSetIds:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TSearchAnnotationsRequest.SetreferenceId(AIndex : Integer; const AValue : String);
+begin
+ If (FreferenceId=AValue) then exit;
+ FreferenceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TExportVariantSetRequest
- --------------------------------------------------------------------}
-Procedure TExportVariantSetRequest.SetbigqueryDataset(AIndex : Integer; const AValue : String);
+Procedure TSearchAnnotationsRequest.SetreferenceName(AIndex : Integer; const AValue : String);
begin
- If (FbigqueryDataset=AValue) then exit;
- FbigqueryDataset:=AValue;
+ If (FreferenceName=AValue) then exit;
+ FreferenceName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TExportVariantSetRequest.SetbigqueryTable(AIndex : Integer; const AValue : String);
+Procedure TSearchAnnotationsRequest.Setstart(AIndex : Integer; const AValue : String);
begin
- If (FbigqueryTable=AValue) then exit;
- FbigqueryTable:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TExportVariantSetRequest.SetcallSetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TSearchAnnotationsRequest.Set_end(AIndex : Integer; const AValue : String);
begin
- If (FcallSetIds=AValue) then exit;
- FcallSetIds:=AValue;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TExportVariantSetRequest.Setformat(AIndex : Integer; const AValue : String);
+Procedure TSearchAnnotationsRequest.SetpageToken(AIndex : Integer; const AValue : String);
begin
- If (Fformat=AValue) then exit;
- Fformat:=AValue;
+ If (FpageToken=AValue) then exit;
+ FpageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TExportVariantSetRequest.SetprojectNumber(AIndex : Integer; const AValue : String);
+Procedure TSearchAnnotationsRequest.SetpageSize(AIndex : Integer; const AValue : integer);
begin
- If (FprojectNumber=AValue) then exit;
- FprojectNumber:=AValue;
+ If (FpageSize=AValue) then exit;
+ FpageSize:=AValue;
MarkPropertyChanged(AIndex);
end;
+
+Class Function TSearchAnnotationsRequest.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_end' : Result:='end';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TExportVariantSetRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSearchAnnotationsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'callsetids' : SetLength(FcallSetIds,ALength);
+ 'annotationsetids' : SetLength(FannotationSetIds,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -3878,157 +3891,197 @@ end;
{ --------------------------------------------------------------------
- TExportVariantSetResponse
+ TSearchAnnotationsResponse
--------------------------------------------------------------------}
-Procedure TExportVariantSetResponse.SetjobId(AIndex : Integer; const AValue : String);
+Procedure TSearchAnnotationsResponse.Setannotations(AIndex : Integer; const AValue : TSearchAnnotationsResponseTypeannotationsArray);
begin
- If (FjobId=AValue) then exit;
- FjobId:=AValue;
+ If (Fannotations=AValue) then exit;
+ Fannotations:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TSearchAnnotationsResponse.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 TSearchAnnotationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'annotations' : SetLength(Fannotations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
{ --------------------------------------------------------------------
- TExternalId
+ TListDatasetsResponse
--------------------------------------------------------------------}
-Procedure TExternalId.Setid(AIndex : Integer; const AValue : String);
+Procedure TListDatasetsResponse.Setdatasets(AIndex : Integer; const AValue : TListDatasetsResponseTypedatasetsArray);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (Fdatasets=AValue) then exit;
+ Fdatasets:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TExternalId.SetsourceName(AIndex : Integer; const AValue : String);
+Procedure TListDatasetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (FsourceName=AValue) then exit;
- FsourceName:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListDatasetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'datasets' : SetLength(Fdatasets,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
{ --------------------------------------------------------------------
- TFastqMetadata
+ TDataset
--------------------------------------------------------------------}
-Procedure TFastqMetadata.SetlibraryName(AIndex : Integer; const AValue : String);
+Procedure TDataset.Setid(AIndex : Integer; const AValue : String);
begin
- If (FlibraryName=AValue) then exit;
- FlibraryName:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFastqMetadata.SetplatformName(AIndex : Integer; const AValue : String);
+Procedure TDataset.SetprojectId(AIndex : Integer; const AValue : String);
begin
- If (FplatformName=AValue) then exit;
- FplatformName:=AValue;
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFastqMetadata.SetplatformUnit(AIndex : Integer; const AValue : String);
+Procedure TDataset.Setname(AIndex : Integer; const AValue : String);
begin
- If (FplatformUnit=AValue) then exit;
- FplatformUnit:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFastqMetadata.SetreadGroupName(AIndex : Integer; const AValue : String);
+Procedure TDataset.SetcreateTime(AIndex : Integer; const AValue : String);
begin
- If (FreadGroupName=AValue) then exit;
- FreadGroupName:=AValue;
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TFastqMetadata.SetsampleName(AIndex : Integer; const AValue : String);
-begin
- If (FsampleName=AValue) then exit;
- FsampleName:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TUndeleteDatasetRequest
+ --------------------------------------------------------------------}
{ --------------------------------------------------------------------
- TImportReadGroupSetsRequest
+ TSetIamPolicyRequest
--------------------------------------------------------------------}
-Procedure TImportReadGroupSetsRequest.SetdatasetId(AIndex : Integer; const AValue : String);
+Procedure TSetIamPolicyRequest.Setpolicy(AIndex : Integer; const AValue : TPolicy);
begin
- If (FdatasetId=AValue) then exit;
- FdatasetId:=AValue;
+ If (Fpolicy=AValue) then exit;
+ Fpolicy:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TImportReadGroupSetsRequest.SetpartitionStrategy(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TPolicy
+ --------------------------------------------------------------------}
+
+
+Procedure TPolicy.Setversion(AIndex : Integer; const AValue : integer);
begin
- If (FpartitionStrategy=AValue) then exit;
- FpartitionStrategy:=AValue;
+ If (Fversion=AValue) then exit;
+ Fversion:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TImportReadGroupSetsRequest.SetreferenceSetId(AIndex : Integer; const AValue : String);
+Procedure TPolicy.Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray);
begin
- If (FreferenceSetId=AValue) then exit;
- FreferenceSetId:=AValue;
+ If (Fbindings=AValue) then exit;
+ Fbindings:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TImportReadGroupSetsRequest.SetsourceUris(AIndex : Integer; AValue : TStringArray);
+Procedure TPolicy.Setetag(AIndex : Integer; const AValue : String);
begin
- If (FsourceUris=AValue) then exit;
- FsourceUris:=AValue;
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TImportReadGroupSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TPolicy.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'sourceuris' : SetLength(FsourceUris,ALength);
+ 'bindings' : SetLength(Fbindings,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4039,53 +4092,36 @@ end;
{ --------------------------------------------------------------------
- TImportReadGroupSetsResponse
+ TBinding
--------------------------------------------------------------------}
-Procedure TImportReadGroupSetsResponse.SetjobId(AIndex : Integer; const AValue : String);
+Procedure TBinding.Setrole(AIndex : Integer; const AValue : String);
begin
- If (FjobId=AValue) then exit;
- FjobId:=AValue;
+ If (Frole=AValue) then exit;
+ Frole:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-
-{ --------------------------------------------------------------------
- TImportVariantsRequest
- --------------------------------------------------------------------}
-
-
-Procedure TImportVariantsRequest.Setformat(AIndex : Integer; const AValue : String);
+Procedure TBinding.Setmembers(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fformat=AValue) then exit;
- Fformat:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TImportVariantsRequest.SetsourceUris(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FsourceUris=AValue) then exit;
- FsourceUris:=AValue;
+ If (Fmembers=AValue) then exit;
+ Fmembers:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TImportVariantsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TBinding.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'sourceuris' : SetLength(FsourceUris,ALength);
+ 'members' : SetLength(Fmembers,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4096,70 +4132,63 @@ end;
{ --------------------------------------------------------------------
- TImportVariantsResponse
+ TGetIamPolicyRequest
--------------------------------------------------------------------}
-Procedure TImportVariantsResponse.SetjobId(AIndex : Integer; const AValue : String);
-
-begin
- If (FjobId=AValue) then exit;
- FjobId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
{ --------------------------------------------------------------------
- TInt32Value
+ TTestIamPermissionsRequest
--------------------------------------------------------------------}
-Procedure TInt32Value.Setvalue(AIndex : Integer; AValue : integer);
+Procedure TTestIamPermissionsRequest.Setpermissions(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestIamPermissionsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+begin
+ Case AName of
+ 'permissions' : SetLength(Fpermissions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
-{ --------------------------------------------------------------------
- TInterleavedFastqSource
- --------------------------------------------------------------------}
-
-
-Procedure TInterleavedFastqSource.Setmetadata(AIndex : Integer; AValue : TFastqMetadata);
-begin
- If (Fmetadata=AValue) then exit;
- Fmetadata:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TTestIamPermissionsResponse
+ --------------------------------------------------------------------}
-Procedure TInterleavedFastqSource.SetsourceUris(AIndex : Integer; AValue : TStringArray);
+Procedure TTestIamPermissionsResponse.Setpermissions(AIndex : Integer; const AValue : TStringArray);
begin
- If (FsourceUris=AValue) then exit;
- FsourceUris:=AValue;
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TInterleavedFastqSource.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TTestIamPermissionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'sourceuris' : SetLength(FsourceUris,ALength);
+ 'permissions' : SetLength(Fpermissions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4170,108 +4199,119 @@ end;
{ --------------------------------------------------------------------
- TJob
+ TOperationTypemetadata
--------------------------------------------------------------------}
-Procedure TJob.Setcreated(AIndex : Integer; const AValue : String);
+Class Function TOperationTypemetadata.AllowAdditionalProperties : Boolean;
begin
- If (Fcreated=AValue) then exit;
- Fcreated:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TJob.SetdetailedStatus(AIndex : Integer; const AValue : String);
+{ --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTyperesponse.AllowAdditionalProperties : Boolean;
begin
- If (FdetailedStatus=AValue) then exit;
- FdetailedStatus:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TJob.Seterrors(AIndex : Integer; AValue : TStringArray);
+{ --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
begin
- If (Ferrors=AValue) then exit;
- Ferrors:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.Setid(AIndex : Integer; const AValue : String);
+Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.SetimportedIds(AIndex : Integer; AValue : TStringArray);
+Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
begin
- If (FimportedIds=AValue) then exit;
- FimportedIds:=AValue;
+ If (Fdone=AValue) then exit;
+ Fdone:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.SetprojectNumber(AIndex : Integer; const AValue : String);
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
begin
- If (FprojectNumber=AValue) then exit;
- FprojectNumber:=AValue;
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.Setrequest(AIndex : Integer; AValue : TJobRequest);
+Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
begin
- If (Frequest=AValue) then exit;
- Frequest:=AValue;
+ If (Fresponse=AValue) then exit;
+ Fresponse:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.Setstatus(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TListOperationsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListOperationsResponse.Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray);
begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
+ If (Foperations=AValue) then exit;
+ Foperations:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJob.Setwarnings(AIndex : Integer; AValue : TStringArray);
+Procedure TListOperationsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (Fwarnings=AValue) then exit;
- Fwarnings:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TJob.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'errors' : SetLength(Ferrors,ALength);
- 'importedids' : SetLength(FimportedIds,ALength);
- 'warnings' : SetLength(Fwarnings,ALength);
+ 'operations' : SetLength(Foperations,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4282,58 +4322,63 @@ end;
{ --------------------------------------------------------------------
- TJobRequest
+ TCancelOperationRequest
--------------------------------------------------------------------}
-Procedure TJobRequest.Setdestination(AIndex : Integer; AValue : TStringArray);
+
+
+{ --------------------------------------------------------------------
+ TImportReadGroupSetsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TImportReadGroupSetsRequest.SetdatasetId(AIndex : Integer; const AValue : String);
begin
- If (Fdestination=AValue) then exit;
- Fdestination:=AValue;
+ If (FdatasetId=AValue) then exit;
+ FdatasetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJobRequest.Setsource(AIndex : Integer; AValue : TStringArray);
+Procedure TImportReadGroupSetsRequest.SetreferenceSetId(AIndex : Integer; const AValue : String);
begin
- If (Fsource=AValue) then exit;
- Fsource:=AValue;
+ If (FreferenceSetId=AValue) then exit;
+ FreferenceSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TJobRequest.Set_type(AIndex : Integer; const AValue : String);
+Procedure TImportReadGroupSetsRequest.SetsourceUris(AIndex : Integer; const AValue : TStringArray);
begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
+ If (FsourceUris=AValue) then exit;
+ FsourceUris:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TJobRequest.ExportPropertyName(Const AName : String) :String;
+Procedure TImportReadGroupSetsRequest.SetpartitionStrategy(AIndex : Integer; const AValue : String);
begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
+ If (FpartitionStrategy=AValue) then exit;
+ FpartitionStrategy:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TJobRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TImportReadGroupSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'destination' : SetLength(Fdestination,ALength);
- 'source' : SetLength(Fsource,ALength);
+ 'sourceuris' : SetLength(FsourceUris,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4344,46 +4389,46 @@ end;
{ --------------------------------------------------------------------
- TLinearAlignment
+ TExportReadGroupSetRequest
--------------------------------------------------------------------}
-Procedure TLinearAlignment.Setcigar(AIndex : Integer; AValue : TLinearAlignmentTypecigarArray);
+Procedure TExportReadGroupSetRequest.SetprojectId(AIndex : Integer; const AValue : String);
begin
- If (Fcigar=AValue) then exit;
- Fcigar:=AValue;
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLinearAlignment.SetmappingQuality(AIndex : Integer; AValue : integer);
+Procedure TExportReadGroupSetRequest.SetexportUri(AIndex : Integer; const AValue : String);
begin
- If (FmappingQuality=AValue) then exit;
- FmappingQuality:=AValue;
+ If (FexportUri=AValue) then exit;
+ FexportUri:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLinearAlignment.Setposition(AIndex : Integer; AValue : TPosition);
+Procedure TExportReadGroupSetRequest.SetreferenceNames(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fposition=AValue) then exit;
- Fposition:=AValue;
+ If (FreferenceNames=AValue) then exit;
+ FreferenceNames:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TLinearAlignment.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TExportReadGroupSetRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'cigar' : SetLength(Fcigar,ALength);
+ 'referencenames' : SetLength(FreferenceNames,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4394,68 +4439,81 @@ end;
{ --------------------------------------------------------------------
- TListBasesResponse
+ TSearchReadGroupSetsRequest
--------------------------------------------------------------------}
-Procedure TListBasesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TSearchReadGroupSetsRequest.SetdatasetIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (FdatasetIds=AValue) then exit;
+ FdatasetIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TListBasesResponse.Setoffset(AIndex : Integer; const AValue : String);
+Procedure TSearchReadGroupSetsRequest.Setname(AIndex : Integer; const AValue : String);
begin
- If (Foffset=AValue) then exit;
- Foffset:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TListBasesResponse.Setsequence(AIndex : Integer; const AValue : String);
+Procedure TSearchReadGroupSetsRequest.SetpageToken(AIndex : Integer; const AValue : String);
begin
- If (Fsequence=AValue) then exit;
- Fsequence:=AValue;
+ If (FpageToken=AValue) then exit;
+ FpageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TSearchReadGroupSetsRequest.SetpageSize(AIndex : Integer; const AValue : integer);
-
-{ --------------------------------------------------------------------
- TListCoverageBucketsResponse
- --------------------------------------------------------------------}
+begin
+ If (FpageSize=AValue) then exit;
+ FpageSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TListCoverageBucketsResponse.SetbucketWidth(AIndex : Integer; const AValue : String);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSearchReadGroupSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FbucketWidth=AValue) then exit;
- FbucketWidth:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'datasetids' : SetLength(FdatasetIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Procedure TListCoverageBucketsResponse.SetcoverageBuckets(AIndex : Integer; AValue : TListCoverageBucketsResponseTypecoverageBucketsArray);
+
+{ --------------------------------------------------------------------
+ TSearchReadGroupSetsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSearchReadGroupSetsResponse.SetreadGroupSets(AIndex : Integer; const AValue : TSearchReadGroupSetsResponseTypereadGroupSetsArray);
begin
- If (FcoverageBuckets=AValue) then exit;
- FcoverageBuckets:=AValue;
+ If (FreadGroupSets=AValue) then exit;
+ FreadGroupSets:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TListCoverageBucketsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TSearchReadGroupSetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
@@ -4466,11 +4524,11 @@ end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TListCoverageBucketsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSearchReadGroupSetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'coveragebuckets' : SetLength(FcoverageBuckets,ALength);
+ 'readgroupsets' : SetLength(FreadGroupSets,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4481,66 +4539,99 @@ end;
{ --------------------------------------------------------------------
- TListDatasetsResponse
+ TReadGroupSetTypeinfo
--------------------------------------------------------------------}
-Procedure TListDatasetsResponse.Setdatasets(AIndex : Integer; AValue : TListDatasetsResponseTypedatasetsArray);
+Class Function TReadGroupSetTypeinfo.AllowAdditionalProperties : Boolean;
begin
- If (Fdatasets=AValue) then exit;
- Fdatasets:=AValue;
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TReadGroupSet
+ --------------------------------------------------------------------}
+
+
+Procedure TReadGroupSet.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TListDatasetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TReadGroupSet.SetdatasetId(AIndex : Integer; const AValue : String);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (FdatasetId=AValue) then exit;
+ FdatasetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TListDatasetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TReadGroupSet.SetreferenceSetId(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'datasets' : SetLength(Fdatasets,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FreferenceSetId=AValue) then exit;
+ FreferenceSetId:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TReadGroupSet.Setname(AIndex : Integer; const AValue : String);
-{ --------------------------------------------------------------------
- TMergeVariantsRequest
- --------------------------------------------------------------------}
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TMergeVariantsRequest.Setvariants(AIndex : Integer; AValue : TMergeVariantsRequestTypevariantsArray);
+
+Procedure TReadGroupSet.Setfilename(AIndex : Integer; const AValue : String);
begin
- If (Fvariants=AValue) then exit;
- Fvariants:=AValue;
+ If (Ffilename=AValue) then exit;
+ Ffilename:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReadGroupSet.SetreadGroups(AIndex : Integer; const AValue : TReadGroupSetTypereadGroupsArray);
+
+begin
+ If (FreadGroups=AValue) then exit;
+ FreadGroups:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReadGroupSet.Setinfo(AIndex : Integer; const AValue : TReadGroupSetTypeinfo);
+
+begin
+ If (Finfo=AValue) then exit;
+ Finfo:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TMergeVariantsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TReadGroupSet.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'variants' : SetLength(Fvariants,ALength);
+ 'readgroups' : SetLength(FreadGroups,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4551,11 +4642,11 @@ end;
{ --------------------------------------------------------------------
- TMetadataTypeinfo
+ TReadGroupTypeinfo
--------------------------------------------------------------------}
-Class Function TMetadataTypeinfo.AllowAdditionalProperties : Boolean;
+Class Function TReadGroupTypeinfo.AllowAdditionalProperties : Boolean;
begin
Result:=True;
@@ -4564,21 +4655,11 @@ end;
{ --------------------------------------------------------------------
- TMetadata
+ TReadGroup
--------------------------------------------------------------------}
-Procedure TMetadata.Setdescription(AIndex : Integer; const AValue : String);
-
-begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMetadata.Setid(AIndex : Integer; const AValue : String);
+Procedure TReadGroup.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
@@ -4588,111 +4669,102 @@ end;
-Procedure TMetadata.Setinfo(AIndex : Integer; AValue : TMetadataTypeinfo);
+Procedure TReadGroup.SetdatasetId(AIndex : Integer; const AValue : String);
begin
- If (Finfo=AValue) then exit;
- Finfo:=AValue;
+ If (FdatasetId=AValue) then exit;
+ FdatasetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMetadata.Setkey(AIndex : Integer; const AValue : String);
+Procedure TReadGroup.Setname(AIndex : Integer; const AValue : String);
begin
- If (Fkey=AValue) then exit;
- Fkey:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMetadata.Setnumber(AIndex : Integer; const AValue : String);
+Procedure TReadGroup.Setdescription(AIndex : Integer; const AValue : String);
begin
- If (Fnumber=AValue) then exit;
- Fnumber:=AValue;
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMetadata.Set_type(AIndex : Integer; const AValue : String);
+Procedure TReadGroup.SetsampleId(AIndex : Integer; const AValue : String);
begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
+ If (FsampleId=AValue) then exit;
+ FsampleId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TMetadata.Setvalue(AIndex : Integer; const AValue : String);
+Procedure TReadGroup.Setexperiment(AIndex : Integer; const AValue : TExperiment);
begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
+ If (Fexperiment=AValue) then exit;
+ Fexperiment:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TMetadata.ExportPropertyName(Const AName : String) :String;
+Procedure TReadGroup.SetpredictedInsertSize(AIndex : Integer; const AValue : integer);
begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
+ If (FpredictedInsertSize=AValue) then exit;
+ FpredictedInsertSize:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-
-{ --------------------------------------------------------------------
- TPairedFastqSource
- --------------------------------------------------------------------}
-
-
-Procedure TPairedFastqSource.SetfirstSourceUris(AIndex : Integer; AValue : TStringArray);
+Procedure TReadGroup.Setprograms(AIndex : Integer; const AValue : TReadGroupTypeprogramsArray);
begin
- If (FfirstSourceUris=AValue) then exit;
- FfirstSourceUris:=AValue;
+ If (Fprograms=AValue) then exit;
+ Fprograms:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPairedFastqSource.Setmetadata(AIndex : Integer; AValue : TFastqMetadata);
+Procedure TReadGroup.SetreferenceSetId(AIndex : Integer; const AValue : String);
begin
- If (Fmetadata=AValue) then exit;
- Fmetadata:=AValue;
+ If (FreferenceSetId=AValue) then exit;
+ FreferenceSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPairedFastqSource.SetsecondSourceUris(AIndex : Integer; AValue : TStringArray);
+Procedure TReadGroup.Setinfo(AIndex : Integer; const AValue : TReadGroupTypeinfo);
begin
- If (FsecondSourceUris=AValue) then exit;
- FsecondSourceUris:=AValue;
+ If (Finfo=AValue) then exit;
+ Finfo:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TPairedFastqSource.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TReadGroup.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'firstsourceuris' : SetLength(FfirstSourceUris,ALength);
- 'secondsourceuris' : SetLength(FsecondSourceUris,ALength);
+ 'programs' : SetLength(Fprograms,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -4703,35 +4775,45 @@ end;
{ --------------------------------------------------------------------
- TPosition
+ TExperiment
--------------------------------------------------------------------}
-Procedure TPosition.Setposition(AIndex : Integer; const AValue : String);
+Procedure TExperiment.SetlibraryId(AIndex : Integer; const AValue : String);
begin
- If (Fposition=AValue) then exit;
- Fposition:=AValue;
+ If (FlibraryId=AValue) then exit;
+ FlibraryId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPosition.SetreferenceName(AIndex : Integer; const AValue : String);
+Procedure TExperiment.SetplatformUnit(AIndex : Integer; const AValue : String);
begin
- If (FreferenceName=AValue) then exit;
- FreferenceName:=AValue;
+ If (FplatformUnit=AValue) then exit;
+ FplatformUnit:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPosition.SetreverseStrand(AIndex : Integer; AValue : boolean);
+Procedure TExperiment.SetsequencingCenter(AIndex : Integer; const AValue : String);
begin
- If (FreverseStrand=AValue) then exit;
- FreverseStrand:=AValue;
+ If (FsequencingCenter=AValue) then exit;
+ FsequencingCenter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperiment.SetinstrumentModel(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstrumentModel=AValue) then exit;
+ FinstrumentModel:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -4740,137 +4822,145 @@ end;
{ --------------------------------------------------------------------
- TQueryRange
+ TProgram
--------------------------------------------------------------------}
-Procedure TQueryRange.Set_end(AIndex : Integer; const AValue : String);
+Procedure TProgram.SetcommandLine(AIndex : Integer; const AValue : String);
begin
- If (F_end=AValue) then exit;
- F_end:=AValue;
+ If (FcommandLine=AValue) then exit;
+ FcommandLine:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TQueryRange.SetreferenceId(AIndex : Integer; const AValue : String);
+Procedure TProgram.Setid(AIndex : Integer; const AValue : String);
begin
- If (FreferenceId=AValue) then exit;
- FreferenceId:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TQueryRange.SetreferenceName(AIndex : Integer; const AValue : String);
+Procedure TProgram.Setname(AIndex : Integer; const AValue : String);
begin
- If (FreferenceName=AValue) then exit;
- FreferenceName:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TQueryRange.Setstart(AIndex : Integer; const AValue : String);
+Procedure TProgram.SetprevProgramId(AIndex : Integer; const AValue : String);
begin
- If (Fstart=AValue) then exit;
- Fstart:=AValue;
+ If (FprevProgramId=AValue) then exit;
+ FprevProgramId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TQueryRange.ExportPropertyName(Const AName : String) :String;
+Procedure TProgram.Setversion(AIndex : Integer; const AValue : String);
begin
- Case AName of
- '_end' : Result:='end';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
+ If (Fversion=AValue) then exit;
+ Fversion:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
{ --------------------------------------------------------------------
- TRange
+ TListCoverageBucketsResponse
--------------------------------------------------------------------}
-Procedure TRange.Set_end(AIndex : Integer; const AValue : String);
+Procedure TListCoverageBucketsResponse.SetbucketWidth(AIndex : Integer; const AValue : String);
begin
- If (F_end=AValue) then exit;
- F_end:=AValue;
+ If (FbucketWidth=AValue) then exit;
+ FbucketWidth:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRange.SetreferenceName(AIndex : Integer; const AValue : String);
+Procedure TListCoverageBucketsResponse.SetcoverageBuckets(AIndex : Integer; const AValue : TListCoverageBucketsResponseTypecoverageBucketsArray);
begin
- If (FreferenceName=AValue) then exit;
- FreferenceName:=AValue;
+ If (FcoverageBuckets=AValue) then exit;
+ FcoverageBuckets:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRange.Setstart(AIndex : Integer; const AValue : String);
+Procedure TListCoverageBucketsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (Fstart=AValue) then exit;
- Fstart:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Class Function TRange.ExportPropertyName(Const AName : String) :String;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListCoverageBucketsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- '_end' : Result:='end';
+ 'coveragebuckets' : SetLength(FcoverageBuckets,ALength);
else
- Result:=Inherited ExportPropertyName(AName);
+ Inherited SetArrayLength(AName,ALength);
end;
end;
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TRangePosition
+ TCoverageBucket
--------------------------------------------------------------------}
-Procedure TRangePosition.Set_end(AIndex : Integer; const AValue : String);
+Procedure TCoverageBucket.Setrange(AIndex : Integer; const AValue : TRange);
begin
- If (F_end=AValue) then exit;
- F_end:=AValue;
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRangePosition.SetreferenceId(AIndex : Integer; const AValue : String);
+Procedure TCoverageBucket.SetmeanCoverage(AIndex : Integer; const AValue : integer);
begin
- If (FreferenceId=AValue) then exit;
- FreferenceId:=AValue;
+ If (FmeanCoverage=AValue) then exit;
+ FmeanCoverage:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRangePosition.SetreferenceName(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TRange
+ --------------------------------------------------------------------}
+
+
+Procedure TRange.SetreferenceName(AIndex : Integer; const AValue : String);
begin
If (FreferenceName=AValue) then exit;
@@ -4880,27 +4970,27 @@ end;
-Procedure TRangePosition.SetreverseStrand(AIndex : Integer; AValue : boolean);
+Procedure TRange.Setstart(AIndex : Integer; const AValue : String);
begin
- If (FreverseStrand=AValue) then exit;
- FreverseStrand:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRangePosition.Setstart(AIndex : Integer; const AValue : String);
+Procedure TRange.Set_end(AIndex : Integer; const AValue : String);
begin
- If (Fstart=AValue) then exit;
- Fstart:=AValue;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TRangePosition.ExportPropertyName(Const AName : String) :String;
+Class Function TRange.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
@@ -4914,138 +5004,170 @@ end;
{ --------------------------------------------------------------------
- TReadTypeinfo
+ TSearchReadsRequest
--------------------------------------------------------------------}
-Class Function TReadTypeinfo.AllowAdditionalProperties : Boolean;
+Procedure TSearchReadsRequest.SetreadGroupSetIds(AIndex : Integer; const AValue : TStringArray);
begin
- Result:=True;
+ If (FreadGroupSetIds=AValue) then exit;
+ FreadGroupSetIds:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TRead
- --------------------------------------------------------------------}
-
-
-Procedure TRead.SetalignedQuality(AIndex : Integer; AValue : TintegerArray);
+Procedure TSearchReadsRequest.SetreadGroupIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (FalignedQuality=AValue) then exit;
- FalignedQuality:=AValue;
+ If (FreadGroupIds=AValue) then exit;
+ FreadGroupIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRead.SetalignedSequence(AIndex : Integer; const AValue : String);
+Procedure TSearchReadsRequest.SetreferenceName(AIndex : Integer; const AValue : String);
begin
- If (FalignedSequence=AValue) then exit;
- FalignedSequence:=AValue;
+ If (FreferenceName=AValue) then exit;
+ FreferenceName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRead.Setalignment(AIndex : Integer; AValue : TLinearAlignment);
+Procedure TSearchReadsRequest.Setstart(AIndex : Integer; const AValue : String);
begin
- If (Falignment=AValue) then exit;
- Falignment:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRead.SetduplicateFragment(AIndex : Integer; AValue : boolean);
+Procedure TSearchReadsRequest.Set_end(AIndex : Integer; const AValue : String);
begin
- If (FduplicateFragment=AValue) then exit;
- FduplicateFragment:=AValue;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRead.SetfailedVendorQualityChecks(AIndex : Integer; AValue : boolean);
+Procedure TSearchReadsRequest.SetpageToken(AIndex : Integer; const AValue : String);
begin
- If (FfailedVendorQualityChecks=AValue) then exit;
- FfailedVendorQualityChecks:=AValue;
+ If (FpageToken=AValue) then exit;
+ FpageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRead.SetfragmentLength(AIndex : Integer; AValue : integer);
+Procedure TSearchReadsRequest.SetpageSize(AIndex : Integer; const AValue : integer);
begin
- If (FfragmentLength=AValue) then exit;
- FfragmentLength:=AValue;
+ If (FpageSize=AValue) then exit;
+ FpageSize:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRead.SetfragmentName(AIndex : Integer; const AValue : String);
+Class Function TSearchReadsRequest.ExportPropertyName(Const AName : String) :String;
begin
- If (FfragmentName=AValue) then exit;
- FfragmentName:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ '_end' : Result:='end';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSearchReadsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+begin
+ Case AName of
+ 'readgroupsetids' : SetLength(FreadGroupSetIds,ALength);
+ 'readgroupids' : SetLength(FreadGroupIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
-Procedure TRead.Setid(AIndex : Integer; const AValue : String);
+
+
+
+{ --------------------------------------------------------------------
+ TSearchReadsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSearchReadsResponse.Setalignments(AIndex : Integer; const AValue : TSearchReadsResponseTypealignmentsArray);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (Falignments=AValue) then exit;
+ Falignments:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRead.Setinfo(AIndex : Integer; AValue : TReadTypeinfo);
+Procedure TSearchReadsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (Finfo=AValue) then exit;
- Finfo:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TRead.SetnextMatePosition(AIndex : Integer; AValue : TPosition);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSearchReadsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FnextMatePosition=AValue) then exit;
- FnextMatePosition:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'alignments' : SetLength(Falignments,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
+
-Procedure TRead.SetnumberReads(AIndex : Integer; AValue : integer);
+{ --------------------------------------------------------------------
+ TReadTypeinfo
+ --------------------------------------------------------------------}
+
+
+Class Function TReadTypeinfo.AllowAdditionalProperties : Boolean;
begin
- If (FnumberReads=AValue) then exit;
- FnumberReads:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TRead.SetproperPlacement(AIndex : Integer; AValue : boolean);
+{ --------------------------------------------------------------------
+ TRead
+ --------------------------------------------------------------------}
+
+
+Procedure TRead.Setid(AIndex : Integer; const AValue : String);
begin
- If (FproperPlacement=AValue) then exit;
- FproperPlacement:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5071,175 +5193,152 @@ end;
-Procedure TRead.SetreadNumber(AIndex : Integer; AValue : integer);
+Procedure TRead.SetfragmentName(AIndex : Integer; const AValue : String);
begin
- If (FreadNumber=AValue) then exit;
- FreadNumber:=AValue;
+ If (FfragmentName=AValue) then exit;
+ FfragmentName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRead.SetsecondaryAlignment(AIndex : Integer; AValue : boolean);
+Procedure TRead.SetproperPlacement(AIndex : Integer; const AValue : boolean);
begin
- If (FsecondaryAlignment=AValue) then exit;
- FsecondaryAlignment:=AValue;
+ If (FproperPlacement=AValue) then exit;
+ FproperPlacement:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TRead.SetsupplementaryAlignment(AIndex : Integer; AValue : boolean);
+Procedure TRead.SetduplicateFragment(AIndex : Integer; const AValue : boolean);
begin
- If (FsupplementaryAlignment=AValue) then exit;
- FsupplementaryAlignment:=AValue;
+ If (FduplicateFragment=AValue) then exit;
+ FduplicateFragment:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TRead.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'alignedquality' : SetLength(FalignedQuality,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-{ --------------------------------------------------------------------
- TReadGroupTypeinfo
- --------------------------------------------------------------------}
-
-
-Class Function TReadGroupTypeinfo.AllowAdditionalProperties : Boolean;
+Procedure TRead.SetfragmentLength(AIndex : Integer; const AValue : integer);
begin
- Result:=True;
+ If (FfragmentLength=AValue) then exit;
+ FfragmentLength:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TReadGroup
- --------------------------------------------------------------------}
-
-
-Procedure TReadGroup.SetdatasetId(AIndex : Integer; const AValue : String);
+Procedure TRead.SetreadNumber(AIndex : Integer; const AValue : integer);
begin
- If (FdatasetId=AValue) then exit;
- FdatasetId:=AValue;
+ If (FreadNumber=AValue) then exit;
+ FreadNumber:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroup.Setdescription(AIndex : Integer; const AValue : String);
+Procedure TRead.SetnumberReads(AIndex : Integer; const AValue : integer);
begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
+ If (FnumberReads=AValue) then exit;
+ FnumberReads:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroup.Setexperiment(AIndex : Integer; AValue : TReadGroupExperiment);
+Procedure TRead.SetfailedVendorQualityChecks(AIndex : Integer; const AValue : boolean);
begin
- If (Fexperiment=AValue) then exit;
- Fexperiment:=AValue;
+ If (FfailedVendorQualityChecks=AValue) then exit;
+ FfailedVendorQualityChecks:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroup.Setid(AIndex : Integer; const AValue : String);
+Procedure TRead.Setalignment(AIndex : Integer; const AValue : TLinearAlignment);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (Falignment=AValue) then exit;
+ Falignment:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroup.Setinfo(AIndex : Integer; AValue : TReadGroupTypeinfo);
+Procedure TRead.SetsecondaryAlignment(AIndex : Integer; const AValue : boolean);
begin
- If (Finfo=AValue) then exit;
- Finfo:=AValue;
+ If (FsecondaryAlignment=AValue) then exit;
+ FsecondaryAlignment:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroup.Setname(AIndex : Integer; const AValue : String);
+Procedure TRead.SetsupplementaryAlignment(AIndex : Integer; const AValue : boolean);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (FsupplementaryAlignment=AValue) then exit;
+ FsupplementaryAlignment:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroup.SetpredictedInsertSize(AIndex : Integer; AValue : integer);
+Procedure TRead.SetalignedSequence(AIndex : Integer; const AValue : String);
begin
- If (FpredictedInsertSize=AValue) then exit;
- FpredictedInsertSize:=AValue;
+ If (FalignedSequence=AValue) then exit;
+ FalignedSequence:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroup.Setprograms(AIndex : Integer; AValue : TReadGroupTypeprogramsArray);
+Procedure TRead.SetalignedQuality(AIndex : Integer; const AValue : TintegerArray);
begin
- If (Fprograms=AValue) then exit;
- Fprograms:=AValue;
+ If (FalignedQuality=AValue) then exit;
+ FalignedQuality:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroup.SetreferenceSetId(AIndex : Integer; const AValue : String);
+Procedure TRead.SetnextMatePosition(AIndex : Integer; const AValue : TPosition);
begin
- If (FreferenceSetId=AValue) then exit;
- FreferenceSetId:=AValue;
+ If (FnextMatePosition=AValue) then exit;
+ FnextMatePosition:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroup.SetsampleId(AIndex : Integer; const AValue : String);
+Procedure TRead.Setinfo(AIndex : Integer; const AValue : TReadTypeinfo);
begin
- If (FsampleId=AValue) then exit;
- FsampleId:=AValue;
+ If (Finfo=AValue) then exit;
+ Finfo:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TReadGroup.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TRead.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'programs' : SetLength(Fprograms,ALength);
+ 'alignedquality' : SetLength(FalignedQuality,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5250,293 +5349,309 @@ end;
{ --------------------------------------------------------------------
- TReadGroupExperiment
+ TLinearAlignment
--------------------------------------------------------------------}
-Procedure TReadGroupExperiment.SetinstrumentModel(AIndex : Integer; const AValue : String);
+Procedure TLinearAlignment.Setposition(AIndex : Integer; const AValue : TPosition);
begin
- If (FinstrumentModel=AValue) then exit;
- FinstrumentModel:=AValue;
+ If (Fposition=AValue) then exit;
+ Fposition:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroupExperiment.SetlibraryId(AIndex : Integer; const AValue : String);
+Procedure TLinearAlignment.SetmappingQuality(AIndex : Integer; const AValue : integer);
begin
- If (FlibraryId=AValue) then exit;
- FlibraryId:=AValue;
+ If (FmappingQuality=AValue) then exit;
+ FmappingQuality:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroupExperiment.SetplatformUnit(AIndex : Integer; const AValue : String);
+Procedure TLinearAlignment.Setcigar(AIndex : Integer; const AValue : TLinearAlignmentTypecigarArray);
begin
- If (FplatformUnit=AValue) then exit;
- FplatformUnit:=AValue;
+ If (Fcigar=AValue) then exit;
+ Fcigar:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TReadGroupExperiment.SetsequencingCenter(AIndex : Integer; const AValue : String);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLinearAlignment.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FsequencingCenter=AValue) then exit;
- FsequencingCenter:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'cigar' : SetLength(Fcigar,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
-
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TReadGroupProgram
+ TPosition
--------------------------------------------------------------------}
-Procedure TReadGroupProgram.SetcommandLine(AIndex : Integer; const AValue : String);
+Procedure TPosition.SetreferenceName(AIndex : Integer; const AValue : String);
begin
- If (FcommandLine=AValue) then exit;
- FcommandLine:=AValue;
+ If (FreferenceName=AValue) then exit;
+ FreferenceName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroupProgram.Setid(AIndex : Integer; const AValue : String);
+Procedure TPosition.Setposition(AIndex : Integer; const AValue : String);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (Fposition=AValue) then exit;
+ Fposition:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroupProgram.Setname(AIndex : Integer; const AValue : String);
+Procedure TPosition.SetreverseStrand(AIndex : Integer; const AValue : boolean);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (FreverseStrand=AValue) then exit;
+ FreverseStrand:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroupProgram.SetprevProgramId(AIndex : Integer; const AValue : String);
-begin
- If (FprevProgramId=AValue) then exit;
- FprevProgramId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TCigarUnit
+ --------------------------------------------------------------------}
-Procedure TReadGroupProgram.Setversion(AIndex : Integer; const AValue : String);
+Procedure TCigarUnit.Setoperation(AIndex : Integer; const AValue : String);
begin
- If (Fversion=AValue) then exit;
- Fversion:=AValue;
+ If (Foperation=AValue) then exit;
+ Foperation:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TCigarUnit.SetoperationLength(AIndex : Integer; const AValue : String);
+begin
+ If (FoperationLength=AValue) then exit;
+ FoperationLength:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TReadGroupSetTypeinfo
- --------------------------------------------------------------------}
-Class Function TReadGroupSetTypeinfo.AllowAdditionalProperties : Boolean;
+Procedure TCigarUnit.SetreferenceSequence(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (FreferenceSequence=AValue) then exit;
+ FreferenceSequence:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
+
{ --------------------------------------------------------------------
- TReadGroupSet
+ TStreamReadsRequest
--------------------------------------------------------------------}
-Procedure TReadGroupSet.SetdatasetId(AIndex : Integer; const AValue : String);
+Procedure TStreamReadsRequest.SetprojectId(AIndex : Integer; const AValue : String);
begin
- If (FdatasetId=AValue) then exit;
- FdatasetId:=AValue;
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroupSet.Setfilename(AIndex : Integer; const AValue : String);
+Procedure TStreamReadsRequest.SetreadGroupSetId(AIndex : Integer; const AValue : String);
begin
- If (Ffilename=AValue) then exit;
- Ffilename:=AValue;
+ If (FreadGroupSetId=AValue) then exit;
+ FreadGroupSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroupSet.Setid(AIndex : Integer; const AValue : String);
+Procedure TStreamReadsRequest.SetreferenceName(AIndex : Integer; const AValue : String);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (FreferenceName=AValue) then exit;
+ FreferenceName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroupSet.Setinfo(AIndex : Integer; AValue : TReadGroupSetTypeinfo);
+Procedure TStreamReadsRequest.Setstart(AIndex : Integer; const AValue : String);
begin
- If (Finfo=AValue) then exit;
- Finfo:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroupSet.Setname(AIndex : Integer; const AValue : String);
+Procedure TStreamReadsRequest.Set_end(AIndex : Integer; const AValue : String);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroupSet.SetreadGroups(AIndex : Integer; AValue : TReadGroupSetTypereadGroupsArray);
+Procedure TStreamReadsRequest.Setshard(AIndex : Integer; const AValue : integer);
begin
- If (FreadGroups=AValue) then exit;
- FreadGroups:=AValue;
+ If (Fshard=AValue) then exit;
+ Fshard:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReadGroupSet.SetreferenceSetId(AIndex : Integer; const AValue : String);
+Procedure TStreamReadsRequest.SettotalShards(AIndex : Integer; const AValue : integer);
begin
- If (FreferenceSetId=AValue) then exit;
- FreferenceSetId:=AValue;
+ If (FtotalShards=AValue) then exit;
+ FtotalShards:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TReadGroupSet.SetArrayLength(Const AName : String; ALength : Longint);
+
+Class Function TStreamReadsRequest.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
- 'readgroups' : SetLength(FreadGroups,ALength);
+ '_end' : Result:='end';
else
- Inherited SetArrayLength(AName,ALength);
+ Result:=Inherited ExportPropertyName(AName);
end;
end;
-{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TReference
+ TStreamReadsResponse
--------------------------------------------------------------------}
-Procedure TReference.Setid(AIndex : Integer; const AValue : String);
+Procedure TStreamReadsResponse.Setalignments(AIndex : Integer; const AValue : TStreamReadsResponseTypealignmentsArray);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (Falignments=AValue) then exit;
+ Falignments:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TReference.Set_length(AIndex : Integer; const AValue : String);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStreamReadsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (F_length=AValue) then exit;
- F_length:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'alignments' : SetLength(Falignments,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Procedure TReference.Setmd5checksum(AIndex : Integer; const AValue : String);
+
+{ --------------------------------------------------------------------
+ TSearchReferenceSetsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSearchReferenceSetsRequest.Setmd5checksums(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fmd5checksum=AValue) then exit;
- Fmd5checksum:=AValue;
+ If (Fmd5checksums=AValue) then exit;
+ Fmd5checksums:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReference.Setname(AIndex : Integer; const AValue : String);
+Procedure TSearchReferenceSetsRequest.Setaccessions(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (Faccessions=AValue) then exit;
+ Faccessions:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReference.SetncbiTaxonId(AIndex : Integer; AValue : integer);
+Procedure TSearchReferenceSetsRequest.SetassemblyId(AIndex : Integer; const AValue : String);
begin
- If (FncbiTaxonId=AValue) then exit;
- FncbiTaxonId:=AValue;
+ If (FassemblyId=AValue) then exit;
+ FassemblyId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReference.SetsourceAccessions(AIndex : Integer; AValue : TStringArray);
+Procedure TSearchReferenceSetsRequest.SetpageToken(AIndex : Integer; const AValue : String);
begin
- If (FsourceAccessions=AValue) then exit;
- FsourceAccessions:=AValue;
+ If (FpageToken=AValue) then exit;
+ FpageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReference.SetsourceURI(AIndex : Integer; const AValue : String);
+Procedure TSearchReferenceSetsRequest.SetpageSize(AIndex : Integer; const AValue : integer);
begin
- If (FsourceURI=AValue) then exit;
- FsourceURI:=AValue;
+ If (FpageSize=AValue) then exit;
+ FpageSize:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TReference.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSearchReferenceSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'sourceaccessions' : SetLength(FsourceAccessions,ALength);
+ 'md5checksums' : SetLength(Fmd5checksums,ALength);
+ 'accessions' : SetLength(Faccessions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5547,29 +5662,42 @@ end;
{ --------------------------------------------------------------------
- TReferenceBound
+ TSearchReferenceSetsResponse
--------------------------------------------------------------------}
-Procedure TReferenceBound.SetreferenceName(AIndex : Integer; const AValue : String);
+Procedure TSearchReferenceSetsResponse.SetreferenceSets(AIndex : Integer; const AValue : TSearchReferenceSetsResponseTypereferenceSetsArray);
begin
- If (FreferenceName=AValue) then exit;
- FreferenceName:=AValue;
+ If (FreferenceSets=AValue) then exit;
+ FreferenceSets:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReferenceBound.SetupperBound(AIndex : Integer; const AValue : String);
+Procedure TSearchReferenceSetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (FupperBound=AValue) then exit;
- FupperBound:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSearchReferenceSetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'referencesets' : SetLength(FreferenceSets,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
@@ -5578,81 +5706,81 @@ end;
--------------------------------------------------------------------}
-Procedure TReferenceSet.SetassemblyId(AIndex : Integer; const AValue : String);
+Procedure TReferenceSet.Setid(AIndex : Integer; const AValue : String);
begin
- If (FassemblyId=AValue) then exit;
- FassemblyId:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReferenceSet.Setdescription(AIndex : Integer; const AValue : String);
+Procedure TReferenceSet.SetreferenceIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
+ If (FreferenceIds=AValue) then exit;
+ FreferenceIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReferenceSet.Setid(AIndex : Integer; const AValue : String);
+Procedure TReferenceSet.Setmd5checksum(AIndex : Integer; const AValue : String);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (Fmd5checksum=AValue) then exit;
+ Fmd5checksum:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReferenceSet.Setmd5checksum(AIndex : Integer; const AValue : String);
+Procedure TReferenceSet.SetncbiTaxonId(AIndex : Integer; const AValue : integer);
begin
- If (Fmd5checksum=AValue) then exit;
- Fmd5checksum:=AValue;
+ If (FncbiTaxonId=AValue) then exit;
+ FncbiTaxonId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReferenceSet.SetncbiTaxonId(AIndex : Integer; AValue : integer);
+Procedure TReferenceSet.Setdescription(AIndex : Integer; const AValue : String);
begin
- If (FncbiTaxonId=AValue) then exit;
- FncbiTaxonId:=AValue;
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReferenceSet.SetreferenceIds(AIndex : Integer; AValue : TStringArray);
+Procedure TReferenceSet.SetassemblyId(AIndex : Integer; const AValue : String);
begin
- If (FreferenceIds=AValue) then exit;
- FreferenceIds:=AValue;
+ If (FassemblyId=AValue) then exit;
+ FassemblyId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReferenceSet.SetsourceAccessions(AIndex : Integer; AValue : TStringArray);
+Procedure TReferenceSet.SetsourceUri(AIndex : Integer; const AValue : String);
begin
- If (FsourceAccessions=AValue) then exit;
- FsourceAccessions:=AValue;
+ If (FsourceUri=AValue) then exit;
+ FsourceUri:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReferenceSet.SetsourceURI(AIndex : Integer; const AValue : String);
+Procedure TReferenceSet.SetsourceAccessions(AIndex : Integer; const AValue : TStringArray);
begin
- If (FsourceURI=AValue) then exit;
- FsourceURI:=AValue;
+ If (FsourceAccessions=AValue) then exit;
+ FsourceAccessions:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -5675,41 +5803,41 @@ end;
{ --------------------------------------------------------------------
- TSearchAnnotationSetsRequest
+ TSearchReferencesRequest
--------------------------------------------------------------------}
-Procedure TSearchAnnotationSetsRequest.SetdatasetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TSearchReferencesRequest.Setmd5checksums(AIndex : Integer; const AValue : TStringArray);
begin
- If (FdatasetIds=AValue) then exit;
- FdatasetIds:=AValue;
+ If (Fmd5checksums=AValue) then exit;
+ Fmd5checksums:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchAnnotationSetsRequest.Setname(AIndex : Integer; const AValue : String);
+Procedure TSearchReferencesRequest.Setaccessions(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (Faccessions=AValue) then exit;
+ Faccessions:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchAnnotationSetsRequest.SetpageSize(AIndex : Integer; AValue : integer);
+Procedure TSearchReferencesRequest.SetreferenceSetId(AIndex : Integer; const AValue : String);
begin
- If (FpageSize=AValue) then exit;
- FpageSize:=AValue;
+ If (FreferenceSetId=AValue) then exit;
+ FreferenceSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchAnnotationSetsRequest.SetpageToken(AIndex : Integer; const AValue : String);
+Procedure TSearchReferencesRequest.SetpageToken(AIndex : Integer; const AValue : String);
begin
If (FpageToken=AValue) then exit;
@@ -5719,33 +5847,23 @@ end;
-Procedure TSearchAnnotationSetsRequest.SetreferenceSetId(AIndex : Integer; const AValue : String);
+Procedure TSearchReferencesRequest.SetpageSize(AIndex : Integer; const AValue : integer);
begin
- If (FreferenceSetId=AValue) then exit;
- FreferenceSetId:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TSearchAnnotationSetsRequest.Settypes(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (Ftypes=AValue) then exit;
- Ftypes:=AValue;
+ If (FpageSize=AValue) then exit;
+ FpageSize:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSearchAnnotationSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSearchReferencesRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'datasetids' : SetLength(FdatasetIds,ALength);
- 'types' : SetLength(Ftypes,ALength);
+ 'md5checksums' : SetLength(Fmd5checksums,ALength);
+ 'accessions' : SetLength(Faccessions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5756,21 +5874,21 @@ end;
{ --------------------------------------------------------------------
- TSearchAnnotationSetsResponse
+ TSearchReferencesResponse
--------------------------------------------------------------------}
-Procedure TSearchAnnotationSetsResponse.SetannotationSets(AIndex : Integer; AValue : TSearchAnnotationSetsResponseTypeannotationSetsArray);
+Procedure TSearchReferencesResponse.Setreferences(AIndex : Integer; const AValue : TSearchReferencesResponseTypereferencesArray);
begin
- If (FannotationSets=AValue) then exit;
- FannotationSets:=AValue;
+ If (Freferences=AValue) then exit;
+ Freferences:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchAnnotationSetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TSearchReferencesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
@@ -5781,11 +5899,11 @@ end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSearchAnnotationSetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSearchReferencesResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'annotationsets' : SetLength(FannotationSets,ALength);
+ 'references' : SetLength(Freferences,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5796,96 +5914,97 @@ end;
{ --------------------------------------------------------------------
- TSearchAnnotationsRequest
+ TReference
--------------------------------------------------------------------}
-Procedure TSearchAnnotationsRequest.SetannotationSetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TReference.Setid(AIndex : Integer; const AValue : String);
begin
- If (FannotationSetIds=AValue) then exit;
- FannotationSetIds:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchAnnotationsRequest.SetpageSize(AIndex : Integer; AValue : integer);
+Procedure TReference.Set_length(AIndex : Integer; const AValue : String);
begin
- If (FpageSize=AValue) then exit;
- FpageSize:=AValue;
+ If (F_length=AValue) then exit;
+ F_length:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchAnnotationsRequest.SetpageToken(AIndex : Integer; const AValue : String);
+Procedure TReference.Setmd5checksum(AIndex : Integer; const AValue : String);
begin
- If (FpageToken=AValue) then exit;
- FpageToken:=AValue;
+ If (Fmd5checksum=AValue) then exit;
+ Fmd5checksum:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchAnnotationsRequest.Setrange(AIndex : Integer; AValue : TQueryRange);
+Procedure TReference.Setname(AIndex : Integer; const AValue : String);
begin
- If (Frange=AValue) then exit;
- Frange:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TSearchAnnotationsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TReference.SetsourceUri(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'annotationsetids' : SetLength(FannotationSetIds,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FsourceUri=AValue) then exit;
+ FsourceUri:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TReference.SetsourceAccessions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FsourceAccessions=AValue) then exit;
+ FsourceAccessions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TSearchAnnotationsResponse
- --------------------------------------------------------------------}
-Procedure TSearchAnnotationsResponse.Setannotations(AIndex : Integer; AValue : TSearchAnnotationsResponseTypeannotationsArray);
+Procedure TReference.SetncbiTaxonId(AIndex : Integer; const AValue : integer);
begin
- If (Fannotations=AValue) then exit;
- Fannotations:=AValue;
+ If (FncbiTaxonId=AValue) then exit;
+ FncbiTaxonId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchAnnotationsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Class Function TReference.ExportPropertyName(Const AName : String) :String;
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ '_length' : Result:='length';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
end;
-
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSearchAnnotationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TReference.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'annotations' : SetLength(Fannotations,ALength);
+ 'sourceaccessions' : SetLength(FsourceAccessions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -5896,176 +6015,116 @@ end;
{ --------------------------------------------------------------------
- TSearchCallSetsRequest
+ TListBasesResponse
--------------------------------------------------------------------}
-Procedure TSearchCallSetsRequest.Setname(AIndex : Integer; const AValue : String);
-
-begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TSearchCallSetsRequest.SetpageSize(AIndex : Integer; AValue : integer);
+Procedure TListBasesResponse.Setoffset(AIndex : Integer; const AValue : String);
begin
- If (FpageSize=AValue) then exit;
- FpageSize:=AValue;
+ If (Foffset=AValue) then exit;
+ Foffset:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchCallSetsRequest.SetpageToken(AIndex : Integer; const AValue : String);
+Procedure TListBasesResponse.Setsequence(AIndex : Integer; const AValue : String);
begin
- If (FpageToken=AValue) then exit;
- FpageToken:=AValue;
+ If (Fsequence=AValue) then exit;
+ Fsequence:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchCallSetsRequest.SetvariantSetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TListBasesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (FvariantSetIds=AValue) then exit;
- FvariantSetIds:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TSearchCallSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'variantsetids' : SetLength(FvariantSetIds,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
{ --------------------------------------------------------------------
- TSearchCallSetsResponse
+ TImportVariantsRequestTypeinfoMergeConfig
--------------------------------------------------------------------}
-Procedure TSearchCallSetsResponse.SetcallSets(AIndex : Integer; AValue : TSearchCallSetsResponseTypecallSetsArray);
-
-begin
- If (FcallSets=AValue) then exit;
- FcallSets:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TSearchCallSetsResponse.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 TSearchCallSetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Class Function TImportVariantsRequestTypeinfoMergeConfig.AllowAdditionalProperties : Boolean;
begin
- Case AName of
- 'callsets' : SetLength(FcallSets,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ Result:=True;
end;
-{$ENDIF VER2_6}
-
{ --------------------------------------------------------------------
- TSearchJobsRequest
+ TImportVariantsRequest
--------------------------------------------------------------------}
-Procedure TSearchJobsRequest.SetcreatedAfter(AIndex : Integer; const AValue : String);
-
-begin
- If (FcreatedAfter=AValue) then exit;
- FcreatedAfter:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TSearchJobsRequest.SetcreatedBefore(AIndex : Integer; const AValue : String);
+Procedure TImportVariantsRequest.SetvariantSetId(AIndex : Integer; const AValue : String);
begin
- If (FcreatedBefore=AValue) then exit;
- FcreatedBefore:=AValue;
+ If (FvariantSetId=AValue) then exit;
+ FvariantSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchJobsRequest.SetpageSize(AIndex : Integer; AValue : integer);
+Procedure TImportVariantsRequest.SetsourceUris(AIndex : Integer; const AValue : TStringArray);
begin
- If (FpageSize=AValue) then exit;
- FpageSize:=AValue;
+ If (FsourceUris=AValue) then exit;
+ FsourceUris:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchJobsRequest.SetpageToken(AIndex : Integer; const AValue : String);
+Procedure TImportVariantsRequest.Setformat(AIndex : Integer; const AValue : String);
begin
- If (FpageToken=AValue) then exit;
- FpageToken:=AValue;
+ If (Fformat=AValue) then exit;
+ Fformat:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchJobsRequest.SetprojectNumber(AIndex : Integer; const AValue : String);
+Procedure TImportVariantsRequest.SetnormalizeReferenceNames(AIndex : Integer; const AValue : boolean);
begin
- If (FprojectNumber=AValue) then exit;
- FprojectNumber:=AValue;
+ If (FnormalizeReferenceNames=AValue) then exit;
+ FnormalizeReferenceNames:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchJobsRequest.Setstatus(AIndex : Integer; AValue : TStringArray);
+Procedure TImportVariantsRequest.SetinfoMergeConfig(AIndex : Integer; const AValue : TImportVariantsRequestTypeinfoMergeConfig);
begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
+ If (FinfoMergeConfig=AValue) then exit;
+ FinfoMergeConfig:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSearchJobsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TImportVariantsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'status' : SetLength(Fstatus,ALength);
+ 'sourceuris' : SetLength(FsourceUris,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -6076,96 +6135,87 @@ end;
{ --------------------------------------------------------------------
- TSearchJobsResponse
+ TVariantSet
--------------------------------------------------------------------}
-Procedure TSearchJobsResponse.Setjobs(AIndex : Integer; AValue : TSearchJobsResponseTypejobsArray);
+Procedure TVariantSet.SetdatasetId(AIndex : Integer; const AValue : String);
begin
- If (Fjobs=AValue) then exit;
- Fjobs:=AValue;
+ If (FdatasetId=AValue) then exit;
+ FdatasetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchJobsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TVariantSet.Setid(AIndex : Integer; const AValue : String);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TSearchJobsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TVariantSet.SetreferenceSetId(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'jobs' : SetLength(Fjobs,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FreferenceSetId=AValue) then exit;
+ FreferenceSetId:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
-
-
-
-{ --------------------------------------------------------------------
- TSearchReadGroupSetsRequest
- --------------------------------------------------------------------}
-Procedure TSearchReadGroupSetsRequest.SetdatasetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TVariantSet.SetreferenceBounds(AIndex : Integer; const AValue : TVariantSetTypereferenceBoundsArray);
begin
- If (FdatasetIds=AValue) then exit;
- FdatasetIds:=AValue;
+ If (FreferenceBounds=AValue) then exit;
+ FreferenceBounds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReadGroupSetsRequest.Setname(AIndex : Integer; const AValue : String);
+Procedure TVariantSet.Setmetadata(AIndex : Integer; const AValue : TVariantSetTypemetadataArray);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReadGroupSetsRequest.SetpageSize(AIndex : Integer; AValue : integer);
+Procedure TVariantSet.Setname(AIndex : Integer; const AValue : String);
begin
- If (FpageSize=AValue) then exit;
- FpageSize:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReadGroupSetsRequest.SetpageToken(AIndex : Integer; const AValue : String);
+Procedure TVariantSet.Setdescription(AIndex : Integer; const AValue : String);
begin
- If (FpageToken=AValue) then exit;
- FpageToken:=AValue;
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSearchReadGroupSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TVariantSet.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'datasetids' : SetLength(FdatasetIds,ALength);
+ 'referencebounds' : SetLength(FreferenceBounds,ALength);
+ 'metadata' : SetLength(Fmetadata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -6176,178 +6226,194 @@ end;
{ --------------------------------------------------------------------
- TSearchReadGroupSetsResponse
+ TReferenceBound
--------------------------------------------------------------------}
-Procedure TSearchReadGroupSetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TReferenceBound.SetreferenceName(AIndex : Integer; const AValue : String);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (FreferenceName=AValue) then exit;
+ FreferenceName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReadGroupSetsResponse.SetreadGroupSets(AIndex : Integer; AValue : TSearchReadGroupSetsResponseTypereadGroupSetsArray);
+Procedure TReferenceBound.SetupperBound(AIndex : Integer; const AValue : String);
begin
- If (FreadGroupSets=AValue) then exit;
- FreadGroupSets:=AValue;
+ If (FupperBound=AValue) then exit;
+ FupperBound:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TSearchReadGroupSetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+
+
+{ --------------------------------------------------------------------
+ TVariantSetMetadataTypeinfo
+ --------------------------------------------------------------------}
+
+
+Class Function TVariantSetMetadataTypeinfo.AllowAdditionalProperties : Boolean;
begin
- Case AName of
- 'readgroupsets' : SetLength(FreadGroupSets,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ Result:=True;
end;
-{$ENDIF VER2_6}
-
{ --------------------------------------------------------------------
- TSearchReadsRequest
+ TVariantSetMetadata
--------------------------------------------------------------------}
-Procedure TSearchReadsRequest.Set_end(AIndex : Integer; const AValue : String);
+Procedure TVariantSetMetadata.Setkey(AIndex : Integer; const AValue : String);
begin
- If (F_end=AValue) then exit;
- F_end:=AValue;
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReadsRequest.SetpageSize(AIndex : Integer; AValue : integer);
+Procedure TVariantSetMetadata.Setvalue(AIndex : Integer; const AValue : String);
begin
- If (FpageSize=AValue) then exit;
- FpageSize:=AValue;
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReadsRequest.SetpageToken(AIndex : Integer; const AValue : String);
+Procedure TVariantSetMetadata.Setid(AIndex : Integer; const AValue : String);
begin
- If (FpageToken=AValue) then exit;
- FpageToken:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReadsRequest.SetreadGroupIds(AIndex : Integer; AValue : TStringArray);
+Procedure TVariantSetMetadata.Set_type(AIndex : Integer; const AValue : String);
begin
- If (FreadGroupIds=AValue) then exit;
- FreadGroupIds:=AValue;
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReadsRequest.SetreadGroupSetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TVariantSetMetadata.Setnumber(AIndex : Integer; const AValue : String);
begin
- If (FreadGroupSetIds=AValue) then exit;
- FreadGroupSetIds:=AValue;
+ If (Fnumber=AValue) then exit;
+ Fnumber:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReadsRequest.SetreferenceName(AIndex : Integer; const AValue : String);
+Procedure TVariantSetMetadata.Setdescription(AIndex : Integer; const AValue : String);
begin
- If (FreferenceName=AValue) then exit;
- FreferenceName:=AValue;
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReadsRequest.Setstart(AIndex : Integer; const AValue : String);
+Procedure TVariantSetMetadata.Setinfo(AIndex : Integer; const AValue : TVariantSetMetadataTypeinfo);
begin
- If (Fstart=AValue) then exit;
- Fstart:=AValue;
+ If (Finfo=AValue) then exit;
+ Finfo:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TSearchReadsRequest.ExportPropertyName(Const AName : String) :String;
+Class Function TVariantSetMetadata.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
- '_end' : Result:='end';
+ '_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TSearchReadsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+
+
+{ --------------------------------------------------------------------
+ TExportVariantSetRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TExportVariantSetRequest.SetcallSetIds(AIndex : Integer; const AValue : TStringArray);
begin
- Case AName of
- 'readgroupids' : SetLength(FreadGroupIds,ALength);
- 'readgroupsetids' : SetLength(FreadGroupSetIds,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FcallSetIds=AValue) then exit;
+ FcallSetIds:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TExportVariantSetRequest.SetprojectId(AIndex : Integer; const AValue : String);
-{ --------------------------------------------------------------------
- TSearchReadsResponse
- --------------------------------------------------------------------}
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TSearchReadsResponse.Setalignments(AIndex : Integer; AValue : TSearchReadsResponseTypealignmentsArray);
+
+Procedure TExportVariantSetRequest.Setformat(AIndex : Integer; const AValue : String);
begin
- If (Falignments=AValue) then exit;
- Falignments:=AValue;
+ If (Fformat=AValue) then exit;
+ Fformat:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReadsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TExportVariantSetRequest.SetbigqueryDataset(AIndex : Integer; const AValue : String);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (FbigqueryDataset=AValue) then exit;
+ FbigqueryDataset:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExportVariantSetRequest.SetbigqueryTable(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbigqueryTable=AValue) then exit;
+ FbigqueryTable:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSearchReadsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TExportVariantSetRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'alignments' : SetLength(Falignments,ALength);
+ 'callsetids' : SetLength(FcallSetIds,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -6358,41 +6424,31 @@ end;
{ --------------------------------------------------------------------
- TSearchReferenceSetsRequest
+ TSearchVariantSetsRequest
--------------------------------------------------------------------}
-Procedure TSearchReferenceSetsRequest.Setaccessions(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (Faccessions=AValue) then exit;
- Faccessions:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TSearchReferenceSetsRequest.SetassemblyId(AIndex : Integer; const AValue : String);
+Procedure TSearchVariantSetsRequest.SetdatasetIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (FassemblyId=AValue) then exit;
- FassemblyId:=AValue;
+ If (FdatasetIds=AValue) then exit;
+ FdatasetIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReferenceSetsRequest.Setmd5checksums(AIndex : Integer; AValue : TStringArray);
+Procedure TSearchVariantSetsRequest.SetpageToken(AIndex : Integer; const AValue : String);
begin
- If (Fmd5checksums=AValue) then exit;
- Fmd5checksums:=AValue;
+ If (FpageToken=AValue) then exit;
+ FpageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReferenceSetsRequest.SetpageSize(AIndex : Integer; AValue : integer);
+Procedure TSearchVariantSetsRequest.SetpageSize(AIndex : Integer; const AValue : integer);
begin
If (FpageSize=AValue) then exit;
@@ -6401,24 +6457,13 @@ begin
end;
-
-Procedure TSearchReferenceSetsRequest.SetpageToken(AIndex : Integer; const AValue : String);
-
-begin
- If (FpageToken=AValue) then exit;
- FpageToken:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSearchReferenceSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSearchVariantSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'accessions' : SetLength(Faccessions,ALength);
- 'md5checksums' : SetLength(Fmd5checksums,ALength);
+ 'datasetids' : SetLength(FdatasetIds,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -6429,36 +6474,36 @@ end;
{ --------------------------------------------------------------------
- TSearchReferenceSetsResponse
+ TSearchVariantSetsResponse
--------------------------------------------------------------------}
-Procedure TSearchReferenceSetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TSearchVariantSetsResponse.SetvariantSets(AIndex : Integer; const AValue : TSearchVariantSetsResponseTypevariantSetsArray);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (FvariantSets=AValue) then exit;
+ FvariantSets:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReferenceSetsResponse.SetreferenceSets(AIndex : Integer; AValue : TSearchReferenceSetsResponseTypereferenceSetsArray);
+Procedure TSearchVariantSetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (FreferenceSets=AValue) then exit;
- FreferenceSets:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSearchReferenceSetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSearchVariantSetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'referencesets' : SetLength(FreferenceSets,ALength);
+ 'variantsets' : SetLength(FvariantSets,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -6469,107 +6514,118 @@ end;
{ --------------------------------------------------------------------
- TSearchReferencesRequest
+ TSearchVariantsRequest
--------------------------------------------------------------------}
-Procedure TSearchReferencesRequest.Setaccessions(AIndex : Integer; AValue : TStringArray);
+Procedure TSearchVariantsRequest.SetvariantSetIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (Faccessions=AValue) then exit;
- Faccessions:=AValue;
+ If (FvariantSetIds=AValue) then exit;
+ FvariantSetIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReferencesRequest.Setmd5checksums(AIndex : Integer; AValue : TStringArray);
+Procedure TSearchVariantsRequest.SetvariantName(AIndex : Integer; const AValue : String);
begin
- If (Fmd5checksums=AValue) then exit;
- Fmd5checksums:=AValue;
+ If (FvariantName=AValue) then exit;
+ FvariantName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReferencesRequest.SetpageSize(AIndex : Integer; AValue : integer);
+Procedure TSearchVariantsRequest.SetcallSetIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (FpageSize=AValue) then exit;
- FpageSize:=AValue;
+ If (FcallSetIds=AValue) then exit;
+ FcallSetIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReferencesRequest.SetpageToken(AIndex : Integer; const AValue : String);
+Procedure TSearchVariantsRequest.SetreferenceName(AIndex : Integer; const AValue : String);
begin
- If (FpageToken=AValue) then exit;
- FpageToken:=AValue;
+ If (FreferenceName=AValue) then exit;
+ FreferenceName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReferencesRequest.SetreferenceSetId(AIndex : Integer; const AValue : String);
+Procedure TSearchVariantsRequest.Setstart(AIndex : Integer; const AValue : String);
begin
- If (FreferenceSetId=AValue) then exit;
- FreferenceSetId:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TSearchReferencesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TSearchVariantsRequest.Set_end(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'accessions' : SetLength(Faccessions,ALength);
- 'md5checksums' : SetLength(Fmd5checksums,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TSearchVariantsRequest.SetpageToken(AIndex : Integer; const AValue : String);
-{ --------------------------------------------------------------------
- TSearchReferencesResponse
- --------------------------------------------------------------------}
+begin
+ If (FpageToken=AValue) then exit;
+ FpageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Procedure TSearchReferencesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+Procedure TSearchVariantsRequest.SetpageSize(AIndex : Integer; const AValue : integer);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (FpageSize=AValue) then exit;
+ FpageSize:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchReferencesResponse.Setreferences(AIndex : Integer; AValue : TSearchReferencesResponseTypereferencesArray);
+Procedure TSearchVariantsRequest.SetmaxCalls(AIndex : Integer; const AValue : integer);
begin
- If (Freferences=AValue) then exit;
- Freferences:=AValue;
+ If (FmaxCalls=AValue) then exit;
+ FmaxCalls:=AValue;
MarkPropertyChanged(AIndex);
end;
+
+Class Function TSearchVariantsRequest.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_end' : Result:='end';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSearchReferencesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSearchVariantsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'references' : SetLength(Freferences,ALength);
+ 'variantsetids' : SetLength(FvariantSetIds,ALength);
+ 'callsetids' : SetLength(FcallSetIds,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -6580,46 +6636,36 @@ end;
{ --------------------------------------------------------------------
- TSearchVariantSetsRequest
+ TSearchVariantsResponse
--------------------------------------------------------------------}
-Procedure TSearchVariantSetsRequest.SetdatasetIds(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FdatasetIds=AValue) then exit;
- FdatasetIds:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TSearchVariantSetsRequest.SetpageSize(AIndex : Integer; AValue : integer);
+Procedure TSearchVariantsResponse.Setvariants(AIndex : Integer; const AValue : TSearchVariantsResponseTypevariantsArray);
begin
- If (FpageSize=AValue) then exit;
- FpageSize:=AValue;
+ If (Fvariants=AValue) then exit;
+ Fvariants:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchVariantSetsRequest.SetpageToken(AIndex : Integer; const AValue : String);
+Procedure TSearchVariantsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (FpageToken=AValue) then exit;
- FpageToken:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSearchVariantSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TSearchVariantsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'datasetids' : SetLength(FdatasetIds,ALength);
+ 'variants' : SetLength(Fvariants,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -6630,141 +6676,154 @@ end;
{ --------------------------------------------------------------------
- TSearchVariantSetsResponse
+ TVariantTypeinfo
--------------------------------------------------------------------}
-Procedure TSearchVariantSetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Class Function TVariantTypeinfo.AllowAdditionalProperties : Boolean;
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TVariant
+ --------------------------------------------------------------------}
+
+
+Procedure TVariant.SetvariantSetId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvariantSetId=AValue) then exit;
+ FvariantSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchVariantSetsResponse.SetvariantSets(AIndex : Integer; AValue : TSearchVariantSetsResponseTypevariantSetsArray);
+Procedure TVariant.Setid(AIndex : Integer; const AValue : String);
begin
- If (FvariantSets=AValue) then exit;
- FvariantSets:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TSearchVariantSetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TVariant.Setnames(AIndex : Integer; const AValue : TStringArray);
begin
- Case AName of
- 'variantsets' : SetLength(FvariantSets,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (Fnames=AValue) then exit;
+ Fnames:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TVariant.Setcreated(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcreated=AValue) then exit;
+ Fcreated:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TSearchVariantsRequest
- --------------------------------------------------------------------}
-Procedure TSearchVariantsRequest.SetcallSetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TVariant.SetreferenceName(AIndex : Integer; const AValue : String);
begin
- If (FcallSetIds=AValue) then exit;
- FcallSetIds:=AValue;
+ If (FreferenceName=AValue) then exit;
+ FreferenceName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchVariantsRequest.Set_end(AIndex : Integer; const AValue : String);
+Procedure TVariant.Setstart(AIndex : Integer; const AValue : String);
begin
- If (F_end=AValue) then exit;
- F_end:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchVariantsRequest.SetmaxCalls(AIndex : Integer; AValue : integer);
+Procedure TVariant.Set_end(AIndex : Integer; const AValue : String);
begin
- If (FmaxCalls=AValue) then exit;
- FmaxCalls:=AValue;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchVariantsRequest.SetpageSize(AIndex : Integer; AValue : integer);
+Procedure TVariant.SetreferenceBases(AIndex : Integer; const AValue : String);
begin
- If (FpageSize=AValue) then exit;
- FpageSize:=AValue;
+ If (FreferenceBases=AValue) then exit;
+ FreferenceBases:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchVariantsRequest.SetpageToken(AIndex : Integer; const AValue : String);
+Procedure TVariant.SetalternateBases(AIndex : Integer; const AValue : TStringArray);
begin
- If (FpageToken=AValue) then exit;
- FpageToken:=AValue;
+ If (FalternateBases=AValue) then exit;
+ FalternateBases:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchVariantsRequest.SetreferenceName(AIndex : Integer; const AValue : String);
+Procedure TVariant.Setquality(AIndex : Integer; const AValue : double);
begin
- If (FreferenceName=AValue) then exit;
- FreferenceName:=AValue;
+ If (Fquality=AValue) then exit;
+ Fquality:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchVariantsRequest.Setstart(AIndex : Integer; const AValue : String);
+Procedure TVariant.Setfilter(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fstart=AValue) then exit;
- Fstart:=AValue;
+ If (Ffilter=AValue) then exit;
+ Ffilter:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchVariantsRequest.SetvariantName(AIndex : Integer; const AValue : String);
+Procedure TVariant.Setinfo(AIndex : Integer; const AValue : TVariantTypeinfo);
begin
- If (FvariantName=AValue) then exit;
- FvariantName:=AValue;
+ If (Finfo=AValue) then exit;
+ Finfo:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSearchVariantsRequest.SetvariantSetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TVariant.Setcalls(AIndex : Integer; const AValue : TVariantTypecallsArray);
begin
- If (FvariantSetIds=AValue) then exit;
- FvariantSetIds:=AValue;
+ If (Fcalls=AValue) then exit;
+ Fcalls:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TSearchVariantsRequest.ExportPropertyName(Const AName : String) :String;
+Class Function TVariant.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
@@ -6776,12 +6835,14 @@ end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TSearchVariantsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TVariant.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'callsetids' : SetLength(FcallSetIds,ALength);
- 'variantsetids' : SetLength(FvariantSetIds,ALength);
+ 'names' : SetLength(Fnames,ALength);
+ 'alternatebases' : SetLength(FalternateBases,ALength);
+ 'filter' : SetLength(Ffilter,ALength);
+ 'calls' : SetLength(Fcalls,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -6792,86 +6853,90 @@ end;
{ --------------------------------------------------------------------
- TSearchVariantsResponse
+ TVariantCallTypeinfo
--------------------------------------------------------------------}
-Procedure TSearchVariantsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Class Function TVariantCallTypeinfo.AllowAdditionalProperties : Boolean;
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TSearchVariantsResponse.Setvariants(AIndex : Integer; AValue : TSearchVariantsResponseTypevariantsArray);
+{ --------------------------------------------------------------------
+ TVariantCall
+ --------------------------------------------------------------------}
+
+
+Procedure TVariantCall.SetcallSetId(AIndex : Integer; const AValue : String);
begin
- If (Fvariants=AValue) then exit;
- Fvariants:=AValue;
+ If (FcallSetId=AValue) then exit;
+ FcallSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TSearchVariantsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TVariantCall.SetcallSetName(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'variants' : SetLength(Fvariants,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FcallSetName=AValue) then exit;
+ FcallSetName:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+Procedure TVariantCall.Setgenotype(AIndex : Integer; const AValue : TintegerArray);
+
+begin
+ If (Fgenotype=AValue) then exit;
+ Fgenotype:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TTranscript
- --------------------------------------------------------------------}
-Procedure TTranscript.SetcodingSequence(AIndex : Integer; AValue : TTranscriptCodingSequence);
+Procedure TVariantCall.Setphaseset(AIndex : Integer; const AValue : String);
begin
- If (FcodingSequence=AValue) then exit;
- FcodingSequence:=AValue;
+ If (Fphaseset=AValue) then exit;
+ Fphaseset:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTranscript.Setexons(AIndex : Integer; AValue : TTranscriptTypeexonsArray);
+Procedure TVariantCall.SetgenotypeLikelihood(AIndex : Integer; const AValue : TdoubleArray);
begin
- If (Fexons=AValue) then exit;
- Fexons:=AValue;
+ If (FgenotypeLikelihood=AValue) then exit;
+ FgenotypeLikelihood:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTranscript.SetgeneId(AIndex : Integer; const AValue : String);
+Procedure TVariantCall.Setinfo(AIndex : Integer; const AValue : TVariantCallTypeinfo);
begin
- If (FgeneId=AValue) then exit;
- FgeneId:=AValue;
+ If (Finfo=AValue) then exit;
+ Finfo:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TTranscript.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TVariantCall.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'exons' : SetLength(Fexons,ALength);
+ 'genotype' : SetLength(Fgenotype,ALength);
+ 'genotypelikelihood' : SetLength(FgenotypeLikelihood,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -6882,259 +6947,252 @@ end;
{ --------------------------------------------------------------------
- TTranscriptCodingSequence
+ TMergeVariantsRequestTypeinfoMergeConfig
--------------------------------------------------------------------}
-Procedure TTranscriptCodingSequence.Set_end(AIndex : Integer; const AValue : String);
-
-begin
- If (F_end=AValue) then exit;
- F_end:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TTranscriptCodingSequence.Setstart(AIndex : Integer; const AValue : String);
+Class Function TMergeVariantsRequestTypeinfoMergeConfig.AllowAdditionalProperties : Boolean;
begin
- If (Fstart=AValue) then exit;
- Fstart:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Class Function TTranscriptCodingSequence.ExportPropertyName(Const AName : String) :String;
-
-begin
- Case AName of
- '_end' : Result:='end';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
+ Result:=True;
end;
-
{ --------------------------------------------------------------------
- TTranscriptExon
+ TMergeVariantsRequest
--------------------------------------------------------------------}
-Procedure TTranscriptExon.Set_end(AIndex : Integer; const AValue : String);
+Procedure TMergeVariantsRequest.SetvariantSetId(AIndex : Integer; const AValue : String);
begin
- If (F_end=AValue) then exit;
- F_end:=AValue;
+ If (FvariantSetId=AValue) then exit;
+ FvariantSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTranscriptExon.Setframe(AIndex : Integer; AValue : TInt32Value);
+Procedure TMergeVariantsRequest.Setvariants(AIndex : Integer; const AValue : TMergeVariantsRequestTypevariantsArray);
begin
- If (Fframe=AValue) then exit;
- Fframe:=AValue;
+ If (Fvariants=AValue) then exit;
+ Fvariants:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TTranscriptExon.Setstart(AIndex : Integer; const AValue : String);
+Procedure TMergeVariantsRequest.SetinfoMergeConfig(AIndex : Integer; const AValue : TMergeVariantsRequestTypeinfoMergeConfig);
begin
- If (Fstart=AValue) then exit;
- Fstart:=AValue;
+ If (FinfoMergeConfig=AValue) then exit;
+ FinfoMergeConfig:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Class Function TTranscriptExon.ExportPropertyName(Const AName : String) :String;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMergeVariantsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- '_end' : Result:='end';
+ 'variants' : SetLength(Fvariants,ALength);
else
- Result:=Inherited ExportPropertyName(AName);
+ Inherited SetArrayLength(AName,ALength);
end;
end;
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TVariantTypeinfo
+ TSearchCallSetsRequest
--------------------------------------------------------------------}
-Class Function TVariantTypeinfo.AllowAdditionalProperties : Boolean;
+Procedure TSearchCallSetsRequest.SetvariantSetIds(AIndex : Integer; const AValue : TStringArray);
begin
- Result:=True;
+ If (FvariantSetIds=AValue) then exit;
+ FvariantSetIds:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TVariant
- --------------------------------------------------------------------}
-
-
-Procedure TVariant.SetalternateBases(AIndex : Integer; AValue : TStringArray);
+Procedure TSearchCallSetsRequest.Setname(AIndex : Integer; const AValue : String);
begin
- If (FalternateBases=AValue) then exit;
- FalternateBases:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariant.Setcalls(AIndex : Integer; AValue : TVariantTypecallsArray);
+Procedure TSearchCallSetsRequest.SetpageToken(AIndex : Integer; const AValue : String);
begin
- If (Fcalls=AValue) then exit;
- Fcalls:=AValue;
+ If (FpageToken=AValue) then exit;
+ FpageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariant.Setcreated(AIndex : Integer; const AValue : String);
+Procedure TSearchCallSetsRequest.SetpageSize(AIndex : Integer; const AValue : integer);
begin
- If (Fcreated=AValue) then exit;
- Fcreated:=AValue;
+ If (FpageSize=AValue) then exit;
+ FpageSize:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TVariant.Set_end(AIndex : Integer; const AValue : String);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSearchCallSetsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (F_end=AValue) then exit;
- F_end:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'variantsetids' : SetLength(FvariantSetIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
+
+
+{ --------------------------------------------------------------------
+ TSearchCallSetsResponse
+ --------------------------------------------------------------------}
+
-Procedure TVariant.Setfilter(AIndex : Integer; AValue : TStringArray);
+Procedure TSearchCallSetsResponse.SetcallSets(AIndex : Integer; const AValue : TSearchCallSetsResponseTypecallSetsArray);
begin
- If (Ffilter=AValue) then exit;
- Ffilter:=AValue;
+ If (FcallSets=AValue) then exit;
+ FcallSets:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariant.Setid(AIndex : Integer; const AValue : String);
+Procedure TSearchCallSetsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TVariant.Setinfo(AIndex : Integer; AValue : TVariantTypeinfo);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSearchCallSetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (Finfo=AValue) then exit;
- Finfo:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'callsets' : SetLength(FcallSets,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
+
+
+{ --------------------------------------------------------------------
+ TCallSetTypeinfo
+ --------------------------------------------------------------------}
+
-Procedure TVariant.Setnames(AIndex : Integer; AValue : TStringArray);
+Class Function TCallSetTypeinfo.AllowAdditionalProperties : Boolean;
begin
- If (Fnames=AValue) then exit;
- Fnames:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TVariant.Setquality(AIndex : Integer; AValue : double);
+{ --------------------------------------------------------------------
+ TCallSet
+ --------------------------------------------------------------------}
+
+
+Procedure TCallSet.Setid(AIndex : Integer; const AValue : String);
begin
- If (Fquality=AValue) then exit;
- Fquality:=AValue;
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariant.SetreferenceBases(AIndex : Integer; const AValue : String);
+Procedure TCallSet.Setname(AIndex : Integer; const AValue : String);
begin
- If (FreferenceBases=AValue) then exit;
- FreferenceBases:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariant.SetreferenceName(AIndex : Integer; const AValue : String);
+Procedure TCallSet.SetsampleId(AIndex : Integer; const AValue : String);
begin
- If (FreferenceName=AValue) then exit;
- FreferenceName:=AValue;
+ If (FsampleId=AValue) then exit;
+ FsampleId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariant.Setstart(AIndex : Integer; const AValue : String);
+Procedure TCallSet.SetvariantSetIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fstart=AValue) then exit;
- Fstart:=AValue;
+ If (FvariantSetIds=AValue) then exit;
+ FvariantSetIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariant.SetvariantSetId(AIndex : Integer; const AValue : String);
+Procedure TCallSet.Setcreated(AIndex : Integer; const AValue : String);
begin
- If (FvariantSetId=AValue) then exit;
- FvariantSetId:=AValue;
+ If (Fcreated=AValue) then exit;
+ Fcreated:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TVariant.ExportPropertyName(Const AName : String) :String;
+Procedure TCallSet.Setinfo(AIndex : Integer; const AValue : TCallSetTypeinfo);
begin
- Case AName of
- '_end' : Result:='end';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
+ If (Finfo=AValue) then exit;
+ Finfo:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TVariant.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TCallSet.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'alternatebases' : SetLength(FalternateBases,ALength);
- 'calls' : SetLength(Fcalls,ALength);
- 'filter' : SetLength(Ffilter,ALength);
- 'names' : SetLength(Fnames,ALength);
+ 'variantsetids' : SetLength(FvariantSetIds,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -7145,85 +7203,75 @@ end;
{ --------------------------------------------------------------------
- TVariantAnnotation
+ TStreamVariantsRequest
--------------------------------------------------------------------}
-Procedure TVariantAnnotation.SetalternateBases(AIndex : Integer; const AValue : String);
+Procedure TStreamVariantsRequest.SetprojectId(AIndex : Integer; const AValue : String);
begin
- If (FalternateBases=AValue) then exit;
- FalternateBases:=AValue;
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariantAnnotation.SetclinicalSignificance(AIndex : Integer; const AValue : String);
+Procedure TStreamVariantsRequest.SetvariantSetId(AIndex : Integer; const AValue : String);
begin
- If (FclinicalSignificance=AValue) then exit;
- FclinicalSignificance:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TVariantAnnotation.Setconditions(AIndex : Integer; AValue : TVariantAnnotationTypeconditionsArray);
-
-begin
- If (Fconditions=AValue) then exit;
- Fconditions:=AValue;
+ If (FvariantSetId=AValue) then exit;
+ FvariantSetId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariantAnnotation.Seteffect(AIndex : Integer; const AValue : String);
+Procedure TStreamVariantsRequest.SetcallSetIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (Feffect=AValue) then exit;
- Feffect:=AValue;
+ If (FcallSetIds=AValue) then exit;
+ FcallSetIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariantAnnotation.SetgeneId(AIndex : Integer; const AValue : String);
+Procedure TStreamVariantsRequest.SetreferenceName(AIndex : Integer; const AValue : String);
begin
- If (FgeneId=AValue) then exit;
- FgeneId:=AValue;
+ If (FreferenceName=AValue) then exit;
+ FreferenceName:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariantAnnotation.SettranscriptIds(AIndex : Integer; AValue : TStringArray);
+Procedure TStreamVariantsRequest.Setstart(AIndex : Integer; const AValue : String);
begin
- If (FtranscriptIds=AValue) then exit;
- FtranscriptIds:=AValue;
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariantAnnotation.Set_type(AIndex : Integer; const AValue : String);
+Procedure TStreamVariantsRequest.Set_end(AIndex : Integer; const AValue : String);
begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
MarkPropertyChanged(AIndex);
end;
-Class Function TVariantAnnotation.ExportPropertyName(Const AName : String) :String;
+Class Function TStreamVariantsRequest.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
- '_type' : Result:='type';
+ '_end' : Result:='end';
else
Result:=Inherited ExportPropertyName(AName);
end;
@@ -7231,12 +7279,11 @@ end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TVariantAnnotation.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TStreamVariantsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'conditions' : SetLength(Fconditions,ALength);
- 'transcriptids' : SetLength(FtranscriptIds,ALength);
+ 'callsetids' : SetLength(FcallSetIds,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -7247,57 +7294,86 @@ end;
{ --------------------------------------------------------------------
- TVariantAnnotationCondition
+ TStreamVariantsResponse
--------------------------------------------------------------------}
-Procedure TVariantAnnotationCondition.SetconceptId(AIndex : Integer; const AValue : String);
+Procedure TStreamVariantsResponse.Setvariants(AIndex : Integer; const AValue : TStreamVariantsResponseTypevariantsArray);
begin
- If (FconceptId=AValue) then exit;
- FconceptId:=AValue;
+ If (Fvariants=AValue) then exit;
+ Fvariants:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TVariantAnnotationCondition.SetexternalIds(AIndex : Integer; AValue : TVariantAnnotationConditionTypeexternalIdsArray);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStreamVariantsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FexternalIds=AValue) then exit;
- FexternalIds:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'variants' : SetLength(Fvariants,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Procedure TVariantAnnotationCondition.Setnames(AIndex : Integer; AValue : TStringArray);
+
+{ --------------------------------------------------------------------
+ TImportReadGroupSetsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TImportReadGroupSetsResponse.SetreadGroupSetIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fnames=AValue) then exit;
- Fnames:=AValue;
+ If (FreadGroupSetIds=AValue) then exit;
+ FreadGroupSetIds:=AValue;
MarkPropertyChanged(AIndex);
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TImportReadGroupSetsResponse.SetArrayLength(Const AName : String; ALength : Longint);
-Procedure TVariantAnnotationCondition.SetomimId(AIndex : Integer; const AValue : String);
+begin
+ Case AName of
+ 'readgroupsetids' : SetLength(FreadGroupSetIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TImportVariantsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TImportVariantsResponse.SetcallSetIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (FomimId=AValue) then exit;
- FomimId:=AValue;
+ If (FcallSetIds=AValue) then exit;
+ FcallSetIds:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TVariantAnnotationCondition.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TImportVariantsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'externalids' : SetLength(FexternalIds,ALength);
- 'names' : SetLength(Fnames,ALength);
+ 'callsetids' : SetLength(FcallSetIds,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -7308,57 +7384,79 @@ end;
{ --------------------------------------------------------------------
- TVariantSet
+ TOperationMetadataTyperequest
--------------------------------------------------------------------}
-Procedure TVariantSet.SetdatasetId(AIndex : Integer; const AValue : String);
+Class Function TOperationMetadataTyperequest.AllowAdditionalProperties : Boolean;
begin
- If (FdatasetId=AValue) then exit;
- FdatasetId:=AValue;
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperationMetadata
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationMetadata.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariantSet.Setid(AIndex : Integer; const AValue : String);
+Procedure TOperationMetadata.SetcreateTime(AIndex : Integer; const AValue : String);
begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariantSet.Setmetadata(AIndex : Integer; AValue : TVariantSetTypemetadataArray);
+Procedure TOperationMetadata.SetendTime(AIndex : Integer; const AValue : String);
begin
- If (Fmetadata=AValue) then exit;
- Fmetadata:=AValue;
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TVariantSet.SetreferenceBounds(AIndex : Integer; AValue : TVariantSetTypereferenceBoundsArray);
+Procedure TOperationMetadata.Setrequest(AIndex : Integer; const AValue : TOperationMetadataTyperequest);
begin
- If (FreferenceBounds=AValue) then exit;
- FreferenceBounds:=AValue;
+ If (Frequest=AValue) then exit;
+ Frequest:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationMetadata.Setevents(AIndex : Integer; const AValue : TOperationMetadataTypeeventsArray);
+
+begin
+ If (Fevents=AValue) then exit;
+ Fevents:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TVariantSet.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TOperationMetadata.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'metadata' : SetLength(Fmetadata,ALength);
- 'referencebounds' : SetLength(FreferenceBounds,ALength);
+ 'events' : SetLength(Fevents,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -7369,102 +7467,116 @@ end;
{ --------------------------------------------------------------------
- TAnnotationSetsResource
+ TOperationEvent
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationEvent.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAnnotationsetsResource
--------------------------------------------------------------------}
-Class Function TAnnotationSetsResource.ResourceName : String;
+Class Function TAnnotationsetsResource.ResourceName : String;
begin
- Result:='annotationSets';
+ Result:='annotationsets';
end;
-Class Function TAnnotationSetsResource.DefaultAPI : TGoogleAPIClass;
+Class Function TAnnotationsetsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TgenomicsAPI;
end;
-Function TAnnotationSetsResource.Create(aAnnotationSet : TAnnotationSet) : TAnnotationSet;
+Function TAnnotationsetsResource.Create(aAnnotationSet : TAnnotationSet) : TAnnotationSet;
Const
_HTTPMethod = 'POST';
- _Path = 'annotationSets';
- _Methodid = 'genomics.annotationSets.create';
+ _Path = 'v1/annotationsets';
+ _Methodid = 'genomics.annotationsets.create';
begin
Result:=ServiceCall(_HTTPMethod,_Path,'',aAnnotationSet,TAnnotationSet) as TAnnotationSet;
end;
-Procedure TAnnotationSetsResource.Delete(annotationSetId: string);
+Function TAnnotationsetsResource.Get(annotationSetId: string) : TAnnotationSet;
Const
- _HTTPMethod = 'DELETE';
- _Path = 'annotationSets/{annotationSetId}';
- _Methodid = 'genomics.annotationSets.delete';
+ _HTTPMethod = 'GET';
+ _Path = 'v1/annotationsets/{annotationSetId}';
+ _Methodid = 'genomics.annotationsets.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['annotationSetId',annotationSetId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAnnotationSet) as TAnnotationSet;
end;
-Function TAnnotationSetsResource.Get(annotationSetId: string) : TAnnotationSet;
+Function TAnnotationsetsResource.Update(annotationSetId: string; aAnnotationSet : TAnnotationSet; AQuery : string = '') : TAnnotationSet;
Const
- _HTTPMethod = 'GET';
- _Path = 'annotationSets/{annotationSetId}';
- _Methodid = 'genomics.annotationSets.get';
+ _HTTPMethod = 'PUT';
+ _Path = 'v1/annotationsets/{annotationSetId}';
+ _Methodid = 'genomics.annotationsets.update';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['annotationSetId',annotationSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAnnotationSet) as TAnnotationSet;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAnnotationSet,TAnnotationSet) as TAnnotationSet;
end;
-Function TAnnotationSetsResource.Patch(annotationSetId: string; aAnnotationSet : TAnnotationSet) : TAnnotationSet;
-Const
- _HTTPMethod = 'PATCH';
- _Path = 'annotationSets/{annotationSetId}';
- _Methodid = 'genomics.annotationSets.patch';
+Function TAnnotationsetsResource.Update(annotationSetId: string; aAnnotationSet : TAnnotationSet; AQuery : TAnnotationsetsupdateOptions) : TAnnotationSet;
Var
- _P : String;
+ _Q : String;
begin
- _P:=SubstitutePath(_Path,['annotationSetId',annotationSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aAnnotationSet,TAnnotationSet) as TAnnotationSet;
+ _Q:='';
+ AddToQuery(_Q,'updateMask',AQuery.updateMask);
+ Result:=Update(annotationSetId,aAnnotationSet,_Q);
end;
-Function TAnnotationSetsResource.Search(aSearchAnnotationSetsRequest : TSearchAnnotationSetsRequest) : TSearchAnnotationSetsResponse;
+Function TAnnotationsetsResource.Delete(annotationSetId: string) : TEmpty;
Const
- _HTTPMethod = 'POST';
- _Path = 'annotationSets/search';
- _Methodid = 'genomics.annotationSets.search';
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/annotationsets/{annotationSetId}';
+ _Methodid = 'genomics.annotationsets.delete';
+
+Var
+ _P : String;
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchAnnotationSetsRequest,TSearchAnnotationSetsResponse) as TSearchAnnotationSetsResponse;
+ _P:=SubstitutePath(_Path,['annotationSetId',annotationSetId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
end;
-Function TAnnotationSetsResource.Update(annotationSetId: string; aAnnotationSet : TAnnotationSet) : TAnnotationSet;
+Function TAnnotationsetsResource.Search(aSearchAnnotationSetsRequest : TSearchAnnotationSetsRequest) : TSearchAnnotationSetsResponse;
Const
- _HTTPMethod = 'PUT';
- _Path = 'annotationSets/{annotationSetId}';
- _Methodid = 'genomics.annotationSets.update';
-
-Var
- _P : String;
+ _HTTPMethod = 'POST';
+ _Path = 'v1/annotationsets/search';
+ _Methodid = 'genomics.annotationsets.search';
begin
- _P:=SubstitutePath(_Path,['annotationSetId',annotationSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aAnnotationSet,TAnnotationSet) as TAnnotationSet;
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchAnnotationSetsRequest,TSearchAnnotationSetsResponse) as TSearchAnnotationSetsResponse;
end;
@@ -7486,48 +7598,33 @@ begin
Result:=TgenomicsAPI;
end;
-Function TAnnotationsResource.BatchCreate(aBatchCreateAnnotationsRequest : TBatchCreateAnnotationsRequest) : TBatchAnnotationsResponse;
-
-Const
- _HTTPMethod = 'POST';
- _Path = 'annotations:batchCreate';
- _Methodid = 'genomics.annotations.batchCreate';
-
-begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aBatchCreateAnnotationsRequest,TBatchAnnotationsResponse) as TBatchAnnotationsResponse;
-end;
-
Function TAnnotationsResource.Create(aAnnotation : TAnnotation) : TAnnotation;
Const
_HTTPMethod = 'POST';
- _Path = 'annotations';
+ _Path = 'v1/annotations';
_Methodid = 'genomics.annotations.create';
begin
Result:=ServiceCall(_HTTPMethod,_Path,'',aAnnotation,TAnnotation) as TAnnotation;
end;
-Procedure TAnnotationsResource.Delete(annotationId: string);
+Function TAnnotationsResource.BatchCreate(aBatchCreateAnnotationsRequest : TBatchCreateAnnotationsRequest) : TBatchCreateAnnotationsResponse;
Const
- _HTTPMethod = 'DELETE';
- _Path = 'annotations/{annotationId}';
- _Methodid = 'genomics.annotations.delete';
-
-Var
- _P : String;
+ _HTTPMethod = 'POST';
+ _Path = 'v1/annotations:batchCreate';
+ _Methodid = 'genomics.annotations.batchCreate';
begin
- _P:=SubstitutePath(_Path,['annotationId',annotationId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aBatchCreateAnnotationsRequest,TBatchCreateAnnotationsResponse) as TBatchCreateAnnotationsResponse;
end;
Function TAnnotationsResource.Get(annotationId: string) : TAnnotation;
Const
_HTTPMethod = 'GET';
- _Path = 'annotations/{annotationId}';
+ _Path = 'v1/annotations/{annotationId}';
_Methodid = 'genomics.annotations.get';
Var
@@ -7538,37 +7635,11 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAnnotation) as TAnnotation;
end;
-Function TAnnotationsResource.Patch(annotationId: string; aAnnotation : TAnnotation) : TAnnotation;
-
-Const
- _HTTPMethod = 'PATCH';
- _Path = 'annotations/{annotationId}';
- _Methodid = 'genomics.annotations.patch';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['annotationId',annotationId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aAnnotation,TAnnotation) as TAnnotation;
-end;
-
-Function TAnnotationsResource.Search(aSearchAnnotationsRequest : TSearchAnnotationsRequest) : TSearchAnnotationsResponse;
-
-Const
- _HTTPMethod = 'POST';
- _Path = 'annotations/search';
- _Methodid = 'genomics.annotations.search';
-
-begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchAnnotationsRequest,TSearchAnnotationsResponse) as TSearchAnnotationsResponse;
-end;
-
-Function TAnnotationsResource.Update(annotationId: string; aAnnotation : TAnnotation) : TAnnotation;
+Function TAnnotationsResource.Update(annotationId: string; aAnnotation : TAnnotation; AQuery : string = '') : TAnnotation;
Const
_HTTPMethod = 'PUT';
- _Path = 'annotations/{annotationId}';
+ _Path = 'v1/annotations/{annotationId}';
_Methodid = 'genomics.annotations.update';
Var
@@ -7576,108 +7647,45 @@ Var
begin
_P:=SubstitutePath(_Path,['annotationId',annotationId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aAnnotation,TAnnotation) as TAnnotation;
-end;
-
-
-
-{ --------------------------------------------------------------------
- TCallsetsResource
- --------------------------------------------------------------------}
-
-
-Class Function TCallsetsResource.ResourceName : String;
-
-begin
- Result:='callsets';
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAnnotation,TAnnotation) as TAnnotation;
end;
-Class Function TCallsetsResource.DefaultAPI : TGoogleAPIClass;
-
-begin
- Result:=TgenomicsAPI;
-end;
-
-Function TCallsetsResource.Create(aCallSet : TCallSet) : TCallSet;
-
-Const
- _HTTPMethod = 'POST';
- _Path = 'callsets';
- _Methodid = 'genomics.callsets.create';
-
-begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aCallSet,TCallSet) as TCallSet;
-end;
-
-Procedure TCallsetsResource.Delete(callSetId: string);
-
-Const
- _HTTPMethod = 'DELETE';
- _Path = 'callsets/{callSetId}';
- _Methodid = 'genomics.callsets.delete';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['callSetId',callSetId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
-end;
-
-Function TCallsetsResource.Get(callSetId: string) : TCallSet;
-Const
- _HTTPMethod = 'GET';
- _Path = 'callsets/{callSetId}';
- _Methodid = 'genomics.callsets.get';
+Function TAnnotationsResource.Update(annotationId: string; aAnnotation : TAnnotation; AQuery : TAnnotationsupdateOptions) : TAnnotation;
Var
- _P : String;
+ _Q : String;
begin
- _P:=SubstitutePath(_Path,['callSetId',callSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCallSet) as TCallSet;
+ _Q:='';
+ AddToQuery(_Q,'updateMask',AQuery.updateMask);
+ Result:=Update(annotationId,aAnnotation,_Q);
end;
-Function TCallsetsResource.Patch(callSetId: string; aCallSet : TCallSet) : TCallSet;
+Function TAnnotationsResource.Delete(annotationId: string) : TEmpty;
Const
- _HTTPMethod = 'PATCH';
- _Path = 'callsets/{callSetId}';
- _Methodid = 'genomics.callsets.patch';
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/annotations/{annotationId}';
+ _Methodid = 'genomics.annotations.delete';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['callSetId',callSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCallSet,TCallSet) as TCallSet;
+ _P:=SubstitutePath(_Path,['annotationId',annotationId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
end;
-Function TCallsetsResource.Search(aSearchCallSetsRequest : TSearchCallSetsRequest) : TSearchCallSetsResponse;
+Function TAnnotationsResource.Search(aSearchAnnotationsRequest : TSearchAnnotationsRequest) : TSearchAnnotationsResponse;
Const
_HTTPMethod = 'POST';
- _Path = 'callsets/search';
- _Methodid = 'genomics.callsets.search';
-
-begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchCallSetsRequest,TSearchCallSetsResponse) as TSearchCallSetsResponse;
-end;
-
-Function TCallsetsResource.Update(callSetId: string; aCallSet : TCallSet) : TCallSet;
-
-Const
- _HTTPMethod = 'PUT';
- _Path = 'callsets/{callSetId}';
- _Methodid = 'genomics.callsets.update';
-
-Var
- _P : String;
+ _Path = 'v1/annotations/search';
+ _Methodid = 'genomics.annotations.search';
begin
- _P:=SubstitutePath(_Path,['callSetId',callSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCallSet,TCallSet) as TCallSet;
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchAnnotationsRequest,TSearchAnnotationsResponse) as TSearchAnnotationsResponse;
end;
@@ -7699,37 +7707,47 @@ begin
Result:=TgenomicsAPI;
end;
-Function TDatasetsResource.Create(aDataset : TDataset) : TDataset;
+Function TDatasetsResource.List(AQuery : string = '') : TListDatasetsResponse;
Const
- _HTTPMethod = 'POST';
- _Path = 'datasets';
- _Methodid = 'genomics.datasets.create';
+ _HTTPMethod = 'GET';
+ _Path = 'v1/datasets';
+ _Methodid = 'genomics.datasets.list';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aDataset,TDataset) as TDataset;
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListDatasetsResponse) as TListDatasetsResponse;
end;
-Procedure TDatasetsResource.Delete(datasetId: string);
-Const
- _HTTPMethod = 'DELETE';
- _Path = 'datasets/{datasetId}';
- _Methodid = 'genomics.datasets.delete';
+Function TDatasetsResource.List(AQuery : TDatasetslistOptions) : TListDatasetsResponse;
Var
- _P : String;
+ _Q : String;
begin
- _P:=SubstitutePath(_Path,['datasetId',datasetId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ _Q:='';
+ AddToQuery(_Q,'projectId',AQuery.projectId);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_Q);
+end;
+
+Function TDatasetsResource.Create(aDataset : TDataset) : TDataset;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/datasets';
+ _Methodid = 'genomics.datasets.create';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aDataset,TDataset) as TDataset;
end;
Function TDatasetsResource.Get(datasetId: string) : TDataset;
Const
_HTTPMethod = 'GET';
- _Path = 'datasets/{datasetId}';
+ _Path = 'v1/datasets/{datasetId}';
_Methodid = 'genomics.datasets.get';
Var
@@ -7740,51 +7758,53 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDataset) as TDataset;
end;
-Function TDatasetsResource.List(AQuery : string = '') : TListDatasetsResponse;
+Function TDatasetsResource.Patch(datasetId: string; aDataset : TDataset; AQuery : string = '') : TDataset;
Const
- _HTTPMethod = 'GET';
- _Path = 'datasets';
- _Methodid = 'genomics.datasets.list';
+ _HTTPMethod = 'PATCH';
+ _Path = 'v1/datasets/{datasetId}';
+ _Methodid = 'genomics.datasets.patch';
+
+Var
+ _P : String;
begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListDatasetsResponse) as TListDatasetsResponse;
+ _P:=SubstitutePath(_Path,['datasetId',datasetId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDataset,TDataset) as TDataset;
end;
-Function TDatasetsResource.List(AQuery : TDatasetslistOptions) : TListDatasetsResponse;
+Function TDatasetsResource.Patch(datasetId: string; aDataset : TDataset; AQuery : TDatasetspatchOptions) : TDataset;
Var
_Q : String;
begin
_Q:='';
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'projectNumber',AQuery.projectNumber);
- Result:=List(_Q);
+ AddToQuery(_Q,'updateMask',AQuery.updateMask);
+ Result:=Patch(datasetId,aDataset,_Q);
end;
-Function TDatasetsResource.Patch(datasetId: string; aDataset : TDataset) : TDataset;
+Function TDatasetsResource.Delete(datasetId: string) : TEmpty;
Const
- _HTTPMethod = 'PATCH';
- _Path = 'datasets/{datasetId}';
- _Methodid = 'genomics.datasets.patch';
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/datasets/{datasetId}';
+ _Methodid = 'genomics.datasets.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aDataset,TDataset) as TDataset;
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
end;
-Function TDatasetsResource.Undelete(datasetId: string) : TDataset;
+Function TDatasetsResource.Undelete(datasetId: string; aUndeleteDatasetRequest : TUndeleteDatasetRequest) : TDataset;
Const
_HTTPMethod = 'POST';
- _Path = 'datasets/{datasetId}/undelete';
+ _Path = 'v1/datasets/{datasetId}:undelete';
_Methodid = 'genomics.datasets.undelete';
Var
@@ -7792,155 +7812,130 @@ Var
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDataset) as TDataset;
+ Result:=ServiceCall(_HTTPMethod,_P,'',aUndeleteDatasetRequest,TDataset) as TDataset;
end;
-Function TDatasetsResource.Update(datasetId: string; aDataset : TDataset) : TDataset;
+Function TDatasetsResource.SetIamPolicy(resource: string; aSetIamPolicyRequest : TSetIamPolicyRequest) : TPolicy;
Const
- _HTTPMethod = 'PUT';
- _Path = 'datasets/{datasetId}';
- _Methodid = 'genomics.datasets.update';
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+resource}:setIamPolicy';
+ _Methodid = 'genomics.datasets.setIamPolicy';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['datasetId',datasetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aDataset,TDataset) as TDataset;
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSetIamPolicyRequest,TPolicy) as TPolicy;
end;
+Function TDatasetsResource.GetIamPolicy(resource: string; aGetIamPolicyRequest : TGetIamPolicyRequest) : TPolicy;
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+resource}:getIamPolicy';
+ _Methodid = 'genomics.datasets.getIamPolicy';
-{ --------------------------------------------------------------------
- TExperimentalJobsResource
- --------------------------------------------------------------------}
-
-
-Class Function TExperimentalJobsResource.ResourceName : String;
-
-begin
- Result:='jobs';
-end;
-
-Class Function TExperimentalJobsResource.DefaultAPI : TGoogleAPIClass;
+Var
+ _P : String;
begin
- Result:=TgenomicsAPI;
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aGetIamPolicyRequest,TPolicy) as TPolicy;
end;
-Function TExperimentalJobsResource.Create(aExperimentalCreateJobRequest : TExperimentalCreateJobRequest) : TExperimentalCreateJobResponse;
+Function TDatasetsResource.TestIamPermissions(resource: string; aTestIamPermissionsRequest : TTestIamPermissionsRequest) : TTestIamPermissionsResponse;
Const
_HTTPMethod = 'POST';
- _Path = 'experimental/jobs/create';
- _Methodid = 'genomics.experimental.jobs.create';
+ _Path = 'v1/{+resource}:testIamPermissions';
+ _Methodid = 'genomics.datasets.testIamPermissions';
+
+Var
+ _P : String;
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aExperimentalCreateJobRequest,TExperimentalCreateJobResponse) as TExperimentalCreateJobResponse;
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTestIamPermissionsRequest,TTestIamPermissionsResponse) as TTestIamPermissionsResponse;
end;
{ --------------------------------------------------------------------
- TExperimentalResource
+ TOperationsResource
--------------------------------------------------------------------}
-Class Function TExperimentalResource.ResourceName : String;
+Class Function TOperationsResource.ResourceName : String;
begin
- Result:='experimental';
+ Result:='operations';
end;
-Class Function TExperimentalResource.DefaultAPI : TGoogleAPIClass;
+Class Function TOperationsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TgenomicsAPI;
end;
+Function TOperationsResource.Get(_name: string) : TOperation;
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'genomics.operations.get';
-Function TExperimentalResource.GetJobsInstance : TExperimentalJobsResource;
-
-begin
- if (FJobsInstance=Nil) then
- FJobsInstance:=CreateJobsResource;
- Result:=FJobsInstance;
-end;
-
-Function TExperimentalResource.CreateJobsResource : TExperimentalJobsResource;
-
-begin
- Result:=CreateJobsResource(Self);
-end;
-
-
-Function TExperimentalResource.CreateJobsResource(AOwner : TComponent) : TExperimentalJobsResource;
-
-begin
- Result:=TExperimentalJobsResource.Create(AOwner);
- Result.API:=Self.API;
-end;
-
-
-
-{ --------------------------------------------------------------------
- TJobsResource
- --------------------------------------------------------------------}
-
-
-Class Function TJobsResource.ResourceName : String;
-
-begin
- Result:='jobs';
-end;
-
-Class Function TJobsResource.DefaultAPI : TGoogleAPIClass;
+Var
+ _P : String;
begin
- Result:=TgenomicsAPI;
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
-Procedure TJobsResource.Cancel(jobId: string);
+Function TOperationsResource.List(_name: string; AQuery : string = '') : TListOperationsResponse;
Const
- _HTTPMethod = 'POST';
- _Path = 'jobs/{jobId}/cancel';
- _Methodid = 'genomics.jobs.cancel';
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'genomics.operations.list';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['jobId',jobId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListOperationsResponse) as TListOperationsResponse;
end;
-Function TJobsResource.Get(jobId: string) : TJob;
-Const
- _HTTPMethod = 'GET';
- _Path = 'jobs/{jobId}';
- _Methodid = 'genomics.jobs.get';
+Function TOperationsResource.List(_name: string; AQuery : TOperationslistOptions) : TListOperationsResponse;
Var
- _P : String;
+ _Q : String;
begin
- _P:=SubstitutePath(_Path,['jobId',jobId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TJob) as TJob;
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
end;
-Function TJobsResource.Search(aSearchJobsRequest : TSearchJobsRequest) : TSearchJobsResponse;
+Function TOperationsResource.Cancel(_name: string; aCancelOperationRequest : TCancelOperationRequest) : TEmpty;
Const
_HTTPMethod = 'POST';
- _Path = 'jobs/search';
- _Methodid = 'genomics.jobs.search';
+ _Path = 'v1/{+name}:cancel';
+ _Methodid = 'genomics.operations.cancel';
+
+Var
+ _P : String;
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchJobsRequest,TSearchJobsResponse) as TSearchJobsResponse;
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCancelOperationRequest,TEmpty) as TEmpty;
end;
@@ -7966,7 +7961,7 @@ Function TReadgroupsetsCoveragebucketsResource.List(readGroupSetId: string; AQue
Const
_HTTPMethod = 'GET';
- _Path = 'readgroupsets/{readGroupSetId}/coveragebuckets';
+ _Path = 'v1/readgroupsets/{readGroupSetId}/coveragebuckets';
_Methodid = 'genomics.readgroupsets.coveragebuckets.list';
Var
@@ -7985,12 +7980,12 @@ Var
begin
_Q:='';
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'range.end',AQuery.rangeend);
- AddToQuery(_Q,'range.referenceName',AQuery.rangereferenceName);
- AddToQuery(_Q,'range.start',AQuery.rangestart);
+ AddToQuery(_Q,'referenceName',AQuery.referenceName);
+ AddToQuery(_Q,'start',AQuery.start);
+ AddToQuery(_Q,'end',AQuery._end);
AddToQuery(_Q,'targetBucketWidth',AQuery.targetBucketWidth);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
Result:=List(readGroupSetId,_Q);
end;
@@ -8013,119 +8008,98 @@ begin
Result:=TgenomicsAPI;
end;
-Function TReadgroupsetsResource.Align(aAlignReadGroupSetsRequest : TAlignReadGroupSetsRequest) : TAlignReadGroupSetsResponse;
+Function TReadgroupsetsResource.Import(aImportReadGroupSetsRequest : TImportReadGroupSetsRequest) : TOperation;
Const
_HTTPMethod = 'POST';
- _Path = 'readgroupsets/align';
- _Methodid = 'genomics.readgroupsets.align';
+ _Path = 'v1/readgroupsets:import';
+ _Methodid = 'genomics.readgroupsets.import';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aAlignReadGroupSetsRequest,TAlignReadGroupSetsResponse) as TAlignReadGroupSetsResponse;
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aImportReadGroupSetsRequest,TOperation) as TOperation;
end;
-Function TReadgroupsetsResource.Call(aCallReadGroupSetsRequest : TCallReadGroupSetsRequest) : TCallReadGroupSetsResponse;
+Function TReadgroupsetsResource.Export(readGroupSetId: string; aExportReadGroupSetRequest : TExportReadGroupSetRequest) : TOperation;
Const
_HTTPMethod = 'POST';
- _Path = 'readgroupsets/call';
- _Methodid = 'genomics.readgroupsets.call';
-
-begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aCallReadGroupSetsRequest,TCallReadGroupSetsResponse) as TCallReadGroupSetsResponse;
-end;
-
-Procedure TReadgroupsetsResource.Delete(readGroupSetId: string);
-
-Const
- _HTTPMethod = 'DELETE';
- _Path = 'readgroupsets/{readGroupSetId}';
- _Methodid = 'genomics.readgroupsets.delete';
+ _Path = 'v1/readgroupsets/{readGroupSetId}:export';
+ _Methodid = 'genomics.readgroupsets.export';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['readGroupSetId',readGroupSetId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aExportReadGroupSetRequest,TOperation) as TOperation;
end;
-Function TReadgroupsetsResource.Export(aExportReadGroupSetsRequest : TExportReadGroupSetsRequest) : TExportReadGroupSetsResponse;
+Function TReadgroupsetsResource.Search(aSearchReadGroupSetsRequest : TSearchReadGroupSetsRequest) : TSearchReadGroupSetsResponse;
Const
_HTTPMethod = 'POST';
- _Path = 'readgroupsets/export';
- _Methodid = 'genomics.readgroupsets.export';
+ _Path = 'v1/readgroupsets/search';
+ _Methodid = 'genomics.readgroupsets.search';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aExportReadGroupSetsRequest,TExportReadGroupSetsResponse) as TExportReadGroupSetsResponse;
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchReadGroupSetsRequest,TSearchReadGroupSetsResponse) as TSearchReadGroupSetsResponse;
end;
-Function TReadgroupsetsResource.Get(readGroupSetId: string) : TReadGroupSet;
+Function TReadgroupsetsResource.Patch(readGroupSetId: string; aReadGroupSet : TReadGroupSet; AQuery : string = '') : TReadGroupSet;
Const
- _HTTPMethod = 'GET';
- _Path = 'readgroupsets/{readGroupSetId}';
- _Methodid = 'genomics.readgroupsets.get';
+ _HTTPMethod = 'PATCH';
+ _Path = 'v1/readgroupsets/{readGroupSetId}';
+ _Methodid = 'genomics.readgroupsets.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['readGroupSetId',readGroupSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TReadGroupSet) as TReadGroupSet;
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aReadGroupSet,TReadGroupSet) as TReadGroupSet;
end;
-Function TReadgroupsetsResource.Import(aImportReadGroupSetsRequest : TImportReadGroupSetsRequest) : TImportReadGroupSetsResponse;
-Const
- _HTTPMethod = 'POST';
- _Path = 'readgroupsets/import';
- _Methodid = 'genomics.readgroupsets.import';
+Function TReadgroupsetsResource.Patch(readGroupSetId: string; aReadGroupSet : TReadGroupSet; AQuery : TReadgroupsetspatchOptions) : TReadGroupSet;
+
+Var
+ _Q : String;
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aImportReadGroupSetsRequest,TImportReadGroupSetsResponse) as TImportReadGroupSetsResponse;
+ _Q:='';
+ AddToQuery(_Q,'updateMask',AQuery.updateMask);
+ Result:=Patch(readGroupSetId,aReadGroupSet,_Q);
end;
-Function TReadgroupsetsResource.Patch(readGroupSetId: string; aReadGroupSet : TReadGroupSet) : TReadGroupSet;
+Function TReadgroupsetsResource.Delete(readGroupSetId: string) : TEmpty;
Const
- _HTTPMethod = 'PATCH';
- _Path = 'readgroupsets/{readGroupSetId}';
- _Methodid = 'genomics.readgroupsets.patch';
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/readgroupsets/{readGroupSetId}';
+ _Methodid = 'genomics.readgroupsets.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['readGroupSetId',readGroupSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aReadGroupSet,TReadGroupSet) as TReadGroupSet;
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
end;
-Function TReadgroupsetsResource.Search(aSearchReadGroupSetsRequest : TSearchReadGroupSetsRequest) : TSearchReadGroupSetsResponse;
-
-Const
- _HTTPMethod = 'POST';
- _Path = 'readgroupsets/search';
- _Methodid = 'genomics.readgroupsets.search';
-
-begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchReadGroupSetsRequest,TSearchReadGroupSetsResponse) as TSearchReadGroupSetsResponse;
-end;
-
-Function TReadgroupsetsResource.Update(readGroupSetId: string; aReadGroupSet : TReadGroupSet) : TReadGroupSet;
+Function TReadgroupsetsResource.Get(readGroupSetId: string) : TReadGroupSet;
Const
- _HTTPMethod = 'PUT';
- _Path = 'readgroupsets/{readGroupSetId}';
- _Methodid = 'genomics.readgroupsets.update';
+ _HTTPMethod = 'GET';
+ _Path = 'v1/readgroupsets/{readGroupSetId}';
+ _Methodid = 'genomics.readgroupsets.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['readGroupSetId',readGroupSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aReadGroupSet,TReadGroupSet) as TReadGroupSet;
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TReadGroupSet) as TReadGroupSet;
end;
@@ -8175,13 +8149,69 @@ Function TReadsResource.Search(aSearchReadsRequest : TSearchReadsRequest) : TSea
Const
_HTTPMethod = 'POST';
- _Path = 'reads/search';
+ _Path = 'v1/reads/search';
_Methodid = 'genomics.reads.search';
begin
Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchReadsRequest,TSearchReadsResponse) as TSearchReadsResponse;
end;
+Function TReadsResource.Stream(aStreamReadsRequest : TStreamReadsRequest) : TStreamReadsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/reads:stream';
+ _Methodid = 'genomics.reads.stream';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aStreamReadsRequest,TStreamReadsResponse) as TStreamReadsResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TReferencesetsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TReferencesetsResource.ResourceName : String;
+
+begin
+ Result:='referencesets';
+end;
+
+Class Function TReferencesetsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TgenomicsAPI;
+end;
+
+Function TReferencesetsResource.Search(aSearchReferenceSetsRequest : TSearchReferenceSetsRequest) : TSearchReferenceSetsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/referencesets/search';
+ _Methodid = 'genomics.referencesets.search';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchReferenceSetsRequest,TSearchReferenceSetsResponse) as TSearchReferenceSetsResponse;
+end;
+
+Function TReferencesetsResource.Get(referenceSetId: string) : TReferenceSet;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/referencesets/{referenceSetId}';
+ _Methodid = 'genomics.referencesets.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['referenceSetId',referenceSetId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TReferenceSet) as TReferenceSet;
+end;
+
{ --------------------------------------------------------------------
@@ -8205,7 +8235,7 @@ Function TReferencesBasesResource.List(referenceId: string; AQuery : string = ''
Const
_HTTPMethod = 'GET';
- _Path = 'references/{referenceId}/bases';
+ _Path = 'v1/references/{referenceId}/bases';
_Methodid = 'genomics.references.bases.list';
Var
@@ -8224,10 +8254,10 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'start',AQuery.start);
AddToQuery(_Q,'end',AQuery._end);
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'start',AQuery.start);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
Result:=List(referenceId,_Q);
end;
@@ -8250,11 +8280,22 @@ begin
Result:=TgenomicsAPI;
end;
+Function TReferencesResource.Search(aSearchReferencesRequest : TSearchReferencesRequest) : TSearchReferencesResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/references/search';
+ _Methodid = 'genomics.references.search';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchReferencesRequest,TSearchReferencesResponse) as TSearchReferencesResponse;
+end;
+
Function TReferencesResource.Get(referenceId: string) : TReference;
Const
_HTTPMethod = 'GET';
- _Path = 'references/{referenceId}';
+ _Path = 'v1/references/{referenceId}';
_Methodid = 'genomics.references.get';
Var
@@ -8265,17 +8306,6 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TReference) as TReference;
end;
-Function TReferencesResource.Search(aSearchReferencesRequest : TSearchReferencesRequest) : TSearchReferencesResponse;
-
-Const
- _HTTPMethod = 'POST';
- _Path = 'references/search';
- _Methodid = 'genomics.references.search';
-
-begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchReferencesRequest,TSearchReferencesResponse) as TSearchReferencesResponse;
-end;
-
Function TReferencesResource.GetBasesInstance : TReferencesBasesResource;
@@ -8303,83 +8333,87 @@ end;
{ --------------------------------------------------------------------
- TReferencesetsResource
+ TVariantsResource
--------------------------------------------------------------------}
-Class Function TReferencesetsResource.ResourceName : String;
+Class Function TVariantsResource.ResourceName : String;
begin
- Result:='referencesets';
+ Result:='variants';
end;
-Class Function TReferencesetsResource.DefaultAPI : TGoogleAPIClass;
+Class Function TVariantsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TgenomicsAPI;
end;
-Function TReferencesetsResource.Get(referenceSetId: string) : TReferenceSet;
+Function TVariantsResource.Import(aImportVariantsRequest : TImportVariantsRequest) : TOperation;
Const
- _HTTPMethod = 'GET';
- _Path = 'referencesets/{referenceSetId}';
- _Methodid = 'genomics.referencesets.get';
-
-Var
- _P : String;
+ _HTTPMethod = 'POST';
+ _Path = 'v1/variants:import';
+ _Methodid = 'genomics.variants.import';
begin
- _P:=SubstitutePath(_Path,['referenceSetId',referenceSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TReferenceSet) as TReferenceSet;
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aImportVariantsRequest,TOperation) as TOperation;
end;
-Function TReferencesetsResource.Search(aSearchReferenceSetsRequest : TSearchReferenceSetsRequest) : TSearchReferenceSetsResponse;
+Function TVariantsResource.Search(aSearchVariantsRequest : TSearchVariantsRequest) : TSearchVariantsResponse;
Const
_HTTPMethod = 'POST';
- _Path = 'referencesets/search';
- _Methodid = 'genomics.referencesets.search';
+ _Path = 'v1/variants/search';
+ _Methodid = 'genomics.variants.search';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchReferenceSetsRequest,TSearchReferenceSetsResponse) as TSearchReferenceSetsResponse;
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchVariantsRequest,TSearchVariantsResponse) as TSearchVariantsResponse;
end;
+Function TVariantsResource.Create(aVariant : TVariant) : TVariant;
-
-{ --------------------------------------------------------------------
- TVariantsResource
- --------------------------------------------------------------------}
-
-
-Class Function TVariantsResource.ResourceName : String;
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/variants';
+ _Methodid = 'genomics.variants.create';
begin
- Result:='variants';
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aVariant,TVariant) as TVariant;
end;
-Class Function TVariantsResource.DefaultAPI : TGoogleAPIClass;
+Function TVariantsResource.Patch(variantId: string; aVariant : TVariant; AQuery : string = '') : TVariant;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'v1/variants/{variantId}';
+ _Methodid = 'genomics.variants.patch';
+
+Var
+ _P : String;
begin
- Result:=TgenomicsAPI;
+ _P:=SubstitutePath(_Path,['variantId',variantId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aVariant,TVariant) as TVariant;
end;
-Function TVariantsResource.Create(aVariant : TVariant) : TVariant;
-Const
- _HTTPMethod = 'POST';
- _Path = 'variants';
- _Methodid = 'genomics.variants.create';
+Function TVariantsResource.Patch(variantId: string; aVariant : TVariant; AQuery : TVariantspatchOptions) : TVariant;
+
+Var
+ _Q : String;
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aVariant,TVariant) as TVariant;
+ _Q:='';
+ AddToQuery(_Q,'updateMask',AQuery.updateMask);
+ Result:=Patch(variantId,aVariant,_Q);
end;
-Procedure TVariantsResource.Delete(variantId: string);
+Function TVariantsResource.Delete(variantId: string) : TEmpty;
Const
_HTTPMethod = 'DELETE';
- _Path = 'variants/{variantId}';
+ _Path = 'v1/variants/{variantId}';
_Methodid = 'genomics.variants.delete';
Var
@@ -8387,14 +8421,14 @@ Var
begin
_P:=SubstitutePath(_Path,['variantId',variantId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
end;
Function TVariantsResource.Get(variantId: string) : TVariant;
Const
_HTTPMethod = 'GET';
- _Path = 'variants/{variantId}';
+ _Path = 'v1/variants/{variantId}';
_Methodid = 'genomics.variants.get';
Var
@@ -8405,30 +8439,26 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TVariant) as TVariant;
end;
-Function TVariantsResource.Search(aSearchVariantsRequest : TSearchVariantsRequest) : TSearchVariantsResponse;
+Function TVariantsResource.Merge(aMergeVariantsRequest : TMergeVariantsRequest) : TEmpty;
Const
_HTTPMethod = 'POST';
- _Path = 'variants/search';
- _Methodid = 'genomics.variants.search';
+ _Path = 'v1/variants:merge';
+ _Methodid = 'genomics.variants.merge';
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchVariantsRequest,TSearchVariantsResponse) as TSearchVariantsResponse;
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aMergeVariantsRequest,TEmpty) as TEmpty;
end;
-Function TVariantsResource.Update(variantId: string; aVariant : TVariant) : TVariant;
+Function TVariantsResource.Stream(aStreamVariantsRequest : TStreamVariantsRequest) : TStreamVariantsResponse;
Const
- _HTTPMethod = 'PUT';
- _Path = 'variants/{variantId}';
- _Methodid = 'genomics.variants.update';
-
-Var
- _P : String;
+ _HTTPMethod = 'POST';
+ _Path = 'v1/variants:stream';
+ _Methodid = 'genomics.variants.stream';
begin
- _P:=SubstitutePath(_Path,['variantId',variantId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aVariant,TVariant) as TVariant;
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aStreamVariantsRequest,TStreamVariantsResponse) as TStreamVariantsResponse;
end;
@@ -8450,26 +8480,22 @@ begin
Result:=TgenomicsAPI;
end;
-Procedure TVariantsetsResource.Delete(variantSetId: string);
+Function TVariantsetsResource.Create(aVariantSet : TVariantSet) : TVariantSet;
Const
- _HTTPMethod = 'DELETE';
- _Path = 'variantsets/{variantSetId}';
- _Methodid = 'genomics.variantsets.delete';
-
-Var
- _P : String;
+ _HTTPMethod = 'POST';
+ _Path = 'v1/variantsets';
+ _Methodid = 'genomics.variantsets.create';
begin
- _P:=SubstitutePath(_Path,['variantSetId',variantSetId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aVariantSet,TVariantSet) as TVariantSet;
end;
-Function TVariantsetsResource.Export(variantSetId: string; aExportVariantSetRequest : TExportVariantSetRequest) : TExportVariantSetResponse;
+Function TVariantsetsResource.Export(variantSetId: string; aExportVariantSetRequest : TExportVariantSetRequest) : TOperation;
Const
_HTTPMethod = 'POST';
- _Path = 'variantsets/{variantSetId}/export';
+ _Path = 'v1/variantsets/{variantSetId}:export';
_Methodid = 'genomics.variantsets.export';
Var
@@ -8477,14 +8503,14 @@ Var
begin
_P:=SubstitutePath(_Path,['variantSetId',variantSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aExportVariantSetRequest,TExportVariantSetResponse) as TExportVariantSetResponse;
+ Result:=ServiceCall(_HTTPMethod,_P,'',aExportVariantSetRequest,TOperation) as TOperation;
end;
Function TVariantsetsResource.Get(variantSetId: string) : TVariantSet;
Const
_HTTPMethod = 'GET';
- _Path = 'variantsets/{variantSetId}';
+ _Path = 'v1/variantsets/{variantSetId}';
_Methodid = 'genomics.variantsets.get';
Var
@@ -8495,75 +8521,155 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TVariantSet) as TVariantSet;
end;
-Function TVariantsetsResource.ImportVariants(variantSetId: string; aImportVariantsRequest : TImportVariantsRequest) : TImportVariantsResponse;
+Function TVariantsetsResource.Search(aSearchVariantSetsRequest : TSearchVariantSetsRequest) : TSearchVariantSetsResponse;
Const
_HTTPMethod = 'POST';
- _Path = 'variantsets/{variantSetId}/importVariants';
- _Methodid = 'genomics.variantsets.importVariants';
+ _Path = 'v1/variantsets/search';
+ _Methodid = 'genomics.variantsets.search';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchVariantSetsRequest,TSearchVariantSetsResponse) as TSearchVariantSetsResponse;
+end;
+
+Function TVariantsetsResource.Delete(variantSetId: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/variantsets/{variantSetId}';
+ _Methodid = 'genomics.variantsets.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['variantSetId',variantSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aImportVariantsRequest,TImportVariantsResponse) as TImportVariantsResponse;
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
end;
-Procedure TVariantsetsResource.MergeVariants(variantSetId: string; aMergeVariantsRequest : TMergeVariantsRequest);
+Function TVariantsetsResource.Patch(variantSetId: string; aVariantSet : TVariantSet; AQuery : string = '') : TVariantSet;
Const
- _HTTPMethod = 'POST';
- _Path = 'variantsets/{variantSetId}/mergeVariants';
- _Methodid = 'genomics.variantsets.mergeVariants';
+ _HTTPMethod = 'PATCH';
+ _Path = 'v1/variantsets/{variantSetId}';
+ _Methodid = 'genomics.variantsets.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['variantSetId',variantSetId]);
- ServiceCall(_HTTPMethod,_P,'',aMergeVariantsRequest,Nil);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aVariantSet,TVariantSet) as TVariantSet;
+end;
+
+
+Function TVariantsetsResource.Patch(variantSetId: string; aVariantSet : TVariantSet; AQuery : TVariantsetspatchOptions) : TVariantSet;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'updateMask',AQuery.updateMask);
+ Result:=Patch(variantSetId,aVariantSet,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCallsetsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TCallsetsResource.ResourceName : String;
+
+begin
+ Result:='callsets';
+end;
+
+Class Function TCallsetsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TgenomicsAPI;
+end;
+
+Function TCallsetsResource.Search(aSearchCallSetsRequest : TSearchCallSetsRequest) : TSearchCallSetsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/callsets/search';
+ _Methodid = 'genomics.callsets.search';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchCallSetsRequest,TSearchCallSetsResponse) as TSearchCallSetsResponse;
+end;
+
+Function TCallsetsResource.Create(aCallSet : TCallSet) : TCallSet;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/callsets';
+ _Methodid = 'genomics.callsets.create';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aCallSet,TCallSet) as TCallSet;
end;
-Function TVariantsetsResource.Patch(variantSetId: string; aVariantSet : TVariantSet) : TVariantSet;
+Function TCallsetsResource.Patch(callSetId: string; aCallSet : TCallSet; AQuery : string = '') : TCallSet;
Const
_HTTPMethod = 'PATCH';
- _Path = 'variantsets/{variantSetId}';
- _Methodid = 'genomics.variantsets.patch';
+ _Path = 'v1/callsets/{callSetId}';
+ _Methodid = 'genomics.callsets.patch';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['variantSetId',variantSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aVariantSet,TVariantSet) as TVariantSet;
+ _P:=SubstitutePath(_Path,['callSetId',callSetId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aCallSet,TCallSet) as TCallSet;
end;
-Function TVariantsetsResource.Search(aSearchVariantSetsRequest : TSearchVariantSetsRequest) : TSearchVariantSetsResponse;
+
+Function TCallsetsResource.Patch(callSetId: string; aCallSet : TCallSet; AQuery : TCallsetspatchOptions) : TCallSet;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'updateMask',AQuery.updateMask);
+ Result:=Patch(callSetId,aCallSet,_Q);
+end;
+
+Function TCallsetsResource.Delete(callSetId: string) : TEmpty;
Const
- _HTTPMethod = 'POST';
- _Path = 'variantsets/search';
- _Methodid = 'genomics.variantsets.search';
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/callsets/{callSetId}';
+ _Methodid = 'genomics.callsets.delete';
+
+Var
+ _P : String;
begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aSearchVariantSetsRequest,TSearchVariantSetsResponse) as TSearchVariantSetsResponse;
+ _P:=SubstitutePath(_Path,['callSetId',callSetId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
end;
-Function TVariantsetsResource.Update(variantSetId: string; aVariantSet : TVariantSet) : TVariantSet;
+Function TCallsetsResource.Get(callSetId: string) : TCallSet;
Const
- _HTTPMethod = 'PUT';
- _Path = 'variantsets/{variantSetId}';
- _Methodid = 'genomics.variantsets.update';
+ _HTTPMethod = 'GET';
+ _Path = 'v1/callsets/{callSetId}';
+ _Methodid = 'genomics.callsets.get';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['variantSetId',variantSetId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aVariantSet,TVariantSet) as TVariantSet;
+ _P:=SubstitutePath(_Path,['callSetId',callSetId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCallSet) as TCallSet;
end;
@@ -8581,19 +8687,19 @@ end;
Class Function TGenomicsAPI.APIVersion : String;
begin
- Result:='v1beta2';
+ Result:='v1';
end;
Class Function TGenomicsAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160519';
end;
Class Function TGenomicsAPI.APIID : String;
begin
- Result:='genomics:v1beta2';
+ Result:='genomics:v1';
end;
Class Function TGenomicsAPI.APITitle : String;
@@ -8605,7 +8711,7 @@ end;
Class Function TGenomicsAPI.APIDescription : String;
begin
- Result:='Provides access to Genomics data.';
+ Result:='Stores, processes, explores and shares genomic data. This API implements the Global Alliance for Genomics and Health (GA4GH) v0.5.1 API as well as several extensions.';
end;
Class Function TGenomicsAPI.APIOwnerDomain : String;
@@ -8635,25 +8741,25 @@ end;
Class Function TGenomicsAPI.APIdocumentationLink : String;
begin
- Result:='https://developers.google.com/genomics/v1beta2/reference';
+ Result:='https://cloud.google.com/genomics/';
end;
Class Function TGenomicsAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://genomics.googleapis.com/';
end;
Class Function TGenomicsAPI.APIbasePath : string;
begin
- Result:='/genomics/v1beta2/';
+ Result:='';
end;
Class Function TGenomicsAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/genomics/v1beta2/';
+ Result:='https://genomics.googleapis.com/';
end;
Class Function TGenomicsAPI.APIProtocol : string;
@@ -8665,7 +8771,7 @@ end;
Class Function TGenomicsAPI.APIservicePath : string;
begin
- Result:='genomics/v1beta2/';
+ Result:='';
end;
Class Function TGenomicsAPI.APIbatchPath : String;
@@ -8700,114 +8806,119 @@ end;
Class Procedure TGenomicsAPI.RegisterAPIResources;
begin
- TAlignReadGroupSetsRequest.RegisterObject;
- TAlignReadGroupSetsResponse.RegisterObject;
- TAnnotationTypeinfo.RegisterObject;
- TAnnotation.RegisterObject;
TAnnotationSetTypeinfo.RegisterObject;
TAnnotationSet.RegisterObject;
- TBatchAnnotationsResponse.RegisterObject;
- TBatchAnnotationsResponseEntry.RegisterObject;
- TBatchAnnotationsResponseEntryStatus.RegisterObject;
- TBatchCreateAnnotationsRequest.RegisterObject;
- TCallTypeinfo.RegisterObject;
- TCall.RegisterObject;
- TCallReadGroupSetsRequest.RegisterObject;
- TCallReadGroupSetsResponse.RegisterObject;
- TCallSetTypeinfo.RegisterObject;
- TCallSet.RegisterObject;
- TCigarUnit.RegisterObject;
- TCoverageBucket.RegisterObject;
- TDataset.RegisterObject;
- TExperimentalCreateJobRequest.RegisterObject;
- TExperimentalCreateJobResponse.RegisterObject;
- TExportReadGroupSetsRequest.RegisterObject;
- TExportReadGroupSetsResponse.RegisterObject;
- TExportVariantSetRequest.RegisterObject;
- TExportVariantSetResponse.RegisterObject;
- TExternalId.RegisterObject;
- TFastqMetadata.RegisterObject;
- TImportReadGroupSetsRequest.RegisterObject;
- TImportReadGroupSetsResponse.RegisterObject;
- TImportVariantsRequest.RegisterObject;
- TImportVariantsResponse.RegisterObject;
- TInt32Value.RegisterObject;
- TInterleavedFastqSource.RegisterObject;
- TJob.RegisterObject;
- TJobRequest.RegisterObject;
- TLinearAlignment.RegisterObject;
- TListBasesResponse.RegisterObject;
- TListCoverageBucketsResponse.RegisterObject;
- TListDatasetsResponse.RegisterObject;
- TMergeVariantsRequest.RegisterObject;
- TMetadataTypeinfo.RegisterObject;
- TMetadata.RegisterObject;
- TPairedFastqSource.RegisterObject;
- TPosition.RegisterObject;
- TQueryRange.RegisterObject;
- TRange.RegisterObject;
- TRangePosition.RegisterObject;
- TReadTypeinfo.RegisterObject;
- TRead.RegisterObject;
- TReadGroupTypeinfo.RegisterObject;
- TReadGroup.RegisterObject;
- TReadGroupExperiment.RegisterObject;
- TReadGroupProgram.RegisterObject;
- TReadGroupSetTypeinfo.RegisterObject;
- TReadGroupSet.RegisterObject;
- TReference.RegisterObject;
- TReferenceBound.RegisterObject;
- TReferenceSet.RegisterObject;
+ TEmpty.RegisterObject;
TSearchAnnotationSetsRequest.RegisterObject;
TSearchAnnotationSetsResponse.RegisterObject;
+ TAnnotationTypeinfo.RegisterObject;
+ TAnnotation.RegisterObject;
+ TVariantAnnotation.RegisterObject;
+ TClinicalCondition.RegisterObject;
+ TExternalId.RegisterObject;
+ TTranscript.RegisterObject;
+ TExon.RegisterObject;
+ TCodingSequence.RegisterObject;
+ TBatchCreateAnnotationsRequest.RegisterObject;
+ TBatchCreateAnnotationsResponse.RegisterObject;
+ TEntry.RegisterObject;
+ TStatusTypedetailsItem.RegisterObject;
+ TStatus.RegisterObject;
TSearchAnnotationsRequest.RegisterObject;
TSearchAnnotationsResponse.RegisterObject;
- TSearchCallSetsRequest.RegisterObject;
- TSearchCallSetsResponse.RegisterObject;
- TSearchJobsRequest.RegisterObject;
- TSearchJobsResponse.RegisterObject;
+ TListDatasetsResponse.RegisterObject;
+ TDataset.RegisterObject;
+ TUndeleteDatasetRequest.RegisterObject;
+ TSetIamPolicyRequest.RegisterObject;
+ TPolicy.RegisterObject;
+ TBinding.RegisterObject;
+ TGetIamPolicyRequest.RegisterObject;
+ TTestIamPermissionsRequest.RegisterObject;
+ TTestIamPermissionsResponse.RegisterObject;
+ TOperationTypemetadata.RegisterObject;
+ TOperationTyperesponse.RegisterObject;
+ TOperation.RegisterObject;
+ TListOperationsResponse.RegisterObject;
+ TCancelOperationRequest.RegisterObject;
+ TImportReadGroupSetsRequest.RegisterObject;
+ TExportReadGroupSetRequest.RegisterObject;
TSearchReadGroupSetsRequest.RegisterObject;
TSearchReadGroupSetsResponse.RegisterObject;
+ TReadGroupSetTypeinfo.RegisterObject;
+ TReadGroupSet.RegisterObject;
+ TReadGroupTypeinfo.RegisterObject;
+ TReadGroup.RegisterObject;
+ TExperiment.RegisterObject;
+ TProgram.RegisterObject;
+ TListCoverageBucketsResponse.RegisterObject;
+ TCoverageBucket.RegisterObject;
+ TRange.RegisterObject;
TSearchReadsRequest.RegisterObject;
TSearchReadsResponse.RegisterObject;
+ TReadTypeinfo.RegisterObject;
+ TRead.RegisterObject;
+ TLinearAlignment.RegisterObject;
+ TPosition.RegisterObject;
+ TCigarUnit.RegisterObject;
+ TStreamReadsRequest.RegisterObject;
+ TStreamReadsResponse.RegisterObject;
TSearchReferenceSetsRequest.RegisterObject;
TSearchReferenceSetsResponse.RegisterObject;
+ TReferenceSet.RegisterObject;
TSearchReferencesRequest.RegisterObject;
TSearchReferencesResponse.RegisterObject;
+ TReference.RegisterObject;
+ TListBasesResponse.RegisterObject;
+ TImportVariantsRequestTypeinfoMergeConfig.RegisterObject;
+ TImportVariantsRequest.RegisterObject;
+ TVariantSet.RegisterObject;
+ TReferenceBound.RegisterObject;
+ TVariantSetMetadataTypeinfo.RegisterObject;
+ TVariantSetMetadata.RegisterObject;
+ TExportVariantSetRequest.RegisterObject;
TSearchVariantSetsRequest.RegisterObject;
TSearchVariantSetsResponse.RegisterObject;
TSearchVariantsRequest.RegisterObject;
TSearchVariantsResponse.RegisterObject;
- TTranscript.RegisterObject;
- TTranscriptCodingSequence.RegisterObject;
- TTranscriptExon.RegisterObject;
TVariantTypeinfo.RegisterObject;
TVariant.RegisterObject;
- TVariantAnnotation.RegisterObject;
- TVariantAnnotationCondition.RegisterObject;
- TVariantSet.RegisterObject;
+ TVariantCallTypeinfo.RegisterObject;
+ TVariantCall.RegisterObject;
+ TMergeVariantsRequestTypeinfoMergeConfig.RegisterObject;
+ TMergeVariantsRequest.RegisterObject;
+ TSearchCallSetsRequest.RegisterObject;
+ TSearchCallSetsResponse.RegisterObject;
+ TCallSetTypeinfo.RegisterObject;
+ TCallSet.RegisterObject;
+ TStreamVariantsRequest.RegisterObject;
+ TStreamVariantsResponse.RegisterObject;
+ TImportReadGroupSetsResponse.RegisterObject;
+ TImportVariantsResponse.RegisterObject;
+ TOperationMetadataTyperequest.RegisterObject;
+ TOperationMetadata.RegisterObject;
+ TOperationEvent.RegisterObject;
end;
-Function TGenomicsAPI.GetAnnotationSetsInstance : TAnnotationSetsResource;
+Function TGenomicsAPI.GetAnnotationsetsInstance : TAnnotationsetsResource;
begin
- if (FAnnotationSetsInstance=Nil) then
- FAnnotationSetsInstance:=CreateAnnotationSetsResource;
- Result:=FAnnotationSetsInstance;
+ if (FAnnotationsetsInstance=Nil) then
+ FAnnotationsetsInstance:=CreateAnnotationsetsResource;
+ Result:=FAnnotationsetsInstance;
end;
-Function TGenomicsAPI.CreateAnnotationSetsResource : TAnnotationSetsResource;
+Function TGenomicsAPI.CreateAnnotationsetsResource : TAnnotationsetsResource;
begin
- Result:=CreateAnnotationSetsResource(Self);
+ Result:=CreateAnnotationsetsResource(Self);
end;
-Function TGenomicsAPI.CreateAnnotationSetsResource(AOwner : TComponent) : TAnnotationSetsResource;
+Function TGenomicsAPI.CreateAnnotationsetsResource(AOwner : TComponent) : TAnnotationsetsResource;
begin
- Result:=TAnnotationSetsResource.Create(AOwner);
+ Result:=TAnnotationsetsResource.Create(AOwner);
Result.API:=Self.API;
end;
@@ -8837,30 +8948,6 @@ end;
-Function TGenomicsAPI.GetCallsetsInstance : TCallsetsResource;
-
-begin
- if (FCallsetsInstance=Nil) then
- FCallsetsInstance:=CreateCallsetsResource;
- Result:=FCallsetsInstance;
-end;
-
-Function TGenomicsAPI.CreateCallsetsResource : TCallsetsResource;
-
-begin
- Result:=CreateCallsetsResource(Self);
-end;
-
-
-Function TGenomicsAPI.CreateCallsetsResource(AOwner : TComponent) : TCallsetsResource;
-
-begin
- Result:=TCallsetsResource.Create(AOwner);
- Result.API:=Self.API;
-end;
-
-
-
Function TGenomicsAPI.GetDatasetsInstance : TDatasetsResource;
begin
@@ -8885,73 +8972,25 @@ end;
-Function TGenomicsAPI.GetExperimentalJobsInstance : TExperimentalJobsResource;
-
-begin
- if (FExperimentalJobsInstance=Nil) then
- FExperimentalJobsInstance:=CreateExperimentalJobsResource;
- Result:=FExperimentalJobsInstance;
-end;
-
-Function TGenomicsAPI.CreateExperimentalJobsResource : TExperimentalJobsResource;
-
-begin
- Result:=CreateExperimentalJobsResource(Self);
-end;
-
-
-Function TGenomicsAPI.CreateExperimentalJobsResource(AOwner : TComponent) : TExperimentalJobsResource;
-
-begin
- Result:=TExperimentalJobsResource.Create(AOwner);
- Result.API:=Self.API;
-end;
-
-
-
-Function TGenomicsAPI.GetExperimentalInstance : TExperimentalResource;
-
-begin
- if (FExperimentalInstance=Nil) then
- FExperimentalInstance:=CreateExperimentalResource;
- Result:=FExperimentalInstance;
-end;
-
-Function TGenomicsAPI.CreateExperimentalResource : TExperimentalResource;
-
-begin
- Result:=CreateExperimentalResource(Self);
-end;
-
-
-Function TGenomicsAPI.CreateExperimentalResource(AOwner : TComponent) : TExperimentalResource;
-
-begin
- Result:=TExperimentalResource.Create(AOwner);
- Result.API:=Self.API;
-end;
-
-
-
-Function TGenomicsAPI.GetJobsInstance : TJobsResource;
+Function TGenomicsAPI.GetOperationsInstance : TOperationsResource;
begin
- if (FJobsInstance=Nil) then
- FJobsInstance:=CreateJobsResource;
- Result:=FJobsInstance;
+ if (FOperationsInstance=Nil) then
+ FOperationsInstance:=CreateOperationsResource;
+ Result:=FOperationsInstance;
end;
-Function TGenomicsAPI.CreateJobsResource : TJobsResource;
+Function TGenomicsAPI.CreateOperationsResource : TOperationsResource;
begin
- Result:=CreateJobsResource(Self);
+ Result:=CreateOperationsResource(Self);
end;
-Function TGenomicsAPI.CreateJobsResource(AOwner : TComponent) : TJobsResource;
+Function TGenomicsAPI.CreateOperationsResource(AOwner : TComponent) : TOperationsResource;
begin
- Result:=TJobsResource.Create(AOwner);
+ Result:=TOperationsResource.Create(AOwner);
Result.API:=Self.API;
end;
@@ -9029,73 +9068,73 @@ end;
-Function TGenomicsAPI.GetReferencesBasesInstance : TReferencesBasesResource;
+Function TGenomicsAPI.GetReferencesetsInstance : TReferencesetsResource;
begin
- if (FReferencesBasesInstance=Nil) then
- FReferencesBasesInstance:=CreateReferencesBasesResource;
- Result:=FReferencesBasesInstance;
+ if (FReferencesetsInstance=Nil) then
+ FReferencesetsInstance:=CreateReferencesetsResource;
+ Result:=FReferencesetsInstance;
end;
-Function TGenomicsAPI.CreateReferencesBasesResource : TReferencesBasesResource;
+Function TGenomicsAPI.CreateReferencesetsResource : TReferencesetsResource;
begin
- Result:=CreateReferencesBasesResource(Self);
+ Result:=CreateReferencesetsResource(Self);
end;
-Function TGenomicsAPI.CreateReferencesBasesResource(AOwner : TComponent) : TReferencesBasesResource;
+Function TGenomicsAPI.CreateReferencesetsResource(AOwner : TComponent) : TReferencesetsResource;
begin
- Result:=TReferencesBasesResource.Create(AOwner);
+ Result:=TReferencesetsResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TGenomicsAPI.GetReferencesInstance : TReferencesResource;
+Function TGenomicsAPI.GetReferencesBasesInstance : TReferencesBasesResource;
begin
- if (FReferencesInstance=Nil) then
- FReferencesInstance:=CreateReferencesResource;
- Result:=FReferencesInstance;
+ if (FReferencesBasesInstance=Nil) then
+ FReferencesBasesInstance:=CreateReferencesBasesResource;
+ Result:=FReferencesBasesInstance;
end;
-Function TGenomicsAPI.CreateReferencesResource : TReferencesResource;
+Function TGenomicsAPI.CreateReferencesBasesResource : TReferencesBasesResource;
begin
- Result:=CreateReferencesResource(Self);
+ Result:=CreateReferencesBasesResource(Self);
end;
-Function TGenomicsAPI.CreateReferencesResource(AOwner : TComponent) : TReferencesResource;
+Function TGenomicsAPI.CreateReferencesBasesResource(AOwner : TComponent) : TReferencesBasesResource;
begin
- Result:=TReferencesResource.Create(AOwner);
+ Result:=TReferencesBasesResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TGenomicsAPI.GetReferencesetsInstance : TReferencesetsResource;
+Function TGenomicsAPI.GetReferencesInstance : TReferencesResource;
begin
- if (FReferencesetsInstance=Nil) then
- FReferencesetsInstance:=CreateReferencesetsResource;
- Result:=FReferencesetsInstance;
+ if (FReferencesInstance=Nil) then
+ FReferencesInstance:=CreateReferencesResource;
+ Result:=FReferencesInstance;
end;
-Function TGenomicsAPI.CreateReferencesetsResource : TReferencesetsResource;
+Function TGenomicsAPI.CreateReferencesResource : TReferencesResource;
begin
- Result:=CreateReferencesetsResource(Self);
+ Result:=CreateReferencesResource(Self);
end;
-Function TGenomicsAPI.CreateReferencesetsResource(AOwner : TComponent) : TReferencesetsResource;
+Function TGenomicsAPI.CreateReferencesResource(AOwner : TComponent) : TReferencesResource;
begin
- Result:=TReferencesetsResource.Create(AOwner);
+ Result:=TReferencesResource.Create(AOwner);
Result.API:=Self.API;
end;
@@ -9149,6 +9188,30 @@ end;
+Function TGenomicsAPI.GetCallsetsInstance : TCallsetsResource;
+
+begin
+ if (FCallsetsInstance=Nil) then
+ FCallsetsInstance:=CreateCallsetsResource;
+ Result:=FCallsetsInstance;
+end;
+
+Function TGenomicsAPI.CreateCallsetsResource : TCallsetsResource;
+
+begin
+ Result:=CreateCallsetsResource(Self);
+end;
+
+
+Function TGenomicsAPI.CreateCallsetsResource(AOwner : TComponent) : TCallsetsResource;
+
+begin
+ Result:=TCallsetsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
initialization
TGenomicsAPI.RegisterAPI;
end.
diff --git a/packages/googleapi/src/googlegmail.pp b/packages/googleapi/src/googlegmail.pp
index 468f2c984a..bb4c5124ac 100644
--- a/packages/googleapi/src/googlegmail.pp
+++ b/packages/googleapi/src/googlegmail.pp
@@ -1,19 +1,4 @@
unit googlegmail;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:04
{$MODE objfpc}
{$H+}
@@ -24,6 +9,7 @@ uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
+ TBatchDeleteMessagesRequest = Class;
TDraft = Class;
THistory = Class;
THistoryLabelAdded = Class;
@@ -44,6 +30,9 @@ type
TModifyThreadRequest = Class;
TProfile = Class;
TThread = Class;
+ TWatchRequest = Class;
+ TWatchResponse = Class;
+ TBatchDeleteMessagesRequestArray = Array of TBatchDeleteMessagesRequest;
TDraftArray = Array of TDraft;
THistoryArray = Array of THistory;
THistoryLabelAddedArray = Array of THistoryLabelAdded;
@@ -64,6 +53,8 @@ type
TModifyThreadRequestArray = Array of TModifyThreadRequest;
TProfileArray = Array of TProfile;
TThreadArray = Array of TThread;
+ TWatchRequestArray = Array of TWatchRequest;
+ TWatchResponseArray = Array of TWatchResponse;
//Anonymous types, using auto-generated names
THistoryTypelabelsAddedArray = Array of THistoryLabelAdded;
THistoryTypelabelsRemovedArray = Array of THistoryLabelRemoved;
@@ -80,6 +71,26 @@ type
TThreadTypemessagesArray = Array of TMessage;
{ --------------------------------------------------------------------
+ TBatchDeleteMessagesRequest
+ --------------------------------------------------------------------}
+
+ TBatchDeleteMessagesRequest = Class(TGoogleBaseObject)
+ Private
+ Fids : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setids(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 ids : TStringArray Index 0 Read Fids Write Setids;
+ end;
+ TBatchDeleteMessagesRequestClass = Class of TBatchDeleteMessagesRequest;
+
+ { --------------------------------------------------------------------
TDraft
--------------------------------------------------------------------}
@@ -90,7 +101,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmessage(AIndex : Integer; AValue : TMessage); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : TMessage); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
@@ -113,11 +124,11 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlabelsAdded(AIndex : Integer; AValue : THistoryTypelabelsAddedArray); virtual;
- Procedure SetlabelsRemoved(AIndex : Integer; AValue : THistoryTypelabelsRemovedArray); virtual;
- Procedure Setmessages(AIndex : Integer; AValue : THistoryTypemessagesArray); virtual;
- Procedure SetmessagesAdded(AIndex : Integer; AValue : THistoryTypemessagesAddedArray); virtual;
- Procedure SetmessagesDeleted(AIndex : Integer; AValue : THistoryTypemessagesDeletedArray); virtual;
+ Procedure SetlabelsAdded(AIndex : Integer; const AValue : THistoryTypelabelsAddedArray); virtual;
+ Procedure SetlabelsRemoved(AIndex : Integer; const AValue : THistoryTypelabelsRemovedArray); virtual;
+ Procedure Setmessages(AIndex : Integer; const AValue : THistoryTypemessagesArray); virtual;
+ Procedure SetmessagesAdded(AIndex : Integer; const AValue : THistoryTypemessagesAddedArray); virtual;
+ Procedure SetmessagesDeleted(AIndex : Integer; const AValue : THistoryTypemessagesDeletedArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -143,8 +154,8 @@ type
Fmessage : TMessage;
Protected
//Property setters
- Procedure SetlabelIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setmessage(AIndex : Integer; AValue : TMessage); virtual;
+ Procedure SetlabelIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : TMessage); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -166,8 +177,8 @@ type
Fmessage : TMessage;
Protected
//Property setters
- Procedure SetlabelIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setmessage(AIndex : Integer; AValue : TMessage); virtual;
+ Procedure SetlabelIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : TMessage); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -188,7 +199,7 @@ type
Fmessage : TMessage;
Protected
//Property setters
- Procedure Setmessage(AIndex : Integer; AValue : TMessage); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : TMessage); virtual;
Public
Published
Property message : TMessage Index 0 Read Fmessage Write Setmessage;
@@ -204,7 +215,7 @@ type
Fmessage : TMessage;
Protected
//Property setters
- Procedure Setmessage(AIndex : Integer; AValue : TMessage); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : TMessage); virtual;
Public
Published
Property message : TMessage Index 0 Read Fmessage Write Setmessage;
@@ -232,11 +243,11 @@ type
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetlabelListVisibility(AIndex : Integer; const AValue : String); virtual;
Procedure SetmessageListVisibility(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmessagesTotal(AIndex : Integer; AValue : integer); virtual;
- Procedure SetmessagesUnread(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmessagesTotal(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmessagesUnread(AIndex : Integer; const AValue : integer); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetthreadsTotal(AIndex : Integer; AValue : integer); virtual;
- Procedure SetthreadsUnread(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetthreadsTotal(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetthreadsUnread(AIndex : Integer; const AValue : integer); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -263,9 +274,9 @@ type
FresultSizeEstimate : integer;
Protected
//Property setters
- Procedure Setdrafts(AIndex : Integer; AValue : TListDraftsResponseTypedraftsArray); virtual;
+ Procedure Setdrafts(AIndex : Integer; const AValue : TListDraftsResponseTypedraftsArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetresultSizeEstimate(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetresultSizeEstimate(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -289,7 +300,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Sethistory(AIndex : Integer; AValue : TListHistoryResponseTypehistoryArray); virtual;
+ Procedure Sethistory(AIndex : Integer; const AValue : TListHistoryResponseTypehistoryArray); virtual;
Procedure SethistoryId(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -313,7 +324,7 @@ type
Flabels : TListLabelsResponseTypelabelsArray;
Protected
//Property setters
- Procedure Setlabels(AIndex : Integer; AValue : TListLabelsResponseTypelabelsArray); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TListLabelsResponseTypelabelsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -335,9 +346,9 @@ type
FresultSizeEstimate : integer;
Protected
//Property setters
- Procedure Setmessages(AIndex : Integer; AValue : TListMessagesResponseTypemessagesArray); virtual;
+ Procedure Setmessages(AIndex : Integer; const AValue : TListMessagesResponseTypemessagesArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetresultSizeEstimate(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetresultSizeEstimate(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -362,8 +373,8 @@ type
Protected
//Property setters
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetresultSizeEstimate(AIndex : Integer; AValue : integer); virtual;
- Procedure Setthreads(AIndex : Integer; AValue : TListThreadsResponseTypethreadsArray); virtual;
+ Procedure SetresultSizeEstimate(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setthreads(AIndex : Integer; const AValue : TListThreadsResponseTypethreadsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -384,6 +395,7 @@ type
Private
FhistoryId : String;
Fid : String;
+ FinternalDate : String;
FlabelIds : TStringArray;
Fpayload : TMessagePart;
Fraw : String;
@@ -394,10 +406,11 @@ type
//Property setters
Procedure SethistoryId(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlabelIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setpayload(AIndex : Integer; AValue : TMessagePart); virtual;
+ Procedure SetinternalDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlabelIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setpayload(AIndex : Integer; const AValue : TMessagePart); virtual;
Procedure Setraw(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsizeEstimate(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetsizeEstimate(AIndex : Integer; const AValue : integer); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : String); virtual;
Procedure SetthreadId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -408,12 +421,13 @@ type
Published
Property historyId : String Index 0 Read FhistoryId Write SethistoryId;
Property id : String Index 8 Read Fid Write Setid;
- Property labelIds : TStringArray Index 16 Read FlabelIds Write SetlabelIds;
- Property payload : TMessagePart Index 24 Read Fpayload Write Setpayload;
- Property raw : String Index 32 Read Fraw Write Setraw;
- Property sizeEstimate : integer Index 40 Read FsizeEstimate Write SetsizeEstimate;
- Property snippet : String Index 48 Read Fsnippet Write Setsnippet;
- Property threadId : String Index 56 Read FthreadId Write SetthreadId;
+ Property internalDate : String Index 16 Read FinternalDate Write SetinternalDate;
+ Property labelIds : TStringArray Index 24 Read FlabelIds Write SetlabelIds;
+ Property payload : TMessagePart Index 32 Read Fpayload Write Setpayload;
+ Property raw : String Index 40 Read Fraw Write Setraw;
+ Property sizeEstimate : integer Index 48 Read FsizeEstimate Write SetsizeEstimate;
+ Property snippet : String Index 56 Read Fsnippet Write Setsnippet;
+ Property threadId : String Index 64 Read FthreadId Write SetthreadId;
end;
TMessageClass = Class of TMessage;
@@ -431,12 +445,12 @@ type
Fparts : TMessagePartTypepartsArray;
Protected
//Property setters
- Procedure Setbody(AIndex : Integer; AValue : TMessagePartBody); virtual;
+ Procedure Setbody(AIndex : Integer; const AValue : TMessagePartBody); virtual;
Procedure Setfilename(AIndex : Integer; const AValue : String); virtual;
- Procedure Setheaders(AIndex : Integer; AValue : TMessagePartTypeheadersArray); virtual;
+ Procedure Setheaders(AIndex : Integer; const AValue : TMessagePartTypeheadersArray); virtual;
Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
Procedure SetpartId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparts(AIndex : Integer; AValue : TMessagePartTypepartsArray); virtual;
+ Procedure Setparts(AIndex : Integer; const AValue : TMessagePartTypepartsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -465,7 +479,7 @@ type
//Property setters
Procedure SetattachmentId(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsize(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setsize(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property attachmentId : String Index 0 Read FattachmentId Write SetattachmentId;
@@ -503,8 +517,8 @@ type
FremoveLabelIds : TStringArray;
Protected
//Property setters
- Procedure SetaddLabelIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetremoveLabelIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetaddLabelIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetremoveLabelIds(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -526,8 +540,8 @@ type
FremoveLabelIds : TStringArray;
Protected
//Property setters
- Procedure SetaddLabelIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetremoveLabelIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetaddLabelIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetremoveLabelIds(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -553,8 +567,8 @@ type
//Property setters
Procedure SetemailAddress(AIndex : Integer; const AValue : String); virtual;
Procedure SethistoryId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmessagesTotal(AIndex : Integer; AValue : integer); virtual;
- Procedure SetthreadsTotal(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmessagesTotal(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetthreadsTotal(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property emailAddress : String Index 0 Read FemailAddress Write SetemailAddress;
@@ -578,7 +592,7 @@ type
//Property setters
Procedure SethistoryId(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmessages(AIndex : Integer; AValue : TThreadTypemessagesArray); virtual;
+ Procedure Setmessages(AIndex : Integer; const AValue : TThreadTypemessagesArray); virtual;
Procedure Setsnippet(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -594,6 +608,51 @@ type
TThreadClass = Class of TThread;
{ --------------------------------------------------------------------
+ TWatchRequest
+ --------------------------------------------------------------------}
+
+ TWatchRequest = Class(TGoogleBaseObject)
+ Private
+ FlabelFilterAction : String;
+ FlabelIds : TStringArray;
+ FtopicName : String;
+ Protected
+ //Property setters
+ Procedure SetlabelFilterAction(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlabelIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SettopicName(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 labelFilterAction : String Index 0 Read FlabelFilterAction Write SetlabelFilterAction;
+ Property labelIds : TStringArray Index 8 Read FlabelIds Write SetlabelIds;
+ Property topicName : String Index 16 Read FtopicName Write SettopicName;
+ end;
+ TWatchRequestClass = Class of TWatchRequest;
+
+ { --------------------------------------------------------------------
+ TWatchResponse
+ --------------------------------------------------------------------}
+
+ TWatchResponse = Class(TGoogleBaseObject)
+ Private
+ Fexpiration : String;
+ FhistoryId : String;
+ Protected
+ //Property setters
+ Procedure Setexpiration(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethistoryId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property expiration : String Index 0 Read Fexpiration Write Setexpiration;
+ Property historyId : String Index 8 Read FhistoryId Write SethistoryId;
+ end;
+ TWatchResponseClass = Class of TWatchResponse;
+
+ { --------------------------------------------------------------------
TUsersDraftsResource
--------------------------------------------------------------------}
@@ -608,6 +667,7 @@ type
//Optional query Options for TUsersDraftsResource, method List
TUsersDraftsListOptions = Record
+ includeSpamTrash : boolean;
maxResults : integer;
pageToken : String;
end;
@@ -727,6 +787,7 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure BatchDelete(userId: string; aBatchDeleteMessagesRequest : TBatchDeleteMessagesRequest);
Procedure Delete(id: string; userId: string);
Function Get(id: string; userId: string; AQuery : string = '') : TMessage;
Function Get(id: string; userId: string; AQuery : TUsersMessagesgetOptions) : TMessage;
@@ -806,6 +867,8 @@ type
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function GetProfile(userId: string) : TProfile;
+ Procedure Stop(userId: string);
+ Function Watch(userId: string; aWatchRequest : TWatchRequest) : TWatchResponse;
Function CreateDraftsResource(AOwner : TComponent) : TUsersDraftsResource;virtual;overload;
Function CreateDraftsResource : TUsersDraftsResource;virtual;overload;
Function CreateHistoryResource(AOwner : TComponent) : TUsersHistoryResource;virtual;overload;
@@ -898,6 +961,36 @@ implementation
{ --------------------------------------------------------------------
+ TBatchDeleteMessagesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TBatchDeleteMessagesRequest.Setids(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fids=AValue) then exit;
+ Fids:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchDeleteMessagesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'ids' : SetLength(Fids,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TDraft
--------------------------------------------------------------------}
@@ -912,7 +1005,7 @@ end;
-Procedure TDraft.Setmessage(AIndex : Integer; AValue : TMessage);
+Procedure TDraft.Setmessage(AIndex : Integer; const AValue : TMessage);
begin
If (Fmessage=AValue) then exit;
@@ -939,7 +1032,7 @@ end;
-Procedure THistory.SetlabelsAdded(AIndex : Integer; AValue : THistoryTypelabelsAddedArray);
+Procedure THistory.SetlabelsAdded(AIndex : Integer; const AValue : THistoryTypelabelsAddedArray);
begin
If (FlabelsAdded=AValue) then exit;
@@ -949,7 +1042,7 @@ end;
-Procedure THistory.SetlabelsRemoved(AIndex : Integer; AValue : THistoryTypelabelsRemovedArray);
+Procedure THistory.SetlabelsRemoved(AIndex : Integer; const AValue : THistoryTypelabelsRemovedArray);
begin
If (FlabelsRemoved=AValue) then exit;
@@ -959,7 +1052,7 @@ end;
-Procedure THistory.Setmessages(AIndex : Integer; AValue : THistoryTypemessagesArray);
+Procedure THistory.Setmessages(AIndex : Integer; const AValue : THistoryTypemessagesArray);
begin
If (Fmessages=AValue) then exit;
@@ -969,7 +1062,7 @@ end;
-Procedure THistory.SetmessagesAdded(AIndex : Integer; AValue : THistoryTypemessagesAddedArray);
+Procedure THistory.SetmessagesAdded(AIndex : Integer; const AValue : THistoryTypemessagesAddedArray);
begin
If (FmessagesAdded=AValue) then exit;
@@ -979,7 +1072,7 @@ end;
-Procedure THistory.SetmessagesDeleted(AIndex : Integer; AValue : THistoryTypemessagesDeletedArray);
+Procedure THistory.SetmessagesDeleted(AIndex : Integer; const AValue : THistoryTypemessagesDeletedArray);
begin
If (FmessagesDeleted=AValue) then exit;
@@ -1013,7 +1106,7 @@ end;
--------------------------------------------------------------------}
-Procedure THistoryLabelAdded.SetlabelIds(AIndex : Integer; AValue : TStringArray);
+Procedure THistoryLabelAdded.SetlabelIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FlabelIds=AValue) then exit;
@@ -1023,7 +1116,7 @@ end;
-Procedure THistoryLabelAdded.Setmessage(AIndex : Integer; AValue : TMessage);
+Procedure THistoryLabelAdded.Setmessage(AIndex : Integer; const AValue : TMessage);
begin
If (Fmessage=AValue) then exit;
@@ -1053,7 +1146,7 @@ end;
--------------------------------------------------------------------}
-Procedure THistoryLabelRemoved.SetlabelIds(AIndex : Integer; AValue : TStringArray);
+Procedure THistoryLabelRemoved.SetlabelIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FlabelIds=AValue) then exit;
@@ -1063,7 +1156,7 @@ end;
-Procedure THistoryLabelRemoved.Setmessage(AIndex : Integer; AValue : TMessage);
+Procedure THistoryLabelRemoved.Setmessage(AIndex : Integer; const AValue : TMessage);
begin
If (Fmessage=AValue) then exit;
@@ -1093,7 +1186,7 @@ end;
--------------------------------------------------------------------}
-Procedure THistoryMessageAdded.Setmessage(AIndex : Integer; AValue : TMessage);
+Procedure THistoryMessageAdded.Setmessage(AIndex : Integer; const AValue : TMessage);
begin
If (Fmessage=AValue) then exit;
@@ -1110,7 +1203,7 @@ end;
--------------------------------------------------------------------}
-Procedure THistoryMessageDeleted.Setmessage(AIndex : Integer; AValue : TMessage);
+Procedure THistoryMessageDeleted.Setmessage(AIndex : Integer; const AValue : TMessage);
begin
If (Fmessage=AValue) then exit;
@@ -1157,7 +1250,7 @@ end;
-Procedure TLabel.SetmessagesTotal(AIndex : Integer; AValue : integer);
+Procedure TLabel.SetmessagesTotal(AIndex : Integer; const AValue : integer);
begin
If (FmessagesTotal=AValue) then exit;
@@ -1167,7 +1260,7 @@ end;
-Procedure TLabel.SetmessagesUnread(AIndex : Integer; AValue : integer);
+Procedure TLabel.SetmessagesUnread(AIndex : Integer; const AValue : integer);
begin
If (FmessagesUnread=AValue) then exit;
@@ -1187,7 +1280,7 @@ end;
-Procedure TLabel.SetthreadsTotal(AIndex : Integer; AValue : integer);
+Procedure TLabel.SetthreadsTotal(AIndex : Integer; const AValue : integer);
begin
If (FthreadsTotal=AValue) then exit;
@@ -1197,7 +1290,7 @@ end;
-Procedure TLabel.SetthreadsUnread(AIndex : Integer; AValue : integer);
+Procedure TLabel.SetthreadsUnread(AIndex : Integer; const AValue : integer);
begin
If (FthreadsUnread=AValue) then exit;
@@ -1235,7 +1328,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListDraftsResponse.Setdrafts(AIndex : Integer; AValue : TListDraftsResponseTypedraftsArray);
+Procedure TListDraftsResponse.Setdrafts(AIndex : Integer; const AValue : TListDraftsResponseTypedraftsArray);
begin
If (Fdrafts=AValue) then exit;
@@ -1255,7 +1348,7 @@ end;
-Procedure TListDraftsResponse.SetresultSizeEstimate(AIndex : Integer; AValue : integer);
+Procedure TListDraftsResponse.SetresultSizeEstimate(AIndex : Integer; const AValue : integer);
begin
If (FresultSizeEstimate=AValue) then exit;
@@ -1285,7 +1378,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListHistoryResponse.Sethistory(AIndex : Integer; AValue : TListHistoryResponseTypehistoryArray);
+Procedure TListHistoryResponse.Sethistory(AIndex : Integer; const AValue : TListHistoryResponseTypehistoryArray);
begin
If (Fhistory=AValue) then exit;
@@ -1335,7 +1428,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListLabelsResponse.Setlabels(AIndex : Integer; AValue : TListLabelsResponseTypelabelsArray);
+Procedure TListLabelsResponse.Setlabels(AIndex : Integer; const AValue : TListLabelsResponseTypelabelsArray);
begin
If (Flabels=AValue) then exit;
@@ -1365,7 +1458,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListMessagesResponse.Setmessages(AIndex : Integer; AValue : TListMessagesResponseTypemessagesArray);
+Procedure TListMessagesResponse.Setmessages(AIndex : Integer; const AValue : TListMessagesResponseTypemessagesArray);
begin
If (Fmessages=AValue) then exit;
@@ -1385,7 +1478,7 @@ end;
-Procedure TListMessagesResponse.SetresultSizeEstimate(AIndex : Integer; AValue : integer);
+Procedure TListMessagesResponse.SetresultSizeEstimate(AIndex : Integer; const AValue : integer);
begin
If (FresultSizeEstimate=AValue) then exit;
@@ -1425,7 +1518,7 @@ end;
-Procedure TListThreadsResponse.SetresultSizeEstimate(AIndex : Integer; AValue : integer);
+Procedure TListThreadsResponse.SetresultSizeEstimate(AIndex : Integer; const AValue : integer);
begin
If (FresultSizeEstimate=AValue) then exit;
@@ -1435,7 +1528,7 @@ end;
-Procedure TListThreadsResponse.Setthreads(AIndex : Integer; AValue : TListThreadsResponseTypethreadsArray);
+Procedure TListThreadsResponse.Setthreads(AIndex : Integer; const AValue : TListThreadsResponseTypethreadsArray);
begin
If (Fthreads=AValue) then exit;
@@ -1485,7 +1578,17 @@ end;
-Procedure TMessage.SetlabelIds(AIndex : Integer; AValue : TStringArray);
+Procedure TMessage.SetinternalDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinternalDate=AValue) then exit;
+ FinternalDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMessage.SetlabelIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FlabelIds=AValue) then exit;
@@ -1495,7 +1598,7 @@ end;
-Procedure TMessage.Setpayload(AIndex : Integer; AValue : TMessagePart);
+Procedure TMessage.Setpayload(AIndex : Integer; const AValue : TMessagePart);
begin
If (Fpayload=AValue) then exit;
@@ -1515,7 +1618,7 @@ end;
-Procedure TMessage.SetsizeEstimate(AIndex : Integer; AValue : integer);
+Procedure TMessage.SetsizeEstimate(AIndex : Integer; const AValue : integer);
begin
If (FsizeEstimate=AValue) then exit;
@@ -1565,7 +1668,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMessagePart.Setbody(AIndex : Integer; AValue : TMessagePartBody);
+Procedure TMessagePart.Setbody(AIndex : Integer; const AValue : TMessagePartBody);
begin
If (Fbody=AValue) then exit;
@@ -1585,7 +1688,7 @@ end;
-Procedure TMessagePart.Setheaders(AIndex : Integer; AValue : TMessagePartTypeheadersArray);
+Procedure TMessagePart.Setheaders(AIndex : Integer; const AValue : TMessagePartTypeheadersArray);
begin
If (Fheaders=AValue) then exit;
@@ -1615,7 +1718,7 @@ end;
-Procedure TMessagePart.Setparts(AIndex : Integer; AValue : TMessagePartTypepartsArray);
+Procedure TMessagePart.Setparts(AIndex : Integer; const AValue : TMessagePartTypepartsArray);
begin
If (Fparts=AValue) then exit;
@@ -1666,7 +1769,7 @@ end;
-Procedure TMessagePartBody.Setsize(AIndex : Integer; AValue : integer);
+Procedure TMessagePartBody.Setsize(AIndex : Integer; const AValue : integer);
begin
If (Fsize=AValue) then exit;
@@ -1710,7 +1813,7 @@ end;
--------------------------------------------------------------------}
-Procedure TModifyMessageRequest.SetaddLabelIds(AIndex : Integer; AValue : TStringArray);
+Procedure TModifyMessageRequest.SetaddLabelIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FaddLabelIds=AValue) then exit;
@@ -1720,7 +1823,7 @@ end;
-Procedure TModifyMessageRequest.SetremoveLabelIds(AIndex : Integer; AValue : TStringArray);
+Procedure TModifyMessageRequest.SetremoveLabelIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FremoveLabelIds=AValue) then exit;
@@ -1751,7 +1854,7 @@ end;
--------------------------------------------------------------------}
-Procedure TModifyThreadRequest.SetaddLabelIds(AIndex : Integer; AValue : TStringArray);
+Procedure TModifyThreadRequest.SetaddLabelIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FaddLabelIds=AValue) then exit;
@@ -1761,7 +1864,7 @@ end;
-Procedure TModifyThreadRequest.SetremoveLabelIds(AIndex : Integer; AValue : TStringArray);
+Procedure TModifyThreadRequest.SetremoveLabelIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FremoveLabelIds=AValue) then exit;
@@ -1812,7 +1915,7 @@ end;
-Procedure TProfile.SetmessagesTotal(AIndex : Integer; AValue : integer);
+Procedure TProfile.SetmessagesTotal(AIndex : Integer; const AValue : integer);
begin
If (FmessagesTotal=AValue) then exit;
@@ -1822,7 +1925,7 @@ end;
-Procedure TProfile.SetthreadsTotal(AIndex : Integer; AValue : integer);
+Procedure TProfile.SetthreadsTotal(AIndex : Integer; const AValue : integer);
begin
If (FthreadsTotal=AValue) then exit;
@@ -1859,7 +1962,7 @@ end;
-Procedure TThread.Setmessages(AIndex : Integer; AValue : TThreadTypemessagesArray);
+Procedure TThread.Setmessages(AIndex : Integer; const AValue : TThreadTypemessagesArray);
begin
If (Fmessages=AValue) then exit;
@@ -1895,6 +1998,83 @@ end;
{ --------------------------------------------------------------------
+ TWatchRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TWatchRequest.SetlabelFilterAction(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlabelFilterAction=AValue) then exit;
+ FlabelFilterAction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TWatchRequest.SetlabelIds(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FlabelIds=AValue) then exit;
+ FlabelIds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TWatchRequest.SettopicName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtopicName=AValue) then exit;
+ FtopicName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TWatchRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'labelids' : SetLength(FlabelIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TWatchResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TWatchResponse.Setexpiration(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fexpiration=AValue) then exit;
+ Fexpiration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TWatchResponse.SethistoryId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhistoryId=AValue) then exit;
+ FhistoryId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TUsersDraftsResource
--------------------------------------------------------------------}
@@ -1991,6 +2171,7 @@ Var
begin
_Q:='';
+ AddToQuery(_Q,'includeSpamTrash',AQuery.includeSpamTrash);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(userId,_Q);
@@ -2237,6 +2418,21 @@ begin
Result:=TgmailAPI;
end;
+Procedure TUsersMessagesResource.BatchDelete(userId: string; aBatchDeleteMessagesRequest : TBatchDeleteMessagesRequest);
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{userId}/messages/batchDelete';
+ _Methodid = 'gmail.users.messages.batchDelete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['userId',userId]);
+ ServiceCall(_HTTPMethod,_P,'',aBatchDeleteMessagesRequest,Nil);
+end;
+
Procedure TUsersMessagesResource.Delete(id: string; userId: string);
Const
@@ -2625,6 +2821,36 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProfile) as TProfile;
end;
+Procedure TUsersResource.Stop(userId: string);
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{userId}/stop';
+ _Methodid = 'gmail.users.stop';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['userId',userId]);
+ ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
+end;
+
+Function TUsersResource.Watch(userId: string; aWatchRequest : TWatchRequest) : TWatchResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{userId}/watch';
+ _Methodid = 'gmail.users.watch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['userId',userId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aWatchRequest,TWatchResponse) as TWatchResponse;
+end;
+
Function TUsersResource.GetDraftsInstance : TUsersDraftsResource;
@@ -2790,7 +3016,7 @@ end;
Class Function TGmailAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160316';
end;
Class Function TGmailAPI.APIID : String;
@@ -2808,7 +3034,7 @@ end;
Class Function TGmailAPI.APIDescription : String;
begin
- Result:='The Gmail REST API.';
+ Result:='Access Gmail mailboxes including sending user email.';
end;
Class Function TGmailAPI.APIOwnerDomain : String;
@@ -2844,7 +3070,7 @@ end;
Class Function TGmailAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TGmailAPI.APIbasePath : string;
@@ -2856,7 +3082,7 @@ end;
Class Function TGmailAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/gmail/v1/users/';
+ Result:='https://www.googleapis.com/gmail/v1/users/';
end;
Class Function TGmailAPI.APIProtocol : string;
@@ -2880,7 +3106,7 @@ end;
Class Function TGmailAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,6);
+ SetLength(Result,7);
Result[0].Name:='https://mail.google.com/';
Result[0].Description:='View and manage your mail';
Result[1].Name:='https://www.googleapis.com/auth/gmail.compose';
@@ -2893,6 +3119,8 @@ begin
Result[4].Description:='View and modify but not delete your email';
Result[5].Name:='https://www.googleapis.com/auth/gmail.readonly';
Result[5].Description:='View your emails messages and settings';
+ Result[6].Name:='https://www.googleapis.com/auth/gmail.send';
+ Result[6].Description:='Send email on your behalf';
end;
@@ -2905,6 +3133,7 @@ end;
Class Procedure TGmailAPI.RegisterAPIResources;
begin
+ TBatchDeleteMessagesRequest.RegisterObject;
TDraft.RegisterObject;
THistory.RegisterObject;
THistoryLabelAdded.RegisterObject;
@@ -2925,6 +3154,8 @@ begin
TModifyThreadRequest.RegisterObject;
TProfile.RegisterObject;
TThread.RegisterObject;
+ TWatchRequest.RegisterObject;
+ TWatchResponse.RegisterObject;
end;
diff --git a/packages/googleapi/src/googlegroupsmigration.pp b/packages/googleapi/src/googlegroupsmigration.pp
index 1af3797d79..ba6fbfe48e 100644
--- a/packages/googleapi/src/googlegroupsmigration.pp
+++ b/packages/googleapi/src/googlegroupsmigration.pp
@@ -1,19 +1,4 @@
unit googlegroupsmigration;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:05
{$MODE objfpc}
{$H+}
@@ -233,7 +218,7 @@ end;
Class Function TGroupsmigrationAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TGroupsmigrationAPI.APIbasePath : string;
@@ -245,7 +230,7 @@ end;
Class Function TGroupsmigrationAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/groups/v1/groups/';
+ Result:='https://www.googleapis.com/groups/v1/groups/';
end;
Class Function TGroupsmigrationAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlegroupssettings.pp b/packages/googleapi/src/googlegroupssettings.pp
index df6574c147..38ce313998 100644
--- a/packages/googleapi/src/googlegroupssettings.pp
+++ b/packages/googleapi/src/googlegroupssettings.pp
@@ -1,19 +1,4 @@
unit googlegroupssettings;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:05
{$MODE objfpc}
{$H+}
@@ -55,6 +40,7 @@ type
FsendMessageDenyNotification : String;
FshowInGroupDirectory : String;
FspamModerationLevel : String;
+ FwhoCanAdd : String;
FwhoCanContactOwner : String;
FwhoCanInvite : String;
FwhoCanJoin : String;
@@ -75,7 +61,7 @@ type
Procedure SetincludeInGlobalAddressList(AIndex : Integer; const AValue : String); virtual;
Procedure SetisArchived(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxMessageBytes(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmaxMessageBytes(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmembersCanPostAsTheGroup(AIndex : Integer; const AValue : String); virtual;
Procedure SetmessageDisplayFont(AIndex : Integer; const AValue : String); virtual;
Procedure SetmessageModerationLevel(AIndex : Integer; const AValue : String); virtual;
@@ -85,6 +71,7 @@ type
Procedure SetsendMessageDenyNotification(AIndex : Integer; const AValue : String); virtual;
Procedure SetshowInGroupDirectory(AIndex : Integer; const AValue : String); virtual;
Procedure SetspamModerationLevel(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetwhoCanAdd(AIndex : Integer; const AValue : String); virtual;
Procedure SetwhoCanContactOwner(AIndex : Integer; const AValue : String); virtual;
Procedure SetwhoCanInvite(AIndex : Integer; const AValue : String); virtual;
Procedure SetwhoCanJoin(AIndex : Integer; const AValue : String); virtual;
@@ -115,13 +102,14 @@ type
Property sendMessageDenyNotification : String Index 144 Read FsendMessageDenyNotification Write SetsendMessageDenyNotification;
Property showInGroupDirectory : String Index 152 Read FshowInGroupDirectory Write SetshowInGroupDirectory;
Property spamModerationLevel : String Index 160 Read FspamModerationLevel Write SetspamModerationLevel;
- Property whoCanContactOwner : String Index 168 Read FwhoCanContactOwner Write SetwhoCanContactOwner;
- Property whoCanInvite : String Index 176 Read FwhoCanInvite Write SetwhoCanInvite;
- Property whoCanJoin : String Index 184 Read FwhoCanJoin Write SetwhoCanJoin;
- Property whoCanLeaveGroup : String Index 192 Read FwhoCanLeaveGroup Write SetwhoCanLeaveGroup;
- Property whoCanPostMessage : String Index 200 Read FwhoCanPostMessage Write SetwhoCanPostMessage;
- Property whoCanViewGroup : String Index 208 Read FwhoCanViewGroup Write SetwhoCanViewGroup;
- Property whoCanViewMembership : String Index 216 Read FwhoCanViewMembership Write SetwhoCanViewMembership;
+ Property whoCanAdd : String Index 168 Read FwhoCanAdd Write SetwhoCanAdd;
+ Property whoCanContactOwner : String Index 176 Read FwhoCanContactOwner Write SetwhoCanContactOwner;
+ Property whoCanInvite : String Index 184 Read FwhoCanInvite Write SetwhoCanInvite;
+ Property whoCanJoin : String Index 192 Read FwhoCanJoin Write SetwhoCanJoin;
+ Property whoCanLeaveGroup : String Index 200 Read FwhoCanLeaveGroup Write SetwhoCanLeaveGroup;
+ Property whoCanPostMessage : String Index 208 Read FwhoCanPostMessage Write SetwhoCanPostMessage;
+ Property whoCanViewGroup : String Index 216 Read FwhoCanViewGroup Write SetwhoCanViewGroup;
+ Property whoCanViewMembership : String Index 224 Read FwhoCanViewMembership Write SetwhoCanViewMembership;
end;
TGroupsClass = Class of TGroups;
@@ -294,7 +282,7 @@ end;
-Procedure TGroups.SetmaxMessageBytes(AIndex : Integer; AValue : integer);
+Procedure TGroups.SetmaxMessageBytes(AIndex : Integer; const AValue : integer);
begin
If (FmaxMessageBytes=AValue) then exit;
@@ -394,6 +382,16 @@ end;
+Procedure TGroups.SetwhoCanAdd(AIndex : Integer; const AValue : String);
+
+begin
+ If (FwhoCanAdd=AValue) then exit;
+ FwhoCanAdd:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TGroups.SetwhoCanContactOwner(AIndex : Integer; const AValue : String);
begin
@@ -549,7 +547,7 @@ end;
Class Function TGroupssettingsAPI.APIRevision : String;
begin
- Result:='20140428';
+ Result:='20160323';
end;
Class Function TGroupssettingsAPI.APIID : String;
@@ -603,7 +601,7 @@ end;
Class Function TGroupssettingsAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TGroupssettingsAPI.APIbasePath : string;
@@ -615,7 +613,7 @@ end;
Class Function TGroupssettingsAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/groups/v1/groups/';
+ Result:='https://www.googleapis.com/groups/v1/groups/';
end;
Class Function TGroupssettingsAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googleiam.pp b/packages/googleapi/src/googleiam.pp
new file mode 100644
index 0000000000..43eac051d4
--- /dev/null
+++ b/packages/googleapi/src/googleiam.pp
@@ -0,0 +1,1937 @@
+unit googleiam;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TListServiceAccountsResponse = Class;
+ TServiceAccount = Class;
+ TCreateServiceAccountRequest = Class;
+ TEmpty = Class;
+ TListServiceAccountKeysResponse = Class;
+ TServiceAccountKey = Class;
+ TCreateServiceAccountKeyRequest = Class;
+ TSignBlobRequest = Class;
+ TSignBlobResponse = Class;
+ TPolicy = Class;
+ TBinding = Class;
+ TRule = Class;
+ TCondition = Class;
+ TLogConfig = Class;
+ TCounterOptions = Class;
+ TDataAccessOptions = Class;
+ TCloudAuditOptions = Class;
+ TSetIamPolicyRequest = Class;
+ TTestIamPermissionsRequest = Class;
+ TTestIamPermissionsResponse = Class;
+ TListServiceAccountsResponseArray = Array of TListServiceAccountsResponse;
+ TServiceAccountArray = Array of TServiceAccount;
+ TCreateServiceAccountRequestArray = Array of TCreateServiceAccountRequest;
+ TEmptyArray = Array of TEmpty;
+ TListServiceAccountKeysResponseArray = Array of TListServiceAccountKeysResponse;
+ TServiceAccountKeyArray = Array of TServiceAccountKey;
+ TCreateServiceAccountKeyRequestArray = Array of TCreateServiceAccountKeyRequest;
+ TSignBlobRequestArray = Array of TSignBlobRequest;
+ TSignBlobResponseArray = Array of TSignBlobResponse;
+ TPolicyArray = Array of TPolicy;
+ TBindingArray = Array of TBinding;
+ TRuleArray = Array of TRule;
+ TConditionArray = Array of TCondition;
+ TLogConfigArray = Array of TLogConfig;
+ TCounterOptionsArray = Array of TCounterOptions;
+ TDataAccessOptionsArray = Array of TDataAccessOptions;
+ TCloudAuditOptionsArray = Array of TCloudAuditOptions;
+ TSetIamPolicyRequestArray = Array of TSetIamPolicyRequest;
+ TTestIamPermissionsRequestArray = Array of TTestIamPermissionsRequest;
+ TTestIamPermissionsResponseArray = Array of TTestIamPermissionsResponse;
+ //Anonymous types, using auto-generated names
+ TListServiceAccountsResponseTypeaccountsArray = Array of TServiceAccount;
+ TListServiceAccountKeysResponseTypekeysArray = Array of TServiceAccountKey;
+ TPolicyTypebindingsArray = Array of TBinding;
+ TPolicyTyperulesArray = Array of TRule;
+ TRuleTypeconditionsArray = Array of TCondition;
+ TRuleTypelogConfigArray = Array of TLogConfig;
+
+ { --------------------------------------------------------------------
+ TListServiceAccountsResponse
+ --------------------------------------------------------------------}
+
+ TListServiceAccountsResponse = Class(TGoogleBaseObject)
+ Private
+ Faccounts : TListServiceAccountsResponseTypeaccountsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setaccounts(AIndex : Integer; const AValue : TListServiceAccountsResponseTypeaccountsArray); 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 accounts : TListServiceAccountsResponseTypeaccountsArray Index 0 Read Faccounts Write Setaccounts;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListServiceAccountsResponseClass = Class of TListServiceAccountsResponse;
+
+ { --------------------------------------------------------------------
+ TServiceAccount
+ --------------------------------------------------------------------}
+
+ TServiceAccount = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ FprojectId : String;
+ FuniqueId : String;
+ Femail : String;
+ FdisplayName : String;
+ Fetag : String;
+ Foauth2ClientId : String;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuniqueId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setoauth2ClientId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property projectId : String Index 8 Read FprojectId Write SetprojectId;
+ Property uniqueId : String Index 16 Read FuniqueId Write SetuniqueId;
+ Property email : String Index 24 Read Femail Write Setemail;
+ Property displayName : String Index 32 Read FdisplayName Write SetdisplayName;
+ Property etag : String Index 40 Read Fetag Write Setetag;
+ Property oauth2ClientId : String Index 48 Read Foauth2ClientId Write Setoauth2ClientId;
+ end;
+ TServiceAccountClass = Class of TServiceAccount;
+
+ { --------------------------------------------------------------------
+ TCreateServiceAccountRequest
+ --------------------------------------------------------------------}
+
+ TCreateServiceAccountRequest = Class(TGoogleBaseObject)
+ Private
+ FaccountId : String;
+ FserviceAccount : TServiceAccount;
+ Protected
+ //Property setters
+ Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetserviceAccount(AIndex : Integer; const AValue : TServiceAccount); virtual;
+ Public
+ Published
+ Property accountId : String Index 0 Read FaccountId Write SetaccountId;
+ Property serviceAccount : TServiceAccount Index 8 Read FserviceAccount Write SetserviceAccount;
+ end;
+ TCreateServiceAccountRequestClass = Class of TCreateServiceAccountRequest;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TListServiceAccountKeysResponse
+ --------------------------------------------------------------------}
+
+ TListServiceAccountKeysResponse = Class(TGoogleBaseObject)
+ Private
+ Fkeys : TListServiceAccountKeysResponseTypekeysArray;
+ Protected
+ //Property setters
+ Procedure Setkeys(AIndex : Integer; const AValue : TListServiceAccountKeysResponseTypekeysArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property keys : TListServiceAccountKeysResponseTypekeysArray Index 0 Read Fkeys Write Setkeys;
+ end;
+ TListServiceAccountKeysResponseClass = Class of TListServiceAccountKeysResponse;
+
+ { --------------------------------------------------------------------
+ TServiceAccountKey
+ --------------------------------------------------------------------}
+
+ TServiceAccountKey = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ FprivateKeyType : String;
+ FprivateKeyData : String;
+ FvalidAfterTime : String;
+ FvalidBeforeTime : String;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprivateKeyType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprivateKeyData(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvalidAfterTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvalidBeforeTime(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property privateKeyType : String Index 8 Read FprivateKeyType Write SetprivateKeyType;
+ Property privateKeyData : String Index 16 Read FprivateKeyData Write SetprivateKeyData;
+ Property validAfterTime : String Index 24 Read FvalidAfterTime Write SetvalidAfterTime;
+ Property validBeforeTime : String Index 32 Read FvalidBeforeTime Write SetvalidBeforeTime;
+ end;
+ TServiceAccountKeyClass = Class of TServiceAccountKey;
+
+ { --------------------------------------------------------------------
+ TCreateServiceAccountKeyRequest
+ --------------------------------------------------------------------}
+
+ TCreateServiceAccountKeyRequest = Class(TGoogleBaseObject)
+ Private
+ FprivateKeyType : String;
+ Protected
+ //Property setters
+ Procedure SetprivateKeyType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property privateKeyType : String Index 0 Read FprivateKeyType Write SetprivateKeyType;
+ end;
+ TCreateServiceAccountKeyRequestClass = Class of TCreateServiceAccountKeyRequest;
+
+ { --------------------------------------------------------------------
+ TSignBlobRequest
+ --------------------------------------------------------------------}
+
+ TSignBlobRequest = Class(TGoogleBaseObject)
+ Private
+ FbytesToSign : String;
+ Protected
+ //Property setters
+ Procedure SetbytesToSign(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property bytesToSign : String Index 0 Read FbytesToSign Write SetbytesToSign;
+ end;
+ TSignBlobRequestClass = Class of TSignBlobRequest;
+
+ { --------------------------------------------------------------------
+ TSignBlobResponse
+ --------------------------------------------------------------------}
+
+ TSignBlobResponse = Class(TGoogleBaseObject)
+ Private
+ FkeyId : String;
+ Fsignature : String;
+ Protected
+ //Property setters
+ Procedure SetkeyId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsignature(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property keyId : String Index 0 Read FkeyId Write SetkeyId;
+ Property signature : String Index 8 Read Fsignature Write Setsignature;
+ end;
+ TSignBlobResponseClass = Class of TSignBlobResponse;
+
+ { --------------------------------------------------------------------
+ TPolicy
+ --------------------------------------------------------------------}
+
+ TPolicy = Class(TGoogleBaseObject)
+ Private
+ Fversion : integer;
+ Fbindings : TPolicyTypebindingsArray;
+ Frules : TPolicyTyperulesArray;
+ Fetag : String;
+ Protected
+ //Property setters
+ Procedure Setversion(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray); virtual;
+ Procedure Setrules(AIndex : Integer; const AValue : TPolicyTyperulesArray); virtual;
+ Procedure Setetag(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 version : integer Index 0 Read Fversion Write Setversion;
+ Property bindings : TPolicyTypebindingsArray Index 8 Read Fbindings Write Setbindings;
+ Property rules : TPolicyTyperulesArray Index 16 Read Frules Write Setrules;
+ Property etag : String Index 24 Read Fetag Write Setetag;
+ end;
+ TPolicyClass = Class of TPolicy;
+
+ { --------------------------------------------------------------------
+ TBinding
+ --------------------------------------------------------------------}
+
+ TBinding = Class(TGoogleBaseObject)
+ Private
+ Frole : String;
+ Fmembers : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmembers(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 role : String Index 0 Read Frole Write Setrole;
+ Property members : TStringArray Index 8 Read Fmembers Write Setmembers;
+ end;
+ TBindingClass = Class of TBinding;
+
+ { --------------------------------------------------------------------
+ TRule
+ --------------------------------------------------------------------}
+
+ TRule = Class(TGoogleBaseObject)
+ Private
+ Fdescription : String;
+ Fpermissions : TStringArray;
+ Faction : String;
+ F_in : TStringArray;
+ FnotIn : TStringArray;
+ Fconditions : TRuleTypeconditionsArray;
+ FlogConfig : TRuleTypelogConfigArray;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpermissions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setaction(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_in(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetnotIn(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setconditions(AIndex : Integer; const AValue : TRuleTypeconditionsArray); virtual;
+ Procedure SetlogConfig(AIndex : Integer; const AValue : TRuleTypelogConfigArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property description : String Index 0 Read Fdescription Write Setdescription;
+ Property permissions : TStringArray Index 8 Read Fpermissions Write Setpermissions;
+ Property action : String Index 16 Read Faction Write Setaction;
+ Property _in : TStringArray Index 24 Read F_in Write Set_in;
+ Property notIn : TStringArray Index 32 Read FnotIn Write SetnotIn;
+ Property conditions : TRuleTypeconditionsArray Index 40 Read Fconditions Write Setconditions;
+ Property logConfig : TRuleTypelogConfigArray Index 48 Read FlogConfig Write SetlogConfig;
+ end;
+ TRuleClass = Class of TRule;
+
+ { --------------------------------------------------------------------
+ TCondition
+ --------------------------------------------------------------------}
+
+ TCondition = Class(TGoogleBaseObject)
+ Private
+ Fiam : String;
+ Fsys : String;
+ Fsvc : String;
+ Fop : String;
+ Fvalue : String;
+ Fvalues : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setiam(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsys(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsvc(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setop(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalues(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 iam : String Index 0 Read Fiam Write Setiam;
+ Property sys : String Index 8 Read Fsys Write Setsys;
+ Property svc : String Index 16 Read Fsvc Write Setsvc;
+ Property op : String Index 24 Read Fop Write Setop;
+ Property value : String Index 32 Read Fvalue Write Setvalue;
+ Property values : TStringArray Index 40 Read Fvalues Write Setvalues;
+ end;
+ TConditionClass = Class of TCondition;
+
+ { --------------------------------------------------------------------
+ TLogConfig
+ --------------------------------------------------------------------}
+
+ TLogConfig = Class(TGoogleBaseObject)
+ Private
+ Fcounter : TCounterOptions;
+ FdataAccess : TDataAccessOptions;
+ FcloudAudit : TCloudAuditOptions;
+ Protected
+ //Property setters
+ Procedure Setcounter(AIndex : Integer; const AValue : TCounterOptions); virtual;
+ Procedure SetdataAccess(AIndex : Integer; const AValue : TDataAccessOptions); virtual;
+ Procedure SetcloudAudit(AIndex : Integer; const AValue : TCloudAuditOptions); virtual;
+ Public
+ Published
+ Property counter : TCounterOptions Index 0 Read Fcounter Write Setcounter;
+ Property dataAccess : TDataAccessOptions Index 8 Read FdataAccess Write SetdataAccess;
+ Property cloudAudit : TCloudAuditOptions Index 16 Read FcloudAudit Write SetcloudAudit;
+ end;
+ TLogConfigClass = Class of TLogConfig;
+
+ { --------------------------------------------------------------------
+ TCounterOptions
+ --------------------------------------------------------------------}
+
+ TCounterOptions = Class(TGoogleBaseObject)
+ Private
+ Fmetric : String;
+ Ffield : String;
+ Protected
+ //Property setters
+ Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfield(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metric : String Index 0 Read Fmetric Write Setmetric;
+ Property field : String Index 8 Read Ffield Write Setfield;
+ end;
+ TCounterOptionsClass = Class of TCounterOptions;
+
+ { --------------------------------------------------------------------
+ TDataAccessOptions
+ --------------------------------------------------------------------}
+
+ TDataAccessOptions = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TDataAccessOptionsClass = Class of TDataAccessOptions;
+
+ { --------------------------------------------------------------------
+ TCloudAuditOptions
+ --------------------------------------------------------------------}
+
+ TCloudAuditOptions = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TCloudAuditOptionsClass = Class of TCloudAuditOptions;
+
+ { --------------------------------------------------------------------
+ TSetIamPolicyRequest
+ --------------------------------------------------------------------}
+
+ TSetIamPolicyRequest = Class(TGoogleBaseObject)
+ Private
+ Fpolicy : TPolicy;
+ Protected
+ //Property setters
+ Procedure Setpolicy(AIndex : Integer; const AValue : TPolicy); virtual;
+ Public
+ Published
+ Property policy : TPolicy Index 0 Read Fpolicy Write Setpolicy;
+ end;
+ TSetIamPolicyRequestClass = Class of TSetIamPolicyRequest;
+
+ { --------------------------------------------------------------------
+ TTestIamPermissionsRequest
+ --------------------------------------------------------------------}
+
+ TTestIamPermissionsRequest = Class(TGoogleBaseObject)
+ Private
+ Fpermissions : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setpermissions(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 permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
+ end;
+ TTestIamPermissionsRequestClass = Class of TTestIamPermissionsRequest;
+
+ { --------------------------------------------------------------------
+ TTestIamPermissionsResponse
+ --------------------------------------------------------------------}
+
+ TTestIamPermissionsResponse = Class(TGoogleBaseObject)
+ Private
+ Fpermissions : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setpermissions(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 permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
+ end;
+ TTestIamPermissionsResponseClass = Class of TTestIamPermissionsResponse;
+
+ { --------------------------------------------------------------------
+ TProjectsServiceAccountsKeysResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsServiceAccountsKeysResource, method List
+
+ TProjectsServiceAccountsKeysListOptions = Record
+ keyTypes : String;
+ end;
+
+ TProjectsServiceAccountsKeysResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(_name: string; AQuery : string = '') : TListServiceAccountKeysResponse;
+ Function List(_name: string; AQuery : TProjectsServiceAccountsKeyslistOptions) : TListServiceAccountKeysResponse;
+ Function Get(_name: string) : TServiceAccountKey;
+ Function Create(_name: string; aCreateServiceAccountKeyRequest : TCreateServiceAccountKeyRequest) : TServiceAccountKey;overload;
+ Function Delete(_name: string) : TEmpty;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsServiceAccountsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsServiceAccountsResource, method List
+
+ TProjectsServiceAccountsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsServiceAccountsResource = Class(TGoogleResource)
+ Private
+ FKeysInstance : TProjectsServiceAccountsKeysResource;
+ Function GetKeysInstance : TProjectsServiceAccountsKeysResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(_name: string; AQuery : string = '') : TListServiceAccountsResponse;
+ Function List(_name: string; AQuery : TProjectsServiceAccountslistOptions) : TListServiceAccountsResponse;
+ Function Get(_name: string) : TServiceAccount;
+ Function Create(_name: string; aCreateServiceAccountRequest : TCreateServiceAccountRequest) : TServiceAccount;overload;
+ Function Update(_name: string; aServiceAccount : TServiceAccount) : TServiceAccount;
+ Function Delete(_name: string) : TEmpty;
+ Function SignBlob(_name: string; aSignBlobRequest : TSignBlobRequest) : TSignBlobResponse;
+ Function GetIamPolicy(resource: string) : TPolicy;
+ Function SetIamPolicy(resource: string; aSetIamPolicyRequest : TSetIamPolicyRequest) : TPolicy;
+ Function TestIamPermissions(resource: string; aTestIamPermissionsRequest : TTestIamPermissionsRequest) : TTestIamPermissionsResponse;
+ Function CreateKeysResource(AOwner : TComponent) : TProjectsServiceAccountsKeysResource;virtual;overload;
+ Function CreateKeysResource : TProjectsServiceAccountsKeysResource;virtual;overload;
+ Property KeysResource : TProjectsServiceAccountsKeysResource Read GetKeysInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+ TProjectsResource = Class(TGoogleResource)
+ Private
+ FServiceAccountsKeysInstance : TProjectsServiceAccountsKeysResource;
+ FServiceAccountsInstance : TProjectsServiceAccountsResource;
+ Function GetServiceAccountsKeysInstance : TProjectsServiceAccountsKeysResource;virtual;
+ Function GetServiceAccountsInstance : TProjectsServiceAccountsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CreateServiceAccountsKeysResource(AOwner : TComponent) : TProjectsServiceAccountsKeysResource;virtual;overload;
+ Function CreateServiceAccountsKeysResource : TProjectsServiceAccountsKeysResource;virtual;overload;
+ Function CreateServiceAccountsResource(AOwner : TComponent) : TProjectsServiceAccountsResource;virtual;overload;
+ Function CreateServiceAccountsResource : TProjectsServiceAccountsResource;virtual;overload;
+ Property ServiceAccountsKeysResource : TProjectsServiceAccountsKeysResource Read GetServiceAccountsKeysInstance;
+ Property ServiceAccountsResource : TProjectsServiceAccountsResource Read GetServiceAccountsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TIamAPI
+ --------------------------------------------------------------------}
+
+ TIamAPI = Class(TGoogleAPI)
+ Private
+ FProjectsServiceAccountsKeysInstance : TProjectsServiceAccountsKeysResource;
+ FProjectsServiceAccountsInstance : TProjectsServiceAccountsResource;
+ FProjectsInstance : TProjectsResource;
+ Function GetProjectsServiceAccountsKeysInstance : TProjectsServiceAccountsKeysResource;virtual;
+ Function GetProjectsServiceAccountsInstance : TProjectsServiceAccountsResource;virtual;
+ Function GetProjectsInstance : TProjectsResource;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 CreateProjectsServiceAccountsKeysResource(AOwner : TComponent) : TProjectsServiceAccountsKeysResource;virtual;overload;
+ Function CreateProjectsServiceAccountsKeysResource : TProjectsServiceAccountsKeysResource;virtual;overload;
+ Function CreateProjectsServiceAccountsResource(AOwner : TComponent) : TProjectsServiceAccountsResource;virtual;overload;
+ Function CreateProjectsServiceAccountsResource : TProjectsServiceAccountsResource;virtual;overload;
+ Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ProjectsServiceAccountsKeysResource : TProjectsServiceAccountsKeysResource Read GetProjectsServiceAccountsKeysInstance;
+ Property ProjectsServiceAccountsResource : TProjectsServiceAccountsResource Read GetProjectsServiceAccountsInstance;
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TListServiceAccountsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListServiceAccountsResponse.Setaccounts(AIndex : Integer; const AValue : TListServiceAccountsResponseTypeaccountsArray);
+
+begin
+ If (Faccounts=AValue) then exit;
+ Faccounts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListServiceAccountsResponse.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 TListServiceAccountsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'accounts' : SetLength(Faccounts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TServiceAccount
+ --------------------------------------------------------------------}
+
+
+Procedure TServiceAccount.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServiceAccount.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServiceAccount.SetuniqueId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuniqueId=AValue) then exit;
+ FuniqueId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServiceAccount.Setemail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Femail=AValue) then exit;
+ Femail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServiceAccount.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServiceAccount.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServiceAccount.Setoauth2ClientId(AIndex : Integer; const AValue : String);
+
+begin
+ If (Foauth2ClientId=AValue) then exit;
+ Foauth2ClientId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreateServiceAccountRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TCreateServiceAccountRequest.SetaccountId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaccountId=AValue) then exit;
+ FaccountId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreateServiceAccountRequest.SetserviceAccount(AIndex : Integer; const AValue : TServiceAccount);
+
+begin
+ If (FserviceAccount=AValue) then exit;
+ FserviceAccount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListServiceAccountKeysResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListServiceAccountKeysResponse.Setkeys(AIndex : Integer; const AValue : TListServiceAccountKeysResponseTypekeysArray);
+
+begin
+ If (Fkeys=AValue) then exit;
+ Fkeys:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListServiceAccountKeysResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'keys' : SetLength(Fkeys,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TServiceAccountKey
+ --------------------------------------------------------------------}
+
+
+Procedure TServiceAccountKey.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServiceAccountKey.SetprivateKeyType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprivateKeyType=AValue) then exit;
+ FprivateKeyType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServiceAccountKey.SetprivateKeyData(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprivateKeyData=AValue) then exit;
+ FprivateKeyData:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServiceAccountKey.SetvalidAfterTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvalidAfterTime=AValue) then exit;
+ FvalidAfterTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TServiceAccountKey.SetvalidBeforeTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvalidBeforeTime=AValue) then exit;
+ FvalidBeforeTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreateServiceAccountKeyRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TCreateServiceAccountKeyRequest.SetprivateKeyType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprivateKeyType=AValue) then exit;
+ FprivateKeyType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSignBlobRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSignBlobRequest.SetbytesToSign(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbytesToSign=AValue) then exit;
+ FbytesToSign:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSignBlobResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSignBlobResponse.SetkeyId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FkeyId=AValue) then exit;
+ FkeyId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSignBlobResponse.Setsignature(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsignature=AValue) then exit;
+ Fsignature:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPolicy
+ --------------------------------------------------------------------}
+
+
+Procedure TPolicy.Setversion(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fversion=AValue) then exit;
+ Fversion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPolicy.Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray);
+
+begin
+ If (Fbindings=AValue) then exit;
+ Fbindings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPolicy.Setrules(AIndex : Integer; const AValue : TPolicyTyperulesArray);
+
+begin
+ If (Frules=AValue) then exit;
+ Frules:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPolicy.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPolicy.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'bindings' : SetLength(Fbindings,ALength);
+ 'rules' : SetLength(Frules,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBinding
+ --------------------------------------------------------------------}
+
+
+Procedure TBinding.Setrole(AIndex : Integer; const AValue : String);
+
+begin
+ If (Frole=AValue) then exit;
+ Frole:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBinding.Setmembers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fmembers=AValue) then exit;
+ Fmembers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBinding.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'members' : SetLength(Fmembers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TRule
+ --------------------------------------------------------------------}
+
+
+Procedure TRule.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.Setpermissions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.Setaction(AIndex : Integer; const AValue : String);
+
+begin
+ If (Faction=AValue) then exit;
+ Faction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.Set_in(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (F_in=AValue) then exit;
+ F_in:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.SetnotIn(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FnotIn=AValue) then exit;
+ FnotIn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.Setconditions(AIndex : Integer; const AValue : TRuleTypeconditionsArray);
+
+begin
+ If (Fconditions=AValue) then exit;
+ Fconditions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRule.SetlogConfig(AIndex : Integer; const AValue : TRuleTypelogConfigArray);
+
+begin
+ If (FlogConfig=AValue) then exit;
+ FlogConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TRule.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_in' : Result:='in';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRule.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'permissions' : SetLength(Fpermissions,ALength);
+ '_in' : SetLength(F_in,ALength);
+ 'notin' : SetLength(FnotIn,ALength);
+ 'conditions' : SetLength(Fconditions,ALength);
+ 'logconfig' : SetLength(FlogConfig,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCondition
+ --------------------------------------------------------------------}
+
+
+Procedure TCondition.Setiam(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fiam=AValue) then exit;
+ Fiam:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCondition.Setsys(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsys=AValue) then exit;
+ Fsys:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCondition.Setsvc(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsvc=AValue) then exit;
+ Fsvc:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCondition.Setop(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fop=AValue) then exit;
+ Fop:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCondition.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCondition.Setvalues(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fvalues=AValue) then exit;
+ Fvalues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCondition.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'values' : SetLength(Fvalues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLogConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TLogConfig.Setcounter(AIndex : Integer; const AValue : TCounterOptions);
+
+begin
+ If (Fcounter=AValue) then exit;
+ Fcounter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogConfig.SetdataAccess(AIndex : Integer; const AValue : TDataAccessOptions);
+
+begin
+ If (FdataAccess=AValue) then exit;
+ FdataAccess:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogConfig.SetcloudAudit(AIndex : Integer; const AValue : TCloudAuditOptions);
+
+begin
+ If (FcloudAudit=AValue) then exit;
+ FcloudAudit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCounterOptions
+ --------------------------------------------------------------------}
+
+
+Procedure TCounterOptions.Setmetric(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmetric=AValue) then exit;
+ Fmetric:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCounterOptions.Setfield(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffield=AValue) then exit;
+ Ffield:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDataAccessOptions
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCloudAuditOptions
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSetIamPolicyRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSetIamPolicyRequest.Setpolicy(AIndex : Integer; const AValue : TPolicy);
+
+begin
+ If (Fpolicy=AValue) then exit;
+ Fpolicy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestIamPermissionsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TTestIamPermissionsRequest.Setpermissions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestIamPermissionsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'permissions' : SetLength(Fpermissions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestIamPermissionsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TTestIamPermissionsResponse.Setpermissions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestIamPermissionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'permissions' : SetLength(Fpermissions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsServiceAccountsKeysResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsServiceAccountsKeysResource.ResourceName : String;
+
+begin
+ Result:='keys';
+end;
+
+Class Function TProjectsServiceAccountsKeysResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TiamAPI;
+end;
+
+Function TProjectsServiceAccountsKeysResource.List(_name: string; AQuery : string = '') : TListServiceAccountKeysResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}/keys';
+ _Methodid = 'iam.projects.serviceAccounts.keys.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListServiceAccountKeysResponse) as TListServiceAccountKeysResponse;
+end;
+
+
+Function TProjectsServiceAccountsKeysResource.List(_name: string; AQuery : TProjectsServiceAccountsKeyslistOptions) : TListServiceAccountKeysResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'keyTypes',AQuery.keyTypes);
+ Result:=List(_name,_Q);
+end;
+
+Function TProjectsServiceAccountsKeysResource.Get(_name: string) : TServiceAccountKey;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'iam.projects.serviceAccounts.keys.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TServiceAccountKey) as TServiceAccountKey;
+end;
+
+Function TProjectsServiceAccountsKeysResource.Create(_name: string; aCreateServiceAccountKeyRequest : TCreateServiceAccountKeyRequest) : TServiceAccountKey;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+name}/keys';
+ _Methodid = 'iam.projects.serviceAccounts.keys.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCreateServiceAccountKeyRequest,TServiceAccountKey) as TServiceAccountKey;
+end;
+
+Function TProjectsServiceAccountsKeysResource.Delete(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/{+name}';
+ _Methodid = 'iam.projects.serviceAccounts.keys.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsServiceAccountsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsServiceAccountsResource.ResourceName : String;
+
+begin
+ Result:='serviceAccounts';
+end;
+
+Class Function TProjectsServiceAccountsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TiamAPI;
+end;
+
+Function TProjectsServiceAccountsResource.List(_name: string; AQuery : string = '') : TListServiceAccountsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}/serviceAccounts';
+ _Methodid = 'iam.projects.serviceAccounts.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListServiceAccountsResponse) as TListServiceAccountsResponse;
+end;
+
+
+Function TProjectsServiceAccountsResource.List(_name: string; AQuery : TProjectsServiceAccountslistOptions) : TListServiceAccountsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
+end;
+
+Function TProjectsServiceAccountsResource.Get(_name: string) : TServiceAccount;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'iam.projects.serviceAccounts.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TServiceAccount) as TServiceAccount;
+end;
+
+Function TProjectsServiceAccountsResource.Create(_name: string; aCreateServiceAccountRequest : TCreateServiceAccountRequest) : TServiceAccount;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+name}/serviceAccounts';
+ _Methodid = 'iam.projects.serviceAccounts.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCreateServiceAccountRequest,TServiceAccount) as TServiceAccount;
+end;
+
+Function TProjectsServiceAccountsResource.Update(_name: string; aServiceAccount : TServiceAccount) : TServiceAccount;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v1/{+name}';
+ _Methodid = 'iam.projects.serviceAccounts.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aServiceAccount,TServiceAccount) as TServiceAccount;
+end;
+
+Function TProjectsServiceAccountsResource.Delete(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/{+name}';
+ _Methodid = 'iam.projects.serviceAccounts.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+Function TProjectsServiceAccountsResource.SignBlob(_name: string; aSignBlobRequest : TSignBlobRequest) : TSignBlobResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+name}:signBlob';
+ _Methodid = 'iam.projects.serviceAccounts.signBlob';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSignBlobRequest,TSignBlobResponse) as TSignBlobResponse;
+end;
+
+Function TProjectsServiceAccountsResource.GetIamPolicy(resource: string) : TPolicy;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+resource}:getIamPolicy';
+ _Methodid = 'iam.projects.serviceAccounts.getIamPolicy';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPolicy) as TPolicy;
+end;
+
+Function TProjectsServiceAccountsResource.SetIamPolicy(resource: string; aSetIamPolicyRequest : TSetIamPolicyRequest) : TPolicy;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+resource}:setIamPolicy';
+ _Methodid = 'iam.projects.serviceAccounts.setIamPolicy';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSetIamPolicyRequest,TPolicy) as TPolicy;
+end;
+
+Function TProjectsServiceAccountsResource.TestIamPermissions(resource: string; aTestIamPermissionsRequest : TTestIamPermissionsRequest) : TTestIamPermissionsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+resource}:testIamPermissions';
+ _Methodid = 'iam.projects.serviceAccounts.testIamPermissions';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTestIamPermissionsRequest,TTestIamPermissionsResponse) as TTestIamPermissionsResponse;
+end;
+
+
+
+Function TProjectsServiceAccountsResource.GetKeysInstance : TProjectsServiceAccountsKeysResource;
+
+begin
+ if (FKeysInstance=Nil) then
+ FKeysInstance:=CreateKeysResource;
+ Result:=FKeysInstance;
+end;
+
+Function TProjectsServiceAccountsResource.CreateKeysResource : TProjectsServiceAccountsKeysResource;
+
+begin
+ Result:=CreateKeysResource(Self);
+end;
+
+
+Function TProjectsServiceAccountsResource.CreateKeysResource(AOwner : TComponent) : TProjectsServiceAccountsKeysResource;
+
+begin
+ Result:=TProjectsServiceAccountsKeysResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TiamAPI;
+end;
+
+
+
+Function TProjectsResource.GetServiceAccountsKeysInstance : TProjectsServiceAccountsKeysResource;
+
+begin
+ if (FServiceAccountsKeysInstance=Nil) then
+ FServiceAccountsKeysInstance:=CreateServiceAccountsKeysResource;
+ Result:=FServiceAccountsKeysInstance;
+end;
+
+Function TProjectsResource.CreateServiceAccountsKeysResource : TProjectsServiceAccountsKeysResource;
+
+begin
+ Result:=CreateServiceAccountsKeysResource(Self);
+end;
+
+
+Function TProjectsResource.CreateServiceAccountsKeysResource(AOwner : TComponent) : TProjectsServiceAccountsKeysResource;
+
+begin
+ Result:=TProjectsServiceAccountsKeysResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetServiceAccountsInstance : TProjectsServiceAccountsResource;
+
+begin
+ if (FServiceAccountsInstance=Nil) then
+ FServiceAccountsInstance:=CreateServiceAccountsResource;
+ Result:=FServiceAccountsInstance;
+end;
+
+Function TProjectsResource.CreateServiceAccountsResource : TProjectsServiceAccountsResource;
+
+begin
+ Result:=CreateServiceAccountsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateServiceAccountsResource(AOwner : TComponent) : TProjectsServiceAccountsResource;
+
+begin
+ Result:=TProjectsServiceAccountsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TIamAPI
+ --------------------------------------------------------------------}
+
+Class Function TIamAPI.APIName : String;
+
+begin
+ Result:='iam';
+end;
+
+Class Function TIamAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TIamAPI.APIRevision : String;
+
+begin
+ Result:='20160129';
+end;
+
+Class Function TIamAPI.APIID : String;
+
+begin
+ Result:='iam:v1';
+end;
+
+Class Function TIamAPI.APITitle : String;
+
+begin
+ Result:='Google Identity and Access Management API';
+end;
+
+Class Function TIamAPI.APIDescription : String;
+
+begin
+ Result:='Manages identity and access control for Google Cloud Platform resources, including the creation of service accounts, which you can use to authenticate to Google and make API calls.';
+end;
+
+Class Function TIamAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TIamAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TIamAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TIamAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TIamAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/iam/';
+end;
+
+Class Function TIamAPI.APIrootUrl : string;
+
+begin
+ Result:='https://iam.googleapis.com/';
+end;
+
+Class Function TIamAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TIamAPI.APIbaseURL : String;
+
+begin
+ Result:='https://iam.googleapis.com/';
+end;
+
+Class Function TIamAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TIamAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TIamAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TIamAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+
+end;
+
+Class Function TIamAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TIamAPI.RegisterAPIResources;
+
+begin
+ TListServiceAccountsResponse.RegisterObject;
+ TServiceAccount.RegisterObject;
+ TCreateServiceAccountRequest.RegisterObject;
+ TEmpty.RegisterObject;
+ TListServiceAccountKeysResponse.RegisterObject;
+ TServiceAccountKey.RegisterObject;
+ TCreateServiceAccountKeyRequest.RegisterObject;
+ TSignBlobRequest.RegisterObject;
+ TSignBlobResponse.RegisterObject;
+ TPolicy.RegisterObject;
+ TBinding.RegisterObject;
+ TRule.RegisterObject;
+ TCondition.RegisterObject;
+ TLogConfig.RegisterObject;
+ TCounterOptions.RegisterObject;
+ TDataAccessOptions.RegisterObject;
+ TCloudAuditOptions.RegisterObject;
+ TSetIamPolicyRequest.RegisterObject;
+ TTestIamPermissionsRequest.RegisterObject;
+ TTestIamPermissionsResponse.RegisterObject;
+end;
+
+
+Function TIamAPI.GetProjectsServiceAccountsKeysInstance : TProjectsServiceAccountsKeysResource;
+
+begin
+ if (FProjectsServiceAccountsKeysInstance=Nil) then
+ FProjectsServiceAccountsKeysInstance:=CreateProjectsServiceAccountsKeysResource;
+ Result:=FProjectsServiceAccountsKeysInstance;
+end;
+
+Function TIamAPI.CreateProjectsServiceAccountsKeysResource : TProjectsServiceAccountsKeysResource;
+
+begin
+ Result:=CreateProjectsServiceAccountsKeysResource(Self);
+end;
+
+
+Function TIamAPI.CreateProjectsServiceAccountsKeysResource(AOwner : TComponent) : TProjectsServiceAccountsKeysResource;
+
+begin
+ Result:=TProjectsServiceAccountsKeysResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TIamAPI.GetProjectsServiceAccountsInstance : TProjectsServiceAccountsResource;
+
+begin
+ if (FProjectsServiceAccountsInstance=Nil) then
+ FProjectsServiceAccountsInstance:=CreateProjectsServiceAccountsResource;
+ Result:=FProjectsServiceAccountsInstance;
+end;
+
+Function TIamAPI.CreateProjectsServiceAccountsResource : TProjectsServiceAccountsResource;
+
+begin
+ Result:=CreateProjectsServiceAccountsResource(Self);
+end;
+
+
+Function TIamAPI.CreateProjectsServiceAccountsResource(AOwner : TComponent) : TProjectsServiceAccountsResource;
+
+begin
+ Result:=TProjectsServiceAccountsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TIamAPI.GetProjectsInstance : TProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TIamAPI.CreateProjectsResource : TProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TIamAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+
+begin
+ Result:=TProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TIamAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleidentitytoolkit.pp b/packages/googleapi/src/googleidentitytoolkit.pp
index e28bacca28..be326abb96 100644
--- a/packages/googleapi/src/googleidentitytoolkit.pp
+++ b/packages/googleapi/src/googleidentitytoolkit.pp
@@ -1,19 +1,4 @@
unit googleidentitytoolkit;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:05
{$MODE objfpc}
{$H+}
@@ -27,6 +12,7 @@ type
TCreateAuthUriResponse = Class;
TDeleteAccountResponse = Class;
TDownloadAccountResponse = Class;
+ TEmailTemplate = Class;
TGetAccountInfoResponse = Class;
TGetOobConfirmationCodeResponse = Class;
TGetRecaptchaParamResponse = Class;
@@ -34,22 +20,33 @@ type
TIdentitytoolkitRelyingpartyDeleteAccountRequest = Class;
TIdentitytoolkitRelyingpartyDownloadAccountRequest = Class;
TIdentitytoolkitRelyingpartyGetAccountInfoRequest = Class;
+ TIdentitytoolkitRelyingpartyGetProjectConfigResponse = Class;
TIdentitytoolkitRelyingpartyGetPublicKeysResponse = Class;
TIdentitytoolkitRelyingpartyResetPasswordRequest = Class;
TIdentitytoolkitRelyingpartySetAccountInfoRequest = Class;
+ TIdentitytoolkitRelyingpartySetProjectConfigRequest = Class;
+ TIdentitytoolkitRelyingpartySetProjectConfigResponse = Class;
+ TIdentitytoolkitRelyingpartySignOutUserRequest = Class;
+ TIdentitytoolkitRelyingpartySignOutUserResponse = Class;
+ TIdentitytoolkitRelyingpartySignupNewUserRequest = Class;
TIdentitytoolkitRelyingpartyUploadAccountRequest = Class;
TIdentitytoolkitRelyingpartyVerifyAssertionRequest = Class;
+ TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest = Class;
TIdentitytoolkitRelyingpartyVerifyPasswordRequest = Class;
+ TIdpConfig = Class;
TRelyingparty = Class;
TResetPasswordResponse = Class;
TSetAccountInfoResponse = Class;
+ TSignupNewUserResponse = Class;
TUploadAccountResponse = Class;
TUserInfo = Class;
TVerifyAssertionResponse = Class;
+ TVerifyCustomTokenResponse = Class;
TVerifyPasswordResponse = Class;
TCreateAuthUriResponseArray = Array of TCreateAuthUriResponse;
TDeleteAccountResponseArray = Array of TDeleteAccountResponse;
TDownloadAccountResponseArray = Array of TDownloadAccountResponse;
+ TEmailTemplateArray = Array of TEmailTemplate;
TGetAccountInfoResponseArray = Array of TGetAccountInfoResponse;
TGetOobConfirmationCodeResponseArray = Array of TGetOobConfirmationCodeResponse;
TGetRecaptchaParamResponseArray = Array of TGetRecaptchaParamResponse;
@@ -57,18 +54,28 @@ type
TIdentitytoolkitRelyingpartyDeleteAccountRequestArray = Array of TIdentitytoolkitRelyingpartyDeleteAccountRequest;
TIdentitytoolkitRelyingpartyDownloadAccountRequestArray = Array of TIdentitytoolkitRelyingpartyDownloadAccountRequest;
TIdentitytoolkitRelyingpartyGetAccountInfoRequestArray = Array of TIdentitytoolkitRelyingpartyGetAccountInfoRequest;
+ TIdentitytoolkitRelyingpartyGetProjectConfigResponseArray = Array of TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
TIdentitytoolkitRelyingpartyGetPublicKeysResponseArray = Array of TIdentitytoolkitRelyingpartyGetPublicKeysResponse;
TIdentitytoolkitRelyingpartyResetPasswordRequestArray = Array of TIdentitytoolkitRelyingpartyResetPasswordRequest;
TIdentitytoolkitRelyingpartySetAccountInfoRequestArray = Array of TIdentitytoolkitRelyingpartySetAccountInfoRequest;
+ TIdentitytoolkitRelyingpartySetProjectConfigRequestArray = Array of TIdentitytoolkitRelyingpartySetProjectConfigRequest;
+ TIdentitytoolkitRelyingpartySetProjectConfigResponseArray = Array of TIdentitytoolkitRelyingpartySetProjectConfigResponse;
+ TIdentitytoolkitRelyingpartySignOutUserRequestArray = Array of TIdentitytoolkitRelyingpartySignOutUserRequest;
+ TIdentitytoolkitRelyingpartySignOutUserResponseArray = Array of TIdentitytoolkitRelyingpartySignOutUserResponse;
+ TIdentitytoolkitRelyingpartySignupNewUserRequestArray = Array of TIdentitytoolkitRelyingpartySignupNewUserRequest;
TIdentitytoolkitRelyingpartyUploadAccountRequestArray = Array of TIdentitytoolkitRelyingpartyUploadAccountRequest;
TIdentitytoolkitRelyingpartyVerifyAssertionRequestArray = Array of TIdentitytoolkitRelyingpartyVerifyAssertionRequest;
+ TIdentitytoolkitRelyingpartyVerifyCustomTokenRequestArray = Array of TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest;
TIdentitytoolkitRelyingpartyVerifyPasswordRequestArray = Array of TIdentitytoolkitRelyingpartyVerifyPasswordRequest;
+ TIdpConfigArray = Array of TIdpConfig;
TRelyingpartyArray = Array of TRelyingparty;
TResetPasswordResponseArray = Array of TResetPasswordResponse;
TSetAccountInfoResponseArray = Array of TSetAccountInfoResponse;
+ TSignupNewUserResponseArray = Array of TSignupNewUserResponse;
TUploadAccountResponseArray = Array of TUploadAccountResponse;
TUserInfoArray = Array of TUserInfo;
TVerifyAssertionResponseArray = Array of TVerifyAssertionResponse;
+ TVerifyCustomTokenResponseArray = Array of TVerifyCustomTokenResponse;
TVerifyPasswordResponseArray = Array of TVerifyPasswordResponse;
//Anonymous types, using auto-generated names
TSetAccountInfoResponseTypeproviderUserInfoItem = Class;
@@ -76,6 +83,8 @@ type
TUserInfoTypeproviderUserInfoItem = Class;
TDownloadAccountResponseTypeusersArray = Array of TUserInfo;
TGetAccountInfoResponseTypeusersArray = Array of TUserInfo;
+ TIdentitytoolkitRelyingpartyGetProjectConfigResponseTypeidpConfigArray = Array of TIdpConfig;
+ TIdentitytoolkitRelyingpartySetProjectConfigRequestTypeidpConfigArray = Array of TIdpConfig;
TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray = Array of TUserInfo;
TSetAccountInfoResponseTypeproviderUserInfoArray = Array of TSetAccountInfoResponseTypeproviderUserInfoItem;
TUploadAccountResponseTypeerrorArray = Array of TUploadAccountResponseTypeerrorItem;
@@ -87,28 +96,38 @@ type
TCreateAuthUriResponse = Class(TGoogleBaseObject)
Private
+ FallProviders : TStringArray;
FauthUri : String;
FcaptchaRequired : boolean;
FforExistingProvider : boolean;
Fkind : String;
FproviderId : String;
Fregistered : boolean;
+ FsessionId : String;
Protected
//Property setters
+ Procedure SetallProviders(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetauthUri(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcaptchaRequired(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetforExistingProvider(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcaptchaRequired(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetforExistingProvider(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetproviderId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setregistered(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setregistered(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsessionId(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 authUri : String Index 0 Read FauthUri Write SetauthUri;
- Property captchaRequired : boolean Index 8 Read FcaptchaRequired Write SetcaptchaRequired;
- Property forExistingProvider : boolean Index 16 Read FforExistingProvider Write SetforExistingProvider;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property providerId : String Index 32 Read FproviderId Write SetproviderId;
- Property registered : boolean Index 40 Read Fregistered Write Setregistered;
+ Property allProviders : TStringArray Index 0 Read FallProviders Write SetallProviders;
+ Property authUri : String Index 8 Read FauthUri Write SetauthUri;
+ Property captchaRequired : boolean Index 16 Read FcaptchaRequired Write SetcaptchaRequired;
+ Property forExistingProvider : boolean Index 24 Read FforExistingProvider Write SetforExistingProvider;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property providerId : String Index 40 Read FproviderId Write SetproviderId;
+ Property registered : boolean Index 48 Read Fregistered Write Setregistered;
+ Property sessionId : String Index 56 Read FsessionId Write SetsessionId;
end;
TCreateAuthUriResponseClass = Class of TCreateAuthUriResponse;
@@ -141,7 +160,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setusers(AIndex : Integer; AValue : TDownloadAccountResponseTypeusersArray); virtual;
+ Procedure Setusers(AIndex : Integer; const AValue : TDownloadAccountResponseTypeusersArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -155,6 +174,37 @@ type
TDownloadAccountResponseClass = Class of TDownloadAccountResponse;
{ --------------------------------------------------------------------
+ TEmailTemplate
+ --------------------------------------------------------------------}
+
+ TEmailTemplate = Class(TGoogleBaseObject)
+ Private
+ Fbody : String;
+ Fformat : String;
+ Ffrom : String;
+ FfromDisplayName : String;
+ FreplyTo : String;
+ Fsubject : String;
+ Protected
+ //Property setters
+ Procedure Setbody(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfrom(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfromDisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreplyTo(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsubject(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property body : String Index 0 Read Fbody Write Setbody;
+ Property format : String Index 8 Read Fformat Write Setformat;
+ Property from : String Index 16 Read Ffrom Write Setfrom;
+ Property fromDisplayName : String Index 24 Read FfromDisplayName Write SetfromDisplayName;
+ Property replyTo : String Index 32 Read FreplyTo Write SetreplyTo;
+ Property subject : String Index 40 Read Fsubject Write Setsubject;
+ end;
+ TEmailTemplateClass = Class of TEmailTemplate;
+
+ { --------------------------------------------------------------------
TGetAccountInfoResponse
--------------------------------------------------------------------}
@@ -165,7 +215,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setusers(AIndex : Integer; AValue : TGetAccountInfoResponseTypeusersArray); virtual;
+ Procedure Setusers(AIndex : Integer; const AValue : TGetAccountInfoResponseTypeusersArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -183,16 +233,19 @@ type
TGetOobConfirmationCodeResponse = Class(TGoogleBaseObject)
Private
+ Femail : String;
Fkind : String;
FoobCode : String;
Protected
//Property setters
+ Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetoobCode(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property kind : String Index 0 Read Fkind Write Setkind;
- Property oobCode : String Index 8 Read FoobCode Write SetoobCode;
+ Property email : String Index 0 Read Femail Write Setemail;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property oobCode : String Index 16 Read FoobCode Write SetoobCode;
end;
TGetOobConfirmationCodeResponseClass = Class of TGetOobConfirmationCodeResponse;
@@ -267,13 +320,19 @@ type
TIdentitytoolkitRelyingpartyDeleteAccountRequest = Class(TGoogleBaseObject)
Private
+ FdelegatedProjectNumber : String;
+ FidToken : String;
FlocalId : String;
Protected
//Property setters
+ Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property localId : String Index 0 Read FlocalId Write SetlocalId;
+ Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
+ Property idToken : String Index 8 Read FidToken Write SetidToken;
+ Property localId : String Index 16 Read FlocalId Write SetlocalId;
end;
TIdentitytoolkitRelyingpartyDeleteAccountRequestClass = Class of TIdentitytoolkitRelyingpartyDeleteAccountRequest;
@@ -283,16 +342,19 @@ type
TIdentitytoolkitRelyingpartyDownloadAccountRequest = Class(TGoogleBaseObject)
Private
+ FdelegatedProjectNumber : String;
FmaxResults : integer;
FnextPageToken : String;
Protected
//Property setters
- Procedure SetmaxResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmaxResults(AIndex : Integer; const AValue : integer); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property maxResults : integer Index 0 Read FmaxResults Write SetmaxResults;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
+ Property maxResults : integer Index 8 Read FmaxResults Write SetmaxResults;
+ Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
end;
TIdentitytoolkitRelyingpartyDownloadAccountRequestClass = Class of TIdentitytoolkitRelyingpartyDownloadAccountRequest;
@@ -302,27 +364,80 @@ type
TIdentitytoolkitRelyingpartyGetAccountInfoRequest = Class(TGoogleBaseObject)
Private
+ FdelegatedProjectNumber : String;
Femail : TStringArray;
FidToken : String;
FlocalId : TStringArray;
Protected
//Property setters
- Procedure Setemail(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setemail(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlocalId(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetlocalId(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 email : TStringArray Index 0 Read Femail Write Setemail;
- Property idToken : String Index 8 Read FidToken Write SetidToken;
- Property localId : TStringArray Index 16 Read FlocalId Write SetlocalId;
+ Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
+ Property email : TStringArray Index 8 Read Femail Write Setemail;
+ Property idToken : String Index 16 Read FidToken Write SetidToken;
+ Property localId : TStringArray Index 24 Read FlocalId Write SetlocalId;
end;
TIdentitytoolkitRelyingpartyGetAccountInfoRequestClass = Class of TIdentitytoolkitRelyingpartyGetAccountInfoRequest;
{ --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartyGetProjectConfigResponse
+ --------------------------------------------------------------------}
+
+ TIdentitytoolkitRelyingpartyGetProjectConfigResponse = Class(TGoogleBaseObject)
+ Private
+ FallowPasswordUser : boolean;
+ FapiKey : String;
+ FauthorizedDomains : TStringArray;
+ FchangeEmailTemplate : TEmailTemplate;
+ FenableAnonymousUser : boolean;
+ FidpConfig : TIdentitytoolkitRelyingpartyGetProjectConfigResponseTypeidpConfigArray;
+ FlegacyResetPasswordTemplate : TEmailTemplate;
+ FprojectId : String;
+ FresetPasswordTemplate : TEmailTemplate;
+ FuseEmailSending : boolean;
+ FverifyEmailTemplate : TEmailTemplate;
+ Protected
+ //Property setters
+ Procedure SetallowPasswordUser(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetapiKey(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetauthorizedDomains(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetchangeEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
+ Procedure SetenableAnonymousUser(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetidpConfig(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartyGetProjectConfigResponseTypeidpConfigArray); virtual;
+ Procedure SetlegacyResetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetresetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
+ Procedure SetuseEmailSending(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetverifyEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property allowPasswordUser : boolean Index 0 Read FallowPasswordUser Write SetallowPasswordUser;
+ Property apiKey : String Index 8 Read FapiKey Write SetapiKey;
+ Property authorizedDomains : TStringArray Index 16 Read FauthorizedDomains Write SetauthorizedDomains;
+ Property changeEmailTemplate : TEmailTemplate Index 24 Read FchangeEmailTemplate Write SetchangeEmailTemplate;
+ Property enableAnonymousUser : boolean Index 32 Read FenableAnonymousUser Write SetenableAnonymousUser;
+ Property idpConfig : TIdentitytoolkitRelyingpartyGetProjectConfigResponseTypeidpConfigArray Index 40 Read FidpConfig Write SetidpConfig;
+ Property legacyResetPasswordTemplate : TEmailTemplate Index 48 Read FlegacyResetPasswordTemplate Write SetlegacyResetPasswordTemplate;
+ Property projectId : String Index 56 Read FprojectId Write SetprojectId;
+ Property resetPasswordTemplate : TEmailTemplate Index 64 Read FresetPasswordTemplate Write SetresetPasswordTemplate;
+ Property useEmailSending : boolean Index 72 Read FuseEmailSending Write SetuseEmailSending;
+ Property verifyEmailTemplate : TEmailTemplate Index 80 Read FverifyEmailTemplate Write SetverifyEmailTemplate;
+ end;
+ TIdentitytoolkitRelyingpartyGetProjectConfigResponseClass = Class of TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
+
+ { --------------------------------------------------------------------
TIdentitytoolkitRelyingpartyGetPublicKeysResponse
--------------------------------------------------------------------}
@@ -369,31 +484,43 @@ type
Private
FcaptchaChallenge : String;
FcaptchaResponse : String;
+ FdelegatedProjectNumber : String;
+ FdeleteAttribute : TStringArray;
+ FdeleteProvider : TStringArray;
FdisableUser : boolean;
FdisplayName : String;
Femail : String;
FemailVerified : boolean;
FidToken : String;
+ FinstanceId : String;
FlocalId : String;
FoobCode : String;
Fpassword : String;
+ FphotoUrl : String;
Fprovider : TStringArray;
+ FreturnSecureToken : boolean;
FupgradeToFederatedLogin : boolean;
FvalidSince : String;
Protected
//Property setters
Procedure SetcaptchaChallenge(AIndex : Integer; const AValue : String); virtual;
Procedure SetcaptchaResponse(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisableUser(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdeleteAttribute(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetdeleteProvider(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetdisableUser(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
- Procedure SetemailVerified(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetemailVerified(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
Procedure SetoobCode(AIndex : Integer; const AValue : String); virtual;
Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprovider(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetupgradeToFederatedLogin(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setprovider(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetreturnSecureToken(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetupgradeToFederatedLogin(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetvalidSince(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -403,26 +530,168 @@ type
Published
Property captchaChallenge : String Index 0 Read FcaptchaChallenge Write SetcaptchaChallenge;
Property captchaResponse : String Index 8 Read FcaptchaResponse Write SetcaptchaResponse;
- Property disableUser : boolean Index 16 Read FdisableUser Write SetdisableUser;
- Property displayName : String Index 24 Read FdisplayName Write SetdisplayName;
- Property email : String Index 32 Read Femail Write Setemail;
- Property emailVerified : boolean Index 40 Read FemailVerified Write SetemailVerified;
- Property idToken : String Index 48 Read FidToken Write SetidToken;
- Property localId : String Index 56 Read FlocalId Write SetlocalId;
- Property oobCode : String Index 64 Read FoobCode Write SetoobCode;
- Property password : String Index 72 Read Fpassword Write Setpassword;
- Property provider : TStringArray Index 80 Read Fprovider Write Setprovider;
- Property upgradeToFederatedLogin : boolean Index 88 Read FupgradeToFederatedLogin Write SetupgradeToFederatedLogin;
- Property validSince : String Index 96 Read FvalidSince Write SetvalidSince;
+ Property delegatedProjectNumber : String Index 16 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
+ Property deleteAttribute : TStringArray Index 24 Read FdeleteAttribute Write SetdeleteAttribute;
+ Property deleteProvider : TStringArray Index 32 Read FdeleteProvider Write SetdeleteProvider;
+ Property disableUser : boolean Index 40 Read FdisableUser Write SetdisableUser;
+ Property displayName : String Index 48 Read FdisplayName Write SetdisplayName;
+ Property email : String Index 56 Read Femail Write Setemail;
+ Property emailVerified : boolean Index 64 Read FemailVerified Write SetemailVerified;
+ Property idToken : String Index 72 Read FidToken Write SetidToken;
+ Property instanceId : String Index 80 Read FinstanceId Write SetinstanceId;
+ Property localId : String Index 88 Read FlocalId Write SetlocalId;
+ Property oobCode : String Index 96 Read FoobCode Write SetoobCode;
+ Property password : String Index 104 Read Fpassword Write Setpassword;
+ Property photoUrl : String Index 112 Read FphotoUrl Write SetphotoUrl;
+ Property provider : TStringArray Index 120 Read Fprovider Write Setprovider;
+ Property returnSecureToken : boolean Index 128 Read FreturnSecureToken Write SetreturnSecureToken;
+ Property upgradeToFederatedLogin : boolean Index 136 Read FupgradeToFederatedLogin Write SetupgradeToFederatedLogin;
+ Property validSince : String Index 144 Read FvalidSince Write SetvalidSince;
end;
TIdentitytoolkitRelyingpartySetAccountInfoRequestClass = Class of TIdentitytoolkitRelyingpartySetAccountInfoRequest;
{ --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartySetProjectConfigRequest
+ --------------------------------------------------------------------}
+
+ TIdentitytoolkitRelyingpartySetProjectConfigRequest = Class(TGoogleBaseObject)
+ Private
+ FallowPasswordUser : boolean;
+ FapiKey : String;
+ FauthorizedDomains : TStringArray;
+ FchangeEmailTemplate : TEmailTemplate;
+ FdelegatedProjectNumber : String;
+ FenableAnonymousUser : boolean;
+ FidpConfig : TIdentitytoolkitRelyingpartySetProjectConfigRequestTypeidpConfigArray;
+ FlegacyResetPasswordTemplate : TEmailTemplate;
+ FresetPasswordTemplate : TEmailTemplate;
+ FuseEmailSending : boolean;
+ FverifyEmailTemplate : TEmailTemplate;
+ Protected
+ //Property setters
+ Procedure SetallowPasswordUser(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetapiKey(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetauthorizedDomains(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetchangeEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
+ Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetenableAnonymousUser(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetidpConfig(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartySetProjectConfigRequestTypeidpConfigArray); virtual;
+ Procedure SetlegacyResetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
+ Procedure SetresetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
+ Procedure SetuseEmailSending(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetverifyEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property allowPasswordUser : boolean Index 0 Read FallowPasswordUser Write SetallowPasswordUser;
+ Property apiKey : String Index 8 Read FapiKey Write SetapiKey;
+ Property authorizedDomains : TStringArray Index 16 Read FauthorizedDomains Write SetauthorizedDomains;
+ Property changeEmailTemplate : TEmailTemplate Index 24 Read FchangeEmailTemplate Write SetchangeEmailTemplate;
+ Property delegatedProjectNumber : String Index 32 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
+ Property enableAnonymousUser : boolean Index 40 Read FenableAnonymousUser Write SetenableAnonymousUser;
+ Property idpConfig : TIdentitytoolkitRelyingpartySetProjectConfigRequestTypeidpConfigArray Index 48 Read FidpConfig Write SetidpConfig;
+ Property legacyResetPasswordTemplate : TEmailTemplate Index 56 Read FlegacyResetPasswordTemplate Write SetlegacyResetPasswordTemplate;
+ Property resetPasswordTemplate : TEmailTemplate Index 64 Read FresetPasswordTemplate Write SetresetPasswordTemplate;
+ Property useEmailSending : boolean Index 72 Read FuseEmailSending Write SetuseEmailSending;
+ Property verifyEmailTemplate : TEmailTemplate Index 80 Read FverifyEmailTemplate Write SetverifyEmailTemplate;
+ end;
+ TIdentitytoolkitRelyingpartySetProjectConfigRequestClass = Class of TIdentitytoolkitRelyingpartySetProjectConfigRequest;
+
+ { --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartySetProjectConfigResponse
+ --------------------------------------------------------------------}
+
+ TIdentitytoolkitRelyingpartySetProjectConfigResponse = Class(TGoogleBaseObject)
+ Private
+ FprojectId : String;
+ Protected
+ //Property setters
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property projectId : String Index 0 Read FprojectId Write SetprojectId;
+ end;
+ TIdentitytoolkitRelyingpartySetProjectConfigResponseClass = Class of TIdentitytoolkitRelyingpartySetProjectConfigResponse;
+
+ { --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartySignOutUserRequest
+ --------------------------------------------------------------------}
+
+ TIdentitytoolkitRelyingpartySignOutUserRequest = Class(TGoogleBaseObject)
+ Private
+ FinstanceId : String;
+ FlocalId : String;
+ Protected
+ //Property setters
+ Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property instanceId : String Index 0 Read FinstanceId Write SetinstanceId;
+ Property localId : String Index 8 Read FlocalId Write SetlocalId;
+ end;
+ TIdentitytoolkitRelyingpartySignOutUserRequestClass = Class of TIdentitytoolkitRelyingpartySignOutUserRequest;
+
+ { --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartySignOutUserResponse
+ --------------------------------------------------------------------}
+
+ TIdentitytoolkitRelyingpartySignOutUserResponse = Class(TGoogleBaseObject)
+ Private
+ FlocalId : String;
+ Protected
+ //Property setters
+ Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property localId : String Index 0 Read FlocalId Write SetlocalId;
+ end;
+ TIdentitytoolkitRelyingpartySignOutUserResponseClass = Class of TIdentitytoolkitRelyingpartySignOutUserResponse;
+
+ { --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartySignupNewUserRequest
+ --------------------------------------------------------------------}
+
+ TIdentitytoolkitRelyingpartySignupNewUserRequest = Class(TGoogleBaseObject)
+ Private
+ FcaptchaChallenge : String;
+ FcaptchaResponse : String;
+ FdisplayName : String;
+ Femail : String;
+ FidToken : String;
+ FinstanceId : String;
+ Fpassword : String;
+ Protected
+ //Property setters
+ Procedure SetcaptchaChallenge(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcaptchaResponse(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property captchaChallenge : String Index 0 Read FcaptchaChallenge Write SetcaptchaChallenge;
+ Property captchaResponse : String Index 8 Read FcaptchaResponse Write SetcaptchaResponse;
+ Property displayName : String Index 16 Read FdisplayName Write SetdisplayName;
+ Property email : String Index 24 Read Femail Write Setemail;
+ Property idToken : String Index 32 Read FidToken Write SetidToken;
+ Property instanceId : String Index 40 Read FinstanceId Write SetinstanceId;
+ Property password : String Index 48 Read Fpassword Write Setpassword;
+ end;
+ TIdentitytoolkitRelyingpartySignupNewUserRequestClass = Class of TIdentitytoolkitRelyingpartySignupNewUserRequest;
+
+ { --------------------------------------------------------------------
TIdentitytoolkitRelyingpartyUploadAccountRequest
--------------------------------------------------------------------}
TIdentitytoolkitRelyingpartyUploadAccountRequest = Class(TGoogleBaseObject)
Private
+ FdelegatedProjectNumber : String;
FhashAlgorithm : String;
FmemoryCost : integer;
Frounds : integer;
@@ -431,24 +700,26 @@ type
Fusers : TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray;
Protected
//Property setters
+ Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
Procedure SethashAlgorithm(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmemoryCost(AIndex : Integer; AValue : integer); virtual;
- Procedure Setrounds(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmemoryCost(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setrounds(AIndex : Integer; const AValue : integer); virtual;
Procedure SetsaltSeparator(AIndex : Integer; const AValue : String); virtual;
Procedure SetsignerKey(AIndex : Integer; const AValue : String); virtual;
- Procedure Setusers(AIndex : Integer; AValue : TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray); virtual;
+ Procedure Setusers(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property hashAlgorithm : String Index 0 Read FhashAlgorithm Write SethashAlgorithm;
- Property memoryCost : integer Index 8 Read FmemoryCost Write SetmemoryCost;
- Property rounds : integer Index 16 Read Frounds Write Setrounds;
- Property saltSeparator : String Index 24 Read FsaltSeparator Write SetsaltSeparator;
- Property signerKey : String Index 32 Read FsignerKey Write SetsignerKey;
- Property users : TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray Index 40 Read Fusers Write Setusers;
+ Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
+ Property hashAlgorithm : String Index 8 Read FhashAlgorithm Write SethashAlgorithm;
+ Property memoryCost : integer Index 16 Read FmemoryCost Write SetmemoryCost;
+ Property rounds : integer Index 24 Read Frounds Write Setrounds;
+ Property saltSeparator : String Index 32 Read FsaltSeparator Write SetsaltSeparator;
+ Property signerKey : String Index 40 Read FsignerKey Write SetsignerKey;
+ Property users : TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray Index 48 Read Fusers Write Setusers;
end;
TIdentitytoolkitRelyingpartyUploadAccountRequestClass = Class of TIdentitytoolkitRelyingpartyUploadAccountRequest;
@@ -458,26 +729,66 @@ type
TIdentitytoolkitRelyingpartyVerifyAssertionRequest = Class(TGoogleBaseObject)
Private
+ FdelegatedProjectNumber : String;
+ FidToken : String;
+ FinstanceId : String;
FpendingIdToken : String;
FpostBody : String;
FrequestUri : String;
FreturnRefreshToken : boolean;
+ FreturnSecureToken : boolean;
+ FsessionId : String;
Protected
//Property setters
+ Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
Procedure SetpendingIdToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetpostBody(AIndex : Integer; const AValue : String); virtual;
Procedure SetrequestUri(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreturnRefreshToken(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetreturnRefreshToken(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetreturnSecureToken(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsessionId(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property pendingIdToken : String Index 0 Read FpendingIdToken Write SetpendingIdToken;
- Property postBody : String Index 8 Read FpostBody Write SetpostBody;
- Property requestUri : String Index 16 Read FrequestUri Write SetrequestUri;
- Property returnRefreshToken : boolean Index 24 Read FreturnRefreshToken Write SetreturnRefreshToken;
+ Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
+ Property idToken : String Index 8 Read FidToken Write SetidToken;
+ Property instanceId : String Index 16 Read FinstanceId Write SetinstanceId;
+ Property pendingIdToken : String Index 24 Read FpendingIdToken Write SetpendingIdToken;
+ Property postBody : String Index 32 Read FpostBody Write SetpostBody;
+ Property requestUri : String Index 40 Read FrequestUri Write SetrequestUri;
+ Property returnRefreshToken : boolean Index 48 Read FreturnRefreshToken Write SetreturnRefreshToken;
+ Property returnSecureToken : boolean Index 56 Read FreturnSecureToken Write SetreturnSecureToken;
+ Property sessionId : String Index 64 Read FsessionId Write SetsessionId;
end;
TIdentitytoolkitRelyingpartyVerifyAssertionRequestClass = Class of TIdentitytoolkitRelyingpartyVerifyAssertionRequest;
{ --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest
+ --------------------------------------------------------------------}
+
+ TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest = Class(TGoogleBaseObject)
+ Private
+ FdelegatedProjectNumber : String;
+ FinstanceId : String;
+ FreturnSecureToken : boolean;
+ Ftoken : String;
+ Protected
+ //Property setters
+ Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreturnSecureToken(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
+ Property instanceId : String Index 8 Read FinstanceId Write SetinstanceId;
+ Property returnSecureToken : boolean Index 16 Read FreturnSecureToken Write SetreturnSecureToken;
+ Property token : String Index 24 Read Ftoken Write Settoken;
+ end;
+ TIdentitytoolkitRelyingpartyVerifyCustomTokenRequestClass = Class of TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest;
+
+ { --------------------------------------------------------------------
TIdentitytoolkitRelyingpartyVerifyPasswordRequest
--------------------------------------------------------------------}
@@ -485,27 +796,67 @@ type
Private
FcaptchaChallenge : String;
FcaptchaResponse : String;
+ FdelegatedProjectNumber : String;
Femail : String;
+ FidToken : String;
+ FinstanceId : String;
Fpassword : String;
FpendingIdToken : String;
+ FreturnSecureToken : boolean;
Protected
//Property setters
Procedure SetcaptchaChallenge(AIndex : Integer; const AValue : String); virtual;
Procedure SetcaptchaResponse(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
Procedure SetpendingIdToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreturnSecureToken(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property captchaChallenge : String Index 0 Read FcaptchaChallenge Write SetcaptchaChallenge;
Property captchaResponse : String Index 8 Read FcaptchaResponse Write SetcaptchaResponse;
- Property email : String Index 16 Read Femail Write Setemail;
- Property password : String Index 24 Read Fpassword Write Setpassword;
- Property pendingIdToken : String Index 32 Read FpendingIdToken Write SetpendingIdToken;
+ Property delegatedProjectNumber : String Index 16 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
+ Property email : String Index 24 Read Femail Write Setemail;
+ Property idToken : String Index 32 Read FidToken Write SetidToken;
+ Property instanceId : String Index 40 Read FinstanceId Write SetinstanceId;
+ Property password : String Index 48 Read Fpassword Write Setpassword;
+ Property pendingIdToken : String Index 56 Read FpendingIdToken Write SetpendingIdToken;
+ Property returnSecureToken : boolean Index 64 Read FreturnSecureToken Write SetreturnSecureToken;
end;
TIdentitytoolkitRelyingpartyVerifyPasswordRequestClass = Class of TIdentitytoolkitRelyingpartyVerifyPasswordRequest;
{ --------------------------------------------------------------------
+ TIdpConfig
+ --------------------------------------------------------------------}
+
+ TIdpConfig = Class(TGoogleBaseObject)
+ Private
+ FclientId : String;
+ Fenabled : boolean;
+ FexperimentPercent : integer;
+ Fprovider : String;
+ Fsecret : String;
+ Protected
+ //Property setters
+ Procedure SetclientId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setenabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetexperimentPercent(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setprovider(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsecret(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property clientId : String Index 0 Read FclientId Write SetclientId;
+ Property enabled : boolean Index 8 Read Fenabled Write Setenabled;
+ Property experimentPercent : integer Index 16 Read FexperimentPercent Write SetexperimentPercent;
+ Property provider : String Index 24 Read Fprovider Write Setprovider;
+ Property secret : String Index 32 Read Fsecret Write Setsecret;
+ end;
+ TIdpConfigClass = Class of TIdpConfig;
+
+ { --------------------------------------------------------------------
TRelyingparty
--------------------------------------------------------------------}
@@ -568,18 +919,21 @@ type
TSetAccountInfoResponseTypeproviderUserInfoItem = Class(TGoogleBaseObject)
Private
FdisplayName : String;
+ FfederatedId : String;
FphotoUrl : String;
FproviderId : String;
Protected
//Property setters
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfederatedId(AIndex : Integer; const AValue : String); virtual;
Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetproviderId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
- Property photoUrl : String Index 8 Read FphotoUrl Write SetphotoUrl;
- Property providerId : String Index 16 Read FproviderId Write SetproviderId;
+ Property federatedId : String Index 8 Read FfederatedId Write SetfederatedId;
+ Property photoUrl : String Index 16 Read FphotoUrl Write SetphotoUrl;
+ Property providerId : String Index 24 Read FproviderId Write SetproviderId;
end;
TSetAccountInfoResponseTypeproviderUserInfoItemClass = Class of TSetAccountInfoResponseTypeproviderUserInfoItem;
@@ -591,16 +945,28 @@ type
Private
FdisplayName : String;
Femail : String;
+ FexpiresIn : String;
FidToken : String;
Fkind : String;
+ FlocalId : String;
+ FnewEmail : String;
+ FpasswordHash : String;
+ FphotoUrl : String;
FproviderUserInfo : TSetAccountInfoResponseTypeproviderUserInfoArray;
+ FrefreshToken : String;
Protected
//Property setters
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexpiresIn(AIndex : Integer; const AValue : String); virtual;
Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetproviderUserInfo(AIndex : Integer; AValue : TSetAccountInfoResponseTypeproviderUserInfoArray); virtual;
+ Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnewEmail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpasswordHash(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproviderUserInfo(AIndex : Integer; const AValue : TSetAccountInfoResponseTypeproviderUserInfoArray); virtual;
+ Procedure SetrefreshToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -609,13 +975,53 @@ type
Published
Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
Property email : String Index 8 Read Femail Write Setemail;
- Property idToken : String Index 16 Read FidToken Write SetidToken;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property providerUserInfo : TSetAccountInfoResponseTypeproviderUserInfoArray Index 32 Read FproviderUserInfo Write SetproviderUserInfo;
+ Property expiresIn : String Index 16 Read FexpiresIn Write SetexpiresIn;
+ Property idToken : String Index 24 Read FidToken Write SetidToken;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property localId : String Index 40 Read FlocalId Write SetlocalId;
+ Property newEmail : String Index 48 Read FnewEmail Write SetnewEmail;
+ Property passwordHash : String Index 56 Read FpasswordHash Write SetpasswordHash;
+ Property photoUrl : String Index 64 Read FphotoUrl Write SetphotoUrl;
+ Property providerUserInfo : TSetAccountInfoResponseTypeproviderUserInfoArray Index 72 Read FproviderUserInfo Write SetproviderUserInfo;
+ Property refreshToken : String Index 80 Read FrefreshToken Write SetrefreshToken;
end;
TSetAccountInfoResponseClass = Class of TSetAccountInfoResponse;
{ --------------------------------------------------------------------
+ TSignupNewUserResponse
+ --------------------------------------------------------------------}
+
+ TSignupNewUserResponse = Class(TGoogleBaseObject)
+ Private
+ FdisplayName : String;
+ Femail : String;
+ FexpiresIn : String;
+ FidToken : String;
+ Fkind : String;
+ FlocalId : String;
+ FrefreshToken : String;
+ Protected
+ //Property setters
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexpiresIn(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrefreshToken(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
+ Property email : String Index 8 Read Femail Write Setemail;
+ Property expiresIn : String Index 16 Read FexpiresIn Write SetexpiresIn;
+ Property idToken : String Index 24 Read FidToken Write SetidToken;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property localId : String Index 40 Read FlocalId Write SetlocalId;
+ Property refreshToken : String Index 48 Read FrefreshToken Write SetrefreshToken;
+ end;
+ TSignupNewUserResponseClass = Class of TSignupNewUserResponse;
+
+ { --------------------------------------------------------------------
TUploadAccountResponseTypeerrorItem
--------------------------------------------------------------------}
@@ -625,7 +1031,7 @@ type
Fmessage : String;
Protected
//Property setters
- Procedure Setindex(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -644,7 +1050,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Seterror(AIndex : Integer; AValue : TUploadAccountResponseTypeerrorArray); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TUploadAccountResponseTypeerrorArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -664,21 +1070,27 @@ type
TUserInfoTypeproviderUserInfoItem = Class(TGoogleBaseObject)
Private
FdisplayName : String;
+ Femail : String;
FfederatedId : String;
FphotoUrl : String;
FproviderId : String;
+ FrawId : String;
Protected
//Property setters
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
Procedure SetfederatedId(AIndex : Integer; const AValue : String); virtual;
Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetproviderId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrawId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
- Property federatedId : String Index 8 Read FfederatedId Write SetfederatedId;
- Property photoUrl : String Index 16 Read FphotoUrl Write SetphotoUrl;
- Property providerId : String Index 24 Read FproviderId Write SetproviderId;
+ Property email : String Index 8 Read Femail Write Setemail;
+ Property federatedId : String Index 16 Read FfederatedId Write SetfederatedId;
+ Property photoUrl : String Index 24 Read FphotoUrl Write SetphotoUrl;
+ Property providerId : String Index 32 Read FproviderId Write SetproviderId;
+ Property rawId : String Index 40 Read FrawId Write SetrawId;
end;
TUserInfoTypeproviderUserInfoItemClass = Class of TUserInfoTypeproviderUserInfoItem;
@@ -702,18 +1114,18 @@ type
Fversion : integer;
Protected
//Property setters
- Procedure Setdisabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setdisabled(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
- Procedure SetemailVerified(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetemailVerified(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
Procedure SetpasswordHash(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpasswordUpdatedAt(AIndex : Integer; AValue : double); virtual;
+ Procedure SetpasswordUpdatedAt(AIndex : Integer; const AValue : double); virtual;
Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetproviderUserInfo(AIndex : Integer; AValue : TUserInfoTypeproviderUserInfoArray); virtual;
+ Procedure SetproviderUserInfo(AIndex : Integer; const AValue : TUserInfoTypeproviderUserInfoArray); virtual;
Procedure Setsalt(AIndex : Integer; const AValue : String); virtual;
Procedure SetvalidSince(AIndex : Integer; const AValue : String); virtual;
- Procedure Setversion(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setversion(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -750,6 +1162,7 @@ type
Femail : String;
FemailRecycled : boolean;
FemailVerified : boolean;
+ FexpiresIn : String;
FfederatedId : String;
FfirstName : String;
FfullName : String;
@@ -760,15 +1173,19 @@ type
FlastName : String;
FlocalId : String;
FneedConfirmation : boolean;
+ FneedEmail : boolean;
FnickName : String;
FoauthAccessToken : String;
FoauthAuthorizationCode : String;
FoauthExpireIn : integer;
+ FoauthIdToken : String;
FoauthRequestToken : String;
FoauthScope : String;
+ FoauthTokenSecret : String;
ForiginalEmail : String;
FphotoUrl : String;
FproviderId : String;
+ FrefreshToken : String;
FtimeZone : String;
FverifiedProvider : TStringArray;
Protected
@@ -780,8 +1197,9 @@ type
Procedure SetdateOfBirth(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
- Procedure SetemailRecycled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetemailVerified(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetemailRecycled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetemailVerified(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetexpiresIn(AIndex : Integer; const AValue : String); virtual;
Procedure SetfederatedId(AIndex : Integer; const AValue : String); virtual;
Procedure SetfirstName(AIndex : Integer; const AValue : String); virtual;
Procedure SetfullName(AIndex : Integer; const AValue : String); virtual;
@@ -791,18 +1209,22 @@ type
Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastName(AIndex : Integer; const AValue : String); virtual;
Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetneedConfirmation(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetneedConfirmation(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetneedEmail(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetnickName(AIndex : Integer; const AValue : String); virtual;
Procedure SetoauthAccessToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetoauthAuthorizationCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoauthExpireIn(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetoauthExpireIn(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetoauthIdToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetoauthRequestToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetoauthScope(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoauthTokenSecret(AIndex : Integer; const AValue : String); virtual;
Procedure SetoriginalEmail(AIndex : Integer; const AValue : String); virtual;
Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetproviderId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrefreshToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeZone(AIndex : Integer; const AValue : String); virtual;
- Procedure SetverifiedProvider(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetverifiedProvider(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -818,31 +1240,61 @@ type
Property email : String Index 48 Read Femail Write Setemail;
Property emailRecycled : boolean Index 56 Read FemailRecycled Write SetemailRecycled;
Property emailVerified : boolean Index 64 Read FemailVerified Write SetemailVerified;
- Property federatedId : String Index 72 Read FfederatedId Write SetfederatedId;
- Property firstName : String Index 80 Read FfirstName Write SetfirstName;
- Property fullName : String Index 88 Read FfullName Write SetfullName;
- Property idToken : String Index 96 Read FidToken Write SetidToken;
- Property inputEmail : String Index 104 Read FinputEmail Write SetinputEmail;
- Property kind : String Index 112 Read Fkind Write Setkind;
- Property language : String Index 120 Read Flanguage Write Setlanguage;
- Property lastName : String Index 128 Read FlastName Write SetlastName;
- Property localId : String Index 136 Read FlocalId Write SetlocalId;
- Property needConfirmation : boolean Index 144 Read FneedConfirmation Write SetneedConfirmation;
- Property nickName : String Index 152 Read FnickName Write SetnickName;
- Property oauthAccessToken : String Index 160 Read FoauthAccessToken Write SetoauthAccessToken;
- Property oauthAuthorizationCode : String Index 168 Read FoauthAuthorizationCode Write SetoauthAuthorizationCode;
- Property oauthExpireIn : integer Index 176 Read FoauthExpireIn Write SetoauthExpireIn;
- Property oauthRequestToken : String Index 184 Read FoauthRequestToken Write SetoauthRequestToken;
- Property oauthScope : String Index 192 Read FoauthScope Write SetoauthScope;
- Property originalEmail : String Index 200 Read ForiginalEmail Write SetoriginalEmail;
- Property photoUrl : String Index 208 Read FphotoUrl Write SetphotoUrl;
- Property providerId : String Index 216 Read FproviderId Write SetproviderId;
- Property timeZone : String Index 224 Read FtimeZone Write SettimeZone;
- Property verifiedProvider : TStringArray Index 232 Read FverifiedProvider Write SetverifiedProvider;
+ Property expiresIn : String Index 72 Read FexpiresIn Write SetexpiresIn;
+ Property federatedId : String Index 80 Read FfederatedId Write SetfederatedId;
+ Property firstName : String Index 88 Read FfirstName Write SetfirstName;
+ Property fullName : String Index 96 Read FfullName Write SetfullName;
+ Property idToken : String Index 104 Read FidToken Write SetidToken;
+ Property inputEmail : String Index 112 Read FinputEmail Write SetinputEmail;
+ Property kind : String Index 120 Read Fkind Write Setkind;
+ Property language : String Index 128 Read Flanguage Write Setlanguage;
+ Property lastName : String Index 136 Read FlastName Write SetlastName;
+ Property localId : String Index 144 Read FlocalId Write SetlocalId;
+ Property needConfirmation : boolean Index 152 Read FneedConfirmation Write SetneedConfirmation;
+ Property needEmail : boolean Index 160 Read FneedEmail Write SetneedEmail;
+ Property nickName : String Index 168 Read FnickName Write SetnickName;
+ Property oauthAccessToken : String Index 176 Read FoauthAccessToken Write SetoauthAccessToken;
+ Property oauthAuthorizationCode : String Index 184 Read FoauthAuthorizationCode Write SetoauthAuthorizationCode;
+ Property oauthExpireIn : integer Index 192 Read FoauthExpireIn Write SetoauthExpireIn;
+ Property oauthIdToken : String Index 200 Read FoauthIdToken Write SetoauthIdToken;
+ Property oauthRequestToken : String Index 208 Read FoauthRequestToken Write SetoauthRequestToken;
+ Property oauthScope : String Index 216 Read FoauthScope Write SetoauthScope;
+ Property oauthTokenSecret : String Index 224 Read FoauthTokenSecret Write SetoauthTokenSecret;
+ Property originalEmail : String Index 232 Read ForiginalEmail Write SetoriginalEmail;
+ Property photoUrl : String Index 240 Read FphotoUrl Write SetphotoUrl;
+ Property providerId : String Index 248 Read FproviderId Write SetproviderId;
+ Property refreshToken : String Index 256 Read FrefreshToken Write SetrefreshToken;
+ Property timeZone : String Index 264 Read FtimeZone Write SettimeZone;
+ Property verifiedProvider : TStringArray Index 272 Read FverifiedProvider Write SetverifiedProvider;
end;
TVerifyAssertionResponseClass = Class of TVerifyAssertionResponse;
{ --------------------------------------------------------------------
+ TVerifyCustomTokenResponse
+ --------------------------------------------------------------------}
+
+ TVerifyCustomTokenResponse = Class(TGoogleBaseObject)
+ Private
+ FexpiresIn : String;
+ FidToken : String;
+ Fkind : String;
+ FrefreshToken : String;
+ Protected
+ //Property setters
+ Procedure SetexpiresIn(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrefreshToken(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property expiresIn : String Index 0 Read FexpiresIn Write SetexpiresIn;
+ Property idToken : String Index 8 Read FidToken Write SetidToken;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property refreshToken : String Index 24 Read FrefreshToken Write SetrefreshToken;
+ end;
+ TVerifyCustomTokenResponseClass = Class of TVerifyCustomTokenResponse;
+
+ { --------------------------------------------------------------------
TVerifyPasswordResponse
--------------------------------------------------------------------}
@@ -850,29 +1302,44 @@ type
Private
FdisplayName : String;
Femail : String;
+ FexpiresIn : String;
FidToken : String;
Fkind : String;
FlocalId : String;
+ FoauthAccessToken : String;
+ FoauthAuthorizationCode : String;
+ FoauthExpireIn : integer;
FphotoUrl : String;
+ FrefreshToken : String;
Fregistered : boolean;
Protected
//Property setters
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexpiresIn(AIndex : Integer; const AValue : String); virtual;
Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoauthAccessToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoauthAuthorizationCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoauthExpireIn(AIndex : Integer; const AValue : integer); virtual;
Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setregistered(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetrefreshToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setregistered(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
Property email : String Index 8 Read Femail Write Setemail;
- Property idToken : String Index 16 Read FidToken Write SetidToken;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property localId : String Index 32 Read FlocalId Write SetlocalId;
- Property photoUrl : String Index 40 Read FphotoUrl Write SetphotoUrl;
- Property registered : boolean Index 48 Read Fregistered Write Setregistered;
+ Property expiresIn : String Index 16 Read FexpiresIn Write SetexpiresIn;
+ Property idToken : String Index 24 Read FidToken Write SetidToken;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property localId : String Index 40 Read FlocalId Write SetlocalId;
+ Property oauthAccessToken : String Index 48 Read FoauthAccessToken Write SetoauthAccessToken;
+ Property oauthAuthorizationCode : String Index 56 Read FoauthAuthorizationCode Write SetoauthAuthorizationCode;
+ Property oauthExpireIn : integer Index 64 Read FoauthExpireIn Write SetoauthExpireIn;
+ Property photoUrl : String Index 72 Read FphotoUrl Write SetphotoUrl;
+ Property refreshToken : String Index 80 Read FrefreshToken Write SetrefreshToken;
+ Property registered : boolean Index 88 Read Fregistered Write Setregistered;
end;
TVerifyPasswordResponseClass = Class of TVerifyPasswordResponse;
@@ -880,6 +1347,14 @@ type
TRelyingpartyResource
--------------------------------------------------------------------}
+
+ //Optional query Options for TRelyingpartyResource, method GetProjectConfig
+
+ TRelyingpartyGetProjectConfigOptions = Record
+ delegatedProjectNumber : String;
+ projectNumber : String;
+ end;
+
TRelyingpartyResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
@@ -889,12 +1364,18 @@ type
Function DownloadAccount(aIdentitytoolkitRelyingpartyDownloadAccountRequest : TIdentitytoolkitRelyingpartyDownloadAccountRequest) : TDownloadAccountResponse;
Function GetAccountInfo(aIdentitytoolkitRelyingpartyGetAccountInfoRequest : TIdentitytoolkitRelyingpartyGetAccountInfoRequest) : TGetAccountInfoResponse;
Function GetOobConfirmationCode(aRelyingparty : TRelyingparty) : TGetOobConfirmationCodeResponse;
+ Function GetProjectConfig(AQuery : string = '') : TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
+ Function GetProjectConfig(AQuery : TRelyingpartygetProjectConfigOptions) : TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
Function GetPublicKeys : TIdentitytoolkitRelyingpartyGetPublicKeysResponse;
Function GetRecaptchaParam : TGetRecaptchaParamResponse;
Function ResetPassword(aIdentitytoolkitRelyingpartyResetPasswordRequest : TIdentitytoolkitRelyingpartyResetPasswordRequest) : TResetPasswordResponse;
Function SetAccountInfo(aIdentitytoolkitRelyingpartySetAccountInfoRequest : TIdentitytoolkitRelyingpartySetAccountInfoRequest) : TSetAccountInfoResponse;
+ Function SetProjectConfig(aIdentitytoolkitRelyingpartySetProjectConfigRequest : TIdentitytoolkitRelyingpartySetProjectConfigRequest) : TIdentitytoolkitRelyingpartySetProjectConfigResponse;
+ Function SignOutUser(aIdentitytoolkitRelyingpartySignOutUserRequest : TIdentitytoolkitRelyingpartySignOutUserRequest) : TIdentitytoolkitRelyingpartySignOutUserResponse;
+ Function SignupNewUser(aIdentitytoolkitRelyingpartySignupNewUserRequest : TIdentitytoolkitRelyingpartySignupNewUserRequest) : TSignupNewUserResponse;
Function UploadAccount(aIdentitytoolkitRelyingpartyUploadAccountRequest : TIdentitytoolkitRelyingpartyUploadAccountRequest) : TUploadAccountResponse;
Function VerifyAssertion(aIdentitytoolkitRelyingpartyVerifyAssertionRequest : TIdentitytoolkitRelyingpartyVerifyAssertionRequest) : TVerifyAssertionResponse;
+ Function VerifyCustomToken(aIdentitytoolkitRelyingpartyVerifyCustomTokenRequest : TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest) : TVerifyCustomTokenResponse;
Function VerifyPassword(aIdentitytoolkitRelyingpartyVerifyPasswordRequest : TIdentitytoolkitRelyingpartyVerifyPasswordRequest) : TVerifyPasswordResponse;
end;
@@ -944,6 +1425,16 @@ implementation
--------------------------------------------------------------------}
+Procedure TCreateAuthUriResponse.SetallProviders(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FallProviders=AValue) then exit;
+ FallProviders:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TCreateAuthUriResponse.SetauthUri(AIndex : Integer; const AValue : String);
begin
@@ -954,7 +1445,7 @@ end;
-Procedure TCreateAuthUriResponse.SetcaptchaRequired(AIndex : Integer; AValue : boolean);
+Procedure TCreateAuthUriResponse.SetcaptchaRequired(AIndex : Integer; const AValue : boolean);
begin
If (FcaptchaRequired=AValue) then exit;
@@ -964,7 +1455,7 @@ end;
-Procedure TCreateAuthUriResponse.SetforExistingProvider(AIndex : Integer; AValue : boolean);
+Procedure TCreateAuthUriResponse.SetforExistingProvider(AIndex : Integer; const AValue : boolean);
begin
If (FforExistingProvider=AValue) then exit;
@@ -994,7 +1485,7 @@ end;
-Procedure TCreateAuthUriResponse.Setregistered(AIndex : Integer; AValue : boolean);
+Procedure TCreateAuthUriResponse.Setregistered(AIndex : Integer; const AValue : boolean);
begin
If (Fregistered=AValue) then exit;
@@ -1004,6 +1495,29 @@ end;
+Procedure TCreateAuthUriResponse.SetsessionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsessionId=AValue) then exit;
+ FsessionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreateAuthUriResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'allproviders' : SetLength(FallProviders,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
{ --------------------------------------------------------------------
@@ -1048,7 +1562,7 @@ end;
-Procedure TDownloadAccountResponse.Setusers(AIndex : Integer; AValue : TDownloadAccountResponseTypeusersArray);
+Procedure TDownloadAccountResponse.Setusers(AIndex : Integer; const AValue : TDownloadAccountResponseTypeusersArray);
begin
If (Fusers=AValue) then exit;
@@ -1074,6 +1588,73 @@ end;
{ --------------------------------------------------------------------
+ TEmailTemplate
+ --------------------------------------------------------------------}
+
+
+Procedure TEmailTemplate.Setbody(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fbody=AValue) then exit;
+ Fbody:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmailTemplate.Setformat(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fformat=AValue) then exit;
+ Fformat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmailTemplate.Setfrom(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffrom=AValue) then exit;
+ Ffrom:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmailTemplate.SetfromDisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfromDisplayName=AValue) then exit;
+ FfromDisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmailTemplate.SetreplyTo(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreplyTo=AValue) then exit;
+ FreplyTo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmailTemplate.Setsubject(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsubject=AValue) then exit;
+ Fsubject:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TGetAccountInfoResponse
--------------------------------------------------------------------}
@@ -1088,7 +1669,7 @@ end;
-Procedure TGetAccountInfoResponse.Setusers(AIndex : Integer; AValue : TGetAccountInfoResponseTypeusersArray);
+Procedure TGetAccountInfoResponse.Setusers(AIndex : Integer; const AValue : TGetAccountInfoResponseTypeusersArray);
begin
If (Fusers=AValue) then exit;
@@ -1118,6 +1699,16 @@ end;
--------------------------------------------------------------------}
+Procedure TGetOobConfirmationCodeResponse.Setemail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Femail=AValue) then exit;
+ Femail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TGetOobConfirmationCodeResponse.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -1289,6 +1880,26 @@ end;
--------------------------------------------------------------------}
+Procedure TIdentitytoolkitRelyingpartyDeleteAccountRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdelegatedProjectNumber=AValue) then exit;
+ FdelegatedProjectNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyDeleteAccountRequest.SetidToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FidToken=AValue) then exit;
+ FidToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TIdentitytoolkitRelyingpartyDeleteAccountRequest.SetlocalId(AIndex : Integer; const AValue : String);
begin
@@ -1306,7 +1917,17 @@ end;
--------------------------------------------------------------------}
-Procedure TIdentitytoolkitRelyingpartyDownloadAccountRequest.SetmaxResults(AIndex : Integer; AValue : integer);
+Procedure TIdentitytoolkitRelyingpartyDownloadAccountRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdelegatedProjectNumber=AValue) then exit;
+ FdelegatedProjectNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyDownloadAccountRequest.SetmaxResults(AIndex : Integer; const AValue : integer);
begin
If (FmaxResults=AValue) then exit;
@@ -1333,7 +1954,17 @@ end;
--------------------------------------------------------------------}
-Procedure TIdentitytoolkitRelyingpartyGetAccountInfoRequest.Setemail(AIndex : Integer; AValue : TStringArray);
+Procedure TIdentitytoolkitRelyingpartyGetAccountInfoRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdelegatedProjectNumber=AValue) then exit;
+ FdelegatedProjectNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyGetAccountInfoRequest.Setemail(AIndex : Integer; const AValue : TStringArray);
begin
If (Femail=AValue) then exit;
@@ -1353,7 +1984,7 @@ end;
-Procedure TIdentitytoolkitRelyingpartyGetAccountInfoRequest.SetlocalId(AIndex : Integer; AValue : TStringArray);
+Procedure TIdentitytoolkitRelyingpartyGetAccountInfoRequest.SetlocalId(AIndex : Integer; const AValue : TStringArray);
begin
If (FlocalId=AValue) then exit;
@@ -1380,6 +2011,137 @@ end;
{ --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartyGetProjectConfigResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetallowPasswordUser(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FallowPasswordUser=AValue) then exit;
+ FallowPasswordUser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetapiKey(AIndex : Integer; const AValue : String);
+
+begin
+ If (FapiKey=AValue) then exit;
+ FapiKey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetauthorizedDomains(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FauthorizedDomains=AValue) then exit;
+ FauthorizedDomains:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetchangeEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate);
+
+begin
+ If (FchangeEmailTemplate=AValue) then exit;
+ FchangeEmailTemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetenableAnonymousUser(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FenableAnonymousUser=AValue) then exit;
+ FenableAnonymousUser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetidpConfig(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartyGetProjectConfigResponseTypeidpConfigArray);
+
+begin
+ If (FidpConfig=AValue) then exit;
+ FidpConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetlegacyResetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate);
+
+begin
+ If (FlegacyResetPasswordTemplate=AValue) then exit;
+ FlegacyResetPasswordTemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetresetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate);
+
+begin
+ If (FresetPasswordTemplate=AValue) then exit;
+ FresetPasswordTemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetuseEmailSending(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FuseEmailSending=AValue) then exit;
+ FuseEmailSending:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetverifyEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate);
+
+begin
+ If (FverifyEmailTemplate=AValue) then exit;
+ FverifyEmailTemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'authorizeddomains' : SetLength(FauthorizedDomains,ALength);
+ 'idpconfig' : SetLength(FidpConfig,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TIdentitytoolkitRelyingpartyGetPublicKeysResponse
--------------------------------------------------------------------}
@@ -1464,7 +2226,37 @@ end;
-Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdisableUser(AIndex : Integer; AValue : boolean);
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdelegatedProjectNumber=AValue) then exit;
+ FdelegatedProjectNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdeleteAttribute(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FdeleteAttribute=AValue) then exit;
+ FdeleteAttribute:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdeleteProvider(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FdeleteProvider=AValue) then exit;
+ FdeleteProvider:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdisableUser(AIndex : Integer; const AValue : boolean);
begin
If (FdisableUser=AValue) then exit;
@@ -1494,7 +2286,7 @@ end;
-Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetemailVerified(AIndex : Integer; AValue : boolean);
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetemailVerified(AIndex : Integer; const AValue : boolean);
begin
If (FemailVerified=AValue) then exit;
@@ -1514,6 +2306,16 @@ end;
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetinstanceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceId=AValue) then exit;
+ FinstanceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetlocalId(AIndex : Integer; const AValue : String);
begin
@@ -1544,7 +2346,17 @@ end;
-Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.Setprovider(AIndex : Integer; AValue : TStringArray);
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetphotoUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphotoUrl=AValue) then exit;
+ FphotoUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.Setprovider(AIndex : Integer; const AValue : TStringArray);
begin
If (Fprovider=AValue) then exit;
@@ -1554,7 +2366,17 @@ end;
-Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetupgradeToFederatedLogin(AIndex : Integer; AValue : boolean);
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetreturnSecureToken(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FreturnSecureToken=AValue) then exit;
+ FreturnSecureToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetupgradeToFederatedLogin(AIndex : Integer; const AValue : boolean);
begin
If (FupgradeToFederatedLogin=AValue) then exit;
@@ -1579,6 +2401,8 @@ Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetArrayLength(Const
begin
Case AName of
+ 'deleteattribute' : SetLength(FdeleteAttribute,ALength);
+ 'deleteprovider' : SetLength(FdeleteProvider,ALength);
'provider' : SetLength(Fprovider,ALength);
else
Inherited SetArrayLength(AName,ALength);
@@ -1590,10 +2414,289 @@ end;
{ --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartySetProjectConfigRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetallowPasswordUser(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FallowPasswordUser=AValue) then exit;
+ FallowPasswordUser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetapiKey(AIndex : Integer; const AValue : String);
+
+begin
+ If (FapiKey=AValue) then exit;
+ FapiKey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetauthorizedDomains(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FauthorizedDomains=AValue) then exit;
+ FauthorizedDomains:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetchangeEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate);
+
+begin
+ If (FchangeEmailTemplate=AValue) then exit;
+ FchangeEmailTemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdelegatedProjectNumber=AValue) then exit;
+ FdelegatedProjectNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetenableAnonymousUser(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FenableAnonymousUser=AValue) then exit;
+ FenableAnonymousUser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetidpConfig(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartySetProjectConfigRequestTypeidpConfigArray);
+
+begin
+ If (FidpConfig=AValue) then exit;
+ FidpConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetlegacyResetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate);
+
+begin
+ If (FlegacyResetPasswordTemplate=AValue) then exit;
+ FlegacyResetPasswordTemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetresetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate);
+
+begin
+ If (FresetPasswordTemplate=AValue) then exit;
+ FresetPasswordTemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetuseEmailSending(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FuseEmailSending=AValue) then exit;
+ FuseEmailSending:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetverifyEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate);
+
+begin
+ If (FverifyEmailTemplate=AValue) then exit;
+ FverifyEmailTemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'authorizeddomains' : SetLength(FauthorizedDomains,ALength);
+ 'idpconfig' : SetLength(FidpConfig,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartySetProjectConfigResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TIdentitytoolkitRelyingpartySetProjectConfigResponse.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartySignOutUserRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TIdentitytoolkitRelyingpartySignOutUserRequest.SetinstanceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceId=AValue) then exit;
+ FinstanceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySignOutUserRequest.SetlocalId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlocalId=AValue) then exit;
+ FlocalId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartySignOutUserResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TIdentitytoolkitRelyingpartySignOutUserResponse.SetlocalId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlocalId=AValue) then exit;
+ FlocalId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartySignupNewUserRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.SetcaptchaChallenge(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcaptchaChallenge=AValue) then exit;
+ FcaptchaChallenge:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.SetcaptchaResponse(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcaptchaResponse=AValue) then exit;
+ FcaptchaResponse:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.Setemail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Femail=AValue) then exit;
+ Femail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.SetidToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FidToken=AValue) then exit;
+ FidToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.SetinstanceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceId=AValue) then exit;
+ FinstanceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.Setpassword(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fpassword=AValue) then exit;
+ Fpassword:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TIdentitytoolkitRelyingpartyUploadAccountRequest
--------------------------------------------------------------------}
+Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdelegatedProjectNumber=AValue) then exit;
+ FdelegatedProjectNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.SethashAlgorithm(AIndex : Integer; const AValue : String);
begin
@@ -1604,7 +2707,7 @@ end;
-Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.SetmemoryCost(AIndex : Integer; AValue : integer);
+Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.SetmemoryCost(AIndex : Integer; const AValue : integer);
begin
If (FmemoryCost=AValue) then exit;
@@ -1614,7 +2717,7 @@ end;
-Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.Setrounds(AIndex : Integer; AValue : integer);
+Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.Setrounds(AIndex : Integer; const AValue : integer);
begin
If (Frounds=AValue) then exit;
@@ -1644,7 +2747,7 @@ end;
-Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.Setusers(AIndex : Integer; AValue : TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray);
+Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.Setusers(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray);
begin
If (Fusers=AValue) then exit;
@@ -1674,6 +2777,36 @@ end;
--------------------------------------------------------------------}
+Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdelegatedProjectNumber=AValue) then exit;
+ FdelegatedProjectNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetidToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FidToken=AValue) then exit;
+ FidToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetinstanceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceId=AValue) then exit;
+ FinstanceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetpendingIdToken(AIndex : Integer; const AValue : String);
begin
@@ -1704,7 +2837,7 @@ end;
-Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetreturnRefreshToken(AIndex : Integer; AValue : boolean);
+Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetreturnRefreshToken(AIndex : Integer; const AValue : boolean);
begin
If (FreturnRefreshToken=AValue) then exit;
@@ -1714,6 +2847,73 @@ end;
+Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetreturnSecureToken(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FreturnSecureToken=AValue) then exit;
+ FreturnSecureToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetsessionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsessionId=AValue) then exit;
+ FsessionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdelegatedProjectNumber=AValue) then exit;
+ FdelegatedProjectNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest.SetinstanceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceId=AValue) then exit;
+ FinstanceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest.SetreturnSecureToken(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FreturnSecureToken=AValue) then exit;
+ FreturnSecureToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest.Settoken(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftoken=AValue) then exit;
+ Ftoken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -1741,6 +2941,16 @@ end;
+Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdelegatedProjectNumber=AValue) then exit;
+ FdelegatedProjectNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.Setemail(AIndex : Integer; const AValue : String);
begin
@@ -1751,6 +2961,26 @@ end;
+Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.SetidToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FidToken=AValue) then exit;
+ FidToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.SetinstanceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceId=AValue) then exit;
+ FinstanceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.Setpassword(AIndex : Integer; const AValue : String);
begin
@@ -1771,6 +3001,73 @@ end;
+Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.SetreturnSecureToken(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FreturnSecureToken=AValue) then exit;
+ FreturnSecureToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TIdpConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TIdpConfig.SetclientId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclientId=AValue) then exit;
+ FclientId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdpConfig.Setenabled(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fenabled=AValue) then exit;
+ Fenabled:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdpConfig.SetexperimentPercent(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FexperimentPercent=AValue) then exit;
+ FexperimentPercent:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdpConfig.Setprovider(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fprovider=AValue) then exit;
+ Fprovider:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TIdpConfig.Setsecret(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsecret=AValue) then exit;
+ Fsecret:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -1902,6 +3199,16 @@ end;
+Procedure TSetAccountInfoResponseTypeproviderUserInfoItem.SetfederatedId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfederatedId=AValue) then exit;
+ FfederatedId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TSetAccountInfoResponseTypeproviderUserInfoItem.SetphotoUrl(AIndex : Integer; const AValue : String);
begin
@@ -1949,6 +3256,16 @@ end;
+Procedure TSetAccountInfoResponse.SetexpiresIn(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexpiresIn=AValue) then exit;
+ FexpiresIn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TSetAccountInfoResponse.SetidToken(AIndex : Integer; const AValue : String);
begin
@@ -1969,7 +3286,47 @@ end;
-Procedure TSetAccountInfoResponse.SetproviderUserInfo(AIndex : Integer; AValue : TSetAccountInfoResponseTypeproviderUserInfoArray);
+Procedure TSetAccountInfoResponse.SetlocalId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlocalId=AValue) then exit;
+ FlocalId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSetAccountInfoResponse.SetnewEmail(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnewEmail=AValue) then exit;
+ FnewEmail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSetAccountInfoResponse.SetpasswordHash(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpasswordHash=AValue) then exit;
+ FpasswordHash:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSetAccountInfoResponse.SetphotoUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphotoUrl=AValue) then exit;
+ FphotoUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSetAccountInfoResponse.SetproviderUserInfo(AIndex : Integer; const AValue : TSetAccountInfoResponseTypeproviderUserInfoArray);
begin
If (FproviderUserInfo=AValue) then exit;
@@ -1978,6 +3335,16 @@ begin
end;
+
+Procedure TSetAccountInfoResponse.SetrefreshToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrefreshToken=AValue) then exit;
+ FrefreshToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSetAccountInfoResponse.SetArrayLength(Const AName : String; ALength : Longint);
@@ -1995,11 +3362,88 @@ end;
{ --------------------------------------------------------------------
+ TSignupNewUserResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSignupNewUserResponse.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSignupNewUserResponse.Setemail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Femail=AValue) then exit;
+ Femail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSignupNewUserResponse.SetexpiresIn(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexpiresIn=AValue) then exit;
+ FexpiresIn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSignupNewUserResponse.SetidToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FidToken=AValue) then exit;
+ FidToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSignupNewUserResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSignupNewUserResponse.SetlocalId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlocalId=AValue) then exit;
+ FlocalId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSignupNewUserResponse.SetrefreshToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrefreshToken=AValue) then exit;
+ FrefreshToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TUploadAccountResponseTypeerrorItem
--------------------------------------------------------------------}
-Procedure TUploadAccountResponseTypeerrorItem.Setindex(AIndex : Integer; AValue : integer);
+Procedure TUploadAccountResponseTypeerrorItem.Setindex(AIndex : Integer; const AValue : integer);
begin
If (Findex=AValue) then exit;
@@ -2026,7 +3470,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUploadAccountResponse.Seterror(AIndex : Integer; AValue : TUploadAccountResponseTypeerrorArray);
+Procedure TUploadAccountResponse.Seterror(AIndex : Integer; const AValue : TUploadAccountResponseTypeerrorArray);
begin
If (Ferror=AValue) then exit;
@@ -2076,6 +3520,16 @@ end;
+Procedure TUserInfoTypeproviderUserInfoItem.Setemail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Femail=AValue) then exit;
+ Femail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TUserInfoTypeproviderUserInfoItem.SetfederatedId(AIndex : Integer; const AValue : String);
begin
@@ -2106,6 +3560,16 @@ end;
+Procedure TUserInfoTypeproviderUserInfoItem.SetrawId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrawId=AValue) then exit;
+ FrawId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -2113,7 +3577,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUserInfo.Setdisabled(AIndex : Integer; AValue : boolean);
+Procedure TUserInfo.Setdisabled(AIndex : Integer; const AValue : boolean);
begin
If (Fdisabled=AValue) then exit;
@@ -2143,7 +3607,7 @@ end;
-Procedure TUserInfo.SetemailVerified(AIndex : Integer; AValue : boolean);
+Procedure TUserInfo.SetemailVerified(AIndex : Integer; const AValue : boolean);
begin
If (FemailVerified=AValue) then exit;
@@ -2173,7 +3637,7 @@ end;
-Procedure TUserInfo.SetpasswordUpdatedAt(AIndex : Integer; AValue : double);
+Procedure TUserInfo.SetpasswordUpdatedAt(AIndex : Integer; const AValue : double);
begin
If (FpasswordUpdatedAt=AValue) then exit;
@@ -2193,7 +3657,7 @@ end;
-Procedure TUserInfo.SetproviderUserInfo(AIndex : Integer; AValue : TUserInfoTypeproviderUserInfoArray);
+Procedure TUserInfo.SetproviderUserInfo(AIndex : Integer; const AValue : TUserInfoTypeproviderUserInfoArray);
begin
If (FproviderUserInfo=AValue) then exit;
@@ -2223,7 +3687,7 @@ end;
-Procedure TUserInfo.Setversion(AIndex : Integer; AValue : integer);
+Procedure TUserInfo.Setversion(AIndex : Integer; const AValue : integer);
begin
If (Fversion=AValue) then exit;
@@ -2323,7 +3787,7 @@ end;
-Procedure TVerifyAssertionResponse.SetemailRecycled(AIndex : Integer; AValue : boolean);
+Procedure TVerifyAssertionResponse.SetemailRecycled(AIndex : Integer; const AValue : boolean);
begin
If (FemailRecycled=AValue) then exit;
@@ -2333,7 +3797,7 @@ end;
-Procedure TVerifyAssertionResponse.SetemailVerified(AIndex : Integer; AValue : boolean);
+Procedure TVerifyAssertionResponse.SetemailVerified(AIndex : Integer; const AValue : boolean);
begin
If (FemailVerified=AValue) then exit;
@@ -2343,6 +3807,16 @@ end;
+Procedure TVerifyAssertionResponse.SetexpiresIn(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexpiresIn=AValue) then exit;
+ FexpiresIn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TVerifyAssertionResponse.SetfederatedId(AIndex : Integer; const AValue : String);
begin
@@ -2433,7 +3907,7 @@ end;
-Procedure TVerifyAssertionResponse.SetneedConfirmation(AIndex : Integer; AValue : boolean);
+Procedure TVerifyAssertionResponse.SetneedConfirmation(AIndex : Integer; const AValue : boolean);
begin
If (FneedConfirmation=AValue) then exit;
@@ -2443,6 +3917,16 @@ end;
+Procedure TVerifyAssertionResponse.SetneedEmail(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FneedEmail=AValue) then exit;
+ FneedEmail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TVerifyAssertionResponse.SetnickName(AIndex : Integer; const AValue : String);
begin
@@ -2473,7 +3957,7 @@ end;
-Procedure TVerifyAssertionResponse.SetoauthExpireIn(AIndex : Integer; AValue : integer);
+Procedure TVerifyAssertionResponse.SetoauthExpireIn(AIndex : Integer; const AValue : integer);
begin
If (FoauthExpireIn=AValue) then exit;
@@ -2483,6 +3967,16 @@ end;
+Procedure TVerifyAssertionResponse.SetoauthIdToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoauthIdToken=AValue) then exit;
+ FoauthIdToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TVerifyAssertionResponse.SetoauthRequestToken(AIndex : Integer; const AValue : String);
begin
@@ -2503,6 +3997,16 @@ end;
+Procedure TVerifyAssertionResponse.SetoauthTokenSecret(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoauthTokenSecret=AValue) then exit;
+ FoauthTokenSecret:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TVerifyAssertionResponse.SetoriginalEmail(AIndex : Integer; const AValue : String);
begin
@@ -2533,6 +4037,16 @@ end;
+Procedure TVerifyAssertionResponse.SetrefreshToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrefreshToken=AValue) then exit;
+ FrefreshToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TVerifyAssertionResponse.SettimeZone(AIndex : Integer; const AValue : String);
begin
@@ -2543,7 +4057,7 @@ end;
-Procedure TVerifyAssertionResponse.SetverifiedProvider(AIndex : Integer; AValue : TStringArray);
+Procedure TVerifyAssertionResponse.SetverifiedProvider(AIndex : Integer; const AValue : TStringArray);
begin
If (FverifiedProvider=AValue) then exit;
@@ -2569,6 +4083,53 @@ end;
{ --------------------------------------------------------------------
+ TVerifyCustomTokenResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TVerifyCustomTokenResponse.SetexpiresIn(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexpiresIn=AValue) then exit;
+ FexpiresIn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVerifyCustomTokenResponse.SetidToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FidToken=AValue) then exit;
+ FidToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVerifyCustomTokenResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVerifyCustomTokenResponse.SetrefreshToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrefreshToken=AValue) then exit;
+ FrefreshToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TVerifyPasswordResponse
--------------------------------------------------------------------}
@@ -2593,6 +4154,16 @@ end;
+Procedure TVerifyPasswordResponse.SetexpiresIn(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexpiresIn=AValue) then exit;
+ FexpiresIn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TVerifyPasswordResponse.SetidToken(AIndex : Integer; const AValue : String);
begin
@@ -2623,6 +4194,36 @@ end;
+Procedure TVerifyPasswordResponse.SetoauthAccessToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoauthAccessToken=AValue) then exit;
+ FoauthAccessToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVerifyPasswordResponse.SetoauthAuthorizationCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoauthAuthorizationCode=AValue) then exit;
+ FoauthAuthorizationCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVerifyPasswordResponse.SetoauthExpireIn(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FoauthExpireIn=AValue) then exit;
+ FoauthExpireIn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TVerifyPasswordResponse.SetphotoUrl(AIndex : Integer; const AValue : String);
begin
@@ -2633,7 +4234,17 @@ end;
-Procedure TVerifyPasswordResponse.Setregistered(AIndex : Integer; AValue : boolean);
+Procedure TVerifyPasswordResponse.SetrefreshToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrefreshToken=AValue) then exit;
+ FrefreshToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVerifyPasswordResponse.Setregistered(AIndex : Integer; const AValue : boolean);
begin
If (Fregistered=AValue) then exit;
@@ -2717,6 +4328,30 @@ begin
Result:=ServiceCall(_HTTPMethod,_Path,'',aRelyingparty,TGetOobConfirmationCodeResponse) as TGetOobConfirmationCodeResponse;
end;
+Function TRelyingpartyResource.GetProjectConfig(AQuery : string = '') : TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'getProjectConfig';
+ _Methodid = 'identitytoolkit.relyingparty.getProjectConfig';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TIdentitytoolkitRelyingpartyGetProjectConfigResponse) as TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
+end;
+
+
+Function TRelyingpartyResource.GetProjectConfig(AQuery : TRelyingpartygetProjectConfigOptions) : TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'delegatedProjectNumber',AQuery.delegatedProjectNumber);
+ AddToQuery(_Q,'projectNumber',AQuery.projectNumber);
+ Result:=GetProjectConfig(_Q);
+end;
+
Function TRelyingpartyResource.GetPublicKeys : TIdentitytoolkitRelyingpartyGetPublicKeysResponse;
Const
@@ -2761,6 +4396,39 @@ begin
Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartySetAccountInfoRequest,TSetAccountInfoResponse) as TSetAccountInfoResponse;
end;
+Function TRelyingpartyResource.SetProjectConfig(aIdentitytoolkitRelyingpartySetProjectConfigRequest : TIdentitytoolkitRelyingpartySetProjectConfigRequest) : TIdentitytoolkitRelyingpartySetProjectConfigResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'setProjectConfig';
+ _Methodid = 'identitytoolkit.relyingparty.setProjectConfig';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartySetProjectConfigRequest,TIdentitytoolkitRelyingpartySetProjectConfigResponse) as TIdentitytoolkitRelyingpartySetProjectConfigResponse;
+end;
+
+Function TRelyingpartyResource.SignOutUser(aIdentitytoolkitRelyingpartySignOutUserRequest : TIdentitytoolkitRelyingpartySignOutUserRequest) : TIdentitytoolkitRelyingpartySignOutUserResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'signOutUser';
+ _Methodid = 'identitytoolkit.relyingparty.signOutUser';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartySignOutUserRequest,TIdentitytoolkitRelyingpartySignOutUserResponse) as TIdentitytoolkitRelyingpartySignOutUserResponse;
+end;
+
+Function TRelyingpartyResource.SignupNewUser(aIdentitytoolkitRelyingpartySignupNewUserRequest : TIdentitytoolkitRelyingpartySignupNewUserRequest) : TSignupNewUserResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'signupNewUser';
+ _Methodid = 'identitytoolkit.relyingparty.signupNewUser';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartySignupNewUserRequest,TSignupNewUserResponse) as TSignupNewUserResponse;
+end;
+
Function TRelyingpartyResource.UploadAccount(aIdentitytoolkitRelyingpartyUploadAccountRequest : TIdentitytoolkitRelyingpartyUploadAccountRequest) : TUploadAccountResponse;
Const
@@ -2783,6 +4451,17 @@ begin
Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartyVerifyAssertionRequest,TVerifyAssertionResponse) as TVerifyAssertionResponse;
end;
+Function TRelyingpartyResource.VerifyCustomToken(aIdentitytoolkitRelyingpartyVerifyCustomTokenRequest : TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest) : TVerifyCustomTokenResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'verifyCustomToken';
+ _Methodid = 'identitytoolkit.relyingparty.verifyCustomToken';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartyVerifyCustomTokenRequest,TVerifyCustomTokenResponse) as TVerifyCustomTokenResponse;
+end;
+
Function TRelyingpartyResource.VerifyPassword(aIdentitytoolkitRelyingpartyVerifyPasswordRequest : TIdentitytoolkitRelyingpartyVerifyPasswordRequest) : TVerifyPasswordResponse;
Const
@@ -2815,7 +4494,7 @@ end;
Class Function TIdentitytoolkitAPI.APIRevision : String;
begin
- Result:='20150513';
+ Result:='20160510';
end;
Class Function TIdentitytoolkitAPI.APIID : String;
@@ -2869,7 +4548,7 @@ end;
Class Function TIdentitytoolkitAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TIdentitytoolkitAPI.APIbasePath : string;
@@ -2881,7 +4560,7 @@ end;
Class Function TIdentitytoolkitAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/identitytoolkit/v3/relyingparty/';
+ Result:='https://www.googleapis.com/identitytoolkit/v3/relyingparty/';
end;
Class Function TIdentitytoolkitAPI.APIProtocol : string;
@@ -2921,6 +4600,7 @@ begin
TCreateAuthUriResponse.RegisterObject;
TDeleteAccountResponse.RegisterObject;
TDownloadAccountResponse.RegisterObject;
+ TEmailTemplate.RegisterObject;
TGetAccountInfoResponse.RegisterObject;
TGetOobConfirmationCodeResponse.RegisterObject;
TGetRecaptchaParamResponse.RegisterObject;
@@ -2928,21 +4608,31 @@ begin
TIdentitytoolkitRelyingpartyDeleteAccountRequest.RegisterObject;
TIdentitytoolkitRelyingpartyDownloadAccountRequest.RegisterObject;
TIdentitytoolkitRelyingpartyGetAccountInfoRequest.RegisterObject;
+ TIdentitytoolkitRelyingpartyGetProjectConfigResponse.RegisterObject;
TIdentitytoolkitRelyingpartyGetPublicKeysResponse.RegisterObject;
TIdentitytoolkitRelyingpartyResetPasswordRequest.RegisterObject;
TIdentitytoolkitRelyingpartySetAccountInfoRequest.RegisterObject;
+ TIdentitytoolkitRelyingpartySetProjectConfigRequest.RegisterObject;
+ TIdentitytoolkitRelyingpartySetProjectConfigResponse.RegisterObject;
+ TIdentitytoolkitRelyingpartySignOutUserRequest.RegisterObject;
+ TIdentitytoolkitRelyingpartySignOutUserResponse.RegisterObject;
+ TIdentitytoolkitRelyingpartySignupNewUserRequest.RegisterObject;
TIdentitytoolkitRelyingpartyUploadAccountRequest.RegisterObject;
TIdentitytoolkitRelyingpartyVerifyAssertionRequest.RegisterObject;
+ TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest.RegisterObject;
TIdentitytoolkitRelyingpartyVerifyPasswordRequest.RegisterObject;
+ TIdpConfig.RegisterObject;
TRelyingparty.RegisterObject;
TResetPasswordResponse.RegisterObject;
TSetAccountInfoResponseTypeproviderUserInfoItem.RegisterObject;
TSetAccountInfoResponse.RegisterObject;
+ TSignupNewUserResponse.RegisterObject;
TUploadAccountResponseTypeerrorItem.RegisterObject;
TUploadAccountResponse.RegisterObject;
TUserInfoTypeproviderUserInfoItem.RegisterObject;
TUserInfo.RegisterObject;
TVerifyAssertionResponse.RegisterObject;
+ TVerifyCustomTokenResponse.RegisterObject;
TVerifyPasswordResponse.RegisterObject;
end;
diff --git a/packages/googleapi/src/googlekgsearch.pp b/packages/googleapi/src/googlekgsearch.pp
new file mode 100644
index 0000000000..0ee39b5a65
--- /dev/null
+++ b/packages/googleapi/src/googlekgsearch.pp
@@ -0,0 +1,370 @@
+unit googlekgsearch;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TSearchResponse = Class;
+ TSearchResponseArray = Array of TSearchResponse;
+ //Anonymous types, using auto-generated names
+
+ { --------------------------------------------------------------------
+ TSearchResponse
+ --------------------------------------------------------------------}
+
+ TSearchResponse = Class(TGoogleBaseObject)
+ Private
+ Fcontext : TJSONSchema;
+ F_type : TJSONSchema;
+ FitemListElement : TTJSONSchemaArray;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setcontext(AIndex : Integer; const AValue : TJSONSchema); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : TJSONSchema); virtual;
+ Procedure SetitemListElement(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property context : TJSONSchema Index 0 Read Fcontext Write Setcontext;
+ Property _type : TJSONSchema Index 8 Read F_type Write Set_type;
+ Property itemListElement : TTJSONSchemaArray Index 16 Read FitemListElement Write SetitemListElement;
+ end;
+ TSearchResponseClass = Class of TSearchResponse;
+
+ { --------------------------------------------------------------------
+ TEntitiesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TEntitiesResource, method Search
+
+ TEntitiesSearchOptions = Record
+ query : String;
+ ids : String;
+ languages : String;
+ types : String;
+ indent : boolean;
+ prefix : boolean;
+ limit : integer;
+ end;
+
+ TEntitiesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Search(AQuery : string = '') : TSearchResponse;
+ Function Search(AQuery : TEntitiessearchOptions) : TSearchResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TKgsearchAPI
+ --------------------------------------------------------------------}
+
+ TKgsearchAPI = Class(TGoogleAPI)
+ Private
+ FEntitiesInstance : TEntitiesResource;
+ Function GetEntitiesInstance : TEntitiesResource;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 CreateEntitiesResource(AOwner : TComponent) : TEntitiesResource;virtual;overload;
+ Function CreateEntitiesResource : TEntitiesResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property EntitiesResource : TEntitiesResource Read GetEntitiesInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TSearchResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSearchResponse.Setcontext(AIndex : Integer; const AValue : TJSONSchema);
+
+begin
+ If (Fcontext=AValue) then exit;
+ Fcontext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSearchResponse.Set_type(AIndex : Integer; const AValue : TJSONSchema);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSearchResponse.SetitemListElement(AIndex : Integer; const AValue : TTJSONSchemaArray);
+
+begin
+ If (FitemListElement=AValue) then exit;
+ FitemListElement:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TSearchResponse.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 TSearchResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'itemlistelement' : SetLength(FitemListElement,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEntitiesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TEntitiesResource.ResourceName : String;
+
+begin
+ Result:='entities';
+end;
+
+Class Function TEntitiesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TkgsearchAPI;
+end;
+
+Function TEntitiesResource.Search(AQuery : string = '') : TSearchResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/entities:search';
+ _Methodid = 'kgsearch.entities.search';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSearchResponse) as TSearchResponse;
+end;
+
+
+Function TEntitiesResource.Search(AQuery : TEntitiessearchOptions) : TSearchResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'query',AQuery.query);
+ AddToQuery(_Q,'ids',AQuery.ids);
+ AddToQuery(_Q,'languages',AQuery.languages);
+ AddToQuery(_Q,'types',AQuery.types);
+ AddToQuery(_Q,'indent',AQuery.indent);
+ AddToQuery(_Q,'prefix',AQuery.prefix);
+ AddToQuery(_Q,'limit',AQuery.limit);
+ Result:=Search(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TKgsearchAPI
+ --------------------------------------------------------------------}
+
+Class Function TKgsearchAPI.APIName : String;
+
+begin
+ Result:='kgsearch';
+end;
+
+Class Function TKgsearchAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TKgsearchAPI.APIRevision : String;
+
+begin
+ Result:='20151215';
+end;
+
+Class Function TKgsearchAPI.APIID : String;
+
+begin
+ Result:='kgsearch:v1';
+end;
+
+Class Function TKgsearchAPI.APITitle : String;
+
+begin
+ Result:='Knowledge Graph Search API';
+end;
+
+Class Function TKgsearchAPI.APIDescription : String;
+
+begin
+ Result:='Knowledge Graph Search API allows developers to search the Google Knowledge Graph for entities.';
+end;
+
+Class Function TKgsearchAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TKgsearchAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TKgsearchAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TKgsearchAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TKgsearchAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/knowledge-graph/';
+end;
+
+Class Function TKgsearchAPI.APIrootUrl : string;
+
+begin
+ Result:='https://kgsearch.googleapis.com/';
+end;
+
+Class Function TKgsearchAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TKgsearchAPI.APIbaseURL : String;
+
+begin
+ Result:='https://kgsearch.googleapis.com/';
+end;
+
+Class Function TKgsearchAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TKgsearchAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TKgsearchAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TKgsearchAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,0);
+
+end;
+
+Class Function TKgsearchAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=False;
+end;
+
+Class Procedure TKgsearchAPI.RegisterAPIResources;
+
+begin
+ TSearchResponse.RegisterObject;
+end;
+
+
+Function TKgsearchAPI.GetEntitiesInstance : TEntitiesResource;
+
+begin
+ if (FEntitiesInstance=Nil) then
+ FEntitiesInstance:=CreateEntitiesResource;
+ Result:=FEntitiesInstance;
+end;
+
+Function TKgsearchAPI.CreateEntitiesResource : TEntitiesResource;
+
+begin
+ Result:=CreateEntitiesResource(Self);
+end;
+
+
+Function TKgsearchAPI.CreateEntitiesResource(AOwner : TComponent) : TEntitiesResource;
+
+begin
+ Result:=TEntitiesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TKgsearchAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlelicensing.pp b/packages/googleapi/src/googlelicensing.pp
index 8c60227d45..e35e063ee8 100644
--- a/packages/googleapi/src/googlelicensing.pp
+++ b/packages/googleapi/src/googlelicensing.pp
@@ -1,19 +1,4 @@
unit googlelicensing;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:05
{$MODE objfpc}
{$H+}
@@ -93,7 +78,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TLicenseAssignmentListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TLicenseAssignmentListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -286,7 +271,7 @@ end;
-Procedure TLicenseAssignmentList.Setitems(AIndex : Integer; AValue : TLicenseAssignmentListTypeitemsArray);
+Procedure TLicenseAssignmentList.Setitems(AIndex : Integer; const AValue : TLicenseAssignmentListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -502,7 +487,7 @@ end;
Class Function TLicensingAPI.APIRevision : String;
begin
- Result:='20140122';
+ Result:='20150901';
end;
Class Function TLicensingAPI.APIID : String;
@@ -556,7 +541,7 @@ end;
Class Function TLicensingAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TLicensingAPI.APIbasePath : string;
@@ -568,7 +553,7 @@ end;
Class Function TLicensingAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/apps/licensing/v1/product/';
+ Result:='https://www.googleapis.com/apps/licensing/v1/product/';
end;
Class Function TLicensingAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlelogging.pp b/packages/googleapi/src/googlelogging.pp
index b098f172f9..4b3c36cc48 100644
--- a/packages/googleapi/src/googlelogging.pp
+++ b/packages/googleapi/src/googlelogging.pp
@@ -1,19 +1,4 @@
unit googlelogging;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:05
{$MODE objfpc}
{$H+}
@@ -24,113 +9,130 @@ uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
- TListLogsResponse = Class;
- TLog = Class;
TEmpty = Class;
TWriteLogEntriesRequest = Class;
+ TMonitoredResource = Class;
TLogEntry = Class;
- TLogEntryMetadata = Class;
+ THttpRequest = Class;
+ TLogEntryOperation = Class;
TWriteLogEntriesResponse = Class;
- TListLogServicesResponse = Class;
- TLogService = Class;
- TListLogServiceIndexesResponse = Class;
- TListLogSinksResponse = Class;
- TLogSink = Class;
- TLogError = Class;
+ TListLogEntriesRequest = Class;
+ TListLogEntriesResponse = Class;
TStatus = Class;
- TListLogServiceSinksResponse = Class;
- TListLogsResponseArray = Array of TListLogsResponse;
- TLogArray = Array of TLog;
+ TListMonitoredResourceDescriptorsResponse = Class;
+ TMonitoredResourceDescriptor = Class;
+ TLabelDescriptor = Class;
+ TListSinksResponse = Class;
+ TLogSink = Class;
+ TListLogMetricsResponse = Class;
+ TLogMetric = Class;
+ TRequestLog = Class;
+ TLogLine = Class;
+ TSourceLocation = Class;
+ TSourceReference = Class;
TEmptyArray = Array of TEmpty;
TWriteLogEntriesRequestArray = Array of TWriteLogEntriesRequest;
+ TMonitoredResourceArray = Array of TMonitoredResource;
TLogEntryArray = Array of TLogEntry;
- TLogEntryMetadataArray = Array of TLogEntryMetadata;
+ THttpRequestArray = Array of THttpRequest;
+ TLogEntryOperationArray = Array of TLogEntryOperation;
TWriteLogEntriesResponseArray = Array of TWriteLogEntriesResponse;
- TListLogServicesResponseArray = Array of TListLogServicesResponse;
- TLogServiceArray = Array of TLogService;
- TListLogServiceIndexesResponseArray = Array of TListLogServiceIndexesResponse;
- TListLogSinksResponseArray = Array of TListLogSinksResponse;
- TLogSinkArray = Array of TLogSink;
- TLogErrorArray = Array of TLogError;
+ TListLogEntriesRequestArray = Array of TListLogEntriesRequest;
+ TListLogEntriesResponseArray = Array of TListLogEntriesResponse;
TStatusArray = Array of TStatus;
- TListLogServiceSinksResponseArray = Array of TListLogServiceSinksResponse;
+ TListMonitoredResourceDescriptorsResponseArray = Array of TListMonitoredResourceDescriptorsResponse;
+ TMonitoredResourceDescriptorArray = Array of TMonitoredResourceDescriptor;
+ TLabelDescriptorArray = Array of TLabelDescriptor;
+ TListSinksResponseArray = Array of TListSinksResponse;
+ TLogSinkArray = Array of TLogSink;
+ TListLogMetricsResponseArray = Array of TListLogMetricsResponse;
+ TLogMetricArray = Array of TLogMetric;
+ TRequestLogArray = Array of TRequestLog;
+ TLogLineArray = Array of TLogLine;
+ TSourceLocationArray = Array of TSourceLocation;
+ TSourceReferenceArray = Array of TSourceReference;
//Anonymous types, using auto-generated names
- TWriteLogEntriesRequestTypecommonLabels = Class;
+ TWriteLogEntriesRequestTypelabels = Class;
+ TMonitoredResourceTypelabels = Class;
TLogEntryTypeprotoPayload = Class;
- TLogEntryTypestructPayload = Class;
- TLogEntryMetadataTypelabels = Class;
+ TLogEntryTypejsonPayload = Class;
+ TLogEntryTypelabels = Class;
+ TListLogEntriesResponseTypeprojectIdErrors = Class;
TStatusTypedetailsItem = Class;
- TListLogsResponseTypelogsArray = Array of TLog;
TWriteLogEntriesRequestTypeentriesArray = Array of TLogEntry;
- TListLogServicesResponseTypelogServicesArray = Array of TLogService;
- TListLogSinksResponseTypesinksArray = Array of TLogSink;
- TLogSinkTypeerrorsArray = Array of TLogError;
+ TListLogEntriesResponseTypeentriesArray = Array of TLogEntry;
TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
- TListLogServiceSinksResponseTypesinksArray = Array of TLogSink;
+ TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray = Array of TMonitoredResourceDescriptor;
+ TMonitoredResourceDescriptorTypelabelsArray = Array of TLabelDescriptor;
+ TListSinksResponseTypesinksArray = Array of TLogSink;
+ TListLogMetricsResponseTypemetricsArray = Array of TLogMetric;
+ TRequestLogTypelineArray = Array of TLogLine;
+ TRequestLogTypesourceReferenceArray = Array of TSourceReference;
{ --------------------------------------------------------------------
- TListLogsResponse
+ TEmpty
--------------------------------------------------------------------}
- TListLogsResponse = Class(TGoogleBaseObject)
+ TEmpty = Class(TGoogleBaseObject)
Private
- Flogs : TListLogsResponseTypelogsArray;
- FnextPageToken : String;
Protected
//Property setters
- Procedure Setlogs(AIndex : Integer; AValue : TListLogsResponseTypelogsArray); 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 logs : TListLogsResponseTypelogsArray Index 0 Read Flogs Write Setlogs;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TListLogsResponseClass = Class of TListLogsResponse;
+ TEmptyClass = Class of TEmpty;
{ --------------------------------------------------------------------
- TLog
+ TWriteLogEntriesRequestTypelabels
--------------------------------------------------------------------}
- TLog = Class(TGoogleBaseObject)
+ TWriteLogEntriesRequestTypelabels = Class(TGoogleBaseObject)
Private
- Fname : String;
- FdisplayName : String;
- FpayloadType : String;
Protected
//Property setters
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpayloadType(AIndex : Integer; const AValue : String); virtual;
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property name : String Index 0 Read Fname Write Setname;
- Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
- Property payloadType : String Index 16 Read FpayloadType Write SetpayloadType;
end;
- TLogClass = Class of TLog;
+ TWriteLogEntriesRequestTypelabelsClass = Class of TWriteLogEntriesRequestTypelabels;
{ --------------------------------------------------------------------
- TEmpty
+ TWriteLogEntriesRequest
--------------------------------------------------------------------}
- TEmpty = Class(TGoogleBaseObject)
+ TWriteLogEntriesRequest = Class(TGoogleBaseObject)
Private
+ FlogName : String;
+ Fresource : TMonitoredResource;
+ Flabels : TWriteLogEntriesRequestTypelabels;
+ Fentries : TWriteLogEntriesRequestTypeentriesArray;
+ FpartialSuccess : boolean;
Protected
//Property setters
+ Procedure SetlogName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setresource(AIndex : Integer; const AValue : TMonitoredResource); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TWriteLogEntriesRequestTypelabels); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TWriteLogEntriesRequestTypeentriesArray); virtual;
+ Procedure SetpartialSuccess(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 logName : String Index 0 Read FlogName Write SetlogName;
+ Property resource : TMonitoredResource Index 8 Read Fresource Write Setresource;
+ Property labels : TWriteLogEntriesRequestTypelabels Index 16 Read Flabels Write Setlabels;
+ Property entries : TWriteLogEntriesRequestTypeentriesArray Index 24 Read Fentries Write Setentries;
+ Property partialSuccess : boolean Index 32 Read FpartialSuccess Write SetpartialSuccess;
end;
- TEmptyClass = Class of TEmpty;
+ TWriteLogEntriesRequestClass = Class of TWriteLogEntriesRequest;
{ --------------------------------------------------------------------
- TWriteLogEntriesRequestTypecommonLabels
+ TMonitoredResourceTypelabels
--------------------------------------------------------------------}
- TWriteLogEntriesRequestTypecommonLabels = Class(TGoogleBaseObject)
+ TMonitoredResourceTypelabels = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -138,30 +140,27 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TWriteLogEntriesRequestTypecommonLabelsClass = Class of TWriteLogEntriesRequestTypecommonLabels;
+ TMonitoredResourceTypelabelsClass = Class of TMonitoredResourceTypelabels;
{ --------------------------------------------------------------------
- TWriteLogEntriesRequest
+ TMonitoredResource
--------------------------------------------------------------------}
- TWriteLogEntriesRequest = Class(TGoogleBaseObject)
+ TMonitoredResource = Class(TGoogleBaseObject)
Private
- FcommonLabels : TWriteLogEntriesRequestTypecommonLabels;
- Fentries : TWriteLogEntriesRequestTypeentriesArray;
+ F_type : String;
+ Flabels : TMonitoredResourceTypelabels;
Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetcommonLabels(AIndex : Integer; AValue : TWriteLogEntriesRequestTypecommonLabels); virtual;
- Procedure Setentries(AIndex : Integer; AValue : TWriteLogEntriesRequestTypeentriesArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TMonitoredResourceTypelabels); virtual;
Public
Published
- Property commonLabels : TWriteLogEntriesRequestTypecommonLabels Index 0 Read FcommonLabels Write SetcommonLabels;
- Property entries : TWriteLogEntriesRequestTypeentriesArray Index 8 Read Fentries Write Setentries;
+ Property _type : String Index 0 Read F_type Write Set_type;
+ Property labels : TMonitoredResourceTypelabels Index 8 Read Flabels Write Setlabels;
end;
- TWriteLogEntriesRequestClass = Class of TWriteLogEntriesRequest;
+ TMonitoredResourceClass = Class of TMonitoredResource;
{ --------------------------------------------------------------------
TLogEntryTypeprotoPayload
@@ -178,10 +177,24 @@ type
TLogEntryTypeprotoPayloadClass = Class of TLogEntryTypeprotoPayload;
{ --------------------------------------------------------------------
- TLogEntryTypestructPayload
+ TLogEntryTypejsonPayload
+ --------------------------------------------------------------------}
+
+ TLogEntryTypejsonPayload = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TLogEntryTypejsonPayloadClass = Class of TLogEntryTypejsonPayload;
+
+ { --------------------------------------------------------------------
+ TLogEntryTypelabels
--------------------------------------------------------------------}
- TLogEntryTypestructPayload = Class(TGoogleBaseObject)
+ TLogEntryTypelabels = Class(TGoogleBaseObject)
Private
Protected
//Property setters
@@ -189,7 +202,7 @@ type
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
- TLogEntryTypestructPayloadClass = Class of TLogEntryTypestructPayload;
+ TLogEntryTypelabelsClass = Class of TLogEntryTypelabels;
{ --------------------------------------------------------------------
TLogEntry
@@ -197,81 +210,119 @@ type
TLogEntry = Class(TGoogleBaseObject)
Private
- Fmetadata : TLogEntryMetadata;
+ FlogName : String;
+ Fresource : TMonitoredResource;
FprotoPayload : TLogEntryTypeprotoPayload;
FtextPayload : String;
- FstructPayload : TLogEntryTypestructPayload;
+ FjsonPayload : TLogEntryTypejsonPayload;
+ Ftimestamp : String;
+ Fseverity : String;
FinsertId : String;
- Flog : String;
+ FhttpRequest : THttpRequest;
+ Flabels : TLogEntryTypelabels;
+ Foperation : TLogEntryOperation;
Protected
//Property setters
- Procedure Setmetadata(AIndex : Integer; AValue : TLogEntryMetadata); virtual;
- Procedure SetprotoPayload(AIndex : Integer; AValue : TLogEntryTypeprotoPayload); virtual;
+ Procedure SetlogName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setresource(AIndex : Integer; const AValue : TMonitoredResource); virtual;
+ Procedure SetprotoPayload(AIndex : Integer; const AValue : TLogEntryTypeprotoPayload); virtual;
Procedure SettextPayload(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstructPayload(AIndex : Integer; AValue : TLogEntryTypestructPayload); virtual;
+ Procedure SetjsonPayload(AIndex : Integer; const AValue : TLogEntryTypejsonPayload); virtual;
+ Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setseverity(AIndex : Integer; const AValue : String); virtual;
Procedure SetinsertId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlog(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethttpRequest(AIndex : Integer; const AValue : THttpRequest); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TLogEntryTypelabels); virtual;
+ Procedure Setoperation(AIndex : Integer; const AValue : TLogEntryOperation); virtual;
Public
Published
- Property metadata : TLogEntryMetadata Index 0 Read Fmetadata Write Setmetadata;
- Property protoPayload : TLogEntryTypeprotoPayload Index 8 Read FprotoPayload Write SetprotoPayload;
- Property textPayload : String Index 16 Read FtextPayload Write SettextPayload;
- Property structPayload : TLogEntryTypestructPayload Index 24 Read FstructPayload Write SetstructPayload;
- Property insertId : String Index 32 Read FinsertId Write SetinsertId;
- Property log : String Index 40 Read Flog Write Setlog;
+ Property logName : String Index 0 Read FlogName Write SetlogName;
+ Property resource : TMonitoredResource Index 8 Read Fresource Write Setresource;
+ Property protoPayload : TLogEntryTypeprotoPayload Index 16 Read FprotoPayload Write SetprotoPayload;
+ Property textPayload : String Index 24 Read FtextPayload Write SettextPayload;
+ Property jsonPayload : TLogEntryTypejsonPayload Index 32 Read FjsonPayload Write SetjsonPayload;
+ Property timestamp : String Index 40 Read Ftimestamp Write Settimestamp;
+ Property severity : String Index 48 Read Fseverity Write Setseverity;
+ Property insertId : String Index 56 Read FinsertId Write SetinsertId;
+ Property httpRequest : THttpRequest Index 64 Read FhttpRequest Write SethttpRequest;
+ Property labels : TLogEntryTypelabels Index 72 Read Flabels Write Setlabels;
+ Property operation : TLogEntryOperation Index 80 Read Foperation Write Setoperation;
end;
TLogEntryClass = Class of TLogEntry;
{ --------------------------------------------------------------------
- TLogEntryMetadataTypelabels
+ THttpRequest
--------------------------------------------------------------------}
- TLogEntryMetadataTypelabels = Class(TGoogleBaseObject)
+ THttpRequest = Class(TGoogleBaseObject)
Private
+ FrequestMethod : String;
+ FrequestUrl : String;
+ FrequestSize : String;
+ Fstatus : integer;
+ FresponseSize : String;
+ FuserAgent : String;
+ FremoteIp : String;
+ Freferer : String;
+ FcacheLookup : boolean;
+ FcacheHit : boolean;
+ FcacheValidatedWithOriginServer : boolean;
+ FcacheFillBytes : String;
Protected
//Property setters
+ Procedure SetrequestMethod(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrequestUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrequestSize(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetresponseSize(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserAgent(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetremoteIp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setreferer(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcacheLookup(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcacheHit(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcacheValidatedWithOriginServer(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcacheFillBytes(AIndex : Integer; const AValue : String); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property requestMethod : String Index 0 Read FrequestMethod Write SetrequestMethod;
+ Property requestUrl : String Index 8 Read FrequestUrl Write SetrequestUrl;
+ Property requestSize : String Index 16 Read FrequestSize Write SetrequestSize;
+ Property status : integer Index 24 Read Fstatus Write Setstatus;
+ Property responseSize : String Index 32 Read FresponseSize Write SetresponseSize;
+ Property userAgent : String Index 40 Read FuserAgent Write SetuserAgent;
+ Property remoteIp : String Index 48 Read FremoteIp Write SetremoteIp;
+ Property referer : String Index 56 Read Freferer Write Setreferer;
+ Property cacheLookup : boolean Index 64 Read FcacheLookup Write SetcacheLookup;
+ Property cacheHit : boolean Index 72 Read FcacheHit Write SetcacheHit;
+ Property cacheValidatedWithOriginServer : boolean Index 80 Read FcacheValidatedWithOriginServer Write SetcacheValidatedWithOriginServer;
+ Property cacheFillBytes : String Index 88 Read FcacheFillBytes Write SetcacheFillBytes;
end;
- TLogEntryMetadataTypelabelsClass = Class of TLogEntryMetadataTypelabels;
+ THttpRequestClass = Class of THttpRequest;
{ --------------------------------------------------------------------
- TLogEntryMetadata
+ TLogEntryOperation
--------------------------------------------------------------------}
- TLogEntryMetadata = Class(TGoogleBaseObject)
+ TLogEntryOperation = Class(TGoogleBaseObject)
Private
- Ftimestamp : String;
- Fseverity : String;
- FprojectId : String;
- FserviceName : String;
- Fregion : String;
- Fzone : String;
- FuserId : String;
- Flabels : TLogEntryMetadataTypelabels;
+ Fid : String;
+ Fproducer : String;
+ Ffirst : boolean;
+ Flast : boolean;
Protected
//Property setters
- Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
- Procedure Setseverity(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetserviceName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
- Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlabels(AIndex : Integer; AValue : TLogEntryMetadataTypelabels); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setproducer(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfirst(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setlast(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
- Property timestamp : String Index 0 Read Ftimestamp Write Settimestamp;
- Property severity : String Index 8 Read Fseverity Write Setseverity;
- Property projectId : String Index 16 Read FprojectId Write SetprojectId;
- Property serviceName : String Index 24 Read FserviceName Write SetserviceName;
- Property region : String Index 32 Read Fregion Write Setregion;
- Property zone : String Index 40 Read Fzone Write Setzone;
- Property userId : String Index 48 Read FuserId Write SetuserId;
- Property labels : TLogEntryMetadataTypelabels Index 56 Read Flabels Write Setlabels;
+ Property id : String Index 0 Read Fid Write Setid;
+ Property producer : String Index 8 Read Fproducer Write Setproducer;
+ Property first : boolean Index 16 Read Ffirst Write Setfirst;
+ Property last : boolean Index 24 Read Flast Write Setlast;
end;
- TLogEntryMetadataClass = Class of TLogEntryMetadata;
+ TLogEntryOperationClass = Class of TLogEntryOperation;
{ --------------------------------------------------------------------
TWriteLogEntriesResponse
@@ -287,62 +338,131 @@ type
TWriteLogEntriesResponseClass = Class of TWriteLogEntriesResponse;
{ --------------------------------------------------------------------
- TListLogServicesResponse
+ TListLogEntriesRequest
--------------------------------------------------------------------}
- TListLogServicesResponse = Class(TGoogleBaseObject)
+ TListLogEntriesRequest = Class(TGoogleBaseObject)
Private
- FlogServices : TListLogServicesResponseTypelogServicesArray;
+ FprojectIds : TStringArray;
+ Ffilter : String;
+ ForderBy : String;
+ FpageSize : integer;
+ FpageToken : String;
+ FpartialSuccess : boolean;
+ Protected
+ //Property setters
+ Procedure SetprojectIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setfilter(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetorderBy(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageSize(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpartialSuccess(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 projectIds : TStringArray Index 0 Read FprojectIds Write SetprojectIds;
+ Property filter : String Index 8 Read Ffilter Write Setfilter;
+ Property orderBy : String Index 16 Read ForderBy Write SetorderBy;
+ Property pageSize : integer Index 24 Read FpageSize Write SetpageSize;
+ Property pageToken : String Index 32 Read FpageToken Write SetpageToken;
+ Property partialSuccess : boolean Index 40 Read FpartialSuccess Write SetpartialSuccess;
+ end;
+ TListLogEntriesRequestClass = Class of TListLogEntriesRequest;
+
+ { --------------------------------------------------------------------
+ TListLogEntriesResponseTypeprojectIdErrors
+ --------------------------------------------------------------------}
+
+ TListLogEntriesResponseTypeprojectIdErrors = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TListLogEntriesResponseTypeprojectIdErrorsClass = Class of TListLogEntriesResponseTypeprojectIdErrors;
+
+ { --------------------------------------------------------------------
+ TListLogEntriesResponse
+ --------------------------------------------------------------------}
+
+ TListLogEntriesResponse = Class(TGoogleBaseObject)
+ Private
+ Fentries : TListLogEntriesResponseTypeentriesArray;
FnextPageToken : String;
+ FprojectIdErrors : TListLogEntriesResponseTypeprojectIdErrors;
Protected
//Property setters
- Procedure SetlogServices(AIndex : Integer; AValue : TListLogServicesResponseTypelogServicesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TListLogEntriesResponseTypeentriesArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprojectIdErrors(AIndex : Integer; const AValue : TListLogEntriesResponseTypeprojectIdErrors); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property logServices : TListLogServicesResponseTypelogServicesArray Index 0 Read FlogServices Write SetlogServices;
+ Property entries : TListLogEntriesResponseTypeentriesArray Index 0 Read Fentries Write Setentries;
Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property projectIdErrors : TListLogEntriesResponseTypeprojectIdErrors Index 16 Read FprojectIdErrors Write SetprojectIdErrors;
end;
- TListLogServicesResponseClass = Class of TListLogServicesResponse;
+ TListLogEntriesResponseClass = Class of TListLogEntriesResponse;
{ --------------------------------------------------------------------
- TLogService
+ TStatusTypedetailsItem
--------------------------------------------------------------------}
- TLogService = Class(TGoogleBaseObject)
+ TStatusTypedetailsItem = Class(TGoogleBaseObject)
Private
- Fname : String;
- FindexKeys : TStringArray;
Protected
//Property setters
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetindexKeys(AIndex : Integer; AValue : TStringArray); virtual;
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
+
+ { --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+ TStatus = Class(TGoogleBaseObject)
+ Private
+ Fcode : integer;
+ Fmessage : String;
+ Fdetails : TStatusTypedetailsArray;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property name : String Index 0 Read Fname Write Setname;
- Property indexKeys : TStringArray Index 8 Read FindexKeys Write SetindexKeys;
+ Property code : integer Index 0 Read Fcode Write Setcode;
+ Property message : String Index 8 Read Fmessage Write Setmessage;
+ Property details : TStatusTypedetailsArray Index 16 Read Fdetails Write Setdetails;
end;
- TLogServiceClass = Class of TLogService;
+ TStatusClass = Class of TStatus;
{ --------------------------------------------------------------------
- TListLogServiceIndexesResponse
+ TListMonitoredResourceDescriptorsResponse
--------------------------------------------------------------------}
- TListLogServiceIndexesResponse = Class(TGoogleBaseObject)
+ TListMonitoredResourceDescriptorsResponse = Class(TGoogleBaseObject)
Private
- FserviceIndexPrefixes : TStringArray;
+ FresourceDescriptors : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray;
FnextPageToken : String;
Protected
//Property setters
- Procedure SetserviceIndexPrefixes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetresourceDescriptors(AIndex : Integer; const AValue : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -350,30 +470,88 @@ type
{$ENDIF VER2_6}
Public
Published
- Property serviceIndexPrefixes : TStringArray Index 0 Read FserviceIndexPrefixes Write SetserviceIndexPrefixes;
+ Property resourceDescriptors : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray Index 0 Read FresourceDescriptors Write SetresourceDescriptors;
Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TListLogServiceIndexesResponseClass = Class of TListLogServiceIndexesResponse;
+ TListMonitoredResourceDescriptorsResponseClass = Class of TListMonitoredResourceDescriptorsResponse;
+
+ { --------------------------------------------------------------------
+ TMonitoredResourceDescriptor
+ --------------------------------------------------------------------}
+
+ TMonitoredResourceDescriptor = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ F_type : String;
+ FdisplayName : String;
+ Fdescription : String;
+ Flabels : TMonitoredResourceDescriptorTypelabelsArray;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TMonitoredResourceDescriptorTypelabelsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ Property displayName : String Index 16 Read FdisplayName Write SetdisplayName;
+ Property description : String Index 24 Read Fdescription Write Setdescription;
+ Property labels : TMonitoredResourceDescriptorTypelabelsArray Index 32 Read Flabels Write Setlabels;
+ end;
+ TMonitoredResourceDescriptorClass = Class of TMonitoredResourceDescriptor;
+
+ { --------------------------------------------------------------------
+ TLabelDescriptor
+ --------------------------------------------------------------------}
+
+ TLabelDescriptor = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ FvalueType : String;
+ Fdescription : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvalueType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property valueType : String Index 8 Read FvalueType Write SetvalueType;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ end;
+ TLabelDescriptorClass = Class of TLabelDescriptor;
{ --------------------------------------------------------------------
- TListLogSinksResponse
+ TListSinksResponse
--------------------------------------------------------------------}
- TListLogSinksResponse = Class(TGoogleBaseObject)
+ TListSinksResponse = Class(TGoogleBaseObject)
Private
- Fsinks : TListLogSinksResponseTypesinksArray;
+ Fsinks : TListSinksResponseTypesinksArray;
+ FnextPageToken : String;
Protected
//Property setters
- Procedure Setsinks(AIndex : Integer; AValue : TListLogSinksResponseTypesinksArray); virtual;
+ Procedure Setsinks(AIndex : Integer; const AValue : TListSinksResponseTypesinksArray); 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 sinks : TListLogSinksResponseTypesinksArray Index 0 Read Fsinks Write Setsinks;
+ Property sinks : TListSinksResponseTypesinksArray Index 0 Read Fsinks Write Setsinks;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TListLogSinksResponseClass = Class of TListLogSinksResponse;
+ TListSinksResponseClass = Class of TListSinksResponse;
{ --------------------------------------------------------------------
TLogSink
@@ -383,281 +561,368 @@ type
Private
Fname : String;
Fdestination : String;
- Ferrors : TLogSinkTypeerrorsArray;
+ Ffilter : String;
+ FoutputVersionFormat : String;
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setdestination(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TLogSinkTypeerrorsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Setfilter(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoutputVersionFormat(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
Property destination : String Index 8 Read Fdestination Write Setdestination;
- Property errors : TLogSinkTypeerrorsArray Index 16 Read Ferrors Write Seterrors;
+ Property filter : String Index 16 Read Ffilter Write Setfilter;
+ Property outputVersionFormat : String Index 24 Read FoutputVersionFormat Write SetoutputVersionFormat;
end;
TLogSinkClass = Class of TLogSink;
{ --------------------------------------------------------------------
- TLogError
+ TListLogMetricsResponse
--------------------------------------------------------------------}
- TLogError = Class(TGoogleBaseObject)
+ TListLogMetricsResponse = Class(TGoogleBaseObject)
Private
- Fresource : String;
- Fstatus : TStatus;
- FtimeNanos : String;
+ Fmetrics : TListLogMetricsResponseTypemetricsArray;
+ FnextPageToken : String;
Protected
//Property setters
- Procedure Setresource(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TStatus); virtual;
- Procedure SettimeNanos(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmetrics(AIndex : Integer; const AValue : TListLogMetricsResponseTypemetricsArray); 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 resource : String Index 0 Read Fresource Write Setresource;
- Property status : TStatus Index 8 Read Fstatus Write Setstatus;
- Property timeNanos : String Index 16 Read FtimeNanos Write SettimeNanos;
+ Property metrics : TListLogMetricsResponseTypemetricsArray Index 0 Read Fmetrics Write Setmetrics;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TLogErrorClass = Class of TLogError;
+ TListLogMetricsResponseClass = Class of TListLogMetricsResponse;
{ --------------------------------------------------------------------
- TStatusTypedetailsItem
+ TLogMetric
--------------------------------------------------------------------}
- TStatusTypedetailsItem = Class(TGoogleBaseObject)
+ TLogMetric = Class(TGoogleBaseObject)
Private
+ Fname : String;
+ Fdescription : String;
+ Ffilter : String;
Protected
//Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfilter(AIndex : Integer; const AValue : String); virtual;
Public
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property filter : String Index 16 Read Ffilter Write Setfilter;
end;
- TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
+ TLogMetricClass = Class of TLogMetric;
{ --------------------------------------------------------------------
- TStatus
+ TRequestLog
--------------------------------------------------------------------}
- TStatus = Class(TGoogleBaseObject)
+ TRequestLog = Class(TGoogleBaseObject)
Private
- Fcode : integer;
- Fmessage : String;
- Fdetails : TStatusTypedetailsArray;
+ FappId : String;
+ FmoduleId : String;
+ FversionId : String;
+ FrequestId : String;
+ Fip : String;
+ FstartTime : String;
+ FendTime : String;
+ Flatency : String;
+ FmegaCycles : String;
+ Fmethod : String;
+ Fresource : String;
+ FhttpVersion : String;
+ Fstatus : integer;
+ FresponseSize : String;
+ Freferrer : String;
+ FuserAgent : String;
+ Fnickname : String;
+ FurlMapEntry : String;
+ Fhost : String;
+ Fcost : double;
+ FtaskQueueName : String;
+ FtaskName : String;
+ FwasLoadingRequest : boolean;
+ FpendingTime : String;
+ FinstanceIndex : integer;
+ Ffinished : boolean;
+ Ffirst : boolean;
+ FinstanceId : String;
+ Fline : TRequestLogTypelineArray;
+ FappEngineRelease : String;
+ FtraceId : String;
+ FsourceReference : TRequestLogTypesourceReferenceArray;
Protected
//Property setters
- Procedure Setcode(AIndex : Integer; AValue : integer); virtual;
- Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdetails(AIndex : Integer; AValue : TStatusTypedetailsArray); virtual;
+ Procedure SetappId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmoduleId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetversionId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setip(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlatency(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmegaCycles(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setresource(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethttpVersion(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetresponseSize(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setreferrer(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserAgent(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnickname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeturlMapEntry(AIndex : Integer; const AValue : String); virtual;
+ Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcost(AIndex : Integer; const AValue : double); virtual;
+ Procedure SettaskQueueName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettaskName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetwasLoadingRequest(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpendingTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinstanceIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setfinished(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setfirst(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setline(AIndex : Integer; const AValue : TRequestLogTypelineArray); virtual;
+ Procedure SetappEngineRelease(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettraceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceReference(AIndex : Integer; const AValue : TRequestLogTypesourceReferenceArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property code : integer Index 0 Read Fcode Write Setcode;
- Property message : String Index 8 Read Fmessage Write Setmessage;
- Property details : TStatusTypedetailsArray Index 16 Read Fdetails Write Setdetails;
+ Property appId : String Index 0 Read FappId Write SetappId;
+ Property moduleId : String Index 8 Read FmoduleId Write SetmoduleId;
+ Property versionId : String Index 16 Read FversionId Write SetversionId;
+ Property requestId : String Index 24 Read FrequestId Write SetrequestId;
+ Property ip : String Index 32 Read Fip Write Setip;
+ Property startTime : String Index 40 Read FstartTime Write SetstartTime;
+ Property endTime : String Index 48 Read FendTime Write SetendTime;
+ Property latency : String Index 56 Read Flatency Write Setlatency;
+ Property megaCycles : String Index 64 Read FmegaCycles Write SetmegaCycles;
+ Property method : String Index 72 Read Fmethod Write Setmethod;
+ Property resource : String Index 80 Read Fresource Write Setresource;
+ Property httpVersion : String Index 88 Read FhttpVersion Write SethttpVersion;
+ Property status : integer Index 96 Read Fstatus Write Setstatus;
+ Property responseSize : String Index 104 Read FresponseSize Write SetresponseSize;
+ Property referrer : String Index 112 Read Freferrer Write Setreferrer;
+ Property userAgent : String Index 120 Read FuserAgent Write SetuserAgent;
+ Property nickname : String Index 128 Read Fnickname Write Setnickname;
+ Property urlMapEntry : String Index 136 Read FurlMapEntry Write SeturlMapEntry;
+ Property host : String Index 144 Read Fhost Write Sethost;
+ Property cost : double Index 152 Read Fcost Write Setcost;
+ Property taskQueueName : String Index 160 Read FtaskQueueName Write SettaskQueueName;
+ Property taskName : String Index 168 Read FtaskName Write SettaskName;
+ Property wasLoadingRequest : boolean Index 176 Read FwasLoadingRequest Write SetwasLoadingRequest;
+ Property pendingTime : String Index 184 Read FpendingTime Write SetpendingTime;
+ Property instanceIndex : integer Index 192 Read FinstanceIndex Write SetinstanceIndex;
+ Property finished : boolean Index 200 Read Ffinished Write Setfinished;
+ Property first : boolean Index 208 Read Ffirst Write Setfirst;
+ Property instanceId : String Index 216 Read FinstanceId Write SetinstanceId;
+ Property line : TRequestLogTypelineArray Index 224 Read Fline Write Setline;
+ Property appEngineRelease : String Index 232 Read FappEngineRelease Write SetappEngineRelease;
+ Property traceId : String Index 240 Read FtraceId Write SettraceId;
+ Property sourceReference : TRequestLogTypesourceReferenceArray Index 248 Read FsourceReference Write SetsourceReference;
end;
- TStatusClass = Class of TStatus;
+ TRequestLogClass = Class of TRequestLog;
{ --------------------------------------------------------------------
- TListLogServiceSinksResponse
+ TLogLine
--------------------------------------------------------------------}
- TListLogServiceSinksResponse = Class(TGoogleBaseObject)
+ TLogLine = Class(TGoogleBaseObject)
Private
- Fsinks : TListLogServiceSinksResponseTypesinksArray;
+ Ftime : String;
+ Fseverity : String;
+ FlogMessage : String;
+ FsourceLocation : TSourceLocation;
Protected
//Property setters
- Procedure Setsinks(AIndex : Integer; AValue : TListLogServiceSinksResponseTypesinksArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Settime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setseverity(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlogMessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceLocation(AIndex : Integer; const AValue : TSourceLocation); virtual;
Public
Published
- Property sinks : TListLogServiceSinksResponseTypesinksArray Index 0 Read Fsinks Write Setsinks;
+ Property time : String Index 0 Read Ftime Write Settime;
+ Property severity : String Index 8 Read Fseverity Write Setseverity;
+ Property logMessage : String Index 16 Read FlogMessage Write SetlogMessage;
+ Property sourceLocation : TSourceLocation Index 24 Read FsourceLocation Write SetsourceLocation;
end;
- TListLogServiceSinksResponseClass = Class of TListLogServiceSinksResponse;
+ TLogLineClass = Class of TLogLine;
{ --------------------------------------------------------------------
- TProjectsLogsEntriesResource
+ TSourceLocation
--------------------------------------------------------------------}
- TProjectsLogsEntriesResource = Class(TGoogleResource)
+ TSourceLocation = Class(TGoogleBaseObject)
+ Private
+ F_file : String;
+ Fline : String;
+ FfunctionName : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_file(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setline(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfunctionName(AIndex : Integer; const AValue : String); virtual;
Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Write(projectsId: string; logsId: string; aWriteLogEntriesRequest : TWriteLogEntriesRequest) : TWriteLogEntriesResponse;
+ Published
+ Property _file : String Index 0 Read F_file Write Set_file;
+ Property line : String Index 8 Read Fline Write Setline;
+ Property functionName : String Index 16 Read FfunctionName Write SetfunctionName;
end;
+ TSourceLocationClass = Class of TSourceLocation;
+ { --------------------------------------------------------------------
+ TSourceReference
+ --------------------------------------------------------------------}
+
+ TSourceReference = Class(TGoogleBaseObject)
+ Private
+ Frepository : String;
+ FrevisionId : String;
+ Protected
+ //Property setters
+ Procedure Setrepository(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrevisionId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property repository : String Index 0 Read Frepository Write Setrepository;
+ Property revisionId : String Index 8 Read FrevisionId Write SetrevisionId;
+ end;
+ TSourceReferenceClass = Class of TSourceReference;
{ --------------------------------------------------------------------
- TProjectsLogsSinksResource
+ TProjectsLogsResource
--------------------------------------------------------------------}
- TProjectsLogsSinksResource = Class(TGoogleResource)
+ TProjectsLogsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(projectsId: string; logsId: string) : TListLogSinksResponse;
- Function Get(projectsId: string; logsId: string; sinksId: string) : TLogSink;
- Function Create(projectsId: string; logsId: string; aLogSink : TLogSink) : TLogSink;overload;
- Function Update(projectsId: string; logsId: string; sinksId: string; aLogSink : TLogSink) : TLogSink;
- Function Delete(projectsId: string; logsId: string; sinksId: string) : TEmpty;
+ Function Delete(logName: string) : TEmpty;
end;
{ --------------------------------------------------------------------
- TProjectsLogsResource
+ TProjectsSinksResource
--------------------------------------------------------------------}
- //Optional query Options for TProjectsLogsResource, method List
+ //Optional query Options for TProjectsSinksResource, method List
- TProjectsLogsListOptions = Record
- serviceName : String;
- serviceIndexPrefix : String;
- pageSize : integer;
+ TProjectsSinksListOptions = Record
pageToken : String;
+ pageSize : integer;
end;
- TProjectsLogsResource = Class(TGoogleResource)
- Private
- FEntriesInstance : TProjectsLogsEntriesResource;
- FSinksInstance : TProjectsLogsSinksResource;
- Function GetEntriesInstance : TProjectsLogsEntriesResource;virtual;
- Function GetSinksInstance : TProjectsLogsSinksResource;virtual;
+ TProjectsSinksResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(projectsId: string; AQuery : string = '') : TListLogsResponse;
- Function List(projectsId: string; AQuery : TProjectsLogslistOptions) : TListLogsResponse;
- Function Delete(projectsId: string; logsId: string) : TEmpty;
- Function CreateEntriesResource(AOwner : TComponent) : TProjectsLogsEntriesResource;virtual;overload;
- Function CreateEntriesResource : TProjectsLogsEntriesResource;virtual;overload;
- Function CreateSinksResource(AOwner : TComponent) : TProjectsLogsSinksResource;virtual;overload;
- Function CreateSinksResource : TProjectsLogsSinksResource;virtual;overload;
- Property EntriesResource : TProjectsLogsEntriesResource Read GetEntriesInstance;
- Property SinksResource : TProjectsLogsSinksResource Read GetSinksInstance;
+ Function List(projectName: string; AQuery : string = '') : TListSinksResponse;
+ Function List(projectName: string; AQuery : TProjectsSinkslistOptions) : TListSinksResponse;
+ Function Get(sinkName: string) : TLogSink;
+ Function Create(projectName: string; aLogSink : TLogSink) : TLogSink;overload;
+ Function Update(sinkName: string; aLogSink : TLogSink) : TLogSink;
+ Function Delete(sinkName: string) : TEmpty;
end;
{ --------------------------------------------------------------------
- TProjectsLogServicesIndexesResource
+ TProjectsMetricsResource
--------------------------------------------------------------------}
- //Optional query Options for TProjectsLogServicesIndexesResource, method List
+ //Optional query Options for TProjectsMetricsResource, method List
- TProjectsLogServicesIndexesListOptions = Record
- indexPrefix : String;
- depth : integer;
- log : String;
- pageSize : integer;
+ TProjectsMetricsListOptions = Record
pageToken : String;
+ pageSize : integer;
end;
- TProjectsLogServicesIndexesResource = Class(TGoogleResource)
+ TProjectsMetricsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(projectsId: string; logServicesId: string; AQuery : string = '') : TListLogServiceIndexesResponse;
- Function List(projectsId: string; logServicesId: string; AQuery : TProjectsLogServicesIndexeslistOptions) : TListLogServiceIndexesResponse;
+ Function List(projectName: string; AQuery : string = '') : TListLogMetricsResponse;
+ Function List(projectName: string; AQuery : TProjectsMetricslistOptions) : TListLogMetricsResponse;
+ Function Get(metricName: string) : TLogMetric;
+ Function Create(projectName: string; aLogMetric : TLogMetric) : TLogMetric;overload;
+ Function Update(metricName: string; aLogMetric : TLogMetric) : TLogMetric;
+ Function Delete(metricName: string) : TEmpty;
end;
{ --------------------------------------------------------------------
- TProjectsLogServicesSinksResource
+ TProjectsResource
--------------------------------------------------------------------}
- TProjectsLogServicesSinksResource = Class(TGoogleResource)
+ TProjectsResource = Class(TGoogleResource)
+ Private
+ FLogsInstance : TProjectsLogsResource;
+ FSinksInstance : TProjectsSinksResource;
+ FMetricsInstance : TProjectsMetricsResource;
+ Function GetLogsInstance : TProjectsLogsResource;virtual;
+ Function GetSinksInstance : TProjectsSinksResource;virtual;
+ Function GetMetricsInstance : TProjectsMetricsResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(projectsId: string; logServicesId: string) : TListLogServiceSinksResponse;
- Function Get(projectsId: string; logServicesId: string; sinksId: string) : TLogSink;
- Function Create(projectsId: string; logServicesId: string; aLogSink : TLogSink) : TLogSink;overload;
- Function Update(projectsId: string; logServicesId: string; sinksId: string; aLogSink : TLogSink) : TLogSink;
- Function Delete(projectsId: string; logServicesId: string; sinksId: string) : TEmpty;
+ Function CreateLogsResource(AOwner : TComponent) : TProjectsLogsResource;virtual;overload;
+ Function CreateLogsResource : TProjectsLogsResource;virtual;overload;
+ Function CreateSinksResource(AOwner : TComponent) : TProjectsSinksResource;virtual;overload;
+ Function CreateSinksResource : TProjectsSinksResource;virtual;overload;
+ Function CreateMetricsResource(AOwner : TComponent) : TProjectsMetricsResource;virtual;overload;
+ Function CreateMetricsResource : TProjectsMetricsResource;virtual;overload;
+ Property LogsResource : TProjectsLogsResource Read GetLogsInstance;
+ Property SinksResource : TProjectsSinksResource Read GetSinksInstance;
+ Property MetricsResource : TProjectsMetricsResource Read GetMetricsInstance;
end;
{ --------------------------------------------------------------------
- TProjectsLogServicesResource
+ TEntriesResource
--------------------------------------------------------------------}
-
- //Optional query Options for TProjectsLogServicesResource, method List
-
- TProjectsLogServicesListOptions = Record
- log : String;
- pageSize : integer;
- pageToken : String;
- end;
-
- TProjectsLogServicesResource = Class(TGoogleResource)
- Private
- FIndexesInstance : TProjectsLogServicesIndexesResource;
- FSinksInstance : TProjectsLogServicesSinksResource;
- Function GetIndexesInstance : TProjectsLogServicesIndexesResource;virtual;
- Function GetSinksInstance : TProjectsLogServicesSinksResource;virtual;
+ TEntriesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(projectsId: string; AQuery : string = '') : TListLogServicesResponse;
- Function List(projectsId: string; AQuery : TProjectsLogServiceslistOptions) : TListLogServicesResponse;
- Function CreateIndexesResource(AOwner : TComponent) : TProjectsLogServicesIndexesResource;virtual;overload;
- Function CreateIndexesResource : TProjectsLogServicesIndexesResource;virtual;overload;
- Function CreateSinksResource(AOwner : TComponent) : TProjectsLogServicesSinksResource;virtual;overload;
- Function CreateSinksResource : TProjectsLogServicesSinksResource;virtual;overload;
- Property IndexesResource : TProjectsLogServicesIndexesResource Read GetIndexesInstance;
- Property SinksResource : TProjectsLogServicesSinksResource Read GetSinksInstance;
+ Function Write(aWriteLogEntriesRequest : TWriteLogEntriesRequest) : TWriteLogEntriesResponse;
+ Function List(aListLogEntriesRequest : TListLogEntriesRequest) : TListLogEntriesResponse;
end;
{ --------------------------------------------------------------------
- TProjectsResource
+ TMonitoredResourceDescriptorsResource
--------------------------------------------------------------------}
- TProjectsResource = Class(TGoogleResource)
- Private
- FLogsEntriesInstance : TProjectsLogsEntriesResource;
- FLogsSinksInstance : TProjectsLogsSinksResource;
- FLogsInstance : TProjectsLogsResource;
- FLogServicesIndexesInstance : TProjectsLogServicesIndexesResource;
- FLogServicesSinksInstance : TProjectsLogServicesSinksResource;
- FLogServicesInstance : TProjectsLogServicesResource;
- Function GetLogsEntriesInstance : TProjectsLogsEntriesResource;virtual;
- Function GetLogsSinksInstance : TProjectsLogsSinksResource;virtual;
- Function GetLogsInstance : TProjectsLogsResource;virtual;
- Function GetLogServicesIndexesInstance : TProjectsLogServicesIndexesResource;virtual;
- Function GetLogServicesSinksInstance : TProjectsLogServicesSinksResource;virtual;
- Function GetLogServicesInstance : TProjectsLogServicesResource;virtual;
+
+ //Optional query Options for TMonitoredResourceDescriptorsResource, method List
+
+ TMonitoredResourceDescriptorsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TMonitoredResourceDescriptorsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function CreateLogsEntriesResource(AOwner : TComponent) : TProjectsLogsEntriesResource;virtual;overload;
- Function CreateLogsEntriesResource : TProjectsLogsEntriesResource;virtual;overload;
- Function CreateLogsSinksResource(AOwner : TComponent) : TProjectsLogsSinksResource;virtual;overload;
- Function CreateLogsSinksResource : TProjectsLogsSinksResource;virtual;overload;
- Function CreateLogsResource(AOwner : TComponent) : TProjectsLogsResource;virtual;overload;
- Function CreateLogsResource : TProjectsLogsResource;virtual;overload;
- Function CreateLogServicesIndexesResource(AOwner : TComponent) : TProjectsLogServicesIndexesResource;virtual;overload;
- Function CreateLogServicesIndexesResource : TProjectsLogServicesIndexesResource;virtual;overload;
- Function CreateLogServicesSinksResource(AOwner : TComponent) : TProjectsLogServicesSinksResource;virtual;overload;
- Function CreateLogServicesSinksResource : TProjectsLogServicesSinksResource;virtual;overload;
- Function CreateLogServicesResource(AOwner : TComponent) : TProjectsLogServicesResource;virtual;overload;
- Function CreateLogServicesResource : TProjectsLogServicesResource;virtual;overload;
- Property LogsEntriesResource : TProjectsLogsEntriesResource Read GetLogsEntriesInstance;
- Property LogsSinksResource : TProjectsLogsSinksResource Read GetLogsSinksInstance;
- Property LogsResource : TProjectsLogsResource Read GetLogsInstance;
- Property LogServicesIndexesResource : TProjectsLogServicesIndexesResource Read GetLogServicesIndexesInstance;
- Property LogServicesSinksResource : TProjectsLogServicesSinksResource Read GetLogServicesSinksInstance;
- Property LogServicesResource : TProjectsLogServicesResource Read GetLogServicesInstance;
+ Function List(AQuery : string = '') : TListMonitoredResourceDescriptorsResponse;
+ Function List(AQuery : TMonitoredResourceDescriptorslistOptions) : TListMonitoredResourceDescriptorsResponse;
end;
@@ -667,20 +932,18 @@ type
TLoggingAPI = Class(TGoogleAPI)
Private
- FProjectsLogsEntriesInstance : TProjectsLogsEntriesResource;
- FProjectsLogsSinksInstance : TProjectsLogsSinksResource;
FProjectsLogsInstance : TProjectsLogsResource;
- FProjectsLogServicesIndexesInstance : TProjectsLogServicesIndexesResource;
- FProjectsLogServicesSinksInstance : TProjectsLogServicesSinksResource;
- FProjectsLogServicesInstance : TProjectsLogServicesResource;
+ FProjectsSinksInstance : TProjectsSinksResource;
+ FProjectsMetricsInstance : TProjectsMetricsResource;
FProjectsInstance : TProjectsResource;
- Function GetProjectsLogsEntriesInstance : TProjectsLogsEntriesResource;virtual;
- Function GetProjectsLogsSinksInstance : TProjectsLogsSinksResource;virtual;
+ FEntriesInstance : TEntriesResource;
+ FMonitoredResourceDescriptorsInstance : TMonitoredResourceDescriptorsResource;
Function GetProjectsLogsInstance : TProjectsLogsResource;virtual;
- Function GetProjectsLogServicesIndexesInstance : TProjectsLogServicesIndexesResource;virtual;
- Function GetProjectsLogServicesSinksInstance : TProjectsLogServicesSinksResource;virtual;
- Function GetProjectsLogServicesInstance : TProjectsLogServicesResource;virtual;
+ Function GetProjectsSinksInstance : TProjectsSinksResource;virtual;
+ Function GetProjectsMetricsInstance : TProjectsMetricsResource;virtual;
Function GetProjectsInstance : TProjectsResource;virtual;
+ Function GetEntriesInstance : TEntriesResource;virtual;
+ Function GetMonitoredResourceDescriptorsInstance : TMonitoredResourceDescriptorsResource;virtual;
Public
//Override class functions with API info
Class Function APIName : String; override;
@@ -704,123 +967,126 @@ type
Class Function APINeedsAuth : Boolean;override;
Class Procedure RegisterAPIResources; override;
//Add create function for resources
- Function CreateProjectsLogsEntriesResource(AOwner : TComponent) : TProjectsLogsEntriesResource;virtual;overload;
- Function CreateProjectsLogsEntriesResource : TProjectsLogsEntriesResource;virtual;overload;
- Function CreateProjectsLogsSinksResource(AOwner : TComponent) : TProjectsLogsSinksResource;virtual;overload;
- Function CreateProjectsLogsSinksResource : TProjectsLogsSinksResource;virtual;overload;
Function CreateProjectsLogsResource(AOwner : TComponent) : TProjectsLogsResource;virtual;overload;
Function CreateProjectsLogsResource : TProjectsLogsResource;virtual;overload;
- Function CreateProjectsLogServicesIndexesResource(AOwner : TComponent) : TProjectsLogServicesIndexesResource;virtual;overload;
- Function CreateProjectsLogServicesIndexesResource : TProjectsLogServicesIndexesResource;virtual;overload;
- Function CreateProjectsLogServicesSinksResource(AOwner : TComponent) : TProjectsLogServicesSinksResource;virtual;overload;
- Function CreateProjectsLogServicesSinksResource : TProjectsLogServicesSinksResource;virtual;overload;
- Function CreateProjectsLogServicesResource(AOwner : TComponent) : TProjectsLogServicesResource;virtual;overload;
- Function CreateProjectsLogServicesResource : TProjectsLogServicesResource;virtual;overload;
+ Function CreateProjectsSinksResource(AOwner : TComponent) : TProjectsSinksResource;virtual;overload;
+ Function CreateProjectsSinksResource : TProjectsSinksResource;virtual;overload;
+ Function CreateProjectsMetricsResource(AOwner : TComponent) : TProjectsMetricsResource;virtual;overload;
+ Function CreateProjectsMetricsResource : TProjectsMetricsResource;virtual;overload;
Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ Function CreateEntriesResource(AOwner : TComponent) : TEntriesResource;virtual;overload;
+ Function CreateEntriesResource : TEntriesResource;virtual;overload;
+ Function CreateMonitoredResourceDescriptorsResource(AOwner : TComponent) : TMonitoredResourceDescriptorsResource;virtual;overload;
+ Function CreateMonitoredResourceDescriptorsResource : TMonitoredResourceDescriptorsResource;virtual;overload;
//Add default on-demand instances for resources
- Property ProjectsLogsEntriesResource : TProjectsLogsEntriesResource Read GetProjectsLogsEntriesInstance;
- Property ProjectsLogsSinksResource : TProjectsLogsSinksResource Read GetProjectsLogsSinksInstance;
Property ProjectsLogsResource : TProjectsLogsResource Read GetProjectsLogsInstance;
- Property ProjectsLogServicesIndexesResource : TProjectsLogServicesIndexesResource Read GetProjectsLogServicesIndexesInstance;
- Property ProjectsLogServicesSinksResource : TProjectsLogServicesSinksResource Read GetProjectsLogServicesSinksInstance;
- Property ProjectsLogServicesResource : TProjectsLogServicesResource Read GetProjectsLogServicesInstance;
+ Property ProjectsSinksResource : TProjectsSinksResource Read GetProjectsSinksInstance;
+ Property ProjectsMetricsResource : TProjectsMetricsResource Read GetProjectsMetricsInstance;
Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ Property EntriesResource : TEntriesResource Read GetEntriesInstance;
+ Property MonitoredResourceDescriptorsResource : TMonitoredResourceDescriptorsResource Read GetMonitoredResourceDescriptorsInstance;
end;
implementation
{ --------------------------------------------------------------------
- TListLogsResponse
+ TEmpty
--------------------------------------------------------------------}
-Procedure TListLogsResponse.Setlogs(AIndex : Integer; AValue : TListLogsResponseTypelogsArray);
-begin
- If (Flogs=AValue) then exit;
- Flogs:=AValue;
- MarkPropertyChanged(AIndex);
-end;
+{ --------------------------------------------------------------------
+ TWriteLogEntriesRequestTypelabels
+ --------------------------------------------------------------------}
-Procedure TListLogsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Class Function TWriteLogEntriesRequestTypelabels.AllowAdditionalProperties : Boolean;
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TListLogsResponse.SetArrayLength(Const AName : String; ALength : Longint);
-begin
- Case AName of
- 'logs' : SetLength(Flogs,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
+{ --------------------------------------------------------------------
+ TWriteLogEntriesRequest
+ --------------------------------------------------------------------}
+Procedure TWriteLogEntriesRequest.SetlogName(AIndex : Integer; const AValue : String);
+begin
+ If (FlogName=AValue) then exit;
+ FlogName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TLog
- --------------------------------------------------------------------}
-Procedure TLog.Setname(AIndex : Integer; const AValue : String);
+Procedure TWriteLogEntriesRequest.Setresource(AIndex : Integer; const AValue : TMonitoredResource);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (Fresource=AValue) then exit;
+ Fresource:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLog.SetdisplayName(AIndex : Integer; const AValue : String);
+Procedure TWriteLogEntriesRequest.Setlabels(AIndex : Integer; const AValue : TWriteLogEntriesRequestTypelabels);
begin
- If (FdisplayName=AValue) then exit;
- FdisplayName:=AValue;
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLog.SetpayloadType(AIndex : Integer; const AValue : String);
+Procedure TWriteLogEntriesRequest.Setentries(AIndex : Integer; const AValue : TWriteLogEntriesRequestTypeentriesArray);
begin
- If (FpayloadType=AValue) then exit;
- FpayloadType:=AValue;
+ If (Fentries=AValue) then exit;
+ Fentries:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TWriteLogEntriesRequest.SetpartialSuccess(AIndex : Integer; const AValue : boolean);
+begin
+ If (FpartialSuccess=AValue) then exit;
+ FpartialSuccess:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TEmpty
- --------------------------------------------------------------------}
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TWriteLogEntriesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'entries' : SetLength(Fentries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TWriteLogEntriesRequestTypecommonLabels
+ TMonitoredResourceTypelabels
--------------------------------------------------------------------}
-Class Function TWriteLogEntriesRequestTypecommonLabels.AllowAdditionalProperties : Boolean;
+Class Function TMonitoredResourceTypelabels.AllowAdditionalProperties : Boolean;
begin
Result:=True;
@@ -829,41 +1095,39 @@ end;
{ --------------------------------------------------------------------
- TWriteLogEntriesRequest
+ TMonitoredResource
--------------------------------------------------------------------}
-Procedure TWriteLogEntriesRequest.SetcommonLabels(AIndex : Integer; AValue : TWriteLogEntriesRequestTypecommonLabels);
+Procedure TMonitoredResource.Set_type(AIndex : Integer; const AValue : String);
begin
- If (FcommonLabels=AValue) then exit;
- FcommonLabels:=AValue;
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TWriteLogEntriesRequest.Setentries(AIndex : Integer; AValue : TWriteLogEntriesRequestTypeentriesArray);
+Procedure TMonitoredResource.Setlabels(AIndex : Integer; const AValue : TMonitoredResourceTypelabels);
begin
- If (Fentries=AValue) then exit;
- Fentries:=AValue;
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TWriteLogEntriesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+Class Function TMonitoredResource.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
- 'entries' : SetLength(Fentries,ALength);
+ '_type' : Result:='type';
else
- Inherited SetArrayLength(AName,ALength);
+ Result:=Inherited ExportPropertyName(AName);
end;
end;
-{$ENDIF VER2_6}
@@ -882,11 +1146,24 @@ end;
{ --------------------------------------------------------------------
- TLogEntryTypestructPayload
+ TLogEntryTypejsonPayload
--------------------------------------------------------------------}
-Class Function TLogEntryTypestructPayload.AllowAdditionalProperties : Boolean;
+Class Function TLogEntryTypejsonPayload.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TLogEntryTypelabels
+ --------------------------------------------------------------------}
+
+
+Class Function TLogEntryTypelabels.AllowAdditionalProperties : Boolean;
begin
Result:=True;
@@ -899,17 +1176,27 @@ end;
--------------------------------------------------------------------}
-Procedure TLogEntry.Setmetadata(AIndex : Integer; AValue : TLogEntryMetadata);
+Procedure TLogEntry.SetlogName(AIndex : Integer; const AValue : String);
begin
- If (Fmetadata=AValue) then exit;
- Fmetadata:=AValue;
+ If (FlogName=AValue) then exit;
+ FlogName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogEntry.Setresource(AIndex : Integer; const AValue : TMonitoredResource);
+
+begin
+ If (Fresource=AValue) then exit;
+ Fresource:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogEntry.SetprotoPayload(AIndex : Integer; AValue : TLogEntryTypeprotoPayload);
+Procedure TLogEntry.SetprotoPayload(AIndex : Integer; const AValue : TLogEntryTypeprotoPayload);
begin
If (FprotoPayload=AValue) then exit;
@@ -929,11 +1216,31 @@ end;
-Procedure TLogEntry.SetstructPayload(AIndex : Integer; AValue : TLogEntryTypestructPayload);
+Procedure TLogEntry.SetjsonPayload(AIndex : Integer; const AValue : TLogEntryTypejsonPayload);
begin
- If (FstructPayload=AValue) then exit;
- FstructPayload:=AValue;
+ If (FjsonPayload=AValue) then exit;
+ FjsonPayload:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogEntry.Settimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftimestamp=AValue) then exit;
+ Ftimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogEntry.Setseverity(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fseverity=AValue) then exit;
+ Fseverity:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -949,111 +1256,205 @@ end;
-Procedure TLogEntry.Setlog(AIndex : Integer; const AValue : String);
+Procedure TLogEntry.SethttpRequest(AIndex : Integer; const AValue : THttpRequest);
begin
- If (Flog=AValue) then exit;
- Flog:=AValue;
+ If (FhttpRequest=AValue) then exit;
+ FhttpRequest:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TLogEntry.Setlabels(AIndex : Integer; const AValue : TLogEntryTypelabels);
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TLogEntryMetadataTypelabels
- --------------------------------------------------------------------}
-Class Function TLogEntryMetadataTypelabels.AllowAdditionalProperties : Boolean;
+Procedure TLogEntry.Setoperation(AIndex : Integer; const AValue : TLogEntryOperation);
begin
- Result:=True;
+ If (Foperation=AValue) then exit;
+ Foperation:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
+
{ --------------------------------------------------------------------
- TLogEntryMetadata
+ THttpRequest
--------------------------------------------------------------------}
-Procedure TLogEntryMetadata.Settimestamp(AIndex : Integer; const AValue : String);
+Procedure THttpRequest.SetrequestMethod(AIndex : Integer; const AValue : String);
begin
- If (Ftimestamp=AValue) then exit;
- Ftimestamp:=AValue;
+ If (FrequestMethod=AValue) then exit;
+ FrequestMethod:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogEntryMetadata.Setseverity(AIndex : Integer; const AValue : String);
+Procedure THttpRequest.SetrequestUrl(AIndex : Integer; const AValue : String);
begin
- If (Fseverity=AValue) then exit;
- Fseverity:=AValue;
+ If (FrequestUrl=AValue) then exit;
+ FrequestUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogEntryMetadata.SetprojectId(AIndex : Integer; const AValue : String);
+Procedure THttpRequest.SetrequestSize(AIndex : Integer; const AValue : String);
begin
- If (FprojectId=AValue) then exit;
- FprojectId:=AValue;
+ If (FrequestSize=AValue) then exit;
+ FrequestSize:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogEntryMetadata.SetserviceName(AIndex : Integer; const AValue : String);
+Procedure THttpRequest.Setstatus(AIndex : Integer; const AValue : integer);
begin
- If (FserviceName=AValue) then exit;
- FserviceName:=AValue;
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogEntryMetadata.Setregion(AIndex : Integer; const AValue : String);
+Procedure THttpRequest.SetresponseSize(AIndex : Integer; const AValue : String);
begin
- If (Fregion=AValue) then exit;
- Fregion:=AValue;
+ If (FresponseSize=AValue) then exit;
+ FresponseSize:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogEntryMetadata.Setzone(AIndex : Integer; const AValue : String);
+Procedure THttpRequest.SetuserAgent(AIndex : Integer; const AValue : String);
begin
- If (Fzone=AValue) then exit;
- Fzone:=AValue;
+ If (FuserAgent=AValue) then exit;
+ FuserAgent:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogEntryMetadata.SetuserId(AIndex : Integer; const AValue : String);
+Procedure THttpRequest.SetremoteIp(AIndex : Integer; const AValue : String);
begin
- If (FuserId=AValue) then exit;
- FuserId:=AValue;
+ If (FremoteIp=AValue) then exit;
+ FremoteIp:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogEntryMetadata.Setlabels(AIndex : Integer; AValue : TLogEntryMetadataTypelabels);
+Procedure THttpRequest.Setreferer(AIndex : Integer; const AValue : String);
begin
- If (Flabels=AValue) then exit;
- Flabels:=AValue;
+ If (Freferer=AValue) then exit;
+ Freferer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpRequest.SetcacheLookup(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FcacheLookup=AValue) then exit;
+ FcacheLookup:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpRequest.SetcacheHit(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FcacheHit=AValue) then exit;
+ FcacheHit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpRequest.SetcacheValidatedWithOriginServer(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FcacheValidatedWithOriginServer=AValue) then exit;
+ FcacheValidatedWithOriginServer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THttpRequest.SetcacheFillBytes(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcacheFillBytes=AValue) then exit;
+ FcacheFillBytes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLogEntryOperation
+ --------------------------------------------------------------------}
+
+
+Procedure TLogEntryOperation.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogEntryOperation.Setproducer(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fproducer=AValue) then exit;
+ Fproducer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogEntryOperation.Setfirst(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Ffirst=AValue) then exit;
+ Ffirst:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogEntryOperation.Setlast(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Flast=AValue) then exit;
+ Flast:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -1069,36 +1470,76 @@ end;
{ --------------------------------------------------------------------
- TListLogServicesResponse
+ TListLogEntriesRequest
--------------------------------------------------------------------}
-Procedure TListLogServicesResponse.SetlogServices(AIndex : Integer; AValue : TListLogServicesResponseTypelogServicesArray);
+Procedure TListLogEntriesRequest.SetprojectIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (FlogServices=AValue) then exit;
- FlogServices:=AValue;
+ If (FprojectIds=AValue) then exit;
+ FprojectIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TListLogServicesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TListLogEntriesRequest.Setfilter(AIndex : Integer; const AValue : String);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (Ffilter=AValue) then exit;
+ Ffilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListLogEntriesRequest.SetorderBy(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForderBy=AValue) then exit;
+ ForderBy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListLogEntriesRequest.SetpageSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FpageSize=AValue) then exit;
+ FpageSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListLogEntriesRequest.SetpageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpageToken=AValue) then exit;
+ FpageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListLogEntriesRequest.SetpartialSuccess(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FpartialSuccess=AValue) then exit;
+ FpartialSuccess:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TListLogServicesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TListLogEntriesRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'logservices' : SetLength(FlogServices,ALength);
+ 'projectids' : SetLength(FprojectIds,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1109,36 +1550,59 @@ end;
{ --------------------------------------------------------------------
- TLogService
+ TListLogEntriesResponseTypeprojectIdErrors
--------------------------------------------------------------------}
-Procedure TLogService.Setname(AIndex : Integer; const AValue : String);
+Class Function TListLogEntriesResponseTypeprojectIdErrors.AllowAdditionalProperties : Boolean;
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TListLogEntriesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListLogEntriesResponse.Setentries(AIndex : Integer; const AValue : TListLogEntriesResponseTypeentriesArray);
+
+begin
+ If (Fentries=AValue) then exit;
+ Fentries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListLogEntriesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogService.SetindexKeys(AIndex : Integer; AValue : TStringArray);
+Procedure TListLogEntriesResponse.SetprojectIdErrors(AIndex : Integer; const AValue : TListLogEntriesResponseTypeprojectIdErrors);
begin
- If (FindexKeys=AValue) then exit;
- FindexKeys:=AValue;
+ If (FprojectIdErrors=AValue) then exit;
+ FprojectIdErrors:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TLogService.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TListLogEntriesResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'indexkeys' : SetLength(FindexKeys,ALength);
+ 'entries' : SetLength(Fentries,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1149,36 +1613,59 @@ end;
{ --------------------------------------------------------------------
- TListLogServiceIndexesResponse
+ TStatusTypedetailsItem
--------------------------------------------------------------------}
-Procedure TListLogServiceIndexesResponse.SetserviceIndexPrefixes(AIndex : Integer; AValue : TStringArray);
+Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
begin
- If (FserviceIndexPrefixes=AValue) then exit;
- FserviceIndexPrefixes:=AValue;
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TListLogServiceIndexesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TListLogServiceIndexesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'serviceindexprefixes' : SetLength(FserviceIndexPrefixes,ALength);
+ 'details' : SetLength(Fdetails,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1189,26 +1676,36 @@ end;
{ --------------------------------------------------------------------
- TListLogSinksResponse
+ TListMonitoredResourceDescriptorsResponse
--------------------------------------------------------------------}
-Procedure TListLogSinksResponse.Setsinks(AIndex : Integer; AValue : TListLogSinksResponseTypesinksArray);
+Procedure TListMonitoredResourceDescriptorsResponse.SetresourceDescriptors(AIndex : Integer; const AValue : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray);
begin
- If (Fsinks=AValue) then exit;
- Fsinks:=AValue;
+ If (FresourceDescriptors=AValue) then exit;
+ FresourceDescriptors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListMonitoredResourceDescriptorsResponse.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 TListLogSinksResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TListMonitoredResourceDescriptorsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'sinks' : SetLength(Fsinks,ALength);
+ 'resourcedescriptors' : SetLength(FresourceDescriptors,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1219,11 +1716,11 @@ end;
{ --------------------------------------------------------------------
- TLogSink
+ TMonitoredResourceDescriptor
--------------------------------------------------------------------}
-Procedure TLogSink.Setname(AIndex : Integer; const AValue : String);
+Procedure TMonitoredResourceDescriptor.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
@@ -1233,32 +1730,63 @@ end;
-Procedure TLogSink.Setdestination(AIndex : Integer; const AValue : String);
+Procedure TMonitoredResourceDescriptor.Set_type(AIndex : Integer; const AValue : String);
begin
- If (Fdestination=AValue) then exit;
- Fdestination:=AValue;
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogSink.Seterrors(AIndex : Integer; AValue : TLogSinkTypeerrorsArray);
+Procedure TMonitoredResourceDescriptor.SetdisplayName(AIndex : Integer; const AValue : String);
begin
- If (Ferrors=AValue) then exit;
- Ferrors:=AValue;
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMonitoredResourceDescriptor.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMonitoredResourceDescriptor.Setlabels(AIndex : Integer; const AValue : TMonitoredResourceDescriptorTypelabelsArray);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
MarkPropertyChanged(AIndex);
end;
+
+Class Function TMonitoredResourceDescriptor.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 TLogSink.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TMonitoredResourceDescriptor.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'errors' : SetLength(Ferrors,ALength);
+ 'labels' : SetLength(Flabels,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1269,35 +1797,35 @@ end;
{ --------------------------------------------------------------------
- TLogError
+ TLabelDescriptor
--------------------------------------------------------------------}
-Procedure TLogError.Setresource(AIndex : Integer; const AValue : String);
+Procedure TLabelDescriptor.Setkey(AIndex : Integer; const AValue : String);
begin
- If (Fresource=AValue) then exit;
- Fresource:=AValue;
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogError.Setstatus(AIndex : Integer; AValue : TStatus);
+Procedure TLabelDescriptor.SetvalueType(AIndex : Integer; const AValue : String);
begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
+ If (FvalueType=AValue) then exit;
+ FvalueType:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TLogError.SettimeNanos(AIndex : Integer; const AValue : String);
+Procedure TLabelDescriptor.Setdescription(AIndex : Integer; const AValue : String);
begin
- If (FtimeNanos=AValue) then exit;
- FtimeNanos:=AValue;
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -1306,89 +1834,123 @@ end;
{ --------------------------------------------------------------------
- TStatusTypedetailsItem
+ TListSinksResponse
--------------------------------------------------------------------}
-Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
+Procedure TListSinksResponse.Setsinks(AIndex : Integer; const AValue : TListSinksResponseTypesinksArray);
begin
- Result:=True;
+ If (Fsinks=AValue) then exit;
+ Fsinks:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+Procedure TListSinksResponse.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 TListSinksResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sinks' : SetLength(Fsinks,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
{ --------------------------------------------------------------------
- TStatus
+ TLogSink
--------------------------------------------------------------------}
-Procedure TStatus.Setcode(AIndex : Integer; AValue : integer);
+Procedure TLogSink.Setname(AIndex : Integer; const AValue : String);
begin
- If (Fcode=AValue) then exit;
- Fcode:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
+Procedure TLogSink.Setdestination(AIndex : Integer; const AValue : String);
begin
- If (Fmessage=AValue) then exit;
- Fmessage:=AValue;
+ If (Fdestination=AValue) then exit;
+ Fdestination:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TStatus.Setdetails(AIndex : Integer; AValue : TStatusTypedetailsArray);
+Procedure TLogSink.Setfilter(AIndex : Integer; const AValue : String);
begin
- If (Fdetails=AValue) then exit;
- Fdetails:=AValue;
+ If (Ffilter=AValue) then exit;
+ Ffilter:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+Procedure TLogSink.SetoutputVersionFormat(AIndex : Integer; const AValue : String);
begin
- Case AName of
- 'details' : SetLength(Fdetails,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ If (FoutputVersionFormat=AValue) then exit;
+ FoutputVersionFormat:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{$ENDIF VER2_6}
+
{ --------------------------------------------------------------------
- TListLogServiceSinksResponse
+ TListLogMetricsResponse
--------------------------------------------------------------------}
-Procedure TListLogServiceSinksResponse.Setsinks(AIndex : Integer; AValue : TListLogServiceSinksResponseTypesinksArray);
+Procedure TListLogMetricsResponse.Setmetrics(AIndex : Integer; const AValue : TListLogMetricsResponseTypemetricsArray);
begin
- If (Fsinks=AValue) then exit;
- Fsinks:=AValue;
+ If (Fmetrics=AValue) then exit;
+ Fmetrics:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListLogMetricsResponse.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 TListLogServiceSinksResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TListLogMetricsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'sinks' : SetLength(Fsinks,ALength);
+ 'metrics' : SetLength(Fmetrics,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -1399,481 +1961,749 @@ end;
{ --------------------------------------------------------------------
- TProjectsLogsEntriesResource
+ TLogMetric
--------------------------------------------------------------------}
-Class Function TProjectsLogsEntriesResource.ResourceName : String;
+Procedure TLogMetric.Setname(AIndex : Integer; const AValue : String);
begin
- Result:='entries';
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Class Function TProjectsLogsEntriesResource.DefaultAPI : TGoogleAPIClass;
+
+
+Procedure TLogMetric.Setdescription(AIndex : Integer; const AValue : String);
begin
- Result:=TloggingAPI;
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsEntriesResource.Write(projectsId: string; logsId: string; aWriteLogEntriesRequest : TWriteLogEntriesRequest) : TWriteLogEntriesResponse;
-Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta3/projects/{projectsId}/logs/{logsId}/entries:write';
- _Methodid = 'logging.projects.logs.entries.write';
-Var
- _P : String;
+Procedure TLogMetric.Setfilter(AIndex : Integer; const AValue : String);
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logsId',logsId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aWriteLogEntriesRequest,TWriteLogEntriesResponse) as TWriteLogEntriesResponse;
+ If (Ffilter=AValue) then exit;
+ Ffilter:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
+
{ --------------------------------------------------------------------
- TProjectsLogsSinksResource
+ TRequestLog
--------------------------------------------------------------------}
-Class Function TProjectsLogsSinksResource.ResourceName : String;
+Procedure TRequestLog.SetappId(AIndex : Integer; const AValue : String);
begin
- Result:='sinks';
+ If (FappId=AValue) then exit;
+ FappId:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Class Function TProjectsLogsSinksResource.DefaultAPI : TGoogleAPIClass;
+
+
+Procedure TRequestLog.SetmoduleId(AIndex : Integer; const AValue : String);
begin
- Result:=TloggingAPI;
+ If (FmoduleId=AValue) then exit;
+ FmoduleId:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsSinksResource.List(projectsId: string; logsId: string) : TListLogSinksResponse;
-Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta3/projects/{projectsId}/logs/{logsId}/sinks';
- _Methodid = 'logging.projects.logs.sinks.list';
-Var
- _P : String;
+Procedure TRequestLog.SetversionId(AIndex : Integer; const AValue : String);
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logsId',logsId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListLogSinksResponse) as TListLogSinksResponse;
+ If (FversionId=AValue) then exit;
+ FversionId:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsSinksResource.Get(projectsId: string; logsId: string; sinksId: string) : TLogSink;
-Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta3/projects/{projectsId}/logs/{logsId}/sinks/{sinksId}';
- _Methodid = 'logging.projects.logs.sinks.get';
-Var
- _P : String;
+Procedure TRequestLog.SetrequestId(AIndex : Integer; const AValue : String);
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logsId',logsId,'sinksId',sinksId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TLogSink) as TLogSink;
+ If (FrequestId=AValue) then exit;
+ FrequestId:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsSinksResource.Create(projectsId: string; logsId: string; aLogSink : TLogSink) : TLogSink;
-Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta3/projects/{projectsId}/logs/{logsId}/sinks';
- _Methodid = 'logging.projects.logs.sinks.create';
-Var
- _P : String;
+Procedure TRequestLog.Setip(AIndex : Integer; const AValue : String);
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logsId',logsId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aLogSink,TLogSink) as TLogSink;
+ If (Fip=AValue) then exit;
+ Fip:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsSinksResource.Update(projectsId: string; logsId: string; sinksId: string; aLogSink : TLogSink) : TLogSink;
-Const
- _HTTPMethod = 'PUT';
- _Path = 'v1beta3/projects/{projectsId}/logs/{logsId}/sinks/{sinksId}';
- _Methodid = 'logging.projects.logs.sinks.update';
-Var
- _P : String;
+Procedure TRequestLog.SetstartTime(AIndex : Integer; const AValue : String);
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logsId',logsId,'sinksId',sinksId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aLogSink,TLogSink) as TLogSink;
+ If (FstartTime=AValue) then exit;
+ FstartTime:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsSinksResource.Delete(projectsId: string; logsId: string; sinksId: string) : TEmpty;
-Const
- _HTTPMethod = 'DELETE';
- _Path = 'v1beta3/projects/{projectsId}/logs/{logsId}/sinks/{sinksId}';
- _Methodid = 'logging.projects.logs.sinks.delete';
-Var
- _P : String;
+Procedure TRequestLog.SetendTime(AIndex : Integer; const AValue : String);
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logsId',logsId,'sinksId',sinksId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TProjectsLogsResource
- --------------------------------------------------------------------}
+Procedure TRequestLog.Setlatency(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flatency=AValue) then exit;
+ Flatency:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-Class Function TProjectsLogsResource.ResourceName : String;
+
+Procedure TRequestLog.SetmegaCycles(AIndex : Integer; const AValue : String);
begin
- Result:='logs';
+ If (FmegaCycles=AValue) then exit;
+ FmegaCycles:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Class Function TProjectsLogsResource.DefaultAPI : TGoogleAPIClass;
+
+
+Procedure TRequestLog.Setmethod(AIndex : Integer; const AValue : String);
begin
- Result:=TloggingAPI;
+ If (Fmethod=AValue) then exit;
+ Fmethod:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsResource.List(projectsId: string; AQuery : string = '') : TListLogsResponse;
-Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta3/projects/{projectsId}/logs';
- _Methodid = 'logging.projects.logs.list';
-Var
- _P : String;
+Procedure TRequestLog.Setresource(AIndex : Integer; const AValue : String);
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListLogsResponse) as TListLogsResponse;
+ If (Fresource=AValue) then exit;
+ Fresource:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsResource.List(projectsId: string; AQuery : TProjectsLogslistOptions) : TListLogsResponse;
-Var
- _Q : String;
+Procedure TRequestLog.SethttpVersion(AIndex : Integer; const AValue : String);
begin
- _Q:='';
- AddToQuery(_Q,'serviceName',AQuery.serviceName);
- AddToQuery(_Q,'serviceIndexPrefix',AQuery.serviceIndexPrefix);
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(projectsId,_Q);
+ If (FhttpVersion=AValue) then exit;
+ FhttpVersion:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsResource.Delete(projectsId: string; logsId: string) : TEmpty;
-Const
- _HTTPMethod = 'DELETE';
- _Path = 'v1beta3/projects/{projectsId}/logs/{logsId}';
- _Methodid = 'logging.projects.logs.delete';
-Var
- _P : String;
+Procedure TRequestLog.Setstatus(AIndex : Integer; const AValue : integer);
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logsId',logsId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsResource.GetEntriesInstance : TProjectsLogsEntriesResource;
+Procedure TRequestLog.SetresponseSize(AIndex : Integer; const AValue : String);
begin
- if (FEntriesInstance=Nil) then
- FEntriesInstance:=CreateEntriesResource;
- Result:=FEntriesInstance;
+ If (FresponseSize=AValue) then exit;
+ FresponseSize:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsResource.CreateEntriesResource : TProjectsLogsEntriesResource;
+
+
+Procedure TRequestLog.Setreferrer(AIndex : Integer; const AValue : String);
begin
- Result:=CreateEntriesResource(Self);
+ If (Freferrer=AValue) then exit;
+ Freferrer:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsResource.CreateEntriesResource(AOwner : TComponent) : TProjectsLogsEntriesResource;
+
+Procedure TRequestLog.SetuserAgent(AIndex : Integer; const AValue : String);
begin
- Result:=TProjectsLogsEntriesResource.Create(AOwner);
- Result.API:=Self.API;
+ If (FuserAgent=AValue) then exit;
+ FuserAgent:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsResource.GetSinksInstance : TProjectsLogsSinksResource;
+Procedure TRequestLog.Setnickname(AIndex : Integer; const AValue : String);
begin
- if (FSinksInstance=Nil) then
- FSinksInstance:=CreateSinksResource;
- Result:=FSinksInstance;
+ If (Fnickname=AValue) then exit;
+ Fnickname:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsResource.CreateSinksResource : TProjectsLogsSinksResource;
+
+
+Procedure TRequestLog.SeturlMapEntry(AIndex : Integer; const AValue : String);
begin
- Result:=CreateSinksResource(Self);
+ If (FurlMapEntry=AValue) then exit;
+ FurlMapEntry:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.Sethost(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fhost=AValue) then exit;
+ Fhost:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogsResource.CreateSinksResource(AOwner : TComponent) : TProjectsLogsSinksResource;
+
+Procedure TRequestLog.Setcost(AIndex : Integer; const AValue : double);
begin
- Result:=TProjectsLogsSinksResource.Create(AOwner);
- Result.API:=Self.API;
+ If (Fcost=AValue) then exit;
+ Fcost:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+Procedure TRequestLog.SettaskQueueName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtaskQueueName=AValue) then exit;
+ FtaskQueueName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.SettaskName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtaskName=AValue) then exit;
+ FtaskName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.SetwasLoadingRequest(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FwasLoadingRequest=AValue) then exit;
+ FwasLoadingRequest:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.SetpendingTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpendingTime=AValue) then exit;
+ FpendingTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.SetinstanceIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FinstanceIndex=AValue) then exit;
+ FinstanceIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.Setfinished(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Ffinished=AValue) then exit;
+ Ffinished:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.Setfirst(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Ffirst=AValue) then exit;
+ Ffirst:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.SetinstanceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinstanceId=AValue) then exit;
+ FinstanceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.Setline(AIndex : Integer; const AValue : TRequestLogTypelineArray);
+
+begin
+ If (Fline=AValue) then exit;
+ Fline:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.SetappEngineRelease(AIndex : Integer; const AValue : String);
+
+begin
+ If (FappEngineRelease=AValue) then exit;
+ FappEngineRelease:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.SettraceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtraceId=AValue) then exit;
+ FtraceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestLog.SetsourceReference(AIndex : Integer; const AValue : TRequestLogTypesourceReferenceArray);
+
+begin
+ If (FsourceReference=AValue) then exit;
+ FsourceReference:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRequestLog.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'line' : SetLength(Fline,ALength);
+ 'sourcereference' : SetLength(FsourceReference,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
{ --------------------------------------------------------------------
- TProjectsLogServicesIndexesResource
+ TLogLine
--------------------------------------------------------------------}
-Class Function TProjectsLogServicesIndexesResource.ResourceName : String;
+Procedure TLogLine.Settime(AIndex : Integer; const AValue : String);
begin
- Result:='indexes';
+ If (Ftime=AValue) then exit;
+ Ftime:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Class Function TProjectsLogServicesIndexesResource.DefaultAPI : TGoogleAPIClass;
+
+
+Procedure TLogLine.Setseverity(AIndex : Integer; const AValue : String);
begin
- Result:=TloggingAPI;
+ If (Fseverity=AValue) then exit;
+ Fseverity:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogServicesIndexesResource.List(projectsId: string; logServicesId: string; AQuery : string = '') : TListLogServiceIndexesResponse;
-Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta3/projects/{projectsId}/logServices/{logServicesId}/indexes';
- _Methodid = 'logging.projects.logServices.indexes.list';
-Var
- _P : String;
+Procedure TLogLine.SetlogMessage(AIndex : Integer; const AValue : String);
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logServicesId',logServicesId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListLogServiceIndexesResponse) as TListLogServiceIndexesResponse;
+ If (FlogMessage=AValue) then exit;
+ FlogMessage:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsLogServicesIndexesResource.List(projectsId: string; logServicesId: string; AQuery : TProjectsLogServicesIndexeslistOptions) : TListLogServiceIndexesResponse;
+
+Procedure TLogLine.SetsourceLocation(AIndex : Integer; const AValue : TSourceLocation);
+
+begin
+ If (FsourceLocation=AValue) then exit;
+ FsourceLocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSourceLocation
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceLocation.Set_file(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_file=AValue) then exit;
+ F_file:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceLocation.Setline(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fline=AValue) then exit;
+ Fline:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceLocation.SetfunctionName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfunctionName=AValue) then exit;
+ FfunctionName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TSourceLocation.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_file' : Result:='file';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TSourceReference
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceReference.Setrepository(AIndex : Integer; const AValue : String);
+
+begin
+ If (Frepository=AValue) then exit;
+ Frepository:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceReference.SetrevisionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrevisionId=AValue) then exit;
+ FrevisionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsLogsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsLogsResource.ResourceName : String;
+
+begin
+ Result:='logs';
+end;
+
+Class Function TProjectsLogsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TloggingAPI;
+end;
+
+Function TProjectsLogsResource.Delete(logName: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v2beta1/{+logName}';
+ _Methodid = 'logging.projects.logs.delete';
Var
- _Q : String;
+ _P : String;
begin
- _Q:='';
- AddToQuery(_Q,'indexPrefix',AQuery.indexPrefix);
- AddToQuery(_Q,'depth',AQuery.depth);
- AddToQuery(_Q,'log',AQuery.log);
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(projectsId,logServicesId,_Q);
+ _P:=SubstitutePath(_Path,['logName',logName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
end;
{ --------------------------------------------------------------------
- TProjectsLogServicesSinksResource
+ TProjectsSinksResource
--------------------------------------------------------------------}
-Class Function TProjectsLogServicesSinksResource.ResourceName : String;
+Class Function TProjectsSinksResource.ResourceName : String;
begin
Result:='sinks';
end;
-Class Function TProjectsLogServicesSinksResource.DefaultAPI : TGoogleAPIClass;
+Class Function TProjectsSinksResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TloggingAPI;
end;
-Function TProjectsLogServicesSinksResource.List(projectsId: string; logServicesId: string) : TListLogServiceSinksResponse;
+Function TProjectsSinksResource.List(projectName: string; AQuery : string = '') : TListSinksResponse;
Const
_HTTPMethod = 'GET';
- _Path = 'v1beta3/projects/{projectsId}/logServices/{logServicesId}/sinks';
- _Methodid = 'logging.projects.logServices.sinks.list';
+ _Path = 'v2beta1/{+projectName}/sinks';
+ _Methodid = 'logging.projects.sinks.list';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logServicesId',logServicesId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListLogServiceSinksResponse) as TListLogServiceSinksResponse;
+ _P:=SubstitutePath(_Path,['projectName',projectName]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListSinksResponse) as TListSinksResponse;
end;
-Function TProjectsLogServicesSinksResource.Get(projectsId: string; logServicesId: string; sinksId: string) : TLogSink;
+
+Function TProjectsSinksResource.List(projectName: string; AQuery : TProjectsSinkslistOptions) : TListSinksResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ Result:=List(projectName,_Q);
+end;
+
+Function TProjectsSinksResource.Get(sinkName: string) : TLogSink;
Const
_HTTPMethod = 'GET';
- _Path = 'v1beta3/projects/{projectsId}/logServices/{logServicesId}/sinks/{sinksId}';
- _Methodid = 'logging.projects.logServices.sinks.get';
+ _Path = 'v2beta1/{+sinkName}';
+ _Methodid = 'logging.projects.sinks.get';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logServicesId',logServicesId,'sinksId',sinksId]);
+ _P:=SubstitutePath(_Path,['sinkName',sinkName]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TLogSink) as TLogSink;
end;
-Function TProjectsLogServicesSinksResource.Create(projectsId: string; logServicesId: string; aLogSink : TLogSink) : TLogSink;
+Function TProjectsSinksResource.Create(projectName: string; aLogSink : TLogSink) : TLogSink;
Const
_HTTPMethod = 'POST';
- _Path = 'v1beta3/projects/{projectsId}/logServices/{logServicesId}/sinks';
- _Methodid = 'logging.projects.logServices.sinks.create';
+ _Path = 'v2beta1/{+projectName}/sinks';
+ _Methodid = 'logging.projects.sinks.create';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logServicesId',logServicesId]);
+ _P:=SubstitutePath(_Path,['projectName',projectName]);
Result:=ServiceCall(_HTTPMethod,_P,'',aLogSink,TLogSink) as TLogSink;
end;
-Function TProjectsLogServicesSinksResource.Update(projectsId: string; logServicesId: string; sinksId: string; aLogSink : TLogSink) : TLogSink;
+Function TProjectsSinksResource.Update(sinkName: string; aLogSink : TLogSink) : TLogSink;
Const
_HTTPMethod = 'PUT';
- _Path = 'v1beta3/projects/{projectsId}/logServices/{logServicesId}/sinks/{sinksId}';
- _Methodid = 'logging.projects.logServices.sinks.update';
+ _Path = 'v2beta1/{+sinkName}';
+ _Methodid = 'logging.projects.sinks.update';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logServicesId',logServicesId,'sinksId',sinksId]);
+ _P:=SubstitutePath(_Path,['sinkName',sinkName]);
Result:=ServiceCall(_HTTPMethod,_P,'',aLogSink,TLogSink) as TLogSink;
end;
-Function TProjectsLogServicesSinksResource.Delete(projectsId: string; logServicesId: string; sinksId: string) : TEmpty;
+Function TProjectsSinksResource.Delete(sinkName: string) : TEmpty;
Const
_HTTPMethod = 'DELETE';
- _Path = 'v1beta3/projects/{projectsId}/logServices/{logServicesId}/sinks/{sinksId}';
- _Methodid = 'logging.projects.logServices.sinks.delete';
+ _Path = 'v2beta1/{+sinkName}';
+ _Methodid = 'logging.projects.sinks.delete';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId,'logServicesId',logServicesId,'sinksId',sinksId]);
+ _P:=SubstitutePath(_Path,['sinkName',sinkName]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
end;
{ --------------------------------------------------------------------
- TProjectsLogServicesResource
+ TProjectsMetricsResource
--------------------------------------------------------------------}
-Class Function TProjectsLogServicesResource.ResourceName : String;
+Class Function TProjectsMetricsResource.ResourceName : String;
begin
- Result:='logServices';
+ Result:='metrics';
end;
-Class Function TProjectsLogServicesResource.DefaultAPI : TGoogleAPIClass;
+Class Function TProjectsMetricsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TloggingAPI;
end;
-Function TProjectsLogServicesResource.List(projectsId: string; AQuery : string = '') : TListLogServicesResponse;
+Function TProjectsMetricsResource.List(projectName: string; AQuery : string = '') : TListLogMetricsResponse;
Const
_HTTPMethod = 'GET';
- _Path = 'v1beta3/projects/{projectsId}/logServices';
- _Methodid = 'logging.projects.logServices.list';
+ _Path = 'v2beta1/{+projectName}/metrics';
+ _Methodid = 'logging.projects.metrics.list';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['projectsId',projectsId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListLogServicesResponse) as TListLogServicesResponse;
+ _P:=SubstitutePath(_Path,['projectName',projectName]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListLogMetricsResponse) as TListLogMetricsResponse;
end;
-Function TProjectsLogServicesResource.List(projectsId: string; AQuery : TProjectsLogServiceslistOptions) : TListLogServicesResponse;
+Function TProjectsMetricsResource.List(projectName: string; AQuery : TProjectsMetricslistOptions) : TListLogMetricsResponse;
Var
_Q : String;
begin
_Q:='';
- AddToQuery(_Q,'log',AQuery.log);
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(projectsId,_Q);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ Result:=List(projectName,_Q);
end;
+Function TProjectsMetricsResource.Get(metricName: string) : TLogMetric;
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2beta1/{+metricName}';
+ _Methodid = 'logging.projects.metrics.get';
-Function TProjectsLogServicesResource.GetIndexesInstance : TProjectsLogServicesIndexesResource;
+Var
+ _P : String;
begin
- if (FIndexesInstance=Nil) then
- FIndexesInstance:=CreateIndexesResource;
- Result:=FIndexesInstance;
+ _P:=SubstitutePath(_Path,['metricName',metricName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TLogMetric) as TLogMetric;
end;
-Function TProjectsLogServicesResource.CreateIndexesResource : TProjectsLogServicesIndexesResource;
-
-begin
- Result:=CreateIndexesResource(Self);
-end;
+Function TProjectsMetricsResource.Create(projectName: string; aLogMetric : TLogMetric) : TLogMetric;
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v2beta1/{+projectName}/metrics';
+ _Methodid = 'logging.projects.metrics.create';
-Function TProjectsLogServicesResource.CreateIndexesResource(AOwner : TComponent) : TProjectsLogServicesIndexesResource;
+Var
+ _P : String;
begin
- Result:=TProjectsLogServicesIndexesResource.Create(AOwner);
- Result.API:=Self.API;
+ _P:=SubstitutePath(_Path,['projectName',projectName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aLogMetric,TLogMetric) as TLogMetric;
end;
+Function TProjectsMetricsResource.Update(metricName: string; aLogMetric : TLogMetric) : TLogMetric;
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v2beta1/{+metricName}';
+ _Methodid = 'logging.projects.metrics.update';
-Function TProjectsLogServicesResource.GetSinksInstance : TProjectsLogServicesSinksResource;
+Var
+ _P : String;
begin
- if (FSinksInstance=Nil) then
- FSinksInstance:=CreateSinksResource;
- Result:=FSinksInstance;
+ _P:=SubstitutePath(_Path,['metricName',metricName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aLogMetric,TLogMetric) as TLogMetric;
end;
-Function TProjectsLogServicesResource.CreateSinksResource : TProjectsLogServicesSinksResource;
-
-begin
- Result:=CreateSinksResource(Self);
-end;
+Function TProjectsMetricsResource.Delete(metricName: string) : TEmpty;
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v2beta1/{+metricName}';
+ _Methodid = 'logging.projects.metrics.delete';
-Function TProjectsLogServicesResource.CreateSinksResource(AOwner : TComponent) : TProjectsLogServicesSinksResource;
+Var
+ _P : String;
begin
- Result:=TProjectsLogServicesSinksResource.Create(AOwner);
- Result.API:=Self.API;
+ _P:=SubstitutePath(_Path,['metricName',metricName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
end;
@@ -1897,146 +2727,158 @@ end;
-Function TProjectsResource.GetLogsEntriesInstance : TProjectsLogsEntriesResource;
+Function TProjectsResource.GetLogsInstance : TProjectsLogsResource;
begin
- if (FLogsEntriesInstance=Nil) then
- FLogsEntriesInstance:=CreateLogsEntriesResource;
- Result:=FLogsEntriesInstance;
+ if (FLogsInstance=Nil) then
+ FLogsInstance:=CreateLogsResource;
+ Result:=FLogsInstance;
end;
-Function TProjectsResource.CreateLogsEntriesResource : TProjectsLogsEntriesResource;
+Function TProjectsResource.CreateLogsResource : TProjectsLogsResource;
begin
- Result:=CreateLogsEntriesResource(Self);
+ Result:=CreateLogsResource(Self);
end;
-Function TProjectsResource.CreateLogsEntriesResource(AOwner : TComponent) : TProjectsLogsEntriesResource;
+Function TProjectsResource.CreateLogsResource(AOwner : TComponent) : TProjectsLogsResource;
begin
- Result:=TProjectsLogsEntriesResource.Create(AOwner);
+ Result:=TProjectsLogsResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TProjectsResource.GetLogsSinksInstance : TProjectsLogsSinksResource;
+Function TProjectsResource.GetSinksInstance : TProjectsSinksResource;
begin
- if (FLogsSinksInstance=Nil) then
- FLogsSinksInstance:=CreateLogsSinksResource;
- Result:=FLogsSinksInstance;
+ if (FSinksInstance=Nil) then
+ FSinksInstance:=CreateSinksResource;
+ Result:=FSinksInstance;
end;
-Function TProjectsResource.CreateLogsSinksResource : TProjectsLogsSinksResource;
+Function TProjectsResource.CreateSinksResource : TProjectsSinksResource;
begin
- Result:=CreateLogsSinksResource(Self);
+ Result:=CreateSinksResource(Self);
end;
-Function TProjectsResource.CreateLogsSinksResource(AOwner : TComponent) : TProjectsLogsSinksResource;
+Function TProjectsResource.CreateSinksResource(AOwner : TComponent) : TProjectsSinksResource;
begin
- Result:=TProjectsLogsSinksResource.Create(AOwner);
+ Result:=TProjectsSinksResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TProjectsResource.GetLogsInstance : TProjectsLogsResource;
+Function TProjectsResource.GetMetricsInstance : TProjectsMetricsResource;
begin
- if (FLogsInstance=Nil) then
- FLogsInstance:=CreateLogsResource;
- Result:=FLogsInstance;
+ if (FMetricsInstance=Nil) then
+ FMetricsInstance:=CreateMetricsResource;
+ Result:=FMetricsInstance;
end;
-Function TProjectsResource.CreateLogsResource : TProjectsLogsResource;
+Function TProjectsResource.CreateMetricsResource : TProjectsMetricsResource;
begin
- Result:=CreateLogsResource(Self);
+ Result:=CreateMetricsResource(Self);
end;
-Function TProjectsResource.CreateLogsResource(AOwner : TComponent) : TProjectsLogsResource;
+Function TProjectsResource.CreateMetricsResource(AOwner : TComponent) : TProjectsMetricsResource;
begin
- Result:=TProjectsLogsResource.Create(AOwner);
+ Result:=TProjectsMetricsResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TProjectsResource.GetLogServicesIndexesInstance : TProjectsLogServicesIndexesResource;
+{ --------------------------------------------------------------------
+ TEntriesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TEntriesResource.ResourceName : String;
begin
- if (FLogServicesIndexesInstance=Nil) then
- FLogServicesIndexesInstance:=CreateLogServicesIndexesResource;
- Result:=FLogServicesIndexesInstance;
+ Result:='entries';
end;
-Function TProjectsResource.CreateLogServicesIndexesResource : TProjectsLogServicesIndexesResource;
+Class Function TEntriesResource.DefaultAPI : TGoogleAPIClass;
begin
- Result:=CreateLogServicesIndexesResource(Self);
+ Result:=TloggingAPI;
end;
+Function TEntriesResource.Write(aWriteLogEntriesRequest : TWriteLogEntriesRequest) : TWriteLogEntriesResponse;
-Function TProjectsResource.CreateLogServicesIndexesResource(AOwner : TComponent) : TProjectsLogServicesIndexesResource;
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v2beta1/entries:write';
+ _Methodid = 'logging.entries.write';
begin
- Result:=TProjectsLogServicesIndexesResource.Create(AOwner);
- Result.API:=Self.API;
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aWriteLogEntriesRequest,TWriteLogEntriesResponse) as TWriteLogEntriesResponse;
end;
+Function TEntriesResource.List(aListLogEntriesRequest : TListLogEntriesRequest) : TListLogEntriesResponse;
-
-Function TProjectsResource.GetLogServicesSinksInstance : TProjectsLogServicesSinksResource;
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v2beta1/entries:list';
+ _Methodid = 'logging.entries.list';
begin
- if (FLogServicesSinksInstance=Nil) then
- FLogServicesSinksInstance:=CreateLogServicesSinksResource;
- Result:=FLogServicesSinksInstance;
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aListLogEntriesRequest,TListLogEntriesResponse) as TListLogEntriesResponse;
end;
-Function TProjectsResource.CreateLogServicesSinksResource : TProjectsLogServicesSinksResource;
-begin
- Result:=CreateLogServicesSinksResource(Self);
-end;
+{ --------------------------------------------------------------------
+ TMonitoredResourceDescriptorsResource
+ --------------------------------------------------------------------}
-Function TProjectsResource.CreateLogServicesSinksResource(AOwner : TComponent) : TProjectsLogServicesSinksResource;
+
+Class Function TMonitoredResourceDescriptorsResource.ResourceName : String;
begin
- Result:=TProjectsLogServicesSinksResource.Create(AOwner);
- Result.API:=Self.API;
+ Result:='monitoredResourceDescriptors';
end;
-
-
-Function TProjectsResource.GetLogServicesInstance : TProjectsLogServicesResource;
+Class Function TMonitoredResourceDescriptorsResource.DefaultAPI : TGoogleAPIClass;
begin
- if (FLogServicesInstance=Nil) then
- FLogServicesInstance:=CreateLogServicesResource;
- Result:=FLogServicesInstance;
+ Result:=TloggingAPI;
end;
-Function TProjectsResource.CreateLogServicesResource : TProjectsLogServicesResource;
+Function TMonitoredResourceDescriptorsResource.List(AQuery : string = '') : TListMonitoredResourceDescriptorsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2beta1/monitoredResourceDescriptors';
+ _Methodid = 'logging.monitoredResourceDescriptors.list';
begin
- Result:=CreateLogServicesResource(Self);
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListMonitoredResourceDescriptorsResponse) as TListMonitoredResourceDescriptorsResponse;
end;
-Function TProjectsResource.CreateLogServicesResource(AOwner : TComponent) : TProjectsLogServicesResource;
+Function TMonitoredResourceDescriptorsResource.List(AQuery : TMonitoredResourceDescriptorslistOptions) : TListMonitoredResourceDescriptorsResponse;
+
+Var
+ _Q : String;
begin
- Result:=TProjectsLogServicesResource.Create(AOwner);
- Result.API:=Self.API;
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_Q);
end;
@@ -2054,19 +2896,19 @@ end;
Class Function TLoggingAPI.APIVersion : String;
begin
- Result:='v1beta3';
+ Result:='v2beta1';
end;
Class Function TLoggingAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160322';
end;
Class Function TLoggingAPI.APIID : String;
begin
- Result:='logging:v1beta3';
+ Result:='logging:v2beta1';
end;
Class Function TLoggingAPI.APITitle : String;
@@ -2078,7 +2920,7 @@ end;
Class Function TLoggingAPI.APIDescription : String;
begin
- Result:='Google Cloud Logging API lets you create logs, ingest log entries, and manage log sinks.';
+ Result:='Writes log entries and manages your logs, log sinks, and logs-based metrics.';
end;
Class Function TLoggingAPI.APIOwnerDomain : String;
@@ -2108,7 +2950,7 @@ end;
Class Function TLoggingAPI.APIdocumentationLink : String;
begin
- Result:='';
+ Result:='https://cloud.google.com/logging/docs/';
end;
Class Function TLoggingAPI.APIrootUrl : string;
@@ -2150,9 +2992,17 @@ end;
Class Function TLoggingAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,1);
+ SetLength(Result,5);
Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[0].Description:='View and manage your data across Google Cloud Platform services';
+ Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
+ Result[1].Description:='View your data across Google Cloud Platform services';
+ Result[2].Name:='https://www.googleapis.com/auth/logging.admin';
+ Result[2].Description:='Administrate log data for your projects';
+ Result[3].Name:='https://www.googleapis.com/auth/logging.read';
+ Result[3].Description:='View log data for your projects';
+ Result[4].Name:='https://www.googleapis.com/auth/logging.write';
+ Result[4].Description:='Submit log data for your projects';
end;
@@ -2165,192 +3015,176 @@ end;
Class Procedure TLoggingAPI.RegisterAPIResources;
begin
- TListLogsResponse.RegisterObject;
- TLog.RegisterObject;
TEmpty.RegisterObject;
- TWriteLogEntriesRequestTypecommonLabels.RegisterObject;
+ TWriteLogEntriesRequestTypelabels.RegisterObject;
TWriteLogEntriesRequest.RegisterObject;
+ TMonitoredResourceTypelabels.RegisterObject;
+ TMonitoredResource.RegisterObject;
TLogEntryTypeprotoPayload.RegisterObject;
- TLogEntryTypestructPayload.RegisterObject;
+ TLogEntryTypejsonPayload.RegisterObject;
+ TLogEntryTypelabels.RegisterObject;
TLogEntry.RegisterObject;
- TLogEntryMetadataTypelabels.RegisterObject;
- TLogEntryMetadata.RegisterObject;
+ THttpRequest.RegisterObject;
+ TLogEntryOperation.RegisterObject;
TWriteLogEntriesResponse.RegisterObject;
- TListLogServicesResponse.RegisterObject;
- TLogService.RegisterObject;
- TListLogServiceIndexesResponse.RegisterObject;
- TListLogSinksResponse.RegisterObject;
- TLogSink.RegisterObject;
- TLogError.RegisterObject;
+ TListLogEntriesRequest.RegisterObject;
+ TListLogEntriesResponseTypeprojectIdErrors.RegisterObject;
+ TListLogEntriesResponse.RegisterObject;
TStatusTypedetailsItem.RegisterObject;
TStatus.RegisterObject;
- TListLogServiceSinksResponse.RegisterObject;
-end;
-
-
-Function TLoggingAPI.GetProjectsLogsEntriesInstance : TProjectsLogsEntriesResource;
-
-begin
- if (FProjectsLogsEntriesInstance=Nil) then
- FProjectsLogsEntriesInstance:=CreateProjectsLogsEntriesResource;
- Result:=FProjectsLogsEntriesInstance;
-end;
-
-Function TLoggingAPI.CreateProjectsLogsEntriesResource : TProjectsLogsEntriesResource;
-
-begin
- Result:=CreateProjectsLogsEntriesResource(Self);
-end;
-
-
-Function TLoggingAPI.CreateProjectsLogsEntriesResource(AOwner : TComponent) : TProjectsLogsEntriesResource;
-
-begin
- Result:=TProjectsLogsEntriesResource.Create(AOwner);
- Result.API:=Self.API;
+ TListMonitoredResourceDescriptorsResponse.RegisterObject;
+ TMonitoredResourceDescriptor.RegisterObject;
+ TLabelDescriptor.RegisterObject;
+ TListSinksResponse.RegisterObject;
+ TLogSink.RegisterObject;
+ TListLogMetricsResponse.RegisterObject;
+ TLogMetric.RegisterObject;
+ TRequestLog.RegisterObject;
+ TLogLine.RegisterObject;
+ TSourceLocation.RegisterObject;
+ TSourceReference.RegisterObject;
end;
-
-Function TLoggingAPI.GetProjectsLogsSinksInstance : TProjectsLogsSinksResource;
+Function TLoggingAPI.GetProjectsLogsInstance : TProjectsLogsResource;
begin
- if (FProjectsLogsSinksInstance=Nil) then
- FProjectsLogsSinksInstance:=CreateProjectsLogsSinksResource;
- Result:=FProjectsLogsSinksInstance;
+ if (FProjectsLogsInstance=Nil) then
+ FProjectsLogsInstance:=CreateProjectsLogsResource;
+ Result:=FProjectsLogsInstance;
end;
-Function TLoggingAPI.CreateProjectsLogsSinksResource : TProjectsLogsSinksResource;
+Function TLoggingAPI.CreateProjectsLogsResource : TProjectsLogsResource;
begin
- Result:=CreateProjectsLogsSinksResource(Self);
+ Result:=CreateProjectsLogsResource(Self);
end;
-Function TLoggingAPI.CreateProjectsLogsSinksResource(AOwner : TComponent) : TProjectsLogsSinksResource;
+Function TLoggingAPI.CreateProjectsLogsResource(AOwner : TComponent) : TProjectsLogsResource;
begin
- Result:=TProjectsLogsSinksResource.Create(AOwner);
+ Result:=TProjectsLogsResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TLoggingAPI.GetProjectsLogsInstance : TProjectsLogsResource;
+Function TLoggingAPI.GetProjectsSinksInstance : TProjectsSinksResource;
begin
- if (FProjectsLogsInstance=Nil) then
- FProjectsLogsInstance:=CreateProjectsLogsResource;
- Result:=FProjectsLogsInstance;
+ if (FProjectsSinksInstance=Nil) then
+ FProjectsSinksInstance:=CreateProjectsSinksResource;
+ Result:=FProjectsSinksInstance;
end;
-Function TLoggingAPI.CreateProjectsLogsResource : TProjectsLogsResource;
+Function TLoggingAPI.CreateProjectsSinksResource : TProjectsSinksResource;
begin
- Result:=CreateProjectsLogsResource(Self);
+ Result:=CreateProjectsSinksResource(Self);
end;
-Function TLoggingAPI.CreateProjectsLogsResource(AOwner : TComponent) : TProjectsLogsResource;
+Function TLoggingAPI.CreateProjectsSinksResource(AOwner : TComponent) : TProjectsSinksResource;
begin
- Result:=TProjectsLogsResource.Create(AOwner);
+ Result:=TProjectsSinksResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TLoggingAPI.GetProjectsLogServicesIndexesInstance : TProjectsLogServicesIndexesResource;
+Function TLoggingAPI.GetProjectsMetricsInstance : TProjectsMetricsResource;
begin
- if (FProjectsLogServicesIndexesInstance=Nil) then
- FProjectsLogServicesIndexesInstance:=CreateProjectsLogServicesIndexesResource;
- Result:=FProjectsLogServicesIndexesInstance;
+ if (FProjectsMetricsInstance=Nil) then
+ FProjectsMetricsInstance:=CreateProjectsMetricsResource;
+ Result:=FProjectsMetricsInstance;
end;
-Function TLoggingAPI.CreateProjectsLogServicesIndexesResource : TProjectsLogServicesIndexesResource;
+Function TLoggingAPI.CreateProjectsMetricsResource : TProjectsMetricsResource;
begin
- Result:=CreateProjectsLogServicesIndexesResource(Self);
+ Result:=CreateProjectsMetricsResource(Self);
end;
-Function TLoggingAPI.CreateProjectsLogServicesIndexesResource(AOwner : TComponent) : TProjectsLogServicesIndexesResource;
+Function TLoggingAPI.CreateProjectsMetricsResource(AOwner : TComponent) : TProjectsMetricsResource;
begin
- Result:=TProjectsLogServicesIndexesResource.Create(AOwner);
+ Result:=TProjectsMetricsResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TLoggingAPI.GetProjectsLogServicesSinksInstance : TProjectsLogServicesSinksResource;
+Function TLoggingAPI.GetProjectsInstance : TProjectsResource;
begin
- if (FProjectsLogServicesSinksInstance=Nil) then
- FProjectsLogServicesSinksInstance:=CreateProjectsLogServicesSinksResource;
- Result:=FProjectsLogServicesSinksInstance;
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
end;
-Function TLoggingAPI.CreateProjectsLogServicesSinksResource : TProjectsLogServicesSinksResource;
+Function TLoggingAPI.CreateProjectsResource : TProjectsResource;
begin
- Result:=CreateProjectsLogServicesSinksResource(Self);
+ Result:=CreateProjectsResource(Self);
end;
-Function TLoggingAPI.CreateProjectsLogServicesSinksResource(AOwner : TComponent) : TProjectsLogServicesSinksResource;
+Function TLoggingAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
begin
- Result:=TProjectsLogServicesSinksResource.Create(AOwner);
+ Result:=TProjectsResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TLoggingAPI.GetProjectsLogServicesInstance : TProjectsLogServicesResource;
+Function TLoggingAPI.GetEntriesInstance : TEntriesResource;
begin
- if (FProjectsLogServicesInstance=Nil) then
- FProjectsLogServicesInstance:=CreateProjectsLogServicesResource;
- Result:=FProjectsLogServicesInstance;
+ if (FEntriesInstance=Nil) then
+ FEntriesInstance:=CreateEntriesResource;
+ Result:=FEntriesInstance;
end;
-Function TLoggingAPI.CreateProjectsLogServicesResource : TProjectsLogServicesResource;
+Function TLoggingAPI.CreateEntriesResource : TEntriesResource;
begin
- Result:=CreateProjectsLogServicesResource(Self);
+ Result:=CreateEntriesResource(Self);
end;
-Function TLoggingAPI.CreateProjectsLogServicesResource(AOwner : TComponent) : TProjectsLogServicesResource;
+Function TLoggingAPI.CreateEntriesResource(AOwner : TComponent) : TEntriesResource;
begin
- Result:=TProjectsLogServicesResource.Create(AOwner);
+ Result:=TEntriesResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TLoggingAPI.GetProjectsInstance : TProjectsResource;
+Function TLoggingAPI.GetMonitoredResourceDescriptorsInstance : TMonitoredResourceDescriptorsResource;
begin
- if (FProjectsInstance=Nil) then
- FProjectsInstance:=CreateProjectsResource;
- Result:=FProjectsInstance;
+ if (FMonitoredResourceDescriptorsInstance=Nil) then
+ FMonitoredResourceDescriptorsInstance:=CreateMonitoredResourceDescriptorsResource;
+ Result:=FMonitoredResourceDescriptorsInstance;
end;
-Function TLoggingAPI.CreateProjectsResource : TProjectsResource;
+Function TLoggingAPI.CreateMonitoredResourceDescriptorsResource : TMonitoredResourceDescriptorsResource;
begin
- Result:=CreateProjectsResource(Self);
+ Result:=CreateMonitoredResourceDescriptorsResource(Self);
end;
-Function TLoggingAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+Function TLoggingAPI.CreateMonitoredResourceDescriptorsResource(AOwner : TComponent) : TMonitoredResourceDescriptorsResource;
begin
- Result:=TProjectsResource.Create(AOwner);
+ Result:=TMonitoredResourceDescriptorsResource.Create(AOwner);
Result.API:=Self.API;
end;
diff --git a/packages/googleapi/src/googlemirror.pp b/packages/googleapi/src/googlemirror.pp
index cce365f60c..039ed031ca 100644
--- a/packages/googleapi/src/googlemirror.pp
+++ b/packages/googleapi/src/googlemirror.pp
@@ -1,19 +1,4 @@
unit googlemirror;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:06
{$MODE objfpc}
{$H+}
@@ -91,10 +76,10 @@ type
FuserData : TAccountTypeuserDataArray;
Protected
//Property setters
- Procedure SetauthTokens(AIndex : Integer; AValue : TAccountTypeauthTokensArray); virtual;
- Procedure Setfeatures(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetauthTokens(AIndex : Integer; const AValue : TAccountTypeauthTokensArray); virtual;
+ Procedure Setfeatures(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserData(AIndex : Integer; AValue : TAccountTypeuserDataArray); virtual;
+ Procedure SetuserData(AIndex : Integer; const AValue : TAccountTypeuserDataArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -123,7 +108,7 @@ type
Procedure SetcontentType(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisProcessingContent(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisProcessingContent(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property contentType : String Index 0 Read FcontentType Write SetcontentType;
@@ -143,7 +128,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TAttachmentsListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAttachmentsListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -214,15 +199,15 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetacceptCommands(AIndex : Integer; AValue : TContactTypeacceptCommandsArray); virtual;
- Procedure SetacceptTypes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetacceptCommands(AIndex : Integer; const AValue : TContactTypeacceptCommandsArray); virtual;
+ Procedure SetacceptTypes(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetimageUrls(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetimageUrls(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetphoneNumber(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpriority(AIndex : Integer; AValue : integer); virtual;
- Procedure SetsharingFeatures(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setpriority(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetsharingFeatures(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
Procedure SetspeakableName(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
@@ -257,7 +242,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TContactsListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TContactsListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -286,14 +271,14 @@ type
Ftimestamp : TDatetime;
Protected
//Property setters
- Procedure Setaccuracy(AIndex : Integer; AValue : double); virtual;
+ Procedure Setaccuracy(AIndex : Integer; const AValue : double); virtual;
Procedure Setaddress(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
- Procedure Settimestamp(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual;
+ Procedure Settimestamp(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property accuracy : double Index 0 Read Faccuracy Write Setaccuracy;
@@ -317,7 +302,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TLocationsListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TLocationsListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -348,8 +333,8 @@ type
Procedure Setcontextual_command(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setpayload(AIndex : Integer; const AValue : String); virtual;
- Procedure SetremoveWhenSelected(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setvalues(AIndex : Integer; AValue : TMenuItemTypevaluesArray); virtual;
+ Procedure SetremoveWhenSelected(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setvalues(AIndex : Integer; const AValue : TMenuItemTypevaluesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -404,7 +389,7 @@ type
Procedure Setcollection(AIndex : Integer; const AValue : String); virtual;
Procedure SetitemId(AIndex : Integer; const AValue : String); virtual;
Procedure Setoperation(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuserActions(AIndex : Integer; AValue : TNotificationTypeuserActionsArray); virtual;
+ Procedure SetuserActions(AIndex : Integer; const AValue : TNotificationTypeuserActionsArray); virtual;
Procedure SetuserToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetverifyToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -432,7 +417,7 @@ type
Flevel : String;
Protected
//Property setters
- Procedure SetdeliveryTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetdeliveryTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setlevel(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -484,9 +469,9 @@ type
Procedure Setcollection(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnotification(AIndex : Integer; AValue : TNotification); virtual;
- Procedure Setoperation(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setnotification(AIndex : Integer; const AValue : TNotification); virtual;
+ Procedure Setoperation(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetuserToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetverifyToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -517,7 +502,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TSubscriptionsListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSubscriptionsListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -564,32 +549,32 @@ type
Fupdated : TDatetime;
Protected
//Property setters
- Procedure Setattachments(AIndex : Integer; AValue : TTimelineItemTypeattachmentsArray); virtual;
+ Procedure Setattachments(AIndex : Integer; const AValue : TTimelineItemTypeattachmentsArray); virtual;
Procedure SetbundleId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcanonicalUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setcreator(AIndex : Integer; AValue : TContact); virtual;
- Procedure SetdisplayTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setcreator(AIndex : Integer; const AValue : TContact); virtual;
+ Procedure SetdisplayTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Sethtml(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinReplyTo(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisBundleCover(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisDeleted(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisPinned(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisBundleCover(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisDeleted(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisPinned(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocation(AIndex : Integer; AValue : TLocation); virtual;
- Procedure SetmenuItems(AIndex : Integer; AValue : TTimelineItemTypemenuItemsArray); virtual;
- Procedure Setnotification(AIndex : Integer; AValue : TNotificationConfig); virtual;
- Procedure SetpinScore(AIndex : Integer; AValue : integer); virtual;
- Procedure Setrecipients(AIndex : Integer; AValue : TTimelineItemTyperecipientsArray); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TLocation); virtual;
+ Procedure SetmenuItems(AIndex : Integer; const AValue : TTimelineItemTypemenuItemsArray); virtual;
+ Procedure Setnotification(AIndex : Integer; const AValue : TNotificationConfig); virtual;
+ Procedure SetpinScore(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setrecipients(AIndex : Integer; const AValue : TTimelineItemTyperecipientsArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceItemId(AIndex : Integer; const AValue : String); virtual;
Procedure SetspeakableText(AIndex : Integer; const AValue : String); virtual;
Procedure SetspeakableType(AIndex : Integer; const AValue : String); virtual;
Procedure Settext(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -636,7 +621,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TTimelineListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTimelineListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -886,7 +871,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TAccount.SetauthTokens(AIndex : Integer; AValue : TAccountTypeauthTokensArray);
+Procedure TAccount.SetauthTokens(AIndex : Integer; const AValue : TAccountTypeauthTokensArray);
begin
If (FauthTokens=AValue) then exit;
@@ -896,7 +881,7 @@ end;
-Procedure TAccount.Setfeatures(AIndex : Integer; AValue : TStringArray);
+Procedure TAccount.Setfeatures(AIndex : Integer; const AValue : TStringArray);
begin
If (Ffeatures=AValue) then exit;
@@ -916,7 +901,7 @@ end;
-Procedure TAccount.SetuserData(AIndex : Integer; AValue : TAccountTypeuserDataArray);
+Procedure TAccount.SetuserData(AIndex : Integer; const AValue : TAccountTypeuserDataArray);
begin
If (FuserData=AValue) then exit;
@@ -978,7 +963,7 @@ end;
-Procedure TAttachment.SetisProcessingContent(AIndex : Integer; AValue : boolean);
+Procedure TAttachment.SetisProcessingContent(AIndex : Integer; const AValue : boolean);
begin
If (FisProcessingContent=AValue) then exit;
@@ -995,7 +980,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAttachmentsListResponse.Setitems(AIndex : Integer; AValue : TAttachmentsListResponseTypeitemsArray);
+Procedure TAttachmentsListResponse.Setitems(AIndex : Integer; const AValue : TAttachmentsListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1101,7 +1086,7 @@ end;
--------------------------------------------------------------------}
-Procedure TContact.SetacceptCommands(AIndex : Integer; AValue : TContactTypeacceptCommandsArray);
+Procedure TContact.SetacceptCommands(AIndex : Integer; const AValue : TContactTypeacceptCommandsArray);
begin
If (FacceptCommands=AValue) then exit;
@@ -1111,7 +1096,7 @@ end;
-Procedure TContact.SetacceptTypes(AIndex : Integer; AValue : TStringArray);
+Procedure TContact.SetacceptTypes(AIndex : Integer; const AValue : TStringArray);
begin
If (FacceptTypes=AValue) then exit;
@@ -1141,7 +1126,7 @@ end;
-Procedure TContact.SetimageUrls(AIndex : Integer; AValue : TStringArray);
+Procedure TContact.SetimageUrls(AIndex : Integer; const AValue : TStringArray);
begin
If (FimageUrls=AValue) then exit;
@@ -1171,7 +1156,7 @@ end;
-Procedure TContact.Setpriority(AIndex : Integer; AValue : integer);
+Procedure TContact.Setpriority(AIndex : Integer; const AValue : integer);
begin
If (Fpriority=AValue) then exit;
@@ -1181,7 +1166,7 @@ end;
-Procedure TContact.SetsharingFeatures(AIndex : Integer; AValue : TStringArray);
+Procedure TContact.SetsharingFeatures(AIndex : Integer; const AValue : TStringArray);
begin
If (FsharingFeatures=AValue) then exit;
@@ -1255,7 +1240,7 @@ end;
--------------------------------------------------------------------}
-Procedure TContactsListResponse.Setitems(AIndex : Integer; AValue : TContactsListResponseTypeitemsArray);
+Procedure TContactsListResponse.Setitems(AIndex : Integer; const AValue : TContactsListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1295,7 +1280,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLocation.Setaccuracy(AIndex : Integer; AValue : double);
+Procedure TLocation.Setaccuracy(AIndex : Integer; const AValue : double);
begin
If (Faccuracy=AValue) then exit;
@@ -1345,7 +1330,7 @@ end;
-Procedure TLocation.Setlatitude(AIndex : Integer; AValue : double);
+Procedure TLocation.Setlatitude(AIndex : Integer; const AValue : double);
begin
If (Flatitude=AValue) then exit;
@@ -1355,7 +1340,7 @@ end;
-Procedure TLocation.Setlongitude(AIndex : Integer; AValue : double);
+Procedure TLocation.Setlongitude(AIndex : Integer; const AValue : double);
begin
If (Flongitude=AValue) then exit;
@@ -1365,7 +1350,7 @@ end;
-Procedure TLocation.Settimestamp(AIndex : Integer; AValue : TDatetime);
+Procedure TLocation.Settimestamp(AIndex : Integer; const AValue : TDatetime);
begin
If (Ftimestamp=AValue) then exit;
@@ -1382,7 +1367,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLocationsListResponse.Setitems(AIndex : Integer; AValue : TLocationsListResponseTypeitemsArray);
+Procedure TLocationsListResponse.Setitems(AIndex : Integer; const AValue : TLocationsListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1462,7 +1447,7 @@ end;
-Procedure TMenuItem.SetremoveWhenSelected(AIndex : Integer; AValue : boolean);
+Procedure TMenuItem.SetremoveWhenSelected(AIndex : Integer; const AValue : boolean);
begin
If (FremoveWhenSelected=AValue) then exit;
@@ -1472,7 +1457,7 @@ end;
-Procedure TMenuItem.Setvalues(AIndex : Integer; AValue : TMenuItemTypevaluesArray);
+Procedure TMenuItem.Setvalues(AIndex : Integer; const AValue : TMenuItemTypevaluesArray);
begin
If (Fvalues=AValue) then exit;
@@ -1569,7 +1554,7 @@ end;
-Procedure TNotification.SetuserActions(AIndex : Integer; AValue : TNotificationTypeuserActionsArray);
+Procedure TNotification.SetuserActions(AIndex : Integer; const AValue : TNotificationTypeuserActionsArray);
begin
If (FuserActions=AValue) then exit;
@@ -1619,7 +1604,7 @@ end;
--------------------------------------------------------------------}
-Procedure TNotificationConfig.SetdeliveryTime(AIndex : Integer; AValue : TDatetime);
+Procedure TNotificationConfig.SetdeliveryTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FdeliveryTime=AValue) then exit;
@@ -1723,7 +1708,7 @@ end;
-Procedure TSubscription.Setnotification(AIndex : Integer; AValue : TNotification);
+Procedure TSubscription.Setnotification(AIndex : Integer; const AValue : TNotification);
begin
If (Fnotification=AValue) then exit;
@@ -1733,7 +1718,7 @@ end;
-Procedure TSubscription.Setoperation(AIndex : Integer; AValue : TStringArray);
+Procedure TSubscription.Setoperation(AIndex : Integer; const AValue : TStringArray);
begin
If (Foperation=AValue) then exit;
@@ -1743,7 +1728,7 @@ end;
-Procedure TSubscription.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TSubscription.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -1793,7 +1778,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSubscriptionsListResponse.Setitems(AIndex : Integer; AValue : TSubscriptionsListResponseTypeitemsArray);
+Procedure TSubscriptionsListResponse.Setitems(AIndex : Integer; const AValue : TSubscriptionsListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1833,7 +1818,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTimelineItem.Setattachments(AIndex : Integer; AValue : TTimelineItemTypeattachmentsArray);
+Procedure TTimelineItem.Setattachments(AIndex : Integer; const AValue : TTimelineItemTypeattachmentsArray);
begin
If (Fattachments=AValue) then exit;
@@ -1863,7 +1848,7 @@ end;
-Procedure TTimelineItem.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TTimelineItem.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -1873,7 +1858,7 @@ end;
-Procedure TTimelineItem.Setcreator(AIndex : Integer; AValue : TContact);
+Procedure TTimelineItem.Setcreator(AIndex : Integer; const AValue : TContact);
begin
If (Fcreator=AValue) then exit;
@@ -1883,7 +1868,7 @@ end;
-Procedure TTimelineItem.SetdisplayTime(AIndex : Integer; AValue : TDatetime);
+Procedure TTimelineItem.SetdisplayTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FdisplayTime=AValue) then exit;
@@ -1933,7 +1918,7 @@ end;
-Procedure TTimelineItem.SetisBundleCover(AIndex : Integer; AValue : boolean);
+Procedure TTimelineItem.SetisBundleCover(AIndex : Integer; const AValue : boolean);
begin
If (FisBundleCover=AValue) then exit;
@@ -1943,7 +1928,7 @@ end;
-Procedure TTimelineItem.SetisDeleted(AIndex : Integer; AValue : boolean);
+Procedure TTimelineItem.SetisDeleted(AIndex : Integer; const AValue : boolean);
begin
If (FisDeleted=AValue) then exit;
@@ -1953,7 +1938,7 @@ end;
-Procedure TTimelineItem.SetisPinned(AIndex : Integer; AValue : boolean);
+Procedure TTimelineItem.SetisPinned(AIndex : Integer; const AValue : boolean);
begin
If (FisPinned=AValue) then exit;
@@ -1973,7 +1958,7 @@ end;
-Procedure TTimelineItem.Setlocation(AIndex : Integer; AValue : TLocation);
+Procedure TTimelineItem.Setlocation(AIndex : Integer; const AValue : TLocation);
begin
If (Flocation=AValue) then exit;
@@ -1983,7 +1968,7 @@ end;
-Procedure TTimelineItem.SetmenuItems(AIndex : Integer; AValue : TTimelineItemTypemenuItemsArray);
+Procedure TTimelineItem.SetmenuItems(AIndex : Integer; const AValue : TTimelineItemTypemenuItemsArray);
begin
If (FmenuItems=AValue) then exit;
@@ -1993,7 +1978,7 @@ end;
-Procedure TTimelineItem.Setnotification(AIndex : Integer; AValue : TNotificationConfig);
+Procedure TTimelineItem.Setnotification(AIndex : Integer; const AValue : TNotificationConfig);
begin
If (Fnotification=AValue) then exit;
@@ -2003,7 +1988,7 @@ end;
-Procedure TTimelineItem.SetpinScore(AIndex : Integer; AValue : integer);
+Procedure TTimelineItem.SetpinScore(AIndex : Integer; const AValue : integer);
begin
If (FpinScore=AValue) then exit;
@@ -2013,7 +1998,7 @@ end;
-Procedure TTimelineItem.Setrecipients(AIndex : Integer; AValue : TTimelineItemTyperecipientsArray);
+Procedure TTimelineItem.Setrecipients(AIndex : Integer; const AValue : TTimelineItemTyperecipientsArray);
begin
If (Frecipients=AValue) then exit;
@@ -2083,7 +2068,7 @@ end;
-Procedure TTimelineItem.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TTimelineItem.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -2115,7 +2100,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTimelineListResponse.Setitems(AIndex : Integer; AValue : TTimelineListResponseTypeitemsArray);
+Procedure TTimelineListResponse.Setitems(AIndex : Integer; const AValue : TTimelineListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2751,7 +2736,7 @@ end;
Class Function TMirrorAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20151206';
end;
Class Function TMirrorAPI.APIID : String;
@@ -2805,7 +2790,7 @@ end;
Class Function TMirrorAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TMirrorAPI.APIbasePath : string;
@@ -2817,7 +2802,7 @@ end;
Class Function TMirrorAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/mirror/v1/';
+ Result:='https://www.googleapis.com/mirror/v1/';
end;
Class Function TMirrorAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlemonitoring.pp b/packages/googleapi/src/googlemonitoring.pp
new file mode 100644
index 0000000000..c38bfcde42
--- /dev/null
+++ b/packages/googleapi/src/googlemonitoring.pp
@@ -0,0 +1,3702 @@
+unit googlemonitoring;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TCreateCollectdTimeSeriesRequest = Class;
+ TMonitoredResource = Class;
+ TCollectdPayload = Class;
+ TCollectdValue = Class;
+ TTypedValue = Class;
+ TDistribution = Class;
+ TRange = Class;
+ TBucketOptions = Class;
+ TLinear = Class;
+ TExponential = Class;
+ TExplicit = Class;
+ TEmpty = Class;
+ TListGroupsResponse = Class;
+ TGroup = Class;
+ TListGroupMembersResponse = Class;
+ TListMonitoredResourceDescriptorsResponse = Class;
+ TMonitoredResourceDescriptor = Class;
+ TLabelDescriptor = Class;
+ TListMetricDescriptorsResponse = Class;
+ TMetricDescriptor = Class;
+ TListTimeSeriesResponse = Class;
+ TTimeSeries = Class;
+ TMetric = Class;
+ TPoint = Class;
+ TTimeInterval = Class;
+ TCreateTimeSeriesRequest = Class;
+ TType = Class;
+ TField = Class;
+ TOption = Class;
+ TSourceContext = Class;
+ TCreateCollectdTimeSeriesRequestArray = Array of TCreateCollectdTimeSeriesRequest;
+ TMonitoredResourceArray = Array of TMonitoredResource;
+ TCollectdPayloadArray = Array of TCollectdPayload;
+ TCollectdValueArray = Array of TCollectdValue;
+ TTypedValueArray = Array of TTypedValue;
+ TDistributionArray = Array of TDistribution;
+ TRangeArray = Array of TRange;
+ TBucketOptionsArray = Array of TBucketOptions;
+ TLinearArray = Array of TLinear;
+ TExponentialArray = Array of TExponential;
+ TExplicitArray = Array of TExplicit;
+ TEmptyArray = Array of TEmpty;
+ TListGroupsResponseArray = Array of TListGroupsResponse;
+ TGroupArray = Array of TGroup;
+ TListGroupMembersResponseArray = Array of TListGroupMembersResponse;
+ TListMonitoredResourceDescriptorsResponseArray = Array of TListMonitoredResourceDescriptorsResponse;
+ TMonitoredResourceDescriptorArray = Array of TMonitoredResourceDescriptor;
+ TLabelDescriptorArray = Array of TLabelDescriptor;
+ TListMetricDescriptorsResponseArray = Array of TListMetricDescriptorsResponse;
+ TMetricDescriptorArray = Array of TMetricDescriptor;
+ TListTimeSeriesResponseArray = Array of TListTimeSeriesResponse;
+ TTimeSeriesArray = Array of TTimeSeries;
+ TMetricArray = Array of TMetric;
+ TPointArray = Array of TPoint;
+ TTimeIntervalArray = Array of TTimeInterval;
+ TCreateTimeSeriesRequestArray = Array of TCreateTimeSeriesRequest;
+ TTypeArray = Array of TType;
+ TFieldArray = Array of TField;
+ TOptionArray = Array of TOption;
+ TSourceContextArray = Array of TSourceContext;
+ //Anonymous types, using auto-generated names
+ TMonitoredResourceTypelabels = Class;
+ TCollectdPayloadTypemetadata = Class;
+ TMetricTypelabels = Class;
+ TOptionTypevalue = Class;
+ TCreateCollectdTimeSeriesRequestTypecollectdPayloadsArray = Array of TCollectdPayload;
+ TCollectdPayloadTypevaluesArray = Array of TCollectdValue;
+ TListGroupsResponseTypegroupArray = Array of TGroup;
+ TListGroupMembersResponseTypemembersArray = Array of TMonitoredResource;
+ TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray = Array of TMonitoredResourceDescriptor;
+ TMonitoredResourceDescriptorTypelabelsArray = Array of TLabelDescriptor;
+ TListMetricDescriptorsResponseTypemetricDescriptorsArray = Array of TMetricDescriptor;
+ TMetricDescriptorTypelabelsArray = Array of TLabelDescriptor;
+ TListTimeSeriesResponseTypetimeSeriesArray = Array of TTimeSeries;
+ TTimeSeriesTypepointsArray = Array of TPoint;
+ TCreateTimeSeriesRequestTypetimeSeriesArray = Array of TTimeSeries;
+ TTypeTypefieldsArray = Array of TField;
+ TTypeTypeoptionsArray = Array of TOption;
+ TFieldTypeoptionsArray = Array of TOption;
+
+ { --------------------------------------------------------------------
+ TCreateCollectdTimeSeriesRequest
+ --------------------------------------------------------------------}
+
+ TCreateCollectdTimeSeriesRequest = Class(TGoogleBaseObject)
+ Private
+ Fresource : TMonitoredResource;
+ FcollectdVersion : String;
+ FcollectdPayloads : TCreateCollectdTimeSeriesRequestTypecollectdPayloadsArray;
+ Protected
+ //Property setters
+ Procedure Setresource(AIndex : Integer; const AValue : TMonitoredResource); virtual;
+ Procedure SetcollectdVersion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcollectdPayloads(AIndex : Integer; const AValue : TCreateCollectdTimeSeriesRequestTypecollectdPayloadsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property resource : TMonitoredResource Index 0 Read Fresource Write Setresource;
+ Property collectdVersion : String Index 8 Read FcollectdVersion Write SetcollectdVersion;
+ Property collectdPayloads : TCreateCollectdTimeSeriesRequestTypecollectdPayloadsArray Index 16 Read FcollectdPayloads Write SetcollectdPayloads;
+ end;
+ TCreateCollectdTimeSeriesRequestClass = Class of TCreateCollectdTimeSeriesRequest;
+
+ { --------------------------------------------------------------------
+ TMonitoredResourceTypelabels
+ --------------------------------------------------------------------}
+
+ TMonitoredResourceTypelabels = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TMonitoredResourceTypelabelsClass = Class of TMonitoredResourceTypelabels;
+
+ { --------------------------------------------------------------------
+ TMonitoredResource
+ --------------------------------------------------------------------}
+
+ TMonitoredResource = Class(TGoogleBaseObject)
+ Private
+ F_type : String;
+ Flabels : TMonitoredResourceTypelabels;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TMonitoredResourceTypelabels); virtual;
+ Public
+ Published
+ Property _type : String Index 0 Read F_type Write Set_type;
+ Property labels : TMonitoredResourceTypelabels Index 8 Read Flabels Write Setlabels;
+ end;
+ TMonitoredResourceClass = Class of TMonitoredResource;
+
+ { --------------------------------------------------------------------
+ TCollectdPayloadTypemetadata
+ --------------------------------------------------------------------}
+
+ TCollectdPayloadTypemetadata = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TCollectdPayloadTypemetadataClass = Class of TCollectdPayloadTypemetadata;
+
+ { --------------------------------------------------------------------
+ TCollectdPayload
+ --------------------------------------------------------------------}
+
+ TCollectdPayload = Class(TGoogleBaseObject)
+ Private
+ Fvalues : TCollectdPayloadTypevaluesArray;
+ FstartTime : String;
+ FendTime : String;
+ Fplugin : String;
+ FpluginInstance : String;
+ F_type : String;
+ FtypeInstance : String;
+ Fmetadata : TCollectdPayloadTypemetadata;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setvalues(AIndex : Integer; const AValue : TCollectdPayloadTypevaluesArray); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setplugin(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpluginInstance(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettypeInstance(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TCollectdPayloadTypemetadata); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property values : TCollectdPayloadTypevaluesArray Index 0 Read Fvalues Write Setvalues;
+ Property startTime : String Index 8 Read FstartTime Write SetstartTime;
+ Property endTime : String Index 16 Read FendTime Write SetendTime;
+ Property plugin : String Index 24 Read Fplugin Write Setplugin;
+ Property pluginInstance : String Index 32 Read FpluginInstance Write SetpluginInstance;
+ Property _type : String Index 40 Read F_type Write Set_type;
+ Property typeInstance : String Index 48 Read FtypeInstance Write SettypeInstance;
+ Property metadata : TCollectdPayloadTypemetadata Index 56 Read Fmetadata Write Setmetadata;
+ end;
+ TCollectdPayloadClass = Class of TCollectdPayload;
+
+ { --------------------------------------------------------------------
+ TCollectdValue
+ --------------------------------------------------------------------}
+
+ TCollectdValue = Class(TGoogleBaseObject)
+ Private
+ FdataSourceName : String;
+ FdataSourceType : String;
+ Fvalue : TTypedValue;
+ Protected
+ //Property setters
+ Procedure SetdataSourceName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdataSourceType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : TTypedValue); virtual;
+ Public
+ Published
+ Property dataSourceName : String Index 0 Read FdataSourceName Write SetdataSourceName;
+ Property dataSourceType : String Index 8 Read FdataSourceType Write SetdataSourceType;
+ Property value : TTypedValue Index 16 Read Fvalue Write Setvalue;
+ end;
+ TCollectdValueClass = Class of TCollectdValue;
+
+ { --------------------------------------------------------------------
+ TTypedValue
+ --------------------------------------------------------------------}
+
+ TTypedValue = Class(TGoogleBaseObject)
+ Private
+ FboolValue : boolean;
+ Fint64Value : String;
+ FdoubleValue : double;
+ FstringValue : String;
+ FdistributionValue : TDistribution;
+ Protected
+ //Property setters
+ Procedure SetboolValue(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setint64Value(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdoubleValue(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdistributionValue(AIndex : Integer; const AValue : TDistribution); virtual;
+ Public
+ Published
+ Property boolValue : boolean Index 0 Read FboolValue Write SetboolValue;
+ Property int64Value : String Index 8 Read Fint64Value Write Setint64Value;
+ Property doubleValue : double Index 16 Read FdoubleValue Write SetdoubleValue;
+ Property stringValue : String Index 24 Read FstringValue Write SetstringValue;
+ Property distributionValue : TDistribution Index 32 Read FdistributionValue Write SetdistributionValue;
+ end;
+ TTypedValueClass = Class of TTypedValue;
+
+ { --------------------------------------------------------------------
+ TDistribution
+ --------------------------------------------------------------------}
+
+ TDistribution = Class(TGoogleBaseObject)
+ Private
+ Fcount : String;
+ Fmean : double;
+ FsumOfSquaredDeviation : double;
+ Frange : TRange;
+ FbucketOptions : TBucketOptions;
+ FbucketCounts : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmean(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetsumOfSquaredDeviation(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TRange); virtual;
+ Procedure SetbucketOptions(AIndex : Integer; const AValue : TBucketOptions); virtual;
+ Procedure SetbucketCounts(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 count : String Index 0 Read Fcount Write Setcount;
+ Property mean : double Index 8 Read Fmean Write Setmean;
+ Property sumOfSquaredDeviation : double Index 16 Read FsumOfSquaredDeviation Write SetsumOfSquaredDeviation;
+ Property range : TRange Index 24 Read Frange Write Setrange;
+ Property bucketOptions : TBucketOptions Index 32 Read FbucketOptions Write SetbucketOptions;
+ Property bucketCounts : TStringArray Index 40 Read FbucketCounts Write SetbucketCounts;
+ end;
+ TDistributionClass = Class of TDistribution;
+
+ { --------------------------------------------------------------------
+ TRange
+ --------------------------------------------------------------------}
+
+ TRange = Class(TGoogleBaseObject)
+ Private
+ Fmin : double;
+ Fmax : double;
+ Protected
+ //Property setters
+ Procedure Setmin(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setmax(AIndex : Integer; const AValue : double); virtual;
+ Public
+ Published
+ Property min : double Index 0 Read Fmin Write Setmin;
+ Property max : double Index 8 Read Fmax Write Setmax;
+ end;
+ TRangeClass = Class of TRange;
+
+ { --------------------------------------------------------------------
+ TBucketOptions
+ --------------------------------------------------------------------}
+
+ TBucketOptions = Class(TGoogleBaseObject)
+ Private
+ FlinearBuckets : TLinear;
+ FexponentialBuckets : TExponential;
+ FexplicitBuckets : TExplicit;
+ Protected
+ //Property setters
+ Procedure SetlinearBuckets(AIndex : Integer; const AValue : TLinear); virtual;
+ Procedure SetexponentialBuckets(AIndex : Integer; const AValue : TExponential); virtual;
+ Procedure SetexplicitBuckets(AIndex : Integer; const AValue : TExplicit); virtual;
+ Public
+ Published
+ Property linearBuckets : TLinear Index 0 Read FlinearBuckets Write SetlinearBuckets;
+ Property exponentialBuckets : TExponential Index 8 Read FexponentialBuckets Write SetexponentialBuckets;
+ Property explicitBuckets : TExplicit Index 16 Read FexplicitBuckets Write SetexplicitBuckets;
+ end;
+ TBucketOptionsClass = Class of TBucketOptions;
+
+ { --------------------------------------------------------------------
+ TLinear
+ --------------------------------------------------------------------}
+
+ TLinear = Class(TGoogleBaseObject)
+ Private
+ FnumFiniteBuckets : integer;
+ Fwidth : double;
+ Foffset : double;
+ Protected
+ //Property setters
+ Procedure SetnumFiniteBuckets(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setoffset(AIndex : Integer; const AValue : double); virtual;
+ Public
+ Published
+ Property numFiniteBuckets : integer Index 0 Read FnumFiniteBuckets Write SetnumFiniteBuckets;
+ Property width : double Index 8 Read Fwidth Write Setwidth;
+ Property offset : double Index 16 Read Foffset Write Setoffset;
+ end;
+ TLinearClass = Class of TLinear;
+
+ { --------------------------------------------------------------------
+ TExponential
+ --------------------------------------------------------------------}
+
+ TExponential = Class(TGoogleBaseObject)
+ Private
+ FnumFiniteBuckets : integer;
+ FgrowthFactor : double;
+ Fscale : double;
+ Protected
+ //Property setters
+ Procedure SetnumFiniteBuckets(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetgrowthFactor(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setscale(AIndex : Integer; const AValue : double); virtual;
+ Public
+ Published
+ Property numFiniteBuckets : integer Index 0 Read FnumFiniteBuckets Write SetnumFiniteBuckets;
+ Property growthFactor : double Index 8 Read FgrowthFactor Write SetgrowthFactor;
+ Property scale : double Index 16 Read Fscale Write Setscale;
+ end;
+ TExponentialClass = Class of TExponential;
+
+ { --------------------------------------------------------------------
+ TExplicit
+ --------------------------------------------------------------------}
+
+ TExplicit = Class(TGoogleBaseObject)
+ Private
+ Fbounds : TdoubleArray;
+ Protected
+ //Property setters
+ Procedure Setbounds(AIndex : Integer; const AValue : TdoubleArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property bounds : TdoubleArray Index 0 Read Fbounds Write Setbounds;
+ end;
+ TExplicitClass = Class of TExplicit;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TListGroupsResponse
+ --------------------------------------------------------------------}
+
+ TListGroupsResponse = Class(TGoogleBaseObject)
+ Private
+ Fgroup : TListGroupsResponseTypegroupArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setgroup(AIndex : Integer; const AValue : TListGroupsResponseTypegroupArray); 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 group : TListGroupsResponseTypegroupArray Index 0 Read Fgroup Write Setgroup;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListGroupsResponseClass = Class of TListGroupsResponse;
+
+ { --------------------------------------------------------------------
+ TGroup
+ --------------------------------------------------------------------}
+
+ TGroup = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ FdisplayName : String;
+ FparentName : String;
+ Ffilter : String;
+ FisCluster : boolean;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetparentName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfilter(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetisCluster(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+ Property parentName : String Index 16 Read FparentName Write SetparentName;
+ Property filter : String Index 24 Read Ffilter Write Setfilter;
+ Property isCluster : boolean Index 32 Read FisCluster Write SetisCluster;
+ end;
+ TGroupClass = Class of TGroup;
+
+ { --------------------------------------------------------------------
+ TListGroupMembersResponse
+ --------------------------------------------------------------------}
+
+ TListGroupMembersResponse = Class(TGoogleBaseObject)
+ Private
+ Fmembers : TListGroupMembersResponseTypemembersArray;
+ FnextPageToken : String;
+ FtotalSize : integer;
+ Protected
+ //Property setters
+ Procedure Setmembers(AIndex : Integer; const AValue : TListGroupMembersResponseTypemembersArray); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettotalSize(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 members : TListGroupMembersResponseTypemembersArray Index 0 Read Fmembers Write Setmembers;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property totalSize : integer Index 16 Read FtotalSize Write SettotalSize;
+ end;
+ TListGroupMembersResponseClass = Class of TListGroupMembersResponse;
+
+ { --------------------------------------------------------------------
+ TListMonitoredResourceDescriptorsResponse
+ --------------------------------------------------------------------}
+
+ TListMonitoredResourceDescriptorsResponse = Class(TGoogleBaseObject)
+ Private
+ FresourceDescriptors : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetresourceDescriptors(AIndex : Integer; const AValue : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray); 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 resourceDescriptors : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray Index 0 Read FresourceDescriptors Write SetresourceDescriptors;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListMonitoredResourceDescriptorsResponseClass = Class of TListMonitoredResourceDescriptorsResponse;
+
+ { --------------------------------------------------------------------
+ TMonitoredResourceDescriptor
+ --------------------------------------------------------------------}
+
+ TMonitoredResourceDescriptor = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ F_type : String;
+ FdisplayName : String;
+ Fdescription : String;
+ Flabels : TMonitoredResourceDescriptorTypelabelsArray;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TMonitoredResourceDescriptorTypelabelsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ Property displayName : String Index 16 Read FdisplayName Write SetdisplayName;
+ Property description : String Index 24 Read Fdescription Write Setdescription;
+ Property labels : TMonitoredResourceDescriptorTypelabelsArray Index 32 Read Flabels Write Setlabels;
+ end;
+ TMonitoredResourceDescriptorClass = Class of TMonitoredResourceDescriptor;
+
+ { --------------------------------------------------------------------
+ TLabelDescriptor
+ --------------------------------------------------------------------}
+
+ TLabelDescriptor = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ FvalueType : String;
+ Fdescription : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvalueType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property valueType : String Index 8 Read FvalueType Write SetvalueType;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ end;
+ TLabelDescriptorClass = Class of TLabelDescriptor;
+
+ { --------------------------------------------------------------------
+ TListMetricDescriptorsResponse
+ --------------------------------------------------------------------}
+
+ TListMetricDescriptorsResponse = Class(TGoogleBaseObject)
+ Private
+ FmetricDescriptors : TListMetricDescriptorsResponseTypemetricDescriptorsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetmetricDescriptors(AIndex : Integer; const AValue : TListMetricDescriptorsResponseTypemetricDescriptorsArray); 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 metricDescriptors : TListMetricDescriptorsResponseTypemetricDescriptorsArray Index 0 Read FmetricDescriptors Write SetmetricDescriptors;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListMetricDescriptorsResponseClass = Class of TListMetricDescriptorsResponse;
+
+ { --------------------------------------------------------------------
+ TMetricDescriptor
+ --------------------------------------------------------------------}
+
+ TMetricDescriptor = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ F_type : String;
+ Flabels : TMetricDescriptorTypelabelsArray;
+ FmetricKind : String;
+ FvalueType : String;
+ F_unit : String;
+ Fdescription : String;
+ FdisplayName : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TMetricDescriptorTypelabelsArray); virtual;
+ Procedure SetmetricKind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvalueType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_unit(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayName(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 name : String Index 0 Read Fname Write Setname;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ Property labels : TMetricDescriptorTypelabelsArray Index 16 Read Flabels Write Setlabels;
+ Property metricKind : String Index 24 Read FmetricKind Write SetmetricKind;
+ Property valueType : String Index 32 Read FvalueType Write SetvalueType;
+ Property _unit : String Index 40 Read F_unit Write Set_unit;
+ Property description : String Index 48 Read Fdescription Write Setdescription;
+ Property displayName : String Index 56 Read FdisplayName Write SetdisplayName;
+ end;
+ TMetricDescriptorClass = Class of TMetricDescriptor;
+
+ { --------------------------------------------------------------------
+ TListTimeSeriesResponse
+ --------------------------------------------------------------------}
+
+ TListTimeSeriesResponse = Class(TGoogleBaseObject)
+ Private
+ FtimeSeries : TListTimeSeriesResponseTypetimeSeriesArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SettimeSeries(AIndex : Integer; const AValue : TListTimeSeriesResponseTypetimeSeriesArray); 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 timeSeries : TListTimeSeriesResponseTypetimeSeriesArray Index 0 Read FtimeSeries Write SettimeSeries;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListTimeSeriesResponseClass = Class of TListTimeSeriesResponse;
+
+ { --------------------------------------------------------------------
+ TTimeSeries
+ --------------------------------------------------------------------}
+
+ TTimeSeries = Class(TGoogleBaseObject)
+ Private
+ Fmetric : TMetric;
+ Fresource : TMonitoredResource;
+ FmetricKind : String;
+ FvalueType : String;
+ Fpoints : TTimeSeriesTypepointsArray;
+ Protected
+ //Property setters
+ Procedure Setmetric(AIndex : Integer; const AValue : TMetric); virtual;
+ Procedure Setresource(AIndex : Integer; const AValue : TMonitoredResource); virtual;
+ Procedure SetmetricKind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvalueType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpoints(AIndex : Integer; const AValue : TTimeSeriesTypepointsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property metric : TMetric Index 0 Read Fmetric Write Setmetric;
+ Property resource : TMonitoredResource Index 8 Read Fresource Write Setresource;
+ Property metricKind : String Index 16 Read FmetricKind Write SetmetricKind;
+ Property valueType : String Index 24 Read FvalueType Write SetvalueType;
+ Property points : TTimeSeriesTypepointsArray Index 32 Read Fpoints Write Setpoints;
+ end;
+ TTimeSeriesClass = Class of TTimeSeries;
+
+ { --------------------------------------------------------------------
+ TMetricTypelabels
+ --------------------------------------------------------------------}
+
+ TMetricTypelabels = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TMetricTypelabelsClass = Class of TMetricTypelabels;
+
+ { --------------------------------------------------------------------
+ TMetric
+ --------------------------------------------------------------------}
+
+ TMetric = Class(TGoogleBaseObject)
+ Private
+ F_type : String;
+ Flabels : TMetricTypelabels;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TMetricTypelabels); virtual;
+ Public
+ Published
+ Property _type : String Index 0 Read F_type Write Set_type;
+ Property labels : TMetricTypelabels Index 8 Read Flabels Write Setlabels;
+ end;
+ TMetricClass = Class of TMetric;
+
+ { --------------------------------------------------------------------
+ TPoint
+ --------------------------------------------------------------------}
+
+ TPoint = Class(TGoogleBaseObject)
+ Private
+ Finterval : TTimeInterval;
+ Fvalue : TTypedValue;
+ Protected
+ //Property setters
+ Procedure Setinterval(AIndex : Integer; const AValue : TTimeInterval); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : TTypedValue); virtual;
+ Public
+ Published
+ Property interval : TTimeInterval Index 0 Read Finterval Write Setinterval;
+ Property value : TTypedValue Index 8 Read Fvalue Write Setvalue;
+ end;
+ TPointClass = Class of TPoint;
+
+ { --------------------------------------------------------------------
+ TTimeInterval
+ --------------------------------------------------------------------}
+
+ TTimeInterval = Class(TGoogleBaseObject)
+ Private
+ FendTime : String;
+ FstartTime : String;
+ Protected
+ //Property setters
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property endTime : String Index 0 Read FendTime Write SetendTime;
+ Property startTime : String Index 8 Read FstartTime Write SetstartTime;
+ end;
+ TTimeIntervalClass = Class of TTimeInterval;
+
+ { --------------------------------------------------------------------
+ TCreateTimeSeriesRequest
+ --------------------------------------------------------------------}
+
+ TCreateTimeSeriesRequest = Class(TGoogleBaseObject)
+ Private
+ FtimeSeries : TCreateTimeSeriesRequestTypetimeSeriesArray;
+ Protected
+ //Property setters
+ Procedure SettimeSeries(AIndex : Integer; const AValue : TCreateTimeSeriesRequestTypetimeSeriesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property timeSeries : TCreateTimeSeriesRequestTypetimeSeriesArray Index 0 Read FtimeSeries Write SettimeSeries;
+ end;
+ TCreateTimeSeriesRequestClass = Class of TCreateTimeSeriesRequest;
+
+ { --------------------------------------------------------------------
+ TType
+ --------------------------------------------------------------------}
+
+ TType = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Ffields : TTypeTypefieldsArray;
+ Foneofs : TStringArray;
+ Foptions : TTypeTypeoptionsArray;
+ FsourceContext : TSourceContext;
+ Fsyntax : String;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfields(AIndex : Integer; const AValue : TTypeTypefieldsArray); virtual;
+ Procedure Setoneofs(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setoptions(AIndex : Integer; const AValue : TTypeTypeoptionsArray); virtual;
+ Procedure SetsourceContext(AIndex : Integer; const AValue : TSourceContext); virtual;
+ Procedure Setsyntax(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 name : String Index 0 Read Fname Write Setname;
+ Property fields : TTypeTypefieldsArray Index 8 Read Ffields Write Setfields;
+ Property oneofs : TStringArray Index 16 Read Foneofs Write Setoneofs;
+ Property options : TTypeTypeoptionsArray Index 24 Read Foptions Write Setoptions;
+ Property sourceContext : TSourceContext Index 32 Read FsourceContext Write SetsourceContext;
+ Property syntax : String Index 40 Read Fsyntax Write Setsyntax;
+ end;
+ TTypeClass = Class of TType;
+
+ { --------------------------------------------------------------------
+ TField
+ --------------------------------------------------------------------}
+
+ TField = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ Fcardinality : String;
+ Fnumber : integer;
+ Fname : String;
+ FtypeUrl : String;
+ FoneofIndex : integer;
+ F_packed : boolean;
+ Foptions : TFieldTypeoptionsArray;
+ FjsonName : String;
+ FdefaultValue : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcardinality(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnumber(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettypeUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoneofIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Set_packed(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setoptions(AIndex : Integer; const AValue : TFieldTypeoptionsArray); virtual;
+ Procedure SetjsonName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdefaultValue(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 kind : String Index 0 Read Fkind Write Setkind;
+ Property cardinality : String Index 8 Read Fcardinality Write Setcardinality;
+ Property number : integer Index 16 Read Fnumber Write Setnumber;
+ Property name : String Index 24 Read Fname Write Setname;
+ Property typeUrl : String Index 32 Read FtypeUrl Write SettypeUrl;
+ Property oneofIndex : integer Index 40 Read FoneofIndex Write SetoneofIndex;
+ Property _packed : boolean Index 48 Read F_packed Write Set_packed;
+ Property options : TFieldTypeoptionsArray Index 56 Read Foptions Write Setoptions;
+ Property jsonName : String Index 64 Read FjsonName Write SetjsonName;
+ Property defaultValue : String Index 72 Read FdefaultValue Write SetdefaultValue;
+ end;
+ TFieldClass = Class of TField;
+
+ { --------------------------------------------------------------------
+ TOptionTypevalue
+ --------------------------------------------------------------------}
+
+ TOptionTypevalue = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOptionTypevalueClass = Class of TOptionTypevalue;
+
+ { --------------------------------------------------------------------
+ TOption
+ --------------------------------------------------------------------}
+
+ TOption = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fvalue : TOptionTypevalue;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : TOptionTypevalue); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property value : TOptionTypevalue Index 8 Read Fvalue Write Setvalue;
+ end;
+ TOptionClass = Class of TOption;
+
+ { --------------------------------------------------------------------
+ TSourceContext
+ --------------------------------------------------------------------}
+
+ TSourceContext = Class(TGoogleBaseObject)
+ Private
+ FfileName : String;
+ Protected
+ //Property setters
+ Procedure SetfileName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property fileName : String Index 0 Read FfileName Write SetfileName;
+ end;
+ TSourceContextClass = Class of TSourceContext;
+
+ { --------------------------------------------------------------------
+ TProjectsCollectdTimeSeriesResource
+ --------------------------------------------------------------------}
+
+ TProjectsCollectdTimeSeriesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(_name: string; aCreateCollectdTimeSeriesRequest : TCreateCollectdTimeSeriesRequest) : TEmpty;overload;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsGroupsMembersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsGroupsMembersResource, method List
+
+ TProjectsGroupsMembersListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ filter : String;
+ intervalendTime : String;
+ intervalstartTime : String;
+ end;
+
+ TProjectsGroupsMembersResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(_name: string; AQuery : string = '') : TListGroupMembersResponse;
+ Function List(_name: string; AQuery : TProjectsGroupsMemberslistOptions) : TListGroupMembersResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsGroupsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsGroupsResource, method List
+
+ TProjectsGroupsListOptions = Record
+ childrenOfGroup : String;
+ ancestorsOfGroup : String;
+ descendantsOfGroup : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TProjectsGroupsResource, method Create
+
+ TProjectsGroupsCreateOptions = Record
+ validateOnly : boolean;
+ end;
+
+
+ //Optional query Options for TProjectsGroupsResource, method Update
+
+ TProjectsGroupsUpdateOptions = Record
+ validateOnly : boolean;
+ end;
+
+ TProjectsGroupsResource = Class(TGoogleResource)
+ Private
+ FMembersInstance : TProjectsGroupsMembersResource;
+ Function GetMembersInstance : TProjectsGroupsMembersResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(_name: string; AQuery : string = '') : TListGroupsResponse;
+ Function List(_name: string; AQuery : TProjectsGroupslistOptions) : TListGroupsResponse;
+ Function Get(_name: string) : TGroup;
+ Function Create(_name: string; aGroup : TGroup; AQuery : string = '') : TGroup;overload;
+ Function Create(_name: string; aGroup : TGroup; AQuery : TProjectsGroupscreateOptions) : TGroup;overload;
+ Function Update(_name: string; aGroup : TGroup; AQuery : string = '') : TGroup;
+ Function Update(_name: string; aGroup : TGroup; AQuery : TProjectsGroupsupdateOptions) : TGroup;
+ Function Delete(_name: string) : TEmpty;
+ Function CreateMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource;virtual;overload;
+ Function CreateMembersResource : TProjectsGroupsMembersResource;virtual;overload;
+ Property MembersResource : TProjectsGroupsMembersResource Read GetMembersInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsMonitoredResourceDescriptorsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsMonitoredResourceDescriptorsResource, method List
+
+ TProjectsMonitoredResourceDescriptorsListOptions = Record
+ filter : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsMonitoredResourceDescriptorsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(_name: string; AQuery : string = '') : TListMonitoredResourceDescriptorsResponse;
+ Function List(_name: string; AQuery : TProjectsMonitoredResourceDescriptorslistOptions) : TListMonitoredResourceDescriptorsResponse;
+ Function Get(_name: string) : TMonitoredResourceDescriptor;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsMetricDescriptorsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsMetricDescriptorsResource, method List
+
+ TProjectsMetricDescriptorsListOptions = Record
+ filter : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsMetricDescriptorsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(_name: string; AQuery : string = '') : TListMetricDescriptorsResponse;
+ Function List(_name: string; AQuery : TProjectsMetricDescriptorslistOptions) : TListMetricDescriptorsResponse;
+ Function Get(_name: string) : TMetricDescriptor;
+ Function Create(_name: string; aMetricDescriptor : TMetricDescriptor) : TMetricDescriptor;overload;
+ Function Delete(_name: string) : TEmpty;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsTimeSeriesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsTimeSeriesResource, method List
+
+ TProjectsTimeSeriesListOptions = Record
+ filter : String;
+ intervalendTime : String;
+ intervalstartTime : String;
+ aggregationalignmentPeriod : String;
+ aggregationperSeriesAligner : String;
+ aggregationcrossSeriesReducer : String;
+ aggregationgroupByFields : String;
+ orderBy : String;
+ view : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsTimeSeriesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(_name: string; AQuery : string = '') : TListTimeSeriesResponse;
+ Function List(_name: string; AQuery : TProjectsTimeSerieslistOptions) : TListTimeSeriesResponse;
+ Function Create(_name: string; aCreateTimeSeriesRequest : TCreateTimeSeriesRequest) : TEmpty;overload;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+ TProjectsResource = Class(TGoogleResource)
+ Private
+ FCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource;
+ FGroupsMembersInstance : TProjectsGroupsMembersResource;
+ FGroupsInstance : TProjectsGroupsResource;
+ FMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource;
+ FMetricDescriptorsInstance : TProjectsMetricDescriptorsResource;
+ FTimeSeriesInstance : TProjectsTimeSeriesResource;
+ Function GetCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource;virtual;
+ Function GetGroupsMembersInstance : TProjectsGroupsMembersResource;virtual;
+ Function GetGroupsInstance : TProjectsGroupsResource;virtual;
+ Function GetMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource;virtual;
+ Function GetMetricDescriptorsInstance : TProjectsMetricDescriptorsResource;virtual;
+ Function GetTimeSeriesInstance : TProjectsTimeSeriesResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CreateCollectdTimeSeriesResource(AOwner : TComponent) : TProjectsCollectdTimeSeriesResource;virtual;overload;
+ Function CreateCollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource;virtual;overload;
+ Function CreateGroupsMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource;virtual;overload;
+ Function CreateGroupsMembersResource : TProjectsGroupsMembersResource;virtual;overload;
+ Function CreateGroupsResource(AOwner : TComponent) : TProjectsGroupsResource;virtual;overload;
+ Function CreateGroupsResource : TProjectsGroupsResource;virtual;overload;
+ Function CreateMonitoredResourceDescriptorsResource(AOwner : TComponent) : TProjectsMonitoredResourceDescriptorsResource;virtual;overload;
+ Function CreateMonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource;virtual;overload;
+ Function CreateMetricDescriptorsResource(AOwner : TComponent) : TProjectsMetricDescriptorsResource;virtual;overload;
+ Function CreateMetricDescriptorsResource : TProjectsMetricDescriptorsResource;virtual;overload;
+ Function CreateTimeSeriesResource(AOwner : TComponent) : TProjectsTimeSeriesResource;virtual;overload;
+ Function CreateTimeSeriesResource : TProjectsTimeSeriesResource;virtual;overload;
+ Property CollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource Read GetCollectdTimeSeriesInstance;
+ Property GroupsMembersResource : TProjectsGroupsMembersResource Read GetGroupsMembersInstance;
+ Property GroupsResource : TProjectsGroupsResource Read GetGroupsInstance;
+ Property MonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource Read GetMonitoredResourceDescriptorsInstance;
+ Property MetricDescriptorsResource : TProjectsMetricDescriptorsResource Read GetMetricDescriptorsInstance;
+ Property TimeSeriesResource : TProjectsTimeSeriesResource Read GetTimeSeriesInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TMonitoringAPI
+ --------------------------------------------------------------------}
+
+ TMonitoringAPI = Class(TGoogleAPI)
+ Private
+ FProjectsCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource;
+ FProjectsGroupsMembersInstance : TProjectsGroupsMembersResource;
+ FProjectsGroupsInstance : TProjectsGroupsResource;
+ FProjectsMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource;
+ FProjectsMetricDescriptorsInstance : TProjectsMetricDescriptorsResource;
+ FProjectsTimeSeriesInstance : TProjectsTimeSeriesResource;
+ FProjectsInstance : TProjectsResource;
+ Function GetProjectsCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource;virtual;
+ Function GetProjectsGroupsMembersInstance : TProjectsGroupsMembersResource;virtual;
+ Function GetProjectsGroupsInstance : TProjectsGroupsResource;virtual;
+ Function GetProjectsMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource;virtual;
+ Function GetProjectsMetricDescriptorsInstance : TProjectsMetricDescriptorsResource;virtual;
+ Function GetProjectsTimeSeriesInstance : TProjectsTimeSeriesResource;virtual;
+ Function GetProjectsInstance : TProjectsResource;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 CreateProjectsCollectdTimeSeriesResource(AOwner : TComponent) : TProjectsCollectdTimeSeriesResource;virtual;overload;
+ Function CreateProjectsCollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource;virtual;overload;
+ Function CreateProjectsGroupsMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource;virtual;overload;
+ Function CreateProjectsGroupsMembersResource : TProjectsGroupsMembersResource;virtual;overload;
+ Function CreateProjectsGroupsResource(AOwner : TComponent) : TProjectsGroupsResource;virtual;overload;
+ Function CreateProjectsGroupsResource : TProjectsGroupsResource;virtual;overload;
+ Function CreateProjectsMonitoredResourceDescriptorsResource(AOwner : TComponent) : TProjectsMonitoredResourceDescriptorsResource;virtual;overload;
+ Function CreateProjectsMonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource;virtual;overload;
+ Function CreateProjectsMetricDescriptorsResource(AOwner : TComponent) : TProjectsMetricDescriptorsResource;virtual;overload;
+ Function CreateProjectsMetricDescriptorsResource : TProjectsMetricDescriptorsResource;virtual;overload;
+ Function CreateProjectsTimeSeriesResource(AOwner : TComponent) : TProjectsTimeSeriesResource;virtual;overload;
+ Function CreateProjectsTimeSeriesResource : TProjectsTimeSeriesResource;virtual;overload;
+ Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ProjectsCollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource Read GetProjectsCollectdTimeSeriesInstance;
+ Property ProjectsGroupsMembersResource : TProjectsGroupsMembersResource Read GetProjectsGroupsMembersInstance;
+ Property ProjectsGroupsResource : TProjectsGroupsResource Read GetProjectsGroupsInstance;
+ Property ProjectsMonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource Read GetProjectsMonitoredResourceDescriptorsInstance;
+ Property ProjectsMetricDescriptorsResource : TProjectsMetricDescriptorsResource Read GetProjectsMetricDescriptorsInstance;
+ Property ProjectsTimeSeriesResource : TProjectsTimeSeriesResource Read GetProjectsTimeSeriesInstance;
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TCreateCollectdTimeSeriesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TCreateCollectdTimeSeriesRequest.Setresource(AIndex : Integer; const AValue : TMonitoredResource);
+
+begin
+ If (Fresource=AValue) then exit;
+ Fresource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreateCollectdTimeSeriesRequest.SetcollectdVersion(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcollectdVersion=AValue) then exit;
+ FcollectdVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreateCollectdTimeSeriesRequest.SetcollectdPayloads(AIndex : Integer; const AValue : TCreateCollectdTimeSeriesRequestTypecollectdPayloadsArray);
+
+begin
+ If (FcollectdPayloads=AValue) then exit;
+ FcollectdPayloads:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreateCollectdTimeSeriesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'collectdpayloads' : SetLength(FcollectdPayloads,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMonitoredResourceTypelabels
+ --------------------------------------------------------------------}
+
+
+Class Function TMonitoredResourceTypelabels.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TMonitoredResource
+ --------------------------------------------------------------------}
+
+
+Procedure TMonitoredResource.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMonitoredResource.Setlabels(AIndex : Integer; const AValue : TMonitoredResourceTypelabels);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TMonitoredResource.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TCollectdPayloadTypemetadata
+ --------------------------------------------------------------------}
+
+
+Class Function TCollectdPayloadTypemetadata.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCollectdPayload
+ --------------------------------------------------------------------}
+
+
+Procedure TCollectdPayload.Setvalues(AIndex : Integer; const AValue : TCollectdPayloadTypevaluesArray);
+
+begin
+ If (Fvalues=AValue) then exit;
+ Fvalues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCollectdPayload.SetstartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTime=AValue) then exit;
+ FstartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCollectdPayload.SetendTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCollectdPayload.Setplugin(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fplugin=AValue) then exit;
+ Fplugin:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCollectdPayload.SetpluginInstance(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpluginInstance=AValue) then exit;
+ FpluginInstance:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCollectdPayload.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCollectdPayload.SettypeInstance(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtypeInstance=AValue) then exit;
+ FtypeInstance:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCollectdPayload.Setmetadata(AIndex : Integer; const AValue : TCollectdPayloadTypemetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TCollectdPayload.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 TCollectdPayload.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'values' : SetLength(Fvalues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCollectdValue
+ --------------------------------------------------------------------}
+
+
+Procedure TCollectdValue.SetdataSourceName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdataSourceName=AValue) then exit;
+ FdataSourceName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCollectdValue.SetdataSourceType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdataSourceType=AValue) then exit;
+ FdataSourceType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCollectdValue.Setvalue(AIndex : Integer; const AValue : TTypedValue);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTypedValue
+ --------------------------------------------------------------------}
+
+
+Procedure TTypedValue.SetboolValue(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FboolValue=AValue) then exit;
+ FboolValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTypedValue.Setint64Value(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fint64Value=AValue) then exit;
+ Fint64Value:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTypedValue.SetdoubleValue(AIndex : Integer; const AValue : double);
+
+begin
+ If (FdoubleValue=AValue) then exit;
+ FdoubleValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTypedValue.SetstringValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstringValue=AValue) then exit;
+ FstringValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTypedValue.SetdistributionValue(AIndex : Integer; const AValue : TDistribution);
+
+begin
+ If (FdistributionValue=AValue) then exit;
+ FdistributionValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDistribution
+ --------------------------------------------------------------------}
+
+
+Procedure TDistribution.Setcount(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcount=AValue) then exit;
+ Fcount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDistribution.Setmean(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fmean=AValue) then exit;
+ Fmean:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDistribution.SetsumOfSquaredDeviation(AIndex : Integer; const AValue : double);
+
+begin
+ If (FsumOfSquaredDeviation=AValue) then exit;
+ FsumOfSquaredDeviation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDistribution.Setrange(AIndex : Integer; const AValue : TRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDistribution.SetbucketOptions(AIndex : Integer; const AValue : TBucketOptions);
+
+begin
+ If (FbucketOptions=AValue) then exit;
+ FbucketOptions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDistribution.SetbucketCounts(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FbucketCounts=AValue) then exit;
+ FbucketCounts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDistribution.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'bucketcounts' : SetLength(FbucketCounts,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TRange
+ --------------------------------------------------------------------}
+
+
+Procedure TRange.Setmin(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fmin=AValue) then exit;
+ Fmin:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRange.Setmax(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fmax=AValue) then exit;
+ Fmax:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBucketOptions
+ --------------------------------------------------------------------}
+
+
+Procedure TBucketOptions.SetlinearBuckets(AIndex : Integer; const AValue : TLinear);
+
+begin
+ If (FlinearBuckets=AValue) then exit;
+ FlinearBuckets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBucketOptions.SetexponentialBuckets(AIndex : Integer; const AValue : TExponential);
+
+begin
+ If (FexponentialBuckets=AValue) then exit;
+ FexponentialBuckets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBucketOptions.SetexplicitBuckets(AIndex : Integer; const AValue : TExplicit);
+
+begin
+ If (FexplicitBuckets=AValue) then exit;
+ FexplicitBuckets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLinear
+ --------------------------------------------------------------------}
+
+
+Procedure TLinear.SetnumFiniteBuckets(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FnumFiniteBuckets=AValue) then exit;
+ FnumFiniteBuckets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLinear.Setwidth(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fwidth=AValue) then exit;
+ Fwidth:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLinear.Setoffset(AIndex : Integer; const AValue : double);
+
+begin
+ If (Foffset=AValue) then exit;
+ Foffset:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TExponential
+ --------------------------------------------------------------------}
+
+
+Procedure TExponential.SetnumFiniteBuckets(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FnumFiniteBuckets=AValue) then exit;
+ FnumFiniteBuckets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExponential.SetgrowthFactor(AIndex : Integer; const AValue : double);
+
+begin
+ If (FgrowthFactor=AValue) then exit;
+ FgrowthFactor:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExponential.Setscale(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fscale=AValue) then exit;
+ Fscale:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TExplicit
+ --------------------------------------------------------------------}
+
+
+Procedure TExplicit.Setbounds(AIndex : Integer; const AValue : TdoubleArray);
+
+begin
+ If (Fbounds=AValue) then exit;
+ Fbounds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TExplicit.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'bounds' : SetLength(Fbounds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListGroupsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListGroupsResponse.Setgroup(AIndex : Integer; const AValue : TListGroupsResponseTypegroupArray);
+
+begin
+ If (Fgroup=AValue) then exit;
+ Fgroup:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListGroupsResponse.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 TListGroupsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'group' : SetLength(Fgroup,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGroup
+ --------------------------------------------------------------------}
+
+
+Procedure TGroup.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroup.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroup.SetparentName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FparentName=AValue) then exit;
+ FparentName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroup.Setfilter(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffilter=AValue) then exit;
+ Ffilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGroup.SetisCluster(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisCluster=AValue) then exit;
+ FisCluster:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListGroupMembersResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListGroupMembersResponse.Setmembers(AIndex : Integer; const AValue : TListGroupMembersResponseTypemembersArray);
+
+begin
+ If (Fmembers=AValue) then exit;
+ Fmembers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListGroupMembersResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListGroupMembersResponse.SettotalSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalSize=AValue) then exit;
+ FtotalSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListGroupMembersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'members' : SetLength(Fmembers,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListMonitoredResourceDescriptorsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListMonitoredResourceDescriptorsResponse.SetresourceDescriptors(AIndex : Integer; const AValue : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray);
+
+begin
+ If (FresourceDescriptors=AValue) then exit;
+ FresourceDescriptors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListMonitoredResourceDescriptorsResponse.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 TListMonitoredResourceDescriptorsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'resourcedescriptors' : SetLength(FresourceDescriptors,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMonitoredResourceDescriptor
+ --------------------------------------------------------------------}
+
+
+Procedure TMonitoredResourceDescriptor.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMonitoredResourceDescriptor.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMonitoredResourceDescriptor.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMonitoredResourceDescriptor.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMonitoredResourceDescriptor.Setlabels(AIndex : Integer; const AValue : TMonitoredResourceDescriptorTypelabelsArray);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TMonitoredResourceDescriptor.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 TMonitoredResourceDescriptor.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'labels' : SetLength(Flabels,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLabelDescriptor
+ --------------------------------------------------------------------}
+
+
+Procedure TLabelDescriptor.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLabelDescriptor.SetvalueType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvalueType=AValue) then exit;
+ FvalueType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLabelDescriptor.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListMetricDescriptorsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListMetricDescriptorsResponse.SetmetricDescriptors(AIndex : Integer; const AValue : TListMetricDescriptorsResponseTypemetricDescriptorsArray);
+
+begin
+ If (FmetricDescriptors=AValue) then exit;
+ FmetricDescriptors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListMetricDescriptorsResponse.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 TListMetricDescriptorsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'metricdescriptors' : SetLength(FmetricDescriptors,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMetricDescriptor
+ --------------------------------------------------------------------}
+
+
+Procedure TMetricDescriptor.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricDescriptor.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricDescriptor.Setlabels(AIndex : Integer; const AValue : TMetricDescriptorTypelabelsArray);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricDescriptor.SetmetricKind(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmetricKind=AValue) then exit;
+ FmetricKind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricDescriptor.SetvalueType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvalueType=AValue) then exit;
+ FvalueType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricDescriptor.Set_unit(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_unit=AValue) then exit;
+ F_unit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricDescriptor.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetricDescriptor.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TMetricDescriptor.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ '_unit' : Result:='unit';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TMetricDescriptor.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'labels' : SetLength(Flabels,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListTimeSeriesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListTimeSeriesResponse.SettimeSeries(AIndex : Integer; const AValue : TListTimeSeriesResponseTypetimeSeriesArray);
+
+begin
+ If (FtimeSeries=AValue) then exit;
+ FtimeSeries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListTimeSeriesResponse.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 TListTimeSeriesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'timeseries' : SetLength(FtimeSeries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTimeSeries
+ --------------------------------------------------------------------}
+
+
+Procedure TTimeSeries.Setmetric(AIndex : Integer; const AValue : TMetric);
+
+begin
+ If (Fmetric=AValue) then exit;
+ Fmetric:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimeSeries.Setresource(AIndex : Integer; const AValue : TMonitoredResource);
+
+begin
+ If (Fresource=AValue) then exit;
+ Fresource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimeSeries.SetmetricKind(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmetricKind=AValue) then exit;
+ FmetricKind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimeSeries.SetvalueType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvalueType=AValue) then exit;
+ FvalueType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimeSeries.Setpoints(AIndex : Integer; const AValue : TTimeSeriesTypepointsArray);
+
+begin
+ If (Fpoints=AValue) then exit;
+ Fpoints:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTimeSeries.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'points' : SetLength(Fpoints,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMetricTypelabels
+ --------------------------------------------------------------------}
+
+
+Class Function TMetricTypelabels.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TMetric
+ --------------------------------------------------------------------}
+
+
+Procedure TMetric.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetric.Setlabels(AIndex : Integer; const AValue : TMetricTypelabels);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TMetric.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TPoint
+ --------------------------------------------------------------------}
+
+
+Procedure TPoint.Setinterval(AIndex : Integer; const AValue : TTimeInterval);
+
+begin
+ If (Finterval=AValue) then exit;
+ Finterval:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPoint.Setvalue(AIndex : Integer; const AValue : TTypedValue);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTimeInterval
+ --------------------------------------------------------------------}
+
+
+Procedure TTimeInterval.SetendTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimeInterval.SetstartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTime=AValue) then exit;
+ FstartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreateTimeSeriesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TCreateTimeSeriesRequest.SettimeSeries(AIndex : Integer; const AValue : TCreateTimeSeriesRequestTypetimeSeriesArray);
+
+begin
+ If (FtimeSeries=AValue) then exit;
+ FtimeSeries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCreateTimeSeriesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'timeseries' : SetLength(FtimeSeries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TType
+ --------------------------------------------------------------------}
+
+
+Procedure TType.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TType.Setfields(AIndex : Integer; const AValue : TTypeTypefieldsArray);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TType.Setoneofs(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Foneofs=AValue) then exit;
+ Foneofs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TType.Setoptions(AIndex : Integer; const AValue : TTypeTypeoptionsArray);
+
+begin
+ If (Foptions=AValue) then exit;
+ Foptions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TType.SetsourceContext(AIndex : Integer; const AValue : TSourceContext);
+
+begin
+ If (FsourceContext=AValue) then exit;
+ FsourceContext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TType.Setsyntax(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsyntax=AValue) then exit;
+ Fsyntax:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TType.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'fields' : SetLength(Ffields,ALength);
+ 'oneofs' : SetLength(Foneofs,ALength);
+ 'options' : SetLength(Foptions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TField
+ --------------------------------------------------------------------}
+
+
+Procedure TField.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TField.Setcardinality(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcardinality=AValue) then exit;
+ Fcardinality:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TField.Setnumber(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fnumber=AValue) then exit;
+ Fnumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TField.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TField.SettypeUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtypeUrl=AValue) then exit;
+ FtypeUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TField.SetoneofIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FoneofIndex=AValue) then exit;
+ FoneofIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TField.Set_packed(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (F_packed=AValue) then exit;
+ F_packed:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TField.Setoptions(AIndex : Integer; const AValue : TFieldTypeoptionsArray);
+
+begin
+ If (Foptions=AValue) then exit;
+ Foptions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TField.SetjsonName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FjsonName=AValue) then exit;
+ FjsonName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TField.SetdefaultValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdefaultValue=AValue) then exit;
+ FdefaultValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TField.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_packed' : Result:='packed';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TField.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'options' : SetLength(Foptions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOptionTypevalue
+ --------------------------------------------------------------------}
+
+
+Class Function TOptionTypevalue.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOption
+ --------------------------------------------------------------------}
+
+
+Procedure TOption.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOption.Setvalue(AIndex : Integer; const AValue : TOptionTypevalue);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSourceContext
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceContext.SetfileName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfileName=AValue) then exit;
+ FfileName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsCollectdTimeSeriesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsCollectdTimeSeriesResource.ResourceName : String;
+
+begin
+ Result:='collectdTimeSeries';
+end;
+
+Class Function TProjectsCollectdTimeSeriesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TmonitoringAPI;
+end;
+
+Function TProjectsCollectdTimeSeriesResource.Create(_name: string; aCreateCollectdTimeSeriesRequest : TCreateCollectdTimeSeriesRequest) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v3/{+name}/collectdTimeSeries';
+ _Methodid = 'monitoring.projects.collectdTimeSeries.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCreateCollectdTimeSeriesRequest,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsGroupsMembersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsGroupsMembersResource.ResourceName : String;
+
+begin
+ Result:='members';
+end;
+
+Class Function TProjectsGroupsMembersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TmonitoringAPI;
+end;
+
+Function TProjectsGroupsMembersResource.List(_name: string; AQuery : string = '') : TListGroupMembersResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v3/{+name}/members';
+ _Methodid = 'monitoring.projects.groups.members.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListGroupMembersResponse) as TListGroupMembersResponse;
+end;
+
+
+Function TProjectsGroupsMembersResource.List(_name: string; AQuery : TProjectsGroupsMemberslistOptions) : TListGroupMembersResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'interval.endTime',AQuery.intervalendTime);
+ AddToQuery(_Q,'interval.startTime',AQuery.intervalstartTime);
+ Result:=List(_name,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsGroupsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsGroupsResource.ResourceName : String;
+
+begin
+ Result:='groups';
+end;
+
+Class Function TProjectsGroupsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TmonitoringAPI;
+end;
+
+Function TProjectsGroupsResource.List(_name: string; AQuery : string = '') : TListGroupsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v3/{+name}/groups';
+ _Methodid = 'monitoring.projects.groups.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListGroupsResponse) as TListGroupsResponse;
+end;
+
+
+Function TProjectsGroupsResource.List(_name: string; AQuery : TProjectsGroupslistOptions) : TListGroupsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'childrenOfGroup',AQuery.childrenOfGroup);
+ AddToQuery(_Q,'ancestorsOfGroup',AQuery.ancestorsOfGroup);
+ AddToQuery(_Q,'descendantsOfGroup',AQuery.descendantsOfGroup);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
+end;
+
+Function TProjectsGroupsResource.Get(_name: string) : TGroup;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v3/{+name}';
+ _Methodid = 'monitoring.projects.groups.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TGroup) as TGroup;
+end;
+
+Function TProjectsGroupsResource.Create(_name: string; aGroup : TGroup; AQuery : string = '') : TGroup;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v3/{+name}/groups';
+ _Methodid = 'monitoring.projects.groups.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aGroup,TGroup) as TGroup;
+end;
+
+
+Function TProjectsGroupsResource.Create(_name: string; aGroup : TGroup; AQuery : TProjectsGroupscreateOptions) : TGroup;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'validateOnly',AQuery.validateOnly);
+ Result:=Create(_name,aGroup,_Q);
+end;
+
+Function TProjectsGroupsResource.Update(_name: string; aGroup : TGroup; AQuery : string = '') : TGroup;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v3/{+name}';
+ _Methodid = 'monitoring.projects.groups.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aGroup,TGroup) as TGroup;
+end;
+
+
+Function TProjectsGroupsResource.Update(_name: string; aGroup : TGroup; AQuery : TProjectsGroupsupdateOptions) : TGroup;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'validateOnly',AQuery.validateOnly);
+ Result:=Update(_name,aGroup,_Q);
+end;
+
+Function TProjectsGroupsResource.Delete(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v3/{+name}';
+ _Methodid = 'monitoring.projects.groups.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+
+
+Function TProjectsGroupsResource.GetMembersInstance : TProjectsGroupsMembersResource;
+
+begin
+ if (FMembersInstance=Nil) then
+ FMembersInstance:=CreateMembersResource;
+ Result:=FMembersInstance;
+end;
+
+Function TProjectsGroupsResource.CreateMembersResource : TProjectsGroupsMembersResource;
+
+begin
+ Result:=CreateMembersResource(Self);
+end;
+
+
+Function TProjectsGroupsResource.CreateMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource;
+
+begin
+ Result:=TProjectsGroupsMembersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsMonitoredResourceDescriptorsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsMonitoredResourceDescriptorsResource.ResourceName : String;
+
+begin
+ Result:='monitoredResourceDescriptors';
+end;
+
+Class Function TProjectsMonitoredResourceDescriptorsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TmonitoringAPI;
+end;
+
+Function TProjectsMonitoredResourceDescriptorsResource.List(_name: string; AQuery : string = '') : TListMonitoredResourceDescriptorsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v3/{+name}/monitoredResourceDescriptors';
+ _Methodid = 'monitoring.projects.monitoredResourceDescriptors.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListMonitoredResourceDescriptorsResponse) as TListMonitoredResourceDescriptorsResponse;
+end;
+
+
+Function TProjectsMonitoredResourceDescriptorsResource.List(_name: string; AQuery : TProjectsMonitoredResourceDescriptorslistOptions) : TListMonitoredResourceDescriptorsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
+end;
+
+Function TProjectsMonitoredResourceDescriptorsResource.Get(_name: string) : TMonitoredResourceDescriptor;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v3/{+name}';
+ _Methodid = 'monitoring.projects.monitoredResourceDescriptors.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TMonitoredResourceDescriptor) as TMonitoredResourceDescriptor;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsMetricDescriptorsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsMetricDescriptorsResource.ResourceName : String;
+
+begin
+ Result:='metricDescriptors';
+end;
+
+Class Function TProjectsMetricDescriptorsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TmonitoringAPI;
+end;
+
+Function TProjectsMetricDescriptorsResource.List(_name: string; AQuery : string = '') : TListMetricDescriptorsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v3/{+name}/metricDescriptors';
+ _Methodid = 'monitoring.projects.metricDescriptors.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListMetricDescriptorsResponse) as TListMetricDescriptorsResponse;
+end;
+
+
+Function TProjectsMetricDescriptorsResource.List(_name: string; AQuery : TProjectsMetricDescriptorslistOptions) : TListMetricDescriptorsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
+end;
+
+Function TProjectsMetricDescriptorsResource.Get(_name: string) : TMetricDescriptor;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v3/{+name}';
+ _Methodid = 'monitoring.projects.metricDescriptors.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TMetricDescriptor) as TMetricDescriptor;
+end;
+
+Function TProjectsMetricDescriptorsResource.Create(_name: string; aMetricDescriptor : TMetricDescriptor) : TMetricDescriptor;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v3/{+name}/metricDescriptors';
+ _Methodid = 'monitoring.projects.metricDescriptors.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aMetricDescriptor,TMetricDescriptor) as TMetricDescriptor;
+end;
+
+Function TProjectsMetricDescriptorsResource.Delete(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v3/{+name}';
+ _Methodid = 'monitoring.projects.metricDescriptors.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsTimeSeriesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsTimeSeriesResource.ResourceName : String;
+
+begin
+ Result:='timeSeries';
+end;
+
+Class Function TProjectsTimeSeriesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TmonitoringAPI;
+end;
+
+Function TProjectsTimeSeriesResource.List(_name: string; AQuery : string = '') : TListTimeSeriesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v3/{+name}/timeSeries';
+ _Methodid = 'monitoring.projects.timeSeries.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListTimeSeriesResponse) as TListTimeSeriesResponse;
+end;
+
+
+Function TProjectsTimeSeriesResource.List(_name: string; AQuery : TProjectsTimeSerieslistOptions) : TListTimeSeriesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'interval.endTime',AQuery.intervalendTime);
+ AddToQuery(_Q,'interval.startTime',AQuery.intervalstartTime);
+ AddToQuery(_Q,'aggregation.alignmentPeriod',AQuery.aggregationalignmentPeriod);
+ AddToQuery(_Q,'aggregation.perSeriesAligner',AQuery.aggregationperSeriesAligner);
+ AddToQuery(_Q,'aggregation.crossSeriesReducer',AQuery.aggregationcrossSeriesReducer);
+ AddToQuery(_Q,'aggregation.groupByFields',AQuery.aggregationgroupByFields);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'view',AQuery.view);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
+end;
+
+Function TProjectsTimeSeriesResource.Create(_name: string; aCreateTimeSeriesRequest : TCreateTimeSeriesRequest) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v3/{+name}/timeSeries';
+ _Methodid = 'monitoring.projects.timeSeries.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCreateTimeSeriesRequest,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TmonitoringAPI;
+end;
+
+
+
+Function TProjectsResource.GetCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource;
+
+begin
+ if (FCollectdTimeSeriesInstance=Nil) then
+ FCollectdTimeSeriesInstance:=CreateCollectdTimeSeriesResource;
+ Result:=FCollectdTimeSeriesInstance;
+end;
+
+Function TProjectsResource.CreateCollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource;
+
+begin
+ Result:=CreateCollectdTimeSeriesResource(Self);
+end;
+
+
+Function TProjectsResource.CreateCollectdTimeSeriesResource(AOwner : TComponent) : TProjectsCollectdTimeSeriesResource;
+
+begin
+ Result:=TProjectsCollectdTimeSeriesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetGroupsMembersInstance : TProjectsGroupsMembersResource;
+
+begin
+ if (FGroupsMembersInstance=Nil) then
+ FGroupsMembersInstance:=CreateGroupsMembersResource;
+ Result:=FGroupsMembersInstance;
+end;
+
+Function TProjectsResource.CreateGroupsMembersResource : TProjectsGroupsMembersResource;
+
+begin
+ Result:=CreateGroupsMembersResource(Self);
+end;
+
+
+Function TProjectsResource.CreateGroupsMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource;
+
+begin
+ Result:=TProjectsGroupsMembersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetGroupsInstance : TProjectsGroupsResource;
+
+begin
+ if (FGroupsInstance=Nil) then
+ FGroupsInstance:=CreateGroupsResource;
+ Result:=FGroupsInstance;
+end;
+
+Function TProjectsResource.CreateGroupsResource : TProjectsGroupsResource;
+
+begin
+ Result:=CreateGroupsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateGroupsResource(AOwner : TComponent) : TProjectsGroupsResource;
+
+begin
+ Result:=TProjectsGroupsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource;
+
+begin
+ if (FMonitoredResourceDescriptorsInstance=Nil) then
+ FMonitoredResourceDescriptorsInstance:=CreateMonitoredResourceDescriptorsResource;
+ Result:=FMonitoredResourceDescriptorsInstance;
+end;
+
+Function TProjectsResource.CreateMonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource;
+
+begin
+ Result:=CreateMonitoredResourceDescriptorsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateMonitoredResourceDescriptorsResource(AOwner : TComponent) : TProjectsMonitoredResourceDescriptorsResource;
+
+begin
+ Result:=TProjectsMonitoredResourceDescriptorsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetMetricDescriptorsInstance : TProjectsMetricDescriptorsResource;
+
+begin
+ if (FMetricDescriptorsInstance=Nil) then
+ FMetricDescriptorsInstance:=CreateMetricDescriptorsResource;
+ Result:=FMetricDescriptorsInstance;
+end;
+
+Function TProjectsResource.CreateMetricDescriptorsResource : TProjectsMetricDescriptorsResource;
+
+begin
+ Result:=CreateMetricDescriptorsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateMetricDescriptorsResource(AOwner : TComponent) : TProjectsMetricDescriptorsResource;
+
+begin
+ Result:=TProjectsMetricDescriptorsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetTimeSeriesInstance : TProjectsTimeSeriesResource;
+
+begin
+ if (FTimeSeriesInstance=Nil) then
+ FTimeSeriesInstance:=CreateTimeSeriesResource;
+ Result:=FTimeSeriesInstance;
+end;
+
+Function TProjectsResource.CreateTimeSeriesResource : TProjectsTimeSeriesResource;
+
+begin
+ Result:=CreateTimeSeriesResource(Self);
+end;
+
+
+Function TProjectsResource.CreateTimeSeriesResource(AOwner : TComponent) : TProjectsTimeSeriesResource;
+
+begin
+ Result:=TProjectsTimeSeriesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TMonitoringAPI
+ --------------------------------------------------------------------}
+
+Class Function TMonitoringAPI.APIName : String;
+
+begin
+ Result:='monitoring';
+end;
+
+Class Function TMonitoringAPI.APIVersion : String;
+
+begin
+ Result:='v3';
+end;
+
+Class Function TMonitoringAPI.APIRevision : String;
+
+begin
+ Result:='20160425';
+end;
+
+Class Function TMonitoringAPI.APIID : String;
+
+begin
+ Result:='monitoring:v3';
+end;
+
+Class Function TMonitoringAPI.APITitle : String;
+
+begin
+ Result:='Google Monitoring API';
+end;
+
+Class Function TMonitoringAPI.APIDescription : String;
+
+begin
+ Result:='Manages your Stackdriver monitoring data and configurations. Projects must be associated with a Stackdriver account, except for the following methods: [monitoredResourceDescriptors.list](v3/projects.monitoredResourceDescriptors/list), [monitoredResourceDescriptors.get](v3/projects.monitoredResourceDescriptors/get), [metricDescriptors.list](v3/projects.metricDescriptors/list), [metricDescriptors.get](v3/projects.metricDescriptors/get), and [timeSeries.list](v3/projects.timeSeries/list).';
+end;
+
+Class Function TMonitoringAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TMonitoringAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TMonitoringAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TMonitoringAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TMonitoringAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/monitoring/api/';
+end;
+
+Class Function TMonitoringAPI.APIrootUrl : string;
+
+begin
+ Result:='https://monitoring.googleapis.com/';
+end;
+
+Class Function TMonitoringAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TMonitoringAPI.APIbaseURL : String;
+
+begin
+ Result:='https://monitoring.googleapis.com/';
+end;
+
+Class Function TMonitoringAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TMonitoringAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TMonitoringAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TMonitoringAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,4);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+ Result[1].Name:='https://www.googleapis.com/auth/monitoring';
+ Result[1].Description:='View and write monitoring data for all of your Google and third-party Cloud and API projects';
+ Result[2].Name:='https://www.googleapis.com/auth/monitoring.read';
+ Result[2].Description:='View monitoring data for all of your Google Cloud and third-party projects';
+ Result[3].Name:='https://www.googleapis.com/auth/monitoring.write';
+ Result[3].Description:='Publish metric data to your Google Cloud projects';
+
+end;
+
+Class Function TMonitoringAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TMonitoringAPI.RegisterAPIResources;
+
+begin
+ TCreateCollectdTimeSeriesRequest.RegisterObject;
+ TMonitoredResourceTypelabels.RegisterObject;
+ TMonitoredResource.RegisterObject;
+ TCollectdPayloadTypemetadata.RegisterObject;
+ TCollectdPayload.RegisterObject;
+ TCollectdValue.RegisterObject;
+ TTypedValue.RegisterObject;
+ TDistribution.RegisterObject;
+ TRange.RegisterObject;
+ TBucketOptions.RegisterObject;
+ TLinear.RegisterObject;
+ TExponential.RegisterObject;
+ TExplicit.RegisterObject;
+ TEmpty.RegisterObject;
+ TListGroupsResponse.RegisterObject;
+ TGroup.RegisterObject;
+ TListGroupMembersResponse.RegisterObject;
+ TListMonitoredResourceDescriptorsResponse.RegisterObject;
+ TMonitoredResourceDescriptor.RegisterObject;
+ TLabelDescriptor.RegisterObject;
+ TListMetricDescriptorsResponse.RegisterObject;
+ TMetricDescriptor.RegisterObject;
+ TListTimeSeriesResponse.RegisterObject;
+ TTimeSeries.RegisterObject;
+ TMetricTypelabels.RegisterObject;
+ TMetric.RegisterObject;
+ TPoint.RegisterObject;
+ TTimeInterval.RegisterObject;
+ TCreateTimeSeriesRequest.RegisterObject;
+ TType.RegisterObject;
+ TField.RegisterObject;
+ TOptionTypevalue.RegisterObject;
+ TOption.RegisterObject;
+ TSourceContext.RegisterObject;
+end;
+
+
+Function TMonitoringAPI.GetProjectsCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource;
+
+begin
+ if (FProjectsCollectdTimeSeriesInstance=Nil) then
+ FProjectsCollectdTimeSeriesInstance:=CreateProjectsCollectdTimeSeriesResource;
+ Result:=FProjectsCollectdTimeSeriesInstance;
+end;
+
+Function TMonitoringAPI.CreateProjectsCollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource;
+
+begin
+ Result:=CreateProjectsCollectdTimeSeriesResource(Self);
+end;
+
+
+Function TMonitoringAPI.CreateProjectsCollectdTimeSeriesResource(AOwner : TComponent) : TProjectsCollectdTimeSeriesResource;
+
+begin
+ Result:=TProjectsCollectdTimeSeriesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TMonitoringAPI.GetProjectsGroupsMembersInstance : TProjectsGroupsMembersResource;
+
+begin
+ if (FProjectsGroupsMembersInstance=Nil) then
+ FProjectsGroupsMembersInstance:=CreateProjectsGroupsMembersResource;
+ Result:=FProjectsGroupsMembersInstance;
+end;
+
+Function TMonitoringAPI.CreateProjectsGroupsMembersResource : TProjectsGroupsMembersResource;
+
+begin
+ Result:=CreateProjectsGroupsMembersResource(Self);
+end;
+
+
+Function TMonitoringAPI.CreateProjectsGroupsMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource;
+
+begin
+ Result:=TProjectsGroupsMembersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TMonitoringAPI.GetProjectsGroupsInstance : TProjectsGroupsResource;
+
+begin
+ if (FProjectsGroupsInstance=Nil) then
+ FProjectsGroupsInstance:=CreateProjectsGroupsResource;
+ Result:=FProjectsGroupsInstance;
+end;
+
+Function TMonitoringAPI.CreateProjectsGroupsResource : TProjectsGroupsResource;
+
+begin
+ Result:=CreateProjectsGroupsResource(Self);
+end;
+
+
+Function TMonitoringAPI.CreateProjectsGroupsResource(AOwner : TComponent) : TProjectsGroupsResource;
+
+begin
+ Result:=TProjectsGroupsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TMonitoringAPI.GetProjectsMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource;
+
+begin
+ if (FProjectsMonitoredResourceDescriptorsInstance=Nil) then
+ FProjectsMonitoredResourceDescriptorsInstance:=CreateProjectsMonitoredResourceDescriptorsResource;
+ Result:=FProjectsMonitoredResourceDescriptorsInstance;
+end;
+
+Function TMonitoringAPI.CreateProjectsMonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource;
+
+begin
+ Result:=CreateProjectsMonitoredResourceDescriptorsResource(Self);
+end;
+
+
+Function TMonitoringAPI.CreateProjectsMonitoredResourceDescriptorsResource(AOwner : TComponent) : TProjectsMonitoredResourceDescriptorsResource;
+
+begin
+ Result:=TProjectsMonitoredResourceDescriptorsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TMonitoringAPI.GetProjectsMetricDescriptorsInstance : TProjectsMetricDescriptorsResource;
+
+begin
+ if (FProjectsMetricDescriptorsInstance=Nil) then
+ FProjectsMetricDescriptorsInstance:=CreateProjectsMetricDescriptorsResource;
+ Result:=FProjectsMetricDescriptorsInstance;
+end;
+
+Function TMonitoringAPI.CreateProjectsMetricDescriptorsResource : TProjectsMetricDescriptorsResource;
+
+begin
+ Result:=CreateProjectsMetricDescriptorsResource(Self);
+end;
+
+
+Function TMonitoringAPI.CreateProjectsMetricDescriptorsResource(AOwner : TComponent) : TProjectsMetricDescriptorsResource;
+
+begin
+ Result:=TProjectsMetricDescriptorsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TMonitoringAPI.GetProjectsTimeSeriesInstance : TProjectsTimeSeriesResource;
+
+begin
+ if (FProjectsTimeSeriesInstance=Nil) then
+ FProjectsTimeSeriesInstance:=CreateProjectsTimeSeriesResource;
+ Result:=FProjectsTimeSeriesInstance;
+end;
+
+Function TMonitoringAPI.CreateProjectsTimeSeriesResource : TProjectsTimeSeriesResource;
+
+begin
+ Result:=CreateProjectsTimeSeriesResource(Self);
+end;
+
+
+Function TMonitoringAPI.CreateProjectsTimeSeriesResource(AOwner : TComponent) : TProjectsTimeSeriesResource;
+
+begin
+ Result:=TProjectsTimeSeriesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TMonitoringAPI.GetProjectsInstance : TProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TMonitoringAPI.CreateProjectsResource : TProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TMonitoringAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+
+begin
+ Result:=TProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TMonitoringAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleoauth2.pp b/packages/googleapi/src/googleoauth2.pp
index 557e9d9742..e20896b721 100644
--- a/packages/googleapi/src/googleoauth2.pp
+++ b/packages/googleapi/src/googleoauth2.pp
@@ -1,19 +1,4 @@
unit googleoauth2;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:06
{$MODE objfpc}
{$H+}
@@ -74,7 +59,7 @@ type
Fkeys : TJwkTypekeysArray;
Protected
//Property setters
- Procedure Setkeys(AIndex : Integer; AValue : TJwkTypekeysArray); virtual;
+ Procedure Setkeys(AIndex : Integer; const AValue : TJwkTypekeysArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -105,12 +90,12 @@ type
Procedure Setaccess_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setaudience(AIndex : Integer; const AValue : String); virtual;
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
- Procedure Setexpires_in(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setexpires_in(AIndex : Integer; const AValue : integer); virtual;
Procedure Setissued_to(AIndex : Integer; const AValue : String); virtual;
Procedure Setscope(AIndex : Integer; const AValue : String); virtual;
Procedure Settoken_handle(AIndex : Integer; const AValue : String); virtual;
Procedure Setuser_id(AIndex : Integer; const AValue : String); virtual;
- Procedure Setverified_email(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setverified_email(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property access_type : String Index 0 Read Faccess_type Write Setaccess_type;
@@ -154,7 +139,7 @@ type
Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setpicture(AIndex : Integer; const AValue : String); virtual;
- Procedure Setverified_email(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setverified_email(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property email : String Index 0 Read Femail Write Setemail;
@@ -345,7 +330,7 @@ end;
--------------------------------------------------------------------}
-Procedure TJwk.Setkeys(AIndex : Integer; AValue : TJwkTypekeysArray);
+Procedure TJwk.Setkeys(AIndex : Integer; const AValue : TJwkTypekeysArray);
begin
If (Fkeys=AValue) then exit;
@@ -405,7 +390,7 @@ end;
-Procedure TTokeninfo.Setexpires_in(AIndex : Integer; AValue : integer);
+Procedure TTokeninfo.Setexpires_in(AIndex : Integer; const AValue : integer);
begin
If (Fexpires_in=AValue) then exit;
@@ -455,7 +440,7 @@ end;
-Procedure TTokeninfo.Setverified_email(AIndex : Integer; AValue : boolean);
+Procedure TTokeninfo.Setverified_email(AIndex : Integer; const AValue : boolean);
begin
If (Fverified_email=AValue) then exit;
@@ -572,7 +557,7 @@ end;
-Procedure TUserinfoplus.Setverified_email(AIndex : Integer; AValue : boolean);
+Procedure TUserinfoplus.Setverified_email(AIndex : Integer; const AValue : boolean);
begin
If (Fverified_email=AValue) then exit;
@@ -754,7 +739,7 @@ end;
Class Function TOauth2API.APIRevision : String;
begin
- Result:='20150416';
+ Result:='20160330';
end;
Class Function TOauth2API.APIID : String;
@@ -772,7 +757,7 @@ end;
Class Function TOauth2API.APIDescription : String;
begin
- Result:='Lets you access OAuth2 protocol related APIs.';
+ Result:='Obtains end-user authorization grants for use with other Google APIs.';
end;
Class Function TOauth2API.APIOwnerDomain : String;
@@ -808,7 +793,7 @@ end;
Class Function TOauth2API.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TOauth2API.APIbasePath : string;
@@ -820,7 +805,7 @@ end;
Class Function TOauth2API.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TOauth2API.APIProtocol : string;
@@ -846,7 +831,7 @@ Class Function TOauth2API.APIAuthScopes : TScopeInfoArray;
begin
SetLength(Result,4);
Result[0].Name:='https://www.googleapis.com/auth/plus.login';
- Result[0].Description:='Know your basic profile info and list of people in your circles.';
+ Result[0].Description:='Know the list of people in your circles, your age range, and language';
Result[1].Name:='https://www.googleapis.com/auth/plus.me';
Result[1].Description:='Know who you are on Google';
Result[2].Name:='https://www.googleapis.com/auth/userinfo.email';
diff --git a/packages/googleapi/src/googlepagespeedonline.pp b/packages/googleapi/src/googlepagespeedonline.pp
index f8bea04c2a..ae84640646 100644
--- a/packages/googleapi/src/googlepagespeedonline.pp
+++ b/packages/googleapi/src/googlepagespeedonline.pp
@@ -1,19 +1,4 @@
unit googlepagespeedonline;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:06
{$MODE objfpc}
{$H+}
@@ -56,10 +41,10 @@ type
Fwidth : integer;
Protected
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
- Procedure Setleft(AIndex : Integer; AValue : integer); virtual;
- Procedure Settop(AIndex : Integer; AValue : integer); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setleft(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Settop(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -81,10 +66,10 @@ type
Fwidth : integer;
Protected
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
- Procedure Setleft(AIndex : Integer; AValue : integer); virtual;
- Procedure Settop(AIndex : Integer; AValue : integer); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setleft(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Settop(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -109,8 +94,8 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrects(AIndex : Integer; AValue : TPagespeedApiFormatStringV2TypeargsItemTyperectsArray); virtual;
- Procedure Setsecondary_rects(AIndex : Integer; AValue : TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsArray); virtual;
+ Procedure Setrects(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsItemTyperectsArray); virtual;
+ Procedure Setsecondary_rects(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsArray); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -137,7 +122,7 @@ type
Fformat : String;
Protected
//Property setters
- Procedure Setargs(AIndex : Integer; AValue : TPagespeedApiFormatStringV2TypeargsArray); virtual;
+ Procedure Setargs(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsArray); virtual;
Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -162,10 +147,10 @@ type
Fwidth : integer;
Protected
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
- Procedure Setleft(AIndex : Integer; AValue : integer); virtual;
- Procedure Settop(AIndex : Integer; AValue : integer); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setleft(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Settop(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -190,11 +175,11 @@ type
Protected
//Property setters
Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setmime_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpage_rect(AIndex : Integer; AValue : TPagespeedApiImageV2Typepage_rect); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setpage_rect(AIndex : Integer; const AValue : TPagespeedApiImageV2Typepage_rect); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property data : String Index 0 Read Fdata Write Setdata;
@@ -231,7 +216,7 @@ type
Protected
//Property setters
Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
- Procedure SetruleResults(AIndex : Integer; AValue : TResultTypeformattedResultsTyperuleResults); virtual;
+ Procedure SetruleResults(AIndex : Integer; const AValue : TResultTypeformattedResultsTyperuleResults); virtual;
Public
Published
Property locale : String Index 0 Read Flocale Write Setlocale;
@@ -265,11 +250,11 @@ type
Procedure SethtmlResponseBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetimageResponseBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetjavascriptResponseBytes(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnumberCssResources(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnumberHosts(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnumberJsResources(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnumberResources(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnumberStaticResources(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetnumberCssResources(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumberHosts(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumberJsResources(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumberResources(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumberStaticResources(AIndex : Integer; const AValue : integer); virtual;
Procedure SetotherResponseBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SettextResponseBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalRequestBytes(AIndex : Integer; const AValue : String); virtual;
@@ -315,8 +300,8 @@ type
Fminor : integer;
Protected
//Property setters
- Procedure Setmajor(AIndex : Integer; AValue : integer); virtual;
- Procedure Setminor(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setmajor(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setminor(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property major : integer Index 0 Read Fmajor Write Setmajor;
@@ -342,16 +327,16 @@ type
Fversion : TResultTypeversion;
Protected
//Property setters
- Procedure SetformattedResults(AIndex : Integer; AValue : TResultTypeformattedResults); virtual;
+ Procedure SetformattedResults(AIndex : Integer; const AValue : TResultTypeformattedResults); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinvalidRules(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetinvalidRules(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageStats(AIndex : Integer; AValue : TResultTypepageStats); virtual;
- Procedure SetresponseCode(AIndex : Integer; AValue : integer); virtual;
- Procedure SetruleGroups(AIndex : Integer; AValue : TResultTyperuleGroups); virtual;
- Procedure Setscreenshot(AIndex : Integer; AValue : TPagespeedApiImageV2); virtual;
+ Procedure SetpageStats(AIndex : Integer; const AValue : TResultTypepageStats); virtual;
+ Procedure SetresponseCode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetruleGroups(AIndex : Integer; const AValue : TResultTyperuleGroups); virtual;
+ Procedure Setscreenshot(AIndex : Integer; const AValue : TPagespeedApiImageV2); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setversion(AIndex : Integer; AValue : TResultTypeversion); virtual;
+ Procedure Setversion(AIndex : Integer; const AValue : TResultTypeversion); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -441,7 +426,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setheight(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -451,7 +436,7 @@ end;
-Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setleft(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setleft(AIndex : Integer; const AValue : integer);
begin
If (Fleft=AValue) then exit;
@@ -461,7 +446,7 @@ end;
-Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Settop(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Settop(AIndex : Integer; const AValue : integer);
begin
If (Ftop=AValue) then exit;
@@ -471,7 +456,7 @@ end;
-Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiFormatStringV2TypeargsItemTyperectsItem.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -488,7 +473,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setheight(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -498,7 +483,7 @@ end;
-Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setleft(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setleft(AIndex : Integer; const AValue : integer);
begin
If (Fleft=AValue) then exit;
@@ -508,7 +493,7 @@ end;
-Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Settop(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Settop(AIndex : Integer; const AValue : integer);
begin
If (Ftop=AValue) then exit;
@@ -518,7 +503,7 @@ end;
-Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsItem.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -545,7 +530,7 @@ end;
-Procedure TPagespeedApiFormatStringV2TypeargsItem.Setrects(AIndex : Integer; AValue : TPagespeedApiFormatStringV2TypeargsItemTyperectsArray);
+Procedure TPagespeedApiFormatStringV2TypeargsItem.Setrects(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsItemTyperectsArray);
begin
If (Frects=AValue) then exit;
@@ -555,7 +540,7 @@ end;
-Procedure TPagespeedApiFormatStringV2TypeargsItem.Setsecondary_rects(AIndex : Integer; AValue : TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsArray);
+Procedure TPagespeedApiFormatStringV2TypeargsItem.Setsecondary_rects(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsItemTypesecondary_rectsArray);
begin
If (Fsecondary_rects=AValue) then exit;
@@ -617,7 +602,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPagespeedApiFormatStringV2.Setargs(AIndex : Integer; AValue : TPagespeedApiFormatStringV2TypeargsArray);
+Procedure TPagespeedApiFormatStringV2.Setargs(AIndex : Integer; const AValue : TPagespeedApiFormatStringV2TypeargsArray);
begin
If (Fargs=AValue) then exit;
@@ -657,7 +642,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPagespeedApiImageV2Typepage_rect.Setheight(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiImageV2Typepage_rect.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -667,7 +652,7 @@ end;
-Procedure TPagespeedApiImageV2Typepage_rect.Setleft(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiImageV2Typepage_rect.Setleft(AIndex : Integer; const AValue : integer);
begin
If (Fleft=AValue) then exit;
@@ -677,7 +662,7 @@ end;
-Procedure TPagespeedApiImageV2Typepage_rect.Settop(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiImageV2Typepage_rect.Settop(AIndex : Integer; const AValue : integer);
begin
If (Ftop=AValue) then exit;
@@ -687,7 +672,7 @@ end;
-Procedure TPagespeedApiImageV2Typepage_rect.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiImageV2Typepage_rect.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -714,7 +699,7 @@ end;
-Procedure TPagespeedApiImageV2.Setheight(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiImageV2.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -744,7 +729,7 @@ end;
-Procedure TPagespeedApiImageV2.Setpage_rect(AIndex : Integer; AValue : TPagespeedApiImageV2Typepage_rect);
+Procedure TPagespeedApiImageV2.Setpage_rect(AIndex : Integer; const AValue : TPagespeedApiImageV2Typepage_rect);
begin
If (Fpage_rect=AValue) then exit;
@@ -754,7 +739,7 @@ end;
-Procedure TPagespeedApiImageV2.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TPagespeedApiImageV2.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -794,7 +779,7 @@ end;
-Procedure TResultTypeformattedResults.SetruleResults(AIndex : Integer; AValue : TResultTypeformattedResultsTyperuleResults);
+Procedure TResultTypeformattedResults.SetruleResults(AIndex : Integer; const AValue : TResultTypeformattedResultsTyperuleResults);
begin
If (FruleResults=AValue) then exit;
@@ -861,7 +846,7 @@ end;
-Procedure TResultTypepageStats.SetnumberCssResources(AIndex : Integer; AValue : integer);
+Procedure TResultTypepageStats.SetnumberCssResources(AIndex : Integer; const AValue : integer);
begin
If (FnumberCssResources=AValue) then exit;
@@ -871,7 +856,7 @@ end;
-Procedure TResultTypepageStats.SetnumberHosts(AIndex : Integer; AValue : integer);
+Procedure TResultTypepageStats.SetnumberHosts(AIndex : Integer; const AValue : integer);
begin
If (FnumberHosts=AValue) then exit;
@@ -881,7 +866,7 @@ end;
-Procedure TResultTypepageStats.SetnumberJsResources(AIndex : Integer; AValue : integer);
+Procedure TResultTypepageStats.SetnumberJsResources(AIndex : Integer; const AValue : integer);
begin
If (FnumberJsResources=AValue) then exit;
@@ -891,7 +876,7 @@ end;
-Procedure TResultTypepageStats.SetnumberResources(AIndex : Integer; AValue : integer);
+Procedure TResultTypepageStats.SetnumberResources(AIndex : Integer; const AValue : integer);
begin
If (FnumberResources=AValue) then exit;
@@ -901,7 +886,7 @@ end;
-Procedure TResultTypepageStats.SetnumberStaticResources(AIndex : Integer; AValue : integer);
+Procedure TResultTypepageStats.SetnumberStaticResources(AIndex : Integer; const AValue : integer);
begin
If (FnumberStaticResources=AValue) then exit;
@@ -961,7 +946,7 @@ end;
--------------------------------------------------------------------}
-Procedure TResultTypeversion.Setmajor(AIndex : Integer; AValue : integer);
+Procedure TResultTypeversion.Setmajor(AIndex : Integer; const AValue : integer);
begin
If (Fmajor=AValue) then exit;
@@ -971,7 +956,7 @@ end;
-Procedure TResultTypeversion.Setminor(AIndex : Integer; AValue : integer);
+Procedure TResultTypeversion.Setminor(AIndex : Integer; const AValue : integer);
begin
If (Fminor=AValue) then exit;
@@ -988,7 +973,7 @@ end;
--------------------------------------------------------------------}
-Procedure TResult.SetformattedResults(AIndex : Integer; AValue : TResultTypeformattedResults);
+Procedure TResult.SetformattedResults(AIndex : Integer; const AValue : TResultTypeformattedResults);
begin
If (FformattedResults=AValue) then exit;
@@ -1008,7 +993,7 @@ end;
-Procedure TResult.SetinvalidRules(AIndex : Integer; AValue : TStringArray);
+Procedure TResult.SetinvalidRules(AIndex : Integer; const AValue : TStringArray);
begin
If (FinvalidRules=AValue) then exit;
@@ -1028,7 +1013,7 @@ end;
-Procedure TResult.SetpageStats(AIndex : Integer; AValue : TResultTypepageStats);
+Procedure TResult.SetpageStats(AIndex : Integer; const AValue : TResultTypepageStats);
begin
If (FpageStats=AValue) then exit;
@@ -1038,7 +1023,7 @@ end;
-Procedure TResult.SetresponseCode(AIndex : Integer; AValue : integer);
+Procedure TResult.SetresponseCode(AIndex : Integer; const AValue : integer);
begin
If (FresponseCode=AValue) then exit;
@@ -1048,7 +1033,7 @@ end;
-Procedure TResult.SetruleGroups(AIndex : Integer; AValue : TResultTyperuleGroups);
+Procedure TResult.SetruleGroups(AIndex : Integer; const AValue : TResultTyperuleGroups);
begin
If (FruleGroups=AValue) then exit;
@@ -1058,7 +1043,7 @@ end;
-Procedure TResult.Setscreenshot(AIndex : Integer; AValue : TPagespeedApiImageV2);
+Procedure TResult.Setscreenshot(AIndex : Integer; const AValue : TPagespeedApiImageV2);
begin
If (Fscreenshot=AValue) then exit;
@@ -1078,7 +1063,7 @@ end;
-Procedure TResult.Setversion(AIndex : Integer; AValue : TResultTypeversion);
+Procedure TResult.Setversion(AIndex : Integer; const AValue : TResultTypeversion);
begin
If (Fversion=AValue) then exit;
@@ -1169,7 +1154,7 @@ end;
Class Function TPagespeedonlineAPI.APIRevision : String;
begin
- Result:='20150317';
+ Result:='20160516';
end;
Class Function TPagespeedonlineAPI.APIID : String;
@@ -1187,7 +1172,7 @@ end;
Class Function TPagespeedonlineAPI.APIDescription : String;
begin
- Result:='Lets you analyze the performance of a web page and get tailored suggestions to make that page faster.';
+ Result:='Analyzes the performance of a web page and provides tailored suggestions to make that page faster.';
end;
Class Function TPagespeedonlineAPI.APIOwnerDomain : String;
@@ -1223,7 +1208,7 @@ end;
Class Function TPagespeedonlineAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TPagespeedonlineAPI.APIbasePath : string;
@@ -1235,7 +1220,7 @@ end;
Class Function TPagespeedonlineAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/pagespeedonline/v2/';
+ Result:='https://www.googleapis.com/pagespeedonline/v2/';
end;
Class Function TPagespeedonlineAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlepartners.pp b/packages/googleapi/src/googlepartners.pp
new file mode 100644
index 0000000000..33fa5e76ca
--- /dev/null
+++ b/packages/googleapi/src/googlepartners.pp
@@ -0,0 +1,2690 @@
+unit googlepartners;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TLogUserEventRequest = Class;
+ TRequestMetadata = Class;
+ TUserOverrides = Class;
+ TTrafficSource = Class;
+ TEventData = Class;
+ TLead = Class;
+ TMoney = Class;
+ TLogUserEventResponse = Class;
+ TResponseMetadata = Class;
+ TDebugInfo = Class;
+ TLogMessageRequest = Class;
+ TLogMessageResponse = Class;
+ TListUserStatesResponse = Class;
+ TGetCompanyResponse = Class;
+ TCompany = Class;
+ TLocalizedCompanyInfo = Class;
+ TLocation = Class;
+ TLatLng = Class;
+ TPublicProfile = Class;
+ TCertificationStatus = Class;
+ TCertificationExamStatus = Class;
+ TRank = Class;
+ TListCompaniesResponse = Class;
+ TCreateLeadRequest = Class;
+ TRecaptchaChallenge = Class;
+ TCreateLeadResponse = Class;
+ TLogUserEventRequestArray = Array of TLogUserEventRequest;
+ TRequestMetadataArray = Array of TRequestMetadata;
+ TUserOverridesArray = Array of TUserOverrides;
+ TTrafficSourceArray = Array of TTrafficSource;
+ TEventDataArray = Array of TEventData;
+ TLeadArray = Array of TLead;
+ TMoneyArray = Array of TMoney;
+ TLogUserEventResponseArray = Array of TLogUserEventResponse;
+ TResponseMetadataArray = Array of TResponseMetadata;
+ TDebugInfoArray = Array of TDebugInfo;
+ TLogMessageRequestArray = Array of TLogMessageRequest;
+ TLogMessageResponseArray = Array of TLogMessageResponse;
+ TListUserStatesResponseArray = Array of TListUserStatesResponse;
+ TGetCompanyResponseArray = Array of TGetCompanyResponse;
+ TCompanyArray = Array of TCompany;
+ TLocalizedCompanyInfoArray = Array of TLocalizedCompanyInfo;
+ TLocationArray = Array of TLocation;
+ TLatLngArray = Array of TLatLng;
+ TPublicProfileArray = Array of TPublicProfile;
+ TCertificationStatusArray = Array of TCertificationStatus;
+ TCertificationExamStatusArray = Array of TCertificationExamStatus;
+ TRankArray = Array of TRank;
+ TListCompaniesResponseArray = Array of TListCompaniesResponse;
+ TCreateLeadRequestArray = Array of TCreateLeadRequest;
+ TRecaptchaChallengeArray = Array of TRecaptchaChallenge;
+ TCreateLeadResponseArray = Array of TCreateLeadResponse;
+ //Anonymous types, using auto-generated names
+ TLogMessageRequestTypeclientInfo = Class;
+ TLogUserEventRequestTypeeventDatasArray = Array of TEventData;
+ TCompanyTypelocalizedInfosArray = Array of TLocalizedCompanyInfo;
+ TCompanyTypelocationsArray = Array of TLocation;
+ TCompanyTypecertificationStatusesArray = Array of TCertificationStatus;
+ TCompanyTyperanksArray = Array of TRank;
+ TCertificationStatusTypeexamStatusesArray = Array of TCertificationExamStatus;
+ TListCompaniesResponseTypecompaniesArray = Array of TCompany;
+
+ { --------------------------------------------------------------------
+ TLogUserEventRequest
+ --------------------------------------------------------------------}
+
+ TLogUserEventRequest = Class(TGoogleBaseObject)
+ Private
+ FrequestMetadata : TRequestMetadata;
+ FeventAction : String;
+ FeventCategory : String;
+ FeventScope : String;
+ FeventDatas : TLogUserEventRequestTypeeventDatasArray;
+ Furl : String;
+ Flead : TLead;
+ Protected
+ //Property setters
+ Procedure SetrequestMetadata(AIndex : Integer; const AValue : TRequestMetadata); virtual;
+ Procedure SeteventAction(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeteventCategory(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeteventScope(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeteventDatas(AIndex : Integer; const AValue : TLogUserEventRequestTypeeventDatasArray); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlead(AIndex : Integer; const AValue : TLead); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property requestMetadata : TRequestMetadata Index 0 Read FrequestMetadata Write SetrequestMetadata;
+ Property eventAction : String Index 8 Read FeventAction Write SeteventAction;
+ Property eventCategory : String Index 16 Read FeventCategory Write SeteventCategory;
+ Property eventScope : String Index 24 Read FeventScope Write SeteventScope;
+ Property eventDatas : TLogUserEventRequestTypeeventDatasArray Index 32 Read FeventDatas Write SeteventDatas;
+ Property url : String Index 40 Read Furl Write Seturl;
+ Property lead : TLead Index 48 Read Flead Write Setlead;
+ end;
+ TLogUserEventRequestClass = Class of TLogUserEventRequest;
+
+ { --------------------------------------------------------------------
+ TRequestMetadata
+ --------------------------------------------------------------------}
+
+ TRequestMetadata = Class(TGoogleBaseObject)
+ Private
+ FuserOverrides : TUserOverrides;
+ Flocale : String;
+ FpartnersSessionId : String;
+ FexperimentIds : TStringArray;
+ FtrafficSource : TTrafficSource;
+ Protected
+ //Property setters
+ Procedure SetuserOverrides(AIndex : Integer; const AValue : TUserOverrides); virtual;
+ Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpartnersSessionId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexperimentIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SettrafficSource(AIndex : Integer; const AValue : TTrafficSource); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property userOverrides : TUserOverrides Index 0 Read FuserOverrides Write SetuserOverrides;
+ Property locale : String Index 8 Read Flocale Write Setlocale;
+ Property partnersSessionId : String Index 16 Read FpartnersSessionId Write SetpartnersSessionId;
+ Property experimentIds : TStringArray Index 24 Read FexperimentIds Write SetexperimentIds;
+ Property trafficSource : TTrafficSource Index 32 Read FtrafficSource Write SettrafficSource;
+ end;
+ TRequestMetadataClass = Class of TRequestMetadata;
+
+ { --------------------------------------------------------------------
+ TUserOverrides
+ --------------------------------------------------------------------}
+
+ TUserOverrides = Class(TGoogleBaseObject)
+ Private
+ FipAddress : String;
+ FuserId : String;
+ Protected
+ //Property setters
+ Procedure SetipAddress(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property ipAddress : String Index 0 Read FipAddress Write SetipAddress;
+ Property userId : String Index 8 Read FuserId Write SetuserId;
+ end;
+ TUserOverridesClass = Class of TUserOverrides;
+
+ { --------------------------------------------------------------------
+ TTrafficSource
+ --------------------------------------------------------------------}
+
+ TTrafficSource = Class(TGoogleBaseObject)
+ Private
+ FtrafficSourceId : String;
+ FtrafficSubId : String;
+ Protected
+ //Property setters
+ Procedure SettrafficSourceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettrafficSubId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property trafficSourceId : String Index 0 Read FtrafficSourceId Write SettrafficSourceId;
+ Property trafficSubId : String Index 8 Read FtrafficSubId Write SettrafficSubId;
+ end;
+ TTrafficSourceClass = Class of TTrafficSource;
+
+ { --------------------------------------------------------------------
+ TEventData
+ --------------------------------------------------------------------}
+
+ TEventData = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalues : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalues(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 key : String Index 0 Read Fkey Write Setkey;
+ Property values : TStringArray Index 8 Read Fvalues Write Setvalues;
+ end;
+ TEventDataClass = Class of TEventData;
+
+ { --------------------------------------------------------------------
+ TLead
+ --------------------------------------------------------------------}
+
+ TLead = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ F_type : String;
+ Femail : String;
+ FgivenName : String;
+ FfamilyName : String;
+ FwebsiteUrl : String;
+ FphoneNumber : String;
+ Fcomments : String;
+ FgpsMotivations : TStringArray;
+ FminMonthlyBudget : TMoney;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetgivenName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfamilyName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetwebsiteUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetphoneNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcomments(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetgpsMotivations(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetminMonthlyBudget(AIndex : Integer; const AValue : TMoney); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ Property email : String Index 16 Read Femail Write Setemail;
+ Property givenName : String Index 24 Read FgivenName Write SetgivenName;
+ Property familyName : String Index 32 Read FfamilyName Write SetfamilyName;
+ Property websiteUrl : String Index 40 Read FwebsiteUrl Write SetwebsiteUrl;
+ Property phoneNumber : String Index 48 Read FphoneNumber Write SetphoneNumber;
+ Property comments : String Index 56 Read Fcomments Write Setcomments;
+ Property gpsMotivations : TStringArray Index 64 Read FgpsMotivations Write SetgpsMotivations;
+ Property minMonthlyBudget : TMoney Index 72 Read FminMonthlyBudget Write SetminMonthlyBudget;
+ end;
+ TLeadClass = Class of TLead;
+
+ { --------------------------------------------------------------------
+ TMoney
+ --------------------------------------------------------------------}
+
+ TMoney = Class(TGoogleBaseObject)
+ Private
+ FcurrencyCode : String;
+ Funits : String;
+ Fnanos : integer;
+ Protected
+ //Property setters
+ Procedure SetcurrencyCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setunits(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnanos(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property currencyCode : String Index 0 Read FcurrencyCode Write SetcurrencyCode;
+ Property units : String Index 8 Read Funits Write Setunits;
+ Property nanos : integer Index 16 Read Fnanos Write Setnanos;
+ end;
+ TMoneyClass = Class of TMoney;
+
+ { --------------------------------------------------------------------
+ TLogUserEventResponse
+ --------------------------------------------------------------------}
+
+ TLogUserEventResponse = Class(TGoogleBaseObject)
+ Private
+ FresponseMetadata : TResponseMetadata;
+ Protected
+ //Property setters
+ Procedure SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata); virtual;
+ Public
+ Published
+ Property responseMetadata : TResponseMetadata Index 0 Read FresponseMetadata Write SetresponseMetadata;
+ end;
+ TLogUserEventResponseClass = Class of TLogUserEventResponse;
+
+ { --------------------------------------------------------------------
+ TResponseMetadata
+ --------------------------------------------------------------------}
+
+ TResponseMetadata = Class(TGoogleBaseObject)
+ Private
+ FdebugInfo : TDebugInfo;
+ Protected
+ //Property setters
+ Procedure SetdebugInfo(AIndex : Integer; const AValue : TDebugInfo); virtual;
+ Public
+ Published
+ Property debugInfo : TDebugInfo Index 0 Read FdebugInfo Write SetdebugInfo;
+ end;
+ TResponseMetadataClass = Class of TResponseMetadata;
+
+ { --------------------------------------------------------------------
+ TDebugInfo
+ --------------------------------------------------------------------}
+
+ TDebugInfo = Class(TGoogleBaseObject)
+ Private
+ FserverInfo : String;
+ FserviceUrl : String;
+ FserverTraceInfo : String;
+ Protected
+ //Property setters
+ Procedure SetserverInfo(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetserviceUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetserverTraceInfo(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property serverInfo : String Index 0 Read FserverInfo Write SetserverInfo;
+ Property serviceUrl : String Index 8 Read FserviceUrl Write SetserviceUrl;
+ Property serverTraceInfo : String Index 16 Read FserverTraceInfo Write SetserverTraceInfo;
+ end;
+ TDebugInfoClass = Class of TDebugInfo;
+
+ { --------------------------------------------------------------------
+ TLogMessageRequestTypeclientInfo
+ --------------------------------------------------------------------}
+
+ TLogMessageRequestTypeclientInfo = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TLogMessageRequestTypeclientInfoClass = Class of TLogMessageRequestTypeclientInfo;
+
+ { --------------------------------------------------------------------
+ TLogMessageRequest
+ --------------------------------------------------------------------}
+
+ TLogMessageRequest = Class(TGoogleBaseObject)
+ Private
+ FrequestMetadata : TRequestMetadata;
+ Flevel : String;
+ Fdetails : String;
+ FclientInfo : TLogMessageRequestTypeclientInfo;
+ Protected
+ //Property setters
+ Procedure SetrequestMetadata(AIndex : Integer; const AValue : TRequestMetadata); virtual;
+ Procedure Setlevel(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclientInfo(AIndex : Integer; const AValue : TLogMessageRequestTypeclientInfo); virtual;
+ Public
+ Published
+ Property requestMetadata : TRequestMetadata Index 0 Read FrequestMetadata Write SetrequestMetadata;
+ Property level : String Index 8 Read Flevel Write Setlevel;
+ Property details : String Index 16 Read Fdetails Write Setdetails;
+ Property clientInfo : TLogMessageRequestTypeclientInfo Index 24 Read FclientInfo Write SetclientInfo;
+ end;
+ TLogMessageRequestClass = Class of TLogMessageRequest;
+
+ { --------------------------------------------------------------------
+ TLogMessageResponse
+ --------------------------------------------------------------------}
+
+ TLogMessageResponse = Class(TGoogleBaseObject)
+ Private
+ FresponseMetadata : TResponseMetadata;
+ Protected
+ //Property setters
+ Procedure SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata); virtual;
+ Public
+ Published
+ Property responseMetadata : TResponseMetadata Index 0 Read FresponseMetadata Write SetresponseMetadata;
+ end;
+ TLogMessageResponseClass = Class of TLogMessageResponse;
+
+ { --------------------------------------------------------------------
+ TListUserStatesResponse
+ --------------------------------------------------------------------}
+
+ TListUserStatesResponse = Class(TGoogleBaseObject)
+ Private
+ FresponseMetadata : TResponseMetadata;
+ FuserStates : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata); virtual;
+ Procedure SetuserStates(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 responseMetadata : TResponseMetadata Index 0 Read FresponseMetadata Write SetresponseMetadata;
+ Property userStates : TStringArray Index 8 Read FuserStates Write SetuserStates;
+ end;
+ TListUserStatesResponseClass = Class of TListUserStatesResponse;
+
+ { --------------------------------------------------------------------
+ TGetCompanyResponse
+ --------------------------------------------------------------------}
+
+ TGetCompanyResponse = Class(TGoogleBaseObject)
+ Private
+ FresponseMetadata : TResponseMetadata;
+ Fcompany : TCompany;
+ Protected
+ //Property setters
+ Procedure SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata); virtual;
+ Procedure Setcompany(AIndex : Integer; const AValue : TCompany); virtual;
+ Public
+ Published
+ Property responseMetadata : TResponseMetadata Index 0 Read FresponseMetadata Write SetresponseMetadata;
+ Property company : TCompany Index 8 Read Fcompany Write Setcompany;
+ end;
+ TGetCompanyResponseClass = Class of TGetCompanyResponse;
+
+ { --------------------------------------------------------------------
+ TCompany
+ --------------------------------------------------------------------}
+
+ TCompany = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fname : String;
+ FlocalizedInfos : TCompanyTypelocalizedInfosArray;
+ Flocations : TCompanyTypelocationsArray;
+ FconvertedMinMonthlyBudget : TMoney;
+ ForiginalMinMonthlyBudget : TMoney;
+ FpublicProfile : TPublicProfile;
+ FcertificationStatuses : TCompanyTypecertificationStatusesArray;
+ Franks : TCompanyTyperanksArray;
+ FwebsiteUrl : String;
+ Findustries : TStringArray;
+ Fservices : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlocalizedInfos(AIndex : Integer; const AValue : TCompanyTypelocalizedInfosArray); virtual;
+ Procedure Setlocations(AIndex : Integer; const AValue : TCompanyTypelocationsArray); virtual;
+ Procedure SetconvertedMinMonthlyBudget(AIndex : Integer; const AValue : TMoney); virtual;
+ Procedure SetoriginalMinMonthlyBudget(AIndex : Integer; const AValue : TMoney); virtual;
+ Procedure SetpublicProfile(AIndex : Integer; const AValue : TPublicProfile); virtual;
+ Procedure SetcertificationStatuses(AIndex : Integer; const AValue : TCompanyTypecertificationStatusesArray); virtual;
+ Procedure Setranks(AIndex : Integer; const AValue : TCompanyTyperanksArray); virtual;
+ Procedure SetwebsiteUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setindustries(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setservices(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 id : String Index 0 Read Fid Write Setid;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property localizedInfos : TCompanyTypelocalizedInfosArray Index 16 Read FlocalizedInfos Write SetlocalizedInfos;
+ Property locations : TCompanyTypelocationsArray Index 24 Read Flocations Write Setlocations;
+ Property convertedMinMonthlyBudget : TMoney Index 32 Read FconvertedMinMonthlyBudget Write SetconvertedMinMonthlyBudget;
+ Property originalMinMonthlyBudget : TMoney Index 40 Read ForiginalMinMonthlyBudget Write SetoriginalMinMonthlyBudget;
+ Property publicProfile : TPublicProfile Index 48 Read FpublicProfile Write SetpublicProfile;
+ Property certificationStatuses : TCompanyTypecertificationStatusesArray Index 56 Read FcertificationStatuses Write SetcertificationStatuses;
+ Property ranks : TCompanyTyperanksArray Index 64 Read Franks Write Setranks;
+ Property websiteUrl : String Index 72 Read FwebsiteUrl Write SetwebsiteUrl;
+ Property industries : TStringArray Index 80 Read Findustries Write Setindustries;
+ Property services : TStringArray Index 88 Read Fservices Write Setservices;
+ end;
+ TCompanyClass = Class of TCompany;
+
+ { --------------------------------------------------------------------
+ TLocalizedCompanyInfo
+ --------------------------------------------------------------------}
+
+ TLocalizedCompanyInfo = Class(TGoogleBaseObject)
+ Private
+ FlanguageCode : String;
+ FdisplayName : String;
+ Foverview : String;
+ FcountryCodes : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetlanguageCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setoverview(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcountryCodes(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 languageCode : String Index 0 Read FlanguageCode Write SetlanguageCode;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+ Property overview : String Index 16 Read Foverview Write Setoverview;
+ Property countryCodes : TStringArray Index 24 Read FcountryCodes Write SetcountryCodes;
+ end;
+ TLocalizedCompanyInfoClass = Class of TLocalizedCompanyInfo;
+
+ { --------------------------------------------------------------------
+ TLocation
+ --------------------------------------------------------------------}
+
+ TLocation = Class(TGoogleBaseObject)
+ Private
+ Faddress : String;
+ FlatLng : TLatLng;
+ Protected
+ //Property setters
+ Procedure Setaddress(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlatLng(AIndex : Integer; const AValue : TLatLng); virtual;
+ Public
+ Published
+ Property address : String Index 0 Read Faddress Write Setaddress;
+ Property latLng : TLatLng Index 8 Read FlatLng Write SetlatLng;
+ end;
+ TLocationClass = Class of TLocation;
+
+ { --------------------------------------------------------------------
+ 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;
+
+ { --------------------------------------------------------------------
+ TPublicProfile
+ --------------------------------------------------------------------}
+
+ TPublicProfile = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ FdisplayName : String;
+ Furl : String;
+ FdisplayImageUrl : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayImageUrl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+ Property url : String Index 16 Read Furl Write Seturl;
+ Property displayImageUrl : String Index 24 Read FdisplayImageUrl Write SetdisplayImageUrl;
+ end;
+ TPublicProfileClass = Class of TPublicProfile;
+
+ { --------------------------------------------------------------------
+ TCertificationStatus
+ --------------------------------------------------------------------}
+
+ TCertificationStatus = Class(TGoogleBaseObject)
+ Private
+ F_type : String;
+ FexamStatuses : TCertificationStatusTypeexamStatusesArray;
+ FisCertified : boolean;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexamStatuses(AIndex : Integer; const AValue : TCertificationStatusTypeexamStatusesArray); virtual;
+ Procedure SetisCertified(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 _type : String Index 0 Read F_type Write Set_type;
+ Property examStatuses : TCertificationStatusTypeexamStatusesArray Index 8 Read FexamStatuses Write SetexamStatuses;
+ Property isCertified : boolean Index 16 Read FisCertified Write SetisCertified;
+ end;
+ TCertificationStatusClass = Class of TCertificationStatus;
+
+ { --------------------------------------------------------------------
+ TCertificationExamStatus
+ --------------------------------------------------------------------}
+
+ TCertificationExamStatus = Class(TGoogleBaseObject)
+ Private
+ F_type : String;
+ FnumberUsersPass : integer;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnumberUsersPass(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property _type : String Index 0 Read F_type Write Set_type;
+ Property numberUsersPass : integer Index 8 Read FnumberUsersPass Write SetnumberUsersPass;
+ end;
+ TCertificationExamStatusClass = Class of TCertificationExamStatus;
+
+ { --------------------------------------------------------------------
+ TRank
+ --------------------------------------------------------------------}
+
+ TRank = Class(TGoogleBaseObject)
+ Private
+ F_type : String;
+ Fvalue : double;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : double); virtual;
+ Public
+ Published
+ Property _type : String Index 0 Read F_type Write Set_type;
+ Property value : double Index 8 Read Fvalue Write Setvalue;
+ end;
+ TRankClass = Class of TRank;
+
+ { --------------------------------------------------------------------
+ TListCompaniesResponse
+ --------------------------------------------------------------------}
+
+ TListCompaniesResponse = Class(TGoogleBaseObject)
+ Private
+ FresponseMetadata : TResponseMetadata;
+ Fcompanies : TListCompaniesResponseTypecompaniesArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata); virtual;
+ Procedure Setcompanies(AIndex : Integer; const AValue : TListCompaniesResponseTypecompaniesArray); 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 responseMetadata : TResponseMetadata Index 0 Read FresponseMetadata Write SetresponseMetadata;
+ Property companies : TListCompaniesResponseTypecompaniesArray Index 8 Read Fcompanies Write Setcompanies;
+ Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListCompaniesResponseClass = Class of TListCompaniesResponse;
+
+ { --------------------------------------------------------------------
+ TCreateLeadRequest
+ --------------------------------------------------------------------}
+
+ TCreateLeadRequest = Class(TGoogleBaseObject)
+ Private
+ FrequestMetadata : TRequestMetadata;
+ Flead : TLead;
+ FrecaptchaChallenge : TRecaptchaChallenge;
+ Protected
+ //Property setters
+ Procedure SetrequestMetadata(AIndex : Integer; const AValue : TRequestMetadata); virtual;
+ Procedure Setlead(AIndex : Integer; const AValue : TLead); virtual;
+ Procedure SetrecaptchaChallenge(AIndex : Integer; const AValue : TRecaptchaChallenge); virtual;
+ Public
+ Published
+ Property requestMetadata : TRequestMetadata Index 0 Read FrequestMetadata Write SetrequestMetadata;
+ Property lead : TLead Index 8 Read Flead Write Setlead;
+ Property recaptchaChallenge : TRecaptchaChallenge Index 16 Read FrecaptchaChallenge Write SetrecaptchaChallenge;
+ end;
+ TCreateLeadRequestClass = Class of TCreateLeadRequest;
+
+ { --------------------------------------------------------------------
+ TRecaptchaChallenge
+ --------------------------------------------------------------------}
+
+ TRecaptchaChallenge = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fresponse : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setresponse(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property response : String Index 8 Read Fresponse Write Setresponse;
+ end;
+ TRecaptchaChallengeClass = Class of TRecaptchaChallenge;
+
+ { --------------------------------------------------------------------
+ TCreateLeadResponse
+ --------------------------------------------------------------------}
+
+ TCreateLeadResponse = Class(TGoogleBaseObject)
+ Private
+ FresponseMetadata : TResponseMetadata;
+ Flead : TLead;
+ FrecaptchaStatus : String;
+ Protected
+ //Property setters
+ Procedure SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata); virtual;
+ Procedure Setlead(AIndex : Integer; const AValue : TLead); virtual;
+ Procedure SetrecaptchaStatus(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property responseMetadata : TResponseMetadata Index 0 Read FresponseMetadata Write SetresponseMetadata;
+ Property lead : TLead Index 8 Read Flead Write Setlead;
+ Property recaptchaStatus : String Index 16 Read FrecaptchaStatus Write SetrecaptchaStatus;
+ end;
+ TCreateLeadResponseClass = Class of TCreateLeadResponse;
+
+ { --------------------------------------------------------------------
+ TUserEventsResource
+ --------------------------------------------------------------------}
+
+ TUserEventsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Log(aLogUserEventRequest : TLogUserEventRequest) : TLogUserEventResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TClientMessagesResource
+ --------------------------------------------------------------------}
+
+ TClientMessagesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Log(aLogMessageRequest : TLogMessageRequest) : TLogMessageResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TUserStatesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TUserStatesResource, method List
+
+ TUserStatesListOptions = Record
+ requestMetadatauserOverridesipAddress : String;
+ requestMetadatauserOverridesuserId : String;
+ requestMetadatalocale : String;
+ requestMetadatapartnersSessionId : String;
+ requestMetadataexperimentIds : String;
+ requestMetadatatrafficSourcetrafficSourceId : String;
+ requestMetadatatrafficSourcetrafficSubId : String;
+ end;
+
+ TUserStatesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(AQuery : string = '') : TListUserStatesResponse;
+ Function List(AQuery : TUserStateslistOptions) : TListUserStatesResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCompaniesLeadsResource
+ --------------------------------------------------------------------}
+
+ TCompaniesLeadsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(companyId: string; aCreateLeadRequest : TCreateLeadRequest) : TCreateLeadResponse;overload;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TCompaniesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TCompaniesResource, method Get
+
+ TCompaniesGetOptions = Record
+ requestMetadatauserOverridesipAddress : String;
+ requestMetadatauserOverridesuserId : String;
+ requestMetadatalocale : String;
+ requestMetadatapartnersSessionId : String;
+ requestMetadataexperimentIds : String;
+ requestMetadatatrafficSourcetrafficSourceId : String;
+ requestMetadatatrafficSourcetrafficSubId : String;
+ view : String;
+ orderBy : String;
+ currencyCode : String;
+ address : String;
+ end;
+
+
+ //Optional query Options for TCompaniesResource, method List
+
+ TCompaniesListOptions = Record
+ requestMetadatauserOverridesipAddress : String;
+ requestMetadatauserOverridesuserId : String;
+ requestMetadatalocale : String;
+ requestMetadatapartnersSessionId : String;
+ requestMetadataexperimentIds : String;
+ requestMetadatatrafficSourcetrafficSourceId : String;
+ requestMetadatatrafficSourcetrafficSubId : String;
+ pageSize : integer;
+ pageToken : String;
+ companyName : String;
+ view : String;
+ minMonthlyBudgetcurrencyCode : String;
+ minMonthlyBudgetunits : int64;
+ minMonthlyBudgetnanos : integer;
+ maxMonthlyBudgetcurrencyCode : String;
+ maxMonthlyBudgetunits : int64;
+ maxMonthlyBudgetnanos : integer;
+ industries : String;
+ services : String;
+ languageCodes : String;
+ address : String;
+ orderBy : String;
+ gpsMotivations : String;
+ websiteUrl : String;
+ end;
+
+ TCompaniesResource = Class(TGoogleResource)
+ Private
+ FLeadsInstance : TCompaniesLeadsResource;
+ Function GetLeadsInstance : TCompaniesLeadsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(companyId: string; AQuery : string = '') : TGetCompanyResponse;
+ Function Get(companyId: string; AQuery : TCompaniesgetOptions) : TGetCompanyResponse;
+ Function List(AQuery : string = '') : TListCompaniesResponse;
+ Function List(AQuery : TCompanieslistOptions) : TListCompaniesResponse;
+ Function CreateLeadsResource(AOwner : TComponent) : TCompaniesLeadsResource;virtual;overload;
+ Function CreateLeadsResource : TCompaniesLeadsResource;virtual;overload;
+ Property LeadsResource : TCompaniesLeadsResource Read GetLeadsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TPartnersAPI
+ --------------------------------------------------------------------}
+
+ TPartnersAPI = Class(TGoogleAPI)
+ Private
+ FUserEventsInstance : TUserEventsResource;
+ FClientMessagesInstance : TClientMessagesResource;
+ FUserStatesInstance : TUserStatesResource;
+ FCompaniesLeadsInstance : TCompaniesLeadsResource;
+ FCompaniesInstance : TCompaniesResource;
+ Function GetUserEventsInstance : TUserEventsResource;virtual;
+ Function GetClientMessagesInstance : TClientMessagesResource;virtual;
+ Function GetUserStatesInstance : TUserStatesResource;virtual;
+ Function GetCompaniesLeadsInstance : TCompaniesLeadsResource;virtual;
+ Function GetCompaniesInstance : TCompaniesResource;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 CreateUserEventsResource(AOwner : TComponent) : TUserEventsResource;virtual;overload;
+ Function CreateUserEventsResource : TUserEventsResource;virtual;overload;
+ Function CreateClientMessagesResource(AOwner : TComponent) : TClientMessagesResource;virtual;overload;
+ Function CreateClientMessagesResource : TClientMessagesResource;virtual;overload;
+ Function CreateUserStatesResource(AOwner : TComponent) : TUserStatesResource;virtual;overload;
+ Function CreateUserStatesResource : TUserStatesResource;virtual;overload;
+ Function CreateCompaniesLeadsResource(AOwner : TComponent) : TCompaniesLeadsResource;virtual;overload;
+ Function CreateCompaniesLeadsResource : TCompaniesLeadsResource;virtual;overload;
+ Function CreateCompaniesResource(AOwner : TComponent) : TCompaniesResource;virtual;overload;
+ Function CreateCompaniesResource : TCompaniesResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property UserEventsResource : TUserEventsResource Read GetUserEventsInstance;
+ Property ClientMessagesResource : TClientMessagesResource Read GetClientMessagesInstance;
+ Property UserStatesResource : TUserStatesResource Read GetUserStatesInstance;
+ Property CompaniesLeadsResource : TCompaniesLeadsResource Read GetCompaniesLeadsInstance;
+ Property CompaniesResource : TCompaniesResource Read GetCompaniesInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TLogUserEventRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TLogUserEventRequest.SetrequestMetadata(AIndex : Integer; const AValue : TRequestMetadata);
+
+begin
+ If (FrequestMetadata=AValue) then exit;
+ FrequestMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogUserEventRequest.SeteventAction(AIndex : Integer; const AValue : String);
+
+begin
+ If (FeventAction=AValue) then exit;
+ FeventAction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogUserEventRequest.SeteventCategory(AIndex : Integer; const AValue : String);
+
+begin
+ If (FeventCategory=AValue) then exit;
+ FeventCategory:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogUserEventRequest.SeteventScope(AIndex : Integer; const AValue : String);
+
+begin
+ If (FeventScope=AValue) then exit;
+ FeventScope:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogUserEventRequest.SeteventDatas(AIndex : Integer; const AValue : TLogUserEventRequestTypeeventDatasArray);
+
+begin
+ If (FeventDatas=AValue) then exit;
+ FeventDatas:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogUserEventRequest.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogUserEventRequest.Setlead(AIndex : Integer; const AValue : TLead);
+
+begin
+ If (Flead=AValue) then exit;
+ Flead:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLogUserEventRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'eventdatas' : SetLength(FeventDatas,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TRequestMetadata
+ --------------------------------------------------------------------}
+
+
+Procedure TRequestMetadata.SetuserOverrides(AIndex : Integer; const AValue : TUserOverrides);
+
+begin
+ If (FuserOverrides=AValue) then exit;
+ FuserOverrides:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestMetadata.Setlocale(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocale=AValue) then exit;
+ Flocale:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestMetadata.SetpartnersSessionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpartnersSessionId=AValue) then exit;
+ FpartnersSessionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestMetadata.SetexperimentIds(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FexperimentIds=AValue) then exit;
+ FexperimentIds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequestMetadata.SettrafficSource(AIndex : Integer; const AValue : TTrafficSource);
+
+begin
+ If (FtrafficSource=AValue) then exit;
+ FtrafficSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRequestMetadata.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'experimentids' : SetLength(FexperimentIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TUserOverrides
+ --------------------------------------------------------------------}
+
+
+Procedure TUserOverrides.SetipAddress(AIndex : Integer; const AValue : String);
+
+begin
+ If (FipAddress=AValue) then exit;
+ FipAddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUserOverrides.SetuserId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuserId=AValue) then exit;
+ FuserId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTrafficSource
+ --------------------------------------------------------------------}
+
+
+Procedure TTrafficSource.SettrafficSourceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtrafficSourceId=AValue) then exit;
+ FtrafficSourceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTrafficSource.SettrafficSubId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtrafficSubId=AValue) then exit;
+ FtrafficSubId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TEventData
+ --------------------------------------------------------------------}
+
+
+Procedure TEventData.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEventData.Setvalues(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fvalues=AValue) then exit;
+ Fvalues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEventData.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'values' : SetLength(Fvalues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLead
+ --------------------------------------------------------------------}
+
+
+Procedure TLead.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLead.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLead.Setemail(AIndex : Integer; const AValue : String);
+
+begin
+ If (Femail=AValue) then exit;
+ Femail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLead.SetgivenName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FgivenName=AValue) then exit;
+ FgivenName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLead.SetfamilyName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfamilyName=AValue) then exit;
+ FfamilyName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLead.SetwebsiteUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FwebsiteUrl=AValue) then exit;
+ FwebsiteUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLead.SetphoneNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphoneNumber=AValue) then exit;
+ FphoneNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLead.Setcomments(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcomments=AValue) then exit;
+ Fcomments:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLead.SetgpsMotivations(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FgpsMotivations=AValue) then exit;
+ FgpsMotivations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLead.SetminMonthlyBudget(AIndex : Integer; const AValue : TMoney);
+
+begin
+ If (FminMonthlyBudget=AValue) then exit;
+ FminMonthlyBudget:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TLead.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 TLead.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'gpsmotivations' : SetLength(FgpsMotivations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMoney
+ --------------------------------------------------------------------}
+
+
+Procedure TMoney.SetcurrencyCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcurrencyCode=AValue) then exit;
+ FcurrencyCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMoney.Setunits(AIndex : Integer; const AValue : String);
+
+begin
+ If (Funits=AValue) then exit;
+ Funits:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMoney.Setnanos(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fnanos=AValue) then exit;
+ Fnanos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLogUserEventResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TLogUserEventResponse.SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata);
+
+begin
+ If (FresponseMetadata=AValue) then exit;
+ FresponseMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TResponseMetadata
+ --------------------------------------------------------------------}
+
+
+Procedure TResponseMetadata.SetdebugInfo(AIndex : Integer; const AValue : TDebugInfo);
+
+begin
+ If (FdebugInfo=AValue) then exit;
+ FdebugInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDebugInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TDebugInfo.SetserverInfo(AIndex : Integer; const AValue : String);
+
+begin
+ If (FserverInfo=AValue) then exit;
+ FserverInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebugInfo.SetserviceUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FserviceUrl=AValue) then exit;
+ FserviceUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDebugInfo.SetserverTraceInfo(AIndex : Integer; const AValue : String);
+
+begin
+ If (FserverTraceInfo=AValue) then exit;
+ FserverTraceInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLogMessageRequestTypeclientInfo
+ --------------------------------------------------------------------}
+
+
+Class Function TLogMessageRequestTypeclientInfo.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TLogMessageRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TLogMessageRequest.SetrequestMetadata(AIndex : Integer; const AValue : TRequestMetadata);
+
+begin
+ If (FrequestMetadata=AValue) then exit;
+ FrequestMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogMessageRequest.Setlevel(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flevel=AValue) then exit;
+ Flevel:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogMessageRequest.Setdetails(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLogMessageRequest.SetclientInfo(AIndex : Integer; const AValue : TLogMessageRequestTypeclientInfo);
+
+begin
+ If (FclientInfo=AValue) then exit;
+ FclientInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLogMessageResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TLogMessageResponse.SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata);
+
+begin
+ If (FresponseMetadata=AValue) then exit;
+ FresponseMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListUserStatesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListUserStatesResponse.SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata);
+
+begin
+ If (FresponseMetadata=AValue) then exit;
+ FresponseMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUserStatesResponse.SetuserStates(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FuserStates=AValue) then exit;
+ FuserStates:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListUserStatesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'userstates' : SetLength(FuserStates,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGetCompanyResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TGetCompanyResponse.SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata);
+
+begin
+ If (FresponseMetadata=AValue) then exit;
+ FresponseMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGetCompanyResponse.Setcompany(AIndex : Integer; const AValue : TCompany);
+
+begin
+ If (Fcompany=AValue) then exit;
+ Fcompany:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCompany
+ --------------------------------------------------------------------}
+
+
+Procedure TCompany.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCompany.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCompany.SetlocalizedInfos(AIndex : Integer; const AValue : TCompanyTypelocalizedInfosArray);
+
+begin
+ If (FlocalizedInfos=AValue) then exit;
+ FlocalizedInfos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCompany.Setlocations(AIndex : Integer; const AValue : TCompanyTypelocationsArray);
+
+begin
+ If (Flocations=AValue) then exit;
+ Flocations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCompany.SetconvertedMinMonthlyBudget(AIndex : Integer; const AValue : TMoney);
+
+begin
+ If (FconvertedMinMonthlyBudget=AValue) then exit;
+ FconvertedMinMonthlyBudget:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCompany.SetoriginalMinMonthlyBudget(AIndex : Integer; const AValue : TMoney);
+
+begin
+ If (ForiginalMinMonthlyBudget=AValue) then exit;
+ ForiginalMinMonthlyBudget:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCompany.SetpublicProfile(AIndex : Integer; const AValue : TPublicProfile);
+
+begin
+ If (FpublicProfile=AValue) then exit;
+ FpublicProfile:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCompany.SetcertificationStatuses(AIndex : Integer; const AValue : TCompanyTypecertificationStatusesArray);
+
+begin
+ If (FcertificationStatuses=AValue) then exit;
+ FcertificationStatuses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCompany.Setranks(AIndex : Integer; const AValue : TCompanyTyperanksArray);
+
+begin
+ If (Franks=AValue) then exit;
+ Franks:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCompany.SetwebsiteUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FwebsiteUrl=AValue) then exit;
+ FwebsiteUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCompany.Setindustries(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Findustries=AValue) then exit;
+ Findustries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCompany.Setservices(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fservices=AValue) then exit;
+ Fservices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCompany.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'localizedinfos' : SetLength(FlocalizedInfos,ALength);
+ 'locations' : SetLength(Flocations,ALength);
+ 'certificationstatuses' : SetLength(FcertificationStatuses,ALength);
+ 'ranks' : SetLength(Franks,ALength);
+ 'industries' : SetLength(Findustries,ALength);
+ 'services' : SetLength(Fservices,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLocalizedCompanyInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TLocalizedCompanyInfo.SetlanguageCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlanguageCode=AValue) then exit;
+ FlanguageCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLocalizedCompanyInfo.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLocalizedCompanyInfo.Setoverview(AIndex : Integer; const AValue : String);
+
+begin
+ If (Foverview=AValue) then exit;
+ Foverview:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLocalizedCompanyInfo.SetcountryCodes(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FcountryCodes=AValue) then exit;
+ FcountryCodes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLocalizedCompanyInfo.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'countrycodes' : SetLength(FcountryCodes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLocation
+ --------------------------------------------------------------------}
+
+
+Procedure TLocation.Setaddress(AIndex : Integer; const AValue : String);
+
+begin
+ If (Faddress=AValue) then exit;
+ Faddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLocation.SetlatLng(AIndex : Integer; const AValue : TLatLng);
+
+begin
+ If (FlatLng=AValue) then exit;
+ FlatLng:=AValue;
+ MarkPropertyChanged(AIndex);
+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;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPublicProfile
+ --------------------------------------------------------------------}
+
+
+Procedure TPublicProfile.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublicProfile.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublicProfile.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPublicProfile.SetdisplayImageUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayImageUrl=AValue) then exit;
+ FdisplayImageUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCertificationStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TCertificationStatus.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCertificationStatus.SetexamStatuses(AIndex : Integer; const AValue : TCertificationStatusTypeexamStatusesArray);
+
+begin
+ If (FexamStatuses=AValue) then exit;
+ FexamStatuses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCertificationStatus.SetisCertified(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisCertified=AValue) then exit;
+ FisCertified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TCertificationStatus.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 TCertificationStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'examstatuses' : SetLength(FexamStatuses,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCertificationExamStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TCertificationExamStatus.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCertificationExamStatus.SetnumberUsersPass(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FnumberUsersPass=AValue) then exit;
+ FnumberUsersPass:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TCertificationExamStatus.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TRank
+ --------------------------------------------------------------------}
+
+
+Procedure TRank.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRank.Setvalue(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TRank.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TListCompaniesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListCompaniesResponse.SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata);
+
+begin
+ If (FresponseMetadata=AValue) then exit;
+ FresponseMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListCompaniesResponse.Setcompanies(AIndex : Integer; const AValue : TListCompaniesResponseTypecompaniesArray);
+
+begin
+ If (Fcompanies=AValue) then exit;
+ Fcompanies:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListCompaniesResponse.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 TListCompaniesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'companies' : SetLength(Fcompanies,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreateLeadRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TCreateLeadRequest.SetrequestMetadata(AIndex : Integer; const AValue : TRequestMetadata);
+
+begin
+ If (FrequestMetadata=AValue) then exit;
+ FrequestMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreateLeadRequest.Setlead(AIndex : Integer; const AValue : TLead);
+
+begin
+ If (Flead=AValue) then exit;
+ Flead:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreateLeadRequest.SetrecaptchaChallenge(AIndex : Integer; const AValue : TRecaptchaChallenge);
+
+begin
+ If (FrecaptchaChallenge=AValue) then exit;
+ FrecaptchaChallenge:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TRecaptchaChallenge
+ --------------------------------------------------------------------}
+
+
+Procedure TRecaptchaChallenge.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRecaptchaChallenge.Setresponse(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fresponse=AValue) then exit;
+ Fresponse:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCreateLeadResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TCreateLeadResponse.SetresponseMetadata(AIndex : Integer; const AValue : TResponseMetadata);
+
+begin
+ If (FresponseMetadata=AValue) then exit;
+ FresponseMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreateLeadResponse.Setlead(AIndex : Integer; const AValue : TLead);
+
+begin
+ If (Flead=AValue) then exit;
+ Flead:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCreateLeadResponse.SetrecaptchaStatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrecaptchaStatus=AValue) then exit;
+ FrecaptchaStatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUserEventsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TUserEventsResource.ResourceName : String;
+
+begin
+ Result:='userEvents';
+end;
+
+Class Function TUserEventsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TpartnersAPI;
+end;
+
+Function TUserEventsResource.Log(aLogUserEventRequest : TLogUserEventRequest) : TLogUserEventResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v2/userEvents:log';
+ _Methodid = 'partners.userEvents.log';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aLogUserEventRequest,TLogUserEventResponse) as TLogUserEventResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TClientMessagesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TClientMessagesResource.ResourceName : String;
+
+begin
+ Result:='clientMessages';
+end;
+
+Class Function TClientMessagesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TpartnersAPI;
+end;
+
+Function TClientMessagesResource.Log(aLogMessageRequest : TLogMessageRequest) : TLogMessageResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v2/clientMessages:log';
+ _Methodid = 'partners.clientMessages.log';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aLogMessageRequest,TLogMessageResponse) as TLogMessageResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TUserStatesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TUserStatesResource.ResourceName : String;
+
+begin
+ Result:='userStates';
+end;
+
+Class Function TUserStatesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TpartnersAPI;
+end;
+
+Function TUserStatesResource.List(AQuery : string = '') : TListUserStatesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2/userStates';
+ _Methodid = 'partners.userStates.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListUserStatesResponse) as TListUserStatesResponse;
+end;
+
+
+Function TUserStatesResource.List(AQuery : TUserStateslistOptions) : TListUserStatesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'requestMetadata.userOverrides.ipAddress',AQuery.requestMetadatauserOverridesipAddress);
+ AddToQuery(_Q,'requestMetadata.userOverrides.userId',AQuery.requestMetadatauserOverridesuserId);
+ AddToQuery(_Q,'requestMetadata.locale',AQuery.requestMetadatalocale);
+ AddToQuery(_Q,'requestMetadata.partnersSessionId',AQuery.requestMetadatapartnersSessionId);
+ AddToQuery(_Q,'requestMetadata.experimentIds',AQuery.requestMetadataexperimentIds);
+ AddToQuery(_Q,'requestMetadata.trafficSource.trafficSourceId',AQuery.requestMetadatatrafficSourcetrafficSourceId);
+ AddToQuery(_Q,'requestMetadata.trafficSource.trafficSubId',AQuery.requestMetadatatrafficSourcetrafficSubId);
+ Result:=List(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCompaniesLeadsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TCompaniesLeadsResource.ResourceName : String;
+
+begin
+ Result:='leads';
+end;
+
+Class Function TCompaniesLeadsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TpartnersAPI;
+end;
+
+Function TCompaniesLeadsResource.Create(companyId: string; aCreateLeadRequest : TCreateLeadRequest) : TCreateLeadResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v2/companies/{companyId}/leads';
+ _Methodid = 'partners.companies.leads.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['companyId',companyId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCreateLeadRequest,TCreateLeadResponse) as TCreateLeadResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TCompaniesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TCompaniesResource.ResourceName : String;
+
+begin
+ Result:='companies';
+end;
+
+Class Function TCompaniesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TpartnersAPI;
+end;
+
+Function TCompaniesResource.Get(companyId: string; AQuery : string = '') : TGetCompanyResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2/companies/{companyId}';
+ _Methodid = 'partners.companies.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['companyId',companyId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TGetCompanyResponse) as TGetCompanyResponse;
+end;
+
+
+Function TCompaniesResource.Get(companyId: string; AQuery : TCompaniesgetOptions) : TGetCompanyResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'requestMetadata.userOverrides.ipAddress',AQuery.requestMetadatauserOverridesipAddress);
+ AddToQuery(_Q,'requestMetadata.userOverrides.userId',AQuery.requestMetadatauserOverridesuserId);
+ AddToQuery(_Q,'requestMetadata.locale',AQuery.requestMetadatalocale);
+ AddToQuery(_Q,'requestMetadata.partnersSessionId',AQuery.requestMetadatapartnersSessionId);
+ AddToQuery(_Q,'requestMetadata.experimentIds',AQuery.requestMetadataexperimentIds);
+ AddToQuery(_Q,'requestMetadata.trafficSource.trafficSourceId',AQuery.requestMetadatatrafficSourcetrafficSourceId);
+ AddToQuery(_Q,'requestMetadata.trafficSource.trafficSubId',AQuery.requestMetadatatrafficSourcetrafficSubId);
+ AddToQuery(_Q,'view',AQuery.view);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'currencyCode',AQuery.currencyCode);
+ AddToQuery(_Q,'address',AQuery.address);
+ Result:=Get(companyId,_Q);
+end;
+
+Function TCompaniesResource.List(AQuery : string = '') : TListCompaniesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v2/companies';
+ _Methodid = 'partners.companies.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListCompaniesResponse) as TListCompaniesResponse;
+end;
+
+
+Function TCompaniesResource.List(AQuery : TCompanieslistOptions) : TListCompaniesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'requestMetadata.userOverrides.ipAddress',AQuery.requestMetadatauserOverridesipAddress);
+ AddToQuery(_Q,'requestMetadata.userOverrides.userId',AQuery.requestMetadatauserOverridesuserId);
+ AddToQuery(_Q,'requestMetadata.locale',AQuery.requestMetadatalocale);
+ AddToQuery(_Q,'requestMetadata.partnersSessionId',AQuery.requestMetadatapartnersSessionId);
+ AddToQuery(_Q,'requestMetadata.experimentIds',AQuery.requestMetadataexperimentIds);
+ AddToQuery(_Q,'requestMetadata.trafficSource.trafficSourceId',AQuery.requestMetadatatrafficSourcetrafficSourceId);
+ AddToQuery(_Q,'requestMetadata.trafficSource.trafficSubId',AQuery.requestMetadatatrafficSourcetrafficSubId);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'companyName',AQuery.companyName);
+ AddToQuery(_Q,'view',AQuery.view);
+ AddToQuery(_Q,'minMonthlyBudget.currencyCode',AQuery.minMonthlyBudgetcurrencyCode);
+ AddToQuery(_Q,'minMonthlyBudget.units',AQuery.minMonthlyBudgetunits);
+ AddToQuery(_Q,'minMonthlyBudget.nanos',AQuery.minMonthlyBudgetnanos);
+ AddToQuery(_Q,'maxMonthlyBudget.currencyCode',AQuery.maxMonthlyBudgetcurrencyCode);
+ AddToQuery(_Q,'maxMonthlyBudget.units',AQuery.maxMonthlyBudgetunits);
+ AddToQuery(_Q,'maxMonthlyBudget.nanos',AQuery.maxMonthlyBudgetnanos);
+ AddToQuery(_Q,'industries',AQuery.industries);
+ AddToQuery(_Q,'services',AQuery.services);
+ AddToQuery(_Q,'languageCodes',AQuery.languageCodes);
+ AddToQuery(_Q,'address',AQuery.address);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'gpsMotivations',AQuery.gpsMotivations);
+ AddToQuery(_Q,'websiteUrl',AQuery.websiteUrl);
+ Result:=List(_Q);
+end;
+
+
+
+Function TCompaniesResource.GetLeadsInstance : TCompaniesLeadsResource;
+
+begin
+ if (FLeadsInstance=Nil) then
+ FLeadsInstance:=CreateLeadsResource;
+ Result:=FLeadsInstance;
+end;
+
+Function TCompaniesResource.CreateLeadsResource : TCompaniesLeadsResource;
+
+begin
+ Result:=CreateLeadsResource(Self);
+end;
+
+
+Function TCompaniesResource.CreateLeadsResource(AOwner : TComponent) : TCompaniesLeadsResource;
+
+begin
+ Result:=TCompaniesLeadsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TPartnersAPI
+ --------------------------------------------------------------------}
+
+Class Function TPartnersAPI.APIName : String;
+
+begin
+ Result:='partners';
+end;
+
+Class Function TPartnersAPI.APIVersion : String;
+
+begin
+ Result:='v2';
+end;
+
+Class Function TPartnersAPI.APIRevision : String;
+
+begin
+ Result:='20151009';
+end;
+
+Class Function TPartnersAPI.APIID : String;
+
+begin
+ Result:='partners:v2';
+end;
+
+Class Function TPartnersAPI.APITitle : String;
+
+begin
+ Result:='Google Partners API';
+end;
+
+Class Function TPartnersAPI.APIDescription : String;
+
+begin
+ Result:='Lets advertisers search certified companies and create contact leads with them, and also audits the usage of clients.';
+end;
+
+Class Function TPartnersAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TPartnersAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TPartnersAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TPartnersAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TPartnersAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/partners/';
+end;
+
+Class Function TPartnersAPI.APIrootUrl : string;
+
+begin
+ Result:='https://partners.googleapis.com/';
+end;
+
+Class Function TPartnersAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TPartnersAPI.APIbaseURL : String;
+
+begin
+ Result:='https://partners.googleapis.com/';
+end;
+
+Class Function TPartnersAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TPartnersAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TPartnersAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TPartnersAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,0);
+
+end;
+
+Class Function TPartnersAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=False;
+end;
+
+Class Procedure TPartnersAPI.RegisterAPIResources;
+
+begin
+ TLogUserEventRequest.RegisterObject;
+ TRequestMetadata.RegisterObject;
+ TUserOverrides.RegisterObject;
+ TTrafficSource.RegisterObject;
+ TEventData.RegisterObject;
+ TLead.RegisterObject;
+ TMoney.RegisterObject;
+ TLogUserEventResponse.RegisterObject;
+ TResponseMetadata.RegisterObject;
+ TDebugInfo.RegisterObject;
+ TLogMessageRequestTypeclientInfo.RegisterObject;
+ TLogMessageRequest.RegisterObject;
+ TLogMessageResponse.RegisterObject;
+ TListUserStatesResponse.RegisterObject;
+ TGetCompanyResponse.RegisterObject;
+ TCompany.RegisterObject;
+ TLocalizedCompanyInfo.RegisterObject;
+ TLocation.RegisterObject;
+ TLatLng.RegisterObject;
+ TPublicProfile.RegisterObject;
+ TCertificationStatus.RegisterObject;
+ TCertificationExamStatus.RegisterObject;
+ TRank.RegisterObject;
+ TListCompaniesResponse.RegisterObject;
+ TCreateLeadRequest.RegisterObject;
+ TRecaptchaChallenge.RegisterObject;
+ TCreateLeadResponse.RegisterObject;
+end;
+
+
+Function TPartnersAPI.GetUserEventsInstance : TUserEventsResource;
+
+begin
+ if (FUserEventsInstance=Nil) then
+ FUserEventsInstance:=CreateUserEventsResource;
+ Result:=FUserEventsInstance;
+end;
+
+Function TPartnersAPI.CreateUserEventsResource : TUserEventsResource;
+
+begin
+ Result:=CreateUserEventsResource(Self);
+end;
+
+
+Function TPartnersAPI.CreateUserEventsResource(AOwner : TComponent) : TUserEventsResource;
+
+begin
+ Result:=TUserEventsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPartnersAPI.GetClientMessagesInstance : TClientMessagesResource;
+
+begin
+ if (FClientMessagesInstance=Nil) then
+ FClientMessagesInstance:=CreateClientMessagesResource;
+ Result:=FClientMessagesInstance;
+end;
+
+Function TPartnersAPI.CreateClientMessagesResource : TClientMessagesResource;
+
+begin
+ Result:=CreateClientMessagesResource(Self);
+end;
+
+
+Function TPartnersAPI.CreateClientMessagesResource(AOwner : TComponent) : TClientMessagesResource;
+
+begin
+ Result:=TClientMessagesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPartnersAPI.GetUserStatesInstance : TUserStatesResource;
+
+begin
+ if (FUserStatesInstance=Nil) then
+ FUserStatesInstance:=CreateUserStatesResource;
+ Result:=FUserStatesInstance;
+end;
+
+Function TPartnersAPI.CreateUserStatesResource : TUserStatesResource;
+
+begin
+ Result:=CreateUserStatesResource(Self);
+end;
+
+
+Function TPartnersAPI.CreateUserStatesResource(AOwner : TComponent) : TUserStatesResource;
+
+begin
+ Result:=TUserStatesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPartnersAPI.GetCompaniesLeadsInstance : TCompaniesLeadsResource;
+
+begin
+ if (FCompaniesLeadsInstance=Nil) then
+ FCompaniesLeadsInstance:=CreateCompaniesLeadsResource;
+ Result:=FCompaniesLeadsInstance;
+end;
+
+Function TPartnersAPI.CreateCompaniesLeadsResource : TCompaniesLeadsResource;
+
+begin
+ Result:=CreateCompaniesLeadsResource(Self);
+end;
+
+
+Function TPartnersAPI.CreateCompaniesLeadsResource(AOwner : TComponent) : TCompaniesLeadsResource;
+
+begin
+ Result:=TCompaniesLeadsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPartnersAPI.GetCompaniesInstance : TCompaniesResource;
+
+begin
+ if (FCompaniesInstance=Nil) then
+ FCompaniesInstance:=CreateCompaniesResource;
+ Result:=FCompaniesInstance;
+end;
+
+Function TPartnersAPI.CreateCompaniesResource : TCompaniesResource;
+
+begin
+ Result:=CreateCompaniesResource(Self);
+end;
+
+
+Function TPartnersAPI.CreateCompaniesResource(AOwner : TComponent) : TCompaniesResource;
+
+begin
+ Result:=TCompaniesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TPartnersAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlepeople.pp b/packages/googleapi/src/googlepeople.pp
new file mode 100644
index 0000000000..18c77ce0b6
--- /dev/null
+++ b/packages/googleapi/src/googlepeople.pp
@@ -0,0 +1,3517 @@
+unit googlepeople;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TPerson = Class;
+ TPersonMetadata = Class;
+ TSource = Class;
+ TLocale = Class;
+ TFieldMetadata = Class;
+ TName = Class;
+ TNickname = Class;
+ TCoverPhoto = Class;
+ TPhoto = Class;
+ TGender = Class;
+ TBirthday = Class;
+ TDate = Class;
+ TEvent = Class;
+ TAddress = Class;
+ TResidence = Class;
+ TEmailAddress = Class;
+ TPhoneNumber = Class;
+ TImClient = Class;
+ TTagline = Class;
+ TBiography = Class;
+ TUrl = Class;
+ TOrganization = Class;
+ TOccupation = Class;
+ TInterest = Class;
+ TSkill = Class;
+ TBraggingRights = Class;
+ TRelation = Class;
+ TRelationshipInterest = Class;
+ TRelationshipStatus = Class;
+ TMembership = Class;
+ TContactGroupMembership = Class;
+ TDomainMembership = Class;
+ TGetPeopleResponse = Class;
+ TPersonResponse = Class;
+ TListConnectionsResponse = Class;
+ TPersonArray = Array of TPerson;
+ TPersonMetadataArray = Array of TPersonMetadata;
+ TSourceArray = Array of TSource;
+ TLocaleArray = Array of TLocale;
+ TFieldMetadataArray = Array of TFieldMetadata;
+ TNameArray = Array of TName;
+ TNicknameArray = Array of TNickname;
+ TCoverPhotoArray = Array of TCoverPhoto;
+ TPhotoArray = Array of TPhoto;
+ TGenderArray = Array of TGender;
+ TBirthdayArray = Array of TBirthday;
+ TDateArray = Array of TDate;
+ TEventArray = Array of TEvent;
+ TAddressArray = Array of TAddress;
+ TResidenceArray = Array of TResidence;
+ TEmailAddressArray = Array of TEmailAddress;
+ TPhoneNumberArray = Array of TPhoneNumber;
+ TImClientArray = Array of TImClient;
+ TTaglineArray = Array of TTagline;
+ TBiographyArray = Array of TBiography;
+ TUrlArray = Array of TUrl;
+ TOrganizationArray = Array of TOrganization;
+ TOccupationArray = Array of TOccupation;
+ TInterestArray = Array of TInterest;
+ TSkillArray = Array of TSkill;
+ TBraggingRightsArray = Array of TBraggingRights;
+ TRelationArray = Array of TRelation;
+ TRelationshipInterestArray = Array of TRelationshipInterest;
+ TRelationshipStatusArray = Array of TRelationshipStatus;
+ TMembershipArray = Array of TMembership;
+ TContactGroupMembershipArray = Array of TContactGroupMembership;
+ TDomainMembershipArray = Array of TDomainMembership;
+ TGetPeopleResponseArray = Array of TGetPeopleResponse;
+ TPersonResponseArray = Array of TPersonResponse;
+ TListConnectionsResponseArray = Array of TListConnectionsResponse;
+ //Anonymous types, using auto-generated names
+ TPersonTypelocalesArray = Array of TLocale;
+ TPersonTypenamesArray = Array of TName;
+ TPersonTypenicknamesArray = Array of TNickname;
+ TPersonTypecoverPhotosArray = Array of TCoverPhoto;
+ TPersonTypephotosArray = Array of TPhoto;
+ TPersonTypegendersArray = Array of TGender;
+ TPersonTypebirthdaysArray = Array of TBirthday;
+ TPersonTypeeventsArray = Array of TEvent;
+ TPersonTypeaddressesArray = Array of TAddress;
+ TPersonTyperesidencesArray = Array of TResidence;
+ TPersonTypeemailAddressesArray = Array of TEmailAddress;
+ TPersonTypephoneNumbersArray = Array of TPhoneNumber;
+ TPersonTypeimClientsArray = Array of TImClient;
+ TPersonTypetaglinesArray = Array of TTagline;
+ TPersonTypebiographiesArray = Array of TBiography;
+ TPersonTypeurlsArray = Array of TUrl;
+ TPersonTypeorganizationsArray = Array of TOrganization;
+ TPersonTypeoccupationsArray = Array of TOccupation;
+ TPersonTypeinterestsArray = Array of TInterest;
+ TPersonTypeskillsArray = Array of TSkill;
+ TPersonTypebraggingRightsArray = Array of TBraggingRights;
+ TPersonTyperelationsArray = Array of TRelation;
+ TPersonTyperelationshipInterestsArray = Array of TRelationshipInterest;
+ TPersonTyperelationshipStatusesArray = Array of TRelationshipStatus;
+ TPersonTypemembershipsArray = Array of TMembership;
+ TPersonMetadataTypesourcesArray = Array of TSource;
+ TGetPeopleResponseTyperesponsesArray = Array of TPersonResponse;
+ TListConnectionsResponseTypeconnectionsArray = Array of TPerson;
+
+ { --------------------------------------------------------------------
+ TPerson
+ --------------------------------------------------------------------}
+
+ TPerson = Class(TGoogleBaseObject)
+ Private
+ FresourceName : String;
+ Fetag : String;
+ Fmetadata : TPersonMetadata;
+ Flocales : TPersonTypelocalesArray;
+ Fnames : TPersonTypenamesArray;
+ Fnicknames : TPersonTypenicknamesArray;
+ FcoverPhotos : TPersonTypecoverPhotosArray;
+ Fphotos : TPersonTypephotosArray;
+ Fgenders : TPersonTypegendersArray;
+ FageRange : String;
+ Fbirthdays : TPersonTypebirthdaysArray;
+ Fevents : TPersonTypeeventsArray;
+ Faddresses : TPersonTypeaddressesArray;
+ Fresidences : TPersonTyperesidencesArray;
+ FemailAddresses : TPersonTypeemailAddressesArray;
+ FphoneNumbers : TPersonTypephoneNumbersArray;
+ FimClients : TPersonTypeimClientsArray;
+ Ftaglines : TPersonTypetaglinesArray;
+ Fbiographies : TPersonTypebiographiesArray;
+ Furls : TPersonTypeurlsArray;
+ Forganizations : TPersonTypeorganizationsArray;
+ Foccupations : TPersonTypeoccupationsArray;
+ Finterests : TPersonTypeinterestsArray;
+ Fskills : TPersonTypeskillsArray;
+ FbraggingRights : TPersonTypebraggingRightsArray;
+ Frelations : TPersonTyperelationsArray;
+ FrelationshipInterests : TPersonTyperelationshipInterestsArray;
+ FrelationshipStatuses : TPersonTyperelationshipStatusesArray;
+ Fmemberships : TPersonTypemembershipsArray;
+ Protected
+ //Property setters
+ Procedure SetresourceName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TPersonMetadata); virtual;
+ Procedure Setlocales(AIndex : Integer; const AValue : TPersonTypelocalesArray); virtual;
+ Procedure Setnames(AIndex : Integer; const AValue : TPersonTypenamesArray); virtual;
+ Procedure Setnicknames(AIndex : Integer; const AValue : TPersonTypenicknamesArray); virtual;
+ Procedure SetcoverPhotos(AIndex : Integer; const AValue : TPersonTypecoverPhotosArray); virtual;
+ Procedure Setphotos(AIndex : Integer; const AValue : TPersonTypephotosArray); virtual;
+ Procedure Setgenders(AIndex : Integer; const AValue : TPersonTypegendersArray); virtual;
+ Procedure SetageRange(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setbirthdays(AIndex : Integer; const AValue : TPersonTypebirthdaysArray); virtual;
+ Procedure Setevents(AIndex : Integer; const AValue : TPersonTypeeventsArray); virtual;
+ Procedure Setaddresses(AIndex : Integer; const AValue : TPersonTypeaddressesArray); virtual;
+ Procedure Setresidences(AIndex : Integer; const AValue : TPersonTyperesidencesArray); virtual;
+ Procedure SetemailAddresses(AIndex : Integer; const AValue : TPersonTypeemailAddressesArray); virtual;
+ Procedure SetphoneNumbers(AIndex : Integer; const AValue : TPersonTypephoneNumbersArray); virtual;
+ Procedure SetimClients(AIndex : Integer; const AValue : TPersonTypeimClientsArray); virtual;
+ Procedure Settaglines(AIndex : Integer; const AValue : TPersonTypetaglinesArray); virtual;
+ Procedure Setbiographies(AIndex : Integer; const AValue : TPersonTypebiographiesArray); virtual;
+ Procedure Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray); virtual;
+ Procedure Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray); virtual;
+ Procedure Setoccupations(AIndex : Integer; const AValue : TPersonTypeoccupationsArray); virtual;
+ Procedure Setinterests(AIndex : Integer; const AValue : TPersonTypeinterestsArray); virtual;
+ Procedure Setskills(AIndex : Integer; const AValue : TPersonTypeskillsArray); virtual;
+ Procedure SetbraggingRights(AIndex : Integer; const AValue : TPersonTypebraggingRightsArray); virtual;
+ Procedure Setrelations(AIndex : Integer; const AValue : TPersonTyperelationsArray); virtual;
+ Procedure SetrelationshipInterests(AIndex : Integer; const AValue : TPersonTyperelationshipInterestsArray); virtual;
+ Procedure SetrelationshipStatuses(AIndex : Integer; const AValue : TPersonTyperelationshipStatusesArray); virtual;
+ Procedure Setmemberships(AIndex : Integer; const AValue : TPersonTypemembershipsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property resourceName : String Index 0 Read FresourceName Write SetresourceName;
+ Property etag : String Index 8 Read Fetag Write Setetag;
+ Property metadata : TPersonMetadata Index 16 Read Fmetadata Write Setmetadata;
+ Property locales : TPersonTypelocalesArray Index 24 Read Flocales Write Setlocales;
+ Property names : TPersonTypenamesArray Index 32 Read Fnames Write Setnames;
+ Property nicknames : TPersonTypenicknamesArray Index 40 Read Fnicknames Write Setnicknames;
+ Property coverPhotos : TPersonTypecoverPhotosArray Index 48 Read FcoverPhotos Write SetcoverPhotos;
+ Property photos : TPersonTypephotosArray Index 56 Read Fphotos Write Setphotos;
+ Property genders : TPersonTypegendersArray Index 64 Read Fgenders Write Setgenders;
+ Property ageRange : String Index 72 Read FageRange Write SetageRange;
+ Property birthdays : TPersonTypebirthdaysArray Index 80 Read Fbirthdays Write Setbirthdays;
+ Property events : TPersonTypeeventsArray Index 88 Read Fevents Write Setevents;
+ Property addresses : TPersonTypeaddressesArray Index 96 Read Faddresses Write Setaddresses;
+ Property residences : TPersonTyperesidencesArray Index 104 Read Fresidences Write Setresidences;
+ Property emailAddresses : TPersonTypeemailAddressesArray Index 112 Read FemailAddresses Write SetemailAddresses;
+ Property phoneNumbers : TPersonTypephoneNumbersArray Index 120 Read FphoneNumbers Write SetphoneNumbers;
+ Property imClients : TPersonTypeimClientsArray Index 128 Read FimClients Write SetimClients;
+ Property taglines : TPersonTypetaglinesArray Index 136 Read Ftaglines Write Settaglines;
+ Property biographies : TPersonTypebiographiesArray Index 144 Read Fbiographies Write Setbiographies;
+ Property urls : TPersonTypeurlsArray Index 152 Read Furls Write Seturls;
+ Property organizations : TPersonTypeorganizationsArray Index 160 Read Forganizations Write Setorganizations;
+ Property occupations : TPersonTypeoccupationsArray Index 168 Read Foccupations Write Setoccupations;
+ Property interests : TPersonTypeinterestsArray Index 176 Read Finterests Write Setinterests;
+ Property skills : TPersonTypeskillsArray Index 184 Read Fskills Write Setskills;
+ Property braggingRights : TPersonTypebraggingRightsArray Index 192 Read FbraggingRights Write SetbraggingRights;
+ Property relations : TPersonTyperelationsArray Index 200 Read Frelations Write Setrelations;
+ Property relationshipInterests : TPersonTyperelationshipInterestsArray Index 208 Read FrelationshipInterests Write SetrelationshipInterests;
+ Property relationshipStatuses : TPersonTyperelationshipStatusesArray Index 216 Read FrelationshipStatuses Write SetrelationshipStatuses;
+ Property memberships : TPersonTypemembershipsArray Index 224 Read Fmemberships Write Setmemberships;
+ end;
+ TPersonClass = Class of TPerson;
+
+ { --------------------------------------------------------------------
+ TPersonMetadata
+ --------------------------------------------------------------------}
+
+ TPersonMetadata = Class(TGoogleBaseObject)
+ Private
+ Fsources : TPersonMetadataTypesourcesArray;
+ FpreviousResourceNames : TStringArray;
+ Fdeleted : boolean;
+ FobjectType : String;
+ Protected
+ //Property setters
+ Procedure Setsources(AIndex : Integer; const AValue : TPersonMetadataTypesourcesArray); virtual;
+ Procedure SetpreviousResourceNames(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetobjectType(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 sources : TPersonMetadataTypesourcesArray Index 0 Read Fsources Write Setsources;
+ Property previousResourceNames : TStringArray Index 8 Read FpreviousResourceNames Write SetpreviousResourceNames;
+ Property deleted : boolean Index 16 Read Fdeleted Write Setdeleted;
+ Property objectType : String Index 24 Read FobjectType Write SetobjectType;
+ end;
+ TPersonMetadataClass = Class of TPersonMetadata;
+
+ { --------------------------------------------------------------------
+ TSource
+ --------------------------------------------------------------------}
+
+ TSource = 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;
+ TSourceClass = Class of TSource;
+
+ { --------------------------------------------------------------------
+ TLocale
+ --------------------------------------------------------------------}
+
+ TLocale = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TLocaleClass = Class of TLocale;
+
+ { --------------------------------------------------------------------
+ TFieldMetadata
+ --------------------------------------------------------------------}
+
+ TFieldMetadata = Class(TGoogleBaseObject)
+ Private
+ Fprimary : boolean;
+ Fverified : boolean;
+ Fsource : TSource;
+ Protected
+ //Property setters
+ Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setverified(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TSource); virtual;
+ Public
+ Published
+ Property primary : boolean Index 0 Read Fprimary Write Setprimary;
+ Property verified : boolean Index 8 Read Fverified Write Setverified;
+ Property source : TSource Index 16 Read Fsource Write Setsource;
+ end;
+ TFieldMetadataClass = Class of TFieldMetadata;
+
+ { --------------------------------------------------------------------
+ TName
+ --------------------------------------------------------------------}
+
+ TName = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ FdisplayName : String;
+ FfamilyName : String;
+ FgivenName : String;
+ FmiddleName : String;
+ FhonorificPrefix : String;
+ FhonorificSuffix : String;
+ FphoneticFamilyName : String;
+ FphoneticGivenName : String;
+ FphoneticMiddleName : String;
+ FphoneticHonorificPrefix : String;
+ FphoneticHonorificSuffix : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfamilyName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetgivenName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmiddleName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethonorificPrefix(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethonorificSuffix(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetphoneticFamilyName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetphoneticGivenName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetphoneticMiddleName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetphoneticHonorificPrefix(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetphoneticHonorificSuffix(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+ Property familyName : String Index 16 Read FfamilyName Write SetfamilyName;
+ Property givenName : String Index 24 Read FgivenName Write SetgivenName;
+ Property middleName : String Index 32 Read FmiddleName Write SetmiddleName;
+ Property honorificPrefix : String Index 40 Read FhonorificPrefix Write SethonorificPrefix;
+ Property honorificSuffix : String Index 48 Read FhonorificSuffix Write SethonorificSuffix;
+ Property phoneticFamilyName : String Index 56 Read FphoneticFamilyName Write SetphoneticFamilyName;
+ Property phoneticGivenName : String Index 64 Read FphoneticGivenName Write SetphoneticGivenName;
+ Property phoneticMiddleName : String Index 72 Read FphoneticMiddleName Write SetphoneticMiddleName;
+ Property phoneticHonorificPrefix : String Index 80 Read FphoneticHonorificPrefix Write SetphoneticHonorificPrefix;
+ Property phoneticHonorificSuffix : String Index 88 Read FphoneticHonorificSuffix Write SetphoneticHonorificSuffix;
+ end;
+ TNameClass = Class of TName;
+
+ { --------------------------------------------------------------------
+ TNickname
+ --------------------------------------------------------------------}
+
+ TNickname = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ Property _type : String Index 16 Read F_type Write Set_type;
+ end;
+ TNicknameClass = Class of TNickname;
+
+ { --------------------------------------------------------------------
+ TCoverPhoto
+ --------------------------------------------------------------------}
+
+ TCoverPhoto = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Furl : String;
+ Fdefault : boolean;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdefault(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property url : String Index 8 Read Furl Write Seturl;
+ Property default : boolean Index 16 Read Fdefault Write Setdefault;
+ end;
+ TCoverPhotoClass = Class of TCoverPhoto;
+
+ { --------------------------------------------------------------------
+ TPhoto
+ --------------------------------------------------------------------}
+
+ TPhoto = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Furl : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property url : String Index 8 Read Furl Write Seturl;
+ end;
+ TPhotoClass = Class of TPhoto;
+
+ { --------------------------------------------------------------------
+ TGender
+ --------------------------------------------------------------------}
+
+ TGender = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ FformattedValue : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedValue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ Property formattedValue : String Index 16 Read FformattedValue Write SetformattedValue;
+ end;
+ TGenderClass = Class of TGender;
+
+ { --------------------------------------------------------------------
+ TBirthday
+ --------------------------------------------------------------------}
+
+ TBirthday = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fdate : TDate;
+ Ftext : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setdate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure Settext(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property date : TDate Index 8 Read Fdate Write Setdate;
+ Property text : String Index 16 Read Ftext Write Settext;
+ end;
+ TBirthdayClass = Class of TBirthday;
+
+ { --------------------------------------------------------------------
+ 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;
+
+ { --------------------------------------------------------------------
+ TEvent
+ --------------------------------------------------------------------}
+
+ TEvent = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fdate : TDate;
+ F_type : String;
+ FformattedType : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setdate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property date : TDate Index 8 Read Fdate Write Setdate;
+ Property _type : String Index 16 Read F_type Write Set_type;
+ Property formattedType : String Index 24 Read FformattedType Write SetformattedType;
+ end;
+ TEventClass = Class of TEvent;
+
+ { --------------------------------------------------------------------
+ TAddress
+ --------------------------------------------------------------------}
+
+ TAddress = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ FformattedValue : String;
+ F_type : String;
+ FformattedType : String;
+ FpoBox : String;
+ FstreetAddress : String;
+ FextendedAddress : String;
+ Fcity : String;
+ Fregion : String;
+ FpostalCode : String;
+ Fcountry : String;
+ FcountryCode : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure SetformattedValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpoBox(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstreetAddress(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetextendedAddress(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcity(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpostalCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcountryCode(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property formattedValue : String Index 8 Read FformattedValue Write SetformattedValue;
+ Property _type : String Index 16 Read F_type Write Set_type;
+ Property formattedType : String Index 24 Read FformattedType Write SetformattedType;
+ Property poBox : String Index 32 Read FpoBox Write SetpoBox;
+ Property streetAddress : String Index 40 Read FstreetAddress Write SetstreetAddress;
+ Property extendedAddress : String Index 48 Read FextendedAddress Write SetextendedAddress;
+ Property city : String Index 56 Read Fcity Write Setcity;
+ Property region : String Index 64 Read Fregion Write Setregion;
+ Property postalCode : String Index 72 Read FpostalCode Write SetpostalCode;
+ Property country : String Index 80 Read Fcountry Write Setcountry;
+ Property countryCode : String Index 88 Read FcountryCode Write SetcountryCode;
+ end;
+ TAddressClass = Class of TAddress;
+
+ { --------------------------------------------------------------------
+ TResidence
+ --------------------------------------------------------------------}
+
+ TResidence = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ Fcurrent : boolean;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcurrent(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ Property current : boolean Index 16 Read Fcurrent Write Setcurrent;
+ end;
+ TResidenceClass = Class of TResidence;
+
+ { --------------------------------------------------------------------
+ TEmailAddress
+ --------------------------------------------------------------------}
+
+ TEmailAddress = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ F_type : String;
+ FformattedType : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ Property _type : String Index 16 Read F_type Write Set_type;
+ Property formattedType : String Index 24 Read FformattedType Write SetformattedType;
+ end;
+ TEmailAddressClass = Class of TEmailAddress;
+
+ { --------------------------------------------------------------------
+ TPhoneNumber
+ --------------------------------------------------------------------}
+
+ TPhoneNumber = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ FcanonicalForm : String;
+ F_type : String;
+ FformattedType : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcanonicalForm(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ Property canonicalForm : String Index 16 Read FcanonicalForm Write SetcanonicalForm;
+ Property _type : String Index 24 Read F_type Write Set_type;
+ Property formattedType : String Index 32 Read FformattedType Write SetformattedType;
+ end;
+ TPhoneNumberClass = Class of TPhoneNumber;
+
+ { --------------------------------------------------------------------
+ TImClient
+ --------------------------------------------------------------------}
+
+ TImClient = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fusername : String;
+ F_type : String;
+ FformattedType : String;
+ Fprotocol : String;
+ FformattedProtocol : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setprotocol(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedProtocol(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property username : String Index 8 Read Fusername Write Setusername;
+ Property _type : String Index 16 Read F_type Write Set_type;
+ Property formattedType : String Index 24 Read FformattedType Write SetformattedType;
+ Property protocol : String Index 32 Read Fprotocol Write Setprotocol;
+ Property formattedProtocol : String Index 40 Read FformattedProtocol Write SetformattedProtocol;
+ end;
+ TImClientClass = Class of TImClient;
+
+ { --------------------------------------------------------------------
+ TTagline
+ --------------------------------------------------------------------}
+
+ TTagline = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TTaglineClass = Class of TTagline;
+
+ { --------------------------------------------------------------------
+ TBiography
+ --------------------------------------------------------------------}
+
+ TBiography = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TBiographyClass = Class of TBiography;
+
+ { --------------------------------------------------------------------
+ TUrl
+ --------------------------------------------------------------------}
+
+ TUrl = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ F_type : String;
+ FformattedType : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ Property _type : String Index 16 Read F_type Write Set_type;
+ Property formattedType : String Index 24 Read FformattedType Write SetformattedType;
+ end;
+ TUrlClass = Class of TUrl;
+
+ { --------------------------------------------------------------------
+ TOrganization
+ --------------------------------------------------------------------}
+
+ TOrganization = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ F_type : String;
+ FformattedType : String;
+ FstartDate : TDate;
+ FendDate : TDate;
+ Fcurrent : boolean;
+ Fname : String;
+ FphoneticName : String;
+ Fdepartment : String;
+ Ftitle : String;
+ FjobDescription : String;
+ Fsymbol : String;
+ Fdomain : String;
+ Flocation : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartDate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure SetendDate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure Setcurrent(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetphoneticName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdepartment(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetjobDescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsymbol(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdomain(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ Property formattedType : String Index 16 Read FformattedType Write SetformattedType;
+ Property startDate : TDate Index 24 Read FstartDate Write SetstartDate;
+ Property endDate : TDate Index 32 Read FendDate Write SetendDate;
+ Property current : boolean Index 40 Read Fcurrent Write Setcurrent;
+ Property name : String Index 48 Read Fname Write Setname;
+ Property phoneticName : String Index 56 Read FphoneticName Write SetphoneticName;
+ Property department : String Index 64 Read Fdepartment Write Setdepartment;
+ Property title : String Index 72 Read Ftitle Write Settitle;
+ Property jobDescription : String Index 80 Read FjobDescription Write SetjobDescription;
+ Property symbol : String Index 88 Read Fsymbol Write Setsymbol;
+ Property domain : String Index 96 Read Fdomain Write Setdomain;
+ Property location : String Index 104 Read Flocation Write Setlocation;
+ end;
+ TOrganizationClass = Class of TOrganization;
+
+ { --------------------------------------------------------------------
+ TOccupation
+ --------------------------------------------------------------------}
+
+ TOccupation = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TOccupationClass = Class of TOccupation;
+
+ { --------------------------------------------------------------------
+ TInterest
+ --------------------------------------------------------------------}
+
+ TInterest = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TInterestClass = Class of TInterest;
+
+ { --------------------------------------------------------------------
+ TSkill
+ --------------------------------------------------------------------}
+
+ TSkill = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TSkillClass = Class of TSkill;
+
+ { --------------------------------------------------------------------
+ TBraggingRights
+ --------------------------------------------------------------------}
+
+ TBraggingRights = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TBraggingRightsClass = Class of TBraggingRights;
+
+ { --------------------------------------------------------------------
+ TRelation
+ --------------------------------------------------------------------}
+
+ TRelation = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fperson : String;
+ F_type : String;
+ FformattedType : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setperson(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property person : String Index 8 Read Fperson Write Setperson;
+ Property _type : String Index 16 Read F_type Write Set_type;
+ Property formattedType : String Index 24 Read FformattedType Write SetformattedType;
+ end;
+ TRelationClass = Class of TRelation;
+
+ { --------------------------------------------------------------------
+ TRelationshipInterest
+ --------------------------------------------------------------------}
+
+ TRelationshipInterest = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ FformattedValue : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedValue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ Property formattedValue : String Index 16 Read FformattedValue Write SetformattedValue;
+ end;
+ TRelationshipInterestClass = Class of TRelationshipInterest;
+
+ { --------------------------------------------------------------------
+ TRelationshipStatus
+ --------------------------------------------------------------------}
+
+ TRelationshipStatus = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ Fvalue : String;
+ FformattedValue : String;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedValue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ Property formattedValue : String Index 16 Read FformattedValue Write SetformattedValue;
+ end;
+ TRelationshipStatusClass = Class of TRelationshipStatus;
+
+ { --------------------------------------------------------------------
+ TMembership
+ --------------------------------------------------------------------}
+
+ TMembership = Class(TGoogleBaseObject)
+ Private
+ Fmetadata : TFieldMetadata;
+ FcontactGroupMembership : TContactGroupMembership;
+ FdomainMembership : TDomainMembership;
+ Protected
+ //Property setters
+ Procedure Setmetadata(AIndex : Integer; const AValue : TFieldMetadata); virtual;
+ Procedure SetcontactGroupMembership(AIndex : Integer; const AValue : TContactGroupMembership); virtual;
+ Procedure SetdomainMembership(AIndex : Integer; const AValue : TDomainMembership); virtual;
+ Public
+ Published
+ Property metadata : TFieldMetadata Index 0 Read Fmetadata Write Setmetadata;
+ Property contactGroupMembership : TContactGroupMembership Index 8 Read FcontactGroupMembership Write SetcontactGroupMembership;
+ Property domainMembership : TDomainMembership Index 16 Read FdomainMembership Write SetdomainMembership;
+ end;
+ TMembershipClass = Class of TMembership;
+
+ { --------------------------------------------------------------------
+ TContactGroupMembership
+ --------------------------------------------------------------------}
+
+ TContactGroupMembership = Class(TGoogleBaseObject)
+ Private
+ FcontactGroupId : String;
+ Protected
+ //Property setters
+ Procedure SetcontactGroupId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property contactGroupId : String Index 0 Read FcontactGroupId Write SetcontactGroupId;
+ end;
+ TContactGroupMembershipClass = Class of TContactGroupMembership;
+
+ { --------------------------------------------------------------------
+ TDomainMembership
+ --------------------------------------------------------------------}
+
+ TDomainMembership = Class(TGoogleBaseObject)
+ Private
+ FinViewerDomain : boolean;
+ Protected
+ //Property setters
+ Procedure SetinViewerDomain(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property inViewerDomain : boolean Index 0 Read FinViewerDomain Write SetinViewerDomain;
+ end;
+ TDomainMembershipClass = Class of TDomainMembership;
+
+ { --------------------------------------------------------------------
+ TGetPeopleResponse
+ --------------------------------------------------------------------}
+
+ TGetPeopleResponse = Class(TGoogleBaseObject)
+ Private
+ Fresponses : TGetPeopleResponseTyperesponsesArray;
+ Protected
+ //Property setters
+ Procedure Setresponses(AIndex : Integer; const AValue : TGetPeopleResponseTyperesponsesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property responses : TGetPeopleResponseTyperesponsesArray Index 0 Read Fresponses Write Setresponses;
+ end;
+ TGetPeopleResponseClass = Class of TGetPeopleResponse;
+
+ { --------------------------------------------------------------------
+ TPersonResponse
+ --------------------------------------------------------------------}
+
+ TPersonResponse = Class(TGoogleBaseObject)
+ Private
+ FhttpStatusCode : integer;
+ Fperson : TPerson;
+ FrequestedResourceName : String;
+ Protected
+ //Property setters
+ Procedure SethttpStatusCode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setperson(AIndex : Integer; const AValue : TPerson); virtual;
+ Procedure SetrequestedResourceName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property httpStatusCode : integer Index 0 Read FhttpStatusCode Write SethttpStatusCode;
+ Property person : TPerson Index 8 Read Fperson Write Setperson;
+ Property requestedResourceName : String Index 16 Read FrequestedResourceName Write SetrequestedResourceName;
+ end;
+ TPersonResponseClass = Class of TPersonResponse;
+
+ { --------------------------------------------------------------------
+ TListConnectionsResponse
+ --------------------------------------------------------------------}
+
+ TListConnectionsResponse = Class(TGoogleBaseObject)
+ Private
+ Fconnections : TListConnectionsResponseTypeconnectionsArray;
+ FnextPageToken : String;
+ FnextSyncToken : String;
+ Protected
+ //Property setters
+ Procedure Setconnections(AIndex : Integer; const AValue : TListConnectionsResponseTypeconnectionsArray); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextSyncToken(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 connections : TListConnectionsResponseTypeconnectionsArray Index 0 Read Fconnections Write Setconnections;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property nextSyncToken : String Index 16 Read FnextSyncToken Write SetnextSyncToken;
+ end;
+ TListConnectionsResponseClass = Class of TListConnectionsResponse;
+
+ { --------------------------------------------------------------------
+ TPeopleConnectionsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TPeopleConnectionsResource, method List
+
+ TPeopleConnectionsListOptions = Record
+ pageToken : String;
+ pageSize : integer;
+ sortOrder : String;
+ syncToken : String;
+ requestMaskincludeField : String;
+ end;
+
+ TPeopleConnectionsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(_resourceName: string; AQuery : string = '') : TListConnectionsResponse;
+ Function List(_resourceName: string; AQuery : TPeopleConnectionslistOptions) : TListConnectionsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TPeopleResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TPeopleResource, method Get
+
+ TPeopleGetOptions = Record
+ requestMaskincludeField : String;
+ end;
+
+
+ //Optional query Options for TPeopleResource, method GetBatchGet
+
+ TPeopleGetBatchGetOptions = Record
+ resourceNames : String;
+ requestMaskincludeField : String;
+ end;
+
+ TPeopleResource = Class(TGoogleResource)
+ Private
+ FConnectionsInstance : TPeopleConnectionsResource;
+ Function GetConnectionsInstance : TPeopleConnectionsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(_resourceName: string; AQuery : string = '') : TPerson;
+ Function Get(_resourceName: string; AQuery : TPeoplegetOptions) : TPerson;
+ Function GetBatchGet(AQuery : string = '') : TGetPeopleResponse;
+ Function GetBatchGet(AQuery : TPeoplegetBatchGetOptions) : TGetPeopleResponse;
+ Function CreateConnectionsResource(AOwner : TComponent) : TPeopleConnectionsResource;virtual;overload;
+ Function CreateConnectionsResource : TPeopleConnectionsResource;virtual;overload;
+ Property ConnectionsResource : TPeopleConnectionsResource Read GetConnectionsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TPeopleAPI
+ --------------------------------------------------------------------}
+
+ TPeopleAPI = Class(TGoogleAPI)
+ Private
+ FPeopleConnectionsInstance : TPeopleConnectionsResource;
+ FPeopleInstance : TPeopleResource;
+ Function GetPeopleConnectionsInstance : TPeopleConnectionsResource;virtual;
+ Function GetPeopleInstance : TPeopleResource;virtual;
+ Public
+ //Override class functions with API info
+ Class Function APIName : String; override;
+ Class Function APIVersion : String; override;
+ Class Function APIRevision : String; override;
+ Class Function APIID : String; override;
+ Class Function APITitle : String; override;
+ Class Function APIDescription : String; override;
+ Class Function APIOwnerDomain : String; override;
+ Class Function APIOwnerName : String; override;
+ Class Function APIIcon16 : String; override;
+ Class Function APIIcon32 : String; override;
+ Class Function APIdocumentationLink : String; override;
+ Class Function APIrootUrl : string; override;
+ Class Function APIbasePath : string;override;
+ Class Function APIbaseURL : String;override;
+ Class Function APIProtocol : string;override;
+ Class Function APIservicePath : string;override;
+ Class Function APIbatchPath : String;override;
+ Class Function APIAuthScopes : TScopeInfoArray;override;
+ Class Function APINeedsAuth : Boolean;override;
+ Class Procedure RegisterAPIResources; override;
+ //Add create function for resources
+ Function CreatePeopleConnectionsResource(AOwner : TComponent) : TPeopleConnectionsResource;virtual;overload;
+ Function CreatePeopleConnectionsResource : TPeopleConnectionsResource;virtual;overload;
+ Function CreatePeopleResource(AOwner : TComponent) : TPeopleResource;virtual;overload;
+ Function CreatePeopleResource : TPeopleResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property PeopleConnectionsResource : TPeopleConnectionsResource Read GetPeopleConnectionsInstance;
+ Property PeopleResource : TPeopleResource Read GetPeopleInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TPerson
+ --------------------------------------------------------------------}
+
+
+Procedure TPerson.SetresourceName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FresourceName=AValue) then exit;
+ FresourceName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setmetadata(AIndex : Integer; const AValue : TPersonMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setlocales(AIndex : Integer; const AValue : TPersonTypelocalesArray);
+
+begin
+ If (Flocales=AValue) then exit;
+ Flocales:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setnames(AIndex : Integer; const AValue : TPersonTypenamesArray);
+
+begin
+ If (Fnames=AValue) then exit;
+ Fnames:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setnicknames(AIndex : Integer; const AValue : TPersonTypenicknamesArray);
+
+begin
+ If (Fnicknames=AValue) then exit;
+ Fnicknames:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.SetcoverPhotos(AIndex : Integer; const AValue : TPersonTypecoverPhotosArray);
+
+begin
+ If (FcoverPhotos=AValue) then exit;
+ FcoverPhotos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setphotos(AIndex : Integer; const AValue : TPersonTypephotosArray);
+
+begin
+ If (Fphotos=AValue) then exit;
+ Fphotos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setgenders(AIndex : Integer; const AValue : TPersonTypegendersArray);
+
+begin
+ If (Fgenders=AValue) then exit;
+ Fgenders:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.SetageRange(AIndex : Integer; const AValue : String);
+
+begin
+ If (FageRange=AValue) then exit;
+ FageRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setbirthdays(AIndex : Integer; const AValue : TPersonTypebirthdaysArray);
+
+begin
+ If (Fbirthdays=AValue) then exit;
+ Fbirthdays:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setevents(AIndex : Integer; const AValue : TPersonTypeeventsArray);
+
+begin
+ If (Fevents=AValue) then exit;
+ Fevents:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setaddresses(AIndex : Integer; const AValue : TPersonTypeaddressesArray);
+
+begin
+ If (Faddresses=AValue) then exit;
+ Faddresses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setresidences(AIndex : Integer; const AValue : TPersonTyperesidencesArray);
+
+begin
+ If (Fresidences=AValue) then exit;
+ Fresidences:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.SetemailAddresses(AIndex : Integer; const AValue : TPersonTypeemailAddressesArray);
+
+begin
+ If (FemailAddresses=AValue) then exit;
+ FemailAddresses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.SetphoneNumbers(AIndex : Integer; const AValue : TPersonTypephoneNumbersArray);
+
+begin
+ If (FphoneNumbers=AValue) then exit;
+ FphoneNumbers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.SetimClients(AIndex : Integer; const AValue : TPersonTypeimClientsArray);
+
+begin
+ If (FimClients=AValue) then exit;
+ FimClients:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Settaglines(AIndex : Integer; const AValue : TPersonTypetaglinesArray);
+
+begin
+ If (Ftaglines=AValue) then exit;
+ Ftaglines:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setbiographies(AIndex : Integer; const AValue : TPersonTypebiographiesArray);
+
+begin
+ If (Fbiographies=AValue) then exit;
+ Fbiographies:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray);
+
+begin
+ If (Furls=AValue) then exit;
+ Furls:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray);
+
+begin
+ If (Forganizations=AValue) then exit;
+ Forganizations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setoccupations(AIndex : Integer; const AValue : TPersonTypeoccupationsArray);
+
+begin
+ If (Foccupations=AValue) then exit;
+ Foccupations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setinterests(AIndex : Integer; const AValue : TPersonTypeinterestsArray);
+
+begin
+ If (Finterests=AValue) then exit;
+ Finterests:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setskills(AIndex : Integer; const AValue : TPersonTypeskillsArray);
+
+begin
+ If (Fskills=AValue) then exit;
+ Fskills:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.SetbraggingRights(AIndex : Integer; const AValue : TPersonTypebraggingRightsArray);
+
+begin
+ If (FbraggingRights=AValue) then exit;
+ FbraggingRights:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setrelations(AIndex : Integer; const AValue : TPersonTyperelationsArray);
+
+begin
+ If (Frelations=AValue) then exit;
+ Frelations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.SetrelationshipInterests(AIndex : Integer; const AValue : TPersonTyperelationshipInterestsArray);
+
+begin
+ If (FrelationshipInterests=AValue) then exit;
+ FrelationshipInterests:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.SetrelationshipStatuses(AIndex : Integer; const AValue : TPersonTyperelationshipStatusesArray);
+
+begin
+ If (FrelationshipStatuses=AValue) then exit;
+ FrelationshipStatuses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPerson.Setmemberships(AIndex : Integer; const AValue : TPersonTypemembershipsArray);
+
+begin
+ If (Fmemberships=AValue) then exit;
+ Fmemberships:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPerson.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'locales' : SetLength(Flocales,ALength);
+ 'names' : SetLength(Fnames,ALength);
+ 'nicknames' : SetLength(Fnicknames,ALength);
+ 'coverphotos' : SetLength(FcoverPhotos,ALength);
+ 'photos' : SetLength(Fphotos,ALength);
+ 'genders' : SetLength(Fgenders,ALength);
+ 'birthdays' : SetLength(Fbirthdays,ALength);
+ 'events' : SetLength(Fevents,ALength);
+ 'addresses' : SetLength(Faddresses,ALength);
+ 'residences' : SetLength(Fresidences,ALength);
+ 'emailaddresses' : SetLength(FemailAddresses,ALength);
+ 'phonenumbers' : SetLength(FphoneNumbers,ALength);
+ 'imclients' : SetLength(FimClients,ALength);
+ 'taglines' : SetLength(Ftaglines,ALength);
+ 'biographies' : SetLength(Fbiographies,ALength);
+ 'urls' : SetLength(Furls,ALength);
+ 'organizations' : SetLength(Forganizations,ALength);
+ 'occupations' : SetLength(Foccupations,ALength);
+ 'interests' : SetLength(Finterests,ALength);
+ 'skills' : SetLength(Fskills,ALength);
+ 'braggingrights' : SetLength(FbraggingRights,ALength);
+ 'relations' : SetLength(Frelations,ALength);
+ 'relationshipinterests' : SetLength(FrelationshipInterests,ALength);
+ 'relationshipstatuses' : SetLength(FrelationshipStatuses,ALength);
+ 'memberships' : SetLength(Fmemberships,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPersonMetadata
+ --------------------------------------------------------------------}
+
+
+Procedure TPersonMetadata.Setsources(AIndex : Integer; const AValue : TPersonMetadataTypesourcesArray);
+
+begin
+ If (Fsources=AValue) then exit;
+ Fsources:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPersonMetadata.SetpreviousResourceNames(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FpreviousResourceNames=AValue) then exit;
+ FpreviousResourceNames:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPersonMetadata.Setdeleted(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fdeleted=AValue) then exit;
+ Fdeleted:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPersonMetadata.SetobjectType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FobjectType=AValue) then exit;
+ FobjectType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPersonMetadata.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sources' : SetLength(Fsources,ALength);
+ 'previousresourcenames' : SetLength(FpreviousResourceNames,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSource
+ --------------------------------------------------------------------}
+
+
+Procedure TSource.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSource.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TSource.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TLocale
+ --------------------------------------------------------------------}
+
+
+Procedure TLocale.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLocale.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TFieldMetadata
+ --------------------------------------------------------------------}
+
+
+Procedure TFieldMetadata.Setprimary(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fprimary=AValue) then exit;
+ Fprimary:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFieldMetadata.Setverified(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fverified=AValue) then exit;
+ Fverified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFieldMetadata.Setsource(AIndex : Integer; const AValue : TSource);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TName
+ --------------------------------------------------------------------}
+
+
+Procedure TName.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SetfamilyName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfamilyName=AValue) then exit;
+ FfamilyName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SetgivenName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FgivenName=AValue) then exit;
+ FgivenName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SetmiddleName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmiddleName=AValue) then exit;
+ FmiddleName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SethonorificPrefix(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhonorificPrefix=AValue) then exit;
+ FhonorificPrefix:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SethonorificSuffix(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhonorificSuffix=AValue) then exit;
+ FhonorificSuffix:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SetphoneticFamilyName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphoneticFamilyName=AValue) then exit;
+ FphoneticFamilyName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SetphoneticGivenName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphoneticGivenName=AValue) then exit;
+ FphoneticGivenName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SetphoneticMiddleName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphoneticMiddleName=AValue) then exit;
+ FphoneticMiddleName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SetphoneticHonorificPrefix(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphoneticHonorificPrefix=AValue) then exit;
+ FphoneticHonorificPrefix:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TName.SetphoneticHonorificSuffix(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphoneticHonorificSuffix=AValue) then exit;
+ FphoneticHonorificSuffix:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TNickname
+ --------------------------------------------------------------------}
+
+
+Procedure TNickname.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNickname.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNickname.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TNickname.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TCoverPhoto
+ --------------------------------------------------------------------}
+
+
+Procedure TCoverPhoto.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCoverPhoto.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCoverPhoto.Setdefault(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fdefault=AValue) then exit;
+ Fdefault:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPhoto
+ --------------------------------------------------------------------}
+
+
+Procedure TPhoto.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPhoto.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TGender
+ --------------------------------------------------------------------}
+
+
+Procedure TGender.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGender.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGender.SetformattedValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedValue=AValue) then exit;
+ FformattedValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBirthday
+ --------------------------------------------------------------------}
+
+
+Procedure TBirthday.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBirthday.Setdate(AIndex : Integer; const AValue : TDate);
+
+begin
+ If (Fdate=AValue) then exit;
+ Fdate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBirthday.Settext(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftext=AValue) then exit;
+ Ftext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ 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;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TEvent
+ --------------------------------------------------------------------}
+
+
+Procedure TEvent.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEvent.Setdate(AIndex : Integer; const AValue : TDate);
+
+begin
+ If (Fdate=AValue) then exit;
+ Fdate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEvent.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEvent.SetformattedType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedType=AValue) then exit;
+ FformattedType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TEvent.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddress
+ --------------------------------------------------------------------}
+
+
+Procedure TAddress.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddress.SetformattedValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedValue=AValue) then exit;
+ FformattedValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddress.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddress.SetformattedType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedType=AValue) then exit;
+ FformattedType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddress.SetpoBox(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpoBox=AValue) then exit;
+ FpoBox:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddress.SetstreetAddress(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstreetAddress=AValue) then exit;
+ FstreetAddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddress.SetextendedAddress(AIndex : Integer; const AValue : String);
+
+begin
+ If (FextendedAddress=AValue) then exit;
+ FextendedAddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddress.Setcity(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcity=AValue) then exit;
+ Fcity:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddress.Setregion(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fregion=AValue) then exit;
+ Fregion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddress.SetpostalCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpostalCode=AValue) then exit;
+ FpostalCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddress.Setcountry(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcountry=AValue) then exit;
+ Fcountry:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddress.SetcountryCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcountryCode=AValue) then exit;
+ FcountryCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TAddress.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TResidence
+ --------------------------------------------------------------------}
+
+
+Procedure TResidence.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResidence.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResidence.Setcurrent(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fcurrent=AValue) then exit;
+ Fcurrent:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmailAddress
+ --------------------------------------------------------------------}
+
+
+Procedure TEmailAddress.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmailAddress.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmailAddress.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmailAddress.SetformattedType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedType=AValue) then exit;
+ FformattedType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TEmailAddress.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TPhoneNumber
+ --------------------------------------------------------------------}
+
+
+Procedure TPhoneNumber.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPhoneNumber.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPhoneNumber.SetcanonicalForm(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcanonicalForm=AValue) then exit;
+ FcanonicalForm:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPhoneNumber.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPhoneNumber.SetformattedType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedType=AValue) then exit;
+ FformattedType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TPhoneNumber.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TImClient
+ --------------------------------------------------------------------}
+
+
+Procedure TImClient.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TImClient.Setusername(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fusername=AValue) then exit;
+ Fusername:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TImClient.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TImClient.SetformattedType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedType=AValue) then exit;
+ FformattedType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TImClient.Setprotocol(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fprotocol=AValue) then exit;
+ Fprotocol:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TImClient.SetformattedProtocol(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedProtocol=AValue) then exit;
+ FformattedProtocol:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TImClient.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TTagline
+ --------------------------------------------------------------------}
+
+
+Procedure TTagline.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTagline.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBiography
+ --------------------------------------------------------------------}
+
+
+Procedure TBiography.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBiography.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUrl
+ --------------------------------------------------------------------}
+
+
+Procedure TUrl.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrl.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrl.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUrl.SetformattedType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedType=AValue) then exit;
+ FformattedType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TUrl.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrganization
+ --------------------------------------------------------------------}
+
+
+Procedure TOrganization.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.SetformattedType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedType=AValue) then exit;
+ FformattedType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.SetstartDate(AIndex : Integer; const AValue : TDate);
+
+begin
+ If (FstartDate=AValue) then exit;
+ FstartDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.SetendDate(AIndex : Integer; const AValue : TDate);
+
+begin
+ If (FendDate=AValue) then exit;
+ FendDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.Setcurrent(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fcurrent=AValue) then exit;
+ Fcurrent:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.SetphoneticName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FphoneticName=AValue) then exit;
+ FphoneticName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.Setdepartment(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdepartment=AValue) then exit;
+ Fdepartment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.SetjobDescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (FjobDescription=AValue) then exit;
+ FjobDescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.Setsymbol(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsymbol=AValue) then exit;
+ Fsymbol:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.Setdomain(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdomain=AValue) then exit;
+ Fdomain:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrganization.Setlocation(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocation=AValue) then exit;
+ Flocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TOrganization.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TOccupation
+ --------------------------------------------------------------------}
+
+
+Procedure TOccupation.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOccupation.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TInterest
+ --------------------------------------------------------------------}
+
+
+Procedure TInterest.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInterest.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSkill
+ --------------------------------------------------------------------}
+
+
+Procedure TSkill.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSkill.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBraggingRights
+ --------------------------------------------------------------------}
+
+
+Procedure TBraggingRights.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBraggingRights.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TRelation
+ --------------------------------------------------------------------}
+
+
+Procedure TRelation.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRelation.Setperson(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fperson=AValue) then exit;
+ Fperson:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRelation.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRelation.SetformattedType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedType=AValue) then exit;
+ FformattedType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TRelation.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TRelationshipInterest
+ --------------------------------------------------------------------}
+
+
+Procedure TRelationshipInterest.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRelationshipInterest.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRelationshipInterest.SetformattedValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedValue=AValue) then exit;
+ FformattedValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TRelationshipStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TRelationshipStatus.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRelationshipStatus.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRelationshipStatus.SetformattedValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedValue=AValue) then exit;
+ FformattedValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TMembership
+ --------------------------------------------------------------------}
+
+
+Procedure TMembership.Setmetadata(AIndex : Integer; const AValue : TFieldMetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMembership.SetcontactGroupMembership(AIndex : Integer; const AValue : TContactGroupMembership);
+
+begin
+ If (FcontactGroupMembership=AValue) then exit;
+ FcontactGroupMembership:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMembership.SetdomainMembership(AIndex : Integer; const AValue : TDomainMembership);
+
+begin
+ If (FdomainMembership=AValue) then exit;
+ FdomainMembership:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TContactGroupMembership
+ --------------------------------------------------------------------}
+
+
+Procedure TContactGroupMembership.SetcontactGroupId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcontactGroupId=AValue) then exit;
+ FcontactGroupId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDomainMembership
+ --------------------------------------------------------------------}
+
+
+Procedure TDomainMembership.SetinViewerDomain(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FinViewerDomain=AValue) then exit;
+ FinViewerDomain:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TGetPeopleResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TGetPeopleResponse.Setresponses(AIndex : Integer; const AValue : TGetPeopleResponseTyperesponsesArray);
+
+begin
+ If (Fresponses=AValue) then exit;
+ Fresponses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGetPeopleResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'responses' : SetLength(Fresponses,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPersonResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TPersonResponse.SethttpStatusCode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FhttpStatusCode=AValue) then exit;
+ FhttpStatusCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPersonResponse.Setperson(AIndex : Integer; const AValue : TPerson);
+
+begin
+ If (Fperson=AValue) then exit;
+ Fperson:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPersonResponse.SetrequestedResourceName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrequestedResourceName=AValue) then exit;
+ FrequestedResourceName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListConnectionsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListConnectionsResponse.Setconnections(AIndex : Integer; const AValue : TListConnectionsResponseTypeconnectionsArray);
+
+begin
+ If (Fconnections=AValue) then exit;
+ Fconnections:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListConnectionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListConnectionsResponse.SetnextSyncToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextSyncToken=AValue) then exit;
+ FnextSyncToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListConnectionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'connections' : SetLength(Fconnections,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPeopleConnectionsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TPeopleConnectionsResource.ResourceName : String;
+
+begin
+ Result:='connections';
+end;
+
+Class Function TPeopleConnectionsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TpeopleAPI;
+end;
+
+Function TPeopleConnectionsResource.List(_resourceName: string; AQuery : string = '') : TListConnectionsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+resourceName}/connections';
+ _Methodid = 'people.people.connections.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resourceName',_resourceName]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListConnectionsResponse) as TListConnectionsResponse;
+end;
+
+
+Function TPeopleConnectionsResource.List(_resourceName: string; AQuery : TPeopleConnectionslistOptions) : TListConnectionsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'sortOrder',AQuery.sortOrder);
+ AddToQuery(_Q,'syncToken',AQuery.syncToken);
+ AddToQuery(_Q,'requestMask.includeField',AQuery.requestMaskincludeField);
+ Result:=List(_resourceName,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TPeopleResource
+ --------------------------------------------------------------------}
+
+
+Class Function TPeopleResource.ResourceName : String;
+
+begin
+ Result:='people';
+end;
+
+Class Function TPeopleResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TpeopleAPI;
+end;
+
+Function TPeopleResource.Get(_resourceName: string; AQuery : string = '') : TPerson;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+resourceName}';
+ _Methodid = 'people.people.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resourceName',_resourceName]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPerson) as TPerson;
+end;
+
+
+Function TPeopleResource.Get(_resourceName: string; AQuery : TPeoplegetOptions) : TPerson;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'requestMask.includeField',AQuery.requestMaskincludeField);
+ Result:=Get(_resourceName,_Q);
+end;
+
+Function TPeopleResource.GetBatchGet(AQuery : string = '') : TGetPeopleResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/people:batchGet';
+ _Methodid = 'people.people.getBatchGet';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TGetPeopleResponse) as TGetPeopleResponse;
+end;
+
+
+Function TPeopleResource.GetBatchGet(AQuery : TPeoplegetBatchGetOptions) : TGetPeopleResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'resourceNames',AQuery.resourceNames);
+ AddToQuery(_Q,'requestMask.includeField',AQuery.requestMaskincludeField);
+ Result:=GetBatchGet(_Q);
+end;
+
+
+
+Function TPeopleResource.GetConnectionsInstance : TPeopleConnectionsResource;
+
+begin
+ if (FConnectionsInstance=Nil) then
+ FConnectionsInstance:=CreateConnectionsResource;
+ Result:=FConnectionsInstance;
+end;
+
+Function TPeopleResource.CreateConnectionsResource : TPeopleConnectionsResource;
+
+begin
+ Result:=CreateConnectionsResource(Self);
+end;
+
+
+Function TPeopleResource.CreateConnectionsResource(AOwner : TComponent) : TPeopleConnectionsResource;
+
+begin
+ Result:=TPeopleConnectionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TPeopleAPI
+ --------------------------------------------------------------------}
+
+Class Function TPeopleAPI.APIName : String;
+
+begin
+ Result:='people';
+end;
+
+Class Function TPeopleAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TPeopleAPI.APIRevision : String;
+
+begin
+ Result:='20160210';
+end;
+
+Class Function TPeopleAPI.APIID : String;
+
+begin
+ Result:='people:v1';
+end;
+
+Class Function TPeopleAPI.APITitle : String;
+
+begin
+ Result:='Google People API';
+end;
+
+Class Function TPeopleAPI.APIDescription : String;
+
+begin
+ Result:='The Google People API service gives access to information about profiles and contacts.';
+end;
+
+Class Function TPeopleAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TPeopleAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TPeopleAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TPeopleAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TPeopleAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/people/';
+end;
+
+Class Function TPeopleAPI.APIrootUrl : string;
+
+begin
+ Result:='https://people.googleapis.com/';
+end;
+
+Class Function TPeopleAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TPeopleAPI.APIbaseURL : String;
+
+begin
+ Result:='https://people.googleapis.com/';
+end;
+
+Class Function TPeopleAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TPeopleAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TPeopleAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TPeopleAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,9);
+ Result[0].Name:='https://www.googleapis.com/auth/contacts';
+ Result[0].Description:='Manage your contacts';
+ Result[1].Name:='https://www.googleapis.com/auth/contacts.readonly';
+ Result[1].Description:='View your contacts';
+ Result[2].Name:='https://www.googleapis.com/auth/plus.login';
+ Result[2].Description:='Know your basic profile info and list of people in your circles.';
+ Result[3].Name:='https://www.googleapis.com/auth/user.addresses.read';
+ Result[3].Description:='View your street addresses';
+ Result[4].Name:='https://www.googleapis.com/auth/user.birthday.read';
+ Result[4].Description:='View your complete date of birth';
+ Result[5].Name:='https://www.googleapis.com/auth/user.emails.read';
+ Result[5].Description:='View your email addresses';
+ Result[6].Name:='https://www.googleapis.com/auth/user.phonenumbers.read';
+ Result[6].Description:='View your phone numbers';
+ Result[7].Name:='https://www.googleapis.com/auth/userinfo.email';
+ Result[7].Description:='View your email address';
+ Result[8].Name:='https://www.googleapis.com/auth/userinfo.profile';
+ Result[8].Description:='View your basic profile info';
+
+end;
+
+Class Function TPeopleAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TPeopleAPI.RegisterAPIResources;
+
+begin
+ TPerson.RegisterObject;
+ TPersonMetadata.RegisterObject;
+ TSource.RegisterObject;
+ TLocale.RegisterObject;
+ TFieldMetadata.RegisterObject;
+ TName.RegisterObject;
+ TNickname.RegisterObject;
+ TCoverPhoto.RegisterObject;
+ TPhoto.RegisterObject;
+ TGender.RegisterObject;
+ TBirthday.RegisterObject;
+ TDate.RegisterObject;
+ TEvent.RegisterObject;
+ TAddress.RegisterObject;
+ TResidence.RegisterObject;
+ TEmailAddress.RegisterObject;
+ TPhoneNumber.RegisterObject;
+ TImClient.RegisterObject;
+ TTagline.RegisterObject;
+ TBiography.RegisterObject;
+ TUrl.RegisterObject;
+ TOrganization.RegisterObject;
+ TOccupation.RegisterObject;
+ TInterest.RegisterObject;
+ TSkill.RegisterObject;
+ TBraggingRights.RegisterObject;
+ TRelation.RegisterObject;
+ TRelationshipInterest.RegisterObject;
+ TRelationshipStatus.RegisterObject;
+ TMembership.RegisterObject;
+ TContactGroupMembership.RegisterObject;
+ TDomainMembership.RegisterObject;
+ TGetPeopleResponse.RegisterObject;
+ TPersonResponse.RegisterObject;
+ TListConnectionsResponse.RegisterObject;
+end;
+
+
+Function TPeopleAPI.GetPeopleConnectionsInstance : TPeopleConnectionsResource;
+
+begin
+ if (FPeopleConnectionsInstance=Nil) then
+ FPeopleConnectionsInstance:=CreatePeopleConnectionsResource;
+ Result:=FPeopleConnectionsInstance;
+end;
+
+Function TPeopleAPI.CreatePeopleConnectionsResource : TPeopleConnectionsResource;
+
+begin
+ Result:=CreatePeopleConnectionsResource(Self);
+end;
+
+
+Function TPeopleAPI.CreatePeopleConnectionsResource(AOwner : TComponent) : TPeopleConnectionsResource;
+
+begin
+ Result:=TPeopleConnectionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPeopleAPI.GetPeopleInstance : TPeopleResource;
+
+begin
+ if (FPeopleInstance=Nil) then
+ FPeopleInstance:=CreatePeopleResource;
+ Result:=FPeopleInstance;
+end;
+
+Function TPeopleAPI.CreatePeopleResource : TPeopleResource;
+
+begin
+ Result:=CreatePeopleResource(Self);
+end;
+
+
+Function TPeopleAPI.CreatePeopleResource(AOwner : TComponent) : TPeopleResource;
+
+begin
+ Result:=TPeopleResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TPeopleAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleplaymoviespartner.pp b/packages/googleapi/src/googleplaymoviespartner.pp
new file mode 100644
index 0000000000..8de6362a15
--- /dev/null
+++ b/packages/googleapi/src/googleplaymoviespartner.pp
@@ -0,0 +1,3570 @@
+unit googleplaymoviespartner;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TAvail = Class;
+ TListAvailsResponse = Class;
+ TOrder = Class;
+ TListOrdersResponse = Class;
+ TExperienceLocale = Class;
+ TListExperienceLocalesResponse = Class;
+ T_Component = Class;
+ TListComponentsResponse = Class;
+ TStoreInfo = Class;
+ TListStoreInfosResponse = Class;
+ TAvailArray = Array of TAvail;
+ TListAvailsResponseArray = Array of TListAvailsResponse;
+ TOrderArray = Array of TOrder;
+ TListOrdersResponseArray = Array of TListOrdersResponse;
+ TExperienceLocaleArray = Array of TExperienceLocale;
+ TListExperienceLocalesResponseArray = Array of TListExperienceLocalesResponse;
+ T_ComponentArray = Array of T_Component;
+ TListComponentsResponseArray = Array of TListComponentsResponse;
+ TStoreInfoArray = Array of TStoreInfo;
+ TListStoreInfosResponseArray = Array of TListStoreInfosResponse;
+ //Anonymous types, using auto-generated names
+ TListAvailsResponseTypeavailsArray = Array of TAvail;
+ TListOrdersResponseTypeordersArray = Array of TOrder;
+ TListExperienceLocalesResponseTypeexperienceLocalesArray = Array of TExperienceLocale;
+ TListComponentsResponseTypecomponentsArray = Array of T_Component;
+ TListStoreInfosResponseTypestoreInfosArray = Array of TStoreInfo;
+
+ { --------------------------------------------------------------------
+ TAvail
+ --------------------------------------------------------------------}
+
+ TAvail = Class(TGoogleBaseObject)
+ Private
+ FavailId : String;
+ FdisplayName : String;
+ FstoreLanguage : String;
+ Fterritory : String;
+ FworkType : String;
+ FseriesTitleInternalAlias : String;
+ FseasonNumber : String;
+ FepisodeNumber : String;
+ FseasonTitleInternalAlias : String;
+ FepisodeTitleInternalAlias : String;
+ FtitleInternalAlias : String;
+ FlicenseType : String;
+ FformatProfile : String;
+ Fstart : String;
+ F_end : String;
+ FpriceType : String;
+ FpriceValue : String;
+ FcontentId : String;
+ FproductId : String;
+ FencodeId : String;
+ FseriesAltId : String;
+ FseasonAltId : String;
+ FepisodeAltId : String;
+ FaltId : String;
+ FsuppressionLiftDate : String;
+ FreleaseDate : String;
+ FratingSystem : String;
+ FratingValue : String;
+ FratingReason : String;
+ FcaptionIncluded : boolean;
+ FcaptionExemption : String;
+ FvideoId : String;
+ FpphNames : TStringArray;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetavailId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstoreLanguage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setterritory(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetworkType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseriesTitleInternalAlias(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseasonNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetepisodeNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseasonTitleInternalAlias(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetepisodeTitleInternalAlias(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettitleInternalAlias(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlicenseType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformatProfile(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_end(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpriceType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpriceValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcontentId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetproductId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetencodeId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseriesAltId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseasonAltId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetepisodeAltId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetaltId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsuppressionLiftDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreleaseDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetratingSystem(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetratingValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetratingReason(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcaptionIncluded(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcaptionExemption(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpphNames(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 availId : String Index 0 Read FavailId Write SetavailId;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+ Property storeLanguage : String Index 16 Read FstoreLanguage Write SetstoreLanguage;
+ Property territory : String Index 24 Read Fterritory Write Setterritory;
+ Property workType : String Index 32 Read FworkType Write SetworkType;
+ Property seriesTitleInternalAlias : String Index 40 Read FseriesTitleInternalAlias Write SetseriesTitleInternalAlias;
+ Property seasonNumber : String Index 48 Read FseasonNumber Write SetseasonNumber;
+ Property episodeNumber : String Index 56 Read FepisodeNumber Write SetepisodeNumber;
+ Property seasonTitleInternalAlias : String Index 64 Read FseasonTitleInternalAlias Write SetseasonTitleInternalAlias;
+ Property episodeTitleInternalAlias : String Index 72 Read FepisodeTitleInternalAlias Write SetepisodeTitleInternalAlias;
+ Property titleInternalAlias : String Index 80 Read FtitleInternalAlias Write SettitleInternalAlias;
+ Property licenseType : String Index 88 Read FlicenseType Write SetlicenseType;
+ Property formatProfile : String Index 96 Read FformatProfile Write SetformatProfile;
+ Property start : String Index 104 Read Fstart Write Setstart;
+ Property _end : String Index 112 Read F_end Write Set_end;
+ Property priceType : String Index 120 Read FpriceType Write SetpriceType;
+ Property priceValue : String Index 128 Read FpriceValue Write SetpriceValue;
+ Property contentId : String Index 136 Read FcontentId Write SetcontentId;
+ Property productId : String Index 144 Read FproductId Write SetproductId;
+ Property encodeId : String Index 152 Read FencodeId Write SetencodeId;
+ Property seriesAltId : String Index 160 Read FseriesAltId Write SetseriesAltId;
+ Property seasonAltId : String Index 168 Read FseasonAltId Write SetseasonAltId;
+ Property episodeAltId : String Index 176 Read FepisodeAltId Write SetepisodeAltId;
+ Property altId : String Index 184 Read FaltId Write SetaltId;
+ Property suppressionLiftDate : String Index 192 Read FsuppressionLiftDate Write SetsuppressionLiftDate;
+ Property releaseDate : String Index 200 Read FreleaseDate Write SetreleaseDate;
+ Property ratingSystem : String Index 208 Read FratingSystem Write SetratingSystem;
+ Property ratingValue : String Index 216 Read FratingValue Write SetratingValue;
+ Property ratingReason : String Index 224 Read FratingReason Write SetratingReason;
+ Property captionIncluded : boolean Index 232 Read FcaptionIncluded Write SetcaptionIncluded;
+ Property captionExemption : String Index 240 Read FcaptionExemption Write SetcaptionExemption;
+ Property videoId : String Index 248 Read FvideoId Write SetvideoId;
+ Property pphNames : TStringArray Index 256 Read FpphNames Write SetpphNames;
+ end;
+ TAvailClass = Class of TAvail;
+
+ { --------------------------------------------------------------------
+ TListAvailsResponse
+ --------------------------------------------------------------------}
+
+ TListAvailsResponse = Class(TGoogleBaseObject)
+ Private
+ Favails : TListAvailsResponseTypeavailsArray;
+ FnextPageToken : String;
+ FtotalSize : integer;
+ Protected
+ //Property setters
+ Procedure Setavails(AIndex : Integer; const AValue : TListAvailsResponseTypeavailsArray); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettotalSize(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 avails : TListAvailsResponseTypeavailsArray Index 0 Read Favails Write Setavails;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property totalSize : integer Index 16 Read FtotalSize Write SettotalSize;
+ end;
+ TListAvailsResponseClass = Class of TListAvailsResponse;
+
+ { --------------------------------------------------------------------
+ TOrder
+ --------------------------------------------------------------------}
+
+ TOrder = Class(TGoogleBaseObject)
+ Private
+ ForderId : String;
+ FcustomId : String;
+ FvideoId : String;
+ Fcountries : TStringArray;
+ F_type : String;
+ Fname : String;
+ FepisodeName : String;
+ FseasonName : String;
+ FshowName : String;
+ Fstatus : String;
+ FstatusDetail : String;
+ FrejectionNote : String;
+ ForderedTime : String;
+ FapprovedTime : String;
+ FreceivedTime : String;
+ FearliestAvailStartTime : String;
+ Fpriority : double;
+ FlegacyPriority : String;
+ FchannelId : String;
+ FchannelName : String;
+ FstudioName : String;
+ FpphName : String;
+ FnormalizedPriority : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetorderId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcustomId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcountries(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetepisodeName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseasonName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetshowName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstatusDetail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrejectionNote(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetorderedTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetapprovedTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreceivedTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetearliestAvailStartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpriority(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetlegacyPriority(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetchannelName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstudioName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpphName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnormalizedPriority(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 orderId : String Index 0 Read ForderId Write SetorderId;
+ Property customId : String Index 8 Read FcustomId Write SetcustomId;
+ Property videoId : String Index 16 Read FvideoId Write SetvideoId;
+ Property countries : TStringArray Index 24 Read Fcountries Write Setcountries;
+ Property _type : String Index 32 Read F_type Write Set_type;
+ Property name : String Index 40 Read Fname Write Setname;
+ Property episodeName : String Index 48 Read FepisodeName Write SetepisodeName;
+ Property seasonName : String Index 56 Read FseasonName Write SetseasonName;
+ Property showName : String Index 64 Read FshowName Write SetshowName;
+ Property status : String Index 72 Read Fstatus Write Setstatus;
+ Property statusDetail : String Index 80 Read FstatusDetail Write SetstatusDetail;
+ Property rejectionNote : String Index 88 Read FrejectionNote Write SetrejectionNote;
+ Property orderedTime : String Index 96 Read ForderedTime Write SetorderedTime;
+ Property approvedTime : String Index 104 Read FapprovedTime Write SetapprovedTime;
+ Property receivedTime : String Index 112 Read FreceivedTime Write SetreceivedTime;
+ Property earliestAvailStartTime : String Index 120 Read FearliestAvailStartTime Write SetearliestAvailStartTime;
+ Property priority : double Index 128 Read Fpriority Write Setpriority;
+ Property legacyPriority : String Index 136 Read FlegacyPriority Write SetlegacyPriority;
+ Property channelId : String Index 144 Read FchannelId Write SetchannelId;
+ Property channelName : String Index 152 Read FchannelName Write SetchannelName;
+ Property studioName : String Index 160 Read FstudioName Write SetstudioName;
+ Property pphName : String Index 168 Read FpphName Write SetpphName;
+ Property normalizedPriority : String Index 176 Read FnormalizedPriority Write SetnormalizedPriority;
+ end;
+ TOrderClass = Class of TOrder;
+
+ { --------------------------------------------------------------------
+ TListOrdersResponse
+ --------------------------------------------------------------------}
+
+ TListOrdersResponse = Class(TGoogleBaseObject)
+ Private
+ Forders : TListOrdersResponseTypeordersArray;
+ FnextPageToken : String;
+ FtotalSize : integer;
+ Protected
+ //Property setters
+ Procedure Setorders(AIndex : Integer; const AValue : TListOrdersResponseTypeordersArray); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettotalSize(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 orders : TListOrdersResponseTypeordersArray Index 0 Read Forders Write Setorders;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property totalSize : integer Index 16 Read FtotalSize Write SettotalSize;
+ end;
+ TListOrdersResponseClass = Class of TListOrdersResponse;
+
+ { --------------------------------------------------------------------
+ TExperienceLocale
+ --------------------------------------------------------------------}
+
+ TExperienceLocale = Class(TGoogleBaseObject)
+ Private
+ FelId : String;
+ Fcountry : String;
+ Flanguage : String;
+ FvideoId : String;
+ FtrailerId : String;
+ FtitleLevelEidr : String;
+ FeditLevelEidr : String;
+ FaltCutId : String;
+ FcustomIds : TStringArray;
+ FpresentationId : String;
+ FinventoryId : String;
+ FplayableSequenceId : String;
+ F_type : String;
+ Fname : String;
+ Fstatus : String;
+ Fpriority : double;
+ FcreatedTime : String;
+ FapprovedTime : String;
+ FearliestAvailStartTime : String;
+ FchannelId : String;
+ FstudioName : String;
+ FpphNames : TStringArray;
+ FnormalizedPriority : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetelId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettrailerId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettitleLevelEidr(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeteditLevelEidr(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetaltCutId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcustomIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetpresentationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinventoryId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetplayableSequenceId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpriority(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetcreatedTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetapprovedTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetearliestAvailStartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstudioName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpphNames(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetnormalizedPriority(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 elId : String Index 0 Read FelId Write SetelId;
+ Property country : String Index 8 Read Fcountry Write Setcountry;
+ Property language : String Index 16 Read Flanguage Write Setlanguage;
+ Property videoId : String Index 24 Read FvideoId Write SetvideoId;
+ Property trailerId : String Index 32 Read FtrailerId Write SettrailerId;
+ Property titleLevelEidr : String Index 40 Read FtitleLevelEidr Write SettitleLevelEidr;
+ Property editLevelEidr : String Index 48 Read FeditLevelEidr Write SeteditLevelEidr;
+ Property altCutId : String Index 56 Read FaltCutId Write SetaltCutId;
+ Property customIds : TStringArray Index 64 Read FcustomIds Write SetcustomIds;
+ Property presentationId : String Index 72 Read FpresentationId Write SetpresentationId;
+ Property inventoryId : String Index 80 Read FinventoryId Write SetinventoryId;
+ Property playableSequenceId : String Index 88 Read FplayableSequenceId Write SetplayableSequenceId;
+ Property _type : String Index 96 Read F_type Write Set_type;
+ Property name : String Index 104 Read Fname Write Setname;
+ Property status : String Index 112 Read Fstatus Write Setstatus;
+ Property priority : double Index 120 Read Fpriority Write Setpriority;
+ Property createdTime : String Index 128 Read FcreatedTime Write SetcreatedTime;
+ Property approvedTime : String Index 136 Read FapprovedTime Write SetapprovedTime;
+ Property earliestAvailStartTime : String Index 144 Read FearliestAvailStartTime Write SetearliestAvailStartTime;
+ Property channelId : String Index 152 Read FchannelId Write SetchannelId;
+ Property studioName : String Index 160 Read FstudioName Write SetstudioName;
+ Property pphNames : TStringArray Index 168 Read FpphNames Write SetpphNames;
+ Property normalizedPriority : String Index 176 Read FnormalizedPriority Write SetnormalizedPriority;
+ end;
+ TExperienceLocaleClass = Class of TExperienceLocale;
+
+ { --------------------------------------------------------------------
+ TListExperienceLocalesResponse
+ --------------------------------------------------------------------}
+
+ TListExperienceLocalesResponse = Class(TGoogleBaseObject)
+ Private
+ FexperienceLocales : TListExperienceLocalesResponseTypeexperienceLocalesArray;
+ FnextPageToken : String;
+ FtotalSize : integer;
+ Protected
+ //Property setters
+ Procedure SetexperienceLocales(AIndex : Integer; const AValue : TListExperienceLocalesResponseTypeexperienceLocalesArray); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettotalSize(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 experienceLocales : TListExperienceLocalesResponseTypeexperienceLocalesArray Index 0 Read FexperienceLocales Write SetexperienceLocales;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property totalSize : integer Index 16 Read FtotalSize Write SettotalSize;
+ end;
+ TListExperienceLocalesResponseClass = Class of TListExperienceLocalesResponse;
+
+ { --------------------------------------------------------------------
+ T_Component
+ --------------------------------------------------------------------}
+
+ T_Component = Class(TGoogleBaseObject)
+ Private
+ FcomponentId : String;
+ F_type : String;
+ FelIds : TStringArray;
+ Flanguage : String;
+ FtitleLevelEidrs : TStringArray;
+ FeditLevelEidrs : TStringArray;
+ FaltCutIds : TStringArray;
+ FcustomIds : TStringArray;
+ FcomponentDetailType : String;
+ FplayableUnitType : String;
+ Fstatus : String;
+ FstatusDetail : String;
+ FrejectionNote : String;
+ FapprovedTime : String;
+ Fname : String;
+ FprocessingErrors : TStringArray;
+ Fpriority : double;
+ FreceivedTime : String;
+ Ffilename : String;
+ FstudioName : String;
+ FpphName : String;
+ FnormalizedPriority : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetcomponentId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetelIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettitleLevelEidrs(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SeteditLevelEidrs(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetaltCutIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetcustomIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetcomponentDetailType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetplayableUnitType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstatusDetail(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrejectionNote(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetapprovedTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprocessingErrors(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setpriority(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetreceivedTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfilename(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstudioName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpphName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnormalizedPriority(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 componentId : String Index 0 Read FcomponentId Write SetcomponentId;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ Property elIds : TStringArray Index 16 Read FelIds Write SetelIds;
+ Property language : String Index 24 Read Flanguage Write Setlanguage;
+ Property titleLevelEidrs : TStringArray Index 32 Read FtitleLevelEidrs Write SettitleLevelEidrs;
+ Property editLevelEidrs : TStringArray Index 40 Read FeditLevelEidrs Write SeteditLevelEidrs;
+ Property altCutIds : TStringArray Index 48 Read FaltCutIds Write SetaltCutIds;
+ Property customIds : TStringArray Index 56 Read FcustomIds Write SetcustomIds;
+ Property componentDetailType : String Index 64 Read FcomponentDetailType Write SetcomponentDetailType;
+ Property playableUnitType : String Index 72 Read FplayableUnitType Write SetplayableUnitType;
+ Property status : String Index 80 Read Fstatus Write Setstatus;
+ Property statusDetail : String Index 88 Read FstatusDetail Write SetstatusDetail;
+ Property rejectionNote : String Index 96 Read FrejectionNote Write SetrejectionNote;
+ Property approvedTime : String Index 104 Read FapprovedTime Write SetapprovedTime;
+ Property name : String Index 112 Read Fname Write Setname;
+ Property processingErrors : TStringArray Index 120 Read FprocessingErrors Write SetprocessingErrors;
+ Property priority : double Index 128 Read Fpriority Write Setpriority;
+ Property receivedTime : String Index 136 Read FreceivedTime Write SetreceivedTime;
+ Property filename : String Index 144 Read Ffilename Write Setfilename;
+ Property studioName : String Index 152 Read FstudioName Write SetstudioName;
+ Property pphName : String Index 160 Read FpphName Write SetpphName;
+ Property normalizedPriority : String Index 168 Read FnormalizedPriority Write SetnormalizedPriority;
+ end;
+ T_ComponentClass = Class of T_Component;
+
+ { --------------------------------------------------------------------
+ TListComponentsResponse
+ --------------------------------------------------------------------}
+
+ TListComponentsResponse = Class(TGoogleBaseObject)
+ Private
+ Fcomponents : TListComponentsResponseTypecomponentsArray;
+ FnextPageToken : String;
+ FtotalSize : integer;
+ Protected
+ //Property setters
+ Procedure Setcomponents(AIndex : Integer; const AValue : TListComponentsResponseTypecomponentsArray); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettotalSize(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 components : TListComponentsResponseTypecomponentsArray Index 0 Read Fcomponents Write Setcomponents;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property totalSize : integer Index 16 Read FtotalSize Write SettotalSize;
+ end;
+ TListComponentsResponseClass = Class of TListComponentsResponse;
+
+ { --------------------------------------------------------------------
+ TStoreInfo
+ --------------------------------------------------------------------}
+
+ TStoreInfo = Class(TGoogleBaseObject)
+ Private
+ FvideoId : String;
+ FseasonId : String;
+ FshowId : String;
+ Fcountry : String;
+ FliveTime : String;
+ F_type : String;
+ Fname : String;
+ FtitleLevelEidr : String;
+ FeditLevelEidr : String;
+ FseasonName : String;
+ FshowName : String;
+ FseasonNumber : String;
+ FepisodeNumber : String;
+ FhasSdOffer : boolean;
+ FhasHdOffer : boolean;
+ FhasVodOffer : boolean;
+ FhasEstOffer : boolean;
+ FhasAudio51 : boolean;
+ FaudioTracks : TStringArray;
+ Fsubtitles : TStringArray;
+ FhasInfoCards : boolean;
+ Fmid : String;
+ FtrailerId : String;
+ FstudioName : String;
+ FpphNames : TStringArray;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseasonId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetshowId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetliveTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettitleLevelEidr(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeteditLevelEidr(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseasonName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetshowName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetseasonNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetepisodeNumber(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethasSdOffer(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SethasHdOffer(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SethasVodOffer(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SethasEstOffer(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SethasAudio51(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetaudioTracks(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setsubtitles(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SethasInfoCards(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setmid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettrailerId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstudioName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpphNames(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 videoId : String Index 0 Read FvideoId Write SetvideoId;
+ Property seasonId : String Index 8 Read FseasonId Write SetseasonId;
+ Property showId : String Index 16 Read FshowId Write SetshowId;
+ Property country : String Index 24 Read Fcountry Write Setcountry;
+ Property liveTime : String Index 32 Read FliveTime Write SetliveTime;
+ Property _type : String Index 40 Read F_type Write Set_type;
+ Property name : String Index 48 Read Fname Write Setname;
+ Property titleLevelEidr : String Index 56 Read FtitleLevelEidr Write SettitleLevelEidr;
+ Property editLevelEidr : String Index 64 Read FeditLevelEidr Write SeteditLevelEidr;
+ Property seasonName : String Index 72 Read FseasonName Write SetseasonName;
+ Property showName : String Index 80 Read FshowName Write SetshowName;
+ Property seasonNumber : String Index 88 Read FseasonNumber Write SetseasonNumber;
+ Property episodeNumber : String Index 96 Read FepisodeNumber Write SetepisodeNumber;
+ Property hasSdOffer : boolean Index 104 Read FhasSdOffer Write SethasSdOffer;
+ Property hasHdOffer : boolean Index 112 Read FhasHdOffer Write SethasHdOffer;
+ Property hasVodOffer : boolean Index 120 Read FhasVodOffer Write SethasVodOffer;
+ Property hasEstOffer : boolean Index 128 Read FhasEstOffer Write SethasEstOffer;
+ Property hasAudio51 : boolean Index 136 Read FhasAudio51 Write SethasAudio51;
+ Property audioTracks : TStringArray Index 144 Read FaudioTracks Write SetaudioTracks;
+ Property subtitles : TStringArray Index 152 Read Fsubtitles Write Setsubtitles;
+ Property hasInfoCards : boolean Index 160 Read FhasInfoCards Write SethasInfoCards;
+ Property mid : String Index 168 Read Fmid Write Setmid;
+ Property trailerId : String Index 176 Read FtrailerId Write SettrailerId;
+ Property studioName : String Index 184 Read FstudioName Write SetstudioName;
+ Property pphNames : TStringArray Index 192 Read FpphNames Write SetpphNames;
+ end;
+ TStoreInfoClass = Class of TStoreInfo;
+
+ { --------------------------------------------------------------------
+ TListStoreInfosResponse
+ --------------------------------------------------------------------}
+
+ TListStoreInfosResponse = Class(TGoogleBaseObject)
+ Private
+ FstoreInfos : TListStoreInfosResponseTypestoreInfosArray;
+ FnextPageToken : String;
+ FtotalSize : integer;
+ Protected
+ //Property setters
+ Procedure SetstoreInfos(AIndex : Integer; const AValue : TListStoreInfosResponseTypestoreInfosArray); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettotalSize(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 storeInfos : TListStoreInfosResponseTypestoreInfosArray Index 0 Read FstoreInfos Write SetstoreInfos;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ Property totalSize : integer Index 16 Read FtotalSize Write SettotalSize;
+ end;
+ TListStoreInfosResponseClass = Class of TListStoreInfosResponse;
+
+ { --------------------------------------------------------------------
+ TAccountsAvailsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAccountsAvailsResource, method List
+
+ TAccountsAvailsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ pphNames : String;
+ studioNames : String;
+ title : String;
+ territories : String;
+ altId : String;
+ videoIds : String;
+ altIds : String;
+ end;
+
+ TAccountsAvailsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(accountId: string; availId: string) : TAvail;
+ Function List(accountId: string; AQuery : string = '') : TListAvailsResponse;
+ Function List(accountId: string; AQuery : TAccountsAvailslistOptions) : TListAvailsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsOrdersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAccountsOrdersResource, method List
+
+ TAccountsOrdersListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ pphNames : String;
+ studioNames : String;
+ _name : String;
+ status : String;
+ customId : String;
+ videoIds : String;
+ end;
+
+ TAccountsOrdersResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(accountId: string; orderId: string) : TOrder;
+ Function List(accountId: string; AQuery : string = '') : TListOrdersResponse;
+ Function List(accountId: string; AQuery : TAccountsOrderslistOptions) : TListOrdersResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsExperienceLocalesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAccountsExperienceLocalesResource, method List
+
+ TAccountsExperienceLocalesListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ pphNames : String;
+ studioNames : String;
+ titleLevelEidr : String;
+ editLevelEidr : String;
+ status : String;
+ customId : String;
+ altCutId : String;
+ end;
+
+ TAccountsExperienceLocalesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(accountId: string; elId: string) : TExperienceLocale;
+ Function List(accountId: string; AQuery : string = '') : TListExperienceLocalesResponse;
+ Function List(accountId: string; AQuery : TAccountsExperienceLocaleslistOptions) : TListExperienceLocalesResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsComponentsTypeResource
+ --------------------------------------------------------------------}
+
+ TAccountsComponentsTypeResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(accountId: string; componentId: string; _type: string) : T_Component;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsComponentsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAccountsComponentsResource, method List
+
+ TAccountsComponentsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ pphNames : String;
+ studioNames : String;
+ titleLevelEidr : String;
+ editLevelEidr : String;
+ status : String;
+ customId : String;
+ inventoryId : String;
+ presentationId : String;
+ playableSequenceId : String;
+ elId : String;
+ altCutId : String;
+ filename : String;
+ end;
+
+ TAccountsComponentsResource = Class(TGoogleResource)
+ Private
+ FTypeInstance : TAccountsComponentsTypeResource;
+ Function GetTypeInstance : TAccountsComponentsTypeResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(accountId: string; AQuery : string = '') : TListComponentsResponse;
+ Function List(accountId: string; AQuery : TAccountsComponentslistOptions) : TListComponentsResponse;
+ Function CreateTypeResource(AOwner : TComponent) : TAccountsComponentsTypeResource;virtual;overload;
+ Function CreateTypeResource : TAccountsComponentsTypeResource;virtual;overload;
+ Property TypeResource : TAccountsComponentsTypeResource Read GetTypeInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsStoreInfosCountryResource
+ --------------------------------------------------------------------}
+
+ TAccountsStoreInfosCountryResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(accountId: string; videoId: string; country: string) : TStoreInfo;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsStoreInfosResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAccountsStoreInfosResource, method List
+
+ TAccountsStoreInfosListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ pphNames : String;
+ studioNames : String;
+ videoId : String;
+ countries : String;
+ _name : String;
+ videoIds : String;
+ mids : String;
+ seasonIds : String;
+ end;
+
+ TAccountsStoreInfosResource = Class(TGoogleResource)
+ Private
+ FCountryInstance : TAccountsStoreInfosCountryResource;
+ Function GetCountryInstance : TAccountsStoreInfosCountryResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(accountId: string; AQuery : string = '') : TListStoreInfosResponse;
+ Function List(accountId: string; AQuery : TAccountsStoreInfoslistOptions) : TListStoreInfosResponse;
+ Function CreateCountryResource(AOwner : TComponent) : TAccountsStoreInfosCountryResource;virtual;overload;
+ Function CreateCountryResource : TAccountsStoreInfosCountryResource;virtual;overload;
+ Property CountryResource : TAccountsStoreInfosCountryResource Read GetCountryInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsResource
+ --------------------------------------------------------------------}
+
+ TAccountsResource = Class(TGoogleResource)
+ Private
+ FAvailsInstance : TAccountsAvailsResource;
+ FOrdersInstance : TAccountsOrdersResource;
+ FExperienceLocalesInstance : TAccountsExperienceLocalesResource;
+ FComponentsTypeInstance : TAccountsComponentsTypeResource;
+ FComponentsInstance : TAccountsComponentsResource;
+ FStoreInfosCountryInstance : TAccountsStoreInfosCountryResource;
+ FStoreInfosInstance : TAccountsStoreInfosResource;
+ Function GetAvailsInstance : TAccountsAvailsResource;virtual;
+ Function GetOrdersInstance : TAccountsOrdersResource;virtual;
+ Function GetExperienceLocalesInstance : TAccountsExperienceLocalesResource;virtual;
+ Function GetComponentsTypeInstance : TAccountsComponentsTypeResource;virtual;
+ Function GetComponentsInstance : TAccountsComponentsResource;virtual;
+ Function GetStoreInfosCountryInstance : TAccountsStoreInfosCountryResource;virtual;
+ Function GetStoreInfosInstance : TAccountsStoreInfosResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CreateAvailsResource(AOwner : TComponent) : TAccountsAvailsResource;virtual;overload;
+ Function CreateAvailsResource : TAccountsAvailsResource;virtual;overload;
+ Function CreateOrdersResource(AOwner : TComponent) : TAccountsOrdersResource;virtual;overload;
+ Function CreateOrdersResource : TAccountsOrdersResource;virtual;overload;
+ Function CreateExperienceLocalesResource(AOwner : TComponent) : TAccountsExperienceLocalesResource;virtual;overload;
+ Function CreateExperienceLocalesResource : TAccountsExperienceLocalesResource;virtual;overload;
+ Function CreateComponentsTypeResource(AOwner : TComponent) : TAccountsComponentsTypeResource;virtual;overload;
+ Function CreateComponentsTypeResource : TAccountsComponentsTypeResource;virtual;overload;
+ Function CreateComponentsResource(AOwner : TComponent) : TAccountsComponentsResource;virtual;overload;
+ Function CreateComponentsResource : TAccountsComponentsResource;virtual;overload;
+ Function CreateStoreInfosCountryResource(AOwner : TComponent) : TAccountsStoreInfosCountryResource;virtual;overload;
+ Function CreateStoreInfosCountryResource : TAccountsStoreInfosCountryResource;virtual;overload;
+ Function CreateStoreInfosResource(AOwner : TComponent) : TAccountsStoreInfosResource;virtual;overload;
+ Function CreateStoreInfosResource : TAccountsStoreInfosResource;virtual;overload;
+ Property AvailsResource : TAccountsAvailsResource Read GetAvailsInstance;
+ Property OrdersResource : TAccountsOrdersResource Read GetOrdersInstance;
+ Property ExperienceLocalesResource : TAccountsExperienceLocalesResource Read GetExperienceLocalesInstance;
+ Property ComponentsTypeResource : TAccountsComponentsTypeResource Read GetComponentsTypeInstance;
+ Property ComponentsResource : TAccountsComponentsResource Read GetComponentsInstance;
+ Property StoreInfosCountryResource : TAccountsStoreInfosCountryResource Read GetStoreInfosCountryInstance;
+ Property StoreInfosResource : TAccountsStoreInfosResource Read GetStoreInfosInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TPlaymoviespartnerAPI
+ --------------------------------------------------------------------}
+
+ TPlaymoviespartnerAPI = Class(TGoogleAPI)
+ Private
+ FAccountsAvailsInstance : TAccountsAvailsResource;
+ FAccountsOrdersInstance : TAccountsOrdersResource;
+ FAccountsExperienceLocalesInstance : TAccountsExperienceLocalesResource;
+ FAccountsComponentsTypeInstance : TAccountsComponentsTypeResource;
+ FAccountsComponentsInstance : TAccountsComponentsResource;
+ FAccountsStoreInfosCountryInstance : TAccountsStoreInfosCountryResource;
+ FAccountsStoreInfosInstance : TAccountsStoreInfosResource;
+ FAccountsInstance : TAccountsResource;
+ Function GetAccountsAvailsInstance : TAccountsAvailsResource;virtual;
+ Function GetAccountsOrdersInstance : TAccountsOrdersResource;virtual;
+ Function GetAccountsExperienceLocalesInstance : TAccountsExperienceLocalesResource;virtual;
+ Function GetAccountsComponentsTypeInstance : TAccountsComponentsTypeResource;virtual;
+ Function GetAccountsComponentsInstance : TAccountsComponentsResource;virtual;
+ Function GetAccountsStoreInfosCountryInstance : TAccountsStoreInfosCountryResource;virtual;
+ Function GetAccountsStoreInfosInstance : TAccountsStoreInfosResource;virtual;
+ Function GetAccountsInstance : TAccountsResource;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 CreateAccountsAvailsResource(AOwner : TComponent) : TAccountsAvailsResource;virtual;overload;
+ Function CreateAccountsAvailsResource : TAccountsAvailsResource;virtual;overload;
+ Function CreateAccountsOrdersResource(AOwner : TComponent) : TAccountsOrdersResource;virtual;overload;
+ Function CreateAccountsOrdersResource : TAccountsOrdersResource;virtual;overload;
+ Function CreateAccountsExperienceLocalesResource(AOwner : TComponent) : TAccountsExperienceLocalesResource;virtual;overload;
+ Function CreateAccountsExperienceLocalesResource : TAccountsExperienceLocalesResource;virtual;overload;
+ Function CreateAccountsComponentsTypeResource(AOwner : TComponent) : TAccountsComponentsTypeResource;virtual;overload;
+ Function CreateAccountsComponentsTypeResource : TAccountsComponentsTypeResource;virtual;overload;
+ Function CreateAccountsComponentsResource(AOwner : TComponent) : TAccountsComponentsResource;virtual;overload;
+ Function CreateAccountsComponentsResource : TAccountsComponentsResource;virtual;overload;
+ Function CreateAccountsStoreInfosCountryResource(AOwner : TComponent) : TAccountsStoreInfosCountryResource;virtual;overload;
+ Function CreateAccountsStoreInfosCountryResource : TAccountsStoreInfosCountryResource;virtual;overload;
+ Function CreateAccountsStoreInfosResource(AOwner : TComponent) : TAccountsStoreInfosResource;virtual;overload;
+ Function CreateAccountsStoreInfosResource : TAccountsStoreInfosResource;virtual;overload;
+ Function CreateAccountsResource(AOwner : TComponent) : TAccountsResource;virtual;overload;
+ Function CreateAccountsResource : TAccountsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property AccountsAvailsResource : TAccountsAvailsResource Read GetAccountsAvailsInstance;
+ Property AccountsOrdersResource : TAccountsOrdersResource Read GetAccountsOrdersInstance;
+ Property AccountsExperienceLocalesResource : TAccountsExperienceLocalesResource Read GetAccountsExperienceLocalesInstance;
+ Property AccountsComponentsTypeResource : TAccountsComponentsTypeResource Read GetAccountsComponentsTypeInstance;
+ Property AccountsComponentsResource : TAccountsComponentsResource Read GetAccountsComponentsInstance;
+ Property AccountsStoreInfosCountryResource : TAccountsStoreInfosCountryResource Read GetAccountsStoreInfosCountryInstance;
+ Property AccountsStoreInfosResource : TAccountsStoreInfosResource Read GetAccountsStoreInfosInstance;
+ Property AccountsResource : TAccountsResource Read GetAccountsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TAvail
+ --------------------------------------------------------------------}
+
+
+Procedure TAvail.SetavailId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FavailId=AValue) then exit;
+ FavailId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetstoreLanguage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstoreLanguage=AValue) then exit;
+ FstoreLanguage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.Setterritory(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fterritory=AValue) then exit;
+ Fterritory:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetworkType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FworkType=AValue) then exit;
+ FworkType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetseriesTitleInternalAlias(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseriesTitleInternalAlias=AValue) then exit;
+ FseriesTitleInternalAlias:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetseasonNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseasonNumber=AValue) then exit;
+ FseasonNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetepisodeNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FepisodeNumber=AValue) then exit;
+ FepisodeNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetseasonTitleInternalAlias(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseasonTitleInternalAlias=AValue) then exit;
+ FseasonTitleInternalAlias:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetepisodeTitleInternalAlias(AIndex : Integer; const AValue : String);
+
+begin
+ If (FepisodeTitleInternalAlias=AValue) then exit;
+ FepisodeTitleInternalAlias:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SettitleInternalAlias(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtitleInternalAlias=AValue) then exit;
+ FtitleInternalAlias:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetlicenseType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlicenseType=AValue) then exit;
+ FlicenseType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetformatProfile(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformatProfile=AValue) then exit;
+ FformatProfile:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.Setstart(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.Set_end(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_end=AValue) then exit;
+ F_end:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetpriceType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpriceType=AValue) then exit;
+ FpriceType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetpriceValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpriceValue=AValue) then exit;
+ FpriceValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetcontentId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcontentId=AValue) then exit;
+ FcontentId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetproductId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FproductId=AValue) then exit;
+ FproductId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetencodeId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FencodeId=AValue) then exit;
+ FencodeId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetseriesAltId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseriesAltId=AValue) then exit;
+ FseriesAltId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetseasonAltId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseasonAltId=AValue) then exit;
+ FseasonAltId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetepisodeAltId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FepisodeAltId=AValue) then exit;
+ FepisodeAltId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetaltId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaltId=AValue) then exit;
+ FaltId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetsuppressionLiftDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsuppressionLiftDate=AValue) then exit;
+ FsuppressionLiftDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetreleaseDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreleaseDate=AValue) then exit;
+ FreleaseDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetratingSystem(AIndex : Integer; const AValue : String);
+
+begin
+ If (FratingSystem=AValue) then exit;
+ FratingSystem:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetratingValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FratingValue=AValue) then exit;
+ FratingValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetratingReason(AIndex : Integer; const AValue : String);
+
+begin
+ If (FratingReason=AValue) then exit;
+ FratingReason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetcaptionIncluded(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FcaptionIncluded=AValue) then exit;
+ FcaptionIncluded:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetcaptionExemption(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcaptionExemption=AValue) then exit;
+ FcaptionExemption:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetvideoId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvideoId=AValue) then exit;
+ FvideoId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAvail.SetpphNames(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FpphNames=AValue) then exit;
+ FpphNames:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TAvail.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_end' : Result:='end';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAvail.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'pphnames' : SetLength(FpphNames,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListAvailsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListAvailsResponse.Setavails(AIndex : Integer; const AValue : TListAvailsResponseTypeavailsArray);
+
+begin
+ If (Favails=AValue) then exit;
+ Favails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListAvailsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListAvailsResponse.SettotalSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalSize=AValue) then exit;
+ FtotalSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListAvailsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'avails' : SetLength(Favails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOrder
+ --------------------------------------------------------------------}
+
+
+Procedure TOrder.SetorderId(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForderId=AValue) then exit;
+ ForderId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetcustomId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcustomId=AValue) then exit;
+ FcustomId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetvideoId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvideoId=AValue) then exit;
+ FvideoId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Setcountries(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fcountries=AValue) then exit;
+ Fcountries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetepisodeName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FepisodeName=AValue) then exit;
+ FepisodeName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetseasonName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseasonName=AValue) then exit;
+ FseasonName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetshowName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshowName=AValue) then exit;
+ FshowName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetstatusDetail(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstatusDetail=AValue) then exit;
+ FstatusDetail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetrejectionNote(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrejectionNote=AValue) then exit;
+ FrejectionNote:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetorderedTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (ForderedTime=AValue) then exit;
+ ForderedTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetapprovedTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FapprovedTime=AValue) then exit;
+ FapprovedTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetreceivedTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreceivedTime=AValue) then exit;
+ FreceivedTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetearliestAvailStartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FearliestAvailStartTime=AValue) then exit;
+ FearliestAvailStartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.Setpriority(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fpriority=AValue) then exit;
+ Fpriority:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetlegacyPriority(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlegacyPriority=AValue) then exit;
+ FlegacyPriority:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetchannelName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelName=AValue) then exit;
+ FchannelName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetstudioName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstudioName=AValue) then exit;
+ FstudioName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetpphName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpphName=AValue) then exit;
+ FpphName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOrder.SetnormalizedPriority(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnormalizedPriority=AValue) then exit;
+ FnormalizedPriority:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TOrder.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 TOrder.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'countries' : SetLength(Fcountries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListOrdersResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListOrdersResponse.Setorders(AIndex : Integer; const AValue : TListOrdersResponseTypeordersArray);
+
+begin
+ If (Forders=AValue) then exit;
+ Forders:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListOrdersResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListOrdersResponse.SettotalSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalSize=AValue) then exit;
+ FtotalSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListOrdersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'orders' : SetLength(Forders,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TExperienceLocale
+ --------------------------------------------------------------------}
+
+
+Procedure TExperienceLocale.SetelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FelId=AValue) then exit;
+ FelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.Setcountry(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcountry=AValue) then exit;
+ Fcountry:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.Setlanguage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flanguage=AValue) then exit;
+ Flanguage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetvideoId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvideoId=AValue) then exit;
+ FvideoId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SettrailerId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtrailerId=AValue) then exit;
+ FtrailerId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SettitleLevelEidr(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtitleLevelEidr=AValue) then exit;
+ FtitleLevelEidr:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SeteditLevelEidr(AIndex : Integer; const AValue : String);
+
+begin
+ If (FeditLevelEidr=AValue) then exit;
+ FeditLevelEidr:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetaltCutId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaltCutId=AValue) then exit;
+ FaltCutId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetcustomIds(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FcustomIds=AValue) then exit;
+ FcustomIds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetpresentationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpresentationId=AValue) then exit;
+ FpresentationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetinventoryId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinventoryId=AValue) then exit;
+ FinventoryId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetplayableSequenceId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FplayableSequenceId=AValue) then exit;
+ FplayableSequenceId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.Setpriority(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fpriority=AValue) then exit;
+ Fpriority:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetcreatedTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreatedTime=AValue) then exit;
+ FcreatedTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetapprovedTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FapprovedTime=AValue) then exit;
+ FapprovedTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetearliestAvailStartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FearliestAvailStartTime=AValue) then exit;
+ FearliestAvailStartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetstudioName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstudioName=AValue) then exit;
+ FstudioName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetpphNames(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FpphNames=AValue) then exit;
+ FpphNames:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExperienceLocale.SetnormalizedPriority(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnormalizedPriority=AValue) then exit;
+ FnormalizedPriority:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TExperienceLocale.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 TExperienceLocale.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'customids' : SetLength(FcustomIds,ALength);
+ 'pphnames' : SetLength(FpphNames,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListExperienceLocalesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListExperienceLocalesResponse.SetexperienceLocales(AIndex : Integer; const AValue : TListExperienceLocalesResponseTypeexperienceLocalesArray);
+
+begin
+ If (FexperienceLocales=AValue) then exit;
+ FexperienceLocales:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListExperienceLocalesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListExperienceLocalesResponse.SettotalSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalSize=AValue) then exit;
+ FtotalSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListExperienceLocalesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'experiencelocales' : SetLength(FexperienceLocales,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ T_Component
+ --------------------------------------------------------------------}
+
+
+Procedure T_Component.SetcomponentId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcomponentId=AValue) then exit;
+ FcomponentId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetelIds(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FelIds=AValue) then exit;
+ FelIds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.Setlanguage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flanguage=AValue) then exit;
+ Flanguage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SettitleLevelEidrs(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FtitleLevelEidrs=AValue) then exit;
+ FtitleLevelEidrs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SeteditLevelEidrs(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FeditLevelEidrs=AValue) then exit;
+ FeditLevelEidrs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetaltCutIds(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FaltCutIds=AValue) then exit;
+ FaltCutIds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetcustomIds(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FcustomIds=AValue) then exit;
+ FcustomIds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetcomponentDetailType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcomponentDetailType=AValue) then exit;
+ FcomponentDetailType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetplayableUnitType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FplayableUnitType=AValue) then exit;
+ FplayableUnitType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetstatusDetail(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstatusDetail=AValue) then exit;
+ FstatusDetail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetrejectionNote(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrejectionNote=AValue) then exit;
+ FrejectionNote:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetapprovedTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FapprovedTime=AValue) then exit;
+ FapprovedTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetprocessingErrors(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FprocessingErrors=AValue) then exit;
+ FprocessingErrors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.Setpriority(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fpriority=AValue) then exit;
+ Fpriority:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetreceivedTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreceivedTime=AValue) then exit;
+ FreceivedTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.Setfilename(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffilename=AValue) then exit;
+ Ffilename:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetstudioName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstudioName=AValue) then exit;
+ FstudioName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetpphName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpphName=AValue) then exit;
+ FpphName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure T_Component.SetnormalizedPriority(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnormalizedPriority=AValue) then exit;
+ FnormalizedPriority:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function T_Component.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 T_Component.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'elids' : SetLength(FelIds,ALength);
+ 'titleleveleidrs' : SetLength(FtitleLevelEidrs,ALength);
+ 'editleveleidrs' : SetLength(FeditLevelEidrs,ALength);
+ 'altcutids' : SetLength(FaltCutIds,ALength);
+ 'customids' : SetLength(FcustomIds,ALength);
+ 'processingerrors' : SetLength(FprocessingErrors,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListComponentsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListComponentsResponse.Setcomponents(AIndex : Integer; const AValue : TListComponentsResponseTypecomponentsArray);
+
+begin
+ If (Fcomponents=AValue) then exit;
+ Fcomponents:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListComponentsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListComponentsResponse.SettotalSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalSize=AValue) then exit;
+ FtotalSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListComponentsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'components' : SetLength(Fcomponents,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TStoreInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TStoreInfo.SetvideoId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvideoId=AValue) then exit;
+ FvideoId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SetseasonId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseasonId=AValue) then exit;
+ FseasonId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SetshowId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshowId=AValue) then exit;
+ FshowId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.Setcountry(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcountry=AValue) then exit;
+ Fcountry:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SetliveTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FliveTime=AValue) then exit;
+ FliveTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SettitleLevelEidr(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtitleLevelEidr=AValue) then exit;
+ FtitleLevelEidr:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SeteditLevelEidr(AIndex : Integer; const AValue : String);
+
+begin
+ If (FeditLevelEidr=AValue) then exit;
+ FeditLevelEidr:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SetseasonName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseasonName=AValue) then exit;
+ FseasonName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SetshowName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FshowName=AValue) then exit;
+ FshowName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SetseasonNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FseasonNumber=AValue) then exit;
+ FseasonNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SetepisodeNumber(AIndex : Integer; const AValue : String);
+
+begin
+ If (FepisodeNumber=AValue) then exit;
+ FepisodeNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SethasSdOffer(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasSdOffer=AValue) then exit;
+ FhasSdOffer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SethasHdOffer(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasHdOffer=AValue) then exit;
+ FhasHdOffer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SethasVodOffer(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasVodOffer=AValue) then exit;
+ FhasVodOffer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SethasEstOffer(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasEstOffer=AValue) then exit;
+ FhasEstOffer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SethasAudio51(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasAudio51=AValue) then exit;
+ FhasAudio51:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SetaudioTracks(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FaudioTracks=AValue) then exit;
+ FaudioTracks:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.Setsubtitles(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fsubtitles=AValue) then exit;
+ Fsubtitles:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SethasInfoCards(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasInfoCards=AValue) then exit;
+ FhasInfoCards:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.Setmid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmid=AValue) then exit;
+ Fmid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SettrailerId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtrailerId=AValue) then exit;
+ FtrailerId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SetstudioName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstudioName=AValue) then exit;
+ FstudioName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStoreInfo.SetpphNames(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FpphNames=AValue) then exit;
+ FpphNames:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TStoreInfo.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 TStoreInfo.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'audiotracks' : SetLength(FaudioTracks,ALength);
+ 'subtitles' : SetLength(Fsubtitles,ALength);
+ 'pphnames' : SetLength(FpphNames,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListStoreInfosResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListStoreInfosResponse.SetstoreInfos(AIndex : Integer; const AValue : TListStoreInfosResponseTypestoreInfosArray);
+
+begin
+ If (FstoreInfos=AValue) then exit;
+ FstoreInfos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListStoreInfosResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListStoreInfosResponse.SettotalSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalSize=AValue) then exit;
+ FtotalSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListStoreInfosResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'storeinfos' : SetLength(FstoreInfos,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsAvailsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsAvailsResource.ResourceName : String;
+
+begin
+ Result:='avails';
+end;
+
+Class Function TAccountsAvailsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TplaymoviespartnerAPI;
+end;
+
+Function TAccountsAvailsResource.Get(accountId: string; availId: string) : TAvail;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/accounts/{accountId}/avails/{availId}';
+ _Methodid = 'playmoviespartner.accounts.avails.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'availId',availId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAvail) as TAvail;
+end;
+
+Function TAccountsAvailsResource.List(accountId: string; AQuery : string = '') : TListAvailsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/accounts/{accountId}/avails';
+ _Methodid = 'playmoviespartner.accounts.avails.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListAvailsResponse) as TListAvailsResponse;
+end;
+
+
+Function TAccountsAvailsResource.List(accountId: string; AQuery : TAccountsAvailslistOptions) : TListAvailsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'pphNames',AQuery.pphNames);
+ AddToQuery(_Q,'studioNames',AQuery.studioNames);
+ AddToQuery(_Q,'title',AQuery.title);
+ AddToQuery(_Q,'territories',AQuery.territories);
+ AddToQuery(_Q,'altId',AQuery.altId);
+ AddToQuery(_Q,'videoIds',AQuery.videoIds);
+ AddToQuery(_Q,'altIds',AQuery.altIds);
+ Result:=List(accountId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsOrdersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsOrdersResource.ResourceName : String;
+
+begin
+ Result:='orders';
+end;
+
+Class Function TAccountsOrdersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TplaymoviespartnerAPI;
+end;
+
+Function TAccountsOrdersResource.Get(accountId: string; orderId: string) : TOrder;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/accounts/{accountId}/orders/{orderId}';
+ _Methodid = 'playmoviespartner.accounts.orders.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'orderId',orderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOrder) as TOrder;
+end;
+
+Function TAccountsOrdersResource.List(accountId: string; AQuery : string = '') : TListOrdersResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/accounts/{accountId}/orders';
+ _Methodid = 'playmoviespartner.accounts.orders.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListOrdersResponse) as TListOrdersResponse;
+end;
+
+
+Function TAccountsOrdersResource.List(accountId: string; AQuery : TAccountsOrderslistOptions) : TListOrdersResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'pphNames',AQuery.pphNames);
+ AddToQuery(_Q,'studioNames',AQuery.studioNames);
+ AddToQuery(_Q,'name',AQuery._name);
+ AddToQuery(_Q,'status',AQuery.status);
+ AddToQuery(_Q,'customId',AQuery.customId);
+ AddToQuery(_Q,'videoIds',AQuery.videoIds);
+ Result:=List(accountId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsExperienceLocalesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsExperienceLocalesResource.ResourceName : String;
+
+begin
+ Result:='experienceLocales';
+end;
+
+Class Function TAccountsExperienceLocalesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TplaymoviespartnerAPI;
+end;
+
+Function TAccountsExperienceLocalesResource.Get(accountId: string; elId: string) : TExperienceLocale;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/accounts/{accountId}/experienceLocales/{elId}';
+ _Methodid = 'playmoviespartner.accounts.experienceLocales.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'elId',elId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TExperienceLocale) as TExperienceLocale;
+end;
+
+Function TAccountsExperienceLocalesResource.List(accountId: string; AQuery : string = '') : TListExperienceLocalesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/accounts/{accountId}/experienceLocales';
+ _Methodid = 'playmoviespartner.accounts.experienceLocales.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListExperienceLocalesResponse) as TListExperienceLocalesResponse;
+end;
+
+
+Function TAccountsExperienceLocalesResource.List(accountId: string; AQuery : TAccountsExperienceLocaleslistOptions) : TListExperienceLocalesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'pphNames',AQuery.pphNames);
+ AddToQuery(_Q,'studioNames',AQuery.studioNames);
+ AddToQuery(_Q,'titleLevelEidr',AQuery.titleLevelEidr);
+ AddToQuery(_Q,'editLevelEidr',AQuery.editLevelEidr);
+ AddToQuery(_Q,'status',AQuery.status);
+ AddToQuery(_Q,'customId',AQuery.customId);
+ AddToQuery(_Q,'altCutId',AQuery.altCutId);
+ Result:=List(accountId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsComponentsTypeResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsComponentsTypeResource.ResourceName : String;
+
+begin
+ Result:='type';
+end;
+
+Class Function TAccountsComponentsTypeResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TplaymoviespartnerAPI;
+end;
+
+Function TAccountsComponentsTypeResource.Get(accountId: string; componentId: string; _type: string) : T_Component;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/accounts/{accountId}/components/{componentId}/type/{type}';
+ _Methodid = 'playmoviespartner.accounts.components.type.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'componentId',componentId,'type',_type]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,T_Component) as T_Component;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsComponentsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsComponentsResource.ResourceName : String;
+
+begin
+ Result:='components';
+end;
+
+Class Function TAccountsComponentsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TplaymoviespartnerAPI;
+end;
+
+Function TAccountsComponentsResource.List(accountId: string; AQuery : string = '') : TListComponentsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/accounts/{accountId}/components';
+ _Methodid = 'playmoviespartner.accounts.components.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListComponentsResponse) as TListComponentsResponse;
+end;
+
+
+Function TAccountsComponentsResource.List(accountId: string; AQuery : TAccountsComponentslistOptions) : TListComponentsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'pphNames',AQuery.pphNames);
+ AddToQuery(_Q,'studioNames',AQuery.studioNames);
+ AddToQuery(_Q,'titleLevelEidr',AQuery.titleLevelEidr);
+ AddToQuery(_Q,'editLevelEidr',AQuery.editLevelEidr);
+ AddToQuery(_Q,'status',AQuery.status);
+ AddToQuery(_Q,'customId',AQuery.customId);
+ AddToQuery(_Q,'inventoryId',AQuery.inventoryId);
+ AddToQuery(_Q,'presentationId',AQuery.presentationId);
+ AddToQuery(_Q,'playableSequenceId',AQuery.playableSequenceId);
+ AddToQuery(_Q,'elId',AQuery.elId);
+ AddToQuery(_Q,'altCutId',AQuery.altCutId);
+ AddToQuery(_Q,'filename',AQuery.filename);
+ Result:=List(accountId,_Q);
+end;
+
+
+
+Function TAccountsComponentsResource.GetTypeInstance : TAccountsComponentsTypeResource;
+
+begin
+ if (FTypeInstance=Nil) then
+ FTypeInstance:=CreateTypeResource;
+ Result:=FTypeInstance;
+end;
+
+Function TAccountsComponentsResource.CreateTypeResource : TAccountsComponentsTypeResource;
+
+begin
+ Result:=CreateTypeResource(Self);
+end;
+
+
+Function TAccountsComponentsResource.CreateTypeResource(AOwner : TComponent) : TAccountsComponentsTypeResource;
+
+begin
+ Result:=TAccountsComponentsTypeResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsStoreInfosCountryResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsStoreInfosCountryResource.ResourceName : String;
+
+begin
+ Result:='country';
+end;
+
+Class Function TAccountsStoreInfosCountryResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TplaymoviespartnerAPI;
+end;
+
+Function TAccountsStoreInfosCountryResource.Get(accountId: string; videoId: string; country: string) : TStoreInfo;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/accounts/{accountId}/storeInfos/{videoId}/country/{country}';
+ _Methodid = 'playmoviespartner.accounts.storeInfos.country.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'videoId',videoId,'country',country]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TStoreInfo) as TStoreInfo;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsStoreInfosResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsStoreInfosResource.ResourceName : String;
+
+begin
+ Result:='storeInfos';
+end;
+
+Class Function TAccountsStoreInfosResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TplaymoviespartnerAPI;
+end;
+
+Function TAccountsStoreInfosResource.List(accountId: string; AQuery : string = '') : TListStoreInfosResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/accounts/{accountId}/storeInfos';
+ _Methodid = 'playmoviespartner.accounts.storeInfos.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListStoreInfosResponse) as TListStoreInfosResponse;
+end;
+
+
+Function TAccountsStoreInfosResource.List(accountId: string; AQuery : TAccountsStoreInfoslistOptions) : TListStoreInfosResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'pphNames',AQuery.pphNames);
+ AddToQuery(_Q,'studioNames',AQuery.studioNames);
+ AddToQuery(_Q,'videoId',AQuery.videoId);
+ AddToQuery(_Q,'countries',AQuery.countries);
+ AddToQuery(_Q,'name',AQuery._name);
+ AddToQuery(_Q,'videoIds',AQuery.videoIds);
+ AddToQuery(_Q,'mids',AQuery.mids);
+ AddToQuery(_Q,'seasonIds',AQuery.seasonIds);
+ Result:=List(accountId,_Q);
+end;
+
+
+
+Function TAccountsStoreInfosResource.GetCountryInstance : TAccountsStoreInfosCountryResource;
+
+begin
+ if (FCountryInstance=Nil) then
+ FCountryInstance:=CreateCountryResource;
+ Result:=FCountryInstance;
+end;
+
+Function TAccountsStoreInfosResource.CreateCountryResource : TAccountsStoreInfosCountryResource;
+
+begin
+ Result:=CreateCountryResource(Self);
+end;
+
+
+Function TAccountsStoreInfosResource.CreateCountryResource(AOwner : TComponent) : TAccountsStoreInfosCountryResource;
+
+begin
+ Result:=TAccountsStoreInfosCountryResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsResource.ResourceName : String;
+
+begin
+ Result:='accounts';
+end;
+
+Class Function TAccountsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TplaymoviespartnerAPI;
+end;
+
+
+
+Function TAccountsResource.GetAvailsInstance : TAccountsAvailsResource;
+
+begin
+ if (FAvailsInstance=Nil) then
+ FAvailsInstance:=CreateAvailsResource;
+ Result:=FAvailsInstance;
+end;
+
+Function TAccountsResource.CreateAvailsResource : TAccountsAvailsResource;
+
+begin
+ Result:=CreateAvailsResource(Self);
+end;
+
+
+Function TAccountsResource.CreateAvailsResource(AOwner : TComponent) : TAccountsAvailsResource;
+
+begin
+ Result:=TAccountsAvailsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetOrdersInstance : TAccountsOrdersResource;
+
+begin
+ if (FOrdersInstance=Nil) then
+ FOrdersInstance:=CreateOrdersResource;
+ Result:=FOrdersInstance;
+end;
+
+Function TAccountsResource.CreateOrdersResource : TAccountsOrdersResource;
+
+begin
+ Result:=CreateOrdersResource(Self);
+end;
+
+
+Function TAccountsResource.CreateOrdersResource(AOwner : TComponent) : TAccountsOrdersResource;
+
+begin
+ Result:=TAccountsOrdersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetExperienceLocalesInstance : TAccountsExperienceLocalesResource;
+
+begin
+ if (FExperienceLocalesInstance=Nil) then
+ FExperienceLocalesInstance:=CreateExperienceLocalesResource;
+ Result:=FExperienceLocalesInstance;
+end;
+
+Function TAccountsResource.CreateExperienceLocalesResource : TAccountsExperienceLocalesResource;
+
+begin
+ Result:=CreateExperienceLocalesResource(Self);
+end;
+
+
+Function TAccountsResource.CreateExperienceLocalesResource(AOwner : TComponent) : TAccountsExperienceLocalesResource;
+
+begin
+ Result:=TAccountsExperienceLocalesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetComponentsTypeInstance : TAccountsComponentsTypeResource;
+
+begin
+ if (FComponentsTypeInstance=Nil) then
+ FComponentsTypeInstance:=CreateComponentsTypeResource;
+ Result:=FComponentsTypeInstance;
+end;
+
+Function TAccountsResource.CreateComponentsTypeResource : TAccountsComponentsTypeResource;
+
+begin
+ Result:=CreateComponentsTypeResource(Self);
+end;
+
+
+Function TAccountsResource.CreateComponentsTypeResource(AOwner : TComponent) : TAccountsComponentsTypeResource;
+
+begin
+ Result:=TAccountsComponentsTypeResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetComponentsInstance : TAccountsComponentsResource;
+
+begin
+ if (FComponentsInstance=Nil) then
+ FComponentsInstance:=CreateComponentsResource;
+ Result:=FComponentsInstance;
+end;
+
+Function TAccountsResource.CreateComponentsResource : TAccountsComponentsResource;
+
+begin
+ Result:=CreateComponentsResource(Self);
+end;
+
+
+Function TAccountsResource.CreateComponentsResource(AOwner : TComponent) : TAccountsComponentsResource;
+
+begin
+ Result:=TAccountsComponentsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetStoreInfosCountryInstance : TAccountsStoreInfosCountryResource;
+
+begin
+ if (FStoreInfosCountryInstance=Nil) then
+ FStoreInfosCountryInstance:=CreateStoreInfosCountryResource;
+ Result:=FStoreInfosCountryInstance;
+end;
+
+Function TAccountsResource.CreateStoreInfosCountryResource : TAccountsStoreInfosCountryResource;
+
+begin
+ Result:=CreateStoreInfosCountryResource(Self);
+end;
+
+
+Function TAccountsResource.CreateStoreInfosCountryResource(AOwner : TComponent) : TAccountsStoreInfosCountryResource;
+
+begin
+ Result:=TAccountsStoreInfosCountryResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetStoreInfosInstance : TAccountsStoreInfosResource;
+
+begin
+ if (FStoreInfosInstance=Nil) then
+ FStoreInfosInstance:=CreateStoreInfosResource;
+ Result:=FStoreInfosInstance;
+end;
+
+Function TAccountsResource.CreateStoreInfosResource : TAccountsStoreInfosResource;
+
+begin
+ Result:=CreateStoreInfosResource(Self);
+end;
+
+
+Function TAccountsResource.CreateStoreInfosResource(AOwner : TComponent) : TAccountsStoreInfosResource;
+
+begin
+ Result:=TAccountsStoreInfosResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TPlaymoviespartnerAPI
+ --------------------------------------------------------------------}
+
+Class Function TPlaymoviespartnerAPI.APIName : String;
+
+begin
+ Result:='playmoviespartner';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIRevision : String;
+
+begin
+ Result:='20160518';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIID : String;
+
+begin
+ Result:='playmoviespartner:v1';
+end;
+
+Class Function TPlaymoviespartnerAPI.APITitle : String;
+
+begin
+ Result:='Google Play Movies Partner API';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIDescription : String;
+
+begin
+ Result:='Gets the delivery status of titles for Google Play Movies Partners.';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/playmoviespartner/';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIrootUrl : string;
+
+begin
+ Result:='https://playmoviespartner.googleapis.com/';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIbaseURL : String;
+
+begin
+ Result:='https://playmoviespartner.googleapis.com/';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TPlaymoviespartnerAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/playmovies_partner.readonly';
+ Result[0].Description:='View the digital assets you publish on Google Play Movies and TV';
+
+end;
+
+Class Function TPlaymoviespartnerAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TPlaymoviespartnerAPI.RegisterAPIResources;
+
+begin
+ TAvail.RegisterObject;
+ TListAvailsResponse.RegisterObject;
+ TOrder.RegisterObject;
+ TListOrdersResponse.RegisterObject;
+ TExperienceLocale.RegisterObject;
+ TListExperienceLocalesResponse.RegisterObject;
+ T_Component.RegisterObject;
+ TListComponentsResponse.RegisterObject;
+ TStoreInfo.RegisterObject;
+ TListStoreInfosResponse.RegisterObject;
+end;
+
+
+Function TPlaymoviespartnerAPI.GetAccountsAvailsInstance : TAccountsAvailsResource;
+
+begin
+ if (FAccountsAvailsInstance=Nil) then
+ FAccountsAvailsInstance:=CreateAccountsAvailsResource;
+ Result:=FAccountsAvailsInstance;
+end;
+
+Function TPlaymoviespartnerAPI.CreateAccountsAvailsResource : TAccountsAvailsResource;
+
+begin
+ Result:=CreateAccountsAvailsResource(Self);
+end;
+
+
+Function TPlaymoviespartnerAPI.CreateAccountsAvailsResource(AOwner : TComponent) : TAccountsAvailsResource;
+
+begin
+ Result:=TAccountsAvailsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPlaymoviespartnerAPI.GetAccountsOrdersInstance : TAccountsOrdersResource;
+
+begin
+ if (FAccountsOrdersInstance=Nil) then
+ FAccountsOrdersInstance:=CreateAccountsOrdersResource;
+ Result:=FAccountsOrdersInstance;
+end;
+
+Function TPlaymoviespartnerAPI.CreateAccountsOrdersResource : TAccountsOrdersResource;
+
+begin
+ Result:=CreateAccountsOrdersResource(Self);
+end;
+
+
+Function TPlaymoviespartnerAPI.CreateAccountsOrdersResource(AOwner : TComponent) : TAccountsOrdersResource;
+
+begin
+ Result:=TAccountsOrdersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPlaymoviespartnerAPI.GetAccountsExperienceLocalesInstance : TAccountsExperienceLocalesResource;
+
+begin
+ if (FAccountsExperienceLocalesInstance=Nil) then
+ FAccountsExperienceLocalesInstance:=CreateAccountsExperienceLocalesResource;
+ Result:=FAccountsExperienceLocalesInstance;
+end;
+
+Function TPlaymoviespartnerAPI.CreateAccountsExperienceLocalesResource : TAccountsExperienceLocalesResource;
+
+begin
+ Result:=CreateAccountsExperienceLocalesResource(Self);
+end;
+
+
+Function TPlaymoviespartnerAPI.CreateAccountsExperienceLocalesResource(AOwner : TComponent) : TAccountsExperienceLocalesResource;
+
+begin
+ Result:=TAccountsExperienceLocalesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPlaymoviespartnerAPI.GetAccountsComponentsTypeInstance : TAccountsComponentsTypeResource;
+
+begin
+ if (FAccountsComponentsTypeInstance=Nil) then
+ FAccountsComponentsTypeInstance:=CreateAccountsComponentsTypeResource;
+ Result:=FAccountsComponentsTypeInstance;
+end;
+
+Function TPlaymoviespartnerAPI.CreateAccountsComponentsTypeResource : TAccountsComponentsTypeResource;
+
+begin
+ Result:=CreateAccountsComponentsTypeResource(Self);
+end;
+
+
+Function TPlaymoviespartnerAPI.CreateAccountsComponentsTypeResource(AOwner : TComponent) : TAccountsComponentsTypeResource;
+
+begin
+ Result:=TAccountsComponentsTypeResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPlaymoviespartnerAPI.GetAccountsComponentsInstance : TAccountsComponentsResource;
+
+begin
+ if (FAccountsComponentsInstance=Nil) then
+ FAccountsComponentsInstance:=CreateAccountsComponentsResource;
+ Result:=FAccountsComponentsInstance;
+end;
+
+Function TPlaymoviespartnerAPI.CreateAccountsComponentsResource : TAccountsComponentsResource;
+
+begin
+ Result:=CreateAccountsComponentsResource(Self);
+end;
+
+
+Function TPlaymoviespartnerAPI.CreateAccountsComponentsResource(AOwner : TComponent) : TAccountsComponentsResource;
+
+begin
+ Result:=TAccountsComponentsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPlaymoviespartnerAPI.GetAccountsStoreInfosCountryInstance : TAccountsStoreInfosCountryResource;
+
+begin
+ if (FAccountsStoreInfosCountryInstance=Nil) then
+ FAccountsStoreInfosCountryInstance:=CreateAccountsStoreInfosCountryResource;
+ Result:=FAccountsStoreInfosCountryInstance;
+end;
+
+Function TPlaymoviespartnerAPI.CreateAccountsStoreInfosCountryResource : TAccountsStoreInfosCountryResource;
+
+begin
+ Result:=CreateAccountsStoreInfosCountryResource(Self);
+end;
+
+
+Function TPlaymoviespartnerAPI.CreateAccountsStoreInfosCountryResource(AOwner : TComponent) : TAccountsStoreInfosCountryResource;
+
+begin
+ Result:=TAccountsStoreInfosCountryResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPlaymoviespartnerAPI.GetAccountsStoreInfosInstance : TAccountsStoreInfosResource;
+
+begin
+ if (FAccountsStoreInfosInstance=Nil) then
+ FAccountsStoreInfosInstance:=CreateAccountsStoreInfosResource;
+ Result:=FAccountsStoreInfosInstance;
+end;
+
+Function TPlaymoviespartnerAPI.CreateAccountsStoreInfosResource : TAccountsStoreInfosResource;
+
+begin
+ Result:=CreateAccountsStoreInfosResource(Self);
+end;
+
+
+Function TPlaymoviespartnerAPI.CreateAccountsStoreInfosResource(AOwner : TComponent) : TAccountsStoreInfosResource;
+
+begin
+ Result:=TAccountsStoreInfosResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TPlaymoviespartnerAPI.GetAccountsInstance : TAccountsResource;
+
+begin
+ if (FAccountsInstance=Nil) then
+ FAccountsInstance:=CreateAccountsResource;
+ Result:=FAccountsInstance;
+end;
+
+Function TPlaymoviespartnerAPI.CreateAccountsResource : TAccountsResource;
+
+begin
+ Result:=CreateAccountsResource(Self);
+end;
+
+
+Function TPlaymoviespartnerAPI.CreateAccountsResource(AOwner : TComponent) : TAccountsResource;
+
+begin
+ Result:=TAccountsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TPlaymoviespartnerAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleplus.pp b/packages/googleapi/src/googleplus.pp
index edec723286..b46a70d341 100644
--- a/packages/googleapi/src/googleplus.pp
+++ b/packages/googleapi/src/googleplus.pp
@@ -1,19 +1,4 @@
unit googleplus;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:06
{$MODE objfpc}
{$H+}
@@ -29,9 +14,6 @@ type
TActivityFeed = Class;
TComment = Class;
TCommentFeed = Class;
- TItemScope = Class;
- TMoment = Class;
- TMomentsFeed = Class;
TPeopleFeed = Class;
TPerson = Class;
TPlace = Class;
@@ -41,18 +23,21 @@ type
TActivityFeedArray = Array of TActivityFeed;
TCommentArray = Array of TComment;
TCommentFeedArray = Array of TCommentFeed;
- TItemScopeArray = Array of TItemScope;
- TMomentArray = Array of TMoment;
- TMomentsFeedArray = Array of TMomentsFeed;
TPeopleFeedArray = Array of TPeopleFeed;
TPersonArray = Array of TPerson;
TPlaceArray = Array of TPlace;
TPlusAclentryResourceArray = Array of TPlusAclentryResource;
//Anonymous types, using auto-generated names
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
+ TActivityTypeactorTypeclientSpecificActorInfo = Class;
TActivityTypeactorTypeimage = Class;
TActivityTypeactorTypename = Class;
+ TActivityTypeactorTypeverification = Class;
TActivityTypeactor = Class;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfo = Class;
TActivityTypeobjectTypeactorTypeimage = Class;
+ TActivityTypeobjectTypeactorTypeverification = Class;
TActivityTypeobjectTypeactor = Class;
TActivityTypeobjectTypeattachmentsItemTypeembed = Class;
TActivityTypeobjectTypeattachmentsItemTypefullImage = Class;
@@ -65,7 +50,10 @@ type
TActivityTypeobjectTyperesharers = Class;
TActivityTypeobject = Class;
TActivityTypeprovider = Class;
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
+ TCommentTypeactorTypeclientSpecificActorInfo = Class;
TCommentTypeactorTypeimage = Class;
+ TCommentTypeactorTypeverification = Class;
TCommentTypeactor = Class;
TCommentTypeinReplyToItem = Class;
TCommentTypeobject = Class;
@@ -88,12 +76,6 @@ type
TActivityFeedTypeitemsArray = Array of TActivity;
TCommentTypeinReplyToArray = Array of TCommentTypeinReplyToItem;
TCommentFeedTypeitemsArray = Array of TComment;
- TItemScopeTypeassociated_mediaArray = Array of TItemScope;
- TItemScopeTypeattendeesArray = Array of TItemScope;
- TItemScopeTypeauthorArray = Array of TItemScope;
- TItemScopeTypecontributorArray = Array of TItemScope;
- TItemScopeTypeperformersArray = Array of TItemScope;
- TMomentsFeedTypeitemsArray = Array of TMoment;
TPeopleFeedTypeitemsArray = Array of TPerson;
TPersonTypeemailsArray = Array of TPersonTypeemailsItem;
TPersonTypeorganizationsArray = Array of TPersonTypeorganizationsItem;
@@ -112,7 +94,7 @@ type
Protected
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAclTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -127,6 +109,38 @@ type
TAclClass = Class of TAcl;
{ --------------------------------------------------------------------
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
+ Private
+ FchannelId : String;
+ Protected
+ //Property setters
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property channelId : String Index 0 Read FchannelId Write SetchannelId;
+ end;
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+
+ { --------------------------------------------------------------------
+ TActivityTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+ TActivityTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
+ Private
+ FyoutubeActorInfo : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+ Protected
+ //Property setters
+ Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
+ Public
+ Published
+ Property youtubeActorInfo : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
+ end;
+ TActivityTypeactorTypeclientSpecificActorInfoClass = Class of TActivityTypeactorTypeclientSpecificActorInfo;
+
+ { --------------------------------------------------------------------
TActivityTypeactorTypeimage
--------------------------------------------------------------------}
@@ -162,34 +176,88 @@ type
TActivityTypeactorTypenameClass = Class of TActivityTypeactorTypename;
{ --------------------------------------------------------------------
+ TActivityTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+ TActivityTypeactorTypeverification = Class(TGoogleBaseObject)
+ Private
+ FadHocVerified : String;
+ Protected
+ //Property setters
+ Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
+ end;
+ TActivityTypeactorTypeverificationClass = Class of TActivityTypeactorTypeverification;
+
+ { --------------------------------------------------------------------
TActivityTypeactor
--------------------------------------------------------------------}
TActivityTypeactor = Class(TGoogleBaseObject)
Private
+ FclientSpecificActorInfo : TActivityTypeactorTypeclientSpecificActorInfo;
FdisplayName : String;
Fid : String;
Fimage : TActivityTypeactorTypeimage;
Fname : TActivityTypeactorTypename;
Furl : String;
+ Fverification : TActivityTypeactorTypeverification;
Protected
//Property setters
+ Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfo); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TActivityTypeactorTypeimage); virtual;
- Procedure Setname(AIndex : Integer; AValue : TActivityTypeactorTypename); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeactorTypeimage); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TActivityTypeactorTypename); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setverification(AIndex : Integer; const AValue : TActivityTypeactorTypeverification); virtual;
Public
Published
- Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
- Property id : String Index 8 Read Fid Write Setid;
- Property image : TActivityTypeactorTypeimage Index 16 Read Fimage Write Setimage;
- Property name : TActivityTypeactorTypename Index 24 Read Fname Write Setname;
- Property url : String Index 32 Read Furl Write Seturl;
+ Property clientSpecificActorInfo : TActivityTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property image : TActivityTypeactorTypeimage Index 24 Read Fimage Write Setimage;
+ Property name : TActivityTypeactorTypename Index 32 Read Fname Write Setname;
+ Property url : String Index 40 Read Furl Write Seturl;
+ Property verification : TActivityTypeactorTypeverification Index 48 Read Fverification Write Setverification;
end;
TActivityTypeactorClass = Class of TActivityTypeactor;
{ --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
+ Private
+ FchannelId : String;
+ Protected
+ //Property setters
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property channelId : String Index 0 Read FchannelId Write SetchannelId;
+ end;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+
+ { --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
+ Private
+ FyoutubeActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+ Protected
+ //Property setters
+ Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
+ Public
+ Published
+ Property youtubeActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
+ end;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoClass = Class of TActivityTypeobjectTypeactorTypeclientSpecificActorInfo;
+
+ { --------------------------------------------------------------------
TActivityTypeobjectTypeactorTypeimage
--------------------------------------------------------------------}
@@ -206,27 +274,49 @@ type
TActivityTypeobjectTypeactorTypeimageClass = Class of TActivityTypeobjectTypeactorTypeimage;
{ --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+ TActivityTypeobjectTypeactorTypeverification = Class(TGoogleBaseObject)
+ Private
+ FadHocVerified : String;
+ Protected
+ //Property setters
+ Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
+ end;
+ TActivityTypeobjectTypeactorTypeverificationClass = Class of TActivityTypeobjectTypeactorTypeverification;
+
+ { --------------------------------------------------------------------
TActivityTypeobjectTypeactor
--------------------------------------------------------------------}
TActivityTypeobjectTypeactor = Class(TGoogleBaseObject)
Private
+ FclientSpecificActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo;
FdisplayName : String;
Fid : String;
Fimage : TActivityTypeobjectTypeactorTypeimage;
Furl : String;
+ Fverification : TActivityTypeobjectTypeactorTypeverification;
Protected
//Property setters
+ Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeactorTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeimage); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setverification(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeverification); virtual;
Public
Published
- Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
- Property id : String Index 8 Read Fid Write Setid;
- Property image : TActivityTypeobjectTypeactorTypeimage Index 16 Read Fimage Write Setimage;
- Property url : String Index 24 Read Furl Write Seturl;
+ Property clientSpecificActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property image : TActivityTypeobjectTypeactorTypeimage Index 24 Read Fimage Write Setimage;
+ Property url : String Index 32 Read Furl Write Seturl;
+ Property verification : TActivityTypeobjectTypeactorTypeverification Index 40 Read Fverification Write Setverification;
end;
TActivityTypeobjectTypeactorClass = Class of TActivityTypeobjectTypeactor;
@@ -263,10 +353,10 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -289,10 +379,10 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -315,10 +405,10 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -340,7 +430,7 @@ type
Protected
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -369,12 +459,12 @@ type
//Property setters
Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setembed(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeembed); virtual;
- Procedure SetfullImage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage); virtual;
+ Procedure Setembed(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeembed); virtual;
+ Procedure SetfullImage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeimage); virtual;
Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setthumbnails(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -405,7 +495,7 @@ type
Protected
//Property setters
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
@@ -424,7 +514,7 @@ type
Protected
//Property setters
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
@@ -443,7 +533,7 @@ type
Protected
//Property setters
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
@@ -469,15 +559,15 @@ type
Furl : String;
Protected
//Property setters
- Procedure Setactor(AIndex : Integer; AValue : TActivityTypeobjectTypeactor); virtual;
- Procedure Setattachments(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsArray); virtual;
+ Procedure Setactor(AIndex : Integer; const AValue : TActivityTypeobjectTypeactor); virtual;
+ Procedure Setattachments(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsArray); virtual;
Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
Procedure SetoriginalContent(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplusoners(AIndex : Integer; AValue : TActivityTypeobjectTypeplusoners); virtual;
- Procedure Setreplies(AIndex : Integer; AValue : TActivityTypeobjectTypereplies); virtual;
- Procedure Setresharers(AIndex : Integer; AValue : TActivityTypeobjectTyperesharers); virtual;
+ Procedure Setplusoners(AIndex : Integer; const AValue : TActivityTypeobjectTypeplusoners); virtual;
+ Procedure Setreplies(AIndex : Integer; const AValue : TActivityTypeobjectTypereplies); virtual;
+ Procedure Setresharers(AIndex : Integer; const AValue : TActivityTypeobjectTyperesharers); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -543,8 +633,8 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setaccess(AIndex : Integer; AValue : TAcl); virtual;
- Procedure Setactor(AIndex : Integer; AValue : TActivityTypeactor); virtual;
+ Procedure Setaccess(AIndex : Integer; const AValue : TAcl); virtual;
+ Procedure Setactor(AIndex : Integer; const AValue : TActivityTypeactor); virtual;
Procedure Setaddress(AIndex : Integer; const AValue : String); virtual;
Procedure Setannotation(AIndex : Integer; const AValue : String); virtual;
Procedure SetcrosspostSource(AIndex : Integer; const AValue : String); virtual;
@@ -552,15 +642,15 @@ type
Procedure Setgeocode(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocation(AIndex : Integer; AValue : TPlace); virtual;
- Procedure Set_object(AIndex : Integer; AValue : TActivityTypeobject); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TPlace); virtual;
+ Procedure Set_object(AIndex : Integer; const AValue : TActivityTypeobject); virtual;
Procedure SetplaceId(AIndex : Integer; const AValue : String); virtual;
Procedure SetplaceName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprovider(AIndex : Integer; AValue : TActivityTypeprovider); virtual;
- Procedure Set_published(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setprovider(AIndex : Integer; const AValue : TActivityTypeprovider); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setradius(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Procedure Setverb(AIndex : Integer; const AValue : String); virtual;
Public
@@ -607,13 +697,13 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TActivityFeedTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TActivityFeedTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -633,6 +723,38 @@ type
TActivityFeedClass = Class of TActivityFeed;
{ --------------------------------------------------------------------
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
+ Private
+ FchannelId : String;
+ Protected
+ //Property setters
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property channelId : String Index 0 Read FchannelId Write SetchannelId;
+ end;
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+
+ { --------------------------------------------------------------------
+ TCommentTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+ TCommentTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
+ Private
+ FyoutubeActorInfo : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+ Protected
+ //Property setters
+ Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
+ Public
+ Published
+ Property youtubeActorInfo : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
+ end;
+ TCommentTypeactorTypeclientSpecificActorInfoClass = Class of TCommentTypeactorTypeclientSpecificActorInfo;
+
+ { --------------------------------------------------------------------
TCommentTypeactorTypeimage
--------------------------------------------------------------------}
@@ -649,27 +771,49 @@ type
TCommentTypeactorTypeimageClass = Class of TCommentTypeactorTypeimage;
{ --------------------------------------------------------------------
+ TCommentTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+ TCommentTypeactorTypeverification = Class(TGoogleBaseObject)
+ Private
+ FadHocVerified : String;
+ Protected
+ //Property setters
+ Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
+ end;
+ TCommentTypeactorTypeverificationClass = Class of TCommentTypeactorTypeverification;
+
+ { --------------------------------------------------------------------
TCommentTypeactor
--------------------------------------------------------------------}
TCommentTypeactor = Class(TGoogleBaseObject)
Private
+ FclientSpecificActorInfo : TCommentTypeactorTypeclientSpecificActorInfo;
FdisplayName : String;
Fid : String;
Fimage : TCommentTypeactorTypeimage;
Furl : String;
+ Fverification : TCommentTypeactorTypeverification;
Protected
//Property setters
+ Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfo); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TCommentTypeactorTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TCommentTypeactorTypeimage); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setverification(AIndex : Integer; const AValue : TCommentTypeactorTypeverification); virtual;
Public
Published
- Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
- Property id : String Index 8 Read Fid Write Setid;
- Property image : TCommentTypeactorTypeimage Index 16 Read Fimage Write Setimage;
- Property url : String Index 24 Read Furl Write Seturl;
+ Property clientSpecificActorInfo : TCommentTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property image : TCommentTypeactorTypeimage Index 24 Read Fimage Write Setimage;
+ Property url : String Index 32 Read Furl Write Seturl;
+ Property verification : TCommentTypeactorTypeverification Index 40 Read Fverification Write Setverification;
end;
TCommentTypeactorClass = Class of TCommentTypeactor;
@@ -723,7 +867,7 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property totalItems : integer Index 0 Read FtotalItems Write SettotalItems;
@@ -750,16 +894,16 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setactor(AIndex : Integer; AValue : TCommentTypeactor); virtual;
+ Procedure Setactor(AIndex : Integer; const AValue : TCommentTypeactor); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinReplyTo(AIndex : Integer; AValue : TCommentTypeinReplyToArray); virtual;
+ Procedure SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyToArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_object(AIndex : Integer; AValue : TCommentTypeobject); virtual;
- Procedure Setplusoners(AIndex : Integer; AValue : TCommentTypeplusoners); virtual;
- Procedure Set_published(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Set_object(AIndex : Integer; const AValue : TCommentTypeobject); virtual;
+ Procedure Setplusoners(AIndex : Integer; const AValue : TCommentTypeplusoners); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setverb(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -799,12 +943,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TCommentFeedTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCommentFeedTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -823,265 +967,6 @@ type
TCommentFeedClass = Class of TCommentFeed;
{ --------------------------------------------------------------------
- TItemScope
- --------------------------------------------------------------------}
-
- TItemScope = Class(TGoogleBaseObject)
- Private
- Fabout : TItemScope;
- FadditionalName : TStringArray;
- Faddress : TItemScope;
- FaddressCountry : String;
- FaddressLocality : String;
- FaddressRegion : String;
- Fassociated_media : TItemScopeTypeassociated_mediaArray;
- FattendeeCount : integer;
- Fattendees : TItemScopeTypeattendeesArray;
- Faudio : TItemScope;
- Fauthor : TItemScopeTypeauthorArray;
- FbestRating : String;
- FbirthDate : String;
- FbyArtist : TItemScope;
- Fcaption : String;
- FcontentSize : String;
- FcontentUrl : String;
- Fcontributor : TItemScopeTypecontributorArray;
- FdateCreated : String;
- FdateModified : String;
- FdatePublished : String;
- Fdescription : String;
- Fduration : String;
- FembedUrl : String;
- FendDate : String;
- FfamilyName : String;
- Fgender : String;
- Fgeo : TItemScope;
- FgivenName : String;
- Fheight : String;
- Fid : String;
- Fimage : String;
- FinAlbum : TItemScope;
- Fkind : String;
- Flatitude : double;
- Flocation : TItemScope;
- Flongitude : double;
- Fname : String;
- FpartOfTVSeries : TItemScope;
- Fperformers : TItemScopeTypeperformersArray;
- FplayerType : String;
- FpostOfficeBoxNumber : String;
- FpostalCode : String;
- FratingValue : String;
- FreviewRating : TItemScope;
- FstartDate : String;
- FstreetAddress : String;
- Ftext : String;
- Fthumbnail : TItemScope;
- FthumbnailUrl : String;
- FtickerSymbol : String;
- F_type : String;
- Furl : String;
- Fwidth : String;
- FworstRating : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setabout(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure SetadditionalName(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setaddress(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure SetaddressCountry(AIndex : Integer; const AValue : String); virtual;
- Procedure SetaddressLocality(AIndex : Integer; const AValue : String); virtual;
- Procedure SetaddressRegion(AIndex : Integer; const AValue : String); virtual;
- Procedure Setassociated_media(AIndex : Integer; AValue : TItemScopeTypeassociated_mediaArray); virtual;
- Procedure SetattendeeCount(AIndex : Integer; AValue : integer); virtual;
- Procedure Setattendees(AIndex : Integer; AValue : TItemScopeTypeattendeesArray); virtual;
- Procedure Setaudio(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure Setauthor(AIndex : Integer; AValue : TItemScopeTypeauthorArray); virtual;
- Procedure SetbestRating(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbirthDate(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbyArtist(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure Setcaption(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontentSize(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontentUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcontributor(AIndex : Integer; AValue : TItemScopeTypecontributorArray); virtual;
- Procedure SetdateCreated(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdateModified(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdatePublished(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setduration(AIndex : Integer; const AValue : String); virtual;
- Procedure SetembedUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfamilyName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setgender(AIndex : Integer; const AValue : String); virtual;
- Procedure Setgeo(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure SetgivenName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setheight(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinAlbum(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlocation(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpartOfTVSeries(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure Setperformers(AIndex : Integer; AValue : TItemScopeTypeperformersArray); virtual;
- Procedure SetplayerType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpostOfficeBoxNumber(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpostalCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetratingValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreviewRating(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstreetAddress(AIndex : Integer; const AValue : String); virtual;
- Procedure Settext(AIndex : Integer; const AValue : String); virtual;
- Procedure Setthumbnail(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure SetthumbnailUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SettickerSymbol(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; const AValue : String); virtual;
- Procedure SetworstRating(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 about : TItemScope Index 0 Read Fabout Write Setabout;
- Property additionalName : TStringArray Index 8 Read FadditionalName Write SetadditionalName;
- Property address : TItemScope Index 16 Read Faddress Write Setaddress;
- Property addressCountry : String Index 24 Read FaddressCountry Write SetaddressCountry;
- Property addressLocality : String Index 32 Read FaddressLocality Write SetaddressLocality;
- Property addressRegion : String Index 40 Read FaddressRegion Write SetaddressRegion;
- Property associated_media : TItemScopeTypeassociated_mediaArray Index 48 Read Fassociated_media Write Setassociated_media;
- Property attendeeCount : integer Index 56 Read FattendeeCount Write SetattendeeCount;
- Property attendees : TItemScopeTypeattendeesArray Index 64 Read Fattendees Write Setattendees;
- Property audio : TItemScope Index 72 Read Faudio Write Setaudio;
- Property author : TItemScopeTypeauthorArray Index 80 Read Fauthor Write Setauthor;
- Property bestRating : String Index 88 Read FbestRating Write SetbestRating;
- Property birthDate : String Index 96 Read FbirthDate Write SetbirthDate;
- Property byArtist : TItemScope Index 104 Read FbyArtist Write SetbyArtist;
- Property caption : String Index 112 Read Fcaption Write Setcaption;
- Property contentSize : String Index 120 Read FcontentSize Write SetcontentSize;
- Property contentUrl : String Index 128 Read FcontentUrl Write SetcontentUrl;
- Property contributor : TItemScopeTypecontributorArray Index 136 Read Fcontributor Write Setcontributor;
- Property dateCreated : String Index 144 Read FdateCreated Write SetdateCreated;
- Property dateModified : String Index 152 Read FdateModified Write SetdateModified;
- Property datePublished : String Index 160 Read FdatePublished Write SetdatePublished;
- Property description : String Index 168 Read Fdescription Write Setdescription;
- Property duration : String Index 176 Read Fduration Write Setduration;
- Property embedUrl : String Index 184 Read FembedUrl Write SetembedUrl;
- Property endDate : String Index 192 Read FendDate Write SetendDate;
- Property familyName : String Index 200 Read FfamilyName Write SetfamilyName;
- Property gender : String Index 208 Read Fgender Write Setgender;
- Property geo : TItemScope Index 216 Read Fgeo Write Setgeo;
- Property givenName : String Index 224 Read FgivenName Write SetgivenName;
- Property height : String Index 232 Read Fheight Write Setheight;
- Property id : String Index 240 Read Fid Write Setid;
- Property image : String Index 248 Read Fimage Write Setimage;
- Property inAlbum : TItemScope Index 256 Read FinAlbum Write SetinAlbum;
- Property kind : String Index 264 Read Fkind Write Setkind;
- Property latitude : double Index 272 Read Flatitude Write Setlatitude;
- Property location : TItemScope Index 280 Read Flocation Write Setlocation;
- Property longitude : double Index 288 Read Flongitude Write Setlongitude;
- Property name : String Index 296 Read Fname Write Setname;
- Property partOfTVSeries : TItemScope Index 304 Read FpartOfTVSeries Write SetpartOfTVSeries;
- Property performers : TItemScopeTypeperformersArray Index 312 Read Fperformers Write Setperformers;
- Property playerType : String Index 320 Read FplayerType Write SetplayerType;
- Property postOfficeBoxNumber : String Index 328 Read FpostOfficeBoxNumber Write SetpostOfficeBoxNumber;
- Property postalCode : String Index 336 Read FpostalCode Write SetpostalCode;
- Property ratingValue : String Index 344 Read FratingValue Write SetratingValue;
- Property reviewRating : TItemScope Index 352 Read FreviewRating Write SetreviewRating;
- Property startDate : String Index 360 Read FstartDate Write SetstartDate;
- Property streetAddress : String Index 368 Read FstreetAddress Write SetstreetAddress;
- Property text : String Index 376 Read Ftext Write Settext;
- Property thumbnail : TItemScope Index 384 Read Fthumbnail Write Setthumbnail;
- Property thumbnailUrl : String Index 392 Read FthumbnailUrl Write SetthumbnailUrl;
- Property tickerSymbol : String Index 400 Read FtickerSymbol Write SettickerSymbol;
- Property _type : String Index 408 Read F_type Write Set_type;
- Property url : String Index 416 Read Furl Write Seturl;
- Property width : String Index 424 Read Fwidth Write Setwidth;
- Property worstRating : String Index 432 Read FworstRating Write SetworstRating;
- end;
- TItemScopeClass = Class of TItemScope;
-
- { --------------------------------------------------------------------
- TMoment
- --------------------------------------------------------------------}
-
- TMoment = Class(TGoogleBaseObject)
- Private
- Fid : String;
- Fkind : String;
- F_object : TItemScope;
- Fresult : TItemScope;
- FstartDate : TDatetime;
- Ftarget : TItemScope;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_object(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure Setresult(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure SetstartDate(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Settarget(AIndex : Integer; AValue : TItemScope); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property id : String Index 0 Read Fid Write Setid;
- Property kind : String Index 8 Read Fkind Write Setkind;
- Property _object : TItemScope Index 16 Read F_object Write Set_object;
- Property result : TItemScope Index 24 Read Fresult Write Setresult;
- Property startDate : TDatetime Index 32 Read FstartDate Write SetstartDate;
- Property target : TItemScope Index 40 Read Ftarget Write Settarget;
- Property _type : String Index 48 Read F_type Write Set_type;
- end;
- TMomentClass = Class of TMoment;
-
- { --------------------------------------------------------------------
- TMomentsFeed
- --------------------------------------------------------------------}
-
- TMomentsFeed = Class(TGoogleBaseObject)
- Private
- Fetag : String;
- Fitems : TMomentsFeedTypeitemsArray;
- Fkind : String;
- FnextLink : String;
- FnextPageToken : String;
- FselfLink : String;
- Ftitle : String;
- Fupdated : TDatetime;
- Protected
- //Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TMomentsFeedTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property items : TMomentsFeedTypeitemsArray Index 8 Read Fitems Write Setitems;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property nextLink : String Index 24 Read FnextLink Write SetnextLink;
- Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
- Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
- Property title : String Index 48 Read Ftitle Write Settitle;
- Property updated : TDatetime Index 56 Read Fupdated Write Setupdated;
- end;
- TMomentsFeedClass = Class of TMomentsFeed;
-
- { --------------------------------------------------------------------
TPeopleFeed
--------------------------------------------------------------------}
@@ -1097,12 +982,12 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TPeopleFeedTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPeopleFeedTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); 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;
@@ -1129,8 +1014,8 @@ type
Fmin : integer;
Protected
//Property setters
- Procedure Setmax(AIndex : Integer; AValue : integer); virtual;
- Procedure Setmin(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setmax(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmin(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property max : integer Index 0 Read Fmax Write Setmax;
@@ -1148,8 +1033,8 @@ type
FtopImageOffset : integer;
Protected
//Property setters
- Procedure SetleftImageOffset(AIndex : Integer; AValue : integer); virtual;
- Procedure SettopImageOffset(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetleftImageOffset(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettopImageOffset(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property leftImageOffset : integer Index 0 Read FleftImageOffset Write SetleftImageOffset;
@@ -1168,9 +1053,9 @@ type
Fwidth : integer;
Protected
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -1190,8 +1075,8 @@ type
Flayout : String;
Protected
//Property setters
- Procedure SetcoverInfo(AIndex : Integer; AValue : TPersonTypecoverTypecoverInfo); virtual;
- Procedure SetcoverPhoto(AIndex : Integer; AValue : TPersonTypecoverTypecoverPhoto); virtual;
+ Procedure SetcoverInfo(AIndex : Integer; const AValue : TPersonTypecoverTypecoverInfo); virtual;
+ Procedure SetcoverPhoto(AIndex : Integer; const AValue : TPersonTypecoverTypecoverPhoto); virtual;
Procedure Setlayout(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1231,7 +1116,7 @@ type
Furl : String;
Protected
//Property setters
- Procedure SetisDefault(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisDefault(AIndex : Integer; const AValue : boolean); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1294,7 +1179,7 @@ type
Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprimary(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
@@ -1322,7 +1207,7 @@ type
Fvalue : String;
Protected
//Property setters
- Procedure Setprimary(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1393,35 +1278,35 @@ type
Protected
//Property setters
Procedure SetaboutMe(AIndex : Integer; const AValue : String); virtual;
- Procedure SetageRange(AIndex : Integer; AValue : TPersonTypeageRange); virtual;
+ Procedure SetageRange(AIndex : Integer; const AValue : TPersonTypeageRange); virtual;
Procedure Setbirthday(AIndex : Integer; const AValue : String); virtual;
Procedure SetbraggingRights(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcircledByCount(AIndex : Integer; AValue : integer); virtual;
- Procedure Setcover(AIndex : Integer; AValue : TPersonTypecover); virtual;
+ Procedure SetcircledByCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setcover(AIndex : Integer; const AValue : TPersonTypecover); virtual;
Procedure SetcurrentLocation(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setdomain(AIndex : Integer; const AValue : String); virtual;
- Procedure Setemails(AIndex : Integer; AValue : TPersonTypeemailsArray); virtual;
+ Procedure Setemails(AIndex : Integer; const AValue : TPersonTypeemailsArray); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setgender(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TPersonTypeimage); virtual;
- Procedure SetisPlusUser(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TPersonTypeimage); virtual;
+ Procedure SetisPlusUser(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; AValue : TPersonTypename); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TPersonTypename); virtual;
Procedure Setnickname(AIndex : Integer; const AValue : String); virtual;
Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
Procedure Setoccupation(AIndex : Integer; const AValue : String); virtual;
- Procedure Setorganizations(AIndex : Integer; AValue : TPersonTypeorganizationsArray); virtual;
- Procedure SetplacesLived(AIndex : Integer; AValue : TPersonTypeplacesLivedArray); virtual;
- Procedure SetplusOneCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray); virtual;
+ Procedure SetplacesLived(AIndex : Integer; const AValue : TPersonTypeplacesLivedArray); virtual;
+ Procedure SetplusOneCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetrelationshipStatus(AIndex : Integer; const AValue : String); virtual;
Procedure Setskills(AIndex : Integer; const AValue : String); virtual;
Procedure Settagline(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturls(AIndex : Integer; AValue : TPersonTypeurlsArray); virtual;
- Procedure Setverified(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray); virtual;
+ Procedure Setverified(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1487,8 +1372,8 @@ type
Flongitude : double;
Protected
//Property setters
- Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
+ 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;
@@ -1509,11 +1394,11 @@ type
Fposition : TPlaceTypeposition;
Protected
//Property setters
- Procedure Setaddress(AIndex : Integer; AValue : TPlaceTypeaddress); virtual;
+ Procedure Setaddress(AIndex : Integer; const AValue : TPlaceTypeaddress); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setposition(AIndex : Integer; AValue : TPlaceTypeposition); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : TPlaceTypeposition); virtual;
Public
Published
Property address : TPlaceTypeaddress Index 0 Read Faddress Write Setaddress;
@@ -1606,39 +1491,6 @@ type
{ --------------------------------------------------------------------
- TMomentsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TMomentsResource, method Insert
-
- TMomentsInsertOptions = Record
- debug : boolean;
- end;
-
-
- //Optional query Options for TMomentsResource, method List
-
- TMomentsListOptions = Record
- maxResults : integer;
- pageToken : String;
- targetUrl : String;
- _type : String;
- end;
-
- TMomentsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Insert(collection: string; userId: string; aMoment : TMoment; AQuery : string = '') : TMoment;
- Function Insert(collection: string; userId: string; aMoment : TMoment; AQuery : TMomentsinsertOptions) : TMoment;
- Function List(collection: string; userId: string; AQuery : string = '') : TMomentsFeed;
- Function List(collection: string; userId: string; AQuery : TMomentslistOptions) : TMomentsFeed;
- Procedure Remove(id: string);
- end;
-
-
- { --------------------------------------------------------------------
TPeopleResource
--------------------------------------------------------------------}
@@ -1691,11 +1543,9 @@ type
Private
FActivitiesInstance : TActivitiesResource;
FCommentsInstance : TCommentsResource;
- FMomentsInstance : TMomentsResource;
FPeopleInstance : TPeopleResource;
Function GetActivitiesInstance : TActivitiesResource;virtual;
Function GetCommentsInstance : TCommentsResource;virtual;
- Function GetMomentsInstance : TMomentsResource;virtual;
Function GetPeopleInstance : TPeopleResource;virtual;
Public
//Override class functions with API info
@@ -1724,14 +1574,11 @@ type
Function CreateActivitiesResource : TActivitiesResource;virtual;overload;
Function CreateCommentsResource(AOwner : TComponent) : TCommentsResource;virtual;overload;
Function CreateCommentsResource : TCommentsResource;virtual;overload;
- Function CreateMomentsResource(AOwner : TComponent) : TMomentsResource;virtual;overload;
- Function CreateMomentsResource : TMomentsResource;virtual;overload;
Function CreatePeopleResource(AOwner : TComponent) : TPeopleResource;virtual;overload;
Function CreatePeopleResource : TPeopleResource;virtual;overload;
//Add default on-demand instances for resources
Property ActivitiesResource : TActivitiesResource Read GetActivitiesInstance;
Property CommentsResource : TCommentsResource Read GetCommentsInstance;
- Property MomentsResource : TMomentsResource Read GetMomentsInstance;
Property PeopleResource : TPeopleResource Read GetPeopleInstance;
end;
@@ -1753,7 +1600,7 @@ end;
-Procedure TAcl.Setitems(AIndex : Integer; AValue : TAclTypeitemsArray);
+Procedure TAcl.Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1789,6 +1636,40 @@ end;
{ --------------------------------------------------------------------
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TActivityTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
+
+begin
+ If (FyoutubeActorInfo=AValue) then exit;
+ FyoutubeActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TActivityTypeactorTypeimage
--------------------------------------------------------------------}
@@ -1833,10 +1714,37 @@ end;
{ --------------------------------------------------------------------
+ TActivityTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
+
+begin
+ If (FadHocVerified=AValue) then exit;
+ FadHocVerified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TActivityTypeactor
--------------------------------------------------------------------}
+Procedure TActivityTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfo);
+
+begin
+ If (FclientSpecificActorInfo=AValue) then exit;
+ FclientSpecificActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TActivityTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
begin
@@ -1857,7 +1765,7 @@ end;
-Procedure TActivityTypeactor.Setimage(AIndex : Integer; AValue : TActivityTypeactorTypeimage);
+Procedure TActivityTypeactor.Setimage(AIndex : Integer; const AValue : TActivityTypeactorTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -1867,7 +1775,7 @@ end;
-Procedure TActivityTypeactor.Setname(AIndex : Integer; AValue : TActivityTypeactorTypename);
+Procedure TActivityTypeactor.Setname(AIndex : Integer; const AValue : TActivityTypeactorTypename);
begin
If (Fname=AValue) then exit;
@@ -1887,6 +1795,50 @@ end;
+Procedure TActivityTypeactor.Setverification(AIndex : Integer; const AValue : TActivityTypeactorTypeverification);
+
+begin
+ If (Fverification=AValue) then exit;
+ Fverification:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeobjectTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
+
+begin
+ If (FyoutubeActorInfo=AValue) then exit;
+ FyoutubeActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -1907,10 +1859,37 @@ end;
{ --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeobjectTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
+
+begin
+ If (FadHocVerified=AValue) then exit;
+ FadHocVerified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TActivityTypeobjectTypeactor
--------------------------------------------------------------------}
+Procedure TActivityTypeobjectTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo);
+
+begin
+ If (FclientSpecificActorInfo=AValue) then exit;
+ FclientSpecificActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TActivityTypeobjectTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
begin
@@ -1931,7 +1910,7 @@ end;
-Procedure TActivityTypeobjectTypeactor.Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeactorTypeimage);
+Procedure TActivityTypeobjectTypeactor.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -1951,6 +1930,16 @@ end;
+Procedure TActivityTypeobjectTypeactor.Setverification(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeverification);
+
+begin
+ If (Fverification=AValue) then exit;
+ Fverification:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -1996,7 +1985,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setheight(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -2026,7 +2015,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -2054,7 +2043,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setheight(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -2084,7 +2073,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -2112,7 +2101,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setheight(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -2142,7 +2131,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -2180,7 +2169,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage);
+Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -2227,7 +2216,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItem.Setembed(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeembed);
+Procedure TActivityTypeobjectTypeattachmentsItem.Setembed(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeembed);
begin
If (Fembed=AValue) then exit;
@@ -2237,7 +2226,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItem.SetfullImage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage);
+Procedure TActivityTypeobjectTypeattachmentsItem.SetfullImage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage);
begin
If (FfullImage=AValue) then exit;
@@ -2257,7 +2246,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItem.Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeimage);
+Procedure TActivityTypeobjectTypeattachmentsItem.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -2277,7 +2266,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItem.Setthumbnails(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray);
+Procedure TActivityTypeobjectTypeattachmentsItem.Setthumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray);
begin
If (Fthumbnails=AValue) then exit;
@@ -2327,7 +2316,7 @@ end;
-Procedure TActivityTypeobjectTypeplusoners.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeplusoners.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -2354,7 +2343,7 @@ end;
-Procedure TActivityTypeobjectTypereplies.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypereplies.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -2381,7 +2370,7 @@ end;
-Procedure TActivityTypeobjectTyperesharers.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTyperesharers.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -2398,7 +2387,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityTypeobject.Setactor(AIndex : Integer; AValue : TActivityTypeobjectTypeactor);
+Procedure TActivityTypeobject.Setactor(AIndex : Integer; const AValue : TActivityTypeobjectTypeactor);
begin
If (Factor=AValue) then exit;
@@ -2408,7 +2397,7 @@ end;
-Procedure TActivityTypeobject.Setattachments(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsArray);
+Procedure TActivityTypeobject.Setattachments(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsArray);
begin
If (Fattachments=AValue) then exit;
@@ -2458,7 +2447,7 @@ end;
-Procedure TActivityTypeobject.Setplusoners(AIndex : Integer; AValue : TActivityTypeobjectTypeplusoners);
+Procedure TActivityTypeobject.Setplusoners(AIndex : Integer; const AValue : TActivityTypeobjectTypeplusoners);
begin
If (Fplusoners=AValue) then exit;
@@ -2468,7 +2457,7 @@ end;
-Procedure TActivityTypeobject.Setreplies(AIndex : Integer; AValue : TActivityTypeobjectTypereplies);
+Procedure TActivityTypeobject.Setreplies(AIndex : Integer; const AValue : TActivityTypeobjectTypereplies);
begin
If (Freplies=AValue) then exit;
@@ -2478,7 +2467,7 @@ end;
-Procedure TActivityTypeobject.Setresharers(AIndex : Integer; AValue : TActivityTypeobjectTyperesharers);
+Procedure TActivityTypeobject.Setresharers(AIndex : Integer; const AValue : TActivityTypeobjectTyperesharers);
begin
If (Fresharers=AValue) then exit;
@@ -2535,7 +2524,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivity.Setaccess(AIndex : Integer; AValue : TAcl);
+Procedure TActivity.Setaccess(AIndex : Integer; const AValue : TAcl);
begin
If (Faccess=AValue) then exit;
@@ -2545,7 +2534,7 @@ end;
-Procedure TActivity.Setactor(AIndex : Integer; AValue : TActivityTypeactor);
+Procedure TActivity.Setactor(AIndex : Integer; const AValue : TActivityTypeactor);
begin
If (Factor=AValue) then exit;
@@ -2625,7 +2614,7 @@ end;
-Procedure TActivity.Setlocation(AIndex : Integer; AValue : TPlace);
+Procedure TActivity.Setlocation(AIndex : Integer; const AValue : TPlace);
begin
If (Flocation=AValue) then exit;
@@ -2635,7 +2624,7 @@ end;
-Procedure TActivity.Set_object(AIndex : Integer; AValue : TActivityTypeobject);
+Procedure TActivity.Set_object(AIndex : Integer; const AValue : TActivityTypeobject);
begin
If (F_object=AValue) then exit;
@@ -2665,7 +2654,7 @@ end;
-Procedure TActivity.Setprovider(AIndex : Integer; AValue : TActivityTypeprovider);
+Procedure TActivity.Setprovider(AIndex : Integer; const AValue : TActivityTypeprovider);
begin
If (Fprovider=AValue) then exit;
@@ -2675,7 +2664,7 @@ end;
-Procedure TActivity.Set_published(AIndex : Integer; AValue : TDatetime);
+Procedure TActivity.Set_published(AIndex : Integer; const AValue : TDatetime);
begin
If (F_published=AValue) then exit;
@@ -2705,7 +2694,7 @@ end;
-Procedure TActivity.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TActivity.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -2774,7 +2763,7 @@ end;
-Procedure TActivityFeed.Setitems(AIndex : Integer; AValue : TActivityFeedTypeitemsArray);
+Procedure TActivityFeed.Setitems(AIndex : Integer; const AValue : TActivityFeedTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2834,7 +2823,7 @@ end;
-Procedure TActivityFeed.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TActivityFeed.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -2860,6 +2849,40 @@ end;
{ --------------------------------------------------------------------
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCommentTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TCommentTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
+
+begin
+ If (FyoutubeActorInfo=AValue) then exit;
+ FyoutubeActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TCommentTypeactorTypeimage
--------------------------------------------------------------------}
@@ -2877,10 +2900,37 @@ end;
{ --------------------------------------------------------------------
+ TCommentTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+
+Procedure TCommentTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
+
+begin
+ If (FadHocVerified=AValue) then exit;
+ FadHocVerified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TCommentTypeactor
--------------------------------------------------------------------}
+Procedure TCommentTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfo);
+
+begin
+ If (FclientSpecificActorInfo=AValue) then exit;
+ FclientSpecificActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TCommentTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
begin
@@ -2901,7 +2951,7 @@ end;
-Procedure TCommentTypeactor.Setimage(AIndex : Integer; AValue : TCommentTypeactorTypeimage);
+Procedure TCommentTypeactor.Setimage(AIndex : Integer; const AValue : TCommentTypeactorTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -2921,6 +2971,16 @@ end;
+Procedure TCommentTypeactor.Setverification(AIndex : Integer; const AValue : TCommentTypeactorTypeverification);
+
+begin
+ If (Fverification=AValue) then exit;
+ Fverification:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -2992,7 +3052,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCommentTypeplusoners.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TCommentTypeplusoners.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -3009,7 +3069,7 @@ end;
--------------------------------------------------------------------}
-Procedure TComment.Setactor(AIndex : Integer; AValue : TCommentTypeactor);
+Procedure TComment.Setactor(AIndex : Integer; const AValue : TCommentTypeactor);
begin
If (Factor=AValue) then exit;
@@ -3039,7 +3099,7 @@ end;
-Procedure TComment.SetinReplyTo(AIndex : Integer; AValue : TCommentTypeinReplyToArray);
+Procedure TComment.SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyToArray);
begin
If (FinReplyTo=AValue) then exit;
@@ -3059,7 +3119,7 @@ end;
-Procedure TComment.Set_object(AIndex : Integer; AValue : TCommentTypeobject);
+Procedure TComment.Set_object(AIndex : Integer; const AValue : TCommentTypeobject);
begin
If (F_object=AValue) then exit;
@@ -3069,7 +3129,7 @@ end;
-Procedure TComment.Setplusoners(AIndex : Integer; AValue : TCommentTypeplusoners);
+Procedure TComment.Setplusoners(AIndex : Integer; const AValue : TCommentTypeplusoners);
begin
If (Fplusoners=AValue) then exit;
@@ -3079,7 +3139,7 @@ end;
-Procedure TComment.Set_published(AIndex : Integer; AValue : TDatetime);
+Procedure TComment.Set_published(AIndex : Integer; const AValue : TDatetime);
begin
If (F_published=AValue) then exit;
@@ -3099,7 +3159,7 @@ end;
-Procedure TComment.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TComment.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -3171,7 +3231,7 @@ end;
-Procedure TCommentFeed.Setitems(AIndex : Integer; AValue : TCommentFeedTypeitemsArray);
+Procedure TCommentFeed.Setitems(AIndex : Integer; const AValue : TCommentFeedTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3221,7 +3281,7 @@ end;
-Procedure TCommentFeed.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TCommentFeed.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -3247,781 +3307,6 @@ end;
{ --------------------------------------------------------------------
- TItemScope
- --------------------------------------------------------------------}
-
-
-Procedure TItemScope.Setabout(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (Fabout=AValue) then exit;
- Fabout:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetadditionalName(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FadditionalName=AValue) then exit;
- FadditionalName:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setaddress(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (Faddress=AValue) then exit;
- Faddress:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetaddressCountry(AIndex : Integer; const AValue : String);
-
-begin
- If (FaddressCountry=AValue) then exit;
- FaddressCountry:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetaddressLocality(AIndex : Integer; const AValue : String);
-
-begin
- If (FaddressLocality=AValue) then exit;
- FaddressLocality:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetaddressRegion(AIndex : Integer; const AValue : String);
-
-begin
- If (FaddressRegion=AValue) then exit;
- FaddressRegion:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setassociated_media(AIndex : Integer; AValue : TItemScopeTypeassociated_mediaArray);
-
-begin
- If (Fassociated_media=AValue) then exit;
- Fassociated_media:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetattendeeCount(AIndex : Integer; AValue : integer);
-
-begin
- If (FattendeeCount=AValue) then exit;
- FattendeeCount:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setattendees(AIndex : Integer; AValue : TItemScopeTypeattendeesArray);
-
-begin
- If (Fattendees=AValue) then exit;
- Fattendees:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setaudio(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (Faudio=AValue) then exit;
- Faudio:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setauthor(AIndex : Integer; AValue : TItemScopeTypeauthorArray);
-
-begin
- If (Fauthor=AValue) then exit;
- Fauthor:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetbestRating(AIndex : Integer; const AValue : String);
-
-begin
- If (FbestRating=AValue) then exit;
- FbestRating:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetbirthDate(AIndex : Integer; const AValue : String);
-
-begin
- If (FbirthDate=AValue) then exit;
- FbirthDate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetbyArtist(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (FbyArtist=AValue) then exit;
- FbyArtist:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setcaption(AIndex : Integer; const AValue : String);
-
-begin
- If (Fcaption=AValue) then exit;
- Fcaption:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetcontentSize(AIndex : Integer; const AValue : String);
-
-begin
- If (FcontentSize=AValue) then exit;
- FcontentSize:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetcontentUrl(AIndex : Integer; const AValue : String);
-
-begin
- If (FcontentUrl=AValue) then exit;
- FcontentUrl:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setcontributor(AIndex : Integer; AValue : TItemScopeTypecontributorArray);
-
-begin
- If (Fcontributor=AValue) then exit;
- Fcontributor:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetdateCreated(AIndex : Integer; const AValue : String);
-
-begin
- If (FdateCreated=AValue) then exit;
- FdateCreated:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetdateModified(AIndex : Integer; const AValue : String);
-
-begin
- If (FdateModified=AValue) then exit;
- FdateModified:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetdatePublished(AIndex : Integer; const AValue : String);
-
-begin
- If (FdatePublished=AValue) then exit;
- FdatePublished:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setdescription(AIndex : Integer; const AValue : String);
-
-begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setduration(AIndex : Integer; const AValue : String);
-
-begin
- If (Fduration=AValue) then exit;
- Fduration:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetembedUrl(AIndex : Integer; const AValue : String);
-
-begin
- If (FembedUrl=AValue) then exit;
- FembedUrl:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetendDate(AIndex : Integer; const AValue : String);
-
-begin
- If (FendDate=AValue) then exit;
- FendDate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetfamilyName(AIndex : Integer; const AValue : String);
-
-begin
- If (FfamilyName=AValue) then exit;
- FfamilyName:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setgender(AIndex : Integer; const AValue : String);
-
-begin
- If (Fgender=AValue) then exit;
- Fgender:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setgeo(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (Fgeo=AValue) then exit;
- Fgeo:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetgivenName(AIndex : Integer; const AValue : String);
-
-begin
- If (FgivenName=AValue) then exit;
- FgivenName:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setheight(AIndex : Integer; const AValue : String);
-
-begin
- If (Fheight=AValue) then exit;
- Fheight:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setid(AIndex : Integer; const AValue : String);
-
-begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setimage(AIndex : Integer; const AValue : String);
-
-begin
- If (Fimage=AValue) then exit;
- Fimage:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetinAlbum(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (FinAlbum=AValue) then exit;
- FinAlbum:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setkind(AIndex : Integer; const AValue : String);
-
-begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setlatitude(AIndex : Integer; AValue : double);
-
-begin
- If (Flatitude=AValue) then exit;
- Flatitude:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setlocation(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (Flocation=AValue) then exit;
- Flocation:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setlongitude(AIndex : Integer; AValue : double);
-
-begin
- If (Flongitude=AValue) then exit;
- Flongitude:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setname(AIndex : Integer; const AValue : String);
-
-begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetpartOfTVSeries(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (FpartOfTVSeries=AValue) then exit;
- FpartOfTVSeries:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setperformers(AIndex : Integer; AValue : TItemScopeTypeperformersArray);
-
-begin
- If (Fperformers=AValue) then exit;
- Fperformers:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetplayerType(AIndex : Integer; const AValue : String);
-
-begin
- If (FplayerType=AValue) then exit;
- FplayerType:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetpostOfficeBoxNumber(AIndex : Integer; const AValue : String);
-
-begin
- If (FpostOfficeBoxNumber=AValue) then exit;
- FpostOfficeBoxNumber:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetpostalCode(AIndex : Integer; const AValue : String);
-
-begin
- If (FpostalCode=AValue) then exit;
- FpostalCode:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetratingValue(AIndex : Integer; const AValue : String);
-
-begin
- If (FratingValue=AValue) then exit;
- FratingValue:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetreviewRating(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (FreviewRating=AValue) then exit;
- FreviewRating:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetstartDate(AIndex : Integer; const AValue : String);
-
-begin
- If (FstartDate=AValue) then exit;
- FstartDate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetstreetAddress(AIndex : Integer; const AValue : String);
-
-begin
- If (FstreetAddress=AValue) then exit;
- FstreetAddress:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Settext(AIndex : Integer; const AValue : String);
-
-begin
- If (Ftext=AValue) then exit;
- Ftext:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setthumbnail(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (Fthumbnail=AValue) then exit;
- Fthumbnail:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetthumbnailUrl(AIndex : Integer; const AValue : String);
-
-begin
- If (FthumbnailUrl=AValue) then exit;
- FthumbnailUrl:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SettickerSymbol(AIndex : Integer; const AValue : String);
-
-begin
- If (FtickerSymbol=AValue) then exit;
- FtickerSymbol:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Set_type(AIndex : Integer; const AValue : String);
-
-begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Seturl(AIndex : Integer; const AValue : String);
-
-begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.Setwidth(AIndex : Integer; const AValue : String);
-
-begin
- If (Fwidth=AValue) then exit;
- Fwidth:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TItemScope.SetworstRating(AIndex : Integer; const AValue : String);
-
-begin
- If (FworstRating=AValue) then exit;
- FworstRating:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Class Function TItemScope.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 TItemScope.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'additionalname' : SetLength(FadditionalName,ALength);
- 'associated_media' : SetLength(Fassociated_media,ALength);
- 'attendees' : SetLength(Fattendees,ALength);
- 'author' : SetLength(Fauthor,ALength);
- 'contributor' : SetLength(Fcontributor,ALength);
- 'performers' : SetLength(Fperformers,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
- TMoment
- --------------------------------------------------------------------}
-
-
-Procedure TMoment.Setid(AIndex : Integer; const AValue : String);
-
-begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMoment.Setkind(AIndex : Integer; const AValue : String);
-
-begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMoment.Set_object(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (F_object=AValue) then exit;
- F_object:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMoment.Setresult(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (Fresult=AValue) then exit;
- Fresult:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMoment.SetstartDate(AIndex : Integer; AValue : TDatetime);
-
-begin
- If (FstartDate=AValue) then exit;
- FstartDate:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMoment.Settarget(AIndex : Integer; AValue : TItemScope);
-
-begin
- If (Ftarget=AValue) then exit;
- Ftarget:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMoment.Set_type(AIndex : Integer; const AValue : String);
-
-begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Class Function TMoment.ExportPropertyName(Const AName : String) :String;
-
-begin
- Case AName of
- '_object' : Result:='object';
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
-end;
-
-
-
-
-{ --------------------------------------------------------------------
- TMomentsFeed
- --------------------------------------------------------------------}
-
-
-Procedure TMomentsFeed.Setetag(AIndex : Integer; const AValue : String);
-
-begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMomentsFeed.Setitems(AIndex : Integer; AValue : TMomentsFeedTypeitemsArray);
-
-begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMomentsFeed.Setkind(AIndex : Integer; const AValue : String);
-
-begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMomentsFeed.SetnextLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FnextLink=AValue) then exit;
- FnextLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMomentsFeed.SetnextPageToken(AIndex : Integer; const AValue : String);
-
-begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMomentsFeed.SetselfLink(AIndex : Integer; const AValue : String);
-
-begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMomentsFeed.Settitle(AIndex : Integer; const AValue : String);
-
-begin
- If (Ftitle=AValue) then exit;
- Ftitle:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TMomentsFeed.Setupdated(AIndex : Integer; AValue : TDatetime);
-
-begin
- If (Fupdated=AValue) then exit;
- Fupdated:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TMomentsFeed.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
TPeopleFeed
--------------------------------------------------------------------}
@@ -4036,7 +3321,7 @@ end;
-Procedure TPeopleFeed.Setitems(AIndex : Integer; AValue : TPeopleFeedTypeitemsArray);
+Procedure TPeopleFeed.Setitems(AIndex : Integer; const AValue : TPeopleFeedTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -4086,7 +3371,7 @@ end;
-Procedure TPeopleFeed.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TPeopleFeed.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -4116,7 +3401,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPersonTypeageRange.Setmax(AIndex : Integer; AValue : integer);
+Procedure TPersonTypeageRange.Setmax(AIndex : Integer; const AValue : integer);
begin
If (Fmax=AValue) then exit;
@@ -4126,7 +3411,7 @@ end;
-Procedure TPersonTypeageRange.Setmin(AIndex : Integer; AValue : integer);
+Procedure TPersonTypeageRange.Setmin(AIndex : Integer; const AValue : integer);
begin
If (Fmin=AValue) then exit;
@@ -4143,7 +3428,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPersonTypecoverTypecoverInfo.SetleftImageOffset(AIndex : Integer; AValue : integer);
+Procedure TPersonTypecoverTypecoverInfo.SetleftImageOffset(AIndex : Integer; const AValue : integer);
begin
If (FleftImageOffset=AValue) then exit;
@@ -4153,7 +3438,7 @@ end;
-Procedure TPersonTypecoverTypecoverInfo.SettopImageOffset(AIndex : Integer; AValue : integer);
+Procedure TPersonTypecoverTypecoverInfo.SettopImageOffset(AIndex : Integer; const AValue : integer);
begin
If (FtopImageOffset=AValue) then exit;
@@ -4170,7 +3455,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPersonTypecoverTypecoverPhoto.Setheight(AIndex : Integer; AValue : integer);
+Procedure TPersonTypecoverTypecoverPhoto.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -4190,7 +3475,7 @@ end;
-Procedure TPersonTypecoverTypecoverPhoto.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TPersonTypecoverTypecoverPhoto.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -4207,7 +3492,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPersonTypecover.SetcoverInfo(AIndex : Integer; AValue : TPersonTypecoverTypecoverInfo);
+Procedure TPersonTypecover.SetcoverInfo(AIndex : Integer; const AValue : TPersonTypecoverTypecoverInfo);
begin
If (FcoverInfo=AValue) then exit;
@@ -4217,7 +3502,7 @@ end;
-Procedure TPersonTypecover.SetcoverPhoto(AIndex : Integer; AValue : TPersonTypecoverTypecoverPhoto);
+Procedure TPersonTypecover.SetcoverPhoto(AIndex : Integer; const AValue : TPersonTypecoverTypecoverPhoto);
begin
If (FcoverPhoto=AValue) then exit;
@@ -4282,7 +3567,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPersonTypeimage.SetisDefault(AIndex : Integer; AValue : boolean);
+Procedure TPersonTypeimage.SetisDefault(AIndex : Integer; const AValue : boolean);
begin
If (FisDefault=AValue) then exit;
@@ -4426,7 +3711,7 @@ end;
-Procedure TPersonTypeorganizationsItem.Setprimary(AIndex : Integer; AValue : boolean);
+Procedure TPersonTypeorganizationsItem.Setprimary(AIndex : Integer; const AValue : boolean);
begin
If (Fprimary=AValue) then exit;
@@ -4484,7 +3769,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPersonTypeplacesLivedItem.Setprimary(AIndex : Integer; AValue : boolean);
+Procedure TPersonTypeplacesLivedItem.Setprimary(AIndex : Integer; const AValue : boolean);
begin
If (Fprimary=AValue) then exit;
@@ -4570,7 +3855,7 @@ end;
-Procedure TPerson.SetageRange(AIndex : Integer; AValue : TPersonTypeageRange);
+Procedure TPerson.SetageRange(AIndex : Integer; const AValue : TPersonTypeageRange);
begin
If (FageRange=AValue) then exit;
@@ -4600,7 +3885,7 @@ end;
-Procedure TPerson.SetcircledByCount(AIndex : Integer; AValue : integer);
+Procedure TPerson.SetcircledByCount(AIndex : Integer; const AValue : integer);
begin
If (FcircledByCount=AValue) then exit;
@@ -4610,7 +3895,7 @@ end;
-Procedure TPerson.Setcover(AIndex : Integer; AValue : TPersonTypecover);
+Procedure TPerson.Setcover(AIndex : Integer; const AValue : TPersonTypecover);
begin
If (Fcover=AValue) then exit;
@@ -4650,7 +3935,7 @@ end;
-Procedure TPerson.Setemails(AIndex : Integer; AValue : TPersonTypeemailsArray);
+Procedure TPerson.Setemails(AIndex : Integer; const AValue : TPersonTypeemailsArray);
begin
If (Femails=AValue) then exit;
@@ -4690,7 +3975,7 @@ end;
-Procedure TPerson.Setimage(AIndex : Integer; AValue : TPersonTypeimage);
+Procedure TPerson.Setimage(AIndex : Integer; const AValue : TPersonTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -4700,7 +3985,7 @@ end;
-Procedure TPerson.SetisPlusUser(AIndex : Integer; AValue : boolean);
+Procedure TPerson.SetisPlusUser(AIndex : Integer; const AValue : boolean);
begin
If (FisPlusUser=AValue) then exit;
@@ -4730,7 +4015,7 @@ end;
-Procedure TPerson.Setname(AIndex : Integer; AValue : TPersonTypename);
+Procedure TPerson.Setname(AIndex : Integer; const AValue : TPersonTypename);
begin
If (Fname=AValue) then exit;
@@ -4770,7 +4055,7 @@ end;
-Procedure TPerson.Setorganizations(AIndex : Integer; AValue : TPersonTypeorganizationsArray);
+Procedure TPerson.Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray);
begin
If (Forganizations=AValue) then exit;
@@ -4780,7 +4065,7 @@ end;
-Procedure TPerson.SetplacesLived(AIndex : Integer; AValue : TPersonTypeplacesLivedArray);
+Procedure TPerson.SetplacesLived(AIndex : Integer; const AValue : TPersonTypeplacesLivedArray);
begin
If (FplacesLived=AValue) then exit;
@@ -4790,7 +4075,7 @@ end;
-Procedure TPerson.SetplusOneCount(AIndex : Integer; AValue : integer);
+Procedure TPerson.SetplusOneCount(AIndex : Integer; const AValue : integer);
begin
If (FplusOneCount=AValue) then exit;
@@ -4840,7 +4125,7 @@ end;
-Procedure TPerson.Seturls(AIndex : Integer; AValue : TPersonTypeurlsArray);
+Procedure TPerson.Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray);
begin
If (Furls=AValue) then exit;
@@ -4850,7 +4135,7 @@ end;
-Procedure TPerson.Setverified(AIndex : Integer; AValue : boolean);
+Procedure TPerson.Setverified(AIndex : Integer; const AValue : boolean);
begin
If (Fverified=AValue) then exit;
@@ -4900,7 +4185,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlaceTypeposition.Setlatitude(AIndex : Integer; AValue : double);
+Procedure TPlaceTypeposition.Setlatitude(AIndex : Integer; const AValue : double);
begin
If (Flatitude=AValue) then exit;
@@ -4910,7 +4195,7 @@ end;
-Procedure TPlaceTypeposition.Setlongitude(AIndex : Integer; AValue : double);
+Procedure TPlaceTypeposition.Setlongitude(AIndex : Integer; const AValue : double);
begin
If (Flongitude=AValue) then exit;
@@ -4927,7 +4212,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlace.Setaddress(AIndex : Integer; AValue : TPlaceTypeaddress);
+Procedure TPlace.Setaddress(AIndex : Integer; const AValue : TPlaceTypeaddress);
begin
If (Faddress=AValue) then exit;
@@ -4967,7 +4252,7 @@ end;
-Procedure TPlace.Setposition(AIndex : Integer; AValue : TPlaceTypeposition);
+Procedure TPlace.Setposition(AIndex : Integer; const AValue : TPlaceTypeposition);
begin
If (Fposition=AValue) then exit;
@@ -5180,97 +4465,6 @@ end;
{ --------------------------------------------------------------------
- TMomentsResource
- --------------------------------------------------------------------}
-
-
-Class Function TMomentsResource.ResourceName : String;
-
-begin
- Result:='moments';
-end;
-
-Class Function TMomentsResource.DefaultAPI : TGoogleAPIClass;
-
-begin
- Result:=TplusAPI;
-end;
-
-Function TMomentsResource.Insert(collection: string; userId: string; aMoment : TMoment; AQuery : string = '') : TMoment;
-
-Const
- _HTTPMethod = 'POST';
- _Path = 'people/{userId}/moments/{collection}';
- _Methodid = 'plus.moments.insert';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['collection',collection,'userId',userId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aMoment,TMoment) as TMoment;
-end;
-
-
-Function TMomentsResource.Insert(collection: string; userId: string; aMoment : TMoment; AQuery : TMomentsinsertOptions) : TMoment;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'debug',AQuery.debug);
- Result:=Insert(collection,userId,aMoment,_Q);
-end;
-
-Function TMomentsResource.List(collection: string; userId: string; AQuery : string = '') : TMomentsFeed;
-
-Const
- _HTTPMethod = 'GET';
- _Path = 'people/{userId}/moments/{collection}';
- _Methodid = 'plus.moments.list';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['collection',collection,'userId',userId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TMomentsFeed) as TMomentsFeed;
-end;
-
-
-Function TMomentsResource.List(collection: string; userId: string; AQuery : TMomentslistOptions) : TMomentsFeed;
-
-Var
- _Q : String;
-
-begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'targetUrl',AQuery.targetUrl);
- AddToQuery(_Q,'type',AQuery._type);
- Result:=List(collection,userId,_Q);
-end;
-
-Procedure TMomentsResource.Remove(id: string);
-
-Const
- _HTTPMethod = 'DELETE';
- _Path = 'moments/{id}';
- _Methodid = 'plus.moments.remove';
-
-Var
- _P : String;
-
-begin
- _P:=SubstitutePath(_Path,['id',id]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
-end;
-
-
-
-{ --------------------------------------------------------------------
TPeopleResource
--------------------------------------------------------------------}
@@ -5406,7 +4600,7 @@ end;
Class Function TPlusAPI.APIRevision : String;
begin
- Result:='20150302';
+ Result:='20160521';
end;
Class Function TPlusAPI.APIID : String;
@@ -5424,7 +4618,7 @@ end;
Class Function TPlusAPI.APIDescription : String;
begin
- Result:='The Google+ API enables developers to build on top of the Google+ platform.';
+ Result:='Builds on top of the Google+ platform.';
end;
Class Function TPlusAPI.APIOwnerDomain : String;
@@ -5460,7 +4654,7 @@ end;
Class Function TPlusAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TPlusAPI.APIbasePath : string;
@@ -5472,7 +4666,7 @@ end;
Class Function TPlusAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/plus/v1/';
+ Result:='https://www.googleapis.com/plus/v1/';
end;
Class Function TPlusAPI.APIProtocol : string;
@@ -5498,7 +4692,7 @@ Class Function TPlusAPI.APIAuthScopes : TScopeInfoArray;
begin
SetLength(Result,4);
Result[0].Name:='https://www.googleapis.com/auth/plus.login';
- Result[0].Description:='Know your basic profile info and list of people in your circles.';
+ Result[0].Description:='Know the list of people in your circles, your age range, and language';
Result[1].Name:='https://www.googleapis.com/auth/plus.me';
Result[1].Description:='Know who you are on Google';
Result[2].Name:='https://www.googleapis.com/auth/userinfo.email';
@@ -5518,10 +4712,16 @@ Class Procedure TPlusAPI.RegisterAPIResources;
begin
TAcl.RegisterObject;
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
+ TActivityTypeactorTypeclientSpecificActorInfo.RegisterObject;
TActivityTypeactorTypeimage.RegisterObject;
TActivityTypeactorTypename.RegisterObject;
+ TActivityTypeactorTypeverification.RegisterObject;
TActivityTypeactor.RegisterObject;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfo.RegisterObject;
TActivityTypeobjectTypeactorTypeimage.RegisterObject;
+ TActivityTypeobjectTypeactorTypeverification.RegisterObject;
TActivityTypeobjectTypeactor.RegisterObject;
TActivityTypeobjectTypeattachmentsItemTypeembed.RegisterObject;
TActivityTypeobjectTypeattachmentsItemTypefullImage.RegisterObject;
@@ -5536,16 +4736,16 @@ begin
TActivityTypeprovider.RegisterObject;
TActivity.RegisterObject;
TActivityFeed.RegisterObject;
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
+ TCommentTypeactorTypeclientSpecificActorInfo.RegisterObject;
TCommentTypeactorTypeimage.RegisterObject;
+ TCommentTypeactorTypeverification.RegisterObject;
TCommentTypeactor.RegisterObject;
TCommentTypeinReplyToItem.RegisterObject;
TCommentTypeobject.RegisterObject;
TCommentTypeplusoners.RegisterObject;
TComment.RegisterObject;
TCommentFeed.RegisterObject;
- TItemScope.RegisterObject;
- TMoment.RegisterObject;
- TMomentsFeed.RegisterObject;
TPeopleFeed.RegisterObject;
TPersonTypeageRange.RegisterObject;
TPersonTypecoverTypecoverInfo.RegisterObject;
@@ -5613,30 +4813,6 @@ end;
-Function TPlusAPI.GetMomentsInstance : TMomentsResource;
-
-begin
- if (FMomentsInstance=Nil) then
- FMomentsInstance:=CreateMomentsResource;
- Result:=FMomentsInstance;
-end;
-
-Function TPlusAPI.CreateMomentsResource : TMomentsResource;
-
-begin
- Result:=CreateMomentsResource(Self);
-end;
-
-
-Function TPlusAPI.CreateMomentsResource(AOwner : TComponent) : TMomentsResource;
-
-begin
- Result:=TMomentsResource.Create(AOwner);
- Result.API:=Self.API;
-end;
-
-
-
Function TPlusAPI.GetPeopleInstance : TPeopleResource;
begin
diff --git a/packages/googleapi/src/googleplusDomains.pp b/packages/googleapi/src/googleplusdomains.pp
index ed4925a8d8..3305ddad54 100644
--- a/packages/googleapi/src/googleplusDomains.pp
+++ b/packages/googleapi/src/googleplusdomains.pp
@@ -1,19 +1,4 @@
unit googleplusDomains;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:06
{$MODE objfpc}
{$H+}
@@ -55,10 +40,16 @@ type
TPlusDomainsAclentryResourceArray = Array of TPlusDomainsAclentryResource;
TVideostreamArray = Array of TVideostream;
//Anonymous types, using auto-generated names
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
+ TActivityTypeactorTypeclientSpecificActorInfo = Class;
TActivityTypeactorTypeimage = Class;
TActivityTypeactorTypename = Class;
+ TActivityTypeactorTypeverification = Class;
TActivityTypeactor = Class;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfo = Class;
TActivityTypeobjectTypeactorTypeimage = Class;
+ TActivityTypeobjectTypeactorTypeverification = Class;
TActivityTypeobjectTypeactor = Class;
TActivityTypeobjectTypeattachmentsItemTypeembed = Class;
TActivityTypeobjectTypeattachmentsItemTypefullImage = Class;
@@ -74,7 +65,10 @@ type
TActivityTypeobject = Class;
TActivityTypeprovider = Class;
TCircleTypepeople = Class;
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
+ TCommentTypeactorTypeclientSpecificActorInfo = Class;
TCommentTypeactorTypeimage = Class;
+ TCommentTypeactorTypeverification = Class;
TCommentTypeactor = Class;
TCommentTypeinReplyToItem = Class;
TCommentTypeobject = Class;
@@ -122,8 +116,8 @@ type
Protected
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdomainRestricted(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAclTypeitemsArray); virtual;
+ Procedure SetdomainRestricted(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -139,6 +133,38 @@ type
TAclClass = Class of TAcl;
{ --------------------------------------------------------------------
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
+ Private
+ FchannelId : String;
+ Protected
+ //Property setters
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property channelId : String Index 0 Read FchannelId Write SetchannelId;
+ end;
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+
+ { --------------------------------------------------------------------
+ TActivityTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+ TActivityTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
+ Private
+ FyoutubeActorInfo : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+ Protected
+ //Property setters
+ Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
+ Public
+ Published
+ Property youtubeActorInfo : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
+ end;
+ TActivityTypeactorTypeclientSpecificActorInfoClass = Class of TActivityTypeactorTypeclientSpecificActorInfo;
+
+ { --------------------------------------------------------------------
TActivityTypeactorTypeimage
--------------------------------------------------------------------}
@@ -174,34 +200,88 @@ type
TActivityTypeactorTypenameClass = Class of TActivityTypeactorTypename;
{ --------------------------------------------------------------------
+ TActivityTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+ TActivityTypeactorTypeverification = Class(TGoogleBaseObject)
+ Private
+ FadHocVerified : String;
+ Protected
+ //Property setters
+ Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
+ end;
+ TActivityTypeactorTypeverificationClass = Class of TActivityTypeactorTypeverification;
+
+ { --------------------------------------------------------------------
TActivityTypeactor
--------------------------------------------------------------------}
TActivityTypeactor = Class(TGoogleBaseObject)
Private
+ FclientSpecificActorInfo : TActivityTypeactorTypeclientSpecificActorInfo;
FdisplayName : String;
Fid : String;
Fimage : TActivityTypeactorTypeimage;
Fname : TActivityTypeactorTypename;
Furl : String;
+ Fverification : TActivityTypeactorTypeverification;
Protected
//Property setters
+ Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfo); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TActivityTypeactorTypeimage); virtual;
- Procedure Setname(AIndex : Integer; AValue : TActivityTypeactorTypename); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeactorTypeimage); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TActivityTypeactorTypename); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setverification(AIndex : Integer; const AValue : TActivityTypeactorTypeverification); virtual;
Public
Published
- Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
- Property id : String Index 8 Read Fid Write Setid;
- Property image : TActivityTypeactorTypeimage Index 16 Read Fimage Write Setimage;
- Property name : TActivityTypeactorTypename Index 24 Read Fname Write Setname;
- Property url : String Index 32 Read Furl Write Seturl;
+ Property clientSpecificActorInfo : TActivityTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property image : TActivityTypeactorTypeimage Index 24 Read Fimage Write Setimage;
+ Property name : TActivityTypeactorTypename Index 32 Read Fname Write Setname;
+ Property url : String Index 40 Read Furl Write Seturl;
+ Property verification : TActivityTypeactorTypeverification Index 48 Read Fverification Write Setverification;
end;
TActivityTypeactorClass = Class of TActivityTypeactor;
{ --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
+ Private
+ FchannelId : String;
+ Protected
+ //Property setters
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property channelId : String Index 0 Read FchannelId Write SetchannelId;
+ end;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+
+ { --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
+ Private
+ FyoutubeActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+ Protected
+ //Property setters
+ Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
+ Public
+ Published
+ Property youtubeActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
+ end;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoClass = Class of TActivityTypeobjectTypeactorTypeclientSpecificActorInfo;
+
+ { --------------------------------------------------------------------
TActivityTypeobjectTypeactorTypeimage
--------------------------------------------------------------------}
@@ -218,27 +298,49 @@ type
TActivityTypeobjectTypeactorTypeimageClass = Class of TActivityTypeobjectTypeactorTypeimage;
{ --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+ TActivityTypeobjectTypeactorTypeverification = Class(TGoogleBaseObject)
+ Private
+ FadHocVerified : String;
+ Protected
+ //Property setters
+ Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
+ end;
+ TActivityTypeobjectTypeactorTypeverificationClass = Class of TActivityTypeobjectTypeactorTypeverification;
+
+ { --------------------------------------------------------------------
TActivityTypeobjectTypeactor
--------------------------------------------------------------------}
TActivityTypeobjectTypeactor = Class(TGoogleBaseObject)
Private
+ FclientSpecificActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo;
FdisplayName : String;
Fid : String;
Fimage : TActivityTypeobjectTypeactorTypeimage;
Furl : String;
+ Fverification : TActivityTypeobjectTypeactorTypeverification;
Protected
//Property setters
+ Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeactorTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeimage); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setverification(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeverification); virtual;
Public
Published
- Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
- Property id : String Index 8 Read Fid Write Setid;
- Property image : TActivityTypeobjectTypeactorTypeimage Index 16 Read Fimage Write Setimage;
- Property url : String Index 24 Read Furl Write Seturl;
+ Property clientSpecificActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property image : TActivityTypeobjectTypeactorTypeimage Index 24 Read Fimage Write Setimage;
+ Property url : String Index 32 Read Furl Write Seturl;
+ Property verification : TActivityTypeobjectTypeactorTypeverification Index 40 Read Fverification Write Setverification;
end;
TActivityTypeobjectTypeactorClass = Class of TActivityTypeobjectTypeactor;
@@ -275,10 +377,10 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -301,10 +403,10 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -343,10 +445,10 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -368,7 +470,7 @@ type
Protected
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -398,13 +500,13 @@ type
//Property setters
Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setembed(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeembed); virtual;
- Procedure SetfullImage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage); virtual;
+ Procedure Setembed(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeembed); virtual;
+ Procedure SetfullImage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeimage); virtual;
Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpreviewThumbnails(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray); virtual;
- Procedure Setthumbnails(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); virtual;
+ Procedure SetpreviewThumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -436,7 +538,7 @@ type
Protected
//Property setters
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
@@ -455,7 +557,7 @@ type
Protected
//Property setters
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
@@ -474,7 +576,7 @@ type
Protected
//Property setters
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
@@ -495,11 +597,11 @@ type
FresharingDisabled : boolean;
Protected
//Property setters
- Procedure SetcanComment(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcanPlusone(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcanUpdate(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisPlusOned(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetresharingDisabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcanComment(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcanPlusone(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcanUpdate(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisPlusOned(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetresharingDisabled(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property canComment : boolean Index 0 Read FcanComment Write SetcanComment;
@@ -529,16 +631,16 @@ type
Furl : String;
Protected
//Property setters
- Procedure Setactor(AIndex : Integer; AValue : TActivityTypeobjectTypeactor); virtual;
- Procedure Setattachments(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsArray); virtual;
+ Procedure Setactor(AIndex : Integer; const AValue : TActivityTypeobjectTypeactor); virtual;
+ Procedure Setattachments(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsArray); virtual;
Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
Procedure SetoriginalContent(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplusoners(AIndex : Integer; AValue : TActivityTypeobjectTypeplusoners); virtual;
- Procedure Setreplies(AIndex : Integer; AValue : TActivityTypeobjectTypereplies); virtual;
- Procedure Setresharers(AIndex : Integer; AValue : TActivityTypeobjectTyperesharers); virtual;
- Procedure SetstatusForViewer(AIndex : Integer; AValue : TActivityTypeobjectTypestatusForViewer); virtual;
+ Procedure Setplusoners(AIndex : Integer; const AValue : TActivityTypeobjectTypeplusoners); virtual;
+ Procedure Setreplies(AIndex : Integer; const AValue : TActivityTypeobjectTypereplies); virtual;
+ Procedure Setresharers(AIndex : Integer; const AValue : TActivityTypeobjectTyperesharers); virtual;
+ Procedure SetstatusForViewer(AIndex : Integer; const AValue : TActivityTypeobjectTypestatusForViewer); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -605,8 +707,8 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setaccess(AIndex : Integer; AValue : TAcl); virtual;
- Procedure Setactor(AIndex : Integer; AValue : TActivityTypeactor); virtual;
+ Procedure Setaccess(AIndex : Integer; const AValue : TAcl); virtual;
+ Procedure Setactor(AIndex : Integer; const AValue : TActivityTypeactor); virtual;
Procedure Setaddress(AIndex : Integer; const AValue : String); virtual;
Procedure Setannotation(AIndex : Integer; const AValue : String); virtual;
Procedure SetcrosspostSource(AIndex : Integer; const AValue : String); virtual;
@@ -614,15 +716,15 @@ type
Procedure Setgeocode(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocation(AIndex : Integer; AValue : TPlace); virtual;
- Procedure Set_object(AIndex : Integer; AValue : TActivityTypeobject); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TPlace); virtual;
+ Procedure Set_object(AIndex : Integer; const AValue : TActivityTypeobject); virtual;
Procedure SetplaceId(AIndex : Integer; const AValue : String); virtual;
Procedure SetplaceName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprovider(AIndex : Integer; AValue : TActivityTypeprovider); virtual;
- Procedure Set_published(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setprovider(AIndex : Integer; const AValue : TActivityTypeprovider); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setradius(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Procedure Setverb(AIndex : Integer; const AValue : String); virtual;
Public
@@ -669,13 +771,13 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TActivityFeedTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TActivityFeedTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -708,9 +810,9 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitem(AIndex : Integer; AValue : TPlusDomainsAclentryResource); virtual;
+ Procedure Setitem(AIndex : Integer; const AValue : TPlusDomainsAclentryResource); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmemberCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmemberCount(AIndex : Integer; const AValue : integer); virtual;
Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -736,10 +838,10 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TAudiencesFeedTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TAudiencesFeedTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); 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;
@@ -763,7 +865,7 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property totalItems : integer Index 0 Read FtotalItems Write SettotalItems;
@@ -790,7 +892,7 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpeople(AIndex : Integer; AValue : TCircleTypepeople); virtual;
+ Procedure Setpeople(AIndex : Integer; const AValue : TCircleTypepeople); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -821,13 +923,13 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TCircleFeedTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCircleFeedTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); 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;
@@ -846,6 +948,38 @@ type
TCircleFeedClass = Class of TCircleFeed;
{ --------------------------------------------------------------------
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
+ Private
+ FchannelId : String;
+ Protected
+ //Property setters
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property channelId : String Index 0 Read FchannelId Write SetchannelId;
+ end;
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+
+ { --------------------------------------------------------------------
+ TCommentTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+ TCommentTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
+ Private
+ FyoutubeActorInfo : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
+ Protected
+ //Property setters
+ Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
+ Public
+ Published
+ Property youtubeActorInfo : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
+ end;
+ TCommentTypeactorTypeclientSpecificActorInfoClass = Class of TCommentTypeactorTypeclientSpecificActorInfo;
+
+ { --------------------------------------------------------------------
TCommentTypeactorTypeimage
--------------------------------------------------------------------}
@@ -862,27 +996,49 @@ type
TCommentTypeactorTypeimageClass = Class of TCommentTypeactorTypeimage;
{ --------------------------------------------------------------------
+ TCommentTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+ TCommentTypeactorTypeverification = Class(TGoogleBaseObject)
+ Private
+ FadHocVerified : String;
+ Protected
+ //Property setters
+ Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
+ end;
+ TCommentTypeactorTypeverificationClass = Class of TCommentTypeactorTypeverification;
+
+ { --------------------------------------------------------------------
TCommentTypeactor
--------------------------------------------------------------------}
TCommentTypeactor = Class(TGoogleBaseObject)
Private
+ FclientSpecificActorInfo : TCommentTypeactorTypeclientSpecificActorInfo;
FdisplayName : String;
Fid : String;
Fimage : TCommentTypeactorTypeimage;
Furl : String;
+ Fverification : TCommentTypeactorTypeverification;
Protected
//Property setters
+ Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfo); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TCommentTypeactorTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TCommentTypeactorTypeimage); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setverification(AIndex : Integer; const AValue : TCommentTypeactorTypeverification); virtual;
Public
Published
- Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
- Property id : String Index 8 Read Fid Write Setid;
- Property image : TCommentTypeactorTypeimage Index 16 Read Fimage Write Setimage;
- Property url : String Index 24 Read Furl Write Seturl;
+ Property clientSpecificActorInfo : TCommentTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
+ Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property image : TCommentTypeactorTypeimage Index 24 Read Fimage Write Setimage;
+ Property url : String Index 32 Read Furl Write Seturl;
+ Property verification : TCommentTypeactorTypeverification Index 40 Read Fverification Write Setverification;
end;
TCommentTypeactorClass = Class of TCommentTypeactor;
@@ -936,7 +1092,7 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure SettotalItems(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property totalItems : integer Index 0 Read FtotalItems Write SettotalItems;
@@ -963,16 +1119,16 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setactor(AIndex : Integer; AValue : TCommentTypeactor); virtual;
+ Procedure Setactor(AIndex : Integer; const AValue : TCommentTypeactor); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinReplyTo(AIndex : Integer; AValue : TCommentTypeinReplyToArray); virtual;
+ Procedure SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyToArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_object(AIndex : Integer; AValue : TCommentTypeobject); virtual;
- Procedure Setplusoners(AIndex : Integer; AValue : TCommentTypeplusoners); virtual;
- Procedure Set_published(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Set_object(AIndex : Integer; const AValue : TCommentTypeobject); virtual;
+ Procedure Setplusoners(AIndex : Integer; const AValue : TCommentTypeplusoners); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setverb(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1012,12 +1168,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TCommentFeedTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCommentFeedTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1065,7 +1221,7 @@ type
//Property setters
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TMediaTypeauthorTypeimage); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TMediaTypeauthorTypeimage); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1085,7 +1241,7 @@ type
Ftime : TDatetime;
Protected
//Property setters
- Procedure Settime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Settime(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property time : TDatetime Index 0 Read Ftime Write Settime;
@@ -1119,24 +1275,24 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setauthor(AIndex : Integer; AValue : TMediaTypeauthor); virtual;
+ Procedure Setauthor(AIndex : Integer; const AValue : TMediaTypeauthor); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setexif(AIndex : Integer; AValue : TMediaTypeexif); virtual;
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setexif(AIndex : Integer; const AValue : TMediaTypeexif); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmediaCreatedTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetmediaCreatedTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetmediaUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_published(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetsizeBytes(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstreams(AIndex : Integer; AValue : TMediaTypestreamsArray); virtual;
+ Procedure Setstreams(AIndex : Integer; const AValue : TMediaTypestreamsArray); virtual;
Procedure Setsummary(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Procedure SetvideoDuration(AIndex : Integer; const AValue : String); virtual;
Procedure SetvideoStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1180,12 +1336,12 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TPeopleFeedTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPeopleFeedTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); 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;
@@ -1212,8 +1368,8 @@ type
FtopImageOffset : integer;
Protected
//Property setters
- Procedure SetleftImageOffset(AIndex : Integer; AValue : integer); virtual;
- Procedure SettopImageOffset(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetleftImageOffset(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettopImageOffset(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property leftImageOffset : integer Index 0 Read FleftImageOffset Write SetleftImageOffset;
@@ -1232,9 +1388,9 @@ type
Fwidth : integer;
Protected
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -1254,8 +1410,8 @@ type
Flayout : String;
Protected
//Property setters
- Procedure SetcoverInfo(AIndex : Integer; AValue : TPersonTypecoverTypecoverInfo); virtual;
- Procedure SetcoverPhoto(AIndex : Integer; AValue : TPersonTypecoverTypecoverPhoto); virtual;
+ Procedure SetcoverInfo(AIndex : Integer; const AValue : TPersonTypecoverTypecoverInfo); virtual;
+ Procedure SetcoverPhoto(AIndex : Integer; const AValue : TPersonTypecoverTypecoverPhoto); virtual;
Procedure Setlayout(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1295,7 +1451,7 @@ type
Furl : String;
Protected
//Property setters
- Procedure SetisDefault(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisDefault(AIndex : Integer; const AValue : boolean); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1358,7 +1514,7 @@ type
Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprimary(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
@@ -1386,7 +1542,7 @@ type
Fvalue : String;
Protected
//Property setters
- Procedure Setprimary(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1457,31 +1613,31 @@ type
Procedure SetaboutMe(AIndex : Integer; const AValue : String); virtual;
Procedure Setbirthday(AIndex : Integer; const AValue : String); virtual;
Procedure SetbraggingRights(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcircledByCount(AIndex : Integer; AValue : integer); virtual;
- Procedure Setcover(AIndex : Integer; AValue : TPersonTypecover); virtual;
+ Procedure SetcircledByCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setcover(AIndex : Integer; const AValue : TPersonTypecover); virtual;
Procedure SetcurrentLocation(AIndex : Integer; const AValue : String); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setdomain(AIndex : Integer; const AValue : String); virtual;
- Procedure Setemails(AIndex : Integer; AValue : TPersonTypeemailsArray); virtual;
+ Procedure Setemails(AIndex : Integer; const AValue : TPersonTypeemailsArray); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setgender(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TPersonTypeimage); virtual;
- Procedure SetisPlusUser(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TPersonTypeimage); virtual;
+ Procedure SetisPlusUser(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; AValue : TPersonTypename); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : TPersonTypename); virtual;
Procedure Setnickname(AIndex : Integer; const AValue : String); virtual;
Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
Procedure Setoccupation(AIndex : Integer; const AValue : String); virtual;
- Procedure Setorganizations(AIndex : Integer; AValue : TPersonTypeorganizationsArray); virtual;
- Procedure SetplacesLived(AIndex : Integer; AValue : TPersonTypeplacesLivedArray); virtual;
- Procedure SetplusOneCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray); virtual;
+ Procedure SetplacesLived(AIndex : Integer; const AValue : TPersonTypeplacesLivedArray); virtual;
+ Procedure SetplusOneCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetrelationshipStatus(AIndex : Integer; const AValue : String); virtual;
Procedure Setskills(AIndex : Integer; const AValue : String); virtual;
Procedure Settagline(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturls(AIndex : Integer; AValue : TPersonTypeurlsArray); virtual;
- Procedure Setverified(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray); virtual;
+ Procedure Setverified(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1545,8 +1701,8 @@ type
Flongitude : double;
Protected
//Property setters
- Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
+ 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;
@@ -1567,11 +1723,11 @@ type
Fposition : TPlaceTypeposition;
Protected
//Property setters
- Procedure Setaddress(AIndex : Integer; AValue : TPlaceTypeaddress); virtual;
+ Procedure Setaddress(AIndex : Integer; const AValue : TPlaceTypeaddress); virtual;
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setposition(AIndex : Integer; AValue : TPlaceTypeposition); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : TPlaceTypeposition); virtual;
Public
Published
Property address : TPlaceTypeaddress Index 0 Read Faddress Write Setaddress;
@@ -1618,10 +1774,10 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -1888,7 +2044,7 @@ end;
-Procedure TAcl.SetdomainRestricted(AIndex : Integer; AValue : boolean);
+Procedure TAcl.SetdomainRestricted(AIndex : Integer; const AValue : boolean);
begin
If (FdomainRestricted=AValue) then exit;
@@ -1898,7 +2054,7 @@ end;
-Procedure TAcl.Setitems(AIndex : Integer; AValue : TAclTypeitemsArray);
+Procedure TAcl.Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1934,6 +2090,40 @@ end;
{ --------------------------------------------------------------------
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TActivityTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
+
+begin
+ If (FyoutubeActorInfo=AValue) then exit;
+ FyoutubeActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TActivityTypeactorTypeimage
--------------------------------------------------------------------}
@@ -1978,10 +2168,37 @@ end;
{ --------------------------------------------------------------------
+ TActivityTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
+
+begin
+ If (FadHocVerified=AValue) then exit;
+ FadHocVerified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TActivityTypeactor
--------------------------------------------------------------------}
+Procedure TActivityTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfo);
+
+begin
+ If (FclientSpecificActorInfo=AValue) then exit;
+ FclientSpecificActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TActivityTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
begin
@@ -2002,7 +2219,7 @@ end;
-Procedure TActivityTypeactor.Setimage(AIndex : Integer; AValue : TActivityTypeactorTypeimage);
+Procedure TActivityTypeactor.Setimage(AIndex : Integer; const AValue : TActivityTypeactorTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -2012,7 +2229,7 @@ end;
-Procedure TActivityTypeactor.Setname(AIndex : Integer; AValue : TActivityTypeactorTypename);
+Procedure TActivityTypeactor.Setname(AIndex : Integer; const AValue : TActivityTypeactorTypename);
begin
If (Fname=AValue) then exit;
@@ -2032,6 +2249,50 @@ end;
+Procedure TActivityTypeactor.Setverification(AIndex : Integer; const AValue : TActivityTypeactorTypeverification);
+
+begin
+ If (Fverification=AValue) then exit;
+ Fverification:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeobjectTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
+
+begin
+ If (FyoutubeActorInfo=AValue) then exit;
+ FyoutubeActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -2052,10 +2313,37 @@ end;
{ --------------------------------------------------------------------
+ TActivityTypeobjectTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+
+Procedure TActivityTypeobjectTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
+
+begin
+ If (FadHocVerified=AValue) then exit;
+ FadHocVerified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TActivityTypeobjectTypeactor
--------------------------------------------------------------------}
+Procedure TActivityTypeobjectTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo);
+
+begin
+ If (FclientSpecificActorInfo=AValue) then exit;
+ FclientSpecificActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TActivityTypeobjectTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
begin
@@ -2076,7 +2364,7 @@ end;
-Procedure TActivityTypeobjectTypeactor.Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeactorTypeimage);
+Procedure TActivityTypeobjectTypeactor.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -2096,6 +2384,16 @@ end;
+Procedure TActivityTypeobjectTypeactor.Setverification(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeverification);
+
+begin
+ If (Fverification=AValue) then exit;
+ Fverification:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -2141,7 +2439,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setheight(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -2171,7 +2469,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -2199,7 +2497,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setheight(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -2229,7 +2527,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -2274,7 +2572,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setheight(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -2304,7 +2602,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -2342,7 +2640,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage);
+Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -2389,7 +2687,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItem.Setembed(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeembed);
+Procedure TActivityTypeobjectTypeattachmentsItem.Setembed(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeembed);
begin
If (Fembed=AValue) then exit;
@@ -2399,7 +2697,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItem.SetfullImage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage);
+Procedure TActivityTypeobjectTypeattachmentsItem.SetfullImage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage);
begin
If (FfullImage=AValue) then exit;
@@ -2419,7 +2717,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItem.Setimage(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypeimage);
+Procedure TActivityTypeobjectTypeattachmentsItem.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -2439,7 +2737,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItem.SetpreviewThumbnails(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray);
+Procedure TActivityTypeobjectTypeattachmentsItem.SetpreviewThumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray);
begin
If (FpreviewThumbnails=AValue) then exit;
@@ -2449,7 +2747,7 @@ end;
-Procedure TActivityTypeobjectTypeattachmentsItem.Setthumbnails(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray);
+Procedure TActivityTypeobjectTypeattachmentsItem.Setthumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray);
begin
If (Fthumbnails=AValue) then exit;
@@ -2500,7 +2798,7 @@ end;
-Procedure TActivityTypeobjectTypeplusoners.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypeplusoners.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -2527,7 +2825,7 @@ end;
-Procedure TActivityTypeobjectTypereplies.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTypereplies.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -2554,7 +2852,7 @@ end;
-Procedure TActivityTypeobjectTyperesharers.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TActivityTypeobjectTyperesharers.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -2571,7 +2869,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityTypeobjectTypestatusForViewer.SetcanComment(AIndex : Integer; AValue : boolean);
+Procedure TActivityTypeobjectTypestatusForViewer.SetcanComment(AIndex : Integer; const AValue : boolean);
begin
If (FcanComment=AValue) then exit;
@@ -2581,7 +2879,7 @@ end;
-Procedure TActivityTypeobjectTypestatusForViewer.SetcanPlusone(AIndex : Integer; AValue : boolean);
+Procedure TActivityTypeobjectTypestatusForViewer.SetcanPlusone(AIndex : Integer; const AValue : boolean);
begin
If (FcanPlusone=AValue) then exit;
@@ -2591,7 +2889,7 @@ end;
-Procedure TActivityTypeobjectTypestatusForViewer.SetcanUpdate(AIndex : Integer; AValue : boolean);
+Procedure TActivityTypeobjectTypestatusForViewer.SetcanUpdate(AIndex : Integer; const AValue : boolean);
begin
If (FcanUpdate=AValue) then exit;
@@ -2601,7 +2899,7 @@ end;
-Procedure TActivityTypeobjectTypestatusForViewer.SetisPlusOned(AIndex : Integer; AValue : boolean);
+Procedure TActivityTypeobjectTypestatusForViewer.SetisPlusOned(AIndex : Integer; const AValue : boolean);
begin
If (FisPlusOned=AValue) then exit;
@@ -2611,7 +2909,7 @@ end;
-Procedure TActivityTypeobjectTypestatusForViewer.SetresharingDisabled(AIndex : Integer; AValue : boolean);
+Procedure TActivityTypeobjectTypestatusForViewer.SetresharingDisabled(AIndex : Integer; const AValue : boolean);
begin
If (FresharingDisabled=AValue) then exit;
@@ -2628,7 +2926,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityTypeobject.Setactor(AIndex : Integer; AValue : TActivityTypeobjectTypeactor);
+Procedure TActivityTypeobject.Setactor(AIndex : Integer; const AValue : TActivityTypeobjectTypeactor);
begin
If (Factor=AValue) then exit;
@@ -2638,7 +2936,7 @@ end;
-Procedure TActivityTypeobject.Setattachments(AIndex : Integer; AValue : TActivityTypeobjectTypeattachmentsArray);
+Procedure TActivityTypeobject.Setattachments(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsArray);
begin
If (Fattachments=AValue) then exit;
@@ -2688,7 +2986,7 @@ end;
-Procedure TActivityTypeobject.Setplusoners(AIndex : Integer; AValue : TActivityTypeobjectTypeplusoners);
+Procedure TActivityTypeobject.Setplusoners(AIndex : Integer; const AValue : TActivityTypeobjectTypeplusoners);
begin
If (Fplusoners=AValue) then exit;
@@ -2698,7 +2996,7 @@ end;
-Procedure TActivityTypeobject.Setreplies(AIndex : Integer; AValue : TActivityTypeobjectTypereplies);
+Procedure TActivityTypeobject.Setreplies(AIndex : Integer; const AValue : TActivityTypeobjectTypereplies);
begin
If (Freplies=AValue) then exit;
@@ -2708,7 +3006,7 @@ end;
-Procedure TActivityTypeobject.Setresharers(AIndex : Integer; AValue : TActivityTypeobjectTyperesharers);
+Procedure TActivityTypeobject.Setresharers(AIndex : Integer; const AValue : TActivityTypeobjectTyperesharers);
begin
If (Fresharers=AValue) then exit;
@@ -2718,7 +3016,7 @@ end;
-Procedure TActivityTypeobject.SetstatusForViewer(AIndex : Integer; AValue : TActivityTypeobjectTypestatusForViewer);
+Procedure TActivityTypeobject.SetstatusForViewer(AIndex : Integer; const AValue : TActivityTypeobjectTypestatusForViewer);
begin
If (FstatusForViewer=AValue) then exit;
@@ -2775,7 +3073,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivity.Setaccess(AIndex : Integer; AValue : TAcl);
+Procedure TActivity.Setaccess(AIndex : Integer; const AValue : TAcl);
begin
If (Faccess=AValue) then exit;
@@ -2785,7 +3083,7 @@ end;
-Procedure TActivity.Setactor(AIndex : Integer; AValue : TActivityTypeactor);
+Procedure TActivity.Setactor(AIndex : Integer; const AValue : TActivityTypeactor);
begin
If (Factor=AValue) then exit;
@@ -2865,7 +3163,7 @@ end;
-Procedure TActivity.Setlocation(AIndex : Integer; AValue : TPlace);
+Procedure TActivity.Setlocation(AIndex : Integer; const AValue : TPlace);
begin
If (Flocation=AValue) then exit;
@@ -2875,7 +3173,7 @@ end;
-Procedure TActivity.Set_object(AIndex : Integer; AValue : TActivityTypeobject);
+Procedure TActivity.Set_object(AIndex : Integer; const AValue : TActivityTypeobject);
begin
If (F_object=AValue) then exit;
@@ -2905,7 +3203,7 @@ end;
-Procedure TActivity.Setprovider(AIndex : Integer; AValue : TActivityTypeprovider);
+Procedure TActivity.Setprovider(AIndex : Integer; const AValue : TActivityTypeprovider);
begin
If (Fprovider=AValue) then exit;
@@ -2915,7 +3213,7 @@ end;
-Procedure TActivity.Set_published(AIndex : Integer; AValue : TDatetime);
+Procedure TActivity.Set_published(AIndex : Integer; const AValue : TDatetime);
begin
If (F_published=AValue) then exit;
@@ -2945,7 +3243,7 @@ end;
-Procedure TActivity.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TActivity.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -3014,7 +3312,7 @@ end;
-Procedure TActivityFeed.Setitems(AIndex : Integer; AValue : TActivityFeedTypeitemsArray);
+Procedure TActivityFeed.Setitems(AIndex : Integer; const AValue : TActivityFeedTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3074,7 +3372,7 @@ end;
-Procedure TActivityFeed.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TActivityFeed.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -3114,7 +3412,7 @@ end;
-Procedure TAudience.Setitem(AIndex : Integer; AValue : TPlusDomainsAclentryResource);
+Procedure TAudience.Setitem(AIndex : Integer; const AValue : TPlusDomainsAclentryResource);
begin
If (Fitem=AValue) then exit;
@@ -3134,7 +3432,7 @@ end;
-Procedure TAudience.SetmemberCount(AIndex : Integer; AValue : integer);
+Procedure TAudience.SetmemberCount(AIndex : Integer; const AValue : integer);
begin
If (FmemberCount=AValue) then exit;
@@ -3171,7 +3469,7 @@ end;
-Procedure TAudiencesFeed.Setitems(AIndex : Integer; AValue : TAudiencesFeedTypeitemsArray);
+Procedure TAudiencesFeed.Setitems(AIndex : Integer; const AValue : TAudiencesFeedTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3201,7 +3499,7 @@ end;
-Procedure TAudiencesFeed.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TAudiencesFeed.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -3231,7 +3529,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCircleTypepeople.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TCircleTypepeople.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -3298,7 +3596,7 @@ end;
-Procedure TCircle.Setpeople(AIndex : Integer; AValue : TCircleTypepeople);
+Procedure TCircle.Setpeople(AIndex : Integer; const AValue : TCircleTypepeople);
begin
If (Fpeople=AValue) then exit;
@@ -3335,7 +3633,7 @@ end;
-Procedure TCircleFeed.Setitems(AIndex : Integer; AValue : TCircleFeedTypeitemsArray);
+Procedure TCircleFeed.Setitems(AIndex : Integer; const AValue : TCircleFeedTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3395,7 +3693,7 @@ end;
-Procedure TCircleFeed.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TCircleFeed.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -3421,6 +3719,40 @@ end;
{ --------------------------------------------------------------------
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCommentTypeactorTypeclientSpecificActorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TCommentTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
+
+begin
+ If (FyoutubeActorInfo=AValue) then exit;
+ FyoutubeActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TCommentTypeactorTypeimage
--------------------------------------------------------------------}
@@ -3438,10 +3770,37 @@ end;
{ --------------------------------------------------------------------
+ TCommentTypeactorTypeverification
+ --------------------------------------------------------------------}
+
+
+Procedure TCommentTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
+
+begin
+ If (FadHocVerified=AValue) then exit;
+ FadHocVerified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TCommentTypeactor
--------------------------------------------------------------------}
+Procedure TCommentTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfo);
+
+begin
+ If (FclientSpecificActorInfo=AValue) then exit;
+ FclientSpecificActorInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TCommentTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
begin
@@ -3462,7 +3821,7 @@ end;
-Procedure TCommentTypeactor.Setimage(AIndex : Integer; AValue : TCommentTypeactorTypeimage);
+Procedure TCommentTypeactor.Setimage(AIndex : Integer; const AValue : TCommentTypeactorTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -3482,6 +3841,16 @@ end;
+Procedure TCommentTypeactor.Setverification(AIndex : Integer; const AValue : TCommentTypeactorTypeverification);
+
+begin
+ If (Fverification=AValue) then exit;
+ Fverification:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -3553,7 +3922,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCommentTypeplusoners.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TCommentTypeplusoners.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -3570,7 +3939,7 @@ end;
--------------------------------------------------------------------}
-Procedure TComment.Setactor(AIndex : Integer; AValue : TCommentTypeactor);
+Procedure TComment.Setactor(AIndex : Integer; const AValue : TCommentTypeactor);
begin
If (Factor=AValue) then exit;
@@ -3600,7 +3969,7 @@ end;
-Procedure TComment.SetinReplyTo(AIndex : Integer; AValue : TCommentTypeinReplyToArray);
+Procedure TComment.SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyToArray);
begin
If (FinReplyTo=AValue) then exit;
@@ -3620,7 +3989,7 @@ end;
-Procedure TComment.Set_object(AIndex : Integer; AValue : TCommentTypeobject);
+Procedure TComment.Set_object(AIndex : Integer; const AValue : TCommentTypeobject);
begin
If (F_object=AValue) then exit;
@@ -3630,7 +3999,7 @@ end;
-Procedure TComment.Setplusoners(AIndex : Integer; AValue : TCommentTypeplusoners);
+Procedure TComment.Setplusoners(AIndex : Integer; const AValue : TCommentTypeplusoners);
begin
If (Fplusoners=AValue) then exit;
@@ -3640,7 +4009,7 @@ end;
-Procedure TComment.Set_published(AIndex : Integer; AValue : TDatetime);
+Procedure TComment.Set_published(AIndex : Integer; const AValue : TDatetime);
begin
If (F_published=AValue) then exit;
@@ -3660,7 +4029,7 @@ end;
-Procedure TComment.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TComment.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -3732,7 +4101,7 @@ end;
-Procedure TCommentFeed.Setitems(AIndex : Integer; AValue : TCommentFeedTypeitemsArray);
+Procedure TCommentFeed.Setitems(AIndex : Integer; const AValue : TCommentFeedTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3782,7 +4151,7 @@ end;
-Procedure TCommentFeed.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TCommentFeed.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -3849,7 +4218,7 @@ end;
-Procedure TMediaTypeauthor.Setimage(AIndex : Integer; AValue : TMediaTypeauthorTypeimage);
+Procedure TMediaTypeauthor.Setimage(AIndex : Integer; const AValue : TMediaTypeauthorTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -3876,7 +4245,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMediaTypeexif.Settime(AIndex : Integer; AValue : TDatetime);
+Procedure TMediaTypeexif.Settime(AIndex : Integer; const AValue : TDatetime);
begin
If (Ftime=AValue) then exit;
@@ -3893,7 +4262,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMedia.Setauthor(AIndex : Integer; AValue : TMediaTypeauthor);
+Procedure TMedia.Setauthor(AIndex : Integer; const AValue : TMediaTypeauthor);
begin
If (Fauthor=AValue) then exit;
@@ -3923,7 +4292,7 @@ end;
-Procedure TMedia.Setexif(AIndex : Integer; AValue : TMediaTypeexif);
+Procedure TMedia.Setexif(AIndex : Integer; const AValue : TMediaTypeexif);
begin
If (Fexif=AValue) then exit;
@@ -3933,7 +4302,7 @@ end;
-Procedure TMedia.Setheight(AIndex : Integer; AValue : integer);
+Procedure TMedia.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -3963,7 +4332,7 @@ end;
-Procedure TMedia.SetmediaCreatedTime(AIndex : Integer; AValue : TDatetime);
+Procedure TMedia.SetmediaCreatedTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FmediaCreatedTime=AValue) then exit;
@@ -3983,7 +4352,7 @@ end;
-Procedure TMedia.Set_published(AIndex : Integer; AValue : TDatetime);
+Procedure TMedia.Set_published(AIndex : Integer; const AValue : TDatetime);
begin
If (F_published=AValue) then exit;
@@ -4003,7 +4372,7 @@ end;
-Procedure TMedia.Setstreams(AIndex : Integer; AValue : TMediaTypestreamsArray);
+Procedure TMedia.Setstreams(AIndex : Integer; const AValue : TMediaTypestreamsArray);
begin
If (Fstreams=AValue) then exit;
@@ -4023,7 +4392,7 @@ end;
-Procedure TMedia.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TMedia.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -4063,7 +4432,7 @@ end;
-Procedure TMedia.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TMedia.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -4114,7 +4483,7 @@ end;
-Procedure TPeopleFeed.Setitems(AIndex : Integer; AValue : TPeopleFeedTypeitemsArray);
+Procedure TPeopleFeed.Setitems(AIndex : Integer; const AValue : TPeopleFeedTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -4164,7 +4533,7 @@ end;
-Procedure TPeopleFeed.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TPeopleFeed.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -4194,7 +4563,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPersonTypecoverTypecoverInfo.SetleftImageOffset(AIndex : Integer; AValue : integer);
+Procedure TPersonTypecoverTypecoverInfo.SetleftImageOffset(AIndex : Integer; const AValue : integer);
begin
If (FleftImageOffset=AValue) then exit;
@@ -4204,7 +4573,7 @@ end;
-Procedure TPersonTypecoverTypecoverInfo.SettopImageOffset(AIndex : Integer; AValue : integer);
+Procedure TPersonTypecoverTypecoverInfo.SettopImageOffset(AIndex : Integer; const AValue : integer);
begin
If (FtopImageOffset=AValue) then exit;
@@ -4221,7 +4590,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPersonTypecoverTypecoverPhoto.Setheight(AIndex : Integer; AValue : integer);
+Procedure TPersonTypecoverTypecoverPhoto.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -4241,7 +4610,7 @@ end;
-Procedure TPersonTypecoverTypecoverPhoto.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TPersonTypecoverTypecoverPhoto.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -4258,7 +4627,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPersonTypecover.SetcoverInfo(AIndex : Integer; AValue : TPersonTypecoverTypecoverInfo);
+Procedure TPersonTypecover.SetcoverInfo(AIndex : Integer; const AValue : TPersonTypecoverTypecoverInfo);
begin
If (FcoverInfo=AValue) then exit;
@@ -4268,7 +4637,7 @@ end;
-Procedure TPersonTypecover.SetcoverPhoto(AIndex : Integer; AValue : TPersonTypecoverTypecoverPhoto);
+Procedure TPersonTypecover.SetcoverPhoto(AIndex : Integer; const AValue : TPersonTypecoverTypecoverPhoto);
begin
If (FcoverPhoto=AValue) then exit;
@@ -4333,7 +4702,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPersonTypeimage.SetisDefault(AIndex : Integer; AValue : boolean);
+Procedure TPersonTypeimage.SetisDefault(AIndex : Integer; const AValue : boolean);
begin
If (FisDefault=AValue) then exit;
@@ -4477,7 +4846,7 @@ end;
-Procedure TPersonTypeorganizationsItem.Setprimary(AIndex : Integer; AValue : boolean);
+Procedure TPersonTypeorganizationsItem.Setprimary(AIndex : Integer; const AValue : boolean);
begin
If (Fprimary=AValue) then exit;
@@ -4535,7 +4904,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPersonTypeplacesLivedItem.Setprimary(AIndex : Integer; AValue : boolean);
+Procedure TPersonTypeplacesLivedItem.Setprimary(AIndex : Integer; const AValue : boolean);
begin
If (Fprimary=AValue) then exit;
@@ -4641,7 +5010,7 @@ end;
-Procedure TPerson.SetcircledByCount(AIndex : Integer; AValue : integer);
+Procedure TPerson.SetcircledByCount(AIndex : Integer; const AValue : integer);
begin
If (FcircledByCount=AValue) then exit;
@@ -4651,7 +5020,7 @@ end;
-Procedure TPerson.Setcover(AIndex : Integer; AValue : TPersonTypecover);
+Procedure TPerson.Setcover(AIndex : Integer; const AValue : TPersonTypecover);
begin
If (Fcover=AValue) then exit;
@@ -4691,7 +5060,7 @@ end;
-Procedure TPerson.Setemails(AIndex : Integer; AValue : TPersonTypeemailsArray);
+Procedure TPerson.Setemails(AIndex : Integer; const AValue : TPersonTypeemailsArray);
begin
If (Femails=AValue) then exit;
@@ -4731,7 +5100,7 @@ end;
-Procedure TPerson.Setimage(AIndex : Integer; AValue : TPersonTypeimage);
+Procedure TPerson.Setimage(AIndex : Integer; const AValue : TPersonTypeimage);
begin
If (Fimage=AValue) then exit;
@@ -4741,7 +5110,7 @@ end;
-Procedure TPerson.SetisPlusUser(AIndex : Integer; AValue : boolean);
+Procedure TPerson.SetisPlusUser(AIndex : Integer; const AValue : boolean);
begin
If (FisPlusUser=AValue) then exit;
@@ -4761,7 +5130,7 @@ end;
-Procedure TPerson.Setname(AIndex : Integer; AValue : TPersonTypename);
+Procedure TPerson.Setname(AIndex : Integer; const AValue : TPersonTypename);
begin
If (Fname=AValue) then exit;
@@ -4801,7 +5170,7 @@ end;
-Procedure TPerson.Setorganizations(AIndex : Integer; AValue : TPersonTypeorganizationsArray);
+Procedure TPerson.Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray);
begin
If (Forganizations=AValue) then exit;
@@ -4811,7 +5180,7 @@ end;
-Procedure TPerson.SetplacesLived(AIndex : Integer; AValue : TPersonTypeplacesLivedArray);
+Procedure TPerson.SetplacesLived(AIndex : Integer; const AValue : TPersonTypeplacesLivedArray);
begin
If (FplacesLived=AValue) then exit;
@@ -4821,7 +5190,7 @@ end;
-Procedure TPerson.SetplusOneCount(AIndex : Integer; AValue : integer);
+Procedure TPerson.SetplusOneCount(AIndex : Integer; const AValue : integer);
begin
If (FplusOneCount=AValue) then exit;
@@ -4871,7 +5240,7 @@ end;
-Procedure TPerson.Seturls(AIndex : Integer; AValue : TPersonTypeurlsArray);
+Procedure TPerson.Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray);
begin
If (Furls=AValue) then exit;
@@ -4881,7 +5250,7 @@ end;
-Procedure TPerson.Setverified(AIndex : Integer; AValue : boolean);
+Procedure TPerson.Setverified(AIndex : Integer; const AValue : boolean);
begin
If (Fverified=AValue) then exit;
@@ -4931,7 +5300,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlaceTypeposition.Setlatitude(AIndex : Integer; AValue : double);
+Procedure TPlaceTypeposition.Setlatitude(AIndex : Integer; const AValue : double);
begin
If (Flatitude=AValue) then exit;
@@ -4941,7 +5310,7 @@ end;
-Procedure TPlaceTypeposition.Setlongitude(AIndex : Integer; AValue : double);
+Procedure TPlaceTypeposition.Setlongitude(AIndex : Integer; const AValue : double);
begin
If (Flongitude=AValue) then exit;
@@ -4958,7 +5327,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlace.Setaddress(AIndex : Integer; AValue : TPlaceTypeaddress);
+Procedure TPlace.Setaddress(AIndex : Integer; const AValue : TPlaceTypeaddress);
begin
If (Faddress=AValue) then exit;
@@ -4998,7 +5367,7 @@ end;
-Procedure TPlace.Setposition(AIndex : Integer; AValue : TPlaceTypeposition);
+Procedure TPlace.Setposition(AIndex : Integer; const AValue : TPlaceTypeposition);
begin
If (Fposition=AValue) then exit;
@@ -5063,7 +5432,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideostream.Setheight(AIndex : Integer; AValue : integer);
+Procedure TVideostream.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -5093,7 +5462,7 @@ end;
-Procedure TVideostream.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TVideostream.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -5680,7 +6049,7 @@ end;
Class Function TPlusDomainsAPI.APIRevision : String;
begin
- Result:='20150302';
+ Result:='20160521';
end;
Class Function TPlusDomainsAPI.APIID : String;
@@ -5698,7 +6067,7 @@ end;
Class Function TPlusDomainsAPI.APIDescription : String;
begin
- Result:='The Google+ API enables developers to build on top of the Google+ platform.';
+ Result:='Builds on top of the Google+ platform for Google Apps Domains.';
end;
Class Function TPlusDomainsAPI.APIOwnerDomain : String;
@@ -5734,7 +6103,7 @@ end;
Class Function TPlusDomainsAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TPlusDomainsAPI.APIbasePath : string;
@@ -5746,7 +6115,7 @@ end;
Class Function TPlusDomainsAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/plusDomains/v1/';
+ Result:='https://www.googleapis.com/plusDomains/v1/';
end;
Class Function TPlusDomainsAPI.APIProtocol : string;
@@ -5776,7 +6145,7 @@ begin
Result[1].Name:='https://www.googleapis.com/auth/plus.circles.write';
Result[1].Description:='Manage your circles and add people and pages. People and pages you add to your circles will be notified. Others may see this information publicly. People you add to circles can use Hangouts with you.';
Result[2].Name:='https://www.googleapis.com/auth/plus.login';
- Result[2].Description:='Know your basic profile info and list of people in your circles.';
+ Result[2].Description:='Know the list of people in your circles, your age range, and language';
Result[3].Name:='https://www.googleapis.com/auth/plus.me';
Result[3].Description:='Know who you are on Google';
Result[4].Name:='https://www.googleapis.com/auth/plus.media.upload';
@@ -5804,10 +6173,16 @@ Class Procedure TPlusDomainsAPI.RegisterAPIResources;
begin
TAcl.RegisterObject;
+ TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
+ TActivityTypeactorTypeclientSpecificActorInfo.RegisterObject;
TActivityTypeactorTypeimage.RegisterObject;
TActivityTypeactorTypename.RegisterObject;
+ TActivityTypeactorTypeverification.RegisterObject;
TActivityTypeactor.RegisterObject;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
+ TActivityTypeobjectTypeactorTypeclientSpecificActorInfo.RegisterObject;
TActivityTypeobjectTypeactorTypeimage.RegisterObject;
+ TActivityTypeobjectTypeactorTypeverification.RegisterObject;
TActivityTypeobjectTypeactor.RegisterObject;
TActivityTypeobjectTypeattachmentsItemTypeembed.RegisterObject;
TActivityTypeobjectTypeattachmentsItemTypefullImage.RegisterObject;
@@ -5829,7 +6204,10 @@ begin
TCircleTypepeople.RegisterObject;
TCircle.RegisterObject;
TCircleFeed.RegisterObject;
+ TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
+ TCommentTypeactorTypeclientSpecificActorInfo.RegisterObject;
TCommentTypeactorTypeimage.RegisterObject;
+ TCommentTypeactorTypeverification.RegisterObject;
TCommentTypeactor.RegisterObject;
TCommentTypeinReplyToItem.RegisterObject;
TCommentTypeobject.RegisterObject;
diff --git a/packages/googleapi/src/googleprediction.pp b/packages/googleapi/src/googleprediction.pp
index 9515baa664..582e276f34 100644
--- a/packages/googleapi/src/googleprediction.pp
+++ b/packages/googleapi/src/googleprediction.pp
@@ -1,19 +1,4 @@
unit googleprediction;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:06
{$MODE objfpc}
{$H+}
@@ -96,7 +81,7 @@ type
Protected
//Property setters
Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalues(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesArray); virtual;
+ Procedure Setvalues(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -158,10 +143,10 @@ type
Ftext : TAnalyzeTypedataDescriptionTypefeaturesItemTypetext;
Protected
//Property setters
- Procedure Setcategorical(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical); virtual;
+ Procedure Setcategorical(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical); virtual;
Procedure Setindex(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnumeric(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric); virtual;
- Procedure Settext(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypetext); virtual;
+ Procedure Setnumeric(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric); virtual;
+ Procedure Settext(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypetext); virtual;
Public
Published
Property categorical : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical Index 0 Read Fcategorical Write Setcategorical;
@@ -222,8 +207,8 @@ type
Ftext : TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextArray;
Protected
//Property setters
- Procedure Setnumeric(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric); virtual;
- Procedure Settext(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextArray); virtual;
+ Procedure Setnumeric(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric); virtual;
+ Procedure Settext(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -245,8 +230,8 @@ type
FoutputFeature : TAnalyzeTypedataDescriptionTypeoutputFeature;
Protected
//Property setters
- Procedure Setfeatures(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesArray); virtual;
- Procedure SetoutputFeature(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypeoutputFeature); virtual;
+ Procedure Setfeatures(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypefeaturesArray); virtual;
+ Procedure SetoutputFeature(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypeoutputFeature); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -311,9 +296,9 @@ type
Fmodelinfo : TInsert2;
Protected
//Property setters
- Procedure SetconfusionMatrix(AIndex : Integer; AValue : TAnalyzeTypemodelDescriptionTypeconfusionMatrix); virtual;
- Procedure SetconfusionMatrixRowTotals(AIndex : Integer; AValue : TAnalyzeTypemodelDescriptionTypeconfusionMatrixRowTotals); virtual;
- Procedure Setmodelinfo(AIndex : Integer; AValue : TInsert2); virtual;
+ Procedure SetconfusionMatrix(AIndex : Integer; const AValue : TAnalyzeTypemodelDescriptionTypeconfusionMatrix); virtual;
+ Procedure SetconfusionMatrixRowTotals(AIndex : Integer; const AValue : TAnalyzeTypemodelDescriptionTypeconfusionMatrixRowTotals); virtual;
+ Procedure Setmodelinfo(AIndex : Integer; const AValue : TInsert2); virtual;
Public
Published
Property confusionMatrix : TAnalyzeTypemodelDescriptionTypeconfusionMatrix Index 0 Read FconfusionMatrix Write SetconfusionMatrix;
@@ -336,11 +321,11 @@ type
FselfLink : String;
Protected
//Property setters
- Procedure SetdataDescription(AIndex : Integer; AValue : TAnalyzeTypedataDescription); virtual;
- Procedure Seterrors(AIndex : Integer; AValue : TAnalyzeTypeerrorsArray); virtual;
+ Procedure SetdataDescription(AIndex : Integer; const AValue : TAnalyzeTypedataDescription); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TAnalyzeTypeerrorsArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmodelDescription(AIndex : Integer; AValue : TAnalyzeTypemodelDescription); virtual;
+ Procedure SetmodelDescription(AIndex : Integer; const AValue : TAnalyzeTypemodelDescription); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -366,7 +351,7 @@ type
FcsvInstance : TTJSONSchemaArray;
Protected
//Property setters
- Procedure SetcsvInstance(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
+ Procedure SetcsvInstance(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -386,7 +371,7 @@ type
Finput : TInputTypeinput;
Protected
//Property setters
- Procedure Setinput(AIndex : Integer; AValue : TInputTypeinput); virtual;
+ Procedure Setinput(AIndex : Integer; const AValue : TInputTypeinput); virtual;
Public
Published
Property input : TInputTypeinput Index 0 Read Finput Write Setinput;
@@ -403,7 +388,7 @@ type
Foutput : String;
Protected
//Property setters
- Procedure SetcsvInstance(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
+ Procedure SetcsvInstance(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
Procedure Setoutput(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -452,8 +437,8 @@ type
Procedure SetstorageDataLocation(AIndex : Integer; const AValue : String); virtual;
Procedure SetstoragePMMLLocation(AIndex : Integer; const AValue : String); virtual;
Procedure SetstoragePMMLModelLocation(AIndex : Integer; const AValue : String); virtual;
- Procedure SettrainingInstances(AIndex : Integer; AValue : TInsertTypetrainingInstancesArray); virtual;
- Procedure Setutility(AIndex : Integer; AValue : TInsertTypeutilityArray); virtual;
+ Procedure SettrainingInstances(AIndex : Integer; const AValue : TInsertTypetrainingInstancesArray); virtual;
+ Procedure Setutility(AIndex : Integer; const AValue : TInsertTypeutilityArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -521,16 +506,16 @@ type
FtrainingStatus : String;
Protected
//Property setters
- Procedure Setcreated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setcreated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmodelInfo(AIndex : Integer; AValue : TInsert2TypemodelInfo); virtual;
+ Procedure SetmodelInfo(AIndex : Integer; const AValue : TInsert2TypemodelInfo); virtual;
Procedure SetmodelType(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetstorageDataLocation(AIndex : Integer; const AValue : String); virtual;
Procedure SetstoragePMMLLocation(AIndex : Integer; const AValue : String); virtual;
Procedure SetstoragePMMLModelLocation(AIndex : Integer; const AValue : String); virtual;
- Procedure SettrainingComplete(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SettrainingComplete(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SettrainingStatus(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -560,7 +545,7 @@ type
FselfLink : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -614,7 +599,7 @@ type
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetoutputLabel(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoutputMulti(AIndex : Integer; AValue : TOutputTypeoutputMultiArray); virtual;
+ Procedure SetoutputMulti(AIndex : Integer; const AValue : TOutputTypeoutputMultiArray); virtual;
Procedure SetoutputValue(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -642,7 +627,7 @@ type
Foutput : String;
Protected
//Property setters
- Procedure SetcsvInstance(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
+ Procedure SetcsvInstance(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
Procedure Setoutput(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -781,7 +766,7 @@ end;
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical.Setvalues(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesArray);
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical.Setvalues(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategoricalTypevaluesArray);
begin
If (Fvalues=AValue) then exit;
@@ -865,7 +850,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItem.Setcategorical(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical);
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItem.Setcategorical(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypecategorical);
begin
If (Fcategorical=AValue) then exit;
@@ -885,7 +870,7 @@ end;
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItem.Setnumeric(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric);
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItem.Setnumeric(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypenumeric);
begin
If (Fnumeric=AValue) then exit;
@@ -895,7 +880,7 @@ end;
-Procedure TAnalyzeTypedataDescriptionTypefeaturesItem.Settext(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypetext);
+Procedure TAnalyzeTypedataDescriptionTypefeaturesItem.Settext(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypefeaturesItemTypetext);
begin
If (Ftext=AValue) then exit;
@@ -976,7 +961,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnalyzeTypedataDescriptionTypeoutputFeature.Setnumeric(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric);
+Procedure TAnalyzeTypedataDescriptionTypeoutputFeature.Setnumeric(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypeoutputFeatureTypenumeric);
begin
If (Fnumeric=AValue) then exit;
@@ -986,7 +971,7 @@ end;
-Procedure TAnalyzeTypedataDescriptionTypeoutputFeature.Settext(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextArray);
+Procedure TAnalyzeTypedataDescriptionTypeoutputFeature.Settext(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypeoutputFeatureTypetextArray);
begin
If (Ftext=AValue) then exit;
@@ -1016,7 +1001,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnalyzeTypedataDescription.Setfeatures(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypefeaturesArray);
+Procedure TAnalyzeTypedataDescription.Setfeatures(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypefeaturesArray);
begin
If (Ffeatures=AValue) then exit;
@@ -1026,7 +1011,7 @@ end;
-Procedure TAnalyzeTypedataDescription.SetoutputFeature(AIndex : Integer; AValue : TAnalyzeTypedataDescriptionTypeoutputFeature);
+Procedure TAnalyzeTypedataDescription.SetoutputFeature(AIndex : Integer; const AValue : TAnalyzeTypedataDescriptionTypeoutputFeature);
begin
If (FoutputFeature=AValue) then exit;
@@ -1095,7 +1080,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnalyzeTypemodelDescription.SetconfusionMatrix(AIndex : Integer; AValue : TAnalyzeTypemodelDescriptionTypeconfusionMatrix);
+Procedure TAnalyzeTypemodelDescription.SetconfusionMatrix(AIndex : Integer; const AValue : TAnalyzeTypemodelDescriptionTypeconfusionMatrix);
begin
If (FconfusionMatrix=AValue) then exit;
@@ -1105,7 +1090,7 @@ end;
-Procedure TAnalyzeTypemodelDescription.SetconfusionMatrixRowTotals(AIndex : Integer; AValue : TAnalyzeTypemodelDescriptionTypeconfusionMatrixRowTotals);
+Procedure TAnalyzeTypemodelDescription.SetconfusionMatrixRowTotals(AIndex : Integer; const AValue : TAnalyzeTypemodelDescriptionTypeconfusionMatrixRowTotals);
begin
If (FconfusionMatrixRowTotals=AValue) then exit;
@@ -1115,7 +1100,7 @@ end;
-Procedure TAnalyzeTypemodelDescription.Setmodelinfo(AIndex : Integer; AValue : TInsert2);
+Procedure TAnalyzeTypemodelDescription.Setmodelinfo(AIndex : Integer; const AValue : TInsert2);
begin
If (Fmodelinfo=AValue) then exit;
@@ -1132,7 +1117,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnalyze.SetdataDescription(AIndex : Integer; AValue : TAnalyzeTypedataDescription);
+Procedure TAnalyze.SetdataDescription(AIndex : Integer; const AValue : TAnalyzeTypedataDescription);
begin
If (FdataDescription=AValue) then exit;
@@ -1142,7 +1127,7 @@ end;
-Procedure TAnalyze.Seterrors(AIndex : Integer; AValue : TAnalyzeTypeerrorsArray);
+Procedure TAnalyze.Seterrors(AIndex : Integer; const AValue : TAnalyzeTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -1172,7 +1157,7 @@ end;
-Procedure TAnalyze.SetmodelDescription(AIndex : Integer; AValue : TAnalyzeTypemodelDescription);
+Procedure TAnalyze.SetmodelDescription(AIndex : Integer; const AValue : TAnalyzeTypemodelDescription);
begin
If (FmodelDescription=AValue) then exit;
@@ -1212,7 +1197,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInputTypeinput.SetcsvInstance(AIndex : Integer; AValue : TTJSONSchemaArray);
+Procedure TInputTypeinput.SetcsvInstance(AIndex : Integer; const AValue : TTJSONSchemaArray);
begin
If (FcsvInstance=AValue) then exit;
@@ -1242,7 +1227,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInput.Setinput(AIndex : Integer; AValue : TInputTypeinput);
+Procedure TInput.Setinput(AIndex : Integer; const AValue : TInputTypeinput);
begin
If (Finput=AValue) then exit;
@@ -1259,7 +1244,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInsertTypetrainingInstancesItem.SetcsvInstance(AIndex : Integer; AValue : TTJSONSchemaArray);
+Procedure TInsertTypetrainingInstancesItem.SetcsvInstance(AIndex : Integer; const AValue : TTJSONSchemaArray);
begin
If (FcsvInstance=AValue) then exit;
@@ -1372,7 +1357,7 @@ end;
-Procedure TInsert.SettrainingInstances(AIndex : Integer; AValue : TInsertTypetrainingInstancesArray);
+Procedure TInsert.SettrainingInstances(AIndex : Integer; const AValue : TInsertTypetrainingInstancesArray);
begin
If (FtrainingInstances=AValue) then exit;
@@ -1382,7 +1367,7 @@ end;
-Procedure TInsert.Setutility(AIndex : Integer; AValue : TInsertTypeutilityArray);
+Procedure TInsert.Setutility(AIndex : Integer; const AValue : TInsertTypeutilityArray);
begin
If (Futility=AValue) then exit;
@@ -1480,7 +1465,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInsert2.Setcreated(AIndex : Integer; AValue : TDatetime);
+Procedure TInsert2.Setcreated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcreated=AValue) then exit;
@@ -1510,7 +1495,7 @@ end;
-Procedure TInsert2.SetmodelInfo(AIndex : Integer; AValue : TInsert2TypemodelInfo);
+Procedure TInsert2.SetmodelInfo(AIndex : Integer; const AValue : TInsert2TypemodelInfo);
begin
If (FmodelInfo=AValue) then exit;
@@ -1570,7 +1555,7 @@ end;
-Procedure TInsert2.SettrainingComplete(AIndex : Integer; AValue : TDatetime);
+Procedure TInsert2.SettrainingComplete(AIndex : Integer; const AValue : TDatetime);
begin
If (FtrainingComplete=AValue) then exit;
@@ -1597,7 +1582,7 @@ end;
--------------------------------------------------------------------}
-Procedure TList.Setitems(AIndex : Integer; AValue : TListTypeitemsArray);
+Procedure TList.Setitems(AIndex : Integer; const AValue : TListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1725,7 +1710,7 @@ end;
-Procedure TOutput.SetoutputMulti(AIndex : Integer; AValue : TOutputTypeoutputMultiArray);
+Procedure TOutput.SetoutputMulti(AIndex : Integer; const AValue : TOutputTypeoutputMultiArray);
begin
If (FoutputMulti=AValue) then exit;
@@ -1775,7 +1760,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUpdate.SetcsvInstance(AIndex : Integer; AValue : TTJSONSchemaArray);
+Procedure TUpdate.SetcsvInstance(AIndex : Integer; const AValue : TTJSONSchemaArray);
begin
If (FcsvInstance=AValue) then exit;
@@ -2000,7 +1985,7 @@ end;
Class Function TPredictionAPI.APIRevision : String;
begin
- Result:='20140522';
+ Result:='20160511';
end;
Class Function TPredictionAPI.APIID : String;
@@ -2036,13 +2021,13 @@ end;
Class Function TPredictionAPI.APIIcon16 : String;
begin
- Result:='http://www.google.com/images/icons/feature/predictionapi-16.png';
+ Result:='https://www.google.com/images/icons/feature/predictionapi-16.png';
end;
Class Function TPredictionAPI.APIIcon32 : String;
begin
- Result:='http://www.google.com/images/icons/feature/predictionapi-32.png';
+ Result:='https://www.google.com/images/icons/feature/predictionapi-32.png';
end;
Class Function TPredictionAPI.APIdocumentationLink : String;
@@ -2054,7 +2039,7 @@ end;
Class Function TPredictionAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TPredictionAPI.APIbasePath : string;
@@ -2066,7 +2051,7 @@ end;
Class Function TPredictionAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/prediction/v1.6/projects/';
+ Result:='https://www.googleapis.com/prediction/v1.6/projects/';
end;
Class Function TPredictionAPI.APIProtocol : string;
@@ -2090,15 +2075,17 @@ end;
Class Function TPredictionAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,4);
- Result[0].Name:='https://www.googleapis.com/auth/devstorage.full_control';
- Result[0].Description:='Manage your data and permissions in Google Cloud Storage';
- Result[1].Name:='https://www.googleapis.com/auth/devstorage.read_only';
- Result[1].Description:='View your data in Google Cloud Storage';
- Result[2].Name:='https://www.googleapis.com/auth/devstorage.read_write';
- Result[2].Description:='Manage your data in Google Cloud Storage';
- Result[3].Name:='https://www.googleapis.com/auth/prediction';
- Result[3].Description:='Manage your data in the Google Prediction API';
+ SetLength(Result,5);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+ Result[1].Name:='https://www.googleapis.com/auth/devstorage.full_control';
+ Result[1].Description:='Manage your data and permissions in Google Cloud Storage';
+ Result[2].Name:='https://www.googleapis.com/auth/devstorage.read_only';
+ Result[2].Description:='View your data in Google Cloud Storage';
+ Result[3].Name:='https://www.googleapis.com/auth/devstorage.read_write';
+ Result[3].Description:='Manage your data in Google Cloud Storage';
+ Result[4].Name:='https://www.googleapis.com/auth/prediction';
+ Result[4].Description:='Manage your data in the Google Prediction API';
end;
diff --git a/packages/googleapi/src/googleproximitybeacon.pp b/packages/googleapi/src/googleproximitybeacon.pp
new file mode 100644
index 0000000000..e663390874
--- /dev/null
+++ b/packages/googleapi/src/googleproximitybeacon.pp
@@ -0,0 +1,2506 @@
+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.
diff --git a/packages/googleapi/src/googlepubsub.pp b/packages/googleapi/src/googlepubsub.pp
index d7d8d9ad3f..53fa0a3862 100644
--- a/packages/googleapi/src/googlepubsub.pp
+++ b/packages/googleapi/src/googlepubsub.pp
@@ -1,19 +1,4 @@
unit googlepubsub;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:07
{$MODE objfpc}
{$H+}
@@ -24,202 +9,236 @@ uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
- TAcknowledgeRequest = Class;
+ TSetIamPolicyRequest = Class;
+ TPolicy = Class;
+ TBinding = Class;
+ TTestIamPermissionsRequest = Class;
+ TTestIamPermissionsResponse = Class;
+ TTopic = Class;
+ TPublishRequest = Class;
+ TPubsubMessage = Class;
+ TPublishResponse = Class;
+ TListTopicsResponse = Class;
+ TListTopicSubscriptionsResponse = Class;
TEmpty = Class;
+ TSubscription = Class;
+ TPushConfig = Class;
TListSubscriptionsResponse = Class;
- TListTopicSubscriptionsResponse = Class;
- TListTopicsResponse = Class;
TModifyAckDeadlineRequest = Class;
- TModifyPushConfigRequest = Class;
- TPublishRequest = Class;
- TPublishResponse = Class;
- TPubsubMessage = Class;
+ TAcknowledgeRequest = Class;
TPullRequest = Class;
TPullResponse = Class;
- TPushConfig = Class;
TReceivedMessage = Class;
- TSubscription = Class;
- TTopic = Class;
- TAcknowledgeRequestArray = Array of TAcknowledgeRequest;
+ TModifyPushConfigRequest = Class;
+ TSetIamPolicyRequestArray = Array of TSetIamPolicyRequest;
+ TPolicyArray = Array of TPolicy;
+ TBindingArray = Array of TBinding;
+ TTestIamPermissionsRequestArray = Array of TTestIamPermissionsRequest;
+ TTestIamPermissionsResponseArray = Array of TTestIamPermissionsResponse;
+ TTopicArray = Array of TTopic;
+ TPublishRequestArray = Array of TPublishRequest;
+ TPubsubMessageArray = Array of TPubsubMessage;
+ TPublishResponseArray = Array of TPublishResponse;
+ TListTopicsResponseArray = Array of TListTopicsResponse;
+ TListTopicSubscriptionsResponseArray = Array of TListTopicSubscriptionsResponse;
TEmptyArray = Array of TEmpty;
+ TSubscriptionArray = Array of TSubscription;
+ TPushConfigArray = Array of TPushConfig;
TListSubscriptionsResponseArray = Array of TListSubscriptionsResponse;
- TListTopicSubscriptionsResponseArray = Array of TListTopicSubscriptionsResponse;
- TListTopicsResponseArray = Array of TListTopicsResponse;
TModifyAckDeadlineRequestArray = Array of TModifyAckDeadlineRequest;
- TModifyPushConfigRequestArray = Array of TModifyPushConfigRequest;
- TPublishRequestArray = Array of TPublishRequest;
- TPublishResponseArray = Array of TPublishResponse;
- TPubsubMessageArray = Array of TPubsubMessage;
+ TAcknowledgeRequestArray = Array of TAcknowledgeRequest;
TPullRequestArray = Array of TPullRequest;
TPullResponseArray = Array of TPullResponse;
- TPushConfigArray = Array of TPushConfig;
TReceivedMessageArray = Array of TReceivedMessage;
- TSubscriptionArray = Array of TSubscription;
- TTopicArray = Array of TTopic;
+ TModifyPushConfigRequestArray = Array of TModifyPushConfigRequest;
//Anonymous types, using auto-generated names
TPubsubMessageTypeattributes = Class;
TPushConfigTypeattributes = Class;
- TListSubscriptionsResponseTypesubscriptionsArray = Array of TSubscription;
- TListTopicsResponseTypetopicsArray = Array of TTopic;
+ TPolicyTypebindingsArray = Array of TBinding;
TPublishRequestTypemessagesArray = Array of TPubsubMessage;
+ TListTopicsResponseTypetopicsArray = Array of TTopic;
+ TListSubscriptionsResponseTypesubscriptionsArray = Array of TSubscription;
TPullResponseTypereceivedMessagesArray = Array of TReceivedMessage;
{ --------------------------------------------------------------------
- TAcknowledgeRequest
+ TSetIamPolicyRequest
--------------------------------------------------------------------}
- TAcknowledgeRequest = Class(TGoogleBaseObject)
+ TSetIamPolicyRequest = Class(TGoogleBaseObject)
Private
- FackIds : TStringArray;
+ Fpolicy : TPolicy;
Protected
//Property setters
- Procedure SetackIds(AIndex : Integer; AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Setpolicy(AIndex : Integer; const AValue : TPolicy); virtual;
Public
Published
- Property ackIds : TStringArray Index 0 Read FackIds Write SetackIds;
+ Property policy : TPolicy Index 0 Read Fpolicy Write Setpolicy;
end;
- TAcknowledgeRequestClass = Class of TAcknowledgeRequest;
+ TSetIamPolicyRequestClass = Class of TSetIamPolicyRequest;
{ --------------------------------------------------------------------
- TEmpty
+ TPolicy
--------------------------------------------------------------------}
- TEmpty = Class(TGoogleBaseObject)
+ TPolicy = Class(TGoogleBaseObject)
Private
+ Fversion : integer;
+ Fbindings : TPolicyTypebindingsArray;
+ Fetag : String;
Protected
//Property setters
+ Procedure Setversion(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray); virtual;
+ Procedure Setetag(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 version : integer Index 0 Read Fversion Write Setversion;
+ Property bindings : TPolicyTypebindingsArray Index 8 Read Fbindings Write Setbindings;
+ Property etag : String Index 16 Read Fetag Write Setetag;
end;
- TEmptyClass = Class of TEmpty;
+ TPolicyClass = Class of TPolicy;
{ --------------------------------------------------------------------
- TListSubscriptionsResponse
+ TBinding
--------------------------------------------------------------------}
- TListSubscriptionsResponse = Class(TGoogleBaseObject)
+ TBinding = Class(TGoogleBaseObject)
Private
- FnextPageToken : String;
- Fsubscriptions : TListSubscriptionsResponseTypesubscriptionsArray;
+ Frole : String;
+ Fmembers : TStringArray;
Protected
//Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsubscriptions(AIndex : Integer; AValue : TListSubscriptionsResponseTypesubscriptionsArray); virtual;
+ Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmembers(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 nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property subscriptions : TListSubscriptionsResponseTypesubscriptionsArray Index 8 Read Fsubscriptions Write Setsubscriptions;
+ Property role : String Index 0 Read Frole Write Setrole;
+ Property members : TStringArray Index 8 Read Fmembers Write Setmembers;
end;
- TListSubscriptionsResponseClass = Class of TListSubscriptionsResponse;
+ TBindingClass = Class of TBinding;
{ --------------------------------------------------------------------
- TListTopicSubscriptionsResponse
+ TTestIamPermissionsRequest
--------------------------------------------------------------------}
- TListTopicSubscriptionsResponse = Class(TGoogleBaseObject)
+ TTestIamPermissionsRequest = Class(TGoogleBaseObject)
Private
- FnextPageToken : String;
- Fsubscriptions : TStringArray;
+ Fpermissions : TStringArray;
Protected
//Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsubscriptions(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setpermissions(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 nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property subscriptions : TStringArray Index 8 Read Fsubscriptions Write Setsubscriptions;
+ Property permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
end;
- TListTopicSubscriptionsResponseClass = Class of TListTopicSubscriptionsResponse;
+ TTestIamPermissionsRequestClass = Class of TTestIamPermissionsRequest;
{ --------------------------------------------------------------------
- TListTopicsResponse
+ TTestIamPermissionsResponse
--------------------------------------------------------------------}
- TListTopicsResponse = Class(TGoogleBaseObject)
+ TTestIamPermissionsResponse = Class(TGoogleBaseObject)
Private
- FnextPageToken : String;
- Ftopics : TListTopicsResponseTypetopicsArray;
+ Fpermissions : TStringArray;
Protected
//Property setters
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Settopics(AIndex : Integer; AValue : TListTopicsResponseTypetopicsArray); virtual;
+ Procedure Setpermissions(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 nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
- Property topics : TListTopicsResponseTypetopicsArray Index 8 Read Ftopics Write Settopics;
+ Property permissions : TStringArray Index 0 Read Fpermissions Write Setpermissions;
end;
- TListTopicsResponseClass = Class of TListTopicsResponse;
+ TTestIamPermissionsResponseClass = Class of TTestIamPermissionsResponse;
{ --------------------------------------------------------------------
- TModifyAckDeadlineRequest
+ TTopic
--------------------------------------------------------------------}
- TModifyAckDeadlineRequest = Class(TGoogleBaseObject)
+ TTopic = Class(TGoogleBaseObject)
Private
- FackDeadlineSeconds : integer;
- FackId : String;
+ Fname : String;
Protected
//Property setters
- Procedure SetackDeadlineSeconds(AIndex : Integer; AValue : integer); virtual;
- Procedure SetackId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property ackDeadlineSeconds : integer Index 0 Read FackDeadlineSeconds Write SetackDeadlineSeconds;
- Property ackId : String Index 8 Read FackId Write SetackId;
+ Property name : String Index 0 Read Fname Write Setname;
end;
- TModifyAckDeadlineRequestClass = Class of TModifyAckDeadlineRequest;
+ TTopicClass = Class of TTopic;
{ --------------------------------------------------------------------
- TModifyPushConfigRequest
+ TPublishRequest
--------------------------------------------------------------------}
- TModifyPushConfigRequest = Class(TGoogleBaseObject)
+ TPublishRequest = Class(TGoogleBaseObject)
Private
- FpushConfig : TPushConfig;
+ Fmessages : TPublishRequestTypemessagesArray;
Protected
//Property setters
- Procedure SetpushConfig(AIndex : Integer; AValue : TPushConfig); virtual;
+ Procedure Setmessages(AIndex : Integer; const AValue : TPublishRequestTypemessagesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
- Property pushConfig : TPushConfig Index 0 Read FpushConfig Write SetpushConfig;
+ Property messages : TPublishRequestTypemessagesArray Index 0 Read Fmessages Write Setmessages;
end;
- TModifyPushConfigRequestClass = Class of TModifyPushConfigRequest;
+ TPublishRequestClass = Class of TPublishRequest;
{ --------------------------------------------------------------------
- TPublishRequest
+ TPubsubMessageTypeattributes
--------------------------------------------------------------------}
- TPublishRequest = Class(TGoogleBaseObject)
+ TPubsubMessageTypeattributes = Class(TGoogleBaseObject)
Private
- Fmessages : TPublishRequestTypemessagesArray;
Protected
//Property setters
- Procedure Setmessages(AIndex : Integer; AValue : TPublishRequestTypemessagesArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
Public
+ Class Function AllowAdditionalProperties : Boolean; override;
Published
- Property messages : TPublishRequestTypemessagesArray Index 0 Read Fmessages Write Setmessages;
end;
- TPublishRequestClass = Class of TPublishRequest;
+ TPubsubMessageTypeattributesClass = Class of TPubsubMessageTypeattributes;
+
+ { --------------------------------------------------------------------
+ TPubsubMessage
+ --------------------------------------------------------------------}
+
+ TPubsubMessage = Class(TGoogleBaseObject)
+ Private
+ Fdata : String;
+ Fattributes : TPubsubMessageTypeattributes;
+ FmessageId : String;
+ FpublishTime : String;
+ Protected
+ //Property setters
+ Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setattributes(AIndex : Integer; const AValue : TPubsubMessageTypeattributes); virtual;
+ Procedure SetmessageId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpublishTime(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property data : String Index 0 Read Fdata Write Setdata;
+ Property attributes : TPubsubMessageTypeattributes Index 8 Read Fattributes Write Setattributes;
+ Property messageId : String Index 16 Read FmessageId Write SetmessageId;
+ Property publishTime : String Index 24 Read FpublishTime Write SetpublishTime;
+ end;
+ TPubsubMessageClass = Class of TPubsubMessage;
{ --------------------------------------------------------------------
TPublishResponse
@@ -230,7 +249,7 @@ type
FmessageIds : TStringArray;
Protected
//Property setters
- Procedure SetmessageIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetmessageIds(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -242,79 +261,88 @@ type
TPublishResponseClass = Class of TPublishResponse;
{ --------------------------------------------------------------------
- TPubsubMessageTypeattributes
+ TListTopicsResponse
--------------------------------------------------------------------}
- TPubsubMessageTypeattributes = Class(TGoogleBaseObject)
+ TListTopicsResponse = Class(TGoogleBaseObject)
Private
+ Ftopics : TListTopicsResponseTypetopicsArray;
+ FnextPageToken : String;
Protected
//Property setters
+ Procedure Settopics(AIndex : Integer; const AValue : TListTopicsResponseTypetopicsArray); 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
- Class Function AllowAdditionalProperties : Boolean; override;
Published
+ Property topics : TListTopicsResponseTypetopicsArray Index 0 Read Ftopics Write Settopics;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TPubsubMessageTypeattributesClass = Class of TPubsubMessageTypeattributes;
+ TListTopicsResponseClass = Class of TListTopicsResponse;
{ --------------------------------------------------------------------
- TPubsubMessage
+ TListTopicSubscriptionsResponse
--------------------------------------------------------------------}
- TPubsubMessage = Class(TGoogleBaseObject)
+ TListTopicSubscriptionsResponse = Class(TGoogleBaseObject)
Private
- Fattributes : TPubsubMessageTypeattributes;
- Fdata : String;
- FmessageId : String;
+ Fsubscriptions : TStringArray;
+ FnextPageToken : String;
Protected
//Property setters
- Procedure Setattributes(AIndex : Integer; AValue : TPubsubMessageTypeattributes); virtual;
- Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmessageId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsubscriptions(AIndex : Integer; const AValue : TStringArray); 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 attributes : TPubsubMessageTypeattributes Index 0 Read Fattributes Write Setattributes;
- Property data : String Index 8 Read Fdata Write Setdata;
- Property messageId : String Index 16 Read FmessageId Write SetmessageId;
+ Property subscriptions : TStringArray Index 0 Read Fsubscriptions Write Setsubscriptions;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TPubsubMessageClass = Class of TPubsubMessage;
+ TListTopicSubscriptionsResponseClass = Class of TListTopicSubscriptionsResponse;
{ --------------------------------------------------------------------
- TPullRequest
+ TEmpty
--------------------------------------------------------------------}
- TPullRequest = Class(TGoogleBaseObject)
+ TEmpty = Class(TGoogleBaseObject)
Private
- FmaxMessages : integer;
- FreturnImmediately : boolean;
Protected
//Property setters
- Procedure SetmaxMessages(AIndex : Integer; AValue : integer); virtual;
- Procedure SetreturnImmediately(AIndex : Integer; AValue : boolean); virtual;
Public
Published
- Property maxMessages : integer Index 0 Read FmaxMessages Write SetmaxMessages;
- Property returnImmediately : boolean Index 8 Read FreturnImmediately Write SetreturnImmediately;
end;
- TPullRequestClass = Class of TPullRequest;
+ TEmptyClass = Class of TEmpty;
{ --------------------------------------------------------------------
- TPullResponse
+ TSubscription
--------------------------------------------------------------------}
- TPullResponse = Class(TGoogleBaseObject)
+ TSubscription = Class(TGoogleBaseObject)
Private
- FreceivedMessages : TPullResponseTypereceivedMessagesArray;
+ Fname : String;
+ Ftopic : String;
+ FpushConfig : TPushConfig;
+ FackDeadlineSeconds : integer;
Protected
//Property setters
- Procedure SetreceivedMessages(AIndex : Integer; AValue : TPullResponseTypereceivedMessagesArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settopic(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpushConfig(AIndex : Integer; const AValue : TPushConfig); virtual;
+ Procedure SetackDeadlineSeconds(AIndex : Integer; const AValue : integer); virtual;
Public
Published
- Property receivedMessages : TPullResponseTypereceivedMessagesArray Index 0 Read FreceivedMessages Write SetreceivedMessages;
+ Property name : String Index 0 Read Fname Write Setname;
+ Property topic : String Index 8 Read Ftopic Write Settopic;
+ Property pushConfig : TPushConfig Index 16 Read FpushConfig Write SetpushConfig;
+ Property ackDeadlineSeconds : integer Index 24 Read FackDeadlineSeconds Write SetackDeadlineSeconds;
end;
- TPullResponseClass = Class of TPullResponse;
+ TSubscriptionClass = Class of TSubscription;
{ --------------------------------------------------------------------
TPushConfigTypeattributes
@@ -336,106 +364,158 @@ type
TPushConfig = Class(TGoogleBaseObject)
Private
- Fattributes : TPushConfigTypeattributes;
FpushEndpoint : String;
+ Fattributes : TPushConfigTypeattributes;
Protected
//Property setters
- Procedure Setattributes(AIndex : Integer; AValue : TPushConfigTypeattributes); virtual;
Procedure SetpushEndpoint(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setattributes(AIndex : Integer; const AValue : TPushConfigTypeattributes); virtual;
Public
Published
- Property attributes : TPushConfigTypeattributes Index 0 Read Fattributes Write Setattributes;
- Property pushEndpoint : String Index 8 Read FpushEndpoint Write SetpushEndpoint;
+ Property pushEndpoint : String Index 0 Read FpushEndpoint Write SetpushEndpoint;
+ Property attributes : TPushConfigTypeattributes Index 8 Read Fattributes Write Setattributes;
end;
TPushConfigClass = Class of TPushConfig;
{ --------------------------------------------------------------------
- TReceivedMessage
+ TListSubscriptionsResponse
--------------------------------------------------------------------}
- TReceivedMessage = Class(TGoogleBaseObject)
+ TListSubscriptionsResponse = Class(TGoogleBaseObject)
Private
- FackId : String;
- Fmessage : TPubsubMessage;
+ Fsubscriptions : TListSubscriptionsResponseTypesubscriptionsArray;
+ FnextPageToken : String;
Protected
//Property setters
- Procedure SetackId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmessage(AIndex : Integer; AValue : TPubsubMessage); virtual;
+ Procedure Setsubscriptions(AIndex : Integer; const AValue : TListSubscriptionsResponseTypesubscriptionsArray); 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 ackId : String Index 0 Read FackId Write SetackId;
- Property message : TPubsubMessage Index 8 Read Fmessage Write Setmessage;
+ Property subscriptions : TListSubscriptionsResponseTypesubscriptionsArray Index 0 Read Fsubscriptions Write Setsubscriptions;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
- TReceivedMessageClass = Class of TReceivedMessage;
+ TListSubscriptionsResponseClass = Class of TListSubscriptionsResponse;
{ --------------------------------------------------------------------
- TSubscription
+ TModifyAckDeadlineRequest
--------------------------------------------------------------------}
- TSubscription = Class(TGoogleBaseObject)
+ TModifyAckDeadlineRequest = Class(TGoogleBaseObject)
Private
+ FackIds : TStringArray;
FackDeadlineSeconds : integer;
- Fname : String;
- FpushConfig : TPushConfig;
- Ftopic : String;
Protected
//Property setters
- Procedure SetackDeadlineSeconds(AIndex : Integer; AValue : integer); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpushConfig(AIndex : Integer; AValue : TPushConfig); virtual;
- Procedure Settopic(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetackIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetackDeadlineSeconds(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 ackDeadlineSeconds : integer Index 0 Read FackDeadlineSeconds Write SetackDeadlineSeconds;
- Property name : String Index 8 Read Fname Write Setname;
- Property pushConfig : TPushConfig Index 16 Read FpushConfig Write SetpushConfig;
- Property topic : String Index 24 Read Ftopic Write Settopic;
+ Property ackIds : TStringArray Index 0 Read FackIds Write SetackIds;
+ Property ackDeadlineSeconds : integer Index 8 Read FackDeadlineSeconds Write SetackDeadlineSeconds;
end;
- TSubscriptionClass = Class of TSubscription;
+ TModifyAckDeadlineRequestClass = Class of TModifyAckDeadlineRequest;
{ --------------------------------------------------------------------
- TTopic
+ TAcknowledgeRequest
--------------------------------------------------------------------}
- TTopic = Class(TGoogleBaseObject)
+ TAcknowledgeRequest = Class(TGoogleBaseObject)
Private
- Fname : String;
+ FackIds : TStringArray;
Protected
//Property setters
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetackIds(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 name : String Index 0 Read Fname Write Setname;
+ Property ackIds : TStringArray Index 0 Read FackIds Write SetackIds;
end;
- TTopicClass = Class of TTopic;
+ TAcknowledgeRequestClass = Class of TAcknowledgeRequest;
{ --------------------------------------------------------------------
- TProjectsSubscriptionsResource
+ TPullRequest
--------------------------------------------------------------------}
+ TPullRequest = Class(TGoogleBaseObject)
+ Private
+ FreturnImmediately : boolean;
+ FmaxMessages : integer;
+ Protected
+ //Property setters
+ Procedure SetreturnImmediately(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetmaxMessages(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property returnImmediately : boolean Index 0 Read FreturnImmediately Write SetreturnImmediately;
+ Property maxMessages : integer Index 8 Read FmaxMessages Write SetmaxMessages;
+ end;
+ TPullRequestClass = Class of TPullRequest;
- //Optional query Options for TProjectsSubscriptionsResource, method List
+ { --------------------------------------------------------------------
+ TPullResponse
+ --------------------------------------------------------------------}
- TProjectsSubscriptionsListOptions = Record
- pageSize : integer;
- pageToken : String;
+ TPullResponse = Class(TGoogleBaseObject)
+ Private
+ FreceivedMessages : TPullResponseTypereceivedMessagesArray;
+ Protected
+ //Property setters
+ Procedure SetreceivedMessages(AIndex : Integer; const AValue : TPullResponseTypereceivedMessagesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property receivedMessages : TPullResponseTypereceivedMessagesArray Index 0 Read FreceivedMessages Write SetreceivedMessages;
end;
+ TPullResponseClass = Class of TPullResponse;
- TProjectsSubscriptionsResource = Class(TGoogleResource)
+ { --------------------------------------------------------------------
+ TReceivedMessage
+ --------------------------------------------------------------------}
+
+ TReceivedMessage = Class(TGoogleBaseObject)
+ Private
+ FackId : String;
+ Fmessage : TPubsubMessage;
+ Protected
+ //Property setters
+ Procedure SetackId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : TPubsubMessage); virtual;
Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Acknowledge(subscription: string; aAcknowledgeRequest : TAcknowledgeRequest) : TEmpty;
- Function Create(_name: string; aSubscription : TSubscription) : TSubscription;overload;
- Function Delete(subscription: string) : TEmpty;
- Function Get(subscription: string) : TSubscription;
- Function List(project: string; AQuery : string = '') : TListSubscriptionsResponse;
- Function List(project: string; AQuery : TProjectsSubscriptionslistOptions) : TListSubscriptionsResponse;
- Function ModifyAckDeadline(subscription: string; aModifyAckDeadlineRequest : TModifyAckDeadlineRequest) : TEmpty;
- Function ModifyPushConfig(subscription: string; aModifyPushConfigRequest : TModifyPushConfigRequest) : TEmpty;
- Function Pull(subscription: string; aPullRequest : TPullRequest) : TPullResponse;
+ Published
+ Property ackId : String Index 0 Read FackId Write SetackId;
+ Property message : TPubsubMessage Index 8 Read Fmessage Write Setmessage;
end;
+ TReceivedMessageClass = Class of TReceivedMessage;
+
+ { --------------------------------------------------------------------
+ TModifyPushConfigRequest
+ --------------------------------------------------------------------}
+ TModifyPushConfigRequest = Class(TGoogleBaseObject)
+ Private
+ FpushConfig : TPushConfig;
+ Protected
+ //Property setters
+ Procedure SetpushConfig(AIndex : Integer; const AValue : TPushConfig); virtual;
+ Public
+ Published
+ Property pushConfig : TPushConfig Index 0 Read FpushConfig Write SetpushConfig;
+ end;
+ TModifyPushConfigRequestClass = Class of TModifyPushConfigRequest;
{ --------------------------------------------------------------------
TProjectsTopicsSubscriptionsResource
@@ -477,12 +557,15 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function SetIamPolicy(resource: string; aSetIamPolicyRequest : TSetIamPolicyRequest) : TPolicy;
+ Function GetIamPolicy(resource: string) : TPolicy;
+ Function TestIamPermissions(resource: string; aTestIamPermissionsRequest : TTestIamPermissionsRequest) : TTestIamPermissionsResponse;
Function Create(_name: string; aTopic : TTopic) : TTopic;overload;
- Function Delete(topic: string) : TEmpty;
+ Function Publish(topic: string; aPublishRequest : TPublishRequest) : TPublishResponse;
Function Get(topic: string) : TTopic;
Function List(project: string; AQuery : string = '') : TListTopicsResponse;
Function List(project: string; AQuery : TProjectsTopicslistOptions) : TListTopicsResponse;
- Function Publish(topic: string; aPublishRequest : TPublishRequest) : TPublishResponse;
+ Function Delete(topic: string) : TEmpty;
Function CreateSubscriptionsResource(AOwner : TComponent) : TProjectsTopicsSubscriptionsResource;virtual;overload;
Function CreateSubscriptionsResource : TProjectsTopicsSubscriptionsResource;virtual;overload;
Property SubscriptionsResource : TProjectsTopicsSubscriptionsResource Read GetSubscriptionsInstance;
@@ -490,29 +573,60 @@ type
{ --------------------------------------------------------------------
+ TProjectsSubscriptionsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsSubscriptionsResource, method List
+
+ TProjectsSubscriptionsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsSubscriptionsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function SetIamPolicy(resource: string; aSetIamPolicyRequest : TSetIamPolicyRequest) : TPolicy;
+ Function GetIamPolicy(resource: string) : TPolicy;
+ Function TestIamPermissions(resource: string; aTestIamPermissionsRequest : TTestIamPermissionsRequest) : TTestIamPermissionsResponse;
+ Function Create(_name: string; aSubscription : TSubscription) : TSubscription;overload;
+ Function Get(subscription: string) : TSubscription;
+ Function List(project: string; AQuery : string = '') : TListSubscriptionsResponse;
+ Function List(project: string; AQuery : TProjectsSubscriptionslistOptions) : TListSubscriptionsResponse;
+ Function Delete(subscription: string) : TEmpty;
+ Function ModifyAckDeadline(subscription: string; aModifyAckDeadlineRequest : TModifyAckDeadlineRequest) : TEmpty;
+ Function Acknowledge(subscription: string; aAcknowledgeRequest : TAcknowledgeRequest) : TEmpty;
+ Function Pull(subscription: string; aPullRequest : TPullRequest) : TPullResponse;
+ Function ModifyPushConfig(subscription: string; aModifyPushConfigRequest : TModifyPushConfigRequest) : TEmpty;
+ end;
+
+
+ { --------------------------------------------------------------------
TProjectsResource
--------------------------------------------------------------------}
TProjectsResource = Class(TGoogleResource)
Private
- FSubscriptionsInstance : TProjectsSubscriptionsResource;
FTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
FTopicsInstance : TProjectsTopicsResource;
- Function GetSubscriptionsInstance : TProjectsSubscriptionsResource;virtual;
+ FSubscriptionsInstance : TProjectsSubscriptionsResource;
Function GetTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;virtual;
Function GetTopicsInstance : TProjectsTopicsResource;virtual;
+ Function GetSubscriptionsInstance : TProjectsSubscriptionsResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function CreateSubscriptionsResource(AOwner : TComponent) : TProjectsSubscriptionsResource;virtual;overload;
- Function CreateSubscriptionsResource : TProjectsSubscriptionsResource;virtual;overload;
Function CreateTopicsSubscriptionsResource(AOwner : TComponent) : TProjectsTopicsSubscriptionsResource;virtual;overload;
Function CreateTopicsSubscriptionsResource : TProjectsTopicsSubscriptionsResource;virtual;overload;
Function CreateTopicsResource(AOwner : TComponent) : TProjectsTopicsResource;virtual;overload;
Function CreateTopicsResource : TProjectsTopicsResource;virtual;overload;
- Property SubscriptionsResource : TProjectsSubscriptionsResource Read GetSubscriptionsInstance;
+ Function CreateSubscriptionsResource(AOwner : TComponent) : TProjectsSubscriptionsResource;virtual;overload;
+ Function CreateSubscriptionsResource : TProjectsSubscriptionsResource;virtual;overload;
Property TopicsSubscriptionsResource : TProjectsTopicsSubscriptionsResource Read GetTopicsSubscriptionsInstance;
Property TopicsResource : TProjectsTopicsResource Read GetTopicsInstance;
+ Property SubscriptionsResource : TProjectsSubscriptionsResource Read GetSubscriptionsInstance;
end;
@@ -522,13 +636,13 @@ type
TPubsubAPI = Class(TGoogleAPI)
Private
- FProjectsSubscriptionsInstance : TProjectsSubscriptionsResource;
FProjectsTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
FProjectsTopicsInstance : TProjectsTopicsResource;
+ FProjectsSubscriptionsInstance : TProjectsSubscriptionsResource;
FProjectsInstance : TProjectsResource;
- Function GetProjectsSubscriptionsInstance : TProjectsSubscriptionsResource;virtual;
Function GetProjectsTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;virtual;
Function GetProjectsTopicsInstance : TProjectsTopicsResource;virtual;
+ Function GetProjectsSubscriptionsInstance : TProjectsSubscriptionsResource;virtual;
Function GetProjectsInstance : TProjectsResource;virtual;
Public
//Override class functions with API info
@@ -553,18 +667,18 @@ type
Class Function APINeedsAuth : Boolean;override;
Class Procedure RegisterAPIResources; override;
//Add create function for resources
- Function CreateProjectsSubscriptionsResource(AOwner : TComponent) : TProjectsSubscriptionsResource;virtual;overload;
- Function CreateProjectsSubscriptionsResource : TProjectsSubscriptionsResource;virtual;overload;
Function CreateProjectsTopicsSubscriptionsResource(AOwner : TComponent) : TProjectsTopicsSubscriptionsResource;virtual;overload;
Function CreateProjectsTopicsSubscriptionsResource : TProjectsTopicsSubscriptionsResource;virtual;overload;
Function CreateProjectsTopicsResource(AOwner : TComponent) : TProjectsTopicsResource;virtual;overload;
Function CreateProjectsTopicsResource : TProjectsTopicsResource;virtual;overload;
+ Function CreateProjectsSubscriptionsResource(AOwner : TComponent) : TProjectsSubscriptionsResource;virtual;overload;
+ Function CreateProjectsSubscriptionsResource : TProjectsSubscriptionsResource;virtual;overload;
Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
Function CreateProjectsResource : TProjectsResource;virtual;overload;
//Add default on-demand instances for resources
- Property ProjectsSubscriptionsResource : TProjectsSubscriptionsResource Read GetProjectsSubscriptionsInstance;
Property ProjectsTopicsSubscriptionsResource : TProjectsTopicsSubscriptionsResource Read GetProjectsTopicsSubscriptionsInstance;
Property ProjectsTopicsResource : TProjectsTopicsResource Read GetProjectsTopicsInstance;
+ Property ProjectsSubscriptionsResource : TProjectsSubscriptionsResource Read GetProjectsSubscriptionsInstance;
Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
end;
@@ -572,73 +686,63 @@ implementation
{ --------------------------------------------------------------------
- TAcknowledgeRequest
+ TSetIamPolicyRequest
--------------------------------------------------------------------}
-Procedure TAcknowledgeRequest.SetackIds(AIndex : Integer; AValue : TStringArray);
+Procedure TSetIamPolicyRequest.Setpolicy(AIndex : Integer; const AValue : TPolicy);
begin
- If (FackIds=AValue) then exit;
- FackIds:=AValue;
+ If (Fpolicy=AValue) then exit;
+ Fpolicy:=AValue;
MarkPropertyChanged(AIndex);
end;
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TAcknowledgeRequest.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'ackids' : SetLength(FackIds,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
{ --------------------------------------------------------------------
- TEmpty
+ TPolicy
--------------------------------------------------------------------}
+Procedure TPolicy.Setversion(AIndex : Integer; const AValue : integer);
+begin
+ If (Fversion=AValue) then exit;
+ Fversion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TListSubscriptionsResponse
- --------------------------------------------------------------------}
-Procedure TListSubscriptionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TPolicy.Setbindings(AIndex : Integer; const AValue : TPolicyTypebindingsArray);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (Fbindings=AValue) then exit;
+ Fbindings:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TListSubscriptionsResponse.Setsubscriptions(AIndex : Integer; AValue : TListSubscriptionsResponseTypesubscriptionsArray);
+Procedure TPolicy.Setetag(AIndex : Integer; const AValue : String);
begin
- If (Fsubscriptions=AValue) then exit;
- Fsubscriptions:=AValue;
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TListSubscriptionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TPolicy.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'subscriptions' : SetLength(Fsubscriptions,ALength);
+ 'bindings' : SetLength(Fbindings,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -649,36 +753,36 @@ end;
{ --------------------------------------------------------------------
- TListTopicSubscriptionsResponse
+ TBinding
--------------------------------------------------------------------}
-Procedure TListTopicSubscriptionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+Procedure TBinding.Setrole(AIndex : Integer; const AValue : String);
begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
+ If (Frole=AValue) then exit;
+ Frole:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TListTopicSubscriptionsResponse.Setsubscriptions(AIndex : Integer; AValue : TStringArray);
+Procedure TBinding.Setmembers(AIndex : Integer; const AValue : TStringArray);
begin
- If (Fsubscriptions=AValue) then exit;
- Fsubscriptions:=AValue;
+ If (Fmembers=AValue) then exit;
+ Fmembers:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TListTopicSubscriptionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TBinding.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'subscriptions' : SetLength(Fsubscriptions,ALength);
+ 'members' : SetLength(Fmembers,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -689,36 +793,26 @@ end;
{ --------------------------------------------------------------------
- TListTopicsResponse
+ TTestIamPermissionsRequest
--------------------------------------------------------------------}
-Procedure TListTopicsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
-
-begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TListTopicsResponse.Settopics(AIndex : Integer; AValue : TListTopicsResponseTypetopicsArray);
+Procedure TTestIamPermissionsRequest.Setpermissions(AIndex : Integer; const AValue : TStringArray);
begin
- If (Ftopics=AValue) then exit;
- Ftopics:=AValue;
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TListTopicsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TTestIamPermissionsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'topics' : SetLength(Ftopics,ALength);
+ 'permissions' : SetLength(Fpermissions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -729,42 +823,45 @@ end;
{ --------------------------------------------------------------------
- TModifyAckDeadlineRequest
+ TTestIamPermissionsResponse
--------------------------------------------------------------------}
-Procedure TModifyAckDeadlineRequest.SetackDeadlineSeconds(AIndex : Integer; AValue : integer);
+Procedure TTestIamPermissionsResponse.Setpermissions(AIndex : Integer; const AValue : TStringArray);
begin
- If (FackDeadlineSeconds=AValue) then exit;
- FackDeadlineSeconds:=AValue;
+ If (Fpermissions=AValue) then exit;
+ Fpermissions:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TModifyAckDeadlineRequest.SetackId(AIndex : Integer; const AValue : String);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestIamPermissionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FackId=AValue) then exit;
- FackId:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'permissions' : SetLength(Fpermissions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
-
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TModifyPushConfigRequest
+ TTopic
--------------------------------------------------------------------}
-Procedure TModifyPushConfigRequest.SetpushConfig(AIndex : Integer; AValue : TPushConfig);
+Procedure TTopic.Setname(AIndex : Integer; const AValue : String);
begin
- If (FpushConfig=AValue) then exit;
- FpushConfig:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -777,7 +874,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPublishRequest.Setmessages(AIndex : Integer; AValue : TPublishRequestTypemessagesArray);
+Procedure TPublishRequest.Setmessages(AIndex : Integer; const AValue : TPublishRequestTypemessagesArray);
begin
If (Fmessages=AValue) then exit;
@@ -803,54 +900,34 @@ end;
{ --------------------------------------------------------------------
- TPublishResponse
+ TPubsubMessageTypeattributes
--------------------------------------------------------------------}
-Procedure TPublishResponse.SetmessageIds(AIndex : Integer; AValue : TStringArray);
-
-begin
- If (FmessageIds=AValue) then exit;
- FmessageIds:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TPublishResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Class Function TPubsubMessageTypeattributes.AllowAdditionalProperties : Boolean;
begin
- Case AName of
- 'messageids' : SetLength(FmessageIds,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
+ Result:=True;
end;
-{$ENDIF VER2_6}
-
{ --------------------------------------------------------------------
- TPubsubMessageTypeattributes
+ TPubsubMessage
--------------------------------------------------------------------}
-Class Function TPubsubMessageTypeattributes.AllowAdditionalProperties : Boolean;
+Procedure TPubsubMessage.Setdata(AIndex : Integer; const AValue : String);
begin
- Result:=True;
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TPubsubMessage
- --------------------------------------------------------------------}
-
-
-Procedure TPubsubMessage.Setattributes(AIndex : Integer; AValue : TPubsubMessageTypeattributes);
+Procedure TPubsubMessage.Setattributes(AIndex : Integer; const AValue : TPubsubMessageTypeattributes);
begin
If (Fattributes=AValue) then exit;
@@ -860,21 +937,21 @@ end;
-Procedure TPubsubMessage.Setdata(AIndex : Integer; const AValue : String);
+Procedure TPubsubMessage.SetmessageId(AIndex : Integer; const AValue : String);
begin
- If (Fdata=AValue) then exit;
- Fdata:=AValue;
+ If (FmessageId=AValue) then exit;
+ FmessageId:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TPubsubMessage.SetmessageId(AIndex : Integer; const AValue : String);
+Procedure TPubsubMessage.SetpublishTime(AIndex : Integer; const AValue : String);
begin
- If (FmessageId=AValue) then exit;
- FmessageId:=AValue;
+ If (FpublishTime=AValue) then exit;
+ FpublishTime:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -883,53 +960,66 @@ end;
{ --------------------------------------------------------------------
- TPullRequest
+ TPublishResponse
--------------------------------------------------------------------}
-Procedure TPullRequest.SetmaxMessages(AIndex : Integer; AValue : integer);
+Procedure TPublishResponse.SetmessageIds(AIndex : Integer; const AValue : TStringArray);
begin
- If (FmaxMessages=AValue) then exit;
- FmaxMessages:=AValue;
+ If (FmessageIds=AValue) then exit;
+ FmessageIds:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TPullRequest.SetreturnImmediately(AIndex : Integer; AValue : boolean);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPublishResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FreturnImmediately=AValue) then exit;
- FreturnImmediately:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'messageids' : SetLength(FmessageIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
-
+{$ENDIF VER2_6}
{ --------------------------------------------------------------------
- TPullResponse
+ TListTopicsResponse
--------------------------------------------------------------------}
-Procedure TPullResponse.SetreceivedMessages(AIndex : Integer; AValue : TPullResponseTypereceivedMessagesArray);
+Procedure TListTopicsResponse.Settopics(AIndex : Integer; const AValue : TListTopicsResponseTypetopicsArray);
begin
- If (FreceivedMessages=AValue) then exit;
- FreceivedMessages:=AValue;
+ If (Ftopics=AValue) then exit;
+ Ftopics:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListTopicsResponse.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 TPullResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TListTopicsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'receivedmessages' : SetLength(FreceivedMessages,ALength);
+ 'topics' : SetLength(Ftopics,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -940,78 +1030,88 @@ end;
{ --------------------------------------------------------------------
- TPushConfigTypeattributes
+ TListTopicSubscriptionsResponse
--------------------------------------------------------------------}
-Class Function TPushConfigTypeattributes.AllowAdditionalProperties : Boolean;
+Procedure TListTopicSubscriptionsResponse.Setsubscriptions(AIndex : Integer; const AValue : TStringArray);
begin
- Result:=True;
+ If (Fsubscriptions=AValue) then exit;
+ Fsubscriptions:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-{ --------------------------------------------------------------------
- TPushConfig
- --------------------------------------------------------------------}
-
-
-Procedure TPushConfig.Setattributes(AIndex : Integer; AValue : TPushConfigTypeattributes);
+Procedure TListTopicSubscriptionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
- If (Fattributes=AValue) then exit;
- Fattributes:=AValue;
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
-
-Procedure TPushConfig.SetpushEndpoint(AIndex : Integer; const AValue : String);
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListTopicSubscriptionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
- If (FpushEndpoint=AValue) then exit;
- FpushEndpoint:=AValue;
- MarkPropertyChanged(AIndex);
+ Case AName of
+ 'subscriptions' : SetLength(Fsubscriptions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
{ --------------------------------------------------------------------
- TReceivedMessage
+ TSubscription
--------------------------------------------------------------------}
-Procedure TReceivedMessage.SetackId(AIndex : Integer; const AValue : String);
+Procedure TSubscription.Setname(AIndex : Integer; const AValue : String);
begin
- If (FackId=AValue) then exit;
- FackId:=AValue;
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TReceivedMessage.Setmessage(AIndex : Integer; AValue : TPubsubMessage);
+Procedure TSubscription.Settopic(AIndex : Integer; const AValue : String);
begin
- If (Fmessage=AValue) then exit;
- Fmessage:=AValue;
+ If (Ftopic=AValue) then exit;
+ Ftopic:=AValue;
MarkPropertyChanged(AIndex);
end;
+Procedure TSubscription.SetpushConfig(AIndex : Integer; const AValue : TPushConfig);
+begin
+ If (FpushConfig=AValue) then exit;
+ FpushConfig:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
-{ --------------------------------------------------------------------
- TSubscription
- --------------------------------------------------------------------}
-Procedure TSubscription.SetackDeadlineSeconds(AIndex : Integer; AValue : integer);
+Procedure TSubscription.SetackDeadlineSeconds(AIndex : Integer; const AValue : integer);
begin
If (FackDeadlineSeconds=AValue) then exit;
@@ -1021,31 +1121,41 @@ end;
-Procedure TSubscription.Setname(AIndex : Integer; const AValue : String);
+
+
+{ --------------------------------------------------------------------
+ TPushConfigTypeattributes
+ --------------------------------------------------------------------}
+
+
+Class Function TPushConfigTypeattributes.AllowAdditionalProperties : Boolean;
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
+ Result:=True;
end;
-Procedure TSubscription.SetpushConfig(AIndex : Integer; AValue : TPushConfig);
+{ --------------------------------------------------------------------
+ TPushConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TPushConfig.SetpushEndpoint(AIndex : Integer; const AValue : String);
begin
- If (FpushConfig=AValue) then exit;
- FpushConfig:=AValue;
+ If (FpushEndpoint=AValue) then exit;
+ FpushEndpoint:=AValue;
MarkPropertyChanged(AIndex);
end;
-Procedure TSubscription.Settopic(AIndex : Integer; const AValue : String);
+Procedure TPushConfig.Setattributes(AIndex : Integer; const AValue : TPushConfigTypeattributes);
begin
- If (Ftopic=AValue) then exit;
- Ftopic:=AValue;
+ If (Fattributes=AValue) then exit;
+ Fattributes:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -1054,174 +1164,216 @@ end;
{ --------------------------------------------------------------------
- TTopic
+ TListSubscriptionsResponse
--------------------------------------------------------------------}
-Procedure TTopic.Setname(AIndex : Integer; const AValue : String);
+Procedure TListSubscriptionsResponse.Setsubscriptions(AIndex : Integer; const AValue : TListSubscriptionsResponseTypesubscriptionsArray);
begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
+ If (Fsubscriptions=AValue) then exit;
+ Fsubscriptions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListSubscriptionsResponse.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 TListSubscriptionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'subscriptions' : SetLength(Fsubscriptions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
{ --------------------------------------------------------------------
- TProjectsSubscriptionsResource
+ TModifyAckDeadlineRequest
--------------------------------------------------------------------}
-Class Function TProjectsSubscriptionsResource.ResourceName : String;
+Procedure TModifyAckDeadlineRequest.SetackIds(AIndex : Integer; const AValue : TStringArray);
begin
- Result:='subscriptions';
+ If (FackIds=AValue) then exit;
+ FackIds:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Class Function TProjectsSubscriptionsResource.DefaultAPI : TGoogleAPIClass;
+
+
+Procedure TModifyAckDeadlineRequest.SetackDeadlineSeconds(AIndex : Integer; const AValue : integer);
begin
- Result:=TpubsubAPI;
+ If (FackDeadlineSeconds=AValue) then exit;
+ FackDeadlineSeconds:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsSubscriptionsResource.Acknowledge(subscription: string; aAcknowledgeRequest : TAcknowledgeRequest) : TEmpty;
-Const
- _HTTPMethod = 'POST';
- _Path = '{+subscription}:acknowledge';
- _Methodid = 'pubsub.projects.subscriptions.acknowledge';
-
-Var
- _P : String;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TModifyAckDeadlineRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
- _P:=SubstitutePath(_Path,['subscription',subscription]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aAcknowledgeRequest,TEmpty) as TEmpty;
+ Case AName of
+ 'ackids' : SetLength(FackIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Function TProjectsSubscriptionsResource.Create(_name: string; aSubscription : TSubscription) : TSubscription;
-Const
- _HTTPMethod = 'PUT';
- _Path = '{+name}';
- _Methodid = 'pubsub.projects.subscriptions.create';
-Var
- _P : String;
+
+{ --------------------------------------------------------------------
+ TAcknowledgeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAcknowledgeRequest.SetackIds(AIndex : Integer; const AValue : TStringArray);
begin
- _P:=SubstitutePath(_Path,['name',_name]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aSubscription,TSubscription) as TSubscription;
+ If (FackIds=AValue) then exit;
+ FackIds:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsSubscriptionsResource.Delete(subscription: string) : TEmpty;
-
-Const
- _HTTPMethod = 'DELETE';
- _Path = '{+subscription}';
- _Methodid = 'pubsub.projects.subscriptions.delete';
-Var
- _P : String;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAcknowledgeRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
- _P:=SubstitutePath(_Path,['subscription',subscription]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+ Case AName of
+ 'ackids' : SetLength(FackIds,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
end;
+{$ENDIF VER2_6}
-Function TProjectsSubscriptionsResource.Get(subscription: string) : TSubscription;
-Const
- _HTTPMethod = 'GET';
- _Path = '{+subscription}';
- _Methodid = 'pubsub.projects.subscriptions.get';
-Var
- _P : String;
+
+{ --------------------------------------------------------------------
+ TPullRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TPullRequest.SetreturnImmediately(AIndex : Integer; const AValue : boolean);
begin
- _P:=SubstitutePath(_Path,['subscription',subscription]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSubscription) as TSubscription;
+ If (FreturnImmediately=AValue) then exit;
+ FreturnImmediately:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsSubscriptionsResource.List(project: string; AQuery : string = '') : TListSubscriptionsResponse;
-Const
- _HTTPMethod = 'GET';
- _Path = '{+project}/subscriptions';
- _Methodid = 'pubsub.projects.subscriptions.list';
-Var
- _P : String;
+Procedure TPullRequest.SetmaxMessages(AIndex : Integer; const AValue : integer);
begin
- _P:=SubstitutePath(_Path,['project',project]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListSubscriptionsResponse) as TListSubscriptionsResponse;
+ If (FmaxMessages=AValue) then exit;
+ FmaxMessages:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsSubscriptionsResource.List(project: string; AQuery : TProjectsSubscriptionslistOptions) : TListSubscriptionsResponse;
-Var
- _Q : String;
+
+
+{ --------------------------------------------------------------------
+ TPullResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TPullResponse.SetreceivedMessages(AIndex : Integer; const AValue : TPullResponseTypereceivedMessagesArray);
begin
- _Q:='';
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(project,_Q);
+ If (FreceivedMessages=AValue) then exit;
+ FreceivedMessages:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsSubscriptionsResource.ModifyAckDeadline(subscription: string; aModifyAckDeadlineRequest : TModifyAckDeadlineRequest) : TEmpty;
-Const
- _HTTPMethod = 'POST';
- _Path = '{+subscription}:modifyAckDeadline';
- _Methodid = 'pubsub.projects.subscriptions.modifyAckDeadline';
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPullResponse.SetArrayLength(Const AName : String; ALength : Longint);
-Var
- _P : String;
+begin
+ Case AName of
+ 'receivedmessages' : SetLength(FreceivedMessages,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TReceivedMessage
+ --------------------------------------------------------------------}
+
+
+Procedure TReceivedMessage.SetackId(AIndex : Integer; const AValue : String);
begin
- _P:=SubstitutePath(_Path,['subscription',subscription]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aModifyAckDeadlineRequest,TEmpty) as TEmpty;
+ If (FackId=AValue) then exit;
+ FackId:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsSubscriptionsResource.ModifyPushConfig(subscription: string; aModifyPushConfigRequest : TModifyPushConfigRequest) : TEmpty;
-Const
- _HTTPMethod = 'POST';
- _Path = '{+subscription}:modifyPushConfig';
- _Methodid = 'pubsub.projects.subscriptions.modifyPushConfig';
-Var
- _P : String;
+Procedure TReceivedMessage.Setmessage(AIndex : Integer; const AValue : TPubsubMessage);
begin
- _P:=SubstitutePath(_Path,['subscription',subscription]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aModifyPushConfigRequest,TEmpty) as TEmpty;
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
end;
-Function TProjectsSubscriptionsResource.Pull(subscription: string; aPullRequest : TPullRequest) : TPullResponse;
-Const
- _HTTPMethod = 'POST';
- _Path = '{+subscription}:pull';
- _Methodid = 'pubsub.projects.subscriptions.pull';
-Var
- _P : String;
+
+
+{ --------------------------------------------------------------------
+ TModifyPushConfigRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TModifyPushConfigRequest.SetpushConfig(AIndex : Integer; const AValue : TPushConfig);
begin
- _P:=SubstitutePath(_Path,['subscription',subscription]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPullRequest,TPullResponse) as TPullResponse;
+ If (FpushConfig=AValue) then exit;
+ FpushConfig:=AValue;
+ MarkPropertyChanged(AIndex);
end;
+
+
{ --------------------------------------------------------------------
TProjectsTopicsSubscriptionsResource
--------------------------------------------------------------------}
@@ -1243,7 +1395,7 @@ Function TProjectsTopicsSubscriptionsResource.List(topic: string; AQuery : strin
Const
_HTTPMethod = 'GET';
- _Path = '{+topic}/subscriptions';
+ _Path = 'v1/{+topic}/subscriptions';
_Methodid = 'pubsub.projects.topics.subscriptions.list';
Var
@@ -1286,11 +1438,56 @@ begin
Result:=TpubsubAPI;
end;
+Function TProjectsTopicsResource.SetIamPolicy(resource: string; aSetIamPolicyRequest : TSetIamPolicyRequest) : TPolicy;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+resource}:setIamPolicy';
+ _Methodid = 'pubsub.projects.topics.setIamPolicy';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSetIamPolicyRequest,TPolicy) as TPolicy;
+end;
+
+Function TProjectsTopicsResource.GetIamPolicy(resource: string) : TPolicy;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+resource}:getIamPolicy';
+ _Methodid = 'pubsub.projects.topics.getIamPolicy';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPolicy) as TPolicy;
+end;
+
+Function TProjectsTopicsResource.TestIamPermissions(resource: string; aTestIamPermissionsRequest : TTestIamPermissionsRequest) : TTestIamPermissionsResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+resource}:testIamPermissions';
+ _Methodid = 'pubsub.projects.topics.testIamPermissions';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTestIamPermissionsRequest,TTestIamPermissionsResponse) as TTestIamPermissionsResponse;
+end;
+
Function TProjectsTopicsResource.Create(_name: string; aTopic : TTopic) : TTopic;
Const
_HTTPMethod = 'PUT';
- _Path = '{+name}';
+ _Path = 'v1/{+name}';
_Methodid = 'pubsub.projects.topics.create';
Var
@@ -1301,26 +1498,26 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',aTopic,TTopic) as TTopic;
end;
-Function TProjectsTopicsResource.Delete(topic: string) : TEmpty;
+Function TProjectsTopicsResource.Publish(topic: string; aPublishRequest : TPublishRequest) : TPublishResponse;
Const
- _HTTPMethod = 'DELETE';
- _Path = '{+topic}';
- _Methodid = 'pubsub.projects.topics.delete';
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+topic}:publish';
+ _Methodid = 'pubsub.projects.topics.publish';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['topic',topic]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+ Result:=ServiceCall(_HTTPMethod,_P,'',aPublishRequest,TPublishResponse) as TPublishResponse;
end;
Function TProjectsTopicsResource.Get(topic: string) : TTopic;
Const
_HTTPMethod = 'GET';
- _Path = '{+topic}';
+ _Path = 'v1/{+topic}';
_Methodid = 'pubsub.projects.topics.get';
Var
@@ -1335,7 +1532,7 @@ Function TProjectsTopicsResource.List(project: string; AQuery : string = '') : T
Const
_HTTPMethod = 'GET';
- _Path = '{+project}/topics';
+ _Path = 'v1/{+project}/topics';
_Methodid = 'pubsub.projects.topics.list';
Var
@@ -1359,19 +1556,19 @@ begin
Result:=List(project,_Q);
end;
-Function TProjectsTopicsResource.Publish(topic: string; aPublishRequest : TPublishRequest) : TPublishResponse;
+Function TProjectsTopicsResource.Delete(topic: string) : TEmpty;
Const
- _HTTPMethod = 'POST';
- _Path = '{+topic}:publish';
- _Methodid = 'pubsub.projects.topics.publish';
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/{+topic}';
+ _Methodid = 'pubsub.projects.topics.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['topic',topic]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aPublishRequest,TPublishResponse) as TPublishResponse;
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
end;
@@ -1401,44 +1598,217 @@ end;
{ --------------------------------------------------------------------
- TProjectsResource
+ TProjectsSubscriptionsResource
--------------------------------------------------------------------}
-Class Function TProjectsResource.ResourceName : String;
+Class Function TProjectsSubscriptionsResource.ResourceName : String;
begin
- Result:='projects';
+ Result:='subscriptions';
end;
-Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+Class Function TProjectsSubscriptionsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TpubsubAPI;
end;
+Function TProjectsSubscriptionsResource.SetIamPolicy(resource: string; aSetIamPolicyRequest : TSetIamPolicyRequest) : TPolicy;
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+resource}:setIamPolicy';
+ _Methodid = 'pubsub.projects.subscriptions.setIamPolicy';
-Function TProjectsResource.GetSubscriptionsInstance : TProjectsSubscriptionsResource;
+Var
+ _P : String;
begin
- if (FSubscriptionsInstance=Nil) then
- FSubscriptionsInstance:=CreateSubscriptionsResource;
- Result:=FSubscriptionsInstance;
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSetIamPolicyRequest,TPolicy) as TPolicy;
end;
-Function TProjectsResource.CreateSubscriptionsResource : TProjectsSubscriptionsResource;
+Function TProjectsSubscriptionsResource.GetIamPolicy(resource: string) : TPolicy;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+resource}:getIamPolicy';
+ _Methodid = 'pubsub.projects.subscriptions.getIamPolicy';
+
+Var
+ _P : String;
begin
- Result:=CreateSubscriptionsResource(Self);
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPolicy) as TPolicy;
end;
+Function TProjectsSubscriptionsResource.TestIamPermissions(resource: string; aTestIamPermissionsRequest : TTestIamPermissionsRequest) : TTestIamPermissionsResponse;
-Function TProjectsResource.CreateSubscriptionsResource(AOwner : TComponent) : TProjectsSubscriptionsResource;
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+resource}:testIamPermissions';
+ _Methodid = 'pubsub.projects.subscriptions.testIamPermissions';
+
+Var
+ _P : String;
begin
- Result:=TProjectsSubscriptionsResource.Create(AOwner);
- Result.API:=Self.API;
+ _P:=SubstitutePath(_Path,['resource',resource]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aTestIamPermissionsRequest,TTestIamPermissionsResponse) as TTestIamPermissionsResponse;
+end;
+
+Function TProjectsSubscriptionsResource.Create(_name: string; aSubscription : TSubscription) : TSubscription;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v1/{+name}';
+ _Methodid = 'pubsub.projects.subscriptions.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSubscription,TSubscription) as TSubscription;
+end;
+
+Function TProjectsSubscriptionsResource.Get(subscription: string) : TSubscription;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+subscription}';
+ _Methodid = 'pubsub.projects.subscriptions.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['subscription',subscription]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSubscription) as TSubscription;
+end;
+
+Function TProjectsSubscriptionsResource.List(project: string; AQuery : string = '') : TListSubscriptionsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+project}/subscriptions';
+ _Methodid = 'pubsub.projects.subscriptions.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListSubscriptionsResponse) as TListSubscriptionsResponse;
+end;
+
+
+Function TProjectsSubscriptionsResource.List(project: string; AQuery : TProjectsSubscriptionslistOptions) : TListSubscriptionsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,_Q);
+end;
+
+Function TProjectsSubscriptionsResource.Delete(subscription: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/{+subscription}';
+ _Methodid = 'pubsub.projects.subscriptions.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['subscription',subscription]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+Function TProjectsSubscriptionsResource.ModifyAckDeadline(subscription: string; aModifyAckDeadlineRequest : TModifyAckDeadlineRequest) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+subscription}:modifyAckDeadline';
+ _Methodid = 'pubsub.projects.subscriptions.modifyAckDeadline';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['subscription',subscription]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aModifyAckDeadlineRequest,TEmpty) as TEmpty;
+end;
+
+Function TProjectsSubscriptionsResource.Acknowledge(subscription: string; aAcknowledgeRequest : TAcknowledgeRequest) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+subscription}:acknowledge';
+ _Methodid = 'pubsub.projects.subscriptions.acknowledge';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['subscription',subscription]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aAcknowledgeRequest,TEmpty) as TEmpty;
+end;
+
+Function TProjectsSubscriptionsResource.Pull(subscription: string; aPullRequest : TPullRequest) : TPullResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+subscription}:pull';
+ _Methodid = 'pubsub.projects.subscriptions.pull';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['subscription',subscription]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aPullRequest,TPullResponse) as TPullResponse;
+end;
+
+Function TProjectsSubscriptionsResource.ModifyPushConfig(subscription: string; aModifyPushConfigRequest : TModifyPushConfigRequest) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+subscription}:modifyPushConfig';
+ _Methodid = 'pubsub.projects.subscriptions.modifyPushConfig';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['subscription',subscription]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aModifyPushConfigRequest,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TpubsubAPI;
end;
@@ -1491,6 +1861,30 @@ end;
+Function TProjectsResource.GetSubscriptionsInstance : TProjectsSubscriptionsResource;
+
+begin
+ if (FSubscriptionsInstance=Nil) then
+ FSubscriptionsInstance:=CreateSubscriptionsResource;
+ Result:=FSubscriptionsInstance;
+end;
+
+Function TProjectsResource.CreateSubscriptionsResource : TProjectsSubscriptionsResource;
+
+begin
+ Result:=CreateSubscriptionsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateSubscriptionsResource(AOwner : TComponent) : TProjectsSubscriptionsResource;
+
+begin
+ Result:=TProjectsSubscriptionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
{ --------------------------------------------------------------------
TPubsubAPI
--------------------------------------------------------------------}
@@ -1504,19 +1898,19 @@ end;
Class Function TPubsubAPI.APIVersion : String;
begin
- Result:='v1beta2';
+ Result:='v1';
end;
Class Function TPubsubAPI.APIRevision : String;
begin
- Result:='20150427';
+ Result:='20160317';
end;
Class Function TPubsubAPI.APIID : String;
begin
- Result:='pubsub:v1beta2';
+ Result:='pubsub:v1';
end;
Class Function TPubsubAPI.APITitle : String;
@@ -1558,7 +1952,7 @@ end;
Class Function TPubsubAPI.APIdocumentationLink : String;
begin
- Result:='';
+ Result:='https://cloud.google.com/pubsub/docs';
end;
Class Function TPubsubAPI.APIrootUrl : string;
@@ -1570,13 +1964,13 @@ end;
Class Function TPubsubAPI.APIbasePath : string;
begin
- Result:='/v1beta2/';
+ Result:='';
end;
Class Function TPubsubAPI.APIbaseURL : String;
begin
- Result:='https://pubsub.googleapis.com/v1beta2/';
+ Result:='https://pubsub.googleapis.com/';
end;
Class Function TPubsubAPI.APIProtocol : string;
@@ -1588,7 +1982,7 @@ end;
Class Function TPubsubAPI.APIservicePath : string;
begin
- Result:='v1beta2/';
+ Result:='';
end;
Class Function TPubsubAPI.APIbatchPath : String;
@@ -1617,51 +2011,32 @@ end;
Class Procedure TPubsubAPI.RegisterAPIResources;
begin
- TAcknowledgeRequest.RegisterObject;
- TEmpty.RegisterObject;
- TListSubscriptionsResponse.RegisterObject;
- TListTopicSubscriptionsResponse.RegisterObject;
- TListTopicsResponse.RegisterObject;
- TModifyAckDeadlineRequest.RegisterObject;
- TModifyPushConfigRequest.RegisterObject;
+ TSetIamPolicyRequest.RegisterObject;
+ TPolicy.RegisterObject;
+ TBinding.RegisterObject;
+ TTestIamPermissionsRequest.RegisterObject;
+ TTestIamPermissionsResponse.RegisterObject;
+ TTopic.RegisterObject;
TPublishRequest.RegisterObject;
- TPublishResponse.RegisterObject;
TPubsubMessageTypeattributes.RegisterObject;
TPubsubMessage.RegisterObject;
- TPullRequest.RegisterObject;
- TPullResponse.RegisterObject;
+ TPublishResponse.RegisterObject;
+ TListTopicsResponse.RegisterObject;
+ TListTopicSubscriptionsResponse.RegisterObject;
+ TEmpty.RegisterObject;
+ TSubscription.RegisterObject;
TPushConfigTypeattributes.RegisterObject;
TPushConfig.RegisterObject;
+ TListSubscriptionsResponse.RegisterObject;
+ TModifyAckDeadlineRequest.RegisterObject;
+ TAcknowledgeRequest.RegisterObject;
+ TPullRequest.RegisterObject;
+ TPullResponse.RegisterObject;
TReceivedMessage.RegisterObject;
- TSubscription.RegisterObject;
- TTopic.RegisterObject;
-end;
-
-
-Function TPubsubAPI.GetProjectsSubscriptionsInstance : TProjectsSubscriptionsResource;
-
-begin
- if (FProjectsSubscriptionsInstance=Nil) then
- FProjectsSubscriptionsInstance:=CreateProjectsSubscriptionsResource;
- Result:=FProjectsSubscriptionsInstance;
-end;
-
-Function TPubsubAPI.CreateProjectsSubscriptionsResource : TProjectsSubscriptionsResource;
-
-begin
- Result:=CreateProjectsSubscriptionsResource(Self);
-end;
-
-
-Function TPubsubAPI.CreateProjectsSubscriptionsResource(AOwner : TComponent) : TProjectsSubscriptionsResource;
-
-begin
- Result:=TProjectsSubscriptionsResource.Create(AOwner);
- Result.API:=Self.API;
+ TModifyPushConfigRequest.RegisterObject;
end;
-
Function TPubsubAPI.GetProjectsTopicsSubscriptionsInstance : TProjectsTopicsSubscriptionsResource;
begin
@@ -1710,6 +2085,30 @@ end;
+Function TPubsubAPI.GetProjectsSubscriptionsInstance : TProjectsSubscriptionsResource;
+
+begin
+ if (FProjectsSubscriptionsInstance=Nil) then
+ FProjectsSubscriptionsInstance:=CreateProjectsSubscriptionsResource;
+ Result:=FProjectsSubscriptionsInstance;
+end;
+
+Function TPubsubAPI.CreateProjectsSubscriptionsResource : TProjectsSubscriptionsResource;
+
+begin
+ Result:=CreateProjectsSubscriptionsResource(Self);
+end;
+
+
+Function TPubsubAPI.CreateProjectsSubscriptionsResource(AOwner : TComponent) : TProjectsSubscriptionsResource;
+
+begin
+ Result:=TProjectsSubscriptionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TPubsubAPI.GetProjectsInstance : TProjectsResource;
begin
diff --git a/packages/googleapi/src/googleqpxExpress.pp b/packages/googleapi/src/googleqpxexpress.pp
index 6a1e3bee15..2e41a04813 100644
--- a/packages/googleapi/src/googleqpxExpress.pp
+++ b/packages/googleapi/src/googleqpxexpress.pp
@@ -1,19 +1,4 @@
unit googleqpxExpress;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:07
{$MODE objfpc}
{$H+}
@@ -151,8 +136,8 @@ type
Protected
//Property setters
Procedure SetcommercialName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcount(AIndex : Integer; AValue : integer); virtual;
- Procedure Setdescription(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setcount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsubcode(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -230,12 +215,12 @@ type
Ftax : TDataTypetaxArray;
Protected
//Property setters
- Procedure Setaircraft(AIndex : Integer; AValue : TDataTypeaircraftArray); virtual;
- Procedure Setairport(AIndex : Integer; AValue : TDataTypeairportArray); virtual;
- Procedure Setcarrier(AIndex : Integer; AValue : TDataTypecarrierArray); virtual;
- Procedure Setcity(AIndex : Integer; AValue : TDataTypecityArray); virtual;
+ Procedure Setaircraft(AIndex : Integer; const AValue : TDataTypeaircraftArray); virtual;
+ Procedure Setairport(AIndex : Integer; const AValue : TDataTypeairportArray); virtual;
+ Procedure Setcarrier(AIndex : Integer; const AValue : TDataTypecarrierArray); virtual;
+ Procedure Setcity(AIndex : Integer; const AValue : TDataTypecityArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Settax(AIndex : Integer; AValue : TDataTypetaxArray); virtual;
+ Procedure Settax(AIndex : Integer; const AValue : TDataTypetaxArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -273,7 +258,7 @@ type
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setorigin(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_private(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Set_private(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property basisCode : String Index 0 Read FbasisCode Write SetbasisCode;
@@ -319,12 +304,12 @@ type
Fpounds : integer;
Protected
//Property setters
- Procedure SetbagDescriptor(AIndex : Integer; AValue : TFreeBaggageAllowanceTypebagDescriptorArray); virtual;
- Procedure Setkilos(AIndex : Integer; AValue : integer); virtual;
- Procedure SetkilosPerPiece(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetbagDescriptor(AIndex : Integer; const AValue : TFreeBaggageAllowanceTypebagDescriptorArray); virtual;
+ Procedure Setkilos(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetkilosPerPiece(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpieces(AIndex : Integer; AValue : integer); virtual;
- Procedure Setpounds(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setpieces(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setpounds(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -367,21 +352,21 @@ type
//Property setters
Procedure Setaircraft(AIndex : Integer; const AValue : String); virtual;
Procedure SetarrivalTime(AIndex : Integer; const AValue : String); virtual;
- Procedure SetchangePlane(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetconnectionDuration(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetchangePlane(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetconnectionDuration(AIndex : Integer; const AValue : integer); virtual;
Procedure SetdepartureTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setdestination(AIndex : Integer; const AValue : String); virtual;
Procedure SetdestinationTerminal(AIndex : Integer; const AValue : String); virtual;
- Procedure Setduration(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setduration(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setmeal(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmileage(AIndex : Integer; AValue : integer); virtual;
- Procedure SetonTimePerformance(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setmileage(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetonTimePerformance(AIndex : Integer; const AValue : integer); virtual;
Procedure SetoperatingDisclosure(AIndex : Integer; const AValue : String); virtual;
Procedure Setorigin(AIndex : Integer; const AValue : String); virtual;
Procedure SetoriginTerminal(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsecure(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setsecure(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property aircraft : String Index 0 Read Faircraft Write Setaircraft;
@@ -418,12 +403,12 @@ type
FseniorCount : integer;
Protected
//Property setters
- Procedure SetadultCount(AIndex : Integer; AValue : integer); virtual;
- Procedure SetchildCount(AIndex : Integer; AValue : integer); virtual;
- Procedure SetinfantInLapCount(AIndex : Integer; AValue : integer); virtual;
- Procedure SetinfantInSeatCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetadultCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetchildCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetinfantInLapCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetinfantInSeatCount(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetseniorCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetseniorCount(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property adultCount : integer Index 0 Read FadultCount Write SetadultCount;
@@ -457,18 +442,18 @@ type
Protected
//Property setters
Procedure SetbaseFareTotal(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfare(AIndex : Integer; AValue : TPricingInfoTypefareArray); virtual;
+ Procedure Setfare(AIndex : Integer; const AValue : TPricingInfoTypefareArray); virtual;
Procedure SetfareCalculation(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlatestTicketingTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpassengers(AIndex : Integer; AValue : TPassengerCounts); virtual;
+ Procedure Setpassengers(AIndex : Integer; const AValue : TPassengerCounts); virtual;
Procedure Setptc(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrefundable(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setrefundable(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetsaleFareTotal(AIndex : Integer; const AValue : String); virtual;
Procedure SetsaleTaxTotal(AIndex : Integer; const AValue : String); virtual;
Procedure SetsaleTotal(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsegmentPricing(AIndex : Integer; AValue : TPricingInfoTypesegmentPricingArray); virtual;
- Procedure Settax(AIndex : Integer; AValue : TPricingInfoTypetaxArray); virtual;
+ Procedure SetsegmentPricing(AIndex : Integer; const AValue : TPricingInfoTypesegmentPricingArray); virtual;
+ Procedure Settax(AIndex : Integer; const AValue : TPricingInfoTypetaxArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -511,16 +496,16 @@ type
Protected
//Property setters
Procedure SetbookingCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbookingCodeCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetbookingCodeCount(AIndex : Integer; const AValue : integer); virtual;
Procedure Setcabin(AIndex : Integer; const AValue : String); virtual;
- Procedure SetconnectionDuration(AIndex : Integer; AValue : integer); virtual;
- Procedure Setduration(AIndex : Integer; AValue : integer); virtual;
- Procedure Setflight(AIndex : Integer; AValue : TFlightInfo); virtual;
+ Procedure SetconnectionDuration(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setduration(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setflight(AIndex : Integer; const AValue : TFlightInfo); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setleg(AIndex : Integer; AValue : TSegmentInfoTypelegArray); virtual;
+ Procedure Setleg(AIndex : Integer; const AValue : TSegmentInfoTypelegArray); virtual;
Procedure SetmarriedSegmentGroup(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsubjectToGovernmentApproval(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetsubjectToGovernmentApproval(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -554,7 +539,7 @@ type
Protected
//Property setters
Procedure SetfareId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfreeBaggageOption(AIndex : Integer; AValue : TSegmentPricingTypefreeBaggageOptionArray); virtual;
+ Procedure SetfreeBaggageOption(AIndex : Integer; const AValue : TSegmentPricingTypefreeBaggageOptionArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetsegmentId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -581,9 +566,9 @@ type
Fsegment : TSliceInfoTypesegmentArray;
Protected
//Property setters
- Procedure Setduration(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setduration(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsegment(AIndex : Integer; AValue : TSliceInfoTypesegmentArray); virtual;
+ Procedure Setsegment(AIndex : Integer; const AValue : TSliceInfoTypesegmentArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -619,13 +604,13 @@ type
Procedure Setdate(AIndex : Integer; const AValue : String); virtual;
Procedure Setdestination(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxConnectionDuration(AIndex : Integer; AValue : integer); virtual;
- Procedure SetmaxStops(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetmaxConnectionDuration(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaxStops(AIndex : Integer; const AValue : integer); virtual;
Procedure Setorigin(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpermittedCarrier(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetpermittedDepartureTime(AIndex : Integer; AValue : TTimeOfDayRange); virtual;
+ Procedure SetpermittedCarrier(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetpermittedDepartureTime(AIndex : Integer; const AValue : TTimeOfDayRange); virtual;
Procedure SetpreferredCabin(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprohibitedCarrier(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetprohibitedCarrier(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -736,9 +721,9 @@ type
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpricing(AIndex : Integer; AValue : TTripOptionTypepricingArray); virtual;
+ Procedure Setpricing(AIndex : Integer; const AValue : TTripOptionTypepricingArray); virtual;
Procedure SetsaleTotal(AIndex : Integer; const AValue : String); virtual;
- Procedure Setslice(AIndex : Integer; AValue : TTripOptionTypesliceArray); virtual;
+ Procedure Setslice(AIndex : Integer; const AValue : TTripOptionTypesliceArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -768,11 +753,11 @@ type
Protected
//Property setters
Procedure SetmaxPrice(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpassengers(AIndex : Integer; AValue : TPassengerCounts); virtual;
- Procedure Setrefundable(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setpassengers(AIndex : Integer; const AValue : TPassengerCounts); virtual;
+ Procedure Setrefundable(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetsaleCountry(AIndex : Integer; const AValue : String); virtual;
- Procedure Setslice(AIndex : Integer; AValue : TTripOptionsRequestTypesliceArray); virtual;
- Procedure Setsolutions(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setslice(AIndex : Integer; const AValue : TTripOptionsRequestTypesliceArray); virtual;
+ Procedure Setsolutions(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -800,10 +785,10 @@ type
FtripOption : TTripOptionsResponseTypetripOptionArray;
Protected
//Property setters
- Procedure Setdata(AIndex : Integer; AValue : TData); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TData); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetrequestId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettripOption(AIndex : Integer; AValue : TTripOptionsResponseTypetripOptionArray); virtual;
+ Procedure SettripOption(AIndex : Integer; const AValue : TTripOptionsResponseTypetripOptionArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -826,7 +811,7 @@ type
Frequest : TTripOptionsRequest;
Protected
//Property setters
- Procedure Setrequest(AIndex : Integer; AValue : TTripOptionsRequest); virtual;
+ Procedure Setrequest(AIndex : Integer; const AValue : TTripOptionsRequest); virtual;
Public
Published
Property request : TTripOptionsRequest Index 0 Read Frequest Write Setrequest;
@@ -844,7 +829,7 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Settrips(AIndex : Integer; AValue : TTripOptionsResponse); virtual;
+ Procedure Settrips(AIndex : Integer; const AValue : TTripOptionsResponse); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
@@ -1003,7 +988,7 @@ end;
-Procedure TBagDescriptor.Setcount(AIndex : Integer; AValue : integer);
+Procedure TBagDescriptor.Setcount(AIndex : Integer; const AValue : integer);
begin
If (Fcount=AValue) then exit;
@@ -1013,7 +998,7 @@ end;
-Procedure TBagDescriptor.Setdescription(AIndex : Integer; AValue : TStringArray);
+Procedure TBagDescriptor.Setdescription(AIndex : Integer; const AValue : TStringArray);
begin
If (Fdescription=AValue) then exit;
@@ -1147,7 +1132,7 @@ end;
--------------------------------------------------------------------}
-Procedure TData.Setaircraft(AIndex : Integer; AValue : TDataTypeaircraftArray);
+Procedure TData.Setaircraft(AIndex : Integer; const AValue : TDataTypeaircraftArray);
begin
If (Faircraft=AValue) then exit;
@@ -1157,7 +1142,7 @@ end;
-Procedure TData.Setairport(AIndex : Integer; AValue : TDataTypeairportArray);
+Procedure TData.Setairport(AIndex : Integer; const AValue : TDataTypeairportArray);
begin
If (Fairport=AValue) then exit;
@@ -1167,7 +1152,7 @@ end;
-Procedure TData.Setcarrier(AIndex : Integer; AValue : TDataTypecarrierArray);
+Procedure TData.Setcarrier(AIndex : Integer; const AValue : TDataTypecarrierArray);
begin
If (Fcarrier=AValue) then exit;
@@ -1177,7 +1162,7 @@ end;
-Procedure TData.Setcity(AIndex : Integer; AValue : TDataTypecityArray);
+Procedure TData.Setcity(AIndex : Integer; const AValue : TDataTypecityArray);
begin
If (Fcity=AValue) then exit;
@@ -1197,7 +1182,7 @@ end;
-Procedure TData.Settax(AIndex : Integer; AValue : TDataTypetaxArray);
+Procedure TData.Settax(AIndex : Integer; const AValue : TDataTypetaxArray);
begin
If (Ftax=AValue) then exit;
@@ -1291,7 +1276,7 @@ end;
-Procedure TFareInfo.Set_private(AIndex : Integer; AValue : boolean);
+Procedure TFareInfo.Set_private(AIndex : Integer; const AValue : boolean);
begin
If (F_private=AValue) then exit;
@@ -1346,7 +1331,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFreeBaggageAllowance.SetbagDescriptor(AIndex : Integer; AValue : TFreeBaggageAllowanceTypebagDescriptorArray);
+Procedure TFreeBaggageAllowance.SetbagDescriptor(AIndex : Integer; const AValue : TFreeBaggageAllowanceTypebagDescriptorArray);
begin
If (FbagDescriptor=AValue) then exit;
@@ -1356,7 +1341,7 @@ end;
-Procedure TFreeBaggageAllowance.Setkilos(AIndex : Integer; AValue : integer);
+Procedure TFreeBaggageAllowance.Setkilos(AIndex : Integer; const AValue : integer);
begin
If (Fkilos=AValue) then exit;
@@ -1366,7 +1351,7 @@ end;
-Procedure TFreeBaggageAllowance.SetkilosPerPiece(AIndex : Integer; AValue : integer);
+Procedure TFreeBaggageAllowance.SetkilosPerPiece(AIndex : Integer; const AValue : integer);
begin
If (FkilosPerPiece=AValue) then exit;
@@ -1386,7 +1371,7 @@ end;
-Procedure TFreeBaggageAllowance.Setpieces(AIndex : Integer; AValue : integer);
+Procedure TFreeBaggageAllowance.Setpieces(AIndex : Integer; const AValue : integer);
begin
If (Fpieces=AValue) then exit;
@@ -1396,7 +1381,7 @@ end;
-Procedure TFreeBaggageAllowance.Setpounds(AIndex : Integer; AValue : integer);
+Procedure TFreeBaggageAllowance.Setpounds(AIndex : Integer; const AValue : integer);
begin
If (Fpounds=AValue) then exit;
@@ -1446,7 +1431,7 @@ end;
-Procedure TLegInfo.SetchangePlane(AIndex : Integer; AValue : boolean);
+Procedure TLegInfo.SetchangePlane(AIndex : Integer; const AValue : boolean);
begin
If (FchangePlane=AValue) then exit;
@@ -1456,7 +1441,7 @@ end;
-Procedure TLegInfo.SetconnectionDuration(AIndex : Integer; AValue : integer);
+Procedure TLegInfo.SetconnectionDuration(AIndex : Integer; const AValue : integer);
begin
If (FconnectionDuration=AValue) then exit;
@@ -1496,7 +1481,7 @@ end;
-Procedure TLegInfo.Setduration(AIndex : Integer; AValue : integer);
+Procedure TLegInfo.Setduration(AIndex : Integer; const AValue : integer);
begin
If (Fduration=AValue) then exit;
@@ -1536,7 +1521,7 @@ end;
-Procedure TLegInfo.Setmileage(AIndex : Integer; AValue : integer);
+Procedure TLegInfo.Setmileage(AIndex : Integer; const AValue : integer);
begin
If (Fmileage=AValue) then exit;
@@ -1546,7 +1531,7 @@ end;
-Procedure TLegInfo.SetonTimePerformance(AIndex : Integer; AValue : integer);
+Procedure TLegInfo.SetonTimePerformance(AIndex : Integer; const AValue : integer);
begin
If (FonTimePerformance=AValue) then exit;
@@ -1586,7 +1571,7 @@ end;
-Procedure TLegInfo.Setsecure(AIndex : Integer; AValue : boolean);
+Procedure TLegInfo.Setsecure(AIndex : Integer; const AValue : boolean);
begin
If (Fsecure=AValue) then exit;
@@ -1603,7 +1588,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPassengerCounts.SetadultCount(AIndex : Integer; AValue : integer);
+Procedure TPassengerCounts.SetadultCount(AIndex : Integer; const AValue : integer);
begin
If (FadultCount=AValue) then exit;
@@ -1613,7 +1598,7 @@ end;
-Procedure TPassengerCounts.SetchildCount(AIndex : Integer; AValue : integer);
+Procedure TPassengerCounts.SetchildCount(AIndex : Integer; const AValue : integer);
begin
If (FchildCount=AValue) then exit;
@@ -1623,7 +1608,7 @@ end;
-Procedure TPassengerCounts.SetinfantInLapCount(AIndex : Integer; AValue : integer);
+Procedure TPassengerCounts.SetinfantInLapCount(AIndex : Integer; const AValue : integer);
begin
If (FinfantInLapCount=AValue) then exit;
@@ -1633,7 +1618,7 @@ end;
-Procedure TPassengerCounts.SetinfantInSeatCount(AIndex : Integer; AValue : integer);
+Procedure TPassengerCounts.SetinfantInSeatCount(AIndex : Integer; const AValue : integer);
begin
If (FinfantInSeatCount=AValue) then exit;
@@ -1653,7 +1638,7 @@ end;
-Procedure TPassengerCounts.SetseniorCount(AIndex : Integer; AValue : integer);
+Procedure TPassengerCounts.SetseniorCount(AIndex : Integer; const AValue : integer);
begin
If (FseniorCount=AValue) then exit;
@@ -1680,7 +1665,7 @@ end;
-Procedure TPricingInfo.Setfare(AIndex : Integer; AValue : TPricingInfoTypefareArray);
+Procedure TPricingInfo.Setfare(AIndex : Integer; const AValue : TPricingInfoTypefareArray);
begin
If (Ffare=AValue) then exit;
@@ -1720,7 +1705,7 @@ end;
-Procedure TPricingInfo.Setpassengers(AIndex : Integer; AValue : TPassengerCounts);
+Procedure TPricingInfo.Setpassengers(AIndex : Integer; const AValue : TPassengerCounts);
begin
If (Fpassengers=AValue) then exit;
@@ -1740,7 +1725,7 @@ end;
-Procedure TPricingInfo.Setrefundable(AIndex : Integer; AValue : boolean);
+Procedure TPricingInfo.Setrefundable(AIndex : Integer; const AValue : boolean);
begin
If (Frefundable=AValue) then exit;
@@ -1780,7 +1765,7 @@ end;
-Procedure TPricingInfo.SetsegmentPricing(AIndex : Integer; AValue : TPricingInfoTypesegmentPricingArray);
+Procedure TPricingInfo.SetsegmentPricing(AIndex : Integer; const AValue : TPricingInfoTypesegmentPricingArray);
begin
If (FsegmentPricing=AValue) then exit;
@@ -1790,7 +1775,7 @@ end;
-Procedure TPricingInfo.Settax(AIndex : Integer; AValue : TPricingInfoTypetaxArray);
+Procedure TPricingInfo.Settax(AIndex : Integer; const AValue : TPricingInfoTypetaxArray);
begin
If (Ftax=AValue) then exit;
@@ -1832,7 +1817,7 @@ end;
-Procedure TSegmentInfo.SetbookingCodeCount(AIndex : Integer; AValue : integer);
+Procedure TSegmentInfo.SetbookingCodeCount(AIndex : Integer; const AValue : integer);
begin
If (FbookingCodeCount=AValue) then exit;
@@ -1852,7 +1837,7 @@ end;
-Procedure TSegmentInfo.SetconnectionDuration(AIndex : Integer; AValue : integer);
+Procedure TSegmentInfo.SetconnectionDuration(AIndex : Integer; const AValue : integer);
begin
If (FconnectionDuration=AValue) then exit;
@@ -1862,7 +1847,7 @@ end;
-Procedure TSegmentInfo.Setduration(AIndex : Integer; AValue : integer);
+Procedure TSegmentInfo.Setduration(AIndex : Integer; const AValue : integer);
begin
If (Fduration=AValue) then exit;
@@ -1872,7 +1857,7 @@ end;
-Procedure TSegmentInfo.Setflight(AIndex : Integer; AValue : TFlightInfo);
+Procedure TSegmentInfo.Setflight(AIndex : Integer; const AValue : TFlightInfo);
begin
If (Fflight=AValue) then exit;
@@ -1902,7 +1887,7 @@ end;
-Procedure TSegmentInfo.Setleg(AIndex : Integer; AValue : TSegmentInfoTypelegArray);
+Procedure TSegmentInfo.Setleg(AIndex : Integer; const AValue : TSegmentInfoTypelegArray);
begin
If (Fleg=AValue) then exit;
@@ -1922,7 +1907,7 @@ end;
-Procedure TSegmentInfo.SetsubjectToGovernmentApproval(AIndex : Integer; AValue : boolean);
+Procedure TSegmentInfo.SetsubjectToGovernmentApproval(AIndex : Integer; const AValue : boolean);
begin
If (FsubjectToGovernmentApproval=AValue) then exit;
@@ -1962,7 +1947,7 @@ end;
-Procedure TSegmentPricing.SetfreeBaggageOption(AIndex : Integer; AValue : TSegmentPricingTypefreeBaggageOptionArray);
+Procedure TSegmentPricing.SetfreeBaggageOption(AIndex : Integer; const AValue : TSegmentPricingTypefreeBaggageOptionArray);
begin
If (FfreeBaggageOption=AValue) then exit;
@@ -2012,7 +1997,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSliceInfo.Setduration(AIndex : Integer; AValue : integer);
+Procedure TSliceInfo.Setduration(AIndex : Integer; const AValue : integer);
begin
If (Fduration=AValue) then exit;
@@ -2032,7 +2017,7 @@ end;
-Procedure TSliceInfo.Setsegment(AIndex : Integer; AValue : TSliceInfoTypesegmentArray);
+Procedure TSliceInfo.Setsegment(AIndex : Integer; const AValue : TSliceInfoTypesegmentArray);
begin
If (Fsegment=AValue) then exit;
@@ -2102,7 +2087,7 @@ end;
-Procedure TSliceInput.SetmaxConnectionDuration(AIndex : Integer; AValue : integer);
+Procedure TSliceInput.SetmaxConnectionDuration(AIndex : Integer; const AValue : integer);
begin
If (FmaxConnectionDuration=AValue) then exit;
@@ -2112,7 +2097,7 @@ end;
-Procedure TSliceInput.SetmaxStops(AIndex : Integer; AValue : integer);
+Procedure TSliceInput.SetmaxStops(AIndex : Integer; const AValue : integer);
begin
If (FmaxStops=AValue) then exit;
@@ -2132,7 +2117,7 @@ end;
-Procedure TSliceInput.SetpermittedCarrier(AIndex : Integer; AValue : TStringArray);
+Procedure TSliceInput.SetpermittedCarrier(AIndex : Integer; const AValue : TStringArray);
begin
If (FpermittedCarrier=AValue) then exit;
@@ -2142,7 +2127,7 @@ end;
-Procedure TSliceInput.SetpermittedDepartureTime(AIndex : Integer; AValue : TTimeOfDayRange);
+Procedure TSliceInput.SetpermittedDepartureTime(AIndex : Integer; const AValue : TTimeOfDayRange);
begin
If (FpermittedDepartureTime=AValue) then exit;
@@ -2162,7 +2147,7 @@ end;
-Procedure TSliceInput.SetprohibitedCarrier(AIndex : Integer; AValue : TStringArray);
+Procedure TSliceInput.SetprohibitedCarrier(AIndex : Integer; const AValue : TStringArray);
begin
If (FprohibitedCarrier=AValue) then exit;
@@ -2354,7 +2339,7 @@ end;
-Procedure TTripOption.Setpricing(AIndex : Integer; AValue : TTripOptionTypepricingArray);
+Procedure TTripOption.Setpricing(AIndex : Integer; const AValue : TTripOptionTypepricingArray);
begin
If (Fpricing=AValue) then exit;
@@ -2374,7 +2359,7 @@ end;
-Procedure TTripOption.Setslice(AIndex : Integer; AValue : TTripOptionTypesliceArray);
+Procedure TTripOption.Setslice(AIndex : Integer; const AValue : TTripOptionTypesliceArray);
begin
If (Fslice=AValue) then exit;
@@ -2415,7 +2400,7 @@ end;
-Procedure TTripOptionsRequest.Setpassengers(AIndex : Integer; AValue : TPassengerCounts);
+Procedure TTripOptionsRequest.Setpassengers(AIndex : Integer; const AValue : TPassengerCounts);
begin
If (Fpassengers=AValue) then exit;
@@ -2425,7 +2410,7 @@ end;
-Procedure TTripOptionsRequest.Setrefundable(AIndex : Integer; AValue : boolean);
+Procedure TTripOptionsRequest.Setrefundable(AIndex : Integer; const AValue : boolean);
begin
If (Frefundable=AValue) then exit;
@@ -2445,7 +2430,7 @@ end;
-Procedure TTripOptionsRequest.Setslice(AIndex : Integer; AValue : TTripOptionsRequestTypesliceArray);
+Procedure TTripOptionsRequest.Setslice(AIndex : Integer; const AValue : TTripOptionsRequestTypesliceArray);
begin
If (Fslice=AValue) then exit;
@@ -2455,7 +2440,7 @@ end;
-Procedure TTripOptionsRequest.Setsolutions(AIndex : Integer; AValue : integer);
+Procedure TTripOptionsRequest.Setsolutions(AIndex : Integer; const AValue : integer);
begin
If (Fsolutions=AValue) then exit;
@@ -2485,7 +2470,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTripOptionsResponse.Setdata(AIndex : Integer; AValue : TData);
+Procedure TTripOptionsResponse.Setdata(AIndex : Integer; const AValue : TData);
begin
If (Fdata=AValue) then exit;
@@ -2515,7 +2500,7 @@ end;
-Procedure TTripOptionsResponse.SettripOption(AIndex : Integer; AValue : TTripOptionsResponseTypetripOptionArray);
+Procedure TTripOptionsResponse.SettripOption(AIndex : Integer; const AValue : TTripOptionsResponseTypetripOptionArray);
begin
If (FtripOption=AValue) then exit;
@@ -2545,7 +2530,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTripsSearchRequest.Setrequest(AIndex : Integer; AValue : TTripOptionsRequest);
+Procedure TTripsSearchRequest.Setrequest(AIndex : Integer; const AValue : TTripOptionsRequest);
begin
If (Frequest=AValue) then exit;
@@ -2572,7 +2557,7 @@ end;
-Procedure TTripsSearchResponse.Settrips(AIndex : Integer; AValue : TTripOptionsResponse);
+Procedure TTripsSearchResponse.Settrips(AIndex : Integer; const AValue : TTripOptionsResponse);
begin
If (Ftrips=AValue) then exit;
@@ -2633,7 +2618,7 @@ end;
Class Function TQpxExpressAPI.APIRevision : String;
begin
- Result:='20140321';
+ Result:='20160307';
end;
Class Function TQpxExpressAPI.APIID : String;
@@ -2651,7 +2636,7 @@ end;
Class Function TQpxExpressAPI.APIDescription : String;
begin
- Result:='Lets you find the least expensive flights between an origin and a destination.';
+ Result:='Finds the least expensive flights between an origin and a destination.';
end;
Class Function TQpxExpressAPI.APIOwnerDomain : String;
@@ -2687,7 +2672,7 @@ end;
Class Function TQpxExpressAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TQpxExpressAPI.APIbasePath : string;
@@ -2699,7 +2684,7 @@ end;
Class Function TQpxExpressAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/qpxExpress/v1/trips/';
+ Result:='https://www.googleapis.com/qpxExpress/v1/trips/';
end;
Class Function TQpxExpressAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlereplicapool.pp b/packages/googleapi/src/googlereplicapool.pp
index 57645a49df..d943ee090e 100644
--- a/packages/googleapi/src/googlereplicapool.pp
+++ b/packages/googleapi/src/googlereplicapool.pp
@@ -1,19 +1,4 @@
unit googlereplicapool;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:07
{$MODE objfpc}
{$H+}
@@ -33,6 +18,7 @@ type
TInstanceGroupManagersSetTargetPoolsRequest = Class;
TOperation = Class;
TOperationList = Class;
+ TReplicaPoolAutoHealingPolicy = Class;
TInstanceGroupManagerArray = Array of TInstanceGroupManager;
TInstanceGroupManagerListArray = Array of TInstanceGroupManagerList;
TInstanceGroupManagersAbandonInstancesRequestArray = Array of TInstanceGroupManagersAbandonInstancesRequest;
@@ -42,11 +28,13 @@ type
TInstanceGroupManagersSetTargetPoolsRequestArray = Array of TInstanceGroupManagersSetTargetPoolsRequest;
TOperationArray = Array of TOperation;
TOperationListArray = Array of TOperationList;
+ TReplicaPoolAutoHealingPolicyArray = Array of TReplicaPoolAutoHealingPolicy;
//Anonymous types, using auto-generated names
TOperationTypeerrorTypeerrorsItem = Class;
TOperationTypeerror = Class;
TOperationTypewarningsItemTypedataItem = Class;
TOperationTypewarningsItem = Class;
+ TInstanceGroupManagerTypeautoHealingPoliciesArray = Array of TReplicaPoolAutoHealingPolicy;
TInstanceGroupManagerListTypeitemsArray = Array of TInstanceGroupManager;
TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
@@ -59,6 +47,7 @@ type
TInstanceGroupManager = Class(TGoogleBaseObject)
Private
+ FautoHealingPolicies : TInstanceGroupManagerTypeautoHealingPoliciesArray;
FbaseInstanceName : String;
FcreationTimestamp : String;
FcurrentSize : integer;
@@ -74,9 +63,10 @@ type
FtargetSize : integer;
Protected
//Property setters
+ Procedure SetautoHealingPolicies(AIndex : Integer; const AValue : TInstanceGroupManagerTypeautoHealingPoliciesArray); virtual;
Procedure SetbaseInstanceName(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcurrentSize(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetcurrentSize(AIndex : Integer; const AValue : integer); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure Setgroup(AIndex : Integer; const AValue : String); virtual;
@@ -85,27 +75,28 @@ type
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettargetPools(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SettargetSize(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettargetPools(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SettargetSize(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 baseInstanceName : String Index 0 Read FbaseInstanceName Write SetbaseInstanceName;
- Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
- Property currentSize : integer Index 16 Read FcurrentSize Write SetcurrentSize;
- Property description : String Index 24 Read Fdescription Write Setdescription;
- Property fingerprint : String Index 32 Read Ffingerprint Write Setfingerprint;
- Property group : String Index 40 Read Fgroup Write Setgroup;
- Property id : String Index 48 Read Fid Write Setid;
- Property instanceTemplate : String Index 56 Read FinstanceTemplate Write SetinstanceTemplate;
- Property kind : String Index 64 Read Fkind Write Setkind;
- Property name : String Index 72 Read Fname Write Setname;
- Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
- Property targetPools : TStringArray Index 88 Read FtargetPools Write SettargetPools;
- Property targetSize : integer Index 96 Read FtargetSize Write SettargetSize;
+ Property autoHealingPolicies : TInstanceGroupManagerTypeautoHealingPoliciesArray Index 0 Read FautoHealingPolicies Write SetautoHealingPolicies;
+ Property baseInstanceName : String Index 8 Read FbaseInstanceName Write SetbaseInstanceName;
+ Property creationTimestamp : String Index 16 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property currentSize : integer Index 24 Read FcurrentSize Write SetcurrentSize;
+ Property description : String Index 32 Read Fdescription Write Setdescription;
+ Property fingerprint : String Index 40 Read Ffingerprint Write Setfingerprint;
+ Property group : String Index 48 Read Fgroup Write Setgroup;
+ Property id : String Index 56 Read Fid Write Setid;
+ Property instanceTemplate : String Index 64 Read FinstanceTemplate Write SetinstanceTemplate;
+ Property kind : String Index 72 Read Fkind Write Setkind;
+ Property name : String Index 80 Read Fname Write Setname;
+ Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
+ Property targetPools : TStringArray Index 96 Read FtargetPools Write SettargetPools;
+ Property targetSize : integer Index 104 Read FtargetSize Write SettargetSize;
end;
TInstanceGroupManagerClass = Class of TInstanceGroupManager;
@@ -123,7 +114,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TInstanceGroupManagerListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -150,7 +141,7 @@ type
Finstances : TStringArray;
Protected
//Property setters
- Procedure Setinstances(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -170,7 +161,7 @@ type
Finstances : TStringArray;
Protected
//Property setters
- Procedure Setinstances(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -190,7 +181,7 @@ type
Finstances : TStringArray;
Protected
//Property setters
- Procedure Setinstances(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -228,7 +219,7 @@ type
Protected
//Property setters
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure SettargetPools(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SettargetPools(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -271,7 +262,7 @@ type
Ferrors : TOperationTypeerrorTypeerrorsArray;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -313,7 +304,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -360,15 +351,15 @@ type
Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TOperationTypeerror); virtual;
Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
- Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
+ Procedure SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprogress(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
@@ -377,7 +368,7 @@ type
Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -424,7 +415,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -443,6 +434,25 @@ type
TOperationListClass = Class of TOperationList;
{ --------------------------------------------------------------------
+ TReplicaPoolAutoHealingPolicy
+ --------------------------------------------------------------------}
+
+ TReplicaPoolAutoHealingPolicy = Class(TGoogleBaseObject)
+ Private
+ FactionType : String;
+ FhealthCheck : String;
+ Protected
+ //Property setters
+ Procedure SetactionType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethealthCheck(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property actionType : String Index 0 Read FactionType Write SetactionType;
+ Property healthCheck : String Index 8 Read FhealthCheck Write SethealthCheck;
+ end;
+ TReplicaPoolAutoHealingPolicyClass = Class of TReplicaPoolAutoHealingPolicy;
+
+ { --------------------------------------------------------------------
TInstanceGroupManagersResource
--------------------------------------------------------------------}
@@ -562,6 +572,16 @@ implementation
--------------------------------------------------------------------}
+Procedure TInstanceGroupManager.SetautoHealingPolicies(AIndex : Integer; const AValue : TInstanceGroupManagerTypeautoHealingPoliciesArray);
+
+begin
+ If (FautoHealingPolicies=AValue) then exit;
+ FautoHealingPolicies:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TInstanceGroupManager.SetbaseInstanceName(AIndex : Integer; const AValue : String);
begin
@@ -582,7 +602,7 @@ end;
-Procedure TInstanceGroupManager.SetcurrentSize(AIndex : Integer; AValue : integer);
+Procedure TInstanceGroupManager.SetcurrentSize(AIndex : Integer; const AValue : integer);
begin
If (FcurrentSize=AValue) then exit;
@@ -672,7 +692,7 @@ end;
-Procedure TInstanceGroupManager.SettargetPools(AIndex : Integer; AValue : TStringArray);
+Procedure TInstanceGroupManager.SettargetPools(AIndex : Integer; const AValue : TStringArray);
begin
If (FtargetPools=AValue) then exit;
@@ -682,7 +702,7 @@ end;
-Procedure TInstanceGroupManager.SettargetSize(AIndex : Integer; AValue : integer);
+Procedure TInstanceGroupManager.SettargetSize(AIndex : Integer; const AValue : integer);
begin
If (FtargetSize=AValue) then exit;
@@ -697,6 +717,7 @@ Procedure TInstanceGroupManager.SetArrayLength(Const AName : String; ALength : L
begin
Case AName of
+ 'autohealingpolicies' : SetLength(FautoHealingPolicies,ALength);
'targetpools' : SetLength(FtargetPools,ALength);
else
Inherited SetArrayLength(AName,ALength);
@@ -722,7 +743,7 @@ end;
-Procedure TInstanceGroupManagerList.Setitems(AIndex : Integer; AValue : TInstanceGroupManagerListTypeitemsArray);
+Procedure TInstanceGroupManagerList.Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -782,7 +803,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstanceGroupManagersAbandonInstancesRequest.Setinstances(AIndex : Integer; AValue : TStringArray);
+Procedure TInstanceGroupManagersAbandonInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
begin
If (Finstances=AValue) then exit;
@@ -812,7 +833,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstanceGroupManagersDeleteInstancesRequest.Setinstances(AIndex : Integer; AValue : TStringArray);
+Procedure TInstanceGroupManagersDeleteInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
begin
If (Finstances=AValue) then exit;
@@ -842,7 +863,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstanceGroupManagersRecreateInstancesRequest.Setinstances(AIndex : Integer; AValue : TStringArray);
+Procedure TInstanceGroupManagersRecreateInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
begin
If (Finstances=AValue) then exit;
@@ -899,7 +920,7 @@ end;
-Procedure TInstanceGroupManagersSetTargetPoolsRequest.SettargetPools(AIndex : Integer; AValue : TStringArray);
+Procedure TInstanceGroupManagersSetTargetPoolsRequest.SettargetPools(AIndex : Integer; const AValue : TStringArray);
begin
If (FtargetPools=AValue) then exit;
@@ -966,7 +987,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOperationTypeerror.Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray);
+Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -1033,7 +1054,7 @@ end;
-Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray);
+Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -1103,7 +1124,7 @@ end;
-Procedure TOperation.Seterror(AIndex : Integer; AValue : TOperationTypeerror);
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror);
begin
If (Ferror=AValue) then exit;
@@ -1123,7 +1144,7 @@ end;
-Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; AValue : integer);
+Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer);
begin
If (FhttpErrorStatusCode=AValue) then exit;
@@ -1183,7 +1204,7 @@ end;
-Procedure TOperation.Setprogress(AIndex : Integer; AValue : integer);
+Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer);
begin
If (Fprogress=AValue) then exit;
@@ -1273,7 +1294,7 @@ end;
-Procedure TOperation.Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray);
+Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
@@ -1323,7 +1344,7 @@ end;
-Procedure TOperationList.Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray);
+Procedure TOperationList.Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1379,6 +1400,33 @@ end;
{ --------------------------------------------------------------------
+ TReplicaPoolAutoHealingPolicy
+ --------------------------------------------------------------------}
+
+
+Procedure TReplicaPoolAutoHealingPolicy.SetactionType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FactionType=AValue) then exit;
+ FactionType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReplicaPoolAutoHealingPolicy.SethealthCheck(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhealthCheck=AValue) then exit;
+ FhealthCheck:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TInstanceGroupManagersResource
--------------------------------------------------------------------}
@@ -1667,7 +1715,7 @@ end;
Class Function TReplicapoolAPI.APIRevision : String;
begin
- Result:='20150223';
+ Result:='20160509';
end;
Class Function TReplicapoolAPI.APIID : String;
@@ -1685,7 +1733,7 @@ end;
Class Function TReplicapoolAPI.APIDescription : String;
begin
- Result:='The Google Compute Engine Instance Group Manager API provides groups of homogenous Compute Engine Instances.';
+ Result:='[Deprecated. Please use Instance Group Manager in Compute API] Provides groups of homogenous Compute Engine instances.';
end;
Class Function TReplicapoolAPI.APIOwnerDomain : String;
@@ -1721,7 +1769,7 @@ end;
Class Function TReplicapoolAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TReplicapoolAPI.APIbasePath : string;
@@ -1733,7 +1781,7 @@ end;
Class Function TReplicapoolAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/replicapool/v1beta2/projects/';
+ Result:='https://www.googleapis.com/replicapool/v1beta2/projects/';
end;
Class Function TReplicapoolAPI.APIProtocol : string;
@@ -1757,13 +1805,15 @@ end;
Class Function TReplicapoolAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,3);
+ SetLength(Result,4);
Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[0].Description:='View and manage your data across Google Cloud Platform services';
- Result[1].Name:='https://www.googleapis.com/auth/compute';
- Result[1].Description:='View and manage your Google Compute Engine resources';
- Result[2].Name:='https://www.googleapis.com/auth/compute.readonly';
- Result[2].Description:='View your Google Compute Engine resources';
+ Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
+ Result[1].Description:='View your data across Google Cloud Platform services';
+ Result[2].Name:='https://www.googleapis.com/auth/compute';
+ Result[2].Description:='View and manage your Google Compute Engine resources';
+ Result[3].Name:='https://www.googleapis.com/auth/compute.readonly';
+ Result[3].Description:='View your Google Compute Engine resources';
end;
@@ -1789,6 +1839,7 @@ begin
TOperationTypewarningsItem.RegisterObject;
TOperation.RegisterObject;
TOperationList.RegisterObject;
+ TReplicaPoolAutoHealingPolicy.RegisterObject;
end;
diff --git a/packages/googleapi/src/googlereplicapoolupdater.pp b/packages/googleapi/src/googlereplicapoolupdater.pp
index da98a517d3..7edc924cee 100644
--- a/packages/googleapi/src/googlereplicapoolupdater.pp
+++ b/packages/googleapi/src/googlereplicapoolupdater.pp
@@ -1,19 +1,4 @@
unit googlereplicapoolupdater;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:07
{$MODE objfpc}
{$H+}
@@ -27,11 +12,13 @@ type
TInstanceUpdate = Class;
TInstanceUpdateList = Class;
TOperation = Class;
+ TOperationList = Class;
TRollingUpdate = Class;
TRollingUpdateList = Class;
TInstanceUpdateArray = Array of TInstanceUpdate;
TInstanceUpdateListArray = Array of TInstanceUpdateList;
TOperationArray = Array of TOperation;
+ TOperationListArray = Array of TOperationList;
TRollingUpdateArray = Array of TRollingUpdate;
TRollingUpdateListArray = Array of TRollingUpdateList;
//Anonymous types, using auto-generated names
@@ -49,6 +36,7 @@ type
TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
TOperationTypewarningsArray = Array of TOperationTypewarningsItem;
+ TOperationListTypeitemsArray = Array of TOperation;
TRollingUpdateTypeerrorTypeerrorsArray = Array of TRollingUpdateTypeerrorTypeerrorsItem;
TRollingUpdateListTypeitemsArray = Array of TRollingUpdate;
@@ -83,7 +71,7 @@ type
Ferrors : TInstanceUpdateTypeerrorTypeerrorsArray;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TInstanceUpdateTypeerrorTypeerrorsArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TInstanceUpdateTypeerrorTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -105,7 +93,7 @@ type
Fstatus : String;
Protected
//Property setters
- Procedure Seterror(AIndex : Integer; AValue : TInstanceUpdateTypeerror); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TInstanceUpdateTypeerror); virtual;
Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Public
@@ -128,7 +116,7 @@ type
FselfLink : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TInstanceUpdateListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInstanceUpdateListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -176,7 +164,7 @@ type
Ferrors : TOperationTypeerrorTypeerrorsArray;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -218,7 +206,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -265,15 +253,15 @@ type
Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TOperationTypeerror); virtual;
Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
- Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
+ Procedure SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprogress(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
@@ -282,7 +270,7 @@ type
Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -316,6 +304,38 @@ type
TOperationClass = Class of TOperation;
{ --------------------------------------------------------------------
+ TOperationList
+ --------------------------------------------------------------------}
+
+ TOperationList = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fitems : TOperationListTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FselfLink : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property items : TOperationListTypeitemsArray Index 8 Read Fitems Write Setitems;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
+ Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
+ end;
+ TOperationListClass = Class of TOperationList;
+
+ { --------------------------------------------------------------------
TRollingUpdateTypeerrorTypeerrorsItem
--------------------------------------------------------------------}
@@ -346,7 +366,7 @@ type
Ferrors : TRollingUpdateTypeerrorTypeerrorsArray;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TRollingUpdateTypeerrorTypeerrorsArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TRollingUpdateTypeerrorTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -370,11 +390,11 @@ type
FminInstanceUpdateTimeSec : integer;
Protected
//Property setters
- Procedure SetautoPauseAfterInstances(AIndex : Integer; AValue : integer); virtual;
- Procedure SetinstanceStartupTimeoutSec(AIndex : Integer; AValue : integer); virtual;
- Procedure SetmaxNumConcurrentInstances(AIndex : Integer; AValue : integer); virtual;
- Procedure SetmaxNumFailedInstances(AIndex : Integer; AValue : integer); virtual;
- Procedure SetminInstanceUpdateTimeSec(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetautoPauseAfterInstances(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetinstanceStartupTimeoutSec(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaxNumConcurrentInstances(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaxNumFailedInstances(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetminInstanceUpdateTimeSec(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property autoPauseAfterInstances : integer Index 0 Read FautoPauseAfterInstances Write SetautoPauseAfterInstances;
@@ -400,6 +420,7 @@ type
FinstanceGroupManager : String;
FinstanceTemplate : String;
Fkind : String;
+ FoldInstanceTemplate : String;
Fpolicy : TRollingUpdateTypepolicy;
Fprogress : integer;
FselfLink : String;
@@ -411,14 +432,15 @@ type
Procedure SetactionType(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterror(AIndex : Integer; AValue : TRollingUpdateTypeerror); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TRollingUpdateTypeerror); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinstanceGroup(AIndex : Integer; const AValue : String); virtual;
Procedure SetinstanceGroupManager(AIndex : Integer; const AValue : String); virtual;
Procedure SetinstanceTemplate(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpolicy(AIndex : Integer; AValue : TRollingUpdateTypepolicy); virtual;
- Procedure Setprogress(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetoldInstanceTemplate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpolicy(AIndex : Integer; const AValue : TRollingUpdateTypepolicy); virtual;
+ Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
@@ -434,12 +456,13 @@ type
Property instanceGroupManager : String Index 48 Read FinstanceGroupManager Write SetinstanceGroupManager;
Property instanceTemplate : String Index 56 Read FinstanceTemplate Write SetinstanceTemplate;
Property kind : String Index 64 Read Fkind Write Setkind;
- Property policy : TRollingUpdateTypepolicy Index 72 Read Fpolicy Write Setpolicy;
- Property progress : integer Index 80 Read Fprogress Write Setprogress;
- Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
- Property status : String Index 96 Read Fstatus Write Setstatus;
- Property statusMessage : String Index 104 Read FstatusMessage Write SetstatusMessage;
- Property user : String Index 112 Read Fuser Write Setuser;
+ Property oldInstanceTemplate : String Index 72 Read FoldInstanceTemplate Write SetoldInstanceTemplate;
+ Property policy : TRollingUpdateTypepolicy Index 80 Read Fpolicy Write Setpolicy;
+ Property progress : integer Index 88 Read Fprogress Write Setprogress;
+ Property selfLink : String Index 96 Read FselfLink Write SetselfLink;
+ Property status : String Index 104 Read Fstatus Write Setstatus;
+ Property statusMessage : String Index 112 Read FstatusMessage Write SetstatusMessage;
+ Property user : String Index 120 Read Fuser Write Setuser;
end;
TRollingUpdateClass = Class of TRollingUpdate;
@@ -455,7 +478,7 @@ type
FselfLink : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TRollingUpdateListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TRollingUpdateListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -481,7 +504,6 @@ type
TRollingUpdatesListOptions = Record
filter : String;
- instanceGroupManager : String;
maxResults : integer;
pageToken : String;
end;
@@ -516,11 +538,22 @@ type
TZoneOperationsResource
--------------------------------------------------------------------}
+
+ //Optional query Options for TZoneOperationsResource, method List
+
+ TZoneOperationsListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ end;
+
TZoneOperationsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Get(operation: string; project: string; zone: string) : TOperation;
+ Function List(project: string; zone: string; AQuery : string = '') : TOperationList;
+ Function List(project: string; zone: string; AQuery : TZoneOperationslistOptions) : TOperationList;
end;
@@ -611,7 +644,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstanceUpdateTypeerror.Seterrors(AIndex : Integer; AValue : TInstanceUpdateTypeerrorTypeerrorsArray);
+Procedure TInstanceUpdateTypeerror.Seterrors(AIndex : Integer; const AValue : TInstanceUpdateTypeerrorTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -641,7 +674,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstanceUpdate.Seterror(AIndex : Integer; AValue : TInstanceUpdateTypeerror);
+Procedure TInstanceUpdate.Seterror(AIndex : Integer; const AValue : TInstanceUpdateTypeerror);
begin
If (Ferror=AValue) then exit;
@@ -678,7 +711,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstanceUpdateList.Setitems(AIndex : Integer; AValue : TInstanceUpdateListTypeitemsArray);
+Procedure TInstanceUpdateList.Setitems(AIndex : Integer; const AValue : TInstanceUpdateListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -775,7 +808,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOperationTypeerror.Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray);
+Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -842,7 +875,7 @@ end;
-Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray);
+Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -912,7 +945,7 @@ end;
-Procedure TOperation.Seterror(AIndex : Integer; AValue : TOperationTypeerror);
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror);
begin
If (Ferror=AValue) then exit;
@@ -932,7 +965,7 @@ end;
-Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; AValue : integer);
+Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer);
begin
If (FhttpErrorStatusCode=AValue) then exit;
@@ -992,7 +1025,7 @@ end;
-Procedure TOperation.Setprogress(AIndex : Integer; AValue : integer);
+Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer);
begin
If (Fprogress=AValue) then exit;
@@ -1082,7 +1115,7 @@ end;
-Procedure TOperation.Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray);
+Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
@@ -1118,6 +1151,76 @@ end;
{ --------------------------------------------------------------------
+ TOperationList
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationList.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationList.Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationList.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationList.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationList.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperationList.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TRollingUpdateTypeerrorTypeerrorsItem
--------------------------------------------------------------------}
@@ -1159,7 +1262,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRollingUpdateTypeerror.Seterrors(AIndex : Integer; AValue : TRollingUpdateTypeerrorTypeerrorsArray);
+Procedure TRollingUpdateTypeerror.Seterrors(AIndex : Integer; const AValue : TRollingUpdateTypeerrorTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -1189,7 +1292,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRollingUpdateTypepolicy.SetautoPauseAfterInstances(AIndex : Integer; AValue : integer);
+Procedure TRollingUpdateTypepolicy.SetautoPauseAfterInstances(AIndex : Integer; const AValue : integer);
begin
If (FautoPauseAfterInstances=AValue) then exit;
@@ -1199,7 +1302,7 @@ end;
-Procedure TRollingUpdateTypepolicy.SetinstanceStartupTimeoutSec(AIndex : Integer; AValue : integer);
+Procedure TRollingUpdateTypepolicy.SetinstanceStartupTimeoutSec(AIndex : Integer; const AValue : integer);
begin
If (FinstanceStartupTimeoutSec=AValue) then exit;
@@ -1209,7 +1312,7 @@ end;
-Procedure TRollingUpdateTypepolicy.SetmaxNumConcurrentInstances(AIndex : Integer; AValue : integer);
+Procedure TRollingUpdateTypepolicy.SetmaxNumConcurrentInstances(AIndex : Integer; const AValue : integer);
begin
If (FmaxNumConcurrentInstances=AValue) then exit;
@@ -1219,7 +1322,7 @@ end;
-Procedure TRollingUpdateTypepolicy.SetmaxNumFailedInstances(AIndex : Integer; AValue : integer);
+Procedure TRollingUpdateTypepolicy.SetmaxNumFailedInstances(AIndex : Integer; const AValue : integer);
begin
If (FmaxNumFailedInstances=AValue) then exit;
@@ -1229,7 +1332,7 @@ end;
-Procedure TRollingUpdateTypepolicy.SetminInstanceUpdateTimeSec(AIndex : Integer; AValue : integer);
+Procedure TRollingUpdateTypepolicy.SetminInstanceUpdateTimeSec(AIndex : Integer; const AValue : integer);
begin
If (FminInstanceUpdateTimeSec=AValue) then exit;
@@ -1276,7 +1379,7 @@ end;
-Procedure TRollingUpdate.Seterror(AIndex : Integer; AValue : TRollingUpdateTypeerror);
+Procedure TRollingUpdate.Seterror(AIndex : Integer; const AValue : TRollingUpdateTypeerror);
begin
If (Ferror=AValue) then exit;
@@ -1336,7 +1439,17 @@ end;
-Procedure TRollingUpdate.Setpolicy(AIndex : Integer; AValue : TRollingUpdateTypepolicy);
+Procedure TRollingUpdate.SetoldInstanceTemplate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoldInstanceTemplate=AValue) then exit;
+ FoldInstanceTemplate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRollingUpdate.Setpolicy(AIndex : Integer; const AValue : TRollingUpdateTypepolicy);
begin
If (Fpolicy=AValue) then exit;
@@ -1346,7 +1459,7 @@ end;
-Procedure TRollingUpdate.Setprogress(AIndex : Integer; AValue : integer);
+Procedure TRollingUpdate.Setprogress(AIndex : Integer; const AValue : integer);
begin
If (Fprogress=AValue) then exit;
@@ -1403,7 +1516,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRollingUpdateList.Setitems(AIndex : Integer; AValue : TRollingUpdateListTypeitemsArray);
+Procedure TRollingUpdateList.Setitems(AIndex : Integer; const AValue : TRollingUpdateListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1544,7 +1657,6 @@ Var
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
- AddToQuery(_Q,'instanceGroupManager',AQuery.instanceGroupManager);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,zone,_Q);
@@ -1658,6 +1770,35 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
+Function TZoneOperationsResource.List(project: string; zone: string; AQuery : string = '') : TOperationList;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/zones/{zone}/operations';
+ _Methodid = 'replicapoolupdater.zoneOperations.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project,'zone',zone]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationList) as TOperationList;
+end;
+
+
+Function TZoneOperationsResource.List(project: string; zone: string; AQuery : TZoneOperationslistOptions) : TOperationList;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,zone,_Q);
+end;
+
{ --------------------------------------------------------------------
@@ -1679,7 +1820,7 @@ end;
Class Function TReplicapoolupdaterAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160229';
end;
Class Function TReplicapoolupdaterAPI.APIID : String;
@@ -1697,7 +1838,7 @@ end;
Class Function TReplicapoolupdaterAPI.APIDescription : String;
begin
- Result:='The Google Compute Engine Instance Group Updater API provides services for updating groups of Compute Engine Instances.';
+ Result:='Updates groups of Compute Engine instances.';
end;
Class Function TReplicapoolupdaterAPI.APIOwnerDomain : String;
@@ -1733,7 +1874,7 @@ end;
Class Function TReplicapoolupdaterAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TReplicapoolupdaterAPI.APIbasePath : string;
@@ -1745,7 +1886,7 @@ end;
Class Function TReplicapoolupdaterAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/replicapoolupdater/v1beta1/projects/';
+ Result:='https://www.googleapis.com/replicapoolupdater/v1beta1/projects/';
end;
Class Function TReplicapoolupdaterAPI.APIProtocol : string;
@@ -1769,13 +1910,15 @@ end;
Class Function TReplicapoolupdaterAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,3);
+ SetLength(Result,4);
Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[0].Description:='View and manage your data across Google Cloud Platform services';
- Result[1].Name:='https://www.googleapis.com/auth/replicapool';
- Result[1].Description:='View and manage replica pools';
- Result[2].Name:='https://www.googleapis.com/auth/replicapool.readonly';
- Result[2].Description:='View replica pools';
+ Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
+ Result[1].Description:='View your data across Google Cloud Platform services';
+ Result[2].Name:='https://www.googleapis.com/auth/replicapool';
+ Result[2].Description:='View and manage replica pools';
+ Result[3].Name:='https://www.googleapis.com/auth/replicapool.readonly';
+ Result[3].Description:='View replica pools';
end;
@@ -1797,6 +1940,7 @@ begin
TOperationTypewarningsItemTypedataItem.RegisterObject;
TOperationTypewarningsItem.RegisterObject;
TOperation.RegisterObject;
+ TOperationList.RegisterObject;
TRollingUpdateTypeerrorTypeerrorsItem.RegisterObject;
TRollingUpdateTypeerror.RegisterObject;
TRollingUpdateTypepolicy.RegisterObject;
diff --git a/packages/googleapi/src/googlereseller.pp b/packages/googleapi/src/googlereseller.pp
index a83384e8bd..8e3cb19c29 100644
--- a/packages/googleapi/src/googlereseller.pp
+++ b/packages/googleapi/src/googlereseller.pp
@@ -1,19 +1,4 @@
unit googlereseller;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:07
{$MODE objfpc}
{$H+}
@@ -94,22 +79,25 @@ type
TChangePlanRequest = Class(TGoogleBaseObject)
Private
+ FdealCode : String;
Fkind : String;
FplanName : String;
FpurchaseOrderId : String;
Fseats : TSeats;
Protected
//Property setters
+ Procedure SetdealCode(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetplanName(AIndex : Integer; const AValue : String); virtual;
Procedure SetpurchaseOrderId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setseats(AIndex : Integer; AValue : TSeats); virtual;
+ Procedure Setseats(AIndex : Integer; const AValue : TSeats); virtual;
Public
Published
- Property kind : String Index 0 Read Fkind Write Setkind;
- Property planName : String Index 8 Read FplanName Write SetplanName;
- Property purchaseOrderId : String Index 16 Read FpurchaseOrderId Write SetpurchaseOrderId;
- Property seats : TSeats Index 24 Read Fseats Write Setseats;
+ Property dealCode : String Index 0 Read FdealCode Write SetdealCode;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property planName : String Index 16 Read FplanName Write SetplanName;
+ Property purchaseOrderId : String Index 24 Read FpurchaseOrderId Write SetpurchaseOrderId;
+ Property seats : TSeats Index 32 Read Fseats Write Setseats;
end;
TChangePlanRequestClass = Class of TChangePlanRequest;
@@ -121,6 +109,7 @@ type
Private
FalternateEmail : String;
FcustomerDomain : String;
+ FcustomerDomainVerified : boolean;
FcustomerId : String;
Fkind : String;
FphoneNumber : String;
@@ -130,20 +119,22 @@ type
//Property setters
Procedure SetalternateEmail(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomerDomain(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcustomerDomainVerified(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcustomerId(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetphoneNumber(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpostalAddress(AIndex : Integer; AValue : TAddress); virtual;
+ Procedure SetpostalAddress(AIndex : Integer; const AValue : TAddress); virtual;
Procedure SetresourceUiUrl(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property alternateEmail : String Index 0 Read FalternateEmail Write SetalternateEmail;
Property customerDomain : String Index 8 Read FcustomerDomain Write SetcustomerDomain;
- Property customerId : String Index 16 Read FcustomerId Write SetcustomerId;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property phoneNumber : String Index 32 Read FphoneNumber Write SetphoneNumber;
- Property postalAddress : TAddress Index 40 Read FpostalAddress Write SetpostalAddress;
- Property resourceUiUrl : String Index 48 Read FresourceUiUrl Write SetresourceUiUrl;
+ Property customerDomainVerified : boolean Index 16 Read FcustomerDomainVerified Write SetcustomerDomainVerified;
+ Property customerId : String Index 24 Read FcustomerId Write SetcustomerId;
+ Property kind : String Index 32 Read Fkind Write Setkind;
+ Property phoneNumber : String Index 40 Read FphoneNumber Write SetphoneNumber;
+ Property postalAddress : TAddress Index 48 Read FpostalAddress Write SetpostalAddress;
+ Property resourceUiUrl : String Index 56 Read FresourceUiUrl Write SetresourceUiUrl;
end;
TCustomerClass = Class of TCustomer;
@@ -179,9 +170,9 @@ type
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlicensedNumberOfSeats(AIndex : Integer; AValue : integer); virtual;
- Procedure SetmaximumNumberOfSeats(AIndex : Integer; AValue : integer); virtual;
- Procedure SetnumberOfSeats(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetlicensedNumberOfSeats(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaximumNumberOfSeats(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumberOfSeats(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
@@ -221,8 +212,8 @@ type
FplanName : String;
Protected
//Property setters
- Procedure SetcommitmentInterval(AIndex : Integer; AValue : TSubscriptionTypeplanTypecommitmentInterval); virtual;
- Procedure SetisCommitmentPlan(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcommitmentInterval(AIndex : Integer; const AValue : TSubscriptionTypeplanTypecommitmentInterval); virtual;
+ Procedure SetisCommitmentPlan(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetplanName(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -242,7 +233,7 @@ type
FtransferabilityExpirationTime : String;
Protected
//Property setters
- Procedure SetminimumTransferableSeats(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetminimumTransferableSeats(AIndex : Integer; const AValue : integer); virtual;
Procedure SettransferabilityExpirationTime(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -261,7 +252,7 @@ type
FtrialEndTime : String;
Protected
//Property setters
- Procedure SetisInTrial(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisInTrial(AIndex : Integer; const AValue : boolean); virtual;
Procedure SettrialEndTime(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -278,7 +269,9 @@ type
Private
FbillingMethod : String;
FcreationTime : String;
+ FcustomerDomain : String;
FcustomerId : String;
+ FdealCode : String;
Fkind : String;
Fplan : TSubscriptionTypeplan;
FpurchaseOrderId : String;
@@ -288,40 +281,51 @@ type
FskuId : String;
Fstatus : String;
FsubscriptionId : String;
+ FsuspensionReasons : TStringArray;
FtransferInfo : TSubscriptionTypetransferInfo;
FtrialSettings : TSubscriptionTypetrialSettings;
Protected
//Property setters
Procedure SetbillingMethod(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcustomerDomain(AIndex : Integer; const AValue : String); virtual;
Procedure SetcustomerId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdealCode(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplan(AIndex : Integer; AValue : TSubscriptionTypeplan); virtual;
+ Procedure Setplan(AIndex : Integer; const AValue : TSubscriptionTypeplan); virtual;
Procedure SetpurchaseOrderId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrenewalSettings(AIndex : Integer; AValue : TRenewalSettings); virtual;
+ Procedure SetrenewalSettings(AIndex : Integer; const AValue : TRenewalSettings); virtual;
Procedure SetresourceUiUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setseats(AIndex : Integer; AValue : TSeats); virtual;
+ Procedure Setseats(AIndex : Integer; const AValue : TSeats); virtual;
Procedure SetskuId(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetsubscriptionId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettransferInfo(AIndex : Integer; AValue : TSubscriptionTypetransferInfo); virtual;
- Procedure SettrialSettings(AIndex : Integer; AValue : TSubscriptionTypetrialSettings); virtual;
+ Procedure SetsuspensionReasons(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SettransferInfo(AIndex : Integer; const AValue : TSubscriptionTypetransferInfo); virtual;
+ Procedure SettrialSettings(AIndex : Integer; const AValue : TSubscriptionTypetrialSettings); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
Public
Published
Property billingMethod : String Index 0 Read FbillingMethod Write SetbillingMethod;
Property creationTime : String Index 8 Read FcreationTime Write SetcreationTime;
- Property customerId : String Index 16 Read FcustomerId Write SetcustomerId;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property plan : TSubscriptionTypeplan Index 32 Read Fplan Write Setplan;
- Property purchaseOrderId : String Index 40 Read FpurchaseOrderId Write SetpurchaseOrderId;
- Property renewalSettings : TRenewalSettings Index 48 Read FrenewalSettings Write SetrenewalSettings;
- Property resourceUiUrl : String Index 56 Read FresourceUiUrl Write SetresourceUiUrl;
- Property seats : TSeats Index 64 Read Fseats Write Setseats;
- Property skuId : String Index 72 Read FskuId Write SetskuId;
- Property status : String Index 80 Read Fstatus Write Setstatus;
- Property subscriptionId : String Index 88 Read FsubscriptionId Write SetsubscriptionId;
- Property transferInfo : TSubscriptionTypetransferInfo Index 96 Read FtransferInfo Write SettransferInfo;
- Property trialSettings : TSubscriptionTypetrialSettings Index 104 Read FtrialSettings Write SettrialSettings;
+ Property customerDomain : String Index 16 Read FcustomerDomain Write SetcustomerDomain;
+ Property customerId : String Index 24 Read FcustomerId Write SetcustomerId;
+ Property dealCode : String Index 32 Read FdealCode Write SetdealCode;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property plan : TSubscriptionTypeplan Index 48 Read Fplan Write Setplan;
+ Property purchaseOrderId : String Index 56 Read FpurchaseOrderId Write SetpurchaseOrderId;
+ Property renewalSettings : TRenewalSettings Index 64 Read FrenewalSettings Write SetrenewalSettings;
+ Property resourceUiUrl : String Index 72 Read FresourceUiUrl Write SetresourceUiUrl;
+ Property seats : TSeats Index 80 Read Fseats Write Setseats;
+ Property skuId : String Index 88 Read FskuId Write SetskuId;
+ Property status : String Index 96 Read Fstatus Write Setstatus;
+ Property subscriptionId : String Index 104 Read FsubscriptionId Write SetsubscriptionId;
+ Property suspensionReasons : TStringArray Index 112 Read FsuspensionReasons Write SetsuspensionReasons;
+ Property transferInfo : TSubscriptionTypetransferInfo Index 120 Read FtransferInfo Write SettransferInfo;
+ Property trialSettings : TSubscriptionTypetrialSettings Index 128 Read FtrialSettings Write SettrialSettings;
end;
TSubscriptionClass = Class of TSubscription;
@@ -338,7 +342,7 @@ type
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsubscriptions(AIndex : Integer; AValue : TSubscriptionsTypesubscriptionsArray); virtual;
+ Procedure Setsubscriptions(AIndex : Integer; const AValue : TSubscriptionsTypesubscriptionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -580,6 +584,16 @@ end;
--------------------------------------------------------------------}
+Procedure TChangePlanRequest.SetdealCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdealCode=AValue) then exit;
+ FdealCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TChangePlanRequest.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -610,7 +624,7 @@ end;
-Procedure TChangePlanRequest.Setseats(AIndex : Integer; AValue : TSeats);
+Procedure TChangePlanRequest.Setseats(AIndex : Integer; const AValue : TSeats);
begin
If (Fseats=AValue) then exit;
@@ -647,6 +661,16 @@ end;
+Procedure TCustomer.SetcustomerDomainVerified(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FcustomerDomainVerified=AValue) then exit;
+ FcustomerDomainVerified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TCustomer.SetcustomerId(AIndex : Integer; const AValue : String);
begin
@@ -677,7 +701,7 @@ end;
-Procedure TCustomer.SetpostalAddress(AIndex : Integer; AValue : TAddress);
+Procedure TCustomer.SetpostalAddress(AIndex : Integer; const AValue : TAddress);
begin
If (FpostalAddress=AValue) then exit;
@@ -741,7 +765,7 @@ end;
-Procedure TSeats.SetlicensedNumberOfSeats(AIndex : Integer; AValue : integer);
+Procedure TSeats.SetlicensedNumberOfSeats(AIndex : Integer; const AValue : integer);
begin
If (FlicensedNumberOfSeats=AValue) then exit;
@@ -751,7 +775,7 @@ end;
-Procedure TSeats.SetmaximumNumberOfSeats(AIndex : Integer; AValue : integer);
+Procedure TSeats.SetmaximumNumberOfSeats(AIndex : Integer; const AValue : integer);
begin
If (FmaximumNumberOfSeats=AValue) then exit;
@@ -761,7 +785,7 @@ end;
-Procedure TSeats.SetnumberOfSeats(AIndex : Integer; AValue : integer);
+Procedure TSeats.SetnumberOfSeats(AIndex : Integer; const AValue : integer);
begin
If (FnumberOfSeats=AValue) then exit;
@@ -805,7 +829,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSubscriptionTypeplan.SetcommitmentInterval(AIndex : Integer; AValue : TSubscriptionTypeplanTypecommitmentInterval);
+Procedure TSubscriptionTypeplan.SetcommitmentInterval(AIndex : Integer; const AValue : TSubscriptionTypeplanTypecommitmentInterval);
begin
If (FcommitmentInterval=AValue) then exit;
@@ -815,7 +839,7 @@ end;
-Procedure TSubscriptionTypeplan.SetisCommitmentPlan(AIndex : Integer; AValue : boolean);
+Procedure TSubscriptionTypeplan.SetisCommitmentPlan(AIndex : Integer; const AValue : boolean);
begin
If (FisCommitmentPlan=AValue) then exit;
@@ -842,7 +866,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSubscriptionTypetransferInfo.SetminimumTransferableSeats(AIndex : Integer; AValue : integer);
+Procedure TSubscriptionTypetransferInfo.SetminimumTransferableSeats(AIndex : Integer; const AValue : integer);
begin
If (FminimumTransferableSeats=AValue) then exit;
@@ -869,7 +893,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSubscriptionTypetrialSettings.SetisInTrial(AIndex : Integer; AValue : boolean);
+Procedure TSubscriptionTypetrialSettings.SetisInTrial(AIndex : Integer; const AValue : boolean);
begin
If (FisInTrial=AValue) then exit;
@@ -916,6 +940,16 @@ end;
+Procedure TSubscription.SetcustomerDomain(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcustomerDomain=AValue) then exit;
+ FcustomerDomain:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TSubscription.SetcustomerId(AIndex : Integer; const AValue : String);
begin
@@ -926,6 +960,16 @@ end;
+Procedure TSubscription.SetdealCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdealCode=AValue) then exit;
+ FdealCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TSubscription.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -936,7 +980,7 @@ end;
-Procedure TSubscription.Setplan(AIndex : Integer; AValue : TSubscriptionTypeplan);
+Procedure TSubscription.Setplan(AIndex : Integer; const AValue : TSubscriptionTypeplan);
begin
If (Fplan=AValue) then exit;
@@ -956,7 +1000,7 @@ end;
-Procedure TSubscription.SetrenewalSettings(AIndex : Integer; AValue : TRenewalSettings);
+Procedure TSubscription.SetrenewalSettings(AIndex : Integer; const AValue : TRenewalSettings);
begin
If (FrenewalSettings=AValue) then exit;
@@ -976,7 +1020,7 @@ end;
-Procedure TSubscription.Setseats(AIndex : Integer; AValue : TSeats);
+Procedure TSubscription.Setseats(AIndex : Integer; const AValue : TSeats);
begin
If (Fseats=AValue) then exit;
@@ -1016,7 +1060,17 @@ end;
-Procedure TSubscription.SettransferInfo(AIndex : Integer; AValue : TSubscriptionTypetransferInfo);
+Procedure TSubscription.SetsuspensionReasons(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FsuspensionReasons=AValue) then exit;
+ FsuspensionReasons:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSubscription.SettransferInfo(AIndex : Integer; const AValue : TSubscriptionTypetransferInfo);
begin
If (FtransferInfo=AValue) then exit;
@@ -1026,7 +1080,7 @@ end;
-Procedure TSubscription.SettrialSettings(AIndex : Integer; AValue : TSubscriptionTypetrialSettings);
+Procedure TSubscription.SettrialSettings(AIndex : Integer; const AValue : TSubscriptionTypetrialSettings);
begin
If (FtrialSettings=AValue) then exit;
@@ -1035,6 +1089,19 @@ begin
end;
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSubscription.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'suspensionreasons' : SetLength(FsuspensionReasons,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
@@ -1063,7 +1130,7 @@ end;
-Procedure TSubscriptions.Setsubscriptions(AIndex : Integer; AValue : TSubscriptionsTypesubscriptionsArray);
+Procedure TSubscriptions.Setsubscriptions(AIndex : Integer; const AValue : TSubscriptionsTypesubscriptionsArray);
begin
If (Fsubscriptions=AValue) then exit;
@@ -1399,7 +1466,7 @@ end;
Class Function TResellerAPI.APIRevision : String;
begin
- Result:='20141112';
+ Result:='20160329';
end;
Class Function TResellerAPI.APIID : String;
@@ -1417,7 +1484,7 @@ end;
Class Function TResellerAPI.APIDescription : String;
begin
- Result:='Lets you create and manage your customers and their subscriptions.';
+ Result:='Creates and manages your customers and their subscriptions.';
end;
Class Function TResellerAPI.APIOwnerDomain : String;
@@ -1453,7 +1520,7 @@ end;
Class Function TResellerAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TResellerAPI.APIbasePath : string;
@@ -1465,7 +1532,7 @@ end;
Class Function TResellerAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/apps/reseller/v1/';
+ Result:='https://www.googleapis.com/apps/reseller/v1/';
end;
Class Function TResellerAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googleresourceviews.pp b/packages/googleapi/src/googleresourceviews.pp
index effb22acf7..31facd0e00 100644
--- a/packages/googleapi/src/googleresourceviews.pp
+++ b/packages/googleapi/src/googleresourceviews.pp
@@ -1,19 +1,4 @@
unit googleresourceviews;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:07
{$MODE objfpc}
{$H+}
@@ -108,7 +93,7 @@ type
Fresource : String;
Protected
//Property setters
- Procedure Setendpoints(AIndex : Integer; AValue : TListResourceResponseItemTypeendpoints); virtual;
+ Procedure Setendpoints(AIndex : Integer; const AValue : TListResourceResponseItemTypeendpoints); virtual;
Procedure Setresource(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -148,7 +133,7 @@ type
Ferrors : TOperationTypeerrorTypeerrorsArray;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -190,7 +175,7 @@ type
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -237,15 +222,15 @@ type
Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Seterror(AIndex : Integer; AValue : TOperationTypeerror); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TOperationTypeerror); virtual;
Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
- Procedure SethttpErrorStatusCode(AIndex : Integer; AValue : integer); virtual;
+ Procedure SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprogress(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
@@ -254,7 +239,7 @@ type
Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -301,7 +286,7 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -341,16 +326,16 @@ type
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setendpoints(AIndex : Integer; AValue : TResourceViewTypeendpointsArray); virtual;
+ Procedure Setendpoints(AIndex : Integer; const AValue : TResourceViewTypeendpointsArray); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlabels(AIndex : Integer; AValue : TResourceViewTypelabelsArray); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TResourceViewTypelabelsArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresources(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsize(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setsize(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -383,7 +368,7 @@ type
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setport(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
@@ -400,7 +385,7 @@ type
Fresources : TStringArray;
Protected
//Property setters
- Procedure Setresources(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -421,7 +406,7 @@ type
Ffingerprint : String;
Protected
//Property setters
- Procedure Setendpoints(AIndex : Integer; AValue : TZoneViewsGetServiceResponseTypeendpointsArray); virtual;
+ Procedure Setendpoints(AIndex : Integer; const AValue : TZoneViewsGetServiceResponseTypeendpointsArray); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -446,7 +431,7 @@ type
FselfLink : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TZoneViewsListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TZoneViewsListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -474,7 +459,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TZoneViewsListResourcesResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TZoneViewsListResourcesResponseTypeitemsArray); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -498,7 +483,7 @@ type
Fresources : TStringArray;
Protected
//Property setters
- Procedure Setresources(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setresources(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -520,7 +505,7 @@ type
FresourceName : String;
Protected
//Property setters
- Procedure Setendpoints(AIndex : Integer; AValue : TZoneViewsSetServiceRequestTypeendpointsArray); virtual;
+ Procedure Setendpoints(AIndex : Integer; const AValue : TZoneViewsSetServiceRequestTypeendpointsArray); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure SetresourceName(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -697,7 +682,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListResourceResponseItem.Setendpoints(AIndex : Integer; AValue : TListResourceResponseItemTypeendpoints);
+Procedure TListResourceResponseItem.Setendpoints(AIndex : Integer; const AValue : TListResourceResponseItemTypeendpoints);
begin
If (Fendpoints=AValue) then exit;
@@ -761,7 +746,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOperationTypeerror.Seterrors(AIndex : Integer; AValue : TOperationTypeerrorTypeerrorsArray);
+Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -828,7 +813,7 @@ end;
-Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; AValue : TOperationTypewarningsItemTypedataArray);
+Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray);
begin
If (Fdata=AValue) then exit;
@@ -898,7 +883,7 @@ end;
-Procedure TOperation.Seterror(AIndex : Integer; AValue : TOperationTypeerror);
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror);
begin
If (Ferror=AValue) then exit;
@@ -918,7 +903,7 @@ end;
-Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; AValue : integer);
+Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer);
begin
If (FhttpErrorStatusCode=AValue) then exit;
@@ -978,7 +963,7 @@ end;
-Procedure TOperation.Setprogress(AIndex : Integer; AValue : integer);
+Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer);
begin
If (Fprogress=AValue) then exit;
@@ -1068,7 +1053,7 @@ end;
-Procedure TOperation.Setwarnings(AIndex : Integer; AValue : TOperationTypewarningsArray);
+Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
@@ -1118,7 +1103,7 @@ end;
-Procedure TOperationList.Setitems(AIndex : Integer; AValue : TOperationListTypeitemsArray);
+Procedure TOperationList.Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1198,7 +1183,7 @@ end;
-Procedure TResourceView.Setendpoints(AIndex : Integer; AValue : TResourceViewTypeendpointsArray);
+Procedure TResourceView.Setendpoints(AIndex : Integer; const AValue : TResourceViewTypeendpointsArray);
begin
If (Fendpoints=AValue) then exit;
@@ -1238,7 +1223,7 @@ end;
-Procedure TResourceView.Setlabels(AIndex : Integer; AValue : TResourceViewTypelabelsArray);
+Procedure TResourceView.Setlabels(AIndex : Integer; const AValue : TResourceViewTypelabelsArray);
begin
If (Flabels=AValue) then exit;
@@ -1268,7 +1253,7 @@ end;
-Procedure TResourceView.Setresources(AIndex : Integer; AValue : TStringArray);
+Procedure TResourceView.Setresources(AIndex : Integer; const AValue : TStringArray);
begin
If (Fresources=AValue) then exit;
@@ -1288,7 +1273,7 @@ end;
-Procedure TResourceView.Setsize(AIndex : Integer; AValue : integer);
+Procedure TResourceView.Setsize(AIndex : Integer; const AValue : integer);
begin
If (Fsize=AValue) then exit;
@@ -1330,7 +1315,7 @@ end;
-Procedure TServiceEndpoint.Setport(AIndex : Integer; AValue : integer);
+Procedure TServiceEndpoint.Setport(AIndex : Integer; const AValue : integer);
begin
If (Fport=AValue) then exit;
@@ -1347,7 +1332,7 @@ end;
--------------------------------------------------------------------}
-Procedure TZoneViewsAddResourcesRequest.Setresources(AIndex : Integer; AValue : TStringArray);
+Procedure TZoneViewsAddResourcesRequest.Setresources(AIndex : Integer; const AValue : TStringArray);
begin
If (Fresources=AValue) then exit;
@@ -1377,7 +1362,7 @@ end;
--------------------------------------------------------------------}
-Procedure TZoneViewsGetServiceResponse.Setendpoints(AIndex : Integer; AValue : TZoneViewsGetServiceResponseTypeendpointsArray);
+Procedure TZoneViewsGetServiceResponse.Setendpoints(AIndex : Integer; const AValue : TZoneViewsGetServiceResponseTypeendpointsArray);
begin
If (Fendpoints=AValue) then exit;
@@ -1417,7 +1402,7 @@ end;
--------------------------------------------------------------------}
-Procedure TZoneViewsList.Setitems(AIndex : Integer; AValue : TZoneViewsListTypeitemsArray);
+Procedure TZoneViewsList.Setitems(AIndex : Integer; const AValue : TZoneViewsListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1477,7 +1462,7 @@ end;
--------------------------------------------------------------------}
-Procedure TZoneViewsListResourcesResponse.Setitems(AIndex : Integer; AValue : TZoneViewsListResourcesResponseTypeitemsArray);
+Procedure TZoneViewsListResourcesResponse.Setitems(AIndex : Integer; const AValue : TZoneViewsListResourcesResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1527,7 +1512,7 @@ end;
--------------------------------------------------------------------}
-Procedure TZoneViewsRemoveResourcesRequest.Setresources(AIndex : Integer; AValue : TStringArray);
+Procedure TZoneViewsRemoveResourcesRequest.Setresources(AIndex : Integer; const AValue : TStringArray);
begin
If (Fresources=AValue) then exit;
@@ -1557,7 +1542,7 @@ end;
--------------------------------------------------------------------}
-Procedure TZoneViewsSetServiceRequest.Setendpoints(AIndex : Integer; AValue : TZoneViewsSetServiceRequestTypeendpointsArray);
+Procedure TZoneViewsSetServiceRequest.Setendpoints(AIndex : Integer; const AValue : TZoneViewsSetServiceRequestTypeendpointsArray);
begin
If (Fendpoints=AValue) then exit;
@@ -1879,7 +1864,7 @@ end;
Class Function TResourceviewsAPI.APIRevision : String;
begin
- Result:='20150302';
+ Result:='20160512';
end;
Class Function TResourceviewsAPI.APIID : String;
@@ -1933,7 +1918,7 @@ end;
Class Function TResourceviewsAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TResourceviewsAPI.APIbasePath : string;
@@ -1945,7 +1930,7 @@ end;
Class Function TResourceviewsAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/resourceviews/v1beta2/projects/';
+ Result:='https://www.googleapis.com/resourceviews/v1beta2/projects/';
end;
Class Function TResourceviewsAPI.APIProtocol : string;
@@ -1969,17 +1954,19 @@ end;
Class Function TResourceviewsAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,5);
+ SetLength(Result,6);
Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[0].Description:='View and manage your data across Google Cloud Platform services';
- Result[1].Name:='https://www.googleapis.com/auth/compute';
- Result[1].Description:='View and manage your Google Compute Engine resources';
- Result[2].Name:='https://www.googleapis.com/auth/compute.readonly';
- Result[2].Description:='View your Google Compute Engine resources';
- Result[3].Name:='https://www.googleapis.com/auth/ndev.cloudman';
- Result[3].Description:='View and manage your Google Cloud Platform management resources and deployment status information';
- Result[4].Name:='https://www.googleapis.com/auth/ndev.cloudman.readonly';
- Result[4].Description:='View your Google Cloud Platform management resources and deployment status information';
+ Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
+ Result[1].Description:='View your data across Google Cloud Platform services';
+ Result[2].Name:='https://www.googleapis.com/auth/compute';
+ Result[2].Description:='View and manage your Google Compute Engine resources';
+ Result[3].Name:='https://www.googleapis.com/auth/compute.readonly';
+ Result[3].Description:='View your Google Compute Engine resources';
+ Result[4].Name:='https://www.googleapis.com/auth/ndev.cloudman';
+ Result[4].Description:='View and manage your Google Cloud Platform management resources and deployment status information';
+ Result[5].Name:='https://www.googleapis.com/auth/ndev.cloudman.readonly';
+ Result[5].Description:='View your Google Cloud Platform management resources and deployment status information';
end;
diff --git a/packages/googleapi/src/googleruntimeconfig.pp b/packages/googleapi/src/googleruntimeconfig.pp
new file mode 100644
index 0000000000..5e7ca7fa94
--- /dev/null
+++ b/packages/googleapi/src/googleruntimeconfig.pp
@@ -0,0 +1,1862 @@
+unit googleruntimeconfig;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TStatus = Class;
+ TListConfigsResponse = Class;
+ TVariable = Class;
+ TOperation = Class;
+ TWaiter = Class;
+ TRuntimeConfig = Class;
+ TListWaitersResponse = Class;
+ TEndCondition = Class;
+ TCardinality = Class;
+ TEmpty = Class;
+ TWatchVariableRequest = Class;
+ TListVariablesResponse = Class;
+ TStatusArray = Array of TStatus;
+ TListConfigsResponseArray = Array of TListConfigsResponse;
+ TVariableArray = Array of TVariable;
+ TOperationArray = Array of TOperation;
+ TWaiterArray = Array of TWaiter;
+ TRuntimeConfigArray = Array of TRuntimeConfig;
+ TListWaitersResponseArray = Array of TListWaitersResponse;
+ TEndConditionArray = Array of TEndCondition;
+ TCardinalityArray = Array of TCardinality;
+ TEmptyArray = Array of TEmpty;
+ TWatchVariableRequestArray = Array of TWatchVariableRequest;
+ TListVariablesResponseArray = Array of TListVariablesResponse;
+ //Anonymous types, using auto-generated names
+ TStatusTypedetailsItem = Class;
+ TOperationTypemetadata = Class;
+ TOperationTyperesponse = Class;
+ TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
+ TListConfigsResponseTypeconfigsArray = Array of TRuntimeConfig;
+ TListWaitersResponseTypewaitersArray = Array of TWaiter;
+ TListVariablesResponseTypevariablesArray = Array of TVariable;
+
+ { --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+ TStatusTypedetailsItem = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
+
+ { --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+ TStatus = Class(TGoogleBaseObject)
+ Private
+ Fcode : integer;
+ Fdetails : TStatusTypedetailsArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
+ Procedure Setmessage(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 code : integer Index 0 Read Fcode Write Setcode;
+ Property details : TStatusTypedetailsArray Index 8 Read Fdetails Write Setdetails;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TStatusClass = Class of TStatus;
+
+ { --------------------------------------------------------------------
+ TListConfigsResponse
+ --------------------------------------------------------------------}
+
+ TListConfigsResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ Fconfigs : TListConfigsResponseTypeconfigsArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setconfigs(AIndex : Integer; const AValue : TListConfigsResponseTypeconfigsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property configs : TListConfigsResponseTypeconfigsArray Index 8 Read Fconfigs Write Setconfigs;
+ end;
+ TListConfigsResponseClass = Class of TListConfigsResponse;
+
+ { --------------------------------------------------------------------
+ TVariable
+ --------------------------------------------------------------------}
+
+ TVariable = Class(TGoogleBaseObject)
+ Private
+ Fvalue : String;
+ FupdateTime : String;
+ Fstate : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupdateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property value : String Index 0 Read Fvalue Write Setvalue;
+ Property updateTime : String Index 8 Read FupdateTime Write SetupdateTime;
+ Property state : String Index 16 Read Fstate Write Setstate;
+ Property name : String Index 24 Read Fname Write Setname;
+ end;
+ TVariableClass = Class of TVariable;
+
+ { --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+ TOperationTypemetadata = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTypemetadataClass = Class of TOperationTypemetadata;
+
+ { --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+ TOperationTyperesponse = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTyperesponseClass = Class of TOperationTyperesponse;
+
+ { --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+ TOperation = Class(TGoogleBaseObject)
+ Private
+ Ferror : TStatus;
+ Fdone : boolean;
+ Fmetadata : TOperationTypemetadata;
+ Fresponse : TOperationTyperesponse;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
+ Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); virtual;
+ Procedure Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property error : TStatus Index 0 Read Ferror Write Seterror;
+ Property done : boolean Index 8 Read Fdone Write Setdone;
+ Property metadata : TOperationTypemetadata Index 16 Read Fmetadata Write Setmetadata;
+ Property response : TOperationTyperesponse Index 24 Read Fresponse Write Setresponse;
+ Property name : String Index 32 Read Fname Write Setname;
+ end;
+ TOperationClass = Class of TOperation;
+
+ { --------------------------------------------------------------------
+ TWaiter
+ --------------------------------------------------------------------}
+
+ TWaiter = Class(TGoogleBaseObject)
+ Private
+ Ftimeout : String;
+ Fsuccess : TEndCondition;
+ Ffailure : TEndCondition;
+ FcreateTime : String;
+ Fname : String;
+ Ferror : TStatus;
+ Fdone : boolean;
+ Protected
+ //Property setters
+ Procedure Settimeout(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsuccess(AIndex : Integer; const AValue : TEndCondition); virtual;
+ Procedure Setfailure(AIndex : Integer; const AValue : TEndCondition); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
+ Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property timeout : String Index 0 Read Ftimeout Write Settimeout;
+ Property success : TEndCondition Index 8 Read Fsuccess Write Setsuccess;
+ Property failure : TEndCondition Index 16 Read Ffailure Write Setfailure;
+ Property createTime : String Index 24 Read FcreateTime Write SetcreateTime;
+ Property name : String Index 32 Read Fname Write Setname;
+ Property error : TStatus Index 40 Read Ferror Write Seterror;
+ Property done : boolean Index 48 Read Fdone Write Setdone;
+ end;
+ TWaiterClass = Class of TWaiter;
+
+ { --------------------------------------------------------------------
+ TRuntimeConfig
+ --------------------------------------------------------------------}
+
+ TRuntimeConfig = Class(TGoogleBaseObject)
+ Private
+ Fdescription : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property description : String Index 0 Read Fdescription Write Setdescription;
+ Property name : String Index 8 Read Fname Write Setname;
+ end;
+ TRuntimeConfigClass = Class of TRuntimeConfig;
+
+ { --------------------------------------------------------------------
+ TListWaitersResponse
+ --------------------------------------------------------------------}
+
+ TListWaitersResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ Fwaiters : TListWaitersResponseTypewaitersArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setwaiters(AIndex : Integer; const AValue : TListWaitersResponseTypewaitersArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property waiters : TListWaitersResponseTypewaitersArray Index 8 Read Fwaiters Write Setwaiters;
+ end;
+ TListWaitersResponseClass = Class of TListWaitersResponse;
+
+ { --------------------------------------------------------------------
+ TEndCondition
+ --------------------------------------------------------------------}
+
+ TEndCondition = Class(TGoogleBaseObject)
+ Private
+ Fcardinality : TCardinality;
+ Protected
+ //Property setters
+ Procedure Setcardinality(AIndex : Integer; const AValue : TCardinality); virtual;
+ Public
+ Published
+ Property cardinality : TCardinality Index 0 Read Fcardinality Write Setcardinality;
+ end;
+ TEndConditionClass = Class of TEndCondition;
+
+ { --------------------------------------------------------------------
+ TCardinality
+ --------------------------------------------------------------------}
+
+ TCardinality = Class(TGoogleBaseObject)
+ Private
+ Fpath : String;
+ Fnumber : integer;
+ Protected
+ //Property setters
+ Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnumber(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property path : String Index 0 Read Fpath Write Setpath;
+ Property number : integer Index 8 Read Fnumber Write Setnumber;
+ end;
+ TCardinalityClass = Class of TCardinality;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TWatchVariableRequest
+ --------------------------------------------------------------------}
+
+ TWatchVariableRequest = Class(TGoogleBaseObject)
+ Private
+ FnewerThan : String;
+ Protected
+ //Property setters
+ Procedure SetnewerThan(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property newerThan : String Index 0 Read FnewerThan Write SetnewerThan;
+ end;
+ TWatchVariableRequestClass = Class of TWatchVariableRequest;
+
+ { --------------------------------------------------------------------
+ TListVariablesResponse
+ --------------------------------------------------------------------}
+
+ TListVariablesResponse = Class(TGoogleBaseObject)
+ Private
+ Fvariables : TListVariablesResponseTypevariablesArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray); 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 variables : TListVariablesResponseTypevariablesArray Index 0 Read Fvariables Write Setvariables;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListVariablesResponseClass = Class of TListVariablesResponse;
+
+ { --------------------------------------------------------------------
+ TProjectsConfigsVariablesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsConfigsVariablesResource, method List
+
+ TProjectsConfigsVariablesListOptions = Record
+ pageSize : integer;
+ filter : String;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TProjectsConfigsVariablesResource, method Delete
+
+ TProjectsConfigsVariablesDeleteOptions = Record
+ recursive : boolean;
+ end;
+
+ TProjectsConfigsVariablesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Watch(_name: string; aWatchVariableRequest : TWatchVariableRequest) : TVariable;
+ Function List(parent: string; AQuery : string = '') : TListVariablesResponse;
+ Function List(parent: string; AQuery : TProjectsConfigsVariableslistOptions) : TListVariablesResponse;
+ Function Get(_name: string) : TVariable;
+ Function Create(parent: string; aVariable : TVariable) : TVariable;overload;
+ Function Update(_name: string; aVariable : TVariable) : TVariable;
+ Function Delete(_name: string; AQuery : string = '') : TEmpty;
+ Function Delete(_name: string; AQuery : TProjectsConfigsVariablesdeleteOptions) : TEmpty;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsConfigsWaitersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsConfigsWaitersResource, method List
+
+ TProjectsConfigsWaitersListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsConfigsWaitersResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(_name: string) : TWaiter;
+ Function Create(parent: string; aWaiter : TWaiter) : TOperation;overload;
+ Function List(parent: string; AQuery : string = '') : TListWaitersResponse;
+ Function List(parent: string; AQuery : TProjectsConfigsWaiterslistOptions) : TListWaitersResponse;
+ Function Delete(_name: string) : TEmpty;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsConfigsOperationsResource
+ --------------------------------------------------------------------}
+
+ TProjectsConfigsOperationsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(_name: string) : TOperation;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsConfigsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsConfigsResource, method List
+
+ TProjectsConfigsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsConfigsResource = Class(TGoogleResource)
+ Private
+ FVariablesInstance : TProjectsConfigsVariablesResource;
+ FWaitersInstance : TProjectsConfigsWaitersResource;
+ FOperationsInstance : TProjectsConfigsOperationsResource;
+ Function GetVariablesInstance : TProjectsConfigsVariablesResource;virtual;
+ Function GetWaitersInstance : TProjectsConfigsWaitersResource;virtual;
+ Function GetOperationsInstance : TProjectsConfigsOperationsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Update(_name: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;
+ Function Get(_name: string) : TRuntimeConfig;
+ Function Create(parent: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;overload;
+ Function List(parent: string; AQuery : string = '') : TListConfigsResponse;
+ Function List(parent: string; AQuery : TProjectsConfigslistOptions) : TListConfigsResponse;
+ Function Delete(_name: string) : TEmpty;
+ Function CreateVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;virtual;overload;
+ Function CreateVariablesResource : TProjectsConfigsVariablesResource;virtual;overload;
+ Function CreateWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;virtual;overload;
+ Function CreateWaitersResource : TProjectsConfigsWaitersResource;virtual;overload;
+ Function CreateOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;virtual;overload;
+ Function CreateOperationsResource : TProjectsConfigsOperationsResource;virtual;overload;
+ Property VariablesResource : TProjectsConfigsVariablesResource Read GetVariablesInstance;
+ Property WaitersResource : TProjectsConfigsWaitersResource Read GetWaitersInstance;
+ Property OperationsResource : TProjectsConfigsOperationsResource Read GetOperationsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+ TProjectsResource = Class(TGoogleResource)
+ Private
+ FConfigsVariablesInstance : TProjectsConfigsVariablesResource;
+ FConfigsWaitersInstance : TProjectsConfigsWaitersResource;
+ FConfigsOperationsInstance : TProjectsConfigsOperationsResource;
+ FConfigsInstance : TProjectsConfigsResource;
+ Function GetConfigsVariablesInstance : TProjectsConfigsVariablesResource;virtual;
+ Function GetConfigsWaitersInstance : TProjectsConfigsWaitersResource;virtual;
+ Function GetConfigsOperationsInstance : TProjectsConfigsOperationsResource;virtual;
+ Function GetConfigsInstance : TProjectsConfigsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CreateConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;virtual;overload;
+ Function CreateConfigsVariablesResource : TProjectsConfigsVariablesResource;virtual;overload;
+ Function CreateConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;virtual;overload;
+ Function CreateConfigsWaitersResource : TProjectsConfigsWaitersResource;virtual;overload;
+ Function CreateConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;virtual;overload;
+ Function CreateConfigsOperationsResource : TProjectsConfigsOperationsResource;virtual;overload;
+ Function CreateConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;virtual;overload;
+ Function CreateConfigsResource : TProjectsConfigsResource;virtual;overload;
+ Property ConfigsVariablesResource : TProjectsConfigsVariablesResource Read GetConfigsVariablesInstance;
+ Property ConfigsWaitersResource : TProjectsConfigsWaitersResource Read GetConfigsWaitersInstance;
+ Property ConfigsOperationsResource : TProjectsConfigsOperationsResource Read GetConfigsOperationsInstance;
+ Property ConfigsResource : TProjectsConfigsResource Read GetConfigsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TRuntimeconfigAPI
+ --------------------------------------------------------------------}
+
+ TRuntimeconfigAPI = Class(TGoogleAPI)
+ Private
+ FProjectsConfigsVariablesInstance : TProjectsConfigsVariablesResource;
+ FProjectsConfigsWaitersInstance : TProjectsConfigsWaitersResource;
+ FProjectsConfigsOperationsInstance : TProjectsConfigsOperationsResource;
+ FProjectsConfigsInstance : TProjectsConfigsResource;
+ FProjectsInstance : TProjectsResource;
+ Function GetProjectsConfigsVariablesInstance : TProjectsConfigsVariablesResource;virtual;
+ Function GetProjectsConfigsWaitersInstance : TProjectsConfigsWaitersResource;virtual;
+ Function GetProjectsConfigsOperationsInstance : TProjectsConfigsOperationsResource;virtual;
+ Function GetProjectsConfigsInstance : TProjectsConfigsResource;virtual;
+ Function GetProjectsInstance : TProjectsResource;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 CreateProjectsConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;virtual;overload;
+ Function CreateProjectsConfigsVariablesResource : TProjectsConfigsVariablesResource;virtual;overload;
+ Function CreateProjectsConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;virtual;overload;
+ Function CreateProjectsConfigsWaitersResource : TProjectsConfigsWaitersResource;virtual;overload;
+ Function CreateProjectsConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;virtual;overload;
+ Function CreateProjectsConfigsOperationsResource : TProjectsConfigsOperationsResource;virtual;overload;
+ Function CreateProjectsConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;virtual;overload;
+ Function CreateProjectsConfigsResource : TProjectsConfigsResource;virtual;overload;
+ Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ProjectsConfigsVariablesResource : TProjectsConfigsVariablesResource Read GetProjectsConfigsVariablesInstance;
+ Property ProjectsConfigsWaitersResource : TProjectsConfigsWaitersResource Read GetProjectsConfigsWaitersInstance;
+ Property ProjectsConfigsOperationsResource : TProjectsConfigsOperationsResource Read GetProjectsConfigsOperationsInstance;
+ Property ProjectsConfigsResource : TProjectsConfigsResource Read GetProjectsConfigsInstance;
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+
+Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'details' : SetLength(Fdetails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListConfigsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListConfigsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListConfigsResponse.Setconfigs(AIndex : Integer; const AValue : TListConfigsResponseTypeconfigsArray);
+
+begin
+ If (Fconfigs=AValue) then exit;
+ Fconfigs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListConfigsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'configs' : SetLength(Fconfigs,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TVariable
+ --------------------------------------------------------------------}
+
+
+Procedure TVariable.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVariable.SetupdateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdateTime=AValue) then exit;
+ FupdateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVariable.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVariable.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTypemetadata.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTyperesponse.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fdone=AValue) then exit;
+ Fdone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
+
+begin
+ If (Fresponse=AValue) then exit;
+ Fresponse:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TWaiter
+ --------------------------------------------------------------------}
+
+
+Procedure TWaiter.Settimeout(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftimeout=AValue) then exit;
+ Ftimeout:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TWaiter.Setsuccess(AIndex : Integer; const AValue : TEndCondition);
+
+begin
+ If (Fsuccess=AValue) then exit;
+ Fsuccess:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TWaiter.Setfailure(AIndex : Integer; const AValue : TEndCondition);
+
+begin
+ If (Ffailure=AValue) then exit;
+ Ffailure:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TWaiter.SetcreateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TWaiter.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TWaiter.Seterror(AIndex : Integer; const AValue : TStatus);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TWaiter.Setdone(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fdone=AValue) then exit;
+ Fdone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TRuntimeConfig
+ --------------------------------------------------------------------}
+
+
+Procedure TRuntimeConfig.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRuntimeConfig.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListWaitersResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListWaitersResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListWaitersResponse.Setwaiters(AIndex : Integer; const AValue : TListWaitersResponseTypewaitersArray);
+
+begin
+ If (Fwaiters=AValue) then exit;
+ Fwaiters:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListWaitersResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'waiters' : SetLength(Fwaiters,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEndCondition
+ --------------------------------------------------------------------}
+
+
+Procedure TEndCondition.Setcardinality(AIndex : Integer; const AValue : TCardinality);
+
+begin
+ If (Fcardinality=AValue) then exit;
+ Fcardinality:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCardinality
+ --------------------------------------------------------------------}
+
+
+Procedure TCardinality.Setpath(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fpath=AValue) then exit;
+ Fpath:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCardinality.Setnumber(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fnumber=AValue) then exit;
+ Fnumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TWatchVariableRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TWatchVariableRequest.SetnewerThan(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnewerThan=AValue) then exit;
+ FnewerThan:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListVariablesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListVariablesResponse.Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray);
+
+begin
+ If (Fvariables=AValue) then exit;
+ Fvariables:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListVariablesResponse.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 TListVariablesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'variables' : SetLength(Fvariables,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsConfigsVariablesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsConfigsVariablesResource.ResourceName : String;
+
+begin
+ Result:='variables';
+end;
+
+Class Function TProjectsConfigsVariablesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TruntimeconfigAPI;
+end;
+
+Function TProjectsConfigsVariablesResource.Watch(_name: string; aWatchVariableRequest : TWatchVariableRequest) : TVariable;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1beta1/{+name}:watch';
+ _Methodid = 'runtimeconfig.projects.configs.variables.watch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aWatchVariableRequest,TVariable) as TVariable;
+end;
+
+Function TProjectsConfigsVariablesResource.List(parent: string; AQuery : string = '') : TListVariablesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta1/{+parent}/variables';
+ _Methodid = 'runtimeconfig.projects.configs.variables.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['parent',parent]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListVariablesResponse) as TListVariablesResponse;
+end;
+
+
+Function TProjectsConfigsVariablesResource.List(parent: string; AQuery : TProjectsConfigsVariableslistOptions) : TListVariablesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(parent,_Q);
+end;
+
+Function TProjectsConfigsVariablesResource.Get(_name: string) : TVariable;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta1/{+name}';
+ _Methodid = 'runtimeconfig.projects.configs.variables.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TVariable) as TVariable;
+end;
+
+Function TProjectsConfigsVariablesResource.Create(parent: string; aVariable : TVariable) : TVariable;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1beta1/{+parent}/variables';
+ _Methodid = 'runtimeconfig.projects.configs.variables.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['parent',parent]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aVariable,TVariable) as TVariable;
+end;
+
+Function TProjectsConfigsVariablesResource.Update(_name: string; aVariable : TVariable) : TVariable;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v1beta1/{+name}';
+ _Methodid = 'runtimeconfig.projects.configs.variables.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aVariable,TVariable) as TVariable;
+end;
+
+Function TProjectsConfigsVariablesResource.Delete(_name: string; AQuery : string = '') : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1beta1/{+name}';
+ _Methodid = 'runtimeconfig.projects.configs.variables.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEmpty) as TEmpty;
+end;
+
+
+Function TProjectsConfigsVariablesResource.Delete(_name: string; AQuery : TProjectsConfigsVariablesdeleteOptions) : TEmpty;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'recursive',AQuery.recursive);
+ Result:=Delete(_name,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsConfigsWaitersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsConfigsWaitersResource.ResourceName : String;
+
+begin
+ Result:='waiters';
+end;
+
+Class Function TProjectsConfigsWaitersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TruntimeconfigAPI;
+end;
+
+Function TProjectsConfigsWaitersResource.Get(_name: string) : TWaiter;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta1/{+name}';
+ _Methodid = 'runtimeconfig.projects.configs.waiters.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TWaiter) as TWaiter;
+end;
+
+Function TProjectsConfigsWaitersResource.Create(parent: string; aWaiter : TWaiter) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1beta1/{+parent}/waiters';
+ _Methodid = 'runtimeconfig.projects.configs.waiters.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['parent',parent]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aWaiter,TOperation) as TOperation;
+end;
+
+Function TProjectsConfigsWaitersResource.List(parent: string; AQuery : string = '') : TListWaitersResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta1/{+parent}/waiters';
+ _Methodid = 'runtimeconfig.projects.configs.waiters.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['parent',parent]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListWaitersResponse) as TListWaitersResponse;
+end;
+
+
+Function TProjectsConfigsWaitersResource.List(parent: string; AQuery : TProjectsConfigsWaiterslistOptions) : TListWaitersResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(parent,_Q);
+end;
+
+Function TProjectsConfigsWaitersResource.Delete(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1beta1/{+name}';
+ _Methodid = 'runtimeconfig.projects.configs.waiters.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsConfigsOperationsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsConfigsOperationsResource.ResourceName : String;
+
+begin
+ Result:='operations';
+end;
+
+Class Function TProjectsConfigsOperationsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TruntimeconfigAPI;
+end;
+
+Function TProjectsConfigsOperationsResource.Get(_name: string) : TOperation;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta1/{+name}';
+ _Methodid = 'runtimeconfig.projects.configs.operations.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsConfigsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsConfigsResource.ResourceName : String;
+
+begin
+ Result:='configs';
+end;
+
+Class Function TProjectsConfigsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TruntimeconfigAPI;
+end;
+
+Function TProjectsConfigsResource.Update(_name: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v1beta1/{+name}';
+ _Methodid = 'runtimeconfig.projects.configs.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aRuntimeConfig,TRuntimeConfig) as TRuntimeConfig;
+end;
+
+Function TProjectsConfigsResource.Get(_name: string) : TRuntimeConfig;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta1/{+name}';
+ _Methodid = 'runtimeconfig.projects.configs.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRuntimeConfig) as TRuntimeConfig;
+end;
+
+Function TProjectsConfigsResource.Create(parent: string; aRuntimeConfig : TRuntimeConfig) : TRuntimeConfig;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1beta1/{+parent}/configs';
+ _Methodid = 'runtimeconfig.projects.configs.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['parent',parent]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aRuntimeConfig,TRuntimeConfig) as TRuntimeConfig;
+end;
+
+Function TProjectsConfigsResource.List(parent: string; AQuery : string = '') : TListConfigsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1beta1/{+parent}/configs';
+ _Methodid = 'runtimeconfig.projects.configs.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['parent',parent]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListConfigsResponse) as TListConfigsResponse;
+end;
+
+
+Function TProjectsConfigsResource.List(parent: string; AQuery : TProjectsConfigslistOptions) : TListConfigsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(parent,_Q);
+end;
+
+Function TProjectsConfigsResource.Delete(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1beta1/{+name}';
+ _Methodid = 'runtimeconfig.projects.configs.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+
+
+Function TProjectsConfigsResource.GetVariablesInstance : TProjectsConfigsVariablesResource;
+
+begin
+ if (FVariablesInstance=Nil) then
+ FVariablesInstance:=CreateVariablesResource;
+ Result:=FVariablesInstance;
+end;
+
+Function TProjectsConfigsResource.CreateVariablesResource : TProjectsConfigsVariablesResource;
+
+begin
+ Result:=CreateVariablesResource(Self);
+end;
+
+
+Function TProjectsConfigsResource.CreateVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;
+
+begin
+ Result:=TProjectsConfigsVariablesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsConfigsResource.GetWaitersInstance : TProjectsConfigsWaitersResource;
+
+begin
+ if (FWaitersInstance=Nil) then
+ FWaitersInstance:=CreateWaitersResource;
+ Result:=FWaitersInstance;
+end;
+
+Function TProjectsConfigsResource.CreateWaitersResource : TProjectsConfigsWaitersResource;
+
+begin
+ Result:=CreateWaitersResource(Self);
+end;
+
+
+Function TProjectsConfigsResource.CreateWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;
+
+begin
+ Result:=TProjectsConfigsWaitersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsConfigsResource.GetOperationsInstance : TProjectsConfigsOperationsResource;
+
+begin
+ if (FOperationsInstance=Nil) then
+ FOperationsInstance:=CreateOperationsResource;
+ Result:=FOperationsInstance;
+end;
+
+Function TProjectsConfigsResource.CreateOperationsResource : TProjectsConfigsOperationsResource;
+
+begin
+ Result:=CreateOperationsResource(Self);
+end;
+
+
+Function TProjectsConfigsResource.CreateOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;
+
+begin
+ Result:=TProjectsConfigsOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TruntimeconfigAPI;
+end;
+
+
+
+Function TProjectsResource.GetConfigsVariablesInstance : TProjectsConfigsVariablesResource;
+
+begin
+ if (FConfigsVariablesInstance=Nil) then
+ FConfigsVariablesInstance:=CreateConfigsVariablesResource;
+ Result:=FConfigsVariablesInstance;
+end;
+
+Function TProjectsResource.CreateConfigsVariablesResource : TProjectsConfigsVariablesResource;
+
+begin
+ Result:=CreateConfigsVariablesResource(Self);
+end;
+
+
+Function TProjectsResource.CreateConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;
+
+begin
+ Result:=TProjectsConfigsVariablesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetConfigsWaitersInstance : TProjectsConfigsWaitersResource;
+
+begin
+ if (FConfigsWaitersInstance=Nil) then
+ FConfigsWaitersInstance:=CreateConfigsWaitersResource;
+ Result:=FConfigsWaitersInstance;
+end;
+
+Function TProjectsResource.CreateConfigsWaitersResource : TProjectsConfigsWaitersResource;
+
+begin
+ Result:=CreateConfigsWaitersResource(Self);
+end;
+
+
+Function TProjectsResource.CreateConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;
+
+begin
+ Result:=TProjectsConfigsWaitersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetConfigsOperationsInstance : TProjectsConfigsOperationsResource;
+
+begin
+ if (FConfigsOperationsInstance=Nil) then
+ FConfigsOperationsInstance:=CreateConfigsOperationsResource;
+ Result:=FConfigsOperationsInstance;
+end;
+
+Function TProjectsResource.CreateConfigsOperationsResource : TProjectsConfigsOperationsResource;
+
+begin
+ Result:=CreateConfigsOperationsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;
+
+begin
+ Result:=TProjectsConfigsOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetConfigsInstance : TProjectsConfigsResource;
+
+begin
+ if (FConfigsInstance=Nil) then
+ FConfigsInstance:=CreateConfigsResource;
+ Result:=FConfigsInstance;
+end;
+
+Function TProjectsResource.CreateConfigsResource : TProjectsConfigsResource;
+
+begin
+ Result:=CreateConfigsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;
+
+begin
+ Result:=TProjectsConfigsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TRuntimeconfigAPI
+ --------------------------------------------------------------------}
+
+Class Function TRuntimeconfigAPI.APIName : String;
+
+begin
+ Result:='runtimeconfig';
+end;
+
+Class Function TRuntimeconfigAPI.APIVersion : String;
+
+begin
+ Result:='v1beta1';
+end;
+
+Class Function TRuntimeconfigAPI.APIRevision : String;
+
+begin
+ Result:='20160518';
+end;
+
+Class Function TRuntimeconfigAPI.APIID : String;
+
+begin
+ Result:='runtimeconfig:v1beta1';
+end;
+
+Class Function TRuntimeconfigAPI.APITitle : String;
+
+begin
+ Result:='Google Cloud RuntimeConfig API';
+end;
+
+Class Function TRuntimeconfigAPI.APIDescription : String;
+
+begin
+ Result:='Provides capabilities for dynamic configuration and coordination for applications running on Google Cloud Platform.';
+end;
+
+Class Function TRuntimeconfigAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TRuntimeconfigAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TRuntimeconfigAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TRuntimeconfigAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TRuntimeconfigAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/deployment-manager/docs/';
+end;
+
+Class Function TRuntimeconfigAPI.APIrootUrl : string;
+
+begin
+ Result:='https://runtimeconfig.googleapis.com/';
+end;
+
+Class Function TRuntimeconfigAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TRuntimeconfigAPI.APIbaseURL : String;
+
+begin
+ Result:='https://runtimeconfig.googleapis.com/';
+end;
+
+Class Function TRuntimeconfigAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TRuntimeconfigAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TRuntimeconfigAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TRuntimeconfigAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,2);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+ Result[1].Name:='https://www.googleapis.com/auth/cloudruntimeconfig';
+ Result[1].Description:='Manage your Google Cloud Platform services'' runtime configuration';
+
+end;
+
+Class Function TRuntimeconfigAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TRuntimeconfigAPI.RegisterAPIResources;
+
+begin
+ TStatusTypedetailsItem.RegisterObject;
+ TStatus.RegisterObject;
+ TListConfigsResponse.RegisterObject;
+ TVariable.RegisterObject;
+ TOperationTypemetadata.RegisterObject;
+ TOperationTyperesponse.RegisterObject;
+ TOperation.RegisterObject;
+ TWaiter.RegisterObject;
+ TRuntimeConfig.RegisterObject;
+ TListWaitersResponse.RegisterObject;
+ TEndCondition.RegisterObject;
+ TCardinality.RegisterObject;
+ TEmpty.RegisterObject;
+ TWatchVariableRequest.RegisterObject;
+ TListVariablesResponse.RegisterObject;
+end;
+
+
+Function TRuntimeconfigAPI.GetProjectsConfigsVariablesInstance : TProjectsConfigsVariablesResource;
+
+begin
+ if (FProjectsConfigsVariablesInstance=Nil) then
+ FProjectsConfigsVariablesInstance:=CreateProjectsConfigsVariablesResource;
+ Result:=FProjectsConfigsVariablesInstance;
+end;
+
+Function TRuntimeconfigAPI.CreateProjectsConfigsVariablesResource : TProjectsConfigsVariablesResource;
+
+begin
+ Result:=CreateProjectsConfigsVariablesResource(Self);
+end;
+
+
+Function TRuntimeconfigAPI.CreateProjectsConfigsVariablesResource(AOwner : TComponent) : TProjectsConfigsVariablesResource;
+
+begin
+ Result:=TProjectsConfigsVariablesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TRuntimeconfigAPI.GetProjectsConfigsWaitersInstance : TProjectsConfigsWaitersResource;
+
+begin
+ if (FProjectsConfigsWaitersInstance=Nil) then
+ FProjectsConfigsWaitersInstance:=CreateProjectsConfigsWaitersResource;
+ Result:=FProjectsConfigsWaitersInstance;
+end;
+
+Function TRuntimeconfigAPI.CreateProjectsConfigsWaitersResource : TProjectsConfigsWaitersResource;
+
+begin
+ Result:=CreateProjectsConfigsWaitersResource(Self);
+end;
+
+
+Function TRuntimeconfigAPI.CreateProjectsConfigsWaitersResource(AOwner : TComponent) : TProjectsConfigsWaitersResource;
+
+begin
+ Result:=TProjectsConfigsWaitersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TRuntimeconfigAPI.GetProjectsConfigsOperationsInstance : TProjectsConfigsOperationsResource;
+
+begin
+ if (FProjectsConfigsOperationsInstance=Nil) then
+ FProjectsConfigsOperationsInstance:=CreateProjectsConfigsOperationsResource;
+ Result:=FProjectsConfigsOperationsInstance;
+end;
+
+Function TRuntimeconfigAPI.CreateProjectsConfigsOperationsResource : TProjectsConfigsOperationsResource;
+
+begin
+ Result:=CreateProjectsConfigsOperationsResource(Self);
+end;
+
+
+Function TRuntimeconfigAPI.CreateProjectsConfigsOperationsResource(AOwner : TComponent) : TProjectsConfigsOperationsResource;
+
+begin
+ Result:=TProjectsConfigsOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TRuntimeconfigAPI.GetProjectsConfigsInstance : TProjectsConfigsResource;
+
+begin
+ if (FProjectsConfigsInstance=Nil) then
+ FProjectsConfigsInstance:=CreateProjectsConfigsResource;
+ Result:=FProjectsConfigsInstance;
+end;
+
+Function TRuntimeconfigAPI.CreateProjectsConfigsResource : TProjectsConfigsResource;
+
+begin
+ Result:=CreateProjectsConfigsResource(Self);
+end;
+
+
+Function TRuntimeconfigAPI.CreateProjectsConfigsResource(AOwner : TComponent) : TProjectsConfigsResource;
+
+begin
+ Result:=TProjectsConfigsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TRuntimeconfigAPI.GetProjectsInstance : TProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TRuntimeconfigAPI.CreateProjectsResource : TProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TRuntimeconfigAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+
+begin
+ Result:=TProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TRuntimeconfigAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlesafebrowsing.pp b/packages/googleapi/src/googlesafebrowsing.pp
new file mode 100644
index 0000000000..7b50761dbf
--- /dev/null
+++ b/packages/googleapi/src/googlesafebrowsing.pp
@@ -0,0 +1,2011 @@
+unit googlesafebrowsing;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TFindThreatMatchesRequest = Class;
+ TClientInfo = Class;
+ TThreatInfo = Class;
+ TThreatEntry = Class;
+ TFindThreatMatchesResponse = Class;
+ TThreatMatch = Class;
+ TThreatEntryMetadata = Class;
+ TMetadataEntry = Class;
+ TFetchThreatListUpdatesRequest = Class;
+ TListUpdateRequest = Class;
+ TConstraints = Class;
+ TFetchThreatListUpdatesResponse = Class;
+ TListUpdateResponse = Class;
+ TThreatEntrySet = Class;
+ TRawHashes = Class;
+ TRawIndices = Class;
+ TRiceDeltaEncoding = Class;
+ TChecksum = Class;
+ TFindFullHashesRequest = Class;
+ TFindFullHashesResponse = Class;
+ TListThreatListsResponse = Class;
+ TThreatListDescriptor = Class;
+ TFindThreatMatchesRequestArray = Array of TFindThreatMatchesRequest;
+ TClientInfoArray = Array of TClientInfo;
+ TThreatInfoArray = Array of TThreatInfo;
+ TThreatEntryArray = Array of TThreatEntry;
+ TFindThreatMatchesResponseArray = Array of TFindThreatMatchesResponse;
+ TThreatMatchArray = Array of TThreatMatch;
+ TThreatEntryMetadataArray = Array of TThreatEntryMetadata;
+ TMetadataEntryArray = Array of TMetadataEntry;
+ TFetchThreatListUpdatesRequestArray = Array of TFetchThreatListUpdatesRequest;
+ TListUpdateRequestArray = Array of TListUpdateRequest;
+ TConstraintsArray = Array of TConstraints;
+ TFetchThreatListUpdatesResponseArray = Array of TFetchThreatListUpdatesResponse;
+ TListUpdateResponseArray = Array of TListUpdateResponse;
+ TThreatEntrySetArray = Array of TThreatEntrySet;
+ TRawHashesArray = Array of TRawHashes;
+ TRawIndicesArray = Array of TRawIndices;
+ TRiceDeltaEncodingArray = Array of TRiceDeltaEncoding;
+ TChecksumArray = Array of TChecksum;
+ TFindFullHashesRequestArray = Array of TFindFullHashesRequest;
+ TFindFullHashesResponseArray = Array of TFindFullHashesResponse;
+ TListThreatListsResponseArray = Array of TListThreatListsResponse;
+ TThreatListDescriptorArray = Array of TThreatListDescriptor;
+ //Anonymous types, using auto-generated names
+ TThreatInfoTypethreatEntriesArray = Array of TThreatEntry;
+ TFindThreatMatchesResponseTypematchesArray = Array of TThreatMatch;
+ TThreatEntryMetadataTypeentriesArray = Array of TMetadataEntry;
+ TFetchThreatListUpdatesRequestTypelistUpdateRequestsArray = Array of TListUpdateRequest;
+ TFetchThreatListUpdatesResponseTypelistUpdateResponsesArray = Array of TListUpdateResponse;
+ TListUpdateResponseTypeadditionsArray = Array of TThreatEntrySet;
+ TListUpdateResponseTyperemovalsArray = Array of TThreatEntrySet;
+ TFindFullHashesResponseTypematchesArray = Array of TThreatMatch;
+ TListThreatListsResponseTypethreatListsArray = Array of TThreatListDescriptor;
+
+ { --------------------------------------------------------------------
+ TFindThreatMatchesRequest
+ --------------------------------------------------------------------}
+
+ TFindThreatMatchesRequest = Class(TGoogleBaseObject)
+ Private
+ Fclient : TClientInfo;
+ FthreatInfo : TThreatInfo;
+ Protected
+ //Property setters
+ Procedure Setclient(AIndex : Integer; const AValue : TClientInfo); virtual;
+ Procedure SetthreatInfo(AIndex : Integer; const AValue : TThreatInfo); virtual;
+ Public
+ Published
+ Property client : TClientInfo Index 0 Read Fclient Write Setclient;
+ Property threatInfo : TThreatInfo Index 8 Read FthreatInfo Write SetthreatInfo;
+ end;
+ TFindThreatMatchesRequestClass = Class of TFindThreatMatchesRequest;
+
+ { --------------------------------------------------------------------
+ TClientInfo
+ --------------------------------------------------------------------}
+
+ TClientInfo = Class(TGoogleBaseObject)
+ Private
+ FclientId : String;
+ FclientVersion : String;
+ Protected
+ //Property setters
+ Procedure SetclientId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetclientVersion(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property clientId : String Index 0 Read FclientId Write SetclientId;
+ Property clientVersion : String Index 8 Read FclientVersion Write SetclientVersion;
+ end;
+ TClientInfoClass = Class of TClientInfo;
+
+ { --------------------------------------------------------------------
+ TThreatInfo
+ --------------------------------------------------------------------}
+
+ TThreatInfo = Class(TGoogleBaseObject)
+ Private
+ FthreatTypes : TStringArray;
+ FplatformTypes : TStringArray;
+ FthreatEntryTypes : TStringArray;
+ FthreatEntries : TThreatInfoTypethreatEntriesArray;
+ Protected
+ //Property setters
+ Procedure SetthreatTypes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetplatformTypes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetthreatEntryTypes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetthreatEntries(AIndex : Integer; const AValue : TThreatInfoTypethreatEntriesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property threatTypes : TStringArray Index 0 Read FthreatTypes Write SetthreatTypes;
+ Property platformTypes : TStringArray Index 8 Read FplatformTypes Write SetplatformTypes;
+ Property threatEntryTypes : TStringArray Index 16 Read FthreatEntryTypes Write SetthreatEntryTypes;
+ Property threatEntries : TThreatInfoTypethreatEntriesArray Index 24 Read FthreatEntries Write SetthreatEntries;
+ end;
+ TThreatInfoClass = Class of TThreatInfo;
+
+ { --------------------------------------------------------------------
+ TThreatEntry
+ --------------------------------------------------------------------}
+
+ TThreatEntry = Class(TGoogleBaseObject)
+ Private
+ Fhash : String;
+ Furl : String;
+ Fdigest : String;
+ Protected
+ //Property setters
+ Procedure Sethash(AIndex : Integer; const AValue : String); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdigest(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property hash : String Index 0 Read Fhash Write Sethash;
+ Property url : String Index 8 Read Furl Write Seturl;
+ Property digest : String Index 16 Read Fdigest Write Setdigest;
+ end;
+ TThreatEntryClass = Class of TThreatEntry;
+
+ { --------------------------------------------------------------------
+ TFindThreatMatchesResponse
+ --------------------------------------------------------------------}
+
+ TFindThreatMatchesResponse = Class(TGoogleBaseObject)
+ Private
+ Fmatches : TFindThreatMatchesResponseTypematchesArray;
+ Protected
+ //Property setters
+ Procedure Setmatches(AIndex : Integer; const AValue : TFindThreatMatchesResponseTypematchesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property matches : TFindThreatMatchesResponseTypematchesArray Index 0 Read Fmatches Write Setmatches;
+ end;
+ TFindThreatMatchesResponseClass = Class of TFindThreatMatchesResponse;
+
+ { --------------------------------------------------------------------
+ TThreatMatch
+ --------------------------------------------------------------------}
+
+ TThreatMatch = Class(TGoogleBaseObject)
+ Private
+ FthreatType : String;
+ FplatformType : String;
+ FthreatEntryType : String;
+ Fthreat : TThreatEntry;
+ FthreatEntryMetadata : TThreatEntryMetadata;
+ FcacheDuration : String;
+ Protected
+ //Property setters
+ Procedure SetthreatType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetplatformType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetthreatEntryType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setthreat(AIndex : Integer; const AValue : TThreatEntry); virtual;
+ Procedure SetthreatEntryMetadata(AIndex : Integer; const AValue : TThreatEntryMetadata); virtual;
+ Procedure SetcacheDuration(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property threatType : String Index 0 Read FthreatType Write SetthreatType;
+ Property platformType : String Index 8 Read FplatformType Write SetplatformType;
+ Property threatEntryType : String Index 16 Read FthreatEntryType Write SetthreatEntryType;
+ Property threat : TThreatEntry Index 24 Read Fthreat Write Setthreat;
+ Property threatEntryMetadata : TThreatEntryMetadata Index 32 Read FthreatEntryMetadata Write SetthreatEntryMetadata;
+ Property cacheDuration : String Index 40 Read FcacheDuration Write SetcacheDuration;
+ end;
+ TThreatMatchClass = Class of TThreatMatch;
+
+ { --------------------------------------------------------------------
+ TThreatEntryMetadata
+ --------------------------------------------------------------------}
+
+ TThreatEntryMetadata = Class(TGoogleBaseObject)
+ Private
+ Fentries : TThreatEntryMetadataTypeentriesArray;
+ Protected
+ //Property setters
+ Procedure Setentries(AIndex : Integer; const AValue : TThreatEntryMetadataTypeentriesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property entries : TThreatEntryMetadataTypeentriesArray Index 0 Read Fentries Write Setentries;
+ end;
+ TThreatEntryMetadataClass = Class of TThreatEntryMetadata;
+
+ { --------------------------------------------------------------------
+ TMetadataEntry
+ --------------------------------------------------------------------}
+
+ TMetadataEntry = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TMetadataEntryClass = Class of TMetadataEntry;
+
+ { --------------------------------------------------------------------
+ TFetchThreatListUpdatesRequest
+ --------------------------------------------------------------------}
+
+ TFetchThreatListUpdatesRequest = Class(TGoogleBaseObject)
+ Private
+ Fclient : TClientInfo;
+ FlistUpdateRequests : TFetchThreatListUpdatesRequestTypelistUpdateRequestsArray;
+ Protected
+ //Property setters
+ Procedure Setclient(AIndex : Integer; const AValue : TClientInfo); virtual;
+ Procedure SetlistUpdateRequests(AIndex : Integer; const AValue : TFetchThreatListUpdatesRequestTypelistUpdateRequestsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property client : TClientInfo Index 0 Read Fclient Write Setclient;
+ Property listUpdateRequests : TFetchThreatListUpdatesRequestTypelistUpdateRequestsArray Index 8 Read FlistUpdateRequests Write SetlistUpdateRequests;
+ end;
+ TFetchThreatListUpdatesRequestClass = Class of TFetchThreatListUpdatesRequest;
+
+ { --------------------------------------------------------------------
+ TListUpdateRequest
+ --------------------------------------------------------------------}
+
+ TListUpdateRequest = Class(TGoogleBaseObject)
+ Private
+ FthreatType : String;
+ FplatformType : String;
+ FthreatEntryType : String;
+ Fstate : String;
+ Fconstraints : TConstraints;
+ Protected
+ //Property setters
+ Procedure SetthreatType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetplatformType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetthreatEntryType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setconstraints(AIndex : Integer; const AValue : TConstraints); virtual;
+ Public
+ Published
+ Property threatType : String Index 0 Read FthreatType Write SetthreatType;
+ Property platformType : String Index 8 Read FplatformType Write SetplatformType;
+ Property threatEntryType : String Index 16 Read FthreatEntryType Write SetthreatEntryType;
+ Property state : String Index 24 Read Fstate Write Setstate;
+ Property constraints : TConstraints Index 32 Read Fconstraints Write Setconstraints;
+ end;
+ TListUpdateRequestClass = Class of TListUpdateRequest;
+
+ { --------------------------------------------------------------------
+ TConstraints
+ --------------------------------------------------------------------}
+
+ TConstraints = Class(TGoogleBaseObject)
+ Private
+ FmaxUpdateEntries : integer;
+ FmaxDatabaseEntries : integer;
+ Fregion : String;
+ FsupportedCompressions : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetmaxUpdateEntries(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetmaxDatabaseEntries(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsupportedCompressions(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 maxUpdateEntries : integer Index 0 Read FmaxUpdateEntries Write SetmaxUpdateEntries;
+ Property maxDatabaseEntries : integer Index 8 Read FmaxDatabaseEntries Write SetmaxDatabaseEntries;
+ Property region : String Index 16 Read Fregion Write Setregion;
+ Property supportedCompressions : TStringArray Index 24 Read FsupportedCompressions Write SetsupportedCompressions;
+ end;
+ TConstraintsClass = Class of TConstraints;
+
+ { --------------------------------------------------------------------
+ TFetchThreatListUpdatesResponse
+ --------------------------------------------------------------------}
+
+ TFetchThreatListUpdatesResponse = Class(TGoogleBaseObject)
+ Private
+ FlistUpdateResponses : TFetchThreatListUpdatesResponseTypelistUpdateResponsesArray;
+ FminimumWaitDuration : String;
+ Protected
+ //Property setters
+ Procedure SetlistUpdateResponses(AIndex : Integer; const AValue : TFetchThreatListUpdatesResponseTypelistUpdateResponsesArray); virtual;
+ Procedure SetminimumWaitDuration(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 listUpdateResponses : TFetchThreatListUpdatesResponseTypelistUpdateResponsesArray Index 0 Read FlistUpdateResponses Write SetlistUpdateResponses;
+ Property minimumWaitDuration : String Index 8 Read FminimumWaitDuration Write SetminimumWaitDuration;
+ end;
+ TFetchThreatListUpdatesResponseClass = Class of TFetchThreatListUpdatesResponse;
+
+ { --------------------------------------------------------------------
+ TListUpdateResponse
+ --------------------------------------------------------------------}
+
+ TListUpdateResponse = Class(TGoogleBaseObject)
+ Private
+ FthreatType : String;
+ FthreatEntryType : String;
+ FplatformType : String;
+ FresponseType : String;
+ Fadditions : TListUpdateResponseTypeadditionsArray;
+ Fremovals : TListUpdateResponseTyperemovalsArray;
+ FnewClientState : String;
+ Fchecksum : TChecksum;
+ Protected
+ //Property setters
+ Procedure SetthreatType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetthreatEntryType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetplatformType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetresponseType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setadditions(AIndex : Integer; const AValue : TListUpdateResponseTypeadditionsArray); virtual;
+ Procedure Setremovals(AIndex : Integer; const AValue : TListUpdateResponseTyperemovalsArray); virtual;
+ Procedure SetnewClientState(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setchecksum(AIndex : Integer; const AValue : TChecksum); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property threatType : String Index 0 Read FthreatType Write SetthreatType;
+ Property threatEntryType : String Index 8 Read FthreatEntryType Write SetthreatEntryType;
+ Property platformType : String Index 16 Read FplatformType Write SetplatformType;
+ Property responseType : String Index 24 Read FresponseType Write SetresponseType;
+ Property additions : TListUpdateResponseTypeadditionsArray Index 32 Read Fadditions Write Setadditions;
+ Property removals : TListUpdateResponseTyperemovalsArray Index 40 Read Fremovals Write Setremovals;
+ Property newClientState : String Index 48 Read FnewClientState Write SetnewClientState;
+ Property checksum : TChecksum Index 56 Read Fchecksum Write Setchecksum;
+ end;
+ TListUpdateResponseClass = Class of TListUpdateResponse;
+
+ { --------------------------------------------------------------------
+ TThreatEntrySet
+ --------------------------------------------------------------------}
+
+ TThreatEntrySet = Class(TGoogleBaseObject)
+ Private
+ FcompressionType : String;
+ FrawHashes : TRawHashes;
+ FrawIndices : TRawIndices;
+ FriceHashes : TRiceDeltaEncoding;
+ FriceIndices : TRiceDeltaEncoding;
+ Protected
+ //Property setters
+ Procedure SetcompressionType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrawHashes(AIndex : Integer; const AValue : TRawHashes); virtual;
+ Procedure SetrawIndices(AIndex : Integer; const AValue : TRawIndices); virtual;
+ Procedure SetriceHashes(AIndex : Integer; const AValue : TRiceDeltaEncoding); virtual;
+ Procedure SetriceIndices(AIndex : Integer; const AValue : TRiceDeltaEncoding); virtual;
+ Public
+ Published
+ Property compressionType : String Index 0 Read FcompressionType Write SetcompressionType;
+ Property rawHashes : TRawHashes Index 8 Read FrawHashes Write SetrawHashes;
+ Property rawIndices : TRawIndices Index 16 Read FrawIndices Write SetrawIndices;
+ Property riceHashes : TRiceDeltaEncoding Index 24 Read FriceHashes Write SetriceHashes;
+ Property riceIndices : TRiceDeltaEncoding Index 32 Read FriceIndices Write SetriceIndices;
+ end;
+ TThreatEntrySetClass = Class of TThreatEntrySet;
+
+ { --------------------------------------------------------------------
+ TRawHashes
+ --------------------------------------------------------------------}
+
+ TRawHashes = Class(TGoogleBaseObject)
+ Private
+ FprefixSize : integer;
+ FrawHashes : String;
+ Protected
+ //Property setters
+ Procedure SetprefixSize(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetrawHashes(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property prefixSize : integer Index 0 Read FprefixSize Write SetprefixSize;
+ Property rawHashes : String Index 8 Read FrawHashes Write SetrawHashes;
+ end;
+ TRawHashesClass = Class of TRawHashes;
+
+ { --------------------------------------------------------------------
+ TRawIndices
+ --------------------------------------------------------------------}
+
+ TRawIndices = Class(TGoogleBaseObject)
+ Private
+ Findices : TintegerArray;
+ Protected
+ //Property setters
+ Procedure Setindices(AIndex : Integer; const AValue : TintegerArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property indices : TintegerArray Index 0 Read Findices Write Setindices;
+ end;
+ TRawIndicesClass = Class of TRawIndices;
+
+ { --------------------------------------------------------------------
+ TRiceDeltaEncoding
+ --------------------------------------------------------------------}
+
+ TRiceDeltaEncoding = Class(TGoogleBaseObject)
+ Private
+ FfirstValue : String;
+ FriceParameter : integer;
+ FnumEntries : integer;
+ FencodedData : String;
+ Protected
+ //Property setters
+ Procedure SetfirstValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetriceParameter(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnumEntries(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetencodedData(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property firstValue : String Index 0 Read FfirstValue Write SetfirstValue;
+ Property riceParameter : integer Index 8 Read FriceParameter Write SetriceParameter;
+ Property numEntries : integer Index 16 Read FnumEntries Write SetnumEntries;
+ Property encodedData : String Index 24 Read FencodedData Write SetencodedData;
+ end;
+ TRiceDeltaEncodingClass = Class of TRiceDeltaEncoding;
+
+ { --------------------------------------------------------------------
+ TChecksum
+ --------------------------------------------------------------------}
+
+ TChecksum = Class(TGoogleBaseObject)
+ Private
+ Fsha256 : String;
+ Protected
+ //Property setters
+ Procedure Setsha256(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property sha256 : String Index 0 Read Fsha256 Write Setsha256;
+ end;
+ TChecksumClass = Class of TChecksum;
+
+ { --------------------------------------------------------------------
+ TFindFullHashesRequest
+ --------------------------------------------------------------------}
+
+ TFindFullHashesRequest = Class(TGoogleBaseObject)
+ Private
+ Fclient : TClientInfo;
+ FclientStates : TStringArray;
+ FthreatInfo : TThreatInfo;
+ Protected
+ //Property setters
+ Procedure Setclient(AIndex : Integer; const AValue : TClientInfo); virtual;
+ Procedure SetclientStates(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetthreatInfo(AIndex : Integer; const AValue : TThreatInfo); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property client : TClientInfo Index 0 Read Fclient Write Setclient;
+ Property clientStates : TStringArray Index 8 Read FclientStates Write SetclientStates;
+ Property threatInfo : TThreatInfo Index 16 Read FthreatInfo Write SetthreatInfo;
+ end;
+ TFindFullHashesRequestClass = Class of TFindFullHashesRequest;
+
+ { --------------------------------------------------------------------
+ TFindFullHashesResponse
+ --------------------------------------------------------------------}
+
+ TFindFullHashesResponse = Class(TGoogleBaseObject)
+ Private
+ Fmatches : TFindFullHashesResponseTypematchesArray;
+ FminimumWaitDuration : String;
+ FnegativeCacheDuration : String;
+ Protected
+ //Property setters
+ Procedure Setmatches(AIndex : Integer; const AValue : TFindFullHashesResponseTypematchesArray); virtual;
+ Procedure SetminimumWaitDuration(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnegativeCacheDuration(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 matches : TFindFullHashesResponseTypematchesArray Index 0 Read Fmatches Write Setmatches;
+ Property minimumWaitDuration : String Index 8 Read FminimumWaitDuration Write SetminimumWaitDuration;
+ Property negativeCacheDuration : String Index 16 Read FnegativeCacheDuration Write SetnegativeCacheDuration;
+ end;
+ TFindFullHashesResponseClass = Class of TFindFullHashesResponse;
+
+ { --------------------------------------------------------------------
+ TListThreatListsResponse
+ --------------------------------------------------------------------}
+
+ TListThreatListsResponse = Class(TGoogleBaseObject)
+ Private
+ FthreatLists : TListThreatListsResponseTypethreatListsArray;
+ Protected
+ //Property setters
+ Procedure SetthreatLists(AIndex : Integer; const AValue : TListThreatListsResponseTypethreatListsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property threatLists : TListThreatListsResponseTypethreatListsArray Index 0 Read FthreatLists Write SetthreatLists;
+ end;
+ TListThreatListsResponseClass = Class of TListThreatListsResponse;
+
+ { --------------------------------------------------------------------
+ TThreatListDescriptor
+ --------------------------------------------------------------------}
+
+ TThreatListDescriptor = Class(TGoogleBaseObject)
+ Private
+ FthreatType : String;
+ FplatformType : String;
+ FthreatEntryType : String;
+ Protected
+ //Property setters
+ Procedure SetthreatType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetplatformType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetthreatEntryType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property threatType : String Index 0 Read FthreatType Write SetthreatType;
+ Property platformType : String Index 8 Read FplatformType Write SetplatformType;
+ Property threatEntryType : String Index 16 Read FthreatEntryType Write SetthreatEntryType;
+ end;
+ TThreatListDescriptorClass = Class of TThreatListDescriptor;
+
+ { --------------------------------------------------------------------
+ TThreatMatchesResource
+ --------------------------------------------------------------------}
+
+ TThreatMatchesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Find(aFindThreatMatchesRequest : TFindThreatMatchesRequest) : TFindThreatMatchesResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TThreatListUpdatesResource
+ --------------------------------------------------------------------}
+
+ TThreatListUpdatesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Fetch(aFetchThreatListUpdatesRequest : TFetchThreatListUpdatesRequest) : TFetchThreatListUpdatesResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TFullHashesResource
+ --------------------------------------------------------------------}
+
+ TFullHashesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Find(aFindFullHashesRequest : TFindFullHashesRequest) : TFindFullHashesResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TThreatListsResource
+ --------------------------------------------------------------------}
+
+ TThreatListsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List : TListThreatListsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TSafebrowsingAPI
+ --------------------------------------------------------------------}
+
+ TSafebrowsingAPI = Class(TGoogleAPI)
+ Private
+ FThreatMatchesInstance : TThreatMatchesResource;
+ FThreatListUpdatesInstance : TThreatListUpdatesResource;
+ FFullHashesInstance : TFullHashesResource;
+ FThreatListsInstance : TThreatListsResource;
+ Function GetThreatMatchesInstance : TThreatMatchesResource;virtual;
+ Function GetThreatListUpdatesInstance : TThreatListUpdatesResource;virtual;
+ Function GetFullHashesInstance : TFullHashesResource;virtual;
+ Function GetThreatListsInstance : TThreatListsResource;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 CreateThreatMatchesResource(AOwner : TComponent) : TThreatMatchesResource;virtual;overload;
+ Function CreateThreatMatchesResource : TThreatMatchesResource;virtual;overload;
+ Function CreateThreatListUpdatesResource(AOwner : TComponent) : TThreatListUpdatesResource;virtual;overload;
+ Function CreateThreatListUpdatesResource : TThreatListUpdatesResource;virtual;overload;
+ Function CreateFullHashesResource(AOwner : TComponent) : TFullHashesResource;virtual;overload;
+ Function CreateFullHashesResource : TFullHashesResource;virtual;overload;
+ Function CreateThreatListsResource(AOwner : TComponent) : TThreatListsResource;virtual;overload;
+ Function CreateThreatListsResource : TThreatListsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ThreatMatchesResource : TThreatMatchesResource Read GetThreatMatchesInstance;
+ Property ThreatListUpdatesResource : TThreatListUpdatesResource Read GetThreatListUpdatesInstance;
+ Property FullHashesResource : TFullHashesResource Read GetFullHashesInstance;
+ Property ThreatListsResource : TThreatListsResource Read GetThreatListsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TFindThreatMatchesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TFindThreatMatchesRequest.Setclient(AIndex : Integer; const AValue : TClientInfo);
+
+begin
+ If (Fclient=AValue) then exit;
+ Fclient:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindThreatMatchesRequest.SetthreatInfo(AIndex : Integer; const AValue : TThreatInfo);
+
+begin
+ If (FthreatInfo=AValue) then exit;
+ FthreatInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TClientInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TClientInfo.SetclientId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclientId=AValue) then exit;
+ FclientId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TClientInfo.SetclientVersion(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclientVersion=AValue) then exit;
+ FclientVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TThreatInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TThreatInfo.SetthreatTypes(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FthreatTypes=AValue) then exit;
+ FthreatTypes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatInfo.SetplatformTypes(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FplatformTypes=AValue) then exit;
+ FplatformTypes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatInfo.SetthreatEntryTypes(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FthreatEntryTypes=AValue) then exit;
+ FthreatEntryTypes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatInfo.SetthreatEntries(AIndex : Integer; const AValue : TThreatInfoTypethreatEntriesArray);
+
+begin
+ If (FthreatEntries=AValue) then exit;
+ FthreatEntries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TThreatInfo.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'threattypes' : SetLength(FthreatTypes,ALength);
+ 'platformtypes' : SetLength(FplatformTypes,ALength);
+ 'threatentrytypes' : SetLength(FthreatEntryTypes,ALength);
+ 'threatentries' : SetLength(FthreatEntries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TThreatEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TThreatEntry.Sethash(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fhash=AValue) then exit;
+ Fhash:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatEntry.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatEntry.Setdigest(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdigest=AValue) then exit;
+ Fdigest:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TFindThreatMatchesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TFindThreatMatchesResponse.Setmatches(AIndex : Integer; const AValue : TFindThreatMatchesResponseTypematchesArray);
+
+begin
+ If (Fmatches=AValue) then exit;
+ Fmatches:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFindThreatMatchesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'matches' : SetLength(Fmatches,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TThreatMatch
+ --------------------------------------------------------------------}
+
+
+Procedure TThreatMatch.SetthreatType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthreatType=AValue) then exit;
+ FthreatType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatMatch.SetplatformType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FplatformType=AValue) then exit;
+ FplatformType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatMatch.SetthreatEntryType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthreatEntryType=AValue) then exit;
+ FthreatEntryType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatMatch.Setthreat(AIndex : Integer; const AValue : TThreatEntry);
+
+begin
+ If (Fthreat=AValue) then exit;
+ Fthreat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatMatch.SetthreatEntryMetadata(AIndex : Integer; const AValue : TThreatEntryMetadata);
+
+begin
+ If (FthreatEntryMetadata=AValue) then exit;
+ FthreatEntryMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatMatch.SetcacheDuration(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcacheDuration=AValue) then exit;
+ FcacheDuration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TThreatEntryMetadata
+ --------------------------------------------------------------------}
+
+
+Procedure TThreatEntryMetadata.Setentries(AIndex : Integer; const AValue : TThreatEntryMetadataTypeentriesArray);
+
+begin
+ If (Fentries=AValue) then exit;
+ Fentries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TThreatEntryMetadata.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'entries' : SetLength(Fentries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TMetadataEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TMetadataEntry.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMetadataEntry.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TFetchThreatListUpdatesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TFetchThreatListUpdatesRequest.Setclient(AIndex : Integer; const AValue : TClientInfo);
+
+begin
+ If (Fclient=AValue) then exit;
+ Fclient:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFetchThreatListUpdatesRequest.SetlistUpdateRequests(AIndex : Integer; const AValue : TFetchThreatListUpdatesRequestTypelistUpdateRequestsArray);
+
+begin
+ If (FlistUpdateRequests=AValue) then exit;
+ FlistUpdateRequests:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFetchThreatListUpdatesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'listupdaterequests' : SetLength(FlistUpdateRequests,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListUpdateRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TListUpdateRequest.SetthreatType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthreatType=AValue) then exit;
+ FthreatType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUpdateRequest.SetplatformType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FplatformType=AValue) then exit;
+ FplatformType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUpdateRequest.SetthreatEntryType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthreatEntryType=AValue) then exit;
+ FthreatEntryType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUpdateRequest.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUpdateRequest.Setconstraints(AIndex : Integer; const AValue : TConstraints);
+
+begin
+ If (Fconstraints=AValue) then exit;
+ Fconstraints:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TConstraints
+ --------------------------------------------------------------------}
+
+
+Procedure TConstraints.SetmaxUpdateEntries(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaxUpdateEntries=AValue) then exit;
+ FmaxUpdateEntries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConstraints.SetmaxDatabaseEntries(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaxDatabaseEntries=AValue) then exit;
+ FmaxDatabaseEntries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConstraints.Setregion(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fregion=AValue) then exit;
+ Fregion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConstraints.SetsupportedCompressions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FsupportedCompressions=AValue) then exit;
+ FsupportedCompressions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TConstraints.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'supportedcompressions' : SetLength(FsupportedCompressions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TFetchThreatListUpdatesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TFetchThreatListUpdatesResponse.SetlistUpdateResponses(AIndex : Integer; const AValue : TFetchThreatListUpdatesResponseTypelistUpdateResponsesArray);
+
+begin
+ If (FlistUpdateResponses=AValue) then exit;
+ FlistUpdateResponses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFetchThreatListUpdatesResponse.SetminimumWaitDuration(AIndex : Integer; const AValue : String);
+
+begin
+ If (FminimumWaitDuration=AValue) then exit;
+ FminimumWaitDuration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFetchThreatListUpdatesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'listupdateresponses' : SetLength(FlistUpdateResponses,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListUpdateResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListUpdateResponse.SetthreatType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthreatType=AValue) then exit;
+ FthreatType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUpdateResponse.SetthreatEntryType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthreatEntryType=AValue) then exit;
+ FthreatEntryType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUpdateResponse.SetplatformType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FplatformType=AValue) then exit;
+ FplatformType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUpdateResponse.SetresponseType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FresponseType=AValue) then exit;
+ FresponseType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUpdateResponse.Setadditions(AIndex : Integer; const AValue : TListUpdateResponseTypeadditionsArray);
+
+begin
+ If (Fadditions=AValue) then exit;
+ Fadditions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUpdateResponse.Setremovals(AIndex : Integer; const AValue : TListUpdateResponseTyperemovalsArray);
+
+begin
+ If (Fremovals=AValue) then exit;
+ Fremovals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUpdateResponse.SetnewClientState(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnewClientState=AValue) then exit;
+ FnewClientState:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListUpdateResponse.Setchecksum(AIndex : Integer; const AValue : TChecksum);
+
+begin
+ If (Fchecksum=AValue) then exit;
+ Fchecksum:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListUpdateResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'additions' : SetLength(Fadditions,ALength);
+ 'removals' : SetLength(Fremovals,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TThreatEntrySet
+ --------------------------------------------------------------------}
+
+
+Procedure TThreatEntrySet.SetcompressionType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcompressionType=AValue) then exit;
+ FcompressionType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatEntrySet.SetrawHashes(AIndex : Integer; const AValue : TRawHashes);
+
+begin
+ If (FrawHashes=AValue) then exit;
+ FrawHashes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatEntrySet.SetrawIndices(AIndex : Integer; const AValue : TRawIndices);
+
+begin
+ If (FrawIndices=AValue) then exit;
+ FrawIndices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatEntrySet.SetriceHashes(AIndex : Integer; const AValue : TRiceDeltaEncoding);
+
+begin
+ If (FriceHashes=AValue) then exit;
+ FriceHashes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatEntrySet.SetriceIndices(AIndex : Integer; const AValue : TRiceDeltaEncoding);
+
+begin
+ If (FriceIndices=AValue) then exit;
+ FriceIndices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TRawHashes
+ --------------------------------------------------------------------}
+
+
+Procedure TRawHashes.SetprefixSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FprefixSize=AValue) then exit;
+ FprefixSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRawHashes.SetrawHashes(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrawHashes=AValue) then exit;
+ FrawHashes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TRawIndices
+ --------------------------------------------------------------------}
+
+
+Procedure TRawIndices.Setindices(AIndex : Integer; const AValue : TintegerArray);
+
+begin
+ If (Findices=AValue) then exit;
+ Findices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRawIndices.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'indices' : SetLength(Findices,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TRiceDeltaEncoding
+ --------------------------------------------------------------------}
+
+
+Procedure TRiceDeltaEncoding.SetfirstValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfirstValue=AValue) then exit;
+ FfirstValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRiceDeltaEncoding.SetriceParameter(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FriceParameter=AValue) then exit;
+ FriceParameter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRiceDeltaEncoding.SetnumEntries(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FnumEntries=AValue) then exit;
+ FnumEntries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRiceDeltaEncoding.SetencodedData(AIndex : Integer; const AValue : String);
+
+begin
+ If (FencodedData=AValue) then exit;
+ FencodedData:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TChecksum
+ --------------------------------------------------------------------}
+
+
+Procedure TChecksum.Setsha256(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsha256=AValue) then exit;
+ Fsha256:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TFindFullHashesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TFindFullHashesRequest.Setclient(AIndex : Integer; const AValue : TClientInfo);
+
+begin
+ If (Fclient=AValue) then exit;
+ Fclient:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindFullHashesRequest.SetclientStates(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FclientStates=AValue) then exit;
+ FclientStates:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindFullHashesRequest.SetthreatInfo(AIndex : Integer; const AValue : TThreatInfo);
+
+begin
+ If (FthreatInfo=AValue) then exit;
+ FthreatInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFindFullHashesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'clientstates' : SetLength(FclientStates,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TFindFullHashesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TFindFullHashesResponse.Setmatches(AIndex : Integer; const AValue : TFindFullHashesResponseTypematchesArray);
+
+begin
+ If (Fmatches=AValue) then exit;
+ Fmatches:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindFullHashesResponse.SetminimumWaitDuration(AIndex : Integer; const AValue : String);
+
+begin
+ If (FminimumWaitDuration=AValue) then exit;
+ FminimumWaitDuration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindFullHashesResponse.SetnegativeCacheDuration(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnegativeCacheDuration=AValue) then exit;
+ FnegativeCacheDuration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFindFullHashesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'matches' : SetLength(Fmatches,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListThreatListsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListThreatListsResponse.SetthreatLists(AIndex : Integer; const AValue : TListThreatListsResponseTypethreatListsArray);
+
+begin
+ If (FthreatLists=AValue) then exit;
+ FthreatLists:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListThreatListsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'threatlists' : SetLength(FthreatLists,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TThreatListDescriptor
+ --------------------------------------------------------------------}
+
+
+Procedure TThreatListDescriptor.SetthreatType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthreatType=AValue) then exit;
+ FthreatType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatListDescriptor.SetplatformType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FplatformType=AValue) then exit;
+ FplatformType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThreatListDescriptor.SetthreatEntryType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FthreatEntryType=AValue) then exit;
+ FthreatEntryType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TThreatMatchesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TThreatMatchesResource.ResourceName : String;
+
+begin
+ Result:='threatMatches';
+end;
+
+Class Function TThreatMatchesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TsafebrowsingAPI;
+end;
+
+Function TThreatMatchesResource.Find(aFindThreatMatchesRequest : TFindThreatMatchesRequest) : TFindThreatMatchesResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v4/threatMatches:find';
+ _Methodid = 'safebrowsing.threatMatches.find';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aFindThreatMatchesRequest,TFindThreatMatchesResponse) as TFindThreatMatchesResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TThreatListUpdatesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TThreatListUpdatesResource.ResourceName : String;
+
+begin
+ Result:='threatListUpdates';
+end;
+
+Class Function TThreatListUpdatesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TsafebrowsingAPI;
+end;
+
+Function TThreatListUpdatesResource.Fetch(aFetchThreatListUpdatesRequest : TFetchThreatListUpdatesRequest) : TFetchThreatListUpdatesResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v4/threatListUpdates:fetch';
+ _Methodid = 'safebrowsing.threatListUpdates.fetch';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aFetchThreatListUpdatesRequest,TFetchThreatListUpdatesResponse) as TFetchThreatListUpdatesResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TFullHashesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TFullHashesResource.ResourceName : String;
+
+begin
+ Result:='fullHashes';
+end;
+
+Class Function TFullHashesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TsafebrowsingAPI;
+end;
+
+Function TFullHashesResource.Find(aFindFullHashesRequest : TFindFullHashesRequest) : TFindFullHashesResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v4/fullHashes:find';
+ _Methodid = 'safebrowsing.fullHashes.find';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aFindFullHashesRequest,TFindFullHashesResponse) as TFindFullHashesResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TThreatListsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TThreatListsResource.ResourceName : String;
+
+begin
+ Result:='threatLists';
+end;
+
+Class Function TThreatListsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TsafebrowsingAPI;
+end;
+
+Function TThreatListsResource.List : TListThreatListsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v4/threatLists';
+ _Methodid = 'safebrowsing.threatLists.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TListThreatListsResponse) as TListThreatListsResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSafebrowsingAPI
+ --------------------------------------------------------------------}
+
+Class Function TSafebrowsingAPI.APIName : String;
+
+begin
+ Result:='safebrowsing';
+end;
+
+Class Function TSafebrowsingAPI.APIVersion : String;
+
+begin
+ Result:='v4';
+end;
+
+Class Function TSafebrowsingAPI.APIRevision : String;
+
+begin
+ Result:='20160520';
+end;
+
+Class Function TSafebrowsingAPI.APIID : String;
+
+begin
+ Result:='safebrowsing:v4';
+end;
+
+Class Function TSafebrowsingAPI.APITitle : String;
+
+begin
+ Result:='Safe Browsing APIs';
+end;
+
+Class Function TSafebrowsingAPI.APIDescription : String;
+
+begin
+ Result:='Enables client applications to check web resources (most commonly URLs) against Google-generated lists of unsafe web resources.';
+end;
+
+Class Function TSafebrowsingAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TSafebrowsingAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TSafebrowsingAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TSafebrowsingAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TSafebrowsingAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/safe-browsing/';
+end;
+
+Class Function TSafebrowsingAPI.APIrootUrl : string;
+
+begin
+ Result:='https://safebrowsing.googleapis.com/';
+end;
+
+Class Function TSafebrowsingAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TSafebrowsingAPI.APIbaseURL : String;
+
+begin
+ Result:='https://safebrowsing.googleapis.com/';
+end;
+
+Class Function TSafebrowsingAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TSafebrowsingAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TSafebrowsingAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TSafebrowsingAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,0);
+
+end;
+
+Class Function TSafebrowsingAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=False;
+end;
+
+Class Procedure TSafebrowsingAPI.RegisterAPIResources;
+
+begin
+ TFindThreatMatchesRequest.RegisterObject;
+ TClientInfo.RegisterObject;
+ TThreatInfo.RegisterObject;
+ TThreatEntry.RegisterObject;
+ TFindThreatMatchesResponse.RegisterObject;
+ TThreatMatch.RegisterObject;
+ TThreatEntryMetadata.RegisterObject;
+ TMetadataEntry.RegisterObject;
+ TFetchThreatListUpdatesRequest.RegisterObject;
+ TListUpdateRequest.RegisterObject;
+ TConstraints.RegisterObject;
+ TFetchThreatListUpdatesResponse.RegisterObject;
+ TListUpdateResponse.RegisterObject;
+ TThreatEntrySet.RegisterObject;
+ TRawHashes.RegisterObject;
+ TRawIndices.RegisterObject;
+ TRiceDeltaEncoding.RegisterObject;
+ TChecksum.RegisterObject;
+ TFindFullHashesRequest.RegisterObject;
+ TFindFullHashesResponse.RegisterObject;
+ TListThreatListsResponse.RegisterObject;
+ TThreatListDescriptor.RegisterObject;
+end;
+
+
+Function TSafebrowsingAPI.GetThreatMatchesInstance : TThreatMatchesResource;
+
+begin
+ if (FThreatMatchesInstance=Nil) then
+ FThreatMatchesInstance:=CreateThreatMatchesResource;
+ Result:=FThreatMatchesInstance;
+end;
+
+Function TSafebrowsingAPI.CreateThreatMatchesResource : TThreatMatchesResource;
+
+begin
+ Result:=CreateThreatMatchesResource(Self);
+end;
+
+
+Function TSafebrowsingAPI.CreateThreatMatchesResource(AOwner : TComponent) : TThreatMatchesResource;
+
+begin
+ Result:=TThreatMatchesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TSafebrowsingAPI.GetThreatListUpdatesInstance : TThreatListUpdatesResource;
+
+begin
+ if (FThreatListUpdatesInstance=Nil) then
+ FThreatListUpdatesInstance:=CreateThreatListUpdatesResource;
+ Result:=FThreatListUpdatesInstance;
+end;
+
+Function TSafebrowsingAPI.CreateThreatListUpdatesResource : TThreatListUpdatesResource;
+
+begin
+ Result:=CreateThreatListUpdatesResource(Self);
+end;
+
+
+Function TSafebrowsingAPI.CreateThreatListUpdatesResource(AOwner : TComponent) : TThreatListUpdatesResource;
+
+begin
+ Result:=TThreatListUpdatesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TSafebrowsingAPI.GetFullHashesInstance : TFullHashesResource;
+
+begin
+ if (FFullHashesInstance=Nil) then
+ FFullHashesInstance:=CreateFullHashesResource;
+ Result:=FFullHashesInstance;
+end;
+
+Function TSafebrowsingAPI.CreateFullHashesResource : TFullHashesResource;
+
+begin
+ Result:=CreateFullHashesResource(Self);
+end;
+
+
+Function TSafebrowsingAPI.CreateFullHashesResource(AOwner : TComponent) : TFullHashesResource;
+
+begin
+ Result:=TFullHashesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TSafebrowsingAPI.GetThreatListsInstance : TThreatListsResource;
+
+begin
+ if (FThreatListsInstance=Nil) then
+ FThreatListsInstance:=CreateThreatListsResource;
+ Result:=FThreatListsInstance;
+end;
+
+Function TSafebrowsingAPI.CreateThreatListsResource : TThreatListsResource;
+
+begin
+ Result:=CreateThreatListsResource(Self);
+end;
+
+
+Function TSafebrowsingAPI.CreateThreatListsResource(AOwner : TComponent) : TThreatListsResource;
+
+begin
+ Result:=TThreatListsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TSafebrowsingAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlescript.pp b/packages/googleapi/src/googlescript.pp
new file mode 100644
index 0000000000..63e9d2a7f7
--- /dev/null
+++ b/packages/googleapi/src/googlescript.pp
@@ -0,0 +1,809 @@
+unit googlescript;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TExecutionRequest = Class;
+ TOperation = Class;
+ TStatus = Class;
+ TExecutionError = Class;
+ TScriptStackTraceElement = Class;
+ TExecutionResponse = Class;
+ TExecutionRequestArray = Array of TExecutionRequest;
+ TOperationArray = Array of TOperation;
+ TStatusArray = Array of TStatus;
+ TExecutionErrorArray = Array of TExecutionError;
+ TScriptStackTraceElementArray = Array of TScriptStackTraceElement;
+ TExecutionResponseArray = Array of TExecutionResponse;
+ //Anonymous types, using auto-generated names
+ TOperationTypemetadata = Class;
+ TOperationTyperesponse = Class;
+ TStatusTypedetailsItem = Class;
+ TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
+ TExecutionErrorTypescriptStackTraceElementsArray = Array of TScriptStackTraceElement;
+
+ { --------------------------------------------------------------------
+ TExecutionRequest
+ --------------------------------------------------------------------}
+
+ TExecutionRequest = Class(TGoogleBaseObject)
+ Private
+ F_function : String;
+ Fparameters : TTJSONSchemaArray;
+ FsessionState : String;
+ FdevMode : boolean;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_function(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setparameters(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
+ Procedure SetsessionState(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdevMode(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 _function : String Index 0 Read F_function Write Set_function;
+ Property parameters : TTJSONSchemaArray Index 8 Read Fparameters Write Setparameters;
+ Property sessionState : String Index 16 Read FsessionState Write SetsessionState;
+ Property devMode : boolean Index 24 Read FdevMode Write SetdevMode;
+ end;
+ TExecutionRequestClass = Class of TExecutionRequest;
+
+ { --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+ TOperationTypemetadata = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTypemetadataClass = Class of TOperationTypemetadata;
+
+ { --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+ TOperationTyperesponse = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTyperesponseClass = Class of TOperationTyperesponse;
+
+ { --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+ TOperation = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fmetadata : TOperationTypemetadata;
+ Fdone : boolean;
+ Ferror : TStatus;
+ Fresponse : TOperationTyperesponse;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); virtual;
+ Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
+ Procedure Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property metadata : TOperationTypemetadata Index 8 Read Fmetadata Write Setmetadata;
+ Property done : boolean Index 16 Read Fdone Write Setdone;
+ Property error : TStatus Index 24 Read Ferror Write Seterror;
+ Property response : TOperationTyperesponse Index 32 Read Fresponse Write Setresponse;
+ end;
+ TOperationClass = Class of TOperation;
+
+ { --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+ TStatusTypedetailsItem = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
+
+ { --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+ TStatus = Class(TGoogleBaseObject)
+ Private
+ Fcode : integer;
+ Fmessage : String;
+ Fdetails : TStatusTypedetailsArray;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property code : integer Index 0 Read Fcode Write Setcode;
+ Property message : String Index 8 Read Fmessage Write Setmessage;
+ Property details : TStatusTypedetailsArray Index 16 Read Fdetails Write Setdetails;
+ end;
+ TStatusClass = Class of TStatus;
+
+ { --------------------------------------------------------------------
+ TExecutionError
+ --------------------------------------------------------------------}
+
+ TExecutionError = Class(TGoogleBaseObject)
+ Private
+ FscriptStackTraceElements : TExecutionErrorTypescriptStackTraceElementsArray;
+ FerrorMessage : String;
+ FerrorType : String;
+ Protected
+ //Property setters
+ Procedure SetscriptStackTraceElements(AIndex : Integer; const AValue : TExecutionErrorTypescriptStackTraceElementsArray); virtual;
+ Procedure SeterrorMessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeterrorType(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 scriptStackTraceElements : TExecutionErrorTypescriptStackTraceElementsArray Index 0 Read FscriptStackTraceElements Write SetscriptStackTraceElements;
+ Property errorMessage : String Index 8 Read FerrorMessage Write SeterrorMessage;
+ Property errorType : String Index 16 Read FerrorType Write SeterrorType;
+ end;
+ TExecutionErrorClass = Class of TExecutionError;
+
+ { --------------------------------------------------------------------
+ TScriptStackTraceElement
+ --------------------------------------------------------------------}
+
+ TScriptStackTraceElement = Class(TGoogleBaseObject)
+ Private
+ F_function : String;
+ FlineNumber : integer;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_function(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlineNumber(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property _function : String Index 0 Read F_function Write Set_function;
+ Property lineNumber : integer Index 8 Read FlineNumber Write SetlineNumber;
+ end;
+ TScriptStackTraceElementClass = Class of TScriptStackTraceElement;
+
+ { --------------------------------------------------------------------
+ TExecutionResponse
+ --------------------------------------------------------------------}
+
+ TExecutionResponse = Class(TGoogleBaseObject)
+ Private
+ Fresult : TJSONSchema;
+ Protected
+ //Property setters
+ Procedure Setresult(AIndex : Integer; const AValue : TJSONSchema); virtual;
+ Public
+ Published
+ Property result : TJSONSchema Index 0 Read Fresult Write Setresult;
+ end;
+ TExecutionResponseClass = Class of TExecutionResponse;
+
+ { --------------------------------------------------------------------
+ TScriptsResource
+ --------------------------------------------------------------------}
+
+ TScriptsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Run(scriptId: string; aExecutionRequest : TExecutionRequest) : TOperation;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TScriptAPI
+ --------------------------------------------------------------------}
+
+ TScriptAPI = Class(TGoogleAPI)
+ Private
+ FScriptsInstance : TScriptsResource;
+ Function GetScriptsInstance : TScriptsResource;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 CreateScriptsResource(AOwner : TComponent) : TScriptsResource;virtual;overload;
+ Function CreateScriptsResource : TScriptsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ScriptsResource : TScriptsResource Read GetScriptsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TExecutionRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TExecutionRequest.Set_function(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_function=AValue) then exit;
+ F_function:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExecutionRequest.Setparameters(AIndex : Integer; const AValue : TTJSONSchemaArray);
+
+begin
+ If (Fparameters=AValue) then exit;
+ Fparameters:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExecutionRequest.SetsessionState(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsessionState=AValue) then exit;
+ FsessionState:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExecutionRequest.SetdevMode(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FdevMode=AValue) then exit;
+ FdevMode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TExecutionRequest.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_function' : Result:='function';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TExecutionRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'parameters' : SetLength(Fparameters,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTypemetadata.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTyperesponse.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fdone=AValue) then exit;
+ Fdone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
+
+begin
+ If (Fresponse=AValue) then exit;
+ Fresponse:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+
+Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'details' : SetLength(Fdetails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TExecutionError
+ --------------------------------------------------------------------}
+
+
+Procedure TExecutionError.SetscriptStackTraceElements(AIndex : Integer; const AValue : TExecutionErrorTypescriptStackTraceElementsArray);
+
+begin
+ If (FscriptStackTraceElements=AValue) then exit;
+ FscriptStackTraceElements:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExecutionError.SeterrorMessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FerrorMessage=AValue) then exit;
+ FerrorMessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExecutionError.SeterrorType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FerrorType=AValue) then exit;
+ FerrorType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TExecutionError.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'scriptstacktraceelements' : SetLength(FscriptStackTraceElements,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TScriptStackTraceElement
+ --------------------------------------------------------------------}
+
+
+Procedure TScriptStackTraceElement.Set_function(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_function=AValue) then exit;
+ F_function:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TScriptStackTraceElement.SetlineNumber(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FlineNumber=AValue) then exit;
+ FlineNumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TScriptStackTraceElement.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_function' : Result:='function';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TExecutionResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TExecutionResponse.Setresult(AIndex : Integer; const AValue : TJSONSchema);
+
+begin
+ If (Fresult=AValue) then exit;
+ Fresult:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TScriptsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TScriptsResource.ResourceName : String;
+
+begin
+ Result:='scripts';
+end;
+
+Class Function TScriptsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TscriptAPI;
+end;
+
+Function TScriptsResource.Run(scriptId: string; aExecutionRequest : TExecutionRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/scripts/{scriptId}:run';
+ _Methodid = 'script.scripts.run';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['scriptId',scriptId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aExecutionRequest,TOperation) as TOperation;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TScriptAPI
+ --------------------------------------------------------------------}
+
+Class Function TScriptAPI.APIName : String;
+
+begin
+ Result:='script';
+end;
+
+Class Function TScriptAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TScriptAPI.APIRevision : String;
+
+begin
+ Result:='20160426';
+end;
+
+Class Function TScriptAPI.APIID : String;
+
+begin
+ Result:='script:v1';
+end;
+
+Class Function TScriptAPI.APITitle : String;
+
+begin
+ Result:='Google Apps Script Execution API';
+end;
+
+Class Function TScriptAPI.APIDescription : String;
+
+begin
+ Result:='Executes Google Apps Script projects.';
+end;
+
+Class Function TScriptAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TScriptAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TScriptAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TScriptAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TScriptAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/apps-script/execution/rest/v1/scripts/run';
+end;
+
+Class Function TScriptAPI.APIrootUrl : string;
+
+begin
+ Result:='https://script.googleapis.com/';
+end;
+
+Class Function TScriptAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TScriptAPI.APIbaseURL : String;
+
+begin
+ Result:='https://script.googleapis.com/';
+end;
+
+Class Function TScriptAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TScriptAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TScriptAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TScriptAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,11);
+ Result[0].Name:='https://mail.google.com/';
+ Result[0].Description:='View and manage your mail';
+ Result[1].Name:='https://www.google.com/calendar/feeds';
+ Result[1].Description:='Manage your calendars';
+ Result[2].Name:='https://www.google.com/m8/feeds';
+ Result[2].Description:='Manage your contacts';
+ Result[3].Name:='https://www.googleapis.com/auth/admin.directory.group';
+ Result[3].Description:='View and manage the provisioning of groups on your domain';
+ Result[4].Name:='https://www.googleapis.com/auth/admin.directory.user';
+ Result[4].Description:='View and manage the provisioning of users on your domain';
+ Result[5].Name:='https://www.googleapis.com/auth/drive';
+ Result[5].Description:='View and manage the files in your Google Drive';
+ Result[6].Name:='https://www.googleapis.com/auth/forms';
+ Result[6].Description:='View and manage your forms in Google Drive';
+ Result[7].Name:='https://www.googleapis.com/auth/forms.currentonly';
+ Result[7].Description:='View and manage forms that this application has been installed in';
+ Result[8].Name:='https://www.googleapis.com/auth/groups';
+ Result[8].Description:='View and manage your Google Groups';
+ Result[9].Name:='https://www.googleapis.com/auth/spreadsheets';
+ Result[9].Description:='View and manage your spreadsheets in Google Drive';
+ Result[10].Name:='https://www.googleapis.com/auth/userinfo.email';
+ Result[10].Description:='View your email address';
+
+end;
+
+Class Function TScriptAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TScriptAPI.RegisterAPIResources;
+
+begin
+ TExecutionRequest.RegisterObject;
+ TOperationTypemetadata.RegisterObject;
+ TOperationTyperesponse.RegisterObject;
+ TOperation.RegisterObject;
+ TStatusTypedetailsItem.RegisterObject;
+ TStatus.RegisterObject;
+ TExecutionError.RegisterObject;
+ TScriptStackTraceElement.RegisterObject;
+ TExecutionResponse.RegisterObject;
+end;
+
+
+Function TScriptAPI.GetScriptsInstance : TScriptsResource;
+
+begin
+ if (FScriptsInstance=Nil) then
+ FScriptsInstance:=CreateScriptsResource;
+ Result:=FScriptsInstance;
+end;
+
+Function TScriptAPI.CreateScriptsResource : TScriptsResource;
+
+begin
+ Result:=CreateScriptsResource(Self);
+end;
+
+
+Function TScriptAPI.CreateScriptsResource(AOwner : TComponent) : TScriptsResource;
+
+begin
+ Result:=TScriptsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TScriptAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googleserviceregistry.pp b/packages/googleapi/src/googleserviceregistry.pp
new file mode 100644
index 0000000000..2ef0c6b42d
--- /dev/null
+++ b/packages/googleapi/src/googleserviceregistry.pp
@@ -0,0 +1,1416 @@
+unit googleserviceregistry;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TEndpoint = Class;
+ TEndpointEndpointVisibility = Class;
+ TEndpointsListResponse = Class;
+ TOperation = Class;
+ TOperationsListResponse = Class;
+ TEndpointArray = Array of TEndpoint;
+ TEndpointEndpointVisibilityArray = Array of TEndpointEndpointVisibility;
+ TEndpointsListResponseArray = Array of TEndpointsListResponse;
+ TOperationArray = Array of TOperation;
+ TOperationsListResponseArray = Array of TOperationsListResponse;
+ //Anonymous types, using auto-generated names
+ TOperationTypeerrorTypeerrorsItem = Class;
+ TOperationTypeerror = Class;
+ TOperationTypewarningsItemTypedataItem = Class;
+ TOperationTypewarningsItem = Class;
+ TEndpointsListResponseTypeendpointsArray = Array of TEndpoint;
+ TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
+ TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
+ TOperationTypewarningsArray = Array of TOperationTypewarningsItem;
+ TOperationsListResponseTypeoperationsArray = Array of TOperation;
+
+ { --------------------------------------------------------------------
+ TEndpoint
+ --------------------------------------------------------------------}
+
+ TEndpoint = Class(TGoogleBaseObject)
+ Private
+ Faddress : String;
+ FcreationTimestamp : String;
+ Fdescription : String;
+ Ffingerprint : String;
+ Fid : String;
+ Fname : String;
+ Fport : integer;
+ FselfLink : String;
+ Fstate : String;
+ Fvisibility : TEndpointEndpointVisibility;
+ Protected
+ //Property setters
+ Procedure Setaddress(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvisibility(AIndex : Integer; const AValue : TEndpointEndpointVisibility); virtual;
+ Public
+ Published
+ Property address : String Index 0 Read Faddress Write Setaddress;
+ Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ Property fingerprint : String Index 24 Read Ffingerprint Write Setfingerprint;
+ Property id : String Index 32 Read Fid Write Setid;
+ Property name : String Index 40 Read Fname Write Setname;
+ Property port : integer Index 48 Read Fport Write Setport;
+ Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
+ Property state : String Index 64 Read Fstate Write Setstate;
+ Property visibility : TEndpointEndpointVisibility Index 72 Read Fvisibility Write Setvisibility;
+ end;
+ TEndpointClass = Class of TEndpoint;
+
+ { --------------------------------------------------------------------
+ TEndpointEndpointVisibility
+ --------------------------------------------------------------------}
+
+ TEndpointEndpointVisibility = Class(TGoogleBaseObject)
+ Private
+ FinternalDnsName : String;
+ Fnetworks : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetinternalDnsName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setnetworks(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 internalDnsName : String Index 0 Read FinternalDnsName Write SetinternalDnsName;
+ Property networks : TStringArray Index 8 Read Fnetworks Write Setnetworks;
+ end;
+ TEndpointEndpointVisibilityClass = Class of TEndpointEndpointVisibility;
+
+ { --------------------------------------------------------------------
+ TEndpointsListResponse
+ --------------------------------------------------------------------}
+
+ TEndpointsListResponse = Class(TGoogleBaseObject)
+ Private
+ Fendpoints : TEndpointsListResponseTypeendpointsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setendpoints(AIndex : Integer; const AValue : TEndpointsListResponseTypeendpointsArray); 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 endpoints : TEndpointsListResponseTypeendpointsArray Index 0 Read Fendpoints Write Setendpoints;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TEndpointsListResponseClass = Class of TEndpointsListResponse;
+
+ { --------------------------------------------------------------------
+ TOperationTypeerrorTypeerrorsItem
+ --------------------------------------------------------------------}
+
+ TOperationTypeerrorTypeerrorsItem = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Flocation : String;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property code : String Index 0 Read Fcode Write Setcode;
+ Property location : String Index 8 Read Flocation Write Setlocation;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TOperationTypeerrorTypeerrorsItemClass = Class of TOperationTypeerrorTypeerrorsItem;
+
+ { --------------------------------------------------------------------
+ TOperationTypeerror
+ --------------------------------------------------------------------}
+
+ TOperationTypeerror = Class(TGoogleBaseObject)
+ Private
+ Ferrors : TOperationTypeerrorTypeerrorsArray;
+ Protected
+ //Property setters
+ Procedure Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property errors : TOperationTypeerrorTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
+ end;
+ TOperationTypeerrorClass = Class of TOperationTypeerror;
+
+ { --------------------------------------------------------------------
+ TOperationTypewarningsItemTypedataItem
+ --------------------------------------------------------------------}
+
+ TOperationTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TOperationTypewarningsItemTypedataItemClass = Class of TOperationTypewarningsItemTypedataItem;
+
+ { --------------------------------------------------------------------
+ TOperationTypewarningsItem
+ --------------------------------------------------------------------}
+
+ TOperationTypewarningsItem = Class(TGoogleBaseObject)
+ Private
+ Fcode : String;
+ Fdata : TOperationTypewarningsItemTypedataArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); virtual;
+ Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
+ Property data : TOperationTypewarningsItemTypedataArray Index 8 Read Fdata Write Setdata;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TOperationTypewarningsItemClass = Class of TOperationTypewarningsItem;
+
+ { --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+ TOperation = Class(TGoogleBaseObject)
+ Private
+ FclientOperationId : String;
+ FcreationTimestamp : String;
+ Fdescription : String;
+ FendTime : String;
+ Ferror : TOperationTypeerror;
+ FhttpErrorMessage : String;
+ FhttpErrorStatusCode : integer;
+ Fid : String;
+ FinsertTime : String;
+ Fkind : String;
+ Fname : String;
+ FoperationType : String;
+ Fprogress : integer;
+ Fregion : String;
+ FselfLink : String;
+ FstartTime : String;
+ Fstatus : String;
+ FstatusMessage : String;
+ FtargetId : String;
+ FtargetLink : String;
+ Fuser : String;
+ Fwarnings : TOperationTypewarningsArray;
+ Fzone : String;
+ Protected
+ //Property setters
+ Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TOperationTypeerror); virtual;
+ Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); virtual;
+ Procedure Setzone(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 clientOperationId : String Index 0 Read FclientOperationId Write SetclientOperationId;
+ Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ Property endTime : String Index 24 Read FendTime Write SetendTime;
+ Property error : TOperationTypeerror Index 32 Read Ferror Write Seterror;
+ Property httpErrorMessage : String Index 40 Read FhttpErrorMessage Write SethttpErrorMessage;
+ Property httpErrorStatusCode : integer Index 48 Read FhttpErrorStatusCode Write SethttpErrorStatusCode;
+ Property id : String Index 56 Read Fid Write Setid;
+ Property insertTime : String Index 64 Read FinsertTime Write SetinsertTime;
+ Property kind : String Index 72 Read Fkind Write Setkind;
+ Property name : String Index 80 Read Fname Write Setname;
+ Property operationType : String Index 88 Read FoperationType Write SetoperationType;
+ Property progress : integer Index 96 Read Fprogress Write Setprogress;
+ Property region : String Index 104 Read Fregion Write Setregion;
+ Property selfLink : String Index 112 Read FselfLink Write SetselfLink;
+ Property startTime : String Index 120 Read FstartTime Write SetstartTime;
+ Property status : String Index 128 Read Fstatus Write Setstatus;
+ Property statusMessage : String Index 136 Read FstatusMessage Write SetstatusMessage;
+ Property targetId : String Index 144 Read FtargetId Write SettargetId;
+ Property targetLink : String Index 152 Read FtargetLink Write SettargetLink;
+ Property user : String Index 160 Read Fuser Write Setuser;
+ Property warnings : TOperationTypewarningsArray Index 168 Read Fwarnings Write Setwarnings;
+ Property zone : String Index 176 Read Fzone Write Setzone;
+ end;
+ TOperationClass = Class of TOperation;
+
+ { --------------------------------------------------------------------
+ TOperationsListResponse
+ --------------------------------------------------------------------}
+
+ TOperationsListResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ Foperations : TOperationsListResponseTypeoperationsArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setoperations(AIndex : Integer; const AValue : TOperationsListResponseTypeoperationsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property operations : TOperationsListResponseTypeoperationsArray Index 8 Read Foperations Write Setoperations;
+ end;
+ TOperationsListResponseClass = Class of TOperationsListResponse;
+
+ { --------------------------------------------------------------------
+ TEndpointsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TEndpointsResource, method List
+
+ TEndpointsListOptions = Record
+ filter : String;
+ maxResults : integer;
+ orderBy : String;
+ pageToken : String;
+ end;
+
+ TEndpointsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Delete(endpoint: string; project: string) : TOperation;
+ Function Get(endpoint: string; project: string) : TEndpoint;
+ Function Insert(project: string; aEndpoint : TEndpoint) : TOperation;
+ Function List(project: string; AQuery : string = '') : TEndpointsListResponse;
+ Function List(project: string; AQuery : TEndpointslistOptions) : TEndpointsListResponse;
+ Function Patch(endpoint: string; project: string; aEndpoint : TEndpoint) : TOperation;
+ Function Update(endpoint: string; project: string; aEndpoint : TEndpoint) : TOperation;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TOperationsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TOperationsResource, method List
+
+ TOperationsListOptions = Record
+ filter : String;
+ maxResults : integer;
+ orderBy : String;
+ pageToken : String;
+ end;
+
+ TOperationsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(operation: string; project: string) : TOperation;
+ Function List(project: string; AQuery : string = '') : TOperationsListResponse;
+ Function List(project: string; AQuery : TOperationslistOptions) : TOperationsListResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TServiceregistryAPI
+ --------------------------------------------------------------------}
+
+ TServiceregistryAPI = Class(TGoogleAPI)
+ Private
+ FEndpointsInstance : TEndpointsResource;
+ FOperationsInstance : TOperationsResource;
+ Function GetEndpointsInstance : TEndpointsResource;virtual;
+ Function GetOperationsInstance : TOperationsResource;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 CreateEndpointsResource(AOwner : TComponent) : TEndpointsResource;virtual;overload;
+ Function CreateEndpointsResource : TEndpointsResource;virtual;overload;
+ Function CreateOperationsResource(AOwner : TComponent) : TOperationsResource;virtual;overload;
+ Function CreateOperationsResource : TOperationsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property EndpointsResource : TEndpointsResource Read GetEndpointsInstance;
+ Property OperationsResource : TOperationsResource Read GetOperationsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TEndpoint
+ --------------------------------------------------------------------}
+
+
+Procedure TEndpoint.Setaddress(AIndex : Integer; const AValue : String);
+
+begin
+ If (Faddress=AValue) then exit;
+ Faddress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEndpoint.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEndpoint.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEndpoint.Setfingerprint(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffingerprint=AValue) then exit;
+ Ffingerprint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEndpoint.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEndpoint.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEndpoint.Setport(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fport=AValue) then exit;
+ Fport:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEndpoint.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEndpoint.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEndpoint.Setvisibility(AIndex : Integer; const AValue : TEndpointEndpointVisibility);
+
+begin
+ If (Fvisibility=AValue) then exit;
+ Fvisibility:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TEndpointEndpointVisibility
+ --------------------------------------------------------------------}
+
+
+Procedure TEndpointEndpointVisibility.SetinternalDnsName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinternalDnsName=AValue) then exit;
+ FinternalDnsName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEndpointEndpointVisibility.Setnetworks(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fnetworks=AValue) then exit;
+ Fnetworks:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEndpointEndpointVisibility.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'networks' : SetLength(Fnetworks,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEndpointsListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TEndpointsListResponse.Setendpoints(AIndex : Integer; const AValue : TEndpointsListResponseTypeendpointsArray);
+
+begin
+ If (Fendpoints=AValue) then exit;
+ Fendpoints:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEndpointsListResponse.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 TEndpointsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'endpoints' : SetLength(Fendpoints,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypeerrorTypeerrorsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocation=AValue) then exit;
+ Flocation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypeerror
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray);
+
+begin
+ If (Ferrors=AValue) then exit;
+ Ferrors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperationTypeerror.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'errors' : SetLength(Ferrors,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypewarningsItemTypedataItem
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypewarningsItem
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperationTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'data' : SetLength(Fdata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+
+Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclientOperationId=AValue) then exit;
+ FclientOperationId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTimestamp=AValue) then exit;
+ FcreationTimestamp:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhttpErrorMessage=AValue) then exit;
+ FhttpErrorMessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FhttpErrorStatusCode=AValue) then exit;
+ FhttpErrorStatusCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinsertTime=AValue) then exit;
+ FinsertTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FoperationType=AValue) then exit;
+ FoperationType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fprogress=AValue) then exit;
+ Fprogress:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setregion(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fregion=AValue) then exit;
+ Fregion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FselfLink=AValue) then exit;
+ FselfLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTime=AValue) then exit;
+ FstartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstatusMessage=AValue) then exit;
+ FstatusMessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtargetId=AValue) then exit;
+ FtargetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtargetLink=AValue) then exit;
+ FtargetLink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setuser(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fuser=AValue) then exit;
+ Fuser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray);
+
+begin
+ If (Fwarnings=AValue) then exit;
+ Fwarnings:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setzone(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fzone=AValue) then exit;
+ Fzone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperation.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'warnings' : SetLength(Fwarnings,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationsListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TOperationsListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperationsListResponse.Setoperations(AIndex : Integer; const AValue : TOperationsListResponseTypeoperationsArray);
+
+begin
+ If (Foperations=AValue) then exit;
+ Foperations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TOperationsListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'operations' : SetLength(Foperations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEndpointsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TEndpointsResource.ResourceName : String;
+
+begin
+ Result:='endpoints';
+end;
+
+Class Function TEndpointsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TserviceregistryAPI;
+end;
+
+Function TEndpointsResource.Delete(endpoint: string; project: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = '{project}/global/endpoints/{endpoint}';
+ _Methodid = 'serviceregistry.endpoints.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['endpoint',endpoint,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TEndpointsResource.Get(endpoint: string; project: string) : TEndpoint;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/endpoints/{endpoint}';
+ _Methodid = 'serviceregistry.endpoints.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['endpoint',endpoint,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEndpoint) as TEndpoint;
+end;
+
+Function TEndpointsResource.Insert(project: string; aEndpoint : TEndpoint) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{project}/global/endpoints';
+ _Methodid = 'serviceregistry.endpoints.insert';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aEndpoint,TOperation) as TOperation;
+end;
+
+Function TEndpointsResource.List(project: string; AQuery : string = '') : TEndpointsListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/endpoints';
+ _Methodid = 'serviceregistry.endpoints.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEndpointsListResponse) as TEndpointsListResponse;
+end;
+
+
+Function TEndpointsResource.List(project: string; AQuery : TEndpointslistOptions) : TEndpointsListResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,_Q);
+end;
+
+Function TEndpointsResource.Patch(endpoint: string; project: string; aEndpoint : TEndpoint) : TOperation;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = '{project}/global/endpoints/{endpoint}';
+ _Methodid = 'serviceregistry.endpoints.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['endpoint',endpoint,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aEndpoint,TOperation) as TOperation;
+end;
+
+Function TEndpointsResource.Update(endpoint: string; project: string; aEndpoint : TEndpoint) : TOperation;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = '{project}/global/endpoints/{endpoint}';
+ _Methodid = 'serviceregistry.endpoints.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['endpoint',endpoint,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aEndpoint,TOperation) as TOperation;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperationsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationsResource.ResourceName : String;
+
+begin
+ Result:='operations';
+end;
+
+Class Function TOperationsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TserviceregistryAPI;
+end;
+
+Function TOperationsResource.Get(operation: string; project: string) : TOperation;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/operations/{operation}';
+ _Methodid = 'serviceregistry.operations.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['operation',operation,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TOperationsResource.List(project: string; AQuery : string = '') : TOperationsListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{project}/global/operations';
+ _Methodid = 'serviceregistry.operations.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationsListResponse) as TOperationsListResponse;
+end;
+
+
+Function TOperationsResource.List(project: string; AQuery : TOperationslistOptions) : TOperationsListResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'orderBy',AQuery.orderBy);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(project,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TServiceregistryAPI
+ --------------------------------------------------------------------}
+
+Class Function TServiceregistryAPI.APIName : String;
+
+begin
+ Result:='serviceregistry';
+end;
+
+Class Function TServiceregistryAPI.APIVersion : String;
+
+begin
+ Result:='alpha';
+end;
+
+Class Function TServiceregistryAPI.APIRevision : String;
+
+begin
+ Result:='20160516';
+end;
+
+Class Function TServiceregistryAPI.APIID : String;
+
+begin
+ Result:='serviceregistry:alpha';
+end;
+
+Class Function TServiceregistryAPI.APITitle : String;
+
+begin
+ Result:='Google Cloud Service Registry API';
+end;
+
+Class Function TServiceregistryAPI.APIDescription : String;
+
+begin
+ Result:='Manages service endpoints in Service Registry and provides integration with DNS for service discovery and name resolution.';
+end;
+
+Class Function TServiceregistryAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TServiceregistryAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TServiceregistryAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TServiceregistryAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TServiceregistryAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/service-registry/';
+end;
+
+Class Function TServiceregistryAPI.APIrootUrl : string;
+
+begin
+ Result:='https://www.googleapis.com/';
+end;
+
+Class Function TServiceregistryAPI.APIbasePath : string;
+
+begin
+ Result:='/serviceregistry/alpha/projects/';
+end;
+
+Class Function TServiceregistryAPI.APIbaseURL : String;
+
+begin
+ Result:='https://www.googleapis.com/serviceregistry/alpha/projects/';
+end;
+
+Class Function TServiceregistryAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TServiceregistryAPI.APIservicePath : string;
+
+begin
+ Result:='serviceregistry/alpha/projects/';
+end;
+
+Class Function TServiceregistryAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TServiceregistryAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,4);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+ Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
+ Result[1].Description:='View your data across Google Cloud Platform services';
+ Result[2].Name:='https://www.googleapis.com/auth/ndev.cloudman';
+ Result[2].Description:='View and manage your Google Cloud Platform management resources and deployment status information';
+ Result[3].Name:='https://www.googleapis.com/auth/ndev.cloudman.readonly';
+ Result[3].Description:='View your Google Cloud Platform management resources and deployment status information';
+
+end;
+
+Class Function TServiceregistryAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TServiceregistryAPI.RegisterAPIResources;
+
+begin
+ TEndpoint.RegisterObject;
+ TEndpointEndpointVisibility.RegisterObject;
+ TEndpointsListResponse.RegisterObject;
+ TOperationTypeerrorTypeerrorsItem.RegisterObject;
+ TOperationTypeerror.RegisterObject;
+ TOperationTypewarningsItemTypedataItem.RegisterObject;
+ TOperationTypewarningsItem.RegisterObject;
+ TOperation.RegisterObject;
+ TOperationsListResponse.RegisterObject;
+end;
+
+
+Function TServiceregistryAPI.GetEndpointsInstance : TEndpointsResource;
+
+begin
+ if (FEndpointsInstance=Nil) then
+ FEndpointsInstance:=CreateEndpointsResource;
+ Result:=FEndpointsInstance;
+end;
+
+Function TServiceregistryAPI.CreateEndpointsResource : TEndpointsResource;
+
+begin
+ Result:=CreateEndpointsResource(Self);
+end;
+
+
+Function TServiceregistryAPI.CreateEndpointsResource(AOwner : TComponent) : TEndpointsResource;
+
+begin
+ Result:=TEndpointsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TServiceregistryAPI.GetOperationsInstance : TOperationsResource;
+
+begin
+ if (FOperationsInstance=Nil) then
+ FOperationsInstance:=CreateOperationsResource;
+ Result:=FOperationsInstance;
+end;
+
+Function TServiceregistryAPI.CreateOperationsResource : TOperationsResource;
+
+begin
+ Result:=CreateOperationsResource(Self);
+end;
+
+
+Function TServiceregistryAPI.CreateOperationsResource(AOwner : TComponent) : TOperationsResource;
+
+begin
+ Result:=TOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TServiceregistryAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlesheets.pp b/packages/googleapi/src/googlesheets.pp
new file mode 100644
index 0000000000..89a7b44c2a
--- /dev/null
+++ b/packages/googleapi/src/googlesheets.pp
@@ -0,0 +1,9330 @@
+unit googlesheets;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TAddNamedRangeResponse = Class;
+ TUpdateProtectedRangeRequest = Class;
+ TPadding = Class;
+ TMergeCellsRequest = Class;
+ TAddSheetResponse = Class;
+ TPivotGroupValueMetadata = Class;
+ TUpdateEmbeddedObjectPositionResponse = Class;
+ TUpdateConditionalFormatRuleRequest = Class;
+ TTextFormat = Class;
+ TUpdateChartSpecRequest = Class;
+ TGridCoordinate = Class;
+ TDeleteFilterViewRequest = Class;
+ TBatchUpdateValuesResponse = Class;
+ TUpdateNamedRangeRequest = Class;
+ TUpdateValuesResponse = Class;
+ TSpreadsheetProperties = Class;
+ TCellData = Class;
+ TUnmergeCellsRequest = Class;
+ TTextToColumnsRequest = Class;
+ TAddProtectedRangeResponse = Class;
+ TBooleanCondition = Class;
+ TDeleteProtectedRangeRequest = Class;
+ TBasicChartDomain = Class;
+ TDimensionRange = Class;
+ TResponse = Class;
+ TAddConditionalFormatRuleRequest = Class;
+ TFilterView = Class;
+ TSortRangeRequest = Class;
+ TTextFormatRun = Class;
+ TUpdateFilterViewRequest = Class;
+ TUpdateConditionalFormatRuleResponse = Class;
+ TFilterCriteria = Class;
+ TDeleteDimensionRequest = Class;
+ TPivotTable = Class;
+ TDataValidationRule = Class;
+ TUpdateSpreadsheetPropertiesRequest = Class;
+ TChartSourceRange = Class;
+ TBatchUpdateValuesRequest = Class;
+ TClearBasicFilterRequest = Class;
+ TConditionalFormatRule = Class;
+ TUpdateBordersRequest = Class;
+ TPivotFilterCriteria = Class;
+ TBorders = Class;
+ TEmbeddedChart = Class;
+ TColor = Class;
+ TAddSheetRequest = Class;
+ TAddProtectedRangeRequest = Class;
+ TValueRange = Class;
+ TFindReplaceResponse = Class;
+ TCellFormat = Class;
+ TMoveDimensionRequest = Class;
+ TBasicChartAxis = Class;
+ TPivotGroupSortValueBucket = Class;
+ TDimensionProperties = Class;
+ TEmbeddedObjectPosition = Class;
+ TInterpolationPoint = Class;
+ TErrorValue = Class;
+ TDuplicateFilterViewRequest = Class;
+ TBatchUpdateSpreadsheetRequest = Class;
+ TSheetProperties = Class;
+ TProtectedRange = Class;
+ TDeleteConditionalFormatRuleRequest = Class;
+ TChartSpec = Class;
+ TSourceAndDestination = Class;
+ TConditionValue = Class;
+ TPasteDataRequest = Class;
+ TFindReplaceRequest = Class;
+ TSortSpec = Class;
+ TCopySheetToAnotherSpreadsheetRequest = Class;
+ TNumberFormat = Class;
+ TUpdateDimensionPropertiesRequest = Class;
+ TEditors = Class;
+ TSpreadsheet = Class;
+ TGridData = Class;
+ TPivotValue = Class;
+ TBasicFilter = Class;
+ TDuplicateSheetRequest = Class;
+ TAddFilterViewResponse = Class;
+ TDuplicateSheetResponse = Class;
+ TBorder = Class;
+ TAddNamedRangeRequest = Class;
+ TAddChartResponse = Class;
+ TAppendCellsRequest = Class;
+ TRowData = Class;
+ TBasicChartSeries = Class;
+ TRepeatCellRequest = Class;
+ TBasicChartSpec = Class;
+ TNamedRange = Class;
+ TSetBasicFilterRequest = Class;
+ TUpdateEmbeddedObjectPositionRequest = Class;
+ TAutoResizeDimensionsRequest = Class;
+ TDuplicateFilterViewResponse = Class;
+ TPivotGroup = Class;
+ TGridRange = Class;
+ TDeleteSheetRequest = Class;
+ TChartData = Class;
+ TSheet = Class;
+ TCopyPasteRequest = Class;
+ TUpdateCellsRequest = Class;
+ TExtendedValue = Class;
+ TBatchUpdateSpreadsheetResponse = Class;
+ TGradientRule = Class;
+ TCutPasteRequest = Class;
+ TOverlayPosition = Class;
+ TAutoFillRequest = Class;
+ TPieChartSpec = Class;
+ TUpdateSheetPropertiesRequest = Class;
+ TBooleanRule = Class;
+ TAppendDimensionRequest = Class;
+ TAddFilterViewRequest = Class;
+ TGridProperties = Class;
+ TDeleteNamedRangeRequest = Class;
+ TAddChartRequest = Class;
+ TSetDataValidationRequest = Class;
+ TRequest = Class;
+ TBatchGetValuesResponse = Class;
+ TInsertDimensionRequest = Class;
+ TDeleteEmbeddedObjectRequest = Class;
+ TDeleteConditionalFormatRuleResponse = Class;
+ TAddNamedRangeResponseArray = Array of TAddNamedRangeResponse;
+ TUpdateProtectedRangeRequestArray = Array of TUpdateProtectedRangeRequest;
+ TPaddingArray = Array of TPadding;
+ TMergeCellsRequestArray = Array of TMergeCellsRequest;
+ TAddSheetResponseArray = Array of TAddSheetResponse;
+ TPivotGroupValueMetadataArray = Array of TPivotGroupValueMetadata;
+ TUpdateEmbeddedObjectPositionResponseArray = Array of TUpdateEmbeddedObjectPositionResponse;
+ TUpdateConditionalFormatRuleRequestArray = Array of TUpdateConditionalFormatRuleRequest;
+ TTextFormatArray = Array of TTextFormat;
+ TUpdateChartSpecRequestArray = Array of TUpdateChartSpecRequest;
+ TGridCoordinateArray = Array of TGridCoordinate;
+ TDeleteFilterViewRequestArray = Array of TDeleteFilterViewRequest;
+ TBatchUpdateValuesResponseArray = Array of TBatchUpdateValuesResponse;
+ TUpdateNamedRangeRequestArray = Array of TUpdateNamedRangeRequest;
+ TUpdateValuesResponseArray = Array of TUpdateValuesResponse;
+ TSpreadsheetPropertiesArray = Array of TSpreadsheetProperties;
+ TCellDataArray = Array of TCellData;
+ TUnmergeCellsRequestArray = Array of TUnmergeCellsRequest;
+ TTextToColumnsRequestArray = Array of TTextToColumnsRequest;
+ TAddProtectedRangeResponseArray = Array of TAddProtectedRangeResponse;
+ TBooleanConditionArray = Array of TBooleanCondition;
+ TDeleteProtectedRangeRequestArray = Array of TDeleteProtectedRangeRequest;
+ TBasicChartDomainArray = Array of TBasicChartDomain;
+ TDimensionRangeArray = Array of TDimensionRange;
+ TResponseArray = Array of TResponse;
+ TAddConditionalFormatRuleRequestArray = Array of TAddConditionalFormatRuleRequest;
+ TFilterViewArray = Array of TFilterView;
+ TSortRangeRequestArray = Array of TSortRangeRequest;
+ TTextFormatRunArray = Array of TTextFormatRun;
+ TUpdateFilterViewRequestArray = Array of TUpdateFilterViewRequest;
+ TUpdateConditionalFormatRuleResponseArray = Array of TUpdateConditionalFormatRuleResponse;
+ TFilterCriteriaArray = Array of TFilterCriteria;
+ TDeleteDimensionRequestArray = Array of TDeleteDimensionRequest;
+ TPivotTableArray = Array of TPivotTable;
+ TDataValidationRuleArray = Array of TDataValidationRule;
+ TUpdateSpreadsheetPropertiesRequestArray = Array of TUpdateSpreadsheetPropertiesRequest;
+ TChartSourceRangeArray = Array of TChartSourceRange;
+ TBatchUpdateValuesRequestArray = Array of TBatchUpdateValuesRequest;
+ TClearBasicFilterRequestArray = Array of TClearBasicFilterRequest;
+ TConditionalFormatRuleArray = Array of TConditionalFormatRule;
+ TUpdateBordersRequestArray = Array of TUpdateBordersRequest;
+ TPivotFilterCriteriaArray = Array of TPivotFilterCriteria;
+ TBordersArray = Array of TBorders;
+ TEmbeddedChartArray = Array of TEmbeddedChart;
+ TColorArray = Array of TColor;
+ TAddSheetRequestArray = Array of TAddSheetRequest;
+ TAddProtectedRangeRequestArray = Array of TAddProtectedRangeRequest;
+ TValueRangeArray = Array of TValueRange;
+ TFindReplaceResponseArray = Array of TFindReplaceResponse;
+ TCellFormatArray = Array of TCellFormat;
+ TMoveDimensionRequestArray = Array of TMoveDimensionRequest;
+ TBasicChartAxisArray = Array of TBasicChartAxis;
+ TPivotGroupSortValueBucketArray = Array of TPivotGroupSortValueBucket;
+ TDimensionPropertiesArray = Array of TDimensionProperties;
+ TEmbeddedObjectPositionArray = Array of TEmbeddedObjectPosition;
+ TInterpolationPointArray = Array of TInterpolationPoint;
+ TErrorValueArray = Array of TErrorValue;
+ TDuplicateFilterViewRequestArray = Array of TDuplicateFilterViewRequest;
+ TBatchUpdateSpreadsheetRequestArray = Array of TBatchUpdateSpreadsheetRequest;
+ TSheetPropertiesArray = Array of TSheetProperties;
+ TProtectedRangeArray = Array of TProtectedRange;
+ TDeleteConditionalFormatRuleRequestArray = Array of TDeleteConditionalFormatRuleRequest;
+ TChartSpecArray = Array of TChartSpec;
+ TSourceAndDestinationArray = Array of TSourceAndDestination;
+ TConditionValueArray = Array of TConditionValue;
+ TPasteDataRequestArray = Array of TPasteDataRequest;
+ TFindReplaceRequestArray = Array of TFindReplaceRequest;
+ TSortSpecArray = Array of TSortSpec;
+ TCopySheetToAnotherSpreadsheetRequestArray = Array of TCopySheetToAnotherSpreadsheetRequest;
+ TNumberFormatArray = Array of TNumberFormat;
+ TUpdateDimensionPropertiesRequestArray = Array of TUpdateDimensionPropertiesRequest;
+ TEditorsArray = Array of TEditors;
+ TSpreadsheetArray = Array of TSpreadsheet;
+ TGridDataArray = Array of TGridData;
+ TPivotValueArray = Array of TPivotValue;
+ TBasicFilterArray = Array of TBasicFilter;
+ TDuplicateSheetRequestArray = Array of TDuplicateSheetRequest;
+ TAddFilterViewResponseArray = Array of TAddFilterViewResponse;
+ TDuplicateSheetResponseArray = Array of TDuplicateSheetResponse;
+ TBorderArray = Array of TBorder;
+ TAddNamedRangeRequestArray = Array of TAddNamedRangeRequest;
+ TAddChartResponseArray = Array of TAddChartResponse;
+ TAppendCellsRequestArray = Array of TAppendCellsRequest;
+ TRowDataArray = Array of TRowData;
+ TBasicChartSeriesArray = Array of TBasicChartSeries;
+ TRepeatCellRequestArray = Array of TRepeatCellRequest;
+ TBasicChartSpecArray = Array of TBasicChartSpec;
+ TNamedRangeArray = Array of TNamedRange;
+ TSetBasicFilterRequestArray = Array of TSetBasicFilterRequest;
+ TUpdateEmbeddedObjectPositionRequestArray = Array of TUpdateEmbeddedObjectPositionRequest;
+ TAutoResizeDimensionsRequestArray = Array of TAutoResizeDimensionsRequest;
+ TDuplicateFilterViewResponseArray = Array of TDuplicateFilterViewResponse;
+ TPivotGroupArray = Array of TPivotGroup;
+ TGridRangeArray = Array of TGridRange;
+ TDeleteSheetRequestArray = Array of TDeleteSheetRequest;
+ TChartDataArray = Array of TChartData;
+ TSheetArray = Array of TSheet;
+ TCopyPasteRequestArray = Array of TCopyPasteRequest;
+ TUpdateCellsRequestArray = Array of TUpdateCellsRequest;
+ TExtendedValueArray = Array of TExtendedValue;
+ TBatchUpdateSpreadsheetResponseArray = Array of TBatchUpdateSpreadsheetResponse;
+ TGradientRuleArray = Array of TGradientRule;
+ TCutPasteRequestArray = Array of TCutPasteRequest;
+ TOverlayPositionArray = Array of TOverlayPosition;
+ TAutoFillRequestArray = Array of TAutoFillRequest;
+ TPieChartSpecArray = Array of TPieChartSpec;
+ TUpdateSheetPropertiesRequestArray = Array of TUpdateSheetPropertiesRequest;
+ TBooleanRuleArray = Array of TBooleanRule;
+ TAppendDimensionRequestArray = Array of TAppendDimensionRequest;
+ TAddFilterViewRequestArray = Array of TAddFilterViewRequest;
+ TGridPropertiesArray = Array of TGridProperties;
+ TDeleteNamedRangeRequestArray = Array of TDeleteNamedRangeRequest;
+ TAddChartRequestArray = Array of TAddChartRequest;
+ TSetDataValidationRequestArray = Array of TSetDataValidationRequest;
+ TRequestArray = Array of TRequest;
+ TBatchGetValuesResponseArray = Array of TBatchGetValuesResponse;
+ TInsertDimensionRequestArray = Array of TInsertDimensionRequest;
+ TDeleteEmbeddedObjectRequestArray = Array of TDeleteEmbeddedObjectRequest;
+ TDeleteConditionalFormatRuleResponseArray = Array of TDeleteConditionalFormatRuleResponse;
+ //Anonymous types, using auto-generated names
+ TFilterViewTypecriteria = Class;
+ TPivotTableTypecriteria = Class;
+ TBasicFilterTypecriteria = Class;
+ TBatchUpdateValuesResponseTyperesponsesArray = Array of TUpdateValuesResponse;
+ TCellDataTypetextFormatRunsArray = Array of TTextFormatRun;
+ TBooleanConditionTypevaluesArray = Array of TConditionValue;
+ TFilterViewTypesortSpecsArray = Array of TSortSpec;
+ TSortRangeRequestTypesortSpecsArray = Array of TSortSpec;
+ TPivotTableTypecolumnsArray = Array of TPivotGroup;
+ TPivotTableTyperowsArray = Array of TPivotGroup;
+ TPivotTableTypevaluesArray = Array of TPivotValue;
+ TChartSourceRangeTypesourcesArray = Array of TGridRange;
+ TBatchUpdateValuesRequestTypedataArray = Array of TValueRange;
+ TConditionalFormatRuleTyperangesArray = Array of TGridRange;
+ TValueRangeTypevaluesArray = Array of TTJSONSchemaArray;
+ TPivotGroupSortValueBucketTypebucketsArray = Array of TExtendedValue;
+ TBatchUpdateSpreadsheetRequestTyperequestsArray = Array of TRequest;
+ TProtectedRangeTypeunprotectedRangesArray = Array of TGridRange;
+ TSpreadsheetTypesheetsArray = Array of TSheet;
+ TSpreadsheetTypenamedRangesArray = Array of TNamedRange;
+ TGridDataTypecolumnMetadataArray = Array of TDimensionProperties;
+ TGridDataTyperowDataArray = Array of TRowData;
+ TGridDataTyperowMetadataArray = Array of TDimensionProperties;
+ TBasicFilterTypesortSpecsArray = Array of TSortSpec;
+ TAppendCellsRequestTyperowsArray = Array of TRowData;
+ TRowDataTypevaluesArray = Array of TCellData;
+ TBasicChartSpecTypedomainsArray = Array of TBasicChartDomain;
+ TBasicChartSpecTypeseriesArray = Array of TBasicChartSeries;
+ TBasicChartSpecTypeaxisArray = Array of TBasicChartAxis;
+ TPivotGroupTypevalueMetadataArray = Array of TPivotGroupValueMetadata;
+ TSheetTypechartsArray = Array of TEmbeddedChart;
+ TSheetTypefilterViewsArray = Array of TFilterView;
+ TSheetTypeconditionalFormatsArray = Array of TConditionalFormatRule;
+ TSheetTypeprotectedRangesArray = Array of TProtectedRange;
+ TSheetTypemergesArray = Array of TGridRange;
+ TSheetTypedataArray = Array of TGridData;
+ TUpdateCellsRequestTyperowsArray = Array of TRowData;
+ TBatchUpdateSpreadsheetResponseTyperepliesArray = Array of TResponse;
+ TBatchGetValuesResponseTypevalueRangesArray = Array of TValueRange;
+
+ { --------------------------------------------------------------------
+ TAddNamedRangeResponse
+ --------------------------------------------------------------------}
+
+ TAddNamedRangeResponse = Class(TGoogleBaseObject)
+ Private
+ FnamedRange : TNamedRange;
+ Protected
+ //Property setters
+ Procedure SetnamedRange(AIndex : Integer; const AValue : TNamedRange); virtual;
+ Public
+ Published
+ Property namedRange : TNamedRange Index 0 Read FnamedRange Write SetnamedRange;
+ end;
+ TAddNamedRangeResponseClass = Class of TAddNamedRangeResponse;
+
+ { --------------------------------------------------------------------
+ TUpdateProtectedRangeRequest
+ --------------------------------------------------------------------}
+
+ TUpdateProtectedRangeRequest = Class(TGoogleBaseObject)
+ Private
+ FprotectedRange : TProtectedRange;
+ Ffields : String;
+ Protected
+ //Property setters
+ Procedure SetprotectedRange(AIndex : Integer; const AValue : TProtectedRange); virtual;
+ Procedure Setfields(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property protectedRange : TProtectedRange Index 0 Read FprotectedRange Write SetprotectedRange;
+ Property fields : String Index 8 Read Ffields Write Setfields;
+ end;
+ TUpdateProtectedRangeRequestClass = Class of TUpdateProtectedRangeRequest;
+
+ { --------------------------------------------------------------------
+ TPadding
+ --------------------------------------------------------------------}
+
+ TPadding = Class(TGoogleBaseObject)
+ Private
+ Fright : integer;
+ Fleft : integer;
+ Ftop : integer;
+ Fbottom : integer;
+ Protected
+ //Property setters
+ Procedure Setright(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setleft(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Settop(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setbottom(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property right : integer Index 0 Read Fright Write Setright;
+ Property left : integer Index 8 Read Fleft Write Setleft;
+ Property top : integer Index 16 Read Ftop Write Settop;
+ Property bottom : integer Index 24 Read Fbottom Write Setbottom;
+ end;
+ TPaddingClass = Class of TPadding;
+
+ { --------------------------------------------------------------------
+ TMergeCellsRequest
+ --------------------------------------------------------------------}
+
+ TMergeCellsRequest = Class(TGoogleBaseObject)
+ Private
+ FmergeType : String;
+ Frange : TGridRange;
+ Protected
+ //Property setters
+ Procedure SetmergeType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ Public
+ Published
+ Property mergeType : String Index 0 Read FmergeType Write SetmergeType;
+ Property range : TGridRange Index 8 Read Frange Write Setrange;
+ end;
+ TMergeCellsRequestClass = Class of TMergeCellsRequest;
+
+ { --------------------------------------------------------------------
+ TAddSheetResponse
+ --------------------------------------------------------------------}
+
+ TAddSheetResponse = Class(TGoogleBaseObject)
+ Private
+ Fproperties : TSheetProperties;
+ Protected
+ //Property setters
+ Procedure Setproperties(AIndex : Integer; const AValue : TSheetProperties); virtual;
+ Public
+ Published
+ Property properties : TSheetProperties Index 0 Read Fproperties Write Setproperties;
+ end;
+ TAddSheetResponseClass = Class of TAddSheetResponse;
+
+ { --------------------------------------------------------------------
+ TPivotGroupValueMetadata
+ --------------------------------------------------------------------}
+
+ TPivotGroupValueMetadata = Class(TGoogleBaseObject)
+ Private
+ Fvalue : TExtendedValue;
+ Fcollapsed : boolean;
+ Protected
+ //Property setters
+ Procedure Setvalue(AIndex : Integer; const AValue : TExtendedValue); virtual;
+ Procedure Setcollapsed(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property value : TExtendedValue Index 0 Read Fvalue Write Setvalue;
+ Property collapsed : boolean Index 8 Read Fcollapsed Write Setcollapsed;
+ end;
+ TPivotGroupValueMetadataClass = Class of TPivotGroupValueMetadata;
+
+ { --------------------------------------------------------------------
+ TUpdateEmbeddedObjectPositionResponse
+ --------------------------------------------------------------------}
+
+ TUpdateEmbeddedObjectPositionResponse = Class(TGoogleBaseObject)
+ Private
+ Fposition : TEmbeddedObjectPosition;
+ Protected
+ //Property setters
+ Procedure Setposition(AIndex : Integer; const AValue : TEmbeddedObjectPosition); virtual;
+ Public
+ Published
+ Property position : TEmbeddedObjectPosition Index 0 Read Fposition Write Setposition;
+ end;
+ TUpdateEmbeddedObjectPositionResponseClass = Class of TUpdateEmbeddedObjectPositionResponse;
+
+ { --------------------------------------------------------------------
+ TUpdateConditionalFormatRuleRequest
+ --------------------------------------------------------------------}
+
+ TUpdateConditionalFormatRuleRequest = Class(TGoogleBaseObject)
+ Private
+ FsheetId : integer;
+ Frule : TConditionalFormatRule;
+ Findex : integer;
+ FnewIndex : integer;
+ Protected
+ //Property setters
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setrule(AIndex : Integer; const AValue : TConditionalFormatRule); virtual;
+ Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnewIndex(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property sheetId : integer Index 0 Read FsheetId Write SetsheetId;
+ Property rule : TConditionalFormatRule Index 8 Read Frule Write Setrule;
+ Property index : integer Index 16 Read Findex Write Setindex;
+ Property newIndex : integer Index 24 Read FnewIndex Write SetnewIndex;
+ end;
+ TUpdateConditionalFormatRuleRequestClass = Class of TUpdateConditionalFormatRuleRequest;
+
+ { --------------------------------------------------------------------
+ TTextFormat
+ --------------------------------------------------------------------}
+
+ TTextFormat = Class(TGoogleBaseObject)
+ Private
+ Fbold : boolean;
+ Fitalic : boolean;
+ FforegroundColor : TColor;
+ FfontFamily : String;
+ Fstrikethrough : boolean;
+ FfontSize : integer;
+ Funderline : boolean;
+ Protected
+ //Property setters
+ Procedure Setbold(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setitalic(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetforegroundColor(AIndex : Integer; const AValue : TColor); virtual;
+ Procedure SetfontFamily(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstrikethrough(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetfontSize(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setunderline(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property bold : boolean Index 0 Read Fbold Write Setbold;
+ Property italic : boolean Index 8 Read Fitalic Write Setitalic;
+ Property foregroundColor : TColor Index 16 Read FforegroundColor Write SetforegroundColor;
+ Property fontFamily : String Index 24 Read FfontFamily Write SetfontFamily;
+ Property strikethrough : boolean Index 32 Read Fstrikethrough Write Setstrikethrough;
+ Property fontSize : integer Index 40 Read FfontSize Write SetfontSize;
+ Property underline : boolean Index 48 Read Funderline Write Setunderline;
+ end;
+ TTextFormatClass = Class of TTextFormat;
+
+ { --------------------------------------------------------------------
+ TUpdateChartSpecRequest
+ --------------------------------------------------------------------}
+
+ TUpdateChartSpecRequest = Class(TGoogleBaseObject)
+ Private
+ FchartId : integer;
+ Fspec : TChartSpec;
+ Protected
+ //Property setters
+ Procedure SetchartId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setspec(AIndex : Integer; const AValue : TChartSpec); virtual;
+ Public
+ Published
+ Property chartId : integer Index 0 Read FchartId Write SetchartId;
+ Property spec : TChartSpec Index 8 Read Fspec Write Setspec;
+ end;
+ TUpdateChartSpecRequestClass = Class of TUpdateChartSpecRequest;
+
+ { --------------------------------------------------------------------
+ TGridCoordinate
+ --------------------------------------------------------------------}
+
+ TGridCoordinate = Class(TGoogleBaseObject)
+ Private
+ FsheetId : integer;
+ FrowIndex : integer;
+ FcolumnIndex : integer;
+ Protected
+ //Property setters
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetrowIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetcolumnIndex(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property sheetId : integer Index 0 Read FsheetId Write SetsheetId;
+ Property rowIndex : integer Index 8 Read FrowIndex Write SetrowIndex;
+ Property columnIndex : integer Index 16 Read FcolumnIndex Write SetcolumnIndex;
+ end;
+ TGridCoordinateClass = Class of TGridCoordinate;
+
+ { --------------------------------------------------------------------
+ TDeleteFilterViewRequest
+ --------------------------------------------------------------------}
+
+ TDeleteFilterViewRequest = Class(TGoogleBaseObject)
+ Private
+ FfilterId : integer;
+ Protected
+ //Property setters
+ Procedure SetfilterId(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property filterId : integer Index 0 Read FfilterId Write SetfilterId;
+ end;
+ TDeleteFilterViewRequestClass = Class of TDeleteFilterViewRequest;
+
+ { --------------------------------------------------------------------
+ TBatchUpdateValuesResponse
+ --------------------------------------------------------------------}
+
+ TBatchUpdateValuesResponse = Class(TGoogleBaseObject)
+ Private
+ FtotalUpdatedSheets : integer;
+ FtotalUpdatedColumns : integer;
+ Fresponses : TBatchUpdateValuesResponseTyperesponsesArray;
+ FtotalUpdatedCells : integer;
+ FspreadsheetId : String;
+ FtotalUpdatedRows : integer;
+ Protected
+ //Property setters
+ Procedure SettotalUpdatedSheets(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalUpdatedColumns(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setresponses(AIndex : Integer; const AValue : TBatchUpdateValuesResponseTyperesponsesArray); virtual;
+ Procedure SettotalUpdatedCells(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetspreadsheetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettotalUpdatedRows(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 totalUpdatedSheets : integer Index 0 Read FtotalUpdatedSheets Write SettotalUpdatedSheets;
+ Property totalUpdatedColumns : integer Index 8 Read FtotalUpdatedColumns Write SettotalUpdatedColumns;
+ Property responses : TBatchUpdateValuesResponseTyperesponsesArray Index 16 Read Fresponses Write Setresponses;
+ Property totalUpdatedCells : integer Index 24 Read FtotalUpdatedCells Write SettotalUpdatedCells;
+ Property spreadsheetId : String Index 32 Read FspreadsheetId Write SetspreadsheetId;
+ Property totalUpdatedRows : integer Index 40 Read FtotalUpdatedRows Write SettotalUpdatedRows;
+ end;
+ TBatchUpdateValuesResponseClass = Class of TBatchUpdateValuesResponse;
+
+ { --------------------------------------------------------------------
+ TUpdateNamedRangeRequest
+ --------------------------------------------------------------------}
+
+ TUpdateNamedRangeRequest = Class(TGoogleBaseObject)
+ Private
+ Ffields : String;
+ FnamedRange : TNamedRange;
+ Protected
+ //Property setters
+ Procedure Setfields(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnamedRange(AIndex : Integer; const AValue : TNamedRange); virtual;
+ Public
+ Published
+ Property fields : String Index 0 Read Ffields Write Setfields;
+ Property namedRange : TNamedRange Index 8 Read FnamedRange Write SetnamedRange;
+ end;
+ TUpdateNamedRangeRequestClass = Class of TUpdateNamedRangeRequest;
+
+ { --------------------------------------------------------------------
+ TUpdateValuesResponse
+ --------------------------------------------------------------------}
+
+ TUpdateValuesResponse = Class(TGoogleBaseObject)
+ Private
+ FupdatedRange : String;
+ FupdatedColumns : integer;
+ FspreadsheetId : String;
+ FupdatedRows : integer;
+ FupdatedCells : integer;
+ Protected
+ //Property setters
+ Procedure SetupdatedRange(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupdatedColumns(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetspreadsheetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupdatedRows(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetupdatedCells(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property updatedRange : String Index 0 Read FupdatedRange Write SetupdatedRange;
+ Property updatedColumns : integer Index 8 Read FupdatedColumns Write SetupdatedColumns;
+ Property spreadsheetId : String Index 16 Read FspreadsheetId Write SetspreadsheetId;
+ Property updatedRows : integer Index 24 Read FupdatedRows Write SetupdatedRows;
+ Property updatedCells : integer Index 32 Read FupdatedCells Write SetupdatedCells;
+ end;
+ TUpdateValuesResponseClass = Class of TUpdateValuesResponse;
+
+ { --------------------------------------------------------------------
+ TSpreadsheetProperties
+ --------------------------------------------------------------------}
+
+ TSpreadsheetProperties = Class(TGoogleBaseObject)
+ Private
+ FtimeZone : String;
+ FautoRecalc : String;
+ Flocale : String;
+ Ftitle : String;
+ FdefaultFormat : TCellFormat;
+ Protected
+ //Property setters
+ Procedure SettimeZone(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetautoRecalc(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdefaultFormat(AIndex : Integer; const AValue : TCellFormat); virtual;
+ Public
+ Published
+ Property timeZone : String Index 0 Read FtimeZone Write SettimeZone;
+ Property autoRecalc : String Index 8 Read FautoRecalc Write SetautoRecalc;
+ Property locale : String Index 16 Read Flocale Write Setlocale;
+ Property title : String Index 24 Read Ftitle Write Settitle;
+ Property defaultFormat : TCellFormat Index 32 Read FdefaultFormat Write SetdefaultFormat;
+ end;
+ TSpreadsheetPropertiesClass = Class of TSpreadsheetProperties;
+
+ { --------------------------------------------------------------------
+ TCellData
+ --------------------------------------------------------------------}
+
+ TCellData = Class(TGoogleBaseObject)
+ Private
+ Fhyperlink : String;
+ FeffectiveFormat : TCellFormat;
+ Fnote : String;
+ FformattedValue : String;
+ FuserEnteredValue : TExtendedValue;
+ FdataValidation : TDataValidationRule;
+ FuserEnteredFormat : TCellFormat;
+ FpivotTable : TPivotTable;
+ FtextFormatRuns : TCellDataTypetextFormatRunsArray;
+ FeffectiveValue : TExtendedValue;
+ Protected
+ //Property setters
+ Procedure Sethyperlink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeteffectiveFormat(AIndex : Integer; const AValue : TCellFormat); virtual;
+ Procedure Setnote(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetformattedValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserEnteredValue(AIndex : Integer; const AValue : TExtendedValue); virtual;
+ Procedure SetdataValidation(AIndex : Integer; const AValue : TDataValidationRule); virtual;
+ Procedure SetuserEnteredFormat(AIndex : Integer; const AValue : TCellFormat); virtual;
+ Procedure SetpivotTable(AIndex : Integer; const AValue : TPivotTable); virtual;
+ Procedure SettextFormatRuns(AIndex : Integer; const AValue : TCellDataTypetextFormatRunsArray); virtual;
+ Procedure SeteffectiveValue(AIndex : Integer; const AValue : TExtendedValue); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property hyperlink : String Index 0 Read Fhyperlink Write Sethyperlink;
+ Property effectiveFormat : TCellFormat Index 8 Read FeffectiveFormat Write SeteffectiveFormat;
+ Property note : String Index 16 Read Fnote Write Setnote;
+ Property formattedValue : String Index 24 Read FformattedValue Write SetformattedValue;
+ Property userEnteredValue : TExtendedValue Index 32 Read FuserEnteredValue Write SetuserEnteredValue;
+ Property dataValidation : TDataValidationRule Index 40 Read FdataValidation Write SetdataValidation;
+ Property userEnteredFormat : TCellFormat Index 48 Read FuserEnteredFormat Write SetuserEnteredFormat;
+ Property pivotTable : TPivotTable Index 56 Read FpivotTable Write SetpivotTable;
+ Property textFormatRuns : TCellDataTypetextFormatRunsArray Index 64 Read FtextFormatRuns Write SettextFormatRuns;
+ Property effectiveValue : TExtendedValue Index 72 Read FeffectiveValue Write SeteffectiveValue;
+ end;
+ TCellDataClass = Class of TCellData;
+
+ { --------------------------------------------------------------------
+ TUnmergeCellsRequest
+ --------------------------------------------------------------------}
+
+ TUnmergeCellsRequest = Class(TGoogleBaseObject)
+ Private
+ Frange : TGridRange;
+ Protected
+ //Property setters
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ Public
+ Published
+ Property range : TGridRange Index 0 Read Frange Write Setrange;
+ end;
+ TUnmergeCellsRequestClass = Class of TUnmergeCellsRequest;
+
+ { --------------------------------------------------------------------
+ TTextToColumnsRequest
+ --------------------------------------------------------------------}
+
+ TTextToColumnsRequest = Class(TGoogleBaseObject)
+ Private
+ Fsource : TGridRange;
+ Fdelimiter : String;
+ FdelimiterType : String;
+ Protected
+ //Property setters
+ Procedure Setsource(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure Setdelimiter(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdelimiterType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property source : TGridRange Index 0 Read Fsource Write Setsource;
+ Property delimiter : String Index 8 Read Fdelimiter Write Setdelimiter;
+ Property delimiterType : String Index 16 Read FdelimiterType Write SetdelimiterType;
+ end;
+ TTextToColumnsRequestClass = Class of TTextToColumnsRequest;
+
+ { --------------------------------------------------------------------
+ TAddProtectedRangeResponse
+ --------------------------------------------------------------------}
+
+ TAddProtectedRangeResponse = Class(TGoogleBaseObject)
+ Private
+ FprotectedRange : TProtectedRange;
+ Protected
+ //Property setters
+ Procedure SetprotectedRange(AIndex : Integer; const AValue : TProtectedRange); virtual;
+ Public
+ Published
+ Property protectedRange : TProtectedRange Index 0 Read FprotectedRange Write SetprotectedRange;
+ end;
+ TAddProtectedRangeResponseClass = Class of TAddProtectedRangeResponse;
+
+ { --------------------------------------------------------------------
+ TBooleanCondition
+ --------------------------------------------------------------------}
+
+ TBooleanCondition = Class(TGoogleBaseObject)
+ Private
+ Fvalues : TBooleanConditionTypevaluesArray;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setvalues(AIndex : Integer; const AValue : TBooleanConditionTypevaluesArray); 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 values : TBooleanConditionTypevaluesArray Index 0 Read Fvalues Write Setvalues;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ end;
+ TBooleanConditionClass = Class of TBooleanCondition;
+
+ { --------------------------------------------------------------------
+ TDeleteProtectedRangeRequest
+ --------------------------------------------------------------------}
+
+ TDeleteProtectedRangeRequest = Class(TGoogleBaseObject)
+ Private
+ FprotectedRangeId : integer;
+ Protected
+ //Property setters
+ Procedure SetprotectedRangeId(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property protectedRangeId : integer Index 0 Read FprotectedRangeId Write SetprotectedRangeId;
+ end;
+ TDeleteProtectedRangeRequestClass = Class of TDeleteProtectedRangeRequest;
+
+ { --------------------------------------------------------------------
+ TBasicChartDomain
+ --------------------------------------------------------------------}
+
+ TBasicChartDomain = Class(TGoogleBaseObject)
+ Private
+ Fdomain : TChartData;
+ Protected
+ //Property setters
+ Procedure Setdomain(AIndex : Integer; const AValue : TChartData); virtual;
+ Public
+ Published
+ Property domain : TChartData Index 0 Read Fdomain Write Setdomain;
+ end;
+ TBasicChartDomainClass = Class of TBasicChartDomain;
+
+ { --------------------------------------------------------------------
+ TDimensionRange
+ --------------------------------------------------------------------}
+
+ TDimensionRange = Class(TGoogleBaseObject)
+ Private
+ FsheetId : integer;
+ FendIndex : integer;
+ FstartIndex : integer;
+ Fdimension : String;
+ Protected
+ //Property setters
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetendIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdimension(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property sheetId : integer Index 0 Read FsheetId Write SetsheetId;
+ Property endIndex : integer Index 8 Read FendIndex Write SetendIndex;
+ Property startIndex : integer Index 16 Read FstartIndex Write SetstartIndex;
+ Property dimension : String Index 24 Read Fdimension Write Setdimension;
+ end;
+ TDimensionRangeClass = Class of TDimensionRange;
+
+ { --------------------------------------------------------------------
+ TResponse
+ --------------------------------------------------------------------}
+
+ TResponse = Class(TGoogleBaseObject)
+ Private
+ FupdateEmbeddedObjectPosition : TUpdateEmbeddedObjectPositionResponse;
+ FaddFilterView : TAddFilterViewResponse;
+ FaddSheet : TAddSheetResponse;
+ FfindReplace : TFindReplaceResponse;
+ FaddProtectedRange : TAddProtectedRangeResponse;
+ FupdateConditionalFormatRule : TUpdateConditionalFormatRuleResponse;
+ FaddChart : TAddChartResponse;
+ FdeleteConditionalFormatRule : TDeleteConditionalFormatRuleResponse;
+ FduplicateSheet : TDuplicateSheetResponse;
+ FduplicateFilterView : TDuplicateFilterViewResponse;
+ FaddNamedRange : TAddNamedRangeResponse;
+ Protected
+ //Property setters
+ Procedure SetupdateEmbeddedObjectPosition(AIndex : Integer; const AValue : TUpdateEmbeddedObjectPositionResponse); virtual;
+ Procedure SetaddFilterView(AIndex : Integer; const AValue : TAddFilterViewResponse); virtual;
+ Procedure SetaddSheet(AIndex : Integer; const AValue : TAddSheetResponse); virtual;
+ Procedure SetfindReplace(AIndex : Integer; const AValue : TFindReplaceResponse); virtual;
+ Procedure SetaddProtectedRange(AIndex : Integer; const AValue : TAddProtectedRangeResponse); virtual;
+ Procedure SetupdateConditionalFormatRule(AIndex : Integer; const AValue : TUpdateConditionalFormatRuleResponse); virtual;
+ Procedure SetaddChart(AIndex : Integer; const AValue : TAddChartResponse); virtual;
+ Procedure SetdeleteConditionalFormatRule(AIndex : Integer; const AValue : TDeleteConditionalFormatRuleResponse); virtual;
+ Procedure SetduplicateSheet(AIndex : Integer; const AValue : TDuplicateSheetResponse); virtual;
+ Procedure SetduplicateFilterView(AIndex : Integer; const AValue : TDuplicateFilterViewResponse); virtual;
+ Procedure SetaddNamedRange(AIndex : Integer; const AValue : TAddNamedRangeResponse); virtual;
+ Public
+ Published
+ Property updateEmbeddedObjectPosition : TUpdateEmbeddedObjectPositionResponse Index 0 Read FupdateEmbeddedObjectPosition Write SetupdateEmbeddedObjectPosition;
+ Property addFilterView : TAddFilterViewResponse Index 8 Read FaddFilterView Write SetaddFilterView;
+ Property addSheet : TAddSheetResponse Index 16 Read FaddSheet Write SetaddSheet;
+ Property findReplace : TFindReplaceResponse Index 24 Read FfindReplace Write SetfindReplace;
+ Property addProtectedRange : TAddProtectedRangeResponse Index 32 Read FaddProtectedRange Write SetaddProtectedRange;
+ Property updateConditionalFormatRule : TUpdateConditionalFormatRuleResponse Index 40 Read FupdateConditionalFormatRule Write SetupdateConditionalFormatRule;
+ Property addChart : TAddChartResponse Index 48 Read FaddChart Write SetaddChart;
+ Property deleteConditionalFormatRule : TDeleteConditionalFormatRuleResponse Index 56 Read FdeleteConditionalFormatRule Write SetdeleteConditionalFormatRule;
+ Property duplicateSheet : TDuplicateSheetResponse Index 64 Read FduplicateSheet Write SetduplicateSheet;
+ Property duplicateFilterView : TDuplicateFilterViewResponse Index 72 Read FduplicateFilterView Write SetduplicateFilterView;
+ Property addNamedRange : TAddNamedRangeResponse Index 80 Read FaddNamedRange Write SetaddNamedRange;
+ end;
+ TResponseClass = Class of TResponse;
+
+ { --------------------------------------------------------------------
+ TAddConditionalFormatRuleRequest
+ --------------------------------------------------------------------}
+
+ TAddConditionalFormatRuleRequest = Class(TGoogleBaseObject)
+ Private
+ Frule : TConditionalFormatRule;
+ Findex : integer;
+ Protected
+ //Property setters
+ Procedure Setrule(AIndex : Integer; const AValue : TConditionalFormatRule); virtual;
+ Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property rule : TConditionalFormatRule Index 0 Read Frule Write Setrule;
+ Property index : integer Index 8 Read Findex Write Setindex;
+ end;
+ TAddConditionalFormatRuleRequestClass = Class of TAddConditionalFormatRuleRequest;
+
+ { --------------------------------------------------------------------
+ TFilterViewTypecriteria
+ --------------------------------------------------------------------}
+
+ TFilterViewTypecriteria = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TFilterViewTypecriteriaClass = Class of TFilterViewTypecriteria;
+
+ { --------------------------------------------------------------------
+ TFilterView
+ --------------------------------------------------------------------}
+
+ TFilterView = Class(TGoogleBaseObject)
+ Private
+ Ftitle : String;
+ FnamedRangeId : String;
+ FsortSpecs : TFilterViewTypesortSpecsArray;
+ Frange : TGridRange;
+ Fcriteria : TFilterViewTypecriteria;
+ FfilterViewId : integer;
+ Protected
+ //Property setters
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnamedRangeId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsortSpecs(AIndex : Integer; const AValue : TFilterViewTypesortSpecsArray); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure Setcriteria(AIndex : Integer; const AValue : TFilterViewTypecriteria); virtual;
+ Procedure SetfilterViewId(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 title : String Index 0 Read Ftitle Write Settitle;
+ Property namedRangeId : String Index 8 Read FnamedRangeId Write SetnamedRangeId;
+ Property sortSpecs : TFilterViewTypesortSpecsArray Index 16 Read FsortSpecs Write SetsortSpecs;
+ Property range : TGridRange Index 24 Read Frange Write Setrange;
+ Property criteria : TFilterViewTypecriteria Index 32 Read Fcriteria Write Setcriteria;
+ Property filterViewId : integer Index 40 Read FfilterViewId Write SetfilterViewId;
+ end;
+ TFilterViewClass = Class of TFilterView;
+
+ { --------------------------------------------------------------------
+ TSortRangeRequest
+ --------------------------------------------------------------------}
+
+ TSortRangeRequest = Class(TGoogleBaseObject)
+ Private
+ Frange : TGridRange;
+ FsortSpecs : TSortRangeRequestTypesortSpecsArray;
+ Protected
+ //Property setters
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure SetsortSpecs(AIndex : Integer; const AValue : TSortRangeRequestTypesortSpecsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property range : TGridRange Index 0 Read Frange Write Setrange;
+ Property sortSpecs : TSortRangeRequestTypesortSpecsArray Index 8 Read FsortSpecs Write SetsortSpecs;
+ end;
+ TSortRangeRequestClass = Class of TSortRangeRequest;
+
+ { --------------------------------------------------------------------
+ TTextFormatRun
+ --------------------------------------------------------------------}
+
+ TTextFormatRun = Class(TGoogleBaseObject)
+ Private
+ FstartIndex : integer;
+ Fformat : TTextFormat;
+ Protected
+ //Property setters
+ Procedure SetstartIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setformat(AIndex : Integer; const AValue : TTextFormat); virtual;
+ Public
+ Published
+ Property startIndex : integer Index 0 Read FstartIndex Write SetstartIndex;
+ Property format : TTextFormat Index 8 Read Fformat Write Setformat;
+ end;
+ TTextFormatRunClass = Class of TTextFormatRun;
+
+ { --------------------------------------------------------------------
+ TUpdateFilterViewRequest
+ --------------------------------------------------------------------}
+
+ TUpdateFilterViewRequest = Class(TGoogleBaseObject)
+ Private
+ Ffilter : TFilterView;
+ Ffields : String;
+ Protected
+ //Property setters
+ Procedure Setfilter(AIndex : Integer; const AValue : TFilterView); virtual;
+ Procedure Setfields(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property filter : TFilterView Index 0 Read Ffilter Write Setfilter;
+ Property fields : String Index 8 Read Ffields Write Setfields;
+ end;
+ TUpdateFilterViewRequestClass = Class of TUpdateFilterViewRequest;
+
+ { --------------------------------------------------------------------
+ TUpdateConditionalFormatRuleResponse
+ --------------------------------------------------------------------}
+
+ TUpdateConditionalFormatRuleResponse = Class(TGoogleBaseObject)
+ Private
+ FoldIndex : integer;
+ FnewRule : TConditionalFormatRule;
+ FoldRule : TConditionalFormatRule;
+ FnewIndex : integer;
+ Protected
+ //Property setters
+ Procedure SetoldIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnewRule(AIndex : Integer; const AValue : TConditionalFormatRule); virtual;
+ Procedure SetoldRule(AIndex : Integer; const AValue : TConditionalFormatRule); virtual;
+ Procedure SetnewIndex(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property oldIndex : integer Index 0 Read FoldIndex Write SetoldIndex;
+ Property newRule : TConditionalFormatRule Index 8 Read FnewRule Write SetnewRule;
+ Property oldRule : TConditionalFormatRule Index 16 Read FoldRule Write SetoldRule;
+ Property newIndex : integer Index 24 Read FnewIndex Write SetnewIndex;
+ end;
+ TUpdateConditionalFormatRuleResponseClass = Class of TUpdateConditionalFormatRuleResponse;
+
+ { --------------------------------------------------------------------
+ TFilterCriteria
+ --------------------------------------------------------------------}
+
+ TFilterCriteria = Class(TGoogleBaseObject)
+ Private
+ Fcondition : TBooleanCondition;
+ FhiddenValues : TStringArray;
+ Protected
+ //Property setters
+ Procedure Setcondition(AIndex : Integer; const AValue : TBooleanCondition); virtual;
+ Procedure SethiddenValues(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 condition : TBooleanCondition Index 0 Read Fcondition Write Setcondition;
+ Property hiddenValues : TStringArray Index 8 Read FhiddenValues Write SethiddenValues;
+ end;
+ TFilterCriteriaClass = Class of TFilterCriteria;
+
+ { --------------------------------------------------------------------
+ TDeleteDimensionRequest
+ --------------------------------------------------------------------}
+
+ TDeleteDimensionRequest = Class(TGoogleBaseObject)
+ Private
+ Frange : TDimensionRange;
+ Protected
+ //Property setters
+ Procedure Setrange(AIndex : Integer; const AValue : TDimensionRange); virtual;
+ Public
+ Published
+ Property range : TDimensionRange Index 0 Read Frange Write Setrange;
+ end;
+ TDeleteDimensionRequestClass = Class of TDeleteDimensionRequest;
+
+ { --------------------------------------------------------------------
+ TPivotTableTypecriteria
+ --------------------------------------------------------------------}
+
+ TPivotTableTypecriteria = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TPivotTableTypecriteriaClass = Class of TPivotTableTypecriteria;
+
+ { --------------------------------------------------------------------
+ TPivotTable
+ --------------------------------------------------------------------}
+
+ TPivotTable = Class(TGoogleBaseObject)
+ Private
+ FvalueLayout : String;
+ Fcolumns : TPivotTableTypecolumnsArray;
+ Fsource : TGridRange;
+ Frows : TPivotTableTyperowsArray;
+ Fvalues : TPivotTableTypevaluesArray;
+ Fcriteria : TPivotTableTypecriteria;
+ Protected
+ //Property setters
+ Procedure SetvalueLayout(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcolumns(AIndex : Integer; const AValue : TPivotTableTypecolumnsArray); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TPivotTableTyperowsArray); virtual;
+ Procedure Setvalues(AIndex : Integer; const AValue : TPivotTableTypevaluesArray); virtual;
+ Procedure Setcriteria(AIndex : Integer; const AValue : TPivotTableTypecriteria); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property valueLayout : String Index 0 Read FvalueLayout Write SetvalueLayout;
+ Property columns : TPivotTableTypecolumnsArray Index 8 Read Fcolumns Write Setcolumns;
+ Property source : TGridRange Index 16 Read Fsource Write Setsource;
+ Property rows : TPivotTableTyperowsArray Index 24 Read Frows Write Setrows;
+ Property values : TPivotTableTypevaluesArray Index 32 Read Fvalues Write Setvalues;
+ Property criteria : TPivotTableTypecriteria Index 40 Read Fcriteria Write Setcriteria;
+ end;
+ TPivotTableClass = Class of TPivotTable;
+
+ { --------------------------------------------------------------------
+ TDataValidationRule
+ --------------------------------------------------------------------}
+
+ TDataValidationRule = Class(TGoogleBaseObject)
+ Private
+ Fcondition : TBooleanCondition;
+ FinputMessage : String;
+ FshowCustomUi : boolean;
+ Fstrict : boolean;
+ Protected
+ //Property setters
+ Procedure Setcondition(AIndex : Integer; const AValue : TBooleanCondition); virtual;
+ Procedure SetinputMessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetshowCustomUi(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setstrict(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property condition : TBooleanCondition Index 0 Read Fcondition Write Setcondition;
+ Property inputMessage : String Index 8 Read FinputMessage Write SetinputMessage;
+ Property showCustomUi : boolean Index 16 Read FshowCustomUi Write SetshowCustomUi;
+ Property strict : boolean Index 24 Read Fstrict Write Setstrict;
+ end;
+ TDataValidationRuleClass = Class of TDataValidationRule;
+
+ { --------------------------------------------------------------------
+ TUpdateSpreadsheetPropertiesRequest
+ --------------------------------------------------------------------}
+
+ TUpdateSpreadsheetPropertiesRequest = Class(TGoogleBaseObject)
+ Private
+ Ffields : String;
+ Fproperties : TSpreadsheetProperties;
+ Protected
+ //Property setters
+ Procedure Setfields(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TSpreadsheetProperties); virtual;
+ Public
+ Published
+ Property fields : String Index 0 Read Ffields Write Setfields;
+ Property properties : TSpreadsheetProperties Index 8 Read Fproperties Write Setproperties;
+ end;
+ TUpdateSpreadsheetPropertiesRequestClass = Class of TUpdateSpreadsheetPropertiesRequest;
+
+ { --------------------------------------------------------------------
+ TChartSourceRange
+ --------------------------------------------------------------------}
+
+ TChartSourceRange = Class(TGoogleBaseObject)
+ Private
+ Fsources : TChartSourceRangeTypesourcesArray;
+ Protected
+ //Property setters
+ Procedure Setsources(AIndex : Integer; const AValue : TChartSourceRangeTypesourcesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property sources : TChartSourceRangeTypesourcesArray Index 0 Read Fsources Write Setsources;
+ end;
+ TChartSourceRangeClass = Class of TChartSourceRange;
+
+ { --------------------------------------------------------------------
+ TBatchUpdateValuesRequest
+ --------------------------------------------------------------------}
+
+ TBatchUpdateValuesRequest = Class(TGoogleBaseObject)
+ Private
+ FvalueInputOption : String;
+ Fdata : TBatchUpdateValuesRequestTypedataArray;
+ Protected
+ //Property setters
+ Procedure SetvalueInputOption(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TBatchUpdateValuesRequestTypedataArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property valueInputOption : String Index 0 Read FvalueInputOption Write SetvalueInputOption;
+ Property data : TBatchUpdateValuesRequestTypedataArray Index 8 Read Fdata Write Setdata;
+ end;
+ TBatchUpdateValuesRequestClass = Class of TBatchUpdateValuesRequest;
+
+ { --------------------------------------------------------------------
+ TClearBasicFilterRequest
+ --------------------------------------------------------------------}
+
+ TClearBasicFilterRequest = Class(TGoogleBaseObject)
+ Private
+ FsheetId : integer;
+ Protected
+ //Property setters
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property sheetId : integer Index 0 Read FsheetId Write SetsheetId;
+ end;
+ TClearBasicFilterRequestClass = Class of TClearBasicFilterRequest;
+
+ { --------------------------------------------------------------------
+ TConditionalFormatRule
+ --------------------------------------------------------------------}
+
+ TConditionalFormatRule = Class(TGoogleBaseObject)
+ Private
+ FgradientRule : TGradientRule;
+ FbooleanRule : TBooleanRule;
+ Franges : TConditionalFormatRuleTyperangesArray;
+ Protected
+ //Property setters
+ Procedure SetgradientRule(AIndex : Integer; const AValue : TGradientRule); virtual;
+ Procedure SetbooleanRule(AIndex : Integer; const AValue : TBooleanRule); virtual;
+ Procedure Setranges(AIndex : Integer; const AValue : TConditionalFormatRuleTyperangesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property gradientRule : TGradientRule Index 0 Read FgradientRule Write SetgradientRule;
+ Property booleanRule : TBooleanRule Index 8 Read FbooleanRule Write SetbooleanRule;
+ Property ranges : TConditionalFormatRuleTyperangesArray Index 16 Read Franges Write Setranges;
+ end;
+ TConditionalFormatRuleClass = Class of TConditionalFormatRule;
+
+ { --------------------------------------------------------------------
+ TUpdateBordersRequest
+ --------------------------------------------------------------------}
+
+ TUpdateBordersRequest = Class(TGoogleBaseObject)
+ Private
+ Fright : TBorder;
+ FinnerVertical : TBorder;
+ Ftop : TBorder;
+ FinnerHorizontal : TBorder;
+ Frange : TGridRange;
+ Fbottom : TBorder;
+ Fleft : TBorder;
+ Protected
+ //Property setters
+ Procedure Setright(AIndex : Integer; const AValue : TBorder); virtual;
+ Procedure SetinnerVertical(AIndex : Integer; const AValue : TBorder); virtual;
+ Procedure Settop(AIndex : Integer; const AValue : TBorder); virtual;
+ Procedure SetinnerHorizontal(AIndex : Integer; const AValue : TBorder); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure Setbottom(AIndex : Integer; const AValue : TBorder); virtual;
+ Procedure Setleft(AIndex : Integer; const AValue : TBorder); virtual;
+ Public
+ Published
+ Property right : TBorder Index 0 Read Fright Write Setright;
+ Property innerVertical : TBorder Index 8 Read FinnerVertical Write SetinnerVertical;
+ Property top : TBorder Index 16 Read Ftop Write Settop;
+ Property innerHorizontal : TBorder Index 24 Read FinnerHorizontal Write SetinnerHorizontal;
+ Property range : TGridRange Index 32 Read Frange Write Setrange;
+ Property bottom : TBorder Index 40 Read Fbottom Write Setbottom;
+ Property left : TBorder Index 48 Read Fleft Write Setleft;
+ end;
+ TUpdateBordersRequestClass = Class of TUpdateBordersRequest;
+
+ { --------------------------------------------------------------------
+ TPivotFilterCriteria
+ --------------------------------------------------------------------}
+
+ TPivotFilterCriteria = Class(TGoogleBaseObject)
+ Private
+ FvisibleValues : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetvisibleValues(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 visibleValues : TStringArray Index 0 Read FvisibleValues Write SetvisibleValues;
+ end;
+ TPivotFilterCriteriaClass = Class of TPivotFilterCriteria;
+
+ { --------------------------------------------------------------------
+ TBorders
+ --------------------------------------------------------------------}
+
+ TBorders = Class(TGoogleBaseObject)
+ Private
+ Fleft : TBorder;
+ Fright : TBorder;
+ Ftop : TBorder;
+ Fbottom : TBorder;
+ Protected
+ //Property setters
+ Procedure Setleft(AIndex : Integer; const AValue : TBorder); virtual;
+ Procedure Setright(AIndex : Integer; const AValue : TBorder); virtual;
+ Procedure Settop(AIndex : Integer; const AValue : TBorder); virtual;
+ Procedure Setbottom(AIndex : Integer; const AValue : TBorder); virtual;
+ Public
+ Published
+ Property left : TBorder Index 0 Read Fleft Write Setleft;
+ Property right : TBorder Index 8 Read Fright Write Setright;
+ Property top : TBorder Index 16 Read Ftop Write Settop;
+ Property bottom : TBorder Index 24 Read Fbottom Write Setbottom;
+ end;
+ TBordersClass = Class of TBorders;
+
+ { --------------------------------------------------------------------
+ TEmbeddedChart
+ --------------------------------------------------------------------}
+
+ TEmbeddedChart = Class(TGoogleBaseObject)
+ Private
+ FchartId : integer;
+ Fposition : TEmbeddedObjectPosition;
+ Fspec : TChartSpec;
+ Protected
+ //Property setters
+ Procedure SetchartId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : TEmbeddedObjectPosition); virtual;
+ Procedure Setspec(AIndex : Integer; const AValue : TChartSpec); virtual;
+ Public
+ Published
+ Property chartId : integer Index 0 Read FchartId Write SetchartId;
+ Property position : TEmbeddedObjectPosition Index 8 Read Fposition Write Setposition;
+ Property spec : TChartSpec Index 16 Read Fspec Write Setspec;
+ end;
+ TEmbeddedChartClass = Class of TEmbeddedChart;
+
+ { --------------------------------------------------------------------
+ TColor
+ --------------------------------------------------------------------}
+
+ TColor = Class(TGoogleBaseObject)
+ Private
+ Fgreen : integer;
+ Fblue : integer;
+ Fred : integer;
+ Falpha : integer;
+ Protected
+ //Property setters
+ Procedure Setgreen(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setblue(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setred(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setalpha(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property green : integer Index 0 Read Fgreen Write Setgreen;
+ Property blue : integer Index 8 Read Fblue Write Setblue;
+ Property red : integer Index 16 Read Fred Write Setred;
+ Property alpha : integer Index 24 Read Falpha Write Setalpha;
+ end;
+ TColorClass = Class of TColor;
+
+ { --------------------------------------------------------------------
+ TAddSheetRequest
+ --------------------------------------------------------------------}
+
+ TAddSheetRequest = Class(TGoogleBaseObject)
+ Private
+ Fproperties : TSheetProperties;
+ Protected
+ //Property setters
+ Procedure Setproperties(AIndex : Integer; const AValue : TSheetProperties); virtual;
+ Public
+ Published
+ Property properties : TSheetProperties Index 0 Read Fproperties Write Setproperties;
+ end;
+ TAddSheetRequestClass = Class of TAddSheetRequest;
+
+ { --------------------------------------------------------------------
+ TAddProtectedRangeRequest
+ --------------------------------------------------------------------}
+
+ TAddProtectedRangeRequest = Class(TGoogleBaseObject)
+ Private
+ FprotectedRange : TProtectedRange;
+ Protected
+ //Property setters
+ Procedure SetprotectedRange(AIndex : Integer; const AValue : TProtectedRange); virtual;
+ Public
+ Published
+ Property protectedRange : TProtectedRange Index 0 Read FprotectedRange Write SetprotectedRange;
+ end;
+ TAddProtectedRangeRequestClass = Class of TAddProtectedRangeRequest;
+
+ { --------------------------------------------------------------------
+ TValueRange
+ --------------------------------------------------------------------}
+
+ TValueRange = Class(TGoogleBaseObject)
+ Private
+ Fvalues : TValueRangeTypevaluesArray;
+ Frange : String;
+ FmajorDimension : String;
+ Protected
+ //Property setters
+ Procedure Setvalues(AIndex : Integer; const AValue : TValueRangeTypevaluesArray); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmajorDimension(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 values : TValueRangeTypevaluesArray Index 0 Read Fvalues Write Setvalues;
+ Property range : String Index 8 Read Frange Write Setrange;
+ Property majorDimension : String Index 16 Read FmajorDimension Write SetmajorDimension;
+ end;
+ TValueRangeClass = Class of TValueRange;
+
+ { --------------------------------------------------------------------
+ TFindReplaceResponse
+ --------------------------------------------------------------------}
+
+ TFindReplaceResponse = Class(TGoogleBaseObject)
+ Private
+ FvaluesChanged : integer;
+ FrowsChanged : integer;
+ FoccurrencesChanged : integer;
+ FformulasChanged : integer;
+ FsheetsChanged : integer;
+ Protected
+ //Property setters
+ Procedure SetvaluesChanged(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetrowsChanged(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetoccurrencesChanged(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetformulasChanged(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetsheetsChanged(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property valuesChanged : integer Index 0 Read FvaluesChanged Write SetvaluesChanged;
+ Property rowsChanged : integer Index 8 Read FrowsChanged Write SetrowsChanged;
+ Property occurrencesChanged : integer Index 16 Read FoccurrencesChanged Write SetoccurrencesChanged;
+ Property formulasChanged : integer Index 24 Read FformulasChanged Write SetformulasChanged;
+ Property sheetsChanged : integer Index 32 Read FsheetsChanged Write SetsheetsChanged;
+ end;
+ TFindReplaceResponseClass = Class of TFindReplaceResponse;
+
+ { --------------------------------------------------------------------
+ TCellFormat
+ --------------------------------------------------------------------}
+
+ TCellFormat = Class(TGoogleBaseObject)
+ Private
+ FhorizontalAlignment : String;
+ FhyperlinkDisplayType : String;
+ Fborders : TBorders;
+ FtextDirection : String;
+ FtextFormat : TTextFormat;
+ Fpadding : TPadding;
+ FnumberFormat : TNumberFormat;
+ FwrapStrategy : String;
+ FbackgroundColor : TColor;
+ FverticalAlignment : String;
+ Protected
+ //Property setters
+ Procedure SethorizontalAlignment(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethyperlinkDisplayType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setborders(AIndex : Integer; const AValue : TBorders); virtual;
+ Procedure SettextDirection(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettextFormat(AIndex : Integer; const AValue : TTextFormat); virtual;
+ Procedure Setpadding(AIndex : Integer; const AValue : TPadding); virtual;
+ Procedure SetnumberFormat(AIndex : Integer; const AValue : TNumberFormat); virtual;
+ Procedure SetwrapStrategy(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbackgroundColor(AIndex : Integer; const AValue : TColor); virtual;
+ Procedure SetverticalAlignment(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property horizontalAlignment : String Index 0 Read FhorizontalAlignment Write SethorizontalAlignment;
+ Property hyperlinkDisplayType : String Index 8 Read FhyperlinkDisplayType Write SethyperlinkDisplayType;
+ Property borders : TBorders Index 16 Read Fborders Write Setborders;
+ Property textDirection : String Index 24 Read FtextDirection Write SettextDirection;
+ Property textFormat : TTextFormat Index 32 Read FtextFormat Write SettextFormat;
+ Property padding : TPadding Index 40 Read Fpadding Write Setpadding;
+ Property numberFormat : TNumberFormat Index 48 Read FnumberFormat Write SetnumberFormat;
+ Property wrapStrategy : String Index 56 Read FwrapStrategy Write SetwrapStrategy;
+ Property backgroundColor : TColor Index 64 Read FbackgroundColor Write SetbackgroundColor;
+ Property verticalAlignment : String Index 72 Read FverticalAlignment Write SetverticalAlignment;
+ end;
+ TCellFormatClass = Class of TCellFormat;
+
+ { --------------------------------------------------------------------
+ TMoveDimensionRequest
+ --------------------------------------------------------------------}
+
+ TMoveDimensionRequest = Class(TGoogleBaseObject)
+ Private
+ Fsource : TDimensionRange;
+ FdestinationIndex : integer;
+ Protected
+ //Property setters
+ Procedure Setsource(AIndex : Integer; const AValue : TDimensionRange); virtual;
+ Procedure SetdestinationIndex(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property source : TDimensionRange Index 0 Read Fsource Write Setsource;
+ Property destinationIndex : integer Index 8 Read FdestinationIndex Write SetdestinationIndex;
+ end;
+ TMoveDimensionRequestClass = Class of TMoveDimensionRequest;
+
+ { --------------------------------------------------------------------
+ TBasicChartAxis
+ --------------------------------------------------------------------}
+
+ TBasicChartAxis = Class(TGoogleBaseObject)
+ Private
+ Fposition : String;
+ Ftitle : String;
+ Fformat : TTextFormat;
+ Protected
+ //Property setters
+ Procedure Setposition(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setformat(AIndex : Integer; const AValue : TTextFormat); virtual;
+ Public
+ Published
+ Property position : String Index 0 Read Fposition Write Setposition;
+ Property title : String Index 8 Read Ftitle Write Settitle;
+ Property format : TTextFormat Index 16 Read Fformat Write Setformat;
+ end;
+ TBasicChartAxisClass = Class of TBasicChartAxis;
+
+ { --------------------------------------------------------------------
+ TPivotGroupSortValueBucket
+ --------------------------------------------------------------------}
+
+ TPivotGroupSortValueBucket = Class(TGoogleBaseObject)
+ Private
+ Fbuckets : TPivotGroupSortValueBucketTypebucketsArray;
+ FvaluesIndex : integer;
+ Protected
+ //Property setters
+ Procedure Setbuckets(AIndex : Integer; const AValue : TPivotGroupSortValueBucketTypebucketsArray); virtual;
+ Procedure SetvaluesIndex(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 buckets : TPivotGroupSortValueBucketTypebucketsArray Index 0 Read Fbuckets Write Setbuckets;
+ Property valuesIndex : integer Index 8 Read FvaluesIndex Write SetvaluesIndex;
+ end;
+ TPivotGroupSortValueBucketClass = Class of TPivotGroupSortValueBucket;
+
+ { --------------------------------------------------------------------
+ TDimensionProperties
+ --------------------------------------------------------------------}
+
+ TDimensionProperties = Class(TGoogleBaseObject)
+ Private
+ FhiddenByUser : boolean;
+ FpixelSize : integer;
+ FhiddenByFilter : boolean;
+ Protected
+ //Property setters
+ Procedure SethiddenByUser(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpixelSize(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SethiddenByFilter(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property hiddenByUser : boolean Index 0 Read FhiddenByUser Write SethiddenByUser;
+ Property pixelSize : integer Index 8 Read FpixelSize Write SetpixelSize;
+ Property hiddenByFilter : boolean Index 16 Read FhiddenByFilter Write SethiddenByFilter;
+ end;
+ TDimensionPropertiesClass = Class of TDimensionProperties;
+
+ { --------------------------------------------------------------------
+ TEmbeddedObjectPosition
+ --------------------------------------------------------------------}
+
+ TEmbeddedObjectPosition = Class(TGoogleBaseObject)
+ Private
+ FsheetId : integer;
+ FoverlayPosition : TOverlayPosition;
+ FnewSheet : boolean;
+ Protected
+ //Property setters
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetoverlayPosition(AIndex : Integer; const AValue : TOverlayPosition); virtual;
+ Procedure SetnewSheet(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property sheetId : integer Index 0 Read FsheetId Write SetsheetId;
+ Property overlayPosition : TOverlayPosition Index 8 Read FoverlayPosition Write SetoverlayPosition;
+ Property newSheet : boolean Index 16 Read FnewSheet Write SetnewSheet;
+ end;
+ TEmbeddedObjectPositionClass = Class of TEmbeddedObjectPosition;
+
+ { --------------------------------------------------------------------
+ TInterpolationPoint
+ --------------------------------------------------------------------}
+
+ TInterpolationPoint = Class(TGoogleBaseObject)
+ Private
+ Fvalue : String;
+ Fcolor : TColor;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcolor(AIndex : Integer; const AValue : TColor); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property value : String Index 0 Read Fvalue Write Setvalue;
+ Property color : TColor Index 8 Read Fcolor Write Setcolor;
+ Property _type : String Index 16 Read F_type Write Set_type;
+ end;
+ TInterpolationPointClass = Class of TInterpolationPoint;
+
+ { --------------------------------------------------------------------
+ TErrorValue
+ --------------------------------------------------------------------}
+
+ TErrorValue = Class(TGoogleBaseObject)
+ Private
+ F_type : String;
+ Fmessage : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property _type : String Index 0 Read F_type Write Set_type;
+ Property message : String Index 8 Read Fmessage Write Setmessage;
+ end;
+ TErrorValueClass = Class of TErrorValue;
+
+ { --------------------------------------------------------------------
+ TDuplicateFilterViewRequest
+ --------------------------------------------------------------------}
+
+ TDuplicateFilterViewRequest = Class(TGoogleBaseObject)
+ Private
+ FfilterId : integer;
+ Protected
+ //Property setters
+ Procedure SetfilterId(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property filterId : integer Index 0 Read FfilterId Write SetfilterId;
+ end;
+ TDuplicateFilterViewRequestClass = Class of TDuplicateFilterViewRequest;
+
+ { --------------------------------------------------------------------
+ TBatchUpdateSpreadsheetRequest
+ --------------------------------------------------------------------}
+
+ TBatchUpdateSpreadsheetRequest = Class(TGoogleBaseObject)
+ Private
+ Frequests : TBatchUpdateSpreadsheetRequestTyperequestsArray;
+ Protected
+ //Property setters
+ Procedure Setrequests(AIndex : Integer; const AValue : TBatchUpdateSpreadsheetRequestTyperequestsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property requests : TBatchUpdateSpreadsheetRequestTyperequestsArray Index 0 Read Frequests Write Setrequests;
+ end;
+ TBatchUpdateSpreadsheetRequestClass = Class of TBatchUpdateSpreadsheetRequest;
+
+ { --------------------------------------------------------------------
+ TSheetProperties
+ --------------------------------------------------------------------}
+
+ TSheetProperties = Class(TGoogleBaseObject)
+ Private
+ Ftitle : String;
+ Findex : integer;
+ Fhidden : boolean;
+ FgridProperties : TGridProperties;
+ FsheetId : integer;
+ FrightToLeft : boolean;
+ FtabColor : TColor;
+ FsheetType : String;
+ Protected
+ //Property setters
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Sethidden(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetgridProperties(AIndex : Integer; const AValue : TGridProperties); virtual;
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetrightToLeft(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SettabColor(AIndex : Integer; const AValue : TColor); virtual;
+ Procedure SetsheetType(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property title : String Index 0 Read Ftitle Write Settitle;
+ Property index : integer Index 8 Read Findex Write Setindex;
+ Property hidden : boolean Index 16 Read Fhidden Write Sethidden;
+ Property gridProperties : TGridProperties Index 24 Read FgridProperties Write SetgridProperties;
+ Property sheetId : integer Index 32 Read FsheetId Write SetsheetId;
+ Property rightToLeft : boolean Index 40 Read FrightToLeft Write SetrightToLeft;
+ Property tabColor : TColor Index 48 Read FtabColor Write SettabColor;
+ Property sheetType : String Index 56 Read FsheetType Write SetsheetType;
+ end;
+ TSheetPropertiesClass = Class of TSheetProperties;
+
+ { --------------------------------------------------------------------
+ TProtectedRange
+ --------------------------------------------------------------------}
+
+ TProtectedRange = Class(TGoogleBaseObject)
+ Private
+ FunprotectedRanges : TProtectedRangeTypeunprotectedRangesArray;
+ Fdescription : String;
+ FnamedRangeId : String;
+ FrequestingUserCanEdit : boolean;
+ Feditors : TEditors;
+ FprotectedRangeId : integer;
+ FwarningOnly : boolean;
+ Frange : TGridRange;
+ Protected
+ //Property setters
+ Procedure SetunprotectedRanges(AIndex : Integer; const AValue : TProtectedRangeTypeunprotectedRangesArray); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnamedRangeId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrequestingUserCanEdit(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Seteditors(AIndex : Integer; const AValue : TEditors); virtual;
+ Procedure SetprotectedRangeId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetwarningOnly(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property unprotectedRanges : TProtectedRangeTypeunprotectedRangesArray Index 0 Read FunprotectedRanges Write SetunprotectedRanges;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property namedRangeId : String Index 16 Read FnamedRangeId Write SetnamedRangeId;
+ Property requestingUserCanEdit : boolean Index 24 Read FrequestingUserCanEdit Write SetrequestingUserCanEdit;
+ Property editors : TEditors Index 32 Read Feditors Write Seteditors;
+ Property protectedRangeId : integer Index 40 Read FprotectedRangeId Write SetprotectedRangeId;
+ Property warningOnly : boolean Index 48 Read FwarningOnly Write SetwarningOnly;
+ Property range : TGridRange Index 56 Read Frange Write Setrange;
+ end;
+ TProtectedRangeClass = Class of TProtectedRange;
+
+ { --------------------------------------------------------------------
+ TDeleteConditionalFormatRuleRequest
+ --------------------------------------------------------------------}
+
+ TDeleteConditionalFormatRuleRequest = Class(TGoogleBaseObject)
+ Private
+ FsheetId : integer;
+ Findex : integer;
+ Protected
+ //Property setters
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property sheetId : integer Index 0 Read FsheetId Write SetsheetId;
+ Property index : integer Index 8 Read Findex Write Setindex;
+ end;
+ TDeleteConditionalFormatRuleRequestClass = Class of TDeleteConditionalFormatRuleRequest;
+
+ { --------------------------------------------------------------------
+ TChartSpec
+ --------------------------------------------------------------------}
+
+ TChartSpec = Class(TGoogleBaseObject)
+ Private
+ FhiddenDimensionStrategy : String;
+ FbasicChart : TBasicChartSpec;
+ Ftitle : String;
+ FpieChart : TPieChartSpec;
+ Protected
+ //Property setters
+ Procedure SethiddenDimensionStrategy(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbasicChart(AIndex : Integer; const AValue : TBasicChartSpec); virtual;
+ Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpieChart(AIndex : Integer; const AValue : TPieChartSpec); virtual;
+ Public
+ Published
+ Property hiddenDimensionStrategy : String Index 0 Read FhiddenDimensionStrategy Write SethiddenDimensionStrategy;
+ Property basicChart : TBasicChartSpec Index 8 Read FbasicChart Write SetbasicChart;
+ Property title : String Index 16 Read Ftitle Write Settitle;
+ Property pieChart : TPieChartSpec Index 24 Read FpieChart Write SetpieChart;
+ end;
+ TChartSpecClass = Class of TChartSpec;
+
+ { --------------------------------------------------------------------
+ TSourceAndDestination
+ --------------------------------------------------------------------}
+
+ TSourceAndDestination = Class(TGoogleBaseObject)
+ Private
+ Fsource : TGridRange;
+ FfillLength : integer;
+ Fdimension : String;
+ Protected
+ //Property setters
+ Procedure Setsource(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure SetfillLength(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdimension(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property source : TGridRange Index 0 Read Fsource Write Setsource;
+ Property fillLength : integer Index 8 Read FfillLength Write SetfillLength;
+ Property dimension : String Index 16 Read Fdimension Write Setdimension;
+ end;
+ TSourceAndDestinationClass = Class of TSourceAndDestination;
+
+ { --------------------------------------------------------------------
+ TConditionValue
+ --------------------------------------------------------------------}
+
+ TConditionValue = Class(TGoogleBaseObject)
+ Private
+ FrelativeDate : String;
+ FuserEnteredValue : String;
+ Protected
+ //Property setters
+ Procedure SetrelativeDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserEnteredValue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property relativeDate : String Index 0 Read FrelativeDate Write SetrelativeDate;
+ Property userEnteredValue : String Index 8 Read FuserEnteredValue Write SetuserEnteredValue;
+ end;
+ TConditionValueClass = Class of TConditionValue;
+
+ { --------------------------------------------------------------------
+ TPasteDataRequest
+ --------------------------------------------------------------------}
+
+ TPasteDataRequest = Class(TGoogleBaseObject)
+ Private
+ Fdata : String;
+ Fcoordinate : TGridCoordinate;
+ Fdelimiter : String;
+ F_type : String;
+ Fhtml : boolean;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcoordinate(AIndex : Integer; const AValue : TGridCoordinate); virtual;
+ Procedure Setdelimiter(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Sethtml(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property data : String Index 0 Read Fdata Write Setdata;
+ Property coordinate : TGridCoordinate Index 8 Read Fcoordinate Write Setcoordinate;
+ Property delimiter : String Index 16 Read Fdelimiter Write Setdelimiter;
+ Property _type : String Index 24 Read F_type Write Set_type;
+ Property html : boolean Index 32 Read Fhtml Write Sethtml;
+ end;
+ TPasteDataRequestClass = Class of TPasteDataRequest;
+
+ { --------------------------------------------------------------------
+ TFindReplaceRequest
+ --------------------------------------------------------------------}
+
+ TFindReplaceRequest = Class(TGoogleBaseObject)
+ Private
+ Ffind : String;
+ Freplacement : String;
+ FsearchByRegex : boolean;
+ FsheetId : integer;
+ FallSheets : boolean;
+ FmatchCase : boolean;
+ FincludeFormulas : boolean;
+ Frange : TGridRange;
+ FmatchEntireCell : boolean;
+ Protected
+ //Property setters
+ Procedure Setfind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setreplacement(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsearchByRegex(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetallSheets(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetmatchCase(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetincludeFormulas(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure SetmatchEntireCell(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property find : String Index 0 Read Ffind Write Setfind;
+ Property replacement : String Index 8 Read Freplacement Write Setreplacement;
+ Property searchByRegex : boolean Index 16 Read FsearchByRegex Write SetsearchByRegex;
+ Property sheetId : integer Index 24 Read FsheetId Write SetsheetId;
+ Property allSheets : boolean Index 32 Read FallSheets Write SetallSheets;
+ Property matchCase : boolean Index 40 Read FmatchCase Write SetmatchCase;
+ Property includeFormulas : boolean Index 48 Read FincludeFormulas Write SetincludeFormulas;
+ Property range : TGridRange Index 56 Read Frange Write Setrange;
+ Property matchEntireCell : boolean Index 64 Read FmatchEntireCell Write SetmatchEntireCell;
+ end;
+ TFindReplaceRequestClass = Class of TFindReplaceRequest;
+
+ { --------------------------------------------------------------------
+ TSortSpec
+ --------------------------------------------------------------------}
+
+ TSortSpec = Class(TGoogleBaseObject)
+ Private
+ FsortOrder : String;
+ FdimensionIndex : integer;
+ Protected
+ //Property setters
+ Procedure SetsortOrder(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdimensionIndex(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property sortOrder : String Index 0 Read FsortOrder Write SetsortOrder;
+ Property dimensionIndex : integer Index 8 Read FdimensionIndex Write SetdimensionIndex;
+ end;
+ TSortSpecClass = Class of TSortSpec;
+
+ { --------------------------------------------------------------------
+ TCopySheetToAnotherSpreadsheetRequest
+ --------------------------------------------------------------------}
+
+ TCopySheetToAnotherSpreadsheetRequest = Class(TGoogleBaseObject)
+ Private
+ FdestinationSpreadsheetId : String;
+ Protected
+ //Property setters
+ Procedure SetdestinationSpreadsheetId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property destinationSpreadsheetId : String Index 0 Read FdestinationSpreadsheetId Write SetdestinationSpreadsheetId;
+ end;
+ TCopySheetToAnotherSpreadsheetRequestClass = Class of TCopySheetToAnotherSpreadsheetRequest;
+
+ { --------------------------------------------------------------------
+ TNumberFormat
+ --------------------------------------------------------------------}
+
+ TNumberFormat = Class(TGoogleBaseObject)
+ Private
+ Fpattern : String;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setpattern(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property pattern : String Index 0 Read Fpattern Write Setpattern;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ end;
+ TNumberFormatClass = Class of TNumberFormat;
+
+ { --------------------------------------------------------------------
+ TUpdateDimensionPropertiesRequest
+ --------------------------------------------------------------------}
+
+ TUpdateDimensionPropertiesRequest = Class(TGoogleBaseObject)
+ Private
+ Ffields : String;
+ Frange : TDimensionRange;
+ Fproperties : TDimensionProperties;
+ Protected
+ //Property setters
+ Procedure Setfields(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TDimensionRange); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TDimensionProperties); virtual;
+ Public
+ Published
+ Property fields : String Index 0 Read Ffields Write Setfields;
+ Property range : TDimensionRange Index 8 Read Frange Write Setrange;
+ Property properties : TDimensionProperties Index 16 Read Fproperties Write Setproperties;
+ end;
+ TUpdateDimensionPropertiesRequestClass = Class of TUpdateDimensionPropertiesRequest;
+
+ { --------------------------------------------------------------------
+ TEditors
+ --------------------------------------------------------------------}
+
+ TEditors = Class(TGoogleBaseObject)
+ Private
+ Fusers : TStringArray;
+ Fgroups : TStringArray;
+ FdomainUsersCanEdit : boolean;
+ Protected
+ //Property setters
+ Procedure Setusers(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setgroups(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetdomainUsersCanEdit(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 users : TStringArray Index 0 Read Fusers Write Setusers;
+ Property groups : TStringArray Index 8 Read Fgroups Write Setgroups;
+ Property domainUsersCanEdit : boolean Index 16 Read FdomainUsersCanEdit Write SetdomainUsersCanEdit;
+ end;
+ TEditorsClass = Class of TEditors;
+
+ { --------------------------------------------------------------------
+ TSpreadsheet
+ --------------------------------------------------------------------}
+
+ TSpreadsheet = Class(TGoogleBaseObject)
+ Private
+ FspreadsheetId : String;
+ Fproperties : TSpreadsheetProperties;
+ Fsheets : TSpreadsheetTypesheetsArray;
+ FnamedRanges : TSpreadsheetTypenamedRangesArray;
+ Protected
+ //Property setters
+ Procedure SetspreadsheetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TSpreadsheetProperties); virtual;
+ Procedure Setsheets(AIndex : Integer; const AValue : TSpreadsheetTypesheetsArray); virtual;
+ Procedure SetnamedRanges(AIndex : Integer; const AValue : TSpreadsheetTypenamedRangesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property spreadsheetId : String Index 0 Read FspreadsheetId Write SetspreadsheetId;
+ Property properties : TSpreadsheetProperties Index 8 Read Fproperties Write Setproperties;
+ Property sheets : TSpreadsheetTypesheetsArray Index 16 Read Fsheets Write Setsheets;
+ Property namedRanges : TSpreadsheetTypenamedRangesArray Index 24 Read FnamedRanges Write SetnamedRanges;
+ end;
+ TSpreadsheetClass = Class of TSpreadsheet;
+
+ { --------------------------------------------------------------------
+ TGridData
+ --------------------------------------------------------------------}
+
+ TGridData = Class(TGoogleBaseObject)
+ Private
+ FcolumnMetadata : TGridDataTypecolumnMetadataArray;
+ FrowData : TGridDataTyperowDataArray;
+ FstartRow : integer;
+ FrowMetadata : TGridDataTyperowMetadataArray;
+ FstartColumn : integer;
+ Protected
+ //Property setters
+ Procedure SetcolumnMetadata(AIndex : Integer; const AValue : TGridDataTypecolumnMetadataArray); virtual;
+ Procedure SetrowData(AIndex : Integer; const AValue : TGridDataTyperowDataArray); virtual;
+ Procedure SetstartRow(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetrowMetadata(AIndex : Integer; const AValue : TGridDataTyperowMetadataArray); virtual;
+ Procedure SetstartColumn(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 columnMetadata : TGridDataTypecolumnMetadataArray Index 0 Read FcolumnMetadata Write SetcolumnMetadata;
+ Property rowData : TGridDataTyperowDataArray Index 8 Read FrowData Write SetrowData;
+ Property startRow : integer Index 16 Read FstartRow Write SetstartRow;
+ Property rowMetadata : TGridDataTyperowMetadataArray Index 24 Read FrowMetadata Write SetrowMetadata;
+ Property startColumn : integer Index 32 Read FstartColumn Write SetstartColumn;
+ end;
+ TGridDataClass = Class of TGridData;
+
+ { --------------------------------------------------------------------
+ TPivotValue
+ --------------------------------------------------------------------}
+
+ TPivotValue = Class(TGoogleBaseObject)
+ Private
+ Fformula : String;
+ FsourceColumnOffset : integer;
+ FsummarizeFunction : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure Setformula(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceColumnOffset(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetsummarizeFunction(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property formula : String Index 0 Read Fformula Write Setformula;
+ Property sourceColumnOffset : integer Index 8 Read FsourceColumnOffset Write SetsourceColumnOffset;
+ Property summarizeFunction : String Index 16 Read FsummarizeFunction Write SetsummarizeFunction;
+ Property name : String Index 24 Read Fname Write Setname;
+ end;
+ TPivotValueClass = Class of TPivotValue;
+
+ { --------------------------------------------------------------------
+ TBasicFilterTypecriteria
+ --------------------------------------------------------------------}
+
+ TBasicFilterTypecriteria = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TBasicFilterTypecriteriaClass = Class of TBasicFilterTypecriteria;
+
+ { --------------------------------------------------------------------
+ TBasicFilter
+ --------------------------------------------------------------------}
+
+ TBasicFilter = Class(TGoogleBaseObject)
+ Private
+ Fcriteria : TBasicFilterTypecriteria;
+ Frange : TGridRange;
+ FsortSpecs : TBasicFilterTypesortSpecsArray;
+ Protected
+ //Property setters
+ Procedure Setcriteria(AIndex : Integer; const AValue : TBasicFilterTypecriteria); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure SetsortSpecs(AIndex : Integer; const AValue : TBasicFilterTypesortSpecsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property criteria : TBasicFilterTypecriteria Index 0 Read Fcriteria Write Setcriteria;
+ Property range : TGridRange Index 8 Read Frange Write Setrange;
+ Property sortSpecs : TBasicFilterTypesortSpecsArray Index 16 Read FsortSpecs Write SetsortSpecs;
+ end;
+ TBasicFilterClass = Class of TBasicFilter;
+
+ { --------------------------------------------------------------------
+ TDuplicateSheetRequest
+ --------------------------------------------------------------------}
+
+ TDuplicateSheetRequest = Class(TGoogleBaseObject)
+ Private
+ FsourceSheetId : integer;
+ FnewSheetId : integer;
+ FinsertSheetIndex : integer;
+ FnewSheetName : String;
+ Protected
+ //Property setters
+ Procedure SetsourceSheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnewSheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetinsertSheetIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetnewSheetName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property sourceSheetId : integer Index 0 Read FsourceSheetId Write SetsourceSheetId;
+ Property newSheetId : integer Index 8 Read FnewSheetId Write SetnewSheetId;
+ Property insertSheetIndex : integer Index 16 Read FinsertSheetIndex Write SetinsertSheetIndex;
+ Property newSheetName : String Index 24 Read FnewSheetName Write SetnewSheetName;
+ end;
+ TDuplicateSheetRequestClass = Class of TDuplicateSheetRequest;
+
+ { --------------------------------------------------------------------
+ TAddFilterViewResponse
+ --------------------------------------------------------------------}
+
+ TAddFilterViewResponse = Class(TGoogleBaseObject)
+ Private
+ Ffilter : TFilterView;
+ Protected
+ //Property setters
+ Procedure Setfilter(AIndex : Integer; const AValue : TFilterView); virtual;
+ Public
+ Published
+ Property filter : TFilterView Index 0 Read Ffilter Write Setfilter;
+ end;
+ TAddFilterViewResponseClass = Class of TAddFilterViewResponse;
+
+ { --------------------------------------------------------------------
+ TDuplicateSheetResponse
+ --------------------------------------------------------------------}
+
+ TDuplicateSheetResponse = Class(TGoogleBaseObject)
+ Private
+ Fproperties : TSheetProperties;
+ Protected
+ //Property setters
+ Procedure Setproperties(AIndex : Integer; const AValue : TSheetProperties); virtual;
+ Public
+ Published
+ Property properties : TSheetProperties Index 0 Read Fproperties Write Setproperties;
+ end;
+ TDuplicateSheetResponseClass = Class of TDuplicateSheetResponse;
+
+ { --------------------------------------------------------------------
+ TBorder
+ --------------------------------------------------------------------}
+
+ TBorder = Class(TGoogleBaseObject)
+ Private
+ Fstyle : String;
+ Fwidth : integer;
+ Fcolor : TColor;
+ Protected
+ //Property setters
+ Procedure Setstyle(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setcolor(AIndex : Integer; const AValue : TColor); virtual;
+ Public
+ Published
+ Property style : String Index 0 Read Fstyle Write Setstyle;
+ Property width : integer Index 8 Read Fwidth Write Setwidth;
+ Property color : TColor Index 16 Read Fcolor Write Setcolor;
+ end;
+ TBorderClass = Class of TBorder;
+
+ { --------------------------------------------------------------------
+ TAddNamedRangeRequest
+ --------------------------------------------------------------------}
+
+ TAddNamedRangeRequest = Class(TGoogleBaseObject)
+ Private
+ FnamedRange : TNamedRange;
+ Protected
+ //Property setters
+ Procedure SetnamedRange(AIndex : Integer; const AValue : TNamedRange); virtual;
+ Public
+ Published
+ Property namedRange : TNamedRange Index 0 Read FnamedRange Write SetnamedRange;
+ end;
+ TAddNamedRangeRequestClass = Class of TAddNamedRangeRequest;
+
+ { --------------------------------------------------------------------
+ TAddChartResponse
+ --------------------------------------------------------------------}
+
+ TAddChartResponse = Class(TGoogleBaseObject)
+ Private
+ Fchart : TEmbeddedChart;
+ Protected
+ //Property setters
+ Procedure Setchart(AIndex : Integer; const AValue : TEmbeddedChart); virtual;
+ Public
+ Published
+ Property chart : TEmbeddedChart Index 0 Read Fchart Write Setchart;
+ end;
+ TAddChartResponseClass = Class of TAddChartResponse;
+
+ { --------------------------------------------------------------------
+ TAppendCellsRequest
+ --------------------------------------------------------------------}
+
+ TAppendCellsRequest = Class(TGoogleBaseObject)
+ Private
+ FsheetId : integer;
+ Frows : TAppendCellsRequestTyperowsArray;
+ Ffields : String;
+ Protected
+ //Property setters
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TAppendCellsRequestTyperowsArray); virtual;
+ Procedure Setfields(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 sheetId : integer Index 0 Read FsheetId Write SetsheetId;
+ Property rows : TAppendCellsRequestTyperowsArray Index 8 Read Frows Write Setrows;
+ Property fields : String Index 16 Read Ffields Write Setfields;
+ end;
+ TAppendCellsRequestClass = Class of TAppendCellsRequest;
+
+ { --------------------------------------------------------------------
+ TRowData
+ --------------------------------------------------------------------}
+
+ TRowData = Class(TGoogleBaseObject)
+ Private
+ Fvalues : TRowDataTypevaluesArray;
+ Protected
+ //Property setters
+ Procedure Setvalues(AIndex : Integer; const AValue : TRowDataTypevaluesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property values : TRowDataTypevaluesArray Index 0 Read Fvalues Write Setvalues;
+ end;
+ TRowDataClass = Class of TRowData;
+
+ { --------------------------------------------------------------------
+ TBasicChartSeries
+ --------------------------------------------------------------------}
+
+ TBasicChartSeries = Class(TGoogleBaseObject)
+ Private
+ Fseries : TChartData;
+ FtargetAxis : String;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setseries(AIndex : Integer; const AValue : TChartData); virtual;
+ Procedure SettargetAxis(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property series : TChartData Index 0 Read Fseries Write Setseries;
+ Property targetAxis : String Index 8 Read FtargetAxis Write SettargetAxis;
+ Property _type : String Index 16 Read F_type Write Set_type;
+ end;
+ TBasicChartSeriesClass = Class of TBasicChartSeries;
+
+ { --------------------------------------------------------------------
+ TRepeatCellRequest
+ --------------------------------------------------------------------}
+
+ TRepeatCellRequest = Class(TGoogleBaseObject)
+ Private
+ Fcell : TCellData;
+ Ffields : String;
+ Frange : TGridRange;
+ Protected
+ //Property setters
+ Procedure Setcell(AIndex : Integer; const AValue : TCellData); virtual;
+ Procedure Setfields(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ Public
+ Published
+ Property cell : TCellData Index 0 Read Fcell Write Setcell;
+ Property fields : String Index 8 Read Ffields Write Setfields;
+ Property range : TGridRange Index 16 Read Frange Write Setrange;
+ end;
+ TRepeatCellRequestClass = Class of TRepeatCellRequest;
+
+ { --------------------------------------------------------------------
+ TBasicChartSpec
+ --------------------------------------------------------------------}
+
+ TBasicChartSpec = Class(TGoogleBaseObject)
+ Private
+ FchartType : String;
+ Fdomains : TBasicChartSpecTypedomainsArray;
+ FheaderCount : integer;
+ Fseries : TBasicChartSpecTypeseriesArray;
+ FlegendPosition : String;
+ Faxis : TBasicChartSpecTypeaxisArray;
+ Protected
+ //Property setters
+ Procedure SetchartType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdomains(AIndex : Integer; const AValue : TBasicChartSpecTypedomainsArray); virtual;
+ Procedure SetheaderCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setseries(AIndex : Integer; const AValue : TBasicChartSpecTypeseriesArray); virtual;
+ Procedure SetlegendPosition(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setaxis(AIndex : Integer; const AValue : TBasicChartSpecTypeaxisArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property chartType : String Index 0 Read FchartType Write SetchartType;
+ Property domains : TBasicChartSpecTypedomainsArray Index 8 Read Fdomains Write Setdomains;
+ Property headerCount : integer Index 16 Read FheaderCount Write SetheaderCount;
+ Property series : TBasicChartSpecTypeseriesArray Index 24 Read Fseries Write Setseries;
+ Property legendPosition : String Index 32 Read FlegendPosition Write SetlegendPosition;
+ Property axis : TBasicChartSpecTypeaxisArray Index 40 Read Faxis Write Setaxis;
+ end;
+ TBasicChartSpecClass = Class of TBasicChartSpec;
+
+ { --------------------------------------------------------------------
+ TNamedRange
+ --------------------------------------------------------------------}
+
+ TNamedRange = Class(TGoogleBaseObject)
+ Private
+ FnamedRangeId : String;
+ Frange : TGridRange;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure SetnamedRangeId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property namedRangeId : String Index 0 Read FnamedRangeId Write SetnamedRangeId;
+ Property range : TGridRange Index 8 Read Frange Write Setrange;
+ Property name : String Index 16 Read Fname Write Setname;
+ end;
+ TNamedRangeClass = Class of TNamedRange;
+
+ { --------------------------------------------------------------------
+ TSetBasicFilterRequest
+ --------------------------------------------------------------------}
+
+ TSetBasicFilterRequest = Class(TGoogleBaseObject)
+ Private
+ Ffilter : TBasicFilter;
+ Protected
+ //Property setters
+ Procedure Setfilter(AIndex : Integer; const AValue : TBasicFilter); virtual;
+ Public
+ Published
+ Property filter : TBasicFilter Index 0 Read Ffilter Write Setfilter;
+ end;
+ TSetBasicFilterRequestClass = Class of TSetBasicFilterRequest;
+
+ { --------------------------------------------------------------------
+ TUpdateEmbeddedObjectPositionRequest
+ --------------------------------------------------------------------}
+
+ TUpdateEmbeddedObjectPositionRequest = Class(TGoogleBaseObject)
+ Private
+ FnewPosition : TEmbeddedObjectPosition;
+ FobjectId : integer;
+ Ffields : String;
+ Protected
+ //Property setters
+ Procedure SetnewPosition(AIndex : Integer; const AValue : TEmbeddedObjectPosition); virtual;
+ Procedure SetobjectId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setfields(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property newPosition : TEmbeddedObjectPosition Index 0 Read FnewPosition Write SetnewPosition;
+ Property objectId : integer Index 8 Read FobjectId Write SetobjectId;
+ Property fields : String Index 16 Read Ffields Write Setfields;
+ end;
+ TUpdateEmbeddedObjectPositionRequestClass = Class of TUpdateEmbeddedObjectPositionRequest;
+
+ { --------------------------------------------------------------------
+ TAutoResizeDimensionsRequest
+ --------------------------------------------------------------------}
+
+ TAutoResizeDimensionsRequest = Class(TGoogleBaseObject)
+ Private
+ Fdimensions : TDimensionRange;
+ Protected
+ //Property setters
+ Procedure Setdimensions(AIndex : Integer; const AValue : TDimensionRange); virtual;
+ Public
+ Published
+ Property dimensions : TDimensionRange Index 0 Read Fdimensions Write Setdimensions;
+ end;
+ TAutoResizeDimensionsRequestClass = Class of TAutoResizeDimensionsRequest;
+
+ { --------------------------------------------------------------------
+ TDuplicateFilterViewResponse
+ --------------------------------------------------------------------}
+
+ TDuplicateFilterViewResponse = Class(TGoogleBaseObject)
+ Private
+ Ffilter : TFilterView;
+ Protected
+ //Property setters
+ Procedure Setfilter(AIndex : Integer; const AValue : TFilterView); virtual;
+ Public
+ Published
+ Property filter : TFilterView Index 0 Read Ffilter Write Setfilter;
+ end;
+ TDuplicateFilterViewResponseClass = Class of TDuplicateFilterViewResponse;
+
+ { --------------------------------------------------------------------
+ TPivotGroup
+ --------------------------------------------------------------------}
+
+ TPivotGroup = Class(TGoogleBaseObject)
+ Private
+ FsortOrder : String;
+ FsourceColumnOffset : integer;
+ FshowTotals : boolean;
+ FvalueBucket : TPivotGroupSortValueBucket;
+ FvalueMetadata : TPivotGroupTypevalueMetadataArray;
+ Protected
+ //Property setters
+ Procedure SetsortOrder(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsourceColumnOffset(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetshowTotals(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetvalueBucket(AIndex : Integer; const AValue : TPivotGroupSortValueBucket); virtual;
+ Procedure SetvalueMetadata(AIndex : Integer; const AValue : TPivotGroupTypevalueMetadataArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property sortOrder : String Index 0 Read FsortOrder Write SetsortOrder;
+ Property sourceColumnOffset : integer Index 8 Read FsourceColumnOffset Write SetsourceColumnOffset;
+ Property showTotals : boolean Index 16 Read FshowTotals Write SetshowTotals;
+ Property valueBucket : TPivotGroupSortValueBucket Index 24 Read FvalueBucket Write SetvalueBucket;
+ Property valueMetadata : TPivotGroupTypevalueMetadataArray Index 32 Read FvalueMetadata Write SetvalueMetadata;
+ end;
+ TPivotGroupClass = Class of TPivotGroup;
+
+ { --------------------------------------------------------------------
+ TGridRange
+ --------------------------------------------------------------------}
+
+ TGridRange = Class(TGoogleBaseObject)
+ Private
+ FsheetId : integer;
+ FstartColumnIndex : integer;
+ FstartRowIndex : integer;
+ FendRowIndex : integer;
+ FendColumnIndex : integer;
+ Protected
+ //Property setters
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetstartColumnIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetstartRowIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetendRowIndex(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetendColumnIndex(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property sheetId : integer Index 0 Read FsheetId Write SetsheetId;
+ Property startColumnIndex : integer Index 8 Read FstartColumnIndex Write SetstartColumnIndex;
+ Property startRowIndex : integer Index 16 Read FstartRowIndex Write SetstartRowIndex;
+ Property endRowIndex : integer Index 24 Read FendRowIndex Write SetendRowIndex;
+ Property endColumnIndex : integer Index 32 Read FendColumnIndex Write SetendColumnIndex;
+ end;
+ TGridRangeClass = Class of TGridRange;
+
+ { --------------------------------------------------------------------
+ TDeleteSheetRequest
+ --------------------------------------------------------------------}
+
+ TDeleteSheetRequest = Class(TGoogleBaseObject)
+ Private
+ FsheetId : integer;
+ Protected
+ //Property setters
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property sheetId : integer Index 0 Read FsheetId Write SetsheetId;
+ end;
+ TDeleteSheetRequestClass = Class of TDeleteSheetRequest;
+
+ { --------------------------------------------------------------------
+ TChartData
+ --------------------------------------------------------------------}
+
+ TChartData = Class(TGoogleBaseObject)
+ Private
+ FsourceRange : TChartSourceRange;
+ Protected
+ //Property setters
+ Procedure SetsourceRange(AIndex : Integer; const AValue : TChartSourceRange); virtual;
+ Public
+ Published
+ Property sourceRange : TChartSourceRange Index 0 Read FsourceRange Write SetsourceRange;
+ end;
+ TChartDataClass = Class of TChartData;
+
+ { --------------------------------------------------------------------
+ TSheet
+ --------------------------------------------------------------------}
+
+ TSheet = Class(TGoogleBaseObject)
+ Private
+ Fproperties : TSheetProperties;
+ Fcharts : TSheetTypechartsArray;
+ FfilterViews : TSheetTypefilterViewsArray;
+ FconditionalFormats : TSheetTypeconditionalFormatsArray;
+ FprotectedRanges : TSheetTypeprotectedRangesArray;
+ FbasicFilter : TBasicFilter;
+ Fmerges : TSheetTypemergesArray;
+ Fdata : TSheetTypedataArray;
+ Protected
+ //Property setters
+ Procedure Setproperties(AIndex : Integer; const AValue : TSheetProperties); virtual;
+ Procedure Setcharts(AIndex : Integer; const AValue : TSheetTypechartsArray); virtual;
+ Procedure SetfilterViews(AIndex : Integer; const AValue : TSheetTypefilterViewsArray); virtual;
+ Procedure SetconditionalFormats(AIndex : Integer; const AValue : TSheetTypeconditionalFormatsArray); virtual;
+ Procedure SetprotectedRanges(AIndex : Integer; const AValue : TSheetTypeprotectedRangesArray); virtual;
+ Procedure SetbasicFilter(AIndex : Integer; const AValue : TBasicFilter); virtual;
+ Procedure Setmerges(AIndex : Integer; const AValue : TSheetTypemergesArray); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : TSheetTypedataArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property properties : TSheetProperties Index 0 Read Fproperties Write Setproperties;
+ Property charts : TSheetTypechartsArray Index 8 Read Fcharts Write Setcharts;
+ Property filterViews : TSheetTypefilterViewsArray Index 16 Read FfilterViews Write SetfilterViews;
+ Property conditionalFormats : TSheetTypeconditionalFormatsArray Index 24 Read FconditionalFormats Write SetconditionalFormats;
+ Property protectedRanges : TSheetTypeprotectedRangesArray Index 32 Read FprotectedRanges Write SetprotectedRanges;
+ Property basicFilter : TBasicFilter Index 40 Read FbasicFilter Write SetbasicFilter;
+ Property merges : TSheetTypemergesArray Index 48 Read Fmerges Write Setmerges;
+ Property data : TSheetTypedataArray Index 56 Read Fdata Write Setdata;
+ end;
+ TSheetClass = Class of TSheet;
+
+ { --------------------------------------------------------------------
+ TCopyPasteRequest
+ --------------------------------------------------------------------}
+
+ TCopyPasteRequest = Class(TGoogleBaseObject)
+ Private
+ FpasteType : String;
+ FpasteOrientation : String;
+ Fsource : TGridRange;
+ Fdestination : TGridRange;
+ Protected
+ //Property setters
+ Procedure SetpasteType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpasteOrientation(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure Setdestination(AIndex : Integer; const AValue : TGridRange); virtual;
+ Public
+ Published
+ Property pasteType : String Index 0 Read FpasteType Write SetpasteType;
+ Property pasteOrientation : String Index 8 Read FpasteOrientation Write SetpasteOrientation;
+ Property source : TGridRange Index 16 Read Fsource Write Setsource;
+ Property destination : TGridRange Index 24 Read Fdestination Write Setdestination;
+ end;
+ TCopyPasteRequestClass = Class of TCopyPasteRequest;
+
+ { --------------------------------------------------------------------
+ TUpdateCellsRequest
+ --------------------------------------------------------------------}
+
+ TUpdateCellsRequest = Class(TGoogleBaseObject)
+ Private
+ Frows : TUpdateCellsRequestTyperowsArray;
+ Ffields : String;
+ Fstart : TGridCoordinate;
+ Frange : TGridRange;
+ Protected
+ //Property setters
+ Procedure Setrows(AIndex : Integer; const AValue : TUpdateCellsRequestTyperowsArray); virtual;
+ Procedure Setfields(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstart(AIndex : Integer; const AValue : TGridCoordinate); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property rows : TUpdateCellsRequestTyperowsArray Index 0 Read Frows Write Setrows;
+ Property fields : String Index 8 Read Ffields Write Setfields;
+ Property start : TGridCoordinate Index 16 Read Fstart Write Setstart;
+ Property range : TGridRange Index 24 Read Frange Write Setrange;
+ end;
+ TUpdateCellsRequestClass = Class of TUpdateCellsRequest;
+
+ { --------------------------------------------------------------------
+ TExtendedValue
+ --------------------------------------------------------------------}
+
+ TExtendedValue = Class(TGoogleBaseObject)
+ Private
+ FformulaValue : String;
+ FerrorValue : TErrorValue;
+ FboolValue : boolean;
+ FnumberValue : double;
+ FstringValue : String;
+ Protected
+ //Property setters
+ Procedure SetformulaValue(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeterrorValue(AIndex : Integer; const AValue : TErrorValue); virtual;
+ Procedure SetboolValue(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetnumberValue(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property formulaValue : String Index 0 Read FformulaValue Write SetformulaValue;
+ Property errorValue : TErrorValue Index 8 Read FerrorValue Write SeterrorValue;
+ Property boolValue : boolean Index 16 Read FboolValue Write SetboolValue;
+ Property numberValue : double Index 24 Read FnumberValue Write SetnumberValue;
+ Property stringValue : String Index 32 Read FstringValue Write SetstringValue;
+ end;
+ TExtendedValueClass = Class of TExtendedValue;
+
+ { --------------------------------------------------------------------
+ TBatchUpdateSpreadsheetResponse
+ --------------------------------------------------------------------}
+
+ TBatchUpdateSpreadsheetResponse = Class(TGoogleBaseObject)
+ Private
+ FspreadsheetId : String;
+ Freplies : TBatchUpdateSpreadsheetResponseTyperepliesArray;
+ Protected
+ //Property setters
+ Procedure SetspreadsheetId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setreplies(AIndex : Integer; const AValue : TBatchUpdateSpreadsheetResponseTyperepliesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property spreadsheetId : String Index 0 Read FspreadsheetId Write SetspreadsheetId;
+ Property replies : TBatchUpdateSpreadsheetResponseTyperepliesArray Index 8 Read Freplies Write Setreplies;
+ end;
+ TBatchUpdateSpreadsheetResponseClass = Class of TBatchUpdateSpreadsheetResponse;
+
+ { --------------------------------------------------------------------
+ TGradientRule
+ --------------------------------------------------------------------}
+
+ TGradientRule = Class(TGoogleBaseObject)
+ Private
+ Fmaxpoint : TInterpolationPoint;
+ Fmidpoint : TInterpolationPoint;
+ Fminpoint : TInterpolationPoint;
+ Protected
+ //Property setters
+ Procedure Setmaxpoint(AIndex : Integer; const AValue : TInterpolationPoint); virtual;
+ Procedure Setmidpoint(AIndex : Integer; const AValue : TInterpolationPoint); virtual;
+ Procedure Setminpoint(AIndex : Integer; const AValue : TInterpolationPoint); virtual;
+ Public
+ Published
+ Property maxpoint : TInterpolationPoint Index 0 Read Fmaxpoint Write Setmaxpoint;
+ Property midpoint : TInterpolationPoint Index 8 Read Fmidpoint Write Setmidpoint;
+ Property minpoint : TInterpolationPoint Index 16 Read Fminpoint Write Setminpoint;
+ end;
+ TGradientRuleClass = Class of TGradientRule;
+
+ { --------------------------------------------------------------------
+ TCutPasteRequest
+ --------------------------------------------------------------------}
+
+ TCutPasteRequest = Class(TGoogleBaseObject)
+ Private
+ FpasteType : String;
+ Fsource : TGridRange;
+ Fdestination : TGridCoordinate;
+ Protected
+ //Property setters
+ Procedure SetpasteType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsource(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure Setdestination(AIndex : Integer; const AValue : TGridCoordinate); virtual;
+ Public
+ Published
+ Property pasteType : String Index 0 Read FpasteType Write SetpasteType;
+ Property source : TGridRange Index 8 Read Fsource Write Setsource;
+ Property destination : TGridCoordinate Index 16 Read Fdestination Write Setdestination;
+ end;
+ TCutPasteRequestClass = Class of TCutPasteRequest;
+
+ { --------------------------------------------------------------------
+ TOverlayPosition
+ --------------------------------------------------------------------}
+
+ TOverlayPosition = Class(TGoogleBaseObject)
+ Private
+ FwidthPixels : integer;
+ FanchorCell : TGridCoordinate;
+ FoffsetXPixels : integer;
+ FheightPixels : integer;
+ FoffsetYPixels : integer;
+ Protected
+ //Property setters
+ Procedure SetwidthPixels(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetanchorCell(AIndex : Integer; const AValue : TGridCoordinate); virtual;
+ Procedure SetoffsetXPixels(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetheightPixels(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetoffsetYPixels(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property widthPixels : integer Index 0 Read FwidthPixels Write SetwidthPixels;
+ Property anchorCell : TGridCoordinate Index 8 Read FanchorCell Write SetanchorCell;
+ Property offsetXPixels : integer Index 16 Read FoffsetXPixels Write SetoffsetXPixels;
+ Property heightPixels : integer Index 24 Read FheightPixels Write SetheightPixels;
+ Property offsetYPixels : integer Index 32 Read FoffsetYPixels Write SetoffsetYPixels;
+ end;
+ TOverlayPositionClass = Class of TOverlayPosition;
+
+ { --------------------------------------------------------------------
+ TAutoFillRequest
+ --------------------------------------------------------------------}
+
+ TAutoFillRequest = Class(TGoogleBaseObject)
+ Private
+ FuseAlternateSeries : boolean;
+ Frange : TGridRange;
+ FsourceAndDestination : TSourceAndDestination;
+ Protected
+ //Property setters
+ Procedure SetuseAlternateSeries(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ Procedure SetsourceAndDestination(AIndex : Integer; const AValue : TSourceAndDestination); virtual;
+ Public
+ Published
+ Property useAlternateSeries : boolean Index 0 Read FuseAlternateSeries Write SetuseAlternateSeries;
+ Property range : TGridRange Index 8 Read Frange Write Setrange;
+ Property sourceAndDestination : TSourceAndDestination Index 16 Read FsourceAndDestination Write SetsourceAndDestination;
+ end;
+ TAutoFillRequestClass = Class of TAutoFillRequest;
+
+ { --------------------------------------------------------------------
+ TPieChartSpec
+ --------------------------------------------------------------------}
+
+ TPieChartSpec = Class(TGoogleBaseObject)
+ Private
+ FlegendPosition : String;
+ Fseries : TChartData;
+ FpieHole : double;
+ FthreeDimensional : boolean;
+ Fdomain : TChartData;
+ Protected
+ //Property setters
+ Procedure SetlegendPosition(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setseries(AIndex : Integer; const AValue : TChartData); virtual;
+ Procedure SetpieHole(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetthreeDimensional(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setdomain(AIndex : Integer; const AValue : TChartData); virtual;
+ Public
+ Published
+ Property legendPosition : String Index 0 Read FlegendPosition Write SetlegendPosition;
+ Property series : TChartData Index 8 Read Fseries Write Setseries;
+ Property pieHole : double Index 16 Read FpieHole Write SetpieHole;
+ Property threeDimensional : boolean Index 24 Read FthreeDimensional Write SetthreeDimensional;
+ Property domain : TChartData Index 32 Read Fdomain Write Setdomain;
+ end;
+ TPieChartSpecClass = Class of TPieChartSpec;
+
+ { --------------------------------------------------------------------
+ TUpdateSheetPropertiesRequest
+ --------------------------------------------------------------------}
+
+ TUpdateSheetPropertiesRequest = Class(TGoogleBaseObject)
+ Private
+ Ffields : String;
+ Fproperties : TSheetProperties;
+ Protected
+ //Property setters
+ Procedure Setfields(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TSheetProperties); virtual;
+ Public
+ Published
+ Property fields : String Index 0 Read Ffields Write Setfields;
+ Property properties : TSheetProperties Index 8 Read Fproperties Write Setproperties;
+ end;
+ TUpdateSheetPropertiesRequestClass = Class of TUpdateSheetPropertiesRequest;
+
+ { --------------------------------------------------------------------
+ TBooleanRule
+ --------------------------------------------------------------------}
+
+ TBooleanRule = Class(TGoogleBaseObject)
+ Private
+ Fcondition : TBooleanCondition;
+ Fformat : TCellFormat;
+ Protected
+ //Property setters
+ Procedure Setcondition(AIndex : Integer; const AValue : TBooleanCondition); virtual;
+ Procedure Setformat(AIndex : Integer; const AValue : TCellFormat); virtual;
+ Public
+ Published
+ Property condition : TBooleanCondition Index 0 Read Fcondition Write Setcondition;
+ Property format : TCellFormat Index 8 Read Fformat Write Setformat;
+ end;
+ TBooleanRuleClass = Class of TBooleanRule;
+
+ { --------------------------------------------------------------------
+ TAppendDimensionRequest
+ --------------------------------------------------------------------}
+
+ TAppendDimensionRequest = Class(TGoogleBaseObject)
+ Private
+ FsheetId : integer;
+ F_length : integer;
+ Fdimension : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetsheetId(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Set_length(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdimension(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property sheetId : integer Index 0 Read FsheetId Write SetsheetId;
+ Property _length : integer Index 8 Read F_length Write Set_length;
+ Property dimension : String Index 16 Read Fdimension Write Setdimension;
+ end;
+ TAppendDimensionRequestClass = Class of TAppendDimensionRequest;
+
+ { --------------------------------------------------------------------
+ TAddFilterViewRequest
+ --------------------------------------------------------------------}
+
+ TAddFilterViewRequest = Class(TGoogleBaseObject)
+ Private
+ Ffilter : TFilterView;
+ Protected
+ //Property setters
+ Procedure Setfilter(AIndex : Integer; const AValue : TFilterView); virtual;
+ Public
+ Published
+ Property filter : TFilterView Index 0 Read Ffilter Write Setfilter;
+ end;
+ TAddFilterViewRequestClass = Class of TAddFilterViewRequest;
+
+ { --------------------------------------------------------------------
+ TGridProperties
+ --------------------------------------------------------------------}
+
+ TGridProperties = Class(TGoogleBaseObject)
+ Private
+ FrowCount : integer;
+ FcolumnCount : integer;
+ FfrozenRowCount : integer;
+ FfrozenColumnCount : integer;
+ FhideGridlines : boolean;
+ Protected
+ //Property setters
+ Procedure SetrowCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetcolumnCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetfrozenRowCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetfrozenColumnCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SethideGridlines(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property rowCount : integer Index 0 Read FrowCount Write SetrowCount;
+ Property columnCount : integer Index 8 Read FcolumnCount Write SetcolumnCount;
+ Property frozenRowCount : integer Index 16 Read FfrozenRowCount Write SetfrozenRowCount;
+ Property frozenColumnCount : integer Index 24 Read FfrozenColumnCount Write SetfrozenColumnCount;
+ Property hideGridlines : boolean Index 32 Read FhideGridlines Write SethideGridlines;
+ end;
+ TGridPropertiesClass = Class of TGridProperties;
+
+ { --------------------------------------------------------------------
+ TDeleteNamedRangeRequest
+ --------------------------------------------------------------------}
+
+ TDeleteNamedRangeRequest = Class(TGoogleBaseObject)
+ Private
+ FnamedRangeId : String;
+ Protected
+ //Property setters
+ Procedure SetnamedRangeId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property namedRangeId : String Index 0 Read FnamedRangeId Write SetnamedRangeId;
+ end;
+ TDeleteNamedRangeRequestClass = Class of TDeleteNamedRangeRequest;
+
+ { --------------------------------------------------------------------
+ TAddChartRequest
+ --------------------------------------------------------------------}
+
+ TAddChartRequest = Class(TGoogleBaseObject)
+ Private
+ Fchart : TEmbeddedChart;
+ Protected
+ //Property setters
+ Procedure Setchart(AIndex : Integer; const AValue : TEmbeddedChart); virtual;
+ Public
+ Published
+ Property chart : TEmbeddedChart Index 0 Read Fchart Write Setchart;
+ end;
+ TAddChartRequestClass = Class of TAddChartRequest;
+
+ { --------------------------------------------------------------------
+ TSetDataValidationRequest
+ --------------------------------------------------------------------}
+
+ TSetDataValidationRequest = Class(TGoogleBaseObject)
+ Private
+ Frule : TDataValidationRule;
+ Frange : TGridRange;
+ Protected
+ //Property setters
+ Procedure Setrule(AIndex : Integer; const AValue : TDataValidationRule); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TGridRange); virtual;
+ Public
+ Published
+ Property rule : TDataValidationRule Index 0 Read Frule Write Setrule;
+ Property range : TGridRange Index 8 Read Frange Write Setrange;
+ end;
+ TSetDataValidationRequestClass = Class of TSetDataValidationRequest;
+
+ { --------------------------------------------------------------------
+ TRequest
+ --------------------------------------------------------------------}
+
+ TRequest = Class(TGoogleBaseObject)
+ Private
+ FupdateEmbeddedObjectPosition : TUpdateEmbeddedObjectPositionRequest;
+ FdeleteNamedRange : TDeleteNamedRangeRequest;
+ FupdateNamedRange : TUpdateNamedRangeRequest;
+ FaddFilterView : TAddFilterViewRequest;
+ FupdateSpreadsheetProperties : TUpdateSpreadsheetPropertiesRequest;
+ FappendDimension : TAppendDimensionRequest;
+ FunmergeCells : TUnmergeCellsRequest;
+ FupdateProtectedRange : TUpdateProtectedRangeRequest;
+ FdeleteFilterView : TDeleteFilterViewRequest;
+ FclearBasicFilter : TClearBasicFilterRequest;
+ FsortRange : TSortRangeRequest;
+ FrepeatCell : TRepeatCellRequest;
+ FsetDataValidation : TSetDataValidationRequest;
+ FupdateCells : TUpdateCellsRequest;
+ FaddSheet : TAddSheetRequest;
+ FupdateFilterView : TUpdateFilterViewRequest;
+ FupdateSheetProperties : TUpdateSheetPropertiesRequest;
+ FupdateDimensionProperties : TUpdateDimensionPropertiesRequest;
+ FdeleteSheet : TDeleteSheetRequest;
+ FfindReplace : TFindReplaceRequest;
+ FaddProtectedRange : TAddProtectedRangeRequest;
+ FdeleteProtectedRange : TDeleteProtectedRangeRequest;
+ FupdateConditionalFormatRule : TUpdateConditionalFormatRuleRequest;
+ FsetBasicFilter : TSetBasicFilterRequest;
+ FmergeCells : TMergeCellsRequest;
+ FaddChart : TAddChartRequest;
+ FdeleteConditionalFormatRule : TDeleteConditionalFormatRuleRequest;
+ FupdateChartSpec : TUpdateChartSpecRequest;
+ FdeleteDimension : TDeleteDimensionRequest;
+ FdeleteEmbeddedObject : TDeleteEmbeddedObjectRequest;
+ FpasteData : TPasteDataRequest;
+ FaddConditionalFormatRule : TAddConditionalFormatRuleRequest;
+ FupdateBorders : TUpdateBordersRequest;
+ FautoResizeDimensions : TAutoResizeDimensionsRequest;
+ FduplicateSheet : TDuplicateSheetRequest;
+ FduplicateFilterView : TDuplicateFilterViewRequest;
+ FcutPaste : TCutPasteRequest;
+ FappendCells : TAppendCellsRequest;
+ FaddNamedRange : TAddNamedRangeRequest;
+ FautoFill : TAutoFillRequest;
+ FmoveDimension : TMoveDimensionRequest;
+ FtextToColumns : TTextToColumnsRequest;
+ FinsertDimension : TInsertDimensionRequest;
+ FcopyPaste : TCopyPasteRequest;
+ Protected
+ //Property setters
+ Procedure SetupdateEmbeddedObjectPosition(AIndex : Integer; const AValue : TUpdateEmbeddedObjectPositionRequest); virtual;
+ Procedure SetdeleteNamedRange(AIndex : Integer; const AValue : TDeleteNamedRangeRequest); virtual;
+ Procedure SetupdateNamedRange(AIndex : Integer; const AValue : TUpdateNamedRangeRequest); virtual;
+ Procedure SetaddFilterView(AIndex : Integer; const AValue : TAddFilterViewRequest); virtual;
+ Procedure SetupdateSpreadsheetProperties(AIndex : Integer; const AValue : TUpdateSpreadsheetPropertiesRequest); virtual;
+ Procedure SetappendDimension(AIndex : Integer; const AValue : TAppendDimensionRequest); virtual;
+ Procedure SetunmergeCells(AIndex : Integer; const AValue : TUnmergeCellsRequest); virtual;
+ Procedure SetupdateProtectedRange(AIndex : Integer; const AValue : TUpdateProtectedRangeRequest); virtual;
+ Procedure SetdeleteFilterView(AIndex : Integer; const AValue : TDeleteFilterViewRequest); virtual;
+ Procedure SetclearBasicFilter(AIndex : Integer; const AValue : TClearBasicFilterRequest); virtual;
+ Procedure SetsortRange(AIndex : Integer; const AValue : TSortRangeRequest); virtual;
+ Procedure SetrepeatCell(AIndex : Integer; const AValue : TRepeatCellRequest); virtual;
+ Procedure SetsetDataValidation(AIndex : Integer; const AValue : TSetDataValidationRequest); virtual;
+ Procedure SetupdateCells(AIndex : Integer; const AValue : TUpdateCellsRequest); virtual;
+ Procedure SetaddSheet(AIndex : Integer; const AValue : TAddSheetRequest); virtual;
+ Procedure SetupdateFilterView(AIndex : Integer; const AValue : TUpdateFilterViewRequest); virtual;
+ Procedure SetupdateSheetProperties(AIndex : Integer; const AValue : TUpdateSheetPropertiesRequest); virtual;
+ Procedure SetupdateDimensionProperties(AIndex : Integer; const AValue : TUpdateDimensionPropertiesRequest); virtual;
+ Procedure SetdeleteSheet(AIndex : Integer; const AValue : TDeleteSheetRequest); virtual;
+ Procedure SetfindReplace(AIndex : Integer; const AValue : TFindReplaceRequest); virtual;
+ Procedure SetaddProtectedRange(AIndex : Integer; const AValue : TAddProtectedRangeRequest); virtual;
+ Procedure SetdeleteProtectedRange(AIndex : Integer; const AValue : TDeleteProtectedRangeRequest); virtual;
+ Procedure SetupdateConditionalFormatRule(AIndex : Integer; const AValue : TUpdateConditionalFormatRuleRequest); virtual;
+ Procedure SetsetBasicFilter(AIndex : Integer; const AValue : TSetBasicFilterRequest); virtual;
+ Procedure SetmergeCells(AIndex : Integer; const AValue : TMergeCellsRequest); virtual;
+ Procedure SetaddChart(AIndex : Integer; const AValue : TAddChartRequest); virtual;
+ Procedure SetdeleteConditionalFormatRule(AIndex : Integer; const AValue : TDeleteConditionalFormatRuleRequest); virtual;
+ Procedure SetupdateChartSpec(AIndex : Integer; const AValue : TUpdateChartSpecRequest); virtual;
+ Procedure SetdeleteDimension(AIndex : Integer; const AValue : TDeleteDimensionRequest); virtual;
+ Procedure SetdeleteEmbeddedObject(AIndex : Integer; const AValue : TDeleteEmbeddedObjectRequest); virtual;
+ Procedure SetpasteData(AIndex : Integer; const AValue : TPasteDataRequest); virtual;
+ Procedure SetaddConditionalFormatRule(AIndex : Integer; const AValue : TAddConditionalFormatRuleRequest); virtual;
+ Procedure SetupdateBorders(AIndex : Integer; const AValue : TUpdateBordersRequest); virtual;
+ Procedure SetautoResizeDimensions(AIndex : Integer; const AValue : TAutoResizeDimensionsRequest); virtual;
+ Procedure SetduplicateSheet(AIndex : Integer; const AValue : TDuplicateSheetRequest); virtual;
+ Procedure SetduplicateFilterView(AIndex : Integer; const AValue : TDuplicateFilterViewRequest); virtual;
+ Procedure SetcutPaste(AIndex : Integer; const AValue : TCutPasteRequest); virtual;
+ Procedure SetappendCells(AIndex : Integer; const AValue : TAppendCellsRequest); virtual;
+ Procedure SetaddNamedRange(AIndex : Integer; const AValue : TAddNamedRangeRequest); virtual;
+ Procedure SetautoFill(AIndex : Integer; const AValue : TAutoFillRequest); virtual;
+ Procedure SetmoveDimension(AIndex : Integer; const AValue : TMoveDimensionRequest); virtual;
+ Procedure SettextToColumns(AIndex : Integer; const AValue : TTextToColumnsRequest); virtual;
+ Procedure SetinsertDimension(AIndex : Integer; const AValue : TInsertDimensionRequest); virtual;
+ Procedure SetcopyPaste(AIndex : Integer; const AValue : TCopyPasteRequest); virtual;
+ Public
+ Published
+ Property updateEmbeddedObjectPosition : TUpdateEmbeddedObjectPositionRequest Index 0 Read FupdateEmbeddedObjectPosition Write SetupdateEmbeddedObjectPosition;
+ Property deleteNamedRange : TDeleteNamedRangeRequest Index 8 Read FdeleteNamedRange Write SetdeleteNamedRange;
+ Property updateNamedRange : TUpdateNamedRangeRequest Index 16 Read FupdateNamedRange Write SetupdateNamedRange;
+ Property addFilterView : TAddFilterViewRequest Index 24 Read FaddFilterView Write SetaddFilterView;
+ Property updateSpreadsheetProperties : TUpdateSpreadsheetPropertiesRequest Index 32 Read FupdateSpreadsheetProperties Write SetupdateSpreadsheetProperties;
+ Property appendDimension : TAppendDimensionRequest Index 40 Read FappendDimension Write SetappendDimension;
+ Property unmergeCells : TUnmergeCellsRequest Index 48 Read FunmergeCells Write SetunmergeCells;
+ Property updateProtectedRange : TUpdateProtectedRangeRequest Index 56 Read FupdateProtectedRange Write SetupdateProtectedRange;
+ Property deleteFilterView : TDeleteFilterViewRequest Index 64 Read FdeleteFilterView Write SetdeleteFilterView;
+ Property clearBasicFilter : TClearBasicFilterRequest Index 72 Read FclearBasicFilter Write SetclearBasicFilter;
+ Property sortRange : TSortRangeRequest Index 80 Read FsortRange Write SetsortRange;
+ Property repeatCell : TRepeatCellRequest Index 88 Read FrepeatCell Write SetrepeatCell;
+ Property setDataValidation : TSetDataValidationRequest Index 96 Read FsetDataValidation Write SetsetDataValidation;
+ Property updateCells : TUpdateCellsRequest Index 104 Read FupdateCells Write SetupdateCells;
+ Property addSheet : TAddSheetRequest Index 112 Read FaddSheet Write SetaddSheet;
+ Property updateFilterView : TUpdateFilterViewRequest Index 120 Read FupdateFilterView Write SetupdateFilterView;
+ Property updateSheetProperties : TUpdateSheetPropertiesRequest Index 128 Read FupdateSheetProperties Write SetupdateSheetProperties;
+ Property updateDimensionProperties : TUpdateDimensionPropertiesRequest Index 136 Read FupdateDimensionProperties Write SetupdateDimensionProperties;
+ Property deleteSheet : TDeleteSheetRequest Index 144 Read FdeleteSheet Write SetdeleteSheet;
+ Property findReplace : TFindReplaceRequest Index 152 Read FfindReplace Write SetfindReplace;
+ Property addProtectedRange : TAddProtectedRangeRequest Index 160 Read FaddProtectedRange Write SetaddProtectedRange;
+ Property deleteProtectedRange : TDeleteProtectedRangeRequest Index 168 Read FdeleteProtectedRange Write SetdeleteProtectedRange;
+ Property updateConditionalFormatRule : TUpdateConditionalFormatRuleRequest Index 176 Read FupdateConditionalFormatRule Write SetupdateConditionalFormatRule;
+ Property setBasicFilter : TSetBasicFilterRequest Index 184 Read FsetBasicFilter Write SetsetBasicFilter;
+ Property mergeCells : TMergeCellsRequest Index 192 Read FmergeCells Write SetmergeCells;
+ Property addChart : TAddChartRequest Index 200 Read FaddChart Write SetaddChart;
+ Property deleteConditionalFormatRule : TDeleteConditionalFormatRuleRequest Index 208 Read FdeleteConditionalFormatRule Write SetdeleteConditionalFormatRule;
+ Property updateChartSpec : TUpdateChartSpecRequest Index 216 Read FupdateChartSpec Write SetupdateChartSpec;
+ Property deleteDimension : TDeleteDimensionRequest Index 224 Read FdeleteDimension Write SetdeleteDimension;
+ Property deleteEmbeddedObject : TDeleteEmbeddedObjectRequest Index 232 Read FdeleteEmbeddedObject Write SetdeleteEmbeddedObject;
+ Property pasteData : TPasteDataRequest Index 240 Read FpasteData Write SetpasteData;
+ Property addConditionalFormatRule : TAddConditionalFormatRuleRequest Index 248 Read FaddConditionalFormatRule Write SetaddConditionalFormatRule;
+ Property updateBorders : TUpdateBordersRequest Index 256 Read FupdateBorders Write SetupdateBorders;
+ Property autoResizeDimensions : TAutoResizeDimensionsRequest Index 264 Read FautoResizeDimensions Write SetautoResizeDimensions;
+ Property duplicateSheet : TDuplicateSheetRequest Index 272 Read FduplicateSheet Write SetduplicateSheet;
+ Property duplicateFilterView : TDuplicateFilterViewRequest Index 280 Read FduplicateFilterView Write SetduplicateFilterView;
+ Property cutPaste : TCutPasteRequest Index 288 Read FcutPaste Write SetcutPaste;
+ Property appendCells : TAppendCellsRequest Index 296 Read FappendCells Write SetappendCells;
+ Property addNamedRange : TAddNamedRangeRequest Index 304 Read FaddNamedRange Write SetaddNamedRange;
+ Property autoFill : TAutoFillRequest Index 312 Read FautoFill Write SetautoFill;
+ Property moveDimension : TMoveDimensionRequest Index 320 Read FmoveDimension Write SetmoveDimension;
+ Property textToColumns : TTextToColumnsRequest Index 328 Read FtextToColumns Write SettextToColumns;
+ Property insertDimension : TInsertDimensionRequest Index 336 Read FinsertDimension Write SetinsertDimension;
+ Property copyPaste : TCopyPasteRequest Index 344 Read FcopyPaste Write SetcopyPaste;
+ end;
+ TRequestClass = Class of TRequest;
+
+ { --------------------------------------------------------------------
+ TBatchGetValuesResponse
+ --------------------------------------------------------------------}
+
+ TBatchGetValuesResponse = Class(TGoogleBaseObject)
+ Private
+ FvalueRanges : TBatchGetValuesResponseTypevalueRangesArray;
+ FspreadsheetId : String;
+ Protected
+ //Property setters
+ Procedure SetvalueRanges(AIndex : Integer; const AValue : TBatchGetValuesResponseTypevalueRangesArray); virtual;
+ Procedure SetspreadsheetId(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 valueRanges : TBatchGetValuesResponseTypevalueRangesArray Index 0 Read FvalueRanges Write SetvalueRanges;
+ Property spreadsheetId : String Index 8 Read FspreadsheetId Write SetspreadsheetId;
+ end;
+ TBatchGetValuesResponseClass = Class of TBatchGetValuesResponse;
+
+ { --------------------------------------------------------------------
+ TInsertDimensionRequest
+ --------------------------------------------------------------------}
+
+ TInsertDimensionRequest = Class(TGoogleBaseObject)
+ Private
+ FinheritFromBefore : boolean;
+ Frange : TDimensionRange;
+ Protected
+ //Property setters
+ Procedure SetinheritFromBefore(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setrange(AIndex : Integer; const AValue : TDimensionRange); virtual;
+ Public
+ Published
+ Property inheritFromBefore : boolean Index 0 Read FinheritFromBefore Write SetinheritFromBefore;
+ Property range : TDimensionRange Index 8 Read Frange Write Setrange;
+ end;
+ TInsertDimensionRequestClass = Class of TInsertDimensionRequest;
+
+ { --------------------------------------------------------------------
+ TDeleteEmbeddedObjectRequest
+ --------------------------------------------------------------------}
+
+ TDeleteEmbeddedObjectRequest = Class(TGoogleBaseObject)
+ Private
+ FobjectId : integer;
+ Protected
+ //Property setters
+ Procedure SetobjectId(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property objectId : integer Index 0 Read FobjectId Write SetobjectId;
+ end;
+ TDeleteEmbeddedObjectRequestClass = Class of TDeleteEmbeddedObjectRequest;
+
+ { --------------------------------------------------------------------
+ TDeleteConditionalFormatRuleResponse
+ --------------------------------------------------------------------}
+
+ TDeleteConditionalFormatRuleResponse = Class(TGoogleBaseObject)
+ Private
+ Frule : TConditionalFormatRule;
+ Protected
+ //Property setters
+ Procedure Setrule(AIndex : Integer; const AValue : TConditionalFormatRule); virtual;
+ Public
+ Published
+ Property rule : TConditionalFormatRule Index 0 Read Frule Write Setrule;
+ end;
+ TDeleteConditionalFormatRuleResponseClass = Class of TDeleteConditionalFormatRuleResponse;
+
+ { --------------------------------------------------------------------
+ TSpreadsheetsValuesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TSpreadsheetsValuesResource, method Update
+
+ TSpreadsheetsValuesUpdateOptions = Record
+ valueInputOption : String;
+ end;
+
+
+ //Optional query Options for TSpreadsheetsValuesResource, method Get
+
+ TSpreadsheetsValuesGetOptions = Record
+ valueRenderOption : String;
+ dateTimeRenderOption : String;
+ majorDimension : String;
+ end;
+
+
+ //Optional query Options for TSpreadsheetsValuesResource, method BatchGet
+
+ TSpreadsheetsValuesBatchGetOptions = Record
+ ranges : String;
+ valueRenderOption : String;
+ dateTimeRenderOption : String;
+ majorDimension : String;
+ end;
+
+ TSpreadsheetsValuesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Update(spreadsheetId: string; range: string; aValueRange : TValueRange; AQuery : string = '') : TUpdateValuesResponse;
+ Function Update(spreadsheetId: string; range: string; aValueRange : TValueRange; AQuery : TSpreadsheetsValuesupdateOptions) : TUpdateValuesResponse;
+ Function Get(spreadsheetId: string; range: string; AQuery : string = '') : TValueRange;
+ Function Get(spreadsheetId: string; range: string; AQuery : TSpreadsheetsValuesgetOptions) : TValueRange;
+ Function BatchGet(spreadsheetId: string; AQuery : string = '') : TBatchGetValuesResponse;
+ Function BatchGet(spreadsheetId: string; AQuery : TSpreadsheetsValuesbatchGetOptions) : TBatchGetValuesResponse;
+ Function BatchUpdate(spreadsheetId: string; aBatchUpdateValuesRequest : TBatchUpdateValuesRequest) : TBatchUpdateValuesResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TSpreadsheetsSheetsResource
+ --------------------------------------------------------------------}
+
+ TSpreadsheetsSheetsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CopyTo(sheetId: integer; spreadsheetId: string; aCopySheetToAnotherSpreadsheetRequest : TCopySheetToAnotherSpreadsheetRequest) : TSheetProperties;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TSpreadsheetsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TSpreadsheetsResource, method Get
+
+ TSpreadsheetsGetOptions = Record
+ ranges : String;
+ includeGridData : boolean;
+ end;
+
+ TSpreadsheetsResource = Class(TGoogleResource)
+ Private
+ FValuesInstance : TSpreadsheetsValuesResource;
+ FSheetsInstance : TSpreadsheetsSheetsResource;
+ Function GetValuesInstance : TSpreadsheetsValuesResource;virtual;
+ Function GetSheetsInstance : TSpreadsheetsSheetsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(aSpreadsheet : TSpreadsheet) : TSpreadsheet;overload;
+ Function Get(spreadsheetId: string; AQuery : string = '') : TSpreadsheet;
+ Function Get(spreadsheetId: string; AQuery : TSpreadsheetsgetOptions) : TSpreadsheet;
+ Function BatchUpdate(spreadsheetId: string; aBatchUpdateSpreadsheetRequest : TBatchUpdateSpreadsheetRequest) : TBatchUpdateSpreadsheetResponse;
+ Function CreateValuesResource(AOwner : TComponent) : TSpreadsheetsValuesResource;virtual;overload;
+ Function CreateValuesResource : TSpreadsheetsValuesResource;virtual;overload;
+ Function CreateSheetsResource(AOwner : TComponent) : TSpreadsheetsSheetsResource;virtual;overload;
+ Function CreateSheetsResource : TSpreadsheetsSheetsResource;virtual;overload;
+ Property ValuesResource : TSpreadsheetsValuesResource Read GetValuesInstance;
+ Property SheetsResource : TSpreadsheetsSheetsResource Read GetSheetsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TSheetsAPI
+ --------------------------------------------------------------------}
+
+ TSheetsAPI = Class(TGoogleAPI)
+ Private
+ FSpreadsheetsValuesInstance : TSpreadsheetsValuesResource;
+ FSpreadsheetsSheetsInstance : TSpreadsheetsSheetsResource;
+ FSpreadsheetsInstance : TSpreadsheetsResource;
+ Function GetSpreadsheetsValuesInstance : TSpreadsheetsValuesResource;virtual;
+ Function GetSpreadsheetsSheetsInstance : TSpreadsheetsSheetsResource;virtual;
+ Function GetSpreadsheetsInstance : TSpreadsheetsResource;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 CreateSpreadsheetsValuesResource(AOwner : TComponent) : TSpreadsheetsValuesResource;virtual;overload;
+ Function CreateSpreadsheetsValuesResource : TSpreadsheetsValuesResource;virtual;overload;
+ Function CreateSpreadsheetsSheetsResource(AOwner : TComponent) : TSpreadsheetsSheetsResource;virtual;overload;
+ Function CreateSpreadsheetsSheetsResource : TSpreadsheetsSheetsResource;virtual;overload;
+ Function CreateSpreadsheetsResource(AOwner : TComponent) : TSpreadsheetsResource;virtual;overload;
+ Function CreateSpreadsheetsResource : TSpreadsheetsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property SpreadsheetsValuesResource : TSpreadsheetsValuesResource Read GetSpreadsheetsValuesInstance;
+ Property SpreadsheetsSheetsResource : TSpreadsheetsSheetsResource Read GetSpreadsheetsSheetsInstance;
+ Property SpreadsheetsResource : TSpreadsheetsResource Read GetSpreadsheetsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TAddNamedRangeResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TAddNamedRangeResponse.SetnamedRange(AIndex : Integer; const AValue : TNamedRange);
+
+begin
+ If (FnamedRange=AValue) then exit;
+ FnamedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateProtectedRangeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateProtectedRangeRequest.SetprotectedRange(AIndex : Integer; const AValue : TProtectedRange);
+
+begin
+ If (FprotectedRange=AValue) then exit;
+ FprotectedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateProtectedRangeRequest.Setfields(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPadding
+ --------------------------------------------------------------------}
+
+
+Procedure TPadding.Setright(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fright=AValue) then exit;
+ Fright:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPadding.Setleft(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fleft=AValue) then exit;
+ Fleft:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPadding.Settop(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Ftop=AValue) then exit;
+ Ftop:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPadding.Setbottom(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fbottom=AValue) then exit;
+ Fbottom:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TMergeCellsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TMergeCellsRequest.SetmergeType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmergeType=AValue) then exit;
+ FmergeType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMergeCellsRequest.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddSheetResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TAddSheetResponse.Setproperties(AIndex : Integer; const AValue : TSheetProperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPivotGroupValueMetadata
+ --------------------------------------------------------------------}
+
+
+Procedure TPivotGroupValueMetadata.Setvalue(AIndex : Integer; const AValue : TExtendedValue);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotGroupValueMetadata.Setcollapsed(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fcollapsed=AValue) then exit;
+ Fcollapsed:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateEmbeddedObjectPositionResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateEmbeddedObjectPositionResponse.Setposition(AIndex : Integer; const AValue : TEmbeddedObjectPosition);
+
+begin
+ If (Fposition=AValue) then exit;
+ Fposition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateConditionalFormatRuleRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateConditionalFormatRuleRequest.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateConditionalFormatRuleRequest.Setrule(AIndex : Integer; const AValue : TConditionalFormatRule);
+
+begin
+ If (Frule=AValue) then exit;
+ Frule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateConditionalFormatRuleRequest.Setindex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Findex=AValue) then exit;
+ Findex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateConditionalFormatRuleRequest.SetnewIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FnewIndex=AValue) then exit;
+ FnewIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTextFormat
+ --------------------------------------------------------------------}
+
+
+Procedure TTextFormat.Setbold(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fbold=AValue) then exit;
+ Fbold:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTextFormat.Setitalic(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fitalic=AValue) then exit;
+ Fitalic:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTextFormat.SetforegroundColor(AIndex : Integer; const AValue : TColor);
+
+begin
+ If (FforegroundColor=AValue) then exit;
+ FforegroundColor:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTextFormat.SetfontFamily(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfontFamily=AValue) then exit;
+ FfontFamily:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTextFormat.Setstrikethrough(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fstrikethrough=AValue) then exit;
+ Fstrikethrough:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTextFormat.SetfontSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FfontSize=AValue) then exit;
+ FfontSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTextFormat.Setunderline(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Funderline=AValue) then exit;
+ Funderline:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateChartSpecRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateChartSpecRequest.SetchartId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FchartId=AValue) then exit;
+ FchartId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateChartSpecRequest.Setspec(AIndex : Integer; const AValue : TChartSpec);
+
+begin
+ If (Fspec=AValue) then exit;
+ Fspec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TGridCoordinate
+ --------------------------------------------------------------------}
+
+
+Procedure TGridCoordinate.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridCoordinate.SetrowIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FrowIndex=AValue) then exit;
+ FrowIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridCoordinate.SetcolumnIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FcolumnIndex=AValue) then exit;
+ FcolumnIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeleteFilterViewRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDeleteFilterViewRequest.SetfilterId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FfilterId=AValue) then exit;
+ FfilterId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBatchUpdateValuesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TBatchUpdateValuesResponse.SettotalUpdatedSheets(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalUpdatedSheets=AValue) then exit;
+ FtotalUpdatedSheets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBatchUpdateValuesResponse.SettotalUpdatedColumns(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalUpdatedColumns=AValue) then exit;
+ FtotalUpdatedColumns:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBatchUpdateValuesResponse.Setresponses(AIndex : Integer; const AValue : TBatchUpdateValuesResponseTyperesponsesArray);
+
+begin
+ If (Fresponses=AValue) then exit;
+ Fresponses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBatchUpdateValuesResponse.SettotalUpdatedCells(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalUpdatedCells=AValue) then exit;
+ FtotalUpdatedCells:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBatchUpdateValuesResponse.SetspreadsheetId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FspreadsheetId=AValue) then exit;
+ FspreadsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBatchUpdateValuesResponse.SettotalUpdatedRows(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalUpdatedRows=AValue) then exit;
+ FtotalUpdatedRows:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchUpdateValuesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'responses' : SetLength(Fresponses,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateNamedRangeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateNamedRangeRequest.Setfields(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateNamedRangeRequest.SetnamedRange(AIndex : Integer; const AValue : TNamedRange);
+
+begin
+ If (FnamedRange=AValue) then exit;
+ FnamedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateValuesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateValuesResponse.SetupdatedRange(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdatedRange=AValue) then exit;
+ FupdatedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateValuesResponse.SetupdatedColumns(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FupdatedColumns=AValue) then exit;
+ FupdatedColumns:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateValuesResponse.SetspreadsheetId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FspreadsheetId=AValue) then exit;
+ FspreadsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateValuesResponse.SetupdatedRows(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FupdatedRows=AValue) then exit;
+ FupdatedRows:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateValuesResponse.SetupdatedCells(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FupdatedCells=AValue) then exit;
+ FupdatedCells:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSpreadsheetProperties
+ --------------------------------------------------------------------}
+
+
+Procedure TSpreadsheetProperties.SettimeZone(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtimeZone=AValue) then exit;
+ FtimeZone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSpreadsheetProperties.SetautoRecalc(AIndex : Integer; const AValue : String);
+
+begin
+ If (FautoRecalc=AValue) then exit;
+ FautoRecalc:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSpreadsheetProperties.Setlocale(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocale=AValue) then exit;
+ Flocale:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSpreadsheetProperties.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSpreadsheetProperties.SetdefaultFormat(AIndex : Integer; const AValue : TCellFormat);
+
+begin
+ If (FdefaultFormat=AValue) then exit;
+ FdefaultFormat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCellData
+ --------------------------------------------------------------------}
+
+
+Procedure TCellData.Sethyperlink(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fhyperlink=AValue) then exit;
+ Fhyperlink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellData.SeteffectiveFormat(AIndex : Integer; const AValue : TCellFormat);
+
+begin
+ If (FeffectiveFormat=AValue) then exit;
+ FeffectiveFormat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellData.Setnote(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fnote=AValue) then exit;
+ Fnote:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellData.SetformattedValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformattedValue=AValue) then exit;
+ FformattedValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellData.SetuserEnteredValue(AIndex : Integer; const AValue : TExtendedValue);
+
+begin
+ If (FuserEnteredValue=AValue) then exit;
+ FuserEnteredValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellData.SetdataValidation(AIndex : Integer; const AValue : TDataValidationRule);
+
+begin
+ If (FdataValidation=AValue) then exit;
+ FdataValidation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellData.SetuserEnteredFormat(AIndex : Integer; const AValue : TCellFormat);
+
+begin
+ If (FuserEnteredFormat=AValue) then exit;
+ FuserEnteredFormat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellData.SetpivotTable(AIndex : Integer; const AValue : TPivotTable);
+
+begin
+ If (FpivotTable=AValue) then exit;
+ FpivotTable:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellData.SettextFormatRuns(AIndex : Integer; const AValue : TCellDataTypetextFormatRunsArray);
+
+begin
+ If (FtextFormatRuns=AValue) then exit;
+ FtextFormatRuns:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellData.SeteffectiveValue(AIndex : Integer; const AValue : TExtendedValue);
+
+begin
+ If (FeffectiveValue=AValue) then exit;
+ FeffectiveValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TCellData.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'textformatruns' : SetLength(FtextFormatRuns,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TUnmergeCellsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUnmergeCellsRequest.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTextToColumnsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TTextToColumnsRequest.Setsource(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTextToColumnsRequest.Setdelimiter(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdelimiter=AValue) then exit;
+ Fdelimiter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTextToColumnsRequest.SetdelimiterType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdelimiterType=AValue) then exit;
+ FdelimiterType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddProtectedRangeResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TAddProtectedRangeResponse.SetprotectedRange(AIndex : Integer; const AValue : TProtectedRange);
+
+begin
+ If (FprotectedRange=AValue) then exit;
+ FprotectedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBooleanCondition
+ --------------------------------------------------------------------}
+
+
+Procedure TBooleanCondition.Setvalues(AIndex : Integer; const AValue : TBooleanConditionTypevaluesArray);
+
+begin
+ If (Fvalues=AValue) then exit;
+ Fvalues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBooleanCondition.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TBooleanCondition.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 TBooleanCondition.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'values' : SetLength(Fvalues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeleteProtectedRangeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDeleteProtectedRangeRequest.SetprotectedRangeId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FprotectedRangeId=AValue) then exit;
+ FprotectedRangeId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBasicChartDomain
+ --------------------------------------------------------------------}
+
+
+Procedure TBasicChartDomain.Setdomain(AIndex : Integer; const AValue : TChartData);
+
+begin
+ If (Fdomain=AValue) then exit;
+ Fdomain:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDimensionRange
+ --------------------------------------------------------------------}
+
+
+Procedure TDimensionRange.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimensionRange.SetendIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FendIndex=AValue) then exit;
+ FendIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimensionRange.SetstartIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartIndex=AValue) then exit;
+ FstartIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimensionRange.Setdimension(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdimension=AValue) then exit;
+ Fdimension:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TResponse.SetupdateEmbeddedObjectPosition(AIndex : Integer; const AValue : TUpdateEmbeddedObjectPositionResponse);
+
+begin
+ If (FupdateEmbeddedObjectPosition=AValue) then exit;
+ FupdateEmbeddedObjectPosition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResponse.SetaddFilterView(AIndex : Integer; const AValue : TAddFilterViewResponse);
+
+begin
+ If (FaddFilterView=AValue) then exit;
+ FaddFilterView:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResponse.SetaddSheet(AIndex : Integer; const AValue : TAddSheetResponse);
+
+begin
+ If (FaddSheet=AValue) then exit;
+ FaddSheet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResponse.SetfindReplace(AIndex : Integer; const AValue : TFindReplaceResponse);
+
+begin
+ If (FfindReplace=AValue) then exit;
+ FfindReplace:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResponse.SetaddProtectedRange(AIndex : Integer; const AValue : TAddProtectedRangeResponse);
+
+begin
+ If (FaddProtectedRange=AValue) then exit;
+ FaddProtectedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResponse.SetupdateConditionalFormatRule(AIndex : Integer; const AValue : TUpdateConditionalFormatRuleResponse);
+
+begin
+ If (FupdateConditionalFormatRule=AValue) then exit;
+ FupdateConditionalFormatRule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResponse.SetaddChart(AIndex : Integer; const AValue : TAddChartResponse);
+
+begin
+ If (FaddChart=AValue) then exit;
+ FaddChart:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResponse.SetdeleteConditionalFormatRule(AIndex : Integer; const AValue : TDeleteConditionalFormatRuleResponse);
+
+begin
+ If (FdeleteConditionalFormatRule=AValue) then exit;
+ FdeleteConditionalFormatRule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResponse.SetduplicateSheet(AIndex : Integer; const AValue : TDuplicateSheetResponse);
+
+begin
+ If (FduplicateSheet=AValue) then exit;
+ FduplicateSheet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResponse.SetduplicateFilterView(AIndex : Integer; const AValue : TDuplicateFilterViewResponse);
+
+begin
+ If (FduplicateFilterView=AValue) then exit;
+ FduplicateFilterView:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TResponse.SetaddNamedRange(AIndex : Integer; const AValue : TAddNamedRangeResponse);
+
+begin
+ If (FaddNamedRange=AValue) then exit;
+ FaddNamedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddConditionalFormatRuleRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAddConditionalFormatRuleRequest.Setrule(AIndex : Integer; const AValue : TConditionalFormatRule);
+
+begin
+ If (Frule=AValue) then exit;
+ Frule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAddConditionalFormatRuleRequest.Setindex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Findex=AValue) then exit;
+ Findex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TFilterViewTypecriteria
+ --------------------------------------------------------------------}
+
+
+Class Function TFilterViewTypecriteria.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TFilterView
+ --------------------------------------------------------------------}
+
+
+Procedure TFilterView.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFilterView.SetnamedRangeId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnamedRangeId=AValue) then exit;
+ FnamedRangeId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFilterView.SetsortSpecs(AIndex : Integer; const AValue : TFilterViewTypesortSpecsArray);
+
+begin
+ If (FsortSpecs=AValue) then exit;
+ FsortSpecs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFilterView.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFilterView.Setcriteria(AIndex : Integer; const AValue : TFilterViewTypecriteria);
+
+begin
+ If (Fcriteria=AValue) then exit;
+ Fcriteria:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFilterView.SetfilterViewId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FfilterViewId=AValue) then exit;
+ FfilterViewId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFilterView.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sortspecs' : SetLength(FsortSpecs,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSortRangeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSortRangeRequest.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSortRangeRequest.SetsortSpecs(AIndex : Integer; const AValue : TSortRangeRequestTypesortSpecsArray);
+
+begin
+ If (FsortSpecs=AValue) then exit;
+ FsortSpecs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSortRangeRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sortspecs' : SetLength(FsortSpecs,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTextFormatRun
+ --------------------------------------------------------------------}
+
+
+Procedure TTextFormatRun.SetstartIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartIndex=AValue) then exit;
+ FstartIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTextFormatRun.Setformat(AIndex : Integer; const AValue : TTextFormat);
+
+begin
+ If (Fformat=AValue) then exit;
+ Fformat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateFilterViewRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateFilterViewRequest.Setfilter(AIndex : Integer; const AValue : TFilterView);
+
+begin
+ If (Ffilter=AValue) then exit;
+ Ffilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateFilterViewRequest.Setfields(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateConditionalFormatRuleResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateConditionalFormatRuleResponse.SetoldIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FoldIndex=AValue) then exit;
+ FoldIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateConditionalFormatRuleResponse.SetnewRule(AIndex : Integer; const AValue : TConditionalFormatRule);
+
+begin
+ If (FnewRule=AValue) then exit;
+ FnewRule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateConditionalFormatRuleResponse.SetoldRule(AIndex : Integer; const AValue : TConditionalFormatRule);
+
+begin
+ If (FoldRule=AValue) then exit;
+ FoldRule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateConditionalFormatRuleResponse.SetnewIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FnewIndex=AValue) then exit;
+ FnewIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TFilterCriteria
+ --------------------------------------------------------------------}
+
+
+Procedure TFilterCriteria.Setcondition(AIndex : Integer; const AValue : TBooleanCondition);
+
+begin
+ If (Fcondition=AValue) then exit;
+ Fcondition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFilterCriteria.SethiddenValues(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FhiddenValues=AValue) then exit;
+ FhiddenValues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFilterCriteria.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'hiddenvalues' : SetLength(FhiddenValues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeleteDimensionRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDeleteDimensionRequest.Setrange(AIndex : Integer; const AValue : TDimensionRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPivotTableTypecriteria
+ --------------------------------------------------------------------}
+
+
+Class Function TPivotTableTypecriteria.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TPivotTable
+ --------------------------------------------------------------------}
+
+
+Procedure TPivotTable.SetvalueLayout(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvalueLayout=AValue) then exit;
+ FvalueLayout:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotTable.Setcolumns(AIndex : Integer; const AValue : TPivotTableTypecolumnsArray);
+
+begin
+ If (Fcolumns=AValue) then exit;
+ Fcolumns:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotTable.Setsource(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotTable.Setrows(AIndex : Integer; const AValue : TPivotTableTyperowsArray);
+
+begin
+ If (Frows=AValue) then exit;
+ Frows:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotTable.Setvalues(AIndex : Integer; const AValue : TPivotTableTypevaluesArray);
+
+begin
+ If (Fvalues=AValue) then exit;
+ Fvalues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotTable.Setcriteria(AIndex : Integer; const AValue : TPivotTableTypecriteria);
+
+begin
+ If (Fcriteria=AValue) then exit;
+ Fcriteria:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPivotTable.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'columns' : SetLength(Fcolumns,ALength);
+ 'rows' : SetLength(Frows,ALength);
+ 'values' : SetLength(Fvalues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDataValidationRule
+ --------------------------------------------------------------------}
+
+
+Procedure TDataValidationRule.Setcondition(AIndex : Integer; const AValue : TBooleanCondition);
+
+begin
+ If (Fcondition=AValue) then exit;
+ Fcondition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDataValidationRule.SetinputMessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FinputMessage=AValue) then exit;
+ FinputMessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDataValidationRule.SetshowCustomUi(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FshowCustomUi=AValue) then exit;
+ FshowCustomUi:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDataValidationRule.Setstrict(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fstrict=AValue) then exit;
+ Fstrict:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateSpreadsheetPropertiesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateSpreadsheetPropertiesRequest.Setfields(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateSpreadsheetPropertiesRequest.Setproperties(AIndex : Integer; const AValue : TSpreadsheetProperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TChartSourceRange
+ --------------------------------------------------------------------}
+
+
+Procedure TChartSourceRange.Setsources(AIndex : Integer; const AValue : TChartSourceRangeTypesourcesArray);
+
+begin
+ If (Fsources=AValue) then exit;
+ Fsources:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TChartSourceRange.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sources' : SetLength(Fsources,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBatchUpdateValuesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TBatchUpdateValuesRequest.SetvalueInputOption(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvalueInputOption=AValue) then exit;
+ FvalueInputOption:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBatchUpdateValuesRequest.Setdata(AIndex : Integer; const AValue : TBatchUpdateValuesRequestTypedataArray);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchUpdateValuesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'data' : SetLength(Fdata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TClearBasicFilterRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TClearBasicFilterRequest.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TConditionalFormatRule
+ --------------------------------------------------------------------}
+
+
+Procedure TConditionalFormatRule.SetgradientRule(AIndex : Integer; const AValue : TGradientRule);
+
+begin
+ If (FgradientRule=AValue) then exit;
+ FgradientRule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConditionalFormatRule.SetbooleanRule(AIndex : Integer; const AValue : TBooleanRule);
+
+begin
+ If (FbooleanRule=AValue) then exit;
+ FbooleanRule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConditionalFormatRule.Setranges(AIndex : Integer; const AValue : TConditionalFormatRuleTyperangesArray);
+
+begin
+ If (Franges=AValue) then exit;
+ Franges:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TConditionalFormatRule.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'ranges' : SetLength(Franges,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateBordersRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateBordersRequest.Setright(AIndex : Integer; const AValue : TBorder);
+
+begin
+ If (Fright=AValue) then exit;
+ Fright:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateBordersRequest.SetinnerVertical(AIndex : Integer; const AValue : TBorder);
+
+begin
+ If (FinnerVertical=AValue) then exit;
+ FinnerVertical:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateBordersRequest.Settop(AIndex : Integer; const AValue : TBorder);
+
+begin
+ If (Ftop=AValue) then exit;
+ Ftop:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateBordersRequest.SetinnerHorizontal(AIndex : Integer; const AValue : TBorder);
+
+begin
+ If (FinnerHorizontal=AValue) then exit;
+ FinnerHorizontal:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateBordersRequest.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateBordersRequest.Setbottom(AIndex : Integer; const AValue : TBorder);
+
+begin
+ If (Fbottom=AValue) then exit;
+ Fbottom:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateBordersRequest.Setleft(AIndex : Integer; const AValue : TBorder);
+
+begin
+ If (Fleft=AValue) then exit;
+ Fleft:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPivotFilterCriteria
+ --------------------------------------------------------------------}
+
+
+Procedure TPivotFilterCriteria.SetvisibleValues(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FvisibleValues=AValue) then exit;
+ FvisibleValues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPivotFilterCriteria.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'visiblevalues' : SetLength(FvisibleValues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBorders
+ --------------------------------------------------------------------}
+
+
+Procedure TBorders.Setleft(AIndex : Integer; const AValue : TBorder);
+
+begin
+ If (Fleft=AValue) then exit;
+ Fleft:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBorders.Setright(AIndex : Integer; const AValue : TBorder);
+
+begin
+ If (Fright=AValue) then exit;
+ Fright:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBorders.Settop(AIndex : Integer; const AValue : TBorder);
+
+begin
+ If (Ftop=AValue) then exit;
+ Ftop:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBorders.Setbottom(AIndex : Integer; const AValue : TBorder);
+
+begin
+ If (Fbottom=AValue) then exit;
+ Fbottom:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmbeddedChart
+ --------------------------------------------------------------------}
+
+
+Procedure TEmbeddedChart.SetchartId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FchartId=AValue) then exit;
+ FchartId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmbeddedChart.Setposition(AIndex : Integer; const AValue : TEmbeddedObjectPosition);
+
+begin
+ If (Fposition=AValue) then exit;
+ Fposition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmbeddedChart.Setspec(AIndex : Integer; const AValue : TChartSpec);
+
+begin
+ If (Fspec=AValue) then exit;
+ Fspec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TColor
+ --------------------------------------------------------------------}
+
+
+Procedure TColor.Setgreen(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fgreen=AValue) then exit;
+ Fgreen:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TColor.Setblue(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fblue=AValue) then exit;
+ Fblue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TColor.Setred(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fred=AValue) then exit;
+ Fred:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TColor.Setalpha(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Falpha=AValue) then exit;
+ Falpha:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddSheetRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAddSheetRequest.Setproperties(AIndex : Integer; const AValue : TSheetProperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddProtectedRangeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAddProtectedRangeRequest.SetprotectedRange(AIndex : Integer; const AValue : TProtectedRange);
+
+begin
+ If (FprotectedRange=AValue) then exit;
+ FprotectedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TValueRange
+ --------------------------------------------------------------------}
+
+
+Procedure TValueRange.Setvalues(AIndex : Integer; const AValue : TValueRangeTypevaluesArray);
+
+begin
+ If (Fvalues=AValue) then exit;
+ Fvalues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TValueRange.Setrange(AIndex : Integer; const AValue : String);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TValueRange.SetmajorDimension(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmajorDimension=AValue) then exit;
+ FmajorDimension:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TValueRange.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'values' : SetLength(Fvalues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TFindReplaceResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TFindReplaceResponse.SetvaluesChanged(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FvaluesChanged=AValue) then exit;
+ FvaluesChanged:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceResponse.SetrowsChanged(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FrowsChanged=AValue) then exit;
+ FrowsChanged:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceResponse.SetoccurrencesChanged(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FoccurrencesChanged=AValue) then exit;
+ FoccurrencesChanged:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceResponse.SetformulasChanged(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FformulasChanged=AValue) then exit;
+ FformulasChanged:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceResponse.SetsheetsChanged(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetsChanged=AValue) then exit;
+ FsheetsChanged:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCellFormat
+ --------------------------------------------------------------------}
+
+
+Procedure TCellFormat.SethorizontalAlignment(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhorizontalAlignment=AValue) then exit;
+ FhorizontalAlignment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellFormat.SethyperlinkDisplayType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhyperlinkDisplayType=AValue) then exit;
+ FhyperlinkDisplayType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellFormat.Setborders(AIndex : Integer; const AValue : TBorders);
+
+begin
+ If (Fborders=AValue) then exit;
+ Fborders:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellFormat.SettextDirection(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtextDirection=AValue) then exit;
+ FtextDirection:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellFormat.SettextFormat(AIndex : Integer; const AValue : TTextFormat);
+
+begin
+ If (FtextFormat=AValue) then exit;
+ FtextFormat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellFormat.Setpadding(AIndex : Integer; const AValue : TPadding);
+
+begin
+ If (Fpadding=AValue) then exit;
+ Fpadding:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellFormat.SetnumberFormat(AIndex : Integer; const AValue : TNumberFormat);
+
+begin
+ If (FnumberFormat=AValue) then exit;
+ FnumberFormat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellFormat.SetwrapStrategy(AIndex : Integer; const AValue : String);
+
+begin
+ If (FwrapStrategy=AValue) then exit;
+ FwrapStrategy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellFormat.SetbackgroundColor(AIndex : Integer; const AValue : TColor);
+
+begin
+ If (FbackgroundColor=AValue) then exit;
+ FbackgroundColor:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCellFormat.SetverticalAlignment(AIndex : Integer; const AValue : String);
+
+begin
+ If (FverticalAlignment=AValue) then exit;
+ FverticalAlignment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TMoveDimensionRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TMoveDimensionRequest.Setsource(AIndex : Integer; const AValue : TDimensionRange);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMoveDimensionRequest.SetdestinationIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FdestinationIndex=AValue) then exit;
+ FdestinationIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBasicChartAxis
+ --------------------------------------------------------------------}
+
+
+Procedure TBasicChartAxis.Setposition(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fposition=AValue) then exit;
+ Fposition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicChartAxis.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicChartAxis.Setformat(AIndex : Integer; const AValue : TTextFormat);
+
+begin
+ If (Fformat=AValue) then exit;
+ Fformat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPivotGroupSortValueBucket
+ --------------------------------------------------------------------}
+
+
+Procedure TPivotGroupSortValueBucket.Setbuckets(AIndex : Integer; const AValue : TPivotGroupSortValueBucketTypebucketsArray);
+
+begin
+ If (Fbuckets=AValue) then exit;
+ Fbuckets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotGroupSortValueBucket.SetvaluesIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FvaluesIndex=AValue) then exit;
+ FvaluesIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPivotGroupSortValueBucket.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'buckets' : SetLength(Fbuckets,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDimensionProperties
+ --------------------------------------------------------------------}
+
+
+Procedure TDimensionProperties.SethiddenByUser(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhiddenByUser=AValue) then exit;
+ FhiddenByUser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimensionProperties.SetpixelSize(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FpixelSize=AValue) then exit;
+ FpixelSize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDimensionProperties.SethiddenByFilter(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhiddenByFilter=AValue) then exit;
+ FhiddenByFilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmbeddedObjectPosition
+ --------------------------------------------------------------------}
+
+
+Procedure TEmbeddedObjectPosition.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmbeddedObjectPosition.SetoverlayPosition(AIndex : Integer; const AValue : TOverlayPosition);
+
+begin
+ If (FoverlayPosition=AValue) then exit;
+ FoverlayPosition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEmbeddedObjectPosition.SetnewSheet(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FnewSheet=AValue) then exit;
+ FnewSheet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TInterpolationPoint
+ --------------------------------------------------------------------}
+
+
+Procedure TInterpolationPoint.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInterpolationPoint.Setcolor(AIndex : Integer; const AValue : TColor);
+
+begin
+ If (Fcolor=AValue) then exit;
+ Fcolor:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInterpolationPoint.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TInterpolationPoint.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TErrorValue
+ --------------------------------------------------------------------}
+
+
+Procedure TErrorValue.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorValue.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TErrorValue.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TDuplicateFilterViewRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDuplicateFilterViewRequest.SetfilterId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FfilterId=AValue) then exit;
+ FfilterId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBatchUpdateSpreadsheetRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TBatchUpdateSpreadsheetRequest.Setrequests(AIndex : Integer; const AValue : TBatchUpdateSpreadsheetRequestTyperequestsArray);
+
+begin
+ If (Frequests=AValue) then exit;
+ Frequests:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchUpdateSpreadsheetRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'requests' : SetLength(Frequests,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSheetProperties
+ --------------------------------------------------------------------}
+
+
+Procedure TSheetProperties.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheetProperties.Setindex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Findex=AValue) then exit;
+ Findex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheetProperties.Sethidden(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fhidden=AValue) then exit;
+ Fhidden:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheetProperties.SetgridProperties(AIndex : Integer; const AValue : TGridProperties);
+
+begin
+ If (FgridProperties=AValue) then exit;
+ FgridProperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheetProperties.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheetProperties.SetrightToLeft(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FrightToLeft=AValue) then exit;
+ FrightToLeft:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheetProperties.SettabColor(AIndex : Integer; const AValue : TColor);
+
+begin
+ If (FtabColor=AValue) then exit;
+ FtabColor:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheetProperties.SetsheetType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsheetType=AValue) then exit;
+ FsheetType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TProtectedRange
+ --------------------------------------------------------------------}
+
+
+Procedure TProtectedRange.SetunprotectedRanges(AIndex : Integer; const AValue : TProtectedRangeTypeunprotectedRangesArray);
+
+begin
+ If (FunprotectedRanges=AValue) then exit;
+ FunprotectedRanges:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProtectedRange.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProtectedRange.SetnamedRangeId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnamedRangeId=AValue) then exit;
+ FnamedRangeId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProtectedRange.SetrequestingUserCanEdit(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FrequestingUserCanEdit=AValue) then exit;
+ FrequestingUserCanEdit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProtectedRange.Seteditors(AIndex : Integer; const AValue : TEditors);
+
+begin
+ If (Feditors=AValue) then exit;
+ Feditors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProtectedRange.SetprotectedRangeId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FprotectedRangeId=AValue) then exit;
+ FprotectedRangeId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProtectedRange.SetwarningOnly(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FwarningOnly=AValue) then exit;
+ FwarningOnly:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProtectedRange.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TProtectedRange.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'unprotectedranges' : SetLength(FunprotectedRanges,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeleteConditionalFormatRuleRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDeleteConditionalFormatRuleRequest.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDeleteConditionalFormatRuleRequest.Setindex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Findex=AValue) then exit;
+ Findex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TChartSpec
+ --------------------------------------------------------------------}
+
+
+Procedure TChartSpec.SethiddenDimensionStrategy(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhiddenDimensionStrategy=AValue) then exit;
+ FhiddenDimensionStrategy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TChartSpec.SetbasicChart(AIndex : Integer; const AValue : TBasicChartSpec);
+
+begin
+ If (FbasicChart=AValue) then exit;
+ FbasicChart:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TChartSpec.Settitle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ftitle=AValue) then exit;
+ Ftitle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TChartSpec.SetpieChart(AIndex : Integer; const AValue : TPieChartSpec);
+
+begin
+ If (FpieChart=AValue) then exit;
+ FpieChart:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSourceAndDestination
+ --------------------------------------------------------------------}
+
+
+Procedure TSourceAndDestination.Setsource(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceAndDestination.SetfillLength(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FfillLength=AValue) then exit;
+ FfillLength:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSourceAndDestination.Setdimension(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdimension=AValue) then exit;
+ Fdimension:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TConditionValue
+ --------------------------------------------------------------------}
+
+
+Procedure TConditionValue.SetrelativeDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FrelativeDate=AValue) then exit;
+ FrelativeDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TConditionValue.SetuserEnteredValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuserEnteredValue=AValue) then exit;
+ FuserEnteredValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPasteDataRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TPasteDataRequest.Setdata(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPasteDataRequest.Setcoordinate(AIndex : Integer; const AValue : TGridCoordinate);
+
+begin
+ If (Fcoordinate=AValue) then exit;
+ Fcoordinate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPasteDataRequest.Setdelimiter(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdelimiter=AValue) then exit;
+ Fdelimiter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPasteDataRequest.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPasteDataRequest.Sethtml(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fhtml=AValue) then exit;
+ Fhtml:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TPasteDataRequest.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TFindReplaceRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TFindReplaceRequest.Setfind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffind=AValue) then exit;
+ Ffind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceRequest.Setreplacement(AIndex : Integer; const AValue : String);
+
+begin
+ If (Freplacement=AValue) then exit;
+ Freplacement:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceRequest.SetsearchByRegex(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FsearchByRegex=AValue) then exit;
+ FsearchByRegex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceRequest.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceRequest.SetallSheets(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FallSheets=AValue) then exit;
+ FallSheets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceRequest.SetmatchCase(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FmatchCase=AValue) then exit;
+ FmatchCase:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceRequest.SetincludeFormulas(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FincludeFormulas=AValue) then exit;
+ FincludeFormulas:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceRequest.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFindReplaceRequest.SetmatchEntireCell(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FmatchEntireCell=AValue) then exit;
+ FmatchEntireCell:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSortSpec
+ --------------------------------------------------------------------}
+
+
+Procedure TSortSpec.SetsortOrder(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsortOrder=AValue) then exit;
+ FsortOrder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSortSpec.SetdimensionIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FdimensionIndex=AValue) then exit;
+ FdimensionIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCopySheetToAnotherSpreadsheetRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TCopySheetToAnotherSpreadsheetRequest.SetdestinationSpreadsheetId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdestinationSpreadsheetId=AValue) then exit;
+ FdestinationSpreadsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TNumberFormat
+ --------------------------------------------------------------------}
+
+
+Procedure TNumberFormat.Setpattern(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fpattern=AValue) then exit;
+ Fpattern:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNumberFormat.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TNumberFormat.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateDimensionPropertiesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateDimensionPropertiesRequest.Setfields(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateDimensionPropertiesRequest.Setrange(AIndex : Integer; const AValue : TDimensionRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateDimensionPropertiesRequest.Setproperties(AIndex : Integer; const AValue : TDimensionProperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TEditors
+ --------------------------------------------------------------------}
+
+
+Procedure TEditors.Setusers(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fusers=AValue) then exit;
+ Fusers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEditors.Setgroups(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fgroups=AValue) then exit;
+ Fgroups:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEditors.SetdomainUsersCanEdit(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FdomainUsersCanEdit=AValue) then exit;
+ FdomainUsersCanEdit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEditors.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'users' : SetLength(Fusers,ALength);
+ 'groups' : SetLength(Fgroups,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSpreadsheet
+ --------------------------------------------------------------------}
+
+
+Procedure TSpreadsheet.SetspreadsheetId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FspreadsheetId=AValue) then exit;
+ FspreadsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSpreadsheet.Setproperties(AIndex : Integer; const AValue : TSpreadsheetProperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSpreadsheet.Setsheets(AIndex : Integer; const AValue : TSpreadsheetTypesheetsArray);
+
+begin
+ If (Fsheets=AValue) then exit;
+ Fsheets:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSpreadsheet.SetnamedRanges(AIndex : Integer; const AValue : TSpreadsheetTypenamedRangesArray);
+
+begin
+ If (FnamedRanges=AValue) then exit;
+ FnamedRanges:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSpreadsheet.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sheets' : SetLength(Fsheets,ALength);
+ 'namedranges' : SetLength(FnamedRanges,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGridData
+ --------------------------------------------------------------------}
+
+
+Procedure TGridData.SetcolumnMetadata(AIndex : Integer; const AValue : TGridDataTypecolumnMetadataArray);
+
+begin
+ If (FcolumnMetadata=AValue) then exit;
+ FcolumnMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridData.SetrowData(AIndex : Integer; const AValue : TGridDataTyperowDataArray);
+
+begin
+ If (FrowData=AValue) then exit;
+ FrowData:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridData.SetstartRow(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartRow=AValue) then exit;
+ FstartRow:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridData.SetrowMetadata(AIndex : Integer; const AValue : TGridDataTyperowMetadataArray);
+
+begin
+ If (FrowMetadata=AValue) then exit;
+ FrowMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridData.SetstartColumn(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartColumn=AValue) then exit;
+ FstartColumn:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TGridData.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'columnmetadata' : SetLength(FcolumnMetadata,ALength);
+ 'rowdata' : SetLength(FrowData,ALength);
+ 'rowmetadata' : SetLength(FrowMetadata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPivotValue
+ --------------------------------------------------------------------}
+
+
+Procedure TPivotValue.Setformula(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fformula=AValue) then exit;
+ Fformula:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotValue.SetsourceColumnOffset(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsourceColumnOffset=AValue) then exit;
+ FsourceColumnOffset:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotValue.SetsummarizeFunction(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsummarizeFunction=AValue) then exit;
+ FsummarizeFunction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotValue.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBasicFilterTypecriteria
+ --------------------------------------------------------------------}
+
+
+Class Function TBasicFilterTypecriteria.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TBasicFilter
+ --------------------------------------------------------------------}
+
+
+Procedure TBasicFilter.Setcriteria(AIndex : Integer; const AValue : TBasicFilterTypecriteria);
+
+begin
+ If (Fcriteria=AValue) then exit;
+ Fcriteria:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicFilter.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicFilter.SetsortSpecs(AIndex : Integer; const AValue : TBasicFilterTypesortSpecsArray);
+
+begin
+ If (FsortSpecs=AValue) then exit;
+ FsortSpecs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBasicFilter.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'sortspecs' : SetLength(FsortSpecs,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TDuplicateSheetRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDuplicateSheetRequest.SetsourceSheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsourceSheetId=AValue) then exit;
+ FsourceSheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDuplicateSheetRequest.SetnewSheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FnewSheetId=AValue) then exit;
+ FnewSheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDuplicateSheetRequest.SetinsertSheetIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FinsertSheetIndex=AValue) then exit;
+ FinsertSheetIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDuplicateSheetRequest.SetnewSheetName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnewSheetName=AValue) then exit;
+ FnewSheetName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddFilterViewResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TAddFilterViewResponse.Setfilter(AIndex : Integer; const AValue : TFilterView);
+
+begin
+ If (Ffilter=AValue) then exit;
+ Ffilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDuplicateSheetResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TDuplicateSheetResponse.Setproperties(AIndex : Integer; const AValue : TSheetProperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBorder
+ --------------------------------------------------------------------}
+
+
+Procedure TBorder.Setstyle(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstyle=AValue) then exit;
+ Fstyle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBorder.Setwidth(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fwidth=AValue) then exit;
+ Fwidth:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBorder.Setcolor(AIndex : Integer; const AValue : TColor);
+
+begin
+ If (Fcolor=AValue) then exit;
+ Fcolor:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddNamedRangeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAddNamedRangeRequest.SetnamedRange(AIndex : Integer; const AValue : TNamedRange);
+
+begin
+ If (FnamedRange=AValue) then exit;
+ FnamedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddChartResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TAddChartResponse.Setchart(AIndex : Integer; const AValue : TEmbeddedChart);
+
+begin
+ If (Fchart=AValue) then exit;
+ Fchart:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAppendCellsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAppendCellsRequest.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAppendCellsRequest.Setrows(AIndex : Integer; const AValue : TAppendCellsRequestTyperowsArray);
+
+begin
+ If (Frows=AValue) then exit;
+ Frows:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAppendCellsRequest.Setfields(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAppendCellsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'rows' : SetLength(Frows,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TRowData
+ --------------------------------------------------------------------}
+
+
+Procedure TRowData.Setvalues(AIndex : Integer; const AValue : TRowDataTypevaluesArray);
+
+begin
+ If (Fvalues=AValue) then exit;
+ Fvalues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TRowData.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'values' : SetLength(Fvalues,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBasicChartSeries
+ --------------------------------------------------------------------}
+
+
+Procedure TBasicChartSeries.Setseries(AIndex : Integer; const AValue : TChartData);
+
+begin
+ If (Fseries=AValue) then exit;
+ Fseries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicChartSeries.SettargetAxis(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtargetAxis=AValue) then exit;
+ FtargetAxis:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicChartSeries.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TBasicChartSeries.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TRepeatCellRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TRepeatCellRequest.Setcell(AIndex : Integer; const AValue : TCellData);
+
+begin
+ If (Fcell=AValue) then exit;
+ Fcell:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRepeatCellRequest.Setfields(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRepeatCellRequest.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBasicChartSpec
+ --------------------------------------------------------------------}
+
+
+Procedure TBasicChartSpec.SetchartType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchartType=AValue) then exit;
+ FchartType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicChartSpec.Setdomains(AIndex : Integer; const AValue : TBasicChartSpecTypedomainsArray);
+
+begin
+ If (Fdomains=AValue) then exit;
+ Fdomains:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicChartSpec.SetheaderCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FheaderCount=AValue) then exit;
+ FheaderCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicChartSpec.Setseries(AIndex : Integer; const AValue : TBasicChartSpecTypeseriesArray);
+
+begin
+ If (Fseries=AValue) then exit;
+ Fseries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicChartSpec.SetlegendPosition(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlegendPosition=AValue) then exit;
+ FlegendPosition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBasicChartSpec.Setaxis(AIndex : Integer; const AValue : TBasicChartSpecTypeaxisArray);
+
+begin
+ If (Faxis=AValue) then exit;
+ Faxis:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBasicChartSpec.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'domains' : SetLength(Fdomains,ALength);
+ 'series' : SetLength(Fseries,ALength);
+ 'axis' : SetLength(Faxis,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TNamedRange
+ --------------------------------------------------------------------}
+
+
+Procedure TNamedRange.SetnamedRangeId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnamedRangeId=AValue) then exit;
+ FnamedRangeId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNamedRange.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TNamedRange.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSetBasicFilterRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSetBasicFilterRequest.Setfilter(AIndex : Integer; const AValue : TBasicFilter);
+
+begin
+ If (Ffilter=AValue) then exit;
+ Ffilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateEmbeddedObjectPositionRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateEmbeddedObjectPositionRequest.SetnewPosition(AIndex : Integer; const AValue : TEmbeddedObjectPosition);
+
+begin
+ If (FnewPosition=AValue) then exit;
+ FnewPosition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateEmbeddedObjectPositionRequest.SetobjectId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FobjectId=AValue) then exit;
+ FobjectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateEmbeddedObjectPositionRequest.Setfields(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutoResizeDimensionsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoResizeDimensionsRequest.Setdimensions(AIndex : Integer; const AValue : TDimensionRange);
+
+begin
+ If (Fdimensions=AValue) then exit;
+ Fdimensions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDuplicateFilterViewResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TDuplicateFilterViewResponse.Setfilter(AIndex : Integer; const AValue : TFilterView);
+
+begin
+ If (Ffilter=AValue) then exit;
+ Ffilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPivotGroup
+ --------------------------------------------------------------------}
+
+
+Procedure TPivotGroup.SetsortOrder(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsortOrder=AValue) then exit;
+ FsortOrder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotGroup.SetsourceColumnOffset(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsourceColumnOffset=AValue) then exit;
+ FsourceColumnOffset:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotGroup.SetshowTotals(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FshowTotals=AValue) then exit;
+ FshowTotals:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotGroup.SetvalueBucket(AIndex : Integer; const AValue : TPivotGroupSortValueBucket);
+
+begin
+ If (FvalueBucket=AValue) then exit;
+ FvalueBucket:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPivotGroup.SetvalueMetadata(AIndex : Integer; const AValue : TPivotGroupTypevalueMetadataArray);
+
+begin
+ If (FvalueMetadata=AValue) then exit;
+ FvalueMetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPivotGroup.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'valuemetadata' : SetLength(FvalueMetadata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGridRange
+ --------------------------------------------------------------------}
+
+
+Procedure TGridRange.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridRange.SetstartColumnIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartColumnIndex=AValue) then exit;
+ FstartColumnIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridRange.SetstartRowIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartRowIndex=AValue) then exit;
+ FstartRowIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridRange.SetendRowIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FendRowIndex=AValue) then exit;
+ FendRowIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridRange.SetendColumnIndex(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FendColumnIndex=AValue) then exit;
+ FendColumnIndex:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeleteSheetRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDeleteSheetRequest.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TChartData
+ --------------------------------------------------------------------}
+
+
+Procedure TChartData.SetsourceRange(AIndex : Integer; const AValue : TChartSourceRange);
+
+begin
+ If (FsourceRange=AValue) then exit;
+ FsourceRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSheet
+ --------------------------------------------------------------------}
+
+
+Procedure TSheet.Setproperties(AIndex : Integer; const AValue : TSheetProperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheet.Setcharts(AIndex : Integer; const AValue : TSheetTypechartsArray);
+
+begin
+ If (Fcharts=AValue) then exit;
+ Fcharts:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheet.SetfilterViews(AIndex : Integer; const AValue : TSheetTypefilterViewsArray);
+
+begin
+ If (FfilterViews=AValue) then exit;
+ FfilterViews:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheet.SetconditionalFormats(AIndex : Integer; const AValue : TSheetTypeconditionalFormatsArray);
+
+begin
+ If (FconditionalFormats=AValue) then exit;
+ FconditionalFormats:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheet.SetprotectedRanges(AIndex : Integer; const AValue : TSheetTypeprotectedRangesArray);
+
+begin
+ If (FprotectedRanges=AValue) then exit;
+ FprotectedRanges:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheet.SetbasicFilter(AIndex : Integer; const AValue : TBasicFilter);
+
+begin
+ If (FbasicFilter=AValue) then exit;
+ FbasicFilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheet.Setmerges(AIndex : Integer; const AValue : TSheetTypemergesArray);
+
+begin
+ If (Fmerges=AValue) then exit;
+ Fmerges:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSheet.Setdata(AIndex : Integer; const AValue : TSheetTypedataArray);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSheet.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'charts' : SetLength(Fcharts,ALength);
+ 'filterviews' : SetLength(FfilterViews,ALength);
+ 'conditionalformats' : SetLength(FconditionalFormats,ALength);
+ 'protectedranges' : SetLength(FprotectedRanges,ALength);
+ 'merges' : SetLength(Fmerges,ALength);
+ 'data' : SetLength(Fdata,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TCopyPasteRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TCopyPasteRequest.SetpasteType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpasteType=AValue) then exit;
+ FpasteType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCopyPasteRequest.SetpasteOrientation(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpasteOrientation=AValue) then exit;
+ FpasteOrientation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCopyPasteRequest.Setsource(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCopyPasteRequest.Setdestination(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Fdestination=AValue) then exit;
+ Fdestination:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateCellsRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateCellsRequest.Setrows(AIndex : Integer; const AValue : TUpdateCellsRequestTyperowsArray);
+
+begin
+ If (Frows=AValue) then exit;
+ Frows:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateCellsRequest.Setfields(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateCellsRequest.Setstart(AIndex : Integer; const AValue : TGridCoordinate);
+
+begin
+ If (Fstart=AValue) then exit;
+ Fstart:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateCellsRequest.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TUpdateCellsRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'rows' : SetLength(Frows,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TExtendedValue
+ --------------------------------------------------------------------}
+
+
+Procedure TExtendedValue.SetformulaValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FformulaValue=AValue) then exit;
+ FformulaValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExtendedValue.SeterrorValue(AIndex : Integer; const AValue : TErrorValue);
+
+begin
+ If (FerrorValue=AValue) then exit;
+ FerrorValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExtendedValue.SetboolValue(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FboolValue=AValue) then exit;
+ FboolValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExtendedValue.SetnumberValue(AIndex : Integer; const AValue : double);
+
+begin
+ If (FnumberValue=AValue) then exit;
+ FnumberValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExtendedValue.SetstringValue(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstringValue=AValue) then exit;
+ FstringValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBatchUpdateSpreadsheetResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TBatchUpdateSpreadsheetResponse.SetspreadsheetId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FspreadsheetId=AValue) then exit;
+ FspreadsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBatchUpdateSpreadsheetResponse.Setreplies(AIndex : Integer; const AValue : TBatchUpdateSpreadsheetResponseTyperepliesArray);
+
+begin
+ If (Freplies=AValue) then exit;
+ Freplies:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchUpdateSpreadsheetResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'replies' : SetLength(Freplies,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGradientRule
+ --------------------------------------------------------------------}
+
+
+Procedure TGradientRule.Setmaxpoint(AIndex : Integer; const AValue : TInterpolationPoint);
+
+begin
+ If (Fmaxpoint=AValue) then exit;
+ Fmaxpoint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGradientRule.Setmidpoint(AIndex : Integer; const AValue : TInterpolationPoint);
+
+begin
+ If (Fmidpoint=AValue) then exit;
+ Fmidpoint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGradientRule.Setminpoint(AIndex : Integer; const AValue : TInterpolationPoint);
+
+begin
+ If (Fminpoint=AValue) then exit;
+ Fminpoint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TCutPasteRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TCutPasteRequest.SetpasteType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FpasteType=AValue) then exit;
+ FpasteType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCutPasteRequest.Setsource(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCutPasteRequest.Setdestination(AIndex : Integer; const AValue : TGridCoordinate);
+
+begin
+ If (Fdestination=AValue) then exit;
+ Fdestination:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TOverlayPosition
+ --------------------------------------------------------------------}
+
+
+Procedure TOverlayPosition.SetwidthPixels(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FwidthPixels=AValue) then exit;
+ FwidthPixels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOverlayPosition.SetanchorCell(AIndex : Integer; const AValue : TGridCoordinate);
+
+begin
+ If (FanchorCell=AValue) then exit;
+ FanchorCell:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOverlayPosition.SetoffsetXPixels(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FoffsetXPixels=AValue) then exit;
+ FoffsetXPixels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOverlayPosition.SetheightPixels(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FheightPixels=AValue) then exit;
+ FheightPixels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOverlayPosition.SetoffsetYPixels(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FoffsetYPixels=AValue) then exit;
+ FoffsetYPixels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAutoFillRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAutoFillRequest.SetuseAlternateSeries(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FuseAlternateSeries=AValue) then exit;
+ FuseAlternateSeries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoFillRequest.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAutoFillRequest.SetsourceAndDestination(AIndex : Integer; const AValue : TSourceAndDestination);
+
+begin
+ If (FsourceAndDestination=AValue) then exit;
+ FsourceAndDestination:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPieChartSpec
+ --------------------------------------------------------------------}
+
+
+Procedure TPieChartSpec.SetlegendPosition(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlegendPosition=AValue) then exit;
+ FlegendPosition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPieChartSpec.Setseries(AIndex : Integer; const AValue : TChartData);
+
+begin
+ If (Fseries=AValue) then exit;
+ Fseries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPieChartSpec.SetpieHole(AIndex : Integer; const AValue : double);
+
+begin
+ If (FpieHole=AValue) then exit;
+ FpieHole:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPieChartSpec.SetthreeDimensional(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FthreeDimensional=AValue) then exit;
+ FthreeDimensional:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPieChartSpec.Setdomain(AIndex : Integer; const AValue : TChartData);
+
+begin
+ If (Fdomain=AValue) then exit;
+ Fdomain:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateSheetPropertiesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateSheetPropertiesRequest.Setfields(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffields=AValue) then exit;
+ Ffields:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateSheetPropertiesRequest.Setproperties(AIndex : Integer; const AValue : TSheetProperties);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBooleanRule
+ --------------------------------------------------------------------}
+
+
+Procedure TBooleanRule.Setcondition(AIndex : Integer; const AValue : TBooleanCondition);
+
+begin
+ If (Fcondition=AValue) then exit;
+ Fcondition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBooleanRule.Setformat(AIndex : Integer; const AValue : TCellFormat);
+
+begin
+ If (Fformat=AValue) then exit;
+ Fformat:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAppendDimensionRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAppendDimensionRequest.SetsheetId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FsheetId=AValue) then exit;
+ FsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAppendDimensionRequest.Set_length(AIndex : Integer; const AValue : integer);
+
+begin
+ If (F_length=AValue) then exit;
+ F_length:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAppendDimensionRequest.Setdimension(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdimension=AValue) then exit;
+ Fdimension:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TAppendDimensionRequest.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_length' : Result:='length';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddFilterViewRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAddFilterViewRequest.Setfilter(AIndex : Integer; const AValue : TFilterView);
+
+begin
+ If (Ffilter=AValue) then exit;
+ Ffilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TGridProperties
+ --------------------------------------------------------------------}
+
+
+Procedure TGridProperties.SetrowCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FrowCount=AValue) then exit;
+ FrowCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridProperties.SetcolumnCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FcolumnCount=AValue) then exit;
+ FcolumnCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridProperties.SetfrozenRowCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FfrozenRowCount=AValue) then exit;
+ FfrozenRowCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridProperties.SetfrozenColumnCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FfrozenColumnCount=AValue) then exit;
+ FfrozenColumnCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TGridProperties.SethideGridlines(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhideGridlines=AValue) then exit;
+ FhideGridlines:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeleteNamedRangeRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDeleteNamedRangeRequest.SetnamedRangeId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnamedRangeId=AValue) then exit;
+ FnamedRangeId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAddChartRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAddChartRequest.Setchart(AIndex : Integer; const AValue : TEmbeddedChart);
+
+begin
+ If (Fchart=AValue) then exit;
+ Fchart:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSetDataValidationRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSetDataValidationRequest.Setrule(AIndex : Integer; const AValue : TDataValidationRule);
+
+begin
+ If (Frule=AValue) then exit;
+ Frule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSetDataValidationRequest.Setrange(AIndex : Integer; const AValue : TGridRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TRequest.SetupdateEmbeddedObjectPosition(AIndex : Integer; const AValue : TUpdateEmbeddedObjectPositionRequest);
+
+begin
+ If (FupdateEmbeddedObjectPosition=AValue) then exit;
+ FupdateEmbeddedObjectPosition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetdeleteNamedRange(AIndex : Integer; const AValue : TDeleteNamedRangeRequest);
+
+begin
+ If (FdeleteNamedRange=AValue) then exit;
+ FdeleteNamedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetupdateNamedRange(AIndex : Integer; const AValue : TUpdateNamedRangeRequest);
+
+begin
+ If (FupdateNamedRange=AValue) then exit;
+ FupdateNamedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetaddFilterView(AIndex : Integer; const AValue : TAddFilterViewRequest);
+
+begin
+ If (FaddFilterView=AValue) then exit;
+ FaddFilterView:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetupdateSpreadsheetProperties(AIndex : Integer; const AValue : TUpdateSpreadsheetPropertiesRequest);
+
+begin
+ If (FupdateSpreadsheetProperties=AValue) then exit;
+ FupdateSpreadsheetProperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetappendDimension(AIndex : Integer; const AValue : TAppendDimensionRequest);
+
+begin
+ If (FappendDimension=AValue) then exit;
+ FappendDimension:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetunmergeCells(AIndex : Integer; const AValue : TUnmergeCellsRequest);
+
+begin
+ If (FunmergeCells=AValue) then exit;
+ FunmergeCells:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetupdateProtectedRange(AIndex : Integer; const AValue : TUpdateProtectedRangeRequest);
+
+begin
+ If (FupdateProtectedRange=AValue) then exit;
+ FupdateProtectedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetdeleteFilterView(AIndex : Integer; const AValue : TDeleteFilterViewRequest);
+
+begin
+ If (FdeleteFilterView=AValue) then exit;
+ FdeleteFilterView:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetclearBasicFilter(AIndex : Integer; const AValue : TClearBasicFilterRequest);
+
+begin
+ If (FclearBasicFilter=AValue) then exit;
+ FclearBasicFilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetsortRange(AIndex : Integer; const AValue : TSortRangeRequest);
+
+begin
+ If (FsortRange=AValue) then exit;
+ FsortRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetrepeatCell(AIndex : Integer; const AValue : TRepeatCellRequest);
+
+begin
+ If (FrepeatCell=AValue) then exit;
+ FrepeatCell:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetsetDataValidation(AIndex : Integer; const AValue : TSetDataValidationRequest);
+
+begin
+ If (FsetDataValidation=AValue) then exit;
+ FsetDataValidation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetupdateCells(AIndex : Integer; const AValue : TUpdateCellsRequest);
+
+begin
+ If (FupdateCells=AValue) then exit;
+ FupdateCells:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetaddSheet(AIndex : Integer; const AValue : TAddSheetRequest);
+
+begin
+ If (FaddSheet=AValue) then exit;
+ FaddSheet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetupdateFilterView(AIndex : Integer; const AValue : TUpdateFilterViewRequest);
+
+begin
+ If (FupdateFilterView=AValue) then exit;
+ FupdateFilterView:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetupdateSheetProperties(AIndex : Integer; const AValue : TUpdateSheetPropertiesRequest);
+
+begin
+ If (FupdateSheetProperties=AValue) then exit;
+ FupdateSheetProperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetupdateDimensionProperties(AIndex : Integer; const AValue : TUpdateDimensionPropertiesRequest);
+
+begin
+ If (FupdateDimensionProperties=AValue) then exit;
+ FupdateDimensionProperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetdeleteSheet(AIndex : Integer; const AValue : TDeleteSheetRequest);
+
+begin
+ If (FdeleteSheet=AValue) then exit;
+ FdeleteSheet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetfindReplace(AIndex : Integer; const AValue : TFindReplaceRequest);
+
+begin
+ If (FfindReplace=AValue) then exit;
+ FfindReplace:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetaddProtectedRange(AIndex : Integer; const AValue : TAddProtectedRangeRequest);
+
+begin
+ If (FaddProtectedRange=AValue) then exit;
+ FaddProtectedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetdeleteProtectedRange(AIndex : Integer; const AValue : TDeleteProtectedRangeRequest);
+
+begin
+ If (FdeleteProtectedRange=AValue) then exit;
+ FdeleteProtectedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetupdateConditionalFormatRule(AIndex : Integer; const AValue : TUpdateConditionalFormatRuleRequest);
+
+begin
+ If (FupdateConditionalFormatRule=AValue) then exit;
+ FupdateConditionalFormatRule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetsetBasicFilter(AIndex : Integer; const AValue : TSetBasicFilterRequest);
+
+begin
+ If (FsetBasicFilter=AValue) then exit;
+ FsetBasicFilter:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetmergeCells(AIndex : Integer; const AValue : TMergeCellsRequest);
+
+begin
+ If (FmergeCells=AValue) then exit;
+ FmergeCells:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetaddChart(AIndex : Integer; const AValue : TAddChartRequest);
+
+begin
+ If (FaddChart=AValue) then exit;
+ FaddChart:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetdeleteConditionalFormatRule(AIndex : Integer; const AValue : TDeleteConditionalFormatRuleRequest);
+
+begin
+ If (FdeleteConditionalFormatRule=AValue) then exit;
+ FdeleteConditionalFormatRule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetupdateChartSpec(AIndex : Integer; const AValue : TUpdateChartSpecRequest);
+
+begin
+ If (FupdateChartSpec=AValue) then exit;
+ FupdateChartSpec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetdeleteDimension(AIndex : Integer; const AValue : TDeleteDimensionRequest);
+
+begin
+ If (FdeleteDimension=AValue) then exit;
+ FdeleteDimension:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetdeleteEmbeddedObject(AIndex : Integer; const AValue : TDeleteEmbeddedObjectRequest);
+
+begin
+ If (FdeleteEmbeddedObject=AValue) then exit;
+ FdeleteEmbeddedObject:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetpasteData(AIndex : Integer; const AValue : TPasteDataRequest);
+
+begin
+ If (FpasteData=AValue) then exit;
+ FpasteData:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetaddConditionalFormatRule(AIndex : Integer; const AValue : TAddConditionalFormatRuleRequest);
+
+begin
+ If (FaddConditionalFormatRule=AValue) then exit;
+ FaddConditionalFormatRule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetupdateBorders(AIndex : Integer; const AValue : TUpdateBordersRequest);
+
+begin
+ If (FupdateBorders=AValue) then exit;
+ FupdateBorders:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetautoResizeDimensions(AIndex : Integer; const AValue : TAutoResizeDimensionsRequest);
+
+begin
+ If (FautoResizeDimensions=AValue) then exit;
+ FautoResizeDimensions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetduplicateSheet(AIndex : Integer; const AValue : TDuplicateSheetRequest);
+
+begin
+ If (FduplicateSheet=AValue) then exit;
+ FduplicateSheet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetduplicateFilterView(AIndex : Integer; const AValue : TDuplicateFilterViewRequest);
+
+begin
+ If (FduplicateFilterView=AValue) then exit;
+ FduplicateFilterView:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetcutPaste(AIndex : Integer; const AValue : TCutPasteRequest);
+
+begin
+ If (FcutPaste=AValue) then exit;
+ FcutPaste:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetappendCells(AIndex : Integer; const AValue : TAppendCellsRequest);
+
+begin
+ If (FappendCells=AValue) then exit;
+ FappendCells:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetaddNamedRange(AIndex : Integer; const AValue : TAddNamedRangeRequest);
+
+begin
+ If (FaddNamedRange=AValue) then exit;
+ FaddNamedRange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetautoFill(AIndex : Integer; const AValue : TAutoFillRequest);
+
+begin
+ If (FautoFill=AValue) then exit;
+ FautoFill:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetmoveDimension(AIndex : Integer; const AValue : TMoveDimensionRequest);
+
+begin
+ If (FmoveDimension=AValue) then exit;
+ FmoveDimension:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SettextToColumns(AIndex : Integer; const AValue : TTextToColumnsRequest);
+
+begin
+ If (FtextToColumns=AValue) then exit;
+ FtextToColumns:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetinsertDimension(AIndex : Integer; const AValue : TInsertDimensionRequest);
+
+begin
+ If (FinsertDimension=AValue) then exit;
+ FinsertDimension:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TRequest.SetcopyPaste(AIndex : Integer; const AValue : TCopyPasteRequest);
+
+begin
+ If (FcopyPaste=AValue) then exit;
+ FcopyPaste:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBatchGetValuesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TBatchGetValuesResponse.SetvalueRanges(AIndex : Integer; const AValue : TBatchGetValuesResponseTypevalueRangesArray);
+
+begin
+ If (FvalueRanges=AValue) then exit;
+ FvalueRanges:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBatchGetValuesResponse.SetspreadsheetId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FspreadsheetId=AValue) then exit;
+ FspreadsheetId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchGetValuesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'valueranges' : SetLength(FvalueRanges,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TInsertDimensionRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInsertDimensionRequest.SetinheritFromBefore(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FinheritFromBefore=AValue) then exit;
+ FinheritFromBefore:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInsertDimensionRequest.Setrange(AIndex : Integer; const AValue : TDimensionRange);
+
+begin
+ If (Frange=AValue) then exit;
+ Frange:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeleteEmbeddedObjectRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TDeleteEmbeddedObjectRequest.SetobjectId(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FobjectId=AValue) then exit;
+ FobjectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDeleteConditionalFormatRuleResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TDeleteConditionalFormatRuleResponse.Setrule(AIndex : Integer; const AValue : TConditionalFormatRule);
+
+begin
+ If (Frule=AValue) then exit;
+ Frule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSpreadsheetsValuesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TSpreadsheetsValuesResource.ResourceName : String;
+
+begin
+ Result:='values';
+end;
+
+Class Function TSpreadsheetsValuesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TsheetsAPI;
+end;
+
+Function TSpreadsheetsValuesResource.Update(spreadsheetId: string; range: string; aValueRange : TValueRange; AQuery : string = '') : TUpdateValuesResponse;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'v4/spreadsheets/{spreadsheetId}/values/{range}';
+ _Methodid = 'sheets.spreadsheets.values.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['spreadsheetId',spreadsheetId,'range',range]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aValueRange,TUpdateValuesResponse) as TUpdateValuesResponse;
+end;
+
+
+Function TSpreadsheetsValuesResource.Update(spreadsheetId: string; range: string; aValueRange : TValueRange; AQuery : TSpreadsheetsValuesupdateOptions) : TUpdateValuesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'valueInputOption',AQuery.valueInputOption);
+ Result:=Update(spreadsheetId,range,aValueRange,_Q);
+end;
+
+Function TSpreadsheetsValuesResource.Get(spreadsheetId: string; range: string; AQuery : string = '') : TValueRange;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v4/spreadsheets/{spreadsheetId}/values/{range}';
+ _Methodid = 'sheets.spreadsheets.values.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['spreadsheetId',spreadsheetId,'range',range]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TValueRange) as TValueRange;
+end;
+
+
+Function TSpreadsheetsValuesResource.Get(spreadsheetId: string; range: string; AQuery : TSpreadsheetsValuesgetOptions) : TValueRange;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'valueRenderOption',AQuery.valueRenderOption);
+ AddToQuery(_Q,'dateTimeRenderOption',AQuery.dateTimeRenderOption);
+ AddToQuery(_Q,'majorDimension',AQuery.majorDimension);
+ Result:=Get(spreadsheetId,range,_Q);
+end;
+
+Function TSpreadsheetsValuesResource.BatchGet(spreadsheetId: string; AQuery : string = '') : TBatchGetValuesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v4/spreadsheets/{spreadsheetId}/values:batchGet';
+ _Methodid = 'sheets.spreadsheets.values.batchGet';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['spreadsheetId',spreadsheetId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TBatchGetValuesResponse) as TBatchGetValuesResponse;
+end;
+
+
+Function TSpreadsheetsValuesResource.BatchGet(spreadsheetId: string; AQuery : TSpreadsheetsValuesbatchGetOptions) : TBatchGetValuesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'ranges',AQuery.ranges);
+ AddToQuery(_Q,'valueRenderOption',AQuery.valueRenderOption);
+ AddToQuery(_Q,'dateTimeRenderOption',AQuery.dateTimeRenderOption);
+ AddToQuery(_Q,'majorDimension',AQuery.majorDimension);
+ Result:=BatchGet(spreadsheetId,_Q);
+end;
+
+Function TSpreadsheetsValuesResource.BatchUpdate(spreadsheetId: string; aBatchUpdateValuesRequest : TBatchUpdateValuesRequest) : TBatchUpdateValuesResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v4/spreadsheets/{spreadsheetId}/values:batchUpdate';
+ _Methodid = 'sheets.spreadsheets.values.batchUpdate';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['spreadsheetId',spreadsheetId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aBatchUpdateValuesRequest,TBatchUpdateValuesResponse) as TBatchUpdateValuesResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSpreadsheetsSheetsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TSpreadsheetsSheetsResource.ResourceName : String;
+
+begin
+ Result:='sheets';
+end;
+
+Class Function TSpreadsheetsSheetsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TsheetsAPI;
+end;
+
+Function TSpreadsheetsSheetsResource.CopyTo(sheetId: integer; spreadsheetId: string; aCopySheetToAnotherSpreadsheetRequest : TCopySheetToAnotherSpreadsheetRequest) : TSheetProperties;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v4/spreadsheets/{spreadsheetId}/sheets/{sheetId}:copyTo';
+ _Methodid = 'sheets.spreadsheets.sheets.copyTo';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['sheetId',sheetId,'spreadsheetId',spreadsheetId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aCopySheetToAnotherSpreadsheetRequest,TSheetProperties) as TSheetProperties;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSpreadsheetsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TSpreadsheetsResource.ResourceName : String;
+
+begin
+ Result:='spreadsheets';
+end;
+
+Class Function TSpreadsheetsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TsheetsAPI;
+end;
+
+Function TSpreadsheetsResource.Create(aSpreadsheet : TSpreadsheet) : TSpreadsheet;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v4/spreadsheets';
+ _Methodid = 'sheets.spreadsheets.create';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aSpreadsheet,TSpreadsheet) as TSpreadsheet;
+end;
+
+Function TSpreadsheetsResource.Get(spreadsheetId: string; AQuery : string = '') : TSpreadsheet;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v4/spreadsheets/{spreadsheetId}';
+ _Methodid = 'sheets.spreadsheets.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['spreadsheetId',spreadsheetId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSpreadsheet) as TSpreadsheet;
+end;
+
+
+Function TSpreadsheetsResource.Get(spreadsheetId: string; AQuery : TSpreadsheetsgetOptions) : TSpreadsheet;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'ranges',AQuery.ranges);
+ AddToQuery(_Q,'includeGridData',AQuery.includeGridData);
+ Result:=Get(spreadsheetId,_Q);
+end;
+
+Function TSpreadsheetsResource.BatchUpdate(spreadsheetId: string; aBatchUpdateSpreadsheetRequest : TBatchUpdateSpreadsheetRequest) : TBatchUpdateSpreadsheetResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v4/spreadsheets/{spreadsheetId}:batchUpdate';
+ _Methodid = 'sheets.spreadsheets.batchUpdate';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['spreadsheetId',spreadsheetId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aBatchUpdateSpreadsheetRequest,TBatchUpdateSpreadsheetResponse) as TBatchUpdateSpreadsheetResponse;
+end;
+
+
+
+Function TSpreadsheetsResource.GetValuesInstance : TSpreadsheetsValuesResource;
+
+begin
+ if (FValuesInstance=Nil) then
+ FValuesInstance:=CreateValuesResource;
+ Result:=FValuesInstance;
+end;
+
+Function TSpreadsheetsResource.CreateValuesResource : TSpreadsheetsValuesResource;
+
+begin
+ Result:=CreateValuesResource(Self);
+end;
+
+
+Function TSpreadsheetsResource.CreateValuesResource(AOwner : TComponent) : TSpreadsheetsValuesResource;
+
+begin
+ Result:=TSpreadsheetsValuesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TSpreadsheetsResource.GetSheetsInstance : TSpreadsheetsSheetsResource;
+
+begin
+ if (FSheetsInstance=Nil) then
+ FSheetsInstance:=CreateSheetsResource;
+ Result:=FSheetsInstance;
+end;
+
+Function TSpreadsheetsResource.CreateSheetsResource : TSpreadsheetsSheetsResource;
+
+begin
+ Result:=CreateSheetsResource(Self);
+end;
+
+
+Function TSpreadsheetsResource.CreateSheetsResource(AOwner : TComponent) : TSpreadsheetsSheetsResource;
+
+begin
+ Result:=TSpreadsheetsSheetsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TSheetsAPI
+ --------------------------------------------------------------------}
+
+Class Function TSheetsAPI.APIName : String;
+
+begin
+ Result:='sheets';
+end;
+
+Class Function TSheetsAPI.APIVersion : String;
+
+begin
+ Result:='v4';
+end;
+
+Class Function TSheetsAPI.APIRevision : String;
+
+begin
+ Result:='20160519';
+end;
+
+Class Function TSheetsAPI.APIID : String;
+
+begin
+ Result:='sheets:v4';
+end;
+
+Class Function TSheetsAPI.APITitle : String;
+
+begin
+ Result:='Google Sheets API';
+end;
+
+Class Function TSheetsAPI.APIDescription : String;
+
+begin
+ Result:='Reads and writes Google Sheets.';
+end;
+
+Class Function TSheetsAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TSheetsAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TSheetsAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TSheetsAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TSheetsAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/sheets/';
+end;
+
+Class Function TSheetsAPI.APIrootUrl : string;
+
+begin
+ Result:='https://sheets.googleapis.com/';
+end;
+
+Class Function TSheetsAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TSheetsAPI.APIbaseURL : String;
+
+begin
+ Result:='https://sheets.googleapis.com/';
+end;
+
+Class Function TSheetsAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TSheetsAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TSheetsAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TSheetsAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,4);
+ Result[0].Name:='https://www.googleapis.com/auth/drive.readonly';
+ Result[0].Description:='View the files in your Google Drive';
+ Result[1].Name:='https://www.googleapis.com/auth/spreadsheets.readonly';
+ Result[1].Description:='View your Google Spreadsheets';
+ Result[2].Name:='https://www.googleapis.com/auth/drive';
+ Result[2].Description:='View and manage the files in your Google Drive';
+ Result[3].Name:='https://www.googleapis.com/auth/spreadsheets';
+ Result[3].Description:='View and manage your spreadsheets in Google Drive';
+
+end;
+
+Class Function TSheetsAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TSheetsAPI.RegisterAPIResources;
+
+begin
+ TAddNamedRangeResponse.RegisterObject;
+ TUpdateProtectedRangeRequest.RegisterObject;
+ TPadding.RegisterObject;
+ TMergeCellsRequest.RegisterObject;
+ TAddSheetResponse.RegisterObject;
+ TPivotGroupValueMetadata.RegisterObject;
+ TUpdateEmbeddedObjectPositionResponse.RegisterObject;
+ TUpdateConditionalFormatRuleRequest.RegisterObject;
+ TTextFormat.RegisterObject;
+ TUpdateChartSpecRequest.RegisterObject;
+ TGridCoordinate.RegisterObject;
+ TDeleteFilterViewRequest.RegisterObject;
+ TBatchUpdateValuesResponse.RegisterObject;
+ TUpdateNamedRangeRequest.RegisterObject;
+ TUpdateValuesResponse.RegisterObject;
+ TSpreadsheetProperties.RegisterObject;
+ TCellData.RegisterObject;
+ TUnmergeCellsRequest.RegisterObject;
+ TTextToColumnsRequest.RegisterObject;
+ TAddProtectedRangeResponse.RegisterObject;
+ TBooleanCondition.RegisterObject;
+ TDeleteProtectedRangeRequest.RegisterObject;
+ TBasicChartDomain.RegisterObject;
+ TDimensionRange.RegisterObject;
+ TResponse.RegisterObject;
+ TAddConditionalFormatRuleRequest.RegisterObject;
+ TFilterViewTypecriteria.RegisterObject;
+ TFilterView.RegisterObject;
+ TSortRangeRequest.RegisterObject;
+ TTextFormatRun.RegisterObject;
+ TUpdateFilterViewRequest.RegisterObject;
+ TUpdateConditionalFormatRuleResponse.RegisterObject;
+ TFilterCriteria.RegisterObject;
+ TDeleteDimensionRequest.RegisterObject;
+ TPivotTableTypecriteria.RegisterObject;
+ TPivotTable.RegisterObject;
+ TDataValidationRule.RegisterObject;
+ TUpdateSpreadsheetPropertiesRequest.RegisterObject;
+ TChartSourceRange.RegisterObject;
+ TBatchUpdateValuesRequest.RegisterObject;
+ TClearBasicFilterRequest.RegisterObject;
+ TConditionalFormatRule.RegisterObject;
+ TUpdateBordersRequest.RegisterObject;
+ TPivotFilterCriteria.RegisterObject;
+ TBorders.RegisterObject;
+ TEmbeddedChart.RegisterObject;
+ TColor.RegisterObject;
+ TAddSheetRequest.RegisterObject;
+ TAddProtectedRangeRequest.RegisterObject;
+ TValueRange.RegisterObject;
+ TFindReplaceResponse.RegisterObject;
+ TCellFormat.RegisterObject;
+ TMoveDimensionRequest.RegisterObject;
+ TBasicChartAxis.RegisterObject;
+ TPivotGroupSortValueBucket.RegisterObject;
+ TDimensionProperties.RegisterObject;
+ TEmbeddedObjectPosition.RegisterObject;
+ TInterpolationPoint.RegisterObject;
+ TErrorValue.RegisterObject;
+ TDuplicateFilterViewRequest.RegisterObject;
+ TBatchUpdateSpreadsheetRequest.RegisterObject;
+ TSheetProperties.RegisterObject;
+ TProtectedRange.RegisterObject;
+ TDeleteConditionalFormatRuleRequest.RegisterObject;
+ TChartSpec.RegisterObject;
+ TSourceAndDestination.RegisterObject;
+ TConditionValue.RegisterObject;
+ TPasteDataRequest.RegisterObject;
+ TFindReplaceRequest.RegisterObject;
+ TSortSpec.RegisterObject;
+ TCopySheetToAnotherSpreadsheetRequest.RegisterObject;
+ TNumberFormat.RegisterObject;
+ TUpdateDimensionPropertiesRequest.RegisterObject;
+ TEditors.RegisterObject;
+ TSpreadsheet.RegisterObject;
+ TGridData.RegisterObject;
+ TPivotValue.RegisterObject;
+ TBasicFilterTypecriteria.RegisterObject;
+ TBasicFilter.RegisterObject;
+ TDuplicateSheetRequest.RegisterObject;
+ TAddFilterViewResponse.RegisterObject;
+ TDuplicateSheetResponse.RegisterObject;
+ TBorder.RegisterObject;
+ TAddNamedRangeRequest.RegisterObject;
+ TAddChartResponse.RegisterObject;
+ TAppendCellsRequest.RegisterObject;
+ TRowData.RegisterObject;
+ TBasicChartSeries.RegisterObject;
+ TRepeatCellRequest.RegisterObject;
+ TBasicChartSpec.RegisterObject;
+ TNamedRange.RegisterObject;
+ TSetBasicFilterRequest.RegisterObject;
+ TUpdateEmbeddedObjectPositionRequest.RegisterObject;
+ TAutoResizeDimensionsRequest.RegisterObject;
+ TDuplicateFilterViewResponse.RegisterObject;
+ TPivotGroup.RegisterObject;
+ TGridRange.RegisterObject;
+ TDeleteSheetRequest.RegisterObject;
+ TChartData.RegisterObject;
+ TSheet.RegisterObject;
+ TCopyPasteRequest.RegisterObject;
+ TUpdateCellsRequest.RegisterObject;
+ TExtendedValue.RegisterObject;
+ TBatchUpdateSpreadsheetResponse.RegisterObject;
+ TGradientRule.RegisterObject;
+ TCutPasteRequest.RegisterObject;
+ TOverlayPosition.RegisterObject;
+ TAutoFillRequest.RegisterObject;
+ TPieChartSpec.RegisterObject;
+ TUpdateSheetPropertiesRequest.RegisterObject;
+ TBooleanRule.RegisterObject;
+ TAppendDimensionRequest.RegisterObject;
+ TAddFilterViewRequest.RegisterObject;
+ TGridProperties.RegisterObject;
+ TDeleteNamedRangeRequest.RegisterObject;
+ TAddChartRequest.RegisterObject;
+ TSetDataValidationRequest.RegisterObject;
+ TRequest.RegisterObject;
+ TBatchGetValuesResponse.RegisterObject;
+ TInsertDimensionRequest.RegisterObject;
+ TDeleteEmbeddedObjectRequest.RegisterObject;
+ TDeleteConditionalFormatRuleResponse.RegisterObject;
+end;
+
+
+Function TSheetsAPI.GetSpreadsheetsValuesInstance : TSpreadsheetsValuesResource;
+
+begin
+ if (FSpreadsheetsValuesInstance=Nil) then
+ FSpreadsheetsValuesInstance:=CreateSpreadsheetsValuesResource;
+ Result:=FSpreadsheetsValuesInstance;
+end;
+
+Function TSheetsAPI.CreateSpreadsheetsValuesResource : TSpreadsheetsValuesResource;
+
+begin
+ Result:=CreateSpreadsheetsValuesResource(Self);
+end;
+
+
+Function TSheetsAPI.CreateSpreadsheetsValuesResource(AOwner : TComponent) : TSpreadsheetsValuesResource;
+
+begin
+ Result:=TSpreadsheetsValuesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TSheetsAPI.GetSpreadsheetsSheetsInstance : TSpreadsheetsSheetsResource;
+
+begin
+ if (FSpreadsheetsSheetsInstance=Nil) then
+ FSpreadsheetsSheetsInstance:=CreateSpreadsheetsSheetsResource;
+ Result:=FSpreadsheetsSheetsInstance;
+end;
+
+Function TSheetsAPI.CreateSpreadsheetsSheetsResource : TSpreadsheetsSheetsResource;
+
+begin
+ Result:=CreateSpreadsheetsSheetsResource(Self);
+end;
+
+
+Function TSheetsAPI.CreateSpreadsheetsSheetsResource(AOwner : TComponent) : TSpreadsheetsSheetsResource;
+
+begin
+ Result:=TSpreadsheetsSheetsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TSheetsAPI.GetSpreadsheetsInstance : TSpreadsheetsResource;
+
+begin
+ if (FSpreadsheetsInstance=Nil) then
+ FSpreadsheetsInstance:=CreateSpreadsheetsResource;
+ Result:=FSpreadsheetsInstance;
+end;
+
+Function TSheetsAPI.CreateSpreadsheetsResource : TSpreadsheetsResource;
+
+begin
+ Result:=CreateSpreadsheetsResource(Self);
+end;
+
+
+Function TSheetsAPI.CreateSpreadsheetsResource(AOwner : TComponent) : TSpreadsheetsResource;
+
+begin
+ Result:=TSpreadsheetsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TSheetsAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlesiteVerification.pp b/packages/googleapi/src/googlesiteverification.pp
index 97f22b0f8c..c3aeddd24e 100644
--- a/packages/googleapi/src/googlesiteVerification.pp
+++ b/packages/googleapi/src/googlesiteverification.pp
@@ -1,19 +1,4 @@
unit googlesiteVerification;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:07
{$MODE objfpc}
{$H+}
@@ -67,7 +52,7 @@ type
FverificationMethod : String;
Protected
//Property setters
- Procedure Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceGettokenRequestTypesite); virtual;
+ Procedure Setsite(AIndex : Integer; const AValue : TSiteVerificationWebResourceGettokenRequestTypesite); virtual;
Procedure SetverificationMethod(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -104,7 +89,7 @@ type
Fitems : TSiteVerificationWebResourceListResponseTypeitemsArray;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TSiteVerificationWebResourceListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSiteVerificationWebResourceListResponseTypeitemsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -147,8 +132,8 @@ type
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setowners(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceResourceTypesite); virtual;
+ Procedure Setowners(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setsite(AIndex : Integer; const AValue : TSiteVerificationWebResourceResourceTypesite); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -270,7 +255,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSiteVerificationWebResourceGettokenRequest.Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceGettokenRequestTypesite);
+Procedure TSiteVerificationWebResourceGettokenRequest.Setsite(AIndex : Integer; const AValue : TSiteVerificationWebResourceGettokenRequestTypesite);
begin
If (Fsite=AValue) then exit;
@@ -324,7 +309,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSiteVerificationWebResourceListResponse.Setitems(AIndex : Integer; AValue : TSiteVerificationWebResourceListResponseTypeitemsArray);
+Procedure TSiteVerificationWebResourceListResponse.Setitems(AIndex : Integer; const AValue : TSiteVerificationWebResourceListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -402,7 +387,7 @@ end;
-Procedure TSiteVerificationWebResourceResource.Setowners(AIndex : Integer; AValue : TStringArray);
+Procedure TSiteVerificationWebResourceResource.Setowners(AIndex : Integer; const AValue : TStringArray);
begin
If (Fowners=AValue) then exit;
@@ -412,7 +397,7 @@ end;
-Procedure TSiteVerificationWebResourceResource.Setsite(AIndex : Integer; AValue : TSiteVerificationWebResourceResourceTypesite);
+Procedure TSiteVerificationWebResourceResource.Setsite(AIndex : Integer; const AValue : TSiteVerificationWebResourceResourceTypesite);
begin
If (Fsite=AValue) then exit;
@@ -580,7 +565,7 @@ end;
Class Function TSiteVerificationAPI.APIRevision : String;
begin
- Result:='20131007';
+ Result:='20160228';
end;
Class Function TSiteVerificationAPI.APIID : String;
@@ -598,7 +583,7 @@ end;
Class Function TSiteVerificationAPI.APIDescription : String;
begin
- Result:='Lets you programatically verify ownership of websites or domains with Google.';
+ Result:='Verifies ownership of websites or domains with Google.';
end;
Class Function TSiteVerificationAPI.APIOwnerDomain : String;
@@ -634,7 +619,7 @@ end;
Class Function TSiteVerificationAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TSiteVerificationAPI.APIbasePath : string;
@@ -646,7 +631,7 @@ end;
Class Function TSiteVerificationAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/siteVerification/v1/';
+ Result:='https://www.googleapis.com/siteVerification/v1/';
end;
Class Function TSiteVerificationAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlespectrum.pp b/packages/googleapi/src/googlespectrum.pp
index 3ad36fe798..d32bae91e0 100644
--- a/packages/googleapi/src/googlespectrum.pp
+++ b/packages/googleapi/src/googlespectrum.pp
@@ -1,19 +1,4 @@
unit googlespectrum;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:08
{$MODE objfpc}
{$H+}
@@ -115,9 +100,9 @@ type
FheightUncertainty : double;
Protected
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : double); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : double); virtual;
Procedure SetheightType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetheightUncertainty(AIndex : Integer; AValue : double); virtual;
+ Procedure SetheightUncertainty(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property height : double Index 0 Read Fheight Write Setheight;
@@ -154,7 +139,7 @@ type
Fdatabases : TDbUpdateSpecTypedatabasesArray;
Protected
//Property setters
- Procedure Setdatabases(AIndex : Integer; AValue : TDbUpdateSpecTypedatabasesArray); virtual;
+ Procedure Setdatabases(AIndex : Integer; const AValue : TDbUpdateSpecTypedatabasesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -174,7 +159,7 @@ type
FfrequencyRanges : TDeviceCapabilitiesTypefrequencyRangesArray;
Protected
//Property setters
- Procedure SetfrequencyRanges(AIndex : Integer; AValue : TDeviceCapabilitiesTypefrequencyRangesArray); virtual;
+ Procedure SetfrequencyRanges(AIndex : Integer; const AValue : TDeviceCapabilitiesTypefrequencyRangesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -211,7 +196,7 @@ type
Procedure SetfccTvbdDeviceType(AIndex : Integer; const AValue : String); virtual;
Procedure SetmanufacturerId(AIndex : Integer; const AValue : String); virtual;
Procedure SetmodelId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrulesetIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetrulesetIds(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetserialNumber(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -243,8 +228,8 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Set_operator(AIndex : Integer; AValue : TVcard); virtual;
- Procedure Setowner(AIndex : Integer; AValue : TVcard); virtual;
+ Procedure Set_operator(AIndex : Integer; const AValue : TVcard); virtual;
+ Procedure Setowner(AIndex : Integer; const AValue : TVcard); virtual;
Public
Published
Property _operator : TVcard Index 0 Read F_operator Write Set_operator;
@@ -263,8 +248,8 @@ type
Freason : String;
Protected
//Property setters
- Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
- Procedure SetisValid(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor); virtual;
+ Procedure SetisValid(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -306,9 +291,9 @@ type
Protected
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxPowerDBm(AIndex : Integer; AValue : double); virtual;
- Procedure SetstartHz(AIndex : Integer; AValue : double); virtual;
- Procedure SetstopHz(AIndex : Integer; AValue : double); virtual;
+ Procedure SetmaxPowerDBm(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetstartHz(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetstopHz(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property channelId : String Index 0 Read FchannelId Write SetchannelId;
@@ -329,9 +314,9 @@ type
Fregion : TGeoLocationPolygon;
Protected
//Property setters
- Procedure Setconfidence(AIndex : Integer; AValue : integer); virtual;
- Procedure Setpoint(AIndex : Integer; AValue : TGeoLocationEllipse); virtual;
- Procedure Setregion(AIndex : Integer; AValue : TGeoLocationPolygon); virtual;
+ Procedure Setconfidence(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setpoint(AIndex : Integer; const AValue : TGeoLocationEllipse); virtual;
+ Procedure Setregion(AIndex : Integer; const AValue : TGeoLocationPolygon); virtual;
Public
Published
Property confidence : integer Index 0 Read Fconfidence Write Setconfidence;
@@ -352,10 +337,10 @@ type
FsemiMinorAxis : double;
Protected
//Property setters
- Procedure Setcenter(AIndex : Integer; AValue : TGeoLocationPoint); virtual;
- Procedure Setorientation(AIndex : Integer; AValue : double); virtual;
- Procedure SetsemiMajorAxis(AIndex : Integer; AValue : double); virtual;
- Procedure SetsemiMinorAxis(AIndex : Integer; AValue : double); virtual;
+ Procedure Setcenter(AIndex : Integer; const AValue : TGeoLocationPoint); virtual;
+ Procedure Setorientation(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetsemiMajorAxis(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetsemiMinorAxis(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property center : TGeoLocationPoint Index 0 Read Fcenter Write Setcenter;
@@ -375,8 +360,8 @@ type
Flongitude : double;
Protected
//Property setters
- Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
+ 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;
@@ -393,7 +378,7 @@ type
Fexterior : TGeoLocationPolygonTypeexteriorArray;
Protected
//Property setters
- Procedure Setexterior(AIndex : Integer; AValue : TGeoLocationPolygonTypeexteriorArray); virtual;
+ Procedure Setexterior(AIndex : Integer; const AValue : TGeoLocationPolygonTypeexteriorArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -414,8 +399,8 @@ type
FspectrumSchedules : TGeoSpectrumScheduleTypespectrumSchedulesArray;
Protected
//Property setters
- Procedure Setlocation(AIndex : Integer; AValue : TGeoLocation); virtual;
- Procedure SetspectrumSchedules(AIndex : Integer; AValue : TGeoSpectrumScheduleTypespectrumSchedulesArray); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TGeoLocation); virtual;
+ Procedure SetspectrumSchedules(AIndex : Integer; const AValue : TGeoSpectrumScheduleTypespectrumSchedulesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -445,12 +430,12 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setantenna(AIndex : Integer; AValue : TAntennaCharacteristics); virtual;
- Procedure Setcapabilities(AIndex : Integer; AValue : TDeviceCapabilities); virtual;
- Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
- Procedure Setlocations(AIndex : Integer; AValue : TPawsGetSpectrumBatchRequestTypelocationsArray); virtual;
- Procedure SetmasterDeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
- Procedure Setowner(AIndex : Integer; AValue : TDeviceOwner); virtual;
+ Procedure Setantenna(AIndex : Integer; const AValue : TAntennaCharacteristics); virtual;
+ Procedure Setcapabilities(AIndex : Integer; const AValue : TDeviceCapabilities); virtual;
+ Procedure SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor); virtual;
+ Procedure Setlocations(AIndex : Integer; const AValue : TPawsGetSpectrumBatchRequestTypelocationsArray); virtual;
+ Procedure SetmasterDeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor); virtual;
+ Procedure Setowner(AIndex : Integer; const AValue : TDeviceOwner); virtual;
Procedure SetrequestType(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
@@ -492,14 +477,14 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec); virtual;
- Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
- Procedure SetgeoSpectrumSchedules(AIndex : Integer; AValue : TPawsGetSpectrumBatchResponseTypegeoSpectrumSchedulesArray); virtual;
+ Procedure SetdatabaseChange(AIndex : Integer; const AValue : TDbUpdateSpec); virtual;
+ Procedure SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor); virtual;
+ Procedure SetgeoSpectrumSchedules(AIndex : Integer; const AValue : TPawsGetSpectrumBatchResponseTypegeoSpectrumSchedulesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxContiguousBwHz(AIndex : Integer; AValue : double); virtual;
- Procedure SetmaxTotalBwHz(AIndex : Integer; AValue : double); virtual;
- Procedure SetneedsSpectrumReport(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetrulesetInfo(AIndex : Integer; AValue : TRulesetInfo); virtual;
+ Procedure SetmaxContiguousBwHz(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetmaxTotalBwHz(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetneedsSpectrumReport(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetrulesetInfo(AIndex : Integer; const AValue : TRulesetInfo); virtual;
Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
@@ -541,12 +526,12 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setantenna(AIndex : Integer; AValue : TAntennaCharacteristics); virtual;
- Procedure Setcapabilities(AIndex : Integer; AValue : TDeviceCapabilities); virtual;
- Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
- Procedure Setlocation(AIndex : Integer; AValue : TGeoLocation); virtual;
- Procedure SetmasterDeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
- Procedure Setowner(AIndex : Integer; AValue : TDeviceOwner); virtual;
+ Procedure Setantenna(AIndex : Integer; const AValue : TAntennaCharacteristics); virtual;
+ Procedure Setcapabilities(AIndex : Integer; const AValue : TDeviceCapabilities); virtual;
+ Procedure SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TGeoLocation); virtual;
+ Procedure SetmasterDeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor); virtual;
+ Procedure Setowner(AIndex : Integer; const AValue : TDeviceOwner); virtual;
Procedure SetrequestType(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
@@ -584,14 +569,14 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec); virtual;
- Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
+ Procedure SetdatabaseChange(AIndex : Integer; const AValue : TDbUpdateSpec); virtual;
+ Procedure SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxContiguousBwHz(AIndex : Integer; AValue : double); virtual;
- Procedure SetmaxTotalBwHz(AIndex : Integer; AValue : double); virtual;
- Procedure SetneedsSpectrumReport(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetrulesetInfo(AIndex : Integer; AValue : TRulesetInfo); virtual;
- Procedure SetspectrumSchedules(AIndex : Integer; AValue : TPawsGetSpectrumResponseTypespectrumSchedulesArray); virtual;
+ Procedure SetmaxContiguousBwHz(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetmaxTotalBwHz(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetneedsSpectrumReport(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetrulesetInfo(AIndex : Integer; const AValue : TRulesetInfo); virtual;
+ Procedure SetspectrumSchedules(AIndex : Integer; const AValue : TPawsGetSpectrumResponseTypespectrumSchedulesArray); virtual;
Procedure Settimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
@@ -628,8 +613,8 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
- Procedure Setlocation(AIndex : Integer; AValue : TGeoLocation); virtual;
+ Procedure SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TGeoLocation); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
Public
@@ -655,9 +640,9 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec); virtual;
+ Procedure SetdatabaseChange(AIndex : Integer; const AValue : TDbUpdateSpec); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrulesetInfo(AIndex : Integer; AValue : TRulesetInfo); virtual;
+ Procedure SetrulesetInfo(AIndex : Integer; const AValue : TRulesetInfo); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
Public
@@ -684,9 +669,9 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
- Procedure Setlocation(AIndex : Integer; AValue : TGeoLocation); virtual;
- Procedure Setspectra(AIndex : Integer; AValue : TPawsNotifySpectrumUseRequestTypespectraArray); virtual;
+ Procedure SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TGeoLocation); virtual;
+ Procedure Setspectra(AIndex : Integer; const AValue : TPawsNotifySpectrumUseRequestTypespectraArray); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -741,10 +726,10 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setantenna(AIndex : Integer; AValue : TAntennaCharacteristics); virtual;
- Procedure SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor); virtual;
- Procedure SetdeviceOwner(AIndex : Integer; AValue : TDeviceOwner); virtual;
- Procedure Setlocation(AIndex : Integer; AValue : TGeoLocation); virtual;
+ Procedure Setantenna(AIndex : Integer; const AValue : TAntennaCharacteristics); virtual;
+ Procedure SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor); virtual;
+ Procedure SetdeviceOwner(AIndex : Integer; const AValue : TDeviceOwner); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TGeoLocation); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
Public
@@ -771,7 +756,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec); virtual;
+ Procedure SetdatabaseChange(AIndex : Integer; const AValue : TDbUpdateSpec); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
@@ -796,7 +781,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdeviceDescs(AIndex : Integer; AValue : TPawsVerifyDeviceRequestTypedeviceDescsArray); virtual;
+ Procedure SetdeviceDescs(AIndex : Integer; const AValue : TPawsVerifyDeviceRequestTypedeviceDescsArray); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -825,8 +810,8 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec); virtual;
- Procedure SetdeviceValidities(AIndex : Integer; AValue : TPawsVerifyDeviceResponseTypedeviceValiditiesArray); virtual;
+ Procedure SetdatabaseChange(AIndex : Integer; const AValue : TDbUpdateSpec); virtual;
+ Procedure SetdeviceValidities(AIndex : Integer; const AValue : TPawsVerifyDeviceResponseTypedeviceValiditiesArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
@@ -857,9 +842,9 @@ type
Protected
//Property setters
Procedure Setauthority(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxLocationChange(AIndex : Integer; AValue : double); virtual;
- Procedure SetmaxPollingSecs(AIndex : Integer; AValue : integer); virtual;
- Procedure SetrulesetIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetmaxLocationChange(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetmaxPollingSecs(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetrulesetIds(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -883,8 +868,8 @@ type
FfrequencyRanges : TSpectrumMessageTypefrequencyRangesArray;
Protected
//Property setters
- Procedure Setbandwidth(AIndex : Integer; AValue : double); virtual;
- Procedure SetfrequencyRanges(AIndex : Integer; AValue : TSpectrumMessageTypefrequencyRangesArray); virtual;
+ Procedure Setbandwidth(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetfrequencyRanges(AIndex : Integer; const AValue : TSpectrumMessageTypefrequencyRangesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -906,8 +891,8 @@ type
Fspectra : TSpectrumScheduleTypespectraArray;
Protected
//Property setters
- Procedure SeteventTime(AIndex : Integer; AValue : TEventTime); virtual;
- Procedure Setspectra(AIndex : Integer; AValue : TSpectrumScheduleTypespectraArray); virtual;
+ Procedure SeteventTime(AIndex : Integer; const AValue : TEventTime); virtual;
+ Procedure Setspectra(AIndex : Integer; const AValue : TSpectrumScheduleTypespectraArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -932,11 +917,11 @@ type
Ftel : TVcardTelephone;
Protected
//Property setters
- Procedure Setadr(AIndex : Integer; AValue : TVcardAddress); virtual;
- Procedure Setemail(AIndex : Integer; AValue : TVcardTypedText); virtual;
+ Procedure Setadr(AIndex : Integer; const AValue : TVcardAddress); virtual;
+ Procedure Setemail(AIndex : Integer; const AValue : TVcardTypedText); virtual;
Procedure Setfn(AIndex : Integer; const AValue : String); virtual;
- Procedure Setorg(AIndex : Integer; AValue : TVcardTypedText); virtual;
- Procedure Settel(AIndex : Integer; AValue : TVcardTelephone); virtual;
+ Procedure Setorg(AIndex : Integer; const AValue : TVcardTypedText); virtual;
+ Procedure Settel(AIndex : Integer; const AValue : TVcardTelephone); virtual;
Public
Published
Property adr : TVcardAddress Index 0 Read Fadr Write Setadr;
@@ -1072,7 +1057,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TAntennaCharacteristics.Setheight(AIndex : Integer; AValue : double);
+Procedure TAntennaCharacteristics.Setheight(AIndex : Integer; const AValue : double);
begin
If (Fheight=AValue) then exit;
@@ -1092,7 +1077,7 @@ end;
-Procedure TAntennaCharacteristics.SetheightUncertainty(AIndex : Integer; AValue : double);
+Procedure TAntennaCharacteristics.SetheightUncertainty(AIndex : Integer; const AValue : double);
begin
If (FheightUncertainty=AValue) then exit;
@@ -1136,7 +1121,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDbUpdateSpec.Setdatabases(AIndex : Integer; AValue : TDbUpdateSpecTypedatabasesArray);
+Procedure TDbUpdateSpec.Setdatabases(AIndex : Integer; const AValue : TDbUpdateSpecTypedatabasesArray);
begin
If (Fdatabases=AValue) then exit;
@@ -1166,7 +1151,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDeviceCapabilities.SetfrequencyRanges(AIndex : Integer; AValue : TDeviceCapabilitiesTypefrequencyRangesArray);
+Procedure TDeviceCapabilities.SetfrequencyRanges(AIndex : Integer; const AValue : TDeviceCapabilitiesTypefrequencyRangesArray);
begin
If (FfrequencyRanges=AValue) then exit;
@@ -1276,7 +1261,7 @@ end;
-Procedure TDeviceDescriptor.SetrulesetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TDeviceDescriptor.SetrulesetIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FrulesetIds=AValue) then exit;
@@ -1316,7 +1301,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDeviceOwner.Set_operator(AIndex : Integer; AValue : TVcard);
+Procedure TDeviceOwner.Set_operator(AIndex : Integer; const AValue : TVcard);
begin
If (F_operator=AValue) then exit;
@@ -1326,7 +1311,7 @@ end;
-Procedure TDeviceOwner.Setowner(AIndex : Integer; AValue : TVcard);
+Procedure TDeviceOwner.Setowner(AIndex : Integer; const AValue : TVcard);
begin
If (Fowner=AValue) then exit;
@@ -1354,7 +1339,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDeviceValidity.SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor);
+Procedure TDeviceValidity.SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor);
begin
If (FdeviceDesc=AValue) then exit;
@@ -1364,7 +1349,7 @@ end;
-Procedure TDeviceValidity.SetisValid(AIndex : Integer; AValue : boolean);
+Procedure TDeviceValidity.SetisValid(AIndex : Integer; const AValue : boolean);
begin
If (FisValid=AValue) then exit;
@@ -1428,7 +1413,7 @@ end;
-Procedure TFrequencyRange.SetmaxPowerDBm(AIndex : Integer; AValue : double);
+Procedure TFrequencyRange.SetmaxPowerDBm(AIndex : Integer; const AValue : double);
begin
If (FmaxPowerDBm=AValue) then exit;
@@ -1438,7 +1423,7 @@ end;
-Procedure TFrequencyRange.SetstartHz(AIndex : Integer; AValue : double);
+Procedure TFrequencyRange.SetstartHz(AIndex : Integer; const AValue : double);
begin
If (FstartHz=AValue) then exit;
@@ -1448,7 +1433,7 @@ end;
-Procedure TFrequencyRange.SetstopHz(AIndex : Integer; AValue : double);
+Procedure TFrequencyRange.SetstopHz(AIndex : Integer; const AValue : double);
begin
If (FstopHz=AValue) then exit;
@@ -1465,7 +1450,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeoLocation.Setconfidence(AIndex : Integer; AValue : integer);
+Procedure TGeoLocation.Setconfidence(AIndex : Integer; const AValue : integer);
begin
If (Fconfidence=AValue) then exit;
@@ -1475,7 +1460,7 @@ end;
-Procedure TGeoLocation.Setpoint(AIndex : Integer; AValue : TGeoLocationEllipse);
+Procedure TGeoLocation.Setpoint(AIndex : Integer; const AValue : TGeoLocationEllipse);
begin
If (Fpoint=AValue) then exit;
@@ -1485,7 +1470,7 @@ end;
-Procedure TGeoLocation.Setregion(AIndex : Integer; AValue : TGeoLocationPolygon);
+Procedure TGeoLocation.Setregion(AIndex : Integer; const AValue : TGeoLocationPolygon);
begin
If (Fregion=AValue) then exit;
@@ -1502,7 +1487,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeoLocationEllipse.Setcenter(AIndex : Integer; AValue : TGeoLocationPoint);
+Procedure TGeoLocationEllipse.Setcenter(AIndex : Integer; const AValue : TGeoLocationPoint);
begin
If (Fcenter=AValue) then exit;
@@ -1512,7 +1497,7 @@ end;
-Procedure TGeoLocationEllipse.Setorientation(AIndex : Integer; AValue : double);
+Procedure TGeoLocationEllipse.Setorientation(AIndex : Integer; const AValue : double);
begin
If (Forientation=AValue) then exit;
@@ -1522,7 +1507,7 @@ end;
-Procedure TGeoLocationEllipse.SetsemiMajorAxis(AIndex : Integer; AValue : double);
+Procedure TGeoLocationEllipse.SetsemiMajorAxis(AIndex : Integer; const AValue : double);
begin
If (FsemiMajorAxis=AValue) then exit;
@@ -1532,7 +1517,7 @@ end;
-Procedure TGeoLocationEllipse.SetsemiMinorAxis(AIndex : Integer; AValue : double);
+Procedure TGeoLocationEllipse.SetsemiMinorAxis(AIndex : Integer; const AValue : double);
begin
If (FsemiMinorAxis=AValue) then exit;
@@ -1549,7 +1534,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeoLocationPoint.Setlatitude(AIndex : Integer; AValue : double);
+Procedure TGeoLocationPoint.Setlatitude(AIndex : Integer; const AValue : double);
begin
If (Flatitude=AValue) then exit;
@@ -1559,7 +1544,7 @@ end;
-Procedure TGeoLocationPoint.Setlongitude(AIndex : Integer; AValue : double);
+Procedure TGeoLocationPoint.Setlongitude(AIndex : Integer; const AValue : double);
begin
If (Flongitude=AValue) then exit;
@@ -1576,7 +1561,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeoLocationPolygon.Setexterior(AIndex : Integer; AValue : TGeoLocationPolygonTypeexteriorArray);
+Procedure TGeoLocationPolygon.Setexterior(AIndex : Integer; const AValue : TGeoLocationPolygonTypeexteriorArray);
begin
If (Fexterior=AValue) then exit;
@@ -1606,7 +1591,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGeoSpectrumSchedule.Setlocation(AIndex : Integer; AValue : TGeoLocation);
+Procedure TGeoSpectrumSchedule.Setlocation(AIndex : Integer; const AValue : TGeoLocation);
begin
If (Flocation=AValue) then exit;
@@ -1616,7 +1601,7 @@ end;
-Procedure TGeoSpectrumSchedule.SetspectrumSchedules(AIndex : Integer; AValue : TGeoSpectrumScheduleTypespectrumSchedulesArray);
+Procedure TGeoSpectrumSchedule.SetspectrumSchedules(AIndex : Integer; const AValue : TGeoSpectrumScheduleTypespectrumSchedulesArray);
begin
If (FspectrumSchedules=AValue) then exit;
@@ -1646,7 +1631,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPawsGetSpectrumBatchRequest.Setantenna(AIndex : Integer; AValue : TAntennaCharacteristics);
+Procedure TPawsGetSpectrumBatchRequest.Setantenna(AIndex : Integer; const AValue : TAntennaCharacteristics);
begin
If (Fantenna=AValue) then exit;
@@ -1656,7 +1641,7 @@ end;
-Procedure TPawsGetSpectrumBatchRequest.Setcapabilities(AIndex : Integer; AValue : TDeviceCapabilities);
+Procedure TPawsGetSpectrumBatchRequest.Setcapabilities(AIndex : Integer; const AValue : TDeviceCapabilities);
begin
If (Fcapabilities=AValue) then exit;
@@ -1666,7 +1651,7 @@ end;
-Procedure TPawsGetSpectrumBatchRequest.SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor);
+Procedure TPawsGetSpectrumBatchRequest.SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor);
begin
If (FdeviceDesc=AValue) then exit;
@@ -1676,7 +1661,7 @@ end;
-Procedure TPawsGetSpectrumBatchRequest.Setlocations(AIndex : Integer; AValue : TPawsGetSpectrumBatchRequestTypelocationsArray);
+Procedure TPawsGetSpectrumBatchRequest.Setlocations(AIndex : Integer; const AValue : TPawsGetSpectrumBatchRequestTypelocationsArray);
begin
If (Flocations=AValue) then exit;
@@ -1686,7 +1671,7 @@ end;
-Procedure TPawsGetSpectrumBatchRequest.SetmasterDeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor);
+Procedure TPawsGetSpectrumBatchRequest.SetmasterDeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor);
begin
If (FmasterDeviceDesc=AValue) then exit;
@@ -1696,7 +1681,7 @@ end;
-Procedure TPawsGetSpectrumBatchRequest.Setowner(AIndex : Integer; AValue : TDeviceOwner);
+Procedure TPawsGetSpectrumBatchRequest.Setowner(AIndex : Integer; const AValue : TDeviceOwner);
begin
If (Fowner=AValue) then exit;
@@ -1767,7 +1752,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPawsGetSpectrumBatchResponse.SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec);
+Procedure TPawsGetSpectrumBatchResponse.SetdatabaseChange(AIndex : Integer; const AValue : TDbUpdateSpec);
begin
If (FdatabaseChange=AValue) then exit;
@@ -1777,7 +1762,7 @@ end;
-Procedure TPawsGetSpectrumBatchResponse.SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor);
+Procedure TPawsGetSpectrumBatchResponse.SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor);
begin
If (FdeviceDesc=AValue) then exit;
@@ -1787,7 +1772,7 @@ end;
-Procedure TPawsGetSpectrumBatchResponse.SetgeoSpectrumSchedules(AIndex : Integer; AValue : TPawsGetSpectrumBatchResponseTypegeoSpectrumSchedulesArray);
+Procedure TPawsGetSpectrumBatchResponse.SetgeoSpectrumSchedules(AIndex : Integer; const AValue : TPawsGetSpectrumBatchResponseTypegeoSpectrumSchedulesArray);
begin
If (FgeoSpectrumSchedules=AValue) then exit;
@@ -1807,7 +1792,7 @@ end;
-Procedure TPawsGetSpectrumBatchResponse.SetmaxContiguousBwHz(AIndex : Integer; AValue : double);
+Procedure TPawsGetSpectrumBatchResponse.SetmaxContiguousBwHz(AIndex : Integer; const AValue : double);
begin
If (FmaxContiguousBwHz=AValue) then exit;
@@ -1817,7 +1802,7 @@ end;
-Procedure TPawsGetSpectrumBatchResponse.SetmaxTotalBwHz(AIndex : Integer; AValue : double);
+Procedure TPawsGetSpectrumBatchResponse.SetmaxTotalBwHz(AIndex : Integer; const AValue : double);
begin
If (FmaxTotalBwHz=AValue) then exit;
@@ -1827,7 +1812,7 @@ end;
-Procedure TPawsGetSpectrumBatchResponse.SetneedsSpectrumReport(AIndex : Integer; AValue : boolean);
+Procedure TPawsGetSpectrumBatchResponse.SetneedsSpectrumReport(AIndex : Integer; const AValue : boolean);
begin
If (FneedsSpectrumReport=AValue) then exit;
@@ -1837,7 +1822,7 @@ end;
-Procedure TPawsGetSpectrumBatchResponse.SetrulesetInfo(AIndex : Integer; AValue : TRulesetInfo);
+Procedure TPawsGetSpectrumBatchResponse.SetrulesetInfo(AIndex : Integer; const AValue : TRulesetInfo);
begin
If (FrulesetInfo=AValue) then exit;
@@ -1908,7 +1893,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPawsGetSpectrumRequest.Setantenna(AIndex : Integer; AValue : TAntennaCharacteristics);
+Procedure TPawsGetSpectrumRequest.Setantenna(AIndex : Integer; const AValue : TAntennaCharacteristics);
begin
If (Fantenna=AValue) then exit;
@@ -1918,7 +1903,7 @@ end;
-Procedure TPawsGetSpectrumRequest.Setcapabilities(AIndex : Integer; AValue : TDeviceCapabilities);
+Procedure TPawsGetSpectrumRequest.Setcapabilities(AIndex : Integer; const AValue : TDeviceCapabilities);
begin
If (Fcapabilities=AValue) then exit;
@@ -1928,7 +1913,7 @@ end;
-Procedure TPawsGetSpectrumRequest.SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor);
+Procedure TPawsGetSpectrumRequest.SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor);
begin
If (FdeviceDesc=AValue) then exit;
@@ -1938,7 +1923,7 @@ end;
-Procedure TPawsGetSpectrumRequest.Setlocation(AIndex : Integer; AValue : TGeoLocation);
+Procedure TPawsGetSpectrumRequest.Setlocation(AIndex : Integer; const AValue : TGeoLocation);
begin
If (Flocation=AValue) then exit;
@@ -1948,7 +1933,7 @@ end;
-Procedure TPawsGetSpectrumRequest.SetmasterDeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor);
+Procedure TPawsGetSpectrumRequest.SetmasterDeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor);
begin
If (FmasterDeviceDesc=AValue) then exit;
@@ -1958,7 +1943,7 @@ end;
-Procedure TPawsGetSpectrumRequest.Setowner(AIndex : Integer; AValue : TDeviceOwner);
+Procedure TPawsGetSpectrumRequest.Setowner(AIndex : Integer; const AValue : TDeviceOwner);
begin
If (Fowner=AValue) then exit;
@@ -2016,7 +2001,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPawsGetSpectrumResponse.SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec);
+Procedure TPawsGetSpectrumResponse.SetdatabaseChange(AIndex : Integer; const AValue : TDbUpdateSpec);
begin
If (FdatabaseChange=AValue) then exit;
@@ -2026,7 +2011,7 @@ end;
-Procedure TPawsGetSpectrumResponse.SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor);
+Procedure TPawsGetSpectrumResponse.SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor);
begin
If (FdeviceDesc=AValue) then exit;
@@ -2046,7 +2031,7 @@ end;
-Procedure TPawsGetSpectrumResponse.SetmaxContiguousBwHz(AIndex : Integer; AValue : double);
+Procedure TPawsGetSpectrumResponse.SetmaxContiguousBwHz(AIndex : Integer; const AValue : double);
begin
If (FmaxContiguousBwHz=AValue) then exit;
@@ -2056,7 +2041,7 @@ end;
-Procedure TPawsGetSpectrumResponse.SetmaxTotalBwHz(AIndex : Integer; AValue : double);
+Procedure TPawsGetSpectrumResponse.SetmaxTotalBwHz(AIndex : Integer; const AValue : double);
begin
If (FmaxTotalBwHz=AValue) then exit;
@@ -2066,7 +2051,7 @@ end;
-Procedure TPawsGetSpectrumResponse.SetneedsSpectrumReport(AIndex : Integer; AValue : boolean);
+Procedure TPawsGetSpectrumResponse.SetneedsSpectrumReport(AIndex : Integer; const AValue : boolean);
begin
If (FneedsSpectrumReport=AValue) then exit;
@@ -2076,7 +2061,7 @@ end;
-Procedure TPawsGetSpectrumResponse.SetrulesetInfo(AIndex : Integer; AValue : TRulesetInfo);
+Procedure TPawsGetSpectrumResponse.SetrulesetInfo(AIndex : Integer; const AValue : TRulesetInfo);
begin
If (FrulesetInfo=AValue) then exit;
@@ -2086,7 +2071,7 @@ end;
-Procedure TPawsGetSpectrumResponse.SetspectrumSchedules(AIndex : Integer; AValue : TPawsGetSpectrumResponseTypespectrumSchedulesArray);
+Procedure TPawsGetSpectrumResponse.SetspectrumSchedules(AIndex : Integer; const AValue : TPawsGetSpectrumResponseTypespectrumSchedulesArray);
begin
If (FspectrumSchedules=AValue) then exit;
@@ -2157,7 +2142,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPawsInitRequest.SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor);
+Procedure TPawsInitRequest.SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor);
begin
If (FdeviceDesc=AValue) then exit;
@@ -2167,7 +2152,7 @@ end;
-Procedure TPawsInitRequest.Setlocation(AIndex : Integer; AValue : TGeoLocation);
+Procedure TPawsInitRequest.Setlocation(AIndex : Integer; const AValue : TGeoLocation);
begin
If (Flocation=AValue) then exit;
@@ -2215,7 +2200,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPawsInitResponse.SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec);
+Procedure TPawsInitResponse.SetdatabaseChange(AIndex : Integer; const AValue : TDbUpdateSpec);
begin
If (FdatabaseChange=AValue) then exit;
@@ -2235,7 +2220,7 @@ end;
-Procedure TPawsInitResponse.SetrulesetInfo(AIndex : Integer; AValue : TRulesetInfo);
+Procedure TPawsInitResponse.SetrulesetInfo(AIndex : Integer; const AValue : TRulesetInfo);
begin
If (FrulesetInfo=AValue) then exit;
@@ -2283,7 +2268,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPawsNotifySpectrumUseRequest.SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor);
+Procedure TPawsNotifySpectrumUseRequest.SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor);
begin
If (FdeviceDesc=AValue) then exit;
@@ -2293,7 +2278,7 @@ end;
-Procedure TPawsNotifySpectrumUseRequest.Setlocation(AIndex : Integer; AValue : TGeoLocation);
+Procedure TPawsNotifySpectrumUseRequest.Setlocation(AIndex : Integer; const AValue : TGeoLocation);
begin
If (Flocation=AValue) then exit;
@@ -2303,7 +2288,7 @@ end;
-Procedure TPawsNotifySpectrumUseRequest.Setspectra(AIndex : Integer; AValue : TPawsNotifySpectrumUseRequestTypespectraArray);
+Procedure TPawsNotifySpectrumUseRequest.Setspectra(AIndex : Integer; const AValue : TPawsNotifySpectrumUseRequestTypespectraArray);
begin
If (Fspectra=AValue) then exit;
@@ -2412,7 +2397,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPawsRegisterRequest.Setantenna(AIndex : Integer; AValue : TAntennaCharacteristics);
+Procedure TPawsRegisterRequest.Setantenna(AIndex : Integer; const AValue : TAntennaCharacteristics);
begin
If (Fantenna=AValue) then exit;
@@ -2422,7 +2407,7 @@ end;
-Procedure TPawsRegisterRequest.SetdeviceDesc(AIndex : Integer; AValue : TDeviceDescriptor);
+Procedure TPawsRegisterRequest.SetdeviceDesc(AIndex : Integer; const AValue : TDeviceDescriptor);
begin
If (FdeviceDesc=AValue) then exit;
@@ -2432,7 +2417,7 @@ end;
-Procedure TPawsRegisterRequest.SetdeviceOwner(AIndex : Integer; AValue : TDeviceOwner);
+Procedure TPawsRegisterRequest.SetdeviceOwner(AIndex : Integer; const AValue : TDeviceOwner);
begin
If (FdeviceOwner=AValue) then exit;
@@ -2442,7 +2427,7 @@ end;
-Procedure TPawsRegisterRequest.Setlocation(AIndex : Integer; AValue : TGeoLocation);
+Procedure TPawsRegisterRequest.Setlocation(AIndex : Integer; const AValue : TGeoLocation);
begin
If (Flocation=AValue) then exit;
@@ -2490,7 +2475,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPawsRegisterResponse.SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec);
+Procedure TPawsRegisterResponse.SetdatabaseChange(AIndex : Integer; const AValue : TDbUpdateSpec);
begin
If (FdatabaseChange=AValue) then exit;
@@ -2548,7 +2533,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPawsVerifyDeviceRequest.SetdeviceDescs(AIndex : Integer; AValue : TPawsVerifyDeviceRequestTypedeviceDescsArray);
+Procedure TPawsVerifyDeviceRequest.SetdeviceDescs(AIndex : Integer; const AValue : TPawsVerifyDeviceRequestTypedeviceDescsArray);
begin
If (FdeviceDescs=AValue) then exit;
@@ -2609,7 +2594,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPawsVerifyDeviceResponse.SetdatabaseChange(AIndex : Integer; AValue : TDbUpdateSpec);
+Procedure TPawsVerifyDeviceResponse.SetdatabaseChange(AIndex : Integer; const AValue : TDbUpdateSpec);
begin
If (FdatabaseChange=AValue) then exit;
@@ -2619,7 +2604,7 @@ end;
-Procedure TPawsVerifyDeviceResponse.SetdeviceValidities(AIndex : Integer; AValue : TPawsVerifyDeviceResponseTypedeviceValiditiesArray);
+Procedure TPawsVerifyDeviceResponse.SetdeviceValidities(AIndex : Integer; const AValue : TPawsVerifyDeviceResponseTypedeviceValiditiesArray);
begin
If (FdeviceValidities=AValue) then exit;
@@ -2700,7 +2685,7 @@ end;
-Procedure TRulesetInfo.SetmaxLocationChange(AIndex : Integer; AValue : double);
+Procedure TRulesetInfo.SetmaxLocationChange(AIndex : Integer; const AValue : double);
begin
If (FmaxLocationChange=AValue) then exit;
@@ -2710,7 +2695,7 @@ end;
-Procedure TRulesetInfo.SetmaxPollingSecs(AIndex : Integer; AValue : integer);
+Procedure TRulesetInfo.SetmaxPollingSecs(AIndex : Integer; const AValue : integer);
begin
If (FmaxPollingSecs=AValue) then exit;
@@ -2720,7 +2705,7 @@ end;
-Procedure TRulesetInfo.SetrulesetIds(AIndex : Integer; AValue : TStringArray);
+Procedure TRulesetInfo.SetrulesetIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FrulesetIds=AValue) then exit;
@@ -2750,7 +2735,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSpectrumMessage.Setbandwidth(AIndex : Integer; AValue : double);
+Procedure TSpectrumMessage.Setbandwidth(AIndex : Integer; const AValue : double);
begin
If (Fbandwidth=AValue) then exit;
@@ -2760,7 +2745,7 @@ end;
-Procedure TSpectrumMessage.SetfrequencyRanges(AIndex : Integer; AValue : TSpectrumMessageTypefrequencyRangesArray);
+Procedure TSpectrumMessage.SetfrequencyRanges(AIndex : Integer; const AValue : TSpectrumMessageTypefrequencyRangesArray);
begin
If (FfrequencyRanges=AValue) then exit;
@@ -2790,7 +2775,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSpectrumSchedule.SeteventTime(AIndex : Integer; AValue : TEventTime);
+Procedure TSpectrumSchedule.SeteventTime(AIndex : Integer; const AValue : TEventTime);
begin
If (FeventTime=AValue) then exit;
@@ -2800,7 +2785,7 @@ end;
-Procedure TSpectrumSchedule.Setspectra(AIndex : Integer; AValue : TSpectrumScheduleTypespectraArray);
+Procedure TSpectrumSchedule.Setspectra(AIndex : Integer; const AValue : TSpectrumScheduleTypespectraArray);
begin
If (Fspectra=AValue) then exit;
@@ -2830,7 +2815,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVcard.Setadr(AIndex : Integer; AValue : TVcardAddress);
+Procedure TVcard.Setadr(AIndex : Integer; const AValue : TVcardAddress);
begin
If (Fadr=AValue) then exit;
@@ -2840,7 +2825,7 @@ end;
-Procedure TVcard.Setemail(AIndex : Integer; AValue : TVcardTypedText);
+Procedure TVcard.Setemail(AIndex : Integer; const AValue : TVcardTypedText);
begin
If (Femail=AValue) then exit;
@@ -2860,7 +2845,7 @@ end;
-Procedure TVcard.Setorg(AIndex : Integer; AValue : TVcardTypedText);
+Procedure TVcard.Setorg(AIndex : Integer; const AValue : TVcardTypedText);
begin
If (Forg=AValue) then exit;
@@ -2870,7 +2855,7 @@ end;
-Procedure TVcard.Settel(AIndex : Integer; AValue : TVcardTelephone);
+Procedure TVcard.Settel(AIndex : Integer; const AValue : TVcardTelephone);
begin
If (Ftel=AValue) then exit;
@@ -3087,7 +3072,7 @@ end;
Class Function TSpectrumAPI.APIRevision : String;
begin
- Result:='20150112';
+ Result:='20160404';
end;
Class Function TSpectrumAPI.APIID : String;
@@ -3141,7 +3126,7 @@ end;
Class Function TSpectrumAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TSpectrumAPI.APIbasePath : string;
@@ -3153,7 +3138,7 @@ end;
Class Function TSpectrumAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/spectrum/v1explorer/paws/';
+ Result:='https://www.googleapis.com/spectrum/v1explorer/paws/';
end;
Class Function TSpectrumAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlesqladmin.pp b/packages/googleapi/src/googlesqladmin.pp
index 7e2eddd905..f0e297e7d0 100644
--- a/packages/googleapi/src/googlesqladmin.pp
+++ b/packages/googleapi/src/googlesqladmin.pp
@@ -1,19 +1,4 @@
unit googlesqladmin;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:08
{$MODE objfpc}
{$H+}
@@ -35,17 +20,20 @@ type
TDatabaseInstance = Class;
TDatabasesListResponse = Class;
TExportContext = Class;
+ TFailoverContext = Class;
TFlag = Class;
TFlagsListResponse = Class;
TImportContext = Class;
TInstancesCloneRequest = Class;
TInstancesExportRequest = Class;
+ TInstancesFailoverRequest = Class;
TInstancesImportRequest = Class;
TInstancesListResponse = Class;
TInstancesRestoreBackupRequest = Class;
TIpConfiguration = Class;
TIpMapping = Class;
TLocationPreference = Class;
+ TMaintenanceWindow = Class;
TMySqlReplicaConfiguration = Class;
TOnPremisesConfiguration = Class;
TOperation = Class;
@@ -57,6 +45,7 @@ type
TSettings = Class;
TSslCert = Class;
TSslCertDetail = Class;
+ TSslCertsCreateEphemeralRequest = Class;
TSslCertsInsertRequest = Class;
TSslCertsInsertResponse = Class;
TSslCertsListResponse = Class;
@@ -75,17 +64,20 @@ type
TDatabaseInstanceArray = Array of TDatabaseInstance;
TDatabasesListResponseArray = Array of TDatabasesListResponse;
TExportContextArray = Array of TExportContext;
+ TFailoverContextArray = Array of TFailoverContext;
TFlagArray = Array of TFlag;
TFlagsListResponseArray = Array of TFlagsListResponse;
TImportContextArray = Array of TImportContext;
TInstancesCloneRequestArray = Array of TInstancesCloneRequest;
TInstancesExportRequestArray = Array of TInstancesExportRequest;
+ TInstancesFailoverRequestArray = Array of TInstancesFailoverRequest;
TInstancesImportRequestArray = Array of TInstancesImportRequest;
TInstancesListResponseArray = Array of TInstancesListResponse;
TInstancesRestoreBackupRequestArray = Array of TInstancesRestoreBackupRequest;
TIpConfigurationArray = Array of TIpConfiguration;
TIpMappingArray = Array of TIpMapping;
TLocationPreferenceArray = Array of TLocationPreference;
+ TMaintenanceWindowArray = Array of TMaintenanceWindow;
TMySqlReplicaConfigurationArray = Array of TMySqlReplicaConfiguration;
TOnPremisesConfigurationArray = Array of TOnPremisesConfiguration;
TOperationArray = Array of TOperation;
@@ -97,6 +89,7 @@ type
TSettingsArray = Array of TSettings;
TSslCertArray = Array of TSslCert;
TSslCertDetailArray = Array of TSslCertDetail;
+ TSslCertsCreateEphemeralRequestArray = Array of TSslCertsCreateEphemeralRequest;
TSslCertsInsertRequestArray = Array of TSslCertsInsertRequest;
TSslCertsInsertResponseArray = Array of TSslCertsInsertResponse;
TSslCertsListResponseArray = Array of TSslCertsListResponse;
@@ -105,6 +98,7 @@ type
TUserArray = Array of TUser;
TUsersListResponseArray = Array of TUsersListResponse;
//Anonymous types, using auto-generated names
+ TDatabaseInstanceTypefailoverReplica = Class;
TExportContextTypecsvExportOptions = Class;
TExportContextTypesqlExportOptions = Class;
TImportContextTypecsvImportOptions = Class;
@@ -133,7 +127,7 @@ type
Fvalue : String;
Protected
//Property setters
- Procedure SetexpirationTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetexpirationTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
@@ -158,8 +152,8 @@ type
FstartTime : String;
Protected
//Property setters
- Procedure SetbinaryLogEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setenabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetbinaryLogEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setenabled(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
Public
@@ -189,16 +183,16 @@ type
FwindowStartTime : TDatetime;
Protected
//Property setters
- Procedure SetendTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetenqueuedTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Seterror(AIndex : Integer; AValue : TOperationError); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetenqueuedTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TOperationError); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetwindowStartTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetwindowStartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property endTime : TDatetime Index 0 Read FendTime Write SetendTime;
@@ -225,7 +219,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TBackupRunsListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TBackupRunsListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -273,7 +267,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure SetbinLogCoordinates(AIndex : Integer; AValue : TBinLogCoordinates); virtual;
+ Procedure SetbinLogCoordinates(AIndex : Integer; const AValue : TBinLogCoordinates); virtual;
Procedure SetdestinationInstanceName(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
@@ -341,14 +335,35 @@ type
TDatabaseFlagsClass = Class of TDatabaseFlags;
{ --------------------------------------------------------------------
+ TDatabaseInstanceTypefailoverReplica
+ --------------------------------------------------------------------}
+
+ TDatabaseInstanceTypefailoverReplica = Class(TGoogleBaseObject)
+ Private
+ Favailable : boolean;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure Setavailable(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property available : boolean Index 0 Read Favailable Write Setavailable;
+ Property name : String Index 8 Read Fname Write Setname;
+ end;
+ TDatabaseInstanceTypefailoverReplicaClass = Class of TDatabaseInstanceTypefailoverReplica;
+
+ { --------------------------------------------------------------------
TDatabaseInstance
--------------------------------------------------------------------}
TDatabaseInstance = Class(TGoogleBaseObject)
Private
+ FbackendType : String;
FcurrentDiskSize : String;
FdatabaseVersion : String;
Fetag : String;
+ FfailoverReplica : TDatabaseInstanceTypefailoverReplica;
FinstanceType : String;
FipAddresses : TDatabaseInstanceTypeipAddressesArray;
Fipv6Address : String;
@@ -366,54 +381,61 @@ type
FserviceAccountEmailAddress : String;
Fsettings : TSettings;
Fstate : String;
+ FsuspensionReason : TStringArray;
Protected
//Property setters
+ Procedure SetbackendType(AIndex : Integer; const AValue : String); virtual;
Procedure SetcurrentDiskSize(AIndex : Integer; const AValue : String); virtual;
Procedure SetdatabaseVersion(AIndex : Integer; const AValue : String); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfailoverReplica(AIndex : Integer; const AValue : TDatabaseInstanceTypefailoverReplica); virtual;
Procedure SetinstanceType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetipAddresses(AIndex : Integer; AValue : TDatabaseInstanceTypeipAddressesArray); virtual;
+ Procedure SetipAddresses(AIndex : Integer; const AValue : TDatabaseInstanceTypeipAddressesArray); virtual;
Procedure Setipv6Address(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetmasterInstanceName(AIndex : Integer; const AValue : String); virtual;
Procedure SetmaxDiskSize(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetonPremisesConfiguration(AIndex : Integer; AValue : TOnPremisesConfiguration); virtual;
+ Procedure SetonPremisesConfiguration(AIndex : Integer; const AValue : TOnPremisesConfiguration); virtual;
Procedure Setproject(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetreplicaConfiguration(AIndex : Integer; AValue : TReplicaConfiguration); virtual;
- Procedure SetreplicaNames(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetreplicaConfiguration(AIndex : Integer; const AValue : TReplicaConfiguration); virtual;
+ Procedure SetreplicaNames(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetserverCaCert(AIndex : Integer; AValue : TSslCert); virtual;
+ Procedure SetserverCaCert(AIndex : Integer; const AValue : TSslCert); virtual;
Procedure SetserviceAccountEmailAddress(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsettings(AIndex : Integer; AValue : TSettings); virtual;
+ Procedure Setsettings(AIndex : Integer; const AValue : TSettings); virtual;
Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsuspensionReason(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 currentDiskSize : String Index 0 Read FcurrentDiskSize Write SetcurrentDiskSize;
- Property databaseVersion : String Index 8 Read FdatabaseVersion Write SetdatabaseVersion;
- Property etag : String Index 16 Read Fetag Write Setetag;
- Property instanceType : String Index 24 Read FinstanceType Write SetinstanceType;
- Property ipAddresses : TDatabaseInstanceTypeipAddressesArray Index 32 Read FipAddresses Write SetipAddresses;
- Property ipv6Address : String Index 40 Read Fipv6Address Write Setipv6Address;
- Property kind : String Index 48 Read Fkind Write Setkind;
- Property masterInstanceName : String Index 56 Read FmasterInstanceName Write SetmasterInstanceName;
- Property maxDiskSize : String Index 64 Read FmaxDiskSize Write SetmaxDiskSize;
- Property name : String Index 72 Read Fname Write Setname;
- Property onPremisesConfiguration : TOnPremisesConfiguration Index 80 Read FonPremisesConfiguration Write SetonPremisesConfiguration;
- Property project : String Index 88 Read Fproject Write Setproject;
- Property region : String Index 96 Read Fregion Write Setregion;
- Property replicaConfiguration : TReplicaConfiguration Index 104 Read FreplicaConfiguration Write SetreplicaConfiguration;
- Property replicaNames : TStringArray Index 112 Read FreplicaNames Write SetreplicaNames;
- Property selfLink : String Index 120 Read FselfLink Write SetselfLink;
- Property serverCaCert : TSslCert Index 128 Read FserverCaCert Write SetserverCaCert;
- Property serviceAccountEmailAddress : String Index 136 Read FserviceAccountEmailAddress Write SetserviceAccountEmailAddress;
- Property settings : TSettings Index 144 Read Fsettings Write Setsettings;
- Property state : String Index 152 Read Fstate Write Setstate;
+ Property backendType : String Index 0 Read FbackendType Write SetbackendType;
+ Property currentDiskSize : String Index 8 Read FcurrentDiskSize Write SetcurrentDiskSize;
+ Property databaseVersion : String Index 16 Read FdatabaseVersion Write SetdatabaseVersion;
+ Property etag : String Index 24 Read Fetag Write Setetag;
+ Property failoverReplica : TDatabaseInstanceTypefailoverReplica Index 32 Read FfailoverReplica Write SetfailoverReplica;
+ Property instanceType : String Index 40 Read FinstanceType Write SetinstanceType;
+ Property ipAddresses : TDatabaseInstanceTypeipAddressesArray Index 48 Read FipAddresses Write SetipAddresses;
+ Property ipv6Address : String Index 56 Read Fipv6Address Write Setipv6Address;
+ Property kind : String Index 64 Read Fkind Write Setkind;
+ Property masterInstanceName : String Index 72 Read FmasterInstanceName Write SetmasterInstanceName;
+ Property maxDiskSize : String Index 80 Read FmaxDiskSize Write SetmaxDiskSize;
+ Property name : String Index 88 Read Fname Write Setname;
+ Property onPremisesConfiguration : TOnPremisesConfiguration Index 96 Read FonPremisesConfiguration Write SetonPremisesConfiguration;
+ Property project : String Index 104 Read Fproject Write Setproject;
+ Property region : String Index 112 Read Fregion Write Setregion;
+ Property replicaConfiguration : TReplicaConfiguration Index 120 Read FreplicaConfiguration Write SetreplicaConfiguration;
+ Property replicaNames : TStringArray Index 128 Read FreplicaNames Write SetreplicaNames;
+ Property selfLink : String Index 136 Read FselfLink Write SetselfLink;
+ Property serverCaCert : TSslCert Index 144 Read FserverCaCert Write SetserverCaCert;
+ Property serviceAccountEmailAddress : String Index 152 Read FserviceAccountEmailAddress Write SetserviceAccountEmailAddress;
+ Property settings : TSettings Index 160 Read Fsettings Write Setsettings;
+ Property state : String Index 168 Read Fstate Write Setstate;
+ Property suspensionReason : TStringArray Index 176 Read FsuspensionReason Write SetsuspensionReason;
end;
TDatabaseInstanceClass = Class of TDatabaseInstance;
@@ -427,7 +449,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TDatabasesListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TDatabasesListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -462,17 +484,20 @@ type
TExportContextTypesqlExportOptions = Class(TGoogleBaseObject)
Private
+ FschemaOnly : boolean;
Ftables : TStringArray;
Protected
//Property setters
- Procedure Settables(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetschemaOnly(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Settables(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 tables : TStringArray Index 0 Read Ftables Write Settables;
+ Property schemaOnly : boolean Index 0 Read FschemaOnly Write SetschemaOnly;
+ Property tables : TStringArray Index 8 Read Ftables Write Settables;
end;
TExportContextTypesqlExportOptionsClass = Class of TExportContextTypesqlExportOptions;
@@ -490,11 +515,11 @@ type
Furi : String;
Protected
//Property setters
- Procedure SetcsvExportOptions(AIndex : Integer; AValue : TExportContextTypecsvExportOptions); virtual;
- Procedure Setdatabases(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetcsvExportOptions(AIndex : Integer; const AValue : TExportContextTypecsvExportOptions); virtual;
+ Procedure Setdatabases(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetfileType(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsqlExportOptions(AIndex : Integer; AValue : TExportContextTypesqlExportOptions); virtual;
+ Procedure SetsqlExportOptions(AIndex : Integer; const AValue : TExportContextTypesqlExportOptions); virtual;
Procedure Seturi(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -512,6 +537,25 @@ type
TExportContextClass = Class of TExportContext;
{ --------------------------------------------------------------------
+ TFailoverContext
+ --------------------------------------------------------------------}
+
+ TFailoverContext = Class(TGoogleBaseObject)
+ Private
+ Fkind : String;
+ FsettingsVersion : String;
+ Protected
+ //Property setters
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsettingsVersion(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property kind : String Index 0 Read Fkind Write Setkind;
+ Property settingsVersion : String Index 8 Read FsettingsVersion Write SetsettingsVersion;
+ end;
+ TFailoverContextClass = Class of TFailoverContext;
+
+ { --------------------------------------------------------------------
TFlag
--------------------------------------------------------------------}
@@ -523,16 +567,18 @@ type
FmaxValue : String;
FminValue : String;
Fname : String;
+ FrequiresRestart : boolean;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure SetallowedStringValues(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetappliesTo(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetallowedStringValues(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetappliesTo(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetmaxValue(AIndex : Integer; const AValue : String); virtual;
Procedure SetminValue(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrequiresRestart(AIndex : Integer; const AValue : boolean); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -546,7 +592,8 @@ type
Property maxValue : String Index 24 Read FmaxValue Write SetmaxValue;
Property minValue : String Index 32 Read FminValue Write SetminValue;
Property name : String Index 40 Read Fname Write Setname;
- Property _type : String Index 48 Read F_type Write Set_type;
+ Property requiresRestart : boolean Index 48 Read FrequiresRestart Write SetrequiresRestart;
+ Property _type : String Index 56 Read F_type Write Set_type;
end;
TFlagClass = Class of TFlag;
@@ -560,7 +607,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TFlagsListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TFlagsListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -583,7 +630,7 @@ type
Ftable : String;
Protected
//Property setters
- Procedure Setcolumns(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setcolumns(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Settable(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -609,7 +656,7 @@ type
Furi : String;
Protected
//Property setters
- Procedure SetcsvImportOptions(AIndex : Integer; AValue : TImportContextTypecsvImportOptions); virtual;
+ Procedure SetcsvImportOptions(AIndex : Integer; const AValue : TImportContextTypecsvImportOptions); virtual;
Procedure Setdatabase(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileType(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
@@ -633,7 +680,7 @@ type
FcloneContext : TCloneContext;
Protected
//Property setters
- Procedure SetcloneContext(AIndex : Integer; AValue : TCloneContext); virtual;
+ Procedure SetcloneContext(AIndex : Integer; const AValue : TCloneContext); virtual;
Public
Published
Property cloneContext : TCloneContext Index 0 Read FcloneContext Write SetcloneContext;
@@ -649,7 +696,7 @@ type
FexportContext : TExportContext;
Protected
//Property setters
- Procedure SetexportContext(AIndex : Integer; AValue : TExportContext); virtual;
+ Procedure SetexportContext(AIndex : Integer; const AValue : TExportContext); virtual;
Public
Published
Property exportContext : TExportContext Index 0 Read FexportContext Write SetexportContext;
@@ -657,6 +704,22 @@ type
TInstancesExportRequestClass = Class of TInstancesExportRequest;
{ --------------------------------------------------------------------
+ TInstancesFailoverRequest
+ --------------------------------------------------------------------}
+
+ TInstancesFailoverRequest = Class(TGoogleBaseObject)
+ Private
+ FfailoverContext : TFailoverContext;
+ Protected
+ //Property setters
+ Procedure SetfailoverContext(AIndex : Integer; const AValue : TFailoverContext); virtual;
+ Public
+ Published
+ Property failoverContext : TFailoverContext Index 0 Read FfailoverContext Write SetfailoverContext;
+ end;
+ TInstancesFailoverRequestClass = Class of TInstancesFailoverRequest;
+
+ { --------------------------------------------------------------------
TInstancesImportRequest
--------------------------------------------------------------------}
@@ -665,7 +728,7 @@ type
FimportContext : TImportContext;
Protected
//Property setters
- Procedure SetimportContext(AIndex : Integer; AValue : TImportContext); virtual;
+ Procedure SetimportContext(AIndex : Integer; const AValue : TImportContext); virtual;
Public
Published
Property importContext : TImportContext Index 0 Read FimportContext Write SetimportContext;
@@ -683,7 +746,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TInstancesListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInstancesListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -707,7 +770,7 @@ type
FrestoreBackupContext : TRestoreBackupContext;
Protected
//Property setters
- Procedure SetrestoreBackupContext(AIndex : Integer; AValue : TRestoreBackupContext); virtual;
+ Procedure SetrestoreBackupContext(AIndex : Integer; const AValue : TRestoreBackupContext); virtual;
Public
Published
Property restoreBackupContext : TRestoreBackupContext Index 0 Read FrestoreBackupContext Write SetrestoreBackupContext;
@@ -725,9 +788,9 @@ type
FrequireSsl : boolean;
Protected
//Property setters
- Procedure SetauthorizedNetworks(AIndex : Integer; AValue : TIpConfigurationTypeauthorizedNetworksArray); virtual;
- Procedure Setipv4Enabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetrequireSsl(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetauthorizedNetworks(AIndex : Integer; const AValue : TIpConfigurationTypeauthorizedNetworksArray); virtual;
+ Procedure Setipv4Enabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetrequireSsl(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -751,7 +814,7 @@ type
Protected
//Property setters
Procedure SetipAddress(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeToRetire(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SettimeToRetire(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property ipAddress : String Index 0 Read FipAddress Write SetipAddress;
@@ -782,6 +845,31 @@ type
TLocationPreferenceClass = Class of TLocationPreference;
{ --------------------------------------------------------------------
+ TMaintenanceWindow
+ --------------------------------------------------------------------}
+
+ TMaintenanceWindow = Class(TGoogleBaseObject)
+ Private
+ Fday : integer;
+ Fhour : integer;
+ Fkind : String;
+ FupdateTrack : String;
+ Protected
+ //Property setters
+ Procedure Setday(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Sethour(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetupdateTrack(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property day : integer Index 0 Read Fday Write Setday;
+ Property hour : integer Index 8 Read Fhour Write Sethour;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property updateTrack : String Index 24 Read FupdateTrack Write SetupdateTrack;
+ end;
+ TMaintenanceWindowClass = Class of TMaintenanceWindow;
+
+ { --------------------------------------------------------------------
TMySqlReplicaConfiguration
--------------------------------------------------------------------}
@@ -803,14 +891,14 @@ type
Procedure SetcaCertificate(AIndex : Integer; const AValue : String); virtual;
Procedure SetclientCertificate(AIndex : Integer; const AValue : String); virtual;
Procedure SetclientKey(AIndex : Integer; const AValue : String); virtual;
- Procedure SetconnectRetryInterval(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetconnectRetryInterval(AIndex : Integer; const AValue : integer); virtual;
Procedure SetdumpFilePath(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetmasterHeartbeatPeriod(AIndex : Integer; const AValue : String); virtual;
Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
Procedure SetsslCipher(AIndex : Integer; const AValue : String); virtual;
Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
- Procedure SetverifyServerCertificate(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetverifyServerCertificate(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property caCertificate : String Index 0 Read FcaCertificate Write SetcaCertificate;
@@ -869,16 +957,16 @@ type
Fuser : String;
Protected
//Property setters
- Procedure SetendTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Seterror(AIndex : Integer; AValue : TOperationErrors); virtual;
- Procedure SetexportContext(AIndex : Integer; AValue : TExportContext); virtual;
- Procedure SetimportContext(AIndex : Integer; AValue : TImportContext); virtual;
- Procedure SetinsertTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TOperationErrors); virtual;
+ Procedure SetexportContext(AIndex : Integer; const AValue : TExportContext); virtual;
+ Procedure SetimportContext(AIndex : Integer; const AValue : TImportContext); virtual;
+ Procedure SetinsertTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstartTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
@@ -936,7 +1024,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Seterrors(AIndex : Integer; AValue : TOperationErrorsTypeerrorsArray); virtual;
+ Procedure Seterrors(AIndex : Integer; const AValue : TOperationErrorsTypeerrorsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -960,7 +1048,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TOperationsListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TOperationsListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -981,16 +1069,19 @@ type
TReplicaConfiguration = Class(TGoogleBaseObject)
Private
+ FfailoverTarget : boolean;
Fkind : String;
FmysqlReplicaConfiguration : TMySqlReplicaConfiguration;
Protected
//Property setters
+ Procedure SetfailoverTarget(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmysqlReplicaConfiguration(AIndex : Integer; AValue : TMySqlReplicaConfiguration); virtual;
+ Procedure SetmysqlReplicaConfiguration(AIndex : Integer; const AValue : TMySqlReplicaConfiguration); virtual;
Public
Published
- Property kind : String Index 0 Read Fkind Write Setkind;
- Property mysqlReplicaConfiguration : TMySqlReplicaConfiguration Index 8 Read FmysqlReplicaConfiguration Write SetmysqlReplicaConfiguration;
+ Property failoverTarget : boolean Index 0 Read FfailoverTarget Write SetfailoverTarget;
+ Property kind : String Index 8 Read Fkind Write Setkind;
+ Property mysqlReplicaConfiguration : TMySqlReplicaConfiguration Index 16 Read FmysqlReplicaConfiguration Write SetmysqlReplicaConfiguration;
end;
TReplicaConfigurationClass = Class of TReplicaConfiguration;
@@ -1026,29 +1117,37 @@ type
FauthorizedGaeApplications : TStringArray;
FbackupConfiguration : TBackupConfiguration;
FcrashSafeReplicationEnabled : boolean;
+ FdataDiskSizeGb : String;
+ FdataDiskType : String;
FdatabaseFlags : TSettingsTypedatabaseFlagsArray;
FdatabaseReplicationEnabled : boolean;
FipConfiguration : TIpConfiguration;
Fkind : String;
FlocationPreference : TLocationPreference;
+ FmaintenanceWindow : TMaintenanceWindow;
FpricingPlan : String;
FreplicationType : String;
FsettingsVersion : String;
+ FstorageAutoResize : boolean;
Ftier : String;
Protected
//Property setters
Procedure SetactivationPolicy(AIndex : Integer; const AValue : String); virtual;
- Procedure SetauthorizedGaeApplications(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetbackupConfiguration(AIndex : Integer; AValue : TBackupConfiguration); virtual;
- Procedure SetcrashSafeReplicationEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetdatabaseFlags(AIndex : Integer; AValue : TSettingsTypedatabaseFlagsArray); virtual;
- Procedure SetdatabaseReplicationEnabled(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetipConfiguration(AIndex : Integer; AValue : TIpConfiguration); virtual;
+ Procedure SetauthorizedGaeApplications(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetbackupConfiguration(AIndex : Integer; const AValue : TBackupConfiguration); virtual;
+ Procedure SetcrashSafeReplicationEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdataDiskSizeGb(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdataDiskType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdatabaseFlags(AIndex : Integer; const AValue : TSettingsTypedatabaseFlagsArray); virtual;
+ Procedure SetdatabaseReplicationEnabled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetipConfiguration(AIndex : Integer; const AValue : TIpConfiguration); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlocationPreference(AIndex : Integer; AValue : TLocationPreference); virtual;
+ Procedure SetlocationPreference(AIndex : Integer; const AValue : TLocationPreference); virtual;
+ Procedure SetmaintenanceWindow(AIndex : Integer; const AValue : TMaintenanceWindow); virtual;
Procedure SetpricingPlan(AIndex : Integer; const AValue : String); virtual;
Procedure SetreplicationType(AIndex : Integer; const AValue : String); virtual;
Procedure SetsettingsVersion(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstorageAutoResize(AIndex : Integer; const AValue : boolean); virtual;
Procedure Settier(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1060,15 +1159,19 @@ type
Property authorizedGaeApplications : TStringArray Index 8 Read FauthorizedGaeApplications Write SetauthorizedGaeApplications;
Property backupConfiguration : TBackupConfiguration Index 16 Read FbackupConfiguration Write SetbackupConfiguration;
Property crashSafeReplicationEnabled : boolean Index 24 Read FcrashSafeReplicationEnabled Write SetcrashSafeReplicationEnabled;
- Property databaseFlags : TSettingsTypedatabaseFlagsArray Index 32 Read FdatabaseFlags Write SetdatabaseFlags;
- Property databaseReplicationEnabled : boolean Index 40 Read FdatabaseReplicationEnabled Write SetdatabaseReplicationEnabled;
- Property ipConfiguration : TIpConfiguration Index 48 Read FipConfiguration Write SetipConfiguration;
- Property kind : String Index 56 Read Fkind Write Setkind;
- Property locationPreference : TLocationPreference Index 64 Read FlocationPreference Write SetlocationPreference;
- Property pricingPlan : String Index 72 Read FpricingPlan Write SetpricingPlan;
- Property replicationType : String Index 80 Read FreplicationType Write SetreplicationType;
- Property settingsVersion : String Index 88 Read FsettingsVersion Write SetsettingsVersion;
- Property tier : String Index 96 Read Ftier Write Settier;
+ Property dataDiskSizeGb : String Index 32 Read FdataDiskSizeGb Write SetdataDiskSizeGb;
+ Property dataDiskType : String Index 40 Read FdataDiskType Write SetdataDiskType;
+ Property databaseFlags : TSettingsTypedatabaseFlagsArray Index 48 Read FdatabaseFlags Write SetdatabaseFlags;
+ Property databaseReplicationEnabled : boolean Index 56 Read FdatabaseReplicationEnabled Write SetdatabaseReplicationEnabled;
+ Property ipConfiguration : TIpConfiguration Index 64 Read FipConfiguration Write SetipConfiguration;
+ Property kind : String Index 72 Read Fkind Write Setkind;
+ Property locationPreference : TLocationPreference Index 80 Read FlocationPreference Write SetlocationPreference;
+ Property maintenanceWindow : TMaintenanceWindow Index 88 Read FmaintenanceWindow Write SetmaintenanceWindow;
+ Property pricingPlan : String Index 96 Read FpricingPlan Write SetpricingPlan;
+ Property replicationType : String Index 104 Read FreplicationType Write SetreplicationType;
+ Property settingsVersion : String Index 112 Read FsettingsVersion Write SetsettingsVersion;
+ Property storageAutoResize : boolean Index 120 Read FstorageAutoResize Write SetstorageAutoResize;
+ Property tier : String Index 128 Read Ftier Write Settier;
end;
TSettingsClass = Class of TSettings;
@@ -1092,8 +1195,8 @@ type
Procedure Setcert(AIndex : Integer; const AValue : String); virtual;
Procedure SetcertSerialNumber(AIndex : Integer; const AValue : String); virtual;
Procedure SetcommonName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreateTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetexpirationTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetexpirationTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
@@ -1122,7 +1225,7 @@ type
FcertPrivateKey : String;
Protected
//Property setters
- Procedure SetcertInfo(AIndex : Integer; AValue : TSslCert); virtual;
+ Procedure SetcertInfo(AIndex : Integer; const AValue : TSslCert); virtual;
Procedure SetcertPrivateKey(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1132,6 +1235,22 @@ type
TSslCertDetailClass = Class of TSslCertDetail;
{ --------------------------------------------------------------------
+ TSslCertsCreateEphemeralRequest
+ --------------------------------------------------------------------}
+
+ TSslCertsCreateEphemeralRequest = Class(TGoogleBaseObject)
+ Private
+ Fpublic_key : String;
+ Protected
+ //Property setters
+ Procedure Setpublic_key(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property public_key : String Index 0 Read Fpublic_key Write Setpublic_key;
+ end;
+ TSslCertsCreateEphemeralRequestClass = Class of TSslCertsCreateEphemeralRequest;
+
+ { --------------------------------------------------------------------
TSslCertsInsertRequest
--------------------------------------------------------------------}
@@ -1155,17 +1274,20 @@ type
Private
FclientCert : TSslCertDetail;
Fkind : String;
+ Foperation : TOperation;
FserverCaCert : TSslCert;
Protected
//Property setters
- Procedure SetclientCert(AIndex : Integer; AValue : TSslCertDetail); virtual;
+ Procedure SetclientCert(AIndex : Integer; const AValue : TSslCertDetail); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetserverCaCert(AIndex : Integer; AValue : TSslCert); virtual;
+ Procedure Setoperation(AIndex : Integer; const AValue : TOperation); virtual;
+ Procedure SetserverCaCert(AIndex : Integer; const AValue : TSslCert); virtual;
Public
Published
Property clientCert : TSslCertDetail Index 0 Read FclientCert Write SetclientCert;
Property kind : String Index 8 Read Fkind Write Setkind;
- Property serverCaCert : TSslCert Index 16 Read FserverCaCert Write SetserverCaCert;
+ Property operation : TOperation Index 16 Read Foperation Write Setoperation;
+ Property serverCaCert : TSslCert Index 24 Read FserverCaCert Write SetserverCaCert;
end;
TSslCertsInsertResponseClass = Class of TSslCertsInsertResponse;
@@ -1179,7 +1301,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TSslCertsListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSslCertsListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1208,7 +1330,7 @@ type
Procedure SetDiskQuota(AIndex : Integer; const AValue : String); virtual;
Procedure SetRAM(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setregion(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setregion(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Settier(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1234,7 +1356,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TTiersListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTiersListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1292,7 +1414,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TUsersListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TUsersListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1323,6 +1445,7 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Delete(id: string; instance: string; project: string) : TOperation;
Function Get(id: string; instance: string; project: string) : TBackupRun;
Function List(instance: string; project: string; AQuery : string = '') : TBackupRunsListResponse;
Function List(instance: string; project: string; AQuery : TBackupRunslistOptions) : TBackupRunsListResponse;
@@ -1377,6 +1500,7 @@ type
Function Clone(instance: string; project: string; aInstancesCloneRequest : TInstancesCloneRequest) : TOperation;
Function Delete(instance: string; project: string) : TOperation;
Function Export(instance: string; project: string; aInstancesExportRequest : TInstancesExportRequest) : TOperation;
+ Function Failover(instance: string; project: string; aInstancesFailoverRequest : TInstancesFailoverRequest) : TOperation;
Function Get(instance: string; project: string) : TDatabaseInstance;
Function Import(instance: string; project: string; aInstancesImportRequest : TInstancesImportRequest) : TOperation;
Function Insert(project: string; aDatabaseInstance : TDatabaseInstance) : TOperation;
@@ -1424,6 +1548,7 @@ type
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function CreateEphemeral(instance: string; project: string; aSslCertsCreateEphemeralRequest : TSslCertsCreateEphemeralRequest) : TSslCert;
Function Delete(instance: string; project: string; sha1Fingerprint: string) : TOperation;
Function Get(instance: string; project: string; sha1Fingerprint: string) : TSslCert;
Function Insert(instance: string; project: string; aSslCertsInsertRequest : TSslCertsInsertRequest) : TSslCertsInsertResponse;
@@ -1556,7 +1681,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TAclEntry.SetexpirationTime(AIndex : Integer; AValue : TDatetime);
+Procedure TAclEntry.SetexpirationTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FexpirationTime=AValue) then exit;
@@ -1603,7 +1728,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBackupConfiguration.SetbinaryLogEnabled(AIndex : Integer; AValue : boolean);
+Procedure TBackupConfiguration.SetbinaryLogEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FbinaryLogEnabled=AValue) then exit;
@@ -1613,7 +1738,7 @@ end;
-Procedure TBackupConfiguration.Setenabled(AIndex : Integer; AValue : boolean);
+Procedure TBackupConfiguration.Setenabled(AIndex : Integer; const AValue : boolean);
begin
If (Fenabled=AValue) then exit;
@@ -1650,7 +1775,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBackupRun.SetendTime(AIndex : Integer; AValue : TDatetime);
+Procedure TBackupRun.SetendTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FendTime=AValue) then exit;
@@ -1660,7 +1785,7 @@ end;
-Procedure TBackupRun.SetenqueuedTime(AIndex : Integer; AValue : TDatetime);
+Procedure TBackupRun.SetenqueuedTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FenqueuedTime=AValue) then exit;
@@ -1670,7 +1795,7 @@ end;
-Procedure TBackupRun.Seterror(AIndex : Integer; AValue : TOperationError);
+Procedure TBackupRun.Seterror(AIndex : Integer; const AValue : TOperationError);
begin
If (Ferror=AValue) then exit;
@@ -1720,7 +1845,7 @@ end;
-Procedure TBackupRun.SetstartTime(AIndex : Integer; AValue : TDatetime);
+Procedure TBackupRun.SetstartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FstartTime=AValue) then exit;
@@ -1740,7 +1865,7 @@ end;
-Procedure TBackupRun.SetwindowStartTime(AIndex : Integer; AValue : TDatetime);
+Procedure TBackupRun.SetwindowStartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FwindowStartTime=AValue) then exit;
@@ -1757,7 +1882,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBackupRunsListResponse.Setitems(AIndex : Integer; AValue : TBackupRunsListResponseTypeitemsArray);
+Procedure TBackupRunsListResponse.Setitems(AIndex : Integer; const AValue : TBackupRunsListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1844,7 +1969,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCloneContext.SetbinLogCoordinates(AIndex : Integer; AValue : TBinLogCoordinates);
+Procedure TCloneContext.SetbinLogCoordinates(AIndex : Integer; const AValue : TBinLogCoordinates);
begin
If (FbinLogCoordinates=AValue) then exit;
@@ -1991,10 +2116,47 @@ end;
{ --------------------------------------------------------------------
+ TDatabaseInstanceTypefailoverReplica
+ --------------------------------------------------------------------}
+
+
+Procedure TDatabaseInstanceTypefailoverReplica.Setavailable(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Favailable=AValue) then exit;
+ Favailable:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDatabaseInstanceTypefailoverReplica.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TDatabaseInstance
--------------------------------------------------------------------}
+Procedure TDatabaseInstance.SetbackendType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbackendType=AValue) then exit;
+ FbackendType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TDatabaseInstance.SetcurrentDiskSize(AIndex : Integer; const AValue : String);
begin
@@ -2025,6 +2187,16 @@ end;
+Procedure TDatabaseInstance.SetfailoverReplica(AIndex : Integer; const AValue : TDatabaseInstanceTypefailoverReplica);
+
+begin
+ If (FfailoverReplica=AValue) then exit;
+ FfailoverReplica:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TDatabaseInstance.SetinstanceType(AIndex : Integer; const AValue : String);
begin
@@ -2035,7 +2207,7 @@ end;
-Procedure TDatabaseInstance.SetipAddresses(AIndex : Integer; AValue : TDatabaseInstanceTypeipAddressesArray);
+Procedure TDatabaseInstance.SetipAddresses(AIndex : Integer; const AValue : TDatabaseInstanceTypeipAddressesArray);
begin
If (FipAddresses=AValue) then exit;
@@ -2095,7 +2267,7 @@ end;
-Procedure TDatabaseInstance.SetonPremisesConfiguration(AIndex : Integer; AValue : TOnPremisesConfiguration);
+Procedure TDatabaseInstance.SetonPremisesConfiguration(AIndex : Integer; const AValue : TOnPremisesConfiguration);
begin
If (FonPremisesConfiguration=AValue) then exit;
@@ -2125,7 +2297,7 @@ end;
-Procedure TDatabaseInstance.SetreplicaConfiguration(AIndex : Integer; AValue : TReplicaConfiguration);
+Procedure TDatabaseInstance.SetreplicaConfiguration(AIndex : Integer; const AValue : TReplicaConfiguration);
begin
If (FreplicaConfiguration=AValue) then exit;
@@ -2135,7 +2307,7 @@ end;
-Procedure TDatabaseInstance.SetreplicaNames(AIndex : Integer; AValue : TStringArray);
+Procedure TDatabaseInstance.SetreplicaNames(AIndex : Integer; const AValue : TStringArray);
begin
If (FreplicaNames=AValue) then exit;
@@ -2155,7 +2327,7 @@ end;
-Procedure TDatabaseInstance.SetserverCaCert(AIndex : Integer; AValue : TSslCert);
+Procedure TDatabaseInstance.SetserverCaCert(AIndex : Integer; const AValue : TSslCert);
begin
If (FserverCaCert=AValue) then exit;
@@ -2175,7 +2347,7 @@ end;
-Procedure TDatabaseInstance.Setsettings(AIndex : Integer; AValue : TSettings);
+Procedure TDatabaseInstance.Setsettings(AIndex : Integer; const AValue : TSettings);
begin
If (Fsettings=AValue) then exit;
@@ -2194,6 +2366,16 @@ begin
end;
+
+Procedure TDatabaseInstance.SetsuspensionReason(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FsuspensionReason=AValue) then exit;
+ FsuspensionReason:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDatabaseInstance.SetArrayLength(Const AName : String; ALength : Longint);
@@ -2202,6 +2384,7 @@ begin
Case AName of
'ipaddresses' : SetLength(FipAddresses,ALength);
'replicanames' : SetLength(FreplicaNames,ALength);
+ 'suspensionreason' : SetLength(FsuspensionReason,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -2216,7 +2399,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDatabasesListResponse.Setitems(AIndex : Integer; AValue : TDatabasesListResponseTypeitemsArray);
+Procedure TDatabasesListResponse.Setitems(AIndex : Integer; const AValue : TDatabasesListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2273,7 +2456,17 @@ end;
--------------------------------------------------------------------}
-Procedure TExportContextTypesqlExportOptions.Settables(AIndex : Integer; AValue : TStringArray);
+Procedure TExportContextTypesqlExportOptions.SetschemaOnly(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FschemaOnly=AValue) then exit;
+ FschemaOnly:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExportContextTypesqlExportOptions.Settables(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftables=AValue) then exit;
@@ -2303,7 +2496,7 @@ end;
--------------------------------------------------------------------}
-Procedure TExportContext.SetcsvExportOptions(AIndex : Integer; AValue : TExportContextTypecsvExportOptions);
+Procedure TExportContext.SetcsvExportOptions(AIndex : Integer; const AValue : TExportContextTypecsvExportOptions);
begin
If (FcsvExportOptions=AValue) then exit;
@@ -2313,7 +2506,7 @@ end;
-Procedure TExportContext.Setdatabases(AIndex : Integer; AValue : TStringArray);
+Procedure TExportContext.Setdatabases(AIndex : Integer; const AValue : TStringArray);
begin
If (Fdatabases=AValue) then exit;
@@ -2343,7 +2536,7 @@ end;
-Procedure TExportContext.SetsqlExportOptions(AIndex : Integer; AValue : TExportContextTypesqlExportOptions);
+Procedure TExportContext.SetsqlExportOptions(AIndex : Integer; const AValue : TExportContextTypesqlExportOptions);
begin
If (FsqlExportOptions=AValue) then exit;
@@ -2379,11 +2572,38 @@ end;
{ --------------------------------------------------------------------
+ TFailoverContext
+ --------------------------------------------------------------------}
+
+
+Procedure TFailoverContext.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFailoverContext.SetsettingsVersion(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsettingsVersion=AValue) then exit;
+ FsettingsVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TFlag
--------------------------------------------------------------------}
-Procedure TFlag.SetallowedStringValues(AIndex : Integer; AValue : TStringArray);
+Procedure TFlag.SetallowedStringValues(AIndex : Integer; const AValue : TStringArray);
begin
If (FallowedStringValues=AValue) then exit;
@@ -2393,7 +2613,7 @@ end;
-Procedure TFlag.SetappliesTo(AIndex : Integer; AValue : TStringArray);
+Procedure TFlag.SetappliesTo(AIndex : Integer; const AValue : TStringArray);
begin
If (FappliesTo=AValue) then exit;
@@ -2443,6 +2663,16 @@ end;
+Procedure TFlag.SetrequiresRestart(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FrequiresRestart=AValue) then exit;
+ FrequiresRestart:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TFlag.Set_type(AIndex : Integer; const AValue : String);
begin
@@ -2485,7 +2715,7 @@ end;
--------------------------------------------------------------------}
-Procedure TFlagsListResponse.Setitems(AIndex : Integer; AValue : TFlagsListResponseTypeitemsArray);
+Procedure TFlagsListResponse.Setitems(AIndex : Integer; const AValue : TFlagsListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2525,7 +2755,7 @@ end;
--------------------------------------------------------------------}
-Procedure TImportContextTypecsvImportOptions.Setcolumns(AIndex : Integer; AValue : TStringArray);
+Procedure TImportContextTypecsvImportOptions.Setcolumns(AIndex : Integer; const AValue : TStringArray);
begin
If (Fcolumns=AValue) then exit;
@@ -2565,7 +2795,7 @@ end;
--------------------------------------------------------------------}
-Procedure TImportContext.SetcsvImportOptions(AIndex : Integer; AValue : TImportContextTypecsvImportOptions);
+Procedure TImportContext.SetcsvImportOptions(AIndex : Integer; const AValue : TImportContextTypecsvImportOptions);
begin
If (FcsvImportOptions=AValue) then exit;
@@ -2622,7 +2852,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstancesCloneRequest.SetcloneContext(AIndex : Integer; AValue : TCloneContext);
+Procedure TInstancesCloneRequest.SetcloneContext(AIndex : Integer; const AValue : TCloneContext);
begin
If (FcloneContext=AValue) then exit;
@@ -2639,7 +2869,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstancesExportRequest.SetexportContext(AIndex : Integer; AValue : TExportContext);
+Procedure TInstancesExportRequest.SetexportContext(AIndex : Integer; const AValue : TExportContext);
begin
If (FexportContext=AValue) then exit;
@@ -2652,11 +2882,28 @@ end;
{ --------------------------------------------------------------------
+ TInstancesFailoverRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TInstancesFailoverRequest.SetfailoverContext(AIndex : Integer; const AValue : TFailoverContext);
+
+begin
+ If (FfailoverContext=AValue) then exit;
+ FfailoverContext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TInstancesImportRequest
--------------------------------------------------------------------}
-Procedure TInstancesImportRequest.SetimportContext(AIndex : Integer; AValue : TImportContext);
+Procedure TInstancesImportRequest.SetimportContext(AIndex : Integer; const AValue : TImportContext);
begin
If (FimportContext=AValue) then exit;
@@ -2673,7 +2920,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstancesListResponse.Setitems(AIndex : Integer; AValue : TInstancesListResponseTypeitemsArray);
+Procedure TInstancesListResponse.Setitems(AIndex : Integer; const AValue : TInstancesListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2723,7 +2970,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInstancesRestoreBackupRequest.SetrestoreBackupContext(AIndex : Integer; AValue : TRestoreBackupContext);
+Procedure TInstancesRestoreBackupRequest.SetrestoreBackupContext(AIndex : Integer; const AValue : TRestoreBackupContext);
begin
If (FrestoreBackupContext=AValue) then exit;
@@ -2740,7 +2987,7 @@ end;
--------------------------------------------------------------------}
-Procedure TIpConfiguration.SetauthorizedNetworks(AIndex : Integer; AValue : TIpConfigurationTypeauthorizedNetworksArray);
+Procedure TIpConfiguration.SetauthorizedNetworks(AIndex : Integer; const AValue : TIpConfigurationTypeauthorizedNetworksArray);
begin
If (FauthorizedNetworks=AValue) then exit;
@@ -2750,7 +2997,7 @@ end;
-Procedure TIpConfiguration.Setipv4Enabled(AIndex : Integer; AValue : boolean);
+Procedure TIpConfiguration.Setipv4Enabled(AIndex : Integer; const AValue : boolean);
begin
If (Fipv4Enabled=AValue) then exit;
@@ -2760,7 +3007,7 @@ end;
-Procedure TIpConfiguration.SetrequireSsl(AIndex : Integer; AValue : boolean);
+Procedure TIpConfiguration.SetrequireSsl(AIndex : Integer; const AValue : boolean);
begin
If (FrequireSsl=AValue) then exit;
@@ -2800,7 +3047,7 @@ end;
-Procedure TIpMapping.SettimeToRetire(AIndex : Integer; AValue : TDatetime);
+Procedure TIpMapping.SettimeToRetire(AIndex : Integer; const AValue : TDatetime);
begin
If (FtimeToRetire=AValue) then exit;
@@ -2850,6 +3097,53 @@ end;
{ --------------------------------------------------------------------
+ TMaintenanceWindow
+ --------------------------------------------------------------------}
+
+
+Procedure TMaintenanceWindow.Setday(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fday=AValue) then exit;
+ Fday:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMaintenanceWindow.Sethour(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fhour=AValue) then exit;
+ Fhour:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMaintenanceWindow.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TMaintenanceWindow.SetupdateTrack(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdateTrack=AValue) then exit;
+ FupdateTrack:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TMySqlReplicaConfiguration
--------------------------------------------------------------------}
@@ -2884,7 +3178,7 @@ end;
-Procedure TMySqlReplicaConfiguration.SetconnectRetryInterval(AIndex : Integer; AValue : integer);
+Procedure TMySqlReplicaConfiguration.SetconnectRetryInterval(AIndex : Integer; const AValue : integer);
begin
If (FconnectRetryInterval=AValue) then exit;
@@ -2954,7 +3248,7 @@ end;
-Procedure TMySqlReplicaConfiguration.SetverifyServerCertificate(AIndex : Integer; AValue : boolean);
+Procedure TMySqlReplicaConfiguration.SetverifyServerCertificate(AIndex : Integer; const AValue : boolean);
begin
If (FverifyServerCertificate=AValue) then exit;
@@ -2998,7 +3292,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOperation.SetendTime(AIndex : Integer; AValue : TDatetime);
+Procedure TOperation.SetendTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FendTime=AValue) then exit;
@@ -3008,7 +3302,7 @@ end;
-Procedure TOperation.Seterror(AIndex : Integer; AValue : TOperationErrors);
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationErrors);
begin
If (Ferror=AValue) then exit;
@@ -3018,7 +3312,7 @@ end;
-Procedure TOperation.SetexportContext(AIndex : Integer; AValue : TExportContext);
+Procedure TOperation.SetexportContext(AIndex : Integer; const AValue : TExportContext);
begin
If (FexportContext=AValue) then exit;
@@ -3028,7 +3322,7 @@ end;
-Procedure TOperation.SetimportContext(AIndex : Integer; AValue : TImportContext);
+Procedure TOperation.SetimportContext(AIndex : Integer; const AValue : TImportContext);
begin
If (FimportContext=AValue) then exit;
@@ -3038,7 +3332,7 @@ end;
-Procedure TOperation.SetinsertTime(AIndex : Integer; AValue : TDatetime);
+Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FinsertTime=AValue) then exit;
@@ -3088,7 +3382,7 @@ end;
-Procedure TOperation.SetstartTime(AIndex : Integer; AValue : TDatetime);
+Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FstartTime=AValue) then exit;
@@ -3192,7 +3486,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOperationErrors.Seterrors(AIndex : Integer; AValue : TOperationErrorsTypeerrorsArray);
+Procedure TOperationErrors.Seterrors(AIndex : Integer; const AValue : TOperationErrorsTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
@@ -3232,7 +3526,7 @@ end;
--------------------------------------------------------------------}
-Procedure TOperationsListResponse.Setitems(AIndex : Integer; AValue : TOperationsListResponseTypeitemsArray);
+Procedure TOperationsListResponse.Setitems(AIndex : Integer; const AValue : TOperationsListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3282,6 +3576,16 @@ end;
--------------------------------------------------------------------}
+Procedure TReplicaConfiguration.SetfailoverTarget(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FfailoverTarget=AValue) then exit;
+ FfailoverTarget:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TReplicaConfiguration.Setkind(AIndex : Integer; const AValue : String);
begin
@@ -3292,7 +3596,7 @@ end;
-Procedure TReplicaConfiguration.SetmysqlReplicaConfiguration(AIndex : Integer; AValue : TMySqlReplicaConfiguration);
+Procedure TReplicaConfiguration.SetmysqlReplicaConfiguration(AIndex : Integer; const AValue : TMySqlReplicaConfiguration);
begin
If (FmysqlReplicaConfiguration=AValue) then exit;
@@ -3356,7 +3660,7 @@ end;
-Procedure TSettings.SetauthorizedGaeApplications(AIndex : Integer; AValue : TStringArray);
+Procedure TSettings.SetauthorizedGaeApplications(AIndex : Integer; const AValue : TStringArray);
begin
If (FauthorizedGaeApplications=AValue) then exit;
@@ -3366,7 +3670,7 @@ end;
-Procedure TSettings.SetbackupConfiguration(AIndex : Integer; AValue : TBackupConfiguration);
+Procedure TSettings.SetbackupConfiguration(AIndex : Integer; const AValue : TBackupConfiguration);
begin
If (FbackupConfiguration=AValue) then exit;
@@ -3376,7 +3680,7 @@ end;
-Procedure TSettings.SetcrashSafeReplicationEnabled(AIndex : Integer; AValue : boolean);
+Procedure TSettings.SetcrashSafeReplicationEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FcrashSafeReplicationEnabled=AValue) then exit;
@@ -3386,7 +3690,27 @@ end;
-Procedure TSettings.SetdatabaseFlags(AIndex : Integer; AValue : TSettingsTypedatabaseFlagsArray);
+Procedure TSettings.SetdataDiskSizeGb(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdataDiskSizeGb=AValue) then exit;
+ FdataDiskSizeGb:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSettings.SetdataDiskType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdataDiskType=AValue) then exit;
+ FdataDiskType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSettings.SetdatabaseFlags(AIndex : Integer; const AValue : TSettingsTypedatabaseFlagsArray);
begin
If (FdatabaseFlags=AValue) then exit;
@@ -3396,7 +3720,7 @@ end;
-Procedure TSettings.SetdatabaseReplicationEnabled(AIndex : Integer; AValue : boolean);
+Procedure TSettings.SetdatabaseReplicationEnabled(AIndex : Integer; const AValue : boolean);
begin
If (FdatabaseReplicationEnabled=AValue) then exit;
@@ -3406,7 +3730,7 @@ end;
-Procedure TSettings.SetipConfiguration(AIndex : Integer; AValue : TIpConfiguration);
+Procedure TSettings.SetipConfiguration(AIndex : Integer; const AValue : TIpConfiguration);
begin
If (FipConfiguration=AValue) then exit;
@@ -3426,7 +3750,7 @@ end;
-Procedure TSettings.SetlocationPreference(AIndex : Integer; AValue : TLocationPreference);
+Procedure TSettings.SetlocationPreference(AIndex : Integer; const AValue : TLocationPreference);
begin
If (FlocationPreference=AValue) then exit;
@@ -3436,6 +3760,16 @@ end;
+Procedure TSettings.SetmaintenanceWindow(AIndex : Integer; const AValue : TMaintenanceWindow);
+
+begin
+ If (FmaintenanceWindow=AValue) then exit;
+ FmaintenanceWindow:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TSettings.SetpricingPlan(AIndex : Integer; const AValue : String);
begin
@@ -3466,6 +3800,16 @@ end;
+Procedure TSettings.SetstorageAutoResize(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FstorageAutoResize=AValue) then exit;
+ FstorageAutoResize:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TSettings.Settier(AIndex : Integer; const AValue : String);
begin
@@ -3527,7 +3871,7 @@ end;
-Procedure TSslCert.SetcreateTime(AIndex : Integer; AValue : TDatetime);
+Procedure TSslCert.SetcreateTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FcreateTime=AValue) then exit;
@@ -3537,7 +3881,7 @@ end;
-Procedure TSslCert.SetexpirationTime(AIndex : Integer; AValue : TDatetime);
+Procedure TSslCert.SetexpirationTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FexpirationTime=AValue) then exit;
@@ -3594,7 +3938,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSslCertDetail.SetcertInfo(AIndex : Integer; AValue : TSslCert);
+Procedure TSslCertDetail.SetcertInfo(AIndex : Integer; const AValue : TSslCert);
begin
If (FcertInfo=AValue) then exit;
@@ -3617,6 +3961,23 @@ end;
{ --------------------------------------------------------------------
+ TSslCertsCreateEphemeralRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSslCertsCreateEphemeralRequest.Setpublic_key(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fpublic_key=AValue) then exit;
+ Fpublic_key:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TSslCertsInsertRequest
--------------------------------------------------------------------}
@@ -3638,7 +3999,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSslCertsInsertResponse.SetclientCert(AIndex : Integer; AValue : TSslCertDetail);
+Procedure TSslCertsInsertResponse.SetclientCert(AIndex : Integer; const AValue : TSslCertDetail);
begin
If (FclientCert=AValue) then exit;
@@ -3658,7 +4019,17 @@ end;
-Procedure TSslCertsInsertResponse.SetserverCaCert(AIndex : Integer; AValue : TSslCert);
+Procedure TSslCertsInsertResponse.Setoperation(AIndex : Integer; const AValue : TOperation);
+
+begin
+ If (Foperation=AValue) then exit;
+ Foperation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSslCertsInsertResponse.SetserverCaCert(AIndex : Integer; const AValue : TSslCert);
begin
If (FserverCaCert=AValue) then exit;
@@ -3675,7 +4046,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSslCertsListResponse.Setitems(AIndex : Integer; AValue : TSslCertsListResponseTypeitemsArray);
+Procedure TSslCertsListResponse.Setitems(AIndex : Integer; const AValue : TSslCertsListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3745,7 +4116,7 @@ end;
-Procedure TTier.Setregion(AIndex : Integer; AValue : TStringArray);
+Procedure TTier.Setregion(AIndex : Integer; const AValue : TStringArray);
begin
If (Fregion=AValue) then exit;
@@ -3785,7 +4156,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTiersListResponse.Setitems(AIndex : Integer; AValue : TTiersListResponseTypeitemsArray);
+Procedure TTiersListResponse.Setitems(AIndex : Integer; const AValue : TTiersListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3902,7 +4273,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUsersListResponse.Setitems(AIndex : Integer; AValue : TUsersListResponseTypeitemsArray);
+Procedure TUsersListResponse.Setitems(AIndex : Integer; const AValue : TUsersListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -3964,6 +4335,21 @@ begin
Result:=TsqladminAPI;
end;
+Function TBackupRunsResource.Delete(id: string; instance: string; project: string) : TOperation;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'projects/{project}/instances/{instance}/backupRuns/{id}';
+ _Methodid = 'sql.backupRuns.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['id',id,'instance',instance,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
Function TBackupRunsResource.Get(id: string; instance: string; project: string) : TBackupRun;
Const
@@ -4210,6 +4596,21 @@ begin
Result:=ServiceCall(_HTTPMethod,_P,'',aInstancesExportRequest,TOperation) as TOperation;
end;
+Function TInstancesResource.Failover(instance: string; project: string; aInstancesFailoverRequest : TInstancesFailoverRequest) : TOperation;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'projects/{project}/instances/{instance}/failover';
+ _Methodid = 'sql.instances.failover';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instance',instance,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aInstancesFailoverRequest,TOperation) as TOperation;
+end;
+
Function TInstancesResource.Get(instance: string; project: string) : TDatabaseInstance;
Const
@@ -4485,6 +4886,21 @@ begin
Result:=TsqladminAPI;
end;
+Function TSslCertsResource.CreateEphemeral(instance: string; project: string; aSslCertsCreateEphemeralRequest : TSslCertsCreateEphemeralRequest) : TSslCert;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'projects/{project}/instances/{instance}/createEphemeral';
+ _Methodid = 'sql.sslCerts.createEphemeral';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['instance',instance,'project',project]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSslCertsCreateEphemeralRequest,TSslCert) as TSslCert;
+end;
+
Function TSslCertsResource.Delete(instance: string; project: string; sha1Fingerprint: string) : TOperation;
Const
@@ -4705,7 +5121,7 @@ end;
Class Function TSqladminAPI.APIRevision : String;
begin
- Result:='20150325';
+ Result:='20160509';
end;
Class Function TSqladminAPI.APIID : String;
@@ -4723,7 +5139,7 @@ end;
Class Function TSqladminAPI.APIDescription : String;
begin
- Result:='API for Cloud SQL database instance management.';
+ Result:='Creates and configures Cloud SQL instances, which provide fully-managed MySQL databases.';
end;
Class Function TSqladminAPI.APIOwnerDomain : String;
@@ -4753,13 +5169,13 @@ end;
Class Function TSqladminAPI.APIdocumentationLink : String;
begin
- Result:='https://developers.google.com/cloud-sql/docs/admin-api/';
+ Result:='https://cloud.google.com/sql/docs/reference/latest';
end;
Class Function TSqladminAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TSqladminAPI.APIbasePath : string;
@@ -4771,7 +5187,7 @@ end;
Class Function TSqladminAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/sql/v1beta4/';
+ Result:='https://www.googleapis.com/sql/v1beta4/';
end;
Class Function TSqladminAPI.APIProtocol : string;
@@ -4820,23 +5236,27 @@ begin
TCloneContext.RegisterObject;
TDatabase.RegisterObject;
TDatabaseFlags.RegisterObject;
+ TDatabaseInstanceTypefailoverReplica.RegisterObject;
TDatabaseInstance.RegisterObject;
TDatabasesListResponse.RegisterObject;
TExportContextTypecsvExportOptions.RegisterObject;
TExportContextTypesqlExportOptions.RegisterObject;
TExportContext.RegisterObject;
+ TFailoverContext.RegisterObject;
TFlag.RegisterObject;
TFlagsListResponse.RegisterObject;
TImportContextTypecsvImportOptions.RegisterObject;
TImportContext.RegisterObject;
TInstancesCloneRequest.RegisterObject;
TInstancesExportRequest.RegisterObject;
+ TInstancesFailoverRequest.RegisterObject;
TInstancesImportRequest.RegisterObject;
TInstancesListResponse.RegisterObject;
TInstancesRestoreBackupRequest.RegisterObject;
TIpConfiguration.RegisterObject;
TIpMapping.RegisterObject;
TLocationPreference.RegisterObject;
+ TMaintenanceWindow.RegisterObject;
TMySqlReplicaConfiguration.RegisterObject;
TOnPremisesConfiguration.RegisterObject;
TOperation.RegisterObject;
@@ -4848,6 +5268,7 @@ begin
TSettings.RegisterObject;
TSslCert.RegisterObject;
TSslCertDetail.RegisterObject;
+ TSslCertsCreateEphemeralRequest.RegisterObject;
TSslCertsInsertRequest.RegisterObject;
TSslCertsInsertResponse.RegisterObject;
TSslCertsListResponse.RegisterObject;
diff --git a/packages/googleapi/src/googlestorage.pp b/packages/googleapi/src/googlestorage.pp
index 64b76aab08..610dfdecc7 100644
--- a/packages/googleapi/src/googlestorage.pp
+++ b/packages/googleapi/src/googlestorage.pp
@@ -1,19 +1,4 @@
unit googlestorage;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:08
{$MODE objfpc}
{$H+}
@@ -60,6 +45,7 @@ type
TChannelTypeparams = Class;
TComposeRequestTypesourceObjectsItemTypeobjectPreconditions = Class;
TComposeRequestTypesourceObjectsItem = Class;
+ TObjectTypecustomerEncryption = Class;
TObjectTypemetadata = Class;
TObjectTypeowner = Class;
TObjectAccessControlTypeprojectTeam = Class;
@@ -85,10 +71,10 @@ type
FresponseHeader : TStringArray;
Protected
//Property setters
- Procedure SetmaxAgeSeconds(AIndex : Integer; AValue : integer); virtual;
- Procedure Setmethod(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setorigin(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetresponseHeader(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetmaxAgeSeconds(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmethod(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setorigin(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetresponseHeader(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -131,10 +117,10 @@ type
FnumNewerVersions : integer;
Protected
//Property setters
- Procedure Setage(AIndex : Integer; AValue : integer); virtual;
- Procedure SetcreatedBefore(AIndex : Integer; AValue : TDate); virtual;
- Procedure SetisLive(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetnumNewerVersions(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setage(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetcreatedBefore(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure SetisLive(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetnumNewerVersions(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property age : integer Index 0 Read Fage Write Setage;
@@ -154,8 +140,8 @@ type
Fcondition : TBucketTypelifecycleTyperuleItemTypecondition;
Protected
//Property setters
- Procedure Setaction(AIndex : Integer; AValue : TBucketTypelifecycleTyperuleItemTypeaction); virtual;
- Procedure Setcondition(AIndex : Integer; AValue : TBucketTypelifecycleTyperuleItemTypecondition); virtual;
+ Procedure Setaction(AIndex : Integer; const AValue : TBucketTypelifecycleTyperuleItemTypeaction); virtual;
+ Procedure Setcondition(AIndex : Integer; const AValue : TBucketTypelifecycleTyperuleItemTypecondition); virtual;
Public
Published
Property action : TBucketTypelifecycleTyperuleItemTypeaction Index 0 Read Faction Write Setaction;
@@ -172,7 +158,7 @@ type
Frule : TBucketTypelifecycleTyperuleArray;
Protected
//Property setters
- Procedure Setrule(AIndex : Integer; AValue : TBucketTypelifecycleTyperuleArray); virtual;
+ Procedure Setrule(AIndex : Integer; const AValue : TBucketTypelifecycleTyperuleArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -230,7 +216,7 @@ type
Fenabled : boolean;
Protected
//Property setters
- Procedure Setenabled(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setenabled(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property enabled : boolean Index 0 Read Fenabled Write Setenabled;
@@ -278,28 +264,30 @@ type
FselfLink : String;
FstorageClass : String;
FtimeCreated : TDatetime;
+ Fupdated : TDatetime;
Fversioning : TBucketTypeversioning;
Fwebsite : TBucketTypewebsite;
Protected
//Property setters
- Procedure Setacl(AIndex : Integer; AValue : TBucketTypeaclArray); virtual;
- Procedure Setcors(AIndex : Integer; AValue : TBucketTypecorsArray); virtual;
- Procedure SetdefaultObjectAcl(AIndex : Integer; AValue : TBucketTypedefaultObjectAclArray); virtual;
+ Procedure Setacl(AIndex : Integer; const AValue : TBucketTypeaclArray); virtual;
+ Procedure Setcors(AIndex : Integer; const AValue : TBucketTypecorsArray); virtual;
+ Procedure SetdefaultObjectAcl(AIndex : Integer; const AValue : TBucketTypedefaultObjectAclArray); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlifecycle(AIndex : Integer; AValue : TBucketTypelifecycle); virtual;
+ Procedure Setlifecycle(AIndex : Integer; const AValue : TBucketTypelifecycle); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlogging(AIndex : Integer; AValue : TBucketTypelogging); virtual;
+ Procedure Setlogging(AIndex : Integer; const AValue : TBucketTypelogging); virtual;
Procedure Setmetageneration(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setowner(AIndex : Integer; AValue : TBucketTypeowner); virtual;
+ Procedure Setowner(AIndex : Integer; const AValue : TBucketTypeowner); virtual;
Procedure SetprojectNumber(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetstorageClass(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeCreated(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setversioning(AIndex : Integer; AValue : TBucketTypeversioning); virtual;
- Procedure Setwebsite(AIndex : Integer; AValue : TBucketTypewebsite); virtual;
+ Procedure SettimeCreated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setversioning(AIndex : Integer; const AValue : TBucketTypeversioning); virtual;
+ Procedure Setwebsite(AIndex : Integer; const AValue : TBucketTypewebsite); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -322,8 +310,9 @@ type
Property selfLink : String Index 104 Read FselfLink Write SetselfLink;
Property storageClass : String Index 112 Read FstorageClass Write SetstorageClass;
Property timeCreated : TDatetime Index 120 Read FtimeCreated Write SettimeCreated;
- Property versioning : TBucketTypeversioning Index 128 Read Fversioning Write Setversioning;
- Property website : TBucketTypewebsite Index 136 Read Fwebsite Write Setwebsite;
+ Property updated : TDatetime Index 128 Read Fupdated Write Setupdated;
+ Property versioning : TBucketTypeversioning Index 136 Read Fversioning Write Setversioning;
+ Property website : TBucketTypewebsite Index 144 Read Fwebsite Write Setwebsite;
end;
TBucketClass = Class of TBucket;
@@ -373,7 +362,7 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectTeam(AIndex : Integer; AValue : TBucketAccessControlTypeprojectTeam); virtual;
+ Procedure SetprojectTeam(AIndex : Integer; const AValue : TBucketAccessControlTypeprojectTeam); virtual;
Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
@@ -402,7 +391,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TBucketAccessControlsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TBucketAccessControlsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -426,7 +415,7 @@ type
FnextPageToken : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TBucketsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TBucketsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -478,8 +467,8 @@ type
Procedure Setexpiration(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparams(AIndex : Integer; AValue : TChannelTypeparams); virtual;
- Procedure Setpayload(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setparams(AIndex : Integer; const AValue : TChannelTypeparams); virtual;
+ Procedure Setpayload(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetresourceId(AIndex : Integer; const AValue : String); virtual;
Procedure SetresourceUri(AIndex : Integer; const AValue : String); virtual;
Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
@@ -528,7 +517,7 @@ type
//Property setters
Procedure Setgeneration(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetobjectPreconditions(AIndex : Integer; AValue : TComposeRequestTypesourceObjectsItemTypeobjectPreconditions); virtual;
+ Procedure SetobjectPreconditions(AIndex : Integer; const AValue : TComposeRequestTypesourceObjectsItemTypeobjectPreconditions); virtual;
Public
Published
Property generation : String Index 0 Read Fgeneration Write Setgeneration;
@@ -548,9 +537,9 @@ type
FsourceObjects : TComposeRequestTypesourceObjectsArray;
Protected
//Property setters
- Procedure Setdestination(AIndex : Integer; AValue : TObject); virtual;
+ Procedure Setdestination(AIndex : Integer; const AValue : TObject); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsourceObjects(AIndex : Integer; AValue : TComposeRequestTypesourceObjectsArray); virtual;
+ Procedure SetsourceObjects(AIndex : Integer; const AValue : TComposeRequestTypesourceObjectsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -564,6 +553,25 @@ type
TComposeRequestClass = Class of TComposeRequest;
{ --------------------------------------------------------------------
+ TObjectTypecustomerEncryption
+ --------------------------------------------------------------------}
+
+ TObjectTypecustomerEncryption = Class(TGoogleBaseObject)
+ Private
+ FencryptionAlgorithm : String;
+ FkeySha256 : String;
+ Protected
+ //Property setters
+ Procedure SetencryptionAlgorithm(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetkeySha256(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property encryptionAlgorithm : String Index 0 Read FencryptionAlgorithm Write SetencryptionAlgorithm;
+ Property keySha256 : String Index 8 Read FkeySha256 Write SetkeySha256;
+ end;
+ TObjectTypecustomerEncryptionClass = Class of TObjectTypecustomerEncryption;
+
+ { --------------------------------------------------------------------
TObjectTypemetadata
--------------------------------------------------------------------}
@@ -611,6 +619,7 @@ type
FcontentLanguage : String;
FcontentType : String;
Fcrc32c : String;
+ FcustomerEncryption : TObjectTypecustomerEncryption;
Fetag : String;
Fgeneration : String;
Fid : String;
@@ -624,34 +633,37 @@ type
FselfLink : String;
Fsize : String;
FstorageClass : String;
+ FtimeCreated : TDatetime;
FtimeDeleted : TDatetime;
Fupdated : TDatetime;
Protected
//Property setters
- Procedure Setacl(AIndex : Integer; AValue : TObjectTypeaclArray); virtual;
+ Procedure Setacl(AIndex : Integer; const AValue : TObjectTypeaclArray); virtual;
Procedure Setbucket(AIndex : Integer; const AValue : String); virtual;
Procedure SetcacheControl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcomponentCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetcomponentCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetcontentDisposition(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentEncoding(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontentType(AIndex : Integer; const AValue : String); virtual;
Procedure Setcrc32c(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcustomerEncryption(AIndex : Integer; const AValue : TObjectTypecustomerEncryption); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setgeneration(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setmd5Hash(AIndex : Integer; const AValue : String); virtual;
Procedure SetmediaLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmetadata(AIndex : Integer; AValue : TObjectTypemetadata); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TObjectTypemetadata); virtual;
Procedure Setmetageneration(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setowner(AIndex : Integer; AValue : TObjectTypeowner); virtual;
+ Procedure Setowner(AIndex : Integer; const AValue : TObjectTypeowner); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setsize(AIndex : Integer; const AValue : String); virtual;
Procedure SetstorageClass(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeDeleted(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SettimeCreated(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SettimeDeleted(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -667,21 +679,23 @@ type
Property contentLanguage : String Index 48 Read FcontentLanguage Write SetcontentLanguage;
Property contentType : String Index 56 Read FcontentType Write SetcontentType;
Property crc32c : String Index 64 Read Fcrc32c Write Setcrc32c;
- Property etag : String Index 72 Read Fetag Write Setetag;
- Property generation : String Index 80 Read Fgeneration Write Setgeneration;
- Property id : String Index 88 Read Fid Write Setid;
- Property kind : String Index 96 Read Fkind Write Setkind;
- Property md5Hash : String Index 104 Read Fmd5Hash Write Setmd5Hash;
- Property mediaLink : String Index 112 Read FmediaLink Write SetmediaLink;
- Property metadata : TObjectTypemetadata Index 120 Read Fmetadata Write Setmetadata;
- Property metageneration : String Index 128 Read Fmetageneration Write Setmetageneration;
- Property name : String Index 136 Read Fname Write Setname;
- Property owner : TObjectTypeowner Index 144 Read Fowner Write Setowner;
- Property selfLink : String Index 152 Read FselfLink Write SetselfLink;
- Property size : String Index 160 Read Fsize Write Setsize;
- Property storageClass : String Index 168 Read FstorageClass Write SetstorageClass;
- Property timeDeleted : TDatetime Index 176 Read FtimeDeleted Write SettimeDeleted;
- Property updated : TDatetime Index 184 Read Fupdated Write Setupdated;
+ Property customerEncryption : TObjectTypecustomerEncryption Index 72 Read FcustomerEncryption Write SetcustomerEncryption;
+ Property etag : String Index 80 Read Fetag Write Setetag;
+ Property generation : String Index 88 Read Fgeneration Write Setgeneration;
+ Property id : String Index 96 Read Fid Write Setid;
+ Property kind : String Index 104 Read Fkind Write Setkind;
+ Property md5Hash : String Index 112 Read Fmd5Hash Write Setmd5Hash;
+ Property mediaLink : String Index 120 Read FmediaLink Write SetmediaLink;
+ Property metadata : TObjectTypemetadata Index 128 Read Fmetadata Write Setmetadata;
+ Property metageneration : String Index 136 Read Fmetageneration Write Setmetageneration;
+ Property name : String Index 144 Read Fname Write Setname;
+ Property owner : TObjectTypeowner Index 152 Read Fowner Write Setowner;
+ Property selfLink : String Index 160 Read FselfLink Write SetselfLink;
+ Property size : String Index 168 Read Fsize Write Setsize;
+ Property storageClass : String Index 176 Read FstorageClass Write SetstorageClass;
+ Property timeCreated : TDatetime Index 184 Read FtimeCreated Write SettimeCreated;
+ Property timeDeleted : TDatetime Index 192 Read FtimeDeleted Write SettimeDeleted;
+ Property updated : TDatetime Index 200 Read Fupdated Write Setupdated;
end;
TObjectClass = Class of TObject;
@@ -736,7 +750,7 @@ type
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Set_object(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprojectTeam(AIndex : Integer; AValue : TObjectAccessControlTypeprojectTeam); virtual;
+ Procedure SetprojectTeam(AIndex : Integer; const AValue : TObjectAccessControlTypeprojectTeam); virtual;
Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
@@ -767,7 +781,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TTJSONSchemaArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -792,10 +806,10 @@ type
Fprefixes : TStringArray;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TObjectsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TObjectsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprefixes(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setprefixes(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -823,10 +837,10 @@ type
FtotalBytesRewritten : String;
Protected
//Property setters
- Procedure Setdone(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetobjectSize(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresource(AIndex : Integer; AValue : TObject); virtual;
+ Procedure Setresource(AIndex : Integer; const AValue : TObject); virtual;
Procedure SetrewriteToken(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalBytesRewritten(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1276,7 +1290,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TBucketTypecorsItem.SetmaxAgeSeconds(AIndex : Integer; AValue : integer);
+Procedure TBucketTypecorsItem.SetmaxAgeSeconds(AIndex : Integer; const AValue : integer);
begin
If (FmaxAgeSeconds=AValue) then exit;
@@ -1286,7 +1300,7 @@ end;
-Procedure TBucketTypecorsItem.Setmethod(AIndex : Integer; AValue : TStringArray);
+Procedure TBucketTypecorsItem.Setmethod(AIndex : Integer; const AValue : TStringArray);
begin
If (Fmethod=AValue) then exit;
@@ -1296,7 +1310,7 @@ end;
-Procedure TBucketTypecorsItem.Setorigin(AIndex : Integer; AValue : TStringArray);
+Procedure TBucketTypecorsItem.Setorigin(AIndex : Integer; const AValue : TStringArray);
begin
If (Forigin=AValue) then exit;
@@ -1306,7 +1320,7 @@ end;
-Procedure TBucketTypecorsItem.SetresponseHeader(AIndex : Integer; AValue : TStringArray);
+Procedure TBucketTypecorsItem.SetresponseHeader(AIndex : Integer; const AValue : TStringArray);
begin
If (FresponseHeader=AValue) then exit;
@@ -1366,7 +1380,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBucketTypelifecycleTyperuleItemTypecondition.Setage(AIndex : Integer; AValue : integer);
+Procedure TBucketTypelifecycleTyperuleItemTypecondition.Setage(AIndex : Integer; const AValue : integer);
begin
If (Fage=AValue) then exit;
@@ -1376,7 +1390,7 @@ end;
-Procedure TBucketTypelifecycleTyperuleItemTypecondition.SetcreatedBefore(AIndex : Integer; AValue : TDate);
+Procedure TBucketTypelifecycleTyperuleItemTypecondition.SetcreatedBefore(AIndex : Integer; const AValue : TDate);
begin
If (FcreatedBefore=AValue) then exit;
@@ -1386,7 +1400,7 @@ end;
-Procedure TBucketTypelifecycleTyperuleItemTypecondition.SetisLive(AIndex : Integer; AValue : boolean);
+Procedure TBucketTypelifecycleTyperuleItemTypecondition.SetisLive(AIndex : Integer; const AValue : boolean);
begin
If (FisLive=AValue) then exit;
@@ -1396,7 +1410,7 @@ end;
-Procedure TBucketTypelifecycleTyperuleItemTypecondition.SetnumNewerVersions(AIndex : Integer; AValue : integer);
+Procedure TBucketTypelifecycleTyperuleItemTypecondition.SetnumNewerVersions(AIndex : Integer; const AValue : integer);
begin
If (FnumNewerVersions=AValue) then exit;
@@ -1413,7 +1427,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBucketTypelifecycleTyperuleItem.Setaction(AIndex : Integer; AValue : TBucketTypelifecycleTyperuleItemTypeaction);
+Procedure TBucketTypelifecycleTyperuleItem.Setaction(AIndex : Integer; const AValue : TBucketTypelifecycleTyperuleItemTypeaction);
begin
If (Faction=AValue) then exit;
@@ -1423,7 +1437,7 @@ end;
-Procedure TBucketTypelifecycleTyperuleItem.Setcondition(AIndex : Integer; AValue : TBucketTypelifecycleTyperuleItemTypecondition);
+Procedure TBucketTypelifecycleTyperuleItem.Setcondition(AIndex : Integer; const AValue : TBucketTypelifecycleTyperuleItemTypecondition);
begin
If (Fcondition=AValue) then exit;
@@ -1440,7 +1454,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBucketTypelifecycle.Setrule(AIndex : Integer; AValue : TBucketTypelifecycleTyperuleArray);
+Procedure TBucketTypelifecycle.Setrule(AIndex : Integer; const AValue : TBucketTypelifecycleTyperuleArray);
begin
If (Frule=AValue) then exit;
@@ -1524,7 +1538,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBucketTypeversioning.Setenabled(AIndex : Integer; AValue : boolean);
+Procedure TBucketTypeversioning.Setenabled(AIndex : Integer; const AValue : boolean);
begin
If (Fenabled=AValue) then exit;
@@ -1568,7 +1582,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBucket.Setacl(AIndex : Integer; AValue : TBucketTypeaclArray);
+Procedure TBucket.Setacl(AIndex : Integer; const AValue : TBucketTypeaclArray);
begin
If (Facl=AValue) then exit;
@@ -1578,7 +1592,7 @@ end;
-Procedure TBucket.Setcors(AIndex : Integer; AValue : TBucketTypecorsArray);
+Procedure TBucket.Setcors(AIndex : Integer; const AValue : TBucketTypecorsArray);
begin
If (Fcors=AValue) then exit;
@@ -1588,7 +1602,7 @@ end;
-Procedure TBucket.SetdefaultObjectAcl(AIndex : Integer; AValue : TBucketTypedefaultObjectAclArray);
+Procedure TBucket.SetdefaultObjectAcl(AIndex : Integer; const AValue : TBucketTypedefaultObjectAclArray);
begin
If (FdefaultObjectAcl=AValue) then exit;
@@ -1628,7 +1642,7 @@ end;
-Procedure TBucket.Setlifecycle(AIndex : Integer; AValue : TBucketTypelifecycle);
+Procedure TBucket.Setlifecycle(AIndex : Integer; const AValue : TBucketTypelifecycle);
begin
If (Flifecycle=AValue) then exit;
@@ -1648,7 +1662,7 @@ end;
-Procedure TBucket.Setlogging(AIndex : Integer; AValue : TBucketTypelogging);
+Procedure TBucket.Setlogging(AIndex : Integer; const AValue : TBucketTypelogging);
begin
If (Flogging=AValue) then exit;
@@ -1678,7 +1692,7 @@ end;
-Procedure TBucket.Setowner(AIndex : Integer; AValue : TBucketTypeowner);
+Procedure TBucket.Setowner(AIndex : Integer; const AValue : TBucketTypeowner);
begin
If (Fowner=AValue) then exit;
@@ -1718,7 +1732,7 @@ end;
-Procedure TBucket.SettimeCreated(AIndex : Integer; AValue : TDatetime);
+Procedure TBucket.SettimeCreated(AIndex : Integer; const AValue : TDatetime);
begin
If (FtimeCreated=AValue) then exit;
@@ -1728,7 +1742,17 @@ end;
-Procedure TBucket.Setversioning(AIndex : Integer; AValue : TBucketTypeversioning);
+Procedure TBucket.Setupdated(AIndex : Integer; const AValue : TDatetime);
+
+begin
+ If (Fupdated=AValue) then exit;
+ Fupdated:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TBucket.Setversioning(AIndex : Integer; const AValue : TBucketTypeversioning);
begin
If (Fversioning=AValue) then exit;
@@ -1738,7 +1762,7 @@ end;
-Procedure TBucket.Setwebsite(AIndex : Integer; AValue : TBucketTypewebsite);
+Procedure TBucket.Setwebsite(AIndex : Integer; const AValue : TBucketTypewebsite);
begin
If (Fwebsite=AValue) then exit;
@@ -1877,7 +1901,7 @@ end;
-Procedure TBucketAccessControl.SetprojectTeam(AIndex : Integer; AValue : TBucketAccessControlTypeprojectTeam);
+Procedure TBucketAccessControl.SetprojectTeam(AIndex : Integer; const AValue : TBucketAccessControlTypeprojectTeam);
begin
If (FprojectTeam=AValue) then exit;
@@ -1914,7 +1938,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBucketAccessControls.Setitems(AIndex : Integer; AValue : TBucketAccessControlsTypeitemsArray);
+Procedure TBucketAccessControls.Setitems(AIndex : Integer; const AValue : TBucketAccessControlsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1954,7 +1978,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBuckets.Setitems(AIndex : Integer; AValue : TBucketsTypeitemsArray);
+Procedure TBuckets.Setitems(AIndex : Integer; const AValue : TBucketsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2057,7 +2081,7 @@ end;
-Procedure TChannel.Setparams(AIndex : Integer; AValue : TChannelTypeparams);
+Procedure TChannel.Setparams(AIndex : Integer; const AValue : TChannelTypeparams);
begin
If (Fparams=AValue) then exit;
@@ -2067,7 +2091,7 @@ end;
-Procedure TChannel.Setpayload(AIndex : Integer; AValue : boolean);
+Procedure TChannel.Setpayload(AIndex : Integer; const AValue : boolean);
begin
If (Fpayload=AValue) then exit;
@@ -2172,7 +2196,7 @@ end;
-Procedure TComposeRequestTypesourceObjectsItem.SetobjectPreconditions(AIndex : Integer; AValue : TComposeRequestTypesourceObjectsItemTypeobjectPreconditions);
+Procedure TComposeRequestTypesourceObjectsItem.SetobjectPreconditions(AIndex : Integer; const AValue : TComposeRequestTypesourceObjectsItemTypeobjectPreconditions);
begin
If (FobjectPreconditions=AValue) then exit;
@@ -2189,7 +2213,7 @@ end;
--------------------------------------------------------------------}
-Procedure TComposeRequest.Setdestination(AIndex : Integer; AValue : TObject);
+Procedure TComposeRequest.Setdestination(AIndex : Integer; const AValue : TObject);
begin
If (Fdestination=AValue) then exit;
@@ -2209,7 +2233,7 @@ end;
-Procedure TComposeRequest.SetsourceObjects(AIndex : Integer; AValue : TComposeRequestTypesourceObjectsArray);
+Procedure TComposeRequest.SetsourceObjects(AIndex : Integer; const AValue : TComposeRequestTypesourceObjectsArray);
begin
If (FsourceObjects=AValue) then exit;
@@ -2235,6 +2259,33 @@ end;
{ --------------------------------------------------------------------
+ TObjectTypecustomerEncryption
+ --------------------------------------------------------------------}
+
+
+Procedure TObjectTypecustomerEncryption.SetencryptionAlgorithm(AIndex : Integer; const AValue : String);
+
+begin
+ If (FencryptionAlgorithm=AValue) then exit;
+ FencryptionAlgorithm:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TObjectTypecustomerEncryption.SetkeySha256(AIndex : Integer; const AValue : String);
+
+begin
+ If (FkeySha256=AValue) then exit;
+ FkeySha256:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TObjectTypemetadata
--------------------------------------------------------------------}
@@ -2279,7 +2330,7 @@ end;
--------------------------------------------------------------------}
-Procedure TObject.Setacl(AIndex : Integer; AValue : TObjectTypeaclArray);
+Procedure TObject.Setacl(AIndex : Integer; const AValue : TObjectTypeaclArray);
begin
If (Facl=AValue) then exit;
@@ -2309,7 +2360,7 @@ end;
-Procedure TObject.SetcomponentCount(AIndex : Integer; AValue : integer);
+Procedure TObject.SetcomponentCount(AIndex : Integer; const AValue : integer);
begin
If (FcomponentCount=AValue) then exit;
@@ -2369,6 +2420,16 @@ end;
+Procedure TObject.SetcustomerEncryption(AIndex : Integer; const AValue : TObjectTypecustomerEncryption);
+
+begin
+ If (FcustomerEncryption=AValue) then exit;
+ FcustomerEncryption:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TObject.Setetag(AIndex : Integer; const AValue : String);
begin
@@ -2429,7 +2490,7 @@ end;
-Procedure TObject.Setmetadata(AIndex : Integer; AValue : TObjectTypemetadata);
+Procedure TObject.Setmetadata(AIndex : Integer; const AValue : TObjectTypemetadata);
begin
If (Fmetadata=AValue) then exit;
@@ -2459,7 +2520,7 @@ end;
-Procedure TObject.Setowner(AIndex : Integer; AValue : TObjectTypeowner);
+Procedure TObject.Setowner(AIndex : Integer; const AValue : TObjectTypeowner);
begin
If (Fowner=AValue) then exit;
@@ -2499,7 +2560,17 @@ end;
-Procedure TObject.SettimeDeleted(AIndex : Integer; AValue : TDatetime);
+Procedure TObject.SettimeCreated(AIndex : Integer; const AValue : TDatetime);
+
+begin
+ If (FtimeCreated=AValue) then exit;
+ FtimeCreated:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TObject.SettimeDeleted(AIndex : Integer; const AValue : TDatetime);
begin
If (FtimeDeleted=AValue) then exit;
@@ -2509,7 +2580,7 @@ end;
-Procedure TObject.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TObject.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -2666,7 +2737,7 @@ end;
-Procedure TObjectAccessControl.SetprojectTeam(AIndex : Integer; AValue : TObjectAccessControlTypeprojectTeam);
+Procedure TObjectAccessControl.SetprojectTeam(AIndex : Integer; const AValue : TObjectAccessControlTypeprojectTeam);
begin
If (FprojectTeam=AValue) then exit;
@@ -2714,7 +2785,7 @@ end;
--------------------------------------------------------------------}
-Procedure TObjectAccessControls.Setitems(AIndex : Integer; AValue : TTJSONSchemaArray);
+Procedure TObjectAccessControls.Setitems(AIndex : Integer; const AValue : TTJSONSchemaArray);
begin
If (Fitems=AValue) then exit;
@@ -2754,7 +2825,7 @@ end;
--------------------------------------------------------------------}
-Procedure TObjects.Setitems(AIndex : Integer; AValue : TObjectsTypeitemsArray);
+Procedure TObjects.Setitems(AIndex : Integer; const AValue : TObjectsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -2784,7 +2855,7 @@ end;
-Procedure TObjects.Setprefixes(AIndex : Integer; AValue : TStringArray);
+Procedure TObjects.Setprefixes(AIndex : Integer; const AValue : TStringArray);
begin
If (Fprefixes=AValue) then exit;
@@ -2815,7 +2886,7 @@ end;
--------------------------------------------------------------------}
-Procedure TRewriteResponse.Setdone(AIndex : Integer; AValue : boolean);
+Procedure TRewriteResponse.Setdone(AIndex : Integer; const AValue : boolean);
begin
If (Fdone=AValue) then exit;
@@ -2845,7 +2916,7 @@ end;
-Procedure TRewriteResponse.Setresource(AIndex : Integer; AValue : TObject);
+Procedure TRewriteResponse.Setresource(AIndex : Integer; const AValue : TObject);
begin
If (Fresource=AValue) then exit;
@@ -3880,7 +3951,7 @@ end;
Class Function TStorageAPI.APIRevision : String;
begin
- Result:='20150326';
+ Result:='20160504';
end;
Class Function TStorageAPI.APIID : String;
@@ -3892,13 +3963,13 @@ end;
Class Function TStorageAPI.APITitle : String;
begin
- Result:='Cloud Storage API';
+ Result:='Cloud Storage JSON API';
end;
Class Function TStorageAPI.APIDescription : String;
begin
- Result:='Lets you store and retrieve potentially-large, immutable data objects.';
+ Result:='Stores and retrieves potentially large, immutable data objects.';
end;
Class Function TStorageAPI.APIOwnerDomain : String;
@@ -3934,7 +4005,7 @@ end;
Class Function TStorageAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TStorageAPI.APIbasePath : string;
@@ -3946,7 +4017,7 @@ end;
Class Function TStorageAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/storage/v1/';
+ Result:='https://www.googleapis.com/storage/v1/';
end;
Class Function TStorageAPI.APIProtocol : string;
@@ -3970,15 +4041,17 @@ end;
Class Function TStorageAPI.APIAuthScopes : TScopeInfoArray;
begin
- SetLength(Result,4);
+ SetLength(Result,5);
Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[0].Description:='View and manage your data across Google Cloud Platform services';
- Result[1].Name:='https://www.googleapis.com/auth/devstorage.full_control';
- Result[1].Description:='Manage your data and permissions in Google Cloud Storage';
- Result[2].Name:='https://www.googleapis.com/auth/devstorage.read_only';
- Result[2].Description:='View your data in Google Cloud Storage';
- Result[3].Name:='https://www.googleapis.com/auth/devstorage.read_write';
- Result[3].Description:='Manage your data in Google Cloud Storage';
+ Result[1].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
+ Result[1].Description:='View your data across Google Cloud Platform services';
+ Result[2].Name:='https://www.googleapis.com/auth/devstorage.full_control';
+ Result[2].Description:='Manage your data and permissions in Google Cloud Storage';
+ Result[3].Name:='https://www.googleapis.com/auth/devstorage.read_only';
+ Result[3].Description:='View your data in Google Cloud Storage';
+ Result[4].Name:='https://www.googleapis.com/auth/devstorage.read_write';
+ Result[4].Description:='Manage your data in Google Cloud Storage';
end;
@@ -4010,6 +4083,7 @@ begin
TComposeRequestTypesourceObjectsItemTypeobjectPreconditions.RegisterObject;
TComposeRequestTypesourceObjectsItem.RegisterObject;
TComposeRequest.RegisterObject;
+ TObjectTypecustomerEncryption.RegisterObject;
TObjectTypemetadata.RegisterObject;
TObjectTypeowner.RegisterObject;
TObject.RegisterObject;
diff --git a/packages/googleapi/src/googlestoragetransfer.pp b/packages/googleapi/src/googlestoragetransfer.pp
new file mode 100644
index 0000000000..81a09cb079
--- /dev/null
+++ b/packages/googleapi/src/googlestoragetransfer.pp
@@ -0,0 +1,2538 @@
+unit googlestoragetransfer;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TGoogleServiceAccount = Class;
+ TTransferJob = Class;
+ TTransferSpec = Class;
+ TGcsData = Class;
+ TAwsS3Data = Class;
+ TAwsAccessKey = Class;
+ THttpData = Class;
+ TObjectConditions = Class;
+ TTransferOptions = Class;
+ TSchedule = Class;
+ TDate = Class;
+ TTimeOfDay = Class;
+ TUpdateTransferJobRequest = Class;
+ TListTransferJobsResponse = Class;
+ TPauseTransferOperationRequest = Class;
+ TEmpty = Class;
+ TResumeTransferOperationRequest = Class;
+ TOperation = Class;
+ TStatus = Class;
+ TListOperationsResponse = Class;
+ TTransferOperation = Class;
+ TTransferCounters = Class;
+ TErrorSummary = Class;
+ TErrorLogEntry = Class;
+ TGoogleServiceAccountArray = Array of TGoogleServiceAccount;
+ TTransferJobArray = Array of TTransferJob;
+ TTransferSpecArray = Array of TTransferSpec;
+ TGcsDataArray = Array of TGcsData;
+ TAwsS3DataArray = Array of TAwsS3Data;
+ TAwsAccessKeyArray = Array of TAwsAccessKey;
+ THttpDataArray = Array of THttpData;
+ TObjectConditionsArray = Array of TObjectConditions;
+ TTransferOptionsArray = Array of TTransferOptions;
+ TScheduleArray = Array of TSchedule;
+ TDateArray = Array of TDate;
+ TTimeOfDayArray = Array of TTimeOfDay;
+ TUpdateTransferJobRequestArray = Array of TUpdateTransferJobRequest;
+ TListTransferJobsResponseArray = Array of TListTransferJobsResponse;
+ TPauseTransferOperationRequestArray = Array of TPauseTransferOperationRequest;
+ TEmptyArray = Array of TEmpty;
+ TResumeTransferOperationRequestArray = Array of TResumeTransferOperationRequest;
+ TOperationArray = Array of TOperation;
+ TStatusArray = Array of TStatus;
+ TListOperationsResponseArray = Array of TListOperationsResponse;
+ TTransferOperationArray = Array of TTransferOperation;
+ TTransferCountersArray = Array of TTransferCounters;
+ TErrorSummaryArray = Array of TErrorSummary;
+ TErrorLogEntryArray = Array of TErrorLogEntry;
+ //Anonymous types, using auto-generated names
+ TOperationTypemetadata = Class;
+ TOperationTyperesponse = Class;
+ TStatusTypedetailsItem = Class;
+ TListTransferJobsResponseTypetransferJobsArray = Array of TTransferJob;
+ TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
+ TListOperationsResponseTypeoperationsArray = Array of TOperation;
+ TTransferOperationTypeerrorBreakdownsArray = Array of TErrorSummary;
+ TErrorSummaryTypeerrorLogEntriesArray = Array of TErrorLogEntry;
+
+ { --------------------------------------------------------------------
+ TGoogleServiceAccount
+ --------------------------------------------------------------------}
+
+ TGoogleServiceAccount = Class(TGoogleBaseObject)
+ Private
+ FaccountEmail : String;
+ Protected
+ //Property setters
+ Procedure SetaccountEmail(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property accountEmail : String Index 0 Read FaccountEmail Write SetaccountEmail;
+ end;
+ TGoogleServiceAccountClass = Class of TGoogleServiceAccount;
+
+ { --------------------------------------------------------------------
+ TTransferJob
+ --------------------------------------------------------------------}
+
+ TTransferJob = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fdescription : String;
+ FprojectId : String;
+ FtransferSpec : TTransferSpec;
+ Fschedule : TSchedule;
+ Fstatus : String;
+ FcreationTime : String;
+ FlastModificationTime : String;
+ FdeletionTime : String;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettransferSpec(AIndex : Integer; const AValue : TTransferSpec); virtual;
+ Procedure Setschedule(AIndex : Integer; const AValue : TSchedule); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetlastModificationTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdeletionTime(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property projectId : String Index 16 Read FprojectId Write SetprojectId;
+ Property transferSpec : TTransferSpec Index 24 Read FtransferSpec Write SettransferSpec;
+ Property schedule : TSchedule Index 32 Read Fschedule Write Setschedule;
+ Property status : String Index 40 Read Fstatus Write Setstatus;
+ Property creationTime : String Index 48 Read FcreationTime Write SetcreationTime;
+ Property lastModificationTime : String Index 56 Read FlastModificationTime Write SetlastModificationTime;
+ Property deletionTime : String Index 64 Read FdeletionTime Write SetdeletionTime;
+ end;
+ TTransferJobClass = Class of TTransferJob;
+
+ { --------------------------------------------------------------------
+ TTransferSpec
+ --------------------------------------------------------------------}
+
+ TTransferSpec = Class(TGoogleBaseObject)
+ Private
+ FgcsDataSource : TGcsData;
+ FawsS3DataSource : TAwsS3Data;
+ FhttpDataSource : THttpData;
+ FgcsDataSink : TGcsData;
+ FobjectConditions : TObjectConditions;
+ FtransferOptions : TTransferOptions;
+ Protected
+ //Property setters
+ Procedure SetgcsDataSource(AIndex : Integer; const AValue : TGcsData); virtual;
+ Procedure SetawsS3DataSource(AIndex : Integer; const AValue : TAwsS3Data); virtual;
+ Procedure SethttpDataSource(AIndex : Integer; const AValue : THttpData); virtual;
+ Procedure SetgcsDataSink(AIndex : Integer; const AValue : TGcsData); virtual;
+ Procedure SetobjectConditions(AIndex : Integer; const AValue : TObjectConditions); virtual;
+ Procedure SettransferOptions(AIndex : Integer; const AValue : TTransferOptions); virtual;
+ Public
+ Published
+ Property gcsDataSource : TGcsData Index 0 Read FgcsDataSource Write SetgcsDataSource;
+ Property awsS3DataSource : TAwsS3Data Index 8 Read FawsS3DataSource Write SetawsS3DataSource;
+ Property httpDataSource : THttpData Index 16 Read FhttpDataSource Write SethttpDataSource;
+ Property gcsDataSink : TGcsData Index 24 Read FgcsDataSink Write SetgcsDataSink;
+ Property objectConditions : TObjectConditions Index 32 Read FobjectConditions Write SetobjectConditions;
+ Property transferOptions : TTransferOptions Index 40 Read FtransferOptions Write SettransferOptions;
+ end;
+ TTransferSpecClass = Class of TTransferSpec;
+
+ { --------------------------------------------------------------------
+ TGcsData
+ --------------------------------------------------------------------}
+
+ TGcsData = Class(TGoogleBaseObject)
+ Private
+ FbucketName : String;
+ Protected
+ //Property setters
+ Procedure SetbucketName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property bucketName : String Index 0 Read FbucketName Write SetbucketName;
+ end;
+ TGcsDataClass = Class of TGcsData;
+
+ { --------------------------------------------------------------------
+ TAwsS3Data
+ --------------------------------------------------------------------}
+
+ TAwsS3Data = Class(TGoogleBaseObject)
+ Private
+ FbucketName : String;
+ FawsAccessKey : TAwsAccessKey;
+ Protected
+ //Property setters
+ Procedure SetbucketName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetawsAccessKey(AIndex : Integer; const AValue : TAwsAccessKey); virtual;
+ Public
+ Published
+ Property bucketName : String Index 0 Read FbucketName Write SetbucketName;
+ Property awsAccessKey : TAwsAccessKey Index 8 Read FawsAccessKey Write SetawsAccessKey;
+ end;
+ TAwsS3DataClass = Class of TAwsS3Data;
+
+ { --------------------------------------------------------------------
+ TAwsAccessKey
+ --------------------------------------------------------------------}
+
+ TAwsAccessKey = Class(TGoogleBaseObject)
+ Private
+ FaccessKeyId : String;
+ FsecretAccessKey : String;
+ Protected
+ //Property setters
+ Procedure SetaccessKeyId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsecretAccessKey(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property accessKeyId : String Index 0 Read FaccessKeyId Write SetaccessKeyId;
+ Property secretAccessKey : String Index 8 Read FsecretAccessKey Write SetsecretAccessKey;
+ end;
+ TAwsAccessKeyClass = Class of TAwsAccessKey;
+
+ { --------------------------------------------------------------------
+ THttpData
+ --------------------------------------------------------------------}
+
+ THttpData = Class(TGoogleBaseObject)
+ Private
+ FlistUrl : String;
+ Protected
+ //Property setters
+ Procedure SetlistUrl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property listUrl : String Index 0 Read FlistUrl Write SetlistUrl;
+ end;
+ THttpDataClass = Class of THttpData;
+
+ { --------------------------------------------------------------------
+ TObjectConditions
+ --------------------------------------------------------------------}
+
+ TObjectConditions = Class(TGoogleBaseObject)
+ Private
+ FminTimeElapsedSinceLastModification : String;
+ FmaxTimeElapsedSinceLastModification : String;
+ FincludePrefixes : TStringArray;
+ FexcludePrefixes : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetminTimeElapsedSinceLastModification(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmaxTimeElapsedSinceLastModification(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetincludePrefixes(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetexcludePrefixes(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 minTimeElapsedSinceLastModification : String Index 0 Read FminTimeElapsedSinceLastModification Write SetminTimeElapsedSinceLastModification;
+ Property maxTimeElapsedSinceLastModification : String Index 8 Read FmaxTimeElapsedSinceLastModification Write SetmaxTimeElapsedSinceLastModification;
+ Property includePrefixes : TStringArray Index 16 Read FincludePrefixes Write SetincludePrefixes;
+ Property excludePrefixes : TStringArray Index 24 Read FexcludePrefixes Write SetexcludePrefixes;
+ end;
+ TObjectConditionsClass = Class of TObjectConditions;
+
+ { --------------------------------------------------------------------
+ TTransferOptions
+ --------------------------------------------------------------------}
+
+ TTransferOptions = Class(TGoogleBaseObject)
+ Private
+ FoverwriteObjectsAlreadyExistingInSink : boolean;
+ FdeleteObjectsUniqueInSink : boolean;
+ FdeleteObjectsFromSourceAfterTransfer : boolean;
+ Protected
+ //Property setters
+ Procedure SetoverwriteObjectsAlreadyExistingInSink(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdeleteObjectsUniqueInSink(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetdeleteObjectsFromSourceAfterTransfer(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property overwriteObjectsAlreadyExistingInSink : boolean Index 0 Read FoverwriteObjectsAlreadyExistingInSink Write SetoverwriteObjectsAlreadyExistingInSink;
+ Property deleteObjectsUniqueInSink : boolean Index 8 Read FdeleteObjectsUniqueInSink Write SetdeleteObjectsUniqueInSink;
+ Property deleteObjectsFromSourceAfterTransfer : boolean Index 16 Read FdeleteObjectsFromSourceAfterTransfer Write SetdeleteObjectsFromSourceAfterTransfer;
+ end;
+ TTransferOptionsClass = Class of TTransferOptions;
+
+ { --------------------------------------------------------------------
+ TSchedule
+ --------------------------------------------------------------------}
+
+ TSchedule = Class(TGoogleBaseObject)
+ Private
+ FscheduleStartDate : TDate;
+ FscheduleEndDate : TDate;
+ FstartTimeOfDay : TTimeOfDay;
+ Protected
+ //Property setters
+ Procedure SetscheduleStartDate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure SetscheduleEndDate(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure SetstartTimeOfDay(AIndex : Integer; const AValue : TTimeOfDay); virtual;
+ Public
+ Published
+ Property scheduleStartDate : TDate Index 0 Read FscheduleStartDate Write SetscheduleStartDate;
+ Property scheduleEndDate : TDate Index 8 Read FscheduleEndDate Write SetscheduleEndDate;
+ Property startTimeOfDay : TTimeOfDay Index 16 Read FstartTimeOfDay Write SetstartTimeOfDay;
+ end;
+ TScheduleClass = Class of TSchedule;
+
+ { --------------------------------------------------------------------
+ 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;
+
+ { --------------------------------------------------------------------
+ TTimeOfDay
+ --------------------------------------------------------------------}
+
+ TTimeOfDay = Class(TGoogleBaseObject)
+ Private
+ Fhours : integer;
+ Fminutes : integer;
+ Fseconds : integer;
+ Fnanos : integer;
+ Protected
+ //Property setters
+ Procedure Sethours(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setminutes(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setseconds(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setnanos(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property hours : integer Index 0 Read Fhours Write Sethours;
+ Property minutes : integer Index 8 Read Fminutes Write Setminutes;
+ Property seconds : integer Index 16 Read Fseconds Write Setseconds;
+ Property nanos : integer Index 24 Read Fnanos Write Setnanos;
+ end;
+ TTimeOfDayClass = Class of TTimeOfDay;
+
+ { --------------------------------------------------------------------
+ TUpdateTransferJobRequest
+ --------------------------------------------------------------------}
+
+ TUpdateTransferJobRequest = Class(TGoogleBaseObject)
+ Private
+ FprojectId : String;
+ FtransferJob : TTransferJob;
+ FupdateTransferJobFieldMask : String;
+ Protected
+ //Property setters
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettransferJob(AIndex : Integer; const AValue : TTransferJob); virtual;
+ Procedure SetupdateTransferJobFieldMask(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property projectId : String Index 0 Read FprojectId Write SetprojectId;
+ Property transferJob : TTransferJob Index 8 Read FtransferJob Write SettransferJob;
+ Property updateTransferJobFieldMask : String Index 16 Read FupdateTransferJobFieldMask Write SetupdateTransferJobFieldMask;
+ end;
+ TUpdateTransferJobRequestClass = Class of TUpdateTransferJobRequest;
+
+ { --------------------------------------------------------------------
+ TListTransferJobsResponse
+ --------------------------------------------------------------------}
+
+ TListTransferJobsResponse = Class(TGoogleBaseObject)
+ Private
+ FtransferJobs : TListTransferJobsResponseTypetransferJobsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SettransferJobs(AIndex : Integer; const AValue : TListTransferJobsResponseTypetransferJobsArray); 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 transferJobs : TListTransferJobsResponseTypetransferJobsArray Index 0 Read FtransferJobs Write SettransferJobs;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListTransferJobsResponseClass = Class of TListTransferJobsResponse;
+
+ { --------------------------------------------------------------------
+ TPauseTransferOperationRequest
+ --------------------------------------------------------------------}
+
+ TPauseTransferOperationRequest = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TPauseTransferOperationRequestClass = Class of TPauseTransferOperationRequest;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TResumeTransferOperationRequest
+ --------------------------------------------------------------------}
+
+ TResumeTransferOperationRequest = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TResumeTransferOperationRequestClass = Class of TResumeTransferOperationRequest;
+
+ { --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+ TOperationTypemetadata = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTypemetadataClass = Class of TOperationTypemetadata;
+
+ { --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+ TOperationTyperesponse = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TOperationTyperesponseClass = Class of TOperationTyperesponse;
+
+ { --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+ TOperation = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ Fmetadata : TOperationTypemetadata;
+ Fdone : boolean;
+ Ferror : TStatus;
+ Fresponse : TOperationTyperesponse;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); virtual;
+ Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
+ Procedure Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property metadata : TOperationTypemetadata Index 8 Read Fmetadata Write Setmetadata;
+ Property done : boolean Index 16 Read Fdone Write Setdone;
+ Property error : TStatus Index 24 Read Ferror Write Seterror;
+ Property response : TOperationTyperesponse Index 32 Read Fresponse Write Setresponse;
+ end;
+ TOperationClass = Class of TOperation;
+
+ { --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+ TStatusTypedetailsItem = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
+
+ { --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+ TStatus = Class(TGoogleBaseObject)
+ Private
+ Fcode : integer;
+ Fmessage : String;
+ Fdetails : TStatusTypedetailsArray;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property code : integer Index 0 Read Fcode Write Setcode;
+ Property message : String Index 8 Read Fmessage Write Setmessage;
+ Property details : TStatusTypedetailsArray Index 16 Read Fdetails Write Setdetails;
+ end;
+ TStatusClass = Class of TStatus;
+
+ { --------------------------------------------------------------------
+ TListOperationsResponse
+ --------------------------------------------------------------------}
+
+ TListOperationsResponse = Class(TGoogleBaseObject)
+ Private
+ Foperations : TListOperationsResponseTypeoperationsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray); 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 operations : TListOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListOperationsResponseClass = Class of TListOperationsResponse;
+
+ { --------------------------------------------------------------------
+ TTransferOperation
+ --------------------------------------------------------------------}
+
+ TTransferOperation = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ FprojectId : String;
+ FtransferSpec : TTransferSpec;
+ FstartTime : String;
+ FendTime : String;
+ Fstatus : String;
+ Fcounters : TTransferCounters;
+ FerrorBreakdowns : TTransferOperationTypeerrorBreakdownsArray;
+ FtransferJobName : String;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettransferSpec(AIndex : Integer; const AValue : TTransferSpec); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcounters(AIndex : Integer; const AValue : TTransferCounters); virtual;
+ Procedure SeterrorBreakdowns(AIndex : Integer; const AValue : TTransferOperationTypeerrorBreakdownsArray); virtual;
+ Procedure SettransferJobName(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 name : String Index 0 Read Fname Write Setname;
+ Property projectId : String Index 8 Read FprojectId Write SetprojectId;
+ Property transferSpec : TTransferSpec Index 16 Read FtransferSpec Write SettransferSpec;
+ Property startTime : String Index 24 Read FstartTime Write SetstartTime;
+ Property endTime : String Index 32 Read FendTime Write SetendTime;
+ Property status : String Index 40 Read Fstatus Write Setstatus;
+ Property counters : TTransferCounters Index 48 Read Fcounters Write Setcounters;
+ Property errorBreakdowns : TTransferOperationTypeerrorBreakdownsArray Index 56 Read FerrorBreakdowns Write SeterrorBreakdowns;
+ Property transferJobName : String Index 64 Read FtransferJobName Write SettransferJobName;
+ end;
+ TTransferOperationClass = Class of TTransferOperation;
+
+ { --------------------------------------------------------------------
+ TTransferCounters
+ --------------------------------------------------------------------}
+
+ TTransferCounters = Class(TGoogleBaseObject)
+ Private
+ FobjectsFoundFromSource : String;
+ FbytesFoundFromSource : String;
+ FobjectsFoundOnlyFromSink : String;
+ FbytesFoundOnlyFromSink : String;
+ FobjectsFromSourceSkippedBySync : String;
+ FbytesFromSourceSkippedBySync : String;
+ FobjectsCopiedToSink : String;
+ FbytesCopiedToSink : String;
+ FobjectsDeletedFromSource : String;
+ FbytesDeletedFromSource : String;
+ FobjectsDeletedFromSink : String;
+ FbytesDeletedFromSink : String;
+ FobjectsFromSourceFailed : String;
+ FbytesFromSourceFailed : String;
+ FobjectsFailedToDeleteFromSink : String;
+ FbytesFailedToDeleteFromSink : String;
+ Protected
+ //Property setters
+ Procedure SetobjectsFoundFromSource(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbytesFoundFromSource(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetobjectsFoundOnlyFromSink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbytesFoundOnlyFromSink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetobjectsFromSourceSkippedBySync(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbytesFromSourceSkippedBySync(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetobjectsCopiedToSink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbytesCopiedToSink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetobjectsDeletedFromSource(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbytesDeletedFromSource(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetobjectsDeletedFromSink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbytesDeletedFromSink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetobjectsFromSourceFailed(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbytesFromSourceFailed(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetobjectsFailedToDeleteFromSink(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbytesFailedToDeleteFromSink(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property objectsFoundFromSource : String Index 0 Read FobjectsFoundFromSource Write SetobjectsFoundFromSource;
+ Property bytesFoundFromSource : String Index 8 Read FbytesFoundFromSource Write SetbytesFoundFromSource;
+ Property objectsFoundOnlyFromSink : String Index 16 Read FobjectsFoundOnlyFromSink Write SetobjectsFoundOnlyFromSink;
+ Property bytesFoundOnlyFromSink : String Index 24 Read FbytesFoundOnlyFromSink Write SetbytesFoundOnlyFromSink;
+ Property objectsFromSourceSkippedBySync : String Index 32 Read FobjectsFromSourceSkippedBySync Write SetobjectsFromSourceSkippedBySync;
+ Property bytesFromSourceSkippedBySync : String Index 40 Read FbytesFromSourceSkippedBySync Write SetbytesFromSourceSkippedBySync;
+ Property objectsCopiedToSink : String Index 48 Read FobjectsCopiedToSink Write SetobjectsCopiedToSink;
+ Property bytesCopiedToSink : String Index 56 Read FbytesCopiedToSink Write SetbytesCopiedToSink;
+ Property objectsDeletedFromSource : String Index 64 Read FobjectsDeletedFromSource Write SetobjectsDeletedFromSource;
+ Property bytesDeletedFromSource : String Index 72 Read FbytesDeletedFromSource Write SetbytesDeletedFromSource;
+ Property objectsDeletedFromSink : String Index 80 Read FobjectsDeletedFromSink Write SetobjectsDeletedFromSink;
+ Property bytesDeletedFromSink : String Index 88 Read FbytesDeletedFromSink Write SetbytesDeletedFromSink;
+ Property objectsFromSourceFailed : String Index 96 Read FobjectsFromSourceFailed Write SetobjectsFromSourceFailed;
+ Property bytesFromSourceFailed : String Index 104 Read FbytesFromSourceFailed Write SetbytesFromSourceFailed;
+ Property objectsFailedToDeleteFromSink : String Index 112 Read FobjectsFailedToDeleteFromSink Write SetobjectsFailedToDeleteFromSink;
+ Property bytesFailedToDeleteFromSink : String Index 120 Read FbytesFailedToDeleteFromSink Write SetbytesFailedToDeleteFromSink;
+ end;
+ TTransferCountersClass = Class of TTransferCounters;
+
+ { --------------------------------------------------------------------
+ TErrorSummary
+ --------------------------------------------------------------------}
+
+ TErrorSummary = Class(TGoogleBaseObject)
+ Private
+ FerrorCode : String;
+ FerrorCount : String;
+ FerrorLogEntries : TErrorSummaryTypeerrorLogEntriesArray;
+ Protected
+ //Property setters
+ Procedure SeterrorCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeterrorCount(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeterrorLogEntries(AIndex : Integer; const AValue : TErrorSummaryTypeerrorLogEntriesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property errorCode : String Index 0 Read FerrorCode Write SeterrorCode;
+ Property errorCount : String Index 8 Read FerrorCount Write SeterrorCount;
+ Property errorLogEntries : TErrorSummaryTypeerrorLogEntriesArray Index 16 Read FerrorLogEntries Write SeterrorLogEntries;
+ end;
+ TErrorSummaryClass = Class of TErrorSummary;
+
+ { --------------------------------------------------------------------
+ TErrorLogEntry
+ --------------------------------------------------------------------}
+
+ TErrorLogEntry = Class(TGoogleBaseObject)
+ Private
+ Furl : String;
+ FerrorDetails : TStringArray;
+ Protected
+ //Property setters
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeterrorDetails(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 url : String Index 0 Read Furl Write Seturl;
+ Property errorDetails : TStringArray Index 8 Read FerrorDetails Write SeterrorDetails;
+ end;
+ TErrorLogEntryClass = Class of TErrorLogEntry;
+
+ { --------------------------------------------------------------------
+ TGoogleServiceAccountsResource
+ --------------------------------------------------------------------}
+
+ TGoogleServiceAccountsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Get(projectId: string) : TGoogleServiceAccount;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TV1Resource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TV1Resource, method GetGoogleServiceAccount
+
+ TV1GetGoogleServiceAccountOptions = Record
+ projectId : String;
+ end;
+
+ TV1Resource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function GetGoogleServiceAccount(AQuery : string = '') : TGoogleServiceAccount;
+ Function GetGoogleServiceAccount(AQuery : TV1getGoogleServiceAccountOptions) : TGoogleServiceAccount;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TTransferJobsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TTransferJobsResource, method Get
+
+ TTransferJobsGetOptions = Record
+ projectId : String;
+ end;
+
+
+ //Optional query Options for TTransferJobsResource, method List
+
+ TTransferJobsListOptions = Record
+ filter : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TTransferJobsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(aTransferJob : TTransferJob) : TTransferJob;overload;
+ Function Patch(jobName: string; aUpdateTransferJobRequest : TUpdateTransferJobRequest) : TTransferJob;
+ Function Get(jobName: string; AQuery : string = '') : TTransferJob;
+ Function Get(jobName: string; AQuery : TTransferJobsgetOptions) : TTransferJob;
+ Function List(AQuery : string = '') : TListTransferJobsResponse;
+ Function List(AQuery : TTransferJobslistOptions) : TListTransferJobsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TTransferOperationsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TTransferOperationsResource, method List
+
+ TTransferOperationsListOptions = Record
+ filter : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TTransferOperationsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Pause(_name: string; aPauseTransferOperationRequest : TPauseTransferOperationRequest) : TEmpty;
+ Function Resume(_name: string; aResumeTransferOperationRequest : TResumeTransferOperationRequest) : TEmpty;
+ Function Get(_name: string) : TOperation;
+ Function List(_name: string; AQuery : string = '') : TListOperationsResponse;
+ Function List(_name: string; AQuery : TTransferOperationslistOptions) : TListOperationsResponse;
+ Function Cancel(_name: string) : TEmpty;
+ Function Delete(_name: string) : TEmpty;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TStoragetransferAPI
+ --------------------------------------------------------------------}
+
+ TStoragetransferAPI = Class(TGoogleAPI)
+ Private
+ FGoogleServiceAccountsInstance : TGoogleServiceAccountsResource;
+ FV1Instance : TV1Resource;
+ FTransferJobsInstance : TTransferJobsResource;
+ FTransferOperationsInstance : TTransferOperationsResource;
+ Function GetGoogleServiceAccountsInstance : TGoogleServiceAccountsResource;virtual;
+ Function GetV1Instance : TV1Resource;virtual;
+ Function GetTransferJobsInstance : TTransferJobsResource;virtual;
+ Function GetTransferOperationsInstance : TTransferOperationsResource;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 CreateGoogleServiceAccountsResource(AOwner : TComponent) : TGoogleServiceAccountsResource;virtual;overload;
+ Function CreateGoogleServiceAccountsResource : TGoogleServiceAccountsResource;virtual;overload;
+ Function CreateV1Resource(AOwner : TComponent) : TV1Resource;virtual;overload;
+ Function CreateV1Resource : TV1Resource;virtual;overload;
+ Function CreateTransferJobsResource(AOwner : TComponent) : TTransferJobsResource;virtual;overload;
+ Function CreateTransferJobsResource : TTransferJobsResource;virtual;overload;
+ Function CreateTransferOperationsResource(AOwner : TComponent) : TTransferOperationsResource;virtual;overload;
+ Function CreateTransferOperationsResource : TTransferOperationsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property GoogleServiceAccountsResource : TGoogleServiceAccountsResource Read GetGoogleServiceAccountsInstance;
+ Property V1Resource : TV1Resource Read GetV1Instance;
+ Property TransferJobsResource : TTransferJobsResource Read GetTransferJobsInstance;
+ Property TransferOperationsResource : TTransferOperationsResource Read GetTransferOperationsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TGoogleServiceAccount
+ --------------------------------------------------------------------}
+
+
+Procedure TGoogleServiceAccount.SetaccountEmail(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaccountEmail=AValue) then exit;
+ FaccountEmail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTransferJob
+ --------------------------------------------------------------------}
+
+
+Procedure TTransferJob.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferJob.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferJob.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferJob.SettransferSpec(AIndex : Integer; const AValue : TTransferSpec);
+
+begin
+ If (FtransferSpec=AValue) then exit;
+ FtransferSpec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferJob.Setschedule(AIndex : Integer; const AValue : TSchedule);
+
+begin
+ If (Fschedule=AValue) then exit;
+ Fschedule:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferJob.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferJob.SetcreationTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreationTime=AValue) then exit;
+ FcreationTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferJob.SetlastModificationTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlastModificationTime=AValue) then exit;
+ FlastModificationTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferJob.SetdeletionTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdeletionTime=AValue) then exit;
+ FdeletionTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTransferSpec
+ --------------------------------------------------------------------}
+
+
+Procedure TTransferSpec.SetgcsDataSource(AIndex : Integer; const AValue : TGcsData);
+
+begin
+ If (FgcsDataSource=AValue) then exit;
+ FgcsDataSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferSpec.SetawsS3DataSource(AIndex : Integer; const AValue : TAwsS3Data);
+
+begin
+ If (FawsS3DataSource=AValue) then exit;
+ FawsS3DataSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferSpec.SethttpDataSource(AIndex : Integer; const AValue : THttpData);
+
+begin
+ If (FhttpDataSource=AValue) then exit;
+ FhttpDataSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferSpec.SetgcsDataSink(AIndex : Integer; const AValue : TGcsData);
+
+begin
+ If (FgcsDataSink=AValue) then exit;
+ FgcsDataSink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferSpec.SetobjectConditions(AIndex : Integer; const AValue : TObjectConditions);
+
+begin
+ If (FobjectConditions=AValue) then exit;
+ FobjectConditions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferSpec.SettransferOptions(AIndex : Integer; const AValue : TTransferOptions);
+
+begin
+ If (FtransferOptions=AValue) then exit;
+ FtransferOptions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TGcsData
+ --------------------------------------------------------------------}
+
+
+Procedure TGcsData.SetbucketName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbucketName=AValue) then exit;
+ FbucketName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAwsS3Data
+ --------------------------------------------------------------------}
+
+
+Procedure TAwsS3Data.SetbucketName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbucketName=AValue) then exit;
+ FbucketName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAwsS3Data.SetawsAccessKey(AIndex : Integer; const AValue : TAwsAccessKey);
+
+begin
+ If (FawsAccessKey=AValue) then exit;
+ FawsAccessKey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAwsAccessKey
+ --------------------------------------------------------------------}
+
+
+Procedure TAwsAccessKey.SetaccessKeyId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaccessKeyId=AValue) then exit;
+ FaccessKeyId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAwsAccessKey.SetsecretAccessKey(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsecretAccessKey=AValue) then exit;
+ FsecretAccessKey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ THttpData
+ --------------------------------------------------------------------}
+
+
+Procedure THttpData.SetlistUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FlistUrl=AValue) then exit;
+ FlistUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TObjectConditions
+ --------------------------------------------------------------------}
+
+
+Procedure TObjectConditions.SetminTimeElapsedSinceLastModification(AIndex : Integer; const AValue : String);
+
+begin
+ If (FminTimeElapsedSinceLastModification=AValue) then exit;
+ FminTimeElapsedSinceLastModification:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TObjectConditions.SetmaxTimeElapsedSinceLastModification(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmaxTimeElapsedSinceLastModification=AValue) then exit;
+ FmaxTimeElapsedSinceLastModification:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TObjectConditions.SetincludePrefixes(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FincludePrefixes=AValue) then exit;
+ FincludePrefixes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TObjectConditions.SetexcludePrefixes(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FexcludePrefixes=AValue) then exit;
+ FexcludePrefixes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TObjectConditions.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'includeprefixes' : SetLength(FincludePrefixes,ALength);
+ 'excludeprefixes' : SetLength(FexcludePrefixes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTransferOptions
+ --------------------------------------------------------------------}
+
+
+Procedure TTransferOptions.SetoverwriteObjectsAlreadyExistingInSink(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FoverwriteObjectsAlreadyExistingInSink=AValue) then exit;
+ FoverwriteObjectsAlreadyExistingInSink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferOptions.SetdeleteObjectsUniqueInSink(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FdeleteObjectsUniqueInSink=AValue) then exit;
+ FdeleteObjectsUniqueInSink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferOptions.SetdeleteObjectsFromSourceAfterTransfer(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FdeleteObjectsFromSourceAfterTransfer=AValue) then exit;
+ FdeleteObjectsFromSourceAfterTransfer:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSchedule
+ --------------------------------------------------------------------}
+
+
+Procedure TSchedule.SetscheduleStartDate(AIndex : Integer; const AValue : TDate);
+
+begin
+ If (FscheduleStartDate=AValue) then exit;
+ FscheduleStartDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSchedule.SetscheduleEndDate(AIndex : Integer; const AValue : TDate);
+
+begin
+ If (FscheduleEndDate=AValue) then exit;
+ FscheduleEndDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSchedule.SetstartTimeOfDay(AIndex : Integer; const AValue : TTimeOfDay);
+
+begin
+ If (FstartTimeOfDay=AValue) then exit;
+ FstartTimeOfDay:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ 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;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTimeOfDay
+ --------------------------------------------------------------------}
+
+
+Procedure TTimeOfDay.Sethours(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fhours=AValue) then exit;
+ Fhours:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimeOfDay.Setminutes(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fminutes=AValue) then exit;
+ Fminutes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimeOfDay.Setseconds(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fseconds=AValue) then exit;
+ Fseconds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimeOfDay.Setnanos(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fnanos=AValue) then exit;
+ Fnanos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TUpdateTransferJobRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TUpdateTransferJobRequest.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateTransferJobRequest.SettransferJob(AIndex : Integer; const AValue : TTransferJob);
+
+begin
+ If (FtransferJob=AValue) then exit;
+ FtransferJob:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TUpdateTransferJobRequest.SetupdateTransferJobFieldMask(AIndex : Integer; const AValue : String);
+
+begin
+ If (FupdateTransferJobFieldMask=AValue) then exit;
+ FupdateTransferJobFieldMask:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListTransferJobsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListTransferJobsResponse.SettransferJobs(AIndex : Integer; const AValue : TListTransferJobsResponseTypetransferJobsArray);
+
+begin
+ If (FtransferJobs=AValue) then exit;
+ FtransferJobs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListTransferJobsResponse.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 TListTransferJobsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'transferjobs' : SetLength(FtransferJobs,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TPauseTransferOperationRequest
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TResumeTransferOperationRequest
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTypemetadata
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTypemetadata.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperationTyperesponse
+ --------------------------------------------------------------------}
+
+
+Class Function TOperationTyperesponse.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TOperation
+ --------------------------------------------------------------------}
+
+
+Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
+
+begin
+ If (Fmetadata=AValue) then exit;
+ Fmetadata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fdone=AValue) then exit;
+ Fdone:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
+
+begin
+ If (Fresponse=AValue) then exit;
+ Fresponse:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+
+Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'details' : SetLength(Fdetails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListOperationsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListOperationsResponse.Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray);
+
+begin
+ If (Foperations=AValue) then exit;
+ Foperations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListOperationsResponse.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 TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'operations' : SetLength(Foperations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTransferOperation
+ --------------------------------------------------------------------}
+
+
+Procedure TTransferOperation.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferOperation.SetprojectId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprojectId=AValue) then exit;
+ FprojectId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferOperation.SettransferSpec(AIndex : Integer; const AValue : TTransferSpec);
+
+begin
+ If (FtransferSpec=AValue) then exit;
+ FtransferSpec:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferOperation.SetstartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTime=AValue) then exit;
+ FstartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferOperation.SetendTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferOperation.Setstatus(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstatus=AValue) then exit;
+ Fstatus:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferOperation.Setcounters(AIndex : Integer; const AValue : TTransferCounters);
+
+begin
+ If (Fcounters=AValue) then exit;
+ Fcounters:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferOperation.SeterrorBreakdowns(AIndex : Integer; const AValue : TTransferOperationTypeerrorBreakdownsArray);
+
+begin
+ If (FerrorBreakdowns=AValue) then exit;
+ FerrorBreakdowns:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferOperation.SettransferJobName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtransferJobName=AValue) then exit;
+ FtransferJobName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTransferOperation.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'errorbreakdowns' : SetLength(FerrorBreakdowns,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTransferCounters
+ --------------------------------------------------------------------}
+
+
+Procedure TTransferCounters.SetobjectsFoundFromSource(AIndex : Integer; const AValue : String);
+
+begin
+ If (FobjectsFoundFromSource=AValue) then exit;
+ FobjectsFoundFromSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetbytesFoundFromSource(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbytesFoundFromSource=AValue) then exit;
+ FbytesFoundFromSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetobjectsFoundOnlyFromSink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FobjectsFoundOnlyFromSink=AValue) then exit;
+ FobjectsFoundOnlyFromSink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetbytesFoundOnlyFromSink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbytesFoundOnlyFromSink=AValue) then exit;
+ FbytesFoundOnlyFromSink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetobjectsFromSourceSkippedBySync(AIndex : Integer; const AValue : String);
+
+begin
+ If (FobjectsFromSourceSkippedBySync=AValue) then exit;
+ FobjectsFromSourceSkippedBySync:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetbytesFromSourceSkippedBySync(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbytesFromSourceSkippedBySync=AValue) then exit;
+ FbytesFromSourceSkippedBySync:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetobjectsCopiedToSink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FobjectsCopiedToSink=AValue) then exit;
+ FobjectsCopiedToSink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetbytesCopiedToSink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbytesCopiedToSink=AValue) then exit;
+ FbytesCopiedToSink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetobjectsDeletedFromSource(AIndex : Integer; const AValue : String);
+
+begin
+ If (FobjectsDeletedFromSource=AValue) then exit;
+ FobjectsDeletedFromSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetbytesDeletedFromSource(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbytesDeletedFromSource=AValue) then exit;
+ FbytesDeletedFromSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetobjectsDeletedFromSink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FobjectsDeletedFromSink=AValue) then exit;
+ FobjectsDeletedFromSink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetbytesDeletedFromSink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbytesDeletedFromSink=AValue) then exit;
+ FbytesDeletedFromSink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetobjectsFromSourceFailed(AIndex : Integer; const AValue : String);
+
+begin
+ If (FobjectsFromSourceFailed=AValue) then exit;
+ FobjectsFromSourceFailed:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetbytesFromSourceFailed(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbytesFromSourceFailed=AValue) then exit;
+ FbytesFromSourceFailed:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetobjectsFailedToDeleteFromSink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FobjectsFailedToDeleteFromSink=AValue) then exit;
+ FobjectsFailedToDeleteFromSink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTransferCounters.SetbytesFailedToDeleteFromSink(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbytesFailedToDeleteFromSink=AValue) then exit;
+ FbytesFailedToDeleteFromSink:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TErrorSummary
+ --------------------------------------------------------------------}
+
+
+Procedure TErrorSummary.SeterrorCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FerrorCode=AValue) then exit;
+ FerrorCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorSummary.SeterrorCount(AIndex : Integer; const AValue : String);
+
+begin
+ If (FerrorCount=AValue) then exit;
+ FerrorCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorSummary.SeterrorLogEntries(AIndex : Integer; const AValue : TErrorSummaryTypeerrorLogEntriesArray);
+
+begin
+ If (FerrorLogEntries=AValue) then exit;
+ FerrorLogEntries:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TErrorSummary.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'errorlogentries' : SetLength(FerrorLogEntries,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TErrorLogEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TErrorLogEntry.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TErrorLogEntry.SeterrorDetails(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FerrorDetails=AValue) then exit;
+ FerrorDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TErrorLogEntry.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'errordetails' : SetLength(FerrorDetails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TGoogleServiceAccountsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TGoogleServiceAccountsResource.ResourceName : String;
+
+begin
+ Result:='googleServiceAccounts';
+end;
+
+Class Function TGoogleServiceAccountsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TstoragetransferAPI;
+end;
+
+Function TGoogleServiceAccountsResource.Get(projectId: string) : TGoogleServiceAccount;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/googleServiceAccounts/{projectId}';
+ _Methodid = 'storagetransfer.googleServiceAccounts.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TGoogleServiceAccount) as TGoogleServiceAccount;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TV1Resource
+ --------------------------------------------------------------------}
+
+
+Class Function TV1Resource.ResourceName : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TV1Resource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TstoragetransferAPI;
+end;
+
+Function TV1Resource.GetGoogleServiceAccount(AQuery : string = '') : TGoogleServiceAccount;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1:getGoogleServiceAccount';
+ _Methodid = 'storagetransfer.getGoogleServiceAccount';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TGoogleServiceAccount) as TGoogleServiceAccount;
+end;
+
+
+Function TV1Resource.GetGoogleServiceAccount(AQuery : TV1getGoogleServiceAccountOptions) : TGoogleServiceAccount;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'projectId',AQuery.projectId);
+ Result:=GetGoogleServiceAccount(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TTransferJobsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TTransferJobsResource.ResourceName : String;
+
+begin
+ Result:='transferJobs';
+end;
+
+Class Function TTransferJobsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TstoragetransferAPI;
+end;
+
+Function TTransferJobsResource.Create(aTransferJob : TTransferJob) : TTransferJob;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/transferJobs';
+ _Methodid = 'storagetransfer.transferJobs.create';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aTransferJob,TTransferJob) as TTransferJob;
+end;
+
+Function TTransferJobsResource.Patch(jobName: string; aUpdateTransferJobRequest : TUpdateTransferJobRequest) : TTransferJob;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'v1/{+jobName}';
+ _Methodid = 'storagetransfer.transferJobs.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['jobName',jobName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aUpdateTransferJobRequest,TTransferJob) as TTransferJob;
+end;
+
+Function TTransferJobsResource.Get(jobName: string; AQuery : string = '') : TTransferJob;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+jobName}';
+ _Methodid = 'storagetransfer.transferJobs.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['jobName',jobName]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTransferJob) as TTransferJob;
+end;
+
+
+Function TTransferJobsResource.Get(jobName: string; AQuery : TTransferJobsgetOptions) : TTransferJob;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'projectId',AQuery.projectId);
+ Result:=Get(jobName,_Q);
+end;
+
+Function TTransferJobsResource.List(AQuery : string = '') : TListTransferJobsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/transferJobs';
+ _Methodid = 'storagetransfer.transferJobs.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListTransferJobsResponse) as TListTransferJobsResponse;
+end;
+
+
+Function TTransferJobsResource.List(AQuery : TTransferJobslistOptions) : TListTransferJobsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TTransferOperationsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TTransferOperationsResource.ResourceName : String;
+
+begin
+ Result:='transferOperations';
+end;
+
+Class Function TTransferOperationsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TstoragetransferAPI;
+end;
+
+Function TTransferOperationsResource.Pause(_name: string; aPauseTransferOperationRequest : TPauseTransferOperationRequest) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+name}:pause';
+ _Methodid = 'storagetransfer.transferOperations.pause';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aPauseTransferOperationRequest,TEmpty) as TEmpty;
+end;
+
+Function TTransferOperationsResource.Resume(_name: string; aResumeTransferOperationRequest : TResumeTransferOperationRequest) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+name}:resume';
+ _Methodid = 'storagetransfer.transferOperations.resume';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aResumeTransferOperationRequest,TEmpty) as TEmpty;
+end;
+
+Function TTransferOperationsResource.Get(_name: string) : TOperation;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'storagetransfer.transferOperations.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
+end;
+
+Function TTransferOperationsResource.List(_name: string; AQuery : string = '') : TListOperationsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/{+name}';
+ _Methodid = 'storagetransfer.transferOperations.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListOperationsResponse) as TListOperationsResponse;
+end;
+
+
+Function TTransferOperationsResource.List(_name: string; AQuery : TTransferOperationslistOptions) : TListOperationsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(_name,_Q);
+end;
+
+Function TTransferOperationsResource.Cancel(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/{+name}:cancel';
+ _Methodid = 'storagetransfer.transferOperations.cancel';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+Function TTransferOperationsResource.Delete(_name: string) : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/{+name}';
+ _Methodid = 'storagetransfer.transferOperations.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['name',_name]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TStoragetransferAPI
+ --------------------------------------------------------------------}
+
+Class Function TStoragetransferAPI.APIName : String;
+
+begin
+ Result:='storagetransfer';
+end;
+
+Class Function TStoragetransferAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TStoragetransferAPI.APIRevision : String;
+
+begin
+ Result:='20150811';
+end;
+
+Class Function TStoragetransferAPI.APIID : String;
+
+begin
+ Result:='storagetransfer:v1';
+end;
+
+Class Function TStoragetransferAPI.APITitle : String;
+
+begin
+ Result:='Google Storage Transfer API';
+end;
+
+Class Function TStoragetransferAPI.APIDescription : String;
+
+begin
+ Result:='Transfers data from external data sources to a Google Cloud Storage bucket or between Google Cloud Storage buckets.';
+end;
+
+Class Function TStoragetransferAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TStoragetransferAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TStoragetransferAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TStoragetransferAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TStoragetransferAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/storage/transfer';
+end;
+
+Class Function TStoragetransferAPI.APIrootUrl : string;
+
+begin
+ Result:='https://storagetransfer.googleapis.com/';
+end;
+
+Class Function TStoragetransferAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TStoragetransferAPI.APIbaseURL : String;
+
+begin
+ Result:='https://storagetransfer.googleapis.com/';
+end;
+
+Class Function TStoragetransferAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TStoragetransferAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TStoragetransferAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TStoragetransferAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+
+end;
+
+Class Function TStoragetransferAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TStoragetransferAPI.RegisterAPIResources;
+
+begin
+ TGoogleServiceAccount.RegisterObject;
+ TTransferJob.RegisterObject;
+ TTransferSpec.RegisterObject;
+ TGcsData.RegisterObject;
+ TAwsS3Data.RegisterObject;
+ TAwsAccessKey.RegisterObject;
+ THttpData.RegisterObject;
+ TObjectConditions.RegisterObject;
+ TTransferOptions.RegisterObject;
+ TSchedule.RegisterObject;
+ TDate.RegisterObject;
+ TTimeOfDay.RegisterObject;
+ TUpdateTransferJobRequest.RegisterObject;
+ TListTransferJobsResponse.RegisterObject;
+ TPauseTransferOperationRequest.RegisterObject;
+ TEmpty.RegisterObject;
+ TResumeTransferOperationRequest.RegisterObject;
+ TOperationTypemetadata.RegisterObject;
+ TOperationTyperesponse.RegisterObject;
+ TOperation.RegisterObject;
+ TStatusTypedetailsItem.RegisterObject;
+ TStatus.RegisterObject;
+ TListOperationsResponse.RegisterObject;
+ TTransferOperation.RegisterObject;
+ TTransferCounters.RegisterObject;
+ TErrorSummary.RegisterObject;
+ TErrorLogEntry.RegisterObject;
+end;
+
+
+Function TStoragetransferAPI.GetGoogleServiceAccountsInstance : TGoogleServiceAccountsResource;
+
+begin
+ if (FGoogleServiceAccountsInstance=Nil) then
+ FGoogleServiceAccountsInstance:=CreateGoogleServiceAccountsResource;
+ Result:=FGoogleServiceAccountsInstance;
+end;
+
+Function TStoragetransferAPI.CreateGoogleServiceAccountsResource : TGoogleServiceAccountsResource;
+
+begin
+ Result:=CreateGoogleServiceAccountsResource(Self);
+end;
+
+
+Function TStoragetransferAPI.CreateGoogleServiceAccountsResource(AOwner : TComponent) : TGoogleServiceAccountsResource;
+
+begin
+ Result:=TGoogleServiceAccountsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TStoragetransferAPI.GetV1Instance : TV1Resource;
+
+begin
+ if (FV1Instance=Nil) then
+ FV1Instance:=CreateV1Resource;
+ Result:=FV1Instance;
+end;
+
+Function TStoragetransferAPI.CreateV1Resource : TV1Resource;
+
+begin
+ Result:=CreateV1Resource(Self);
+end;
+
+
+Function TStoragetransferAPI.CreateV1Resource(AOwner : TComponent) : TV1Resource;
+
+begin
+ Result:=TV1Resource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TStoragetransferAPI.GetTransferJobsInstance : TTransferJobsResource;
+
+begin
+ if (FTransferJobsInstance=Nil) then
+ FTransferJobsInstance:=CreateTransferJobsResource;
+ Result:=FTransferJobsInstance;
+end;
+
+Function TStoragetransferAPI.CreateTransferJobsResource : TTransferJobsResource;
+
+begin
+ Result:=CreateTransferJobsResource(Self);
+end;
+
+
+Function TStoragetransferAPI.CreateTransferJobsResource(AOwner : TComponent) : TTransferJobsResource;
+
+begin
+ Result:=TTransferJobsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TStoragetransferAPI.GetTransferOperationsInstance : TTransferOperationsResource;
+
+begin
+ if (FTransferOperationsInstance=Nil) then
+ FTransferOperationsInstance:=CreateTransferOperationsResource;
+ Result:=FTransferOperationsInstance;
+end;
+
+Function TStoragetransferAPI.CreateTransferOperationsResource : TTransferOperationsResource;
+
+begin
+ Result:=CreateTransferOperationsResource(Self);
+end;
+
+
+Function TStoragetransferAPI.CreateTransferOperationsResource(AOwner : TComponent) : TTransferOperationsResource;
+
+begin
+ Result:=TTransferOperationsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TStoragetransferAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googletagmanager.pp b/packages/googleapi/src/googletagmanager.pp
index dcf4daa5c0..0927f55d2c 100644
--- a/packages/googleapi/src/googletagmanager.pp
+++ b/packages/googleapi/src/googletagmanager.pp
@@ -1,19 +1,4 @@
unit googletagmanager;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:08
{$MODE objfpc}
{$H+}
@@ -33,12 +18,15 @@ type
TContainerVersionHeader = Class;
TCreateContainerVersionRequestVersionOptions = Class;
TCreateContainerVersionResponse = Class;
+ TEnvironment = Class;
+ TFolder = Class;
+ TFolderEntities = Class;
TListAccountUsersResponse = Class;
TListAccountsResponse = Class;
TListContainerVersionsResponse = Class;
TListContainersResponse = Class;
- TListMacrosResponse = Class;
- TListRulesResponse = Class;
+ TListEnvironmentsResponse = Class;
+ TListFoldersResponse = Class;
TListTagsResponse = Class;
TListTriggersResponse = Class;
TListVariablesResponse = Class;
@@ -46,7 +34,9 @@ type
TParameter = Class;
TPublishContainerVersionResponse = Class;
TRule = Class;
+ TSetupTag = Class;
TTag = Class;
+ TTeardownTag = Class;
TTrigger = Class;
TUserAccess = Class;
TVariable = Class;
@@ -59,12 +49,15 @@ type
TContainerVersionHeaderArray = Array of TContainerVersionHeader;
TCreateContainerVersionRequestVersionOptionsArray = Array of TCreateContainerVersionRequestVersionOptions;
TCreateContainerVersionResponseArray = Array of TCreateContainerVersionResponse;
+ TEnvironmentArray = Array of TEnvironment;
+ TFolderArray = Array of TFolder;
+ TFolderEntitiesArray = Array of TFolderEntities;
TListAccountUsersResponseArray = Array of TListAccountUsersResponse;
TListAccountsResponseArray = Array of TListAccountsResponse;
TListContainerVersionsResponseArray = Array of TListContainerVersionsResponse;
TListContainersResponseArray = Array of TListContainersResponse;
- TListMacrosResponseArray = Array of TListMacrosResponse;
- TListRulesResponseArray = Array of TListRulesResponse;
+ TListEnvironmentsResponseArray = Array of TListEnvironmentsResponse;
+ TListFoldersResponseArray = Array of TListFoldersResponse;
TListTagsResponseArray = Array of TListTagsResponse;
TListTriggersResponseArray = Array of TListTriggersResponse;
TListVariablesResponseArray = Array of TListVariablesResponse;
@@ -72,24 +65,30 @@ type
TParameterArray = Array of TParameter;
TPublishContainerVersionResponseArray = Array of TPublishContainerVersionResponse;
TRuleArray = Array of TRule;
+ TSetupTagArray = Array of TSetupTag;
TTagArray = Array of TTag;
+ TTeardownTagArray = Array of TTeardownTag;
TTriggerArray = Array of TTrigger;
TUserAccessArray = Array of TUserAccess;
TVariableArray = Array of TVariable;
//Anonymous types, using auto-generated names
TConditionTypeparameterArray = Array of TParameter;
+ TContainerVersionTypefolderArray = Array of TFolder;
TContainerVersionTypemacroArray = Array of TMacro;
TContainerVersionTyperuleArray = Array of TRule;
TContainerVersionTypetagArray = Array of TTag;
TContainerVersionTypetriggerArray = Array of TTrigger;
TContainerVersionTypevariableArray = Array of TVariable;
+ TFolderEntitiesTypetagArray = Array of TTag;
+ TFolderEntitiesTypetriggerArray = Array of TTrigger;
+ TFolderEntitiesTypevariableArray = Array of TVariable;
TListAccountUsersResponseTypeuserAccessArray = Array of TUserAccess;
TListAccountsResponseTypeaccountsArray = Array of TAccount;
TListContainerVersionsResponseTypecontainerVersionArray = Array of TContainerVersion;
TListContainerVersionsResponseTypecontainerVersionHeaderArray = Array of TContainerVersionHeader;
TListContainersResponseTypecontainersArray = Array of TContainer;
- TListMacrosResponseTypemacrosArray = Array of TMacro;
- TListRulesResponseTyperulesArray = Array of TRule;
+ TListEnvironmentsResponseTypeenvironmentsArray = Array of TEnvironment;
+ TListFoldersResponseTypefoldersArray = Array of TFolder;
TListTagsResponseTypetagsArray = Array of TTag;
TListTriggersResponseTypetriggersArray = Array of TTrigger;
TListVariablesResponseTypevariablesArray = Array of TVariable;
@@ -98,6 +97,8 @@ type
TParameterTypemapArray = Array of TParameter;
TRuleTypeconditionArray = Array of TCondition;
TTagTypeparameterArray = Array of TParameter;
+ TTagTypesetupTagArray = Array of TSetupTag;
+ TTagTypeteardownTagArray = Array of TTeardownTag;
TTriggerTypeautoEventFilterArray = Array of TCondition;
TTriggerTypecustomEventFilterArray = Array of TCondition;
TTriggerTypefilterArray = Array of TCondition;
@@ -119,7 +120,7 @@ type
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetshareData(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetshareData(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property accountId : String Index 0 Read FaccountId Write SetaccountId;
@@ -138,7 +139,7 @@ type
Fpermission : TStringArray;
Protected
//Property setters
- Procedure Setpermission(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setpermission(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -160,7 +161,7 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setparameter(AIndex : Integer; AValue : TConditionTypeparameterArray); virtual;
+ Procedure Setparameter(AIndex : Integer; const AValue : TConditionTypeparameterArray); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -194,15 +195,15 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdomainName(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetenabledBuiltInVariable(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetdomainName(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetenabledBuiltInVariable(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
Procedure SetpublicId(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeZoneCountryId(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeZoneId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetusageContext(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetusageContext(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -234,7 +235,7 @@ type
Protected
//Property setters
Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpermission(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setpermission(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -258,6 +259,7 @@ type
FcontainerVersionId : String;
Fdeleted : boolean;
Ffingerprint : String;
+ Ffolder : TContainerVersionTypefolderArray;
Fmacro : TContainerVersionTypemacroArray;
Fname : String;
Fnotes : String;
@@ -268,18 +270,19 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcontainer(AIndex : Integer; AValue : TContainer); virtual;
+ Procedure Setcontainer(AIndex : Integer; const AValue : TContainer); virtual;
Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontainerVersionId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmacro(AIndex : Integer; AValue : TContainerVersionTypemacroArray); virtual;
+ Procedure Setfolder(AIndex : Integer; const AValue : TContainerVersionTypefolderArray); virtual;
+ Procedure Setmacro(AIndex : Integer; const AValue : TContainerVersionTypemacroArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrule(AIndex : Integer; AValue : TContainerVersionTyperuleArray); virtual;
- Procedure Settag(AIndex : Integer; AValue : TContainerVersionTypetagArray); virtual;
- Procedure Settrigger(AIndex : Integer; AValue : TContainerVersionTypetriggerArray); virtual;
- Procedure Setvariable(AIndex : Integer; AValue : TContainerVersionTypevariableArray); virtual;
+ Procedure Setrule(AIndex : Integer; const AValue : TContainerVersionTyperuleArray); virtual;
+ Procedure Settag(AIndex : Integer; const AValue : TContainerVersionTypetagArray); virtual;
+ Procedure Settrigger(AIndex : Integer; const AValue : TContainerVersionTypetriggerArray); virtual;
+ Procedure Setvariable(AIndex : Integer; const AValue : TContainerVersionTypevariableArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -292,13 +295,14 @@ type
Property containerVersionId : String Index 24 Read FcontainerVersionId Write SetcontainerVersionId;
Property deleted : boolean Index 32 Read Fdeleted Write Setdeleted;
Property fingerprint : String Index 40 Read Ffingerprint Write Setfingerprint;
- Property macro : TContainerVersionTypemacroArray Index 48 Read Fmacro Write Setmacro;
- Property name : String Index 56 Read Fname Write Setname;
- Property notes : String Index 64 Read Fnotes Write Setnotes;
- Property rule : TContainerVersionTyperuleArray Index 72 Read Frule Write Setrule;
- Property tag : TContainerVersionTypetagArray Index 80 Read Ftag Write Settag;
- Property trigger : TContainerVersionTypetriggerArray Index 88 Read Ftrigger Write Settrigger;
- Property variable : TContainerVersionTypevariableArray Index 96 Read Fvariable Write Setvariable;
+ Property folder : TContainerVersionTypefolderArray Index 48 Read Ffolder Write Setfolder;
+ Property macro : TContainerVersionTypemacroArray Index 56 Read Fmacro Write Setmacro;
+ Property name : String Index 64 Read Fname Write Setname;
+ Property notes : String Index 72 Read Fnotes Write Setnotes;
+ Property rule : TContainerVersionTyperuleArray Index 80 Read Frule Write Setrule;
+ Property tag : TContainerVersionTypetagArray Index 88 Read Ftag Write Settag;
+ Property trigger : TContainerVersionTypetriggerArray Index 96 Read Ftrigger Write Settrigger;
+ Property variable : TContainerVersionTypevariableArray Index 104 Read Fvariable Write Setvariable;
end;
TContainerVersionClass = Class of TContainerVersion;
@@ -323,7 +327,7 @@ type
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontainerVersionId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetnumMacros(AIndex : Integer; const AValue : String); virtual;
Procedure SetnumRules(AIndex : Integer; const AValue : String); virtual;
@@ -358,7 +362,7 @@ type
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure SetquickPreview(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetquickPreview(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
@@ -377,8 +381,8 @@ type
FcontainerVersion : TContainerVersion;
Protected
//Property setters
- Procedure SetcompilerError(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcontainerVersion(AIndex : Integer; AValue : TContainerVersion); virtual;
+ Procedure SetcompilerError(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcontainerVersion(AIndex : Integer; const AValue : TContainerVersion); virtual;
Public
Published
Property compilerError : boolean Index 0 Read FcompilerError Write SetcompilerError;
@@ -387,6 +391,110 @@ type
TCreateContainerVersionResponseClass = Class of TCreateContainerVersionResponse;
{ --------------------------------------------------------------------
+ TEnvironment
+ --------------------------------------------------------------------}
+
+ TEnvironment = Class(TGoogleBaseObject)
+ Private
+ FaccountId : String;
+ FauthorizationCode : String;
+ FauthorizationTimestampMs : String;
+ FcontainerId : String;
+ FcontainerVersionId : String;
+ Fdescription : String;
+ FenableDebug : boolean;
+ FenvironmentId : String;
+ Ffingerprint : String;
+ Fname : String;
+ F_type : String;
+ Furl : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetauthorizationCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetauthorizationTimestampMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcontainerVersionId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetenableDebug(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetenvironmentId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property accountId : String Index 0 Read FaccountId Write SetaccountId;
+ Property authorizationCode : String Index 8 Read FauthorizationCode Write SetauthorizationCode;
+ Property authorizationTimestampMs : String Index 16 Read FauthorizationTimestampMs Write SetauthorizationTimestampMs;
+ Property containerId : String Index 24 Read FcontainerId Write SetcontainerId;
+ Property containerVersionId : String Index 32 Read FcontainerVersionId Write SetcontainerVersionId;
+ Property description : String Index 40 Read Fdescription Write Setdescription;
+ Property enableDebug : boolean Index 48 Read FenableDebug Write SetenableDebug;
+ Property environmentId : String Index 56 Read FenvironmentId Write SetenvironmentId;
+ Property fingerprint : String Index 64 Read Ffingerprint Write Setfingerprint;
+ Property name : String Index 72 Read Fname Write Setname;
+ Property _type : String Index 80 Read F_type Write Set_type;
+ Property url : String Index 88 Read Furl Write Seturl;
+ end;
+ TEnvironmentClass = Class of TEnvironment;
+
+ { --------------------------------------------------------------------
+ TFolder
+ --------------------------------------------------------------------}
+
+ TFolder = Class(TGoogleBaseObject)
+ Private
+ FaccountId : String;
+ FcontainerId : String;
+ Ffingerprint : String;
+ FfolderId : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfolderId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property accountId : String Index 0 Read FaccountId Write SetaccountId;
+ Property containerId : String Index 8 Read FcontainerId Write SetcontainerId;
+ Property fingerprint : String Index 16 Read Ffingerprint Write Setfingerprint;
+ Property folderId : String Index 24 Read FfolderId Write SetfolderId;
+ Property name : String Index 32 Read Fname Write Setname;
+ end;
+ TFolderClass = Class of TFolder;
+
+ { --------------------------------------------------------------------
+ TFolderEntities
+ --------------------------------------------------------------------}
+
+ TFolderEntities = Class(TGoogleBaseObject)
+ Private
+ Ftag : TFolderEntitiesTypetagArray;
+ Ftrigger : TFolderEntitiesTypetriggerArray;
+ Fvariable : TFolderEntitiesTypevariableArray;
+ Protected
+ //Property setters
+ Procedure Settag(AIndex : Integer; const AValue : TFolderEntitiesTypetagArray); virtual;
+ Procedure Settrigger(AIndex : Integer; const AValue : TFolderEntitiesTypetriggerArray); virtual;
+ Procedure Setvariable(AIndex : Integer; const AValue : TFolderEntitiesTypevariableArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property tag : TFolderEntitiesTypetagArray Index 0 Read Ftag Write Settag;
+ Property trigger : TFolderEntitiesTypetriggerArray Index 8 Read Ftrigger Write Settrigger;
+ Property variable : TFolderEntitiesTypevariableArray Index 16 Read Fvariable Write Setvariable;
+ end;
+ TFolderEntitiesClass = Class of TFolderEntities;
+
+ { --------------------------------------------------------------------
TListAccountUsersResponse
--------------------------------------------------------------------}
@@ -395,7 +503,7 @@ type
FuserAccess : TListAccountUsersResponseTypeuserAccessArray;
Protected
//Property setters
- Procedure SetuserAccess(AIndex : Integer; AValue : TListAccountUsersResponseTypeuserAccessArray); virtual;
+ Procedure SetuserAccess(AIndex : Integer; const AValue : TListAccountUsersResponseTypeuserAccessArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -415,7 +523,7 @@ type
Faccounts : TListAccountsResponseTypeaccountsArray;
Protected
//Property setters
- Procedure Setaccounts(AIndex : Integer; AValue : TListAccountsResponseTypeaccountsArray); virtual;
+ Procedure Setaccounts(AIndex : Integer; const AValue : TListAccountsResponseTypeaccountsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -436,8 +544,8 @@ type
FcontainerVersionHeader : TListContainerVersionsResponseTypecontainerVersionHeaderArray;
Protected
//Property setters
- Procedure SetcontainerVersion(AIndex : Integer; AValue : TListContainerVersionsResponseTypecontainerVersionArray); virtual;
- Procedure SetcontainerVersionHeader(AIndex : Integer; AValue : TListContainerVersionsResponseTypecontainerVersionHeaderArray); virtual;
+ Procedure SetcontainerVersion(AIndex : Integer; const AValue : TListContainerVersionsResponseTypecontainerVersionArray); virtual;
+ Procedure SetcontainerVersionHeader(AIndex : Integer; const AValue : TListContainerVersionsResponseTypecontainerVersionHeaderArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -458,7 +566,7 @@ type
Fcontainers : TListContainersResponseTypecontainersArray;
Protected
//Property setters
- Procedure Setcontainers(AIndex : Integer; AValue : TListContainersResponseTypecontainersArray); virtual;
+ Procedure Setcontainers(AIndex : Integer; const AValue : TListContainersResponseTypecontainersArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -470,44 +578,44 @@ type
TListContainersResponseClass = Class of TListContainersResponse;
{ --------------------------------------------------------------------
- TListMacrosResponse
+ TListEnvironmentsResponse
--------------------------------------------------------------------}
- TListMacrosResponse = Class(TGoogleBaseObject)
+ TListEnvironmentsResponse = Class(TGoogleBaseObject)
Private
- Fmacros : TListMacrosResponseTypemacrosArray;
+ Fenvironments : TListEnvironmentsResponseTypeenvironmentsArray;
Protected
//Property setters
- Procedure Setmacros(AIndex : Integer; AValue : TListMacrosResponseTypemacrosArray); virtual;
+ Procedure Setenvironments(AIndex : Integer; const AValue : TListEnvironmentsResponseTypeenvironmentsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property macros : TListMacrosResponseTypemacrosArray Index 0 Read Fmacros Write Setmacros;
+ Property environments : TListEnvironmentsResponseTypeenvironmentsArray Index 0 Read Fenvironments Write Setenvironments;
end;
- TListMacrosResponseClass = Class of TListMacrosResponse;
+ TListEnvironmentsResponseClass = Class of TListEnvironmentsResponse;
{ --------------------------------------------------------------------
- TListRulesResponse
+ TListFoldersResponse
--------------------------------------------------------------------}
- TListRulesResponse = Class(TGoogleBaseObject)
+ TListFoldersResponse = Class(TGoogleBaseObject)
Private
- Frules : TListRulesResponseTyperulesArray;
+ Ffolders : TListFoldersResponseTypefoldersArray;
Protected
//Property setters
- Procedure Setrules(AIndex : Integer; AValue : TListRulesResponseTyperulesArray); virtual;
+ Procedure Setfolders(AIndex : Integer; const AValue : TListFoldersResponseTypefoldersArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
- Property rules : TListRulesResponseTyperulesArray Index 0 Read Frules Write Setrules;
+ Property folders : TListFoldersResponseTypefoldersArray Index 0 Read Ffolders Write Setfolders;
end;
- TListRulesResponseClass = Class of TListRulesResponse;
+ TListFoldersResponseClass = Class of TListFoldersResponse;
{ --------------------------------------------------------------------
TListTagsResponse
@@ -518,7 +626,7 @@ type
Ftags : TListTagsResponseTypetagsArray;
Protected
//Property setters
- Procedure Settags(AIndex : Integer; AValue : TListTagsResponseTypetagsArray); virtual;
+ Procedure Settags(AIndex : Integer; const AValue : TListTagsResponseTypetagsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -538,7 +646,7 @@ type
Ftriggers : TListTriggersResponseTypetriggersArray;
Protected
//Property setters
- Procedure Settriggers(AIndex : Integer; AValue : TListTriggersResponseTypetriggersArray); virtual;
+ Procedure Settriggers(AIndex : Integer; const AValue : TListTriggersResponseTypetriggersArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -558,7 +666,7 @@ type
Fvariables : TListVariablesResponseTypevariablesArray;
Protected
//Property setters
- Procedure Setvariables(AIndex : Integer; AValue : TListVariablesResponseTypevariablesArray); virtual;
+ Procedure Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -584,6 +692,7 @@ type
Fname : String;
Fnotes : String;
Fparameter : TMacroTypeparameterArray;
+ FparentFolderId : String;
FscheduleEndMs : String;
FscheduleStartMs : String;
F_type : String;
@@ -592,13 +701,14 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisablingRuleId(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetenablingRuleId(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetdisablingRuleId(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetenablingRuleId(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure SetmacroId(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparameter(AIndex : Integer; AValue : TMacroTypeparameterArray); virtual;
+ Procedure Setparameter(AIndex : Integer; const AValue : TMacroTypeparameterArray); virtual;
+ Procedure SetparentFolderId(AIndex : Integer; const AValue : String); virtual;
Procedure SetscheduleEndMs(AIndex : Integer; const AValue : String); virtual;
Procedure SetscheduleStartMs(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
@@ -617,9 +727,10 @@ type
Property name : String Index 48 Read Fname Write Setname;
Property notes : String Index 56 Read Fnotes Write Setnotes;
Property parameter : TMacroTypeparameterArray Index 64 Read Fparameter Write Setparameter;
- Property scheduleEndMs : String Index 72 Read FscheduleEndMs Write SetscheduleEndMs;
- Property scheduleStartMs : String Index 80 Read FscheduleStartMs Write SetscheduleStartMs;
- Property _type : String Index 88 Read F_type Write Set_type;
+ Property parentFolderId : String Index 72 Read FparentFolderId Write SetparentFolderId;
+ Property scheduleEndMs : String Index 80 Read FscheduleEndMs Write SetscheduleEndMs;
+ Property scheduleStartMs : String Index 88 Read FscheduleStartMs Write SetscheduleStartMs;
+ Property _type : String Index 96 Read F_type Write Set_type;
end;
TMacroClass = Class of TMacro;
@@ -638,8 +749,8 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlist(AIndex : Integer; AValue : TParameterTypelistArray); virtual;
- Procedure Setmap(AIndex : Integer; AValue : TParameterTypemapArray); virtual;
+ Procedure Setlist(AIndex : Integer; const AValue : TParameterTypelistArray); virtual;
+ Procedure Setmap(AIndex : Integer; const AValue : TParameterTypemapArray); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -666,8 +777,8 @@ type
FcontainerVersion : TContainerVersion;
Protected
//Property setters
- Procedure SetcompilerError(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcontainerVersion(AIndex : Integer; AValue : TContainerVersion); virtual;
+ Procedure SetcompilerError(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcontainerVersion(AIndex : Integer; const AValue : TContainerVersion); virtual;
Public
Published
Property compilerError : boolean Index 0 Read FcompilerError Write SetcompilerError;
@@ -691,7 +802,7 @@ type
Protected
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcondition(AIndex : Integer; AValue : TRuleTypeconditionArray); virtual;
+ Procedure Setcondition(AIndex : Integer; const AValue : TRuleTypeconditionArray); virtual;
Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
@@ -714,6 +825,25 @@ type
TRuleClass = Class of TRule;
{ --------------------------------------------------------------------
+ TSetupTag
+ --------------------------------------------------------------------}
+
+ TSetupTag = Class(TGoogleBaseObject)
+ Private
+ FstopOnSetupFailure : boolean;
+ FtagName : String;
+ Protected
+ //Property setters
+ Procedure SetstopOnSetupFailure(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SettagName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property stopOnSetupFailure : boolean Index 0 Read FstopOnSetupFailure Write SetstopOnSetupFailure;
+ Property tagName : String Index 8 Read FtagName Write SettagName;
+ end;
+ TSetupTagClass = Class of TSetupTag;
+
+ { --------------------------------------------------------------------
TTag
--------------------------------------------------------------------}
@@ -730,29 +860,37 @@ type
Fname : String;
Fnotes : String;
Fparameter : TTagTypeparameterArray;
+ FparentFolderId : String;
Fpriority : TParameter;
FscheduleEndMs : String;
FscheduleStartMs : String;
+ FsetupTag : TTagTypesetupTagArray;
+ FtagFiringOption : String;
FtagId : String;
+ FteardownTag : TTagTypeteardownTagArray;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetblockingRuleId(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetblockingTriggerId(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetblockingRuleId(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetblockingTriggerId(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfiringRuleId(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetfiringTriggerId(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetliveOnly(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetfiringRuleId(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetfiringTriggerId(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetliveOnly(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparameter(AIndex : Integer; AValue : TTagTypeparameterArray); virtual;
- Procedure Setpriority(AIndex : Integer; AValue : TParameter); virtual;
+ Procedure Setparameter(AIndex : Integer; const AValue : TTagTypeparameterArray); virtual;
+ Procedure SetparentFolderId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setpriority(AIndex : Integer; const AValue : TParameter); virtual;
Procedure SetscheduleEndMs(AIndex : Integer; const AValue : String); virtual;
Procedure SetscheduleStartMs(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsetupTag(AIndex : Integer; const AValue : TTagTypesetupTagArray); virtual;
+ Procedure SettagFiringOption(AIndex : Integer; const AValue : String); virtual;
Procedure SettagId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetteardownTag(AIndex : Integer; const AValue : TTagTypeteardownTagArray); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -771,15 +909,38 @@ type
Property name : String Index 64 Read Fname Write Setname;
Property notes : String Index 72 Read Fnotes Write Setnotes;
Property parameter : TTagTypeparameterArray Index 80 Read Fparameter Write Setparameter;
- Property priority : TParameter Index 88 Read Fpriority Write Setpriority;
- Property scheduleEndMs : String Index 96 Read FscheduleEndMs Write SetscheduleEndMs;
- Property scheduleStartMs : String Index 104 Read FscheduleStartMs Write SetscheduleStartMs;
- Property tagId : String Index 112 Read FtagId Write SettagId;
- Property _type : String Index 120 Read F_type Write Set_type;
+ Property parentFolderId : String Index 88 Read FparentFolderId Write SetparentFolderId;
+ Property priority : TParameter Index 96 Read Fpriority Write Setpriority;
+ Property scheduleEndMs : String Index 104 Read FscheduleEndMs Write SetscheduleEndMs;
+ Property scheduleStartMs : String Index 112 Read FscheduleStartMs Write SetscheduleStartMs;
+ Property setupTag : TTagTypesetupTagArray Index 120 Read FsetupTag Write SetsetupTag;
+ Property tagFiringOption : String Index 128 Read FtagFiringOption Write SettagFiringOption;
+ Property tagId : String Index 136 Read FtagId Write SettagId;
+ Property teardownTag : TTagTypeteardownTagArray Index 144 Read FteardownTag Write SetteardownTag;
+ Property _type : String Index 152 Read F_type Write Set_type;
end;
TTagClass = Class of TTag;
{ --------------------------------------------------------------------
+ TTeardownTag
+ --------------------------------------------------------------------}
+
+ TTeardownTag = Class(TGoogleBaseObject)
+ Private
+ FstopTeardownOnFailure : boolean;
+ FtagName : String;
+ Protected
+ //Property setters
+ Procedure SetstopTeardownOnFailure(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SettagName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property stopTeardownOnFailure : boolean Index 0 Read FstopTeardownOnFailure Write SetstopTeardownOnFailure;
+ Property tagName : String Index 8 Read FtagName Write SettagName;
+ end;
+ TTeardownTagClass = Class of TTeardownTag;
+
+ { --------------------------------------------------------------------
TTrigger
--------------------------------------------------------------------}
@@ -797,6 +958,7 @@ type
Finterval : TParameter;
Flimit : TParameter;
Fname : String;
+ FparentFolderId : String;
FtriggerId : String;
F_type : String;
FuniqueTriggerId : TParameter;
@@ -807,23 +969,24 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetautoEventFilter(AIndex : Integer; AValue : TTriggerTypeautoEventFilterArray); virtual;
- Procedure SetcheckValidation(AIndex : Integer; AValue : TParameter); virtual;
+ Procedure SetautoEventFilter(AIndex : Integer; const AValue : TTriggerTypeautoEventFilterArray); virtual;
+ Procedure SetcheckValidation(AIndex : Integer; const AValue : TParameter); virtual;
Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcustomEventFilter(AIndex : Integer; AValue : TTriggerTypecustomEventFilterArray); virtual;
- Procedure SetenableAllVideos(AIndex : Integer; AValue : TParameter); virtual;
- Procedure SeteventName(AIndex : Integer; AValue : TParameter); virtual;
- Procedure Setfilter(AIndex : Integer; AValue : TTriggerTypefilterArray); virtual;
+ Procedure SetcustomEventFilter(AIndex : Integer; const AValue : TTriggerTypecustomEventFilterArray); virtual;
+ Procedure SetenableAllVideos(AIndex : Integer; const AValue : TParameter); virtual;
+ Procedure SeteventName(AIndex : Integer; const AValue : TParameter); virtual;
+ Procedure Setfilter(AIndex : Integer; const AValue : TTriggerTypefilterArray); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinterval(AIndex : Integer; AValue : TParameter); virtual;
- Procedure Setlimit(AIndex : Integer; AValue : TParameter); virtual;
+ Procedure Setinterval(AIndex : Integer; const AValue : TParameter); virtual;
+ Procedure Setlimit(AIndex : Integer; const AValue : TParameter); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetparentFolderId(AIndex : Integer; const AValue : String); virtual;
Procedure SettriggerId(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuniqueTriggerId(AIndex : Integer; AValue : TParameter); virtual;
- Procedure SetvideoPercentageList(AIndex : Integer; AValue : TParameter); virtual;
- Procedure SetwaitForTags(AIndex : Integer; AValue : TParameter); virtual;
- Procedure SetwaitForTagsTimeout(AIndex : Integer; AValue : TParameter); virtual;
+ Procedure SetuniqueTriggerId(AIndex : Integer; const AValue : TParameter); virtual;
+ Procedure SetvideoPercentageList(AIndex : Integer; const AValue : TParameter); virtual;
+ Procedure SetwaitForTags(AIndex : Integer; const AValue : TParameter); virtual;
+ Procedure SetwaitForTagsTimeout(AIndex : Integer; const AValue : TParameter); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -842,12 +1005,13 @@ type
Property interval : TParameter Index 72 Read Finterval Write Setinterval;
Property limit : TParameter Index 80 Read Flimit Write Setlimit;
Property name : String Index 88 Read Fname Write Setname;
- Property triggerId : String Index 96 Read FtriggerId Write SettriggerId;
- Property _type : String Index 104 Read F_type Write Set_type;
- Property uniqueTriggerId : TParameter Index 112 Read FuniqueTriggerId Write SetuniqueTriggerId;
- Property videoPercentageList : TParameter Index 120 Read FvideoPercentageList Write SetvideoPercentageList;
- Property waitForTags : TParameter Index 128 Read FwaitForTags Write SetwaitForTags;
- Property waitForTagsTimeout : TParameter Index 136 Read FwaitForTagsTimeout Write SetwaitForTagsTimeout;
+ Property parentFolderId : String Index 96 Read FparentFolderId Write SetparentFolderId;
+ Property triggerId : String Index 104 Read FtriggerId Write SettriggerId;
+ Property _type : String Index 112 Read F_type Write Set_type;
+ Property uniqueTriggerId : TParameter Index 120 Read FuniqueTriggerId Write SetuniqueTriggerId;
+ Property videoPercentageList : TParameter Index 128 Read FvideoPercentageList Write SetvideoPercentageList;
+ Property waitForTags : TParameter Index 136 Read FwaitForTags Write SetwaitForTags;
+ Property waitForTagsTimeout : TParameter Index 144 Read FwaitForTagsTimeout Write SetwaitForTagsTimeout;
end;
TTriggerClass = Class of TTrigger;
@@ -864,9 +1028,9 @@ type
FpermissionId : String;
Protected
//Property setters
- Procedure SetaccountAccess(AIndex : Integer; AValue : TAccountAccess); virtual;
+ Procedure SetaccountAccess(AIndex : Integer; const AValue : TAccountAccess); virtual;
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerAccess(AIndex : Integer; AValue : TUserAccessTypecontainerAccessArray); virtual;
+ Procedure SetcontainerAccess(AIndex : Integer; const AValue : TUserAccessTypecontainerAccessArray); virtual;
Procedure SetemailAddress(AIndex : Integer; const AValue : String); virtual;
Procedure SetpermissionId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -897,6 +1061,7 @@ type
Fname : String;
Fnotes : String;
Fparameter : TVariableTypeparameterArray;
+ FparentFolderId : String;
FscheduleEndMs : String;
FscheduleStartMs : String;
F_type : String;
@@ -906,12 +1071,13 @@ type
//Property setters
Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisablingTriggerId(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetenablingTriggerId(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetdisablingTriggerId(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetenablingTriggerId(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparameter(AIndex : Integer; AValue : TVariableTypeparameterArray); virtual;
+ Procedure Setparameter(AIndex : Integer; const AValue : TVariableTypeparameterArray); virtual;
+ Procedure SetparentFolderId(AIndex : Integer; const AValue : String); virtual;
Procedure SetscheduleEndMs(AIndex : Integer; const AValue : String); virtual;
Procedure SetscheduleStartMs(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
@@ -930,58 +1096,120 @@ type
Property name : String Index 40 Read Fname Write Setname;
Property notes : String Index 48 Read Fnotes Write Setnotes;
Property parameter : TVariableTypeparameterArray Index 56 Read Fparameter Write Setparameter;
- Property scheduleEndMs : String Index 64 Read FscheduleEndMs Write SetscheduleEndMs;
- Property scheduleStartMs : String Index 72 Read FscheduleStartMs Write SetscheduleStartMs;
- Property _type : String Index 80 Read F_type Write Set_type;
- Property variableId : String Index 88 Read FvariableId Write SetvariableId;
+ Property parentFolderId : String Index 64 Read FparentFolderId Write SetparentFolderId;
+ Property scheduleEndMs : String Index 72 Read FscheduleEndMs Write SetscheduleEndMs;
+ Property scheduleStartMs : String Index 80 Read FscheduleStartMs Write SetscheduleStartMs;
+ Property _type : String Index 88 Read F_type Write Set_type;
+ Property variableId : String Index 96 Read FvariableId Write SetvariableId;
end;
TVariableClass = Class of TVariable;
{ --------------------------------------------------------------------
- TAccountsContainersMacrosResource
+ TAccountsContainersEnvironmentsResource
--------------------------------------------------------------------}
- //Optional query Options for TAccountsContainersMacrosResource, method Update
+ //Optional query Options for TAccountsContainersEnvironmentsResource, method Patch
+
+ TAccountsContainersEnvironmentsPatchOptions = Record
+ fingerprint : String;
+ end;
+
+
+ //Optional query Options for TAccountsContainersEnvironmentsResource, method Update
- TAccountsContainersMacrosUpdateOptions = Record
+ TAccountsContainersEnvironmentsUpdateOptions = Record
fingerprint : String;
end;
- TAccountsContainersMacrosResource = Class(TGoogleResource)
+ TAccountsContainersEnvironmentsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(accountId: string; containerId: string; aMacro : TMacro) : TMacro;overload;
- Procedure Delete(accountId: string; containerId: string; macroId: string);
- Function Get(accountId: string; containerId: string; macroId: string) : TMacro;
- Function List(accountId: string; containerId: string) : TListMacrosResponse;
- Function Update(accountId: string; containerId: string; macroId: string; aMacro : TMacro; AQuery : string = '') : TMacro;
- Function Update(accountId: string; containerId: string; macroId: string; aMacro : TMacro; AQuery : TAccountsContainersMacrosupdateOptions) : TMacro;
+ Function Create(accountId: string; containerId: string; aEnvironment : TEnvironment) : TEnvironment;overload;
+ Procedure Delete(accountId: string; containerId: string; environmentId: string);
+ Function Get(accountId: string; containerId: string; environmentId: string) : TEnvironment;
+ Function List(accountId: string; containerId: string) : TListEnvironmentsResponse;
+ Function Patch(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : string = '') : TEnvironment;
+ Function Patch(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : TAccountsContainersEnvironmentspatchOptions) : TEnvironment;
+ Function Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : string = '') : TEnvironment;
+ Function Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : TAccountsContainersEnvironmentsupdateOptions) : TEnvironment;
end;
{ --------------------------------------------------------------------
- TAccountsContainersRulesResource
+ TAccountsContainersFoldersEntitiesResource
--------------------------------------------------------------------}
+ TAccountsContainersFoldersEntitiesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(accountId: string; containerId: string; folderId: string) : TFolderEntities;
+ end;
- //Optional query Options for TAccountsContainersRulesResource, method Update
- TAccountsContainersRulesUpdateOptions = Record
+ { --------------------------------------------------------------------
+ TAccountsContainersFoldersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAccountsContainersFoldersResource, method Update
+
+ TAccountsContainersFoldersUpdateOptions = Record
fingerprint : String;
end;
- TAccountsContainersRulesResource = Class(TGoogleResource)
+ TAccountsContainersFoldersResource = Class(TGoogleResource)
+ Private
+ FEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
+ Function GetEntitiesInstance : TAccountsContainersFoldersEntitiesResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(accountId: string; containerId: string; aFolder : TFolder) : TFolder;overload;
+ Procedure Delete(accountId: string; containerId: string; folderId: string);
+ Function Get(accountId: string; containerId: string; folderId: string) : TFolder;
+ Function List(accountId: string; containerId: string) : TListFoldersResponse;
+ Function Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : string = '') : TFolder;
+ Function Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : TAccountsContainersFoldersupdateOptions) : TFolder;
+ Function CreateEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;virtual;overload;
+ Function CreateEntitiesResource : TAccountsContainersFoldersEntitiesResource;virtual;overload;
+ Property EntitiesResource : TAccountsContainersFoldersEntitiesResource Read GetEntitiesInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsContainersMove_foldersResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TAccountsContainersMove_foldersResource, method Update
+
+ TAccountsContainersMove_foldersUpdateOptions = Record
+ tagId : String;
+ triggerId : String;
+ variableId : String;
+ end;
+
+ TAccountsContainersMove_foldersResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(accountId: string; containerId: string; aRule : TRule) : TRule;overload;
- Procedure Delete(accountId: string; containerId: string; ruleId: string);
- Function Get(accountId: string; containerId: string; ruleId: string) : TRule;
- Function List(accountId: string; containerId: string) : TListRulesResponse;
- Function Update(accountId: string; containerId: string; ruleId: string; aRule : TRule; AQuery : string = '') : TRule;
- Function Update(accountId: string; containerId: string; ruleId: string; aRule : TRule; AQuery : TAccountsContainersRulesupdateOptions) : TRule;
+ Procedure Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : string = '');
+ Procedure Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : TAccountsContainersMove_foldersupdateOptions);
+ end;
+
+
+ { --------------------------------------------------------------------
+ TAccountsContainersReauthorize_environmentsResource
+ --------------------------------------------------------------------}
+
+ TAccountsContainersReauthorize_environmentsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment) : TEnvironment;
end;
@@ -1066,6 +1294,7 @@ type
TAccountsContainersVersionsListOptions = Record
headers : boolean;
+ includeDeleted : boolean;
end;
@@ -1113,14 +1342,20 @@ type
TAccountsContainersResource = Class(TGoogleResource)
Private
- FMacrosInstance : TAccountsContainersMacrosResource;
- FRulesInstance : TAccountsContainersRulesResource;
+ FEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
+ FFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
+ FFoldersInstance : TAccountsContainersFoldersResource;
+ FMove_foldersInstance : TAccountsContainersMove_foldersResource;
+ FReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
FTagsInstance : TAccountsContainersTagsResource;
FTriggersInstance : TAccountsContainersTriggersResource;
FVariablesInstance : TAccountsContainersVariablesResource;
FVersionsInstance : TAccountsContainersVersionsResource;
- Function GetMacrosInstance : TAccountsContainersMacrosResource;virtual;
- Function GetRulesInstance : TAccountsContainersRulesResource;virtual;
+ Function GetEnvironmentsInstance : TAccountsContainersEnvironmentsResource;virtual;
+ Function GetFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;virtual;
+ Function GetFoldersInstance : TAccountsContainersFoldersResource;virtual;
+ Function GetMove_foldersInstance : TAccountsContainersMove_foldersResource;virtual;
+ Function GetReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;virtual;
Function GetTagsInstance : TAccountsContainersTagsResource;virtual;
Function GetTriggersInstance : TAccountsContainersTriggersResource;virtual;
Function GetVariablesInstance : TAccountsContainersVariablesResource;virtual;
@@ -1134,10 +1369,16 @@ type
Function List(accountId: string) : TListContainersResponse;
Function Update(accountId: string; containerId: string; aContainer : TContainer; AQuery : string = '') : TContainer;
Function Update(accountId: string; containerId: string; aContainer : TContainer; AQuery : TAccountsContainersupdateOptions) : TContainer;
- Function CreateMacrosResource(AOwner : TComponent) : TAccountsContainersMacrosResource;virtual;overload;
- Function CreateMacrosResource : TAccountsContainersMacrosResource;virtual;overload;
- Function CreateRulesResource(AOwner : TComponent) : TAccountsContainersRulesResource;virtual;overload;
- Function CreateRulesResource : TAccountsContainersRulesResource;virtual;overload;
+ Function CreateEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;virtual;overload;
+ Function CreateEnvironmentsResource : TAccountsContainersEnvironmentsResource;virtual;overload;
+ Function CreateFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;virtual;overload;
+ Function CreateFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;virtual;overload;
+ Function CreateFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;virtual;overload;
+ Function CreateFoldersResource : TAccountsContainersFoldersResource;virtual;overload;
+ Function CreateMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;virtual;overload;
+ Function CreateMove_foldersResource : TAccountsContainersMove_foldersResource;virtual;overload;
+ Function CreateReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
+ Function CreateReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
Function CreateTagsResource(AOwner : TComponent) : TAccountsContainersTagsResource;virtual;overload;
Function CreateTagsResource : TAccountsContainersTagsResource;virtual;overload;
Function CreateTriggersResource(AOwner : TComponent) : TAccountsContainersTriggersResource;virtual;overload;
@@ -1146,8 +1387,11 @@ type
Function CreateVariablesResource : TAccountsContainersVariablesResource;virtual;overload;
Function CreateVersionsResource(AOwner : TComponent) : TAccountsContainersVersionsResource;virtual;overload;
Function CreateVersionsResource : TAccountsContainersVersionsResource;virtual;overload;
- Property MacrosResource : TAccountsContainersMacrosResource Read GetMacrosInstance;
- Property RulesResource : TAccountsContainersRulesResource Read GetRulesInstance;
+ Property EnvironmentsResource : TAccountsContainersEnvironmentsResource Read GetEnvironmentsInstance;
+ Property FoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource Read GetFoldersEntitiesInstance;
+ Property FoldersResource : TAccountsContainersFoldersResource Read GetFoldersInstance;
+ Property Move_foldersResource : TAccountsContainersMove_foldersResource Read GetMove_foldersInstance;
+ Property Reauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource Read GetReauthorize_environmentsInstance;
Property TagsResource : TAccountsContainersTagsResource Read GetTagsInstance;
Property TriggersResource : TAccountsContainersTriggersResource Read GetTriggersInstance;
Property VariablesResource : TAccountsContainersVariablesResource Read GetVariablesInstance;
@@ -1184,16 +1428,22 @@ type
TAccountsResource = Class(TGoogleResource)
Private
- FContainersMacrosInstance : TAccountsContainersMacrosResource;
- FContainersRulesInstance : TAccountsContainersRulesResource;
+ FContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
+ FContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
+ FContainersFoldersInstance : TAccountsContainersFoldersResource;
+ FContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;
+ FContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
FContainersTagsInstance : TAccountsContainersTagsResource;
FContainersTriggersInstance : TAccountsContainersTriggersResource;
FContainersVariablesInstance : TAccountsContainersVariablesResource;
FContainersVersionsInstance : TAccountsContainersVersionsResource;
FContainersInstance : TAccountsContainersResource;
FPermissionsInstance : TAccountsPermissionsResource;
- Function GetContainersMacrosInstance : TAccountsContainersMacrosResource;virtual;
- Function GetContainersRulesInstance : TAccountsContainersRulesResource;virtual;
+ Function GetContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;virtual;
+ Function GetContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;virtual;
+ Function GetContainersFoldersInstance : TAccountsContainersFoldersResource;virtual;
+ Function GetContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;virtual;
+ Function GetContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;virtual;
Function GetContainersTagsInstance : TAccountsContainersTagsResource;virtual;
Function GetContainersTriggersInstance : TAccountsContainersTriggersResource;virtual;
Function GetContainersVariablesInstance : TAccountsContainersVariablesResource;virtual;
@@ -1207,10 +1457,16 @@ type
Function List : TListAccountsResponse;
Function Update(accountId: string; aAccount : TAccount; AQuery : string = '') : TAccount;
Function Update(accountId: string; aAccount : TAccount; AQuery : TAccountsupdateOptions) : TAccount;
- Function CreateContainersMacrosResource(AOwner : TComponent) : TAccountsContainersMacrosResource;virtual;overload;
- Function CreateContainersMacrosResource : TAccountsContainersMacrosResource;virtual;overload;
- Function CreateContainersRulesResource(AOwner : TComponent) : TAccountsContainersRulesResource;virtual;overload;
- Function CreateContainersRulesResource : TAccountsContainersRulesResource;virtual;overload;
+ Function CreateContainersEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;virtual;overload;
+ Function CreateContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource;virtual;overload;
+ Function CreateContainersFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;virtual;overload;
+ Function CreateContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;virtual;overload;
+ Function CreateContainersFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;virtual;overload;
+ Function CreateContainersFoldersResource : TAccountsContainersFoldersResource;virtual;overload;
+ Function CreateContainersMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;virtual;overload;
+ Function CreateContainersMove_foldersResource : TAccountsContainersMove_foldersResource;virtual;overload;
+ Function CreateContainersReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
+ Function CreateContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
Function CreateContainersTagsResource(AOwner : TComponent) : TAccountsContainersTagsResource;virtual;overload;
Function CreateContainersTagsResource : TAccountsContainersTagsResource;virtual;overload;
Function CreateContainersTriggersResource(AOwner : TComponent) : TAccountsContainersTriggersResource;virtual;overload;
@@ -1223,8 +1479,11 @@ type
Function CreateContainersResource : TAccountsContainersResource;virtual;overload;
Function CreatePermissionsResource(AOwner : TComponent) : TAccountsPermissionsResource;virtual;overload;
Function CreatePermissionsResource : TAccountsPermissionsResource;virtual;overload;
- Property ContainersMacrosResource : TAccountsContainersMacrosResource Read GetContainersMacrosInstance;
- Property ContainersRulesResource : TAccountsContainersRulesResource Read GetContainersRulesInstance;
+ Property ContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource Read GetContainersEnvironmentsInstance;
+ Property ContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource Read GetContainersFoldersEntitiesInstance;
+ Property ContainersFoldersResource : TAccountsContainersFoldersResource Read GetContainersFoldersInstance;
+ Property ContainersMove_foldersResource : TAccountsContainersMove_foldersResource Read GetContainersMove_foldersInstance;
+ Property ContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource Read GetContainersReauthorize_environmentsInstance;
Property ContainersTagsResource : TAccountsContainersTagsResource Read GetContainersTagsInstance;
Property ContainersTriggersResource : TAccountsContainersTriggersResource Read GetContainersTriggersInstance;
Property ContainersVariablesResource : TAccountsContainersVariablesResource Read GetContainersVariablesInstance;
@@ -1240,8 +1499,11 @@ type
TTagmanagerAPI = Class(TGoogleAPI)
Private
- FAccountsContainersMacrosInstance : TAccountsContainersMacrosResource;
- FAccountsContainersRulesInstance : TAccountsContainersRulesResource;
+ FAccountsContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
+ FAccountsContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
+ FAccountsContainersFoldersInstance : TAccountsContainersFoldersResource;
+ FAccountsContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;
+ FAccountsContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
FAccountsContainersTagsInstance : TAccountsContainersTagsResource;
FAccountsContainersTriggersInstance : TAccountsContainersTriggersResource;
FAccountsContainersVariablesInstance : TAccountsContainersVariablesResource;
@@ -1249,8 +1511,11 @@ type
FAccountsContainersInstance : TAccountsContainersResource;
FAccountsPermissionsInstance : TAccountsPermissionsResource;
FAccountsInstance : TAccountsResource;
- Function GetAccountsContainersMacrosInstance : TAccountsContainersMacrosResource;virtual;
- Function GetAccountsContainersRulesInstance : TAccountsContainersRulesResource;virtual;
+ Function GetAccountsContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;virtual;
+ Function GetAccountsContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;virtual;
+ Function GetAccountsContainersFoldersInstance : TAccountsContainersFoldersResource;virtual;
+ Function GetAccountsContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;virtual;
+ Function GetAccountsContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;virtual;
Function GetAccountsContainersTagsInstance : TAccountsContainersTagsResource;virtual;
Function GetAccountsContainersTriggersInstance : TAccountsContainersTriggersResource;virtual;
Function GetAccountsContainersVariablesInstance : TAccountsContainersVariablesResource;virtual;
@@ -1281,10 +1546,16 @@ type
Class Function APINeedsAuth : Boolean;override;
Class Procedure RegisterAPIResources; override;
//Add create function for resources
- Function CreateAccountsContainersMacrosResource(AOwner : TComponent) : TAccountsContainersMacrosResource;virtual;overload;
- Function CreateAccountsContainersMacrosResource : TAccountsContainersMacrosResource;virtual;overload;
- Function CreateAccountsContainersRulesResource(AOwner : TComponent) : TAccountsContainersRulesResource;virtual;overload;
- Function CreateAccountsContainersRulesResource : TAccountsContainersRulesResource;virtual;overload;
+ Function CreateAccountsContainersEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;virtual;overload;
+ Function CreateAccountsContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource;virtual;overload;
+ Function CreateAccountsContainersFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;virtual;overload;
+ Function CreateAccountsContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;virtual;overload;
+ Function CreateAccountsContainersFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;virtual;overload;
+ Function CreateAccountsContainersFoldersResource : TAccountsContainersFoldersResource;virtual;overload;
+ Function CreateAccountsContainersMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;virtual;overload;
+ Function CreateAccountsContainersMove_foldersResource : TAccountsContainersMove_foldersResource;virtual;overload;
+ Function CreateAccountsContainersReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
+ Function CreateAccountsContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
Function CreateAccountsContainersTagsResource(AOwner : TComponent) : TAccountsContainersTagsResource;virtual;overload;
Function CreateAccountsContainersTagsResource : TAccountsContainersTagsResource;virtual;overload;
Function CreateAccountsContainersTriggersResource(AOwner : TComponent) : TAccountsContainersTriggersResource;virtual;overload;
@@ -1300,8 +1571,11 @@ type
Function CreateAccountsResource(AOwner : TComponent) : TAccountsResource;virtual;overload;
Function CreateAccountsResource : TAccountsResource;virtual;overload;
//Add default on-demand instances for resources
- Property AccountsContainersMacrosResource : TAccountsContainersMacrosResource Read GetAccountsContainersMacrosInstance;
- Property AccountsContainersRulesResource : TAccountsContainersRulesResource Read GetAccountsContainersRulesInstance;
+ Property AccountsContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource Read GetAccountsContainersEnvironmentsInstance;
+ Property AccountsContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource Read GetAccountsContainersFoldersEntitiesInstance;
+ Property AccountsContainersFoldersResource : TAccountsContainersFoldersResource Read GetAccountsContainersFoldersInstance;
+ Property AccountsContainersMove_foldersResource : TAccountsContainersMove_foldersResource Read GetAccountsContainersMove_foldersInstance;
+ Property AccountsContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource Read GetAccountsContainersReauthorize_environmentsInstance;
Property AccountsContainersTagsResource : TAccountsContainersTagsResource Read GetAccountsContainersTagsInstance;
Property AccountsContainersTriggersResource : TAccountsContainersTriggersResource Read GetAccountsContainersTriggersInstance;
Property AccountsContainersVariablesResource : TAccountsContainersVariablesResource Read GetAccountsContainersVariablesInstance;
@@ -1349,7 +1623,7 @@ end;
-Procedure TAccount.SetshareData(AIndex : Integer; AValue : boolean);
+Procedure TAccount.SetshareData(AIndex : Integer; const AValue : boolean);
begin
If (FshareData=AValue) then exit;
@@ -1366,7 +1640,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAccountAccess.Setpermission(AIndex : Integer; AValue : TStringArray);
+Procedure TAccountAccess.Setpermission(AIndex : Integer; const AValue : TStringArray);
begin
If (Fpermission=AValue) then exit;
@@ -1396,7 +1670,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCondition.Setparameter(AIndex : Integer; AValue : TConditionTypeparameterArray);
+Procedure TCondition.Setparameter(AIndex : Integer; const AValue : TConditionTypeparameterArray);
begin
If (Fparameter=AValue) then exit;
@@ -1467,7 +1741,7 @@ end;
-Procedure TContainer.SetdomainName(AIndex : Integer; AValue : TStringArray);
+Procedure TContainer.SetdomainName(AIndex : Integer; const AValue : TStringArray);
begin
If (FdomainName=AValue) then exit;
@@ -1477,7 +1751,7 @@ end;
-Procedure TContainer.SetenabledBuiltInVariable(AIndex : Integer; AValue : TStringArray);
+Procedure TContainer.SetenabledBuiltInVariable(AIndex : Integer; const AValue : TStringArray);
begin
If (FenabledBuiltInVariable=AValue) then exit;
@@ -1547,7 +1821,7 @@ end;
-Procedure TContainer.SetusageContext(AIndex : Integer; AValue : TStringArray);
+Procedure TContainer.SetusageContext(AIndex : Integer; const AValue : TStringArray);
begin
If (FusageContext=AValue) then exit;
@@ -1589,7 +1863,7 @@ end;
-Procedure TContainerAccess.Setpermission(AIndex : Integer; AValue : TStringArray);
+Procedure TContainerAccess.Setpermission(AIndex : Integer; const AValue : TStringArray);
begin
If (Fpermission=AValue) then exit;
@@ -1629,7 +1903,7 @@ end;
-Procedure TContainerVersion.Setcontainer(AIndex : Integer; AValue : TContainer);
+Procedure TContainerVersion.Setcontainer(AIndex : Integer; const AValue : TContainer);
begin
If (Fcontainer=AValue) then exit;
@@ -1659,7 +1933,7 @@ end;
-Procedure TContainerVersion.Setdeleted(AIndex : Integer; AValue : boolean);
+Procedure TContainerVersion.Setdeleted(AIndex : Integer; const AValue : boolean);
begin
If (Fdeleted=AValue) then exit;
@@ -1679,7 +1953,17 @@ end;
-Procedure TContainerVersion.Setmacro(AIndex : Integer; AValue : TContainerVersionTypemacroArray);
+Procedure TContainerVersion.Setfolder(AIndex : Integer; const AValue : TContainerVersionTypefolderArray);
+
+begin
+ If (Ffolder=AValue) then exit;
+ Ffolder:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TContainerVersion.Setmacro(AIndex : Integer; const AValue : TContainerVersionTypemacroArray);
begin
If (Fmacro=AValue) then exit;
@@ -1709,7 +1993,7 @@ end;
-Procedure TContainerVersion.Setrule(AIndex : Integer; AValue : TContainerVersionTyperuleArray);
+Procedure TContainerVersion.Setrule(AIndex : Integer; const AValue : TContainerVersionTyperuleArray);
begin
If (Frule=AValue) then exit;
@@ -1719,7 +2003,7 @@ end;
-Procedure TContainerVersion.Settag(AIndex : Integer; AValue : TContainerVersionTypetagArray);
+Procedure TContainerVersion.Settag(AIndex : Integer; const AValue : TContainerVersionTypetagArray);
begin
If (Ftag=AValue) then exit;
@@ -1729,7 +2013,7 @@ end;
-Procedure TContainerVersion.Settrigger(AIndex : Integer; AValue : TContainerVersionTypetriggerArray);
+Procedure TContainerVersion.Settrigger(AIndex : Integer; const AValue : TContainerVersionTypetriggerArray);
begin
If (Ftrigger=AValue) then exit;
@@ -1739,7 +2023,7 @@ end;
-Procedure TContainerVersion.Setvariable(AIndex : Integer; AValue : TContainerVersionTypevariableArray);
+Procedure TContainerVersion.Setvariable(AIndex : Integer; const AValue : TContainerVersionTypevariableArray);
begin
If (Fvariable=AValue) then exit;
@@ -1754,6 +2038,7 @@ Procedure TContainerVersion.SetArrayLength(Const AName : String; ALength : Longi
begin
Case AName of
+ 'folder' : SetLength(Ffolder,ALength);
'macro' : SetLength(Fmacro,ALength);
'rule' : SetLength(Frule,ALength);
'tag' : SetLength(Ftag,ALength);
@@ -1803,7 +2088,7 @@ end;
-Procedure TContainerVersionHeader.Setdeleted(AIndex : Integer; AValue : boolean);
+Procedure TContainerVersionHeader.Setdeleted(AIndex : Integer; const AValue : boolean);
begin
If (Fdeleted=AValue) then exit;
@@ -1900,7 +2185,7 @@ end;
-Procedure TCreateContainerVersionRequestVersionOptions.SetquickPreview(AIndex : Integer; AValue : boolean);
+Procedure TCreateContainerVersionRequestVersionOptions.SetquickPreview(AIndex : Integer; const AValue : boolean);
begin
If (FquickPreview=AValue) then exit;
@@ -1917,7 +2202,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCreateContainerVersionResponse.SetcompilerError(AIndex : Integer; AValue : boolean);
+Procedure TCreateContainerVersionResponse.SetcompilerError(AIndex : Integer; const AValue : boolean);
begin
If (FcompilerError=AValue) then exit;
@@ -1927,7 +2212,7 @@ end;
-Procedure TCreateContainerVersionResponse.SetcontainerVersion(AIndex : Integer; AValue : TContainerVersion);
+Procedure TCreateContainerVersionResponse.SetcontainerVersion(AIndex : Integer; const AValue : TContainerVersion);
begin
If (FcontainerVersion=AValue) then exit;
@@ -1940,11 +2225,258 @@ end;
{ --------------------------------------------------------------------
+ TEnvironment
+ --------------------------------------------------------------------}
+
+
+Procedure TEnvironment.SetaccountId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaccountId=AValue) then exit;
+ FaccountId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnvironment.SetauthorizationCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FauthorizationCode=AValue) then exit;
+ FauthorizationCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnvironment.SetauthorizationTimestampMs(AIndex : Integer; const AValue : String);
+
+begin
+ If (FauthorizationTimestampMs=AValue) then exit;
+ FauthorizationTimestampMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnvironment.SetcontainerId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcontainerId=AValue) then exit;
+ FcontainerId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnvironment.SetcontainerVersionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcontainerVersionId=AValue) then exit;
+ FcontainerVersionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnvironment.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnvironment.SetenableDebug(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FenableDebug=AValue) then exit;
+ FenableDebug:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnvironment.SetenvironmentId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FenvironmentId=AValue) then exit;
+ FenvironmentId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnvironment.Setfingerprint(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffingerprint=AValue) then exit;
+ Ffingerprint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnvironment.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnvironment.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEnvironment.Seturl(AIndex : Integer; const AValue : String);
+
+begin
+ If (Furl=AValue) then exit;
+ Furl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TEnvironment.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TFolder
+ --------------------------------------------------------------------}
+
+
+Procedure TFolder.SetaccountId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaccountId=AValue) then exit;
+ FaccountId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFolder.SetcontainerId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcontainerId=AValue) then exit;
+ FcontainerId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFolder.Setfingerprint(AIndex : Integer; const AValue : String);
+
+begin
+ If (Ffingerprint=AValue) then exit;
+ Ffingerprint:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFolder.SetfolderId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfolderId=AValue) then exit;
+ FfolderId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFolder.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TFolderEntities
+ --------------------------------------------------------------------}
+
+
+Procedure TFolderEntities.Settag(AIndex : Integer; const AValue : TFolderEntitiesTypetagArray);
+
+begin
+ If (Ftag=AValue) then exit;
+ Ftag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFolderEntities.Settrigger(AIndex : Integer; const AValue : TFolderEntitiesTypetriggerArray);
+
+begin
+ If (Ftrigger=AValue) then exit;
+ Ftrigger:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFolderEntities.Setvariable(AIndex : Integer; const AValue : TFolderEntitiesTypevariableArray);
+
+begin
+ If (Fvariable=AValue) then exit;
+ Fvariable:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFolderEntities.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'tag' : SetLength(Ftag,ALength);
+ 'trigger' : SetLength(Ftrigger,ALength);
+ 'variable' : SetLength(Fvariable,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TListAccountUsersResponse
--------------------------------------------------------------------}
-Procedure TListAccountUsersResponse.SetuserAccess(AIndex : Integer; AValue : TListAccountUsersResponseTypeuserAccessArray);
+Procedure TListAccountUsersResponse.SetuserAccess(AIndex : Integer; const AValue : TListAccountUsersResponseTypeuserAccessArray);
begin
If (FuserAccess=AValue) then exit;
@@ -1974,7 +2506,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListAccountsResponse.Setaccounts(AIndex : Integer; AValue : TListAccountsResponseTypeaccountsArray);
+Procedure TListAccountsResponse.Setaccounts(AIndex : Integer; const AValue : TListAccountsResponseTypeaccountsArray);
begin
If (Faccounts=AValue) then exit;
@@ -2004,7 +2536,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListContainerVersionsResponse.SetcontainerVersion(AIndex : Integer; AValue : TListContainerVersionsResponseTypecontainerVersionArray);
+Procedure TListContainerVersionsResponse.SetcontainerVersion(AIndex : Integer; const AValue : TListContainerVersionsResponseTypecontainerVersionArray);
begin
If (FcontainerVersion=AValue) then exit;
@@ -2014,7 +2546,7 @@ end;
-Procedure TListContainerVersionsResponse.SetcontainerVersionHeader(AIndex : Integer; AValue : TListContainerVersionsResponseTypecontainerVersionHeaderArray);
+Procedure TListContainerVersionsResponse.SetcontainerVersionHeader(AIndex : Integer; const AValue : TListContainerVersionsResponseTypecontainerVersionHeaderArray);
begin
If (FcontainerVersionHeader=AValue) then exit;
@@ -2045,7 +2577,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListContainersResponse.Setcontainers(AIndex : Integer; AValue : TListContainersResponseTypecontainersArray);
+Procedure TListContainersResponse.Setcontainers(AIndex : Integer; const AValue : TListContainersResponseTypecontainersArray);
begin
If (Fcontainers=AValue) then exit;
@@ -2071,26 +2603,26 @@ end;
{ --------------------------------------------------------------------
- TListMacrosResponse
+ TListEnvironmentsResponse
--------------------------------------------------------------------}
-Procedure TListMacrosResponse.Setmacros(AIndex : Integer; AValue : TListMacrosResponseTypemacrosArray);
+Procedure TListEnvironmentsResponse.Setenvironments(AIndex : Integer; const AValue : TListEnvironmentsResponseTypeenvironmentsArray);
begin
- If (Fmacros=AValue) then exit;
- Fmacros:=AValue;
+ If (Fenvironments=AValue) then exit;
+ Fenvironments:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TListMacrosResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TListEnvironmentsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'macros' : SetLength(Fmacros,ALength);
+ 'environments' : SetLength(Fenvironments,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -2101,26 +2633,26 @@ end;
{ --------------------------------------------------------------------
- TListRulesResponse
+ TListFoldersResponse
--------------------------------------------------------------------}
-Procedure TListRulesResponse.Setrules(AIndex : Integer; AValue : TListRulesResponseTyperulesArray);
+Procedure TListFoldersResponse.Setfolders(AIndex : Integer; const AValue : TListFoldersResponseTypefoldersArray);
begin
- If (Frules=AValue) then exit;
- Frules:=AValue;
+ If (Ffolders=AValue) then exit;
+ Ffolders:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
-Procedure TListRulesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+Procedure TListFoldersResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
- 'rules' : SetLength(Frules,ALength);
+ 'folders' : SetLength(Ffolders,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -2135,7 +2667,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListTagsResponse.Settags(AIndex : Integer; AValue : TListTagsResponseTypetagsArray);
+Procedure TListTagsResponse.Settags(AIndex : Integer; const AValue : TListTagsResponseTypetagsArray);
begin
If (Ftags=AValue) then exit;
@@ -2165,7 +2697,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListTriggersResponse.Settriggers(AIndex : Integer; AValue : TListTriggersResponseTypetriggersArray);
+Procedure TListTriggersResponse.Settriggers(AIndex : Integer; const AValue : TListTriggersResponseTypetriggersArray);
begin
If (Ftriggers=AValue) then exit;
@@ -2195,7 +2727,7 @@ end;
--------------------------------------------------------------------}
-Procedure TListVariablesResponse.Setvariables(AIndex : Integer; AValue : TListVariablesResponseTypevariablesArray);
+Procedure TListVariablesResponse.Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray);
begin
If (Fvariables=AValue) then exit;
@@ -2245,7 +2777,7 @@ end;
-Procedure TMacro.SetdisablingRuleId(AIndex : Integer; AValue : TStringArray);
+Procedure TMacro.SetdisablingRuleId(AIndex : Integer; const AValue : TStringArray);
begin
If (FdisablingRuleId=AValue) then exit;
@@ -2255,7 +2787,7 @@ end;
-Procedure TMacro.SetenablingRuleId(AIndex : Integer; AValue : TStringArray);
+Procedure TMacro.SetenablingRuleId(AIndex : Integer; const AValue : TStringArray);
begin
If (FenablingRuleId=AValue) then exit;
@@ -2305,7 +2837,7 @@ end;
-Procedure TMacro.Setparameter(AIndex : Integer; AValue : TMacroTypeparameterArray);
+Procedure TMacro.Setparameter(AIndex : Integer; const AValue : TMacroTypeparameterArray);
begin
If (Fparameter=AValue) then exit;
@@ -2315,6 +2847,16 @@ end;
+Procedure TMacro.SetparentFolderId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FparentFolderId=AValue) then exit;
+ FparentFolderId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TMacro.SetscheduleEndMs(AIndex : Integer; const AValue : String);
begin
@@ -2388,7 +2930,7 @@ end;
-Procedure TParameter.Setlist(AIndex : Integer; AValue : TParameterTypelistArray);
+Procedure TParameter.Setlist(AIndex : Integer; const AValue : TParameterTypelistArray);
begin
If (Flist=AValue) then exit;
@@ -2398,7 +2940,7 @@ end;
-Procedure TParameter.Setmap(AIndex : Integer; AValue : TParameterTypemapArray);
+Procedure TParameter.Setmap(AIndex : Integer; const AValue : TParameterTypemapArray);
begin
If (Fmap=AValue) then exit;
@@ -2460,7 +3002,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPublishContainerVersionResponse.SetcompilerError(AIndex : Integer; AValue : boolean);
+Procedure TPublishContainerVersionResponse.SetcompilerError(AIndex : Integer; const AValue : boolean);
begin
If (FcompilerError=AValue) then exit;
@@ -2470,7 +3012,7 @@ end;
-Procedure TPublishContainerVersionResponse.SetcontainerVersion(AIndex : Integer; AValue : TContainerVersion);
+Procedure TPublishContainerVersionResponse.SetcontainerVersion(AIndex : Integer; const AValue : TContainerVersion);
begin
If (FcontainerVersion=AValue) then exit;
@@ -2497,7 +3039,7 @@ end;
-Procedure TRule.Setcondition(AIndex : Integer; AValue : TRuleTypeconditionArray);
+Procedure TRule.Setcondition(AIndex : Integer; const AValue : TRuleTypeconditionArray);
begin
If (Fcondition=AValue) then exit;
@@ -2573,6 +3115,33 @@ end;
{ --------------------------------------------------------------------
+ TSetupTag
+ --------------------------------------------------------------------}
+
+
+Procedure TSetupTag.SetstopOnSetupFailure(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FstopOnSetupFailure=AValue) then exit;
+ FstopOnSetupFailure:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSetupTag.SettagName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtagName=AValue) then exit;
+ FtagName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TTag
--------------------------------------------------------------------}
@@ -2587,7 +3156,7 @@ end;
-Procedure TTag.SetblockingRuleId(AIndex : Integer; AValue : TStringArray);
+Procedure TTag.SetblockingRuleId(AIndex : Integer; const AValue : TStringArray);
begin
If (FblockingRuleId=AValue) then exit;
@@ -2597,7 +3166,7 @@ end;
-Procedure TTag.SetblockingTriggerId(AIndex : Integer; AValue : TStringArray);
+Procedure TTag.SetblockingTriggerId(AIndex : Integer; const AValue : TStringArray);
begin
If (FblockingTriggerId=AValue) then exit;
@@ -2627,7 +3196,7 @@ end;
-Procedure TTag.SetfiringRuleId(AIndex : Integer; AValue : TStringArray);
+Procedure TTag.SetfiringRuleId(AIndex : Integer; const AValue : TStringArray);
begin
If (FfiringRuleId=AValue) then exit;
@@ -2637,7 +3206,7 @@ end;
-Procedure TTag.SetfiringTriggerId(AIndex : Integer; AValue : TStringArray);
+Procedure TTag.SetfiringTriggerId(AIndex : Integer; const AValue : TStringArray);
begin
If (FfiringTriggerId=AValue) then exit;
@@ -2647,7 +3216,7 @@ end;
-Procedure TTag.SetliveOnly(AIndex : Integer; AValue : boolean);
+Procedure TTag.SetliveOnly(AIndex : Integer; const AValue : boolean);
begin
If (FliveOnly=AValue) then exit;
@@ -2677,7 +3246,7 @@ end;
-Procedure TTag.Setparameter(AIndex : Integer; AValue : TTagTypeparameterArray);
+Procedure TTag.Setparameter(AIndex : Integer; const AValue : TTagTypeparameterArray);
begin
If (Fparameter=AValue) then exit;
@@ -2687,7 +3256,17 @@ end;
-Procedure TTag.Setpriority(AIndex : Integer; AValue : TParameter);
+Procedure TTag.SetparentFolderId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FparentFolderId=AValue) then exit;
+ FparentFolderId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTag.Setpriority(AIndex : Integer; const AValue : TParameter);
begin
If (Fpriority=AValue) then exit;
@@ -2717,6 +3296,26 @@ end;
+Procedure TTag.SetsetupTag(AIndex : Integer; const AValue : TTagTypesetupTagArray);
+
+begin
+ If (FsetupTag=AValue) then exit;
+ FsetupTag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTag.SettagFiringOption(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtagFiringOption=AValue) then exit;
+ FtagFiringOption:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TTag.SettagId(AIndex : Integer; const AValue : String);
begin
@@ -2727,6 +3326,16 @@ end;
+Procedure TTag.SetteardownTag(AIndex : Integer; const AValue : TTagTypeteardownTagArray);
+
+begin
+ If (FteardownTag=AValue) then exit;
+ FteardownTag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TTag.Set_type(AIndex : Integer; const AValue : String);
begin
@@ -2758,6 +3367,8 @@ begin
'firingruleid' : SetLength(FfiringRuleId,ALength);
'firingtriggerid' : SetLength(FfiringTriggerId,ALength);
'parameter' : SetLength(Fparameter,ALength);
+ 'setuptag' : SetLength(FsetupTag,ALength);
+ 'teardowntag' : SetLength(FteardownTag,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
@@ -2768,6 +3379,33 @@ end;
{ --------------------------------------------------------------------
+ TTeardownTag
+ --------------------------------------------------------------------}
+
+
+Procedure TTeardownTag.SetstopTeardownOnFailure(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FstopTeardownOnFailure=AValue) then exit;
+ FstopTeardownOnFailure:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTeardownTag.SettagName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtagName=AValue) then exit;
+ FtagName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TTrigger
--------------------------------------------------------------------}
@@ -2782,7 +3420,7 @@ end;
-Procedure TTrigger.SetautoEventFilter(AIndex : Integer; AValue : TTriggerTypeautoEventFilterArray);
+Procedure TTrigger.SetautoEventFilter(AIndex : Integer; const AValue : TTriggerTypeautoEventFilterArray);
begin
If (FautoEventFilter=AValue) then exit;
@@ -2792,7 +3430,7 @@ end;
-Procedure TTrigger.SetcheckValidation(AIndex : Integer; AValue : TParameter);
+Procedure TTrigger.SetcheckValidation(AIndex : Integer; const AValue : TParameter);
begin
If (FcheckValidation=AValue) then exit;
@@ -2812,7 +3450,7 @@ end;
-Procedure TTrigger.SetcustomEventFilter(AIndex : Integer; AValue : TTriggerTypecustomEventFilterArray);
+Procedure TTrigger.SetcustomEventFilter(AIndex : Integer; const AValue : TTriggerTypecustomEventFilterArray);
begin
If (FcustomEventFilter=AValue) then exit;
@@ -2822,7 +3460,7 @@ end;
-Procedure TTrigger.SetenableAllVideos(AIndex : Integer; AValue : TParameter);
+Procedure TTrigger.SetenableAllVideos(AIndex : Integer; const AValue : TParameter);
begin
If (FenableAllVideos=AValue) then exit;
@@ -2832,7 +3470,7 @@ end;
-Procedure TTrigger.SeteventName(AIndex : Integer; AValue : TParameter);
+Procedure TTrigger.SeteventName(AIndex : Integer; const AValue : TParameter);
begin
If (FeventName=AValue) then exit;
@@ -2842,7 +3480,7 @@ end;
-Procedure TTrigger.Setfilter(AIndex : Integer; AValue : TTriggerTypefilterArray);
+Procedure TTrigger.Setfilter(AIndex : Integer; const AValue : TTriggerTypefilterArray);
begin
If (Ffilter=AValue) then exit;
@@ -2862,7 +3500,7 @@ end;
-Procedure TTrigger.Setinterval(AIndex : Integer; AValue : TParameter);
+Procedure TTrigger.Setinterval(AIndex : Integer; const AValue : TParameter);
begin
If (Finterval=AValue) then exit;
@@ -2872,7 +3510,7 @@ end;
-Procedure TTrigger.Setlimit(AIndex : Integer; AValue : TParameter);
+Procedure TTrigger.Setlimit(AIndex : Integer; const AValue : TParameter);
begin
If (Flimit=AValue) then exit;
@@ -2892,6 +3530,16 @@ end;
+Procedure TTrigger.SetparentFolderId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FparentFolderId=AValue) then exit;
+ FparentFolderId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TTrigger.SettriggerId(AIndex : Integer; const AValue : String);
begin
@@ -2912,7 +3560,7 @@ end;
-Procedure TTrigger.SetuniqueTriggerId(AIndex : Integer; AValue : TParameter);
+Procedure TTrigger.SetuniqueTriggerId(AIndex : Integer; const AValue : TParameter);
begin
If (FuniqueTriggerId=AValue) then exit;
@@ -2922,7 +3570,7 @@ end;
-Procedure TTrigger.SetvideoPercentageList(AIndex : Integer; AValue : TParameter);
+Procedure TTrigger.SetvideoPercentageList(AIndex : Integer; const AValue : TParameter);
begin
If (FvideoPercentageList=AValue) then exit;
@@ -2932,7 +3580,7 @@ end;
-Procedure TTrigger.SetwaitForTags(AIndex : Integer; AValue : TParameter);
+Procedure TTrigger.SetwaitForTags(AIndex : Integer; const AValue : TParameter);
begin
If (FwaitForTags=AValue) then exit;
@@ -2942,7 +3590,7 @@ end;
-Procedure TTrigger.SetwaitForTagsTimeout(AIndex : Integer; AValue : TParameter);
+Procedure TTrigger.SetwaitForTagsTimeout(AIndex : Integer; const AValue : TParameter);
begin
If (FwaitForTagsTimeout=AValue) then exit;
@@ -2985,7 +3633,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUserAccess.SetaccountAccess(AIndex : Integer; AValue : TAccountAccess);
+Procedure TUserAccess.SetaccountAccess(AIndex : Integer; const AValue : TAccountAccess);
begin
If (FaccountAccess=AValue) then exit;
@@ -3005,7 +3653,7 @@ end;
-Procedure TUserAccess.SetcontainerAccess(AIndex : Integer; AValue : TUserAccessTypecontainerAccessArray);
+Procedure TUserAccess.SetcontainerAccess(AIndex : Integer; const AValue : TUserAccessTypecontainerAccessArray);
begin
If (FcontainerAccess=AValue) then exit;
@@ -3075,7 +3723,7 @@ end;
-Procedure TVariable.SetdisablingTriggerId(AIndex : Integer; AValue : TStringArray);
+Procedure TVariable.SetdisablingTriggerId(AIndex : Integer; const AValue : TStringArray);
begin
If (FdisablingTriggerId=AValue) then exit;
@@ -3085,7 +3733,7 @@ end;
-Procedure TVariable.SetenablingTriggerId(AIndex : Integer; AValue : TStringArray);
+Procedure TVariable.SetenablingTriggerId(AIndex : Integer; const AValue : TStringArray);
begin
If (FenablingTriggerId=AValue) then exit;
@@ -3125,7 +3773,7 @@ end;
-Procedure TVariable.Setparameter(AIndex : Integer; AValue : TVariableTypeparameterArray);
+Procedure TVariable.Setparameter(AIndex : Integer; const AValue : TVariableTypeparameterArray);
begin
If (Fparameter=AValue) then exit;
@@ -3135,6 +3783,16 @@ end;
+Procedure TVariable.SetparentFolderId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FparentFolderId=AValue) then exit;
+ FparentFolderId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TVariable.SetscheduleEndMs(AIndex : Integer; const AValue : String);
begin
@@ -3204,99 +3862,126 @@ end;
{ --------------------------------------------------------------------
- TAccountsContainersMacrosResource
+ TAccountsContainersEnvironmentsResource
--------------------------------------------------------------------}
-Class Function TAccountsContainersMacrosResource.ResourceName : String;
+Class Function TAccountsContainersEnvironmentsResource.ResourceName : String;
begin
- Result:='macros';
+ Result:='environments';
end;
-Class Function TAccountsContainersMacrosResource.DefaultAPI : TGoogleAPIClass;
+Class Function TAccountsContainersEnvironmentsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TtagmanagerAPI;
end;
-Function TAccountsContainersMacrosResource.Create(accountId: string; containerId: string; aMacro : TMacro) : TMacro;
+Function TAccountsContainersEnvironmentsResource.Create(accountId: string; containerId: string; aEnvironment : TEnvironment) : TEnvironment;
Const
_HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers/{containerId}/macros';
- _Methodid = 'tagmanager.accounts.containers.macros.create';
+ _Path = 'accounts/{accountId}/containers/{containerId}/environments';
+ _Methodid = 'tagmanager.accounts.containers.environments.create';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aMacro,TMacro) as TMacro;
+ Result:=ServiceCall(_HTTPMethod,_P,'',aEnvironment,TEnvironment) as TEnvironment;
end;
-Procedure TAccountsContainersMacrosResource.Delete(accountId: string; containerId: string; macroId: string);
+Procedure TAccountsContainersEnvironmentsResource.Delete(accountId: string; containerId: string; environmentId: string);
Const
_HTTPMethod = 'DELETE';
- _Path = 'accounts/{accountId}/containers/{containerId}/macros/{macroId}';
- _Methodid = 'tagmanager.accounts.containers.macros.delete';
+ _Path = 'accounts/{accountId}/containers/{containerId}/environments/{environmentId}';
+ _Methodid = 'tagmanager.accounts.containers.environments.delete';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'macroId',macroId]);
+ _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'environmentId',environmentId]);
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;
-Function TAccountsContainersMacrosResource.Get(accountId: string; containerId: string; macroId: string) : TMacro;
+Function TAccountsContainersEnvironmentsResource.Get(accountId: string; containerId: string; environmentId: string) : TEnvironment;
Const
_HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/macros/{macroId}';
- _Methodid = 'tagmanager.accounts.containers.macros.get';
+ _Path = 'accounts/{accountId}/containers/{containerId}/environments/{environmentId}';
+ _Methodid = 'tagmanager.accounts.containers.environments.get';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'macroId',macroId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TMacro) as TMacro;
+ _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'environmentId',environmentId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEnvironment) as TEnvironment;
end;
-Function TAccountsContainersMacrosResource.List(accountId: string; containerId: string) : TListMacrosResponse;
+Function TAccountsContainersEnvironmentsResource.List(accountId: string; containerId: string) : TListEnvironmentsResponse;
Const
_HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/macros';
- _Methodid = 'tagmanager.accounts.containers.macros.list';
+ _Path = 'accounts/{accountId}/containers/{containerId}/environments';
+ _Methodid = 'tagmanager.accounts.containers.environments.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListMacrosResponse) as TListMacrosResponse;
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListEnvironmentsResponse) as TListEnvironmentsResponse;
end;
-Function TAccountsContainersMacrosResource.Update(accountId: string; containerId: string; macroId: string; aMacro : TMacro; AQuery : string = '') : TMacro;
+Function TAccountsContainersEnvironmentsResource.Patch(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : string = '') : TEnvironment;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = 'accounts/{accountId}/containers/{containerId}/environments/{environmentId}';
+ _Methodid = 'tagmanager.accounts.containers.environments.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'environmentId',environmentId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aEnvironment,TEnvironment) as TEnvironment;
+end;
+
+
+Function TAccountsContainersEnvironmentsResource.Patch(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : TAccountsContainersEnvironmentspatchOptions) : TEnvironment;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
+ Result:=Patch(accountId,containerId,environmentId,aEnvironment,_Q);
+end;
+
+Function TAccountsContainersEnvironmentsResource.Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : string = '') : TEnvironment;
Const
_HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/containers/{containerId}/macros/{macroId}';
- _Methodid = 'tagmanager.accounts.containers.macros.update';
+ _Path = 'accounts/{accountId}/containers/{containerId}/environments/{environmentId}';
+ _Methodid = 'tagmanager.accounts.containers.environments.update';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'macroId',macroId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aMacro,TMacro) as TMacro;
+ _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'environmentId',environmentId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aEnvironment,TEnvironment) as TEnvironment;
end;
-Function TAccountsContainersMacrosResource.Update(accountId: string; containerId: string; macroId: string; aMacro : TMacro; AQuery : TAccountsContainersMacrosupdateOptions) : TMacro;
+Function TAccountsContainersEnvironmentsResource.Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : TAccountsContainersEnvironmentsupdateOptions) : TEnvironment;
Var
_Q : String;
@@ -3304,105 +3989,139 @@ Var
begin
_Q:='';
AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Update(accountId,containerId,macroId,aMacro,_Q);
+ Result:=Update(accountId,containerId,environmentId,aEnvironment,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsContainersFoldersEntitiesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsContainersFoldersEntitiesResource.ResourceName : String;
+
+begin
+ Result:='entities';
+end;
+
+Class Function TAccountsContainersFoldersEntitiesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TtagmanagerAPI;
+end;
+
+Function TAccountsContainersFoldersEntitiesResource.List(accountId: string; containerId: string; folderId: string) : TFolderEntities;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'accounts/{accountId}/containers/{containerId}/folders/{folderId}/entities';
+ _Methodid = 'tagmanager.accounts.containers.folders.entities.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'folderId',folderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TFolderEntities) as TFolderEntities;
end;
{ --------------------------------------------------------------------
- TAccountsContainersRulesResource
+ TAccountsContainersFoldersResource
--------------------------------------------------------------------}
-Class Function TAccountsContainersRulesResource.ResourceName : String;
+Class Function TAccountsContainersFoldersResource.ResourceName : String;
begin
- Result:='rules';
+ Result:='folders';
end;
-Class Function TAccountsContainersRulesResource.DefaultAPI : TGoogleAPIClass;
+Class Function TAccountsContainersFoldersResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TtagmanagerAPI;
end;
-Function TAccountsContainersRulesResource.Create(accountId: string; containerId: string; aRule : TRule) : TRule;
+Function TAccountsContainersFoldersResource.Create(accountId: string; containerId: string; aFolder : TFolder) : TFolder;
Const
_HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers/{containerId}/rules';
- _Methodid = 'tagmanager.accounts.containers.rules.create';
+ _Path = 'accounts/{accountId}/containers/{containerId}/folders';
+ _Methodid = 'tagmanager.accounts.containers.folders.create';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aRule,TRule) as TRule;
+ Result:=ServiceCall(_HTTPMethod,_P,'',aFolder,TFolder) as TFolder;
end;
-Procedure TAccountsContainersRulesResource.Delete(accountId: string; containerId: string; ruleId: string);
+Procedure TAccountsContainersFoldersResource.Delete(accountId: string; containerId: string; folderId: string);
Const
_HTTPMethod = 'DELETE';
- _Path = 'accounts/{accountId}/containers/{containerId}/rules/{ruleId}';
- _Methodid = 'tagmanager.accounts.containers.rules.delete';
+ _Path = 'accounts/{accountId}/containers/{containerId}/folders/{folderId}';
+ _Methodid = 'tagmanager.accounts.containers.folders.delete';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'ruleId',ruleId]);
+ _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'folderId',folderId]);
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;
-Function TAccountsContainersRulesResource.Get(accountId: string; containerId: string; ruleId: string) : TRule;
+Function TAccountsContainersFoldersResource.Get(accountId: string; containerId: string; folderId: string) : TFolder;
Const
_HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/rules/{ruleId}';
- _Methodid = 'tagmanager.accounts.containers.rules.get';
+ _Path = 'accounts/{accountId}/containers/{containerId}/folders/{folderId}';
+ _Methodid = 'tagmanager.accounts.containers.folders.get';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'ruleId',ruleId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRule) as TRule;
+ _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'folderId',folderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TFolder) as TFolder;
end;
-Function TAccountsContainersRulesResource.List(accountId: string; containerId: string) : TListRulesResponse;
+Function TAccountsContainersFoldersResource.List(accountId: string; containerId: string) : TListFoldersResponse;
Const
_HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/rules';
- _Methodid = 'tagmanager.accounts.containers.rules.list';
+ _Path = 'accounts/{accountId}/containers/{containerId}/folders';
+ _Methodid = 'tagmanager.accounts.containers.folders.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListRulesResponse) as TListRulesResponse;
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListFoldersResponse) as TListFoldersResponse;
end;
-Function TAccountsContainersRulesResource.Update(accountId: string; containerId: string; ruleId: string; aRule : TRule; AQuery : string = '') : TRule;
+Function TAccountsContainersFoldersResource.Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : string = '') : TFolder;
Const
_HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/containers/{containerId}/rules/{ruleId}';
- _Methodid = 'tagmanager.accounts.containers.rules.update';
+ _Path = 'accounts/{accountId}/containers/{containerId}/folders/{folderId}';
+ _Methodid = 'tagmanager.accounts.containers.folders.update';
Var
_P : String;
begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'ruleId',ruleId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aRule,TRule) as TRule;
+ _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'folderId',folderId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aFolder,TFolder) as TFolder;
end;
-Function TAccountsContainersRulesResource.Update(accountId: string; containerId: string; ruleId: string; aRule : TRule; AQuery : TAccountsContainersRulesupdateOptions) : TRule;
+Function TAccountsContainersFoldersResource.Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : TAccountsContainersFoldersupdateOptions) : TFolder;
Var
_Q : String;
@@ -3410,7 +4129,113 @@ Var
begin
_Q:='';
AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Update(accountId,containerId,ruleId,aRule,_Q);
+ Result:=Update(accountId,containerId,folderId,aFolder,_Q);
+end;
+
+
+
+Function TAccountsContainersFoldersResource.GetEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
+
+begin
+ if (FEntitiesInstance=Nil) then
+ FEntitiesInstance:=CreateEntitiesResource;
+ Result:=FEntitiesInstance;
+end;
+
+Function TAccountsContainersFoldersResource.CreateEntitiesResource : TAccountsContainersFoldersEntitiesResource;
+
+begin
+ Result:=CreateEntitiesResource(Self);
+end;
+
+
+Function TAccountsContainersFoldersResource.CreateEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;
+
+begin
+ Result:=TAccountsContainersFoldersEntitiesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsContainersMove_foldersResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsContainersMove_foldersResource.ResourceName : String;
+
+begin
+ Result:='move_folders';
+end;
+
+Class Function TAccountsContainersMove_foldersResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TtagmanagerAPI;
+end;
+
+Procedure TAccountsContainersMove_foldersResource.Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : string = '');
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'accounts/{accountId}/containers/{containerId}/move_folders/{folderId}';
+ _Methodid = 'tagmanager.accounts.containers.move_folders.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'folderId',folderId]);
+ ServiceCall(_HTTPMethod,_P,AQuery,aFolder,Nil);
+end;
+
+
+Procedure TAccountsContainersMove_foldersResource.Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : TAccountsContainersMove_foldersupdateOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'tagId',AQuery.tagId);
+ AddToQuery(_Q,'triggerId',AQuery.triggerId);
+ AddToQuery(_Q,'variableId',AQuery.variableId);
+ Update(accountId,containerId,folderId,aFolder,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TAccountsContainersReauthorize_environmentsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TAccountsContainersReauthorize_environmentsResource.ResourceName : String;
+
+begin
+ Result:='reauthorize_environments';
+end;
+
+Class Function TAccountsContainersReauthorize_environmentsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TtagmanagerAPI;
+end;
+
+Function TAccountsContainersReauthorize_environmentsResource.Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment) : TEnvironment;
+
+Const
+ _HTTPMethod = 'PUT';
+ _Path = 'accounts/{accountId}/containers/{containerId}/reauthorize_environments/{environmentId}';
+ _Methodid = 'tagmanager.accounts.containers.reauthorize_environments.update';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'environmentId',environmentId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aEnvironment,TEnvironment) as TEnvironment;
end;
@@ -3819,6 +4644,7 @@ Var
begin
_Q:='';
AddToQuery(_Q,'headers',AQuery.headers);
+ AddToQuery(_Q,'includeDeleted',AQuery.includeDeleted);
Result:=List(accountId,containerId,_Q);
end;
@@ -4014,49 +4840,121 @@ end;
-Function TAccountsContainersResource.GetMacrosInstance : TAccountsContainersMacrosResource;
+Function TAccountsContainersResource.GetEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
begin
- if (FMacrosInstance=Nil) then
- FMacrosInstance:=CreateMacrosResource;
- Result:=FMacrosInstance;
+ if (FEnvironmentsInstance=Nil) then
+ FEnvironmentsInstance:=CreateEnvironmentsResource;
+ Result:=FEnvironmentsInstance;
end;
-Function TAccountsContainersResource.CreateMacrosResource : TAccountsContainersMacrosResource;
+Function TAccountsContainersResource.CreateEnvironmentsResource : TAccountsContainersEnvironmentsResource;
begin
- Result:=CreateMacrosResource(Self);
+ Result:=CreateEnvironmentsResource(Self);
end;
-Function TAccountsContainersResource.CreateMacrosResource(AOwner : TComponent) : TAccountsContainersMacrosResource;
+Function TAccountsContainersResource.CreateEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;
begin
- Result:=TAccountsContainersMacrosResource.Create(AOwner);
+ Result:=TAccountsContainersEnvironmentsResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TAccountsContainersResource.GetRulesInstance : TAccountsContainersRulesResource;
+Function TAccountsContainersResource.GetFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
begin
- if (FRulesInstance=Nil) then
- FRulesInstance:=CreateRulesResource;
- Result:=FRulesInstance;
+ if (FFoldersEntitiesInstance=Nil) then
+ FFoldersEntitiesInstance:=CreateFoldersEntitiesResource;
+ Result:=FFoldersEntitiesInstance;
end;
-Function TAccountsContainersResource.CreateRulesResource : TAccountsContainersRulesResource;
+Function TAccountsContainersResource.CreateFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;
begin
- Result:=CreateRulesResource(Self);
+ Result:=CreateFoldersEntitiesResource(Self);
end;
-Function TAccountsContainersResource.CreateRulesResource(AOwner : TComponent) : TAccountsContainersRulesResource;
+Function TAccountsContainersResource.CreateFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;
begin
- Result:=TAccountsContainersRulesResource.Create(AOwner);
+ Result:=TAccountsContainersFoldersEntitiesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsContainersResource.GetFoldersInstance : TAccountsContainersFoldersResource;
+
+begin
+ if (FFoldersInstance=Nil) then
+ FFoldersInstance:=CreateFoldersResource;
+ Result:=FFoldersInstance;
+end;
+
+Function TAccountsContainersResource.CreateFoldersResource : TAccountsContainersFoldersResource;
+
+begin
+ Result:=CreateFoldersResource(Self);
+end;
+
+
+Function TAccountsContainersResource.CreateFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;
+
+begin
+ Result:=TAccountsContainersFoldersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsContainersResource.GetMove_foldersInstance : TAccountsContainersMove_foldersResource;
+
+begin
+ if (FMove_foldersInstance=Nil) then
+ FMove_foldersInstance:=CreateMove_foldersResource;
+ Result:=FMove_foldersInstance;
+end;
+
+Function TAccountsContainersResource.CreateMove_foldersResource : TAccountsContainersMove_foldersResource;
+
+begin
+ Result:=CreateMove_foldersResource(Self);
+end;
+
+
+Function TAccountsContainersResource.CreateMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;
+
+begin
+ Result:=TAccountsContainersMove_foldersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsContainersResource.GetReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
+
+begin
+ if (FReauthorize_environmentsInstance=Nil) then
+ FReauthorize_environmentsInstance:=CreateReauthorize_environmentsResource;
+ Result:=FReauthorize_environmentsInstance;
+end;
+
+Function TAccountsContainersResource.CreateReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;
+
+begin
+ Result:=CreateReauthorize_environmentsResource(Self);
+end;
+
+
+Function TAccountsContainersResource.CreateReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;
+
+begin
+ Result:=TAccountsContainersReauthorize_environmentsResource.Create(AOwner);
Result.API:=Self.API;
end;
@@ -4324,49 +5222,121 @@ end;
-Function TAccountsResource.GetContainersMacrosInstance : TAccountsContainersMacrosResource;
+Function TAccountsResource.GetContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
+
+begin
+ if (FContainersEnvironmentsInstance=Nil) then
+ FContainersEnvironmentsInstance:=CreateContainersEnvironmentsResource;
+ Result:=FContainersEnvironmentsInstance;
+end;
+
+Function TAccountsResource.CreateContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource;
+
+begin
+ Result:=CreateContainersEnvironmentsResource(Self);
+end;
+
+
+Function TAccountsResource.CreateContainersEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;
+
+begin
+ Result:=TAccountsContainersEnvironmentsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
+
+begin
+ if (FContainersFoldersEntitiesInstance=Nil) then
+ FContainersFoldersEntitiesInstance:=CreateContainersFoldersEntitiesResource;
+ Result:=FContainersFoldersEntitiesInstance;
+end;
+
+Function TAccountsResource.CreateContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;
+
+begin
+ Result:=CreateContainersFoldersEntitiesResource(Self);
+end;
+
+
+Function TAccountsResource.CreateContainersFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;
+
+begin
+ Result:=TAccountsContainersFoldersEntitiesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetContainersFoldersInstance : TAccountsContainersFoldersResource;
+
+begin
+ if (FContainersFoldersInstance=Nil) then
+ FContainersFoldersInstance:=CreateContainersFoldersResource;
+ Result:=FContainersFoldersInstance;
+end;
+
+Function TAccountsResource.CreateContainersFoldersResource : TAccountsContainersFoldersResource;
+
+begin
+ Result:=CreateContainersFoldersResource(Self);
+end;
+
+
+Function TAccountsResource.CreateContainersFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;
+
+begin
+ Result:=TAccountsContainersFoldersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TAccountsResource.GetContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;
begin
- if (FContainersMacrosInstance=Nil) then
- FContainersMacrosInstance:=CreateContainersMacrosResource;
- Result:=FContainersMacrosInstance;
+ if (FContainersMove_foldersInstance=Nil) then
+ FContainersMove_foldersInstance:=CreateContainersMove_foldersResource;
+ Result:=FContainersMove_foldersInstance;
end;
-Function TAccountsResource.CreateContainersMacrosResource : TAccountsContainersMacrosResource;
+Function TAccountsResource.CreateContainersMove_foldersResource : TAccountsContainersMove_foldersResource;
begin
- Result:=CreateContainersMacrosResource(Self);
+ Result:=CreateContainersMove_foldersResource(Self);
end;
-Function TAccountsResource.CreateContainersMacrosResource(AOwner : TComponent) : TAccountsContainersMacrosResource;
+Function TAccountsResource.CreateContainersMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;
begin
- Result:=TAccountsContainersMacrosResource.Create(AOwner);
+ Result:=TAccountsContainersMove_foldersResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TAccountsResource.GetContainersRulesInstance : TAccountsContainersRulesResource;
+Function TAccountsResource.GetContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
begin
- if (FContainersRulesInstance=Nil) then
- FContainersRulesInstance:=CreateContainersRulesResource;
- Result:=FContainersRulesInstance;
+ if (FContainersReauthorize_environmentsInstance=Nil) then
+ FContainersReauthorize_environmentsInstance:=CreateContainersReauthorize_environmentsResource;
+ Result:=FContainersReauthorize_environmentsInstance;
end;
-Function TAccountsResource.CreateContainersRulesResource : TAccountsContainersRulesResource;
+Function TAccountsResource.CreateContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;
begin
- Result:=CreateContainersRulesResource(Self);
+ Result:=CreateContainersReauthorize_environmentsResource(Self);
end;
-Function TAccountsResource.CreateContainersRulesResource(AOwner : TComponent) : TAccountsContainersRulesResource;
+Function TAccountsResource.CreateContainersReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;
begin
- Result:=TAccountsContainersRulesResource.Create(AOwner);
+ Result:=TAccountsContainersReauthorize_environmentsResource.Create(AOwner);
Result.API:=Self.API;
end;
@@ -4535,7 +5505,7 @@ end;
Class Function TTagmanagerAPI.APIRevision : String;
begin
- Result:='20150121';
+ Result:='20160310';
end;
Class Function TTagmanagerAPI.APIID : String;
@@ -4553,7 +5523,7 @@ end;
Class Function TTagmanagerAPI.APIDescription : String;
begin
- Result:='API for accessing Tag Manager accounts and containers.';
+ Result:='Accesses Tag Manager accounts and containers.';
end;
Class Function TTagmanagerAPI.APIOwnerDomain : String;
@@ -4589,7 +5559,7 @@ end;
Class Function TTagmanagerAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TTagmanagerAPI.APIbasePath : string;
@@ -4601,7 +5571,7 @@ end;
Class Function TTagmanagerAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/tagmanager/v1/';
+ Result:='https://www.googleapis.com/tagmanager/v1/';
end;
Class Function TTagmanagerAPI.APIProtocol : string;
@@ -4661,12 +5631,15 @@ begin
TContainerVersionHeader.RegisterObject;
TCreateContainerVersionRequestVersionOptions.RegisterObject;
TCreateContainerVersionResponse.RegisterObject;
+ TEnvironment.RegisterObject;
+ TFolder.RegisterObject;
+ TFolderEntities.RegisterObject;
TListAccountUsersResponse.RegisterObject;
TListAccountsResponse.RegisterObject;
TListContainerVersionsResponse.RegisterObject;
TListContainersResponse.RegisterObject;
- TListMacrosResponse.RegisterObject;
- TListRulesResponse.RegisterObject;
+ TListEnvironmentsResponse.RegisterObject;
+ TListFoldersResponse.RegisterObject;
TListTagsResponse.RegisterObject;
TListTriggersResponse.RegisterObject;
TListVariablesResponse.RegisterObject;
@@ -4674,56 +5647,130 @@ begin
TParameter.RegisterObject;
TPublishContainerVersionResponse.RegisterObject;
TRule.RegisterObject;
+ TSetupTag.RegisterObject;
TTag.RegisterObject;
+ TTeardownTag.RegisterObject;
TTrigger.RegisterObject;
TUserAccess.RegisterObject;
TVariable.RegisterObject;
end;
-Function TTagmanagerAPI.GetAccountsContainersMacrosInstance : TAccountsContainersMacrosResource;
+Function TTagmanagerAPI.GetAccountsContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
+
+begin
+ if (FAccountsContainersEnvironmentsInstance=Nil) then
+ FAccountsContainersEnvironmentsInstance:=CreateAccountsContainersEnvironmentsResource;
+ Result:=FAccountsContainersEnvironmentsInstance;
+end;
+
+Function TTagmanagerAPI.CreateAccountsContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource;
+
+begin
+ Result:=CreateAccountsContainersEnvironmentsResource(Self);
+end;
+
+
+Function TTagmanagerAPI.CreateAccountsContainersEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;
+
+begin
+ Result:=TAccountsContainersEnvironmentsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TTagmanagerAPI.GetAccountsContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
+
+begin
+ if (FAccountsContainersFoldersEntitiesInstance=Nil) then
+ FAccountsContainersFoldersEntitiesInstance:=CreateAccountsContainersFoldersEntitiesResource;
+ Result:=FAccountsContainersFoldersEntitiesInstance;
+end;
+
+Function TTagmanagerAPI.CreateAccountsContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;
+
+begin
+ Result:=CreateAccountsContainersFoldersEntitiesResource(Self);
+end;
+
+
+Function TTagmanagerAPI.CreateAccountsContainersFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;
+
+begin
+ Result:=TAccountsContainersFoldersEntitiesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TTagmanagerAPI.GetAccountsContainersFoldersInstance : TAccountsContainersFoldersResource;
+
+begin
+ if (FAccountsContainersFoldersInstance=Nil) then
+ FAccountsContainersFoldersInstance:=CreateAccountsContainersFoldersResource;
+ Result:=FAccountsContainersFoldersInstance;
+end;
+
+Function TTagmanagerAPI.CreateAccountsContainersFoldersResource : TAccountsContainersFoldersResource;
+
+begin
+ Result:=CreateAccountsContainersFoldersResource(Self);
+end;
+
+
+Function TTagmanagerAPI.CreateAccountsContainersFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;
+
+begin
+ Result:=TAccountsContainersFoldersResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TTagmanagerAPI.GetAccountsContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;
begin
- if (FAccountsContainersMacrosInstance=Nil) then
- FAccountsContainersMacrosInstance:=CreateAccountsContainersMacrosResource;
- Result:=FAccountsContainersMacrosInstance;
+ if (FAccountsContainersMove_foldersInstance=Nil) then
+ FAccountsContainersMove_foldersInstance:=CreateAccountsContainersMove_foldersResource;
+ Result:=FAccountsContainersMove_foldersInstance;
end;
-Function TTagmanagerAPI.CreateAccountsContainersMacrosResource : TAccountsContainersMacrosResource;
+Function TTagmanagerAPI.CreateAccountsContainersMove_foldersResource : TAccountsContainersMove_foldersResource;
begin
- Result:=CreateAccountsContainersMacrosResource(Self);
+ Result:=CreateAccountsContainersMove_foldersResource(Self);
end;
-Function TTagmanagerAPI.CreateAccountsContainersMacrosResource(AOwner : TComponent) : TAccountsContainersMacrosResource;
+Function TTagmanagerAPI.CreateAccountsContainersMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;
begin
- Result:=TAccountsContainersMacrosResource.Create(AOwner);
+ Result:=TAccountsContainersMove_foldersResource.Create(AOwner);
Result.API:=Self.API;
end;
-Function TTagmanagerAPI.GetAccountsContainersRulesInstance : TAccountsContainersRulesResource;
+Function TTagmanagerAPI.GetAccountsContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
begin
- if (FAccountsContainersRulesInstance=Nil) then
- FAccountsContainersRulesInstance:=CreateAccountsContainersRulesResource;
- Result:=FAccountsContainersRulesInstance;
+ if (FAccountsContainersReauthorize_environmentsInstance=Nil) then
+ FAccountsContainersReauthorize_environmentsInstance:=CreateAccountsContainersReauthorize_environmentsResource;
+ Result:=FAccountsContainersReauthorize_environmentsInstance;
end;
-Function TTagmanagerAPI.CreateAccountsContainersRulesResource : TAccountsContainersRulesResource;
+Function TTagmanagerAPI.CreateAccountsContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;
begin
- Result:=CreateAccountsContainersRulesResource(Self);
+ Result:=CreateAccountsContainersReauthorize_environmentsResource(Self);
end;
-Function TTagmanagerAPI.CreateAccountsContainersRulesResource(AOwner : TComponent) : TAccountsContainersRulesResource;
+Function TTagmanagerAPI.CreateAccountsContainersReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;
begin
- Result:=TAccountsContainersRulesResource.Create(AOwner);
+ Result:=TAccountsContainersReauthorize_environmentsResource.Create(AOwner);
Result.API:=Self.API;
end;
diff --git a/packages/googleapi/src/googletaskqueue.pp b/packages/googleapi/src/googletaskqueue.pp
index 0a373e6576..1d73e2aa10 100644
--- a/packages/googleapi/src/googletaskqueue.pp
+++ b/packages/googleapi/src/googletaskqueue.pp
@@ -1,19 +1,4 @@
unit googletaskqueue;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:08
{$MODE objfpc}
{$H+}
@@ -60,7 +45,7 @@ type
Procedure SetleaseTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure SetpayloadBase64(AIndex : Integer; const AValue : String); virtual;
Procedure SetqueueName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setretry_count(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setretry_count(AIndex : Integer; const AValue : integer); virtual;
Procedure Settag(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -86,9 +71,9 @@ type
FproducerEmails : TStringArray;
Protected
//Property setters
- Procedure SetadminEmails(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetconsumerEmails(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetproducerEmails(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetadminEmails(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetconsumerEmails(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetproducerEmails(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -116,7 +101,7 @@ type
Procedure SetleasedLastHour(AIndex : Integer; const AValue : String); virtual;
Procedure SetleasedLastMinute(AIndex : Integer; const AValue : String); virtual;
Procedure SetoldestTask(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalTasks(AIndex : Integer; AValue : integer); virtual;
+ Procedure SettotalTasks(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property leasedLastHour : String Index 0 Read FleasedLastHour Write SetleasedLastHour;
@@ -139,11 +124,11 @@ type
Fstats : TTaskQueueTypestats;
Protected
//Property setters
- Procedure Setacl(AIndex : Integer; AValue : TTaskQueueTypeacl); virtual;
+ Procedure Setacl(AIndex : Integer; const AValue : TTaskQueueTypeacl); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmaxLeases(AIndex : Integer; AValue : integer); virtual;
- Procedure Setstats(AIndex : Integer; AValue : TTaskQueueTypestats); virtual;
+ Procedure SetmaxLeases(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setstats(AIndex : Integer; const AValue : TTaskQueueTypestats); virtual;
Public
Published
Property acl : TTaskQueueTypeacl Index 0 Read Facl Write Setacl;
@@ -164,7 +149,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTasksTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -187,7 +172,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TTasks2TypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTasks2TypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -375,7 +360,7 @@ end;
-Procedure TTask.Setretry_count(AIndex : Integer; AValue : integer);
+Procedure TTask.Setretry_count(AIndex : Integer; const AValue : integer);
begin
If (Fretry_count=AValue) then exit;
@@ -402,7 +387,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTaskQueueTypeacl.SetadminEmails(AIndex : Integer; AValue : TStringArray);
+Procedure TTaskQueueTypeacl.SetadminEmails(AIndex : Integer; const AValue : TStringArray);
begin
If (FadminEmails=AValue) then exit;
@@ -412,7 +397,7 @@ end;
-Procedure TTaskQueueTypeacl.SetconsumerEmails(AIndex : Integer; AValue : TStringArray);
+Procedure TTaskQueueTypeacl.SetconsumerEmails(AIndex : Integer; const AValue : TStringArray);
begin
If (FconsumerEmails=AValue) then exit;
@@ -422,7 +407,7 @@ end;
-Procedure TTaskQueueTypeacl.SetproducerEmails(AIndex : Integer; AValue : TStringArray);
+Procedure TTaskQueueTypeacl.SetproducerEmails(AIndex : Integer; const AValue : TStringArray);
begin
If (FproducerEmails=AValue) then exit;
@@ -484,7 +469,7 @@ end;
-Procedure TTaskQueueTypestats.SettotalTasks(AIndex : Integer; AValue : integer);
+Procedure TTaskQueueTypestats.SettotalTasks(AIndex : Integer; const AValue : integer);
begin
If (FtotalTasks=AValue) then exit;
@@ -501,7 +486,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTaskQueue.Setacl(AIndex : Integer; AValue : TTaskQueueTypeacl);
+Procedure TTaskQueue.Setacl(AIndex : Integer; const AValue : TTaskQueueTypeacl);
begin
If (Facl=AValue) then exit;
@@ -531,7 +516,7 @@ end;
-Procedure TTaskQueue.SetmaxLeases(AIndex : Integer; AValue : integer);
+Procedure TTaskQueue.SetmaxLeases(AIndex : Integer; const AValue : integer);
begin
If (FmaxLeases=AValue) then exit;
@@ -541,7 +526,7 @@ end;
-Procedure TTaskQueue.Setstats(AIndex : Integer; AValue : TTaskQueueTypestats);
+Procedure TTaskQueue.Setstats(AIndex : Integer; const AValue : TTaskQueueTypestats);
begin
If (Fstats=AValue) then exit;
@@ -558,7 +543,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTasks.Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray);
+Procedure TTasks.Setitems(AIndex : Integer; const AValue : TTasksTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -598,7 +583,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTasks2.Setitems(AIndex : Integer; AValue : TTasks2TypeitemsArray);
+Procedure TTasks2.Setitems(AIndex : Integer; const AValue : TTasks2TypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -861,7 +846,7 @@ end;
Class Function TTaskqueueAPI.APIRevision : String;
begin
- Result:='20141111';
+ Result:='20160428';
end;
Class Function TTaskqueueAPI.APIID : String;
@@ -879,7 +864,7 @@ end;
Class Function TTaskqueueAPI.APIDescription : String;
begin
- Result:='Lets you access a Google App Engine Pull Task Queue over REST.';
+ Result:='Accesses a Google App Engine Pull Task Queue over REST.';
end;
Class Function TTaskqueueAPI.APIOwnerDomain : String;
@@ -915,7 +900,7 @@ end;
Class Function TTaskqueueAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TTaskqueueAPI.APIbasePath : string;
@@ -927,7 +912,7 @@ end;
Class Function TTaskqueueAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/taskqueue/v1beta2/projects/';
+ Result:='https://www.googleapis.com/taskqueue/v1beta2/projects/';
end;
Class Function TTaskqueueAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googletasks.pp b/packages/googleapi/src/googletasks.pp
index e3dea6ae0f..c8ea98742e 100644
--- a/packages/googleapi/src/googletasks.pp
+++ b/packages/googleapi/src/googletasks.pp
@@ -1,19 +1,4 @@
unit googletasks;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:08
{$MODE objfpc}
{$H+}
@@ -84,21 +69,21 @@ type
Fupdated : TDatetime;
Protected
//Property setters
- Procedure Setcompleted(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setdeleted(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setdue(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setcompleted(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setdue(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Sethidden(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Sethidden(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlinks(AIndex : Integer; AValue : TTaskTypelinksArray); virtual;
+ Procedure Setlinks(AIndex : Integer; const AValue : TTaskTypelinksArray); virtual;
Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
Procedure Setparent(AIndex : Integer; const AValue : String); virtual;
Procedure Setposition(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -142,7 +127,7 @@ type
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -167,7 +152,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TTaskListsTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTaskListsTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -196,7 +181,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TTasksTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -390,7 +375,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTask.Setcompleted(AIndex : Integer; AValue : TDatetime);
+Procedure TTask.Setcompleted(AIndex : Integer; const AValue : TDatetime);
begin
If (Fcompleted=AValue) then exit;
@@ -400,7 +385,7 @@ end;
-Procedure TTask.Setdeleted(AIndex : Integer; AValue : boolean);
+Procedure TTask.Setdeleted(AIndex : Integer; const AValue : boolean);
begin
If (Fdeleted=AValue) then exit;
@@ -410,7 +395,7 @@ end;
-Procedure TTask.Setdue(AIndex : Integer; AValue : TDatetime);
+Procedure TTask.Setdue(AIndex : Integer; const AValue : TDatetime);
begin
If (Fdue=AValue) then exit;
@@ -430,7 +415,7 @@ end;
-Procedure TTask.Sethidden(AIndex : Integer; AValue : boolean);
+Procedure TTask.Sethidden(AIndex : Integer; const AValue : boolean);
begin
If (Fhidden=AValue) then exit;
@@ -460,7 +445,7 @@ end;
-Procedure TTask.Setlinks(AIndex : Integer; AValue : TTaskTypelinksArray);
+Procedure TTask.Setlinks(AIndex : Integer; const AValue : TTaskTypelinksArray);
begin
If (Flinks=AValue) then exit;
@@ -530,7 +515,7 @@ end;
-Procedure TTask.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TTask.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -610,7 +595,7 @@ end;
-Procedure TTaskList.Setupdated(AIndex : Integer; AValue : TDatetime);
+Procedure TTaskList.Setupdated(AIndex : Integer; const AValue : TDatetime);
begin
If (Fupdated=AValue) then exit;
@@ -637,7 +622,7 @@ end;
-Procedure TTaskLists.Setitems(AIndex : Integer; AValue : TTaskListsTypeitemsArray);
+Procedure TTaskLists.Setitems(AIndex : Integer; const AValue : TTaskListsTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -697,7 +682,7 @@ end;
-Procedure TTasks.Setitems(AIndex : Integer; AValue : TTasksTypeitemsArray);
+Procedure TTasks.Setitems(AIndex : Integer; const AValue : TTasksTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1115,7 +1100,7 @@ end;
Class Function TTasksAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TTasksAPI.APIbasePath : string;
@@ -1127,7 +1112,7 @@ end;
Class Function TTasksAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/tasks/v1/';
+ Result:='https://www.googleapis.com/tasks/v1/';
end;
Class Function TTasksAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googletoolresults.pp b/packages/googleapi/src/googletoolresults.pp
new file mode 100644
index 0000000000..93fe45d991
--- /dev/null
+++ b/packages/googleapi/src/googletoolresults.pp
@@ -0,0 +1,3412 @@
+unit googletoolresults;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TAny = Class;
+ TDuration = Class;
+ TExecution = Class;
+ TFailureDetail = Class;
+ TFileReference = Class;
+ THistory = Class;
+ TImage = Class;
+ TInconclusiveDetail = Class;
+ TListExecutionsResponse = Class;
+ TListHistoriesResponse = Class;
+ TListStepThumbnailsResponse = Class;
+ TListStepsResponse = Class;
+ TOutcome = Class;
+ TProjectSettings = Class;
+ TPublishXunitXmlFilesRequest = Class;
+ TSkippedDetail = Class;
+ TStackTrace = Class;
+ TStatus = Class;
+ TStep = Class;
+ TStepDimensionValueEntry = Class;
+ TStepLabelsEntry = Class;
+ TSuccessDetail = Class;
+ TTestCaseReference = Class;
+ TTestExecutionStep = Class;
+ TTestIssue = Class;
+ TTestSuiteOverview = Class;
+ TTestTiming = Class;
+ TThumbnail = Class;
+ TTimestamp = Class;
+ TToolExecution = Class;
+ TToolExecutionStep = Class;
+ TToolExitCode = Class;
+ TToolOutputReference = Class;
+ TAnyArray = Array of TAny;
+ TDurationArray = Array of TDuration;
+ TExecutionArray = Array of TExecution;
+ TFailureDetailArray = Array of TFailureDetail;
+ TFileReferenceArray = Array of TFileReference;
+ THistoryArray = Array of THistory;
+ TImageArray = Array of TImage;
+ TInconclusiveDetailArray = Array of TInconclusiveDetail;
+ TListExecutionsResponseArray = Array of TListExecutionsResponse;
+ TListHistoriesResponseArray = Array of TListHistoriesResponse;
+ TListStepThumbnailsResponseArray = Array of TListStepThumbnailsResponse;
+ TListStepsResponseArray = Array of TListStepsResponse;
+ TOutcomeArray = Array of TOutcome;
+ TProjectSettingsArray = Array of TProjectSettings;
+ TPublishXunitXmlFilesRequestArray = Array of TPublishXunitXmlFilesRequest;
+ TSkippedDetailArray = Array of TSkippedDetail;
+ TStackTraceArray = Array of TStackTrace;
+ TStatusArray = Array of TStatus;
+ TStepArray = Array of TStep;
+ TStepDimensionValueEntryArray = Array of TStepDimensionValueEntry;
+ TStepLabelsEntryArray = Array of TStepLabelsEntry;
+ TSuccessDetailArray = Array of TSuccessDetail;
+ TTestCaseReferenceArray = Array of TTestCaseReference;
+ TTestExecutionStepArray = Array of TTestExecutionStep;
+ TTestIssueArray = Array of TTestIssue;
+ TTestSuiteOverviewArray = Array of TTestSuiteOverview;
+ TTestTimingArray = Array of TTestTiming;
+ TThumbnailArray = Array of TThumbnail;
+ TTimestampArray = Array of TTimestamp;
+ TToolExecutionArray = Array of TToolExecution;
+ TToolExecutionStepArray = Array of TToolExecutionStep;
+ TToolExitCodeArray = Array of TToolExitCode;
+ TToolOutputReferenceArray = Array of TToolOutputReference;
+ //Anonymous types, using auto-generated names
+ TListExecutionsResponseTypeexecutionsArray = Array of TExecution;
+ TListHistoriesResponseTypehistoriesArray = Array of THistory;
+ TListStepThumbnailsResponseTypethumbnailsArray = Array of TImage;
+ TListStepsResponseTypestepsArray = Array of TStep;
+ TPublishXunitXmlFilesRequestTypexunitXmlFilesArray = Array of TFileReference;
+ TStatusTypedetailsArray = Array of TAny;
+ TStepTypedimensionValueArray = Array of TStepDimensionValueEntry;
+ TStepTypelabelsArray = Array of TStepLabelsEntry;
+ TTestExecutionStepTypetestIssuesArray = Array of TTestIssue;
+ TTestExecutionStepTypetestSuiteOverviewsArray = Array of TTestSuiteOverview;
+ TToolExecutionTypetoolLogsArray = Array of TFileReference;
+ TToolExecutionTypetoolOutputsArray = Array of TToolOutputReference;
+
+ { --------------------------------------------------------------------
+ TAny
+ --------------------------------------------------------------------}
+
+ TAny = Class(TGoogleBaseObject)
+ Private
+ FtypeUrl : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure SettypeUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property typeUrl : String Index 0 Read FtypeUrl Write SettypeUrl;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TAnyClass = Class of TAny;
+
+ { --------------------------------------------------------------------
+ TDuration
+ --------------------------------------------------------------------}
+
+ TDuration = Class(TGoogleBaseObject)
+ Private
+ Fnanos : integer;
+ Fseconds : String;
+ Protected
+ //Property setters
+ Procedure Setnanos(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setseconds(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property nanos : integer Index 0 Read Fnanos Write Setnanos;
+ Property seconds : String Index 8 Read Fseconds Write Setseconds;
+ end;
+ TDurationClass = Class of TDuration;
+
+ { --------------------------------------------------------------------
+ TExecution
+ --------------------------------------------------------------------}
+
+ TExecution = Class(TGoogleBaseObject)
+ Private
+ FcompletionTime : TTimestamp;
+ FcreationTime : TTimestamp;
+ FexecutionId : String;
+ Foutcome : TOutcome;
+ Fstate : String;
+ FtestExecutionMatrixId : String;
+ Protected
+ //Property setters
+ Procedure SetcompletionTime(AIndex : Integer; const AValue : TTimestamp); virtual;
+ Procedure SetcreationTime(AIndex : Integer; const AValue : TTimestamp); virtual;
+ Procedure SetexecutionId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setoutcome(AIndex : Integer; const AValue : TOutcome); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettestExecutionMatrixId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property completionTime : TTimestamp Index 0 Read FcompletionTime Write SetcompletionTime;
+ Property creationTime : TTimestamp Index 8 Read FcreationTime Write SetcreationTime;
+ Property executionId : String Index 16 Read FexecutionId Write SetexecutionId;
+ Property outcome : TOutcome Index 24 Read Foutcome Write Setoutcome;
+ Property state : String Index 32 Read Fstate Write Setstate;
+ Property testExecutionMatrixId : String Index 40 Read FtestExecutionMatrixId Write SettestExecutionMatrixId;
+ end;
+ TExecutionClass = Class of TExecution;
+
+ { --------------------------------------------------------------------
+ TFailureDetail
+ --------------------------------------------------------------------}
+
+ TFailureDetail = Class(TGoogleBaseObject)
+ Private
+ Fcrashed : boolean;
+ FnotInstalled : boolean;
+ FotherNativeCrash : boolean;
+ FtimedOut : boolean;
+ FunableToCrawl : boolean;
+ Protected
+ //Property setters
+ Procedure Setcrashed(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetnotInstalled(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetotherNativeCrash(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SettimedOut(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetunableToCrawl(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property crashed : boolean Index 0 Read Fcrashed Write Setcrashed;
+ Property notInstalled : boolean Index 8 Read FnotInstalled Write SetnotInstalled;
+ Property otherNativeCrash : boolean Index 16 Read FotherNativeCrash Write SetotherNativeCrash;
+ Property timedOut : boolean Index 24 Read FtimedOut Write SettimedOut;
+ Property unableToCrawl : boolean Index 32 Read FunableToCrawl Write SetunableToCrawl;
+ end;
+ TFailureDetailClass = Class of TFailureDetail;
+
+ { --------------------------------------------------------------------
+ TFileReference
+ --------------------------------------------------------------------}
+
+ TFileReference = Class(TGoogleBaseObject)
+ Private
+ FfileUri : String;
+ Protected
+ //Property setters
+ Procedure SetfileUri(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property fileUri : String Index 0 Read FfileUri Write SetfileUri;
+ end;
+ TFileReferenceClass = Class of TFileReference;
+
+ { --------------------------------------------------------------------
+ THistory
+ --------------------------------------------------------------------}
+
+ THistory = Class(TGoogleBaseObject)
+ Private
+ FdisplayName : String;
+ FhistoryId : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SethistoryId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
+ Property historyId : String Index 8 Read FhistoryId Write SethistoryId;
+ Property name : String Index 16 Read Fname Write Setname;
+ end;
+ THistoryClass = Class of THistory;
+
+ { --------------------------------------------------------------------
+ TImage
+ --------------------------------------------------------------------}
+
+ TImage = Class(TGoogleBaseObject)
+ Private
+ Ferror : TStatus;
+ FsourceImage : TToolOutputReference;
+ FstepId : String;
+ Fthumbnail : TThumbnail;
+ Protected
+ //Property setters
+ Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
+ Procedure SetsourceImage(AIndex : Integer; const AValue : TToolOutputReference); virtual;
+ Procedure SetstepId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setthumbnail(AIndex : Integer; const AValue : TThumbnail); virtual;
+ Public
+ Published
+ Property error : TStatus Index 0 Read Ferror Write Seterror;
+ Property sourceImage : TToolOutputReference Index 8 Read FsourceImage Write SetsourceImage;
+ Property stepId : String Index 16 Read FstepId Write SetstepId;
+ Property thumbnail : TThumbnail Index 24 Read Fthumbnail Write Setthumbnail;
+ end;
+ TImageClass = Class of TImage;
+
+ { --------------------------------------------------------------------
+ TInconclusiveDetail
+ --------------------------------------------------------------------}
+
+ TInconclusiveDetail = Class(TGoogleBaseObject)
+ Private
+ FabortedByUser : boolean;
+ FinfrastructureFailure : boolean;
+ FnativeCrash : boolean;
+ Protected
+ //Property setters
+ Procedure SetabortedByUser(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetinfrastructureFailure(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetnativeCrash(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property abortedByUser : boolean Index 0 Read FabortedByUser Write SetabortedByUser;
+ Property infrastructureFailure : boolean Index 8 Read FinfrastructureFailure Write SetinfrastructureFailure;
+ Property nativeCrash : boolean Index 16 Read FnativeCrash Write SetnativeCrash;
+ end;
+ TInconclusiveDetailClass = Class of TInconclusiveDetail;
+
+ { --------------------------------------------------------------------
+ TListExecutionsResponse
+ --------------------------------------------------------------------}
+
+ TListExecutionsResponse = Class(TGoogleBaseObject)
+ Private
+ Fexecutions : TListExecutionsResponseTypeexecutionsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setexecutions(AIndex : Integer; const AValue : TListExecutionsResponseTypeexecutionsArray); 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 executions : TListExecutionsResponseTypeexecutionsArray Index 0 Read Fexecutions Write Setexecutions;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListExecutionsResponseClass = Class of TListExecutionsResponse;
+
+ { --------------------------------------------------------------------
+ TListHistoriesResponse
+ --------------------------------------------------------------------}
+
+ TListHistoriesResponse = Class(TGoogleBaseObject)
+ Private
+ Fhistories : TListHistoriesResponseTypehistoriesArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Sethistories(AIndex : Integer; const AValue : TListHistoriesResponseTypehistoriesArray); 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 histories : TListHistoriesResponseTypehistoriesArray Index 0 Read Fhistories Write Sethistories;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListHistoriesResponseClass = Class of TListHistoriesResponse;
+
+ { --------------------------------------------------------------------
+ TListStepThumbnailsResponse
+ --------------------------------------------------------------------}
+
+ TListStepThumbnailsResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ Fthumbnails : TListStepThumbnailsResponseTypethumbnailsArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TListStepThumbnailsResponseTypethumbnailsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property thumbnails : TListStepThumbnailsResponseTypethumbnailsArray Index 8 Read Fthumbnails Write Setthumbnails;
+ end;
+ TListStepThumbnailsResponseClass = Class of TListStepThumbnailsResponse;
+
+ { --------------------------------------------------------------------
+ TListStepsResponse
+ --------------------------------------------------------------------}
+
+ TListStepsResponse = Class(TGoogleBaseObject)
+ Private
+ FnextPageToken : String;
+ Fsteps : TListStepsResponseTypestepsArray;
+ Protected
+ //Property setters
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsteps(AIndex : Integer; const AValue : TListStepsResponseTypestepsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
+ Property steps : TListStepsResponseTypestepsArray Index 8 Read Fsteps Write Setsteps;
+ end;
+ TListStepsResponseClass = Class of TListStepsResponse;
+
+ { --------------------------------------------------------------------
+ TOutcome
+ --------------------------------------------------------------------}
+
+ TOutcome = Class(TGoogleBaseObject)
+ Private
+ FfailureDetail : TFailureDetail;
+ FinconclusiveDetail : TInconclusiveDetail;
+ FskippedDetail : TSkippedDetail;
+ FsuccessDetail : TSuccessDetail;
+ Fsummary : String;
+ Protected
+ //Property setters
+ Procedure SetfailureDetail(AIndex : Integer; const AValue : TFailureDetail); virtual;
+ Procedure SetinconclusiveDetail(AIndex : Integer; const AValue : TInconclusiveDetail); virtual;
+ Procedure SetskippedDetail(AIndex : Integer; const AValue : TSkippedDetail); virtual;
+ Procedure SetsuccessDetail(AIndex : Integer; const AValue : TSuccessDetail); virtual;
+ Procedure Setsummary(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property failureDetail : TFailureDetail Index 0 Read FfailureDetail Write SetfailureDetail;
+ Property inconclusiveDetail : TInconclusiveDetail Index 8 Read FinconclusiveDetail Write SetinconclusiveDetail;
+ Property skippedDetail : TSkippedDetail Index 16 Read FskippedDetail Write SetskippedDetail;
+ Property successDetail : TSuccessDetail Index 24 Read FsuccessDetail Write SetsuccessDetail;
+ Property summary : String Index 32 Read Fsummary Write Setsummary;
+ end;
+ TOutcomeClass = Class of TOutcome;
+
+ { --------------------------------------------------------------------
+ TProjectSettings
+ --------------------------------------------------------------------}
+
+ TProjectSettings = Class(TGoogleBaseObject)
+ Private
+ FdefaultBucket : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure SetdefaultBucket(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property defaultBucket : String Index 0 Read FdefaultBucket Write SetdefaultBucket;
+ Property name : String Index 8 Read Fname Write Setname;
+ end;
+ TProjectSettingsClass = Class of TProjectSettings;
+
+ { --------------------------------------------------------------------
+ TPublishXunitXmlFilesRequest
+ --------------------------------------------------------------------}
+
+ TPublishXunitXmlFilesRequest = Class(TGoogleBaseObject)
+ Private
+ FxunitXmlFiles : TPublishXunitXmlFilesRequestTypexunitXmlFilesArray;
+ Protected
+ //Property setters
+ Procedure SetxunitXmlFiles(AIndex : Integer; const AValue : TPublishXunitXmlFilesRequestTypexunitXmlFilesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property xunitXmlFiles : TPublishXunitXmlFilesRequestTypexunitXmlFilesArray Index 0 Read FxunitXmlFiles Write SetxunitXmlFiles;
+ end;
+ TPublishXunitXmlFilesRequestClass = Class of TPublishXunitXmlFilesRequest;
+
+ { --------------------------------------------------------------------
+ TSkippedDetail
+ --------------------------------------------------------------------}
+
+ TSkippedDetail = Class(TGoogleBaseObject)
+ Private
+ FincompatibleAppVersion : boolean;
+ FincompatibleArchitecture : boolean;
+ FincompatibleDevice : boolean;
+ Protected
+ //Property setters
+ Procedure SetincompatibleAppVersion(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetincompatibleArchitecture(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetincompatibleDevice(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property incompatibleAppVersion : boolean Index 0 Read FincompatibleAppVersion Write SetincompatibleAppVersion;
+ Property incompatibleArchitecture : boolean Index 8 Read FincompatibleArchitecture Write SetincompatibleArchitecture;
+ Property incompatibleDevice : boolean Index 16 Read FincompatibleDevice Write SetincompatibleDevice;
+ end;
+ TSkippedDetailClass = Class of TSkippedDetail;
+
+ { --------------------------------------------------------------------
+ TStackTrace
+ --------------------------------------------------------------------}
+
+ TStackTrace = Class(TGoogleBaseObject)
+ Private
+ Fexception : String;
+ Protected
+ //Property setters
+ Procedure Setexception(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property exception : String Index 0 Read Fexception Write Setexception;
+ end;
+ TStackTraceClass = Class of TStackTrace;
+
+ { --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+ TStatus = Class(TGoogleBaseObject)
+ Private
+ Fcode : integer;
+ Fdetails : TStatusTypedetailsArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
+ Procedure Setmessage(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 code : integer Index 0 Read Fcode Write Setcode;
+ Property details : TStatusTypedetailsArray Index 8 Read Fdetails Write Setdetails;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TStatusClass = Class of TStatus;
+
+ { --------------------------------------------------------------------
+ TStep
+ --------------------------------------------------------------------}
+
+ TStep = Class(TGoogleBaseObject)
+ Private
+ FcompletionTime : TTimestamp;
+ FcreationTime : TTimestamp;
+ Fdescription : String;
+ FdeviceUsageDuration : TDuration;
+ FdimensionValue : TStepTypedimensionValueArray;
+ FhasImages : boolean;
+ Flabels : TStepTypelabelsArray;
+ Fname : String;
+ Foutcome : TOutcome;
+ FrunDuration : TDuration;
+ Fstate : String;
+ FstepId : String;
+ FtestExecutionStep : TTestExecutionStep;
+ FtoolExecutionStep : TToolExecutionStep;
+ Protected
+ //Property setters
+ Procedure SetcompletionTime(AIndex : Integer; const AValue : TTimestamp); virtual;
+ Procedure SetcreationTime(AIndex : Integer; const AValue : TTimestamp); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdeviceUsageDuration(AIndex : Integer; const AValue : TDuration); virtual;
+ Procedure SetdimensionValue(AIndex : Integer; const AValue : TStepTypedimensionValueArray); virtual;
+ Procedure SethasImages(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setlabels(AIndex : Integer; const AValue : TStepTypelabelsArray); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setoutcome(AIndex : Integer; const AValue : TOutcome); virtual;
+ Procedure SetrunDuration(AIndex : Integer; const AValue : TDuration); virtual;
+ Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstepId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettestExecutionStep(AIndex : Integer; const AValue : TTestExecutionStep); virtual;
+ Procedure SettoolExecutionStep(AIndex : Integer; const AValue : TToolExecutionStep); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property completionTime : TTimestamp Index 0 Read FcompletionTime Write SetcompletionTime;
+ Property creationTime : TTimestamp Index 8 Read FcreationTime Write SetcreationTime;
+ Property description : String Index 16 Read Fdescription Write Setdescription;
+ Property deviceUsageDuration : TDuration Index 24 Read FdeviceUsageDuration Write SetdeviceUsageDuration;
+ Property dimensionValue : TStepTypedimensionValueArray Index 32 Read FdimensionValue Write SetdimensionValue;
+ Property hasImages : boolean Index 40 Read FhasImages Write SethasImages;
+ Property labels : TStepTypelabelsArray Index 48 Read Flabels Write Setlabels;
+ Property name : String Index 56 Read Fname Write Setname;
+ Property outcome : TOutcome Index 64 Read Foutcome Write Setoutcome;
+ Property runDuration : TDuration Index 72 Read FrunDuration Write SetrunDuration;
+ Property state : String Index 80 Read Fstate Write Setstate;
+ Property stepId : String Index 88 Read FstepId Write SetstepId;
+ Property testExecutionStep : TTestExecutionStep Index 96 Read FtestExecutionStep Write SettestExecutionStep;
+ Property toolExecutionStep : TToolExecutionStep Index 104 Read FtoolExecutionStep Write SettoolExecutionStep;
+ end;
+ TStepClass = Class of TStep;
+
+ { --------------------------------------------------------------------
+ TStepDimensionValueEntry
+ --------------------------------------------------------------------}
+
+ TStepDimensionValueEntry = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TStepDimensionValueEntryClass = Class of TStepDimensionValueEntry;
+
+ { --------------------------------------------------------------------
+ TStepLabelsEntry
+ --------------------------------------------------------------------}
+
+ TStepLabelsEntry = Class(TGoogleBaseObject)
+ Private
+ Fkey : String;
+ Fvalue : String;
+ Protected
+ //Property setters
+ Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property key : String Index 0 Read Fkey Write Setkey;
+ Property value : String Index 8 Read Fvalue Write Setvalue;
+ end;
+ TStepLabelsEntryClass = Class of TStepLabelsEntry;
+
+ { --------------------------------------------------------------------
+ TSuccessDetail
+ --------------------------------------------------------------------}
+
+ TSuccessDetail = Class(TGoogleBaseObject)
+ Private
+ FotherNativeCrash : boolean;
+ Protected
+ //Property setters
+ Procedure SetotherNativeCrash(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property otherNativeCrash : boolean Index 0 Read FotherNativeCrash Write SetotherNativeCrash;
+ end;
+ TSuccessDetailClass = Class of TSuccessDetail;
+
+ { --------------------------------------------------------------------
+ TTestCaseReference
+ --------------------------------------------------------------------}
+
+ TTestCaseReference = Class(TGoogleBaseObject)
+ Private
+ FclassName : String;
+ Fname : String;
+ FtestSuiteName : String;
+ Protected
+ //Property setters
+ Procedure SetclassName(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettestSuiteName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property className : String Index 0 Read FclassName Write SetclassName;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property testSuiteName : String Index 16 Read FtestSuiteName Write SettestSuiteName;
+ end;
+ TTestCaseReferenceClass = Class of TTestCaseReference;
+
+ { --------------------------------------------------------------------
+ TTestExecutionStep
+ --------------------------------------------------------------------}
+
+ TTestExecutionStep = Class(TGoogleBaseObject)
+ Private
+ FtestIssues : TTestExecutionStepTypetestIssuesArray;
+ FtestSuiteOverviews : TTestExecutionStepTypetestSuiteOverviewsArray;
+ FtestTiming : TTestTiming;
+ FtoolExecution : TToolExecution;
+ Protected
+ //Property setters
+ Procedure SettestIssues(AIndex : Integer; const AValue : TTestExecutionStepTypetestIssuesArray); virtual;
+ Procedure SettestSuiteOverviews(AIndex : Integer; const AValue : TTestExecutionStepTypetestSuiteOverviewsArray); virtual;
+ Procedure SettestTiming(AIndex : Integer; const AValue : TTestTiming); virtual;
+ Procedure SettoolExecution(AIndex : Integer; const AValue : TToolExecution); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property testIssues : TTestExecutionStepTypetestIssuesArray Index 0 Read FtestIssues Write SettestIssues;
+ Property testSuiteOverviews : TTestExecutionStepTypetestSuiteOverviewsArray Index 8 Read FtestSuiteOverviews Write SettestSuiteOverviews;
+ Property testTiming : TTestTiming Index 16 Read FtestTiming Write SettestTiming;
+ Property toolExecution : TToolExecution Index 24 Read FtoolExecution Write SettoolExecution;
+ end;
+ TTestExecutionStepClass = Class of TTestExecutionStep;
+
+ { --------------------------------------------------------------------
+ TTestIssue
+ --------------------------------------------------------------------}
+
+ TTestIssue = Class(TGoogleBaseObject)
+ Private
+ FerrorMessage : String;
+ FstackTrace : TStackTrace;
+ Protected
+ //Property setters
+ Procedure SeterrorMessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstackTrace(AIndex : Integer; const AValue : TStackTrace); virtual;
+ Public
+ Published
+ Property errorMessage : String Index 0 Read FerrorMessage Write SeterrorMessage;
+ Property stackTrace : TStackTrace Index 8 Read FstackTrace Write SetstackTrace;
+ end;
+ TTestIssueClass = Class of TTestIssue;
+
+ { --------------------------------------------------------------------
+ TTestSuiteOverview
+ --------------------------------------------------------------------}
+
+ TTestSuiteOverview = Class(TGoogleBaseObject)
+ Private
+ FerrorCount : integer;
+ FfailureCount : integer;
+ Fname : String;
+ FskippedCount : integer;
+ FtotalCount : integer;
+ FxmlSource : TFileReference;
+ Protected
+ //Property setters
+ Procedure SeterrorCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetfailureCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetskippedCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetxmlSource(AIndex : Integer; const AValue : TFileReference); virtual;
+ Public
+ Published
+ Property errorCount : integer Index 0 Read FerrorCount Write SeterrorCount;
+ Property failureCount : integer Index 8 Read FfailureCount Write SetfailureCount;
+ Property name : String Index 16 Read Fname Write Setname;
+ Property skippedCount : integer Index 24 Read FskippedCount Write SetskippedCount;
+ Property totalCount : integer Index 32 Read FtotalCount Write SettotalCount;
+ Property xmlSource : TFileReference Index 40 Read FxmlSource Write SetxmlSource;
+ end;
+ TTestSuiteOverviewClass = Class of TTestSuiteOverview;
+
+ { --------------------------------------------------------------------
+ TTestTiming
+ --------------------------------------------------------------------}
+
+ TTestTiming = Class(TGoogleBaseObject)
+ Private
+ FtestProcessDuration : TDuration;
+ Protected
+ //Property setters
+ Procedure SettestProcessDuration(AIndex : Integer; const AValue : TDuration); virtual;
+ Public
+ Published
+ Property testProcessDuration : TDuration Index 0 Read FtestProcessDuration Write SettestProcessDuration;
+ end;
+ TTestTimingClass = Class of TTestTiming;
+
+ { --------------------------------------------------------------------
+ TThumbnail
+ --------------------------------------------------------------------}
+
+ TThumbnail = Class(TGoogleBaseObject)
+ Private
+ FcontentType : String;
+ Fdata : String;
+ FheightPx : integer;
+ FwidthPx : integer;
+ Protected
+ //Property setters
+ Procedure SetcontentType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetheightPx(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetwidthPx(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property contentType : String Index 0 Read FcontentType Write SetcontentType;
+ Property data : String Index 8 Read Fdata Write Setdata;
+ Property heightPx : integer Index 16 Read FheightPx Write SetheightPx;
+ Property widthPx : integer Index 24 Read FwidthPx Write SetwidthPx;
+ end;
+ TThumbnailClass = Class of TThumbnail;
+
+ { --------------------------------------------------------------------
+ TTimestamp
+ --------------------------------------------------------------------}
+
+ TTimestamp = Class(TGoogleBaseObject)
+ Private
+ Fnanos : integer;
+ Fseconds : String;
+ Protected
+ //Property setters
+ Procedure Setnanos(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setseconds(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property nanos : integer Index 0 Read Fnanos Write Setnanos;
+ Property seconds : String Index 8 Read Fseconds Write Setseconds;
+ end;
+ TTimestampClass = Class of TTimestamp;
+
+ { --------------------------------------------------------------------
+ TToolExecution
+ --------------------------------------------------------------------}
+
+ TToolExecution = Class(TGoogleBaseObject)
+ Private
+ FcommandLineArguments : TStringArray;
+ FexitCode : TToolExitCode;
+ FtoolLogs : TToolExecutionTypetoolLogsArray;
+ FtoolOutputs : TToolExecutionTypetoolOutputsArray;
+ Protected
+ //Property setters
+ Procedure SetcommandLineArguments(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetexitCode(AIndex : Integer; const AValue : TToolExitCode); virtual;
+ Procedure SettoolLogs(AIndex : Integer; const AValue : TToolExecutionTypetoolLogsArray); virtual;
+ Procedure SettoolOutputs(AIndex : Integer; const AValue : TToolExecutionTypetoolOutputsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property commandLineArguments : TStringArray Index 0 Read FcommandLineArguments Write SetcommandLineArguments;
+ Property exitCode : TToolExitCode Index 8 Read FexitCode Write SetexitCode;
+ Property toolLogs : TToolExecutionTypetoolLogsArray Index 16 Read FtoolLogs Write SettoolLogs;
+ Property toolOutputs : TToolExecutionTypetoolOutputsArray Index 24 Read FtoolOutputs Write SettoolOutputs;
+ end;
+ TToolExecutionClass = Class of TToolExecution;
+
+ { --------------------------------------------------------------------
+ TToolExecutionStep
+ --------------------------------------------------------------------}
+
+ TToolExecutionStep = Class(TGoogleBaseObject)
+ Private
+ FtoolExecution : TToolExecution;
+ Protected
+ //Property setters
+ Procedure SettoolExecution(AIndex : Integer; const AValue : TToolExecution); virtual;
+ Public
+ Published
+ Property toolExecution : TToolExecution Index 0 Read FtoolExecution Write SettoolExecution;
+ end;
+ TToolExecutionStepClass = Class of TToolExecutionStep;
+
+ { --------------------------------------------------------------------
+ TToolExitCode
+ --------------------------------------------------------------------}
+
+ TToolExitCode = Class(TGoogleBaseObject)
+ Private
+ Fnumber : integer;
+ Protected
+ //Property setters
+ Procedure Setnumber(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property number : integer Index 0 Read Fnumber Write Setnumber;
+ end;
+ TToolExitCodeClass = Class of TToolExitCode;
+
+ { --------------------------------------------------------------------
+ TToolOutputReference
+ --------------------------------------------------------------------}
+
+ TToolOutputReference = Class(TGoogleBaseObject)
+ Private
+ FcreationTime : TTimestamp;
+ Foutput : TFileReference;
+ FtestCase : TTestCaseReference;
+ Protected
+ //Property setters
+ Procedure SetcreationTime(AIndex : Integer; const AValue : TTimestamp); virtual;
+ Procedure Setoutput(AIndex : Integer; const AValue : TFileReference); virtual;
+ Procedure SettestCase(AIndex : Integer; const AValue : TTestCaseReference); virtual;
+ Public
+ Published
+ Property creationTime : TTimestamp Index 0 Read FcreationTime Write SetcreationTime;
+ Property output : TFileReference Index 8 Read Foutput Write Setoutput;
+ Property testCase : TTestCaseReference Index 16 Read FtestCase Write SettestCase;
+ end;
+ TToolOutputReferenceClass = Class of TToolOutputReference;
+
+ { --------------------------------------------------------------------
+ TProjectsHistoriesExecutionsStepsThumbnailsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsHistoriesExecutionsStepsThumbnailsResource, method List
+
+ TProjectsHistoriesExecutionsStepsThumbnailsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsHistoriesExecutionsStepsThumbnailsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(executionId: string; historyId: string; projectId: string; stepId: string; AQuery : string = '') : TListStepThumbnailsResponse;
+ Function List(executionId: string; historyId: string; projectId: string; stepId: string; AQuery : TProjectsHistoriesExecutionsStepsThumbnailslistOptions) : TListStepThumbnailsResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsHistoriesExecutionsStepsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsHistoriesExecutionsStepsResource, method Create
+
+ TProjectsHistoriesExecutionsStepsCreateOptions = Record
+ requestId : String;
+ end;
+
+
+ //Optional query Options for TProjectsHistoriesExecutionsStepsResource, method List
+
+ TProjectsHistoriesExecutionsStepsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TProjectsHistoriesExecutionsStepsResource, method Patch
+
+ TProjectsHistoriesExecutionsStepsPatchOptions = Record
+ requestId : String;
+ end;
+
+ TProjectsHistoriesExecutionsStepsResource = Class(TGoogleResource)
+ Private
+ FThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+ Function GetThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(executionId: string; historyId: string; projectId: string; aStep : TStep; AQuery : string = '') : TStep;overload;
+ Function Create(executionId: string; historyId: string; projectId: string; aStep : TStep; AQuery : TProjectsHistoriesExecutionsStepscreateOptions) : TStep;overload;
+ Function Get(executionId: string; historyId: string; projectId: string; stepId: string) : TStep;
+ Function List(executionId: string; historyId: string; projectId: string; AQuery : string = '') : TListStepsResponse;
+ Function List(executionId: string; historyId: string; projectId: string; AQuery : TProjectsHistoriesExecutionsStepslistOptions) : TListStepsResponse;
+ Function Patch(executionId: string; historyId: string; projectId: string; stepId: string; aStep : TStep; AQuery : string = '') : TStep;
+ Function Patch(executionId: string; historyId: string; projectId: string; stepId: string; aStep : TStep; AQuery : TProjectsHistoriesExecutionsStepspatchOptions) : TStep;
+ Function PublishXunitXmlFiles(executionId: string; historyId: string; projectId: string; stepId: string; aPublishXunitXmlFilesRequest : TPublishXunitXmlFilesRequest) : TStep;
+ Function CreateThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
+ Function CreateThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
+ Property ThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource Read GetThumbnailsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsHistoriesExecutionsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsHistoriesExecutionsResource, method Create
+
+ TProjectsHistoriesExecutionsCreateOptions = Record
+ requestId : String;
+ end;
+
+
+ //Optional query Options for TProjectsHistoriesExecutionsResource, method List
+
+ TProjectsHistoriesExecutionsListOptions = Record
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+
+ //Optional query Options for TProjectsHistoriesExecutionsResource, method Patch
+
+ TProjectsHistoriesExecutionsPatchOptions = Record
+ requestId : String;
+ end;
+
+ TProjectsHistoriesExecutionsResource = Class(TGoogleResource)
+ Private
+ FStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+ FStepsInstance : TProjectsHistoriesExecutionsStepsResource;
+ Function GetStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;
+ Function GetStepsInstance : TProjectsHistoriesExecutionsStepsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(historyId: string; projectId: string; aExecution : TExecution; AQuery : string = '') : TExecution;overload;
+ Function Create(historyId: string; projectId: string; aExecution : TExecution; AQuery : TProjectsHistoriesExecutionscreateOptions) : TExecution;overload;
+ Function Get(executionId: string; historyId: string; projectId: string) : TExecution;
+ Function List(historyId: string; projectId: string; AQuery : string = '') : TListExecutionsResponse;
+ Function List(historyId: string; projectId: string; AQuery : TProjectsHistoriesExecutionslistOptions) : TListExecutionsResponse;
+ Function Patch(executionId: string; historyId: string; projectId: string; aExecution : TExecution; AQuery : string = '') : TExecution;
+ Function Patch(executionId: string; historyId: string; projectId: string; aExecution : TExecution; AQuery : TProjectsHistoriesExecutionspatchOptions) : TExecution;
+ Function CreateStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
+ Function CreateStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
+ Function CreateStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
+ Function CreateStepsResource : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
+ Property StepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource Read GetStepsThumbnailsInstance;
+ Property StepsResource : TProjectsHistoriesExecutionsStepsResource Read GetStepsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsHistoriesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TProjectsHistoriesResource, method Create
+
+ TProjectsHistoriesCreateOptions = Record
+ requestId : String;
+ end;
+
+
+ //Optional query Options for TProjectsHistoriesResource, method List
+
+ TProjectsHistoriesListOptions = Record
+ filterByName : String;
+ pageSize : integer;
+ pageToken : String;
+ end;
+
+ TProjectsHistoriesResource = Class(TGoogleResource)
+ Private
+ FExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+ FExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
+ FExecutionsInstance : TProjectsHistoriesExecutionsResource;
+ Function GetExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;
+ Function GetExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;virtual;
+ Function GetExecutionsInstance : TProjectsHistoriesExecutionsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(projectId: string; aHistory : THistory; AQuery : string = '') : THistory;overload;
+ Function Create(projectId: string; aHistory : THistory; AQuery : TProjectsHistoriescreateOptions) : THistory;overload;
+ Function Get(historyId: string; projectId: string) : THistory;
+ Function List(projectId: string; AQuery : string = '') : TListHistoriesResponse;
+ Function List(projectId: string; AQuery : TProjectsHistorieslistOptions) : TListHistoriesResponse;
+ Function CreateExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
+ Function CreateExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
+ Function CreateExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
+ Function CreateExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
+ Function CreateExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;virtual;overload;
+ Function CreateExecutionsResource : TProjectsHistoriesExecutionsResource;virtual;overload;
+ Property ExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource Read GetExecutionsStepsThumbnailsInstance;
+ Property ExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource Read GetExecutionsStepsInstance;
+ Property ExecutionsResource : TProjectsHistoriesExecutionsResource Read GetExecutionsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+ TProjectsResource = Class(TGoogleResource)
+ Private
+ FHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+ FHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
+ FHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;
+ FHistoriesInstance : TProjectsHistoriesResource;
+ Function GetHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;
+ Function GetHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;virtual;
+ Function GetHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;virtual;
+ Function GetHistoriesInstance : TProjectsHistoriesResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function GetSettings(projectId: string) : TProjectSettings;
+ Function InitializeSettings(projectId: string) : TProjectSettings;
+ Function CreateHistoriesExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
+ Function CreateHistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
+ Function CreateHistoriesExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
+ Function CreateHistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
+ Function CreateHistoriesExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;virtual;overload;
+ Function CreateHistoriesExecutionsResource : TProjectsHistoriesExecutionsResource;virtual;overload;
+ Function CreateHistoriesResource(AOwner : TComponent) : TProjectsHistoriesResource;virtual;overload;
+ Function CreateHistoriesResource : TProjectsHistoriesResource;virtual;overload;
+ Property HistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource Read GetHistoriesExecutionsStepsThumbnailsInstance;
+ Property HistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource Read GetHistoriesExecutionsStepsInstance;
+ Property HistoriesExecutionsResource : TProjectsHistoriesExecutionsResource Read GetHistoriesExecutionsInstance;
+ Property HistoriesResource : TProjectsHistoriesResource Read GetHistoriesInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TToolresultsAPI
+ --------------------------------------------------------------------}
+
+ TToolresultsAPI = Class(TGoogleAPI)
+ Private
+ FProjectsHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+ FProjectsHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
+ FProjectsHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;
+ FProjectsHistoriesInstance : TProjectsHistoriesResource;
+ FProjectsInstance : TProjectsResource;
+ Function GetProjectsHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;
+ Function GetProjectsHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;virtual;
+ Function GetProjectsHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;virtual;
+ Function GetProjectsHistoriesInstance : TProjectsHistoriesResource;virtual;
+ Function GetProjectsInstance : TProjectsResource;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 CreateProjectsHistoriesExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
+ Function CreateProjectsHistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
+ Function CreateProjectsHistoriesExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
+ Function CreateProjectsHistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
+ Function CreateProjectsHistoriesExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;virtual;overload;
+ Function CreateProjectsHistoriesExecutionsResource : TProjectsHistoriesExecutionsResource;virtual;overload;
+ Function CreateProjectsHistoriesResource(AOwner : TComponent) : TProjectsHistoriesResource;virtual;overload;
+ Function CreateProjectsHistoriesResource : TProjectsHistoriesResource;virtual;overload;
+ Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
+ Function CreateProjectsResource : TProjectsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ProjectsHistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource Read GetProjectsHistoriesExecutionsStepsThumbnailsInstance;
+ Property ProjectsHistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource Read GetProjectsHistoriesExecutionsStepsInstance;
+ Property ProjectsHistoriesExecutionsResource : TProjectsHistoriesExecutionsResource Read GetProjectsHistoriesExecutionsInstance;
+ Property ProjectsHistoriesResource : TProjectsHistoriesResource Read GetProjectsHistoriesInstance;
+ Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TAny
+ --------------------------------------------------------------------}
+
+
+Procedure TAny.SettypeUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtypeUrl=AValue) then exit;
+ FtypeUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAny.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDuration
+ --------------------------------------------------------------------}
+
+
+Procedure TDuration.Setnanos(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fnanos=AValue) then exit;
+ Fnanos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TDuration.Setseconds(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fseconds=AValue) then exit;
+ Fseconds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TExecution
+ --------------------------------------------------------------------}
+
+
+Procedure TExecution.SetcompletionTime(AIndex : Integer; const AValue : TTimestamp);
+
+begin
+ If (FcompletionTime=AValue) then exit;
+ FcompletionTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExecution.SetcreationTime(AIndex : Integer; const AValue : TTimestamp);
+
+begin
+ If (FcreationTime=AValue) then exit;
+ FcreationTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExecution.SetexecutionId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexecutionId=AValue) then exit;
+ FexecutionId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExecution.Setoutcome(AIndex : Integer; const AValue : TOutcome);
+
+begin
+ If (Foutcome=AValue) then exit;
+ Foutcome:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExecution.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TExecution.SettestExecutionMatrixId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtestExecutionMatrixId=AValue) then exit;
+ FtestExecutionMatrixId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TFailureDetail
+ --------------------------------------------------------------------}
+
+
+Procedure TFailureDetail.Setcrashed(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Fcrashed=AValue) then exit;
+ Fcrashed:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFailureDetail.SetnotInstalled(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FnotInstalled=AValue) then exit;
+ FnotInstalled:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFailureDetail.SetotherNativeCrash(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FotherNativeCrash=AValue) then exit;
+ FotherNativeCrash:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFailureDetail.SettimedOut(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FtimedOut=AValue) then exit;
+ FtimedOut:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFailureDetail.SetunableToCrawl(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FunableToCrawl=AValue) then exit;
+ FunableToCrawl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TFileReference
+ --------------------------------------------------------------------}
+
+
+Procedure TFileReference.SetfileUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FfileUri=AValue) then exit;
+ FfileUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ THistory
+ --------------------------------------------------------------------}
+
+
+Procedure THistory.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THistory.SethistoryId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FhistoryId=AValue) then exit;
+ FhistoryId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure THistory.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TImage
+ --------------------------------------------------------------------}
+
+
+Procedure TImage.Seterror(AIndex : Integer; const AValue : TStatus);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TImage.SetsourceImage(AIndex : Integer; const AValue : TToolOutputReference);
+
+begin
+ If (FsourceImage=AValue) then exit;
+ FsourceImage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TImage.SetstepId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstepId=AValue) then exit;
+ FstepId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TImage.Setthumbnail(AIndex : Integer; const AValue : TThumbnail);
+
+begin
+ If (Fthumbnail=AValue) then exit;
+ Fthumbnail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TInconclusiveDetail
+ --------------------------------------------------------------------}
+
+
+Procedure TInconclusiveDetail.SetabortedByUser(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FabortedByUser=AValue) then exit;
+ FabortedByUser:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInconclusiveDetail.SetinfrastructureFailure(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FinfrastructureFailure=AValue) then exit;
+ FinfrastructureFailure:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TInconclusiveDetail.SetnativeCrash(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FnativeCrash=AValue) then exit;
+ FnativeCrash:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListExecutionsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListExecutionsResponse.Setexecutions(AIndex : Integer; const AValue : TListExecutionsResponseTypeexecutionsArray);
+
+begin
+ If (Fexecutions=AValue) then exit;
+ Fexecutions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListExecutionsResponse.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 TListExecutionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'executions' : SetLength(Fexecutions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListHistoriesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListHistoriesResponse.Sethistories(AIndex : Integer; const AValue : TListHistoriesResponseTypehistoriesArray);
+
+begin
+ If (Fhistories=AValue) then exit;
+ Fhistories:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListHistoriesResponse.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 TListHistoriesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'histories' : SetLength(Fhistories,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListStepThumbnailsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListStepThumbnailsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListStepThumbnailsResponse.Setthumbnails(AIndex : Integer; const AValue : TListStepThumbnailsResponseTypethumbnailsArray);
+
+begin
+ If (Fthumbnails=AValue) then exit;
+ Fthumbnails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListStepThumbnailsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'thumbnails' : SetLength(Fthumbnails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListStepsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListStepsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListStepsResponse.Setsteps(AIndex : Integer; const AValue : TListStepsResponseTypestepsArray);
+
+begin
+ If (Fsteps=AValue) then exit;
+ Fsteps:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TListStepsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'steps' : SetLength(Fsteps,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TOutcome
+ --------------------------------------------------------------------}
+
+
+Procedure TOutcome.SetfailureDetail(AIndex : Integer; const AValue : TFailureDetail);
+
+begin
+ If (FfailureDetail=AValue) then exit;
+ FfailureDetail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOutcome.SetinconclusiveDetail(AIndex : Integer; const AValue : TInconclusiveDetail);
+
+begin
+ If (FinconclusiveDetail=AValue) then exit;
+ FinconclusiveDetail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOutcome.SetskippedDetail(AIndex : Integer; const AValue : TSkippedDetail);
+
+begin
+ If (FskippedDetail=AValue) then exit;
+ FskippedDetail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOutcome.SetsuccessDetail(AIndex : Integer; const AValue : TSuccessDetail);
+
+begin
+ If (FsuccessDetail=AValue) then exit;
+ FsuccessDetail:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TOutcome.Setsummary(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fsummary=AValue) then exit;
+ Fsummary:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectSettings
+ --------------------------------------------------------------------}
+
+
+Procedure TProjectSettings.SetdefaultBucket(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdefaultBucket=AValue) then exit;
+ FdefaultBucket:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProjectSettings.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPublishXunitXmlFilesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TPublishXunitXmlFilesRequest.SetxunitXmlFiles(AIndex : Integer; const AValue : TPublishXunitXmlFilesRequestTypexunitXmlFilesArray);
+
+begin
+ If (FxunitXmlFiles=AValue) then exit;
+ FxunitXmlFiles:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TPublishXunitXmlFilesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'xunitxmlfiles' : SetLength(FxunitXmlFiles,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSkippedDetail
+ --------------------------------------------------------------------}
+
+
+Procedure TSkippedDetail.SetincompatibleAppVersion(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FincompatibleAppVersion=AValue) then exit;
+ FincompatibleAppVersion:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSkippedDetail.SetincompatibleArchitecture(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FincompatibleArchitecture=AValue) then exit;
+ FincompatibleArchitecture:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSkippedDetail.SetincompatibleDevice(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FincompatibleDevice=AValue) then exit;
+ FincompatibleDevice:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStackTrace
+ --------------------------------------------------------------------}
+
+
+Procedure TStackTrace.Setexception(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fexception=AValue) then exit;
+ Fexception:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'details' : SetLength(Fdetails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TStep
+ --------------------------------------------------------------------}
+
+
+Procedure TStep.SetcompletionTime(AIndex : Integer; const AValue : TTimestamp);
+
+begin
+ If (FcompletionTime=AValue) then exit;
+ FcompletionTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.SetcreationTime(AIndex : Integer; const AValue : TTimestamp);
+
+begin
+ If (FcreationTime=AValue) then exit;
+ FcreationTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.SetdeviceUsageDuration(AIndex : Integer; const AValue : TDuration);
+
+begin
+ If (FdeviceUsageDuration=AValue) then exit;
+ FdeviceUsageDuration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.SetdimensionValue(AIndex : Integer; const AValue : TStepTypedimensionValueArray);
+
+begin
+ If (FdimensionValue=AValue) then exit;
+ FdimensionValue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.SethasImages(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasImages=AValue) then exit;
+ FhasImages:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.Setlabels(AIndex : Integer; const AValue : TStepTypelabelsArray);
+
+begin
+ If (Flabels=AValue) then exit;
+ Flabels:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.Setoutcome(AIndex : Integer; const AValue : TOutcome);
+
+begin
+ If (Foutcome=AValue) then exit;
+ Foutcome:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.SetrunDuration(AIndex : Integer; const AValue : TDuration);
+
+begin
+ If (FrunDuration=AValue) then exit;
+ FrunDuration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.Setstate(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fstate=AValue) then exit;
+ Fstate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.SetstepId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstepId=AValue) then exit;
+ FstepId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.SettestExecutionStep(AIndex : Integer; const AValue : TTestExecutionStep);
+
+begin
+ If (FtestExecutionStep=AValue) then exit;
+ FtestExecutionStep:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStep.SettoolExecutionStep(AIndex : Integer; const AValue : TToolExecutionStep);
+
+begin
+ If (FtoolExecutionStep=AValue) then exit;
+ FtoolExecutionStep:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStep.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dimensionvalue' : SetLength(FdimensionValue,ALength);
+ 'labels' : SetLength(Flabels,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TStepDimensionValueEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TStepDimensionValueEntry.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStepDimensionValueEntry.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStepLabelsEntry
+ --------------------------------------------------------------------}
+
+
+Procedure TStepLabelsEntry.Setkey(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkey=AValue) then exit;
+ Fkey:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStepLabelsEntry.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSuccessDetail
+ --------------------------------------------------------------------}
+
+
+Procedure TSuccessDetail.SetotherNativeCrash(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FotherNativeCrash=AValue) then exit;
+ FotherNativeCrash:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestCaseReference
+ --------------------------------------------------------------------}
+
+
+Procedure TTestCaseReference.SetclassName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclassName=AValue) then exit;
+ FclassName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestCaseReference.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestCaseReference.SettestSuiteName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtestSuiteName=AValue) then exit;
+ FtestSuiteName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestExecutionStep
+ --------------------------------------------------------------------}
+
+
+Procedure TTestExecutionStep.SettestIssues(AIndex : Integer; const AValue : TTestExecutionStepTypetestIssuesArray);
+
+begin
+ If (FtestIssues=AValue) then exit;
+ FtestIssues:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestExecutionStep.SettestSuiteOverviews(AIndex : Integer; const AValue : TTestExecutionStepTypetestSuiteOverviewsArray);
+
+begin
+ If (FtestSuiteOverviews=AValue) then exit;
+ FtestSuiteOverviews:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestExecutionStep.SettestTiming(AIndex : Integer; const AValue : TTestTiming);
+
+begin
+ If (FtestTiming=AValue) then exit;
+ FtestTiming:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestExecutionStep.SettoolExecution(AIndex : Integer; const AValue : TToolExecution);
+
+begin
+ If (FtoolExecution=AValue) then exit;
+ FtoolExecution:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TTestExecutionStep.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'testissues' : SetLength(FtestIssues,ALength);
+ 'testsuiteoverviews' : SetLength(FtestSuiteOverviews,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestIssue
+ --------------------------------------------------------------------}
+
+
+Procedure TTestIssue.SeterrorMessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FerrorMessage=AValue) then exit;
+ FerrorMessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestIssue.SetstackTrace(AIndex : Integer; const AValue : TStackTrace);
+
+begin
+ If (FstackTrace=AValue) then exit;
+ FstackTrace:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestSuiteOverview
+ --------------------------------------------------------------------}
+
+
+Procedure TTestSuiteOverview.SeterrorCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FerrorCount=AValue) then exit;
+ FerrorCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestSuiteOverview.SetfailureCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FfailureCount=AValue) then exit;
+ FfailureCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestSuiteOverview.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestSuiteOverview.SetskippedCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FskippedCount=AValue) then exit;
+ FskippedCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestSuiteOverview.SettotalCount(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtotalCount=AValue) then exit;
+ FtotalCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTestSuiteOverview.SetxmlSource(AIndex : Integer; const AValue : TFileReference);
+
+begin
+ If (FxmlSource=AValue) then exit;
+ FxmlSource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTestTiming
+ --------------------------------------------------------------------}
+
+
+Procedure TTestTiming.SettestProcessDuration(AIndex : Integer; const AValue : TDuration);
+
+begin
+ If (FtestProcessDuration=AValue) then exit;
+ FtestProcessDuration:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TThumbnail
+ --------------------------------------------------------------------}
+
+
+Procedure TThumbnail.SetcontentType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcontentType=AValue) then exit;
+ FcontentType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThumbnail.Setdata(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdata=AValue) then exit;
+ Fdata:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThumbnail.SetheightPx(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FheightPx=AValue) then exit;
+ FheightPx:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TThumbnail.SetwidthPx(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FwidthPx=AValue) then exit;
+ FwidthPx:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TTimestamp
+ --------------------------------------------------------------------}
+
+
+Procedure TTimestamp.Setnanos(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fnanos=AValue) then exit;
+ Fnanos:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TTimestamp.Setseconds(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fseconds=AValue) then exit;
+ Fseconds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TToolExecution
+ --------------------------------------------------------------------}
+
+
+Procedure TToolExecution.SetcommandLineArguments(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FcommandLineArguments=AValue) then exit;
+ FcommandLineArguments:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TToolExecution.SetexitCode(AIndex : Integer; const AValue : TToolExitCode);
+
+begin
+ If (FexitCode=AValue) then exit;
+ FexitCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TToolExecution.SettoolLogs(AIndex : Integer; const AValue : TToolExecutionTypetoolLogsArray);
+
+begin
+ If (FtoolLogs=AValue) then exit;
+ FtoolLogs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TToolExecution.SettoolOutputs(AIndex : Integer; const AValue : TToolExecutionTypetoolOutputsArray);
+
+begin
+ If (FtoolOutputs=AValue) then exit;
+ FtoolOutputs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TToolExecution.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'commandlinearguments' : SetLength(FcommandLineArguments,ALength);
+ 'toollogs' : SetLength(FtoolLogs,ALength);
+ 'tooloutputs' : SetLength(FtoolOutputs,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TToolExecutionStep
+ --------------------------------------------------------------------}
+
+
+Procedure TToolExecutionStep.SettoolExecution(AIndex : Integer; const AValue : TToolExecution);
+
+begin
+ If (FtoolExecution=AValue) then exit;
+ FtoolExecution:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TToolExitCode
+ --------------------------------------------------------------------}
+
+
+Procedure TToolExitCode.Setnumber(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fnumber=AValue) then exit;
+ Fnumber:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TToolOutputReference
+ --------------------------------------------------------------------}
+
+
+Procedure TToolOutputReference.SetcreationTime(AIndex : Integer; const AValue : TTimestamp);
+
+begin
+ If (FcreationTime=AValue) then exit;
+ FcreationTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TToolOutputReference.Setoutput(AIndex : Integer; const AValue : TFileReference);
+
+begin
+ If (Foutput=AValue) then exit;
+ Foutput:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TToolOutputReference.SettestCase(AIndex : Integer; const AValue : TTestCaseReference);
+
+begin
+ If (FtestCase=AValue) then exit;
+ FtestCase:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsHistoriesExecutionsStepsThumbnailsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsHistoriesExecutionsStepsThumbnailsResource.ResourceName : String;
+
+begin
+ Result:='thumbnails';
+end;
+
+Class Function TProjectsHistoriesExecutionsStepsThumbnailsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TtoolresultsAPI;
+end;
+
+Function TProjectsHistoriesExecutionsStepsThumbnailsResource.List(executionId: string; historyId: string; projectId: string; stepId: string; AQuery : string = '') : TListStepThumbnailsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps/{stepId}/thumbnails';
+ _Methodid = 'toolresults.projects.histories.executions.steps.thumbnails.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId,'stepId',stepId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListStepThumbnailsResponse) as TListStepThumbnailsResponse;
+end;
+
+
+Function TProjectsHistoriesExecutionsStepsThumbnailsResource.List(executionId: string; historyId: string; projectId: string; stepId: string; AQuery : TProjectsHistoriesExecutionsStepsThumbnailslistOptions) : TListStepThumbnailsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(executionId,historyId,projectId,stepId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsHistoriesExecutionsStepsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsHistoriesExecutionsStepsResource.ResourceName : String;
+
+begin
+ Result:='steps';
+end;
+
+Class Function TProjectsHistoriesExecutionsStepsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TtoolresultsAPI;
+end;
+
+Function TProjectsHistoriesExecutionsStepsResource.Create(executionId: string; historyId: string; projectId: string; aStep : TStep; AQuery : string = '') : TStep;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps';
+ _Methodid = 'toolresults.projects.histories.executions.steps.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aStep,TStep) as TStep;
+end;
+
+
+Function TProjectsHistoriesExecutionsStepsResource.Create(executionId: string; historyId: string; projectId: string; aStep : TStep; AQuery : TProjectsHistoriesExecutionsStepscreateOptions) : TStep;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'requestId',AQuery.requestId);
+ Result:=Create(executionId,historyId,projectId,aStep,_Q);
+end;
+
+Function TProjectsHistoriesExecutionsStepsResource.Get(executionId: string; historyId: string; projectId: string; stepId: string) : TStep;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps/{stepId}';
+ _Methodid = 'toolresults.projects.histories.executions.steps.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId,'stepId',stepId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TStep) as TStep;
+end;
+
+Function TProjectsHistoriesExecutionsStepsResource.List(executionId: string; historyId: string; projectId: string; AQuery : string = '') : TListStepsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps';
+ _Methodid = 'toolresults.projects.histories.executions.steps.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListStepsResponse) as TListStepsResponse;
+end;
+
+
+Function TProjectsHistoriesExecutionsStepsResource.List(executionId: string; historyId: string; projectId: string; AQuery : TProjectsHistoriesExecutionsStepslistOptions) : TListStepsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(executionId,historyId,projectId,_Q);
+end;
+
+Function TProjectsHistoriesExecutionsStepsResource.Patch(executionId: string; historyId: string; projectId: string; stepId: string; aStep : TStep; AQuery : string = '') : TStep;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps/{stepId}';
+ _Methodid = 'toolresults.projects.histories.executions.steps.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId,'stepId',stepId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aStep,TStep) as TStep;
+end;
+
+
+Function TProjectsHistoriesExecutionsStepsResource.Patch(executionId: string; historyId: string; projectId: string; stepId: string; aStep : TStep; AQuery : TProjectsHistoriesExecutionsStepspatchOptions) : TStep;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'requestId',AQuery.requestId);
+ Result:=Patch(executionId,historyId,projectId,stepId,aStep,_Q);
+end;
+
+Function TProjectsHistoriesExecutionsStepsResource.PublishXunitXmlFiles(executionId: string; historyId: string; projectId: string; stepId: string; aPublishXunitXmlFilesRequest : TPublishXunitXmlFilesRequest) : TStep;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps/{stepId}:publishXunitXmlFiles';
+ _Methodid = 'toolresults.projects.histories.executions.steps.publishXunitXmlFiles';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId,'stepId',stepId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aPublishXunitXmlFilesRequest,TStep) as TStep;
+end;
+
+
+
+Function TProjectsHistoriesExecutionsStepsResource.GetThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ if (FThumbnailsInstance=Nil) then
+ FThumbnailsInstance:=CreateThumbnailsResource;
+ Result:=FThumbnailsInstance;
+end;
+
+Function TProjectsHistoriesExecutionsStepsResource.CreateThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ Result:=CreateThumbnailsResource(Self);
+end;
+
+
+Function TProjectsHistoriesExecutionsStepsResource.CreateThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsStepsThumbnailsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsHistoriesExecutionsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsHistoriesExecutionsResource.ResourceName : String;
+
+begin
+ Result:='executions';
+end;
+
+Class Function TProjectsHistoriesExecutionsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TtoolresultsAPI;
+end;
+
+Function TProjectsHistoriesExecutionsResource.Create(historyId: string; projectId: string; aExecution : TExecution; AQuery : string = '') : TExecution;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{projectId}/histories/{historyId}/executions';
+ _Methodid = 'toolresults.projects.histories.executions.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['historyId',historyId,'projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aExecution,TExecution) as TExecution;
+end;
+
+
+Function TProjectsHistoriesExecutionsResource.Create(historyId: string; projectId: string; aExecution : TExecution; AQuery : TProjectsHistoriesExecutionscreateOptions) : TExecution;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'requestId',AQuery.requestId);
+ Result:=Create(historyId,projectId,aExecution,_Q);
+end;
+
+Function TProjectsHistoriesExecutionsResource.Get(executionId: string; historyId: string; projectId: string) : TExecution;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{projectId}/histories/{historyId}/executions/{executionId}';
+ _Methodid = 'toolresults.projects.histories.executions.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TExecution) as TExecution;
+end;
+
+Function TProjectsHistoriesExecutionsResource.List(historyId: string; projectId: string; AQuery : string = '') : TListExecutionsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{projectId}/histories/{historyId}/executions';
+ _Methodid = 'toolresults.projects.histories.executions.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['historyId',historyId,'projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListExecutionsResponse) as TListExecutionsResponse;
+end;
+
+
+Function TProjectsHistoriesExecutionsResource.List(historyId: string; projectId: string; AQuery : TProjectsHistoriesExecutionslistOptions) : TListExecutionsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(historyId,projectId,_Q);
+end;
+
+Function TProjectsHistoriesExecutionsResource.Patch(executionId: string; historyId: string; projectId: string; aExecution : TExecution; AQuery : string = '') : TExecution;
+
+Const
+ _HTTPMethod = 'PATCH';
+ _Path = '{projectId}/histories/{historyId}/executions/{executionId}';
+ _Methodid = 'toolresults.projects.histories.executions.patch';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aExecution,TExecution) as TExecution;
+end;
+
+
+Function TProjectsHistoriesExecutionsResource.Patch(executionId: string; historyId: string; projectId: string; aExecution : TExecution; AQuery : TProjectsHistoriesExecutionspatchOptions) : TExecution;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'requestId',AQuery.requestId);
+ Result:=Patch(executionId,historyId,projectId,aExecution,_Q);
+end;
+
+
+
+Function TProjectsHistoriesExecutionsResource.GetStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ if (FStepsThumbnailsInstance=Nil) then
+ FStepsThumbnailsInstance:=CreateStepsThumbnailsResource;
+ Result:=FStepsThumbnailsInstance;
+end;
+
+Function TProjectsHistoriesExecutionsResource.CreateStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ Result:=CreateStepsThumbnailsResource(Self);
+end;
+
+
+Function TProjectsHistoriesExecutionsResource.CreateStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsStepsThumbnailsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsHistoriesExecutionsResource.GetStepsInstance : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ if (FStepsInstance=Nil) then
+ FStepsInstance:=CreateStepsResource;
+ Result:=FStepsInstance;
+end;
+
+Function TProjectsHistoriesExecutionsResource.CreateStepsResource : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ Result:=CreateStepsResource(Self);
+end;
+
+
+Function TProjectsHistoriesExecutionsResource.CreateStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsStepsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsHistoriesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsHistoriesResource.ResourceName : String;
+
+begin
+ Result:='histories';
+end;
+
+Class Function TProjectsHistoriesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TtoolresultsAPI;
+end;
+
+Function TProjectsHistoriesResource.Create(projectId: string; aHistory : THistory; AQuery : string = '') : THistory;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{projectId}/histories';
+ _Methodid = 'toolresults.projects.histories.create';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,aHistory,THistory) as THistory;
+end;
+
+
+Function TProjectsHistoriesResource.Create(projectId: string; aHistory : THistory; AQuery : TProjectsHistoriescreateOptions) : THistory;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'requestId',AQuery.requestId);
+ Result:=Create(projectId,aHistory,_Q);
+end;
+
+Function TProjectsHistoriesResource.Get(historyId: string; projectId: string) : THistory;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{projectId}/histories/{historyId}';
+ _Methodid = 'toolresults.projects.histories.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['historyId',historyId,'projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,THistory) as THistory;
+end;
+
+Function TProjectsHistoriesResource.List(projectId: string; AQuery : string = '') : TListHistoriesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{projectId}/histories';
+ _Methodid = 'toolresults.projects.histories.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListHistoriesResponse) as TListHistoriesResponse;
+end;
+
+
+Function TProjectsHistoriesResource.List(projectId: string; AQuery : TProjectsHistorieslistOptions) : TListHistoriesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filterByName',AQuery.filterByName);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ Result:=List(projectId,_Q);
+end;
+
+
+
+Function TProjectsHistoriesResource.GetExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ if (FExecutionsStepsThumbnailsInstance=Nil) then
+ FExecutionsStepsThumbnailsInstance:=CreateExecutionsStepsThumbnailsResource;
+ Result:=FExecutionsStepsThumbnailsInstance;
+end;
+
+Function TProjectsHistoriesResource.CreateExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ Result:=CreateExecutionsStepsThumbnailsResource(Self);
+end;
+
+
+Function TProjectsHistoriesResource.CreateExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsStepsThumbnailsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsHistoriesResource.GetExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ if (FExecutionsStepsInstance=Nil) then
+ FExecutionsStepsInstance:=CreateExecutionsStepsResource;
+ Result:=FExecutionsStepsInstance;
+end;
+
+Function TProjectsHistoriesResource.CreateExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ Result:=CreateExecutionsStepsResource(Self);
+end;
+
+
+Function TProjectsHistoriesResource.CreateExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsStepsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsHistoriesResource.GetExecutionsInstance : TProjectsHistoriesExecutionsResource;
+
+begin
+ if (FExecutionsInstance=Nil) then
+ FExecutionsInstance:=CreateExecutionsResource;
+ Result:=FExecutionsInstance;
+end;
+
+Function TProjectsHistoriesResource.CreateExecutionsResource : TProjectsHistoriesExecutionsResource;
+
+begin
+ Result:=CreateExecutionsResource(Self);
+end;
+
+
+Function TProjectsHistoriesResource.CreateExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TProjectsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TProjectsResource.ResourceName : String;
+
+begin
+ Result:='projects';
+end;
+
+Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TtoolresultsAPI;
+end;
+
+Function TProjectsResource.GetSettings(projectId: string) : TProjectSettings;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = '{projectId}/settings';
+ _Methodid = 'toolresults.projects.getSettings';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProjectSettings) as TProjectSettings;
+end;
+
+Function TProjectsResource.InitializeSettings(projectId: string) : TProjectSettings;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = '{projectId}:initializeSettings';
+ _Methodid = 'toolresults.projects.initializeSettings';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['projectId',projectId]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProjectSettings) as TProjectSettings;
+end;
+
+
+
+Function TProjectsResource.GetHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ if (FHistoriesExecutionsStepsThumbnailsInstance=Nil) then
+ FHistoriesExecutionsStepsThumbnailsInstance:=CreateHistoriesExecutionsStepsThumbnailsResource;
+ Result:=FHistoriesExecutionsStepsThumbnailsInstance;
+end;
+
+Function TProjectsResource.CreateHistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ Result:=CreateHistoriesExecutionsStepsThumbnailsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateHistoriesExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsStepsThumbnailsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ if (FHistoriesExecutionsStepsInstance=Nil) then
+ FHistoriesExecutionsStepsInstance:=CreateHistoriesExecutionsStepsResource;
+ Result:=FHistoriesExecutionsStepsInstance;
+end;
+
+Function TProjectsResource.CreateHistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ Result:=CreateHistoriesExecutionsStepsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateHistoriesExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsStepsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;
+
+begin
+ if (FHistoriesExecutionsInstance=Nil) then
+ FHistoriesExecutionsInstance:=CreateHistoriesExecutionsResource;
+ Result:=FHistoriesExecutionsInstance;
+end;
+
+Function TProjectsResource.CreateHistoriesExecutionsResource : TProjectsHistoriesExecutionsResource;
+
+begin
+ Result:=CreateHistoriesExecutionsResource(Self);
+end;
+
+
+Function TProjectsResource.CreateHistoriesExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TProjectsResource.GetHistoriesInstance : TProjectsHistoriesResource;
+
+begin
+ if (FHistoriesInstance=Nil) then
+ FHistoriesInstance:=CreateHistoriesResource;
+ Result:=FHistoriesInstance;
+end;
+
+Function TProjectsResource.CreateHistoriesResource : TProjectsHistoriesResource;
+
+begin
+ Result:=CreateHistoriesResource(Self);
+end;
+
+
+Function TProjectsResource.CreateHistoriesResource(AOwner : TComponent) : TProjectsHistoriesResource;
+
+begin
+ Result:=TProjectsHistoriesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TToolresultsAPI
+ --------------------------------------------------------------------}
+
+Class Function TToolresultsAPI.APIName : String;
+
+begin
+ Result:='toolresults';
+end;
+
+Class Function TToolresultsAPI.APIVersion : String;
+
+begin
+ Result:='v1beta3';
+end;
+
+Class Function TToolresultsAPI.APIRevision : String;
+
+begin
+ Result:='20160523';
+end;
+
+Class Function TToolresultsAPI.APIID : String;
+
+begin
+ Result:='toolresults:v1beta3';
+end;
+
+Class Function TToolresultsAPI.APITitle : String;
+
+begin
+ Result:='Cloud Tool Results API';
+end;
+
+Class Function TToolresultsAPI.APIDescription : String;
+
+begin
+ Result:='Reads and publishes results from Cloud Test Lab.';
+end;
+
+Class Function TToolresultsAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TToolresultsAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TToolresultsAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TToolresultsAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TToolresultsAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/cloud-test-lab/';
+end;
+
+Class Function TToolresultsAPI.APIrootUrl : string;
+
+begin
+ Result:='https://www.googleapis.com/';
+end;
+
+Class Function TToolresultsAPI.APIbasePath : string;
+
+begin
+ Result:='/toolresults/v1beta3/projects/';
+end;
+
+Class Function TToolresultsAPI.APIbaseURL : String;
+
+begin
+ Result:='https://www.googleapis.com/toolresults/v1beta3/projects/';
+end;
+
+Class Function TToolresultsAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TToolresultsAPI.APIservicePath : string;
+
+begin
+ Result:='toolresults/v1beta3/projects/';
+end;
+
+Class Function TToolresultsAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TToolresultsAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+
+end;
+
+Class Function TToolresultsAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TToolresultsAPI.RegisterAPIResources;
+
+begin
+ TAny.RegisterObject;
+ TDuration.RegisterObject;
+ TExecution.RegisterObject;
+ TFailureDetail.RegisterObject;
+ TFileReference.RegisterObject;
+ THistory.RegisterObject;
+ TImage.RegisterObject;
+ TInconclusiveDetail.RegisterObject;
+ TListExecutionsResponse.RegisterObject;
+ TListHistoriesResponse.RegisterObject;
+ TListStepThumbnailsResponse.RegisterObject;
+ TListStepsResponse.RegisterObject;
+ TOutcome.RegisterObject;
+ TProjectSettings.RegisterObject;
+ TPublishXunitXmlFilesRequest.RegisterObject;
+ TSkippedDetail.RegisterObject;
+ TStackTrace.RegisterObject;
+ TStatus.RegisterObject;
+ TStep.RegisterObject;
+ TStepDimensionValueEntry.RegisterObject;
+ TStepLabelsEntry.RegisterObject;
+ TSuccessDetail.RegisterObject;
+ TTestCaseReference.RegisterObject;
+ TTestExecutionStep.RegisterObject;
+ TTestIssue.RegisterObject;
+ TTestSuiteOverview.RegisterObject;
+ TTestTiming.RegisterObject;
+ TThumbnail.RegisterObject;
+ TTimestamp.RegisterObject;
+ TToolExecution.RegisterObject;
+ TToolExecutionStep.RegisterObject;
+ TToolExitCode.RegisterObject;
+ TToolOutputReference.RegisterObject;
+end;
+
+
+Function TToolresultsAPI.GetProjectsHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ if (FProjectsHistoriesExecutionsStepsThumbnailsInstance=Nil) then
+ FProjectsHistoriesExecutionsStepsThumbnailsInstance:=CreateProjectsHistoriesExecutionsStepsThumbnailsResource;
+ Result:=FProjectsHistoriesExecutionsStepsThumbnailsInstance;
+end;
+
+Function TToolresultsAPI.CreateProjectsHistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ Result:=CreateProjectsHistoriesExecutionsStepsThumbnailsResource(Self);
+end;
+
+
+Function TToolresultsAPI.CreateProjectsHistoriesExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsStepsThumbnailsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TToolresultsAPI.GetProjectsHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ if (FProjectsHistoriesExecutionsStepsInstance=Nil) then
+ FProjectsHistoriesExecutionsStepsInstance:=CreateProjectsHistoriesExecutionsStepsResource;
+ Result:=FProjectsHistoriesExecutionsStepsInstance;
+end;
+
+Function TToolresultsAPI.CreateProjectsHistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ Result:=CreateProjectsHistoriesExecutionsStepsResource(Self);
+end;
+
+
+Function TToolresultsAPI.CreateProjectsHistoriesExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsStepsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TToolresultsAPI.GetProjectsHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;
+
+begin
+ if (FProjectsHistoriesExecutionsInstance=Nil) then
+ FProjectsHistoriesExecutionsInstance:=CreateProjectsHistoriesExecutionsResource;
+ Result:=FProjectsHistoriesExecutionsInstance;
+end;
+
+Function TToolresultsAPI.CreateProjectsHistoriesExecutionsResource : TProjectsHistoriesExecutionsResource;
+
+begin
+ Result:=CreateProjectsHistoriesExecutionsResource(Self);
+end;
+
+
+Function TToolresultsAPI.CreateProjectsHistoriesExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;
+
+begin
+ Result:=TProjectsHistoriesExecutionsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TToolresultsAPI.GetProjectsHistoriesInstance : TProjectsHistoriesResource;
+
+begin
+ if (FProjectsHistoriesInstance=Nil) then
+ FProjectsHistoriesInstance:=CreateProjectsHistoriesResource;
+ Result:=FProjectsHistoriesInstance;
+end;
+
+Function TToolresultsAPI.CreateProjectsHistoriesResource : TProjectsHistoriesResource;
+
+begin
+ Result:=CreateProjectsHistoriesResource(Self);
+end;
+
+
+Function TToolresultsAPI.CreateProjectsHistoriesResource(AOwner : TComponent) : TProjectsHistoriesResource;
+
+begin
+ Result:=TProjectsHistoriesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TToolresultsAPI.GetProjectsInstance : TProjectsResource;
+
+begin
+ if (FProjectsInstance=Nil) then
+ FProjectsInstance:=CreateProjectsResource;
+ Result:=FProjectsInstance;
+end;
+
+Function TToolresultsAPI.CreateProjectsResource : TProjectsResource;
+
+begin
+ Result:=CreateProjectsResource(Self);
+end;
+
+
+Function TToolresultsAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
+
+begin
+ Result:=TProjectsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TToolresultsAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googletranslate.pp b/packages/googleapi/src/googletranslate.pp
index aa15524233..835397a30c 100644
--- a/packages/googleapi/src/googletranslate.pp
+++ b/packages/googleapi/src/googletranslate.pp
@@ -1,19 +1,4 @@
unit googletranslate;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:08
{$MODE objfpc}
{$H+}
@@ -51,7 +36,7 @@ type
Fdetections : TDetectionsListResponseTypedetectionsArray;
Protected
//Property setters
- Procedure Setdetections(AIndex : Integer; AValue : TDetectionsListResponseTypedetectionsArray); virtual;
+ Procedure Setdetections(AIndex : Integer; const AValue : TDetectionsListResponseTypedetectionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -73,8 +58,8 @@ type
Flanguage : String;
Protected
//Property setters
- Procedure Setconfidence(AIndex : Integer; AValue : integer); virtual;
- Procedure SetisReliable(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setconfidence(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetisReliable(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -93,7 +78,7 @@ type
Flanguages : TLanguagesListResponseTypelanguagesArray;
Protected
//Property setters
- Procedure Setlanguages(AIndex : Integer; AValue : TLanguagesListResponseTypelanguagesArray); virtual;
+ Procedure Setlanguages(AIndex : Integer; const AValue : TLanguagesListResponseTypelanguagesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -132,7 +117,7 @@ type
Ftranslations : TTranslationsListResponseTypetranslationsArray;
Protected
//Property setters
- Procedure Settranslations(AIndex : Integer; AValue : TTranslationsListResponseTypetranslationsArray); virtual;
+ Procedure Settranslations(AIndex : Integer; const AValue : TTranslationsListResponseTypetranslationsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -281,7 +266,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TDetectionsListResponse.Setdetections(AIndex : Integer; AValue : TDetectionsListResponseTypedetectionsArray);
+Procedure TDetectionsListResponse.Setdetections(AIndex : Integer; const AValue : TDetectionsListResponseTypedetectionsArray);
begin
If (Fdetections=AValue) then exit;
@@ -311,7 +296,7 @@ end;
--------------------------------------------------------------------}
-Procedure TDetectionsResourceItem.Setconfidence(AIndex : Integer; AValue : integer);
+Procedure TDetectionsResourceItem.Setconfidence(AIndex : Integer; const AValue : integer);
begin
If (Fconfidence=AValue) then exit;
@@ -321,7 +306,7 @@ end;
-Procedure TDetectionsResourceItem.SetisReliable(AIndex : Integer; AValue : boolean);
+Procedure TDetectionsResourceItem.SetisReliable(AIndex : Integer; const AValue : boolean);
begin
If (FisReliable=AValue) then exit;
@@ -348,7 +333,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLanguagesListResponse.Setlanguages(AIndex : Integer; AValue : TLanguagesListResponseTypelanguagesArray);
+Procedure TLanguagesListResponse.Setlanguages(AIndex : Integer; const AValue : TLanguagesListResponseTypelanguagesArray);
begin
If (Flanguages=AValue) then exit;
@@ -405,7 +390,7 @@ end;
--------------------------------------------------------------------}
-Procedure TTranslationsListResponse.Settranslations(AIndex : Integer; AValue : TTranslationsListResponseTypetranslationsArray);
+Procedure TTranslationsListResponse.Settranslations(AIndex : Integer; const AValue : TTranslationsListResponseTypetranslationsArray);
begin
If (Ftranslations=AValue) then exit;
@@ -606,7 +591,7 @@ end;
Class Function TTranslateAPI.APIRevision : String;
begin
- Result:='20141123';
+ Result:='20160217';
end;
Class Function TTranslateAPI.APIID : String;
@@ -660,7 +645,7 @@ end;
Class Function TTranslateAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TTranslateAPI.APIbasePath : string;
@@ -672,7 +657,7 @@ end;
Class Function TTranslateAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/language/translate/';
+ Result:='https://www.googleapis.com/language/translate/';
end;
Class Function TTranslateAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googleurlshortener.pp b/packages/googleapi/src/googleurlshortener.pp
index 4e31e4e573..c02daeaeb0 100644
--- a/packages/googleapi/src/googleurlshortener.pp
+++ b/packages/googleapi/src/googleurlshortener.pp
@@ -1,19 +1,4 @@
unit googleurlshortener;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:09
{$MODE objfpc}
{$H+}
@@ -55,11 +40,11 @@ type
FshortUrlClicks : String;
Protected
//Property setters
- Procedure Setbrowsers(AIndex : Integer; AValue : TAnalyticsSnapshotTypebrowsersArray); virtual;
- Procedure Setcountries(AIndex : Integer; AValue : TAnalyticsSnapshotTypecountriesArray); virtual;
+ Procedure Setbrowsers(AIndex : Integer; const AValue : TAnalyticsSnapshotTypebrowsersArray); virtual;
+ Procedure Setcountries(AIndex : Integer; const AValue : TAnalyticsSnapshotTypecountriesArray); virtual;
Procedure SetlongUrlClicks(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplatforms(AIndex : Integer; AValue : TAnalyticsSnapshotTypeplatformsArray); virtual;
- Procedure Setreferrers(AIndex : Integer; AValue : TAnalyticsSnapshotTypereferrersArray); virtual;
+ Procedure Setplatforms(AIndex : Integer; const AValue : TAnalyticsSnapshotTypeplatformsArray); virtual;
+ Procedure Setreferrers(AIndex : Integer; const AValue : TAnalyticsSnapshotTypereferrersArray); virtual;
Procedure SetshortUrlClicks(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -89,11 +74,11 @@ type
Fweek : TAnalyticsSnapshot;
Protected
//Property setters
- Procedure SetallTime(AIndex : Integer; AValue : TAnalyticsSnapshot); virtual;
- Procedure Setday(AIndex : Integer; AValue : TAnalyticsSnapshot); virtual;
- Procedure Setmonth(AIndex : Integer; AValue : TAnalyticsSnapshot); virtual;
- Procedure SettwoHours(AIndex : Integer; AValue : TAnalyticsSnapshot); virtual;
- Procedure Setweek(AIndex : Integer; AValue : TAnalyticsSnapshot); virtual;
+ Procedure SetallTime(AIndex : Integer; const AValue : TAnalyticsSnapshot); virtual;
+ Procedure Setday(AIndex : Integer; const AValue : TAnalyticsSnapshot); virtual;
+ Procedure Setmonth(AIndex : Integer; const AValue : TAnalyticsSnapshot); virtual;
+ Procedure SettwoHours(AIndex : Integer; const AValue : TAnalyticsSnapshot); virtual;
+ Procedure Setweek(AIndex : Integer; const AValue : TAnalyticsSnapshot); virtual;
Public
Published
Property allTime : TAnalyticsSnapshot Index 0 Read FallTime Write SetallTime;
@@ -137,7 +122,7 @@ type
Fstatus : String;
Protected
//Property setters
- Procedure Setanalytics(AIndex : Integer; AValue : TAnalyticsSummary); virtual;
+ Procedure Setanalytics(AIndex : Integer; const AValue : TAnalyticsSummary); virtual;
Procedure Setcreated(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
@@ -167,11 +152,11 @@ type
FtotalItems : integer;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TUrlHistoryTypeitemsArray); virtual;
- Procedure SetitemsPerPage(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TUrlHistoryTypeitemsArray); virtual;
+ Procedure SetitemsPerPage(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; AValue : integer); 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;
@@ -263,7 +248,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TAnalyticsSnapshot.Setbrowsers(AIndex : Integer; AValue : TAnalyticsSnapshotTypebrowsersArray);
+Procedure TAnalyticsSnapshot.Setbrowsers(AIndex : Integer; const AValue : TAnalyticsSnapshotTypebrowsersArray);
begin
If (Fbrowsers=AValue) then exit;
@@ -273,7 +258,7 @@ end;
-Procedure TAnalyticsSnapshot.Setcountries(AIndex : Integer; AValue : TAnalyticsSnapshotTypecountriesArray);
+Procedure TAnalyticsSnapshot.Setcountries(AIndex : Integer; const AValue : TAnalyticsSnapshotTypecountriesArray);
begin
If (Fcountries=AValue) then exit;
@@ -293,7 +278,7 @@ end;
-Procedure TAnalyticsSnapshot.Setplatforms(AIndex : Integer; AValue : TAnalyticsSnapshotTypeplatformsArray);
+Procedure TAnalyticsSnapshot.Setplatforms(AIndex : Integer; const AValue : TAnalyticsSnapshotTypeplatformsArray);
begin
If (Fplatforms=AValue) then exit;
@@ -303,7 +288,7 @@ end;
-Procedure TAnalyticsSnapshot.Setreferrers(AIndex : Integer; AValue : TAnalyticsSnapshotTypereferrersArray);
+Procedure TAnalyticsSnapshot.Setreferrers(AIndex : Integer; const AValue : TAnalyticsSnapshotTypereferrersArray);
begin
If (Freferrers=AValue) then exit;
@@ -346,7 +331,7 @@ end;
--------------------------------------------------------------------}
-Procedure TAnalyticsSummary.SetallTime(AIndex : Integer; AValue : TAnalyticsSnapshot);
+Procedure TAnalyticsSummary.SetallTime(AIndex : Integer; const AValue : TAnalyticsSnapshot);
begin
If (FallTime=AValue) then exit;
@@ -356,7 +341,7 @@ end;
-Procedure TAnalyticsSummary.Setday(AIndex : Integer; AValue : TAnalyticsSnapshot);
+Procedure TAnalyticsSummary.Setday(AIndex : Integer; const AValue : TAnalyticsSnapshot);
begin
If (Fday=AValue) then exit;
@@ -366,7 +351,7 @@ end;
-Procedure TAnalyticsSummary.Setmonth(AIndex : Integer; AValue : TAnalyticsSnapshot);
+Procedure TAnalyticsSummary.Setmonth(AIndex : Integer; const AValue : TAnalyticsSnapshot);
begin
If (Fmonth=AValue) then exit;
@@ -376,7 +361,7 @@ end;
-Procedure TAnalyticsSummary.SettwoHours(AIndex : Integer; AValue : TAnalyticsSnapshot);
+Procedure TAnalyticsSummary.SettwoHours(AIndex : Integer; const AValue : TAnalyticsSnapshot);
begin
If (FtwoHours=AValue) then exit;
@@ -386,7 +371,7 @@ end;
-Procedure TAnalyticsSummary.Setweek(AIndex : Integer; AValue : TAnalyticsSnapshot);
+Procedure TAnalyticsSummary.Setweek(AIndex : Integer; const AValue : TAnalyticsSnapshot);
begin
If (Fweek=AValue) then exit;
@@ -430,7 +415,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUrl.Setanalytics(AIndex : Integer; AValue : TAnalyticsSummary);
+Procedure TUrl.Setanalytics(AIndex : Integer; const AValue : TAnalyticsSummary);
begin
If (Fanalytics=AValue) then exit;
@@ -497,7 +482,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUrlHistory.Setitems(AIndex : Integer; AValue : TUrlHistoryTypeitemsArray);
+Procedure TUrlHistory.Setitems(AIndex : Integer; const AValue : TUrlHistoryTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -507,7 +492,7 @@ end;
-Procedure TUrlHistory.SetitemsPerPage(AIndex : Integer; AValue : integer);
+Procedure TUrlHistory.SetitemsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FitemsPerPage=AValue) then exit;
@@ -537,7 +522,7 @@ end;
-Procedure TUrlHistory.SettotalItems(AIndex : Integer; AValue : integer);
+Procedure TUrlHistory.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
@@ -659,7 +644,7 @@ end;
Class Function TUrlshortenerAPI.APIRevision : String;
begin
- Result:='20150319';
+ Result:='20150519';
end;
Class Function TUrlshortenerAPI.APIID : String;
@@ -713,7 +698,7 @@ end;
Class Function TUrlshortenerAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TUrlshortenerAPI.APIbasePath : string;
@@ -725,7 +710,7 @@ end;
Class Function TUrlshortenerAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/urlshortener/v1/';
+ Result:='https://www.googleapis.com/urlshortener/v1/';
end;
Class Function TUrlshortenerAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlevision.pp b/packages/googleapi/src/googlevision.pp
new file mode 100644
index 0000000000..bbb67a51e2
--- /dev/null
+++ b/packages/googleapi/src/googlevision.pp
@@ -0,0 +1,2018 @@
+unit googlevision;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TImageSource = Class;
+ TAnnotateImageRequest = Class;
+ TAnnotateImageResponse = Class;
+ TLatLongRect = Class;
+ TStatus = Class;
+ TFaceAnnotation = Class;
+ TVertex = Class;
+ TColorInfo = Class;
+ TBoundingPoly = Class;
+ TLandmark = Class;
+ TImageContext = Class;
+ TBatchAnnotateImagesRequest = Class;
+ TEntityAnnotation = Class;
+ TProperty = Class;
+ TColor = Class;
+ TLocationInfo = Class;
+ TSafeSearchAnnotation = Class;
+ TImage = Class;
+ TDominantColorsAnnotation = Class;
+ TFeature = Class;
+ TBatchAnnotateImagesResponse = Class;
+ TImageProperties = Class;
+ TLatLng = Class;
+ TPosition = Class;
+ TImageSourceArray = Array of TImageSource;
+ TAnnotateImageRequestArray = Array of TAnnotateImageRequest;
+ TAnnotateImageResponseArray = Array of TAnnotateImageResponse;
+ TLatLongRectArray = Array of TLatLongRect;
+ TStatusArray = Array of TStatus;
+ TFaceAnnotationArray = Array of TFaceAnnotation;
+ TVertexArray = Array of TVertex;
+ TColorInfoArray = Array of TColorInfo;
+ TBoundingPolyArray = Array of TBoundingPoly;
+ TLandmarkArray = Array of TLandmark;
+ TImageContextArray = Array of TImageContext;
+ TBatchAnnotateImagesRequestArray = Array of TBatchAnnotateImagesRequest;
+ TEntityAnnotationArray = Array of TEntityAnnotation;
+ TPropertyArray = Array of TProperty;
+ TColorArray = Array of TColor;
+ TLocationInfoArray = Array of TLocationInfo;
+ TSafeSearchAnnotationArray = Array of TSafeSearchAnnotation;
+ TImageArray = Array of TImage;
+ TDominantColorsAnnotationArray = Array of TDominantColorsAnnotation;
+ TFeatureArray = Array of TFeature;
+ TBatchAnnotateImagesResponseArray = Array of TBatchAnnotateImagesResponse;
+ TImagePropertiesArray = Array of TImageProperties;
+ TLatLngArray = Array of TLatLng;
+ TPositionArray = Array of TPosition;
+ //Anonymous types, using auto-generated names
+ TStatusTypedetailsItem = Class;
+ TAnnotateImageRequestTypefeaturesArray = Array of TFeature;
+ TAnnotateImageResponseTypelabelAnnotationsArray = Array of TEntityAnnotation;
+ TAnnotateImageResponseTypelandmarkAnnotationsArray = Array of TEntityAnnotation;
+ TAnnotateImageResponseTypetextAnnotationsArray = Array of TEntityAnnotation;
+ TAnnotateImageResponseTypelogoAnnotationsArray = Array of TEntityAnnotation;
+ TAnnotateImageResponseTypefaceAnnotationsArray = Array of TFaceAnnotation;
+ TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
+ TFaceAnnotationTypelandmarksArray = Array of TLandmark;
+ TBoundingPolyTypeverticesArray = Array of TVertex;
+ TBatchAnnotateImagesRequestTyperequestsArray = Array of TAnnotateImageRequest;
+ TEntityAnnotationTypepropertiesArray = Array of TProperty;
+ TEntityAnnotationTypelocationsArray = Array of TLocationInfo;
+ TDominantColorsAnnotationTypecolorsArray = Array of TColorInfo;
+ TBatchAnnotateImagesResponseTyperesponsesArray = Array of TAnnotateImageResponse;
+
+ { --------------------------------------------------------------------
+ TImageSource
+ --------------------------------------------------------------------}
+
+ TImageSource = Class(TGoogleBaseObject)
+ Private
+ FgcsImageUri : String;
+ Protected
+ //Property setters
+ Procedure SetgcsImageUri(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property gcsImageUri : String Index 0 Read FgcsImageUri Write SetgcsImageUri;
+ end;
+ TImageSourceClass = Class of TImageSource;
+
+ { --------------------------------------------------------------------
+ TAnnotateImageRequest
+ --------------------------------------------------------------------}
+
+ TAnnotateImageRequest = Class(TGoogleBaseObject)
+ Private
+ Fimage : TImage;
+ FimageContext : TImageContext;
+ Ffeatures : TAnnotateImageRequestTypefeaturesArray;
+ Protected
+ //Property setters
+ Procedure Setimage(AIndex : Integer; const AValue : TImage); virtual;
+ Procedure SetimageContext(AIndex : Integer; const AValue : TImageContext); virtual;
+ Procedure Setfeatures(AIndex : Integer; const AValue : TAnnotateImageRequestTypefeaturesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property image : TImage Index 0 Read Fimage Write Setimage;
+ Property imageContext : TImageContext Index 8 Read FimageContext Write SetimageContext;
+ Property features : TAnnotateImageRequestTypefeaturesArray Index 16 Read Ffeatures Write Setfeatures;
+ end;
+ TAnnotateImageRequestClass = Class of TAnnotateImageRequest;
+
+ { --------------------------------------------------------------------
+ TAnnotateImageResponse
+ --------------------------------------------------------------------}
+
+ TAnnotateImageResponse = Class(TGoogleBaseObject)
+ Private
+ FlabelAnnotations : TAnnotateImageResponseTypelabelAnnotationsArray;
+ FlandmarkAnnotations : TAnnotateImageResponseTypelandmarkAnnotationsArray;
+ FsafeSearchAnnotation : TSafeSearchAnnotation;
+ FimagePropertiesAnnotation : TImageProperties;
+ FtextAnnotations : TAnnotateImageResponseTypetextAnnotationsArray;
+ FlogoAnnotations : TAnnotateImageResponseTypelogoAnnotationsArray;
+ FfaceAnnotations : TAnnotateImageResponseTypefaceAnnotationsArray;
+ Ferror : TStatus;
+ Protected
+ //Property setters
+ Procedure SetlabelAnnotations(AIndex : Integer; const AValue : TAnnotateImageResponseTypelabelAnnotationsArray); virtual;
+ Procedure SetlandmarkAnnotations(AIndex : Integer; const AValue : TAnnotateImageResponseTypelandmarkAnnotationsArray); virtual;
+ Procedure SetsafeSearchAnnotation(AIndex : Integer; const AValue : TSafeSearchAnnotation); virtual;
+ Procedure SetimagePropertiesAnnotation(AIndex : Integer; const AValue : TImageProperties); virtual;
+ Procedure SettextAnnotations(AIndex : Integer; const AValue : TAnnotateImageResponseTypetextAnnotationsArray); virtual;
+ Procedure SetlogoAnnotations(AIndex : Integer; const AValue : TAnnotateImageResponseTypelogoAnnotationsArray); virtual;
+ Procedure SetfaceAnnotations(AIndex : Integer; const AValue : TAnnotateImageResponseTypefaceAnnotationsArray); virtual;
+ Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property labelAnnotations : TAnnotateImageResponseTypelabelAnnotationsArray Index 0 Read FlabelAnnotations Write SetlabelAnnotations;
+ Property landmarkAnnotations : TAnnotateImageResponseTypelandmarkAnnotationsArray Index 8 Read FlandmarkAnnotations Write SetlandmarkAnnotations;
+ Property safeSearchAnnotation : TSafeSearchAnnotation Index 16 Read FsafeSearchAnnotation Write SetsafeSearchAnnotation;
+ Property imagePropertiesAnnotation : TImageProperties Index 24 Read FimagePropertiesAnnotation Write SetimagePropertiesAnnotation;
+ Property textAnnotations : TAnnotateImageResponseTypetextAnnotationsArray Index 32 Read FtextAnnotations Write SettextAnnotations;
+ Property logoAnnotations : TAnnotateImageResponseTypelogoAnnotationsArray Index 40 Read FlogoAnnotations Write SetlogoAnnotations;
+ Property faceAnnotations : TAnnotateImageResponseTypefaceAnnotationsArray Index 48 Read FfaceAnnotations Write SetfaceAnnotations;
+ Property error : TStatus Index 56 Read Ferror Write Seterror;
+ end;
+ TAnnotateImageResponseClass = Class of TAnnotateImageResponse;
+
+ { --------------------------------------------------------------------
+ TLatLongRect
+ --------------------------------------------------------------------}
+
+ TLatLongRect = Class(TGoogleBaseObject)
+ Private
+ FmaxLatLng : TLatLng;
+ FminLatLng : TLatLng;
+ Protected
+ //Property setters
+ Procedure SetmaxLatLng(AIndex : Integer; const AValue : TLatLng); virtual;
+ Procedure SetminLatLng(AIndex : Integer; const AValue : TLatLng); virtual;
+ Public
+ Published
+ Property maxLatLng : TLatLng Index 0 Read FmaxLatLng Write SetmaxLatLng;
+ Property minLatLng : TLatLng Index 8 Read FminLatLng Write SetminLatLng;
+ end;
+ TLatLongRectClass = Class of TLatLongRect;
+
+ { --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+ TStatusTypedetailsItem = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Class Function AllowAdditionalProperties : Boolean; override;
+ Published
+ end;
+ TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
+
+ { --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+ TStatus = Class(TGoogleBaseObject)
+ Private
+ Fcode : integer;
+ Fdetails : TStatusTypedetailsArray;
+ Fmessage : String;
+ Protected
+ //Property setters
+ Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
+ Procedure Setmessage(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 code : integer Index 0 Read Fcode Write Setcode;
+ Property details : TStatusTypedetailsArray Index 8 Read Fdetails Write Setdetails;
+ Property message : String Index 16 Read Fmessage Write Setmessage;
+ end;
+ TStatusClass = Class of TStatus;
+
+ { --------------------------------------------------------------------
+ TFaceAnnotation
+ --------------------------------------------------------------------}
+
+ TFaceAnnotation = Class(TGoogleBaseObject)
+ Private
+ FtiltAngle : integer;
+ FunderExposedLikelihood : String;
+ FfdBoundingPoly : TBoundingPoly;
+ FlandmarkingConfidence : integer;
+ FjoyLikelihood : String;
+ FdetectionConfidence : integer;
+ FsurpriseLikelihood : String;
+ FangerLikelihood : String;
+ FheadwearLikelihood : String;
+ FpanAngle : integer;
+ FboundingPoly : TBoundingPoly;
+ Flandmarks : TFaceAnnotationTypelandmarksArray;
+ FblurredLikelihood : String;
+ FrollAngle : integer;
+ FsorrowLikelihood : String;
+ Protected
+ //Property setters
+ Procedure SettiltAngle(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetunderExposedLikelihood(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfdBoundingPoly(AIndex : Integer; const AValue : TBoundingPoly); virtual;
+ Procedure SetlandmarkingConfidence(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetjoyLikelihood(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdetectionConfidence(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetsurpriseLikelihood(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetangerLikelihood(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetheadwearLikelihood(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpanAngle(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetboundingPoly(AIndex : Integer; const AValue : TBoundingPoly); virtual;
+ Procedure Setlandmarks(AIndex : Integer; const AValue : TFaceAnnotationTypelandmarksArray); virtual;
+ Procedure SetblurredLikelihood(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrollAngle(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetsorrowLikelihood(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 tiltAngle : integer Index 0 Read FtiltAngle Write SettiltAngle;
+ Property underExposedLikelihood : String Index 8 Read FunderExposedLikelihood Write SetunderExposedLikelihood;
+ Property fdBoundingPoly : TBoundingPoly Index 16 Read FfdBoundingPoly Write SetfdBoundingPoly;
+ Property landmarkingConfidence : integer Index 24 Read FlandmarkingConfidence Write SetlandmarkingConfidence;
+ Property joyLikelihood : String Index 32 Read FjoyLikelihood Write SetjoyLikelihood;
+ Property detectionConfidence : integer Index 40 Read FdetectionConfidence Write SetdetectionConfidence;
+ Property surpriseLikelihood : String Index 48 Read FsurpriseLikelihood Write SetsurpriseLikelihood;
+ Property angerLikelihood : String Index 56 Read FangerLikelihood Write SetangerLikelihood;
+ Property headwearLikelihood : String Index 64 Read FheadwearLikelihood Write SetheadwearLikelihood;
+ Property panAngle : integer Index 72 Read FpanAngle Write SetpanAngle;
+ Property boundingPoly : TBoundingPoly Index 80 Read FboundingPoly Write SetboundingPoly;
+ Property landmarks : TFaceAnnotationTypelandmarksArray Index 88 Read Flandmarks Write Setlandmarks;
+ Property blurredLikelihood : String Index 96 Read FblurredLikelihood Write SetblurredLikelihood;
+ Property rollAngle : integer Index 104 Read FrollAngle Write SetrollAngle;
+ Property sorrowLikelihood : String Index 112 Read FsorrowLikelihood Write SetsorrowLikelihood;
+ end;
+ TFaceAnnotationClass = Class of TFaceAnnotation;
+
+ { --------------------------------------------------------------------
+ TVertex
+ --------------------------------------------------------------------}
+
+ TVertex = Class(TGoogleBaseObject)
+ Private
+ Fy : integer;
+ Fx : integer;
+ Protected
+ //Property setters
+ Procedure Sety(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setx(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property y : integer Index 0 Read Fy Write Sety;
+ Property x : integer Index 8 Read Fx Write Setx;
+ end;
+ TVertexClass = Class of TVertex;
+
+ { --------------------------------------------------------------------
+ TColorInfo
+ --------------------------------------------------------------------}
+
+ TColorInfo = Class(TGoogleBaseObject)
+ Private
+ FpixelFraction : integer;
+ Fcolor : TColor;
+ Fscore : integer;
+ Protected
+ //Property setters
+ Procedure SetpixelFraction(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setcolor(AIndex : Integer; const AValue : TColor); virtual;
+ Procedure Setscore(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property pixelFraction : integer Index 0 Read FpixelFraction Write SetpixelFraction;
+ Property color : TColor Index 8 Read Fcolor Write Setcolor;
+ Property score : integer Index 16 Read Fscore Write Setscore;
+ end;
+ TColorInfoClass = Class of TColorInfo;
+
+ { --------------------------------------------------------------------
+ TBoundingPoly
+ --------------------------------------------------------------------}
+
+ TBoundingPoly = Class(TGoogleBaseObject)
+ Private
+ Fvertices : TBoundingPolyTypeverticesArray;
+ Protected
+ //Property setters
+ Procedure Setvertices(AIndex : Integer; const AValue : TBoundingPolyTypeverticesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property vertices : TBoundingPolyTypeverticesArray Index 0 Read Fvertices Write Setvertices;
+ end;
+ TBoundingPolyClass = Class of TBoundingPoly;
+
+ { --------------------------------------------------------------------
+ TLandmark
+ --------------------------------------------------------------------}
+
+ TLandmark = Class(TGoogleBaseObject)
+ Private
+ Fposition : TPosition;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setposition(AIndex : Integer; const AValue : TPosition); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property position : TPosition Index 0 Read Fposition Write Setposition;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ end;
+ TLandmarkClass = Class of TLandmark;
+
+ { --------------------------------------------------------------------
+ TImageContext
+ --------------------------------------------------------------------}
+
+ TImageContext = Class(TGoogleBaseObject)
+ Private
+ FlatLongRect : TLatLongRect;
+ FlanguageHints : TStringArray;
+ Protected
+ //Property setters
+ Procedure SetlatLongRect(AIndex : Integer; const AValue : TLatLongRect); virtual;
+ Procedure SetlanguageHints(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 latLongRect : TLatLongRect Index 0 Read FlatLongRect Write SetlatLongRect;
+ Property languageHints : TStringArray Index 8 Read FlanguageHints Write SetlanguageHints;
+ end;
+ TImageContextClass = Class of TImageContext;
+
+ { --------------------------------------------------------------------
+ TBatchAnnotateImagesRequest
+ --------------------------------------------------------------------}
+
+ TBatchAnnotateImagesRequest = Class(TGoogleBaseObject)
+ Private
+ Frequests : TBatchAnnotateImagesRequestTyperequestsArray;
+ Protected
+ //Property setters
+ Procedure Setrequests(AIndex : Integer; const AValue : TBatchAnnotateImagesRequestTyperequestsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property requests : TBatchAnnotateImagesRequestTyperequestsArray Index 0 Read Frequests Write Setrequests;
+ end;
+ TBatchAnnotateImagesRequestClass = Class of TBatchAnnotateImagesRequest;
+
+ { --------------------------------------------------------------------
+ TEntityAnnotation
+ --------------------------------------------------------------------}
+
+ TEntityAnnotation = Class(TGoogleBaseObject)
+ Private
+ Fmid : String;
+ Fdescription : String;
+ Ftopicality : integer;
+ Flocale : String;
+ Fproperties : TEntityAnnotationTypepropertiesArray;
+ Fscore : integer;
+ FboundingPoly : TBoundingPoly;
+ Flocations : TEntityAnnotationTypelocationsArray;
+ Fconfidence : integer;
+ Protected
+ //Property setters
+ Procedure Setmid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
+ Procedure Settopicality(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setlocale(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setproperties(AIndex : Integer; const AValue : TEntityAnnotationTypepropertiesArray); virtual;
+ Procedure Setscore(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetboundingPoly(AIndex : Integer; const AValue : TBoundingPoly); virtual;
+ Procedure Setlocations(AIndex : Integer; const AValue : TEntityAnnotationTypelocationsArray); virtual;
+ Procedure Setconfidence(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 mid : String Index 0 Read Fmid Write Setmid;
+ Property description : String Index 8 Read Fdescription Write Setdescription;
+ Property topicality : integer Index 16 Read Ftopicality Write Settopicality;
+ Property locale : String Index 24 Read Flocale Write Setlocale;
+ Property properties : TEntityAnnotationTypepropertiesArray Index 32 Read Fproperties Write Setproperties;
+ Property score : integer Index 40 Read Fscore Write Setscore;
+ Property boundingPoly : TBoundingPoly Index 48 Read FboundingPoly Write SetboundingPoly;
+ Property locations : TEntityAnnotationTypelocationsArray Index 56 Read Flocations Write Setlocations;
+ Property confidence : integer Index 64 Read Fconfidence Write Setconfidence;
+ end;
+ TEntityAnnotationClass = Class of TEntityAnnotation;
+
+ { --------------------------------------------------------------------
+ TProperty
+ --------------------------------------------------------------------}
+
+ TProperty = Class(TGoogleBaseObject)
+ Private
+ Fvalue : String;
+ Fname : String;
+ Protected
+ //Property setters
+ Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property value : String Index 0 Read Fvalue Write Setvalue;
+ Property name : String Index 8 Read Fname Write Setname;
+ end;
+ TPropertyClass = Class of TProperty;
+
+ { --------------------------------------------------------------------
+ TColor
+ --------------------------------------------------------------------}
+
+ TColor = Class(TGoogleBaseObject)
+ Private
+ Fgreen : integer;
+ Fblue : integer;
+ Fred : integer;
+ Falpha : integer;
+ Protected
+ //Property setters
+ Procedure Setgreen(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setblue(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setred(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setalpha(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property green : integer Index 0 Read Fgreen Write Setgreen;
+ Property blue : integer Index 8 Read Fblue Write Setblue;
+ Property red : integer Index 16 Read Fred Write Setred;
+ Property alpha : integer Index 24 Read Falpha Write Setalpha;
+ end;
+ TColorClass = Class of TColor;
+
+ { --------------------------------------------------------------------
+ TLocationInfo
+ --------------------------------------------------------------------}
+
+ TLocationInfo = Class(TGoogleBaseObject)
+ Private
+ FlatLng : TLatLng;
+ Protected
+ //Property setters
+ Procedure SetlatLng(AIndex : Integer; const AValue : TLatLng); virtual;
+ Public
+ Published
+ Property latLng : TLatLng Index 0 Read FlatLng Write SetlatLng;
+ end;
+ TLocationInfoClass = Class of TLocationInfo;
+
+ { --------------------------------------------------------------------
+ TSafeSearchAnnotation
+ --------------------------------------------------------------------}
+
+ TSafeSearchAnnotation = Class(TGoogleBaseObject)
+ Private
+ Fmedical : String;
+ Fspoof : String;
+ Fviolence : String;
+ Fadult : String;
+ Protected
+ //Property setters
+ Procedure Setmedical(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setspoof(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setviolence(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setadult(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property medical : String Index 0 Read Fmedical Write Setmedical;
+ Property spoof : String Index 8 Read Fspoof Write Setspoof;
+ Property violence : String Index 16 Read Fviolence Write Setviolence;
+ Property adult : String Index 24 Read Fadult Write Setadult;
+ end;
+ TSafeSearchAnnotationClass = Class of TSafeSearchAnnotation;
+
+ { --------------------------------------------------------------------
+ TImage
+ --------------------------------------------------------------------}
+
+ TImage = Class(TGoogleBaseObject)
+ Private
+ Fsource : TImageSource;
+ Fcontent : String;
+ Protected
+ //Property setters
+ Procedure Setsource(AIndex : Integer; const AValue : TImageSource); virtual;
+ Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property source : TImageSource Index 0 Read Fsource Write Setsource;
+ Property content : String Index 8 Read Fcontent Write Setcontent;
+ end;
+ TImageClass = Class of TImage;
+
+ { --------------------------------------------------------------------
+ TDominantColorsAnnotation
+ --------------------------------------------------------------------}
+
+ TDominantColorsAnnotation = Class(TGoogleBaseObject)
+ Private
+ Fcolors : TDominantColorsAnnotationTypecolorsArray;
+ Protected
+ //Property setters
+ Procedure Setcolors(AIndex : Integer; const AValue : TDominantColorsAnnotationTypecolorsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property colors : TDominantColorsAnnotationTypecolorsArray Index 0 Read Fcolors Write Setcolors;
+ end;
+ TDominantColorsAnnotationClass = Class of TDominantColorsAnnotation;
+
+ { --------------------------------------------------------------------
+ TFeature
+ --------------------------------------------------------------------}
+
+ TFeature = Class(TGoogleBaseObject)
+ Private
+ F_type : String;
+ FmaxResults : integer;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmaxResults(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property _type : String Index 0 Read F_type Write Set_type;
+ Property maxResults : integer Index 8 Read FmaxResults Write SetmaxResults;
+ end;
+ TFeatureClass = Class of TFeature;
+
+ { --------------------------------------------------------------------
+ TBatchAnnotateImagesResponse
+ --------------------------------------------------------------------}
+
+ TBatchAnnotateImagesResponse = Class(TGoogleBaseObject)
+ Private
+ Fresponses : TBatchAnnotateImagesResponseTyperesponsesArray;
+ Protected
+ //Property setters
+ Procedure Setresponses(AIndex : Integer; const AValue : TBatchAnnotateImagesResponseTyperesponsesArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property responses : TBatchAnnotateImagesResponseTyperesponsesArray Index 0 Read Fresponses Write Setresponses;
+ end;
+ TBatchAnnotateImagesResponseClass = Class of TBatchAnnotateImagesResponse;
+
+ { --------------------------------------------------------------------
+ TImageProperties
+ --------------------------------------------------------------------}
+
+ TImageProperties = Class(TGoogleBaseObject)
+ Private
+ FdominantColors : TDominantColorsAnnotation;
+ Protected
+ //Property setters
+ Procedure SetdominantColors(AIndex : Integer; const AValue : TDominantColorsAnnotation); virtual;
+ Public
+ Published
+ Property dominantColors : TDominantColorsAnnotation Index 0 Read FdominantColors Write SetdominantColors;
+ end;
+ TImagePropertiesClass = Class of TImageProperties;
+
+ { --------------------------------------------------------------------
+ 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;
+
+ { --------------------------------------------------------------------
+ TPosition
+ --------------------------------------------------------------------}
+
+ TPosition = Class(TGoogleBaseObject)
+ Private
+ Fy : integer;
+ Fx : integer;
+ Fz : integer;
+ Protected
+ //Property setters
+ Procedure Sety(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setx(AIndex : Integer; const AValue : integer); virtual;
+ Procedure Setz(AIndex : Integer; const AValue : integer); virtual;
+ Public
+ Published
+ Property y : integer Index 0 Read Fy Write Sety;
+ Property x : integer Index 8 Read Fx Write Setx;
+ Property z : integer Index 16 Read Fz Write Setz;
+ end;
+ TPositionClass = Class of TPosition;
+
+ { --------------------------------------------------------------------
+ TImagesResource
+ --------------------------------------------------------------------}
+
+ TImagesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Annotate(aBatchAnnotateImagesRequest : TBatchAnnotateImagesRequest) : TBatchAnnotateImagesResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TVisionAPI
+ --------------------------------------------------------------------}
+
+ TVisionAPI = Class(TGoogleAPI)
+ Private
+ FImagesInstance : TImagesResource;
+ Function GetImagesInstance : TImagesResource;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 CreateImagesResource(AOwner : TComponent) : TImagesResource;virtual;overload;
+ Function CreateImagesResource : TImagesResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property ImagesResource : TImagesResource Read GetImagesInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TImageSource
+ --------------------------------------------------------------------}
+
+
+Procedure TImageSource.SetgcsImageUri(AIndex : Integer; const AValue : String);
+
+begin
+ If (FgcsImageUri=AValue) then exit;
+ FgcsImageUri:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TAnnotateImageRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TAnnotateImageRequest.Setimage(AIndex : Integer; const AValue : TImage);
+
+begin
+ If (Fimage=AValue) then exit;
+ Fimage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAnnotateImageRequest.SetimageContext(AIndex : Integer; const AValue : TImageContext);
+
+begin
+ If (FimageContext=AValue) then exit;
+ FimageContext:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAnnotateImageRequest.Setfeatures(AIndex : Integer; const AValue : TAnnotateImageRequestTypefeaturesArray);
+
+begin
+ If (Ffeatures=AValue) then exit;
+ Ffeatures:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAnnotateImageRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'features' : SetLength(Ffeatures,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TAnnotateImageResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TAnnotateImageResponse.SetlabelAnnotations(AIndex : Integer; const AValue : TAnnotateImageResponseTypelabelAnnotationsArray);
+
+begin
+ If (FlabelAnnotations=AValue) then exit;
+ FlabelAnnotations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAnnotateImageResponse.SetlandmarkAnnotations(AIndex : Integer; const AValue : TAnnotateImageResponseTypelandmarkAnnotationsArray);
+
+begin
+ If (FlandmarkAnnotations=AValue) then exit;
+ FlandmarkAnnotations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAnnotateImageResponse.SetsafeSearchAnnotation(AIndex : Integer; const AValue : TSafeSearchAnnotation);
+
+begin
+ If (FsafeSearchAnnotation=AValue) then exit;
+ FsafeSearchAnnotation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAnnotateImageResponse.SetimagePropertiesAnnotation(AIndex : Integer; const AValue : TImageProperties);
+
+begin
+ If (FimagePropertiesAnnotation=AValue) then exit;
+ FimagePropertiesAnnotation:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAnnotateImageResponse.SettextAnnotations(AIndex : Integer; const AValue : TAnnotateImageResponseTypetextAnnotationsArray);
+
+begin
+ If (FtextAnnotations=AValue) then exit;
+ FtextAnnotations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAnnotateImageResponse.SetlogoAnnotations(AIndex : Integer; const AValue : TAnnotateImageResponseTypelogoAnnotationsArray);
+
+begin
+ If (FlogoAnnotations=AValue) then exit;
+ FlogoAnnotations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAnnotateImageResponse.SetfaceAnnotations(AIndex : Integer; const AValue : TAnnotateImageResponseTypefaceAnnotationsArray);
+
+begin
+ If (FfaceAnnotations=AValue) then exit;
+ FfaceAnnotations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TAnnotateImageResponse.Seterror(AIndex : Integer; const AValue : TStatus);
+
+begin
+ If (Ferror=AValue) then exit;
+ Ferror:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TAnnotateImageResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'labelannotations' : SetLength(FlabelAnnotations,ALength);
+ 'landmarkannotations' : SetLength(FlandmarkAnnotations,ALength);
+ 'textannotations' : SetLength(FtextAnnotations,ALength);
+ 'logoannotations' : SetLength(FlogoAnnotations,ALength);
+ 'faceannotations' : SetLength(FfaceAnnotations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLatLongRect
+ --------------------------------------------------------------------}
+
+
+Procedure TLatLongRect.SetmaxLatLng(AIndex : Integer; const AValue : TLatLng);
+
+begin
+ If (FmaxLatLng=AValue) then exit;
+ FmaxLatLng:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLatLongRect.SetminLatLng(AIndex : Integer; const AValue : TLatLng);
+
+begin
+ If (FminLatLng=AValue) then exit;
+ FminLatLng:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TStatusTypedetailsItem
+ --------------------------------------------------------------------}
+
+
+Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
+
+begin
+ Result:=True;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TStatus
+ --------------------------------------------------------------------}
+
+
+Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fcode=AValue) then exit;
+ Fcode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
+
+begin
+ If (Fdetails=AValue) then exit;
+ Fdetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmessage=AValue) then exit;
+ Fmessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'details' : SetLength(Fdetails,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TFaceAnnotation
+ --------------------------------------------------------------------}
+
+
+Procedure TFaceAnnotation.SettiltAngle(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FtiltAngle=AValue) then exit;
+ FtiltAngle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetunderExposedLikelihood(AIndex : Integer; const AValue : String);
+
+begin
+ If (FunderExposedLikelihood=AValue) then exit;
+ FunderExposedLikelihood:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetfdBoundingPoly(AIndex : Integer; const AValue : TBoundingPoly);
+
+begin
+ If (FfdBoundingPoly=AValue) then exit;
+ FfdBoundingPoly:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetlandmarkingConfidence(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FlandmarkingConfidence=AValue) then exit;
+ FlandmarkingConfidence:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetjoyLikelihood(AIndex : Integer; const AValue : String);
+
+begin
+ If (FjoyLikelihood=AValue) then exit;
+ FjoyLikelihood:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetdetectionConfidence(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FdetectionConfidence=AValue) then exit;
+ FdetectionConfidence:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetsurpriseLikelihood(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsurpriseLikelihood=AValue) then exit;
+ FsurpriseLikelihood:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetangerLikelihood(AIndex : Integer; const AValue : String);
+
+begin
+ If (FangerLikelihood=AValue) then exit;
+ FangerLikelihood:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetheadwearLikelihood(AIndex : Integer; const AValue : String);
+
+begin
+ If (FheadwearLikelihood=AValue) then exit;
+ FheadwearLikelihood:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetpanAngle(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FpanAngle=AValue) then exit;
+ FpanAngle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetboundingPoly(AIndex : Integer; const AValue : TBoundingPoly);
+
+begin
+ If (FboundingPoly=AValue) then exit;
+ FboundingPoly:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.Setlandmarks(AIndex : Integer; const AValue : TFaceAnnotationTypelandmarksArray);
+
+begin
+ If (Flandmarks=AValue) then exit;
+ Flandmarks:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetblurredLikelihood(AIndex : Integer; const AValue : String);
+
+begin
+ If (FblurredLikelihood=AValue) then exit;
+ FblurredLikelihood:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetrollAngle(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FrollAngle=AValue) then exit;
+ FrollAngle:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFaceAnnotation.SetsorrowLikelihood(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsorrowLikelihood=AValue) then exit;
+ FsorrowLikelihood:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFaceAnnotation.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'landmarks' : SetLength(Flandmarks,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TVertex
+ --------------------------------------------------------------------}
+
+
+Procedure TVertex.Sety(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fy=AValue) then exit;
+ Fy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVertex.Setx(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fx=AValue) then exit;
+ Fx:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TColorInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TColorInfo.SetpixelFraction(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FpixelFraction=AValue) then exit;
+ FpixelFraction:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TColorInfo.Setcolor(AIndex : Integer; const AValue : TColor);
+
+begin
+ If (Fcolor=AValue) then exit;
+ Fcolor:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TColorInfo.Setscore(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fscore=AValue) then exit;
+ Fscore:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TBoundingPoly
+ --------------------------------------------------------------------}
+
+
+Procedure TBoundingPoly.Setvertices(AIndex : Integer; const AValue : TBoundingPolyTypeverticesArray);
+
+begin
+ If (Fvertices=AValue) then exit;
+ Fvertices:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBoundingPoly.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'vertices' : SetLength(Fvertices,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLandmark
+ --------------------------------------------------------------------}
+
+
+Procedure TLandmark.Setposition(AIndex : Integer; const AValue : TPosition);
+
+begin
+ If (Fposition=AValue) then exit;
+ Fposition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLandmark.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TLandmark.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TImageContext
+ --------------------------------------------------------------------}
+
+
+Procedure TImageContext.SetlatLongRect(AIndex : Integer; const AValue : TLatLongRect);
+
+begin
+ If (FlatLongRect=AValue) then exit;
+ FlatLongRect:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TImageContext.SetlanguageHints(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (FlanguageHints=AValue) then exit;
+ FlanguageHints:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TImageContext.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'languagehints' : SetLength(FlanguageHints,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TBatchAnnotateImagesRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TBatchAnnotateImagesRequest.Setrequests(AIndex : Integer; const AValue : TBatchAnnotateImagesRequestTyperequestsArray);
+
+begin
+ If (Frequests=AValue) then exit;
+ Frequests:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchAnnotateImagesRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'requests' : SetLength(Frequests,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEntityAnnotation
+ --------------------------------------------------------------------}
+
+
+Procedure TEntityAnnotation.Setmid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmid=AValue) then exit;
+ Fmid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEntityAnnotation.Setdescription(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdescription=AValue) then exit;
+ Fdescription:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEntityAnnotation.Settopicality(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Ftopicality=AValue) then exit;
+ Ftopicality:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEntityAnnotation.Setlocale(AIndex : Integer; const AValue : String);
+
+begin
+ If (Flocale=AValue) then exit;
+ Flocale:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEntityAnnotation.Setproperties(AIndex : Integer; const AValue : TEntityAnnotationTypepropertiesArray);
+
+begin
+ If (Fproperties=AValue) then exit;
+ Fproperties:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEntityAnnotation.Setscore(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fscore=AValue) then exit;
+ Fscore:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEntityAnnotation.SetboundingPoly(AIndex : Integer; const AValue : TBoundingPoly);
+
+begin
+ If (FboundingPoly=AValue) then exit;
+ FboundingPoly:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEntityAnnotation.Setlocations(AIndex : Integer; const AValue : TEntityAnnotationTypelocationsArray);
+
+begin
+ If (Flocations=AValue) then exit;
+ Flocations:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TEntityAnnotation.Setconfidence(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fconfidence=AValue) then exit;
+ Fconfidence:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TEntityAnnotation.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'properties' : SetLength(Fproperties,ALength);
+ 'locations' : SetLength(Flocations,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TProperty
+ --------------------------------------------------------------------}
+
+
+Procedure TProperty.Setvalue(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fvalue=AValue) then exit;
+ Fvalue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TProperty.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TColor
+ --------------------------------------------------------------------}
+
+
+Procedure TColor.Setgreen(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fgreen=AValue) then exit;
+ Fgreen:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TColor.Setblue(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fblue=AValue) then exit;
+ Fblue:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TColor.Setred(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fred=AValue) then exit;
+ Fred:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TColor.Setalpha(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Falpha=AValue) then exit;
+ Falpha:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLocationInfo
+ --------------------------------------------------------------------}
+
+
+Procedure TLocationInfo.SetlatLng(AIndex : Integer; const AValue : TLatLng);
+
+begin
+ If (FlatLng=AValue) then exit;
+ FlatLng:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSafeSearchAnnotation
+ --------------------------------------------------------------------}
+
+
+Procedure TSafeSearchAnnotation.Setmedical(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fmedical=AValue) then exit;
+ Fmedical:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSafeSearchAnnotation.Setspoof(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fspoof=AValue) then exit;
+ Fspoof:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSafeSearchAnnotation.Setviolence(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fviolence=AValue) then exit;
+ Fviolence:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSafeSearchAnnotation.Setadult(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fadult=AValue) then exit;
+ Fadult:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TImage
+ --------------------------------------------------------------------}
+
+
+Procedure TImage.Setsource(AIndex : Integer; const AValue : TImageSource);
+
+begin
+ If (Fsource=AValue) then exit;
+ Fsource:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TImage.Setcontent(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcontent=AValue) then exit;
+ Fcontent:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TDominantColorsAnnotation
+ --------------------------------------------------------------------}
+
+
+Procedure TDominantColorsAnnotation.Setcolors(AIndex : Integer; const AValue : TDominantColorsAnnotationTypecolorsArray);
+
+begin
+ If (Fcolors=AValue) then exit;
+ Fcolors:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TDominantColorsAnnotation.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'colors' : SetLength(Fcolors,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TFeature
+ --------------------------------------------------------------------}
+
+
+Procedure TFeature.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFeature.SetmaxResults(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FmaxResults=AValue) then exit;
+ FmaxResults:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TFeature.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TBatchAnnotateImagesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TBatchAnnotateImagesResponse.Setresponses(AIndex : Integer; const AValue : TBatchAnnotateImagesResponseTyperesponsesArray);
+
+begin
+ If (Fresponses=AValue) then exit;
+ Fresponses:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TBatchAnnotateImagesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'responses' : SetLength(Fresponses,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TImageProperties
+ --------------------------------------------------------------------}
+
+
+Procedure TImageProperties.SetdominantColors(AIndex : Integer; const AValue : TDominantColorsAnnotation);
+
+begin
+ If (FdominantColors=AValue) then exit;
+ FdominantColors:=AValue;
+ MarkPropertyChanged(AIndex);
+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;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TPosition
+ --------------------------------------------------------------------}
+
+
+Procedure TPosition.Sety(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fy=AValue) then exit;
+ Fy:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPosition.Setx(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fx=AValue) then exit;
+ Fx:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TPosition.Setz(AIndex : Integer; const AValue : integer);
+
+begin
+ If (Fz=AValue) then exit;
+ Fz:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TImagesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TImagesResource.ResourceName : String;
+
+begin
+ Result:='images';
+end;
+
+Class Function TImagesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TvisionAPI;
+end;
+
+Function TImagesResource.Annotate(aBatchAnnotateImagesRequest : TBatchAnnotateImagesRequest) : TBatchAnnotateImagesResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/images:annotate';
+ _Methodid = 'vision.images.annotate';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,'',aBatchAnnotateImagesRequest,TBatchAnnotateImagesResponse) as TBatchAnnotateImagesResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TVisionAPI
+ --------------------------------------------------------------------}
+
+Class Function TVisionAPI.APIName : String;
+
+begin
+ Result:='vision';
+end;
+
+Class Function TVisionAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TVisionAPI.APIRevision : String;
+
+begin
+ Result:='20160519';
+end;
+
+Class Function TVisionAPI.APIID : String;
+
+begin
+ Result:='vision:v1';
+end;
+
+Class Function TVisionAPI.APITitle : String;
+
+begin
+ Result:='Google Cloud Vision API';
+end;
+
+Class Function TVisionAPI.APIDescription : String;
+
+begin
+ Result:='Integrates Google Vision features, including image labeling, face, logo, and landmark detection, optical character recognition (OCR), and detection of explicit content, into applications.';
+end;
+
+Class Function TVisionAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TVisionAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TVisionAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TVisionAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TVisionAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://cloud.google.com/vision/';
+end;
+
+Class Function TVisionAPI.APIrootUrl : string;
+
+begin
+ Result:='https://vision.googleapis.com/';
+end;
+
+Class Function TVisionAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TVisionAPI.APIbaseURL : String;
+
+begin
+ Result:='https://vision.googleapis.com/';
+end;
+
+Class Function TVisionAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TVisionAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TVisionAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TVisionAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,1);
+ Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
+ Result[0].Description:='View and manage your data across Google Cloud Platform services';
+
+end;
+
+Class Function TVisionAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TVisionAPI.RegisterAPIResources;
+
+begin
+ TImageSource.RegisterObject;
+ TAnnotateImageRequest.RegisterObject;
+ TAnnotateImageResponse.RegisterObject;
+ TLatLongRect.RegisterObject;
+ TStatusTypedetailsItem.RegisterObject;
+ TStatus.RegisterObject;
+ TFaceAnnotation.RegisterObject;
+ TVertex.RegisterObject;
+ TColorInfo.RegisterObject;
+ TBoundingPoly.RegisterObject;
+ TLandmark.RegisterObject;
+ TImageContext.RegisterObject;
+ TBatchAnnotateImagesRequest.RegisterObject;
+ TEntityAnnotation.RegisterObject;
+ TProperty.RegisterObject;
+ TColor.RegisterObject;
+ TLocationInfo.RegisterObject;
+ TSafeSearchAnnotation.RegisterObject;
+ TImage.RegisterObject;
+ TDominantColorsAnnotation.RegisterObject;
+ TFeature.RegisterObject;
+ TBatchAnnotateImagesResponse.RegisterObject;
+ TImageProperties.RegisterObject;
+ TLatLng.RegisterObject;
+ TPosition.RegisterObject;
+end;
+
+
+Function TVisionAPI.GetImagesInstance : TImagesResource;
+
+begin
+ if (FImagesInstance=Nil) then
+ FImagesInstance:=CreateImagesResource;
+ Result:=FImagesInstance;
+end;
+
+Function TVisionAPI.CreateImagesResource : TImagesResource;
+
+begin
+ Result:=CreateImagesResource(Self);
+end;
+
+
+Function TVisionAPI.CreateImagesResource(AOwner : TComponent) : TImagesResource;
+
+begin
+ Result:=TImagesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TVisionAPI.RegisterAPI;
+end.
diff --git a/packages/googleapi/src/googlewebfonts.pp b/packages/googleapi/src/googlewebfonts.pp
index 3ba5680d7e..5dbf26bb94 100644
--- a/packages/googleapi/src/googlewebfonts.pp
+++ b/packages/googleapi/src/googlewebfonts.pp
@@ -1,19 +1,4 @@
unit googlewebfonts;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:09
{$MODE objfpc}
{$H+}
@@ -64,11 +49,11 @@ type
//Property setters
Procedure Setcategory(AIndex : Integer; const AValue : String); virtual;
Procedure Setfamily(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfiles(AIndex : Integer; AValue : TWebfontTypefiles); virtual;
+ Procedure Setfiles(AIndex : Integer; const AValue : TWebfontTypefiles); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastModified(AIndex : Integer; AValue : TDate); virtual;
- Procedure Setsubsets(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setvariants(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetlastModified(AIndex : Integer; const AValue : TDate); virtual;
+ Procedure Setsubsets(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setvariants(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -97,7 +82,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TWebfontListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TWebfontListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -208,7 +193,7 @@ end;
-Procedure TWebfont.Setfiles(AIndex : Integer; AValue : TWebfontTypefiles);
+Procedure TWebfont.Setfiles(AIndex : Integer; const AValue : TWebfontTypefiles);
begin
If (Ffiles=AValue) then exit;
@@ -228,7 +213,7 @@ end;
-Procedure TWebfont.SetlastModified(AIndex : Integer; AValue : TDate);
+Procedure TWebfont.SetlastModified(AIndex : Integer; const AValue : TDate);
begin
If (FlastModified=AValue) then exit;
@@ -238,7 +223,7 @@ end;
-Procedure TWebfont.Setsubsets(AIndex : Integer; AValue : TStringArray);
+Procedure TWebfont.Setsubsets(AIndex : Integer; const AValue : TStringArray);
begin
If (Fsubsets=AValue) then exit;
@@ -248,7 +233,7 @@ end;
-Procedure TWebfont.Setvariants(AIndex : Integer; AValue : TStringArray);
+Procedure TWebfont.Setvariants(AIndex : Integer; const AValue : TStringArray);
begin
If (Fvariants=AValue) then exit;
@@ -289,7 +274,7 @@ end;
--------------------------------------------------------------------}
-Procedure TWebfontList.Setitems(AIndex : Integer; AValue : TWebfontListTypeitemsArray);
+Procedure TWebfontList.Setitems(AIndex : Integer; const AValue : TWebfontListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -385,7 +370,7 @@ end;
Class Function TWebfontsAPI.APIRevision : String;
begin
- Result:='20140210';
+ Result:='20160302';
end;
Class Function TWebfontsAPI.APIID : String;
@@ -403,7 +388,7 @@ end;
Class Function TWebfontsAPI.APIDescription : String;
begin
- Result:='The Google Fonts Developer API.';
+ Result:='Accesses the metadata for all families served by Google Fonts, providing a list of families currently available (including available styles and a list of supported script subsets).';
end;
Class Function TWebfontsAPI.APIOwnerDomain : String;
@@ -421,13 +406,13 @@ end;
Class Function TWebfontsAPI.APIIcon16 : String;
begin
- Result:='http://www.google.com/images/icons/feature/font_api-16.png';
+ Result:='https://www.google.com/images/icons/feature/font_api-16.png';
end;
Class Function TWebfontsAPI.APIIcon32 : String;
begin
- Result:='http://www.google.com/images/icons/feature/font_api-32.gif';
+ Result:='https://www.google.com/images/icons/feature/font_api-32.gif';
end;
Class Function TWebfontsAPI.APIdocumentationLink : String;
@@ -439,7 +424,7 @@ end;
Class Function TWebfontsAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TWebfontsAPI.APIbasePath : string;
@@ -451,7 +436,7 @@ end;
Class Function TWebfontsAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/webfonts/v1/';
+ Result:='https://www.googleapis.com/webfonts/v1/';
end;
Class Function TWebfontsAPI.APIProtocol : string;
diff --git a/packages/googleapi/src/googlewebmasters.pp b/packages/googleapi/src/googlewebmasters.pp
index cc5a198bbd..31ac6ab151 100644
--- a/packages/googleapi/src/googlewebmasters.pp
+++ b/packages/googleapi/src/googlewebmasters.pp
@@ -1,19 +1,4 @@
unit googlewebmasters;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:09
{$MODE objfpc}
{$H+}
@@ -24,6 +9,11 @@ uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
+ TApiDataRow = Class;
+ TApiDimensionFilter = Class;
+ TApiDimensionFilterGroup = Class;
+ TSearchAnalyticsQueryRequest = Class;
+ TSearchAnalyticsQueryResponse = Class;
TSitemapsListResponse = Class;
TSitesListResponse = Class;
TUrlCrawlErrorCount = Class;
@@ -35,6 +25,11 @@ type
TWmxSite = Class;
TWmxSitemap = Class;
TWmxSitemapContent = Class;
+ TApiDataRowArray = Array of TApiDataRow;
+ TApiDimensionFilterArray = Array of TApiDimensionFilter;
+ TApiDimensionFilterGroupArray = Array of TApiDimensionFilterGroup;
+ TSearchAnalyticsQueryRequestArray = Array of TSearchAnalyticsQueryRequest;
+ TSearchAnalyticsQueryResponseArray = Array of TSearchAnalyticsQueryResponse;
TSitemapsListResponseArray = Array of TSitemapsListResponse;
TSitesListResponseArray = Array of TSitesListResponse;
TUrlCrawlErrorCountArray = Array of TUrlCrawlErrorCount;
@@ -47,6 +42,9 @@ type
TWmxSitemapArray = Array of TWmxSitemap;
TWmxSitemapContentArray = Array of TWmxSitemapContent;
//Anonymous types, using auto-generated names
+ TApiDimensionFilterGroupTypefiltersArray = Array of TApiDimensionFilter;
+ TSearchAnalyticsQueryRequestTypedimensionFilterGroupsArray = Array of TApiDimensionFilterGroup;
+ TSearchAnalyticsQueryResponseTyperowsArray = Array of TApiDataRow;
TSitemapsListResponseTypesitemapArray = Array of TWmxSitemap;
TSitesListResponseTypesiteEntryArray = Array of TWmxSite;
TUrlCrawlErrorCountsPerTypeTypeentriesArray = Array of TUrlCrawlErrorCount;
@@ -55,6 +53,148 @@ type
TWmxSitemapTypecontentsArray = Array of TWmxSitemapContent;
{ --------------------------------------------------------------------
+ TApiDataRow
+ --------------------------------------------------------------------}
+
+ TApiDataRow = Class(TGoogleBaseObject)
+ Private
+ Fclicks : double;
+ Fctr : double;
+ Fimpressions : double;
+ Fkeys : TStringArray;
+ Fposition : double;
+ Protected
+ //Property setters
+ Procedure Setclicks(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setctr(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setimpressions(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setkeys(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setposition(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 clicks : double Index 0 Read Fclicks Write Setclicks;
+ Property ctr : double Index 8 Read Fctr Write Setctr;
+ Property impressions : double Index 16 Read Fimpressions Write Setimpressions;
+ Property keys : TStringArray Index 24 Read Fkeys Write Setkeys;
+ Property position : double Index 32 Read Fposition Write Setposition;
+ end;
+ TApiDataRowClass = Class of TApiDataRow;
+
+ { --------------------------------------------------------------------
+ TApiDimensionFilter
+ --------------------------------------------------------------------}
+
+ TApiDimensionFilter = Class(TGoogleBaseObject)
+ Private
+ Fdimension : String;
+ Fexpression : String;
+ F_operator : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setdimension(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setexpression(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_operator(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property dimension : String Index 0 Read Fdimension Write Setdimension;
+ Property expression : String Index 8 Read Fexpression Write Setexpression;
+ Property _operator : String Index 16 Read F_operator Write Set_operator;
+ end;
+ TApiDimensionFilterClass = Class of TApiDimensionFilter;
+
+ { --------------------------------------------------------------------
+ TApiDimensionFilterGroup
+ --------------------------------------------------------------------}
+
+ TApiDimensionFilterGroup = Class(TGoogleBaseObject)
+ Private
+ Ffilters : TApiDimensionFilterGroupTypefiltersArray;
+ FgroupType : String;
+ Protected
+ //Property setters
+ Procedure Setfilters(AIndex : Integer; const AValue : TApiDimensionFilterGroupTypefiltersArray); virtual;
+ Procedure SetgroupType(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 filters : TApiDimensionFilterGroupTypefiltersArray Index 0 Read Ffilters Write Setfilters;
+ Property groupType : String Index 8 Read FgroupType Write SetgroupType;
+ end;
+ TApiDimensionFilterGroupClass = Class of TApiDimensionFilterGroup;
+
+ { --------------------------------------------------------------------
+ TSearchAnalyticsQueryRequest
+ --------------------------------------------------------------------}
+
+ TSearchAnalyticsQueryRequest = Class(TGoogleBaseObject)
+ Private
+ FaggregationType : String;
+ FdimensionFilterGroups : TSearchAnalyticsQueryRequestTypedimensionFilterGroupsArray;
+ Fdimensions : TStringArray;
+ FendDate : String;
+ FrowLimit : integer;
+ FsearchType : String;
+ FstartDate : String;
+ FstartRow : integer;
+ Protected
+ //Property setters
+ Procedure SetaggregationType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdimensionFilterGroups(AIndex : Integer; const AValue : TSearchAnalyticsQueryRequestTypedimensionFilterGroupsArray); virtual;
+ Procedure Setdimensions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrowLimit(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetsearchType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartRow(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 aggregationType : String Index 0 Read FaggregationType Write SetaggregationType;
+ Property dimensionFilterGroups : TSearchAnalyticsQueryRequestTypedimensionFilterGroupsArray Index 8 Read FdimensionFilterGroups Write SetdimensionFilterGroups;
+ Property dimensions : TStringArray Index 16 Read Fdimensions Write Setdimensions;
+ Property endDate : String Index 24 Read FendDate Write SetendDate;
+ Property rowLimit : integer Index 32 Read FrowLimit Write SetrowLimit;
+ Property searchType : String Index 40 Read FsearchType Write SetsearchType;
+ Property startDate : String Index 48 Read FstartDate Write SetstartDate;
+ Property startRow : integer Index 56 Read FstartRow Write SetstartRow;
+ end;
+ TSearchAnalyticsQueryRequestClass = Class of TSearchAnalyticsQueryRequest;
+
+ { --------------------------------------------------------------------
+ TSearchAnalyticsQueryResponse
+ --------------------------------------------------------------------}
+
+ TSearchAnalyticsQueryResponse = Class(TGoogleBaseObject)
+ Private
+ FresponseAggregationType : String;
+ Frows : TSearchAnalyticsQueryResponseTyperowsArray;
+ Protected
+ //Property setters
+ Procedure SetresponseAggregationType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TSearchAnalyticsQueryResponseTyperowsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property responseAggregationType : String Index 0 Read FresponseAggregationType Write SetresponseAggregationType;
+ Property rows : TSearchAnalyticsQueryResponseTyperowsArray Index 8 Read Frows Write Setrows;
+ end;
+ TSearchAnalyticsQueryResponseClass = Class of TSearchAnalyticsQueryResponse;
+
+ { --------------------------------------------------------------------
TSitemapsListResponse
--------------------------------------------------------------------}
@@ -63,7 +203,7 @@ type
Fsitemap : TSitemapsListResponseTypesitemapArray;
Protected
//Property setters
- Procedure Setsitemap(AIndex : Integer; AValue : TSitemapsListResponseTypesitemapArray); virtual;
+ Procedure Setsitemap(AIndex : Integer; const AValue : TSitemapsListResponseTypesitemapArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -83,7 +223,7 @@ type
FsiteEntry : TSitesListResponseTypesiteEntryArray;
Protected
//Property setters
- Procedure SetsiteEntry(AIndex : Integer; AValue : TSitesListResponseTypesiteEntryArray); virtual;
+ Procedure SetsiteEntry(AIndex : Integer; const AValue : TSitesListResponseTypesiteEntryArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -105,7 +245,7 @@ type
Protected
//Property setters
Procedure Setcount(AIndex : Integer; const AValue : String); virtual;
- Procedure Settimestamp(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Settimestamp(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property count : String Index 0 Read Fcount Write Setcount;
@@ -125,7 +265,7 @@ type
Protected
//Property setters
Procedure Setcategory(AIndex : Integer; const AValue : String); virtual;
- Procedure Setentries(AIndex : Integer; AValue : TUrlCrawlErrorCountsPerTypeTypeentriesArray); virtual;
+ Procedure Setentries(AIndex : Integer; const AValue : TUrlCrawlErrorCountsPerTypeTypeentriesArray); virtual;
Procedure Setplatform(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -148,7 +288,7 @@ type
FcountPerTypes : TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray;
Protected
//Property setters
- Procedure SetcountPerTypes(AIndex : Integer; AValue : TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray); virtual;
+ Procedure SetcountPerTypes(AIndex : Integer; const AValue : TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -172,11 +312,11 @@ type
FurlDetails : TUrlSampleDetails;
Protected
//Property setters
- Procedure Setfirst_detected(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setlast_crawled(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure Setfirst_detected(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setlast_crawled(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetpageUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetresponseCode(AIndex : Integer; AValue : integer); virtual;
- Procedure SeturlDetails(AIndex : Integer; AValue : TUrlSampleDetails); virtual;
+ Procedure SetresponseCode(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SeturlDetails(AIndex : Integer; const AValue : TUrlSampleDetails); virtual;
Public
Published
Property first_detected : TDatetime Index 0 Read Ffirst_detected Write Setfirst_detected;
@@ -196,7 +336,7 @@ type
FurlCrawlErrorSample : TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray;
Protected
//Property setters
- Procedure SeturlCrawlErrorSample(AIndex : Integer; AValue : TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray); virtual;
+ Procedure SeturlCrawlErrorSample(AIndex : Integer; const AValue : TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -217,8 +357,8 @@ type
FlinkedFromUrls : TStringArray;
Protected
//Property setters
- Procedure SetcontainingSitemaps(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetlinkedFromUrls(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetcontainingSitemaps(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetlinkedFromUrls(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -267,12 +407,12 @@ type
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
- Procedure Setcontents(AIndex : Integer; AValue : TWmxSitemapTypecontentsArray); virtual;
+ Procedure Setcontents(AIndex : Integer; const AValue : TWmxSitemapTypecontentsArray); virtual;
Procedure Seterrors(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisPending(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisSitemapsIndex(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetlastDownloaded(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetlastSubmitted(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetisPending(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisSitemapsIndex(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetlastDownloaded(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetlastSubmitted(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setwarnings(AIndex : Integer; const AValue : String); virtual;
@@ -318,6 +458,18 @@ type
TWmxSitemapContentClass = Class of TWmxSitemapContent;
{ --------------------------------------------------------------------
+ TSearchanalyticsResource
+ --------------------------------------------------------------------}
+
+ TSearchanalyticsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Query(siteUrl: string; aSearchAnalyticsQueryRequest : TSearchAnalyticsQueryRequest) : TSearchAnalyticsQueryResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
TSitemapsResource
--------------------------------------------------------------------}
@@ -424,10 +576,12 @@ type
TWebmastersAPI = Class(TGoogleAPI)
Private
+ FSearchanalyticsInstance : TSearchanalyticsResource;
FSitemapsInstance : TSitemapsResource;
FSitesInstance : TSitesResource;
FUrlcrawlerrorscountsInstance : TUrlcrawlerrorscountsResource;
FUrlcrawlerrorssamplesInstance : TUrlcrawlerrorssamplesResource;
+ Function GetSearchanalyticsInstance : TSearchanalyticsResource;virtual;
Function GetSitemapsInstance : TSitemapsResource;virtual;
Function GetSitesInstance : TSitesResource;virtual;
Function GetUrlcrawlerrorscountsInstance : TUrlcrawlerrorscountsResource;virtual;
@@ -455,6 +609,8 @@ type
Class Function APINeedsAuth : Boolean;override;
Class Procedure RegisterAPIResources; override;
//Add create function for resources
+ Function CreateSearchanalyticsResource(AOwner : TComponent) : TSearchanalyticsResource;virtual;overload;
+ Function CreateSearchanalyticsResource : TSearchanalyticsResource;virtual;overload;
Function CreateSitemapsResource(AOwner : TComponent) : TSitemapsResource;virtual;overload;
Function CreateSitemapsResource : TSitemapsResource;virtual;overload;
Function CreateSitesResource(AOwner : TComponent) : TSitesResource;virtual;overload;
@@ -464,6 +620,7 @@ type
Function CreateUrlcrawlerrorssamplesResource(AOwner : TComponent) : TUrlcrawlerrorssamplesResource;virtual;overload;
Function CreateUrlcrawlerrorssamplesResource : TUrlcrawlerrorssamplesResource;virtual;overload;
//Add default on-demand instances for resources
+ Property SearchanalyticsResource : TSearchanalyticsResource Read GetSearchanalyticsInstance;
Property SitemapsResource : TSitemapsResource Read GetSitemapsInstance;
Property SitesResource : TSitesResource Read GetSitesInstance;
Property UrlcrawlerrorscountsResource : TUrlcrawlerrorscountsResource Read GetUrlcrawlerrorscountsInstance;
@@ -474,11 +631,310 @@ implementation
{ --------------------------------------------------------------------
+ TApiDataRow
+ --------------------------------------------------------------------}
+
+
+Procedure TApiDataRow.Setclicks(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fclicks=AValue) then exit;
+ Fclicks:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApiDataRow.Setctr(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fctr=AValue) then exit;
+ Fctr:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApiDataRow.Setimpressions(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fimpressions=AValue) then exit;
+ Fimpressions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApiDataRow.Setkeys(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fkeys=AValue) then exit;
+ Fkeys:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApiDataRow.Setposition(AIndex : Integer; const AValue : double);
+
+begin
+ If (Fposition=AValue) then exit;
+ Fposition:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TApiDataRow.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'keys' : SetLength(Fkeys,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TApiDimensionFilter
+ --------------------------------------------------------------------}
+
+
+Procedure TApiDimensionFilter.Setdimension(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fdimension=AValue) then exit;
+ Fdimension:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApiDimensionFilter.Setexpression(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fexpression=AValue) then exit;
+ Fexpression:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApiDimensionFilter.Set_operator(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_operator=AValue) then exit;
+ F_operator:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TApiDimensionFilter.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_operator' : Result:='operator';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TApiDimensionFilterGroup
+ --------------------------------------------------------------------}
+
+
+Procedure TApiDimensionFilterGroup.Setfilters(AIndex : Integer; const AValue : TApiDimensionFilterGroupTypefiltersArray);
+
+begin
+ If (Ffilters=AValue) then exit;
+ Ffilters:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TApiDimensionFilterGroup.SetgroupType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FgroupType=AValue) then exit;
+ FgroupType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TApiDimensionFilterGroup.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'filters' : SetLength(Ffilters,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSearchAnalyticsQueryRequest
+ --------------------------------------------------------------------}
+
+
+Procedure TSearchAnalyticsQueryRequest.SetaggregationType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FaggregationType=AValue) then exit;
+ FaggregationType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSearchAnalyticsQueryRequest.SetdimensionFilterGroups(AIndex : Integer; const AValue : TSearchAnalyticsQueryRequestTypedimensionFilterGroupsArray);
+
+begin
+ If (FdimensionFilterGroups=AValue) then exit;
+ FdimensionFilterGroups:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSearchAnalyticsQueryRequest.Setdimensions(AIndex : Integer; const AValue : TStringArray);
+
+begin
+ If (Fdimensions=AValue) then exit;
+ Fdimensions:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSearchAnalyticsQueryRequest.SetendDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendDate=AValue) then exit;
+ FendDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSearchAnalyticsQueryRequest.SetrowLimit(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FrowLimit=AValue) then exit;
+ FrowLimit:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSearchAnalyticsQueryRequest.SetsearchType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FsearchType=AValue) then exit;
+ FsearchType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSearchAnalyticsQueryRequest.SetstartDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartDate=AValue) then exit;
+ FstartDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSearchAnalyticsQueryRequest.SetstartRow(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FstartRow=AValue) then exit;
+ FstartRow:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSearchAnalyticsQueryRequest.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'dimensionfiltergroups' : SetLength(FdimensionFilterGroups,ALength);
+ 'dimensions' : SetLength(Fdimensions,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSearchAnalyticsQueryResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSearchAnalyticsQueryResponse.SetresponseAggregationType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FresponseAggregationType=AValue) then exit;
+ FresponseAggregationType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSearchAnalyticsQueryResponse.Setrows(AIndex : Integer; const AValue : TSearchAnalyticsQueryResponseTyperowsArray);
+
+begin
+ If (Frows=AValue) then exit;
+ Frows:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSearchAnalyticsQueryResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'rows' : SetLength(Frows,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
TSitemapsListResponse
--------------------------------------------------------------------}
-Procedure TSitemapsListResponse.Setsitemap(AIndex : Integer; AValue : TSitemapsListResponseTypesitemapArray);
+Procedure TSitemapsListResponse.Setsitemap(AIndex : Integer; const AValue : TSitemapsListResponseTypesitemapArray);
begin
If (Fsitemap=AValue) then exit;
@@ -508,7 +964,7 @@ end;
--------------------------------------------------------------------}
-Procedure TSitesListResponse.SetsiteEntry(AIndex : Integer; AValue : TSitesListResponseTypesiteEntryArray);
+Procedure TSitesListResponse.SetsiteEntry(AIndex : Integer; const AValue : TSitesListResponseTypesiteEntryArray);
begin
If (FsiteEntry=AValue) then exit;
@@ -548,7 +1004,7 @@ end;
-Procedure TUrlCrawlErrorCount.Settimestamp(AIndex : Integer; AValue : TDatetime);
+Procedure TUrlCrawlErrorCount.Settimestamp(AIndex : Integer; const AValue : TDatetime);
begin
If (Ftimestamp=AValue) then exit;
@@ -575,7 +1031,7 @@ end;
-Procedure TUrlCrawlErrorCountsPerType.Setentries(AIndex : Integer; AValue : TUrlCrawlErrorCountsPerTypeTypeentriesArray);
+Procedure TUrlCrawlErrorCountsPerType.Setentries(AIndex : Integer; const AValue : TUrlCrawlErrorCountsPerTypeTypeentriesArray);
begin
If (Fentries=AValue) then exit;
@@ -615,7 +1071,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUrlCrawlErrorsCountsQueryResponse.SetcountPerTypes(AIndex : Integer; AValue : TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray);
+Procedure TUrlCrawlErrorsCountsQueryResponse.SetcountPerTypes(AIndex : Integer; const AValue : TUrlCrawlErrorsCountsQueryResponseTypecountPerTypesArray);
begin
If (FcountPerTypes=AValue) then exit;
@@ -645,7 +1101,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUrlCrawlErrorsSample.Setfirst_detected(AIndex : Integer; AValue : TDatetime);
+Procedure TUrlCrawlErrorsSample.Setfirst_detected(AIndex : Integer; const AValue : TDatetime);
begin
If (Ffirst_detected=AValue) then exit;
@@ -655,7 +1111,7 @@ end;
-Procedure TUrlCrawlErrorsSample.Setlast_crawled(AIndex : Integer; AValue : TDatetime);
+Procedure TUrlCrawlErrorsSample.Setlast_crawled(AIndex : Integer; const AValue : TDatetime);
begin
If (Flast_crawled=AValue) then exit;
@@ -675,7 +1131,7 @@ end;
-Procedure TUrlCrawlErrorsSample.SetresponseCode(AIndex : Integer; AValue : integer);
+Procedure TUrlCrawlErrorsSample.SetresponseCode(AIndex : Integer; const AValue : integer);
begin
If (FresponseCode=AValue) then exit;
@@ -685,7 +1141,7 @@ end;
-Procedure TUrlCrawlErrorsSample.SeturlDetails(AIndex : Integer; AValue : TUrlSampleDetails);
+Procedure TUrlCrawlErrorsSample.SeturlDetails(AIndex : Integer; const AValue : TUrlSampleDetails);
begin
If (FurlDetails=AValue) then exit;
@@ -702,7 +1158,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUrlCrawlErrorsSamplesListResponse.SeturlCrawlErrorSample(AIndex : Integer; AValue : TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray);
+Procedure TUrlCrawlErrorsSamplesListResponse.SeturlCrawlErrorSample(AIndex : Integer; const AValue : TUrlCrawlErrorsSamplesListResponseTypeurlCrawlErrorSampleArray);
begin
If (FurlCrawlErrorSample=AValue) then exit;
@@ -732,7 +1188,7 @@ end;
--------------------------------------------------------------------}
-Procedure TUrlSampleDetails.SetcontainingSitemaps(AIndex : Integer; AValue : TStringArray);
+Procedure TUrlSampleDetails.SetcontainingSitemaps(AIndex : Integer; const AValue : TStringArray);
begin
If (FcontainingSitemaps=AValue) then exit;
@@ -742,7 +1198,7 @@ end;
-Procedure TUrlSampleDetails.SetlinkedFromUrls(AIndex : Integer; AValue : TStringArray);
+Procedure TUrlSampleDetails.SetlinkedFromUrls(AIndex : Integer; const AValue : TStringArray);
begin
If (FlinkedFromUrls=AValue) then exit;
@@ -800,7 +1256,7 @@ end;
--------------------------------------------------------------------}
-Procedure TWmxSitemap.Setcontents(AIndex : Integer; AValue : TWmxSitemapTypecontentsArray);
+Procedure TWmxSitemap.Setcontents(AIndex : Integer; const AValue : TWmxSitemapTypecontentsArray);
begin
If (Fcontents=AValue) then exit;
@@ -820,7 +1276,7 @@ end;
-Procedure TWmxSitemap.SetisPending(AIndex : Integer; AValue : boolean);
+Procedure TWmxSitemap.SetisPending(AIndex : Integer; const AValue : boolean);
begin
If (FisPending=AValue) then exit;
@@ -830,7 +1286,7 @@ end;
-Procedure TWmxSitemap.SetisSitemapsIndex(AIndex : Integer; AValue : boolean);
+Procedure TWmxSitemap.SetisSitemapsIndex(AIndex : Integer; const AValue : boolean);
begin
If (FisSitemapsIndex=AValue) then exit;
@@ -840,7 +1296,7 @@ end;
-Procedure TWmxSitemap.SetlastDownloaded(AIndex : Integer; AValue : TDatetime);
+Procedure TWmxSitemap.SetlastDownloaded(AIndex : Integer; const AValue : TDatetime);
begin
If (FlastDownloaded=AValue) then exit;
@@ -850,7 +1306,7 @@ end;
-Procedure TWmxSitemap.SetlastSubmitted(AIndex : Integer; AValue : TDatetime);
+Procedure TWmxSitemap.SetlastSubmitted(AIndex : Integer; const AValue : TDatetime);
begin
If (FlastSubmitted=AValue) then exit;
@@ -965,6 +1421,40 @@ end;
{ --------------------------------------------------------------------
+ TSearchanalyticsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TSearchanalyticsResource.ResourceName : String;
+
+begin
+ Result:='searchanalytics';
+end;
+
+Class Function TSearchanalyticsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TwebmastersAPI;
+end;
+
+Function TSearchanalyticsResource.Query(siteUrl: string; aSearchAnalyticsQueryRequest : TSearchAnalyticsQueryRequest) : TSearchAnalyticsQueryResponse;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'sites/{siteUrl}/searchAnalytics/query';
+ _Methodid = 'webmasters.searchanalytics.query';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['siteUrl',siteUrl]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',aSearchAnalyticsQueryRequest,TSearchAnalyticsQueryResponse) as TSearchAnalyticsQueryResponse;
+end;
+
+
+
+{ --------------------------------------------------------------------
TSitemapsResource
--------------------------------------------------------------------}
@@ -1300,7 +1790,7 @@ end;
Class Function TWebmastersAPI.APIRevision : String;
begin
- Result:='20140908';
+ Result:='20160317';
end;
Class Function TWebmastersAPI.APIID : String;
@@ -1312,13 +1802,13 @@ end;
Class Function TWebmastersAPI.APITitle : String;
begin
- Result:='Webmaster Tools API';
+ Result:='Search Console API';
end;
Class Function TWebmastersAPI.APIDescription : String;
begin
- Result:='Lets you view Google Webmaster Tools data for your verified sites.';
+ Result:='View Google Search Console data for your verified sites.';
end;
Class Function TWebmastersAPI.APIOwnerDomain : String;
@@ -1348,13 +1838,13 @@ end;
Class Function TWebmastersAPI.APIdocumentationLink : String;
begin
- Result:='https://developers.google.com/webmaster-tools/v3/welcome';
+ Result:='https://developers.google.com/webmaster-tools/';
end;
Class Function TWebmastersAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TWebmastersAPI.APIbasePath : string;
@@ -1366,7 +1856,7 @@ end;
Class Function TWebmastersAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/webmasters/v3/';
+ Result:='https://www.googleapis.com/webmasters/v3/';
end;
Class Function TWebmastersAPI.APIProtocol : string;
@@ -1392,9 +1882,9 @@ Class Function TWebmastersAPI.APIAuthScopes : TScopeInfoArray;
begin
SetLength(Result,2);
Result[0].Name:='https://www.googleapis.com/auth/webmasters';
- Result[0].Description:='View and modify Webmaster Tools data for your verified sites';
+ Result[0].Description:='View and manage Search Console data for your verified sites';
Result[1].Name:='https://www.googleapis.com/auth/webmasters.readonly';
- Result[1].Description:='View Webmaster Tools data for your verified sites';
+ Result[1].Description:='View Search Console data for your verified sites';
end;
@@ -1407,6 +1897,11 @@ end;
Class Procedure TWebmastersAPI.RegisterAPIResources;
begin
+ TApiDataRow.RegisterObject;
+ TApiDimensionFilter.RegisterObject;
+ TApiDimensionFilterGroup.RegisterObject;
+ TSearchAnalyticsQueryRequest.RegisterObject;
+ TSearchAnalyticsQueryResponse.RegisterObject;
TSitemapsListResponse.RegisterObject;
TSitesListResponse.RegisterObject;
TUrlCrawlErrorCount.RegisterObject;
@@ -1421,6 +1916,30 @@ begin
end;
+Function TWebmastersAPI.GetSearchanalyticsInstance : TSearchanalyticsResource;
+
+begin
+ if (FSearchanalyticsInstance=Nil) then
+ FSearchanalyticsInstance:=CreateSearchanalyticsResource;
+ Result:=FSearchanalyticsInstance;
+end;
+
+Function TWebmastersAPI.CreateSearchanalyticsResource : TSearchanalyticsResource;
+
+begin
+ Result:=CreateSearchanalyticsResource(Self);
+end;
+
+
+Function TWebmastersAPI.CreateSearchanalyticsResource(AOwner : TComponent) : TSearchanalyticsResource;
+
+begin
+ Result:=TSearchanalyticsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TWebmastersAPI.GetSitemapsInstance : TSitemapsResource;
begin
diff --git a/packages/googleapi/src/googleyoutube.pp b/packages/googleapi/src/googleyoutube.pp
index f0ff31839f..56b1b440a1 100644
--- a/packages/googleapi/src/googleyoutube.pp
+++ b/packages/googleapi/src/googleyoutube.pp
@@ -1,19 +1,4 @@
unit googleyoutube;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:09
{$MODE objfpc}
{$H+}
@@ -52,9 +37,9 @@ type
TChannelContentOwnerDetails = Class;
TChannelConversionPing = Class;
TChannelConversionPings = Class;
- TChannelId = Class;
TChannelListResponse = Class;
TChannelLocalization = Class;
+ TChannelProfileDetails = Class;
TChannelSection = Class;
TChannelSectionContentDetails = Class;
TChannelSectionListResponse = Class;
@@ -74,6 +59,9 @@ type
TCommentThreadReplies = Class;
TCommentThreadSnippet = Class;
TContentRating = Class;
+ TFanFundingEvent = Class;
+ TFanFundingEventListResponse = Class;
+ TFanFundingEventSnippet = Class;
TGeoPoint = Class;
TGuideCategory = Class;
TGuideCategoryListResponse = Class;
@@ -95,7 +83,25 @@ type
TLiveBroadcastContentDetails = Class;
TLiveBroadcastListResponse = Class;
TLiveBroadcastSnippet = Class;
+ TLiveBroadcastStatistics = Class;
TLiveBroadcastStatus = Class;
+ TLiveBroadcastTopic = Class;
+ TLiveBroadcastTopicDetails = Class;
+ TLiveBroadcastTopicSnippet = Class;
+ TLiveChatBan = Class;
+ TLiveChatBanSnippet = Class;
+ TLiveChatFanFundingEventDetails = Class;
+ TLiveChatMessage = Class;
+ TLiveChatMessageAuthorDetails = Class;
+ TLiveChatMessageDeletedDetails = Class;
+ TLiveChatMessageListResponse = Class;
+ TLiveChatMessageRetractedDetails = Class;
+ TLiveChatMessageSnippet = Class;
+ TLiveChatModerator = Class;
+ TLiveChatModeratorListResponse = Class;
+ TLiveChatModeratorSnippet = Class;
+ TLiveChatTextMessageDetails = Class;
+ TLiveChatUserBannedMessageDetails = Class;
TLiveStream = Class;
TLiveStreamConfigurationIssue = Class;
TLiveStreamContentDetails = Class;
@@ -126,6 +132,9 @@ type
TSearchListResponse = Class;
TSearchResult = Class;
TSearchResultSnippet = Class;
+ TSponsor = Class;
+ TSponsorListResponse = Class;
+ TSponsorSnippet = Class;
TSubscription = Class;
TSubscriptionContentDetails = Class;
TSubscriptionListResponse = Class;
@@ -147,8 +156,6 @@ type
TVideoCategorySnippet = Class;
TVideoContentDetails = Class;
TVideoContentDetailsRegionRestriction = Class;
- TVideoConversionPing = Class;
- TVideoConversionPings = Class;
TVideoFileDetails = Class;
TVideoFileDetailsAudioStream = Class;
TVideoFileDetailsVideoStream = Class;
@@ -198,9 +205,9 @@ type
TChannelContentOwnerDetailsArray = Array of TChannelContentOwnerDetails;
TChannelConversionPingArray = Array of TChannelConversionPing;
TChannelConversionPingsArray = Array of TChannelConversionPings;
- TChannelIdArray = Array of TChannelId;
TChannelListResponseArray = Array of TChannelListResponse;
TChannelLocalizationArray = Array of TChannelLocalization;
+ TChannelProfileDetailsArray = Array of TChannelProfileDetails;
TChannelSectionArray = Array of TChannelSection;
TChannelSectionContentDetailsArray = Array of TChannelSectionContentDetails;
TChannelSectionListResponseArray = Array of TChannelSectionListResponse;
@@ -220,6 +227,9 @@ type
TCommentThreadRepliesArray = Array of TCommentThreadReplies;
TCommentThreadSnippetArray = Array of TCommentThreadSnippet;
TContentRatingArray = Array of TContentRating;
+ TFanFundingEventArray = Array of TFanFundingEvent;
+ TFanFundingEventListResponseArray = Array of TFanFundingEventListResponse;
+ TFanFundingEventSnippetArray = Array of TFanFundingEventSnippet;
TGeoPointArray = Array of TGeoPoint;
TGuideCategoryArray = Array of TGuideCategory;
TGuideCategoryListResponseArray = Array of TGuideCategoryListResponse;
@@ -241,7 +251,25 @@ type
TLiveBroadcastContentDetailsArray = Array of TLiveBroadcastContentDetails;
TLiveBroadcastListResponseArray = Array of TLiveBroadcastListResponse;
TLiveBroadcastSnippetArray = Array of TLiveBroadcastSnippet;
+ TLiveBroadcastStatisticsArray = Array of TLiveBroadcastStatistics;
TLiveBroadcastStatusArray = Array of TLiveBroadcastStatus;
+ TLiveBroadcastTopicArray = Array of TLiveBroadcastTopic;
+ TLiveBroadcastTopicDetailsArray = Array of TLiveBroadcastTopicDetails;
+ TLiveBroadcastTopicSnippetArray = Array of TLiveBroadcastTopicSnippet;
+ TLiveChatBanArray = Array of TLiveChatBan;
+ TLiveChatBanSnippetArray = Array of TLiveChatBanSnippet;
+ TLiveChatFanFundingEventDetailsArray = Array of TLiveChatFanFundingEventDetails;
+ TLiveChatMessageArray = Array of TLiveChatMessage;
+ TLiveChatMessageAuthorDetailsArray = Array of TLiveChatMessageAuthorDetails;
+ TLiveChatMessageDeletedDetailsArray = Array of TLiveChatMessageDeletedDetails;
+ TLiveChatMessageListResponseArray = Array of TLiveChatMessageListResponse;
+ TLiveChatMessageRetractedDetailsArray = Array of TLiveChatMessageRetractedDetails;
+ TLiveChatMessageSnippetArray = Array of TLiveChatMessageSnippet;
+ TLiveChatModeratorArray = Array of TLiveChatModerator;
+ TLiveChatModeratorListResponseArray = Array of TLiveChatModeratorListResponse;
+ TLiveChatModeratorSnippetArray = Array of TLiveChatModeratorSnippet;
+ TLiveChatTextMessageDetailsArray = Array of TLiveChatTextMessageDetails;
+ TLiveChatUserBannedMessageDetailsArray = Array of TLiveChatUserBannedMessageDetails;
TLiveStreamArray = Array of TLiveStream;
TLiveStreamConfigurationIssueArray = Array of TLiveStreamConfigurationIssue;
TLiveStreamContentDetailsArray = Array of TLiveStreamContentDetails;
@@ -272,6 +300,9 @@ type
TSearchListResponseArray = Array of TSearchListResponse;
TSearchResultArray = Array of TSearchResult;
TSearchResultSnippetArray = Array of TSearchResultSnippet;
+ TSponsorArray = Array of TSponsor;
+ TSponsorListResponseArray = Array of TSponsorListResponse;
+ TSponsorSnippetArray = Array of TSponsorSnippet;
TSubscriptionArray = Array of TSubscription;
TSubscriptionContentDetailsArray = Array of TSubscriptionContentDetails;
TSubscriptionListResponseArray = Array of TSubscriptionListResponse;
@@ -293,8 +324,6 @@ type
TVideoCategorySnippetArray = Array of TVideoCategorySnippet;
TVideoContentDetailsArray = Array of TVideoContentDetails;
TVideoContentDetailsRegionRestrictionArray = Array of TVideoContentDetailsRegionRestriction;
- TVideoConversionPingArray = Array of TVideoConversionPing;
- TVideoConversionPingsArray = Array of TVideoConversionPings;
TVideoFileDetailsArray = Array of TVideoFileDetails;
TVideoFileDetailsAudioStreamArray = Array of TVideoFileDetailsAudioStream;
TVideoFileDetailsVideoStreamArray = Array of TVideoFileDetailsVideoStream;
@@ -331,23 +360,27 @@ type
TCommentListResponseTypeitemsArray = Array of TComment;
TCommentThreadListResponseTypeitemsArray = Array of TCommentThread;
TCommentThreadRepliesTypecommentsArray = Array of TComment;
+ TFanFundingEventListResponseTypeitemsArray = Array of TFanFundingEvent;
TGuideCategoryListResponseTypeitemsArray = Array of TGuideCategory;
TI18nLanguageListResponseTypeitemsArray = Array of TI18nLanguage;
TI18nRegionListResponseTypeitemsArray = Array of TI18nRegion;
TInvideoPromotionTypeitemsArray = Array of TPromotedItem;
TLiveBroadcastListResponseTypeitemsArray = Array of TLiveBroadcast;
+ TLiveBroadcastTopicDetailsTypetopicsArray = Array of TLiveBroadcastTopic;
+ TLiveChatMessageListResponseTypeitemsArray = Array of TLiveChatMessage;
+ TLiveChatModeratorListResponseTypeitemsArray = Array of TLiveChatModerator;
TLiveStreamHealthStatusTypeconfigurationIssuesArray = Array of TLiveStreamConfigurationIssue;
TLiveStreamListResponseTypeitemsArray = Array of TLiveStream;
TLocalizedPropertyTypelocalizedArray = Array of TLocalizedString;
TPlaylistItemListResponseTypeitemsArray = Array of TPlaylistItem;
TPlaylistListResponseTypeitemsArray = Array of TPlaylist;
TSearchListResponseTypeitemsArray = Array of TSearchResult;
+ TSponsorListResponseTypeitemsArray = Array of TSponsor;
TSubscriptionListResponseTypeitemsArray = Array of TSubscription;
TThumbnailSetResponseTypeitemsArray = Array of TThumbnailDetails;
TVideoAbuseReportReasonListResponseTypeitemsArray = Array of TVideoAbuseReportReason;
TVideoAbuseReportReasonSnippetTypesecondaryReasonsArray = Array of TVideoAbuseReportSecondaryReason;
TVideoCategoryListResponseTypeitemsArray = Array of TVideoCategory;
- TVideoConversionPingsTypepingsArray = Array of TVideoConversionPing;
TVideoFileDetailsTypeaudioStreamsArray = Array of TVideoFileDetailsAudioStream;
TVideoFileDetailsTypevideoStreamsArray = Array of TVideoFileDetailsVideoStream;
TVideoGetRatingResponseTypeitemsArray = Array of TVideoRating;
@@ -364,8 +397,8 @@ type
Fexception : TStringArray;
Protected
//Property setters
- Procedure Setallowed(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setexception(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setallowed(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setexception(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -390,11 +423,11 @@ type
Fsnippet : TActivitySnippet;
Protected
//Property setters
- Procedure SetcontentDetails(AIndex : Integer; AValue : TActivityContentDetails); virtual;
+ Procedure SetcontentDetails(AIndex : Integer; const AValue : TActivityContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TActivitySnippet); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TActivitySnippet); virtual;
Public
Published
Property contentDetails : TActivityContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
@@ -424,17 +457,17 @@ type
Fupload : TActivityContentDetailsUpload;
Protected
//Property setters
- Procedure Setbulletin(AIndex : Integer; AValue : TActivityContentDetailsBulletin); virtual;
- Procedure SetchannelItem(AIndex : Integer; AValue : TActivityContentDetailsChannelItem); virtual;
- Procedure Setcomment(AIndex : Integer; AValue : TActivityContentDetailsComment); virtual;
- Procedure Setfavorite(AIndex : Integer; AValue : TActivityContentDetailsFavorite); virtual;
- Procedure Setlike(AIndex : Integer; AValue : TActivityContentDetailsLike); virtual;
- Procedure SetplaylistItem(AIndex : Integer; AValue : TActivityContentDetailsPlaylistItem); virtual;
- Procedure SetpromotedItem(AIndex : Integer; AValue : TActivityContentDetailsPromotedItem); virtual;
- Procedure Setrecommendation(AIndex : Integer; AValue : TActivityContentDetailsRecommendation); virtual;
- Procedure Setsocial(AIndex : Integer; AValue : TActivityContentDetailsSocial); virtual;
- Procedure Setsubscription(AIndex : Integer; AValue : TActivityContentDetailsSubscription); virtual;
- Procedure Setupload(AIndex : Integer; AValue : TActivityContentDetailsUpload); virtual;
+ Procedure Setbulletin(AIndex : Integer; const AValue : TActivityContentDetailsBulletin); virtual;
+ Procedure SetchannelItem(AIndex : Integer; const AValue : TActivityContentDetailsChannelItem); virtual;
+ Procedure Setcomment(AIndex : Integer; const AValue : TActivityContentDetailsComment); virtual;
+ Procedure Setfavorite(AIndex : Integer; const AValue : TActivityContentDetailsFavorite); virtual;
+ Procedure Setlike(AIndex : Integer; const AValue : TActivityContentDetailsLike); virtual;
+ Procedure SetplaylistItem(AIndex : Integer; const AValue : TActivityContentDetailsPlaylistItem); virtual;
+ Procedure SetpromotedItem(AIndex : Integer; const AValue : TActivityContentDetailsPromotedItem); virtual;
+ Procedure Setrecommendation(AIndex : Integer; const AValue : TActivityContentDetailsRecommendation); virtual;
+ Procedure Setsocial(AIndex : Integer; const AValue : TActivityContentDetailsSocial); virtual;
+ Procedure Setsubscription(AIndex : Integer; const AValue : TActivityContentDetailsSubscription); virtual;
+ Procedure Setupload(AIndex : Integer; const AValue : TActivityContentDetailsUpload); virtual;
Public
Published
Property bulletin : TActivityContentDetailsBulletin Index 0 Read Fbulletin Write Setbulletin;
@@ -460,7 +493,7 @@ type
FresourceId : TResourceId;
Protected
//Property setters
- Procedure SetresourceId(AIndex : Integer; AValue : TResourceId); virtual;
+ Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
@@ -476,7 +509,7 @@ type
FresourceId : TResourceId;
Protected
//Property setters
- Procedure SetresourceId(AIndex : Integer; AValue : TResourceId); virtual;
+ Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
@@ -492,7 +525,7 @@ type
FresourceId : TResourceId;
Protected
//Property setters
- Procedure SetresourceId(AIndex : Integer; AValue : TResourceId); virtual;
+ Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
@@ -508,7 +541,7 @@ type
FresourceId : TResourceId;
Protected
//Property setters
- Procedure SetresourceId(AIndex : Integer; AValue : TResourceId); virtual;
+ Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
@@ -524,7 +557,7 @@ type
FresourceId : TResourceId;
Protected
//Property setters
- Procedure SetresourceId(AIndex : Integer; AValue : TResourceId); virtual;
+ Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
@@ -544,7 +577,7 @@ type
//Property setters
Procedure SetplaylistId(AIndex : Integer; const AValue : String); virtual;
Procedure SetplaylistItemId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetresourceId(AIndex : Integer; AValue : TResourceId); virtual;
+ Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property playlistId : String Index 0 Read FplaylistId Write SetplaylistId;
@@ -578,8 +611,8 @@ type
Procedure SetcustomCtaButtonText(AIndex : Integer; const AValue : String); virtual;
Procedure SetdescriptionText(AIndex : Integer; const AValue : String); virtual;
Procedure SetdestinationUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetforecastingUrl(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetimpressionUrl(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetforecastingUrl(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetimpressionUrl(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -612,8 +645,8 @@ type
Protected
//Property setters
Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
- Procedure SetresourceId(AIndex : Integer; AValue : TResourceId); virtual;
- Procedure SetseedResourceId(AIndex : Integer; AValue : TResourceId); virtual;
+ Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
+ Procedure SetseedResourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property reason : String Index 0 Read Freason Write Setreason;
@@ -639,7 +672,7 @@ type
Procedure Setauthor(AIndex : Integer; const AValue : String); virtual;
Procedure SetimageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetreferenceUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetresourceId(AIndex : Integer; AValue : TResourceId); virtual;
+ Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -660,7 +693,7 @@ type
FresourceId : TResourceId;
Protected
//Property setters
- Procedure SetresourceId(AIndex : Integer; AValue : TResourceId); virtual;
+ Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
Public
Published
Property resourceId : TResourceId Index 0 Read FresourceId Write SetresourceId;
@@ -702,12 +735,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TActivityListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TActivityListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -748,8 +781,8 @@ type
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetgroupId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
@@ -780,7 +813,7 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TCaptionSnippet); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TCaptionSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -805,7 +838,7 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TCaptionListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCaptionListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -845,13 +878,13 @@ type
//Property setters
Procedure SetaudioTrackType(AIndex : Integer; const AValue : String); virtual;
Procedure SetfailureReason(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisAutoSynced(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisCC(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisDraft(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisEasyReader(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetisLarge(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisAutoSynced(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisCC(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisDraft(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisEasyReader(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisLarge(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlastUpdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetlastUpdated(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SettrackKind(AIndex : Integer; const AValue : String); virtual;
@@ -881,18 +914,24 @@ type
TCdnSettings = Class(TGoogleBaseObject)
Private
Fformat : String;
+ FframeRate : String;
FingestionInfo : TIngestionInfo;
FingestionType : String;
+ Fresolution : String;
Protected
//Property setters
Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
- Procedure SetingestionInfo(AIndex : Integer; AValue : TIngestionInfo); virtual;
+ Procedure SetframeRate(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetingestionInfo(AIndex : Integer; const AValue : TIngestionInfo); virtual;
Procedure SetingestionType(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setresolution(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property format : String Index 0 Read Fformat Write Setformat;
- Property ingestionInfo : TIngestionInfo Index 8 Read FingestionInfo Write SetingestionInfo;
- Property ingestionType : String Index 16 Read FingestionType Write SetingestionType;
+ Property frameRate : String Index 8 Read FframeRate Write SetframeRate;
+ Property ingestionInfo : TIngestionInfo Index 16 Read FingestionInfo Write SetingestionInfo;
+ Property ingestionType : String Index 24 Read FingestionType Write SetingestionType;
+ Property resolution : String Index 32 Read Fresolution Write Setresolution;
end;
TCdnSettingsClass = Class of TCdnSettings;
@@ -932,20 +971,20 @@ type
FtopicDetails : TChannelTopicDetails;
Protected
//Property setters
- Procedure SetauditDetails(AIndex : Integer; AValue : TChannelAuditDetails); virtual;
- Procedure SetbrandingSettings(AIndex : Integer; AValue : TChannelBrandingSettings); virtual;
- Procedure SetcontentDetails(AIndex : Integer; AValue : TChannelContentDetails); virtual;
- Procedure SetcontentOwnerDetails(AIndex : Integer; AValue : TChannelContentOwnerDetails); virtual;
- Procedure SetconversionPings(AIndex : Integer; AValue : TChannelConversionPings); virtual;
+ Procedure SetauditDetails(AIndex : Integer; const AValue : TChannelAuditDetails); virtual;
+ Procedure SetbrandingSettings(AIndex : Integer; const AValue : TChannelBrandingSettings); virtual;
+ Procedure SetcontentDetails(AIndex : Integer; const AValue : TChannelContentDetails); virtual;
+ Procedure SetcontentOwnerDetails(AIndex : Integer; const AValue : TChannelContentOwnerDetails); virtual;
+ Procedure SetconversionPings(AIndex : Integer; const AValue : TChannelConversionPings); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinvideoPromotion(AIndex : Integer; AValue : TInvideoPromotion); virtual;
+ Procedure SetinvideoPromotion(AIndex : Integer; const AValue : TInvideoPromotion); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocalizations(AIndex : Integer; AValue : TChannelTypelocalizations); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TChannelSnippet); virtual;
- Procedure Setstatistics(AIndex : Integer; AValue : TChannelStatistics); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TChannelStatus); virtual;
- Procedure SettopicDetails(AIndex : Integer; AValue : TChannelTopicDetails); virtual;
+ Procedure Setlocalizations(AIndex : Integer; const AValue : TChannelTypelocalizations); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TChannelSnippet); virtual;
+ Procedure Setstatistics(AIndex : Integer; const AValue : TChannelStatistics); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TChannelStatus); virtual;
+ Procedure SettopicDetails(AIndex : Integer; const AValue : TChannelTopicDetails); virtual;
Public
Published
Property auditDetails : TChannelAuditDetails Index 0 Read FauditDetails Write SetauditDetails;
@@ -977,10 +1016,10 @@ type
FoverallGoodStanding : boolean;
Protected
//Property setters
- Procedure SetcommunityGuidelinesGoodStanding(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcontentIdClaimsGoodStanding(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetcopyrightStrikesGoodStanding(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetoverallGoodStanding(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcommunityGuidelinesGoodStanding(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcontentIdClaimsGoodStanding(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetcopyrightStrikesGoodStanding(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetoverallGoodStanding(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property communityGuidelinesGoodStanding : boolean Index 0 Read FcommunityGuidelinesGoodStanding Write SetcommunityGuidelinesGoodStanding;
@@ -1024,10 +1063,10 @@ type
Fwatch : TWatchSettings;
Protected
//Property setters
- Procedure Setchannel(AIndex : Integer; AValue : TChannelSettings); virtual;
- Procedure Sethints(AIndex : Integer; AValue : TChannelBrandingSettingsTypehintsArray); virtual;
- Procedure Setimage(AIndex : Integer; AValue : TImageSettings); virtual;
- Procedure Setwatch(AIndex : Integer; AValue : TWatchSettings); virtual;
+ Procedure Setchannel(AIndex : Integer; const AValue : TChannelSettings); virtual;
+ Procedure Sethints(AIndex : Integer; const AValue : TChannelBrandingSettingsTypehintsArray); virtual;
+ Procedure Setimage(AIndex : Integer; const AValue : TImageSettings); virtual;
+ Procedure Setwatch(AIndex : Integer; const AValue : TWatchSettings); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1080,7 +1119,7 @@ type
Protected
//Property setters
Procedure SetgooglePlusUserId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrelatedPlaylists(AIndex : Integer; AValue : TChannelContentDetailsTyperelatedPlaylists); virtual;
+ Procedure SetrelatedPlaylists(AIndex : Integer; const AValue : TChannelContentDetailsTyperelatedPlaylists); virtual;
Public
Published
Property googlePlusUserId : String Index 0 Read FgooglePlusUserId Write SetgooglePlusUserId;
@@ -1099,7 +1138,7 @@ type
Protected
//Property setters
Procedure SetcontentOwner(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeLinked(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SettimeLinked(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property contentOwner : String Index 0 Read FcontentOwner Write SetcontentOwner;
@@ -1135,7 +1174,7 @@ type
Fpings : TChannelConversionPingsTypepingsArray;
Protected
//Property setters
- Procedure Setpings(AIndex : Integer; AValue : TChannelConversionPingsTypepingsArray); virtual;
+ Procedure Setpings(AIndex : Integer; const AValue : TChannelConversionPingsTypepingsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1147,22 +1186,6 @@ type
TChannelConversionPingsClass = Class of TChannelConversionPings;
{ --------------------------------------------------------------------
- TChannelId
- --------------------------------------------------------------------}
-
- TChannelId = Class(TGoogleBaseObject)
- Private
- Fvalue : String;
- Protected
- //Property setters
- Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property value : String Index 0 Read Fvalue Write Setvalue;
- end;
- TChannelIdClass = Class of TChannelId;
-
- { --------------------------------------------------------------------
TChannelListResponse
--------------------------------------------------------------------}
@@ -1181,12 +1204,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TChannelListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TChannelListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1226,6 +1249,31 @@ type
TChannelLocalizationClass = Class of TChannelLocalization;
{ --------------------------------------------------------------------
+ TChannelProfileDetails
+ --------------------------------------------------------------------}
+
+ TChannelProfileDetails = Class(TGoogleBaseObject)
+ Private
+ FchannelId : String;
+ FchannelUrl : String;
+ FdisplayName : String;
+ FprofileImageUrl : String;
+ Protected
+ //Property setters
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetchannelUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetprofileImageUrl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property channelId : String Index 0 Read FchannelId Write SetchannelId;
+ Property channelUrl : String Index 8 Read FchannelUrl Write SetchannelUrl;
+ Property displayName : String Index 16 Read FdisplayName Write SetdisplayName;
+ Property profileImageUrl : String Index 24 Read FprofileImageUrl Write SetprofileImageUrl;
+ end;
+ TChannelProfileDetailsClass = Class of TChannelProfileDetails;
+
+ { --------------------------------------------------------------------
TChannelSectionTypelocalizations
--------------------------------------------------------------------}
@@ -1254,13 +1302,13 @@ type
Ftargeting : TChannelSectionTargeting;
Protected
//Property setters
- Procedure SetcontentDetails(AIndex : Integer; AValue : TChannelSectionContentDetails); virtual;
+ Procedure SetcontentDetails(AIndex : Integer; const AValue : TChannelSectionContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocalizations(AIndex : Integer; AValue : TChannelSectionTypelocalizations); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TChannelSectionSnippet); virtual;
- Procedure Settargeting(AIndex : Integer; AValue : TChannelSectionTargeting); virtual;
+ Procedure Setlocalizations(AIndex : Integer; const AValue : TChannelSectionTypelocalizations); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TChannelSectionSnippet); virtual;
+ Procedure Settargeting(AIndex : Integer; const AValue : TChannelSectionTargeting); virtual;
Public
Published
Property contentDetails : TChannelSectionContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
@@ -1283,8 +1331,8 @@ type
Fplaylists : TStringArray;
Protected
//Property setters
- Procedure Setchannels(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setplaylists(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setchannels(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setplaylists(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1311,7 +1359,7 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TChannelSectionListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TChannelSectionListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -1362,8 +1410,8 @@ type
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocalized(AIndex : Integer; AValue : TChannelSectionLocalization); virtual;
- Procedure Setposition(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setlocalized(AIndex : Integer; const AValue : TChannelSectionLocalization); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : integer); virtual;
Procedure Setstyle(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
@@ -1390,9 +1438,9 @@ type
Fregions : TStringArray;
Protected
//Property setters
- Procedure Setcountries(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setlanguages(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setregions(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setcountries(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setlanguages(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setregions(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1432,12 +1480,12 @@ type
Procedure SetdefaultTab(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetfeaturedChannelsTitle(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfeaturedChannelsUrls(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetfeaturedChannelsUrls(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkeywords(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmoderateComments(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetmoderateComments(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetprofileColor(AIndex : Integer; const AValue : String); virtual;
- Procedure SetshowBrowseView(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetshowRelatedChannels(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetshowBrowseView(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetshowRelatedChannels(AIndex : Integer; const AValue : boolean); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Procedure SettrackingAnalyticsAccountId(AIndex : Integer; const AValue : String); virtual;
Procedure SetunsubscribedTrailer(AIndex : Integer; const AValue : String); virtual;
@@ -1471,6 +1519,7 @@ type
TChannelSnippet = Class(TGoogleBaseObject)
Private
Fcountry : String;
+ FcustomUrl : String;
FdefaultLanguage : String;
Fdescription : String;
Flocalized : TChannelLocalization;
@@ -1480,21 +1529,23 @@ type
Protected
//Property setters
Procedure Setcountry(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcustomUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocalized(AIndex : Integer; AValue : TChannelLocalization); virtual;
- Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails); virtual;
+ Procedure Setlocalized(AIndex : Integer; const AValue : TChannelLocalization); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property country : String Index 0 Read Fcountry Write Setcountry;
- Property defaultLanguage : String Index 8 Read FdefaultLanguage Write SetdefaultLanguage;
- Property description : String Index 16 Read Fdescription Write Setdescription;
- Property localized : TChannelLocalization Index 24 Read Flocalized Write Setlocalized;
- Property publishedAt : TDatetime Index 32 Read FpublishedAt Write SetpublishedAt;
- Property thumbnails : TThumbnailDetails Index 40 Read Fthumbnails Write Setthumbnails;
- Property title : String Index 48 Read Ftitle Write Settitle;
+ Property customUrl : String Index 8 Read FcustomUrl Write SetcustomUrl;
+ Property defaultLanguage : String Index 16 Read FdefaultLanguage Write SetdefaultLanguage;
+ Property description : String Index 24 Read Fdescription Write Setdescription;
+ Property localized : TChannelLocalization Index 32 Read Flocalized Write Setlocalized;
+ Property publishedAt : TDatetime Index 40 Read FpublishedAt Write SetpublishedAt;
+ Property thumbnails : TThumbnailDetails Index 48 Read Fthumbnails Write Setthumbnails;
+ Property title : String Index 56 Read Ftitle Write Settitle;
end;
TChannelSnippetClass = Class of TChannelSnippet;
@@ -1512,7 +1563,7 @@ type
Protected
//Property setters
Procedure SetcommentCount(AIndex : Integer; const AValue : String); virtual;
- Procedure SethiddenSubscriberCount(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SethiddenSubscriberCount(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetsubscriberCount(AIndex : Integer; const AValue : String); virtual;
Procedure SetvideoCount(AIndex : Integer; const AValue : String); virtual;
Procedure SetviewCount(AIndex : Integer; const AValue : String); virtual;
@@ -1537,7 +1588,7 @@ type
FprivacyStatus : String;
Protected
//Property setters
- Procedure SetisLinked(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisLinked(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetlongUploadsStatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetprivacyStatus(AIndex : Integer; const AValue : String); virtual;
Public
@@ -1557,7 +1608,7 @@ type
FtopicIds : TStringArray;
Protected
//Property setters
- Procedure SettopicIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SettopicIds(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1583,7 +1634,7 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TCommentSnippet); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TCommentSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -1611,11 +1662,11 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TCommentListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCommentListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1640,7 +1691,7 @@ type
TCommentSnippet = Class(TGoogleBaseObject)
Private
- FauthorChannelId : TChannelId;
+ FauthorChannelId : TJSONSchema;
FauthorChannelUrl : String;
FauthorDisplayName : String;
FauthorGoogleplusProfileUrl : String;
@@ -1658,25 +1709,25 @@ type
FviewerRating : String;
Protected
//Property setters
- Procedure SetauthorChannelId(AIndex : Integer; AValue : TChannelId); virtual;
+ Procedure SetauthorChannelId(AIndex : Integer; const AValue : TJSONSchema); virtual;
Procedure SetauthorChannelUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetauthorDisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure SetauthorGoogleplusProfileUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetauthorProfileImageUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcanRate(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcanRate(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlikeCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetlikeCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmoderationStatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetparentId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SettextDisplay(AIndex : Integer; const AValue : String); virtual;
Procedure SettextOriginal(AIndex : Integer; const AValue : String); virtual;
- Procedure SetupdatedAt(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetupdatedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
Procedure SetviewerRating(AIndex : Integer; const AValue : String); virtual;
Public
Published
- Property authorChannelId : TChannelId Index 0 Read FauthorChannelId Write SetauthorChannelId;
+ Property authorChannelId : TJSONSchema Index 0 Read FauthorChannelId Write SetauthorChannelId;
Property authorChannelUrl : String Index 8 Read FauthorChannelUrl Write SetauthorChannelUrl;
Property authorDisplayName : String Index 16 Read FauthorDisplayName Write SetauthorDisplayName;
Property authorGoogleplusProfileUrl : String Index 24 Read FauthorGoogleplusProfileUrl Write SetauthorGoogleplusProfileUrl;
@@ -1711,8 +1762,8 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setreplies(AIndex : Integer; AValue : TCommentThreadReplies); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TCommentThreadSnippet); virtual;
+ Procedure Setreplies(AIndex : Integer; const AValue : TCommentThreadReplies); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TCommentThreadSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -1741,11 +1792,11 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TCommentThreadListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TCommentThreadListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -1773,7 +1824,7 @@ type
Fcomments : TCommentThreadRepliesTypecommentsArray;
Protected
//Property setters
- Procedure Setcomments(AIndex : Integer; AValue : TCommentThreadRepliesTypecommentsArray); virtual;
+ Procedure Setcomments(AIndex : Integer; const AValue : TCommentThreadRepliesTypecommentsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -1798,11 +1849,11 @@ type
FvideoId : String;
Protected
//Property setters
- Procedure SetcanReply(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetcanReply(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisPublic(AIndex : Integer; AValue : boolean); virtual;
- Procedure SettopLevelComment(AIndex : Integer; AValue : TComment); virtual;
- Procedure SettotalReplyCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetisPublic(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SettopLevelComment(AIndex : Integer; const AValue : TComment); virtual;
+ Procedure SettotalReplyCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetvideoId(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -1836,11 +1887,13 @@ type
FchvrsRating : String;
FcicfRating : String;
FcnaRating : String;
+ FcncRating : String;
FcsaRating : String;
FcscfRating : String;
FczfilmRating : String;
FdjctqRating : String;
FdjctqRatingReasons : TStringArray;
+ FecbmctRating : String;
FeefilmRating : String;
FegfilmRating : String;
FeirinRating : String;
@@ -1903,11 +1956,13 @@ type
Procedure SetchvrsRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcicfRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcnaRating(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcncRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcsaRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetcscfRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetczfilmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetdjctqRating(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdjctqRatingReasons(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetdjctqRatingReasons(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetecbmctRating(AIndex : Integer; const AValue : String); virtual;
Procedure SeteefilmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SetegfilmRating(AIndex : Integer; const AValue : String); virtual;
Procedure SeteirinRating(AIndex : Integer; const AValue : String); virtual;
@@ -1973,59 +2028,161 @@ type
Property chvrsRating : String Index 96 Read FchvrsRating Write SetchvrsRating;
Property cicfRating : String Index 104 Read FcicfRating Write SetcicfRating;
Property cnaRating : String Index 112 Read FcnaRating Write SetcnaRating;
- Property csaRating : String Index 120 Read FcsaRating Write SetcsaRating;
- Property cscfRating : String Index 128 Read FcscfRating Write SetcscfRating;
- Property czfilmRating : String Index 136 Read FczfilmRating Write SetczfilmRating;
- Property djctqRating : String Index 144 Read FdjctqRating Write SetdjctqRating;
- Property djctqRatingReasons : TStringArray Index 152 Read FdjctqRatingReasons Write SetdjctqRatingReasons;
- Property eefilmRating : String Index 160 Read FeefilmRating Write SeteefilmRating;
- Property egfilmRating : String Index 168 Read FegfilmRating Write SetegfilmRating;
- Property eirinRating : String Index 176 Read FeirinRating Write SeteirinRating;
- Property fcbmRating : String Index 184 Read FfcbmRating Write SetfcbmRating;
- Property fcoRating : String Index 192 Read FfcoRating Write SetfcoRating;
- Property fmocRating : String Index 200 Read FfmocRating Write SetfmocRating;
- Property fpbRating : String Index 208 Read FfpbRating Write SetfpbRating;
- Property fskRating : String Index 216 Read FfskRating Write SetfskRating;
- Property grfilmRating : String Index 224 Read FgrfilmRating Write SetgrfilmRating;
- Property icaaRating : String Index 232 Read FicaaRating Write SeticaaRating;
- Property ifcoRating : String Index 240 Read FifcoRating Write SetifcoRating;
- Property ilfilmRating : String Index 248 Read FilfilmRating Write SetilfilmRating;
- Property incaaRating : String Index 256 Read FincaaRating Write SetincaaRating;
- Property kfcbRating : String Index 264 Read FkfcbRating Write SetkfcbRating;
- Property kijkwijzerRating : String Index 272 Read FkijkwijzerRating Write SetkijkwijzerRating;
- Property kmrbRating : String Index 280 Read FkmrbRating Write SetkmrbRating;
- Property lsfRating : String Index 288 Read FlsfRating Write SetlsfRating;
- Property mccaaRating : String Index 296 Read FmccaaRating Write SetmccaaRating;
- Property mccypRating : String Index 304 Read FmccypRating Write SetmccypRating;
- Property mdaRating : String Index 312 Read FmdaRating Write SetmdaRating;
- Property medietilsynetRating : String Index 320 Read FmedietilsynetRating Write SetmedietilsynetRating;
- Property mekuRating : String Index 328 Read FmekuRating Write SetmekuRating;
- Property mibacRating : String Index 336 Read FmibacRating Write SetmibacRating;
- Property _mocRating : String Index 344 Read F_mocRating Write Set_mocRating;
- Property moctwRating : String Index 352 Read FmoctwRating Write SetmoctwRating;
- Property mpaaRating : String Index 360 Read FmpaaRating Write SetmpaaRating;
- Property mtrcbRating : String Index 368 Read FmtrcbRating Write SetmtrcbRating;
- Property nbcRating : String Index 376 Read FnbcRating Write SetnbcRating;
- Property nbcplRating : String Index 384 Read FnbcplRating Write SetnbcplRating;
- Property nfrcRating : String Index 392 Read FnfrcRating Write SetnfrcRating;
- Property nfvcbRating : String Index 400 Read FnfvcbRating Write SetnfvcbRating;
- Property nkclvRating : String Index 408 Read FnkclvRating Write SetnkclvRating;
- Property oflcRating : String Index 416 Read FoflcRating Write SetoflcRating;
- Property pefilmRating : String Index 424 Read FpefilmRating Write SetpefilmRating;
- Property rcnofRating : String Index 432 Read FrcnofRating Write SetrcnofRating;
- Property resorteviolenciaRating : String Index 440 Read FresorteviolenciaRating Write SetresorteviolenciaRating;
- Property rtcRating : String Index 448 Read FrtcRating Write SetrtcRating;
- Property rteRating : String Index 456 Read FrteRating Write SetrteRating;
- Property russiaRating : String Index 464 Read FrussiaRating Write SetrussiaRating;
- Property skfilmRating : String Index 472 Read FskfilmRating Write SetskfilmRating;
- Property smaisRating : String Index 480 Read FsmaisRating Write SetsmaisRating;
- Property smsaRating : String Index 488 Read FsmsaRating Write SetsmsaRating;
- Property tvpgRating : String Index 496 Read FtvpgRating Write SettvpgRating;
- Property ytRating : String Index 504 Read FytRating Write SetytRating;
+ Property cncRating : String Index 120 Read FcncRating Write SetcncRating;
+ Property csaRating : String Index 128 Read FcsaRating Write SetcsaRating;
+ Property cscfRating : String Index 136 Read FcscfRating Write SetcscfRating;
+ Property czfilmRating : String Index 144 Read FczfilmRating Write SetczfilmRating;
+ Property djctqRating : String Index 152 Read FdjctqRating Write SetdjctqRating;
+ Property djctqRatingReasons : TStringArray Index 160 Read FdjctqRatingReasons Write SetdjctqRatingReasons;
+ Property ecbmctRating : String Index 168 Read FecbmctRating Write SetecbmctRating;
+ Property eefilmRating : String Index 176 Read FeefilmRating Write SeteefilmRating;
+ Property egfilmRating : String Index 184 Read FegfilmRating Write SetegfilmRating;
+ Property eirinRating : String Index 192 Read FeirinRating Write SeteirinRating;
+ Property fcbmRating : String Index 200 Read FfcbmRating Write SetfcbmRating;
+ Property fcoRating : String Index 208 Read FfcoRating Write SetfcoRating;
+ Property fmocRating : String Index 216 Read FfmocRating Write SetfmocRating;
+ Property fpbRating : String Index 224 Read FfpbRating Write SetfpbRating;
+ Property fskRating : String Index 232 Read FfskRating Write SetfskRating;
+ Property grfilmRating : String Index 240 Read FgrfilmRating Write SetgrfilmRating;
+ Property icaaRating : String Index 248 Read FicaaRating Write SeticaaRating;
+ Property ifcoRating : String Index 256 Read FifcoRating Write SetifcoRating;
+ Property ilfilmRating : String Index 264 Read FilfilmRating Write SetilfilmRating;
+ Property incaaRating : String Index 272 Read FincaaRating Write SetincaaRating;
+ Property kfcbRating : String Index 280 Read FkfcbRating Write SetkfcbRating;
+ Property kijkwijzerRating : String Index 288 Read FkijkwijzerRating Write SetkijkwijzerRating;
+ Property kmrbRating : String Index 296 Read FkmrbRating Write SetkmrbRating;
+ Property lsfRating : String Index 304 Read FlsfRating Write SetlsfRating;
+ Property mccaaRating : String Index 312 Read FmccaaRating Write SetmccaaRating;
+ Property mccypRating : String Index 320 Read FmccypRating Write SetmccypRating;
+ Property mdaRating : String Index 328 Read FmdaRating Write SetmdaRating;
+ Property medietilsynetRating : String Index 336 Read FmedietilsynetRating Write SetmedietilsynetRating;
+ Property mekuRating : String Index 344 Read FmekuRating Write SetmekuRating;
+ Property mibacRating : String Index 352 Read FmibacRating Write SetmibacRating;
+ Property _mocRating : String Index 360 Read F_mocRating Write Set_mocRating;
+ Property moctwRating : String Index 368 Read FmoctwRating Write SetmoctwRating;
+ Property mpaaRating : String Index 376 Read FmpaaRating Write SetmpaaRating;
+ Property mtrcbRating : String Index 384 Read FmtrcbRating Write SetmtrcbRating;
+ Property nbcRating : String Index 392 Read FnbcRating Write SetnbcRating;
+ Property nbcplRating : String Index 400 Read FnbcplRating Write SetnbcplRating;
+ Property nfrcRating : String Index 408 Read FnfrcRating Write SetnfrcRating;
+ Property nfvcbRating : String Index 416 Read FnfvcbRating Write SetnfvcbRating;
+ Property nkclvRating : String Index 424 Read FnkclvRating Write SetnkclvRating;
+ Property oflcRating : String Index 432 Read FoflcRating Write SetoflcRating;
+ Property pefilmRating : String Index 440 Read FpefilmRating Write SetpefilmRating;
+ Property rcnofRating : String Index 448 Read FrcnofRating Write SetrcnofRating;
+ Property resorteviolenciaRating : String Index 456 Read FresorteviolenciaRating Write SetresorteviolenciaRating;
+ Property rtcRating : String Index 464 Read FrtcRating Write SetrtcRating;
+ Property rteRating : String Index 472 Read FrteRating Write SetrteRating;
+ Property russiaRating : String Index 480 Read FrussiaRating Write SetrussiaRating;
+ Property skfilmRating : String Index 488 Read FskfilmRating Write SetskfilmRating;
+ Property smaisRating : String Index 496 Read FsmaisRating Write SetsmaisRating;
+ Property smsaRating : String Index 504 Read FsmsaRating Write SetsmsaRating;
+ Property tvpgRating : String Index 512 Read FtvpgRating Write SettvpgRating;
+ Property ytRating : String Index 520 Read FytRating Write SetytRating;
end;
TContentRatingClass = Class of TContentRating;
{ --------------------------------------------------------------------
+ TFanFundingEvent
+ --------------------------------------------------------------------}
+
+ TFanFundingEvent = Class(TGoogleBaseObject)
+ Private
+ Fetag : String;
+ Fid : String;
+ Fkind : String;
+ Fsnippet : TFanFundingEventSnippet;
+ Protected
+ //Property setters
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TFanFundingEventSnippet); virtual;
+ Public
+ Published
+ Property etag : String Index 0 Read Fetag Write Setetag;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property snippet : TFanFundingEventSnippet Index 24 Read Fsnippet Write Setsnippet;
+ end;
+ TFanFundingEventClass = Class of TFanFundingEvent;
+
+ { --------------------------------------------------------------------
+ TFanFundingEventListResponse
+ --------------------------------------------------------------------}
+
+ TFanFundingEventListResponse = Class(TGoogleBaseObject)
+ Private
+ Fetag : String;
+ FeventId : String;
+ Fitems : TFanFundingEventListResponseTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FpageInfo : TPageInfo;
+ FtokenPagination : TTokenPagination;
+ FvisitorId : String;
+ Protected
+ //Property setters
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TFanFundingEventListResponseTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
+ Procedure SetvisitorId(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 etag : String Index 0 Read Fetag Write Setetag;
+ Property eventId : String Index 8 Read FeventId Write SeteventId;
+ Property items : TFanFundingEventListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
+ Property kind : String Index 24 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
+ Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
+ Property tokenPagination : TTokenPagination Index 48 Read FtokenPagination Write SettokenPagination;
+ Property visitorId : String Index 56 Read FvisitorId Write SetvisitorId;
+ end;
+ TFanFundingEventListResponseClass = Class of TFanFundingEventListResponse;
+
+ { --------------------------------------------------------------------
+ TFanFundingEventSnippet
+ --------------------------------------------------------------------}
+
+ TFanFundingEventSnippet = Class(TGoogleBaseObject)
+ Private
+ FamountMicros : String;
+ FchannelId : String;
+ FcommentText : String;
+ FcreatedAt : TDatetime;
+ Fcurrency : String;
+ FdisplayString : String;
+ FsupporterDetails : TChannelProfileDetails;
+ Protected
+ //Property setters
+ Procedure SetamountMicros(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcommentText(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreatedAt(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayString(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsupporterDetails(AIndex : Integer; const AValue : TChannelProfileDetails); virtual;
+ Public
+ Published
+ Property amountMicros : String Index 0 Read FamountMicros Write SetamountMicros;
+ Property channelId : String Index 8 Read FchannelId Write SetchannelId;
+ Property commentText : String Index 16 Read FcommentText Write SetcommentText;
+ Property createdAt : TDatetime Index 24 Read FcreatedAt Write SetcreatedAt;
+ Property currency : String Index 32 Read Fcurrency Write Setcurrency;
+ Property displayString : String Index 40 Read FdisplayString Write SetdisplayString;
+ Property supporterDetails : TChannelProfileDetails Index 48 Read FsupporterDetails Write SetsupporterDetails;
+ end;
+ TFanFundingEventSnippetClass = Class of TFanFundingEventSnippet;
+
+ { --------------------------------------------------------------------
TGeoPoint
--------------------------------------------------------------------}
@@ -2036,9 +2193,9 @@ type
Flongitude : double;
Protected
//Property setters
- Procedure Setaltitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlatitude(AIndex : Integer; AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; AValue : double); virtual;
+ Procedure Setaltitude(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual;
+ Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property altitude : double Index 0 Read Faltitude Write Setaltitude;
@@ -2062,7 +2219,7 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TGuideCategorySnippet); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TGuideCategorySnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -2091,12 +2248,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TGuideCategoryListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TGuideCategoryListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2150,7 +2307,7 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TI18nLanguageSnippet); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TI18nLanguageSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -2175,7 +2332,7 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TI18nLanguageListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TI18nLanguageListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2226,7 +2383,7 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TI18nRegionSnippet); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TI18nRegionSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -2251,7 +2408,7 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TI18nRegionListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TI18nRegionListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -2317,7 +2474,7 @@ type
FwatchIconImageUrl : String;
Protected
//Property setters
- Procedure SetbackgroundImageUrl(AIndex : Integer; AValue : TLocalizedProperty); virtual;
+ Procedure SetbackgroundImageUrl(AIndex : Integer; const AValue : TLocalizedProperty); virtual;
Procedure SetbannerExternalUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerMobileExtraHdImageUrl(AIndex : Integer; const AValue : String); virtual;
@@ -2333,10 +2490,10 @@ type
Procedure SetbannerTvImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerTvLowImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetbannerTvMediumImageUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlargeBrandedBannerImageImapScript(AIndex : Integer; AValue : TLocalizedProperty); virtual;
- Procedure SetlargeBrandedBannerImageUrl(AIndex : Integer; AValue : TLocalizedProperty); virtual;
- Procedure SetsmallBrandedBannerImageImapScript(AIndex : Integer; AValue : TLocalizedProperty); virtual;
- Procedure SetsmallBrandedBannerImageUrl(AIndex : Integer; AValue : TLocalizedProperty); virtual;
+ Procedure SetlargeBrandedBannerImageImapScript(AIndex : Integer; const AValue : TLocalizedProperty); virtual;
+ Procedure SetlargeBrandedBannerImageUrl(AIndex : Integer; const AValue : TLocalizedProperty); virtual;
+ Procedure SetsmallBrandedBannerImageImapScript(AIndex : Integer; const AValue : TLocalizedProperty); virtual;
+ Procedure SetsmallBrandedBannerImageUrl(AIndex : Integer; const AValue : TLocalizedProperty); virtual;
Procedure SettrackingImageUrl(AIndex : Integer; const AValue : String); virtual;
Procedure SetwatchIconImageUrl(AIndex : Integer; const AValue : String); virtual;
Public
@@ -2403,9 +2560,9 @@ type
//Property setters
Procedure SetimageBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetimageUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setposition(AIndex : Integer; AValue : TInvideoPosition); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : TInvideoPosition); virtual;
Procedure SettargetChannelId(AIndex : Integer; const AValue : String); virtual;
- Procedure Settiming(AIndex : Integer; AValue : TInvideoTiming); virtual;
+ Procedure Settiming(AIndex : Integer; const AValue : TInvideoTiming); virtual;
Public
Published
Property imageBytes : String Index 0 Read FimageBytes Write SetimageBytes;
@@ -2448,10 +2605,10 @@ type
FuseSmartTiming : boolean;
Protected
//Property setters
- Procedure SetdefaultTiming(AIndex : Integer; AValue : TInvideoTiming); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TInvideoPromotionTypeitemsArray); virtual;
- Procedure Setposition(AIndex : Integer; AValue : TInvideoPosition); virtual;
- Procedure SetuseSmartTiming(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetdefaultTiming(AIndex : Integer; const AValue : TInvideoTiming); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TInvideoPromotionTypeitemsArray); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : TInvideoPosition); virtual;
+ Procedure SetuseSmartTiming(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2515,15 +2672,19 @@ type
Fid : String;
Fkind : String;
Fsnippet : TLiveBroadcastSnippet;
+ Fstatistics : TLiveBroadcastStatistics;
Fstatus : TLiveBroadcastStatus;
+ FtopicDetails : TLiveBroadcastTopicDetails;
Protected
//Property setters
- Procedure SetcontentDetails(AIndex : Integer; AValue : TLiveBroadcastContentDetails); virtual;
+ Procedure SetcontentDetails(AIndex : Integer; const AValue : TLiveBroadcastContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TLiveBroadcastSnippet); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TLiveBroadcastStatus); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TLiveBroadcastSnippet); virtual;
+ Procedure Setstatistics(AIndex : Integer; const AValue : TLiveBroadcastStatistics); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TLiveBroadcastStatus); virtual;
+ Procedure SettopicDetails(AIndex : Integer; const AValue : TLiveBroadcastTopicDetails); virtual;
Public
Published
Property contentDetails : TLiveBroadcastContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
@@ -2531,7 +2692,9 @@ type
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property snippet : TLiveBroadcastSnippet Index 32 Read Fsnippet Write Setsnippet;
- Property status : TLiveBroadcastStatus Index 40 Read Fstatus Write Setstatus;
+ Property statistics : TLiveBroadcastStatistics Index 40 Read Fstatistics Write Setstatistics;
+ Property status : TLiveBroadcastStatus Index 48 Read Fstatus Write Setstatus;
+ Property topicDetails : TLiveBroadcastTopicDetails Index 56 Read FtopicDetails Write SettopicDetails;
end;
TLiveBroadcastClass = Class of TLiveBroadcast;
@@ -2542,33 +2705,45 @@ type
TLiveBroadcastContentDetails = Class(TGoogleBaseObject)
Private
FboundStreamId : String;
+ FboundStreamLastUpdateTimeMs : TDatetime;
+ FclosedCaptionsType : String;
FenableClosedCaptions : boolean;
FenableContentEncryption : boolean;
FenableDvr : boolean;
FenableEmbed : boolean;
+ FenableLowLatency : boolean;
FmonitorStream : TMonitorStreamInfo;
+ Fprojection : String;
FrecordFromStart : boolean;
FstartWithSlate : boolean;
Protected
//Property setters
Procedure SetboundStreamId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetenableClosedCaptions(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetenableContentEncryption(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetenableDvr(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetenableEmbed(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetmonitorStream(AIndex : Integer; AValue : TMonitorStreamInfo); virtual;
- Procedure SetrecordFromStart(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetstartWithSlate(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetboundStreamLastUpdateTimeMs(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetclosedCaptionsType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetenableClosedCaptions(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetenableContentEncryption(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetenableDvr(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetenableEmbed(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetenableLowLatency(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetmonitorStream(AIndex : Integer; const AValue : TMonitorStreamInfo); virtual;
+ Procedure Setprojection(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetrecordFromStart(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetstartWithSlate(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property boundStreamId : String Index 0 Read FboundStreamId Write SetboundStreamId;
- Property enableClosedCaptions : boolean Index 8 Read FenableClosedCaptions Write SetenableClosedCaptions;
- Property enableContentEncryption : boolean Index 16 Read FenableContentEncryption Write SetenableContentEncryption;
- Property enableDvr : boolean Index 24 Read FenableDvr Write SetenableDvr;
- Property enableEmbed : boolean Index 32 Read FenableEmbed Write SetenableEmbed;
- Property monitorStream : TMonitorStreamInfo Index 40 Read FmonitorStream Write SetmonitorStream;
- Property recordFromStart : boolean Index 48 Read FrecordFromStart Write SetrecordFromStart;
- Property startWithSlate : boolean Index 56 Read FstartWithSlate Write SetstartWithSlate;
+ Property boundStreamLastUpdateTimeMs : TDatetime Index 8 Read FboundStreamLastUpdateTimeMs Write SetboundStreamLastUpdateTimeMs;
+ Property closedCaptionsType : String Index 16 Read FclosedCaptionsType Write SetclosedCaptionsType;
+ Property enableClosedCaptions : boolean Index 24 Read FenableClosedCaptions Write SetenableClosedCaptions;
+ Property enableContentEncryption : boolean Index 32 Read FenableContentEncryption Write SetenableContentEncryption;
+ Property enableDvr : boolean Index 40 Read FenableDvr Write SetenableDvr;
+ Property enableEmbed : boolean Index 48 Read FenableEmbed Write SetenableEmbed;
+ Property enableLowLatency : boolean Index 56 Read FenableLowLatency Write SetenableLowLatency;
+ Property monitorStream : TMonitorStreamInfo Index 64 Read FmonitorStream Write SetmonitorStream;
+ Property projection : String Index 72 Read Fprojection Write Setprojection;
+ Property recordFromStart : boolean Index 80 Read FrecordFromStart Write SetrecordFromStart;
+ Property startWithSlate : boolean Index 88 Read FstartWithSlate Write SetstartWithSlate;
end;
TLiveBroadcastContentDetailsClass = Class of TLiveBroadcastContentDetails;
@@ -2591,12 +2766,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TLiveBroadcastListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TLiveBroadcastListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2627,6 +2802,7 @@ type
FchannelId : String;
Fdescription : String;
FisDefaultBroadcast : boolean;
+ FliveChatId : String;
FpublishedAt : TDatetime;
FscheduledEndTime : TDatetime;
FscheduledStartTime : TDatetime;
@@ -2634,15 +2810,16 @@ type
Ftitle : String;
Protected
//Property setters
- Procedure SetactualEndTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetactualStartTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetactualEndTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetactualStartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisDefaultBroadcast(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetscheduledEndTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetscheduledStartTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails); virtual;
+ Procedure SetisDefaultBroadcast(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetliveChatId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetscheduledEndTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetscheduledStartTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2651,15 +2828,35 @@ type
Property channelId : String Index 16 Read FchannelId Write SetchannelId;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property isDefaultBroadcast : boolean Index 32 Read FisDefaultBroadcast Write SetisDefaultBroadcast;
- Property publishedAt : TDatetime Index 40 Read FpublishedAt Write SetpublishedAt;
- Property scheduledEndTime : TDatetime Index 48 Read FscheduledEndTime Write SetscheduledEndTime;
- Property scheduledStartTime : TDatetime Index 56 Read FscheduledStartTime Write SetscheduledStartTime;
- Property thumbnails : TThumbnailDetails Index 64 Read Fthumbnails Write Setthumbnails;
- Property title : String Index 72 Read Ftitle Write Settitle;
+ Property liveChatId : String Index 40 Read FliveChatId Write SetliveChatId;
+ Property publishedAt : TDatetime Index 48 Read FpublishedAt Write SetpublishedAt;
+ Property scheduledEndTime : TDatetime Index 56 Read FscheduledEndTime Write SetscheduledEndTime;
+ Property scheduledStartTime : TDatetime Index 64 Read FscheduledStartTime Write SetscheduledStartTime;
+ Property thumbnails : TThumbnailDetails Index 72 Read Fthumbnails Write Setthumbnails;
+ Property title : String Index 80 Read Ftitle Write Settitle;
end;
TLiveBroadcastSnippetClass = Class of TLiveBroadcastSnippet;
{ --------------------------------------------------------------------
+ TLiveBroadcastStatistics
+ --------------------------------------------------------------------}
+
+ TLiveBroadcastStatistics = Class(TGoogleBaseObject)
+ Private
+ FconcurrentViewers : String;
+ FtotalChatCount : String;
+ Protected
+ //Property setters
+ Procedure SetconcurrentViewers(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettotalChatCount(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property concurrentViewers : String Index 0 Read FconcurrentViewers Write SetconcurrentViewers;
+ Property totalChatCount : String Index 8 Read FtotalChatCount Write SettotalChatCount;
+ end;
+ TLiveBroadcastStatisticsClass = Class of TLiveBroadcastStatistics;
+
+ { --------------------------------------------------------------------
TLiveBroadcastStatus
--------------------------------------------------------------------}
@@ -2685,6 +2882,461 @@ type
TLiveBroadcastStatusClass = Class of TLiveBroadcastStatus;
{ --------------------------------------------------------------------
+ TLiveBroadcastTopic
+ --------------------------------------------------------------------}
+
+ TLiveBroadcastTopic = Class(TGoogleBaseObject)
+ Private
+ Fsnippet : TLiveBroadcastTopicSnippet;
+ F_type : String;
+ Funmatched : boolean;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure Setsnippet(AIndex : Integer; const AValue : TLiveBroadcastTopicSnippet); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setunmatched(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property snippet : TLiveBroadcastTopicSnippet Index 0 Read Fsnippet Write Setsnippet;
+ Property _type : String Index 8 Read F_type Write Set_type;
+ Property unmatched : boolean Index 16 Read Funmatched Write Setunmatched;
+ end;
+ TLiveBroadcastTopicClass = Class of TLiveBroadcastTopic;
+
+ { --------------------------------------------------------------------
+ TLiveBroadcastTopicDetails
+ --------------------------------------------------------------------}
+
+ TLiveBroadcastTopicDetails = Class(TGoogleBaseObject)
+ Private
+ Ftopics : TLiveBroadcastTopicDetailsTypetopicsArray;
+ Protected
+ //Property setters
+ Procedure Settopics(AIndex : Integer; const AValue : TLiveBroadcastTopicDetailsTypetopicsArray); virtual;
+ //2.6.4. bug workaround
+ {$IFDEF VER2_6}
+ Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
+ {$ENDIF VER2_6}
+ Public
+ Published
+ Property topics : TLiveBroadcastTopicDetailsTypetopicsArray Index 0 Read Ftopics Write Settopics;
+ end;
+ TLiveBroadcastTopicDetailsClass = Class of TLiveBroadcastTopicDetails;
+
+ { --------------------------------------------------------------------
+ TLiveBroadcastTopicSnippet
+ --------------------------------------------------------------------}
+
+ TLiveBroadcastTopicSnippet = Class(TGoogleBaseObject)
+ Private
+ Fname : String;
+ FreleaseDate : String;
+ Protected
+ //Property setters
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreleaseDate(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property name : String Index 0 Read Fname Write Setname;
+ Property releaseDate : String Index 8 Read FreleaseDate Write SetreleaseDate;
+ end;
+ TLiveBroadcastTopicSnippetClass = Class of TLiveBroadcastTopicSnippet;
+
+ { --------------------------------------------------------------------
+ TLiveChatBan
+ --------------------------------------------------------------------}
+
+ TLiveChatBan = Class(TGoogleBaseObject)
+ Private
+ Fetag : String;
+ Fid : String;
+ Fkind : String;
+ Fsnippet : TLiveChatBanSnippet;
+ Protected
+ //Property setters
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TLiveChatBanSnippet); virtual;
+ Public
+ Published
+ Property etag : String Index 0 Read Fetag Write Setetag;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property snippet : TLiveChatBanSnippet Index 24 Read Fsnippet Write Setsnippet;
+ end;
+ TLiveChatBanClass = Class of TLiveChatBan;
+
+ { --------------------------------------------------------------------
+ TLiveChatBanSnippet
+ --------------------------------------------------------------------}
+
+ TLiveChatBanSnippet = Class(TGoogleBaseObject)
+ Private
+ FbanDurationSeconds : String;
+ FbannedUserDetails : TChannelProfileDetails;
+ FliveChatId : String;
+ F_type : String;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetbanDurationSeconds(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbannedUserDetails(AIndex : Integer; const AValue : TChannelProfileDetails); virtual;
+ Procedure SetliveChatId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property banDurationSeconds : String Index 0 Read FbanDurationSeconds Write SetbanDurationSeconds;
+ Property bannedUserDetails : TChannelProfileDetails Index 8 Read FbannedUserDetails Write SetbannedUserDetails;
+ Property liveChatId : String Index 16 Read FliveChatId Write SetliveChatId;
+ Property _type : String Index 24 Read F_type Write Set_type;
+ end;
+ TLiveChatBanSnippetClass = Class of TLiveChatBanSnippet;
+
+ { --------------------------------------------------------------------
+ TLiveChatFanFundingEventDetails
+ --------------------------------------------------------------------}
+
+ TLiveChatFanFundingEventDetails = Class(TGoogleBaseObject)
+ Private
+ FamountDisplayString : String;
+ FamountMicros : String;
+ Fcurrency : String;
+ FuserComment : String;
+ Protected
+ //Property setters
+ Procedure SetamountDisplayString(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetamountMicros(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setcurrency(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserComment(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property amountDisplayString : String Index 0 Read FamountDisplayString Write SetamountDisplayString;
+ Property amountMicros : String Index 8 Read FamountMicros Write SetamountMicros;
+ Property currency : String Index 16 Read Fcurrency Write Setcurrency;
+ Property userComment : String Index 24 Read FuserComment Write SetuserComment;
+ end;
+ TLiveChatFanFundingEventDetailsClass = Class of TLiveChatFanFundingEventDetails;
+
+ { --------------------------------------------------------------------
+ TLiveChatMessage
+ --------------------------------------------------------------------}
+
+ TLiveChatMessage = Class(TGoogleBaseObject)
+ Private
+ FauthorDetails : TLiveChatMessageAuthorDetails;
+ Fetag : String;
+ Fid : String;
+ Fkind : String;
+ Fsnippet : TLiveChatMessageSnippet;
+ Protected
+ //Property setters
+ Procedure SetauthorDetails(AIndex : Integer; const AValue : TLiveChatMessageAuthorDetails); virtual;
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TLiveChatMessageSnippet); virtual;
+ Public
+ Published
+ Property authorDetails : TLiveChatMessageAuthorDetails Index 0 Read FauthorDetails Write SetauthorDetails;
+ Property etag : String Index 8 Read Fetag Write Setetag;
+ Property id : String Index 16 Read Fid Write Setid;
+ Property kind : String Index 24 Read Fkind Write Setkind;
+ Property snippet : TLiveChatMessageSnippet Index 32 Read Fsnippet Write Setsnippet;
+ end;
+ TLiveChatMessageClass = Class of TLiveChatMessage;
+
+ { --------------------------------------------------------------------
+ TLiveChatMessageAuthorDetails
+ --------------------------------------------------------------------}
+
+ TLiveChatMessageAuthorDetails = Class(TGoogleBaseObject)
+ Private
+ FchannelId : String;
+ FchannelUrl : String;
+ FdisplayName : String;
+ FisChatModerator : boolean;
+ FisChatOwner : boolean;
+ FisChatSponsor : boolean;
+ FisVerified : boolean;
+ FprofileImageUrl : String;
+ Protected
+ //Property setters
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetchannelUrl(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetisChatModerator(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisChatOwner(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisChatSponsor(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetisVerified(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetprofileImageUrl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property channelId : String Index 0 Read FchannelId Write SetchannelId;
+ Property channelUrl : String Index 8 Read FchannelUrl Write SetchannelUrl;
+ Property displayName : String Index 16 Read FdisplayName Write SetdisplayName;
+ Property isChatModerator : boolean Index 24 Read FisChatModerator Write SetisChatModerator;
+ Property isChatOwner : boolean Index 32 Read FisChatOwner Write SetisChatOwner;
+ Property isChatSponsor : boolean Index 40 Read FisChatSponsor Write SetisChatSponsor;
+ Property isVerified : boolean Index 48 Read FisVerified Write SetisVerified;
+ Property profileImageUrl : String Index 56 Read FprofileImageUrl Write SetprofileImageUrl;
+ end;
+ TLiveChatMessageAuthorDetailsClass = Class of TLiveChatMessageAuthorDetails;
+
+ { --------------------------------------------------------------------
+ TLiveChatMessageDeletedDetails
+ --------------------------------------------------------------------}
+
+ TLiveChatMessageDeletedDetails = Class(TGoogleBaseObject)
+ Private
+ FdeletedMessageId : String;
+ Protected
+ //Property setters
+ Procedure SetdeletedMessageId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property deletedMessageId : String Index 0 Read FdeletedMessageId Write SetdeletedMessageId;
+ end;
+ TLiveChatMessageDeletedDetailsClass = Class of TLiveChatMessageDeletedDetails;
+
+ { --------------------------------------------------------------------
+ TLiveChatMessageListResponse
+ --------------------------------------------------------------------}
+
+ TLiveChatMessageListResponse = Class(TGoogleBaseObject)
+ Private
+ Fetag : String;
+ FeventId : String;
+ Fitems : TLiveChatMessageListResponseTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FofflineAt : TDatetime;
+ FpageInfo : TPageInfo;
+ FpollingIntervalMillis : integer;
+ FtokenPagination : TTokenPagination;
+ FvisitorId : String;
+ Protected
+ //Property setters
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TLiveChatMessageListResponseTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetofflineAt(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
+ Procedure SetpollingIntervalMillis(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
+ Procedure SetvisitorId(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 etag : String Index 0 Read Fetag Write Setetag;
+ Property eventId : String Index 8 Read FeventId Write SeteventId;
+ Property items : TLiveChatMessageListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
+ Property kind : String Index 24 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
+ Property offlineAt : TDatetime Index 40 Read FofflineAt Write SetofflineAt;
+ Property pageInfo : TPageInfo Index 48 Read FpageInfo Write SetpageInfo;
+ Property pollingIntervalMillis : integer Index 56 Read FpollingIntervalMillis Write SetpollingIntervalMillis;
+ Property tokenPagination : TTokenPagination Index 64 Read FtokenPagination Write SettokenPagination;
+ Property visitorId : String Index 72 Read FvisitorId Write SetvisitorId;
+ end;
+ TLiveChatMessageListResponseClass = Class of TLiveChatMessageListResponse;
+
+ { --------------------------------------------------------------------
+ TLiveChatMessageRetractedDetails
+ --------------------------------------------------------------------}
+
+ TLiveChatMessageRetractedDetails = Class(TGoogleBaseObject)
+ Private
+ FretractedMessageId : String;
+ Protected
+ //Property setters
+ Procedure SetretractedMessageId(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property retractedMessageId : String Index 0 Read FretractedMessageId Write SetretractedMessageId;
+ end;
+ TLiveChatMessageRetractedDetailsClass = Class of TLiveChatMessageRetractedDetails;
+
+ { --------------------------------------------------------------------
+ TLiveChatMessageSnippet
+ --------------------------------------------------------------------}
+
+ TLiveChatMessageSnippet = Class(TGoogleBaseObject)
+ Private
+ FauthorChannelId : String;
+ FdisplayMessage : String;
+ FfanFundingEventDetails : TLiveChatFanFundingEventDetails;
+ FhasDisplayContent : boolean;
+ FliveChatId : String;
+ FmessageDeletedDetails : TLiveChatMessageDeletedDetails;
+ FmessageRetractedDetails : TLiveChatMessageRetractedDetails;
+ FpublishedAt : TDatetime;
+ FtextMessageDetails : TLiveChatTextMessageDetails;
+ F_type : String;
+ FuserBannedDetails : TLiveChatUserBannedMessageDetails;
+ Protected
+ Class Function ExportPropertyName(Const AName : String) : string; override;
+ //Property setters
+ Procedure SetauthorChannelId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdisplayMessage(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetfanFundingEventDetails(AIndex : Integer; const AValue : TLiveChatFanFundingEventDetails); virtual;
+ Procedure SethasDisplayContent(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetliveChatId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmessageDeletedDetails(AIndex : Integer; const AValue : TLiveChatMessageDeletedDetails); virtual;
+ Procedure SetmessageRetractedDetails(AIndex : Integer; const AValue : TLiveChatMessageRetractedDetails); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SettextMessageDetails(AIndex : Integer; const AValue : TLiveChatTextMessageDetails); virtual;
+ Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetuserBannedDetails(AIndex : Integer; const AValue : TLiveChatUserBannedMessageDetails); virtual;
+ Public
+ Published
+ Property authorChannelId : String Index 0 Read FauthorChannelId Write SetauthorChannelId;
+ Property displayMessage : String Index 8 Read FdisplayMessage Write SetdisplayMessage;
+ Property fanFundingEventDetails : TLiveChatFanFundingEventDetails Index 16 Read FfanFundingEventDetails Write SetfanFundingEventDetails;
+ Property hasDisplayContent : boolean Index 24 Read FhasDisplayContent Write SethasDisplayContent;
+ Property liveChatId : String Index 32 Read FliveChatId Write SetliveChatId;
+ Property messageDeletedDetails : TLiveChatMessageDeletedDetails Index 40 Read FmessageDeletedDetails Write SetmessageDeletedDetails;
+ Property messageRetractedDetails : TLiveChatMessageRetractedDetails Index 48 Read FmessageRetractedDetails Write SetmessageRetractedDetails;
+ Property publishedAt : TDatetime Index 56 Read FpublishedAt Write SetpublishedAt;
+ Property textMessageDetails : TLiveChatTextMessageDetails Index 64 Read FtextMessageDetails Write SettextMessageDetails;
+ Property _type : String Index 72 Read F_type Write Set_type;
+ Property userBannedDetails : TLiveChatUserBannedMessageDetails Index 80 Read FuserBannedDetails Write SetuserBannedDetails;
+ end;
+ TLiveChatMessageSnippetClass = Class of TLiveChatMessageSnippet;
+
+ { --------------------------------------------------------------------
+ TLiveChatModerator
+ --------------------------------------------------------------------}
+
+ TLiveChatModerator = Class(TGoogleBaseObject)
+ Private
+ Fetag : String;
+ Fid : String;
+ Fkind : String;
+ Fsnippet : TLiveChatModeratorSnippet;
+ Protected
+ //Property setters
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TLiveChatModeratorSnippet); virtual;
+ Public
+ Published
+ Property etag : String Index 0 Read Fetag Write Setetag;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property snippet : TLiveChatModeratorSnippet Index 24 Read Fsnippet Write Setsnippet;
+ end;
+ TLiveChatModeratorClass = Class of TLiveChatModerator;
+
+ { --------------------------------------------------------------------
+ TLiveChatModeratorListResponse
+ --------------------------------------------------------------------}
+
+ TLiveChatModeratorListResponse = Class(TGoogleBaseObject)
+ Private
+ Fetag : String;
+ FeventId : String;
+ Fitems : TLiveChatModeratorListResponseTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FpageInfo : TPageInfo;
+ FprevPageToken : String;
+ FtokenPagination : TTokenPagination;
+ FvisitorId : String;
+ Protected
+ //Property setters
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TLiveChatModeratorListResponseTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
+ Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
+ Procedure SetvisitorId(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 etag : String Index 0 Read Fetag Write Setetag;
+ Property eventId : String Index 8 Read FeventId Write SeteventId;
+ Property items : TLiveChatModeratorListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
+ Property kind : String Index 24 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
+ Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
+ Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
+ Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
+ Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
+ end;
+ TLiveChatModeratorListResponseClass = Class of TLiveChatModeratorListResponse;
+
+ { --------------------------------------------------------------------
+ TLiveChatModeratorSnippet
+ --------------------------------------------------------------------}
+
+ TLiveChatModeratorSnippet = Class(TGoogleBaseObject)
+ Private
+ FliveChatId : String;
+ FmoderatorDetails : TChannelProfileDetails;
+ Protected
+ //Property setters
+ Procedure SetliveChatId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetmoderatorDetails(AIndex : Integer; const AValue : TChannelProfileDetails); virtual;
+ Public
+ Published
+ Property liveChatId : String Index 0 Read FliveChatId Write SetliveChatId;
+ Property moderatorDetails : TChannelProfileDetails Index 8 Read FmoderatorDetails Write SetmoderatorDetails;
+ end;
+ TLiveChatModeratorSnippetClass = Class of TLiveChatModeratorSnippet;
+
+ { --------------------------------------------------------------------
+ TLiveChatTextMessageDetails
+ --------------------------------------------------------------------}
+
+ TLiveChatTextMessageDetails = Class(TGoogleBaseObject)
+ Private
+ FmessageText : String;
+ Protected
+ //Property setters
+ Procedure SetmessageText(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property messageText : String Index 0 Read FmessageText Write SetmessageText;
+ end;
+ TLiveChatTextMessageDetailsClass = Class of TLiveChatTextMessageDetails;
+
+ { --------------------------------------------------------------------
+ TLiveChatUserBannedMessageDetails
+ --------------------------------------------------------------------}
+
+ TLiveChatUserBannedMessageDetails = Class(TGoogleBaseObject)
+ Private
+ FbanDurationSeconds : String;
+ FbanType : String;
+ FbannedUserDetails : TChannelProfileDetails;
+ Protected
+ //Property setters
+ Procedure SetbanDurationSeconds(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbanType(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetbannedUserDetails(AIndex : Integer; const AValue : TChannelProfileDetails); virtual;
+ Public
+ Published
+ Property banDurationSeconds : String Index 0 Read FbanDurationSeconds Write SetbanDurationSeconds;
+ Property banType : String Index 8 Read FbanType Write SetbanType;
+ Property bannedUserDetails : TChannelProfileDetails Index 16 Read FbannedUserDetails Write SetbannedUserDetails;
+ end;
+ TLiveChatUserBannedMessageDetailsClass = Class of TLiveChatUserBannedMessageDetails;
+
+ { --------------------------------------------------------------------
TLiveStream
--------------------------------------------------------------------}
@@ -2699,13 +3351,13 @@ type
Fstatus : TLiveStreamStatus;
Protected
//Property setters
- Procedure Setcdn(AIndex : Integer; AValue : TCdnSettings); virtual;
- Procedure SetcontentDetails(AIndex : Integer; AValue : TLiveStreamContentDetails); virtual;
+ Procedure Setcdn(AIndex : Integer; const AValue : TCdnSettings); virtual;
+ Procedure SetcontentDetails(AIndex : Integer; const AValue : TLiveStreamContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TLiveStreamSnippet); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TLiveStreamStatus); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TLiveStreamSnippet); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TLiveStreamStatus); virtual;
Public
Published
Property cdn : TCdnSettings Index 0 Read Fcdn Write Setcdn;
@@ -2755,7 +3407,7 @@ type
Protected
//Property setters
Procedure SetclosedCaptionsIngestionUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisReusable(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetisReusable(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property closedCaptionsIngestionUrl : String Index 0 Read FclosedCaptionsIngestionUrl Write SetclosedCaptionsIngestionUrl;
@@ -2770,12 +3422,12 @@ type
TLiveStreamHealthStatus = Class(TGoogleBaseObject)
Private
FconfigurationIssues : TLiveStreamHealthStatusTypeconfigurationIssuesArray;
- FlastUpdateTimeS : String;
+ FlastUpdateTimeSeconds : String;
Fstatus : String;
Protected
//Property setters
- Procedure SetconfigurationIssues(AIndex : Integer; AValue : TLiveStreamHealthStatusTypeconfigurationIssuesArray); virtual;
- Procedure SetlastUpdateTimeS(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetconfigurationIssues(AIndex : Integer; const AValue : TLiveStreamHealthStatusTypeconfigurationIssuesArray); virtual;
+ Procedure SetlastUpdateTimeSeconds(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2784,7 +3436,7 @@ type
Public
Published
Property configurationIssues : TLiveStreamHealthStatusTypeconfigurationIssuesArray Index 0 Read FconfigurationIssues Write SetconfigurationIssues;
- Property lastUpdateTimeS : String Index 8 Read FlastUpdateTimeS Write SetlastUpdateTimeS;
+ Property lastUpdateTimeSeconds : String Index 8 Read FlastUpdateTimeSeconds Write SetlastUpdateTimeSeconds;
Property status : String Index 16 Read Fstatus Write Setstatus;
end;
TLiveStreamHealthStatusClass = Class of TLiveStreamHealthStatus;
@@ -2808,12 +3460,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TLiveStreamListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TLiveStreamListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -2848,8 +3500,8 @@ type
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisDefaultStream(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetisDefaultStream(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2871,7 +3523,7 @@ type
FstreamStatus : String;
Protected
//Property setters
- Procedure SethealthStatus(AIndex : Integer; AValue : TLiveStreamHealthStatus); virtual;
+ Procedure SethealthStatus(AIndex : Integer; const AValue : TLiveStreamHealthStatus); virtual;
Procedure SetstreamStatus(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -2892,8 +3544,8 @@ type
Protected
//Property setters
Procedure Setdefault(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdefaultLanguage(AIndex : Integer; AValue : TLanguageTag); virtual;
- Procedure Setlocalized(AIndex : Integer; AValue : TLocalizedPropertyTypelocalizedArray); virtual;
+ Procedure SetdefaultLanguage(AIndex : Integer; const AValue : TLanguageTag); virtual;
+ Procedure Setlocalized(AIndex : Integer; const AValue : TLocalizedPropertyTypelocalizedArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -2936,9 +3588,9 @@ type
FenableMonitorStream : boolean;
Protected
//Property setters
- Procedure SetbroadcastStreamDelayMs(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetbroadcastStreamDelayMs(AIndex : Integer; const AValue : integer); virtual;
Procedure SetembedHtml(AIndex : Integer; const AValue : String); virtual;
- Procedure SetenableMonitorStream(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetenableMonitorStream(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property broadcastStreamDelayMs : integer Index 0 Read FbroadcastStreamDelayMs Write SetbroadcastStreamDelayMs;
@@ -2957,8 +3609,8 @@ type
FtotalResults : integer;
Protected
//Property setters
- Procedure SetresultsPerPage(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalResults(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetresultsPerPage(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalResults(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property resultsPerPage : integer Index 0 Read FresultsPerPage Write SetresultsPerPage;
@@ -2996,14 +3648,14 @@ type
Fstatus : TPlaylistStatus;
Protected
//Property setters
- Procedure SetcontentDetails(AIndex : Integer; AValue : TPlaylistContentDetails); virtual;
+ Procedure SetcontentDetails(AIndex : Integer; const AValue : TPlaylistContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocalizations(AIndex : Integer; AValue : TPlaylistTypelocalizations); virtual;
- Procedure Setplayer(AIndex : Integer; AValue : TPlaylistPlayer); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TPlaylistSnippet); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TPlaylistStatus); virtual;
+ Procedure Setlocalizations(AIndex : Integer; const AValue : TPlaylistTypelocalizations); virtual;
+ Procedure Setplayer(AIndex : Integer; const AValue : TPlaylistPlayer); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TPlaylistSnippet); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TPlaylistStatus); virtual;
Public
Published
Property contentDetails : TPlaylistContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
@@ -3026,7 +3678,7 @@ type
FitemCount : integer;
Protected
//Property setters
- Procedure SetitemCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetitemCount(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property itemCount : integer Index 0 Read FitemCount Write SetitemCount;
@@ -3047,12 +3699,12 @@ type
Fstatus : TPlaylistItemStatus;
Protected
//Property setters
- Procedure SetcontentDetails(AIndex : Integer; AValue : TPlaylistItemContentDetails); virtual;
+ Procedure SetcontentDetails(AIndex : Integer; const AValue : TPlaylistItemContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TPlaylistItemSnippet); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TPlaylistItemStatus); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TPlaylistItemSnippet); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TPlaylistItemStatus); virtual;
Public
Published
Property contentDetails : TPlaylistItemContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
@@ -3108,12 +3760,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TPlaylistItemListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPlaylistItemListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3154,10 +3806,10 @@ type
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetplaylistId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setposition(AIndex : Integer; AValue : integer); virtual;
- Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetresourceId(AIndex : Integer; AValue : TResourceId); virtual;
- Procedure Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails); virtual;
+ Procedure Setposition(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -3208,12 +3860,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TPlaylistListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TPlaylistListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3289,10 +3941,10 @@ type
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocalized(AIndex : Integer; AValue : TPlaylistLocalization); virtual;
- Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Settags(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails); virtual;
+ Procedure Setlocalized(AIndex : Integer; const AValue : TPlaylistLocalization); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Settags(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3341,9 +3993,9 @@ type
Protected
//Property setters
Procedure SetcustomMessage(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; AValue : TPromotedItemId); virtual;
- Procedure SetpromotedByContentOwner(AIndex : Integer; AValue : boolean); virtual;
- Procedure Settiming(AIndex : Integer; AValue : TInvideoTiming); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : TPromotedItemId); virtual;
+ Procedure SetpromotedByContentOwner(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Settiming(AIndex : Integer; const AValue : TInvideoTiming); virtual;
Public
Published
Property customMessage : String Index 0 Read FcustomMessage Write SetcustomMessage;
@@ -3437,18 +4089,20 @@ type
FnextPageToken : String;
FpageInfo : TPageInfo;
FprevPageToken : String;
+ FregionCode : String;
FtokenPagination : TTokenPagination;
FvisitorId : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TSearchListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSearchListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SetregionCode(AIndex : Integer; const AValue : String); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3463,8 +4117,9 @@ type
Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
Property prevPageToken : String Index 48 Read FprevPageToken Write SetprevPageToken;
- Property tokenPagination : TTokenPagination Index 56 Read FtokenPagination Write SettokenPagination;
- Property visitorId : String Index 64 Read FvisitorId Write SetvisitorId;
+ Property regionCode : String Index 56 Read FregionCode Write SetregionCode;
+ Property tokenPagination : TTokenPagination Index 64 Read FtokenPagination Write SettokenPagination;
+ Property visitorId : String Index 72 Read FvisitorId Write SetvisitorId;
end;
TSearchListResponseClass = Class of TSearchListResponse;
@@ -3481,9 +4136,9 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; AValue : TResourceId); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : TResourceId); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TSearchResultSnippet); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TSearchResultSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -3512,8 +4167,8 @@ type
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetliveBroadcastContent(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -3528,6 +4183,94 @@ type
TSearchResultSnippetClass = Class of TSearchResultSnippet;
{ --------------------------------------------------------------------
+ TSponsor
+ --------------------------------------------------------------------}
+
+ TSponsor = Class(TGoogleBaseObject)
+ Private
+ Fetag : String;
+ Fid : String;
+ Fkind : String;
+ Fsnippet : TSponsorSnippet;
+ Protected
+ //Property setters
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TSponsorSnippet); virtual;
+ Public
+ Published
+ Property etag : String Index 0 Read Fetag Write Setetag;
+ Property id : String Index 8 Read Fid Write Setid;
+ Property kind : String Index 16 Read Fkind Write Setkind;
+ Property snippet : TSponsorSnippet Index 24 Read Fsnippet Write Setsnippet;
+ end;
+ TSponsorClass = Class of TSponsor;
+
+ { --------------------------------------------------------------------
+ TSponsorListResponse
+ --------------------------------------------------------------------}
+
+ TSponsorListResponse = Class(TGoogleBaseObject)
+ Private
+ Fetag : String;
+ FeventId : String;
+ Fitems : TSponsorListResponseTypeitemsArray;
+ Fkind : String;
+ FnextPageToken : String;
+ FpageInfo : TPageInfo;
+ FtokenPagination : TTokenPagination;
+ FvisitorId : String;
+ Protected
+ //Property setters
+ Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
+ Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSponsorListResponseTypeitemsArray); virtual;
+ Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
+ Procedure SetvisitorId(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 etag : String Index 0 Read Fetag Write Setetag;
+ Property eventId : String Index 8 Read FeventId Write SeteventId;
+ Property items : TSponsorListResponseTypeitemsArray Index 16 Read Fitems Write Setitems;
+ Property kind : String Index 24 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
+ Property pageInfo : TPageInfo Index 40 Read FpageInfo Write SetpageInfo;
+ Property tokenPagination : TTokenPagination Index 48 Read FtokenPagination Write SettokenPagination;
+ Property visitorId : String Index 56 Read FvisitorId Write SetvisitorId;
+ end;
+ TSponsorListResponseClass = Class of TSponsorListResponse;
+
+ { --------------------------------------------------------------------
+ TSponsorSnippet
+ --------------------------------------------------------------------}
+
+ TSponsorSnippet = Class(TGoogleBaseObject)
+ Private
+ FchannelId : String;
+ FsponsorDetails : TChannelProfileDetails;
+ FsponsorSince : TDatetime;
+ Protected
+ //Property setters
+ Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsponsorDetails(AIndex : Integer; const AValue : TChannelProfileDetails); virtual;
+ Procedure SetsponsorSince(AIndex : Integer; const AValue : TDatetime); virtual;
+ Public
+ Published
+ Property channelId : String Index 0 Read FchannelId Write SetchannelId;
+ Property sponsorDetails : TChannelProfileDetails Index 8 Read FsponsorDetails Write SetsponsorDetails;
+ Property sponsorSince : TDatetime Index 16 Read FsponsorSince Write SetsponsorSince;
+ end;
+ TSponsorSnippetClass = Class of TSponsorSnippet;
+
+ { --------------------------------------------------------------------
TSubscription
--------------------------------------------------------------------}
@@ -3541,12 +4284,12 @@ type
FsubscriberSnippet : TSubscriptionSubscriberSnippet;
Protected
//Property setters
- Procedure SetcontentDetails(AIndex : Integer; AValue : TSubscriptionContentDetails); virtual;
+ Procedure SetcontentDetails(AIndex : Integer; const AValue : TSubscriptionContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TSubscriptionSnippet); virtual;
- Procedure SetsubscriberSnippet(AIndex : Integer; AValue : TSubscriptionSubscriberSnippet); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TSubscriptionSnippet); virtual;
+ Procedure SetsubscriberSnippet(AIndex : Integer; const AValue : TSubscriptionSubscriberSnippet); virtual;
Public
Published
Property contentDetails : TSubscriptionContentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
@@ -3570,8 +4313,8 @@ type
Protected
//Property setters
Procedure SetactivityType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnewItemCount(AIndex : Integer; AValue : integer); virtual;
- Procedure SettotalItemCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetnewItemCount(AIndex : Integer; const AValue : integer); virtual;
+ Procedure SettotalItemCount(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property activityType : String Index 0 Read FactivityType Write SetactivityType;
@@ -3599,12 +4342,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TSubscriptionListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TSubscriptionListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -3642,9 +4385,9 @@ type
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetresourceId(AIndex : Integer; AValue : TResourceId); virtual;
- Procedure Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetresourceId(AIndex : Integer; const AValue : TResourceId); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -3672,7 +4415,7 @@ type
//Property setters
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -3694,9 +4437,9 @@ type
Fwidth : integer;
Protected
//Property setters
- Procedure Setheight(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; AValue : integer); virtual;
+ Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property height : integer Index 0 Read Fheight Write Setheight;
@@ -3718,11 +4461,11 @@ type
Fstandard : TThumbnail;
Protected
//Property setters
- Procedure Setdefault(AIndex : Integer; AValue : TThumbnail); virtual;
- Procedure Sethigh(AIndex : Integer; AValue : TThumbnail); virtual;
- Procedure Setmaxres(AIndex : Integer; AValue : TThumbnail); virtual;
- Procedure Setmedium(AIndex : Integer; AValue : TThumbnail); virtual;
- Procedure Setstandard(AIndex : Integer; AValue : TThumbnail); virtual;
+ Procedure Setdefault(AIndex : Integer; const AValue : TThumbnail); virtual;
+ Procedure Sethigh(AIndex : Integer; const AValue : TThumbnail); virtual;
+ Procedure Setmaxres(AIndex : Integer; const AValue : TThumbnail); virtual;
+ Procedure Setmedium(AIndex : Integer; const AValue : TThumbnail); virtual;
+ Procedure Setstandard(AIndex : Integer; const AValue : TThumbnail); virtual;
Public
Published
Property default : TThumbnail Index 0 Read Fdefault Write Setdefault;
@@ -3748,7 +4491,7 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TThumbnailSetResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TThumbnailSetResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -3800,7 +4543,6 @@ type
Private
FageGating : TVideoAgeGating;
FcontentDetails : TVideoContentDetails;
- FconversionPings : TVideoConversionPings;
Fetag : String;
FfileDetails : TVideoFileDetails;
Fid : String;
@@ -3819,46 +4561,44 @@ type
FtopicDetails : TVideoTopicDetails;
Protected
//Property setters
- Procedure SetageGating(AIndex : Integer; AValue : TVideoAgeGating); virtual;
- Procedure SetcontentDetails(AIndex : Integer; AValue : TVideoContentDetails); virtual;
- Procedure SetconversionPings(AIndex : Integer; AValue : TVideoConversionPings); virtual;
+ Procedure SetageGating(AIndex : Integer; const AValue : TVideoAgeGating); virtual;
+ Procedure SetcontentDetails(AIndex : Integer; const AValue : TVideoContentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfileDetails(AIndex : Integer; AValue : TVideoFileDetails); virtual;
+ Procedure SetfileDetails(AIndex : Integer; const AValue : TVideoFileDetails); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetliveStreamingDetails(AIndex : Integer; AValue : TVideoLiveStreamingDetails); virtual;
- Procedure Setlocalizations(AIndex : Integer; AValue : TVideoTypelocalizations); virtual;
- Procedure SetmonetizationDetails(AIndex : Integer; AValue : TVideoMonetizationDetails); virtual;
- Procedure Setplayer(AIndex : Integer; AValue : TVideoPlayer); virtual;
- Procedure SetprocessingDetails(AIndex : Integer; AValue : TVideoProcessingDetails); virtual;
- Procedure SetprojectDetails(AIndex : Integer; AValue : TVideoProjectDetails); virtual;
- Procedure SetrecordingDetails(AIndex : Integer; AValue : TVideoRecordingDetails); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TVideoSnippet); virtual;
- Procedure Setstatistics(AIndex : Integer; AValue : TVideoStatistics); virtual;
- Procedure Setstatus(AIndex : Integer; AValue : TVideoStatus); virtual;
- Procedure Setsuggestions(AIndex : Integer; AValue : TVideoSuggestions); virtual;
- Procedure SettopicDetails(AIndex : Integer; AValue : TVideoTopicDetails); virtual;
+ Procedure SetliveStreamingDetails(AIndex : Integer; const AValue : TVideoLiveStreamingDetails); virtual;
+ Procedure Setlocalizations(AIndex : Integer; const AValue : TVideoTypelocalizations); virtual;
+ Procedure SetmonetizationDetails(AIndex : Integer; const AValue : TVideoMonetizationDetails); virtual;
+ Procedure Setplayer(AIndex : Integer; const AValue : TVideoPlayer); virtual;
+ Procedure SetprocessingDetails(AIndex : Integer; const AValue : TVideoProcessingDetails); virtual;
+ Procedure SetprojectDetails(AIndex : Integer; const AValue : TVideoProjectDetails); virtual;
+ Procedure SetrecordingDetails(AIndex : Integer; const AValue : TVideoRecordingDetails); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TVideoSnippet); virtual;
+ Procedure Setstatistics(AIndex : Integer; const AValue : TVideoStatistics); virtual;
+ Procedure Setstatus(AIndex : Integer; const AValue : TVideoStatus); virtual;
+ Procedure Setsuggestions(AIndex : Integer; const AValue : TVideoSuggestions); virtual;
+ Procedure SettopicDetails(AIndex : Integer; const AValue : TVideoTopicDetails); virtual;
Public
Published
Property ageGating : TVideoAgeGating Index 0 Read FageGating Write SetageGating;
Property contentDetails : TVideoContentDetails Index 8 Read FcontentDetails Write SetcontentDetails;
- Property conversionPings : TVideoConversionPings Index 16 Read FconversionPings Write SetconversionPings;
- Property etag : String Index 24 Read Fetag Write Setetag;
- Property fileDetails : TVideoFileDetails Index 32 Read FfileDetails Write SetfileDetails;
- Property id : String Index 40 Read Fid Write Setid;
- Property kind : String Index 48 Read Fkind Write Setkind;
- Property liveStreamingDetails : TVideoLiveStreamingDetails Index 56 Read FliveStreamingDetails Write SetliveStreamingDetails;
- Property localizations : TVideoTypelocalizations Index 64 Read Flocalizations Write Setlocalizations;
- Property monetizationDetails : TVideoMonetizationDetails Index 72 Read FmonetizationDetails Write SetmonetizationDetails;
- Property player : TVideoPlayer Index 80 Read Fplayer Write Setplayer;
- Property processingDetails : TVideoProcessingDetails Index 88 Read FprocessingDetails Write SetprocessingDetails;
- Property projectDetails : TVideoProjectDetails Index 96 Read FprojectDetails Write SetprojectDetails;
- Property recordingDetails : TVideoRecordingDetails Index 104 Read FrecordingDetails Write SetrecordingDetails;
- Property snippet : TVideoSnippet Index 112 Read Fsnippet Write Setsnippet;
- Property statistics : TVideoStatistics Index 120 Read Fstatistics Write Setstatistics;
- Property status : TVideoStatus Index 128 Read Fstatus Write Setstatus;
- Property suggestions : TVideoSuggestions Index 136 Read Fsuggestions Write Setsuggestions;
- Property topicDetails : TVideoTopicDetails Index 144 Read FtopicDetails Write SettopicDetails;
+ Property etag : String Index 16 Read Fetag Write Setetag;
+ Property fileDetails : TVideoFileDetails Index 24 Read FfileDetails Write SetfileDetails;
+ Property id : String Index 32 Read Fid Write Setid;
+ Property kind : String Index 40 Read Fkind Write Setkind;
+ Property liveStreamingDetails : TVideoLiveStreamingDetails Index 48 Read FliveStreamingDetails Write SetliveStreamingDetails;
+ Property localizations : TVideoTypelocalizations Index 56 Read Flocalizations Write Setlocalizations;
+ Property monetizationDetails : TVideoMonetizationDetails Index 64 Read FmonetizationDetails Write SetmonetizationDetails;
+ Property player : TVideoPlayer Index 72 Read Fplayer Write Setplayer;
+ Property processingDetails : TVideoProcessingDetails Index 80 Read FprocessingDetails Write SetprocessingDetails;
+ Property projectDetails : TVideoProjectDetails Index 88 Read FprojectDetails Write SetprojectDetails;
+ Property recordingDetails : TVideoRecordingDetails Index 96 Read FrecordingDetails Write SetrecordingDetails;
+ Property snippet : TVideoSnippet Index 104 Read Fsnippet Write Setsnippet;
+ Property statistics : TVideoStatistics Index 112 Read Fstatistics Write Setstatistics;
+ Property status : TVideoStatus Index 120 Read Fstatus Write Setstatus;
+ Property suggestions : TVideoSuggestions Index 128 Read Fsuggestions Write Setsuggestions;
+ Property topicDetails : TVideoTopicDetails Index 136 Read FtopicDetails Write SettopicDetails;
end;
TVideoClass = Class of TVideo;
@@ -3905,7 +4645,7 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TVideoAbuseReportReasonSnippet); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TVideoAbuseReportReasonSnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -3930,7 +4670,7 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TVideoAbuseReportReasonListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TVideoAbuseReportReasonListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -3959,7 +4699,7 @@ type
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsecondaryReasons(AIndex : Integer; AValue : TVideoAbuseReportReasonSnippetTypesecondaryReasonsArray); virtual;
+ Procedure SetsecondaryReasons(AIndex : Integer; const AValue : TVideoAbuseReportReasonSnippetTypesecondaryReasonsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4002,8 +4742,8 @@ type
FvideoGameRating : String;
Protected
//Property setters
- Procedure SetalcoholContent(AIndex : Integer; AValue : boolean); virtual;
- Procedure Setrestricted(AIndex : Integer; AValue : boolean); virtual;
+ Procedure SetalcoholContent(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setrestricted(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetvideoGameRating(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -4028,7 +4768,7 @@ type
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TVideoCategorySnippet); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TVideoCategorySnippet); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -4057,12 +4797,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TVideoCategoryListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TVideoCategoryListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -4093,7 +4833,7 @@ type
Ftitle : String;
Protected
//Property setters
- Procedure Setassignable(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setassignable(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
@@ -4117,17 +4857,19 @@ type
Fdimension : String;
Fduration : String;
FlicensedContent : boolean;
+ Fprojection : String;
FregionRestriction : TVideoContentDetailsRegionRestriction;
Protected
//Property setters
Procedure Setcaption(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontentRating(AIndex : Integer; AValue : TContentRating); virtual;
- Procedure SetcountryRestriction(AIndex : Integer; AValue : TAccessPolicy); virtual;
+ Procedure SetcontentRating(AIndex : Integer; const AValue : TContentRating); virtual;
+ Procedure SetcountryRestriction(AIndex : Integer; const AValue : TAccessPolicy); virtual;
Procedure Setdefinition(AIndex : Integer; const AValue : String); virtual;
Procedure Setdimension(AIndex : Integer; const AValue : String); virtual;
Procedure Setduration(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlicensedContent(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetregionRestriction(AIndex : Integer; AValue : TVideoContentDetailsRegionRestriction); virtual;
+ Procedure SetlicensedContent(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure Setprojection(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetregionRestriction(AIndex : Integer; const AValue : TVideoContentDetailsRegionRestriction); virtual;
Public
Published
Property caption : String Index 0 Read Fcaption Write Setcaption;
@@ -4137,7 +4879,8 @@ type
Property dimension : String Index 32 Read Fdimension Write Setdimension;
Property duration : String Index 40 Read Fduration Write Setduration;
Property licensedContent : boolean Index 48 Read FlicensedContent Write SetlicensedContent;
- Property regionRestriction : TVideoContentDetailsRegionRestriction Index 56 Read FregionRestriction Write SetregionRestriction;
+ Property projection : String Index 56 Read Fprojection Write Setprojection;
+ Property regionRestriction : TVideoContentDetailsRegionRestriction Index 64 Read FregionRestriction Write SetregionRestriction;
end;
TVideoContentDetailsClass = Class of TVideoContentDetails;
@@ -4151,8 +4894,8 @@ type
Fblocked : TStringArray;
Protected
//Property setters
- Procedure Setallowed(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setblocked(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Setallowed(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setblocked(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4165,45 +4908,6 @@ type
TVideoContentDetailsRegionRestrictionClass = Class of TVideoContentDetailsRegionRestriction;
{ --------------------------------------------------------------------
- TVideoConversionPing
- --------------------------------------------------------------------}
-
- TVideoConversionPing = Class(TGoogleBaseObject)
- Private
- Fcontext : String;
- FconversionUrl : String;
- Protected
- //Property setters
- Procedure Setcontext(AIndex : Integer; const AValue : String); virtual;
- Procedure SetconversionUrl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property context : String Index 0 Read Fcontext Write Setcontext;
- Property conversionUrl : String Index 8 Read FconversionUrl Write SetconversionUrl;
- end;
- TVideoConversionPingClass = Class of TVideoConversionPing;
-
- { --------------------------------------------------------------------
- TVideoConversionPings
- --------------------------------------------------------------------}
-
- TVideoConversionPings = Class(TGoogleBaseObject)
- Private
- Fpings : TVideoConversionPingsTypepingsArray;
- Protected
- //Property setters
- Procedure Setpings(AIndex : Integer; AValue : TVideoConversionPingsTypepingsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property pings : TVideoConversionPingsTypepingsArray Index 0 Read Fpings Write Setpings;
- end;
- TVideoConversionPingsClass = Class of TVideoConversionPings;
-
- { --------------------------------------------------------------------
TVideoFileDetails
--------------------------------------------------------------------}
@@ -4221,7 +4925,7 @@ type
FvideoStreams : TVideoFileDetailsTypevideoStreamsArray;
Protected
//Property setters
- Procedure SetaudioStreams(AIndex : Integer; AValue : TVideoFileDetailsTypeaudioStreamsArray); virtual;
+ Procedure SetaudioStreams(AIndex : Integer; const AValue : TVideoFileDetailsTypeaudioStreamsArray); virtual;
Procedure SetbitrateBps(AIndex : Integer; const AValue : String); virtual;
Procedure Setcontainer(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
@@ -4229,8 +4933,8 @@ type
Procedure SetfileName(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileSize(AIndex : Integer; const AValue : String); virtual;
Procedure SetfileType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrecordingLocation(AIndex : Integer; AValue : TGeoPoint); virtual;
- Procedure SetvideoStreams(AIndex : Integer; AValue : TVideoFileDetailsTypevideoStreamsArray); virtual;
+ Procedure SetrecordingLocation(AIndex : Integer; const AValue : TGeoPoint); virtual;
+ Procedure SetvideoStreams(AIndex : Integer; const AValue : TVideoFileDetailsTypevideoStreamsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4263,7 +4967,7 @@ type
Protected
//Property setters
Procedure SetbitrateBps(AIndex : Integer; const AValue : String); virtual;
- Procedure SetchannelCount(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetchannelCount(AIndex : Integer; const AValue : integer); virtual;
Procedure Setcodec(AIndex : Integer; const AValue : String); virtual;
Procedure Setvendor(AIndex : Integer; const AValue : String); virtual;
Public
@@ -4291,14 +4995,14 @@ type
FwidthPixels : integer;
Protected
//Property setters
- Procedure SetaspectRatio(AIndex : Integer; AValue : double); virtual;
+ Procedure SetaspectRatio(AIndex : Integer; const AValue : double); virtual;
Procedure SetbitrateBps(AIndex : Integer; const AValue : String); virtual;
Procedure Setcodec(AIndex : Integer; const AValue : String); virtual;
- Procedure SetframeRateFps(AIndex : Integer; AValue : double); virtual;
- Procedure SetheightPixels(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetframeRateFps(AIndex : Integer; const AValue : double); virtual;
+ Procedure SetheightPixels(AIndex : Integer; const AValue : integer); virtual;
Procedure Setrotation(AIndex : Integer; const AValue : String); virtual;
Procedure Setvendor(AIndex : Integer; const AValue : String); virtual;
- Procedure SetwidthPixels(AIndex : Integer; AValue : integer); virtual;
+ Procedure SetwidthPixels(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property aspectRatio : double Index 0 Read FaspectRatio Write SetaspectRatio;
@@ -4327,7 +5031,7 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TVideoGetRatingResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TVideoGetRatingResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
@@ -4363,12 +5067,12 @@ type
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SeteventId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TVideoListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TVideoListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpageInfo(AIndex : Integer; AValue : TPageInfo); virtual;
+ Procedure SetpageInfo(AIndex : Integer; const AValue : TPageInfo); virtual;
Procedure SetprevPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettokenPagination(AIndex : Integer; AValue : TTokenPagination); virtual;
+ Procedure SettokenPagination(AIndex : Integer; const AValue : TTokenPagination); virtual;
Procedure SetvisitorId(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -4394,6 +5098,7 @@ type
TVideoLiveStreamingDetails = Class(TGoogleBaseObject)
Private
+ FactiveLiveChatId : String;
FactualEndTime : TDatetime;
FactualStartTime : TDatetime;
FconcurrentViewers : String;
@@ -4401,18 +5106,20 @@ type
FscheduledStartTime : TDatetime;
Protected
//Property setters
- Procedure SetactualEndTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetactualStartTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetactiveLiveChatId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetactualEndTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetactualStartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetconcurrentViewers(AIndex : Integer; const AValue : String); virtual;
- Procedure SetscheduledEndTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetscheduledStartTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetscheduledEndTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetscheduledStartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
- Property actualEndTime : TDatetime Index 0 Read FactualEndTime Write SetactualEndTime;
- Property actualStartTime : TDatetime Index 8 Read FactualStartTime Write SetactualStartTime;
- Property concurrentViewers : String Index 16 Read FconcurrentViewers Write SetconcurrentViewers;
- Property scheduledEndTime : TDatetime Index 24 Read FscheduledEndTime Write SetscheduledEndTime;
- Property scheduledStartTime : TDatetime Index 32 Read FscheduledStartTime Write SetscheduledStartTime;
+ Property activeLiveChatId : String Index 0 Read FactiveLiveChatId Write SetactiveLiveChatId;
+ Property actualEndTime : TDatetime Index 8 Read FactualEndTime Write SetactualEndTime;
+ Property actualStartTime : TDatetime Index 16 Read FactualStartTime Write SetactualStartTime;
+ Property concurrentViewers : String Index 24 Read FconcurrentViewers Write SetconcurrentViewers;
+ Property scheduledEndTime : TDatetime Index 32 Read FscheduledEndTime Write SetscheduledEndTime;
+ Property scheduledStartTime : TDatetime Index 40 Read FscheduledStartTime Write SetscheduledStartTime;
end;
TVideoLiveStreamingDetailsClass = Class of TVideoLiveStreamingDetails;
@@ -4444,7 +5151,7 @@ type
Faccess : TAccessPolicy;
Protected
//Property setters
- Procedure Setaccess(AIndex : Integer; AValue : TAccessPolicy); virtual;
+ Procedure Setaccess(AIndex : Integer; const AValue : TAccessPolicy); virtual;
Public
Published
Property access : TAccessPolicy Index 0 Read Faccess Write Setaccess;
@@ -4487,7 +5194,7 @@ type
Procedure SetfileDetailsAvailability(AIndex : Integer; const AValue : String); virtual;
Procedure SetprocessingFailureReason(AIndex : Integer; const AValue : String); virtual;
Procedure SetprocessingIssuesAvailability(AIndex : Integer; const AValue : String); virtual;
- Procedure SetprocessingProgress(AIndex : Integer; AValue : TVideoProcessingDetailsProcessingProgress); virtual;
+ Procedure SetprocessingProgress(AIndex : Integer; const AValue : TVideoProcessingDetailsProcessingProgress); virtual;
Procedure SetprocessingStatus(AIndex : Integer; const AValue : String); virtual;
Procedure SettagSuggestionsAvailability(AIndex : Integer; const AValue : String); virtual;
Procedure SetthumbnailsAvailability(AIndex : Integer; const AValue : String); virtual;
@@ -4535,7 +5242,7 @@ type
Ftags : TStringArray;
Protected
//Property setters
- Procedure Settags(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure Settags(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4576,9 +5283,9 @@ type
FrecordingDate : TDatetime;
Protected
//Property setters
- Procedure Setlocation(AIndex : Integer; AValue : TGeoPoint); virtual;
+ Procedure Setlocation(AIndex : Integer; const AValue : TGeoPoint); virtual;
Procedure SetlocationDescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrecordingDate(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetrecordingDate(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property location : TGeoPoint Index 0 Read Flocation Write Setlocation;
@@ -4596,6 +5303,7 @@ type
FcategoryId : String;
FchannelId : String;
FchannelTitle : String;
+ FdefaultAudioLanguage : String;
FdefaultLanguage : String;
Fdescription : String;
FliveBroadcastContent : String;
@@ -4609,13 +5317,14 @@ type
Procedure SetcategoryId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
Procedure SetchannelTitle(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdefaultAudioLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultLanguage(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetliveBroadcastContent(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocalized(AIndex : Integer; AValue : TVideoLocalization); virtual;
- Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure Settags(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails); virtual;
+ Procedure Setlocalized(AIndex : Integer; const AValue : TVideoLocalization); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure Settags(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -4626,14 +5335,15 @@ type
Property categoryId : String Index 0 Read FcategoryId Write SetcategoryId;
Property channelId : String Index 8 Read FchannelId Write SetchannelId;
Property channelTitle : String Index 16 Read FchannelTitle Write SetchannelTitle;
- Property defaultLanguage : String Index 24 Read FdefaultLanguage Write SetdefaultLanguage;
- Property description : String Index 32 Read Fdescription Write Setdescription;
- Property liveBroadcastContent : String Index 40 Read FliveBroadcastContent Write SetliveBroadcastContent;
- Property localized : TVideoLocalization Index 48 Read Flocalized Write Setlocalized;
- Property publishedAt : TDatetime Index 56 Read FpublishedAt Write SetpublishedAt;
- Property tags : TStringArray Index 64 Read Ftags Write Settags;
- Property thumbnails : TThumbnailDetails Index 72 Read Fthumbnails Write Setthumbnails;
- Property title : String Index 80 Read Ftitle Write Settitle;
+ Property defaultAudioLanguage : String Index 24 Read FdefaultAudioLanguage Write SetdefaultAudioLanguage;
+ Property defaultLanguage : String Index 32 Read FdefaultLanguage Write SetdefaultLanguage;
+ Property description : String Index 40 Read Fdescription Write Setdescription;
+ Property liveBroadcastContent : String Index 48 Read FliveBroadcastContent Write SetliveBroadcastContent;
+ Property localized : TVideoLocalization Index 56 Read Flocalized Write Setlocalized;
+ Property publishedAt : TDatetime Index 64 Read FpublishedAt Write SetpublishedAt;
+ Property tags : TStringArray Index 72 Read Ftags Write Settags;
+ Property thumbnails : TThumbnailDetails Index 80 Read Fthumbnails Write Setthumbnails;
+ Property title : String Index 88 Read Ftitle Write Settitle;
end;
TVideoSnippetClass = Class of TVideoSnippet;
@@ -4681,12 +5391,12 @@ type
FuploadStatus : String;
Protected
//Property setters
- Procedure Setembeddable(AIndex : Integer; AValue : boolean); virtual;
+ Procedure Setembeddable(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetfailureReason(AIndex : Integer; const AValue : String); virtual;
Procedure Setlicense(AIndex : Integer; const AValue : String); virtual;
Procedure SetprivacyStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublicStatsViewable(AIndex : Integer; AValue : boolean); virtual;
- Procedure SetpublishAt(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetpublicStatsViewable(AIndex : Integer; const AValue : boolean); virtual;
+ Procedure SetpublishAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure SetrejectionReason(AIndex : Integer; const AValue : String); virtual;
Procedure SetuploadStatus(AIndex : Integer; const AValue : String); virtual;
Public
@@ -4715,11 +5425,11 @@ type
FtagSuggestions : TVideoSuggestionsTypetagSuggestionsArray;
Protected
//Property setters
- Procedure SeteditorSuggestions(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetprocessingErrors(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetprocessingHints(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SetprocessingWarnings(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SettagSuggestions(AIndex : Integer; AValue : TVideoSuggestionsTypetagSuggestionsArray); virtual;
+ Procedure SeteditorSuggestions(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetprocessingErrors(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetprocessingHints(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SetprocessingWarnings(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SettagSuggestions(AIndex : Integer; const AValue : TVideoSuggestionsTypetagSuggestionsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4744,7 +5454,7 @@ type
Ftag : String;
Protected
//Property setters
- Procedure SetcategoryRestricts(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetcategoryRestricts(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Settag(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -4767,8 +5477,8 @@ type
FtopicIds : TStringArray;
Protected
//Property setters
- Procedure SetrelevantTopicIds(AIndex : Integer; AValue : TStringArray); virtual;
- Procedure SettopicIds(AIndex : Integer; AValue : TStringArray); virtual;
+ Procedure SetrelevantTopicIds(AIndex : Integer; const AValue : TStringArray); virtual;
+ Procedure SettopicIds(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -4847,7 +5557,6 @@ type
//Optional query Options for TCaptionsResource, method Delete
TCaptionsDeleteOptions = Record
- debugProjectIdOverride : int64;
id : String;
onBehalfOf : String;
onBehalfOfContentOwner : String;
@@ -4857,7 +5566,6 @@ type
//Optional query Options for TCaptionsResource, method Download
TCaptionsDownloadOptions = Record
- debugProjectIdOverride : int64;
onBehalfOf : String;
onBehalfOfContentOwner : String;
tfmt : String;
@@ -4868,7 +5576,6 @@ type
//Optional query Options for TCaptionsResource, method Insert
TCaptionsInsertOptions = Record
- debugProjectIdOverride : int64;
onBehalfOf : String;
onBehalfOfContentOwner : String;
part : String;
@@ -4879,7 +5586,6 @@ type
//Optional query Options for TCaptionsResource, method List
TCaptionsListOptions = Record
- debugProjectIdOverride : int64;
id : String;
onBehalfOf : String;
onBehalfOfContentOwner : String;
@@ -4891,7 +5597,6 @@ type
//Optional query Options for TCaptionsResource, method Update
TCaptionsUpdateOptions = Record
- debugProjectIdOverride : int64;
onBehalfOf : String;
onBehalfOfContentOwner : String;
part : String;
@@ -5040,7 +5745,6 @@ type
TCommentThreadsInsertOptions = Record
part : String;
- shareOnGooglePlus : boolean;
end;
@@ -5153,6 +5857,29 @@ type
{ --------------------------------------------------------------------
+ TFanFundingEventsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TFanFundingEventsResource, method List
+
+ TFanFundingEventsListOptions = Record
+ hl : String;
+ maxResults : integer;
+ pageToken : String;
+ part : String;
+ end;
+
+ TFanFundingEventsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(AQuery : string = '') : TFanFundingEventListResponse;
+ Function List(AQuery : TFanFundingEventslistOptions) : TFanFundingEventListResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
TGuideCategoriesResource
--------------------------------------------------------------------}
@@ -5268,6 +5995,7 @@ type
TLiveBroadcastsListOptions = Record
broadcastStatus : String;
+ broadcastType : String;
id : String;
maxResults : integer;
mine : boolean;
@@ -5319,6 +6047,119 @@ type
{ --------------------------------------------------------------------
+ TLiveChatBansResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TLiveChatBansResource, method Delete
+
+ TLiveChatBansDeleteOptions = Record
+ id : String;
+ end;
+
+
+ //Optional query Options for TLiveChatBansResource, method Insert
+
+ TLiveChatBansInsertOptions = Record
+ part : String;
+ end;
+
+ TLiveChatBansResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure Delete(AQuery : string = '');
+ Procedure Delete(AQuery : TLiveChatBansdeleteOptions);
+ Function Insert(aLiveChatBan : TLiveChatBan; AQuery : string = '') : TLiveChatBan;
+ Function Insert(aLiveChatBan : TLiveChatBan; AQuery : TLiveChatBansinsertOptions) : TLiveChatBan;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TLiveChatMessagesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TLiveChatMessagesResource, method Delete
+
+ TLiveChatMessagesDeleteOptions = Record
+ id : String;
+ end;
+
+
+ //Optional query Options for TLiveChatMessagesResource, method Insert
+
+ TLiveChatMessagesInsertOptions = Record
+ part : String;
+ end;
+
+
+ //Optional query Options for TLiveChatMessagesResource, method List
+
+ TLiveChatMessagesListOptions = Record
+ hl : String;
+ liveChatId : String;
+ maxResults : integer;
+ pageToken : String;
+ part : String;
+ profileImageSize : integer;
+ end;
+
+ TLiveChatMessagesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure Delete(AQuery : string = '');
+ Procedure Delete(AQuery : TLiveChatMessagesdeleteOptions);
+ Function Insert(aLiveChatMessage : TLiveChatMessage; AQuery : string = '') : TLiveChatMessage;
+ Function Insert(aLiveChatMessage : TLiveChatMessage; AQuery : TLiveChatMessagesinsertOptions) : TLiveChatMessage;
+ Function List(AQuery : string = '') : TLiveChatMessageListResponse;
+ Function List(AQuery : TLiveChatMessageslistOptions) : TLiveChatMessageListResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TLiveChatModeratorsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TLiveChatModeratorsResource, method Delete
+
+ TLiveChatModeratorsDeleteOptions = Record
+ id : String;
+ end;
+
+
+ //Optional query Options for TLiveChatModeratorsResource, method Insert
+
+ TLiveChatModeratorsInsertOptions = Record
+ part : String;
+ end;
+
+
+ //Optional query Options for TLiveChatModeratorsResource, method List
+
+ TLiveChatModeratorsListOptions = Record
+ liveChatId : String;
+ maxResults : integer;
+ pageToken : String;
+ part : String;
+ end;
+
+ TLiveChatModeratorsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Procedure Delete(AQuery : string = '');
+ Procedure Delete(AQuery : TLiveChatModeratorsdeleteOptions);
+ Function Insert(aLiveChatModerator : TLiveChatModerator; AQuery : string = '') : TLiveChatModerator;
+ Function Insert(aLiveChatModerator : TLiveChatModerator; AQuery : TLiveChatModeratorsinsertOptions) : TLiveChatModerator;
+ Function List(AQuery : string = '') : TLiveChatModeratorListResponse;
+ Function List(AQuery : TLiveChatModeratorslistOptions) : TLiveChatModeratorListResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
TLiveStreamsResource
--------------------------------------------------------------------}
@@ -5541,6 +6382,29 @@ type
{ --------------------------------------------------------------------
+ TSponsorsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TSponsorsResource, method List
+
+ TSponsorsListOptions = Record
+ filter : String;
+ maxResults : integer;
+ pageToken : String;
+ part : String;
+ end;
+
+ TSponsorsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(AQuery : string = '') : TSponsorListResponse;
+ Function List(AQuery : TSponsorslistOptions) : TSponsorListResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
TSubscriptionsResource
--------------------------------------------------------------------}
@@ -5690,7 +6554,6 @@ type
TVideosListOptions = Record
chart : String;
- debugProjectIdOverride : int64;
hl : String;
id : String;
locale : String;
@@ -5708,7 +6571,6 @@ type
TVideosRateOptions = Record
id : String;
- onBehalfOfContentOwner : String;
rating : String;
end;
@@ -5792,14 +6654,19 @@ type
FChannelsInstance : TChannelsResource;
FCommentThreadsInstance : TCommentThreadsResource;
FCommentsInstance : TCommentsResource;
+ FFanFundingEventsInstance : TFanFundingEventsResource;
FGuideCategoriesInstance : TGuideCategoriesResource;
FI18nLanguagesInstance : TI18nLanguagesResource;
FI18nRegionsInstance : TI18nRegionsResource;
FLiveBroadcastsInstance : TLiveBroadcastsResource;
+ FLiveChatBansInstance : TLiveChatBansResource;
+ FLiveChatMessagesInstance : TLiveChatMessagesResource;
+ FLiveChatModeratorsInstance : TLiveChatModeratorsResource;
FLiveStreamsInstance : TLiveStreamsResource;
FPlaylistItemsInstance : TPlaylistItemsResource;
FPlaylistsInstance : TPlaylistsResource;
FSearchInstance : TSearchResource;
+ FSponsorsInstance : TSponsorsResource;
FSubscriptionsInstance : TSubscriptionsResource;
FThumbnailsInstance : TThumbnailsResource;
FVideoAbuseReportReasonsInstance : TVideoAbuseReportReasonsResource;
@@ -5813,14 +6680,19 @@ type
Function GetChannelsInstance : TChannelsResource;virtual;
Function GetCommentThreadsInstance : TCommentThreadsResource;virtual;
Function GetCommentsInstance : TCommentsResource;virtual;
+ Function GetFanFundingEventsInstance : TFanFundingEventsResource;virtual;
Function GetGuideCategoriesInstance : TGuideCategoriesResource;virtual;
Function GetI18nLanguagesInstance : TI18nLanguagesResource;virtual;
Function GetI18nRegionsInstance : TI18nRegionsResource;virtual;
Function GetLiveBroadcastsInstance : TLiveBroadcastsResource;virtual;
+ Function GetLiveChatBansInstance : TLiveChatBansResource;virtual;
+ Function GetLiveChatMessagesInstance : TLiveChatMessagesResource;virtual;
+ Function GetLiveChatModeratorsInstance : TLiveChatModeratorsResource;virtual;
Function GetLiveStreamsInstance : TLiveStreamsResource;virtual;
Function GetPlaylistItemsInstance : TPlaylistItemsResource;virtual;
Function GetPlaylistsInstance : TPlaylistsResource;virtual;
Function GetSearchInstance : TSearchResource;virtual;
+ Function GetSponsorsInstance : TSponsorsResource;virtual;
Function GetSubscriptionsInstance : TSubscriptionsResource;virtual;
Function GetThumbnailsInstance : TThumbnailsResource;virtual;
Function GetVideoAbuseReportReasonsInstance : TVideoAbuseReportReasonsResource;virtual;
@@ -5864,6 +6736,8 @@ type
Function CreateCommentThreadsResource : TCommentThreadsResource;virtual;overload;
Function CreateCommentsResource(AOwner : TComponent) : TCommentsResource;virtual;overload;
Function CreateCommentsResource : TCommentsResource;virtual;overload;
+ Function CreateFanFundingEventsResource(AOwner : TComponent) : TFanFundingEventsResource;virtual;overload;
+ Function CreateFanFundingEventsResource : TFanFundingEventsResource;virtual;overload;
Function CreateGuideCategoriesResource(AOwner : TComponent) : TGuideCategoriesResource;virtual;overload;
Function CreateGuideCategoriesResource : TGuideCategoriesResource;virtual;overload;
Function CreateI18nLanguagesResource(AOwner : TComponent) : TI18nLanguagesResource;virtual;overload;
@@ -5872,6 +6746,12 @@ type
Function CreateI18nRegionsResource : TI18nRegionsResource;virtual;overload;
Function CreateLiveBroadcastsResource(AOwner : TComponent) : TLiveBroadcastsResource;virtual;overload;
Function CreateLiveBroadcastsResource : TLiveBroadcastsResource;virtual;overload;
+ Function CreateLiveChatBansResource(AOwner : TComponent) : TLiveChatBansResource;virtual;overload;
+ Function CreateLiveChatBansResource : TLiveChatBansResource;virtual;overload;
+ Function CreateLiveChatMessagesResource(AOwner : TComponent) : TLiveChatMessagesResource;virtual;overload;
+ Function CreateLiveChatMessagesResource : TLiveChatMessagesResource;virtual;overload;
+ Function CreateLiveChatModeratorsResource(AOwner : TComponent) : TLiveChatModeratorsResource;virtual;overload;
+ Function CreateLiveChatModeratorsResource : TLiveChatModeratorsResource;virtual;overload;
Function CreateLiveStreamsResource(AOwner : TComponent) : TLiveStreamsResource;virtual;overload;
Function CreateLiveStreamsResource : TLiveStreamsResource;virtual;overload;
Function CreatePlaylistItemsResource(AOwner : TComponent) : TPlaylistItemsResource;virtual;overload;
@@ -5880,6 +6760,8 @@ type
Function CreatePlaylistsResource : TPlaylistsResource;virtual;overload;
Function CreateSearchResource(AOwner : TComponent) : TSearchResource;virtual;overload;
Function CreateSearchResource : TSearchResource;virtual;overload;
+ Function CreateSponsorsResource(AOwner : TComponent) : TSponsorsResource;virtual;overload;
+ Function CreateSponsorsResource : TSponsorsResource;virtual;overload;
Function CreateSubscriptionsResource(AOwner : TComponent) : TSubscriptionsResource;virtual;overload;
Function CreateSubscriptionsResource : TSubscriptionsResource;virtual;overload;
Function CreateThumbnailsResource(AOwner : TComponent) : TThumbnailsResource;virtual;overload;
@@ -5900,14 +6782,19 @@ type
Property ChannelsResource : TChannelsResource Read GetChannelsInstance;
Property CommentThreadsResource : TCommentThreadsResource Read GetCommentThreadsInstance;
Property CommentsResource : TCommentsResource Read GetCommentsInstance;
+ Property FanFundingEventsResource : TFanFundingEventsResource Read GetFanFundingEventsInstance;
Property GuideCategoriesResource : TGuideCategoriesResource Read GetGuideCategoriesInstance;
Property I18nLanguagesResource : TI18nLanguagesResource Read GetI18nLanguagesInstance;
Property I18nRegionsResource : TI18nRegionsResource Read GetI18nRegionsInstance;
Property LiveBroadcastsResource : TLiveBroadcastsResource Read GetLiveBroadcastsInstance;
+ Property LiveChatBansResource : TLiveChatBansResource Read GetLiveChatBansInstance;
+ Property LiveChatMessagesResource : TLiveChatMessagesResource Read GetLiveChatMessagesInstance;
+ Property LiveChatModeratorsResource : TLiveChatModeratorsResource Read GetLiveChatModeratorsInstance;
Property LiveStreamsResource : TLiveStreamsResource Read GetLiveStreamsInstance;
Property PlaylistItemsResource : TPlaylistItemsResource Read GetPlaylistItemsInstance;
Property PlaylistsResource : TPlaylistsResource Read GetPlaylistsInstance;
Property SearchResource : TSearchResource Read GetSearchInstance;
+ Property SponsorsResource : TSponsorsResource Read GetSponsorsInstance;
Property SubscriptionsResource : TSubscriptionsResource Read GetSubscriptionsInstance;
Property ThumbnailsResource : TThumbnailsResource Read GetThumbnailsInstance;
Property VideoAbuseReportReasonsResource : TVideoAbuseReportReasonsResource Read GetVideoAbuseReportReasonsInstance;
@@ -5924,7 +6811,7 @@ implementation
--------------------------------------------------------------------}
-Procedure TAccessPolicy.Setallowed(AIndex : Integer; AValue : boolean);
+Procedure TAccessPolicy.Setallowed(AIndex : Integer; const AValue : boolean);
begin
If (Fallowed=AValue) then exit;
@@ -5934,7 +6821,7 @@ end;
-Procedure TAccessPolicy.Setexception(AIndex : Integer; AValue : TStringArray);
+Procedure TAccessPolicy.Setexception(AIndex : Integer; const AValue : TStringArray);
begin
If (Fexception=AValue) then exit;
@@ -5964,7 +6851,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivity.SetcontentDetails(AIndex : Integer; AValue : TActivityContentDetails);
+Procedure TActivity.SetcontentDetails(AIndex : Integer; const AValue : TActivityContentDetails);
begin
If (FcontentDetails=AValue) then exit;
@@ -6004,7 +6891,7 @@ end;
-Procedure TActivity.Setsnippet(AIndex : Integer; AValue : TActivitySnippet);
+Procedure TActivity.Setsnippet(AIndex : Integer; const AValue : TActivitySnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -6021,7 +6908,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityContentDetails.Setbulletin(AIndex : Integer; AValue : TActivityContentDetailsBulletin);
+Procedure TActivityContentDetails.Setbulletin(AIndex : Integer; const AValue : TActivityContentDetailsBulletin);
begin
If (Fbulletin=AValue) then exit;
@@ -6031,7 +6918,7 @@ end;
-Procedure TActivityContentDetails.SetchannelItem(AIndex : Integer; AValue : TActivityContentDetailsChannelItem);
+Procedure TActivityContentDetails.SetchannelItem(AIndex : Integer; const AValue : TActivityContentDetailsChannelItem);
begin
If (FchannelItem=AValue) then exit;
@@ -6041,7 +6928,7 @@ end;
-Procedure TActivityContentDetails.Setcomment(AIndex : Integer; AValue : TActivityContentDetailsComment);
+Procedure TActivityContentDetails.Setcomment(AIndex : Integer; const AValue : TActivityContentDetailsComment);
begin
If (Fcomment=AValue) then exit;
@@ -6051,7 +6938,7 @@ end;
-Procedure TActivityContentDetails.Setfavorite(AIndex : Integer; AValue : TActivityContentDetailsFavorite);
+Procedure TActivityContentDetails.Setfavorite(AIndex : Integer; const AValue : TActivityContentDetailsFavorite);
begin
If (Ffavorite=AValue) then exit;
@@ -6061,7 +6948,7 @@ end;
-Procedure TActivityContentDetails.Setlike(AIndex : Integer; AValue : TActivityContentDetailsLike);
+Procedure TActivityContentDetails.Setlike(AIndex : Integer; const AValue : TActivityContentDetailsLike);
begin
If (Flike=AValue) then exit;
@@ -6071,7 +6958,7 @@ end;
-Procedure TActivityContentDetails.SetplaylistItem(AIndex : Integer; AValue : TActivityContentDetailsPlaylistItem);
+Procedure TActivityContentDetails.SetplaylistItem(AIndex : Integer; const AValue : TActivityContentDetailsPlaylistItem);
begin
If (FplaylistItem=AValue) then exit;
@@ -6081,7 +6968,7 @@ end;
-Procedure TActivityContentDetails.SetpromotedItem(AIndex : Integer; AValue : TActivityContentDetailsPromotedItem);
+Procedure TActivityContentDetails.SetpromotedItem(AIndex : Integer; const AValue : TActivityContentDetailsPromotedItem);
begin
If (FpromotedItem=AValue) then exit;
@@ -6091,7 +6978,7 @@ end;
-Procedure TActivityContentDetails.Setrecommendation(AIndex : Integer; AValue : TActivityContentDetailsRecommendation);
+Procedure TActivityContentDetails.Setrecommendation(AIndex : Integer; const AValue : TActivityContentDetailsRecommendation);
begin
If (Frecommendation=AValue) then exit;
@@ -6101,7 +6988,7 @@ end;
-Procedure TActivityContentDetails.Setsocial(AIndex : Integer; AValue : TActivityContentDetailsSocial);
+Procedure TActivityContentDetails.Setsocial(AIndex : Integer; const AValue : TActivityContentDetailsSocial);
begin
If (Fsocial=AValue) then exit;
@@ -6111,7 +6998,7 @@ end;
-Procedure TActivityContentDetails.Setsubscription(AIndex : Integer; AValue : TActivityContentDetailsSubscription);
+Procedure TActivityContentDetails.Setsubscription(AIndex : Integer; const AValue : TActivityContentDetailsSubscription);
begin
If (Fsubscription=AValue) then exit;
@@ -6121,7 +7008,7 @@ end;
-Procedure TActivityContentDetails.Setupload(AIndex : Integer; AValue : TActivityContentDetailsUpload);
+Procedure TActivityContentDetails.Setupload(AIndex : Integer; const AValue : TActivityContentDetailsUpload);
begin
If (Fupload=AValue) then exit;
@@ -6138,7 +7025,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityContentDetailsBulletin.SetresourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TActivityContentDetailsBulletin.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
@@ -6155,7 +7042,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityContentDetailsChannelItem.SetresourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TActivityContentDetailsChannelItem.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
@@ -6172,7 +7059,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityContentDetailsComment.SetresourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TActivityContentDetailsComment.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
@@ -6189,7 +7076,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityContentDetailsFavorite.SetresourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TActivityContentDetailsFavorite.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
@@ -6206,7 +7093,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityContentDetailsLike.SetresourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TActivityContentDetailsLike.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
@@ -6243,7 +7130,7 @@ end;
-Procedure TActivityContentDetailsPlaylistItem.SetresourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TActivityContentDetailsPlaylistItem.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
@@ -6330,7 +7217,7 @@ end;
-Procedure TActivityContentDetailsPromotedItem.SetforecastingUrl(AIndex : Integer; AValue : TStringArray);
+Procedure TActivityContentDetailsPromotedItem.SetforecastingUrl(AIndex : Integer; const AValue : TStringArray);
begin
If (FforecastingUrl=AValue) then exit;
@@ -6340,7 +7227,7 @@ end;
-Procedure TActivityContentDetailsPromotedItem.SetimpressionUrl(AIndex : Integer; AValue : TStringArray);
+Procedure TActivityContentDetailsPromotedItem.SetimpressionUrl(AIndex : Integer; const AValue : TStringArray);
begin
If (FimpressionUrl=AValue) then exit;
@@ -6391,7 +7278,7 @@ end;
-Procedure TActivityContentDetailsRecommendation.SetresourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TActivityContentDetailsRecommendation.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
@@ -6401,7 +7288,7 @@ end;
-Procedure TActivityContentDetailsRecommendation.SetseedResourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TActivityContentDetailsRecommendation.SetseedResourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FseedResourceId=AValue) then exit;
@@ -6448,7 +7335,7 @@ end;
-Procedure TActivityContentDetailsSocial.SetresourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TActivityContentDetailsSocial.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
@@ -6486,7 +7373,7 @@ end;
--------------------------------------------------------------------}
-Procedure TActivityContentDetailsSubscription.SetresourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TActivityContentDetailsSubscription.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
@@ -6540,7 +7427,7 @@ end;
-Procedure TActivityListResponse.Setitems(AIndex : Integer; AValue : TActivityListResponseTypeitemsArray);
+Procedure TActivityListResponse.Setitems(AIndex : Integer; const AValue : TActivityListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6570,7 +7457,7 @@ end;
-Procedure TActivityListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TActivityListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -6590,7 +7477,7 @@ end;
-Procedure TActivityListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TActivityListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -6670,7 +7557,7 @@ end;
-Procedure TActivitySnippet.SetpublishedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TActivitySnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
@@ -6680,7 +7567,7 @@ end;
-Procedure TActivitySnippet.Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails);
+Procedure TActivitySnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
@@ -6758,7 +7645,7 @@ end;
-Procedure TCaption.Setsnippet(AIndex : Integer; AValue : TCaptionSnippet);
+Procedure TCaption.Setsnippet(AIndex : Integer; const AValue : TCaptionSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -6795,7 +7682,7 @@ end;
-Procedure TCaptionListResponse.Setitems(AIndex : Integer; AValue : TCaptionListResponseTypeitemsArray);
+Procedure TCaptionListResponse.Setitems(AIndex : Integer; const AValue : TCaptionListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -6865,7 +7752,7 @@ end;
-Procedure TCaptionSnippet.SetisAutoSynced(AIndex : Integer; AValue : boolean);
+Procedure TCaptionSnippet.SetisAutoSynced(AIndex : Integer; const AValue : boolean);
begin
If (FisAutoSynced=AValue) then exit;
@@ -6875,7 +7762,7 @@ end;
-Procedure TCaptionSnippet.SetisCC(AIndex : Integer; AValue : boolean);
+Procedure TCaptionSnippet.SetisCC(AIndex : Integer; const AValue : boolean);
begin
If (FisCC=AValue) then exit;
@@ -6885,7 +7772,7 @@ end;
-Procedure TCaptionSnippet.SetisDraft(AIndex : Integer; AValue : boolean);
+Procedure TCaptionSnippet.SetisDraft(AIndex : Integer; const AValue : boolean);
begin
If (FisDraft=AValue) then exit;
@@ -6895,7 +7782,7 @@ end;
-Procedure TCaptionSnippet.SetisEasyReader(AIndex : Integer; AValue : boolean);
+Procedure TCaptionSnippet.SetisEasyReader(AIndex : Integer; const AValue : boolean);
begin
If (FisEasyReader=AValue) then exit;
@@ -6905,7 +7792,7 @@ end;
-Procedure TCaptionSnippet.SetisLarge(AIndex : Integer; AValue : boolean);
+Procedure TCaptionSnippet.SetisLarge(AIndex : Integer; const AValue : boolean);
begin
If (FisLarge=AValue) then exit;
@@ -6925,7 +7812,7 @@ end;
-Procedure TCaptionSnippet.SetlastUpdated(AIndex : Integer; AValue : TDatetime);
+Procedure TCaptionSnippet.SetlastUpdated(AIndex : Integer; const AValue : TDatetime);
begin
If (FlastUpdated=AValue) then exit;
@@ -6992,7 +7879,17 @@ end;
-Procedure TCdnSettings.SetingestionInfo(AIndex : Integer; AValue : TIngestionInfo);
+Procedure TCdnSettings.SetframeRate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FframeRate=AValue) then exit;
+ FframeRate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TCdnSettings.SetingestionInfo(AIndex : Integer; const AValue : TIngestionInfo);
begin
If (FingestionInfo=AValue) then exit;
@@ -7012,6 +7909,16 @@ end;
+Procedure TCdnSettings.Setresolution(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fresolution=AValue) then exit;
+ Fresolution:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -7032,7 +7939,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChannel.SetauditDetails(AIndex : Integer; AValue : TChannelAuditDetails);
+Procedure TChannel.SetauditDetails(AIndex : Integer; const AValue : TChannelAuditDetails);
begin
If (FauditDetails=AValue) then exit;
@@ -7042,7 +7949,7 @@ end;
-Procedure TChannel.SetbrandingSettings(AIndex : Integer; AValue : TChannelBrandingSettings);
+Procedure TChannel.SetbrandingSettings(AIndex : Integer; const AValue : TChannelBrandingSettings);
begin
If (FbrandingSettings=AValue) then exit;
@@ -7052,7 +7959,7 @@ end;
-Procedure TChannel.SetcontentDetails(AIndex : Integer; AValue : TChannelContentDetails);
+Procedure TChannel.SetcontentDetails(AIndex : Integer; const AValue : TChannelContentDetails);
begin
If (FcontentDetails=AValue) then exit;
@@ -7062,7 +7969,7 @@ end;
-Procedure TChannel.SetcontentOwnerDetails(AIndex : Integer; AValue : TChannelContentOwnerDetails);
+Procedure TChannel.SetcontentOwnerDetails(AIndex : Integer; const AValue : TChannelContentOwnerDetails);
begin
If (FcontentOwnerDetails=AValue) then exit;
@@ -7072,7 +7979,7 @@ end;
-Procedure TChannel.SetconversionPings(AIndex : Integer; AValue : TChannelConversionPings);
+Procedure TChannel.SetconversionPings(AIndex : Integer; const AValue : TChannelConversionPings);
begin
If (FconversionPings=AValue) then exit;
@@ -7102,7 +8009,7 @@ end;
-Procedure TChannel.SetinvideoPromotion(AIndex : Integer; AValue : TInvideoPromotion);
+Procedure TChannel.SetinvideoPromotion(AIndex : Integer; const AValue : TInvideoPromotion);
begin
If (FinvideoPromotion=AValue) then exit;
@@ -7122,7 +8029,7 @@ end;
-Procedure TChannel.Setlocalizations(AIndex : Integer; AValue : TChannelTypelocalizations);
+Procedure TChannel.Setlocalizations(AIndex : Integer; const AValue : TChannelTypelocalizations);
begin
If (Flocalizations=AValue) then exit;
@@ -7132,7 +8039,7 @@ end;
-Procedure TChannel.Setsnippet(AIndex : Integer; AValue : TChannelSnippet);
+Procedure TChannel.Setsnippet(AIndex : Integer; const AValue : TChannelSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -7142,7 +8049,7 @@ end;
-Procedure TChannel.Setstatistics(AIndex : Integer; AValue : TChannelStatistics);
+Procedure TChannel.Setstatistics(AIndex : Integer; const AValue : TChannelStatistics);
begin
If (Fstatistics=AValue) then exit;
@@ -7152,7 +8059,7 @@ end;
-Procedure TChannel.Setstatus(AIndex : Integer; AValue : TChannelStatus);
+Procedure TChannel.Setstatus(AIndex : Integer; const AValue : TChannelStatus);
begin
If (Fstatus=AValue) then exit;
@@ -7162,7 +8069,7 @@ end;
-Procedure TChannel.SettopicDetails(AIndex : Integer; AValue : TChannelTopicDetails);
+Procedure TChannel.SettopicDetails(AIndex : Integer; const AValue : TChannelTopicDetails);
begin
If (FtopicDetails=AValue) then exit;
@@ -7179,7 +8086,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChannelAuditDetails.SetcommunityGuidelinesGoodStanding(AIndex : Integer; AValue : boolean);
+Procedure TChannelAuditDetails.SetcommunityGuidelinesGoodStanding(AIndex : Integer; const AValue : boolean);
begin
If (FcommunityGuidelinesGoodStanding=AValue) then exit;
@@ -7189,7 +8096,7 @@ end;
-Procedure TChannelAuditDetails.SetcontentIdClaimsGoodStanding(AIndex : Integer; AValue : boolean);
+Procedure TChannelAuditDetails.SetcontentIdClaimsGoodStanding(AIndex : Integer; const AValue : boolean);
begin
If (FcontentIdClaimsGoodStanding=AValue) then exit;
@@ -7199,7 +8106,7 @@ end;
-Procedure TChannelAuditDetails.SetcopyrightStrikesGoodStanding(AIndex : Integer; AValue : boolean);
+Procedure TChannelAuditDetails.SetcopyrightStrikesGoodStanding(AIndex : Integer; const AValue : boolean);
begin
If (FcopyrightStrikesGoodStanding=AValue) then exit;
@@ -7209,7 +8116,7 @@ end;
-Procedure TChannelAuditDetails.SetoverallGoodStanding(AIndex : Integer; AValue : boolean);
+Procedure TChannelAuditDetails.SetoverallGoodStanding(AIndex : Integer; const AValue : boolean);
begin
If (FoverallGoodStanding=AValue) then exit;
@@ -7263,7 +8170,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChannelBrandingSettings.Setchannel(AIndex : Integer; AValue : TChannelSettings);
+Procedure TChannelBrandingSettings.Setchannel(AIndex : Integer; const AValue : TChannelSettings);
begin
If (Fchannel=AValue) then exit;
@@ -7273,7 +8180,7 @@ end;
-Procedure TChannelBrandingSettings.Sethints(AIndex : Integer; AValue : TChannelBrandingSettingsTypehintsArray);
+Procedure TChannelBrandingSettings.Sethints(AIndex : Integer; const AValue : TChannelBrandingSettingsTypehintsArray);
begin
If (Fhints=AValue) then exit;
@@ -7283,7 +8190,7 @@ end;
-Procedure TChannelBrandingSettings.Setimage(AIndex : Integer; AValue : TImageSettings);
+Procedure TChannelBrandingSettings.Setimage(AIndex : Integer; const AValue : TImageSettings);
begin
If (Fimage=AValue) then exit;
@@ -7293,7 +8200,7 @@ end;
-Procedure TChannelBrandingSettings.Setwatch(AIndex : Integer; AValue : TWatchSettings);
+Procedure TChannelBrandingSettings.Setwatch(AIndex : Integer; const AValue : TWatchSettings);
begin
If (Fwatch=AValue) then exit;
@@ -7390,7 +8297,7 @@ end;
-Procedure TChannelContentDetails.SetrelatedPlaylists(AIndex : Integer; AValue : TChannelContentDetailsTyperelatedPlaylists);
+Procedure TChannelContentDetails.SetrelatedPlaylists(AIndex : Integer; const AValue : TChannelContentDetailsTyperelatedPlaylists);
begin
If (FrelatedPlaylists=AValue) then exit;
@@ -7417,7 +8324,7 @@ end;
-Procedure TChannelContentOwnerDetails.SettimeLinked(AIndex : Integer; AValue : TDatetime);
+Procedure TChannelContentOwnerDetails.SettimeLinked(AIndex : Integer; const AValue : TDatetime);
begin
If (FtimeLinked=AValue) then exit;
@@ -7461,7 +8368,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChannelConversionPings.Setpings(AIndex : Integer; AValue : TChannelConversionPingsTypepingsArray);
+Procedure TChannelConversionPings.Setpings(AIndex : Integer; const AValue : TChannelConversionPingsTypepingsArray);
begin
If (Fpings=AValue) then exit;
@@ -7487,23 +8394,6 @@ end;
{ --------------------------------------------------------------------
- TChannelId
- --------------------------------------------------------------------}
-
-
-Procedure TChannelId.Setvalue(AIndex : Integer; const AValue : String);
-
-begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
TChannelListResponse
--------------------------------------------------------------------}
@@ -7528,7 +8418,7 @@ end;
-Procedure TChannelListResponse.Setitems(AIndex : Integer; AValue : TChannelListResponseTypeitemsArray);
+Procedure TChannelListResponse.Setitems(AIndex : Integer; const AValue : TChannelListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -7558,7 +8448,7 @@ end;
-Procedure TChannelListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TChannelListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -7578,7 +8468,7 @@ end;
-Procedure TChannelListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TChannelListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -7641,6 +8531,53 @@ end;
{ --------------------------------------------------------------------
+ TChannelProfileDetails
+ --------------------------------------------------------------------}
+
+
+Procedure TChannelProfileDetails.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TChannelProfileDetails.SetchannelUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelUrl=AValue) then exit;
+ FchannelUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TChannelProfileDetails.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TChannelProfileDetails.SetprofileImageUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprofileImageUrl=AValue) then exit;
+ FprofileImageUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TChannelSectionTypelocalizations
--------------------------------------------------------------------}
@@ -7658,7 +8595,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChannelSection.SetcontentDetails(AIndex : Integer; AValue : TChannelSectionContentDetails);
+Procedure TChannelSection.SetcontentDetails(AIndex : Integer; const AValue : TChannelSectionContentDetails);
begin
If (FcontentDetails=AValue) then exit;
@@ -7698,7 +8635,7 @@ end;
-Procedure TChannelSection.Setlocalizations(AIndex : Integer; AValue : TChannelSectionTypelocalizations);
+Procedure TChannelSection.Setlocalizations(AIndex : Integer; const AValue : TChannelSectionTypelocalizations);
begin
If (Flocalizations=AValue) then exit;
@@ -7708,7 +8645,7 @@ end;
-Procedure TChannelSection.Setsnippet(AIndex : Integer; AValue : TChannelSectionSnippet);
+Procedure TChannelSection.Setsnippet(AIndex : Integer; const AValue : TChannelSectionSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -7718,7 +8655,7 @@ end;
-Procedure TChannelSection.Settargeting(AIndex : Integer; AValue : TChannelSectionTargeting);
+Procedure TChannelSection.Settargeting(AIndex : Integer; const AValue : TChannelSectionTargeting);
begin
If (Ftargeting=AValue) then exit;
@@ -7735,7 +8672,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChannelSectionContentDetails.Setchannels(AIndex : Integer; AValue : TStringArray);
+Procedure TChannelSectionContentDetails.Setchannels(AIndex : Integer; const AValue : TStringArray);
begin
If (Fchannels=AValue) then exit;
@@ -7745,7 +8682,7 @@ end;
-Procedure TChannelSectionContentDetails.Setplaylists(AIndex : Integer; AValue : TStringArray);
+Procedure TChannelSectionContentDetails.Setplaylists(AIndex : Integer; const AValue : TStringArray);
begin
If (Fplaylists=AValue) then exit;
@@ -7796,7 +8733,7 @@ end;
-Procedure TChannelSectionListResponse.Setitems(AIndex : Integer; AValue : TChannelSectionListResponseTypeitemsArray);
+Procedure TChannelSectionListResponse.Setitems(AIndex : Integer; const AValue : TChannelSectionListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -7883,7 +8820,7 @@ end;
-Procedure TChannelSectionSnippet.Setlocalized(AIndex : Integer; AValue : TChannelSectionLocalization);
+Procedure TChannelSectionSnippet.Setlocalized(AIndex : Integer; const AValue : TChannelSectionLocalization);
begin
If (Flocalized=AValue) then exit;
@@ -7893,7 +8830,7 @@ end;
-Procedure TChannelSectionSnippet.Setposition(AIndex : Integer; AValue : integer);
+Procedure TChannelSectionSnippet.Setposition(AIndex : Integer; const AValue : integer);
begin
If (Fposition=AValue) then exit;
@@ -7951,7 +8888,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChannelSectionTargeting.Setcountries(AIndex : Integer; AValue : TStringArray);
+Procedure TChannelSectionTargeting.Setcountries(AIndex : Integer; const AValue : TStringArray);
begin
If (Fcountries=AValue) then exit;
@@ -7961,7 +8898,7 @@ end;
-Procedure TChannelSectionTargeting.Setlanguages(AIndex : Integer; AValue : TStringArray);
+Procedure TChannelSectionTargeting.Setlanguages(AIndex : Integer; const AValue : TStringArray);
begin
If (Flanguages=AValue) then exit;
@@ -7971,7 +8908,7 @@ end;
-Procedure TChannelSectionTargeting.Setregions(AIndex : Integer; AValue : TStringArray);
+Procedure TChannelSectionTargeting.Setregions(AIndex : Integer; const AValue : TStringArray);
begin
If (Fregions=AValue) then exit;
@@ -8053,7 +8990,7 @@ end;
-Procedure TChannelSettings.SetfeaturedChannelsUrls(AIndex : Integer; AValue : TStringArray);
+Procedure TChannelSettings.SetfeaturedChannelsUrls(AIndex : Integer; const AValue : TStringArray);
begin
If (FfeaturedChannelsUrls=AValue) then exit;
@@ -8073,7 +9010,7 @@ end;
-Procedure TChannelSettings.SetmoderateComments(AIndex : Integer; AValue : boolean);
+Procedure TChannelSettings.SetmoderateComments(AIndex : Integer; const AValue : boolean);
begin
If (FmoderateComments=AValue) then exit;
@@ -8093,7 +9030,7 @@ end;
-Procedure TChannelSettings.SetshowBrowseView(AIndex : Integer; AValue : boolean);
+Procedure TChannelSettings.SetshowBrowseView(AIndex : Integer; const AValue : boolean);
begin
If (FshowBrowseView=AValue) then exit;
@@ -8103,7 +9040,7 @@ end;
-Procedure TChannelSettings.SetshowRelatedChannels(AIndex : Integer; AValue : boolean);
+Procedure TChannelSettings.SetshowRelatedChannels(AIndex : Integer; const AValue : boolean);
begin
If (FshowRelatedChannels=AValue) then exit;
@@ -8173,6 +9110,16 @@ end;
+Procedure TChannelSnippet.SetcustomUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcustomUrl=AValue) then exit;
+ FcustomUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TChannelSnippet.SetdefaultLanguage(AIndex : Integer; const AValue : String);
begin
@@ -8193,7 +9140,7 @@ end;
-Procedure TChannelSnippet.Setlocalized(AIndex : Integer; AValue : TChannelLocalization);
+Procedure TChannelSnippet.Setlocalized(AIndex : Integer; const AValue : TChannelLocalization);
begin
If (Flocalized=AValue) then exit;
@@ -8203,7 +9150,7 @@ end;
-Procedure TChannelSnippet.SetpublishedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TChannelSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
@@ -8213,7 +9160,7 @@ end;
-Procedure TChannelSnippet.Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails);
+Procedure TChannelSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
@@ -8250,7 +9197,7 @@ end;
-Procedure TChannelStatistics.SethiddenSubscriberCount(AIndex : Integer; AValue : boolean);
+Procedure TChannelStatistics.SethiddenSubscriberCount(AIndex : Integer; const AValue : boolean);
begin
If (FhiddenSubscriberCount=AValue) then exit;
@@ -8297,7 +9244,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChannelStatus.SetisLinked(AIndex : Integer; AValue : boolean);
+Procedure TChannelStatus.SetisLinked(AIndex : Integer; const AValue : boolean);
begin
If (FisLinked=AValue) then exit;
@@ -8334,7 +9281,7 @@ end;
--------------------------------------------------------------------}
-Procedure TChannelTopicDetails.SettopicIds(AIndex : Integer; AValue : TStringArray);
+Procedure TChannelTopicDetails.SettopicIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FtopicIds=AValue) then exit;
@@ -8394,7 +9341,7 @@ end;
-Procedure TComment.Setsnippet(AIndex : Integer; AValue : TCommentSnippet);
+Procedure TComment.Setsnippet(AIndex : Integer; const AValue : TCommentSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -8431,7 +9378,7 @@ end;
-Procedure TCommentListResponse.Setitems(AIndex : Integer; AValue : TCommentListResponseTypeitemsArray);
+Procedure TCommentListResponse.Setitems(AIndex : Integer; const AValue : TCommentListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -8461,7 +9408,7 @@ end;
-Procedure TCommentListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TCommentListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -8471,7 +9418,7 @@ end;
-Procedure TCommentListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TCommentListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -8511,7 +9458,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCommentSnippet.SetauthorChannelId(AIndex : Integer; AValue : TChannelId);
+Procedure TCommentSnippet.SetauthorChannelId(AIndex : Integer; const AValue : TJSONSchema);
begin
If (FauthorChannelId=AValue) then exit;
@@ -8561,7 +9508,7 @@ end;
-Procedure TCommentSnippet.SetcanRate(AIndex : Integer; AValue : boolean);
+Procedure TCommentSnippet.SetcanRate(AIndex : Integer; const AValue : boolean);
begin
If (FcanRate=AValue) then exit;
@@ -8581,7 +9528,7 @@ end;
-Procedure TCommentSnippet.SetlikeCount(AIndex : Integer; AValue : integer);
+Procedure TCommentSnippet.SetlikeCount(AIndex : Integer; const AValue : integer);
begin
If (FlikeCount=AValue) then exit;
@@ -8611,7 +9558,7 @@ end;
-Procedure TCommentSnippet.SetpublishedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TCommentSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
@@ -8641,7 +9588,7 @@ end;
-Procedure TCommentSnippet.SetupdatedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TCommentSnippet.SetupdatedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FupdatedAt=AValue) then exit;
@@ -8708,7 +9655,7 @@ end;
-Procedure TCommentThread.Setreplies(AIndex : Integer; AValue : TCommentThreadReplies);
+Procedure TCommentThread.Setreplies(AIndex : Integer; const AValue : TCommentThreadReplies);
begin
If (Freplies=AValue) then exit;
@@ -8718,7 +9665,7 @@ end;
-Procedure TCommentThread.Setsnippet(AIndex : Integer; AValue : TCommentThreadSnippet);
+Procedure TCommentThread.Setsnippet(AIndex : Integer; const AValue : TCommentThreadSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -8755,7 +9702,7 @@ end;
-Procedure TCommentThreadListResponse.Setitems(AIndex : Integer; AValue : TCommentThreadListResponseTypeitemsArray);
+Procedure TCommentThreadListResponse.Setitems(AIndex : Integer; const AValue : TCommentThreadListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -8785,7 +9732,7 @@ end;
-Procedure TCommentThreadListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TCommentThreadListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -8795,7 +9742,7 @@ end;
-Procedure TCommentThreadListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TCommentThreadListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -8835,7 +9782,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCommentThreadReplies.Setcomments(AIndex : Integer; AValue : TCommentThreadRepliesTypecommentsArray);
+Procedure TCommentThreadReplies.Setcomments(AIndex : Integer; const AValue : TCommentThreadRepliesTypecommentsArray);
begin
If (Fcomments=AValue) then exit;
@@ -8865,7 +9812,7 @@ end;
--------------------------------------------------------------------}
-Procedure TCommentThreadSnippet.SetcanReply(AIndex : Integer; AValue : boolean);
+Procedure TCommentThreadSnippet.SetcanReply(AIndex : Integer; const AValue : boolean);
begin
If (FcanReply=AValue) then exit;
@@ -8885,7 +9832,7 @@ end;
-Procedure TCommentThreadSnippet.SetisPublic(AIndex : Integer; AValue : boolean);
+Procedure TCommentThreadSnippet.SetisPublic(AIndex : Integer; const AValue : boolean);
begin
If (FisPublic=AValue) then exit;
@@ -8895,7 +9842,7 @@ end;
-Procedure TCommentThreadSnippet.SettopLevelComment(AIndex : Integer; AValue : TComment);
+Procedure TCommentThreadSnippet.SettopLevelComment(AIndex : Integer; const AValue : TComment);
begin
If (FtopLevelComment=AValue) then exit;
@@ -8905,7 +9852,7 @@ end;
-Procedure TCommentThreadSnippet.SettotalReplyCount(AIndex : Integer; AValue : integer);
+Procedure TCommentThreadSnippet.SettotalReplyCount(AIndex : Integer; const AValue : integer);
begin
If (FtotalReplyCount=AValue) then exit;
@@ -9082,6 +10029,16 @@ end;
+Procedure TContentRating.SetcncRating(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcncRating=AValue) then exit;
+ FcncRating:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TContentRating.SetcsaRating(AIndex : Integer; const AValue : String);
begin
@@ -9122,7 +10079,7 @@ end;
-Procedure TContentRating.SetdjctqRatingReasons(AIndex : Integer; AValue : TStringArray);
+Procedure TContentRating.SetdjctqRatingReasons(AIndex : Integer; const AValue : TStringArray);
begin
If (FdjctqRatingReasons=AValue) then exit;
@@ -9132,6 +10089,16 @@ end;
+Procedure TContentRating.SetecbmctRating(AIndex : Integer; const AValue : String);
+
+begin
+ If (FecbmctRating=AValue) then exit;
+ FecbmctRating:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TContentRating.SeteefilmRating(AIndex : Integer; const AValue : String);
begin
@@ -9599,11 +10566,235 @@ end;
{ --------------------------------------------------------------------
+ TFanFundingEvent
+ --------------------------------------------------------------------}
+
+
+Procedure TFanFundingEvent.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEvent.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEvent.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEvent.Setsnippet(AIndex : Integer; const AValue : TFanFundingEventSnippet);
+
+begin
+ If (Fsnippet=AValue) then exit;
+ Fsnippet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TFanFundingEventListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TFanFundingEventListResponse.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventListResponse.SeteventId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FeventId=AValue) then exit;
+ FeventId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventListResponse.Setitems(AIndex : Integer; const AValue : TFanFundingEventListResponseTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventListResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
+
+begin
+ If (FpageInfo=AValue) then exit;
+ FpageInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
+
+begin
+ If (FtokenPagination=AValue) then exit;
+ FtokenPagination:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvisitorId=AValue) then exit;
+ FvisitorId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TFanFundingEventListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TFanFundingEventSnippet
+ --------------------------------------------------------------------}
+
+
+Procedure TFanFundingEventSnippet.SetamountMicros(AIndex : Integer; const AValue : String);
+
+begin
+ If (FamountMicros=AValue) then exit;
+ FamountMicros:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventSnippet.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventSnippet.SetcommentText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcommentText=AValue) then exit;
+ FcommentText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventSnippet.SetcreatedAt(AIndex : Integer; const AValue : TDatetime);
+
+begin
+ If (FcreatedAt=AValue) then exit;
+ FcreatedAt:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventSnippet.Setcurrency(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcurrency=AValue) then exit;
+ Fcurrency:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventSnippet.SetdisplayString(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayString=AValue) then exit;
+ FdisplayString:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TFanFundingEventSnippet.SetsupporterDetails(AIndex : Integer; const AValue : TChannelProfileDetails);
+
+begin
+ If (FsupporterDetails=AValue) then exit;
+ FsupporterDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TGeoPoint
--------------------------------------------------------------------}
-Procedure TGeoPoint.Setaltitude(AIndex : Integer; AValue : double);
+Procedure TGeoPoint.Setaltitude(AIndex : Integer; const AValue : double);
begin
If (Faltitude=AValue) then exit;
@@ -9613,7 +10804,7 @@ end;
-Procedure TGeoPoint.Setlatitude(AIndex : Integer; AValue : double);
+Procedure TGeoPoint.Setlatitude(AIndex : Integer; const AValue : double);
begin
If (Flatitude=AValue) then exit;
@@ -9623,7 +10814,7 @@ end;
-Procedure TGeoPoint.Setlongitude(AIndex : Integer; AValue : double);
+Procedure TGeoPoint.Setlongitude(AIndex : Integer; const AValue : double);
begin
If (Flongitude=AValue) then exit;
@@ -9670,7 +10861,7 @@ end;
-Procedure TGuideCategory.Setsnippet(AIndex : Integer; AValue : TGuideCategorySnippet);
+Procedure TGuideCategory.Setsnippet(AIndex : Integer; const AValue : TGuideCategorySnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -9707,7 +10898,7 @@ end;
-Procedure TGuideCategoryListResponse.Setitems(AIndex : Integer; AValue : TGuideCategoryListResponseTypeitemsArray);
+Procedure TGuideCategoryListResponse.Setitems(AIndex : Integer; const AValue : TGuideCategoryListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -9737,7 +10928,7 @@ end;
-Procedure TGuideCategoryListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TGuideCategoryListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -9757,7 +10948,7 @@ end;
-Procedure TGuideCategoryListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TGuideCategoryListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -9854,7 +11045,7 @@ end;
-Procedure TI18nLanguage.Setsnippet(AIndex : Integer; AValue : TI18nLanguageSnippet);
+Procedure TI18nLanguage.Setsnippet(AIndex : Integer; const AValue : TI18nLanguageSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -9891,7 +11082,7 @@ end;
-Procedure TI18nLanguageListResponse.Setitems(AIndex : Integer; AValue : TI18nLanguageListResponseTypeitemsArray);
+Procedure TI18nLanguageListResponse.Setitems(AIndex : Integer; const AValue : TI18nLanguageListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -9998,7 +11189,7 @@ end;
-Procedure TI18nRegion.Setsnippet(AIndex : Integer; AValue : TI18nRegionSnippet);
+Procedure TI18nRegion.Setsnippet(AIndex : Integer; const AValue : TI18nRegionSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -10035,7 +11226,7 @@ end;
-Procedure TI18nRegionListResponse.Setitems(AIndex : Integer; AValue : TI18nRegionListResponseTypeitemsArray);
+Procedure TI18nRegionListResponse.Setitems(AIndex : Integer; const AValue : TI18nRegionListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -10112,7 +11303,7 @@ end;
--------------------------------------------------------------------}
-Procedure TImageSettings.SetbackgroundImageUrl(AIndex : Integer; AValue : TLocalizedProperty);
+Procedure TImageSettings.SetbackgroundImageUrl(AIndex : Integer; const AValue : TLocalizedProperty);
begin
If (FbackgroundImageUrl=AValue) then exit;
@@ -10272,7 +11463,7 @@ end;
-Procedure TImageSettings.SetlargeBrandedBannerImageImapScript(AIndex : Integer; AValue : TLocalizedProperty);
+Procedure TImageSettings.SetlargeBrandedBannerImageImapScript(AIndex : Integer; const AValue : TLocalizedProperty);
begin
If (FlargeBrandedBannerImageImapScript=AValue) then exit;
@@ -10282,7 +11473,7 @@ end;
-Procedure TImageSettings.SetlargeBrandedBannerImageUrl(AIndex : Integer; AValue : TLocalizedProperty);
+Procedure TImageSettings.SetlargeBrandedBannerImageUrl(AIndex : Integer; const AValue : TLocalizedProperty);
begin
If (FlargeBrandedBannerImageUrl=AValue) then exit;
@@ -10292,7 +11483,7 @@ end;
-Procedure TImageSettings.SetsmallBrandedBannerImageImapScript(AIndex : Integer; AValue : TLocalizedProperty);
+Procedure TImageSettings.SetsmallBrandedBannerImageImapScript(AIndex : Integer; const AValue : TLocalizedProperty);
begin
If (FsmallBrandedBannerImageImapScript=AValue) then exit;
@@ -10302,7 +11493,7 @@ end;
-Procedure TImageSettings.SetsmallBrandedBannerImageUrl(AIndex : Integer; AValue : TLocalizedProperty);
+Procedure TImageSettings.SetsmallBrandedBannerImageUrl(AIndex : Integer; const AValue : TLocalizedProperty);
begin
If (FsmallBrandedBannerImageUrl=AValue) then exit;
@@ -10396,7 +11587,7 @@ end;
-Procedure TInvideoBranding.Setposition(AIndex : Integer; AValue : TInvideoPosition);
+Procedure TInvideoBranding.Setposition(AIndex : Integer; const AValue : TInvideoPosition);
begin
If (Fposition=AValue) then exit;
@@ -10416,7 +11607,7 @@ end;
-Procedure TInvideoBranding.Settiming(AIndex : Integer; AValue : TInvideoTiming);
+Procedure TInvideoBranding.Settiming(AIndex : Integer; const AValue : TInvideoTiming);
begin
If (Ftiming=AValue) then exit;
@@ -10471,7 +11662,7 @@ end;
--------------------------------------------------------------------}
-Procedure TInvideoPromotion.SetdefaultTiming(AIndex : Integer; AValue : TInvideoTiming);
+Procedure TInvideoPromotion.SetdefaultTiming(AIndex : Integer; const AValue : TInvideoTiming);
begin
If (FdefaultTiming=AValue) then exit;
@@ -10481,7 +11672,7 @@ end;
-Procedure TInvideoPromotion.Setitems(AIndex : Integer; AValue : TInvideoPromotionTypeitemsArray);
+Procedure TInvideoPromotion.Setitems(AIndex : Integer; const AValue : TInvideoPromotionTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -10491,7 +11682,7 @@ end;
-Procedure TInvideoPromotion.Setposition(AIndex : Integer; AValue : TInvideoPosition);
+Procedure TInvideoPromotion.Setposition(AIndex : Integer; const AValue : TInvideoPosition);
begin
If (Fposition=AValue) then exit;
@@ -10501,7 +11692,7 @@ end;
-Procedure TInvideoPromotion.SetuseSmartTiming(AIndex : Integer; AValue : boolean);
+Procedure TInvideoPromotion.SetuseSmartTiming(AIndex : Integer; const AValue : boolean);
begin
If (FuseSmartTiming=AValue) then exit;
@@ -10596,7 +11787,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLiveBroadcast.SetcontentDetails(AIndex : Integer; AValue : TLiveBroadcastContentDetails);
+Procedure TLiveBroadcast.SetcontentDetails(AIndex : Integer; const AValue : TLiveBroadcastContentDetails);
begin
If (FcontentDetails=AValue) then exit;
@@ -10636,7 +11827,7 @@ end;
-Procedure TLiveBroadcast.Setsnippet(AIndex : Integer; AValue : TLiveBroadcastSnippet);
+Procedure TLiveBroadcast.Setsnippet(AIndex : Integer; const AValue : TLiveBroadcastSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -10646,7 +11837,17 @@ end;
-Procedure TLiveBroadcast.Setstatus(AIndex : Integer; AValue : TLiveBroadcastStatus);
+Procedure TLiveBroadcast.Setstatistics(AIndex : Integer; const AValue : TLiveBroadcastStatistics);
+
+begin
+ If (Fstatistics=AValue) then exit;
+ Fstatistics:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveBroadcast.Setstatus(AIndex : Integer; const AValue : TLiveBroadcastStatus);
begin
If (Fstatus=AValue) then exit;
@@ -10656,6 +11857,16 @@ end;
+Procedure TLiveBroadcast.SettopicDetails(AIndex : Integer; const AValue : TLiveBroadcastTopicDetails);
+
+begin
+ If (FtopicDetails=AValue) then exit;
+ FtopicDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
{ --------------------------------------------------------------------
@@ -10673,7 +11884,27 @@ end;
-Procedure TLiveBroadcastContentDetails.SetenableClosedCaptions(AIndex : Integer; AValue : boolean);
+Procedure TLiveBroadcastContentDetails.SetboundStreamLastUpdateTimeMs(AIndex : Integer; const AValue : TDatetime);
+
+begin
+ If (FboundStreamLastUpdateTimeMs=AValue) then exit;
+ FboundStreamLastUpdateTimeMs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveBroadcastContentDetails.SetclosedCaptionsType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FclosedCaptionsType=AValue) then exit;
+ FclosedCaptionsType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveBroadcastContentDetails.SetenableClosedCaptions(AIndex : Integer; const AValue : boolean);
begin
If (FenableClosedCaptions=AValue) then exit;
@@ -10683,7 +11914,7 @@ end;
-Procedure TLiveBroadcastContentDetails.SetenableContentEncryption(AIndex : Integer; AValue : boolean);
+Procedure TLiveBroadcastContentDetails.SetenableContentEncryption(AIndex : Integer; const AValue : boolean);
begin
If (FenableContentEncryption=AValue) then exit;
@@ -10693,7 +11924,7 @@ end;
-Procedure TLiveBroadcastContentDetails.SetenableDvr(AIndex : Integer; AValue : boolean);
+Procedure TLiveBroadcastContentDetails.SetenableDvr(AIndex : Integer; const AValue : boolean);
begin
If (FenableDvr=AValue) then exit;
@@ -10703,7 +11934,7 @@ end;
-Procedure TLiveBroadcastContentDetails.SetenableEmbed(AIndex : Integer; AValue : boolean);
+Procedure TLiveBroadcastContentDetails.SetenableEmbed(AIndex : Integer; const AValue : boolean);
begin
If (FenableEmbed=AValue) then exit;
@@ -10713,7 +11944,17 @@ end;
-Procedure TLiveBroadcastContentDetails.SetmonitorStream(AIndex : Integer; AValue : TMonitorStreamInfo);
+Procedure TLiveBroadcastContentDetails.SetenableLowLatency(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FenableLowLatency=AValue) then exit;
+ FenableLowLatency:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveBroadcastContentDetails.SetmonitorStream(AIndex : Integer; const AValue : TMonitorStreamInfo);
begin
If (FmonitorStream=AValue) then exit;
@@ -10723,7 +11964,17 @@ end;
-Procedure TLiveBroadcastContentDetails.SetrecordFromStart(AIndex : Integer; AValue : boolean);
+Procedure TLiveBroadcastContentDetails.Setprojection(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fprojection=AValue) then exit;
+ Fprojection:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveBroadcastContentDetails.SetrecordFromStart(AIndex : Integer; const AValue : boolean);
begin
If (FrecordFromStart=AValue) then exit;
@@ -10733,7 +11984,7 @@ end;
-Procedure TLiveBroadcastContentDetails.SetstartWithSlate(AIndex : Integer; AValue : boolean);
+Procedure TLiveBroadcastContentDetails.SetstartWithSlate(AIndex : Integer; const AValue : boolean);
begin
If (FstartWithSlate=AValue) then exit;
@@ -10770,7 +12021,7 @@ end;
-Procedure TLiveBroadcastListResponse.Setitems(AIndex : Integer; AValue : TLiveBroadcastListResponseTypeitemsArray);
+Procedure TLiveBroadcastListResponse.Setitems(AIndex : Integer; const AValue : TLiveBroadcastListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -10800,7 +12051,7 @@ end;
-Procedure TLiveBroadcastListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TLiveBroadcastListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -10820,7 +12071,7 @@ end;
-Procedure TLiveBroadcastListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TLiveBroadcastListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -10860,7 +12111,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLiveBroadcastSnippet.SetactualEndTime(AIndex : Integer; AValue : TDatetime);
+Procedure TLiveBroadcastSnippet.SetactualEndTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FactualEndTime=AValue) then exit;
@@ -10870,7 +12121,7 @@ end;
-Procedure TLiveBroadcastSnippet.SetactualStartTime(AIndex : Integer; AValue : TDatetime);
+Procedure TLiveBroadcastSnippet.SetactualStartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FactualStartTime=AValue) then exit;
@@ -10900,7 +12151,7 @@ end;
-Procedure TLiveBroadcastSnippet.SetisDefaultBroadcast(AIndex : Integer; AValue : boolean);
+Procedure TLiveBroadcastSnippet.SetisDefaultBroadcast(AIndex : Integer; const AValue : boolean);
begin
If (FisDefaultBroadcast=AValue) then exit;
@@ -10910,7 +12161,17 @@ end;
-Procedure TLiveBroadcastSnippet.SetpublishedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TLiveBroadcastSnippet.SetliveChatId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FliveChatId=AValue) then exit;
+ FliveChatId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveBroadcastSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
@@ -10920,7 +12181,7 @@ end;
-Procedure TLiveBroadcastSnippet.SetscheduledEndTime(AIndex : Integer; AValue : TDatetime);
+Procedure TLiveBroadcastSnippet.SetscheduledEndTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FscheduledEndTime=AValue) then exit;
@@ -10930,7 +12191,7 @@ end;
-Procedure TLiveBroadcastSnippet.SetscheduledStartTime(AIndex : Integer; AValue : TDatetime);
+Procedure TLiveBroadcastSnippet.SetscheduledStartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FscheduledStartTime=AValue) then exit;
@@ -10940,7 +12201,7 @@ end;
-Procedure TLiveBroadcastSnippet.Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails);
+Procedure TLiveBroadcastSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
@@ -10963,6 +12224,33 @@ end;
{ --------------------------------------------------------------------
+ TLiveBroadcastStatistics
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveBroadcastStatistics.SetconcurrentViewers(AIndex : Integer; const AValue : String);
+
+begin
+ If (FconcurrentViewers=AValue) then exit;
+ FconcurrentViewers:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveBroadcastStatistics.SettotalChatCount(AIndex : Integer; const AValue : String);
+
+begin
+ If (FtotalChatCount=AValue) then exit;
+ FtotalChatCount:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TLiveBroadcastStatus
--------------------------------------------------------------------}
@@ -11010,11 +12298,932 @@ end;
{ --------------------------------------------------------------------
+ TLiveBroadcastTopic
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveBroadcastTopic.Setsnippet(AIndex : Integer; const AValue : TLiveBroadcastTopicSnippet);
+
+begin
+ If (Fsnippet=AValue) then exit;
+ Fsnippet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveBroadcastTopic.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveBroadcastTopic.Setunmatched(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (Funmatched=AValue) then exit;
+ Funmatched:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TLiveBroadcastTopic.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveBroadcastTopicDetails
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveBroadcastTopicDetails.Settopics(AIndex : Integer; const AValue : TLiveBroadcastTopicDetailsTypetopicsArray);
+
+begin
+ If (Ftopics=AValue) then exit;
+ Ftopics:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLiveBroadcastTopicDetails.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'topics' : SetLength(Ftopics,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveBroadcastTopicSnippet
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveBroadcastTopicSnippet.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveBroadcastTopicSnippet.SetreleaseDate(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreleaseDate=AValue) then exit;
+ FreleaseDate:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatBan
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatBan.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatBan.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatBan.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatBan.Setsnippet(AIndex : Integer; const AValue : TLiveChatBanSnippet);
+
+begin
+ If (Fsnippet=AValue) then exit;
+ Fsnippet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatBanSnippet
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatBanSnippet.SetbanDurationSeconds(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbanDurationSeconds=AValue) then exit;
+ FbanDurationSeconds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatBanSnippet.SetbannedUserDetails(AIndex : Integer; const AValue : TChannelProfileDetails);
+
+begin
+ If (FbannedUserDetails=AValue) then exit;
+ FbannedUserDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatBanSnippet.SetliveChatId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FliveChatId=AValue) then exit;
+ FliveChatId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatBanSnippet.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TLiveChatBanSnippet.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatFanFundingEventDetails
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatFanFundingEventDetails.SetamountDisplayString(AIndex : Integer; const AValue : String);
+
+begin
+ If (FamountDisplayString=AValue) then exit;
+ FamountDisplayString:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatFanFundingEventDetails.SetamountMicros(AIndex : Integer; const AValue : String);
+
+begin
+ If (FamountMicros=AValue) then exit;
+ FamountMicros:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatFanFundingEventDetails.Setcurrency(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fcurrency=AValue) then exit;
+ Fcurrency:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatFanFundingEventDetails.SetuserComment(AIndex : Integer; const AValue : String);
+
+begin
+ If (FuserComment=AValue) then exit;
+ FuserComment:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatMessage
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatMessage.SetauthorDetails(AIndex : Integer; const AValue : TLiveChatMessageAuthorDetails);
+
+begin
+ If (FauthorDetails=AValue) then exit;
+ FauthorDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessage.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessage.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessage.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessage.Setsnippet(AIndex : Integer; const AValue : TLiveChatMessageSnippet);
+
+begin
+ If (Fsnippet=AValue) then exit;
+ Fsnippet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatMessageAuthorDetails
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatMessageAuthorDetails.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageAuthorDetails.SetchannelUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelUrl=AValue) then exit;
+ FchannelUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageAuthorDetails.SetdisplayName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayName=AValue) then exit;
+ FdisplayName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageAuthorDetails.SetisChatModerator(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisChatModerator=AValue) then exit;
+ FisChatModerator:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageAuthorDetails.SetisChatOwner(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisChatOwner=AValue) then exit;
+ FisChatOwner:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageAuthorDetails.SetisChatSponsor(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisChatSponsor=AValue) then exit;
+ FisChatSponsor:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageAuthorDetails.SetisVerified(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FisVerified=AValue) then exit;
+ FisVerified:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageAuthorDetails.SetprofileImageUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprofileImageUrl=AValue) then exit;
+ FprofileImageUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatMessageDeletedDetails
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatMessageDeletedDetails.SetdeletedMessageId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdeletedMessageId=AValue) then exit;
+ FdeletedMessageId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatMessageListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatMessageListResponse.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageListResponse.SeteventId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FeventId=AValue) then exit;
+ FeventId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageListResponse.Setitems(AIndex : Integer; const AValue : TLiveChatMessageListResponseTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageListResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageListResponse.SetofflineAt(AIndex : Integer; const AValue : TDatetime);
+
+begin
+ If (FofflineAt=AValue) then exit;
+ FofflineAt:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
+
+begin
+ If (FpageInfo=AValue) then exit;
+ FpageInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageListResponse.SetpollingIntervalMillis(AIndex : Integer; const AValue : integer);
+
+begin
+ If (FpollingIntervalMillis=AValue) then exit;
+ FpollingIntervalMillis:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
+
+begin
+ If (FtokenPagination=AValue) then exit;
+ FtokenPagination:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvisitorId=AValue) then exit;
+ FvisitorId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLiveChatMessageListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatMessageRetractedDetails
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatMessageRetractedDetails.SetretractedMessageId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FretractedMessageId=AValue) then exit;
+ FretractedMessageId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatMessageSnippet
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatMessageSnippet.SetauthorChannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FauthorChannelId=AValue) then exit;
+ FauthorChannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageSnippet.SetdisplayMessage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdisplayMessage=AValue) then exit;
+ FdisplayMessage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageSnippet.SetfanFundingEventDetails(AIndex : Integer; const AValue : TLiveChatFanFundingEventDetails);
+
+begin
+ If (FfanFundingEventDetails=AValue) then exit;
+ FfanFundingEventDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageSnippet.SethasDisplayContent(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FhasDisplayContent=AValue) then exit;
+ FhasDisplayContent:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageSnippet.SetliveChatId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FliveChatId=AValue) then exit;
+ FliveChatId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageSnippet.SetmessageDeletedDetails(AIndex : Integer; const AValue : TLiveChatMessageDeletedDetails);
+
+begin
+ If (FmessageDeletedDetails=AValue) then exit;
+ FmessageDeletedDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageSnippet.SetmessageRetractedDetails(AIndex : Integer; const AValue : TLiveChatMessageRetractedDetails);
+
+begin
+ If (FmessageRetractedDetails=AValue) then exit;
+ FmessageRetractedDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
+
+begin
+ If (FpublishedAt=AValue) then exit;
+ FpublishedAt:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageSnippet.SettextMessageDetails(AIndex : Integer; const AValue : TLiveChatTextMessageDetails);
+
+begin
+ If (FtextMessageDetails=AValue) then exit;
+ FtextMessageDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageSnippet.Set_type(AIndex : Integer; const AValue : String);
+
+begin
+ If (F_type=AValue) then exit;
+ F_type:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatMessageSnippet.SetuserBannedDetails(AIndex : Integer; const AValue : TLiveChatUserBannedMessageDetails);
+
+begin
+ If (FuserBannedDetails=AValue) then exit;
+ FuserBannedDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Class Function TLiveChatMessageSnippet.ExportPropertyName(Const AName : String) :String;
+
+begin
+ Case AName of
+ '_type' : Result:='type';
+ else
+ Result:=Inherited ExportPropertyName(AName);
+ end;
+end;
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatModerator
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatModerator.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModerator.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModerator.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModerator.Setsnippet(AIndex : Integer; const AValue : TLiveChatModeratorSnippet);
+
+begin
+ If (Fsnippet=AValue) then exit;
+ Fsnippet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatModeratorListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatModeratorListResponse.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModeratorListResponse.SeteventId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FeventId=AValue) then exit;
+ FeventId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModeratorListResponse.Setitems(AIndex : Integer; const AValue : TLiveChatModeratorListResponseTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModeratorListResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModeratorListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModeratorListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
+
+begin
+ If (FpageInfo=AValue) then exit;
+ FpageInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModeratorListResponse.SetprevPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FprevPageToken=AValue) then exit;
+ FprevPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModeratorListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
+
+begin
+ If (FtokenPagination=AValue) then exit;
+ FtokenPagination:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModeratorListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvisitorId=AValue) then exit;
+ FvisitorId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TLiveChatModeratorListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatModeratorSnippet
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatModeratorSnippet.SetliveChatId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FliveChatId=AValue) then exit;
+ FliveChatId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatModeratorSnippet.SetmoderatorDetails(AIndex : Integer; const AValue : TChannelProfileDetails);
+
+begin
+ If (FmoderatorDetails=AValue) then exit;
+ FmoderatorDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatTextMessageDetails
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatTextMessageDetails.SetmessageText(AIndex : Integer; const AValue : String);
+
+begin
+ If (FmessageText=AValue) then exit;
+ FmessageText:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatUserBannedMessageDetails
+ --------------------------------------------------------------------}
+
+
+Procedure TLiveChatUserBannedMessageDetails.SetbanDurationSeconds(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbanDurationSeconds=AValue) then exit;
+ FbanDurationSeconds:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatUserBannedMessageDetails.SetbanType(AIndex : Integer; const AValue : String);
+
+begin
+ If (FbanType=AValue) then exit;
+ FbanType:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TLiveChatUserBannedMessageDetails.SetbannedUserDetails(AIndex : Integer; const AValue : TChannelProfileDetails);
+
+begin
+ If (FbannedUserDetails=AValue) then exit;
+ FbannedUserDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TLiveStream
--------------------------------------------------------------------}
-Procedure TLiveStream.Setcdn(AIndex : Integer; AValue : TCdnSettings);
+Procedure TLiveStream.Setcdn(AIndex : Integer; const AValue : TCdnSettings);
begin
If (Fcdn=AValue) then exit;
@@ -11024,7 +13233,7 @@ end;
-Procedure TLiveStream.SetcontentDetails(AIndex : Integer; AValue : TLiveStreamContentDetails);
+Procedure TLiveStream.SetcontentDetails(AIndex : Integer; const AValue : TLiveStreamContentDetails);
begin
If (FcontentDetails=AValue) then exit;
@@ -11064,7 +13273,7 @@ end;
-Procedure TLiveStream.Setsnippet(AIndex : Integer; AValue : TLiveStreamSnippet);
+Procedure TLiveStream.Setsnippet(AIndex : Integer; const AValue : TLiveStreamSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -11074,7 +13283,7 @@ end;
-Procedure TLiveStream.Setstatus(AIndex : Integer; AValue : TLiveStreamStatus);
+Procedure TLiveStream.Setstatus(AIndex : Integer; const AValue : TLiveStreamStatus);
begin
If (Fstatus=AValue) then exit;
@@ -11159,7 +13368,7 @@ end;
-Procedure TLiveStreamContentDetails.SetisReusable(AIndex : Integer; AValue : boolean);
+Procedure TLiveStreamContentDetails.SetisReusable(AIndex : Integer; const AValue : boolean);
begin
If (FisReusable=AValue) then exit;
@@ -11176,7 +13385,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLiveStreamHealthStatus.SetconfigurationIssues(AIndex : Integer; AValue : TLiveStreamHealthStatusTypeconfigurationIssuesArray);
+Procedure TLiveStreamHealthStatus.SetconfigurationIssues(AIndex : Integer; const AValue : TLiveStreamHealthStatusTypeconfigurationIssuesArray);
begin
If (FconfigurationIssues=AValue) then exit;
@@ -11186,11 +13395,11 @@ end;
-Procedure TLiveStreamHealthStatus.SetlastUpdateTimeS(AIndex : Integer; const AValue : String);
+Procedure TLiveStreamHealthStatus.SetlastUpdateTimeSeconds(AIndex : Integer; const AValue : String);
begin
- If (FlastUpdateTimeS=AValue) then exit;
- FlastUpdateTimeS:=AValue;
+ If (FlastUpdateTimeSeconds=AValue) then exit;
+ FlastUpdateTimeSeconds:=AValue;
MarkPropertyChanged(AIndex);
end;
@@ -11246,7 +13455,7 @@ end;
-Procedure TLiveStreamListResponse.Setitems(AIndex : Integer; AValue : TLiveStreamListResponseTypeitemsArray);
+Procedure TLiveStreamListResponse.Setitems(AIndex : Integer; const AValue : TLiveStreamListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -11276,7 +13485,7 @@ end;
-Procedure TLiveStreamListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TLiveStreamListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -11296,7 +13505,7 @@ end;
-Procedure TLiveStreamListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TLiveStreamListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -11356,7 +13565,7 @@ end;
-Procedure TLiveStreamSnippet.SetisDefaultStream(AIndex : Integer; AValue : boolean);
+Procedure TLiveStreamSnippet.SetisDefaultStream(AIndex : Integer; const AValue : boolean);
begin
If (FisDefaultStream=AValue) then exit;
@@ -11366,7 +13575,7 @@ end;
-Procedure TLiveStreamSnippet.SetpublishedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TLiveStreamSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
@@ -11393,7 +13602,7 @@ end;
--------------------------------------------------------------------}
-Procedure TLiveStreamStatus.SethealthStatus(AIndex : Integer; AValue : TLiveStreamHealthStatus);
+Procedure TLiveStreamStatus.SethealthStatus(AIndex : Integer; const AValue : TLiveStreamHealthStatus);
begin
If (FhealthStatus=AValue) then exit;
@@ -11430,7 +13639,7 @@ end;
-Procedure TLocalizedProperty.SetdefaultLanguage(AIndex : Integer; AValue : TLanguageTag);
+Procedure TLocalizedProperty.SetdefaultLanguage(AIndex : Integer; const AValue : TLanguageTag);
begin
If (FdefaultLanguage=AValue) then exit;
@@ -11440,7 +13649,7 @@ end;
-Procedure TLocalizedProperty.Setlocalized(AIndex : Integer; AValue : TLocalizedPropertyTypelocalizedArray);
+Procedure TLocalizedProperty.Setlocalized(AIndex : Integer; const AValue : TLocalizedPropertyTypelocalizedArray);
begin
If (Flocalized=AValue) then exit;
@@ -11497,7 +13706,7 @@ end;
--------------------------------------------------------------------}
-Procedure TMonitorStreamInfo.SetbroadcastStreamDelayMs(AIndex : Integer; AValue : integer);
+Procedure TMonitorStreamInfo.SetbroadcastStreamDelayMs(AIndex : Integer; const AValue : integer);
begin
If (FbroadcastStreamDelayMs=AValue) then exit;
@@ -11517,7 +13726,7 @@ end;
-Procedure TMonitorStreamInfo.SetenableMonitorStream(AIndex : Integer; AValue : boolean);
+Procedure TMonitorStreamInfo.SetenableMonitorStream(AIndex : Integer; const AValue : boolean);
begin
If (FenableMonitorStream=AValue) then exit;
@@ -11534,7 +13743,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPageInfo.SetresultsPerPage(AIndex : Integer; AValue : integer);
+Procedure TPageInfo.SetresultsPerPage(AIndex : Integer; const AValue : integer);
begin
If (FresultsPerPage=AValue) then exit;
@@ -11544,7 +13753,7 @@ end;
-Procedure TPageInfo.SettotalResults(AIndex : Integer; AValue : integer);
+Procedure TPageInfo.SettotalResults(AIndex : Integer; const AValue : integer);
begin
If (FtotalResults=AValue) then exit;
@@ -11574,7 +13783,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlaylist.SetcontentDetails(AIndex : Integer; AValue : TPlaylistContentDetails);
+Procedure TPlaylist.SetcontentDetails(AIndex : Integer; const AValue : TPlaylistContentDetails);
begin
If (FcontentDetails=AValue) then exit;
@@ -11614,7 +13823,7 @@ end;
-Procedure TPlaylist.Setlocalizations(AIndex : Integer; AValue : TPlaylistTypelocalizations);
+Procedure TPlaylist.Setlocalizations(AIndex : Integer; const AValue : TPlaylistTypelocalizations);
begin
If (Flocalizations=AValue) then exit;
@@ -11624,7 +13833,7 @@ end;
-Procedure TPlaylist.Setplayer(AIndex : Integer; AValue : TPlaylistPlayer);
+Procedure TPlaylist.Setplayer(AIndex : Integer; const AValue : TPlaylistPlayer);
begin
If (Fplayer=AValue) then exit;
@@ -11634,7 +13843,7 @@ end;
-Procedure TPlaylist.Setsnippet(AIndex : Integer; AValue : TPlaylistSnippet);
+Procedure TPlaylist.Setsnippet(AIndex : Integer; const AValue : TPlaylistSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -11644,7 +13853,7 @@ end;
-Procedure TPlaylist.Setstatus(AIndex : Integer; AValue : TPlaylistStatus);
+Procedure TPlaylist.Setstatus(AIndex : Integer; const AValue : TPlaylistStatus);
begin
If (Fstatus=AValue) then exit;
@@ -11661,7 +13870,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlaylistContentDetails.SetitemCount(AIndex : Integer; AValue : integer);
+Procedure TPlaylistContentDetails.SetitemCount(AIndex : Integer; const AValue : integer);
begin
If (FitemCount=AValue) then exit;
@@ -11678,7 +13887,7 @@ end;
--------------------------------------------------------------------}
-Procedure TPlaylistItem.SetcontentDetails(AIndex : Integer; AValue : TPlaylistItemContentDetails);
+Procedure TPlaylistItem.SetcontentDetails(AIndex : Integer; const AValue : TPlaylistItemContentDetails);
begin
If (FcontentDetails=AValue) then exit;
@@ -11718,7 +13927,7 @@ end;
-Procedure TPlaylistItem.Setsnippet(AIndex : Integer; AValue : TPlaylistItemSnippet);
+Procedure TPlaylistItem.Setsnippet(AIndex : Integer; const AValue : TPlaylistItemSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -11728,7 +13937,7 @@ end;
-Procedure TPlaylistItem.Setstatus(AIndex : Integer; AValue : TPlaylistItemStatus);
+Procedure TPlaylistItem.Setstatus(AIndex : Integer; const AValue : TPlaylistItemStatus);
begin
If (Fstatus=AValue) then exit;
@@ -11812,7 +14021,7 @@ end;
-Procedure TPlaylistItemListResponse.Setitems(AIndex : Integer; AValue : TPlaylistItemListResponseTypeitemsArray);
+Procedure TPlaylistItemListResponse.Setitems(AIndex : Integer; const AValue : TPlaylistItemListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -11842,7 +14051,7 @@ end;
-Procedure TPlaylistItemListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TPlaylistItemListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -11862,7 +14071,7 @@ end;
-Procedure TPlaylistItemListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TPlaylistItemListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -11942,7 +14151,7 @@ end;
-Procedure TPlaylistItemSnippet.Setposition(AIndex : Integer; AValue : integer);
+Procedure TPlaylistItemSnippet.Setposition(AIndex : Integer; const AValue : integer);
begin
If (Fposition=AValue) then exit;
@@ -11952,7 +14161,7 @@ end;
-Procedure TPlaylistItemSnippet.SetpublishedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TPlaylistItemSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
@@ -11962,7 +14171,7 @@ end;
-Procedure TPlaylistItemSnippet.SetresourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TPlaylistItemSnippet.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
@@ -11972,7 +14181,7 @@ end;
-Procedure TPlaylistItemSnippet.Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails);
+Procedure TPlaylistItemSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
@@ -12036,7 +14245,7 @@ end;
-Procedure TPlaylistListResponse.Setitems(AIndex : Integer; AValue : TPlaylistListResponseTypeitemsArray);
+Procedure TPlaylistListResponse.Setitems(AIndex : Integer; const AValue : TPlaylistListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -12066,7 +14275,7 @@ end;
-Procedure TPlaylistListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TPlaylistListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -12086,7 +14295,7 @@ end;
-Procedure TPlaylistListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TPlaylistListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -12210,7 +14419,7 @@ end;
-Procedure TPlaylistSnippet.Setlocalized(AIndex : Integer; AValue : TPlaylistLocalization);
+Procedure TPlaylistSnippet.Setlocalized(AIndex : Integer; const AValue : TPlaylistLocalization);
begin
If (Flocalized=AValue) then exit;
@@ -12220,7 +14429,7 @@ end;
-Procedure TPlaylistSnippet.SetpublishedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TPlaylistSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
@@ -12230,7 +14439,7 @@ end;
-Procedure TPlaylistSnippet.Settags(AIndex : Integer; AValue : TStringArray);
+Procedure TPlaylistSnippet.Settags(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftags=AValue) then exit;
@@ -12240,7 +14449,7 @@ end;
-Procedure TPlaylistSnippet.Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails);
+Procedure TPlaylistSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
@@ -12307,7 +14516,7 @@ end;
-Procedure TPromotedItem.Setid(AIndex : Integer; AValue : TPromotedItemId);
+Procedure TPromotedItem.Setid(AIndex : Integer; const AValue : TPromotedItemId);
begin
If (Fid=AValue) then exit;
@@ -12317,7 +14526,7 @@ end;
-Procedure TPromotedItem.SetpromotedByContentOwner(AIndex : Integer; AValue : boolean);
+Procedure TPromotedItem.SetpromotedByContentOwner(AIndex : Integer; const AValue : boolean);
begin
If (FpromotedByContentOwner=AValue) then exit;
@@ -12327,7 +14536,7 @@ end;
-Procedure TPromotedItem.Settiming(AIndex : Integer; AValue : TInvideoTiming);
+Procedure TPromotedItem.Settiming(AIndex : Integer; const AValue : TInvideoTiming);
begin
If (Ftiming=AValue) then exit;
@@ -12507,7 +14716,7 @@ end;
-Procedure TSearchListResponse.Setitems(AIndex : Integer; AValue : TSearchListResponseTypeitemsArray);
+Procedure TSearchListResponse.Setitems(AIndex : Integer; const AValue : TSearchListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -12537,7 +14746,7 @@ end;
-Procedure TSearchListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TSearchListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -12557,7 +14766,17 @@ end;
-Procedure TSearchListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TSearchListResponse.SetregionCode(AIndex : Integer; const AValue : String);
+
+begin
+ If (FregionCode=AValue) then exit;
+ FregionCode:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSearchListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -12607,7 +14826,7 @@ end;
-Procedure TSearchResult.Setid(AIndex : Integer; AValue : TResourceId);
+Procedure TSearchResult.Setid(AIndex : Integer; const AValue : TResourceId);
begin
If (Fid=AValue) then exit;
@@ -12627,7 +14846,7 @@ end;
-Procedure TSearchResult.Setsnippet(AIndex : Integer; AValue : TSearchResultSnippet);
+Procedure TSearchResult.Setsnippet(AIndex : Integer; const AValue : TSearchResultSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -12684,7 +14903,7 @@ end;
-Procedure TSearchResultSnippet.SetpublishedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TSearchResultSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
@@ -12694,7 +14913,7 @@ end;
-Procedure TSearchResultSnippet.Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails);
+Procedure TSearchResultSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
@@ -12717,11 +14936,195 @@ end;
{ --------------------------------------------------------------------
+ TSponsor
+ --------------------------------------------------------------------}
+
+
+Procedure TSponsor.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsor.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsor.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsor.Setsnippet(AIndex : Integer; const AValue : TSponsorSnippet);
+
+begin
+ If (Fsnippet=AValue) then exit;
+ Fsnippet:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TSponsorListResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TSponsorListResponse.Setetag(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fetag=AValue) then exit;
+ Fetag:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsorListResponse.SeteventId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FeventId=AValue) then exit;
+ FeventId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsorListResponse.Setitems(AIndex : Integer; const AValue : TSponsorListResponseTypeitemsArray);
+
+begin
+ If (Fitems=AValue) then exit;
+ Fitems:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsorListResponse.Setkind(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fkind=AValue) then exit;
+ Fkind:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsorListResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
+
+begin
+ If (FnextPageToken=AValue) then exit;
+ FnextPageToken:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsorListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
+
+begin
+ If (FpageInfo=AValue) then exit;
+ FpageInfo:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsorListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
+
+begin
+ If (FtokenPagination=AValue) then exit;
+ FtokenPagination:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsorListResponse.SetvisitorId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FvisitorId=AValue) then exit;
+ FvisitorId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+//2.6.4. bug workaround
+{$IFDEF VER2_6}
+Procedure TSponsorListResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'items' : SetLength(Fitems,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TSponsorSnippet
+ --------------------------------------------------------------------}
+
+
+Procedure TSponsorSnippet.SetchannelId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FchannelId=AValue) then exit;
+ FchannelId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsorSnippet.SetsponsorDetails(AIndex : Integer; const AValue : TChannelProfileDetails);
+
+begin
+ If (FsponsorDetails=AValue) then exit;
+ FsponsorDetails:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TSponsorSnippet.SetsponsorSince(AIndex : Integer; const AValue : TDatetime);
+
+begin
+ If (FsponsorSince=AValue) then exit;
+ FsponsorSince:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
TSubscription
--------------------------------------------------------------------}
-Procedure TSubscription.SetcontentDetails(AIndex : Integer; AValue : TSubscriptionContentDetails);
+Procedure TSubscription.SetcontentDetails(AIndex : Integer; const AValue : TSubscriptionContentDetails);
begin
If (FcontentDetails=AValue) then exit;
@@ -12761,7 +15164,7 @@ end;
-Procedure TSubscription.Setsnippet(AIndex : Integer; AValue : TSubscriptionSnippet);
+Procedure TSubscription.Setsnippet(AIndex : Integer; const AValue : TSubscriptionSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -12771,7 +15174,7 @@ end;
-Procedure TSubscription.SetsubscriberSnippet(AIndex : Integer; AValue : TSubscriptionSubscriberSnippet);
+Procedure TSubscription.SetsubscriberSnippet(AIndex : Integer; const AValue : TSubscriptionSubscriberSnippet);
begin
If (FsubscriberSnippet=AValue) then exit;
@@ -12798,7 +15201,7 @@ end;
-Procedure TSubscriptionContentDetails.SetnewItemCount(AIndex : Integer; AValue : integer);
+Procedure TSubscriptionContentDetails.SetnewItemCount(AIndex : Integer; const AValue : integer);
begin
If (FnewItemCount=AValue) then exit;
@@ -12808,7 +15211,7 @@ end;
-Procedure TSubscriptionContentDetails.SettotalItemCount(AIndex : Integer; AValue : integer);
+Procedure TSubscriptionContentDetails.SettotalItemCount(AIndex : Integer; const AValue : integer);
begin
If (FtotalItemCount=AValue) then exit;
@@ -12845,7 +15248,7 @@ end;
-Procedure TSubscriptionListResponse.Setitems(AIndex : Integer; AValue : TSubscriptionListResponseTypeitemsArray);
+Procedure TSubscriptionListResponse.Setitems(AIndex : Integer; const AValue : TSubscriptionListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -12875,7 +15278,7 @@ end;
-Procedure TSubscriptionListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TSubscriptionListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -12895,7 +15298,7 @@ end;
-Procedure TSubscriptionListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TSubscriptionListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -12965,7 +15368,7 @@ end;
-Procedure TSubscriptionSnippet.SetpublishedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TSubscriptionSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
@@ -12975,7 +15378,7 @@ end;
-Procedure TSubscriptionSnippet.SetresourceId(AIndex : Integer; AValue : TResourceId);
+Procedure TSubscriptionSnippet.SetresourceId(AIndex : Integer; const AValue : TResourceId);
begin
If (FresourceId=AValue) then exit;
@@ -12985,7 +15388,7 @@ end;
-Procedure TSubscriptionSnippet.Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails);
+Procedure TSubscriptionSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
@@ -13032,7 +15435,7 @@ end;
-Procedure TSubscriptionSubscriberSnippet.Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails);
+Procedure TSubscriptionSubscriberSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
@@ -13059,7 +15462,7 @@ end;
--------------------------------------------------------------------}
-Procedure TThumbnail.Setheight(AIndex : Integer; AValue : integer);
+Procedure TThumbnail.Setheight(AIndex : Integer; const AValue : integer);
begin
If (Fheight=AValue) then exit;
@@ -13079,7 +15482,7 @@ end;
-Procedure TThumbnail.Setwidth(AIndex : Integer; AValue : integer);
+Procedure TThumbnail.Setwidth(AIndex : Integer; const AValue : integer);
begin
If (Fwidth=AValue) then exit;
@@ -13096,7 +15499,7 @@ end;
--------------------------------------------------------------------}
-Procedure TThumbnailDetails.Setdefault(AIndex : Integer; AValue : TThumbnail);
+Procedure TThumbnailDetails.Setdefault(AIndex : Integer; const AValue : TThumbnail);
begin
If (Fdefault=AValue) then exit;
@@ -13106,7 +15509,7 @@ end;
-Procedure TThumbnailDetails.Sethigh(AIndex : Integer; AValue : TThumbnail);
+Procedure TThumbnailDetails.Sethigh(AIndex : Integer; const AValue : TThumbnail);
begin
If (Fhigh=AValue) then exit;
@@ -13116,7 +15519,7 @@ end;
-Procedure TThumbnailDetails.Setmaxres(AIndex : Integer; AValue : TThumbnail);
+Procedure TThumbnailDetails.Setmaxres(AIndex : Integer; const AValue : TThumbnail);
begin
If (Fmaxres=AValue) then exit;
@@ -13126,7 +15529,7 @@ end;
-Procedure TThumbnailDetails.Setmedium(AIndex : Integer; AValue : TThumbnail);
+Procedure TThumbnailDetails.Setmedium(AIndex : Integer; const AValue : TThumbnail);
begin
If (Fmedium=AValue) then exit;
@@ -13136,7 +15539,7 @@ end;
-Procedure TThumbnailDetails.Setstandard(AIndex : Integer; AValue : TThumbnail);
+Procedure TThumbnailDetails.Setstandard(AIndex : Integer; const AValue : TThumbnail);
begin
If (Fstandard=AValue) then exit;
@@ -13173,7 +15576,7 @@ end;
-Procedure TThumbnailSetResponse.Setitems(AIndex : Integer; AValue : TThumbnailSetResponseTypeitemsArray);
+Procedure TThumbnailSetResponse.Setitems(AIndex : Integer; const AValue : TThumbnailSetResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -13243,7 +15646,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideo.SetageGating(AIndex : Integer; AValue : TVideoAgeGating);
+Procedure TVideo.SetageGating(AIndex : Integer; const AValue : TVideoAgeGating);
begin
If (FageGating=AValue) then exit;
@@ -13253,7 +15656,7 @@ end;
-Procedure TVideo.SetcontentDetails(AIndex : Integer; AValue : TVideoContentDetails);
+Procedure TVideo.SetcontentDetails(AIndex : Integer; const AValue : TVideoContentDetails);
begin
If (FcontentDetails=AValue) then exit;
@@ -13263,16 +15666,6 @@ end;
-Procedure TVideo.SetconversionPings(AIndex : Integer; AValue : TVideoConversionPings);
-
-begin
- If (FconversionPings=AValue) then exit;
- FconversionPings:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
Procedure TVideo.Setetag(AIndex : Integer; const AValue : String);
begin
@@ -13283,7 +15676,7 @@ end;
-Procedure TVideo.SetfileDetails(AIndex : Integer; AValue : TVideoFileDetails);
+Procedure TVideo.SetfileDetails(AIndex : Integer; const AValue : TVideoFileDetails);
begin
If (FfileDetails=AValue) then exit;
@@ -13313,7 +15706,7 @@ end;
-Procedure TVideo.SetliveStreamingDetails(AIndex : Integer; AValue : TVideoLiveStreamingDetails);
+Procedure TVideo.SetliveStreamingDetails(AIndex : Integer; const AValue : TVideoLiveStreamingDetails);
begin
If (FliveStreamingDetails=AValue) then exit;
@@ -13323,7 +15716,7 @@ end;
-Procedure TVideo.Setlocalizations(AIndex : Integer; AValue : TVideoTypelocalizations);
+Procedure TVideo.Setlocalizations(AIndex : Integer; const AValue : TVideoTypelocalizations);
begin
If (Flocalizations=AValue) then exit;
@@ -13333,7 +15726,7 @@ end;
-Procedure TVideo.SetmonetizationDetails(AIndex : Integer; AValue : TVideoMonetizationDetails);
+Procedure TVideo.SetmonetizationDetails(AIndex : Integer; const AValue : TVideoMonetizationDetails);
begin
If (FmonetizationDetails=AValue) then exit;
@@ -13343,7 +15736,7 @@ end;
-Procedure TVideo.Setplayer(AIndex : Integer; AValue : TVideoPlayer);
+Procedure TVideo.Setplayer(AIndex : Integer; const AValue : TVideoPlayer);
begin
If (Fplayer=AValue) then exit;
@@ -13353,7 +15746,7 @@ end;
-Procedure TVideo.SetprocessingDetails(AIndex : Integer; AValue : TVideoProcessingDetails);
+Procedure TVideo.SetprocessingDetails(AIndex : Integer; const AValue : TVideoProcessingDetails);
begin
If (FprocessingDetails=AValue) then exit;
@@ -13363,7 +15756,7 @@ end;
-Procedure TVideo.SetprojectDetails(AIndex : Integer; AValue : TVideoProjectDetails);
+Procedure TVideo.SetprojectDetails(AIndex : Integer; const AValue : TVideoProjectDetails);
begin
If (FprojectDetails=AValue) then exit;
@@ -13373,7 +15766,7 @@ end;
-Procedure TVideo.SetrecordingDetails(AIndex : Integer; AValue : TVideoRecordingDetails);
+Procedure TVideo.SetrecordingDetails(AIndex : Integer; const AValue : TVideoRecordingDetails);
begin
If (FrecordingDetails=AValue) then exit;
@@ -13383,7 +15776,7 @@ end;
-Procedure TVideo.Setsnippet(AIndex : Integer; AValue : TVideoSnippet);
+Procedure TVideo.Setsnippet(AIndex : Integer; const AValue : TVideoSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -13393,7 +15786,7 @@ end;
-Procedure TVideo.Setstatistics(AIndex : Integer; AValue : TVideoStatistics);
+Procedure TVideo.Setstatistics(AIndex : Integer; const AValue : TVideoStatistics);
begin
If (Fstatistics=AValue) then exit;
@@ -13403,7 +15796,7 @@ end;
-Procedure TVideo.Setstatus(AIndex : Integer; AValue : TVideoStatus);
+Procedure TVideo.Setstatus(AIndex : Integer; const AValue : TVideoStatus);
begin
If (Fstatus=AValue) then exit;
@@ -13413,7 +15806,7 @@ end;
-Procedure TVideo.Setsuggestions(AIndex : Integer; AValue : TVideoSuggestions);
+Procedure TVideo.Setsuggestions(AIndex : Integer; const AValue : TVideoSuggestions);
begin
If (Fsuggestions=AValue) then exit;
@@ -13423,7 +15816,7 @@ end;
-Procedure TVideo.SettopicDetails(AIndex : Integer; AValue : TVideoTopicDetails);
+Procedure TVideo.SettopicDetails(AIndex : Integer; const AValue : TVideoTopicDetails);
begin
If (FtopicDetails=AValue) then exit;
@@ -13527,7 +15920,7 @@ end;
-Procedure TVideoAbuseReportReason.Setsnippet(AIndex : Integer; AValue : TVideoAbuseReportReasonSnippet);
+Procedure TVideoAbuseReportReason.Setsnippet(AIndex : Integer; const AValue : TVideoAbuseReportReasonSnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -13564,7 +15957,7 @@ end;
-Procedure TVideoAbuseReportReasonListResponse.Setitems(AIndex : Integer; AValue : TVideoAbuseReportReasonListResponseTypeitemsArray);
+Procedure TVideoAbuseReportReasonListResponse.Setitems(AIndex : Integer; const AValue : TVideoAbuseReportReasonListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -13624,7 +16017,7 @@ end;
-Procedure TVideoAbuseReportReasonSnippet.SetsecondaryReasons(AIndex : Integer; AValue : TVideoAbuseReportReasonSnippetTypesecondaryReasonsArray);
+Procedure TVideoAbuseReportReasonSnippet.SetsecondaryReasons(AIndex : Integer; const AValue : TVideoAbuseReportReasonSnippetTypesecondaryReasonsArray);
begin
If (FsecondaryReasons=AValue) then exit;
@@ -13703,7 +16096,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoAgeGating.SetalcoholContent(AIndex : Integer; AValue : boolean);
+Procedure TVideoAgeGating.SetalcoholContent(AIndex : Integer; const AValue : boolean);
begin
If (FalcoholContent=AValue) then exit;
@@ -13713,7 +16106,7 @@ end;
-Procedure TVideoAgeGating.Setrestricted(AIndex : Integer; AValue : boolean);
+Procedure TVideoAgeGating.Setrestricted(AIndex : Integer; const AValue : boolean);
begin
If (Frestricted=AValue) then exit;
@@ -13770,7 +16163,7 @@ end;
-Procedure TVideoCategory.Setsnippet(AIndex : Integer; AValue : TVideoCategorySnippet);
+Procedure TVideoCategory.Setsnippet(AIndex : Integer; const AValue : TVideoCategorySnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -13807,7 +16200,7 @@ end;
-Procedure TVideoCategoryListResponse.Setitems(AIndex : Integer; AValue : TVideoCategoryListResponseTypeitemsArray);
+Procedure TVideoCategoryListResponse.Setitems(AIndex : Integer; const AValue : TVideoCategoryListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -13837,7 +16230,7 @@ end;
-Procedure TVideoCategoryListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TVideoCategoryListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -13857,7 +16250,7 @@ end;
-Procedure TVideoCategoryListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TVideoCategoryListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -13897,7 +16290,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoCategorySnippet.Setassignable(AIndex : Integer; AValue : boolean);
+Procedure TVideoCategorySnippet.Setassignable(AIndex : Integer; const AValue : boolean);
begin
If (Fassignable=AValue) then exit;
@@ -13944,7 +16337,7 @@ end;
-Procedure TVideoContentDetails.SetcontentRating(AIndex : Integer; AValue : TContentRating);
+Procedure TVideoContentDetails.SetcontentRating(AIndex : Integer; const AValue : TContentRating);
begin
If (FcontentRating=AValue) then exit;
@@ -13954,7 +16347,7 @@ end;
-Procedure TVideoContentDetails.SetcountryRestriction(AIndex : Integer; AValue : TAccessPolicy);
+Procedure TVideoContentDetails.SetcountryRestriction(AIndex : Integer; const AValue : TAccessPolicy);
begin
If (FcountryRestriction=AValue) then exit;
@@ -13994,7 +16387,7 @@ end;
-Procedure TVideoContentDetails.SetlicensedContent(AIndex : Integer; AValue : boolean);
+Procedure TVideoContentDetails.SetlicensedContent(AIndex : Integer; const AValue : boolean);
begin
If (FlicensedContent=AValue) then exit;
@@ -14004,7 +16397,17 @@ end;
-Procedure TVideoContentDetails.SetregionRestriction(AIndex : Integer; AValue : TVideoContentDetailsRegionRestriction);
+Procedure TVideoContentDetails.Setprojection(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fprojection=AValue) then exit;
+ Fprojection:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVideoContentDetails.SetregionRestriction(AIndex : Integer; const AValue : TVideoContentDetailsRegionRestriction);
begin
If (FregionRestriction=AValue) then exit;
@@ -14021,7 +16424,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoContentDetailsRegionRestriction.Setallowed(AIndex : Integer; AValue : TStringArray);
+Procedure TVideoContentDetailsRegionRestriction.Setallowed(AIndex : Integer; const AValue : TStringArray);
begin
If (Fallowed=AValue) then exit;
@@ -14031,7 +16434,7 @@ end;
-Procedure TVideoContentDetailsRegionRestriction.Setblocked(AIndex : Integer; AValue : TStringArray);
+Procedure TVideoContentDetailsRegionRestriction.Setblocked(AIndex : Integer; const AValue : TStringArray);
begin
If (Fblocked=AValue) then exit;
@@ -14058,68 +16461,11 @@ end;
{ --------------------------------------------------------------------
- TVideoConversionPing
- --------------------------------------------------------------------}
-
-
-Procedure TVideoConversionPing.Setcontext(AIndex : Integer; const AValue : String);
-
-begin
- If (Fcontext=AValue) then exit;
- Fcontext:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-Procedure TVideoConversionPing.SetconversionUrl(AIndex : Integer; const AValue : String);
-
-begin
- If (FconversionUrl=AValue) then exit;
- FconversionUrl:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-
-
-
-{ --------------------------------------------------------------------
- TVideoConversionPings
- --------------------------------------------------------------------}
-
-
-Procedure TVideoConversionPings.Setpings(AIndex : Integer; AValue : TVideoConversionPingsTypepingsArray);
-
-begin
- If (Fpings=AValue) then exit;
- Fpings:=AValue;
- MarkPropertyChanged(AIndex);
-end;
-
-
-//2.6.4. bug workaround
-{$IFDEF VER2_6}
-Procedure TVideoConversionPings.SetArrayLength(Const AName : String; ALength : Longint);
-
-begin
- Case AName of
- 'pings' : SetLength(Fpings,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
-end;
-{$ENDIF VER2_6}
-
-
-
-
-{ --------------------------------------------------------------------
TVideoFileDetails
--------------------------------------------------------------------}
-Procedure TVideoFileDetails.SetaudioStreams(AIndex : Integer; AValue : TVideoFileDetailsTypeaudioStreamsArray);
+Procedure TVideoFileDetails.SetaudioStreams(AIndex : Integer; const AValue : TVideoFileDetailsTypeaudioStreamsArray);
begin
If (FaudioStreams=AValue) then exit;
@@ -14199,7 +16545,7 @@ end;
-Procedure TVideoFileDetails.SetrecordingLocation(AIndex : Integer; AValue : TGeoPoint);
+Procedure TVideoFileDetails.SetrecordingLocation(AIndex : Integer; const AValue : TGeoPoint);
begin
If (FrecordingLocation=AValue) then exit;
@@ -14209,7 +16555,7 @@ end;
-Procedure TVideoFileDetails.SetvideoStreams(AIndex : Integer; AValue : TVideoFileDetailsTypevideoStreamsArray);
+Procedure TVideoFileDetails.SetvideoStreams(AIndex : Integer; const AValue : TVideoFileDetailsTypevideoStreamsArray);
begin
If (FvideoStreams=AValue) then exit;
@@ -14250,7 +16596,7 @@ end;
-Procedure TVideoFileDetailsAudioStream.SetchannelCount(AIndex : Integer; AValue : integer);
+Procedure TVideoFileDetailsAudioStream.SetchannelCount(AIndex : Integer; const AValue : integer);
begin
If (FchannelCount=AValue) then exit;
@@ -14287,7 +16633,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoFileDetailsVideoStream.SetaspectRatio(AIndex : Integer; AValue : double);
+Procedure TVideoFileDetailsVideoStream.SetaspectRatio(AIndex : Integer; const AValue : double);
begin
If (FaspectRatio=AValue) then exit;
@@ -14317,7 +16663,7 @@ end;
-Procedure TVideoFileDetailsVideoStream.SetframeRateFps(AIndex : Integer; AValue : double);
+Procedure TVideoFileDetailsVideoStream.SetframeRateFps(AIndex : Integer; const AValue : double);
begin
If (FframeRateFps=AValue) then exit;
@@ -14327,7 +16673,7 @@ end;
-Procedure TVideoFileDetailsVideoStream.SetheightPixels(AIndex : Integer; AValue : integer);
+Procedure TVideoFileDetailsVideoStream.SetheightPixels(AIndex : Integer; const AValue : integer);
begin
If (FheightPixels=AValue) then exit;
@@ -14357,7 +16703,7 @@ end;
-Procedure TVideoFileDetailsVideoStream.SetwidthPixels(AIndex : Integer; AValue : integer);
+Procedure TVideoFileDetailsVideoStream.SetwidthPixels(AIndex : Integer; const AValue : integer);
begin
If (FwidthPixels=AValue) then exit;
@@ -14394,7 +16740,7 @@ end;
-Procedure TVideoGetRatingResponse.Setitems(AIndex : Integer; AValue : TVideoGetRatingResponseTypeitemsArray);
+Procedure TVideoGetRatingResponse.Setitems(AIndex : Integer; const AValue : TVideoGetRatingResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -14464,7 +16810,7 @@ end;
-Procedure TVideoListResponse.Setitems(AIndex : Integer; AValue : TVideoListResponseTypeitemsArray);
+Procedure TVideoListResponse.Setitems(AIndex : Integer; const AValue : TVideoListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -14494,7 +16840,7 @@ end;
-Procedure TVideoListResponse.SetpageInfo(AIndex : Integer; AValue : TPageInfo);
+Procedure TVideoListResponse.SetpageInfo(AIndex : Integer; const AValue : TPageInfo);
begin
If (FpageInfo=AValue) then exit;
@@ -14514,7 +16860,7 @@ end;
-Procedure TVideoListResponse.SettokenPagination(AIndex : Integer; AValue : TTokenPagination);
+Procedure TVideoListResponse.SettokenPagination(AIndex : Integer; const AValue : TTokenPagination);
begin
If (FtokenPagination=AValue) then exit;
@@ -14554,7 +16900,17 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoLiveStreamingDetails.SetactualEndTime(AIndex : Integer; AValue : TDatetime);
+Procedure TVideoLiveStreamingDetails.SetactiveLiveChatId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FactiveLiveChatId=AValue) then exit;
+ FactiveLiveChatId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TVideoLiveStreamingDetails.SetactualEndTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FactualEndTime=AValue) then exit;
@@ -14564,7 +16920,7 @@ end;
-Procedure TVideoLiveStreamingDetails.SetactualStartTime(AIndex : Integer; AValue : TDatetime);
+Procedure TVideoLiveStreamingDetails.SetactualStartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FactualStartTime=AValue) then exit;
@@ -14584,7 +16940,7 @@ end;
-Procedure TVideoLiveStreamingDetails.SetscheduledEndTime(AIndex : Integer; AValue : TDatetime);
+Procedure TVideoLiveStreamingDetails.SetscheduledEndTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FscheduledEndTime=AValue) then exit;
@@ -14594,7 +16950,7 @@ end;
-Procedure TVideoLiveStreamingDetails.SetscheduledStartTime(AIndex : Integer; AValue : TDatetime);
+Procedure TVideoLiveStreamingDetails.SetscheduledStartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FscheduledStartTime=AValue) then exit;
@@ -14638,7 +16994,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoMonetizationDetails.Setaccess(AIndex : Integer; AValue : TAccessPolicy);
+Procedure TVideoMonetizationDetails.Setaccess(AIndex : Integer; const AValue : TAccessPolicy);
begin
If (Faccess=AValue) then exit;
@@ -14712,7 +17068,7 @@ end;
-Procedure TVideoProcessingDetails.SetprocessingProgress(AIndex : Integer; AValue : TVideoProcessingDetailsProcessingProgress);
+Procedure TVideoProcessingDetails.SetprocessingProgress(AIndex : Integer; const AValue : TVideoProcessingDetailsProcessingProgress);
begin
If (FprocessingProgress=AValue) then exit;
@@ -14796,7 +17152,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoProjectDetails.Settags(AIndex : Integer; AValue : TStringArray);
+Procedure TVideoProjectDetails.Settags(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftags=AValue) then exit;
@@ -14853,7 +17209,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoRecordingDetails.Setlocation(AIndex : Integer; AValue : TGeoPoint);
+Procedure TVideoRecordingDetails.Setlocation(AIndex : Integer; const AValue : TGeoPoint);
begin
If (Flocation=AValue) then exit;
@@ -14873,7 +17229,7 @@ end;
-Procedure TVideoRecordingDetails.SetrecordingDate(AIndex : Integer; AValue : TDatetime);
+Procedure TVideoRecordingDetails.SetrecordingDate(AIndex : Integer; const AValue : TDatetime);
begin
If (FrecordingDate=AValue) then exit;
@@ -14920,6 +17276,16 @@ end;
+Procedure TVideoSnippet.SetdefaultAudioLanguage(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdefaultAudioLanguage=AValue) then exit;
+ FdefaultAudioLanguage:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
Procedure TVideoSnippet.SetdefaultLanguage(AIndex : Integer; const AValue : String);
begin
@@ -14950,7 +17316,7 @@ end;
-Procedure TVideoSnippet.Setlocalized(AIndex : Integer; AValue : TVideoLocalization);
+Procedure TVideoSnippet.Setlocalized(AIndex : Integer; const AValue : TVideoLocalization);
begin
If (Flocalized=AValue) then exit;
@@ -14960,7 +17326,7 @@ end;
-Procedure TVideoSnippet.SetpublishedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TVideoSnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
@@ -14970,7 +17336,7 @@ end;
-Procedure TVideoSnippet.Settags(AIndex : Integer; AValue : TStringArray);
+Procedure TVideoSnippet.Settags(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftags=AValue) then exit;
@@ -14980,7 +17346,7 @@ end;
-Procedure TVideoSnippet.Setthumbnails(AIndex : Integer; AValue : TThumbnailDetails);
+Procedure TVideoSnippet.Setthumbnails(AIndex : Integer; const AValue : TThumbnailDetails);
begin
If (Fthumbnails=AValue) then exit;
@@ -15077,7 +17443,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoStatus.Setembeddable(AIndex : Integer; AValue : boolean);
+Procedure TVideoStatus.Setembeddable(AIndex : Integer; const AValue : boolean);
begin
If (Fembeddable=AValue) then exit;
@@ -15117,7 +17483,7 @@ end;
-Procedure TVideoStatus.SetpublicStatsViewable(AIndex : Integer; AValue : boolean);
+Procedure TVideoStatus.SetpublicStatsViewable(AIndex : Integer; const AValue : boolean);
begin
If (FpublicStatsViewable=AValue) then exit;
@@ -15127,7 +17493,7 @@ end;
-Procedure TVideoStatus.SetpublishAt(AIndex : Integer; AValue : TDatetime);
+Procedure TVideoStatus.SetpublishAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishAt=AValue) then exit;
@@ -15164,7 +17530,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoSuggestions.SeteditorSuggestions(AIndex : Integer; AValue : TStringArray);
+Procedure TVideoSuggestions.SeteditorSuggestions(AIndex : Integer; const AValue : TStringArray);
begin
If (FeditorSuggestions=AValue) then exit;
@@ -15174,7 +17540,7 @@ end;
-Procedure TVideoSuggestions.SetprocessingErrors(AIndex : Integer; AValue : TStringArray);
+Procedure TVideoSuggestions.SetprocessingErrors(AIndex : Integer; const AValue : TStringArray);
begin
If (FprocessingErrors=AValue) then exit;
@@ -15184,7 +17550,7 @@ end;
-Procedure TVideoSuggestions.SetprocessingHints(AIndex : Integer; AValue : TStringArray);
+Procedure TVideoSuggestions.SetprocessingHints(AIndex : Integer; const AValue : TStringArray);
begin
If (FprocessingHints=AValue) then exit;
@@ -15194,7 +17560,7 @@ end;
-Procedure TVideoSuggestions.SetprocessingWarnings(AIndex : Integer; AValue : TStringArray);
+Procedure TVideoSuggestions.SetprocessingWarnings(AIndex : Integer; const AValue : TStringArray);
begin
If (FprocessingWarnings=AValue) then exit;
@@ -15204,7 +17570,7 @@ end;
-Procedure TVideoSuggestions.SettagSuggestions(AIndex : Integer; AValue : TVideoSuggestionsTypetagSuggestionsArray);
+Procedure TVideoSuggestions.SettagSuggestions(AIndex : Integer; const AValue : TVideoSuggestionsTypetagSuggestionsArray);
begin
If (FtagSuggestions=AValue) then exit;
@@ -15238,7 +17604,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoSuggestionsTagSuggestion.SetcategoryRestricts(AIndex : Integer; AValue : TStringArray);
+Procedure TVideoSuggestionsTagSuggestion.SetcategoryRestricts(AIndex : Integer; const AValue : TStringArray);
begin
If (FcategoryRestricts=AValue) then exit;
@@ -15278,7 +17644,7 @@ end;
--------------------------------------------------------------------}
-Procedure TVideoTopicDetails.SetrelevantTopicIds(AIndex : Integer; AValue : TStringArray);
+Procedure TVideoTopicDetails.SetrelevantTopicIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FrelevantTopicIds=AValue) then exit;
@@ -15288,7 +17654,7 @@ end;
-Procedure TVideoTopicDetails.SettopicIds(AIndex : Integer; AValue : TStringArray);
+Procedure TVideoTopicDetails.SettopicIds(AIndex : Integer; const AValue : TStringArray);
begin
If (FtopicIds=AValue) then exit;
@@ -15460,7 +17826,6 @@ Var
begin
_Q:='';
- AddToQuery(_Q,'debugProjectIdOverride',AQuery.debugProjectIdOverride);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOf',AQuery.onBehalfOf);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
@@ -15490,7 +17855,6 @@ Var
begin
_Q:='';
- AddToQuery(_Q,'debugProjectIdOverride',AQuery.debugProjectIdOverride);
AddToQuery(_Q,'onBehalfOf',AQuery.onBehalfOf);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'tfmt',AQuery.tfmt);
@@ -15517,7 +17881,6 @@ Var
begin
_Q:='';
- AddToQuery(_Q,'debugProjectIdOverride',AQuery.debugProjectIdOverride);
AddToQuery(_Q,'onBehalfOf',AQuery.onBehalfOf);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'part',AQuery.part);
@@ -15544,7 +17907,6 @@ Var
begin
_Q:='';
- AddToQuery(_Q,'debugProjectIdOverride',AQuery.debugProjectIdOverride);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'onBehalfOf',AQuery.onBehalfOf);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
@@ -15572,7 +17934,6 @@ Var
begin
_Q:='';
- AddToQuery(_Q,'debugProjectIdOverride',AQuery.debugProjectIdOverride);
AddToQuery(_Q,'onBehalfOf',AQuery.onBehalfOf);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'part',AQuery.part);
@@ -15857,7 +18218,6 @@ Var
begin
_Q:='';
AddToQuery(_Q,'part',AQuery.part);
- AddToQuery(_Q,'shareOnGooglePlus',AQuery.shareOnGooglePlus);
Result:=Insert(aCommentThread,_Q);
end;
@@ -16084,6 +18444,51 @@ end;
{ --------------------------------------------------------------------
+ TFanFundingEventsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TFanFundingEventsResource.ResourceName : String;
+
+begin
+ Result:='fanFundingEvents';
+end;
+
+Class Function TFanFundingEventsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TyoutubeAPI;
+end;
+
+Function TFanFundingEventsResource.List(AQuery : string = '') : TFanFundingEventListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'fanFundingEvents';
+ _Methodid = 'youtube.fanFundingEvents.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TFanFundingEventListResponse) as TFanFundingEventListResponse;
+end;
+
+
+Function TFanFundingEventsResource.List(AQuery : TFanFundingEventslistOptions) : TFanFundingEventListResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'hl',AQuery.hl);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'part',AQuery.part);
+ Result:=List(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
TGuideCategoriesResource
--------------------------------------------------------------------}
@@ -16357,6 +18762,7 @@ Var
begin
_Q:='';
AddToQuery(_Q,'broadcastStatus',AQuery.broadcastStatus);
+ AddToQuery(_Q,'broadcastType',AQuery.broadcastType);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'mine',AQuery.mine);
@@ -16422,6 +18828,255 @@ end;
{ --------------------------------------------------------------------
+ TLiveChatBansResource
+ --------------------------------------------------------------------}
+
+
+Class Function TLiveChatBansResource.ResourceName : String;
+
+begin
+ Result:='liveChatBans';
+end;
+
+Class Function TLiveChatBansResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TyoutubeAPI;
+end;
+
+Procedure TLiveChatBansResource.Delete(AQuery : string = '');
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'liveChat/bans';
+ _Methodid = 'youtube.liveChatBans.delete';
+
+begin
+ ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
+end;
+
+
+Procedure TLiveChatBansResource.Delete(AQuery : TLiveChatBansdeleteOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'id',AQuery.id);
+ Delete(_Q);
+end;
+
+Function TLiveChatBansResource.Insert(aLiveChatBan : TLiveChatBan; AQuery : string = '') : TLiveChatBan;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'liveChat/bans';
+ _Methodid = 'youtube.liveChatBans.insert';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLiveChatBan,TLiveChatBan) as TLiveChatBan;
+end;
+
+
+Function TLiveChatBansResource.Insert(aLiveChatBan : TLiveChatBan; AQuery : TLiveChatBansinsertOptions) : TLiveChatBan;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'part',AQuery.part);
+ Result:=Insert(aLiveChatBan,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatMessagesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TLiveChatMessagesResource.ResourceName : String;
+
+begin
+ Result:='liveChatMessages';
+end;
+
+Class Function TLiveChatMessagesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TyoutubeAPI;
+end;
+
+Procedure TLiveChatMessagesResource.Delete(AQuery : string = '');
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'liveChat/messages';
+ _Methodid = 'youtube.liveChatMessages.delete';
+
+begin
+ ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
+end;
+
+
+Procedure TLiveChatMessagesResource.Delete(AQuery : TLiveChatMessagesdeleteOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'id',AQuery.id);
+ Delete(_Q);
+end;
+
+Function TLiveChatMessagesResource.Insert(aLiveChatMessage : TLiveChatMessage; AQuery : string = '') : TLiveChatMessage;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'liveChat/messages';
+ _Methodid = 'youtube.liveChatMessages.insert';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLiveChatMessage,TLiveChatMessage) as TLiveChatMessage;
+end;
+
+
+Function TLiveChatMessagesResource.Insert(aLiveChatMessage : TLiveChatMessage; AQuery : TLiveChatMessagesinsertOptions) : TLiveChatMessage;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'part',AQuery.part);
+ Result:=Insert(aLiveChatMessage,_Q);
+end;
+
+Function TLiveChatMessagesResource.List(AQuery : string = '') : TLiveChatMessageListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'liveChat/messages';
+ _Methodid = 'youtube.liveChatMessages.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLiveChatMessageListResponse) as TLiveChatMessageListResponse;
+end;
+
+
+Function TLiveChatMessagesResource.List(AQuery : TLiveChatMessageslistOptions) : TLiveChatMessageListResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'hl',AQuery.hl);
+ AddToQuery(_Q,'liveChatId',AQuery.liveChatId);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'part',AQuery.part);
+ AddToQuery(_Q,'profileImageSize',AQuery.profileImageSize);
+ Result:=List(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TLiveChatModeratorsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TLiveChatModeratorsResource.ResourceName : String;
+
+begin
+ Result:='liveChatModerators';
+end;
+
+Class Function TLiveChatModeratorsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TyoutubeAPI;
+end;
+
+Procedure TLiveChatModeratorsResource.Delete(AQuery : string = '');
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'liveChat/moderators';
+ _Methodid = 'youtube.liveChatModerators.delete';
+
+begin
+ ServiceCall(_HTTPMethod,_Path,AQuery,Nil,Nil);
+end;
+
+
+Procedure TLiveChatModeratorsResource.Delete(AQuery : TLiveChatModeratorsdeleteOptions);
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'id',AQuery.id);
+ Delete(_Q);
+end;
+
+Function TLiveChatModeratorsResource.Insert(aLiveChatModerator : TLiveChatModerator; AQuery : string = '') : TLiveChatModerator;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'liveChat/moderators';
+ _Methodid = 'youtube.liveChatModerators.insert';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aLiveChatModerator,TLiveChatModerator) as TLiveChatModerator;
+end;
+
+
+Function TLiveChatModeratorsResource.Insert(aLiveChatModerator : TLiveChatModerator; AQuery : TLiveChatModeratorsinsertOptions) : TLiveChatModerator;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'part',AQuery.part);
+ Result:=Insert(aLiveChatModerator,_Q);
+end;
+
+Function TLiveChatModeratorsResource.List(AQuery : string = '') : TLiveChatModeratorListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'liveChat/moderators';
+ _Methodid = 'youtube.liveChatModerators.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TLiveChatModeratorListResponse) as TLiveChatModeratorListResponse;
+end;
+
+
+Function TLiveChatModeratorsResource.List(AQuery : TLiveChatModeratorslistOptions) : TLiveChatModeratorListResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'liveChatId',AQuery.liveChatId);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'part',AQuery.part);
+ Result:=List(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
TLiveStreamsResource
--------------------------------------------------------------------}
@@ -16858,6 +19513,51 @@ end;
{ --------------------------------------------------------------------
+ TSponsorsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TSponsorsResource.ResourceName : String;
+
+begin
+ Result:='sponsors';
+end;
+
+Class Function TSponsorsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TyoutubeAPI;
+end;
+
+Function TSponsorsResource.List(AQuery : string = '') : TSponsorListResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'sponsors';
+ _Methodid = 'youtube.sponsors.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSponsorListResponse) as TSponsorListResponse;
+end;
+
+
+Function TSponsorsResource.List(AQuery : TSponsorslistOptions) : TSponsorListResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'filter',AQuery.filter);
+ AddToQuery(_Q,'maxResults',AQuery.maxResults);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'part',AQuery.part);
+ Result:=List(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
TSubscriptionsResource
--------------------------------------------------------------------}
@@ -17199,7 +19899,6 @@ Var
begin
_Q:='';
AddToQuery(_Q,'chart',AQuery.chart);
- AddToQuery(_Q,'debugProjectIdOverride',AQuery.debugProjectIdOverride);
AddToQuery(_Q,'hl',AQuery.hl);
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'locale',AQuery.locale);
@@ -17233,7 +19932,6 @@ Var
begin
_Q:='';
AddToQuery(_Q,'id',AQuery.id);
- AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
AddToQuery(_Q,'rating',AQuery.rating);
Rate(_Q);
end;
@@ -17373,7 +20071,7 @@ end;
Class Function TYoutubeAPI.APIRevision : String;
begin
- Result:='20150423';
+ Result:='20160509';
end;
Class Function TYoutubeAPI.APIID : String;
@@ -17391,7 +20089,7 @@ end;
Class Function TYoutubeAPI.APIDescription : String;
begin
- Result:='Programmatic access to YouTube features.';
+ Result:='Supports core YouTube features, such as uploading videos, creating and managing playlists, searching for content, and much more.';
end;
Class Function TYoutubeAPI.APIOwnerDomain : String;
@@ -17427,7 +20125,7 @@ end;
Class Function TYoutubeAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TYoutubeAPI.APIbasePath : string;
@@ -17439,7 +20137,7 @@ end;
Class Function TYoutubeAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/youtube/v3/';
+ Result:='https://www.googleapis.com/youtube/v3/';
end;
Class Function TYoutubeAPI.APIProtocol : string;
@@ -17518,9 +20216,9 @@ begin
TChannelContentOwnerDetails.RegisterObject;
TChannelConversionPing.RegisterObject;
TChannelConversionPings.RegisterObject;
- TChannelId.RegisterObject;
TChannelListResponse.RegisterObject;
TChannelLocalization.RegisterObject;
+ TChannelProfileDetails.RegisterObject;
TChannelSectionTypelocalizations.RegisterObject;
TChannelSection.RegisterObject;
TChannelSectionContentDetails.RegisterObject;
@@ -17541,6 +20239,9 @@ begin
TCommentThreadReplies.RegisterObject;
TCommentThreadSnippet.RegisterObject;
TContentRating.RegisterObject;
+ TFanFundingEvent.RegisterObject;
+ TFanFundingEventListResponse.RegisterObject;
+ TFanFundingEventSnippet.RegisterObject;
TGeoPoint.RegisterObject;
TGuideCategory.RegisterObject;
TGuideCategoryListResponse.RegisterObject;
@@ -17562,7 +20263,25 @@ begin
TLiveBroadcastContentDetails.RegisterObject;
TLiveBroadcastListResponse.RegisterObject;
TLiveBroadcastSnippet.RegisterObject;
+ TLiveBroadcastStatistics.RegisterObject;
TLiveBroadcastStatus.RegisterObject;
+ TLiveBroadcastTopic.RegisterObject;
+ TLiveBroadcastTopicDetails.RegisterObject;
+ TLiveBroadcastTopicSnippet.RegisterObject;
+ TLiveChatBan.RegisterObject;
+ TLiveChatBanSnippet.RegisterObject;
+ TLiveChatFanFundingEventDetails.RegisterObject;
+ TLiveChatMessage.RegisterObject;
+ TLiveChatMessageAuthorDetails.RegisterObject;
+ TLiveChatMessageDeletedDetails.RegisterObject;
+ TLiveChatMessageListResponse.RegisterObject;
+ TLiveChatMessageRetractedDetails.RegisterObject;
+ TLiveChatMessageSnippet.RegisterObject;
+ TLiveChatModerator.RegisterObject;
+ TLiveChatModeratorListResponse.RegisterObject;
+ TLiveChatModeratorSnippet.RegisterObject;
+ TLiveChatTextMessageDetails.RegisterObject;
+ TLiveChatUserBannedMessageDetails.RegisterObject;
TLiveStream.RegisterObject;
TLiveStreamConfigurationIssue.RegisterObject;
TLiveStreamContentDetails.RegisterObject;
@@ -17594,6 +20313,9 @@ begin
TSearchListResponse.RegisterObject;
TSearchResult.RegisterObject;
TSearchResultSnippet.RegisterObject;
+ TSponsor.RegisterObject;
+ TSponsorListResponse.RegisterObject;
+ TSponsorSnippet.RegisterObject;
TSubscription.RegisterObject;
TSubscriptionContentDetails.RegisterObject;
TSubscriptionListResponse.RegisterObject;
@@ -17616,8 +20338,6 @@ begin
TVideoCategorySnippet.RegisterObject;
TVideoContentDetails.RegisterObject;
TVideoContentDetailsRegionRestriction.RegisterObject;
- TVideoConversionPing.RegisterObject;
- TVideoConversionPings.RegisterObject;
TVideoFileDetails.RegisterObject;
TVideoFileDetailsAudioStream.RegisterObject;
TVideoFileDetailsVideoStream.RegisterObject;
@@ -17810,6 +20530,30 @@ end;
+Function TYoutubeAPI.GetFanFundingEventsInstance : TFanFundingEventsResource;
+
+begin
+ if (FFanFundingEventsInstance=Nil) then
+ FFanFundingEventsInstance:=CreateFanFundingEventsResource;
+ Result:=FFanFundingEventsInstance;
+end;
+
+Function TYoutubeAPI.CreateFanFundingEventsResource : TFanFundingEventsResource;
+
+begin
+ Result:=CreateFanFundingEventsResource(Self);
+end;
+
+
+Function TYoutubeAPI.CreateFanFundingEventsResource(AOwner : TComponent) : TFanFundingEventsResource;
+
+begin
+ Result:=TFanFundingEventsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TYoutubeAPI.GetGuideCategoriesInstance : TGuideCategoriesResource;
begin
@@ -17906,6 +20650,78 @@ end;
+Function TYoutubeAPI.GetLiveChatBansInstance : TLiveChatBansResource;
+
+begin
+ if (FLiveChatBansInstance=Nil) then
+ FLiveChatBansInstance:=CreateLiveChatBansResource;
+ Result:=FLiveChatBansInstance;
+end;
+
+Function TYoutubeAPI.CreateLiveChatBansResource : TLiveChatBansResource;
+
+begin
+ Result:=CreateLiveChatBansResource(Self);
+end;
+
+
+Function TYoutubeAPI.CreateLiveChatBansResource(AOwner : TComponent) : TLiveChatBansResource;
+
+begin
+ Result:=TLiveChatBansResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TYoutubeAPI.GetLiveChatMessagesInstance : TLiveChatMessagesResource;
+
+begin
+ if (FLiveChatMessagesInstance=Nil) then
+ FLiveChatMessagesInstance:=CreateLiveChatMessagesResource;
+ Result:=FLiveChatMessagesInstance;
+end;
+
+Function TYoutubeAPI.CreateLiveChatMessagesResource : TLiveChatMessagesResource;
+
+begin
+ Result:=CreateLiveChatMessagesResource(Self);
+end;
+
+
+Function TYoutubeAPI.CreateLiveChatMessagesResource(AOwner : TComponent) : TLiveChatMessagesResource;
+
+begin
+ Result:=TLiveChatMessagesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TYoutubeAPI.GetLiveChatModeratorsInstance : TLiveChatModeratorsResource;
+
+begin
+ if (FLiveChatModeratorsInstance=Nil) then
+ FLiveChatModeratorsInstance:=CreateLiveChatModeratorsResource;
+ Result:=FLiveChatModeratorsInstance;
+end;
+
+Function TYoutubeAPI.CreateLiveChatModeratorsResource : TLiveChatModeratorsResource;
+
+begin
+ Result:=CreateLiveChatModeratorsResource(Self);
+end;
+
+
+Function TYoutubeAPI.CreateLiveChatModeratorsResource(AOwner : TComponent) : TLiveChatModeratorsResource;
+
+begin
+ Result:=TLiveChatModeratorsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TYoutubeAPI.GetLiveStreamsInstance : TLiveStreamsResource;
begin
@@ -18002,6 +20818,30 @@ end;
+Function TYoutubeAPI.GetSponsorsInstance : TSponsorsResource;
+
+begin
+ if (FSponsorsInstance=Nil) then
+ FSponsorsInstance:=CreateSponsorsResource;
+ Result:=FSponsorsInstance;
+end;
+
+Function TYoutubeAPI.CreateSponsorsResource : TSponsorsResource;
+
+begin
+ Result:=CreateSponsorsResource(Self);
+end;
+
+
+Function TYoutubeAPI.CreateSponsorsResource(AOwner : TComponent) : TSponsorsResource;
+
+begin
+ Result:=TSponsorsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
Function TYoutubeAPI.GetSubscriptionsInstance : TSubscriptionsResource;
begin
diff --git a/packages/googleapi/src/googleyoutubeAnalytics.pp b/packages/googleapi/src/googleyoutubeanalytics.pp
index 1d293792d3..5c5d8f5cfd 100644
--- a/packages/googleapi/src/googleyoutubeAnalytics.pp
+++ b/packages/googleapi/src/googleyoutubeanalytics.pp
@@ -1,19 +1,4 @@
unit googleyoutubeAnalytics;
-{
- **********************************************************************
- This file is part of the Free Component Library (FCL)
- Copyright (c) 2015 The free pascal team.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-//Generated on: 16-5-15 08:53:09
{$MODE objfpc}
{$H+}
@@ -90,8 +75,8 @@ type
FstartTime : TDatetime;
Protected
//Property setters
- Procedure SetendTime(AIndex : Integer; AValue : TDatetime); virtual;
- Procedure SetstartTime(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : TDatetime); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : TDatetime); virtual;
Public
Published
Property endTime : TDatetime Index 0 Read FendTime Write SetendTime;
@@ -115,10 +100,10 @@ type
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setoutputs(AIndex : Integer; AValue : TBatchReportTypeoutputsArray); virtual;
+ Procedure Setoutputs(AIndex : Integer; const AValue : TBatchReportTypeoutputsArray); virtual;
Procedure SetreportId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeSpan(AIndex : Integer; AValue : TBatchReportTypetimeSpan); virtual;
- Procedure SettimeUpdated(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SettimeSpan(AIndex : Integer; const AValue : TBatchReportTypetimeSpan); virtual;
+ Procedure SettimeUpdated(AIndex : Integer; const AValue : TDatetime); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -173,7 +158,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TBatchReportDefinitionListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TBatchReportDefinitionListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -196,7 +181,7 @@ type
Fkind : String;
Protected
//Property setters
- Procedure Setitems(AIndex : Integer; AValue : TBatchReportListTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TBatchReportListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -238,7 +223,7 @@ type
Ftitle : String;
Protected
//Property setters
- Procedure SetpublishedAt(AIndex : Integer; AValue : TDatetime); virtual;
+ Procedure SetpublishedAt(AIndex : Integer; const AValue : TDatetime); virtual;
Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
Public
Published
@@ -260,11 +245,11 @@ type
Fsnippet : TGroupTypesnippet;
Protected
//Property setters
- Procedure SetcontentDetails(AIndex : Integer; AValue : TGroupTypecontentDetails); virtual;
+ Procedure SetcontentDetails(AIndex : Integer; const AValue : TGroupTypecontentDetails); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsnippet(AIndex : Integer; AValue : TGroupTypesnippet); virtual;
+ Procedure Setsnippet(AIndex : Integer; const AValue : TGroupTypesnippet); virtual;
Public
Published
Property contentDetails : TGroupTypecontentDetails Index 0 Read FcontentDetails Write SetcontentDetails;
@@ -311,7 +296,7 @@ type
Procedure SetgroupId(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setresource(AIndex : Integer; AValue : TGroupItemTyperesource); virtual;
+ Procedure Setresource(AIndex : Integer; const AValue : TGroupItemTyperesource); virtual;
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
@@ -334,7 +319,7 @@ type
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TGroupItemListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TGroupItemListResponseTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
@@ -357,11 +342,13 @@ type
Fetag : String;
Fitems : TGroupListResponseTypeitemsArray;
Fkind : String;
+ FnextPageToken : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; AValue : TGroupListResponseTypeitemsArray); virtual;
+ Procedure Setitems(AIndex : Integer; const AValue : TGroupListResponseTypeitemsArray); 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;
@@ -371,6 +358,7 @@ type
Property etag : String Index 0 Read Fetag Write Setetag;
Property items : TGroupListResponseTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
+ Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
end;
TGroupListResponseClass = Class of TGroupListResponse;
@@ -407,9 +395,9 @@ type
Frows : TResultTableTyperowsArray;
Protected
//Property setters
- Procedure SetcolumnHeaders(AIndex : Integer; AValue : TResultTableTypecolumnHeadersArray); virtual;
+ Procedure SetcolumnHeaders(AIndex : Integer; const AValue : TResultTableTypecolumnHeadersArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrows(AIndex : Integer; AValue : TResultTableTyperowsArray); virtual;
+ Procedure Setrows(AIndex : Integer; const AValue : TResultTableTyperowsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
@@ -529,6 +517,7 @@ type
id : String;
mine : boolean;
onBehalfOfContentOwner : String;
+ pageToken : String;
end;
@@ -695,7 +684,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBatchReportTypetimeSpan.SetendTime(AIndex : Integer; AValue : TDatetime);
+Procedure TBatchReportTypetimeSpan.SetendTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FendTime=AValue) then exit;
@@ -705,7 +694,7 @@ end;
-Procedure TBatchReportTypetimeSpan.SetstartTime(AIndex : Integer; AValue : TDatetime);
+Procedure TBatchReportTypetimeSpan.SetstartTime(AIndex : Integer; const AValue : TDatetime);
begin
If (FstartTime=AValue) then exit;
@@ -742,7 +731,7 @@ end;
-Procedure TBatchReport.Setoutputs(AIndex : Integer; AValue : TBatchReportTypeoutputsArray);
+Procedure TBatchReport.Setoutputs(AIndex : Integer; const AValue : TBatchReportTypeoutputsArray);
begin
If (Foutputs=AValue) then exit;
@@ -762,7 +751,7 @@ end;
-Procedure TBatchReport.SettimeSpan(AIndex : Integer; AValue : TBatchReportTypetimeSpan);
+Procedure TBatchReport.SettimeSpan(AIndex : Integer; const AValue : TBatchReportTypetimeSpan);
begin
If (FtimeSpan=AValue) then exit;
@@ -772,7 +761,7 @@ end;
-Procedure TBatchReport.SettimeUpdated(AIndex : Integer; AValue : TDatetime);
+Procedure TBatchReport.SettimeUpdated(AIndex : Integer; const AValue : TDatetime);
begin
If (FtimeUpdated=AValue) then exit;
@@ -870,7 +859,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBatchReportDefinitionList.Setitems(AIndex : Integer; AValue : TBatchReportDefinitionListTypeitemsArray);
+Procedure TBatchReportDefinitionList.Setitems(AIndex : Integer; const AValue : TBatchReportDefinitionListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -910,7 +899,7 @@ end;
--------------------------------------------------------------------}
-Procedure TBatchReportList.Setitems(AIndex : Integer; AValue : TBatchReportListTypeitemsArray);
+Procedure TBatchReportList.Setitems(AIndex : Integer; const AValue : TBatchReportListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -977,7 +966,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGroupTypesnippet.SetpublishedAt(AIndex : Integer; AValue : TDatetime);
+Procedure TGroupTypesnippet.SetpublishedAt(AIndex : Integer; const AValue : TDatetime);
begin
If (FpublishedAt=AValue) then exit;
@@ -1004,7 +993,7 @@ end;
--------------------------------------------------------------------}
-Procedure TGroup.SetcontentDetails(AIndex : Integer; AValue : TGroupTypecontentDetails);
+Procedure TGroup.SetcontentDetails(AIndex : Integer; const AValue : TGroupTypecontentDetails);
begin
If (FcontentDetails=AValue) then exit;
@@ -1044,7 +1033,7 @@ end;
-Procedure TGroup.Setsnippet(AIndex : Integer; AValue : TGroupTypesnippet);
+Procedure TGroup.Setsnippet(AIndex : Integer; const AValue : TGroupTypesnippet);
begin
If (Fsnippet=AValue) then exit;
@@ -1128,7 +1117,7 @@ end;
-Procedure TGroupItem.Setresource(AIndex : Integer; AValue : TGroupItemTyperesource);
+Procedure TGroupItem.Setresource(AIndex : Integer; const AValue : TGroupItemTyperesource);
begin
If (Fresource=AValue) then exit;
@@ -1155,7 +1144,7 @@ end;
-Procedure TGroupItemListResponse.Setitems(AIndex : Integer; AValue : TGroupItemListResponseTypeitemsArray);
+Procedure TGroupItemListResponse.Setitems(AIndex : Integer; const AValue : TGroupItemListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1205,7 +1194,7 @@ end;
-Procedure TGroupListResponse.Setitems(AIndex : Integer; AValue : TGroupListResponseTypeitemsArray);
+Procedure TGroupListResponse.Setitems(AIndex : Integer; const AValue : TGroupListResponseTypeitemsArray);
begin
If (Fitems=AValue) then exit;
@@ -1224,6 +1213,16 @@ begin
end;
+
+Procedure TGroupListResponse.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 TGroupListResponse.SetArrayLength(Const AName : String; ALength : Longint);
@@ -1282,7 +1281,7 @@ end;
--------------------------------------------------------------------}
-Procedure TResultTable.SetcolumnHeaders(AIndex : Integer; AValue : TResultTableTypecolumnHeadersArray);
+Procedure TResultTable.SetcolumnHeaders(AIndex : Integer; const AValue : TResultTableTypecolumnHeadersArray);
begin
If (FcolumnHeaders=AValue) then exit;
@@ -1302,7 +1301,7 @@ end;
-Procedure TResultTable.Setrows(AIndex : Integer; AValue : TResultTableTyperowsArray);
+Procedure TResultTable.Setrows(AIndex : Integer; const AValue : TResultTableTyperowsArray);
begin
If (Frows=AValue) then exit;
@@ -1589,6 +1588,7 @@ begin
AddToQuery(_Q,'id',AQuery.id);
AddToQuery(_Q,'mine',AQuery.mine);
AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(_Q);
end;
@@ -1687,7 +1687,7 @@ end;
Class Function TYoutubeAnalyticsAPI.APIRevision : String;
begin
- Result:='20150304';
+ Result:='20160513';
end;
Class Function TYoutubeAnalyticsAPI.APIID : String;
@@ -1705,7 +1705,7 @@ end;
Class Function TYoutubeAnalyticsAPI.APIDescription : String;
begin
- Result:='Retrieve your YouTube Analytics reports.';
+ Result:='Retrieves your YouTube Analytics data.';
end;
Class Function TYoutubeAnalyticsAPI.APIOwnerDomain : String;
@@ -1741,7 +1741,7 @@ end;
Class Function TYoutubeAnalyticsAPI.APIrootUrl : string;
begin
- Result:='https://www.googleapis.com:443/';
+ Result:='https://www.googleapis.com/';
end;
Class Function TYoutubeAnalyticsAPI.APIbasePath : string;
@@ -1753,7 +1753,7 @@ end;
Class Function TYoutubeAnalyticsAPI.APIbaseURL : String;
begin
- Result:='https://www.googleapis.com:443/youtube/analytics/v1/';
+ Result:='https://www.googleapis.com/youtube/analytics/v1/';
end;
Class Function TYoutubeAnalyticsAPI.APIProtocol : string;
@@ -1785,7 +1785,7 @@ begin
Result[2].Name:='https://www.googleapis.com/auth/youtubepartner';
Result[2].Description:='View and manage your assets and associated content on YouTube';
Result[3].Name:='https://www.googleapis.com/auth/yt-analytics-monetary.readonly';
- Result[3].Description:='View YouTube Analytics monetary reports for your YouTube content';
+ Result[3].Description:='View monetary and non-monetary YouTube Analytics reports for your YouTube content';
Result[4].Name:='https://www.googleapis.com/auth/yt-analytics.readonly';
Result[4].Description:='View YouTube Analytics reports for your YouTube content';
diff --git a/packages/googleapi/src/googleyoutubereporting.pp b/packages/googleapi/src/googleyoutubereporting.pp
new file mode 100644
index 0000000000..5192f33f61
--- /dev/null
+++ b/packages/googleapi/src/googleyoutubereporting.pp
@@ -0,0 +1,1274 @@
+unit googleyoutubereporting;
+{$MODE objfpc}
+{$H+}
+
+interface
+
+uses sysutils, classes, googleservice, restbase, googlebase;
+
+type
+
+ //Top-level schema types
+ TMedia = Class;
+ TListReportTypesResponse = Class;
+ TReportType = Class;
+ TJob = Class;
+ TListJobsResponse = Class;
+ TEmpty = Class;
+ TListReportsResponse = Class;
+ TReport = Class;
+ TMediaArray = Array of TMedia;
+ TListReportTypesResponseArray = Array of TListReportTypesResponse;
+ TReportTypeArray = Array of TReportType;
+ TJobArray = Array of TJob;
+ TListJobsResponseArray = Array of TListJobsResponse;
+ TEmptyArray = Array of TEmpty;
+ TListReportsResponseArray = Array of TListReportsResponse;
+ TReportArray = Array of TReport;
+ //Anonymous types, using auto-generated names
+ TListReportTypesResponseTypereportTypesArray = Array of TReportType;
+ TListJobsResponseTypejobsArray = Array of TJob;
+ TListReportsResponseTypereportsArray = Array of TReport;
+
+ { --------------------------------------------------------------------
+ TMedia
+ --------------------------------------------------------------------}
+
+ TMedia = Class(TGoogleBaseObject)
+ Private
+ FresourceName : String;
+ Protected
+ //Property setters
+ Procedure SetresourceName(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property resourceName : String Index 0 Read FresourceName Write SetresourceName;
+ end;
+ TMediaClass = Class of TMedia;
+
+ { --------------------------------------------------------------------
+ TListReportTypesResponse
+ --------------------------------------------------------------------}
+
+ TListReportTypesResponse = Class(TGoogleBaseObject)
+ Private
+ FreportTypes : TListReportTypesResponseTypereportTypesArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure SetreportTypes(AIndex : Integer; const AValue : TListReportTypesResponseTypereportTypesArray); 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 reportTypes : TListReportTypesResponseTypereportTypesArray Index 0 Read FreportTypes Write SetreportTypes;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListReportTypesResponseClass = Class of TListReportTypesResponse;
+
+ { --------------------------------------------------------------------
+ TReportType
+ --------------------------------------------------------------------}
+
+ TReportType = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ Fname : String;
+ FdeprecateTime : String;
+ FsystemManaged : boolean;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdeprecateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsystemManaged(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property name : String Index 8 Read Fname Write Setname;
+ Property deprecateTime : String Index 16 Read FdeprecateTime Write SetdeprecateTime;
+ Property systemManaged : boolean Index 24 Read FsystemManaged Write SetsystemManaged;
+ end;
+ TReportTypeClass = Class of TReportType;
+
+ { --------------------------------------------------------------------
+ TJob
+ --------------------------------------------------------------------}
+
+ TJob = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ FreportTypeId : String;
+ Fname : String;
+ FcreateTime : String;
+ FexpireTime : String;
+ FsystemManaged : boolean;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetreportTypeId(AIndex : Integer; const AValue : String); virtual;
+ Procedure Setname(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetexpireTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetsystemManaged(AIndex : Integer; const AValue : boolean); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property reportTypeId : String Index 8 Read FreportTypeId Write SetreportTypeId;
+ Property name : String Index 16 Read Fname Write Setname;
+ Property createTime : String Index 24 Read FcreateTime Write SetcreateTime;
+ Property expireTime : String Index 32 Read FexpireTime Write SetexpireTime;
+ Property systemManaged : boolean Index 40 Read FsystemManaged Write SetsystemManaged;
+ end;
+ TJobClass = Class of TJob;
+
+ { --------------------------------------------------------------------
+ TListJobsResponse
+ --------------------------------------------------------------------}
+
+ TListJobsResponse = Class(TGoogleBaseObject)
+ Private
+ Fjobs : TListJobsResponseTypejobsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setjobs(AIndex : Integer; const AValue : TListJobsResponseTypejobsArray); 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 jobs : TListJobsResponseTypejobsArray Index 0 Read Fjobs Write Setjobs;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListJobsResponseClass = Class of TListJobsResponse;
+
+ { --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+ TEmpty = Class(TGoogleBaseObject)
+ Private
+ Protected
+ //Property setters
+ Public
+ Published
+ end;
+ TEmptyClass = Class of TEmpty;
+
+ { --------------------------------------------------------------------
+ TListReportsResponse
+ --------------------------------------------------------------------}
+
+ TListReportsResponse = Class(TGoogleBaseObject)
+ Private
+ Freports : TListReportsResponseTypereportsArray;
+ FnextPageToken : String;
+ Protected
+ //Property setters
+ Procedure Setreports(AIndex : Integer; const AValue : TListReportsResponseTypereportsArray); 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 reports : TListReportsResponseTypereportsArray Index 0 Read Freports Write Setreports;
+ Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
+ end;
+ TListReportsResponseClass = Class of TListReportsResponse;
+
+ { --------------------------------------------------------------------
+ TReport
+ --------------------------------------------------------------------}
+
+ TReport = Class(TGoogleBaseObject)
+ Private
+ Fid : String;
+ FjobId : String;
+ FjobExpireTime : String;
+ FstartTime : String;
+ FendTime : String;
+ FcreateTime : String;
+ FdownloadUrl : String;
+ Protected
+ //Property setters
+ Procedure Setid(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetjobExpireTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
+ Procedure SetdownloadUrl(AIndex : Integer; const AValue : String); virtual;
+ Public
+ Published
+ Property id : String Index 0 Read Fid Write Setid;
+ Property jobId : String Index 8 Read FjobId Write SetjobId;
+ Property jobExpireTime : String Index 16 Read FjobExpireTime Write SetjobExpireTime;
+ Property startTime : String Index 24 Read FstartTime Write SetstartTime;
+ Property endTime : String Index 32 Read FendTime Write SetendTime;
+ Property createTime : String Index 40 Read FcreateTime Write SetcreateTime;
+ Property downloadUrl : String Index 48 Read FdownloadUrl Write SetdownloadUrl;
+ end;
+ TReportClass = Class of TReport;
+
+ { --------------------------------------------------------------------
+ TMediaResource
+ --------------------------------------------------------------------}
+
+ TMediaResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Download(_resourceName: string) : TMedia;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TReportTypesResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TReportTypesResource, method List
+
+ TReportTypesListOptions = Record
+ onBehalfOfContentOwner : String;
+ pageSize : integer;
+ pageToken : String;
+ includeSystemManaged : boolean;
+ end;
+
+ TReportTypesResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(AQuery : string = '') : TListReportTypesResponse;
+ Function List(AQuery : TReportTypeslistOptions) : TListReportTypesResponse;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TJobsReportsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TJobsReportsResource, method List
+
+ TJobsReportsListOptions = Record
+ onBehalfOfContentOwner : String;
+ pageSize : integer;
+ pageToken : String;
+ createdAfter : String;
+ startTimeAtOrAfter : String;
+ startTimeBefore : String;
+ end;
+
+
+ //Optional query Options for TJobsReportsResource, method Get
+
+ TJobsReportsGetOptions = Record
+ onBehalfOfContentOwner : String;
+ end;
+
+ TJobsReportsResource = Class(TGoogleResource)
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function List(jobId: string; AQuery : string = '') : TListReportsResponse;
+ Function List(jobId: string; AQuery : TJobsReportslistOptions) : TListReportsResponse;
+ Function Get(jobId: string; reportId: string; AQuery : string = '') : TReport;
+ Function Get(jobId: string; reportId: string; AQuery : TJobsReportsgetOptions) : TReport;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TJobsResource
+ --------------------------------------------------------------------}
+
+
+ //Optional query Options for TJobsResource, method Create
+
+ TJobsCreateOptions = Record
+ onBehalfOfContentOwner : String;
+ end;
+
+
+ //Optional query Options for TJobsResource, method List
+
+ TJobsListOptions = Record
+ onBehalfOfContentOwner : String;
+ pageSize : integer;
+ pageToken : String;
+ includeSystemManaged : boolean;
+ end;
+
+
+ //Optional query Options for TJobsResource, method Get
+
+ TJobsGetOptions = Record
+ onBehalfOfContentOwner : String;
+ end;
+
+
+ //Optional query Options for TJobsResource, method Delete
+
+ TJobsDeleteOptions = Record
+ onBehalfOfContentOwner : String;
+ end;
+
+ TJobsResource = Class(TGoogleResource)
+ Private
+ FReportsInstance : TJobsReportsResource;
+ Function GetReportsInstance : TJobsReportsResource;virtual;
+ Public
+ Class Function ResourceName : String; override;
+ Class Function DefaultAPI : TGoogleAPIClass; override;
+ Function Create(aJob : TJob; AQuery : string = '') : TJob;overload;
+ Function Create(aJob : TJob; AQuery : TJobscreateOptions) : TJob;overload;
+ Function List(AQuery : string = '') : TListJobsResponse;
+ Function List(AQuery : TJobslistOptions) : TListJobsResponse;
+ Function Get(jobId: string; AQuery : string = '') : TJob;
+ Function Get(jobId: string; AQuery : TJobsgetOptions) : TJob;
+ Function Delete(jobId: string; AQuery : string = '') : TEmpty;
+ Function Delete(jobId: string; AQuery : TJobsdeleteOptions) : TEmpty;
+ Function CreateReportsResource(AOwner : TComponent) : TJobsReportsResource;virtual;overload;
+ Function CreateReportsResource : TJobsReportsResource;virtual;overload;
+ Property ReportsResource : TJobsReportsResource Read GetReportsInstance;
+ end;
+
+
+ { --------------------------------------------------------------------
+ TYoutubereportingAPI
+ --------------------------------------------------------------------}
+
+ TYoutubereportingAPI = Class(TGoogleAPI)
+ Private
+ FMediaInstance : TMediaResource;
+ FReportTypesInstance : TReportTypesResource;
+ FJobsReportsInstance : TJobsReportsResource;
+ FJobsInstance : TJobsResource;
+ Function GetMediaInstance : TMediaResource;virtual;
+ Function GetReportTypesInstance : TReportTypesResource;virtual;
+ Function GetJobsReportsInstance : TJobsReportsResource;virtual;
+ Function GetJobsInstance : TJobsResource;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 CreateMediaResource(AOwner : TComponent) : TMediaResource;virtual;overload;
+ Function CreateMediaResource : TMediaResource;virtual;overload;
+ Function CreateReportTypesResource(AOwner : TComponent) : TReportTypesResource;virtual;overload;
+ Function CreateReportTypesResource : TReportTypesResource;virtual;overload;
+ Function CreateJobsReportsResource(AOwner : TComponent) : TJobsReportsResource;virtual;overload;
+ Function CreateJobsReportsResource : TJobsReportsResource;virtual;overload;
+ Function CreateJobsResource(AOwner : TComponent) : TJobsResource;virtual;overload;
+ Function CreateJobsResource : TJobsResource;virtual;overload;
+ //Add default on-demand instances for resources
+ Property MediaResource : TMediaResource Read GetMediaInstance;
+ Property ReportTypesResource : TReportTypesResource Read GetReportTypesInstance;
+ Property JobsReportsResource : TJobsReportsResource Read GetJobsReportsInstance;
+ Property JobsResource : TJobsResource Read GetJobsInstance;
+ end;
+
+implementation
+
+
+{ --------------------------------------------------------------------
+ TMedia
+ --------------------------------------------------------------------}
+
+
+Procedure TMedia.SetresourceName(AIndex : Integer; const AValue : String);
+
+begin
+ If (FresourceName=AValue) then exit;
+ FresourceName:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListReportTypesResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListReportTypesResponse.SetreportTypes(AIndex : Integer; const AValue : TListReportTypesResponseTypereportTypesArray);
+
+begin
+ If (FreportTypes=AValue) then exit;
+ FreportTypes:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListReportTypesResponse.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 TListReportTypesResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'reporttypes' : SetLength(FreportTypes,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TReportType
+ --------------------------------------------------------------------}
+
+
+Procedure TReportType.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportType.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportType.SetdeprecateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdeprecateTime=AValue) then exit;
+ FdeprecateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReportType.SetsystemManaged(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FsystemManaged=AValue) then exit;
+ FsystemManaged:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TJob
+ --------------------------------------------------------------------}
+
+
+Procedure TJob.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SetreportTypeId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FreportTypeId=AValue) then exit;
+ FreportTypeId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.Setname(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fname=AValue) then exit;
+ Fname:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SetcreateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SetexpireTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FexpireTime=AValue) then exit;
+ FexpireTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TJob.SetsystemManaged(AIndex : Integer; const AValue : boolean);
+
+begin
+ If (FsystemManaged=AValue) then exit;
+ FsystemManaged:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TListJobsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListJobsResponse.Setjobs(AIndex : Integer; const AValue : TListJobsResponseTypejobsArray);
+
+begin
+ If (Fjobs=AValue) then exit;
+ Fjobs:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListJobsResponse.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 TListJobsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'jobs' : SetLength(Fjobs,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TEmpty
+ --------------------------------------------------------------------}
+
+
+
+
+{ --------------------------------------------------------------------
+ TListReportsResponse
+ --------------------------------------------------------------------}
+
+
+Procedure TListReportsResponse.Setreports(AIndex : Integer; const AValue : TListReportsResponseTypereportsArray);
+
+begin
+ If (Freports=AValue) then exit;
+ Freports:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TListReportsResponse.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 TListReportsResponse.SetArrayLength(Const AName : String; ALength : Longint);
+
+begin
+ Case AName of
+ 'reports' : SetLength(Freports,ALength);
+ else
+ Inherited SetArrayLength(AName,ALength);
+ end;
+end;
+{$ENDIF VER2_6}
+
+
+
+
+{ --------------------------------------------------------------------
+ TReport
+ --------------------------------------------------------------------}
+
+
+Procedure TReport.Setid(AIndex : Integer; const AValue : String);
+
+begin
+ If (Fid=AValue) then exit;
+ Fid:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReport.SetjobId(AIndex : Integer; const AValue : String);
+
+begin
+ If (FjobId=AValue) then exit;
+ FjobId:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReport.SetjobExpireTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FjobExpireTime=AValue) then exit;
+ FjobExpireTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReport.SetstartTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FstartTime=AValue) then exit;
+ FstartTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReport.SetendTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FendTime=AValue) then exit;
+ FendTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReport.SetcreateTime(AIndex : Integer; const AValue : String);
+
+begin
+ If (FcreateTime=AValue) then exit;
+ FcreateTime:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+Procedure TReport.SetdownloadUrl(AIndex : Integer; const AValue : String);
+
+begin
+ If (FdownloadUrl=AValue) then exit;
+ FdownloadUrl:=AValue;
+ MarkPropertyChanged(AIndex);
+end;
+
+
+
+
+
+{ --------------------------------------------------------------------
+ TMediaResource
+ --------------------------------------------------------------------}
+
+
+Class Function TMediaResource.ResourceName : String;
+
+begin
+ Result:='media';
+end;
+
+Class Function TMediaResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TyoutubereportingAPI;
+end;
+
+Function TMediaResource.Download(_resourceName: string) : TMedia;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/media/{+resourceName}';
+ _Methodid = 'youtubereporting.media.download';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['resourceName',_resourceName]);
+ Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TMedia) as TMedia;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TReportTypesResource
+ --------------------------------------------------------------------}
+
+
+Class Function TReportTypesResource.ResourceName : String;
+
+begin
+ Result:='reportTypes';
+end;
+
+Class Function TReportTypesResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TyoutubereportingAPI;
+end;
+
+Function TReportTypesResource.List(AQuery : string = '') : TListReportTypesResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/reportTypes';
+ _Methodid = 'youtubereporting.reportTypes.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListReportTypesResponse) as TListReportTypesResponse;
+end;
+
+
+Function TReportTypesResource.List(AQuery : TReportTypeslistOptions) : TListReportTypesResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'includeSystemManaged',AQuery.includeSystemManaged);
+ Result:=List(_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TJobsReportsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TJobsReportsResource.ResourceName : String;
+
+begin
+ Result:='reports';
+end;
+
+Class Function TJobsReportsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TyoutubereportingAPI;
+end;
+
+Function TJobsReportsResource.List(jobId: string; AQuery : string = '') : TListReportsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/jobs/{jobId}/reports';
+ _Methodid = 'youtubereporting.jobs.reports.list';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['jobId',jobId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListReportsResponse) as TListReportsResponse;
+end;
+
+
+Function TJobsReportsResource.List(jobId: string; AQuery : TJobsReportslistOptions) : TListReportsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'createdAfter',AQuery.createdAfter);
+ AddToQuery(_Q,'startTimeAtOrAfter',AQuery.startTimeAtOrAfter);
+ AddToQuery(_Q,'startTimeBefore',AQuery.startTimeBefore);
+ Result:=List(jobId,_Q);
+end;
+
+Function TJobsReportsResource.Get(jobId: string; reportId: string; AQuery : string = '') : TReport;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/jobs/{jobId}/reports/{reportId}';
+ _Methodid = 'youtubereporting.jobs.reports.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['jobId',jobId,'reportId',reportId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TReport) as TReport;
+end;
+
+
+Function TJobsReportsResource.Get(jobId: string; reportId: string; AQuery : TJobsReportsgetOptions) : TReport;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
+ Result:=Get(jobId,reportId,_Q);
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TJobsResource
+ --------------------------------------------------------------------}
+
+
+Class Function TJobsResource.ResourceName : String;
+
+begin
+ Result:='jobs';
+end;
+
+Class Function TJobsResource.DefaultAPI : TGoogleAPIClass;
+
+begin
+ Result:=TyoutubereportingAPI;
+end;
+
+Function TJobsResource.Create(aJob : TJob; AQuery : string = '') : TJob;
+
+Const
+ _HTTPMethod = 'POST';
+ _Path = 'v1/jobs';
+ _Methodid = 'youtubereporting.jobs.create';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aJob,TJob) as TJob;
+end;
+
+
+Function TJobsResource.Create(aJob : TJob; AQuery : TJobscreateOptions) : TJob;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
+ Result:=Create(aJob,_Q);
+end;
+
+Function TJobsResource.List(AQuery : string = '') : TListJobsResponse;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/jobs';
+ _Methodid = 'youtubereporting.jobs.list';
+
+begin
+ Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListJobsResponse) as TListJobsResponse;
+end;
+
+
+Function TJobsResource.List(AQuery : TJobslistOptions) : TListJobsResponse;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
+ AddToQuery(_Q,'pageSize',AQuery.pageSize);
+ AddToQuery(_Q,'pageToken',AQuery.pageToken);
+ AddToQuery(_Q,'includeSystemManaged',AQuery.includeSystemManaged);
+ Result:=List(_Q);
+end;
+
+Function TJobsResource.Get(jobId: string; AQuery : string = '') : TJob;
+
+Const
+ _HTTPMethod = 'GET';
+ _Path = 'v1/jobs/{jobId}';
+ _Methodid = 'youtubereporting.jobs.get';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['jobId',jobId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TJob) as TJob;
+end;
+
+
+Function TJobsResource.Get(jobId: string; AQuery : TJobsgetOptions) : TJob;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
+ Result:=Get(jobId,_Q);
+end;
+
+Function TJobsResource.Delete(jobId: string; AQuery : string = '') : TEmpty;
+
+Const
+ _HTTPMethod = 'DELETE';
+ _Path = 'v1/jobs/{jobId}';
+ _Methodid = 'youtubereporting.jobs.delete';
+
+Var
+ _P : String;
+
+begin
+ _P:=SubstitutePath(_Path,['jobId',jobId]);
+ Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEmpty) as TEmpty;
+end;
+
+
+Function TJobsResource.Delete(jobId: string; AQuery : TJobsdeleteOptions) : TEmpty;
+
+Var
+ _Q : String;
+
+begin
+ _Q:='';
+ AddToQuery(_Q,'onBehalfOfContentOwner',AQuery.onBehalfOfContentOwner);
+ Result:=Delete(jobId,_Q);
+end;
+
+
+
+Function TJobsResource.GetReportsInstance : TJobsReportsResource;
+
+begin
+ if (FReportsInstance=Nil) then
+ FReportsInstance:=CreateReportsResource;
+ Result:=FReportsInstance;
+end;
+
+Function TJobsResource.CreateReportsResource : TJobsReportsResource;
+
+begin
+ Result:=CreateReportsResource(Self);
+end;
+
+
+Function TJobsResource.CreateReportsResource(AOwner : TComponent) : TJobsReportsResource;
+
+begin
+ Result:=TJobsReportsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+{ --------------------------------------------------------------------
+ TYoutubereportingAPI
+ --------------------------------------------------------------------}
+
+Class Function TYoutubereportingAPI.APIName : String;
+
+begin
+ Result:='youtubereporting';
+end;
+
+Class Function TYoutubereportingAPI.APIVersion : String;
+
+begin
+ Result:='v1';
+end;
+
+Class Function TYoutubereportingAPI.APIRevision : String;
+
+begin
+ Result:='20160517';
+end;
+
+Class Function TYoutubereportingAPI.APIID : String;
+
+begin
+ Result:='youtubereporting:v1';
+end;
+
+Class Function TYoutubereportingAPI.APITitle : String;
+
+begin
+ Result:='YouTube Reporting API';
+end;
+
+Class Function TYoutubereportingAPI.APIDescription : String;
+
+begin
+ Result:='Schedules reporting jobs containing your YouTube Analytics data and downloads the resulting bulk data reports in the form of CSV files.';
+end;
+
+Class Function TYoutubereportingAPI.APIOwnerDomain : String;
+
+begin
+ Result:='google.com';
+end;
+
+Class Function TYoutubereportingAPI.APIOwnerName : String;
+
+begin
+ Result:='Google';
+end;
+
+Class Function TYoutubereportingAPI.APIIcon16 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-16.gif';
+end;
+
+Class Function TYoutubereportingAPI.APIIcon32 : String;
+
+begin
+ Result:='http://www.google.com/images/icons/product/search-32.gif';
+end;
+
+Class Function TYoutubereportingAPI.APIdocumentationLink : String;
+
+begin
+ Result:='https://developers.google.com/youtube/reporting/v1/reports/';
+end;
+
+Class Function TYoutubereportingAPI.APIrootUrl : string;
+
+begin
+ Result:='https://youtubereporting.googleapis.com/';
+end;
+
+Class Function TYoutubereportingAPI.APIbasePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TYoutubereportingAPI.APIbaseURL : String;
+
+begin
+ Result:='https://youtubereporting.googleapis.com/';
+end;
+
+Class Function TYoutubereportingAPI.APIProtocol : string;
+
+begin
+ Result:='rest';
+end;
+
+Class Function TYoutubereportingAPI.APIservicePath : string;
+
+begin
+ Result:='';
+end;
+
+Class Function TYoutubereportingAPI.APIbatchPath : String;
+
+begin
+ Result:='batch';
+end;
+
+Class Function TYoutubereportingAPI.APIAuthScopes : TScopeInfoArray;
+
+begin
+ SetLength(Result,2);
+ Result[0].Name:='https://www.googleapis.com/auth/yt-analytics-monetary.readonly';
+ Result[0].Description:='View monetary and non-monetary YouTube Analytics reports for your YouTube content';
+ Result[1].Name:='https://www.googleapis.com/auth/yt-analytics.readonly';
+ Result[1].Description:='View YouTube Analytics reports for your YouTube content';
+
+end;
+
+Class Function TYoutubereportingAPI.APINeedsAuth : Boolean;
+
+begin
+ Result:=True;
+end;
+
+Class Procedure TYoutubereportingAPI.RegisterAPIResources;
+
+begin
+ TMedia.RegisterObject;
+ TListReportTypesResponse.RegisterObject;
+ TReportType.RegisterObject;
+ TJob.RegisterObject;
+ TListJobsResponse.RegisterObject;
+ TEmpty.RegisterObject;
+ TListReportsResponse.RegisterObject;
+ TReport.RegisterObject;
+end;
+
+
+Function TYoutubereportingAPI.GetMediaInstance : TMediaResource;
+
+begin
+ if (FMediaInstance=Nil) then
+ FMediaInstance:=CreateMediaResource;
+ Result:=FMediaInstance;
+end;
+
+Function TYoutubereportingAPI.CreateMediaResource : TMediaResource;
+
+begin
+ Result:=CreateMediaResource(Self);
+end;
+
+
+Function TYoutubereportingAPI.CreateMediaResource(AOwner : TComponent) : TMediaResource;
+
+begin
+ Result:=TMediaResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TYoutubereportingAPI.GetReportTypesInstance : TReportTypesResource;
+
+begin
+ if (FReportTypesInstance=Nil) then
+ FReportTypesInstance:=CreateReportTypesResource;
+ Result:=FReportTypesInstance;
+end;
+
+Function TYoutubereportingAPI.CreateReportTypesResource : TReportTypesResource;
+
+begin
+ Result:=CreateReportTypesResource(Self);
+end;
+
+
+Function TYoutubereportingAPI.CreateReportTypesResource(AOwner : TComponent) : TReportTypesResource;
+
+begin
+ Result:=TReportTypesResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TYoutubereportingAPI.GetJobsReportsInstance : TJobsReportsResource;
+
+begin
+ if (FJobsReportsInstance=Nil) then
+ FJobsReportsInstance:=CreateJobsReportsResource;
+ Result:=FJobsReportsInstance;
+end;
+
+Function TYoutubereportingAPI.CreateJobsReportsResource : TJobsReportsResource;
+
+begin
+ Result:=CreateJobsReportsResource(Self);
+end;
+
+
+Function TYoutubereportingAPI.CreateJobsReportsResource(AOwner : TComponent) : TJobsReportsResource;
+
+begin
+ Result:=TJobsReportsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+Function TYoutubereportingAPI.GetJobsInstance : TJobsResource;
+
+begin
+ if (FJobsInstance=Nil) then
+ FJobsInstance:=CreateJobsResource;
+ Result:=FJobsInstance;
+end;
+
+Function TYoutubereportingAPI.CreateJobsResource : TJobsResource;
+
+begin
+ Result:=CreateJobsResource(Self);
+end;
+
+
+Function TYoutubereportingAPI.CreateJobsResource(AOwner : TComponent) : TJobsResource;
+
+begin
+ Result:=TJobsResource.Create(AOwner);
+ Result.API:=Self.API;
+end;
+
+
+
+initialization
+ TYoutubereportingAPI.RegisterAPI;
+end.
diff --git a/packages/ibase/src/ibase60.inc b/packages/ibase/src/ibase60.inc
index 908090ac37..de1cf8c67e 100644
--- a/packages/ibase/src/ibase60.inc
+++ b/packages/ibase/src/ibase60.inc
@@ -92,6 +92,7 @@ Type
ISC_INT64 = int64;
ISC_UINT64 = qword;
ISC_LONG = Longint;
+ ISC_ULONG = dword;
PISC_USHORT = ^ISC_USHORT;
PISC_STATUS = ^ISC_STATUS;
@@ -155,7 +156,7 @@ Type
GDS_QUAD = record
gds_quad_high : ISC_LONG;
- gds_quad_low : ISC_LONG;
+ gds_quad_low : ISC_ULONG;
end;
TGDS_QUAD = GDS_QUAD;
PGDS_QUAD = ^GDS_QUAD;
diff --git a/packages/os4units/fpmake.pp b/packages/os4units/fpmake.pp
index cbf26c9e29..3d7f906823 100644
--- a/packages/os4units/fpmake.pp
+++ b/packages/os4units/fpmake.pp
@@ -47,6 +47,8 @@ begin
T:=P.Targets.AddUnit('workbench.pas');
T:=P.Targets.AddUnit('asl.pas');
T:=P.Targets.AddUnit('icon.pas');
+ T:=P.Targets.AddUnit('picasso96api.pas');
+ T:=P.Targets.AddUnit('cybergraphics.pas');
{$ifndef ALLPACKAGES}
Run;
diff --git a/packages/os4units/src/cybergraphics.pas b/packages/os4units/src/cybergraphics.pas
new file mode 100644
index 0000000000..995dcef99a
--- /dev/null
+++ b/packages/os4units/src/cybergraphics.pas
@@ -0,0 +1,257 @@
+{
+ This file is part of the Free Pascal run time library.
+ Copyright (c) 2014 by Free Pascal development team
+
+ cybergraphics.library functions
+
+ See the file COPYING.FPC, included in this distribution,
+ for details about the copyright.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+unit cybergraphics;
+
+interface
+
+uses
+ Exec, agraphics, utility;
+
+const
+ CYBERGFXNAME = 'cybergraphics.library';
+ CYBERGFX_INCLUDE_VERSION = 41;
+
+ // Definition of CyberModeNode (Returned in AllocModeList)
+
+type
+ PCyberModeNode = ^TCyberModeNode;
+ TCyberModeNode = record
+ Node: TNode;
+ ModeText: array[0..DISPLAYNAMELEN - 1] of Char; // name for this mode
+ DisplayID: ULONG; // display id associated with the node
+ Width: UWORD; // visible width
+ Height: UWORD; // visible height
+ Depth: UWORD; // display depth
+ DisplayTagList: PTagItem; // taglist with extended ModeID information
+ end;
+
+
+const
+// Parameters for GetCyberMapAttr()
+ CYBRMATTR_XMOD = $80000001; // function returns BytesPerRow if its called with this parameter
+ CYBRMATTR_BPPIX = $80000002; // BytesPerPixel shall be returned
+ CYBRMATTR_DISPADR = $80000003; // do not use this ! private tag
+ CYBRMATTR_PIXFMT = $80000004; // the pixel format is returned
+ CYBRMATTR_WIDTH = $80000005; // returns width in pixels
+ CYBRMATTR_HEIGHT = $80000006; // returns height in lines
+ CYBRMATTR_DEPTH = $80000007; // returns bits per pixel
+ CYBRMATTR_ISCYBERGFX = $80000008; // returns -1 if supplied bitmap is a cybergfx one
+ CYBRMATTR_ISLINEARMEM = $80000009; // returns -1 if supplied bitmap is linear accessable
+ CYBRMATTR_PIXFMT_ALPHA = $8000000A;
+// Parameters for GetCyberIDAttr()
+ CYBRIDATTR_PIXFMT = $80000001; // the pixel format is returned
+ CYBRIDATTR_WIDTH = $80000002; // returns visible width in pixels
+ CYBRIDATTR_HEIGHT = $80000003; // returns visible height in lines
+ CYBRIDATTR_DEPTH = $80000004; // returns bits per pixel
+ CYBRIDATTR_BPPIX = $80000005; // BytesPerPixel shall be returned
+// Tags for CyberModeRequest()
+ CYBRMREQ_TB = TAG_USER + $40000;
+ // FilterTags
+ CYBRMREQ_MinDepth = CYBRMREQ_TB + 0; // Minimum depth for displayed screenmode
+ CYBRMREQ_MaxDepth = CYBRMREQ_TB + 1; // Maximum depth " " "
+ CYBRMREQ_MinWidth = CYBRMREQ_TB + 2; // Minumum width " " "
+ CYBRMREQ_MaxWidth = CYBRMREQ_TB + 3; // Maximum width " " "
+ CYBRMREQ_MinHeight = CYBRMREQ_TB + 4; // Minumum height " " "
+ CYBRMREQ_MaxHeight = CYBRMREQ_TB + 5; // Minumum height " " "
+ CYBRMREQ_CModelArray = CYBRMREQ_TB + 6;
+ CYBRMREQ_WinTitle = CYBRMREQ_TB + 20;
+ CYBRMREQ_OKText = CYBRMREQ_TB + 21;
+ CYBRMREQ_CancelText = CYBRMREQ_TB + 22;
+ CYBRMREQ_Screen = CYBRMREQ_TB + 30; // Screen you wish the Requester to open on
+// Tags for BestCyberModeID()
+ CYBRBIDTG_TB = TAG_USER + $50000;
+ // FilterTags
+ CYBRBIDTG_Depth = CYBRBIDTG_TB + 0;
+ CYBRBIDTG_NominalWidth = CYBRBIDTG_TB + 1;
+ CYBRBIDTG_NominalHeight = CYBRBIDTG_TB + 2;
+ CYBRBIDTG_MonitorID = CYBRBIDTG_TB + 3;
+ CYBRBIDTG_BoardName = CYBRBIDTG_TB + 5;
+// definition of divers pixel formats
+ PIXFMT_LUT8 = 0;
+ PIXFMT_RGB15 = 1;
+ PIXFMT_BGR15 = 2;
+ PIXFMT_RGB15PC = 3;
+ PIXFMT_BGR15PC = 4;
+ PIXFMT_RGB16 = 5;
+ PIXFMT_BGR16 = 6;
+ PIXFMT_RGB16PC = 7;
+ PIXFMT_BGR16PC = 8;
+ PIXFMT_RGB24 = 9;
+ PIXFMT_BGR24 = 10;
+ PIXFMT_ARGB32 = 11;
+ PIXFMT_BGRA32 = 12;
+ PIXFMT_RGBA32 = 13;
+// SrcRectangle formats defines for xxxPixelArray calls()
+ RECTFMT_RGB = 0;
+ RECTFMT_RGBA = 1;
+ RECTFMT_ARGB = 2;
+ RECTFMT_LUT8 = 3;
+ RECTFMT_GREY8 = 4;
+ RECTFMT_RAW = 5;
+ // AROS extensions
+
+// Parameters for CVideoCtrlTagList()
+ SETVC_DPMSLevel = $88002001;
+ DPMS_ON = 0; // Full operation
+ DPMS_STANDBY = 1; // Optional state of minimal power reduction
+ DPMS_SUSPEND = 2; // Significant reduction of power consumption
+ DPMS_OFF = 3; // Lowest level of power consumption
+// Tags for LockBitMapTagList()
+ LBMI_WIDTH = $84001001;
+ LBMI_HEIGHT = $84001002;
+ LBMI_DEPTH = $84001003;
+ LBMI_PIXFMT = $84001004;
+ LBMI_BYTESPERPIX = $84001005;
+ LBMI_BYTESPERROW = $84001006;
+ LBMI_BASEADDRESS = $84001007;
+// Tags for UnLockBitMapTagList()
+ UBMI_UPDATERECTS = $85001001;
+ UBMI_REALLYUNLOCK = $85001002;
+
+type
+// Message passed to the DoCDrawMethodTagList() hook function
+ PCDrawMsg = ^TCDrawMsg;
+ TCDrawMsg = record
+ cdm_MemPtr: APTR;
+ cdm_offx: ULONG;
+ cdm_offy: ULONG;
+ cdm_xsize: ULONG;
+ cdm_ysize: ULONG;
+ cdm_BytesPerRow: UWORD;
+ cdm_BytesPerPix: UWORD;
+ cdm_ColorModel: UWORD;
+ end;
+
+// Colour Table source formats for WriteLUTPixelArray() ULONG [] table
+const
+ CTABFMT_XRGB8 = 0;
+// graphics.library/AllocBitMap() extended flags
+ BMB_SPECIALFMT = 7;
+ BMF_SPECIALFMT = 1 shl BMB_SPECIALFMT;
+
+var
+ CyberGfxBase: PLibrary = nil;
+ ICyberGfx: PInterface = nil;
+
+function CyberGfxObtain(): LongWord; syscall ICyberGfx 60;
+function CyberGfxRelease(): LongWord; syscall ICyberGfx 64;
+procedure CyberGfxExpunge(); syscall ICyberGfx 68;
+function CyberGfxClone(): PInterface; syscall ICyberGfx 72;
+// 76 - 88 Reserved
+function IsCyberModeID(displayID: LongWord): LongBool; syscall ICyberGfx 92;
+function BestCModeIDTagList(BestModeIDTags: PTagItem): LongWord; syscall ICyberGfx 96;
+// 100 BestCModeIDTags
+function CModeRequestTagList(ModeRequest: APTR; ModeRequestTags: PTagItem): LongWord; syscall ICyberGfx 104;
+// 108 CModeRequestTags
+function AllocCModeListTagList(ModeListTags: PTagItem): PList; syscall ICyberGfx 112;
+// 116 AllocCModeListTags
+procedure FreeCModeList(ModeList: PList); syscall ICyberGfx 120;
+// 120 reserved
+function ScalePixelArray(SrcRect: APTR; SrcW, SrcH, SrcMod: LongWord; RastPort: PRastPort; DestX, DestY: LongInt; DestW, DestH, SrcFormat: LongWord): LongInt; syscall ICyberGfx 128;
+function GetCyberMapAttr(CyberGfxBitmap: PBitMap; CyberAttrTag: LongWord): LongWord; syscall ICyberGfx 132;
+function GetCyberIDAttr(CyberIDAttr, CyberDisplayModeID: LongWord): LongWord; syscall ICyberGfx 136;
+function ReadRGBPixel(Rp: PRastPort; X, Y: LongInt): LongWord; syscall ICyberGfx 140;
+function WriteRGBPixel(Rp: PRastPort; X, Y: LongInt; Pixel: LongWord): LongInt; syscall ICyberGfx 144;
+function ReadPixelArray(DestRect: APTR; DestX, DestY: LongInt; DestMod: LongWord; Rp: PRastPort; SrcX, SrcY: LongInt; Width, Height, DstFormat: LongWord): LongWord; syscall ICyberGfx 148;
+function WritePixelArray(SrcRect: APTR; SrcX, SrcY: LongInt; SrcMod: LongWord; Rp: PRastPort; DestX, DestY: LongInt; Width, Height, SrcFormat: LongWord): LongWord; syscall ICyberGfx 152;
+function MovePixelArray(SrcX, SrcY: LongWord; RastPort: PRastPort; DstX, DstY, SizeX, SizeY: LongWord): LongWord; syscall ICyberGfx 156;
+// 160 reserved
+function InvertPixelArray(Rp: PRastPort; DestX, DestY: LongInt; Width, Height: LongWord): LongWord; syscall ICyberGfx 164;
+function FillPixelArray(Rp: PRastPort; DestX, DestY: LongInt; Width, Height, Pixel: LongWord): LongWord; syscall ICyberGfx 168;
+procedure DoCDrawMethodTagList(Hook: PHook; Rp: PRastPort; Tags: PTagItem); syscall ICyberGfx 172;
+// 176 DoCDrawMethodTags
+procedure CVideoCtrlTagList(Vp: PViewPort; TagList: PTagItem); syscall ICyberGfx 180;
+// 184 CVideoCtrlTags
+function LockBitMapTagList(Bitmap: APTR; TagList: PTagItem): APTR; syscall ICyberGfx 188;
+// 192 LockBitMapTags
+procedure UnLockBitMap(Handle: APTR); syscall ICyberGfx 196;
+procedure UnLockBitMapTagList(Handle: APTR; TagList: PTagItem); syscall ICyberGfx 200;
+// 204 UnLockBitMapTags
+function ExtractColor(RastPort: PRastPort; SingleMap: PBitMap; Colour: LongWord; SX, SY, Width, Height: LongWord): LongWord; syscall ICyberGfx 208;
+// 212 reserved
+function WriteLUTPixelArray(SrcRect: APTR; SrcX, SrcY: LongInt; SrcMod: LongWord; Rp: PRastPort; CTable: APTR; DestX, DestY: LongInt; SizeX, SizeY, CTabFormat: LongWord): LongInt; syscall ICyberGfx 216;
+// 220 reserved
+// 224 reserved
+function WritePixelArrayAlpha(Src: APTR; SrcX, SrcY, SrcMod: LongInt; Rp: PRastPort; DestX, DestY: LongInt; Width, Height, GlobalAlpha: LongWord): LongWord; syscall ICyberGfx 228;
+procedure BltTemplateAlpha(SrcTemplate: APTR; SrcX, SrcY: LongInt; Rp: PRastPort; DestX, DestY: LongInt; Width, Height: LongWord); syscall ICyberGfx 232;
+
+// Functions and procedures with array of const go here
+function AllocCModeListTags(const ModeListTags: array of PtrUInt): PList;
+function BestCModeIDTags(const BestModeIDTags: array of PtrUInt): LongWord;
+procedure CVideoCtrlTags(ViewPort: PViewPort; const TagList: array of PtrUInt);
+procedure DoCDrawMethodTags(Hook: PHook; a1arg: PRastPort; const TagList: array of PtrUInt);
+function LockBitMapTags(BitMap: APTR; const TagList: array of PtrUInt): APTR;
+procedure UnLockBitMapTags(Handle: APTR; const TagList: array of PtrUInt);
+
+function SHIFT_PIXFMT(fmt: LongInt): LongInt;
+function DOWNSHIFT_PIXFMT(fmt: LongInt): LongInt;
+
+implementation
+
+// Functions and procedures with array of const go here
+function AllocCModeListTags(const ModeListTags: array of PtrUInt): PList; inline;
+begin
+ AllocCModeListTags := AllocCModeListTagList(@ModeListTags);
+end;
+
+function BestCModeIDTags(const BestModeIDTags: array of PtrUInt): LongWord; inline;
+begin
+ BestCModeIDTags := BestCModeIDTagList(@BestModeIDTags);
+end;
+
+procedure CVideoCtrlTags(ViewPort: PViewPort; const TagList: array of PtrUInt); inline;
+begin
+ CVideoCtrlTagList(ViewPort, @TagList);
+end;
+
+procedure DoCDrawMethodTags(Hook: PHook; a1arg: PRastPort; const TagList: array of PtrUInt); inline;
+begin
+ DoCDrawMethodTagList(Hook, a1arg, @TagList);
+end;
+
+function LockBitMapTags(BitMap: APTR; const TagList: array of PtrUInt): APTR; inline;
+begin
+ LockBitMapTags := LockBitMapTagList(BitMap, @TagList);
+end;
+
+procedure UnLockBitMapTags(Handle: APTR; const TagList: array of PtrUInt); inline;
+begin
+ UnLockBitMapTagList(Handle, @TagList);
+end;
+
+function SHIFT_PIXFMT(fmt: LongInt): LongInt;
+begin
+ SHIFT_PIXFMT:=(ULONG(fmt)) shl 24;
+end;
+
+function DOWNSHIFT_PIXFMT(fmt: LongInt): LongInt;
+begin
+ DOWNSHIFT_PIXFMT:=(ULONG(fmt)) shr 24;
+end;
+
+initialization
+ CyberGfxBase := OpenLibrary(CYBERGFXNAME, 0);
+ if Assigned(CyberGfxBase) then
+ ICyberGfx := GetInterface(CyberGfxBase, 'main', 1, nil);
+finalization
+ if Assigned(ICyberGfx) then
+ DropInterface(ICyberGfx);
+ if Assigned(CyberGfxBase) then
+ CloseLibrary(CyberGfxBase);
+end.
+
+
+
diff --git a/packages/os4units/src/icon.pas b/packages/os4units/src/icon.pas
new file mode 100644
index 0000000000..9148dd03f4
--- /dev/null
+++ b/packages/os4units/src/icon.pas
@@ -0,0 +1,321 @@
+{
+ This file is part of the Free Pascal run time library.
+ Copyright (c) 2014 by Free Pascal development team
+
+ icon.library functions
+
+ See the file COPYING.FPC, included in this distribution,
+ for details about the copyright.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+unit icon;
+
+interface
+
+uses
+ exec, workbench, utility, amigados, agraphics, intuition;
+
+const
+ ICONNAME: PChar = 'icon.library';
+
+ ICONA_Dummy = TAG_USER + $9000; // Start of icon.library tags
+ ICONA_ErrorCode = ICONA_Dummy + 1; // (PLongInt) Errorcode
+ ICONA_ErrorTagItem = ICONA_Dummy + 75; // (^PTagItem) Points to the tag item that caused the error .
+
+// Global options for IconControlA()
+
+ ICONCTRLA_SetGlobalScreen = ICONA_Dummy + 2; // (PScreen) Screen to use for remapping Workbench icons to
+ ICONCTRLA_GetGlobalScreen = ICONA_Dummy + 3;
+ ICONCTRLA_SetGlobalPrecision = ICONA_Dummy + 4; // (LongInt) Icon color remapping precision; defaults to PRECISION_ICON
+ ICONCTRLA_GetGlobalPrecision = ICONA_Dummy + 5;
+ ICONCTRLA_SetGlobalEmbossRect = ICONA_Dummy + 6; // (PRectangle) Icon frame size dimensions
+ ICONCTRLA_GetGlobalEmbossRect = ICONA_Dummy + 7;
+ ICONCTRLA_SetGlobalFrameless = ICONA_Dummy + 8; // (LongBool) Render image without frame
+ ICONCTRLA_GetGlobalFrameless = ICONA_Dummy + 9;
+ ICONCTRLA_SetGlobalNewIconsSupport = ICONA_Dummy + 10; // (LongBool) Enable NewIcons support
+ ICONCTRLA_GetGlobalNewIconsSupport = ICONA_Dummy + 11;
+ ICONCTRLA_SetGlobalColorIconSupport = ICONA_Dummy + 77; // (LongBool) Enable color icon support
+ ICONCTRLA_GetGlobalColorIconSupport = ICONA_Dummy + 78;
+ ICONCTRLA_SetGlobalIdentifyHook = ICONA_Dummy + 12; // (PHook) Set/Get the hook to be called when identifying a file
+ ICONCTRLA_GetGlobalIdentifyHook = ICONA_Dummy + 13;
+ ICONCTRLA_SetGlobalMaxNameLength = ICONA_Dummy + 67; // (LongInt) Set/get the maximum length of a file/drawer name supported by icon.library
+ ICONCTRLA_GetGlobalMaxNameLength = ICONA_Dummy + 68;
+ ICONCTRLA_SetGlobalLeftOutMarking = ICONA_Dummy + 96; // (LongBool) Enable marking of left-out icons (V51)
+ ICONCTRLA_GetGlobalLeftOutMarking = ICONA_Dummy + 97;
+ ICONCTRLA_SetGlobalSelectEffect = ICONA_Dummy +113; // (LongWord) Set/get the required visual effect for selected icons (V51)
+ ICONCTRLA_GetGlobalSelectEffect = ICONA_Dummy +114;
+// Values for ICONCTRLA_Set/GetGlobalSelectEffect
+ SEL_DARKEN = $00000000; // Darken the icon, by the amount specified in the lowest byte (000000XX)
+ SEL_BRIGHTEN = $01000000; // Brighten the icon, by the amount specified in the lowest byte (000000XX)
+ SEL_IMPOSE = $02000000; // Impose a color over the icon image, specified in the lower bytes (00RRGGBB)
+ SEL_NEGATIVE = $03000000; // Invert the colors of the icon, as specified in the lowest byte (000000XX)
+ SEL_ROTATERGB = $04000000; // Rotate RGB, as specified in the lowest byte (000000XX): 0 = left, 1 = right
+
+// Tags for use with GetIconTagList()
+ ICONGETA_GetDefaultType = ICONA_Dummy + 45; // Default icon type to retrieve (LongInt)
+ ICONGETA_GetDefaultName = ICONA_Dummy + 46; // Retrieve default icon for the given name (PChar)
+ ICONGETA_FailIfUnavailable = ICONA_Dummy + 47; // Return a default icon if the requested icon file cannot be found (BOOL).
+ ICONGETA_GetPaletteMappedIcon = ICONA_Dummy + 48; // If possible, retrieve a palette mapped icon (BOOL).
+ ICONGETA_IsDefaultIcon = ICONA_Dummy + 49; // Set if the icon returned is a default icon (PLongBool).
+ ICONGETA_RemapIcon = ICONA_Dummy + 50; // Remap the icon to the default screen, if possible (BOOL).
+ ICONGETA_GenerateImageMasks = ICONA_Dummy + 51; // Generate icon image masks (BOOL).
+ ICONGETA_Label = ICONA_Dummy + 52; // Label text to be assigned to the icon (PChar).
+ ICONGETA_Screen = ICONA_Dummy + 69; // Screen to remap the icon to (PScreen).
+ ICONGETA_UseFriendBitMap = ICONA_Dummy + 90; // Allocate a bitmap for the icon images instead of the traditional planar icon images (LongBool). (V50)
+ ICONGETA_FileFormat = ICONA_Dummy + 112; // Returns the format of the file the icon is loaded from. If the file is in native Amiga format, the returned name will be "Amiga" (^STRPTR). (V51)
+ ICONGETA_Width = ICONA_Dummy + 117; // Request a specific size for the icon to be loaded.
+ ICONGETA_Height = ICONA_Dummy + 118; //
+ ICONGETA_ForceScaling = ICONA_Dummy + 120; // Tell icon.library to perform a manual bitmap rescaling of the loaded icon if it doesn't already have the size which was requested with ICONGETA_Width and ICONGETA_Height.
+ ICONGETA_IdentifyBuffer = ICONA_Dummy + 122; // Request the type of the actual file whose icon is being loaded by GetIconTagList()
+ ICONGETA_IdentifyOnly = ICONA_Dummy + 123; //
+ ICONGETA_SizeBounds = ICONA_Dummy + 124; // Specify the size limits for the icon to be loaded.
+ ICONGETA_AllowUpscaling = ICONA_Dummy + 126; // This means the icon image may be made larger even if no upscaling was explicitly requested.
+
+// Per icon local options for IconControlA() }
+ ICONCTRLA_GetImageMask1 = ICONA_Dummy + 14; // (TPlanePtr) Get the icon rendering masks
+ ICONCTRLA_GetImageMask2 = ICONA_Dummy + 15;
+ ICONCTRLA_SetTransparentColor1 = ICONA_Dummy + 16; // Transparent image color; set to -1 if opaque
+ ICONCTRLA_GetTransparentColor1 = ICONA_Dummy + 17;
+ ICONCTRLA_SetTransparentColor2 = ICONA_Dummy + 18;
+ ICONCTRLA_GetTransparentColor2 = ICONA_Dummy + 19;
+ ICONCTRLA_SetPalette1 = ICONA_Dummy + 20; // (PColorRegister) Image color palette
+ ICONCTRLA_GetPalette1 = ICONA_Dummy + 21;
+ ICONCTRLA_SetPalette2 = ICONA_Dummy + 22;
+ ICONCTRLA_GetPalette2 = ICONA_Dummy + 23;
+ ICONCTRLA_SetPaletteSize1 = ICONA_Dummy + 24; // (LongInt) Size of image color palette
+ ICONCTRLA_GetPaletteSize1 = ICONA_Dummy + 25;
+ ICONCTRLA_SetPaletteSize2 = ICONA_Dummy + 26;
+ ICONCTRLA_GetPaletteSize2 = ICONA_Dummy + 27;
+ ICONCTRLA_SetImageData1 = ICONA_Dummy + 28; // (PByte) Image data; one by per pixel
+ ICONCTRLA_GetImageData1 = ICONA_Dummy + 29;
+ ICONCTRLA_SetImageData2 = ICONA_Dummy + 30;
+ ICONCTRLA_GetImageData2 = ICONA_Dummy + 31;
+ ICONCTRLA_SetFrameless = ICONA_Dummy + 32; // (LongBool) Render image without frame
+ ICONCTRLA_GetFrameless = ICONA_Dummy + 33;
+ ICONCTRLA_SetNewIconsSupport = ICONA_Dummy + 34; // (LongBool) Enable NewIcons support
+ ICONCTRLA_GetNewIconsSupport = ICONA_Dummy + 35;
+ ICONCTRLA_SetAspectRatio = ICONA_Dummy + 36; // (PByte) Icon aspect ratio
+ ICONCTRLA_GetAspectRatio = ICONA_Dummy + 37;
+ ICONCTRLA_SetWidth = ICONA_Dummy + 38; // (LongInt) Icon dimensions; valid only for palette mapped icon images
+ ICONCTRLA_GetWidth = ICONA_Dummy + 39;
+ ICONCTRLA_SetHeight = ICONA_Dummy + 40;
+ ICONCTRLA_GetHeight = ICONA_Dummy + 41;
+ ICONCTRLA_IsPaletteMapped = ICONA_Dummy + 42; // (PLongInt) Check whether the icon is palette mapped
+ ICONCTRLA_GetScreen = ICONA_Dummy + 43; // (^PScreen) Get the screen the icon is attached to
+ ICONCTRLA_HasRealImage2 = ICONA_Dummy + 44; // (PLongInt) Check whether the icon has a real select image
+ ICONCTRLA_IsNewIcon = ICONA_Dummy + 79; // (PLongInt) Check whether the icon is of the NewIcon type
+ ICONCTRLA_IsNativeIcon = ICONA_Dummy + 80; // (PLongInt) Check whether this icon was allocated by icon.library or if consists solely of a statically allocated TDiskObject.
+ ICONCTRLA_UseFriendBitMap = ICONGETA_UseFriendBitMap; // (LongBool) Alias for ICONGETA_UseFriendBitMap. (V50)
+ ICONCTRLA_GetBitMap1 = ICONA_Dummy + 91; // (PBitMap) Get the bitmaps of the icon. Can be nil, only valid after an icon has been layouted. (V50)
+ ICONCTRLA_GetBitMap2 = ICONA_Dummy + 92;
+ ICONCTRLA_SetImageDataFormat = ICONA_Dummy + 103; // (LongWord) Format of icon image data (supersedes ICONCTRLA_IsPaletteMapped). The possible values are listed below. (V51)
+ ICONCTRLA_GetImageDataFormat = ICONA_Dummy + 104;
+ ICONCTRLA_SetIconModuleData = ICONA_Dummy + 105; // (APTR) The module-specific data for an icon. Only for private use by icon loader/saver modules. (V51)
+ ICONCTRLA_GetIconModuleData = ICONA_Dummy + 106;
+ ICONCTRLA_GetIconFileFormat = ICONA_Dummy + 111; // (^STRPTR) Get the format of the file an icon was loaded from. (V51)
+ ICONCTRLA_AddScaledSize = ICONA_Dummy + 115; // (LongWord) Generate a scaled version of the icon's imagery. (V51)
+ ICONCTRLA_RemScaledSize = ICONA_Dummy + 116; // (LongWord) Remove a particular scaled version of the icon's imagery, and free all memory associated with it.
+
+
+// Icon Aspect Handling
+ ICON_ASPECT_RATIO_UNKNOWN = 0; // Icon aspect ratio is not known.
+
+// Tags for use with PutIconTagList()
+
+ ICONPUTA_NotifyWorkbench = ICONA_Dummy + 53; // Notify Workbench of the icon being written (BOOL)
+ ICONPUTA_PutDefaultType = ICONA_Dummy + 54; // Store icon as the default for this type (LongInt)
+ ICONPUTA_PutDefaultName = ICONA_Dummy + 55; // Store icon as a default for the given name (PChar)
+ ICONPUTA_DropPlanarIconImage = ICONA_Dummy + 56; // When storing a palette mapped icon, don't save the the original planar icon image with the file. Replace it with a tiny replacement image.
+ ICONPUTA_DropChunkyIconImage = ICONA_Dummy + 57; // Don't write the chunky icon image data to disk.
+ ICONPUTA_DropNewIconToolTypes = ICONA_Dummy + 58; // Don't write the NewIcons tool types to disk.
+ ICONPUTA_OptimizeImageSpace = ICONA_Dummy + 59; // If this tag is enabled, the writer will examine the icon image data to find out whether it can compress it more efficiently. This may take extra time and is not generally recommended.
+ ICONPUTA_OnlyUpdatePosition = ICONA_Dummy + 72; // Don't write the entire icon file back to disk, only change the do^.do_CurrentX/do^.do_CurrentY members.
+ ICONPUTA_PreserveOldIconImages = ICONA_Dummy + 84; // Before writing a palette mapped icon back to disk, icon.library will make sure that the original
+ // planar image data is stored in the file. If you don't want that to happen, set this option to
+ // FALSE. This will allow you to change the planar icon image data written back to disk.
+ ICONPUTA_FileFormat = ICONA_Dummy + 107; // Tell icon.library what file format the icon should be saved in, by passing the name of a file format which is supported by some external icon saver module.
+ ICONPUTA_NoFallback = ICONA_Dummy + 108; // Tell icon.library to fail if the icon cannot be saved in the requested file format, rather than falling back to saving it in native Amiga format.
+
+// For use with the file identification hook.
+type
+ PIconIdentifyMsg = ^TIconIdentifyMsg;
+ TIconIdentifyMsg = record
+ // Libraries that are already opened for your use.
+ iim_SysBase : PLibrary;
+ iim_DOSBase : PLibrary;
+ iim_UtilityBase : PLibrary;
+ iim_IconBase : PLibrary;
+ // File context information.
+ iim_FileLock : BPTR; // Lock on the object to return an icon for.
+ iim_ParentLock : BPTR; // Lock on the object's parent directory, if available.
+ iim_FIB : PFileInfoBlock;// Already initialized for you.
+ iim_FileHandle : BPTR; // If non-nil, pointer to the file to examine, positioned right at the first byte, ready for you to use.
+ iim_Tags : PTagItem; // Tags passed to GetIconTagList().
+ iim_IExec: PInterface;
+ iim_IDOS: PInterface;
+ iim_IUtility: PInterface;
+ iim_IIcon: PInterface;
+ end;
+
+// Tags for use with DupDiskObjectA()
+const
+ ICONDUPA_DuplicateDrawerData = ICONA_Dummy + 60; // Duplicate do_DrawerData
+ ICONDUPA_DuplicateImages = ICONA_Dummy + 61; // Duplicate the Image structures.
+ ICONDUPA_DuplicateImageData = ICONA_Dummy + 62; // Duplicate the image data (Image->ImageData) itself.
+ ICONDUPA_DuplicateDefaultTool = ICONA_Dummy + 63; // Duplicate the default tool.
+ ICONDUPA_DuplicateToolTypes = ICONA_Dummy + 64; // Duplicate the tool types list.
+ ICONDUPA_DuplicateToolWindow = ICONA_Dummy + 65; // Duplicate the tool window.
+ ICONDUPA_ActivateImageData = ICONA_Dummy + 82; // If the icon to be duplicated is in fact a palette mapped icon which has never been
+ // set up to be displayed on the screen, turn the duplicate into that palette mapped icon.
+ ICONDUPA_UseFriendBitMap = ICONGETA_UseFriendBitMap; // Alias for ICONGETA_UseFriendBitMap (BOOL). (V50)
+ ICONDUPA_DuplicateScaledSizes = ICONA_Dummy + 119; // Duplicate any scaled versions of the icon's imagery (BOOL). (V51)
+ ICONDUPA_Width = ICONGETA_Width; // Request a specific size for the icon to be duplicated.
+ ICONDUPA_Height = ICONGETA_Height;
+ ICONDUPA_ForceScaling = ICONGETA_ForceScaling; // Tell icon.library to perform a manual bitmap rescaling of the duplicate icon
+ ICONDUPA_SizeBounds = ICONGETA_SizeBounds; // Specify the size limits for the icon to be duplicated.
+ ICONDUPA_AllowUpscaling = ICONGETA_AllowUpscaling; // Tell icon.library to enforce the minimum size specified with ICONDUPA_SizeBounds
+
+// Tags for use with DrawIconStateA() and GetIconRectangleA().
+ ICONDRAWA_DrawInfo = ICONA_Dummy + 66; // Drawing information to use (PDrawInfo).
+ ICONDRAWA_Frameless = ICONA_Dummy + 70; // Draw the icon without the surrounding frame (BOOL).
+ ICONDRAWA_EraseBackground = ICONA_Dummy + 71; // Erase the background before drawing a frameless icon (BOOL).
+ ICONDRAWA_Borderless = ICONA_Dummy + 83; // Draw the icon without the surrounding border and frame (BOOL).
+ ICONDRAWA_IsLink = ICONA_Dummy + 89; // The icon to be drawn refers to a linked object (BOOL). */
+ ICONDRAWA_LabelShadow = ICONA_Dummy + 93; // Draw the icon label with shadow (BOOL). (V50) */
+ ICONDRAWA_LabelOutline = ICONA_Dummy + 94; // Draw the icon label with outline (BOOL). (V50) */
+ ICONDRAWA_Properties = ICONA_Dummy + 95; // Special properties of the icon to be drawn (ULONG). (V51) */
+ ICONDRAWA_DrawIcon = ICONA_Dummy + 98; // Draw the actual icon image. Defaults to TRUE (BOOL). (V51) */
+ ICONDRAWA_EraseLabelBackground = ICONA_Dummy + 101; // Erase the background before drawing an icon label (BOOL). (V51) */
+ ICONDRAWA_Transparency = ICONA_Dummy + 102; // Override the transparency value which is used for drawing the icon image in range from 0 to 255 (opaque) (LONG). (V51)
+ ICONDRAWA_Width = ICONGETA_Width; // Specify a size for the icon to be drawn.
+ ICONDRAWA_Height = ICONGETA_Height;
+ ICONDRAWA_SizeBounds = ICONGETA_SizeBounds; // Specify the size limits for the icon to be drawn.
+ ICONDRAWA_AllowUpscaling = ICONGETA_AllowUpscaling; // Tell icon.library to enforce the minimum size specified with ICONDRAWA_SizeBounds
+ ICONDRAWA_Borders = ICONA_Dummy + 125; // Specify the size of the (possibly invisible) borders around the icon to be drawn
+// Property flags for ICONDRAWA_Properties
+ ICON_DRAGGED = $00000001; // Icon is being dragged
+ ICON_DROPPABLE = $00000002; // Icon is over a drop area
+ ICON_LEFTOUT = $00000004; // Icon has been "left out"
+ ICON_POINTED = $00000008; // Icon is under mouse pointer
+// Reserved tags; don't use!
+ ICONA_Reserved1 = ICONA_Dummy + 73;
+ ICONA_Reserved2 = ICONA_Dummy + 74;
+ ICONA_Reserved3 = ICONA_Dummy + 76;
+ ICONA_Reserved4 = ICONA_Dummy + 81;
+ ICONA_Reserved5 = ICONA_Dummy + 85;
+ ICONA_Reserved6 = ICONA_Dummy + 86;
+ ICONA_Reserved7 = ICONA_Dummy + 87;
+ ICONA_Reserved8 = ICONA_Dummy + 88;
+ ICONA_Reserved9 = ICONA_Dummy + 99;
+ ICONA_Reserved10 = ICONA_Dummy + 100;
+ ICONA_Reserved11 = ICONA_Dummy + 109;
+ ICONA_Reserved12 = ICONA_Dummy + 110;
+ ICONA_Reserved13 = ICONA_Dummy + 121;
+
+ ICONA_LAST_TAG = ICONA_Dummy + 126;
+
+var
+ IconBase: PLibrary;
+ IIcon: PInterface;
+
+function IcontObtain(): LongWord; syscall IIcon 60;
+function IconRelease(): LongWord; syscall IIcon 64;
+procedure IconExpunge(); syscall IIcon 68;
+function IconClone(): PInterface; syscall IIcon 72;
+// 76-88 private
+procedure FreeFreeList(FreeList: PFreeList); syscall IIcon 92;
+// 92-96 private
+function AddFreeList(FreeList: PFreeList; const Mem: APTR; Size: LongWord): LongBool; syscall IIcon 104;
+function GetDiskObject(const Name: STRPTR): PDiskObject; syscall IIcon 108;
+function PutDiskObject(const Name: STRPTR; const Icon: PDiskObject): LongBool; syscall IIcon 112;
+procedure FreeDiskObject(DiskObj: PDiskObject); syscall IIcon 116;
+function FindToolType(const ToolTypeArray: PPChar; const TypeName: STRPTR): STRPTR; syscall IIcon 120;
+function MatchToolValue(const TypeString: STRPTR; const Value: STRPTR): BOOL; syscall IIcon 124;
+function BumpRevision(NewName: PChar; const OldName: PChar): PChar; syscall IIcon 128;
+function FreeAlloc(FreeList: PFreeList; Len, Type_: LongWord): APTR; syscall IIcon 132;
+function GetDefDiskObject(Typ: LongInt): PDiskObject; syscall IIcon 136;
+function PutDefDiskObject(const Icon: PDiskObject): LongBool; syscall IIcon 140;
+function GetDiskObjectNew(const Name: STRPTR): PDiskObject; syscall IIcon 144;
+function DeleteDiskObject(const Name: STRPTR): LongBool; syscall IIcon 148;
+function FreeFree(FreeList: PFreeList; Address: APTR): LongBool; syscall IIcon 152;
+function DupDiskObjectA(const DiskObject: PDiskObject; const Tags: PTagItem): PDiskObject; syscall IIcon 156;
+// 160 DupDiskObject
+function IconControlA(Icon: PDiskObject; const Tags: PTagItem): LongWord; syscall IIcon 164;
+// 168 IconControl
+procedure DrawIconStateA(Rp: PRastPort; const Icon: PDiskObject; const Label_: STRPTR; LeftOffset, TopOffset: LongInt; State: LongWord; const Tags: PTagItem); syscall IIcon 172;
+// 176 DrawIconState
+function GetIconRectangleA(Rp: PRastPort; const Icon: PDiskObject; const Label_: STRPTR; Rect: PRectangle; const Tags: PTagItem): LongBool; syscall IIcon 180;
+// 184 GetIconRectangle
+function NewDiskObject(Type_: LongWord): PDiskObject; syscall IIcon 188;
+function GetIconTagList(const Name: STRPTR; const Tags: PTagItem): PDiskObject; syscall IIcon 192;
+// 196 GetIconTags
+function PutIconTagList(const Name: STRPTR; const Icon: PDiskObject; const Tags: PTagItem): LongBool; syscall IIcon 200;
+// 204 PutIconTags
+function LayoutIconA(Icon: PDiskObject; Screen: PScreen; Tags: PTagItem): LongBool; syscall IIcon 208;
+// 212 LayoutIcon
+procedure ChangeToSelectedIconColor(Cr: Pointer); syscall IIcon 216; //TODO: PColorRegister
+function BumpRevisionLength(NewName: STRPTR; const OldName: STRPTR; MaxLength: LongWord): STRPTR; syscall IIcon 220;
+
+{macros}
+function PACK_ICON_ASPECT_RATIO(Num, Den: LongInt): LongInt;
+procedure UNPACK_ICON_ASPECT_RATIO(Aspect: LongInt; var Num, Den: LongInt);
+
+type
+ TToolTypeArray= array of AnsiString;
+
+function GetToolTypes(Filename: AnsiString): TToolTypeArray;
+
+
+implementation
+
+function GetToolTypes(Filename: AnsiString): TToolTypeArray;
+var
+ DObj: PDiskObject;
+ Tooltype: PPChar;
+ Idx: Integer;
+begin
+ SetLength(GetToolTypes, 0);
+ DObj := GetDiskObject(PChar(FileName));
+ if not Assigned(Dobj) then
+ Exit;
+ Tooltype := DObj^.do_Tooltypes;
+ while Assigned(ToolType^) do
+ begin
+ Idx := Length(GetToolTypes);
+ SetLength(GetToolTypes, Idx + 1);
+ GetToolTypes[Idx] := ToolType^;
+ Inc(ToolType);
+ end;
+ FreeDiskObject(DObj);
+end;
+
+function PACK_ICON_ASPECT_RATIO(Num, Den: LongInt): LongInt; inline;
+begin
+ PACK_ICON_ASPECT_RATIO := (Num shl 4) or Den;
+end;
+
+procedure UNPACK_ICON_ASPECT_RATIO(Aspect: LongInt; var Num, Den: LongInt); inline;
+begin
+ Num := (Aspect shr 4) and $F;
+ Den := Aspect and $15;
+end;
+
+initialization
+ IconBase := OpenLibrary(ICONNAME, 40);
+ if Assigned(IconBase) then
+ IIcon := GetInterface(IconBase, 'main', 1, nil);
+finalization
+ if Assigned(IIcon) then
+ DropInterface(IIcon);
+ if Assigned(IconBase) then
+ CloseLibrary(IconBase);
+end.
+
+
+
+
diff --git a/packages/os4units/src/picasso96api.pas b/packages/os4units/src/picasso96api.pas
new file mode 100644
index 0000000000..12c1bd305c
--- /dev/null
+++ b/packages/os4units/src/picasso96api.pas
@@ -0,0 +1,441 @@
+{
+ This file is part of the Free Pascal run time library.
+ Copyright (c) 2016 by Free Pascal development team
+
+ Picasso96 functions for Amiga OS 4.x
+
+ See the file COPYING.FPC, included in this distribution,
+ for details about the copyright.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+unit picasso96api;
+
+interface
+
+uses
+ Exec, utility, agraphics, intuition;
+
+// Picasso96.h -- include File
+// (C) Copyright 1996-98 Alexander Kneer & Tobias Abt
+// All Rights Reserved.
+const
+ PICASSO96APINAME: PChar = 'Picasso96API.library';
+
+// Types for RGBFormat used
+type
+ TRGBFTYPE = (
+ RGBFB_NONE, // no valid RGB format (should not happen)
+ RGBFB_CLUT, // palette mode, set colors when opening screen using tags or use SetRGB32/LoadRGB32(...)
+ RGBFB_R8G8B8, // TrueColor RGB (8 bit each)
+ RGBFB_B8G8R8, // TrueColor BGR (8 bit each)
+ RGBFB_R5G6B5PC, // HiColor16 (5 bit R, 6 bit G, 5 bit B), format: gggbbbbbrrrrrggg
+ RGBFB_R5G5B5PC, // HiColor15 (5 bit each), format: gggbbbbb0rrrrrgg
+ RGBFB_A8R8G8B8, // 4 Byte TrueColor ARGB (A unused alpha channel)
+ RGBFB_A8B8G8R8, // 4 Byte TrueColor ABGR (A unused alpha channel)
+ RGBFB_R8G8B8A8, // 4 Byte TrueColor RGBA (A unused alpha channel)
+ RGBFB_B8G8R8A8, // 4 Byte TrueColor BGRA (A unused alpha channel)
+ RGBFB_R5G6B5, // HiColor16 (5 bit R, 6 bit G, 5 bit B), format: rrrrrggggggbbbbb
+ RGBFB_R5G5B5, // HiColor15 (5 bit each), format: 0rrrrrgggggbbbbb
+ RGBFB_B5G6R5PC, // HiColor16 (5 bit R, 6 bit G, 5 bit B), format: gggrrrrrbbbbbggg
+ RGBFB_B5G5R5PC, // HiColor15 (5 bit each), format: gggrrrrr0bbbbbbgg
+ // By now, the following formats are for use with a hardware window only (bitmap operations may be implemented incompletely)
+ RGBFB_YUV422CGX,// 2 Byte TrueColor YUV (CCIR recommendation CCIR601).
+ RGBFB_YUV411, // 1 Byte TrueColor ACCUPAK.
+ RGBFB_YUV422PA, // 2 Byte TrueColor CCIR601 for use with YUV12 planar assist mode on Cirrus Logic base graphics chips.
+ RGBFB_YUV422, // 2 Byte TrueColor YUV (CCIR recommendation CCIR601).
+ RGBFB_YUV422PC, // 2 Byte TrueColor CCIR601 byte swapped (V0-Y0-U0-Y1)
+ RGBFB_YUV420P, // 12 Bit TrueColor 3-plane YUV
+ RGBFB_YUV410P, // 9 Bit TrueColor 3-plane YUV
+ RGBFB_ALPHA8,
+ RGBFB_MaxFormats);
+
+const
+ RGBFF_NONE = 1 shl 0;
+ RGBFF_CLUT = 1 shl 1;
+ RGBFF_R8G8B8 = 1 shl 2;
+ RGBFF_B8G8R8 = 1 shl 3;
+ RGBFF_R5G6B5PC = 1 shl 4;
+ RGBFF_R5G5B5PC = 1 shl 5;
+ RGBFF_A8R8G8B8 = 1 shl 6;
+ RGBFF_A8B8G8R8 = 1 shl 7;
+ RGBFF_R8G8B8A8 = 1 shl 8;
+ RGBFF_B8G8R8A8 = 1 shl 9;
+ RGBFF_R5G6B5 = 1 shl 10;
+ RGBFF_R5G5B5 = 1 shl 11;
+ RGBFF_B5G6R5PC = 1 shl 12;
+ RGBFF_B5G5R5PC = 1 shl 13;
+ RGBFF_YUV422CGX = 1 shl 14;
+ RGBFF_YUV411 = 1 shl 15;
+ RGBFF_YUV422 = 1 shl 16;
+ RGBFF_YUV422PC = 1 shl 17;
+ RGBFF_YUV422PA = 1 shl 18;
+ RGBFF_YUV420P = 1 shl 19;
+ RGBFF_YUV410P = 1 shl 20;
+ RGBFF_ALPHA8 = 1 shl 21;
+
+ RGBFF_HICOLOR = RGBFF_R5G6B5PC or RGBFF_R5G5B5PC or RGBFF_R5G6B5 or RGBFF_R5G5B5 or RGBFF_B5G6R5PC or RGBFF_B5G5R5PC;
+ RGBFF_TRUECOLOR = RGBFF_R8G8B8 or RGBFF_B8G8R8;
+ RGBFF_TRUEALPHA = RGBFF_A8R8G8B8 or RGBFF_A8B8G8R8 or RGBFF_R8G8B8A8 or RGBFF_B8G8R8A8;
+
+// Flags for p96AllocBitMap
+ BMF_USERPRIVATE = $8000; // private user bitmap that will never be put to a board, but may be used as a temporary render buffer and accessed
+ // with OS blit functions, too. Bitmaps allocated with this flag do not need to be locked.
+
+// Attributes for p96GetBitMapAttr
+ P96BMA_WIDTH = 0;
+ P96BMA_HEIGHT = 1;
+ P96BMA_DEPTH = 2;
+ P96BMA_MEMORY = 3;
+ P96BMA_BYTESPERROW = 4;
+ P96BMA_BYTESPERPIXEL = 5;
+ P96BMA_BITSPERPIXEL = 6;
+ P96BMA_RGBFORMAT = 7;
+ P96BMA_ISP96 = 8;
+ P96BMA_ISONBOARD = 9;
+ P96BMA_BOARDMEMBASE = 10;
+ P96BMA_BOARDIOBASE = 11;
+ P96BMA_BOARDMEMIOBASE = 12;
+
+// Attributes for p96GetModeIDAttr
+ P96IDA_WIDTH = 0;
+ P96IDA_HEIGHT = 1;
+ P96IDA_DEPTH = 2;
+ P96IDA_BYTESPERPIXEL = 3;
+ P96IDA_BITSPERPIXEL = 4;
+ P96IDA_RGBFORMAT = 5;
+ P96IDA_ISP96 = 6;
+ P96IDA_BOARDNUMBER = 7;
+ P96IDA_STDBYTESPERROW = 8;
+ P96IDA_BOARDNAME = 9;
+ P96IDA_COMPATIBLEFORMATS = 10;
+ P96IDA_VIDEOCOMPATIBLE = 11;
+ P96IDA_PABLOIVCOMPATIBLE = 12;
+ P96IDA_PALOMAIVCOMPATIBLE = 13;
+
+// Tags for p96BestModeIDTagList
+ P96BIDTAG_Dummy = TAG_USER + 96;
+ P96BIDTAG_FormatsAllowed = P96BIDTAG_Dummy + $0001;
+ P96BIDTAG_FormatsForbidden = P96BIDTAG_Dummy + $0002;
+ P96BIDTAG_NominalWidth = P96BIDTAG_Dummy + $0003;
+ P96BIDTAG_NominalHeight = P96BIDTAG_Dummy + $0004;
+ P96BIDTAG_Depth = P96BIDTAG_Dummy + $0005;
+ P96BIDTAG_VideoCompatible = P96BIDTAG_Dummy + $0006;
+ P96BIDTAG_PabloIVCompatible = P96BIDTAG_Dummy + $0007;
+ P96BIDTAG_PalomaIVCompatible = P96BIDTAG_Dummy + $0008;
+// Tags for p96RequestModeIDTagList
+ P96MA_Dummy = TAG_USER + $10000 + 96;
+ P96MA_MinWidth = P96MA_Dummy + $0001;
+ P96MA_MinHeight = P96MA_Dummy + $0002;
+ P96MA_MinDepth = P96MA_Dummy + $0003;
+ P96MA_MaxWidth = P96MA_Dummy + $0004;
+ P96MA_MaxHeight = P96MA_Dummy + $0005;
+ P96MA_MaxDepth = P96MA_Dummy + $0006;
+ P96MA_DisplayID = P96MA_Dummy + $0007;
+ P96MA_FormatsAllowed = P96MA_Dummy + $0008;
+ P96MA_FormatsForbidden = P96MA_Dummy + $0009;
+ P96MA_WindowTitle = P96MA_Dummy + $000a;
+ P96MA_OKText = P96MA_Dummy + $000b;
+ P96MA_CancelText = P96MA_Dummy + $000c;
+ P96MA_Window = P96MA_Dummy + $000d;
+ P96MA_PubScreenName = P96MA_Dummy + $000e;
+ P96MA_Screen = P96MA_Dummy + $000f;
+ P96MA_VideoCompatible = P96MA_Dummy + $0010;
+ P96MA_PabloIVCompatible = P96MA_Dummy + $0011;
+ P96MA_PalomaIVCompatible = P96MA_Dummy + $0012;
+// Tags for p96OpenScreenTagList
+ P96SA_Dummy = TAG_USER + $20000 + 96;
+ P96SA_Left = P96SA_Dummy + $0001;
+ P96SA_Top = P96SA_Dummy + $0002;
+ P96SA_Width = P96SA_Dummy + $0003;
+ P96SA_Height = P96SA_Dummy + $0004;
+ P96SA_Depth = P96SA_Dummy + $0005;
+ P96SA_DetailPen = P96SA_Dummy + $0006;
+ P96SA_BlockPen = P96SA_Dummy + $0007;
+ P96SA_Title = P96SA_Dummy + $0008;
+ P96SA_Colors = P96SA_Dummy + $0009;
+ P96SA_ErrorCode = P96SA_Dummy + $000a;
+ P96SA_Font = P96SA_Dummy + $000b;
+ P96SA_SysFont = P96SA_Dummy + $000c;
+ P96SA_Type = P96SA_Dummy + $000d;
+ P96SA_BitMap = P96SA_Dummy + $000e;
+ P96SA_PubName = P96SA_Dummy + $000f;
+ P96SA_PubSig = P96SA_Dummy + $0010;
+ P96SA_PubTask = P96SA_Dummy + $0011;
+ P96SA_DisplayID = P96SA_Dummy + $0012;
+ P96SA_DClip = P96SA_Dummy + $0013;
+ P96SA_ShowTitle = P96SA_Dummy + $0014;
+ P96SA_Behind = P96SA_Dummy + $0015;
+ P96SA_Quiet = P96SA_Dummy + $0016;
+ P96SA_AutoScroll = P96SA_Dummy + $0017;
+ P96SA_Pens = P96SA_Dummy + $0018;
+ P96SA_SharePens = P96SA_Dummy + $0019;
+ P96SA_BackFill = P96SA_Dummy + $001a;
+ P96SA_Colors32 = P96SA_Dummy + $001b;
+ P96SA_VideoControl = P96SA_Dummy + $001c;
+ P96SA_RGBFormat = P96SA_Dummy + $001d;
+ P96SA_NoSprite = P96SA_Dummy + $001e;
+ P96SA_NoMemory = P96SA_Dummy + $001f;
+ P96SA_RenderFunc = P96SA_Dummy + $0020;
+ P96SA_SaveFunc = P96SA_Dummy + $0021;
+ P96SA_UserData = P96SA_Dummy + $0022;
+ P96SA_Alignment = P96SA_Dummy + $0023;
+ P96SA_FixedScreen = P96SA_Dummy + $0024;
+ P96SA_Exclusive = P96SA_Dummy + $0025;
+ P96SA_ConstantBytesPerRow = P96SA_Dummy + $0026;
+ P96SA_ConstantByteSwapping = P96SA_Dummy + $0027;
+
+ MODENAMELENGTH = 48;
+type
+ PP96Mode = ^TP96Mode;
+ TP96Mode = record
+ Node: TNode;
+ Description: array[0..MODENAMELENGTH - 1] of Char;
+ Width: Word;
+ Height: Word;
+ Depth: Word;
+ DisplayID: LongWord;
+ end;
+// Structure to describe graphics data
+ PRenderInfo = ^TRenderInfo;
+ TRenderInfo = record
+ Memory : APTR; // pointer to graphics data
+ BytesPerRow : Word; // distance in bytes between one pixel and its neighbour up or down.
+ pad : Word; // private, not used.
+ RGBFormat : TRGBFTYPE; // RGBFormat of the data.
+ end;
+// used for planar YUV formats
+ PYUVRenderInfo = ^TYUVRenderInfo;
+ TYUVRenderInfo = record
+ RI: TRenderInfo;
+ Planes: array[0..2] of APTR;
+ BytesPerRow: array[0..2] of Word;
+ padWord: Word;
+ end;
+// Structure for p96WriteTrueColorData() and p96ReadTrueColorData()
+ PTrueColorInfo = ^TTrueColorInfo;
+ TTrueColorInfo = record
+ PixelDistance : LongWord; // distance in bytes between the red (must be the same as for the green or blue)
+ // component of one pixel and its next neighbour to the left or right.
+ BytesPerRow : LongWord; // distance in bytes between the red (must be the same as for the green or blue)
+ // component of one pixel and its next neighbour up or down.
+ RedData: PByte; // pointer to the red component of the upper left pixel.
+ GreenData: PByte; // pointer to the green component of the upper left pixel.
+ BlueData: PByte; // pointer to the blue component of the upper left pixel.
+ end;
+// Tags for PIPs
+const
+ P96PIP_Dummy = TAG_USER + $30000 + 96;
+ P96PIP_SourceFormat = P96PIP_Dummy + 1; // TRGBFTYPE (I)
+ P96PIP_SourceBitMap = P96PIP_Dummy + 2; // struct BitMap (G)
+ P96PIP_SourceRPort = P96PIP_Dummy + 3; // struct RastPort (G)
+ P96PIP_SourceWidth = P96PIP_Dummy + 4; // LongWord (I)
+ P96PIP_SourceHeight = P96PIP_Dummy + 5; // LongWord (I)
+ P96PIP_Type = P96PIP_Dummy + 6; // LongWord (I) default: PIPT_MemoryWindow
+ P96PIP_ErrorCode = P96PIP_Dummy + 7; // LONG (I)
+ P96PIP_Brightness = P96PIP_Dummy + 8; // LongWord (IGS) default: 0
+ P96PIP_Left = P96PIP_Dummy + 9; // LongWord (I) default: 0
+ P96PIP_Top = P96PIP_Dummy + 10; // LongWord (I) default: 0
+ P96PIP_Width = P96PIP_Dummy + 11; // LongWord (I) default: inner width of window
+ P96PIP_Height = P96PIP_Dummy + 12; // LongWord (I) default: inner height of window
+ P96PIP_Relativity = P96PIP_Dummy + 13; // LongWord (I) default: PIPRel_Width|PIPRel_Height
+ P96PIP_Colors = P96PIP_Dummy + 14; // TColorSpec (IS) ti_Data is an array of TColorSpec, terminated by ColorIndex = -1.
+ P96PIP_Colors32 = P96PIP_Dummy + 15; // LongWord (IS) Tag to set the palette colors at 32 bits-per-gun.
+ P96PIP_NoMemory = P96PIP_Dummy + 16;
+ P96PIP_RenderFunc = P96PIP_Dummy + 17;
+ P96PIP_SaveFunc = P96PIP_Dummy + 18;
+ P96PIP_UserData = P96PIP_Dummy + 19;
+ P96PIP_Alignment = P96PIP_Dummy + 20;
+ P96PIP_ConstantBytesPerRow = P96PIP_Dummy + 21;
+ P96PIP_AllowCropping = P96PIP_Dummy + 22;
+ P96PIP_InitialIntScaling = P96PIP_Dummy + 23;
+ P96PIP_ClipLeft = P96PIP_Dummy + 24; // LongWord (IS)
+ P96PIP_ClipTop = P96PIP_Dummy + 25; // LongWord (IS)
+ P96PIP_ClipWidth = P96PIP_Dummy + 26; // LongWord (IS)
+ P96PIP_ClipHeight = P96PIP_Dummy + 27; // LongWord (IS)
+ P96PIP_ConstantByteSwapping = P96PIP_Dummy + 28;
+ P96PIP_ColorKeyPen = P96PIP_Dummy + 29;
+ P96PIP_NumberOfBuffers = P96PIP_Dummy + 30;
+ P96PIP_VisibleBuffer = P96PIP_Dummy + 31;
+ P96PIP_WorkBuffer = P96PIP_Dummy + 32;
+ P96PIP_DisplayedBuffer = P96PIP_Dummy + 33;
+ P96PIP_ColorKeyARGB = P96PIP_Dummy + 34;
+
+ PIPT_MemoryWindow = 0; // default
+ PIPT_VideoWindow = 1;
+ PIPT_NUMTYPES = 2;
+
+ P96PIPT_MemoryWindow = PIPT_MemoryWindow;
+ P96PIPT_VideoWindow = PIPT_VideoWindow;
+
+ PIPRel_Right = 1; // P96PIP_Left is relative to the right side (negative value)
+ PIPRel_Bottom = 2; // P96PIP_Top is relative to the bottom (negative value)
+ PIPRel_Width = 4; // P96PIP_Width is amount of pixels not used by PIP at the right side of the window (negative value)
+ PIPRel_Height = 8; // P96PIP_Height is amount of pixels not used by PIP at the window bottom (negative value)
+ PIPERR_NOMEMORY = 1; // couldn't get normal memory
+ PIPERR_ATTACHFAIL = 2; // Failed to attach to a screen
+ PIPERR_NOTAVAILABLE = 3; // PIP not available for other reason
+ PIPERR_OUTOFPENS = 4; // couldn't get a free pen for occlusion
+ PIPERR_BADDIMENSIONS = 5; // type, width, height or format invalid
+ PIPERR_NOWINDOW = 6; // couldn't open window
+ PIPERR_BADALIGNMENT = 7; // specified alignment is not ok
+ PIPERR_CROPPED = 8; // pip would be cropped, but isn't allowed to
+// Tags for P96GetRTGDataTagList
+ P96RD_Dummy = TAG_USER + $40000 + 96;
+ P96RD_NumberOfBoards = P96RD_Dummy + 1;
+// Tags for P96GetBoardDataTagList
+ P96BD_Dummy = TAG_USER + $50000 + 96;
+ P96BD_BoardName = P96BD_Dummy + 1;
+ P96BD_ChipName = P96BD_Dummy + 2;
+ P96BD_TotalMemory = P96BD_Dummy + 4;
+ P96BD_FreeMemory = P96BD_Dummy + 5;
+ P96BD_LargestFreeMemory = P96BD_Dummy + 6;
+ P96BD_MonitorSwitch = P96BD_Dummy + 7;
+ P96BD_RGBFormats = P96BD_Dummy + 8;
+ P96BD_MemoryClock = P96BD_Dummy + 9;
+ P96BD_PCIVendorID = P96BD_Dummy + 10;
+ P96BD_PCIProductID = P96BD_Dummy + 11;
+ P96BD_MonitorVendorID = P96BD_Dummy + 12; // new 2.354
+ P96BD_MonitorProduct = P96BD_Dummy + 13; // new 2.354
+ P96BD_MonitorProductID = P96BD_Dummy + 14; // new 2.354
+ P96BD_MonitorHSyncMin = P96BD_Dummy + 15; // new 2.354
+ P96BD_MonitorHSyncMax = P96BD_Dummy + 16; // new 2.354
+ P96BD_MonitorVSyncMin = P96BD_Dummy + 17; // new 2.354
+ P96BD_MonitorVSyncMax = P96BD_Dummy + 18; // new 2.354
+ P96BD_MonitorDotClockMin = P96BD_Dummy + 19; // new 2.354
+ P96BD_MonitorDotClockMax = P96BD_Dummy + 20; // new 2.354
+ P96BD_MonitorInputType = P96BD_Dummy + 21; // new 2.354
+ P96BD_MonitorEDIDVer = P96BD_Dummy + 22; // new 2.354
+ P96BD_MonitorEDIDRev = P96BD_Dummy + 23; // new 2.354
+ P96BD_MonitorDisplayWidth = P96BD_Dummy + 24; // new 2.354
+ P96BD_MonitorDisplayHeight = P96BD_Dummy + 25; // new 2.354
+
+ P96BD_BoardDriver = P96BD_Dummy + 26; // new 2.359
+ P96BD_ChipDriver = P96BD_Dummy + 27; // new 2.359
+ P96BD_InternalMemorySize = P96BD_Dummy + 28; // new 2.359
+
+var
+ P96Base: PLibrary = nil;
+ IP96: PInterface = nil;
+
+function p96Obtain(): LongWord; syscall IGfx 60;
+function p96Release(): LongWord; syscall IGfx 64;
+procedure p96Expunge(); syscall IGfx 68;
+function p96Clone(): PInterface; syscall IGfx 72;
+function p96AllocBitMap(SizeX, SizeY, Depth, Flags: LongWord; Friend: PBitMap; RGBFormat: TRGBFTYPE): pBitMap; syscall IP96 76;
+procedure p96FreeBitMap(BitMap: PBitMap); syscall IP96 80;
+function p96GetBitMapAttr(BitMap: PBitMap; Attribute: LongWord): LongWord; syscall IP96 84;
+function p96LockBitMap(BitMap: PBitMap; Buffer: PByte; Size: LongWord): LongInt; syscall IP96 88;
+procedure p96UnlockBitMap(BitMap: PBitMap; Lock: LongInt); syscall IP96 92;
+function p96BestModeIDTagList(Tags: PTagItem): LongWord; syscall IP96 96;
+// 100 p96BestModeIDTags
+function p96RequestModeIDTagList(Tags: PTagItem): LongWord; syscall IP96 104;
+// 108 p96RequestModeIDTags
+function p96AllocModeListTagList(Tags: PTagItem): PList; syscall IP96 112;
+// 116 p96AllocModeListTags
+procedure p96FreeModeList(List: PList); syscall IP96 120;
+function p96GetModeIDAttr(Mode: LongWord; Attribute: LongWord): LongWord; syscall IP96 124;
+function p96OpenScreenTagList(Tags: PTagItem): PScreen; syscall IP96 128;
+// 132 p96OpenScreenTags
+function p96CloseScreen(Screen: PScreen): Wordbool; syscall IP96 136;
+procedure p96WritePixelArray(Ri: PRenderInfo; SrcX, SrcY: LongWord; Rp: PRastPort; DestX, DestY, SizeX, SizeY: LongWord); syscall IP96 140;
+procedure p96ReadPixelArray(Ri: PRenderInfo; DestX, DestY: LongWord; Rp: PRastPort; SrcX, SrcY, SizeX, SizeY: LongWord); syscall IP96 144;
+function p96WritePixel(Rp: PRastPort; X, Y, Color: LongWord): LongWord; syscall IP96 148;
+function p96ReadPixel(Rp: PRastPort; X, Y: LongWord): LongWord; syscall IP96 152;
+procedure p96RectFill(Rp: PRastPort; MinX, MinY, MaxX, MaxY, Color: LongWord); syscall IP96 156;
+procedure p96WriteTrueColorData(Tci: PTrueColorInfo; SrcX, SrcY: LongWord; Rp: PRastPort; DestX, DestY, SizeX, SizeY: LongWord); syscall IP96 160;
+procedure p96ReadTrueColorData(Tci: PTrueColorInfo; DestX, DestY: LongWord; Rp: PRastPort; SrcX, SrcY, SizeX, SizeY: LongWord); syscall IP96 164;
+function p96PIP_OpenTagList(Tags: PTagItem): PWindow; syscall IP96 168;
+// 172 p96PIP_OpenTags
+function p96PIP_Close(Window: PWindow): Wordbool; syscall IP96 176;
+function p96PIP_SetTagList(Window: PWindow; Tags: PTagItem): LongInt; syscall IP96 180;
+// 184 p96PIP_SetTags
+function p96PIP_GetTagList(Window: PWindow; Tags: PTagItem): LongInt; syscall IP96 188;
+// 192 p96PIP_GetTags
+function p96PIP_GetIMsg(Port: PMsgPort): PIntuiMessage; syscall IP96 196;
+procedure p96PIP_ReplyIMsg(IntuiMessage: PIntuiMessage); syscall IP96 200;
+function p96GetRTGDataTagList(Tags: PTagItem): LongInt; syscall IP96 204;
+// 208 p96GetRTGDataTags
+function p96GetBoardDataTagList(Board: LongWord; Tags: PTagItem): LongInt; syscall IP96 212;
+// 216 p96GetBoardDataTags
+function p96EncodeColor(RGBFormat: TRGBFTYPE; Color: LongWord): LongWord; syscall IP96 220;
+function p96LockBitMapToBoard(Bm: PBitmap; Board_Number: LongWord; Buf: PByte; Size: LongWord): WordBool; syscall IP96 224;
+procedure p96UnlockBitMapFromBoard(Bm: PBitmap; Modified: LongBool); syscall IP96 228;
+
+// functions and procedures with array of PtrUInt go here
+function p96BestModeIDTags(const Tags: array of PtrUInt): LongWord;
+function p96RequestModeIDTags(const Tags: array of PtrUInt): LongWord;
+function p96AllocModeListTags(const Tags: array of PtrUInt): PList;
+function p96OpenScreenTags(const Tags: array of PtrUInt): PScreen;
+function p96PIP_OpenTags(const Tags: array of PtrUInt): PWindow;
+function p96PIP_SetTags(Window: PWindow; const Tags: array of PtrUInt): LongInt;
+function p96PIP_GetTags(Window: PWindow; const Tags: array of PtrUInt): LongInt;
+function p96GetRTGDataTags(const Tags: array of PtrUInt): LongInt;
+function p96GetBoardDataTags(Board: LongWord; const Tags: array of PtrUInt): LongInt;
+
+implementation
+
+// functions and procedures with array of PtrUInt go here
+function p96BestModeIDTags(const Tags: array of PtrUInt): LongWord;
+begin
+ p96BestModeIDTags := p96BestModeIDTagList(@Tags);
+end;
+
+function p96RequestModeIDTags(const Tags: array of PtrUInt): LongWord;
+begin
+ p96RequestModeIDTags := p96RequestModeIDTagList(@Tags);
+end;
+
+function p96AllocModeListTags(const Tags: array of PtrUInt): PList;
+begin
+ p96AllocModeListTags := p96AllocModeListTagList(@Tags);
+end;
+
+function p96OpenScreenTags(const Tags: array of PtrUInt): PScreen;
+begin
+ p96OpenScreenTags := p96OpenScreenTagList(@Tags);
+end;
+
+function p96PIP_OpenTags(const Tags: array of PtrUInt): PWindow;
+begin
+ p96PIP_OpenTags := p96PIP_OpenTagList(@Tags);
+end;
+
+function p96PIP_SetTags(Window: PWindow; const Tags: array of PtrUInt): LongInt;
+begin
+ p96PIP_SetTags := p96PIP_SetTagList(Window , @Tags);
+end;
+
+function p96PIP_GetTags(Window: PWindow; const Tags: array of PtrUInt): LongInt;
+begin
+ p96PIP_GetTags := p96PIP_GetTagList(Window , @Tags);
+end;
+
+function p96GetRTGDataTags(const Tags: array of PtrUInt): LongInt;
+begin
+ p96GetRTGDataTags := p96GetRTGDataTagList(@Tags);
+end;
+
+function p96GetBoardDataTags(Board: LongWord; const Tags: array of PtrUInt): LongInt;
+begin
+ p96GetBoardDataTags := p96GetBoardDataTagList(Board , @Tags);
+end;
+
+const
+ LIBVERSION: LongWord = 0;
+
+initialization
+ P96Base := OpenLibrary(PICASSO96APINAME, LIBVERSION);
+ if Assigned(P96Base) then
+ IP96 := GetInterface(P96Base, 'main', 1, nil);
+finalization
+ if Assigned(IP96) then
+ DropInterface(IP96);
+ if Assigned(P96Base) then
+ CloseLibrary(P96Base);
+end.
+
+
diff --git a/packages/rtl-extra/src/amiga/sockets.pp b/packages/rtl-extra/src/amiga/sockets.pp
index 43d6a9facc..bebfe0f160 100644
--- a/packages/rtl-extra/src/amiga/sockets.pp
+++ b/packages/rtl-extra/src/amiga/sockets.pp
@@ -143,7 +143,7 @@ function ReleaseCopyOfSocket(s: LongInt location 'd0'; id: LongInt location 'd1'
{$else AMIGAOS4}
-var
+threadvar
SocketBase: PLibrary;
ISocket: PInterface;
@@ -339,10 +339,8 @@ begin
end;
initialization
- {$ifdef AMIGA68K}
AddThreadInitProc(@BSDSocketOpen);
AddThreadExitProc(@BSDSocketClose);
- {$endif}
BSDSocketOpen;
finalization
diff --git a/packages/rtl-objpas/src/inc/strutils.pp b/packages/rtl-objpas/src/inc/strutils.pp
index 8fdcd80513..5def35f24d 100644
--- a/packages/rtl-objpas/src/inc/strutils.pp
+++ b/packages/rtl-objpas/src/inc/strutils.pp
@@ -44,6 +44,8 @@ Function AnsiEndsStr(const ASubText, AText: string): Boolean;
Function AnsiReplaceStr(const AText, AFromText, AToText: string): string;inline;
Function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean;inline;
Function AnsiIndexStr(const AText: string; const AValues: array of string): Integer;
+Function MatchStr(const AText: UnicodeString; const AValues: array of UnicodeString): Boolean;
+Function IndexStr(const AText: UnicodeString; const AValues: array of UnicodeString): Integer;
{ ---------------------------------------------------------------------
Miscellaneous
@@ -978,6 +980,24 @@ begin
end;
+Function MatchStr(const AText: UnicodeString; const AValues: array of UnicodeString): Boolean;
+begin
+ Result := IndexStr(AText,AValues) <> -1;
+end;
+
+
+Function IndexStr(const AText: UnicodeString; const AValues: array of UnicodeString): Integer;
+var
+ i: longint;
+begin
+ Result := -1;
+ if (high(AValues) = -1) or (High(AValues) > MaxInt) Then
+ Exit;
+ for i := low(AValues) to High(Avalues) do
+ if (avalues[i] = AText) Then
+ exit(i); // make sure it is the first val.
+end;
+
{ ---------------------------------------------------------------------
Playthingies
---------------------------------------------------------------------}
diff --git a/packages/rtl-unicode/src/collations/collation_ko.pas b/packages/rtl-unicode/src/collations/collation_ko.pas
index 5d1b4d964b..ba1b592fde 100644
--- a/packages/rtl-unicode/src/collations/collation_ko.pas
+++ b/packages/rtl-unicode/src/collations/collation_ko.pas
@@ -37,7 +37,7 @@ const
UPDATED_FIELDS = [ ];
COLLATION_NAME = 'ko';
BASE_COLLATION = '';
- VERSION_STRING = '$Revision: 10795 $';
+ VERSION_STRING = '$Revision: 11433 $';
VARIABLE_LOW_LIMIT = 65535;
VARIABLE_HIGH_LIMIT = 0;
VARIABLE_WEIGHT = 0;
diff --git a/packages/rtl-unicode/src/collations/collation_ru.pas b/packages/rtl-unicode/src/collations/collation_ru.pas
index f331e2e101..b36aeaddef 100644
--- a/packages/rtl-unicode/src/collations/collation_ru.pas
+++ b/packages/rtl-unicode/src/collations/collation_ru.pas
@@ -37,7 +37,7 @@ const
UPDATED_FIELDS = [ ];
COLLATION_NAME = 'ru';
BASE_COLLATION = '';
- VERSION_STRING = '$Revision: 9614 $';
+ VERSION_STRING = '$Revision: 11056 $';
VARIABLE_LOW_LIMIT = 65535;
VARIABLE_HIGH_LIMIT = 0;
VARIABLE_WEIGHT = 0;
@@ -45,101 +45,7 @@ const
BACKWARDS_1 = False;
BACKWARDS_2 = False;
BACKWARDS_3 = False;
- PROP_COUNT = 150;
-const
- UCA_TABLE_1 : array[0..255] of Byte = (
- 0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
- );
-
-const
- UCAO_TABLE_1 : array[0..1023] of Word = (
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
- );
-
-{$ifdef FPC_LITTLE_ENDIAN}
- {$include collation_ru_le.inc}
-{$else FPC_LITTLE_ENDIAN}
- {$include collation_ru_be.inc}
-{$endif FPC_LITTLE_ENDIAN}
var
CLDR_Collation : TUCA_DataBook = (
Base : nil;
@@ -147,12 +53,12 @@ var
CollationName : COLLATION_NAME;
VariableWeight : TUCA_VariableKind(VARIABLE_WEIGHT);
Backwards : (BACKWARDS_0,BACKWARDS_1,BACKWARDS_2,BACKWARDS_3);
- BMP_Table1 : @UCA_TABLE_1[0];
- BMP_Table2 : @UCA_TABLE_2[0];
- OBMP_Table1 : @UCAO_TABLE_1[0];
- OBMP_Table2 : @UCAO_TABLE_2[0];
- PropCount : PROP_COUNT;
- Props : PUCA_PropItemRec(@UCA_PROPS[0]);
+ BMP_Table1 : nil;
+ BMP_Table2 : nil;
+ OBMP_Table1 : nil;
+ OBMP_Table2 : nil;
+ PropCount : 0;
+ Props : nil;
VariableLowLimit : VARIABLE_LOW_LIMIT;
VariableHighLimit : VARIABLE_HIGH_LIMIT;
);
diff --git a/packages/rtl-unicode/src/collations/collation_ru_be.inc b/packages/rtl-unicode/src/collations/collation_ru_be.inc
index 1a94870df3..e69de29bb2 100644
--- a/packages/rtl-unicode/src/collations/collation_ru_be.inc
+++ b/packages/rtl-unicode/src/collations/collation_ru_be.inc
@@ -1,782 +0,0 @@
-const
- UCA_TABLE_2 : array[0..(256*2-1)] of UInt24 =(
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $01;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $06;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $0B;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $10;),
- (byte2 : $00; byte1 : $00; byte0 : $15;),(byte2 : $00; byte1 : $00; byte0 : $1A;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $1F;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $24;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $29;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $2E;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $33;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $38;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $3D;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $42;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $47;),
- (byte2 : $00; byte1 : $00; byte0 : $4C;),(byte2 : $00; byte1 : $00; byte0 : $51;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $56;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $5B;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $60;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $65;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $6A;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $6F;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $74;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $79;),(byte2 : $00; byte1 : $00; byte0 : $7E;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $83;),(byte2 : $00; byte1 : $00; byte0 : $88;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $8D;),(byte2 : $00; byte1 : $00; byte0 : $92;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;)
- );
-
- UCAO_TABLE_2 : array[0..(1024*1-1)] of UInt24 =(
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;),
- (byte2 : $00; byte1 : $00; byte0 : $00;),(byte2 : $00; byte1 : $00; byte0 : $00;)
- );
-
-const
- UCA_PROPS : array[0..149] of Byte = (
- 0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,
- 0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,
- 0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9,0,0,0,5,9
- );
-
diff --git a/packages/rtl-unicode/src/collations/collation_ru_le.inc b/packages/rtl-unicode/src/collations/collation_ru_le.inc
index d508b1ccbf..e69de29bb2 100644
--- a/packages/rtl-unicode/src/collations/collation_ru_le.inc
+++ b/packages/rtl-unicode/src/collations/collation_ru_le.inc
@@ -1,782 +0,0 @@
-const
- UCA_TABLE_2 : array[0..(256*2-1)] of UInt24 =(
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $01; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $06; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $0B; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $10; byte1 : $00; byte2 : $00;),
- (byte0 : $15; byte1 : $00; byte2 : $00;),(byte0 : $1A; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $1F; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $24; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $29; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $2E; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $33; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $38; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $3D; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $42; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $47; byte1 : $00; byte2 : $00;),
- (byte0 : $4C; byte1 : $00; byte2 : $00;),(byte0 : $51; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $56; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $5B; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $60; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $65; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $6A; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $6F; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $74; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $79; byte1 : $00; byte2 : $00;),(byte0 : $7E; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $83; byte1 : $00; byte2 : $00;),(byte0 : $88; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $8D; byte1 : $00; byte2 : $00;),(byte0 : $92; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;)
- );
-
- UCAO_TABLE_2 : array[0..(1024*1-1)] of UInt24 =(
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;),
- (byte0 : $00; byte1 : $00; byte2 : $00;),(byte0 : $00; byte1 : $00; byte2 : $00;)
- );
-
-const
- UCA_PROPS : array[0..149] of Byte = (
- 0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,
- 0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,
- 0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9,0,0,5,0,9
- );
-
diff --git a/packages/sdl/src/sdl_mixer.pas b/packages/sdl/src/sdl_mixer.pas
index eb6b6b1b4b..90b3133141 100644
--- a/packages/sdl/src/sdl_mixer.pas
+++ b/packages/sdl/src/sdl_mixer.pas
@@ -188,7 +188,7 @@ const
SDL_MixerLibName = 'SDL_mixer';
{$ENDIF}
-{$IFDEF MACOS}
+{$IFDEF MORPHOS}
SDL_MixerLibName = 'powersdl_mixer.library';
{$ENDIF}
diff --git a/packages/sdl/src/sdl_net.pas b/packages/sdl/src/sdl_net.pas
index 60223e8d93..ee159dce75 100644
--- a/packages/sdl/src/sdl_net.pas
+++ b/packages/sdl/src/sdl_net.pas
@@ -148,7 +148,7 @@ const
SDLNetLibName = 'SDL_net';
{$ENDIF}
-{$IFDEF MACOS}
+{$IFDEF MORPHOS}
SDLNetLibName = 'powersdl_net.library';
{$ENDIF}
diff --git a/packages/sdl/src/sdl_ttf.pas b/packages/sdl/src/sdl_ttf.pas
index ca554673e8..7b3d7e2a14 100644
--- a/packages/sdl/src/sdl_ttf.pas
+++ b/packages/sdl/src/sdl_ttf.pas
@@ -198,7 +198,7 @@ const
SDLttfLibName = 'SDL_ttf';
{$ENDIF}
-{$IFDEF MACOS}
+{$IFDEF MORPHOS}
SDLttfLibName = 'powersdl_ttf.library';
{$ENDIF}
diff --git a/packages/winunits-base/Makefile.fpc.fpcmake b/packages/winunits-base/Makefile.fpc.fpcmake
index f6b215aa49..69d5ed3794 100644
--- a/packages/winunits-base/Makefile.fpc.fpcmake
+++ b/packages/winunits-base/Makefile.fpc.fpcmake
@@ -13,7 +13,7 @@ packages=fcl-registry fcl-base
units=buildwinutilsbase
implicitunits=flatsb winver mmsystem comobj comconst commdlg commctrl ole2 activex shellapi shlobj oleserver \
shfolder richedit imagehlp wininet uxtheme dwmapi multimon htmlhelp winutils comserv winspool imm imm_dyn nb30 \
- win9xwsmanager stdole2 eventsink typelib
+ stdole2 eventsink typelib
examples=examples
diff --git a/packages/winunits-base/fpmake.pp b/packages/winunits-base/fpmake.pp
index 6857ddc576..e679ca341d 100644
--- a/packages/winunits-base/fpmake.pp
+++ b/packages/winunits-base/fpmake.pp
@@ -64,11 +64,10 @@ begin
AddUnit('imm');
AddUnit('imm_dyn');
AddUnit('nb30');
- AddUnit('win9xwsmanager', [win32]);
- AddUnit('stdole2');
- AddUnit('eventsink');
- AddUnit('typelib');
- AddUnit('libkinect10');
+ AddUnit('stdole2');
+ AddUnit('eventsink');
+ AddUnit('typelib');
+ AddUnit('libkinect10');
AddUnit('urlmon');
end;
T:=P.Targets.AddImplicitUnit('activex.pp');
@@ -101,11 +100,10 @@ begin
T:=P.Targets.AddImplicitUnit('imm.pas');
T:=P.Targets.AddImplicitUnit('imm_dyn.pas');
T:=P.Targets.AddImplicitUnit('nb30.pp');
- T:=P.Targets.AddImplicitUnit('win9xwsmanager.pp', [win32]);
- T:=P.Targets.AddImplicitUnit('stdole2.pas');
- T:=P.Targets.AddImplicitUnit('eventsink.pp');
- T:=P.Targets.AddImplicitUnit('typelib.pas');
- T:=P.Targets.AddImplicitUnit('libkinect10.pp');
+ T:=P.Targets.AddImplicitUnit('stdole2.pas');
+ T:=P.Targets.AddImplicitUnit('eventsink.pp');
+ T:=P.Targets.AddImplicitUnit('typelib.pas');
+ T:=P.Targets.AddImplicitUnit('libkinect10.pp');
T.Dependencies.AddInclude('tmschema.inc');
P.ExamplePath.Add('tests/');
P.Targets.AddExampleProgram('testcom1.pp');
diff --git a/packages/winunits-base/src/buildwinutilsbase.pp b/packages/winunits-base/src/buildwinutilsbase.pp
index 342899b02a..5c307d3352 100644
--- a/packages/winunits-base/src/buildwinutilsbase.pp
+++ b/packages/winunits-base/src/buildwinutilsbase.pp
@@ -24,7 +24,7 @@ uses
flatsb, winver, mmsystem, comconst, commctrl, comobj, commdlg,
ole2, activex, shellapi, shlobj, oleserver, shfolder, richedit,
imagehlp, wininet, uxtheme, dwmapi, multimon, htmlhelp, winutils,
- comserv, winspool, imm, imm_dyn, nb30, win9xwsmanager, stdole2,
+ comserv, winspool, imm, imm_dyn, nb30, stdole2,
eventsink, typelib, libkinect10, urlmon,
shlwapi;
diff --git a/packages/winunits-base/src/win9xwsmanager.pp b/packages/winunits-base/src/win9xwsmanager.pp
deleted file mode 100644
index 3eba28e48a..0000000000
--- a/packages/winunits-base/src/win9xwsmanager.pp
+++ /dev/null
@@ -1,215 +0,0 @@
-{ *********************************************************************
- This file is part of the Free Pascal run time library.
- Copyright (c) 2011 by Bart Broersma.
-
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE
-
- **********************************************************************}
-
-unit win9xwsmanager;
-
-{**********************************************************************
- Objective: to provide minimal WideString Upper- and LowerCase
- functionality under Win9x systems.
- This is achievd by dynamically linking shlwapi.dll functions.
- If this fails a fallback mechanism is provided so that at least all
- lower ASCII characters in a WideString are Upper/LowerCased
-
- Without this library UTF8UpperCase/UTF8LowerCase will fail
- on win9x systems (which makes many Lazarus LCL controls that
- handle strings behave wrong).
-
- You can use this unit in your uses clause independent of yout target OS.
- No code will be linked in if yout target is not Windows.
- On true Unicode Windows (WinCE, WinNT-based) no additional libraries
- will be linked in (see: InitWin9xWSManager).
-
- Currently only LowerWideStringProc and UpperWideStringProc are
- replaced on win9x.
- Possibly other functions might need replacin too.
-
-***********************************************************************}
-
-{$mode objfpc}{$H+}
-interface
-
-{$IFDEF WINDOWS}
-{ $define DEBUG_WIN9X_WSMANAGER}
-
-
-uses
- Windows, SysUtils;
-
-{$endif WINDOWS}
-
-implementation
-
-{$ifdef WINDOWS}
-
-type
- TShlwapiFunc = function(lpsz: LPWSTR; ccLength: DWORD): DWORD; stdcall;
-
-var
- CharUpperBuffWrapW: TShlwapifunc = nil;
- CharLowerBuffWrapW: TShlwapifunc = nil;
- ShlwapiHandle: THandle = 0;
- SavedUnicodeStringManager: TUnicodeStringManager;
-
-
-// Win9x**Simple functions do essentially Upper/LowerCase on
-// lower ASCII characters in the string
-
-function Win9xWideUpperSimple(const S: WideString): WideString;
-const
- diff = Ord('a') - Ord('A');
-var
- W: WideChar;
- i: Integer;
-begin
- Result := S;
- for i := 1 to length(Result) do
- begin
- W := Result[i];
- if (Ord(W) in [Ord(Char('a'))..Ord(Char('z'))]) then
- begin
- Word(W) := Word(W) - diff;
- Result[i] := W;
- end;
- end;
-end;
-
-function Win9xWideLowerSimple(const S: WideString): WideString;
-const
- diff = Ord('a') - Ord('A');
-var
- W: WideChar;
- i: Integer;
-begin
- Result := S;
- for i := 1 to length(Result) do
- begin
- W := Result[i];
- if (Ord(W) in [Ord(Char('A'))..Ord(Char('Z'))]) then
- begin
- Word(W) := Word(W) + diff;
- Result[i] := W;
- end;
- end;
-end;
-
-
-function Win9xWideUpper(const S: WideString): WideString;
-begin
- Result := S;
- CharUpperBuffWrapW(PWChar(Result), Length(Result));
-end;
-
-function Win9xWideLower(const S: WideString): WideString;
-begin
- Result := S;
- CharLowerBuffWrapW(PWChar(Result), Length(Result));
-end;
-
-
-procedure FreeDll;
-begin
- {$ifdef DEBUG_WIN9X_WSMANAGER}
- if IsConsole then writeln('FreeDLL');
- {$endif}
- if ShlwapiHandle <> 0 then
- begin
- FreeLibrary(ShlwapiHandle);
- ShlwapiHandle := 0;
- end;
-end;
-
-
-procedure InitDll;
-var
- PU,PL: Pointer;
-begin
- ShlwapiHandle := LoadLibrary('shlwapi.dll');
- if (ShlwapiHandle <> 0) then
- begin
- //shlwapi functions cannot be loaded by name, only by index!
- PU := GetProcAddress(ShlwapiHandle,PChar(44));
- if (PU <> nil) then CharUpperBuffWrapW := TShlwapiFunc(PU);
- PL := GetProcAddress(ShlwapiHandle,PChar(39));
- if (PL <> nil) then CharLowerBuffWrapW := TShlwapiFunc(PL);
- {$ifdef DEBUG_WIN9X_WSMANAGER}
- {$PUSH}{$HINTS OFF} //suppress hints on Pointer to PtrUInt tyecasting
- if IsConsole then
- begin
- writeln('Successfully loaded shlwapi.dll');
- if (PU <> nil) then
- writeln('Assigning CharUpperBuffWrapW @: ',HexStr(PtrUInt(PU),2*sizeof(PtrInt)))
- else
- writeln('Unable to load CharUpperBuffWrapW');
- if (PL <> nil) then
- writeln('Assigning CharLowerBuffWrapW @: ',HexStr(PtrUInt(PL),2*sizeof(PtrInt)))
- else
- writeln('Unable to load CharLowerBuffWrapW');
- end;
- {$POP}
- {$endif DEBUG_WIN9X_WSMANAGER}
- if (PU = nil) and (PL = nil) then
- begin
- FreeDLL;
- end;
- end
- else
- begin
- {$ifdef DEBUG_WIN9X_WSMANAGER}
- writeln('Unable to load shlwapi.dll');
- {$endif}
- end;
-end;
-
-
-procedure InitWin9xWSManager;
-var
- WS: WideString;
-begin
- SavedUnicodeStringManager := WideStringManager;
- WS := 'abc';
- if WideUpperCase(WS) <> 'ABC' then
- begin
- InitDLL;
- if Assigned(CharUpperBuffWrapW) then
- begin
- WideStringManager.UpperWideStringProc := @Win9xWideUpper;
- WS := 'abc';
- if WideUpperCase(WS) <> 'ABC' then WideStringManager.UpperWideStringProc := @Win9xWideUpperSimple;
- end
- else
- begin
- WideStringManager.UpperWideStringProc := @Win9xWideUpperSimple;
- end;
- if Assigned(CharLowerBuffWrapW) then
- begin
- WideStringmanager.LowerWideStringProc := @Win9xWideLower;
- WS := 'ABC';
- if WideLowerCase(WS) <> 'abc' then WideStringManager.LowerWideStringProc := @Win9xWideLowerSimple;
- end
- else
- begin
- WideStringManager.LowerWideStringProc := @Win9xWideLowerSimple;
- end;
- end;
-end;
-
-initialization
- InitWin9xWSManager;
-
-finalization
- WideStringManager := SavedUnicodeStringManager;
- if (ShlwapiHandle <> 0) then FreeDll;
-
-{$endif}
-end.
-
diff --git a/packages/x11/src/x.pp b/packages/x11/src/x.pp
index ea21b9564b..4cbce8894e 100644
--- a/packages/x11/src/x.pp
+++ b/packages/x11/src/x.pp
@@ -142,7 +142,8 @@ const
ColormapNotify = 32;
ClientMessage = 33;
MappingNotify = 34;
- LASTEvent = 35;
+ GenericEvent = 35;
+ LASTEvent = 36;
ShiftMask = 1 shl 0;
LockMask = 1 shl 1;
ControlMask = 1 shl 2;
diff --git a/packages/x11/src/xlib.pp b/packages/x11/src/xlib.pp
index e393e7a87a..d125b6f7cd 100644
--- a/packages/x11/src/xlib.pp
+++ b/packages/x11/src/xlib.pp
@@ -802,6 +802,33 @@ type
window : TWindow;
end;
+ (***************************************************************
+ *
+ * GenericEvent. This event is the standard event for all newer extensions.
+ *)
+
+ PXGenericEvent = ^TXGenericEvent;
+ TXGenericEvent = record
+ _type: cint; { of event. Always GenericEvent }
+ serial: culong; { # of last request processed }
+ send_event: TBool; { true if from SendEvent request }
+ display: PDisplay; { Display the event was read from }
+ extension: cint; { major opcode of extension that caused the event }
+ evtype: cint; { actual event type. }
+ end;
+
+ PXGenericEventCookie = ^TXGenericEventCookie;
+ TXGenericEventCookie = record
+ _type: cint; { of event. Always GenericEvent }
+ serial: culong; { # of last request processed }
+ send_event: TBool; { true if from SendEvent request }
+ display: PDisplay; { Display the event was read from }
+ extension: cint; { major opcode of extension that caused the event }
+ evtype: cint; { actual event type. }
+ cookie: cuint;
+ data: pointer;
+ end;
+
PXEvent = ^TXEvent;
TXEvent = record
case longint of
@@ -837,7 +864,9 @@ type
29 : ( xmapping : TXMappingEvent );
30 : ( xerror : TXErrorEvent );
31 : ( xkeymap : TXKeymapEvent );
- 32 : ( pad : array[0..23] of clong );
+ 32 : ( xgeneric : TXGenericEvent );
+ 33 : ( xcookie : TXGenericEventCookie );
+ 34 : ( pad : array[0..23] of clong );
end;
type
@@ -1767,6 +1796,16 @@ procedure XSetAuthorization(para1:Pchar; para2:cint; para3:Pchar; para4:cint);cd
_Xwctomb?
}
+function XGetEventData(
+ dpy: PDisplay;
+ cookie: PXGenericEventCookie
+): TBoolResult;cdecl;external libX11;
+
+procedure XFreeEventData(
+ dpy: PDisplay;
+ cookie: PXGenericEventCookie
+);cdecl;external libX11;
+
{$ifdef MACROS}
function ConnectionNumber(dpy : PDisplay) : cint;
function RootWindow(dpy : PDisplay; scr : cint) : TWindow;
diff --git a/rtl/amiga/system.pp b/rtl/amiga/system.pp
index a66f804af7..37337802fe 100644
--- a/rtl/amiga/system.pp
+++ b/rtl/amiga/system.pp
@@ -25,11 +25,11 @@ interface
{$I systemh.inc}
{$I osdebugh.inc}
-{$ifdef cpum68k}
+{$if defined(cpum68k) and defined(fpusoft)}
{$define fpc_softfpu_interface}
{$i softfpu.pp}
{$undef fpc_softfpu_interface}
-{$endif cpum68k}
+{$endif defined(cpum68k) and defined(fpusoft)}
const
LineEnding = #10;
@@ -94,7 +94,8 @@ var
implementation
-{$ifdef cpum68k}
+{$if defined(cpum68k) and defined(fpusoft)}
+
{$define fpc_softfpu_implementation}
{$i softfpu.pp}
{$undef fpc_softfpu_implementation}
@@ -110,7 +111,7 @@ implementation
{$define FPC_SYSTEM_HAS_ExtractFloat32Frac}
{$define FPC_SYSTEM_HAS_extractFloat32Exp}
{$define FPC_SYSTEM_HAS_extractFloat32Sign}
-{$endif cpum68k}
+{$endif defined(cpum68k) and defined(fpusoft)}
{$I system.inc}
{$I osdebug.inc}
diff --git a/rtl/embedded/system.pp b/rtl/embedded/system.pp
index a1f597515c..cce31eaea9 100644
--- a/rtl/embedded/system.pp
+++ b/rtl/embedded/system.pp
@@ -34,6 +34,7 @@ Unit System;
{$define DISABLE_NO_THREAD_MANAGER}
{ Do not use standard memory manager }
{$define HAS_MEMORYMANAGER}
+{$define FPC_NO_DEFAULT_HEAP}
{$define FPC_ANSI_TEXTFILEREC}
diff --git a/rtl/i386/int64p.inc b/rtl/i386/int64p.inc
index 8556588015..1935c4713a 100644
--- a/rtl/i386/int64p.inc
+++ b/rtl/i386/int64p.inc
@@ -70,7 +70,7 @@
xchgl %ecx,%eax
divl %ebx
movl %ecx,%edx
- jmp .Lexit
+ jmp .Lmake_sign
.Lbigdivisor:
subl $12,%esp
movl %eax,(%esp)
diff --git a/rtl/i8086/i8086.inc b/rtl/i8086/i8086.inc
index cf5ca8e780..00d8e7e7e8 100644
--- a/rtl/i8086/i8086.inc
+++ b/rtl/i8086/i8086.inc
@@ -728,6 +728,64 @@ end;
{****************************************************************************
+ Stack checking
+****************************************************************************}
+
+
+procedure fpc_stackcheck_i8086;[public,alias:'FPC_STACKCHECK_I8086'];compilerproc;assembler;nostackframe;
+const
+ STACK_MARGIN=512;
+asm
+ { on entry: AX = required stack size to check if available
+ (function is called before stack allocation) }
+{$ifdef FPC_MM_HUGE}
+ push ds
+ push ax
+ mov ax, SEG @DATA
+ mov ds, ax
+ pop ax
+{$endif FPC_MM_HUGE}
+ add ax, STACK_MARGIN
+ jc @@stack_overflow
+ add ax, word ptr [__stkbottom]
+ jc @@stack_overflow
+ cmp ax, sp
+ ja @@stack_overflow
+@@no_overflow:
+{$ifdef FPC_MM_HUGE}
+ pop ds
+{$endif FPC_MM_HUGE}
+ ret
+
+@@stack_overflow:
+ { check StackError flag, to avoid recursive calls from the exit routines }
+ cmp byte ptr [StackError], 1
+ je @@no_overflow
+ mov byte ptr [StackError], 1
+ { cleanup return address (and maybe saved ds) from call to this function }
+{$if defined(FPC_MM_HUGE)}
+ add sp, 6
+{$elseif defined(FPC_X86_CODE_FAR)}
+ pop ax
+ pop ax
+{$else}
+ pop ax
+{$endif}
+ { call HandleError(202) }
+{$ifdef CPU8086}
+ xor ax, ax
+ push ax
+ mov al, 202
+ push ax
+{$else}
+ push 0
+ push 202
+{$endif}
+ call HandleError
+end;
+
+
+{****************************************************************************
BSR/BSF
****************************************************************************}
diff --git a/rtl/inc/compproc.inc b/rtl/inc/compproc.inc
index e240b1ff4f..14da974f00 100644
--- a/rtl/inc/compproc.inc
+++ b/rtl/inc/compproc.inc
@@ -756,6 +756,9 @@ function fpc_setjmp(var s : jmp_buf) : {$ifdef CPU16}smallint{$else}longint{$end
procedure fpc_longjmp(var s : jmp_buf; value : {$ifdef CPU16}smallint{$else}longint{$endif}); compilerproc;
{$ifdef cpui8086}
+{ i8086 stack checking }
+procedure fpc_stackcheck_i8086; compilerproc;
+
{ i8086 huge pointer helpers }
function fpc_hugeptr_add_longint(p: HugePointer; n: LongInt): HugePointer; compilerproc;
function fpc_hugeptr_add_longint_normalized(p: HugePointer; n: LongInt): HugePointer; compilerproc;
diff --git a/rtl/inc/dynarr.inc b/rtl/inc/dynarr.inc
index f97806d8b3..1a804a3390 100644
--- a/rtl/inc/dynarr.inc
+++ b/rtl/inc/dynarr.inc
@@ -33,6 +33,7 @@ type
elSize : SizeUInt;
elType2 : Pointer;
varType : Longint;
+ elType : Pointer;
end;
procedure fpc_dynarray_rangecheck(p : pointer;i : tdynarrayindex);[Public,Alias:'FPC_DYNARRAY_RANGECHECK']; compilerproc;
@@ -73,7 +74,8 @@ procedure fpc_dynarray_clear(var p : pointer;ti : pointer); [Public,Alias:'FPC_D
if declocked(realp^.refcount) then
begin
ti:=aligntoptr(ti+2+PByte(ti)[1]);
- int_finalizearray(p,pdynarraytypedata(ti)^.elType2,realp^.high+1);
+ if assigned(pdynarraytypedata(ti)^.elType) then
+ int_finalizearray(p,pdynarraytypedata(ti)^.elType,realp^.high+1);
freemem(realp);
end;
p:=nil;
@@ -127,7 +129,7 @@ procedure fpc_dynarray_setlength(var p : pointer;pti : pointer;
ti : pointer;
updatep: boolean;
elesize : sizeint;
- eletype : pointer;
+ eletype,eletypemngd : pointer;
movsize : sizeint;
begin
@@ -140,6 +142,8 @@ procedure fpc_dynarray_setlength(var p : pointer;pti : pointer;
elesize:=pdynarraytypedata(ti)^.elSize;
eletype:=pdynarraytypedata(ti)^.elType2;
+ { only set if type needs finalization }
+ eletypemngd:=pdynarraytypedata(ti)^.elType;
{ determine new memory size }
size:=elesize*dims[0]+sizeof(tdynarray);
@@ -182,9 +186,10 @@ procedure fpc_dynarray_setlength(var p : pointer;pti : pointer;
if size-sizeof(tdynarray)>movsize then
fillchar((pointer(newp)+sizeof(tdynarray)+movsize)^,size-sizeof(tdynarray)-movsize,0);
- { increment ref. count of members }
- for i:= 0 to movelen-1 do
- int_addref(pointer(newp)+sizeof(tdynarray)+elesize*i,eletype);
+ { increment ref. count of managed members }
+ if assigned(eletypemngd) then
+ for i:= 0 to movelen-1 do
+ int_addref(pointer(newp)+sizeof(tdynarray)+elesize*i,eletypemngd);
{ a declock(ref. count) isn't enough here }
{ it could be that the in MT environments }
@@ -213,9 +218,10 @@ procedure fpc_dynarray_setlength(var p : pointer;pti : pointer;
{ shrink the array? }
if dims[0]<realp^.high+1 then
begin
- int_finalizearray(pointer(realp)+sizeof(tdynarray)+
- elesize*dims[0],
- eletype,realp^.high-dims[0]+1);
+ if assigned(eletypemngd) then
+ int_finalizearray(pointer(realp)+sizeof(tdynarray)+
+ elesize*dims[0],
+ eletypemngd,realp^.high-dims[0]+1);
reallocmem(realp,size);
end
else if dims[0]>realp^.high+1 then
@@ -286,7 +292,8 @@ function fpc_dynarray_copy(psrc : pointer;ti : pointer;
ti:=aligntoptr(ti+2+PByte(ti)[1]);
elesize:=pdynarraytypedata(ti)^.elSize;
- eletype:=pdynarraytypedata(ti)^.elType2;
+ { only set if type needs finalization }
+ eletype:=pdynarraytypedata(ti)^.elType;
{ create new array }
size:=elesize*count;
@@ -298,7 +305,7 @@ function fpc_dynarray_copy(psrc : pointer;ti : pointer;
move(pointer(psrc+elesize*lowidx)^,pointer(result)^,size);
{ increment ref. count of members? }
- if PByte(eletype)^ in tkManagedTypes then
+ if assigned(eletype) then
for i:=0 to count-1 do
int_addref(pointer(pointer(result)+elesize*i),eletype);
end;
diff --git a/rtl/inc/heap.inc b/rtl/inc/heap.inc
index d9ccb69752..d4f21efd9a 100644
--- a/rtl/inc/heap.inc
+++ b/rtl/inc/heap.inc
@@ -18,7 +18,7 @@
{ $define HAS_MEMORYMANAGER}
{ Memory manager }
-{$ifndef EMBEDDED}
+{$ifndef FPC_NO_DEFAULT_MEMORYMANAGER}
const
MemoryManager: TMemoryManager = (
NeedLock: false; // Obsolete
@@ -34,7 +34,7 @@ const
GetHeapStatus: {$ifndef FPC_NO_DEFAULT_HEAP}@SysGetHeapStatus{$else}nil{$endif};
GetFPCHeapStatus: {$ifndef FPC_NO_DEFAULT_HEAP}@SysGetFPCHeapStatus{$else}nil{$endif};
);
-{$else}
+{$else not FPC_NO_DEFAULT_MEMORYMANAGER}
{$ifndef FPC_IN_HEAPMGR}
const
MemoryManager: TMemoryManager = (
@@ -52,7 +52,7 @@ const
GetFPCHeapStatus: nil;
);public name 'FPC_SYSTEM_MEMORYMANAGER';
{$endif FPC_IN_HEAPMGR}
-{$endif EMBEDDED}
+{$endif not FPC_NO_DEFAULT_MEMORYMANAGER}
{ Try to find the best matching block in general freelist }
@@ -62,7 +62,7 @@ const
{ define DUMPGROW}
{ Memory profiling: at moment in time of max heap size usage,
- keep statistics of number of each size allocated
+ keep statistics of number of each size allocated
(with 16 byte granularity) }
{ define DUMP_MEM_USAGE}
@@ -131,9 +131,9 @@ const
of user freeing/allocing same or a small set of sizes, we only do
the conversion to the new fixed os chunk size format after we
reuse the os chunk for another fixed size, or variable. Note that
- while the fixed size os chunk is on the freelists.oslist, it is also
- still present in a freelists.fixedlists, therefore we can easily remove
- the os chunk from the freelists.oslist if this size is needed again; we
+ while the fixed size os chunk is on the freelists.oslist, it is also
+ still present in a freelists.fixedlists, therefore we can easily remove
+ the os chunk from the freelists.oslist if this size is needed again; we
don't need to search freelists.oslist in alloc_oschunk, since it won't
be present anymore if alloc_oschunk is reached. Note that removing
from the freelists.oslist is not really done, only the recycleflag is
@@ -212,9 +212,9 @@ type
end;
const
- fixedfirstoffset = ((sizeof(toschunk) + sizeof(tmemchunk_fixed_hdr) + $f)
+ fixedfirstoffset = ((sizeof(toschunk) + sizeof(tmemchunk_fixed_hdr) + $f)
and not $f) - sizeof(tmemchunk_fixed_hdr);
- varfirstoffset = ((sizeof(toschunk) + sizeof(tmemchunk_var_hdr) + $f)
+ varfirstoffset = ((sizeof(toschunk) + sizeof(tmemchunk_var_hdr) + $f)
and not $f) - sizeof(tmemchunk_var_hdr);
{$ifdef BESTMATCH}
matcheffort = high(longint);
@@ -265,8 +265,12 @@ begin
{$ifdef HAS_MEMORYMANAGER}
Result:=false;
{$else HAS_MEMORYMANAGER}
- IsMemoryManagerSet := (MemoryManager.GetMem<>@SysGetMem)
+{$ifdef FPC_NO_DEFAULT_MEMORYMANAGER}
+ Result:=false;
+{$else not FPC_NO_DEFAULT_MEMORYMANAGER}
+ IsMemoryManagerSet := (MemoryManager.GetMem<>@SysGetMem)
or (MemoryManager.FreeMem<>@SysFreeMem);
+{$endif notFPC_NO_DEFAULT_MEMORYMANAGER}
{$endif HAS_MEMORYMANAGER}
end;
@@ -362,7 +366,8 @@ end;
{$endif FPC_IN_HEAPMGR}
{$if defined(FPC_HAS_FEATURE_HEAP) or defined(FPC_IN_HEAPMGR)}
-{$ifndef HAS_MEMORYMANAGER}
+{$ifndef FPC_NO_DEFAULT_HEAP}
+
{*****************************************************************************
GetHeapStatus
*****************************************************************************}
@@ -457,7 +462,7 @@ end;
{$ifdef HEAP_DEBUG}
-function find_fixed_mc(loc_freelists: pfreelists; chunkindex: ptruint;
+function find_fixed_mc(loc_freelists: pfreelists; chunkindex: ptruint;
pmc: pmemchunk_fixed): boolean;
var
pmc_temp: pmemchunk_fixed;
@@ -715,7 +720,7 @@ end;
Grow Heap
*****************************************************************************}
-function find_free_oschunk(loc_freelists: pfreelists;
+function find_free_oschunk(loc_freelists: pfreelists;
minsize, maxsize: ptruint; var size: ptruint): poschunk;
var
prev_poc, poc: poschunk;
@@ -982,9 +987,9 @@ begin
if currheapused > maxheapused then
begin
maxheapused := currheapused;
-{$ifdef DUMP_MEM_USAGE}
+{$ifdef DUMP_MEM_USAGE}
maxsizeusage := sizeusage;
-{$endif}
+{$endif}
end;
end;
inc(poc^.used);
@@ -1051,9 +1056,9 @@ begin
if currheapused > maxheapused then
begin
maxheapused := currheapused;
-{$ifdef DUMP_MEM_USAGE}
+{$ifdef DUMP_MEM_USAGE}
maxsizeusage := sizeusage;
-{$endif}
+{$endif}
end;
end;
end;
@@ -1233,7 +1238,7 @@ end;
function try_finish_waitfixedlist(loc_freelists: pfreelists): boolean;
begin
- if loc_freelists^.waitfixed = nil then
+ if loc_freelists^.waitfixed = nil then
exit(false);
{$ifdef FPC_HAS_FEATURE_THREADING}
entercriticalsection(heap_lock);
@@ -1261,7 +1266,7 @@ end;
procedure try_finish_waitvarlist(loc_freelists: pfreelists);
begin
- if loc_freelists^.waitvar = nil then
+ if loc_freelists^.waitvar = nil then
exit;
{$ifdef FPC_HAS_FEATURE_THREADING}
entercriticalsection(heap_lock);
@@ -1490,7 +1495,7 @@ begin
SysReAllocMem := p;
end;
-{$endif HAS_MEMORYMANAGER}
+{$endif FPC_NO_DEFAULT_HEAP}
{$ifndef HAS_MEMORYMANAGER}
@@ -1498,6 +1503,7 @@ end;
InitHeap
*****************************************************************************}
+{$ifndef FPC_NO_DEFAULT_HEAP}
{ This function will initialize the Heap manager and need to be called from
the initialization of the system unit }
{$ifdef FPC_HAS_FEATURE_THREADING}
@@ -1617,7 +1623,7 @@ begin
end;
{$endif}
{$ifdef SHOW_MEM_USAGE}
- writeln('Max heap used/size: ', loc_freelists^.internal_status.maxheapused, '/',
+ writeln('Max heap used/size: ', loc_freelists^.internal_status.maxheapused, '/',
loc_freelists^.internal_status.maxheapsize);
flush(output);
{$endif}
@@ -1630,6 +1636,8 @@ begin
{$endif}
end;
+{$endif ndef FPC_NO_DEFAULT_HEAP}
+
{$endif HAS_MEMORYMANAGER}
{$endif defined(FPC_HAS_FEATURE_HEAP) or defined(FPC_IN_HEAPMGR)}
diff --git a/rtl/inc/heaph.inc b/rtl/inc/heaph.inc
index 052e7e9ce4..7227007b1e 100644
--- a/rtl/inc/heaph.inc
+++ b/rtl/inc/heaph.inc
@@ -65,7 +65,11 @@ const
var
ReturnNilIfGrowHeapFails : boolean;
-{$ifndef EMBEDDED}
+{$ifdef EMBEDDED}
+ {$define FPC_NO_DEFAULT_MEMORYMANAGER}
+{$endif EMBEDDED}
+
+{$ifndef FPC_NO_DEFAULT_MEMORYMANAGER}
{ Default MemoryManager functions }
Function SysGetmem(Size:ptruint):Pointer;
Function SysFreemem(p:pointer):ptruint;
@@ -76,7 +80,7 @@ function SysTryResizeMem(var p:pointer;size:ptruint):boolean;
Function SysReAllocMem(var p:pointer;size:ptruint):Pointer;
function SysGetHeapStatus:THeapStatus;
function SysGetFPCHeapStatus:TFPCHeapStatus;
-{$endif EMBEDDED}
+{$endif FPC_NO_DEFAULT_MEMORYMANAGER}
{$ifdef FPC_HAS_FEATURE_HEAP}
{ Tp7 functions }
diff --git a/rtl/inc/heaptrc.pp b/rtl/inc/heaptrc.pp
index 169398441f..3b5fcbe854 100644
--- a/rtl/inc/heaptrc.pp
+++ b/rtl/inc/heaptrc.pp
@@ -29,6 +29,18 @@ interface
{$define windows}
{$endif}
+{$ifdef msdos}
+ {$macro on}
+ { msdos target OS uses tinyheap code }
+ {$define SysGetMem:=SysTinyGetMem}
+ {$define SysAllocMem:=SysTinyGetMem}
+ {$define SysFreeMem:=SysTinyFreeMem}
+ {$define SysFreeMemSize:=SysTinyFreeMemSize}
+ {$define SysMemSize:=SysTinyMemSize}
+ {$define SysTryResizeMem:=SysTinyTryResizeMem}
+ {$define SysGetFPCHeapStatus:=SysTinyGetFPCHeapStatus}
+ {$define SysGetHeapStatus:=SysTinyGetHeapStatus}
+{$endif}
Procedure DumpHeap;
Procedure DumpHeap(SkipIfNoLeaks : Boolean);
diff --git a/rtl/inc/llvmintr.inc b/rtl/inc/llvmintr.inc
index 235c9d08a6..b33dfee235 100644
--- a/rtl/inc/llvmintr.inc
+++ b/rtl/inc/llvmintr.inc
@@ -14,6 +14,6 @@
**********************************************************************}
-procedure llvm_memcpy64(dest, source: pointer; len: qword; align: cardinal; isvolatile: boolean); compilerproc; external name 'llvm.memcpy.p0i8.p0i8.i64';
+procedure llvm_memcpy64(dest, source: pointer; len: qword; align: cardinal; isvolatile: LLVMBool1); compilerproc; external name 'llvm.memcpy.p0i8.p0i8.i64';
function llvm_frameaddress(level: longint): pointer; compilerproc; external name 'llvm.frameaddress';
diff --git a/rtl/inc/resh.inc b/rtl/inc/resh.inc
index d0e9c4382e..2db404a46d 100644
--- a/rtl/inc/resh.inc
+++ b/rtl/inc/resh.inc
@@ -76,8 +76,8 @@ Function UnlockResource(ResData: TFPResourceHGLOBAL): LongBool;
Function FreeResource(ResData: TFPResourceHGLOBAL): LongBool;
{$endif Win16}
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
-Function FindResource(ModuleHandle: TFPResourceHMODULE; ResourceName, ResourceType: AnsiString): TFPResourceHandle;
-Function FindResourceEx(ModuleHandle: TFPResourceHMODULE; ResourceType, ResourceName: AnsiString; Language : word): TFPResourceHandle;
+Function FindResource(ModuleHandle: TFPResourceHMODULE; const ResourceName, ResourceType: AnsiString): TFPResourceHandle;
+Function FindResourceEx(ModuleHandle: TFPResourceHMODULE; const ResourceType, ResourceName: AnsiString; Language : word): TFPResourceHandle;
{$endif}
type
diff --git a/rtl/inc/sysres.inc b/rtl/inc/sysres.inc
index aa5b02cab3..c854256ccd 100644
--- a/rtl/inc/sysres.inc
+++ b/rtl/inc/sysres.inc
@@ -32,13 +32,13 @@ end;
*****************************************************************************)
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
-Function FindResource(ModuleHandle: TFPResourceHMODULE; ResourceName, ResourceType: AnsiString): TFPResourceHandle;
+Function FindResource(ModuleHandle: TFPResourceHMODULE; const ResourceName, ResourceType: AnsiString): TFPResourceHandle;
begin
Result:=FindResource(ModuleHandle,PChar(ResourceName),PChar(ResourceType));
end;
-Function FindResourceEx(ModuleHandle: TFPResourceHMODULE; ResourceType, ResourceName: AnsiString; Language : word): TFPResourceHandle;
+Function FindResourceEx(ModuleHandle: TFPResourceHMODULE; const ResourceType, ResourceName: AnsiString; Language : word): TFPResourceHandle;
begin
Result:=FindResourceEx(ModuleHandle,PChar(ResourceType),PChar(ResourceName),Language);
diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index d104988b2c..4bf75ba168 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -532,7 +532,7 @@ function aligntoptr(p : pointer) : pointer;inline;
* OTHER DEALINGS IN THE SOFTWARE.
*
* For more information, please refer to <http://unlicense.org/>
- *
+ *
*}
{$R-} {range checking off}
@@ -610,7 +610,7 @@ begin
begin
mtwist_init(RandSeed);
{ Detect resets of randseed
-
+
This will break if someone coincidentally uses not(randseed) as the
next randseed, but it's much more common that you will reset randseed
to the same value as before to regenerate the same sequence of numbers
@@ -1006,7 +1006,7 @@ Begin
{ Show runtime error and exit }
if WriteErrorsToStdErr then
pstdout:=@stderr
- else
+ else
pstdout:=@stdout;
If erroraddr<>nil Then
Begin
@@ -1023,7 +1023,7 @@ Begin
{ Finalize units }
FinalizeUnits;
-{$if defined(MSWINDOWS) or defined(OS2)}
+{$if (defined(MSWINDOWS) and not defined(win16)) or defined(OS2)}
{ finally release the heap if possible, especially
important for DLLs.
Reset the array to nil, and finally also argv itself to
diff --git a/rtl/inc/thread.inc b/rtl/inc/thread.inc
index 9d504b71de..ecadbe8208 100644
--- a/rtl/inc/thread.inc
+++ b/rtl/inc/thread.inc
@@ -39,11 +39,14 @@ Var
SysInitFPU;
{$endif}
{$ifndef HAS_MEMORYMANAGER}
+{$ifndef FPC_NO_DEFAULT_HEAP}
{ initialize this thread's heap }
InitHeapThread;
-{$endif HAS_MEMORYMANAGER}
+{$endif ndef FPC_NO_DEFAULT_HEAP}
+{$else HAS_MEMORYMANAGER}
if MemoryManager.InitThread <> nil then
MemoryManager.InitThread();
+{$endif HAS_MEMORYMANAGER}
{$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
if assigned(widestringmanager.ThreadInitProc) then
widestringmanager.ThreadInitProc;
@@ -76,7 +79,9 @@ Var
widestringmanager.ThreadFiniProc;
{$endif FPC_HAS_FEATURE_WIDESTRINGS}
{$ifndef HAS_MEMORYMANAGER}
+{$ifndef FPC_NO_DEFAULT_HEAP}
FinalizeHeap;
+{$endif ndef FPC_NO_DEFAULT_HEAP}
{$endif HAS_MEMORYMANAGER}
if MemoryManager.DoneThread <> nil then
MemoryManager.DoneThread();
diff --git a/rtl/inc/threadvr.inc b/rtl/inc/threadvr.inc
index d3999acc09..9557c35453 100644
--- a/rtl/inc/threadvr.inc
+++ b/rtl/inc/threadvr.inc
@@ -113,7 +113,9 @@ begin
fpc_threadvar_relocate_proc:=RelocProc;
{$ifdef FPC_HAS_FEATURE_HEAP}
{$ifndef HAS_MEMORYMANAGER}
+{$ifndef FPC_NO_DEFAULT_HEAP}
RelocateHeap;
+{$endif ndef FPC_NO_DEFAULT_HEAP}
{$endif HAS_MEMORYMANAGER}
{$endif}
end;
diff --git a/rtl/inc/tinyheap.inc b/rtl/inc/tinyheap.inc
index 155417b67c..40cc577cae 100644
--- a/rtl/inc/tinyheap.inc
+++ b/rtl/inc/tinyheap.inc
@@ -60,6 +60,8 @@
TinyHeapAllocGranularity = sizeof(TTinyHeapBlock);
+ procedure RegisterTinyHeapBlock(AAddress: pointer; ASize: ptruint); forward;
+
function EncodeTinyHeapFreeBlockSize(Size: PtrUInt): TTinyHeapFreeBlockSize; inline;
begin
{$ifdef FPC_TINYHEAP_HUGE}
@@ -140,11 +142,33 @@
begin
{ p=HeapPtr }
if PtrUInt(TTinyHeapPointerArithmeticType(HeapEnd)-TTinyHeapPointerArithmeticType(HeapPtr))<AllocSize then
+ begin
+ { align to 16 bytes }
+ AllocSize:= (AllocSize + $f) and (not $f);
+ p:=SysOSAlloc(AllocSize);
+ if assigned(p) then
+ begin
+ if p > HeapPtr then
+ begin
+ prev:=HeapPtr;
+ HeapPtr:=p;
+ end
+ else
+ begin
+ RegisterTinyHeapBlock(p,AllocSize);
+ { Recursive call }
+ SysTinyGetmem:=SysTinyGetmem(Size);
+ exit;
+ end;
+ end
+ else
+ begin
if ReturnNilIfGrowHeapFails then
Result := nil
else
HandleError(203);
-
+ end;
+ end;
result := @PTinyHeapMemBlockSize(HeapPtr)[1];
PTinyHeapMemBlockSize(HeapPtr)^ := size;
@@ -236,7 +260,7 @@
sz := Align(FindSize(addr)+SizeOf(TTinyHeapMemBlockSize), TinyHeapAllocGranularity);
InternalTinyFreeMem(@PTinyHeapMemBlockSize(addr)[-1], sz);
-
+
result := sz;
end;
@@ -250,6 +274,11 @@
result := findsize(p);
end;
+ function SysTinyTryResizeMem(var p: pointer; size: ptruint) : boolean;
+ begin
+ result := false;
+ end;
+
function SysTinyAllocMem(size: ptruint): pointer;
begin
result := SysTinyGetMem(size);
@@ -486,6 +515,7 @@
Writeln('RegisterTinyHeapBlock_Simple(', HexStr(AAddress), ',', ASize, ')');
{$endif DEBUG_TINY_HEAP}
InternalTinyAlign(AAddress, ASize);
+ HeapSize:=HeapSize + ASize;
HeapOrg:=AAddress;
HeapPtr:=AAddress;
FreeList:=AAddress;
@@ -503,6 +533,7 @@
HeapOrg:=AAddress;
HeapPtr:=AAddress;
FreeList:=AAddress;
+ HeapSize:=HeapSize + ASize;
HeapEnd:=Pointer(TTinyHeapPointerArithmeticType(AAddress)+ASize);
end;
@@ -515,6 +546,7 @@
Writeln('RegisterTinyHeapBlock(', HexStr(AAddress), ',', ASize, ')');
{$endif DEBUG_TINY_HEAP}
InternalTinyAlign(AAddress, ASize);
+ HeapSize:=HeapSize + ASize;
if HeapOrg=nil then
begin
HeapOrg:=AAddress;
@@ -555,6 +587,48 @@
end;
end;
+
+ function SysTinyGetFPCHeapStatus : TFPCHeapStatus;
+ {
+ TFPCHeapStatus = record
+
+ MaxHeapSize,
+ MaxHeapUsed,
+ CurrHeapSize,
+ CurrHeapUsed,
+ CurrHeapFree : ptruint;
+ end;
+ }
+ begin
+ SysTinyGetFPCHeapStatus.MaxHeapSize:=MaxAvail;
+ { How can we compute this? }
+ SysTinyGetFPCHeapStatus.MaxHeapUsed:=0;
+ SysTinyGetFPCHeapStatus.CurrHeapFree:=MemAvail;
+ SysTinyGetFPCHeapStatus.CurrHeapUsed:=HeapSize-SysTinyGetFPCHeapStatus.CurrHeapFree;
+ SysTinyGetFPCHeapStatus.CurrHeapSize:=HeapSize;
+ end;
+
+ function SysTinyGetHeapStatus : THeapStatus;
+ begin
+ SysTinyGetHeapStatus.TotalAddrSpace:= HeapSize;
+ SysTinyGetHeapStatus.TotalUncommitted:= 0;
+ SysTinyGetHeapStatus.TotalCommitted:= 0;
+ SysTinyGetHeapStatus.TotalAllocated:= HeapSize-MemAvail;
+ SysTinyGetHeapStatus.TotalFree:= MemAvail;
+ SysTinyGetHeapStatus.FreeSmall:= 0;
+ SysTinyGetHeapStatus.FreeBig:= 0;
+ SysTinyGetHeapStatus.Unused:= 0;
+ SysTinyGetHeapStatus.Overhead:= 0;
+ SysTinyGetHeapStatus.HeapErrorCode:= 0;
+ end;
+
+{$ifdef FPC_NO_DEFAULT_MEMORYMANAGER}
+ procedure FinalizeHeap;
+ begin
+ end;
+
+{$endif FPC_NO_DEFAULT_MEMORYMANAGER}
+
const
TinyHeapMemoryManager: TMemoryManager = (
NeedLock: false; // Obsolete
@@ -567,7 +641,7 @@
InitThread: nil;
DoneThread: nil;
RelocateHeap: nil;
- GetHeapStatus: nil;
- GetFPCHeapStatus: nil;
+ GetHeapStatus: @SysTinyGetHeapStatus;
+ GetFPCHeapStatus: @SysTinyGetFPCHeapStatus;
);
diff --git a/rtl/inc/tnyheaph.inc b/rtl/inc/tnyheaph.inc
index a7f1a37f8a..72fab9d3df 100644
--- a/rtl/inc/tnyheaph.inc
+++ b/rtl/inc/tnyheaph.inc
@@ -25,8 +25,16 @@
HeapEnd: Pointer = nil; { end of heap }
FreeList: Pointer = nil; { pointer to the first free block }
HeapPtr: Pointer = nil; { pointer to the last free block }
+ HeapSize : {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
function MemAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
function MaxAvail: {$ifdef FPC_TINYHEAP_HUGE}LongInt{$else}PtrUInt{$endif};
procedure Mark(var p: Pointer);
procedure Release(var p: Pointer);
+ function SysTinyGetMem(Size: ptruint): pointer;
+ function SysTinyFreeMem(Addr: Pointer): ptruint;
+ function SysTinyFreeMemSize(Addr: Pointer; Size: Ptruint): ptruint;
+ function SysTinyMemSize(p: pointer): ptruint;
+ function SysTinyGetFPCHeapStatus : TFPCHeapStatus;
+ function SysTinyGetHeapStatus : THeapStatus;
+ function SysTinyTryResizeMem(var p: pointer; size: ptruint) : boolean;
diff --git a/rtl/m68k/m68k.inc b/rtl/m68k/m68k.inc
index cab602429c..00c23cbeaf 100644
--- a/rtl/m68k/m68k.inc
+++ b/rtl/m68k/m68k.inc
@@ -96,31 +96,27 @@ function get_frame : pointer; assembler;nostackframe;
{$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
-function get_caller_addr(framebp : pointer;addr:pointer=nil) : pointer;
- begin
- asm
- move.l framebp,a0
- cmp.l #0,a0
- beq @Lnul_address
- move.l 4(a0),a0
- @Lnul_address:
- move.l a0,@RESULT
- end ['a0'];
- end;
+function get_caller_addr(framebp : pointer;addr:pointer=nil) : pointer; assembler;
+asm
+ move.l framebp,d0
+ tst.l d0
+ beq @Lnul_address
+ move.l d0,a0
+ move.l 4(a0),d0
+@Lnul_address:
+end;
{$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
-function get_caller_frame(framebp : pointer;addr:pointer=nil) : pointer;
- begin
- asm
- move.l FRAMEBP,a0
- cmp.l #0,a0
- beq @Lnul_frame
- move.l (a0),a0
- @Lnul_frame:
- move.l a0,@RESULT
- end ['a0'];
- end;
+function get_caller_frame(framebp : pointer;addr:pointer=nil) : pointer; assembler;
+asm
+ move.l framebp,d0
+ tst.l d0
+ beq @Lnul_frame
+ move.l d0,a0
+ move.l (a0),d0
+@Lnul_frame:
+end;
{$define FPC_SYSTEM_HAS_SPTR}
@@ -141,30 +137,29 @@ end;
procedure FillChar(var x; count : longint; value : byte); assembler;
asm
move.l x, a0 { destination }
- move.l count, d1 { number of bytes to fill }
- move.b value, d0 { fill data }
- tst.l d1 { anything to fill at all? }
- ble @LMEMSET5
+ move.b value, d1 { fill data }
+ move.l count, d0 { number of bytes to fill }
+ ble @LMEMSET5 { anything to fill at all? }
{$ifdef CPUM68K_HAS_DBRA}
{ FIXME: Any reason why not always just use DBRA mode on
CPUs which support it? (KB)
- DBRA does only 16-bit decrements, so handling more than 65535 bytes
requires additional code anyway (Sergei) }
- cmpi.l #65535, d1 { check, if this is a word move }
+ cmpi.l #65535, d0 { check, if this is a word move }
ble @LMEMSET3 { use fast dbra mode }
{$endif CPUM68K_HAS_DBRA}
bra @LMEMSET2
@LMEMSET1:
- move.b d0,(a0)+
+ move.b d1,(a0)+
@LMEMSET2:
- subq.l #1,d1
+ subq.l #1,d0
bpl @LMEMSET1
bra @LMEMSET5 { finished slow mode , exit }
{$ifdef CPUM68K_HAS_DBRA}
@LMEMSET4: { fast loop mode section 68010+ }
- move.b d0,(a0)+
+ move.b d1,(a0)+
@LMEMSET3:
- dbra d1,@LMEMSET4
+ dbra d0,@LMEMSET4
{$endif CPUM68K_HAS_DBRA}
@LMEMSET5:
end;
@@ -305,17 +300,14 @@ end;
{$define FPC_SYSTEM_HAS_MOVE}
-procedure move(const source;var dest;count : longint);
+procedure move(const source;var dest;count : longint); assembler;
{ base pointer+8 = source }
{ base pointer+12 = destination }
{ base pointer+16 = number of bytes to move}
-begin
- asm
- clr.l d0
+asm
move.l count, d0 { number of bytes }
- tst.l d0 { anything to copy at all? }
- ble @LMOVE5
- @LMOVE0:
+ ble @LMOVE5 { anything to copy at all? }
+
move.l dest, a1 { destination }
move.l source, a0 { source }
@@ -325,22 +317,17 @@ begin
{$endif CPUM68K_HAS_DBRA}
cmp.l a0,a1 { check copy direction }
- bls @LMOVE4
+ bls @LMOVE3
add.l d0,a0 { move pointers to end }
add.l d0,a1
- bra @LMOVE2
@LMOVE1:
move.b -(a0),-(a1) { (s < d) copy loop }
- @LMOVE2:
subq.l #1,d0
- cmpi.l #-1,d0
bne @LMOVE1
bra @LMOVE5
@LMOVE3:
move.b (a0)+,(a1)+ { (s >= d) copy loop }
- @LMOVE4:
subq.l #1,d0
- cmpi.l #-1,d0
bne @LMOVE3
bra @LMOVE5
@@ -363,26 +350,26 @@ begin
{$endif CPUM68K_HAS_DBRA}
{ end fast loop mode }
@LMOVE5:
- end ['d0','a0','a1'];
end;
+{$ifdef CPUM68K_HAS_UNALIGNED}
{$define FPC_SYSTEM_HAS_FILLWORD}
procedure FillWord(var x; count : longint; value : word); assembler;
asm
move.l x, a0 { destination }
- move.l count, d1 { number of bytes to fill }
- move.w value, d0 { fill data }
- tst.l d1 { anything to fill at all? }
- ble @LMEMSET3
+ move.w value, d1 { fill data }
+ move.l count, d0 { number of bytes to fill }
+ ble @LMEMSET3 { anything to fill at all? }
bra @LMEMSET21
@LMEMSET11:
- move.w d0,(a0)+
+ move.w d1,(a0)+
@LMEMSET21:
- subq.l #1,d1
+ subq.l #1,d0
bpl @LMEMSET11
@LMEMSET3:
end;
+{$endif}
{$IFNDEF HASAMIGA}
function InterLockedDecrement (var Target: longint) : longint;
diff --git a/rtl/msdos/sysfile.inc b/rtl/msdos/sysfile.inc
index 7269c947f8..6d1c6966ec 100644
--- a/rtl/msdos/sysfile.inc
+++ b/rtl/msdos/sysfile.inc
@@ -26,8 +26,6 @@
{ we cannot allocate memory using SysGetMem, as we use tinyheap code,
but tinyheap.inc source in inserted later, so we need a forward declaration }
- function SysTinyFreeMemSize(Addr: Pointer; Size: Ptruint): ptruint; forward;
- function SysTinyGetMem(Size: ptruint): pointer; forward;
{$endif SYSTEMDEBUG}
diff --git a/rtl/msdos/sysheap.inc b/rtl/msdos/sysheap.inc
index a8e786e353..9ed6b7992e 100644
--- a/rtl/msdos/sysheap.inc
+++ b/rtl/msdos/sysheap.inc
@@ -21,8 +21,41 @@
*****************************************************************************}
function SysOSAlloc (size: ptruint): pointer;
+var
+ regs : Registers;
+ nb_para : longint;
begin
+{$ifdef DEBUG_TINY_HEAP}
+ writeln('SysOSAlloc called size=',size);
+{$endif}
+{$if defined(FPC_X86_DATA_FAR) or defined(FPC_X86_DATA_HUGE)}
+ regs.ax:=$4800;
+ nb_para:=size div 16;
+ if nb_para > $ffff then
+ result:=nil
+ else
+ begin
+ regs.bx:=nb_para;
+ msdos(regs);
+ if (regs.Flags and fCarry) <> 0 then
+ begin
+{$ifdef DEBUG_TINY_HEAP}
+ writeln('SysOSAlloc failed, err = ',regs.AX);
+{$endif}
+ GetInOutRes(regs.AX);
Result := nil;
+ end
+ else
+ begin
+ result:=ptr(regs.ax,0);
+{$ifdef DEBUG_TINY_HEAP}
+ writeln('SysOSAlloc returned= $',hexstr(seg(result),4),':$',hexstr(ofs(result),4));
+{$endif}
+ end;
+ end;
+{$else not DATA_FAR}
+ Result := nil;
+{$endif not DATA_FAR}
end;
procedure SysOSFree(p: pointer; size: ptruint);
diff --git a/rtl/msdos/system.pp b/rtl/msdos/system.pp
index d1a735ee7f..b56bd8eadc 100644
--- a/rtl/msdos/system.pp
+++ b/rtl/msdos/system.pp
@@ -3,6 +3,7 @@ unit System;
interface
{$DEFINE FPC_NO_DEFAULT_HEAP}
+{$define FPC_NO_DEFAULT_MEMORYMANAGER}
{$DEFINE FPC_INCLUDE_SOFTWARE_MUL}
{$DEFINE FPC_INCLUDE_SOFTWARE_MOD_DIV}
diff --git a/rtl/nativent/Makefile b/rtl/nativent/Makefile
index aa9b45f622..02e34d5ebf 100644
--- a/rtl/nativent/Makefile
+++ b/rtl/nativent/Makefile
@@ -1,5 +1,5 @@
#
-# Don't edit, this file is generated by FPCMake Version 2.0.0 [2015-09-05 rev 31523]
+# Don't edit, this file is generated by FPCMake Version 2.0.0 [2016/02/12]
#
default: all
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian i386-nativent i386-iphonesim i386-android i386-aros m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded powerpc-wii powerpc-aix sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-netbsd x86_64-solaris x86_64-openbsd x86_64-darwin x86_64-win64 x86_64-embedded x86_64-iphonesim x86_64-aros x86_64-dragonfly arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian arm-android powerpc64-linux powerpc64-darwin powerpc64-embedded powerpc64-aix avr-embedded armeb-linux armeb-embedded mips-linux mipsel-linux mipsel-embedded mipsel-android jvm-java jvm-android i8086-msdos i8086-win16 aarch64-linux aarch64-darwin
@@ -603,250 +603,250 @@ ifeq ($(FULL_TARGET),aarch64-darwin)
override TARGET_UNITS+=system uuchar objpas iso7185 extpas cpall buildrtl
endif
ifeq ($(FULL_TARGET),i386-linux)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-go32v2)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-win32)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-os2)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-freebsd)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-beos)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-haiku)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-netbsd)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-solaris)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-qnx)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-netware)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-openbsd)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-wdosx)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-darwin)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-emx)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-watcom)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-netwlibc)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-wince)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-embedded)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-symbian)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-nativent)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-iphonesim)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-android)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-aros)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),m68k-linux)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),m68k-freebsd)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),m68k-netbsd)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),m68k-amiga)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),m68k-atari)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),m68k-openbsd)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),m68k-palmos)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),m68k-embedded)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc-linux)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc-netbsd)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc-amiga)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc-macos)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc-darwin)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc-morphos)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc-embedded)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc-wii)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc-aix)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),sparc-linux)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),sparc-netbsd)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),sparc-solaris)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),sparc-embedded)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),x86_64-linux)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),x86_64-freebsd)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),x86_64-netbsd)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),x86_64-solaris)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),x86_64-openbsd)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),x86_64-darwin)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),x86_64-win64)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),x86_64-embedded)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),x86_64-iphonesim)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),x86_64-aros)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),x86_64-dragonfly)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),arm-linux)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),arm-palmos)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),arm-darwin)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),arm-wince)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),arm-gba)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),arm-nds)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),arm-embedded)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),arm-symbian)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),arm-android)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc64-linux)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc64-darwin)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc64-embedded)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),powerpc64-aix)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),avr-embedded)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),armeb-linux)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),armeb-embedded)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),mips-linux)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),mipsel-linux)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),mipsel-embedded)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),mipsel-android)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),jvm-java)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),jvm-android)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i8086-msdos)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i8086-win16)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),aarch64-linux)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),aarch64-darwin)
-override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
+override TARGET_IMPLICITUNITS+=ndk ndkutils ddk ctypes strings dos rtlconsts sysconst sysutils math types typinfo fgl classes $(CPU_UNITS) charset getopts cp1250 cp1251 cp1252 cp1253 cp1254 cp1255 cp1256 cp1257 cp1258 cp437 cp646 cp850 cp856 cp866 cp874 cp8859_1 cp8859_5 cp8859_2 cp852
endif
ifeq ($(FULL_TARGET),i386-linux)
override TARGET_RSTS+=math typinfo classes sysconst
@@ -2791,6 +2791,10 @@ objpas$(PPUEXT): $(OBJPASDIR)/objpas.pp $(INC)/except.inc system$(PPUEXT)
$(COMPILER) -I$(OBJPASDIR) $(OBJPASDIR)/objpas.pp
macpas$(PPUEXT) : $(INC)/macpas.pp objpas$(PPUEXT) buildrtl$(PPUEXT)
$(COMPILER) $(INC)/macpas.pp $(REDIR)
+iso7185$(PPUEXT) : $(INC)/iso7185.pp $(SYSTEMUNIT)$(PPUEXT)
+ $(COMPILER) $(INC)/iso7185.pp
+extpas$(PPUEXT) : $(INC)/extpas.pp dos$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
+ $(COMPILER) $(INC)/extpas.pp
buildrtl$(PPUEXT): buildrtl.pp system$(PPUEXT) objpas$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/sysutils -Fi$(OBJPASDIR)/classes -Fu$(PROCINC) -I$(OBJPASDIR) -Fi$(DDKINC) -I$(INC) -Fu$(INC) -Fu$(OBJPASDIR) buildrtl
cpall$(PPUEXT): $(RTL)/charmaps/cpall.pas system$(PPUEXT) objpas$(PPUEXT)
diff --git a/rtl/nativent/Makefile.fpc b/rtl/nativent/Makefile.fpc
index db6a24335f..5c13b0a407 100644
--- a/rtl/nativent/Makefile.fpc
+++ b/rtl/nativent/Makefile.fpc
@@ -13,7 +13,7 @@ implicitunits=ndk ndkutils ddk \
ctypes strings \
# heaptrc
# initc cmem dynlibs signals \
-# dos \
+ dos \
rtlconsts sysconst sysutils math types \
typinfo fgl classes \
$(CPU_UNITS) charset getopts \
@@ -120,6 +120,12 @@ objpas$(PPUEXT): $(OBJPASDIR)/objpas.pp $(INC)/except.inc system$(PPUEXT)
macpas$(PPUEXT) : $(INC)/macpas.pp objpas$(PPUEXT) buildrtl$(PPUEXT)
$(COMPILER) $(INC)/macpas.pp $(REDIR)
+iso7185$(PPUEXT) : $(INC)/iso7185.pp $(SYSTEMUNIT)$(PPUEXT)
+ $(COMPILER) $(INC)/iso7185.pp
+
+extpas$(PPUEXT) : $(INC)/extpas.pp dos$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
+ $(COMPILER) $(INC)/extpas.pp
+
buildrtl$(PPUEXT): buildrtl.pp system$(PPUEXT) objpas$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/sysutils -Fi$(OBJPASDIR)/classes -Fu$(PROCINC) -I$(OBJPASDIR) -Fi$(DDKINC) -I$(INC) -Fu$(INC) -Fu$(OBJPASDIR) buildrtl
diff --git a/rtl/nativent/buildrtl.pp b/rtl/nativent/buildrtl.pp
index 44da799568..af0687db70 100644
--- a/rtl/nativent/buildrtl.pp
+++ b/rtl/nativent/buildrtl.pp
@@ -5,6 +5,7 @@ unit buildrtl;
uses
ndk, ndkutils, ddk,
ctypes, strings,
+ dos,
rtlconsts, sysconst, sysutils, math, types,
typinfo, fgl, classes,
{$ifdef cpui386}
diff --git a/rtl/nativent/dos.pp b/rtl/nativent/dos.pp
new file mode 100644
index 0000000000..1856e81093
--- /dev/null
+++ b/rtl/nativent/dos.pp
@@ -0,0 +1,267 @@
+{
+ This file is part of the Free Pascal run time library.
+ Copyright (c) 2004 by Karoly Balogh for Genesi S.a.r.l.
+
+ Heavily based on the Commodore Amiga/m68k RTL by Nils Sjoholm and
+ Carl Eric Codere
+
+ MorphOS port was done on a free Pegasos II/G4 machine
+ provided by Genesi S.a.r.l. <www.genesi.lu>
+
+ This unit is based on the MorphOS one and is adapted for Gameboy Advance
+ simply by stripping out all stuff inside funcs and procs.
+ Copyright (c) 2006 by Francesco Lombardi
+
+ See the file COPYING.FPC, included in this distribution,
+ for details about the copyright.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+unit Dos;
+
+interface
+
+{$MODE objfpc}
+
+type
+ SearchRec = Packed Record
+ AnchorPtr : Pointer; { Pointer to the Anchorpath structure }
+ Fill: Array[1..15] of Byte; {future use}
+ {End of replacement for fill}
+ Attr : BYTE; {attribute of found file}
+ Time : LongInt; {last modify date of found file}
+ Size : LongInt; {file size of found file}
+ Name : String[255]; {name of found file}
+ End;
+
+{$I dosh.inc}
+
+implementation
+
+{$define HAS_GETMSCOUNT}
+
+{$I dos.inc}
+
+{******************************************************************************
+ --- Internal routines ---
+******************************************************************************}
+
+function dosLock(const name: String; accessmode: Longint) : LongInt;
+begin
+ result := -1;
+end;
+
+function IsLeapYear(Source : Word) : Boolean;
+begin
+ result := false;
+end;
+
+function dosSetProtection(const name: string; mask:longint): Boolean;
+begin
+ result := false;
+end;
+
+function dosSetFileDate(name: string): Boolean;
+begin
+ result := false;
+end;
+
+
+{******************************************************************************
+ --- Info / Date / Time ---
+******************************************************************************}
+
+function DosVersion: Word;
+begin
+ result := 0;
+end;
+
+procedure NewList ();
+begin
+end;
+
+function CreateExtIO (size: Longint): integer;
+begin
+ result := -1;
+end;
+
+procedure DeleteExtIO ();
+begin
+end;
+
+function Createport(name : PChar; pri : longint): integer;
+begin
+ result := -1;
+end;
+
+procedure DeletePort ();
+begin
+end;
+
+
+function Create_Timer(theUnit : longint) : integer;
+begin
+ result := -1;
+end;
+
+Procedure Delete_Timer();
+begin
+end;
+
+function set_new_time(secs, micro : longint): longint;
+begin
+ result := -1;
+end;
+
+function get_sys_time(): longint;
+begin
+ result := -1;
+end;
+
+procedure GetDate(Var Year, Month, MDay, WDay: Word);
+begin
+end;
+
+procedure SetDate(Year, Month, Day: Word);
+begin
+end;
+
+procedure GetTime(Var Hour, Minute, Second, Sec100: Word);
+begin
+end;
+
+Procedure SetTime(Hour, Minute, Second, Sec100: Word);
+begin
+end;
+
+function GetMsCount: int64;
+begin
+ result:=0;
+end;
+
+{******************************************************************************
+ --- Exec ---
+******************************************************************************}
+procedure Exec(const Path: PathStr; const ComLine: ComStr);
+begin
+end;
+
+
+{******************************************************************************
+ --- Disk ---
+******************************************************************************}
+
+Function DiskFree(Drive: Byte): int64;
+Begin
+ result := -1;
+end;
+
+
+
+Function DiskSize(Drive: Byte): int64;
+Begin
+ result := -1;
+end;
+
+
+procedure FindFirst(const Path: PathStr; Attr: Word; Var f: SearchRec);
+begin
+end;
+
+
+procedure FindNext(Var f: SearchRec);
+begin
+end;
+
+procedure FindClose(Var f: SearchRec);
+begin
+end;
+
+
+{******************************************************************************
+ --- File ---
+******************************************************************************}
+
+
+function FSearch(path: PathStr; dirlist: String) : PathStr;
+begin
+ result := '';
+end;
+
+
+Procedure getftime (var f; var time : longint);
+begin
+end;
+
+
+Procedure setftime(var f; time : longint);
+Begin
+End;
+
+procedure getfattr(var f; var attr : word);
+begin
+End;
+
+
+procedure setfattr(var f; attr : word);
+begin
+end;
+
+
+{******************************************************************************
+ --- Environment ---
+******************************************************************************}
+
+function getpathstring: string;
+begin
+ result := '';
+end;
+
+
+function EnvCount: Longint;
+begin
+ result := -1;
+end;
+
+
+function EnvStr(Index: LongInt): String;
+begin
+ result := '';
+end;
+
+
+
+function GetEnv(envvar : String): String;
+begin
+ result := '';
+end;
+
+
+procedure AddDevice(str : String);
+begin
+end;
+
+function MakeDeviceName(str : pchar): string;
+begin
+ result := '';
+end;
+
+function IsInDeviceList(str : string): boolean;
+begin
+ result := false;
+end;
+
+procedure ReadInDevices;
+begin
+end;
+
+begin
+// DosError:=0;
+// numberofdevices := 0;
+// StrOfPaths := '';
+// ReadInDevices;
+end.
diff --git a/rtl/nativent/sysutils.pp b/rtl/nativent/sysutils.pp
index 74f225b3e3..8a7eafb97a 100644
--- a/rtl/nativent/sysutils.pp
+++ b/rtl/nativent/sysutils.pp
@@ -1194,17 +1194,39 @@ begin
end;
-function ExecuteProcess(const Path: AnsiString; const ComLine: AnsiString;
+function ExecuteProcess(const Path: RawByteString; const ComLine: RawByteString;
Flags: TExecuteFlags = []): Integer;
begin
{ TODO : implement }
Result := 0;
end;
-function ExecuteProcess(const Path: AnsiString;
- const ComLine: Array of AnsiString; Flags:TExecuteFlags = []): Integer;
+function ExecuteProcess(const Path: RawByteString;
+ const ComLine: Array of RawByteString; Flags:TExecuteFlags = []): Integer;
var
- CommandLine: AnsiString;
+ CommandLine: RawByteString;
+ I: integer;
+begin
+ Commandline := '';
+ for I := 0 to High (ComLine) do
+ if Pos (' ', ComLine [I]) <> 0 then
+ CommandLine := CommandLine + ' ' + '"' + ComLine [I] + '"'
+ else
+ CommandLine := CommandLine + ' ' + Comline [I];
+ ExecuteProcess := ExecuteProcess (Path, CommandLine,Flags);
+end;
+
+function ExecuteProcess(const Path: UnicodeString; const ComLine: UnicodeString;
+ Flags: TExecuteFlags = []): Integer;
+begin
+ { TODO : implement }
+ Result := 0;
+end;
+
+function ExecuteProcess(const Path: UnicodeString;
+ const ComLine: Array of UnicodeString; Flags:TExecuteFlags = []): Integer;
+var
+ CommandLine: UnicodeString;
I: integer;
begin
Commandline := '';
diff --git a/rtl/objpas/rtlconst.inc b/rtl/objpas/rtlconst.inc
index 38f86227e2..63110428af 100644
--- a/rtl/objpas/rtlconst.inc
+++ b/rtl/objpas/rtlconst.inc
@@ -303,6 +303,7 @@ ResourceString
SClassCantBeConstructed = 'Class %s can not be constructed';
SErrStatusCallBackRequired = 'Thread status report handler cannot be empty.';
SErrFindNeedsSortedList = 'Cannot use find on unsorted list';
+ SParamIsNegative = 'Parameter "%s" cannot be negative.';
{ ---------------------------------------------------------------------
Keysim Names
diff --git a/rtl/objpas/sysconst.pp b/rtl/objpas/sysconst.pp
index bd2fa1ab3a..7f0ed5fcbc 100644
--- a/rtl/objpas/sysconst.pp
+++ b/rtl/objpas/sysconst.pp
@@ -26,7 +26,9 @@ const
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
{ from old str*.inc files }
-
+ SListIndexError = 'List index (%d) out of bounds';
+ SParamIsNegative = 'Parameter "%s" cannot be negative.';
+ SListCapacityError = 'List capacity (%d) exceeded.';
SAbortError = 'Operation aborted';
SAbstractError = 'Abstract method called';
SAccessDenied = 'Access denied';
diff --git a/rtl/objpas/sysutils/syssb.inc b/rtl/objpas/sysutils/syssb.inc
new file mode 100644
index 0000000000..40e0621aac
--- /dev/null
+++ b/rtl/objpas/sysutils/syssb.inc
@@ -0,0 +1,674 @@
+{ TStringBuilder }
+
+constructor TStringBuilder.Create;
+begin
+ Create(DefaultCapacity,Maxint);
+end;
+
+constructor TStringBuilder.Create(const AValue: SBString; aCapacity: Integer);
+begin
+ Create(aCapacity,Maxint);
+ if (system.Length(AValue)>0) then
+ Append(AValue);
+end;
+
+
+constructor TStringBuilder.Create(const AValue: SBString; StartIndex, Alength,
+ aCapacity: Integer);
+begin
+ Create(Copy(AValue,StartIndex+1,Alength), aCapacity);
+end;
+
+constructor TStringBuilder.Create(aCapacity, aMaxCapacity: Integer);
+begin
+ FMaxCapacity:=aMaxCapacity;
+ Capacity:=aCapacity;
+ FLength:=0;
+end;
+
+constructor TStringBuilder.Create(aCapacity: Integer);
+begin
+ Create(aCapacity,MaxInt);
+end;
+
+constructor TStringBuilder.Create(const AValue: SBString);
+begin
+ Create(aValue,DefaultCapacity);
+end;
+
+
+{ Property getter/setter }
+
+function TStringBuilder.GetLength: Integer;
+begin
+ Result:=FLength;
+end;
+
+function TStringBuilder.GetCapacity: Integer;
+begin
+ Result:=System.Length(FData);
+end;
+
+function TStringBuilder.GetC(Index: Integer): SBChar;
+begin
+ CheckNegative(Index,'Index');
+ CheckRange(Index,0,Length);
+ Result:=FData[Index];
+end;
+
+procedure TStringBuilder.SetC(Index: Integer; AValue: SBChar);
+begin
+ CheckNegative(Index,'Index');
+ CheckRange(Index,0,Length-1);
+ FData[Index]:=AValue;
+end;
+
+procedure TStringBuilder.SetLength(AValue: Integer);
+
+begin
+ CheckNegative(AValue,'AValue');
+ CheckRange(AValue,0,MaxCapacity);
+ if AValue>Capacity then
+ Grow;
+ Flength:=AValue;
+end;
+
+{ Check functions }
+
+
+
+procedure TStringBuilder.CheckRange(Idx, Count, MaxLen: Integer);
+
+begin
+ if (Idx<0) or (Idx+Count>MaxLen) then
+ Raise ERangeError.CreateFmt(SListIndexError,[Idx]);
+end;
+
+
+procedure TStringBuilder.CheckNegative(const AValue: Integer;
+ const AName: SBString);
+
+begin
+ if (AValue<0) then
+ Raise ERangeError.CreateFmt(SParamIsNegative,[AName])
+end;
+
+{ These do the actual Appending/Inserting }
+
+procedure TStringBuilder.DoAppend(const S: {$IFDEF SBUNICODE}SBString{$ELSE}RawByteString{$ENDIF});
+
+Var
+ L,SL : Integer;
+
+begin
+ SL:=System.Length(S);
+ if SL>0 then
+ begin
+ L:=Length;
+ Length:=L+SL;
+ Move(S[1], FData[L],SL*SizeOf(SBChar));
+ end;
+end;
+
+procedure TStringBuilder.DoAppend(const AValue: TSBCharArray; Idx, aCount: Integer
+ );
+
+Var
+ L : integer;
+
+begin
+ L:=Length;
+ CheckRange(Idx,aCount,System.Length(AValue));
+ Length:=L+aCount;
+ Move(AValue[Idx],FData[L],aCount*SizeOf(SBChar));
+end;
+
+procedure TStringBuilder.DoInsert(Index: Integer; const AValue: SBString);
+
+Var
+ ShiftLen,LV : Integer;
+
+begin
+ CheckRange(Index,0,Length-1);
+ LV:=System.Length(AValue);
+ ShiftLen:=Length-Index;
+ Length:=Length+LV;
+ Move(FData[Index],FData[Index+LV],ShiftLen*SizeOf(SBChar));
+ Move(AValue[1],FData[Index],LV*SizeOf(SBChar));
+end;
+
+procedure TStringBuilder.DoInsert(Index: Integer; const AValue: TSBCharArray;
+ StartIndex, SBCharCount: Integer);
+
+Var
+ ShiftLen : Integer;
+
+begin
+ CheckRange(Index,0,Length-1);
+ CheckNegative(StartIndex,'StartIndex');
+ CheckNegative(SBCharCount,'SBCharCount');
+ CheckRange(StartIndex,SBCharCount,System.Length(AValue));
+ Length:=Length+SBCharCount;
+ ShiftLen:=Length-Index;
+ if ShiftLen> 0 then
+ Move(FData[Index], FData[Index+SBCharCount],ShiftLen*SizeOf(SBChar));
+ Move(AValue[StartIndex],FData[Index],SBCharCount*SizeOf(SBChar));
+end;
+
+{ Public routines for appending }
+
+function TStringBuilder.Append(const AValue: UInt64): TStringBuilder;
+begin
+ DoAppend(IntToStr(AValue));
+ Result:=self;
+end;
+
+function TStringBuilder.Append(const AValue: TSBCharArray): TStringBuilder;
+
+var
+ I,L: Integer;
+
+begin
+ I:=-1;
+ L:=System.Length(AValue);
+ If L=0 then
+ Exit(Self);
+ Repeat
+ Inc(I);
+ Until (I>=L) or (AValue[I]=#0);
+ DoAppend(AValue,0,I);
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const AValue: Single): TStringBuilder;
+begin
+ DoAppend(FloatToStr(AValue));
+ Result:=self;
+end;
+
+function TStringBuilder.Append(const AValue: Word): TStringBuilder;
+begin
+ Append(IntToStr(AValue));
+ Result:=self;
+end;
+
+function TStringBuilder.Append(const AValue: Cardinal): TStringBuilder;
+begin
+ DoAppend(IntToStr(AValue));
+ Result:=self;
+end;
+
+function TStringBuilder.Append(const AValue: SBChar; RepeatCount: Integer
+ ): TStringBuilder;
+begin
+ DoAppend(StringOfChar(AValue,RepeatCount));
+ Result:=Self;
+end;
+
+
+function TStringBuilder.Append(const AValue: Shortint): TStringBuilder;
+begin
+ DoAppend(IntToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const AValue: SBChar): TStringBuilder;
+begin
+ DoAppend(AValue);
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const AValue: Currency): TStringBuilder;
+begin
+ DoAppend(CurrToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const AValue: Boolean): TStringBuilder;
+begin
+ DoAppend(BoolToStr(AValue, True));
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const AValue: Byte): TStringBuilder;
+begin
+ DoAppend(IntToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const AValue: Double): TStringBuilder;
+begin
+ DoAppend(FloatToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const AValue: Int64): TStringBuilder;
+begin
+ DoAppend(IntToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const AValue: TObject): TStringBuilder;
+begin
+ DoAppend(AValue.ToString);
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const AValue: Smallint): TStringBuilder;
+begin
+ DoAppend(IntToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const AValue: LongInt): TStringBuilder;
+begin
+ DoAppend(IntToStr(AValue));
+ Result:=Self;
+end;
+
+Function TStringBuilder.Append(const AValue: TSBCharArray; StartIndex, SBCharCount: Integer): TStringBuilder;
+
+begin
+ DoAppend(AValue,StartIndex,SBCharCount);
+ Result:=Self;
+end;
+
+Function TStringBuilder.Append(const AValue: SBString; StartIndex, Count: Integer): TStringBuilder;
+
+begin
+ CheckRange(StartIndex,Count,System.Length(AValue));
+ DoAppend(Copy(AValue,StartIndex+1,Count));
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const AValue: PSBChar): TStringBuilder;
+begin
+ DoAppend(AnsiString(AValue));
+ Result:=Self;
+end;
+
+{$IFDEF SBUNICODE}
+function TStringBuilder.Append(const AValue: SBString): TStringBuilder;
+begin
+ DoAppend(AValue);
+ Result:=Self;
+end;
+{$ENDIF}
+
+function TStringBuilder.Append(const AValue: RawByteString): TStringBuilder;
+begin
+ {$IFDEF SBUNICODE}
+ DoAppend(SBString(AValue));
+ {$ELSE}
+ DoAppend(AValue);
+ {$ENDIF}
+ Result:=Self;
+end;
+
+function TStringBuilder.AppendFormat(const Fmt: SBString;
+ const Args: array of const): TStringBuilder;
+begin
+ DoAppend(Format(Fmt,Args));
+ Result:=Self;
+end;
+
+function TStringBuilder.Append(const Fmt: SBString;
+ const Args: array of const): TStringBuilder;
+begin
+ DoAppend(Format(Fmt,Args));
+ Result:=Self;
+end;
+
+function TStringBuilder.AppendLine: TStringBuilder;
+begin
+ DoAppend(sLineBreak);
+ Result:=Self;
+end;
+
+function TStringBuilder.AppendLine(const AValue: RawByteString): TStringBuilder;
+begin
+ DoAppend(AValue);
+ Result:=AppendLine();
+end;
+
+procedure TStringBuilder.Clear;
+begin
+ Length:=0;
+ Capacity:=DefaultCapacity;
+end;
+
+
+procedure TStringBuilder.CopyTo(SourceIndex: Integer;
+ Var Destination: TSBCharArray; DestinationIndex: Integer; Count: Integer);
+
+begin
+ CheckNegative(Count,'Count');
+ CheckNegative(DestinationIndex,'DestinationIndex');
+ CheckRange(DestinationIndex,Count,System.Length(Destination));
+ if Count>0 then
+ begin
+ CheckRange(SourceIndex,Count,Length);
+ Move(FData[SourceIndex],Destination[DestinationIndex],Count * SizeOf(SBChar));
+ end;
+end;
+
+
+function TStringBuilder.EnsureCapacity(aCapacity: Integer): Integer;
+begin
+ CheckRange(aCapacity,0,MaxCapacity);
+ if Capacity<aCapacity then
+ Capacity:=aCapacity;
+ Result:=Capacity;
+end;
+
+function TStringBuilder.Equals(StringBuilder: TStringBuilder): Boolean;
+begin
+ Result:=(StringBuilder<>nil);
+ if Result then
+ Result:=(Length=StringBuilder.Length)
+ and (MaxCapacity=StringBuilder.MaxCapacity)
+ and CompareMem(@FData[0],@StringBuilder.FData[0],Length*SizeOf(SBChar));
+end;
+
+procedure TStringBuilder.Grow;
+
+var
+ NewCapacity: SizeInt;
+
+begin
+ NewCapacity:=Capacity*2;
+ if NewCapacity>MaxCapacity then
+ NewCapacity:=MaxCapacity;
+ Capacity:=NewCapacity;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: TObject
+ ): TStringBuilder;
+begin
+ DoInsert(Index,AValue.ToString());
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: Int64
+ ): TStringBuilder;
+begin
+ DoInsert(Index,IntToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: Single
+ ): TStringBuilder;
+begin
+ DoInsert(Index,FloatToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: SBString
+ ): TStringBuilder;
+
+begin
+ DoInsert(Index,AValue);
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: Word
+ ): TStringBuilder;
+begin
+ DoInsert(Index,IntToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: Shortint
+ ): TStringBuilder;
+begin
+ DoInsert(Index, IntToStr(AValue));
+ Result:=Self;
+end;
+
+
+function TStringBuilder.Insert(Index: Integer; const AValue: Currency
+ ): TStringBuilder;
+begin
+ DoInsert(Index,CurrToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: SBChar
+ ): TStringBuilder;
+begin
+ DoInsert(Index,AValue);
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: Byte
+ ): TStringBuilder;
+begin
+ DoInsert(Index,IntToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: Double
+ ): TStringBuilder;
+begin
+ DoInsert(Index,FloatToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: LongInt
+ ): TStringBuilder;
+begin
+ DoInsert(Index,IntToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: Smallint
+ ): TStringBuilder;
+begin
+ DoInsert(Index,IntToStr(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: Boolean
+ ): TStringBuilder;
+begin
+ DoInsert(Index,BoolToStr(AValue,True));
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: SBString;
+ const aRepeatCount: Integer): TStringBuilder;
+var
+ I: Integer;
+begin
+ for I:=0 to aRepeatCount-1 do
+ DoInsert(Index,AValue);
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: TSBCharArray
+ ): TStringBuilder;
+begin
+ DoInsert(Index,AValue,0,System.Length(AValue));
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: TSBCharArray;
+ startIndex: Integer; SBCharCount: Integer): TStringBuilder;
+begin
+ DoInsert(Index,AValue,StartIndex,SBCharCount);
+ Result:=Self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: Cardinal
+ ): TStringBuilder;
+begin
+ DoInsert(Index,IntToStr(AValue));
+ Result:=self;
+end;
+
+function TStringBuilder.Insert(Index: Integer; const AValue: UInt64
+ ): TStringBuilder;
+begin
+ DoInsert(Index,IntToStr(AValue));
+ Result:=self;
+end;
+
+procedure TStringBuilder.Shrink;
+
+begin
+ if (Capacity div 4)>=Length then
+ Capacity:=Capacity div 2;
+end;
+
+function TStringBuilder.Remove(StartIndex: Integer; RemLength: Integer
+ ): TStringBuilder;
+
+Var
+ MoveIndex : Integer;
+
+begin
+ if (RemLength=0) then
+ exit(Self);
+ CheckNegative(RemLength,'RemLength');
+ CheckRange(StartIndex,0,Length);
+ MoveIndex:=StartIndex+RemLength;
+ CheckRange(MoveIndex,0,Length-1);
+ if (Length-Moveindex)>0 then
+ Move(FData[MoveIndex],FData[StartIndex],(Length-MoveIndex)*SizeOf(SBChar));
+ Length:=Length-RemLength;
+ Shrink;
+ Result:=Self;
+end;
+
+Function TStringBuilder.Replace(const OldValue, NewValue: SBRawString; StartIndex, Count: Integer): TStringBuilder;
+
+var
+ Cur : PSBChar;
+ CurIndex,MaxIndex : Integer;
+ OldLen, NewLen, Delta : Integer;
+ BC : SBChar;
+
+begin
+ if Count=0 then
+ Exit(Self);
+ // Some checks.
+ CheckNegative(StartIndex,'StartIndex');
+ CheckNegative(Count,'Count');
+ CheckRange(Startindex,Count,Length);
+ // Init
+ OldLen:=System.Length(OldValue);
+ NewLen:=System.Length(NewValue);
+ Delta:=NewLen-OldLen;
+ MaxIndex:=StartIndex+Count;
+ CurIndex:=StartIndex;
+ BC:=OldValue[1];
+ Cur:=@FData[StartIndex];
+ // Loop
+ while (CurIndex<Length-OldLen+1) and (CurIndex<MaxIndex) do
+ begin
+ if (Cur^=BC) then
+ begin
+ if 0=StrLComp(@FData[CurIndex],PSBChar(OldValue),OldLen) then
+ begin
+ // Do actual replace.
+ DoReplace(CurIndex,OldValue,NewValue);
+ Inc(CurIndex,NewLen-1);
+ // DoReplace may have reallocated memory, so changed pointers, reset pointer
+ Cur:=@FData[CurIndex];
+ // The max index must be increased/decreased with Delta
+ // 0123456789012
+ // 'zzbczzedeafzz' replace('e','qqqq',6,3) -> zzbczzqqqqdqqqqafzz
+ Inc(MaxIndex,Delta);
+ end;
+ end;
+ Inc(CurIndex);
+ Inc(Cur);
+ end;
+ Result:=Self;
+end;
+
+Function TStringBuilder.Replace(const OldChar, NewChar: SBChar; StartIndex,
+ Count: Integer): TStringBuilder;
+var
+ I : Integer;
+ Cur : PSBChar;
+
+begin
+ if Count=0 then
+ Exit(Self);
+ CheckNegative(StartIndex,'StartIndex');
+ CheckNegative(Count,'Count');
+ CheckRange(StartIndex,Count-1,Length);
+ Cur:=@FData[StartIndex];
+ For I:=1 to Count do
+ begin
+ if Cur^=OldChar then
+ Cur^:=NewChar;
+ Inc(Cur);
+ end;
+ Result:=Self;
+end;
+
+Function TStringBuilder.Replace(const OldChar, NewChar: SBChar): TStringBuilder;
+
+begin
+ Result:=Replace(OldChar,NewChar,0,Length);
+end;
+
+Function TStringBuilder.Replace(const OldValue, NewValue: SBRawString): TStringBuilder;
+begin
+ Result:=Replace(OldValue,NewValue,0,Length);
+end;
+
+procedure TStringBuilder.SetCapacity(AValue: Integer);
+begin
+ if (AValue>FMaxCapacity) then
+ Raise ERangeError.CreateFmt(SListCapacityError,[AValue]);
+ if (AValue<Length) then
+ Raise ERangeError.CreateFmt(SListCapacityError,[AValue]);
+ System.SetLength(FData,AValue);
+end;
+
+
+function TStringBuilder.ToString: SBString;
+begin
+ Result:=ToString(0,Length);
+end;
+
+function TStringBuilder.ToString(aStartIndex: Integer; aLength: Integer
+ ): SBString;
+begin
+ if (aLength=0) then
+ Result:=''
+ else
+ begin
+ CheckNegative(aStartIndex,'aStartIndex');
+ CheckNegative(aLength,'aLength');
+ CheckRange(aStartIndex,aLength,Length);
+ System.SetLength(Result,aLength);
+ Move(FData[aStartIndex],Result[1],aLength*SizeOf(SBChar));
+ end;
+end;
+
+procedure TStringBuilder.DoReplace(Index: Integer; const Old, New: SBString);
+
+var
+ NVLen,OVLen,OLen,Delta,TailStart: Integer;
+
+begin
+ NVLen:=System.Length(New);
+ OVLen:=System.Length(Old);
+ Delta:=NVLen-OVLen;
+ if (Delta<>0) then
+ begin
+ OLen:=Length;
+ if (Delta>0) then
+ Length:=OLen+Delta;
+ TailStart:=Index+OVlen;
+ Move(FData[TailStart],FData[Index+NVLen],(OLen-TailStart)*SizeOf(SBChar));
+ if (Delta<0) then
+ Length:=OLen+Delta;
+ end;
+ Move(New[1],FData[Index],NVLen*SizeOf(SBChar));
+end;
+
diff --git a/rtl/objpas/sysutils/syssbh.inc b/rtl/objpas/sysutils/syssbh.inc
new file mode 100644
index 0000000000..9c9102a838
--- /dev/null
+++ b/rtl/objpas/sysutils/syssbh.inc
@@ -0,0 +1,112 @@
+
+ { TStringBuilder }
+
+ TStringBuilder = class
+ private
+ const
+ DefaultCapacity = 64;
+ private
+ Function GetCapacity: Integer;
+ Procedure SetCapacity(AValue: Integer);
+ Function GetC(Index: Integer): SBChar;
+ Procedure SetC(Index: Integer; AValue: SBChar);
+ Function GetLength: Integer; inline;
+ Procedure SetLength(AValue: Integer);
+ protected
+ FData: TSBCharArray;
+ FLength: Integer;
+ FMaxCapacity: Integer;
+ // Raise error on range check.
+ Procedure CheckRange(Idx,Count,MaxLen : Integer);inline;
+ Procedure CheckNegative(Const AValue : Integer; Const AName: SBString); inline;
+ // All appends/inserts pass through here.
+
+ Procedure DoAppend(Const S : {$IFDEF SBUNICODE}SBString{$ELSE}RawByteString{$ENDIF});virtual;
+ Procedure DoAppend(const AValue: TSBCharArray; Idx, aCount: Integer); virtual;
+ Procedure DoInsert(Index: Integer; const AValue: SBString); virtual;
+ Procedure DoInsert(Index: Integer; const AValue: TSBCharArray; StartIndex, SBCharCount: Integer); virtual;
+ Procedure DoReplace(Index: Integer; const Old, New: SBString); virtual;
+ Procedure Grow;
+ Procedure Shrink;
+ public
+ Constructor Create;
+ Constructor Create(aCapacity: Integer);
+ Constructor Create(const AValue: SBString);
+ Constructor Create(aCapacity: Integer; aMaxCapacity: Integer);
+ Constructor Create(const AValue: SBString; aCapacity: Integer);
+ Constructor Create(const AValue: SBString; StartIndex: Integer; aLength: Integer; aCapacity: Integer);
+
+ Function Append(const AValue: Boolean): TStringBuilder;
+ Function Append(const AValue: Byte): TStringBuilder;
+ Function Append(const AValue: SBChar): TStringBuilder;
+ Function Append(const AValue: Currency): TStringBuilder;
+ Function Append(const AValue: Double): TStringBuilder;
+ Function Append(const AValue: Smallint): TStringBuilder;
+ Function Append(const AValue: LongInt): TStringBuilder;
+ Function Append(const AValue: Int64): TStringBuilder;
+ Function Append(const AValue: TObject): TStringBuilder;
+ Function Append(const AValue: Shortint): TStringBuilder;
+ Function Append(const AValue: Single): TStringBuilder;
+ Function Append(const AValue: UInt64): TStringBuilder;
+ Function Append(const AValue: TSBCharArray): TStringBuilder;
+ Function Append(const AValue: Word): TStringBuilder;
+ Function Append(const AValue: Cardinal): TStringBuilder;
+ Function Append(const AValue: PSBChar): TStringBuilder;
+{$IFDEF SBUNICODE}
+ // Do not use SBRawstring, we need 2 versions in case of unicode
+ Function Append(const AValue: SBString): TStringBuilder;
+{$ENDIF}
+ Function Append(const AValue: RawByteString): TStringBuilder;
+ Function Append(const AValue: SBChar; RepeatCount: Integer): TStringBuilder;
+ Function Append(const AValue: TSBCharArray; StartIndex: Integer; SBCharCount: Integer): TStringBuilder;
+ Function Append(const AValue: SBString; StartIndex: Integer; Count: Integer): TStringBuilder;
+
+ Function Append(const Fmt: SBString; const Args: array of const): TStringBuilder;
+ Function AppendFormat(const Fmt: SBString; const Args: array of const): TStringBuilder;
+ Function AppendLine: TStringBuilder;
+ Function AppendLine(const AValue: RawByteString): TStringBuilder;
+
+ Procedure Clear;
+ Procedure CopyTo(SourceIndex: Integer; Var Destination: TSBCharArray; DestinationIndex: Integer; Count: Integer);
+ Function EnsureCapacity(aCapacity: Integer): Integer;
+ Function Equals(StringBuilder: TStringBuilder): Boolean; reintroduce;
+
+ Function Insert(Index: Integer; const AValue: Boolean): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: Byte): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: SBChar): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: Currency): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: Double): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: Smallint): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: LongInt): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: TSBCharArray): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: Int64): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: TObject): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: Shortint): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: Single): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: SBString): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: Word): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: Cardinal): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: UInt64): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: SBString; const aRepeatCount: Integer): TStringBuilder;
+ Function Insert(Index: Integer; const AValue: TSBCharArray; startIndex: Integer; SBCharCount: Integer): TStringBuilder;
+
+ Function Remove(StartIndex: Integer; RemLength: Integer): TStringBuilder;
+
+ Function Replace(const OldChar, NewChar: SBChar): TStringBuilder;
+ Function Replace(const OldChar, NewChar: SBChar; StartIndex: Integer; Count: Integer): TStringBuilder;
+ Function Replace(const OldValue, NewValue: SBRawString): TStringBuilder;
+ Function Replace(const OldValue, NewValue: SBRawString; StartIndex: Integer; Count: Integer): TStringBuilder;
+{$IFDEF SBUNICODE}
+ Function ToString: SBString;
+{$ELSE}
+ Function ToString: SBString; override;
+{$ENDIF}
+ Function ToString(aStartIndex: Integer; aLength: Integer): SBString; reintroduce;
+
+ property Chars[index: Integer]: SBChar read GetC write SetC; default;
+ property Length: Integer read GetLength write SetLength;
+ property Capacity: Integer read GetCapacity write SetCapacity;
+ property MaxCapacity: Integer read FMaxCapacity;
+ end;
+
+
diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc
index 426e5024e4..d3f8a6fad9 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -3111,3 +3111,41 @@ function sscanf(const s: string; const fmt : string;const Pointers : array of Po
end;
end;
end;
+
+{$macro on}
+// Ansi version declaration
+{$UNDEF SBUNICODE}
+{$define SBChar:=AnsiChar}
+{$define SBString:=AnsiString}
+{$define TSBCharArray:=Array of SBChar}
+{$define PSBChar:=PAnsiChar}
+{$define SBRAWString:=RawByteString}
+{$define TStringBuilder:=TAnsiStringBuilder}
+
+{$i syssb.inc}
+{$undef SBChar}
+{$undef SBString}
+{$undef TSBCharArray}
+{$undef PSBChar}
+{$undef SBRAWString}
+{$undef TStringBuilder}
+
+// Unicode version declaration
+
+{$define SBUNICODE}
+{$define SBChar:=WideChar}
+{$define SBString:=UnicodeString}
+{$define TSBCharArray:=Array of SBChar}
+{$define PSBChar:=PWideChar}
+{$define SBRAWString:=UnicodeString}
+{$define TStringBuilder:=TUnicodeStringBuilder}
+{$i syssb.inc}
+{$undef SBChar}
+{$undef SBString}
+{$undef TSBCharArray}
+{$undef PSBChar}
+{$undef SBRAWString}
+{$undef TStringBuilder}
+{$undef SBUNICODE}
+
+
diff --git a/rtl/objpas/sysutils/sysstrh.inc b/rtl/objpas/sysutils/sysstrh.inc
index 01ed178048..b2aac2191d 100644
--- a/rtl/objpas/sysutils/sysstrh.inc
+++ b/rtl/objpas/sysutils/sysstrh.inc
@@ -264,3 +264,48 @@ function LeftStr(const S: string; Count: integer): string;
function RightStr(const S: string; Count: integer): string;
function BCDToInt(Value: integer): integer;
+Type
+ {==============================================================================}
+ { TStringBuilder }
+ {==============================================================================}
+
+ // Ansi version implementation
+
+{$MACRO ON}
+{$UNDEF SBUNICODE}
+{$define SBChar:=AnsiChar}
+{$define SBString:=AnsiString}
+{$define TSBCharArray:=Array of SBChar}
+{$define PSBChar:=PAnsiChar}
+{$define SBRAWString:=RawByteString}
+{$define TStringBuilder:=TAnsiStringBuilder}
+
+{$i syssbh.inc}
+{$undef SBChar}
+{$undef SBString}
+{$undef TSBCharArray}
+{$undef PSBChar}
+{$undef SBRAWString}
+{$undef TStringBuilder}
+
+// Unicode version implementation
+
+{$define SBUNICODE}
+{$define SBChar:=WideChar}
+{$define SBString:=UnicodeString}
+{$define TSBCharArray:=Array of SBChar}
+{$define PSBChar:=PWideChar}
+{$define SBRAWString:=UnicodeString}
+{$define TStringBuilder:=TUnicodeStringBuilder}
+{$i syssbh.inc}
+{$undef SBChar}
+{$undef SBString}
+{$undef TSBCharArray}
+{$undef PSBChar}
+{$undef SBRAWString}
+{$undef TStringBuilder}
+{$undef SBUNICODE}
+
+Type
+ TStringBuilder = TAnsiStringBuilder;
+
diff --git a/rtl/unix/genfdset.inc b/rtl/unix/genfdset.inc
index 200fa52f8c..f2657a6f6e 100644
--- a/rtl/unix/genfdset.inc
+++ b/rtl/unix/genfdset.inc
@@ -46,7 +46,7 @@ function fpfdfillset(var nset : TFDSet):cint;
var i :longint;
Begin
- for i:=0 to wordsinfdset-1 DO nset[i]:=Culong(NOT 0);
+ for i:=0 to wordsinfdset-1 DO nset[i]:=Culong((NOT 0) and ln2bitmask);
fpfdfillset:=0;
End;
diff --git a/rtl/win/wininc/ascdef.inc b/rtl/win/wininc/ascdef.inc
index 3c05490831..cd60d7ac3b 100644
--- a/rtl/win/wininc/ascdef.inc
+++ b/rtl/win/wininc/ascdef.inc
@@ -293,6 +293,7 @@ function WinHelp(hWndMain:HWND; lpszHelp:LPCSTR; uCommand:UINT; dwData:DWORD):WI
function ChangeDisplaySettings(lpDevMode:LPDEVMODE; dwFlags:DWORD):LONG; external 'user32' name 'ChangeDisplaySettingsA';
function EnumDisplaySettings(lpszDeviceName:LPCSTR; iModeNum:DWORD; lpDevMode:LPDEVMODE):WINBOOL; external 'user32' name 'EnumDisplaySettingsA';
function SystemParametersInfo(uiAction:UINT; uiParam:UINT; pvParam:PVOID; fWinIni:UINT):WINBOOL; external 'user32' name 'SystemParametersInfoA';
+function GetRawInputDeviceInfo(hDevice: HANDLE; uiCommand: UINT; pData: LPVOID; pcbSize: PUINT): UINT external 'user32' name 'GetRawInputDeviceInfoA';
function AddFontResource(_para1:LPCSTR):longint; external 'gdi32' name 'AddFontResourceA';
function CopyMetaFile(_para1:HMETAFILE; _para2:LPCSTR):HMETAFILE; external 'gdi32' name 'CopyMetaFileA';
function CreateFont(_para1:longint; _para2:longint; _para3:longint; _para4:longint; _para5:longint;_para6:DWORD; _para7:DWORD; _para8:DWORD; _para9:DWORD; _para10:DWORD;_para11:DWORD; _para12:DWORD; _para13:DWORD; _para14:LPCSTR):HFONT;
diff --git a/rtl/win/wininc/ascfun.inc b/rtl/win/wininc/ascfun.inc
index 70e16d1a18..c76e07506e 100644
--- a/rtl/win/wininc/ascfun.inc
+++ b/rtl/win/wininc/ascfun.inc
@@ -296,6 +296,7 @@ function WinHelpA(hWndMain:HWND; lpszHelp:LPCSTR; uCommand:UINT; dwData:DWORD):W
function ChangeDisplaySettingsA(lpDevMode:LPDEVMODE; dwFlags:DWORD):LONG; external 'user32' name 'ChangeDisplaySettingsA';
function EnumDisplaySettingsA(lpszDeviceName:LPCSTR; iModeNum:DWORD; lpDevMode:LPDEVMODE):WINBOOL; external 'user32' name 'EnumDisplaySettingsA';
function SystemParametersInfoA(uiAction:UINT; uiParam:UINT; pvParam:PVOID; fWinIni:UINT):WINBOOL; external 'user32' name 'SystemParametersInfoA';
+function GetRawInputDeviceInfoA(hDevice: HANDLE; uiCommand: UINT; pData: LPVOID; pcbSize: PUINT): UINT external 'user32' name 'GetRawInputDeviceInfoA';
function AddFontResourceA(_para1:LPCSTR):longint; external 'gdi32' name 'AddFontResourceA';
function CopyMetaFileA(_para1:HMETAFILE; _para2:LPCSTR):HMETAFILE; external 'gdi32' name 'CopyMetaFileA';
function CreateFontA(_para1:longint; _para2:longint; _para3:longint; _para4:longint; _para5:longint;_para6:DWORD; _para7:DWORD; _para8:DWORD; _para9:DWORD; _para10:DWORD;_para11:DWORD; _para12:DWORD; _para13:DWORD; _para14:LPCSTR):HFONT;
diff --git a/rtl/win/wininc/base.inc b/rtl/win/wininc/base.inc
index 4f46817c92..82b0453bc0 100644
--- a/rtl/win/wininc/base.inc
+++ b/rtl/win/wininc/base.inc
@@ -143,6 +143,7 @@
HWINSTA = HANDLE;
HWND = HANDLE;
HTASK = HANDLE;
+ HRAWINPUT = HANDLE;
LANGID = word;
LCID = DWORD;
diff --git a/rtl/win/wininc/defines.inc b/rtl/win/wininc/defines.inc
index cb002d888f..2a69458c9d 100644
--- a/rtl/win/wininc/defines.inc
+++ b/rtl/win/wininc/defines.inc
@@ -6097,6 +6097,118 @@ const
REPLACEFILE_IGNORE_MERGE_ERRORS = $00000002;
REPLACEFILE_IGNORE_ACL_ERRORS = $00000004;
+// WM_INPUT wParam
+(*
+ * The input is in the regular message flow,
+ * the app is required to call DefWindowProc
+ * so that the system can perform clean ups.
+ *)
+ RIM_INPUT = 0;
+
+(*
+ * The input is sink only. The app is expected
+ * to behave nicely.
+ *)
+ RIM_INPUTSINK = 1;
+
+(*
+ * Type of the raw input
+ *)
+ RIM_TYPEMOUSE = 0;
+ RIM_TYPEKEYBOARD = 1;
+ RIM_TYPEHID = 2;
+
+(*
+ * Define the mouse button state indicators.
+ *)
+
+ RI_MOUSE_LEFT_BUTTON_DOWN = $0001; // Left Button changed to down.
+ RI_MOUSE_LEFT_BUTTON_UP = $0002; // Left Button changed to up.
+ RI_MOUSE_RIGHT_BUTTON_DOWN = $0004; // Right Button changed to down.
+ RI_MOUSE_RIGHT_BUTTON_UP = $0008; // Right Button changed to up.
+ RI_MOUSE_MIDDLE_BUTTON_DOWN = $0010; // Middle Button changed to down.
+ RI_MOUSE_MIDDLE_BUTTON_UP = $0020; // Middle Button changed to up.
+
+ RI_MOUSE_BUTTON_1_DOWN = RI_MOUSE_LEFT_BUTTON_DOWN;
+ RI_MOUSE_BUTTON_1_UP = RI_MOUSE_LEFT_BUTTON_UP;
+ RI_MOUSE_BUTTON_2_DOWN = RI_MOUSE_RIGHT_BUTTON_DOWN;
+ RI_MOUSE_BUTTON_2_UP = RI_MOUSE_RIGHT_BUTTON_UP;
+ RI_MOUSE_BUTTON_3_DOWN = RI_MOUSE_MIDDLE_BUTTON_DOWN;
+ RI_MOUSE_BUTTON_3_UP = RI_MOUSE_MIDDLE_BUTTON_UP;
+
+ RI_MOUSE_BUTTON_4_DOWN = $0040;
+ RI_MOUSE_BUTTON_4_UP = $0080;
+ RI_MOUSE_BUTTON_5_DOWN = $0100;
+ RI_MOUSE_BUTTON_5_UP = $0200;
+
+(*
+ * If usButtonFlags has RI_MOUSE_WHEEL, the wheel delta is stored in usButtonData.
+ * Take it as a signed value.
+ *)
+ RI_MOUSE_WHEEL = $0400;
+
+(*
+ * Define the mouse indicator flags.
+ *)
+ MOUSE_MOVE_RELATIVE = 0;
+ MOUSE_MOVE_ABSOLUTE = 1;
+ MOUSE_VIRTUAL_DESKTOP = $02; // the coordinates are mapped to the virtual desktop
+ MOUSE_ATTRIBUTES_CHANGED = $04; // requery for mouse attributes
+//#if(WINVER >= 0x0600)
+ MOUSE_MOVE_NOCOALESCE = $08; // do not coalesce mouse moves
+//#endif /* WINVER >= 0x0600 */
+
+(*
+ * Define the keyboard overrun MakeCode.
+ *)
+
+ KEYBOARD_OVERRUN_MAKE_CODE = $FF;
+
+(*
+ * Define the keyboard input data Flags.
+ *)
+ RI_KEY_MAKE = 0;
+ RI_KEY_BREAK = 1;
+ RI_KEY_E0 = 2;
+ RI_KEY_E1 = 4;
+ RI_KEY_TERMSRV_SET_LED = 8;
+ RI_KEY_TERMSRV_SHADOW = $10;
+
+(*
+ * Flags for GetRawInputData
+ *)
+
+ RID_INPUT = $10000003;
+ RID_HEADER = $10000005;
+
+(*
+ * Raw Input Device Information
+ *)
+ RIDI_PREPARSEDDATA = $20000005;
+ RIDI_DEVICENAME = $20000007; // the return valus is the character length, not the byte size
+ RIDI_DEVICEINFO = $2000000b;
+
+ RIDEV_REMOVE = $00000001;
+ RIDEV_EXCLUDE = $00000010;
+ RIDEV_PAGEONLY = $00000020;
+ RIDEV_NOLEGACY = $00000030;
+ RIDEV_INPUTSINK = $00000100;
+ RIDEV_CAPTUREMOUSE = $00000200; // effective when mouse nolegacy is specified, otherwise it would be an error
+ RIDEV_NOHOTKEYS = $00000200; // effective for keyboard.
+ RIDEV_APPKEYS = $00000400; // effective for keyboard.
+//#if(_WIN32_WINNT >= 0x0501)
+ RIDEV_EXINPUTSINK = $00001000;
+ RIDEV_DEVNOTIFY = $00002000;
+//#endif /* _WIN32_WINNT >= 0x0501 */
+ RIDEV_EXMODEMASK = $000000F0;
+
+//#if(_WIN32_WINNT >= 0x0501)
+(*
+ * Flags for the WM_INPUT_DEVICE_CHANGE message.
+ *)
+ GIDC_ARRIVAL = 1;
+ GIDC_REMOVAL = 2;
+//#endif /* _WIN32_WINNT >= 0x0501 */
{$endif read_interface}
{$ifdef read_implementation}
diff --git a/rtl/win/wininc/func.inc b/rtl/win/wininc/func.inc
index e7b8391310..243e8e8813 100644
--- a/rtl/win/wininc/func.inc
+++ b/rtl/win/wininc/func.inc
@@ -668,6 +668,12 @@ function TrackPopupMenuEx(_para1:HMENU; _para2:UINT; _para3:longint; _para4:long
function ChildWindowFromPointEx(_para1:HWND; _para2:POINT; _para3:UINT):HWND; external 'user32' name 'ChildWindowFromPointEx';
function DrawIconEx(hdc:HDC; xLeft:longint; yTop:longint; hIcon:HICON; cxWidth:longint;cyWidth:longint; istepIfAniCur:UINT; hbrFlickerFreeDraw:HBRUSH; diFlags:UINT):WINBOOL; external 'user32' name 'DrawIconEx';
function GetWindowInfo(hWnd:HWND; pwi:PWindowInfo):WINBOOL; external 'user32' name 'GetWindowInfo';
+function GetRawInputData(hRawInput: HRAWINPUT; uiCommand: UINT; pData: LPVOID; pcbSize: PUINT; cbSizeHeader: UINT): UINT; external 'user32' name 'GetRawInputData';
+function GetRawInputBuffer(pData: PRAWINPUT; pcbSize: PUINT; cbSizeHeader: UINT): UINT; external 'user32' name 'GetRawInputBuffer';
+function RegisterRawInputDevices(pRawInputDevices: PCRAWINPUTDEVICE; uiNumDevices: UINT; cbSize: UINT):WINBOOL; external 'user32' name 'RegisterRawInputDevices';
+function GetRegisteredRawInputDevices(pRawInputDevices: PRAWINPUTDEVICE; puiNumDevices: PUINT; cbSize: UINT): UINT; external 'user32' name 'GetRegisteredRawInputDevices';
+function GetRawInputDeviceList(pRawInputDeviceList: PRAWINPUTDEVICELIST; puiNumDevices: PUINT; cbSize: UINT): UINT; external 'user32' name 'GetRawInputDeviceList';
+function DefRawInputProc(paRawInput: PPRAWINPUT; nInput: longint; cbSizeHeader: UINT): LRESULT; external 'user32' name 'DefRawInputProc';
function AnimatePalette(_para1:HPALETTE; _para2:UINT; _para3:UINT; var _para4:PALETTEENTRY):WINBOOL; external 'gdi32' name 'AnimatePalette';
function Arc(_para1:HDC; _para2:longint; _para3:longint; _para4:longint; _para5:longint;_para6:longint; _para7:longint; _para8:longint; _para9:longint):WINBOOL; external 'gdi32' name 'Arc';
@@ -1276,6 +1282,16 @@ function EndMenu:BOOL; external 'user32' name 'EndMenu';
function GetMenuBarInfo(_hwnd:HWND; idObject:longint; idItem:longint; pmbi:LPMENUBARINFO):BOOL; external 'user32' name 'GetMenuBarInfo';
function IMAGE_FIRST_SECTION(ntheader : PIMAGE_NT_HEADERS):PIMAGE_SECTION_HEADER;
+function GET_RAWINPUT_CODE_WPARAM(wp: WPARAM): longint; inline;
+function RAWINPUT_ALIGN(x: PtrUInt): PtrUInt; inline;
+function NEXTRAWINPUTBLOCK(ptr: PRAWINPUT): PRAWINPUT; inline;
+function RIDEV_EXMODE(mode: DWORD): DWORD; inline;
+//#if (_WIN32_WINNT >= 0x0601)
+function GET_DEVICE_CHANGE_WPARAM(wParam: WPARAM): WORD; inline;
+//#elif (_WIN32_WINNT >= 0x0501)
+function GET_DEVICE_CHANGE_LPARAM(lParam: LPARAM): WORD; inline;
+//#endif /* (_WIN32_WINNT >= 0x0601) */
+
{$endif read_interface}
@@ -2389,5 +2405,35 @@ begin
IMAGE_FIRST_SECTION:=PIMAGE_SECTION_HEADER(OFS(ntheader^.OptionalHeader) + ntheader^.FileHeader.SizeOfOptionalHeader);
end;
+function GET_RAWINPUT_CODE_WPARAM(wp: WPARAM): longint;
+begin
+ GET_RAWINPUT_CODE_WPARAM:=wp and $FF;
+end;
+
+function RAWINPUT_ALIGN(x: PtrUInt): PtrUInt;
+begin
+ RAWINPUT_ALIGN:=PtrUInt(x+(SizeOf(PtrUInt)-1)) and not PtrUInt(SizeOf(PtrUInt)-1);
+end;
+
+function NEXTRAWINPUTBLOCK(ptr: PRAWINPUT): PRAWINPUT;
+begin
+ NEXTRAWINPUTBLOCK:=PRAWINPUT(RAWINPUT_ALIGN(ULONG_PTR(PBYTE(ptr)+ptr^.header.dwSize)));
+end;
+
+function RIDEV_EXMODE(mode: DWORD): DWORD;
+begin
+ RIDEV_EXMODE:=mode and RIDEV_EXMODEMASK;
+end;
+
+function GET_DEVICE_CHANGE_WPARAM(wParam: WPARAM): WORD;
+begin
+ GET_DEVICE_CHANGE_WPARAM:=LOWORD(wParam);
+end;
+
+function GET_DEVICE_CHANGE_LPARAM(lParam: LPARAM): WORD;
+begin
+ GET_DEVICE_CHANGE_LPARAM:=LOWORD(lParam);
+end;
+
{$endif read_implementation}
diff --git a/rtl/win/wininc/struct.inc b/rtl/win/wininc/struct.inc
index 79e8674195..9a88d26698 100644
--- a/rtl/win/wininc/struct.inc
+++ b/rtl/win/wininc/struct.inc
@@ -9108,7 +9108,207 @@ type
LPPROGRESS_ROUTINE = function(TotalFileSize,TotalBytesTransferred,StreamSize,StreamBytesTransferred:LARGE_INTEGER;dwStreamNumber,dwCallbackReason:DWord;hSourceFile,hDestinationFile :THandle;lpdata:pointer):Dword; Stdcall;
TPROGRESS_ROUTINE = LPPROGRESS_ROUTINE;
+// Raw Input Messages
+//#if(_WIN32_WINNT >= 0x0501)
+{$push}{$packrecords 4}
+ tagRAWINPUTHEADER = record
+ dwType: DWORD;
+ dwSize: DWORD;
+ hDevice: HANDLE;
+ wParam: WPARAM;
+ end;
+ RAWINPUTHEADER = tagRAWINPUTHEADER;
+ TRAWINPUTHEADER = tagRAWINPUTHEADER;
+ PRAWINPUTHEADER = ^tagRAWINPUTHEADER;
+ LPRAWINPUTHEADER = ^tagRAWINPUTHEADER;
+
+(*
+ * Raw format of the mouse input
+ *)
+ tagRAWMOUSE = record
+ (*
+ * Indicator flags.
+ *)
+ usFlags: USHORT;
+
+ case longint of
+ 0: (
+ (*
+ * The transition state of the mouse buttons.
+ *)
+ ulButtons: ULONG;
+
+ (*
+ * The raw state of the mouse buttons.
+ *)
+ ulRawButtons: ULONG;
+
+ (*
+ * The signed relative or absolute motion in the X direction.
+ *)
+ lLastX: LONG;
+
+ (*
+ * The signed relative or absolute motion in the Y direction.
+ *)
+ lLastY: LONG;
+
+ (*
+ * Device-specific additional information for the event.
+ *)
+ ulExtraInformation: ULONG
+ );
+ 1: (
+ (*
+ * The transition state of the mouse buttons.
+ *)
+ usButtonFlags: USHORT;
+ usButtonData: USHORT
+ );
+ end;
+ RAWMOUSE = tagRAWMOUSE;
+ TRAWMOUSE = tagRAWMOUSE;
+ PRAWMOUSE = ^tagRAWMOUSE;
+ LPRAWMOUSE = ^tagRAWMOUSE;
+(*
+ * Raw format of the keyboard input
+ *)
+ tagRAWKEYBOARD = record
+ (*
+ * The "make" scan code (key depression).
+ *)
+ MakeCode: USHORT;
+
+ (*
+ * The flags field indicates a "break" (key release) and other
+ * miscellaneous scan code information defined in ntddkbd.h.
+ *)
+ Flags: USHORT;
+
+ Reserved: USHORT;
+
+ (*
+ * Windows message compatible information
+ *)
+ VKey: USHORT;
+ Message: UINT;
+
+ (*
+ * Device-specific additional information for the event.
+ *)
+ ExtraInformation: ULONG;
+ end;
+ RAWKEYBOARD = tagRAWKEYBOARD;
+ TRAWKEYBOARD = tagRAWKEYBOARD;
+ PRAWKEYBOARD = ^tagRAWKEYBOARD;
+ LPRAWKEYBOARD = ^tagRAWKEYBOARD;
+
+ (*
+ * Raw format of the input from Human Input Devices
+ *)
+ tagRAWHID = record
+ dwSizeHid: DWORD; // byte size of each report
+ dwCount: DWORD; // number of input packed
+ bRawData: array [0..0] of BYTE;
+ end;
+ RAWHID = tagRAWHID;
+ TRAWHID = tagRAWHID;
+ PRAWHID = ^tagRAWHID;
+ LPRAWHID = ^tagRAWHID;
+
+(*
+ * RAWINPUT data structure.
+ *)
+ tagRAWINPUT = record
+ header: RAWINPUTHEADER;
+ data: record
+ case longint of
+ 0: (mouse: RAWMOUSE);
+ 1: (keyboard: RAWKEYBOARD);
+ 2: (hid: RAWHID);
+ end;
+ end;
+ RAWINPUT = tagRAWINPUT;
+ TRAWINPUT = tagRAWINPUT;
+ PRAWINPUT = ^tagRAWINPUT;
+ LPRAWINPUT = ^tagRAWINPUT;
+ PPRAWINPUT = ^PRAWINPUT;
+ LPLPRAWINPUT = ^LPRAWINPUT;
+
+ tagRID_DEVICE_INFO_MOUSE = record
+ dwId: DWORD;
+ dwNumberOfButtons: DWORD;
+ dwSampleRate: DWORD;
+ fHasHorizontalWheel: BOOL;
+ end;
+ RID_DEVICE_INFO_MOUSE = tagRID_DEVICE_INFO_MOUSE;
+ TRID_DEVICE_INFO_MOUSE = tagRID_DEVICE_INFO_MOUSE;
+ PRID_DEVICE_INFO_MOUSE = ^tagRID_DEVICE_INFO_MOUSE;
+
+ tagRID_DEVICE_INFO_KEYBOARD = record
+ dwType: DWORD;
+ dwSubType: DWORD;
+ dwKeyboardMode: DWORD;
+ dwNumberOfFunctionKeys: DWORD;
+ dwNumberOfIndicators: DWORD;
+ dwNumberOfKeysTotal: DWORD;
+ end;
+ RID_DEVICE_INFO_KEYBOARD = tagRID_DEVICE_INFO_KEYBOARD;
+ TRID_DEVICE_INFO_KEYBOARD = tagRID_DEVICE_INFO_KEYBOARD;
+ PRID_DEVICE_INFO_KEYBOARD = ^tagRID_DEVICE_INFO_KEYBOARD;
+
+ tagRID_DEVICE_INFO_HID = record
+ dwVendorId: DWORD;
+ dwProductId: DWORD;
+ dwVersionNumber: DWORD;
+
+ (*
+ * Top level collection UsagePage and Usage
+ *)
+ usUsagePage: USHORT;
+ usUsage: USHORT;
+ end;
+ RID_DEVICE_INFO_HID = tagRID_DEVICE_INFO_HID;
+ TRID_DEVICE_INFO_HID = tagRID_DEVICE_INFO_HID;
+ PRID_DEVICE_INFO_HID = ^tagRID_DEVICE_INFO_HID;
+
+ tagRID_DEVICE_INFO = record
+ cbSize: DWORD;
+ dwType: DWORD;
+ case longint of
+ 0: (mouse: RID_DEVICE_INFO_MOUSE);
+ 1: (keyboard: RID_DEVICE_INFO_KEYBOARD);
+ 2: (hid: RID_DEVICE_INFO_HID);
+ end;
+ RID_DEVICE_INFO = tagRID_DEVICE_INFO;
+ PRID_DEVICE_INFO = ^tagRID_DEVICE_INFO;
+ LPRID_DEVICE_INFO = ^tagRID_DEVICE_INFO;
+
+(*
+ * Raw Input request APIs
+ *)
+ tagRAWINPUTDEVICE = record
+ usUsagePage: USHORT; // Toplevel collection UsagePage
+ usUsage: USHORT; // Toplevel collection Usage
+ dwFlags: DWORD;
+ hwndTarget: HWND; // Target hwnd. NULL = follows keyboard focus
+ end;
+ RAWINPUTDEVICE = tagRAWINPUTDEVICE;
+ TRAWINPUTDEVICE = tagRAWINPUTDEVICE;
+ PRAWINPUTDEVICE = ^tagRAWINPUTDEVICE;
+ LPRAWINPUTDEVICE = ^tagRAWINPUTDEVICE;
+ PCRAWINPUTDEVICE = ^tagRAWINPUTDEVICE;
+
+{$packrecords C}
+ tagRAWINPUTDEVICELIST = record
+ hDevice: HANDLE;
+ dwType: DWORD;
+ end;
+ RAWINPUTDEVICELIST = tagRAWINPUTDEVICELIST;
+ PRAWINPUTDEVICELIST = ^tagRAWINPUTDEVICELIST;
+//#endif /* _WIN32_WINNT >= 0x0501 */
+{$pop}
{$endif read_interface}
diff --git a/rtl/win/wininc/unidef.inc b/rtl/win/wininc/unidef.inc
index 3b0e54a94d..9cff27077a 100644
--- a/rtl/win/wininc/unidef.inc
+++ b/rtl/win/wininc/unidef.inc
@@ -294,6 +294,7 @@ function WinHelp(hWndMain:HWND; lpszHelp:LPCWSTR; uCommand:UINT; dwData:DWORD):W
function ChangeDisplaySettings(lpDevMode:LPDEVMODE; dwFlags:DWORD):LONG; external 'user32' name 'ChangeDisplaySettingsW';
function EnumDisplaySettings(lpszDeviceName:LPCWSTR; iModeNum:DWORD; lpDevMode:LPDEVMODEW):WINBOOL; external 'user32' name 'EnumDisplaySettingsW';
function SystemParametersInfo(uiAction:UINT; uiParam:UINT; pvParam:PVOID; fWinIni:UINT):WINBOOL; external 'user32' name 'SystemParametersInfoW';
+function GetRawInputDeviceInfo(hDevice: HANDLE; uiCommand: UINT; pData: LPVOID; pcbSize: PUINT): UINT; external 'user32' name 'GetRawInputDeviceInfoW';
function AddFontResource(_para1:LPCWSTR):longint; external 'gdi32' name 'AddFontResourceW';
function CopyMetaFile(_para1:HMETAFILE; _para2:LPCWSTR):HMETAFILE; external 'gdi32' name 'CopyMetaFileW';
function CreateFontIndirect(_para1:PLOGFONT):HFONT; external 'gdi32' name 'CreateFontIndirectW';
diff --git a/rtl/win/wininc/unifun.inc b/rtl/win/wininc/unifun.inc
index 6d5c9b42dd..9875d6c911 100644
--- a/rtl/win/wininc/unifun.inc
+++ b/rtl/win/wininc/unifun.inc
@@ -293,6 +293,7 @@ function WinHelpW(hWndMain:HWND; lpszHelp:LPCWSTR; uCommand:UINT; dwData:DWORD):
function ChangeDisplaySettingsW(lpDevMode:LPDEVMODEW; dwFlags:DWORD):LONG; external 'user32' name 'ChangeDisplaySettingsW';
function EnumDisplaySettingsW(lpszDeviceName:LPCWSTR; iModeNum:DWORD;lpDevMode:LPDEVMODEW):WINBOOL; external 'user32' name 'EnumDisplaySettingsW';
function SystemParametersInfoW(uiAction:UINT; uiParam:UINT; pvParam:PVOID; fWinIni:UINT):WINBOOL; external 'user32' name 'SystemParametersInfoW';
+function GetRawInputDeviceInfoW(hDevice: HANDLE; uiCommand: UINT; pData: LPVOID; pcbSize: PUINT): UINT; external 'user32' name 'GetRawInputDeviceInfoW';
function AddFontResourceW(_para1:LPCWSTR):longint; external 'gdi32' name 'AddFontResourceW';
function CopyMetaFileW(_para1:HMETAFILE; _para2:LPCWSTR):HMETAFILE; external 'gdi32' name 'CopyMetaFileW';
function CreateFontIndirectW(_para1:PLOGFONTW):HFONT; external 'gdi32' name 'CreateFontIndirectW';
diff --git a/rtl/win16/sysfile.inc b/rtl/win16/sysfile.inc
index abff08f160..332cfc706e 100644
--- a/rtl/win16/sysfile.inc
+++ b/rtl/win16/sysfile.inc
@@ -43,7 +43,7 @@ begin
{$ifdef SYSTEMDEBUG}
if assigned(opennames[handle]) and free_closed_names then
begin
- sysfreememsize(opennames[handle],strlen(opennames[handle])+1);
+ freemem(opennames[handle],strlen(opennames[handle])+1);
opennames[handle]:=nil;
end;
{$endif SYSTEMDEBUG}
@@ -378,12 +378,12 @@ begin
assigned(opennames[regs.AX]) then
begin
Writeln(stderr,'file ',opennames[regs.AX],'(',regs.AX,') not closed but handle reused!');
- sysfreememsize(opennames[regs.AX],strlen(opennames[regs.AX])+1);
+ freemem(opennames[regs.AX],strlen(opennames[regs.AX])+1);
end;
{$endif SYSTEMDEBUG}
openfiles[regs.AX]:=true;
{$ifdef SYSTEMDEBUG}
- opennames[regs.AX] := sysgetmem(strlen(p)+1);
+ opennames[regs.AX] := getmem(strlen(p)+1);
move(p^,opennames[regs.AX]^,strlen(p)+1);
{$endif SYSTEMDEBUG}
end;
diff --git a/rtl/win16/system.pp b/rtl/win16/system.pp
index 0c63bec5fe..a12f16a881 100644
--- a/rtl/win16/system.pp
+++ b/rtl/win16/system.pp
@@ -3,6 +3,7 @@ unit system;
interface
{$DEFINE FPC_NO_DEFAULT_HEAP}
+{$DEFINE FPC_NO_DEFAULT_MEMORYMANAGER}
{$DEFINE FPC_INCLUDE_SOFTWARE_MUL}
{$DEFINE FPC_INCLUDE_SOFTWARE_MOD_DIV}
@@ -167,6 +168,15 @@ end;
{*****************************************************************************
+ FinalizeHeap
+ Dummy FinalizeHeap procedure added to fix compilation
+*****************************************************************************}
+
+procedure FinalizeHeap;
+begin
+end;
+
+{*****************************************************************************
ParamStr/Randomize
*****************************************************************************}
diff --git a/tests/Makefile b/tests/Makefile
index bec207cfa5..4993310abf 100644
--- a/tests/Makefile
+++ b/tests/Makefile
@@ -2161,8 +2161,10 @@ export LOG:=$(TEST_OUTPUTDIR)/log
endif
LOGFILES=$(TEST_OUTPUTDIR)/log $(TEST_OUTPUTDIR)/longlog $(TEST_OUTPUTDIR)/faillist
LOGEXT=.testlog .tbslog .tbflog .webtbslog .webtbflog
-TESTSUBDIRS=cg cg/variants cg/cdecl cpu16 cpu16/i8086 library opt units/system units/dos units/crt units/objects units/strings units/sysutils units/math units/sharemem units/strutils units/matrix units/lineinfo units/ucomplex units/fpwidestring units/cpu units/fmtbcd
-TESTPACKAGESUBDIRS=packages/win-base packages/webtbs packages/hash packages/fcl-registry packages/fcl-process packages/zlib packages/fcl-db packages/fcl-base packages/fcl-xml packages/cocoaint packages/bzip2
+TESTUNITDIRS=system dos crt objects strings sysutils math sharemem strutils matrix lineinfo ucomplex fpwidestring cpu fmtbcd windows
+TESTSUBDIRS=cg cg/variants cg/cdecl cpu16 cpu16/i8086 library opt $(addprefix units/,$(TESTUNITDIRS))
+TESTPACKAGESDIRS=win-base webtbs hash fcl-registry fcl-process zlib fcl-db fcl-xml cocoaint bzip2
+TESTPACKAGESUBDIRS=$(addprefix packages/,$(TESTPACKAGESDIRS))
ifdef QUICKTEST
export QUICKTEST
else
diff --git a/tests/Makefile.fpc b/tests/Makefile.fpc
index 196e5f2750..d9f1c0517f 100644
--- a/tests/Makefile.fpc
+++ b/tests/Makefile.fpc
@@ -154,8 +154,10 @@ LOGFILES=$(TEST_OUTPUTDIR)/log $(TEST_OUTPUTDIR)/longlog $(TEST_OUTPUTDIR)/faill
LOGEXT=.testlog .tbslog .tbflog .webtbslog .webtbflog
# Subdirs available in the test subdir
-TESTSUBDIRS=cg cg/variants cg/cdecl cpu16 cpu16/i8086 library opt units/system units/dos units/crt units/objects units/strings units/sysutils units/math units/sharemem units/strutils units/matrix units/lineinfo units/ucomplex units/fpwidestring units/cpu units/fmtbcd
-TESTPACKAGESUBDIRS=packages/win-base packages/webtbs packages/hash packages/fcl-registry packages/fcl-process packages/zlib packages/fcl-db packages/fcl-base packages/fcl-xml packages/cocoaint packages/bzip2
+TESTUNITDIRS=system dos crt objects strings sysutils math sharemem strutils matrix lineinfo ucomplex fpwidestring cpu fmtbcd windows
+TESTSUBDIRS=cg cg/variants cg/cdecl cpu16 cpu16/i8086 library opt $(addprefix units/,$(TESTUNITDIRS))
+TESTPACKAGESDIRS=win-base webtbs hash fcl-registry fcl-process zlib fcl-db fcl-xml cocoaint bzip2
+TESTPACKAGESUBDIRS=$(addprefix packages/,$(TESTPACKAGESDIRS))
ifdef QUICKTEST
export QUICKTEST
diff --git a/tests/test/cg/tcalcla1.pp b/tests/test/cg/tcalcla1.pp
index 36570b1cac..416a11e5a3 100644
--- a/tests/test/cg/tcalcla1.pp
+++ b/tests/test/cg/tcalcla1.pp
@@ -27,7 +27,7 @@ program tcalcla1;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$if defined(FPC_MM_LARGE) or defined(FPC_MM_HUGE)}
{$hugecode on}
diff --git a/tests/test/cg/tcalcst1.pp b/tests/test/cg/tcalcst1.pp
index ca60e443ea..3ef484616c 100644
--- a/tests/test/cg/tcalcst1.pp
+++ b/tests/test/cg/tcalcst1.pp
@@ -31,7 +31,7 @@ program tcalcst1;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalcst2.pp b/tests/test/cg/tcalcst2.pp
index cf8fea3d62..a3a7853a8a 100644
--- a/tests/test/cg/tcalcst2.pp
+++ b/tests/test/cg/tcalcst2.pp
@@ -31,7 +31,7 @@ program tcalcst2;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalcst3.pp b/tests/test/cg/tcalcst3.pp
index 18d574cc87..ba83271e2d 100644
--- a/tests/test/cg/tcalcst3.pp
+++ b/tests/test/cg/tcalcst3.pp
@@ -32,7 +32,7 @@ program tcalcst3;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalcst4.pp b/tests/test/cg/tcalcst4.pp
index 63eb76b668..488520bddb 100644
--- a/tests/test/cg/tcalcst4.pp
+++ b/tests/test/cg/tcalcst4.pp
@@ -32,7 +32,7 @@ program tcalcst4;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalcst5.pp b/tests/test/cg/tcalcst5.pp
index a03c59de65..64621b5b51 100644
--- a/tests/test/cg/tcalcst5.pp
+++ b/tests/test/cg/tcalcst5.pp
@@ -33,7 +33,7 @@ program tcalcst5;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalcst6.pp b/tests/test/cg/tcalcst6.pp
index 72bc4c6430..62361b80ff 100644
--- a/tests/test/cg/tcalcst6.pp
+++ b/tests/test/cg/tcalcst6.pp
@@ -38,7 +38,7 @@ program tcalcst6;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalcst7.pp b/tests/test/cg/tcalcst7.pp
index c1dd0736af..646c878b59 100644
--- a/tests/test/cg/tcalcst7.pp
+++ b/tests/test/cg/tcalcst7.pp
@@ -32,7 +32,7 @@ program tcalcst7;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalcst8.pp b/tests/test/cg/tcalcst8.pp
index 6f1750e4f1..bb88aefcfb 100644
--- a/tests/test/cg/tcalcst8.pp
+++ b/tests/test/cg/tcalcst8.pp
@@ -32,7 +32,7 @@ program tcalcst8;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalfun1.pp b/tests/test/cg/tcalfun1.pp
index 89d816ce33..b86a1e7fc6 100644
--- a/tests/test/cg/tcalfun1.pp
+++ b/tests/test/cg/tcalfun1.pp
@@ -35,7 +35,7 @@
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalfun2.pp b/tests/test/cg/tcalfun2.pp
index 4f9defbffa..284fdf4c95 100644
--- a/tests/test/cg/tcalfun2.pp
+++ b/tests/test/cg/tcalfun2.pp
@@ -35,7 +35,7 @@
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalfun3.pp b/tests/test/cg/tcalfun3.pp
index 72f6a13385..6f062c17f1 100644
--- a/tests/test/cg/tcalfun3.pp
+++ b/tests/test/cg/tcalfun3.pp
@@ -35,7 +35,7 @@
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalfun4.pp b/tests/test/cg/tcalfun4.pp
index 51a32da58b..334f1b09cb 100644
--- a/tests/test/cg/tcalfun4.pp
+++ b/tests/test/cg/tcalfun4.pp
@@ -37,7 +37,7 @@
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalfun6.pp b/tests/test/cg/tcalfun6.pp
index cb5429a1d3..4efa78c6da 100644
--- a/tests/test/cg/tcalfun6.pp
+++ b/tests/test/cg/tcalfun6.pp
@@ -35,7 +35,7 @@
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalfun7.pp b/tests/test/cg/tcalfun7.pp
index b2dde278c0..9155796454 100644
--- a/tests/test/cg/tcalfun7.pp
+++ b/tests/test/cg/tcalfun7.pp
@@ -35,7 +35,7 @@
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalfun8.pp b/tests/test/cg/tcalfun8.pp
index 97340d5819..b23e7f1ad0 100644
--- a/tests/test/cg/tcalfun8.pp
+++ b/tests/test/cg/tcalfun8.pp
@@ -35,7 +35,7 @@
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalobj1.pp b/tests/test/cg/tcalobj1.pp
index c0ce664423..52f58eda60 100644
--- a/tests/test/cg/tcalobj1.pp
+++ b/tests/test/cg/tcalobj1.pp
@@ -23,7 +23,7 @@ program tcalobj1;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalobj2.pp b/tests/test/cg/tcalobj2.pp
index 39792b780a..c4f54b9374 100644
--- a/tests/test/cg/tcalobj2.pp
+++ b/tests/test/cg/tcalobj2.pp
@@ -23,7 +23,7 @@ program tcalobj2;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalobj3.pp b/tests/test/cg/tcalobj3.pp
index 8d5c663f5c..9bd2fd0e1f 100644
--- a/tests/test/cg/tcalobj3.pp
+++ b/tests/test/cg/tcalobj3.pp
@@ -23,7 +23,7 @@ program tcalobj3;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalobj4.pp b/tests/test/cg/tcalobj4.pp
index 2c30758525..fdff00181a 100644
--- a/tests/test/cg/tcalobj4.pp
+++ b/tests/test/cg/tcalobj4.pp
@@ -25,7 +25,7 @@ program tcalobj4;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalobj6.pp b/tests/test/cg/tcalobj6.pp
index d2ad6c13d7..139ce500cb 100644
--- a/tests/test/cg/tcalobj6.pp
+++ b/tests/test/cg/tcalobj6.pp
@@ -23,7 +23,7 @@ program tcalobj6;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalobj7.pp b/tests/test/cg/tcalobj7.pp
index c97654a04c..00967c556f 100644
--- a/tests/test/cg/tcalobj7.pp
+++ b/tests/test/cg/tcalobj7.pp
@@ -23,7 +23,7 @@ program tcalobj7;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalval1.pp b/tests/test/cg/tcalval1.pp
index 3a0803af4e..0586b642e1 100644
--- a/tests/test/cg/tcalval1.pp
+++ b/tests/test/cg/tcalval1.pp
@@ -34,7 +34,7 @@ program tcalval1;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalval2.pp b/tests/test/cg/tcalval2.pp
index 7757858c62..9d7e03d65c 100644
--- a/tests/test/cg/tcalval2.pp
+++ b/tests/test/cg/tcalval2.pp
@@ -32,7 +32,7 @@ program tcalval2;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalval3.pp b/tests/test/cg/tcalval3.pp
index ea31547784..a422cad5dd 100644
--- a/tests/test/cg/tcalval3.pp
+++ b/tests/test/cg/tcalval3.pp
@@ -34,7 +34,7 @@ program tcalval3;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalval4.pp b/tests/test/cg/tcalval4.pp
index 63b447cd8c..92baac3e4c 100644
--- a/tests/test/cg/tcalval4.pp
+++ b/tests/test/cg/tcalval4.pp
@@ -34,7 +34,7 @@ program tcalval4;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalval5.pp b/tests/test/cg/tcalval5.pp
index bcf047b3d9..5ac7476f46 100644
--- a/tests/test/cg/tcalval5.pp
+++ b/tests/test/cg/tcalval5.pp
@@ -36,7 +36,7 @@ program tcalval5;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalval7.pp b/tests/test/cg/tcalval7.pp
index 71cf65f5f7..6e4eb03610 100644
--- a/tests/test/cg/tcalval7.pp
+++ b/tests/test/cg/tcalval7.pp
@@ -34,7 +34,7 @@ program tcalval7;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalval8.pp b/tests/test/cg/tcalval8.pp
index 547b07b1fc..8bc9aaab2f 100644
--- a/tests/test/cg/tcalval8.pp
+++ b/tests/test/cg/tcalval8.pp
@@ -34,7 +34,7 @@ program tcalval8;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalvar1.pp b/tests/test/cg/tcalvar1.pp
index 89adf4a79c..ab0c7eaad8 100644
--- a/tests/test/cg/tcalvar1.pp
+++ b/tests/test/cg/tcalvar1.pp
@@ -32,7 +32,7 @@ program tcalvar1;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalvar2.pp b/tests/test/cg/tcalvar2.pp
index 65ea5d36d7..80165d373c 100644
--- a/tests/test/cg/tcalvar2.pp
+++ b/tests/test/cg/tcalvar2.pp
@@ -32,7 +32,7 @@ program tcalvar2;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalvar3.pp b/tests/test/cg/tcalvar3.pp
index 042d461273..c1d2a7ed8f 100644
--- a/tests/test/cg/tcalvar3.pp
+++ b/tests/test/cg/tcalvar3.pp
@@ -32,7 +32,7 @@ program tcalvar3;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalvar4.pp b/tests/test/cg/tcalvar4.pp
index e45a845d84..ed99300558 100644
--- a/tests/test/cg/tcalvar4.pp
+++ b/tests/test/cg/tcalvar4.pp
@@ -34,7 +34,7 @@ program tcalvar4;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalvar5.pp b/tests/test/cg/tcalvar5.pp
index b30e3b3c9e..b4162c6af4 100644
--- a/tests/test/cg/tcalvar5.pp
+++ b/tests/test/cg/tcalvar5.pp
@@ -36,7 +36,7 @@ program tcalvar5;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalvar6.pp b/tests/test/cg/tcalvar6.pp
index caa5936f64..743ae3328a 100644
--- a/tests/test/cg/tcalvar6.pp
+++ b/tests/test/cg/tcalvar6.pp
@@ -39,7 +39,7 @@ program tcalvar6;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalvar7.pp b/tests/test/cg/tcalvar7.pp
index 7727a5c868..5e0845cb2a 100644
--- a/tests/test/cg/tcalvar7.pp
+++ b/tests/test/cg/tcalvar7.pp
@@ -34,7 +34,7 @@ program tcalvar7;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/cg/tcalvar8.pp b/tests/test/cg/tcalvar8.pp
index 83a1b89e12..905eb3b982 100644
--- a/tests/test/cg/tcalvar8.pp
+++ b/tests/test/cg/tcalvar8.pp
@@ -34,7 +34,7 @@ program tcalvar8;
{$ifdef cpu68k}
{$define cpusmall}
{$endif}
-{$ifdef cpu8086}
+{$ifdef cpui8086}
{$define cpusmall}
{$endif}
diff --git a/tests/test/tgeneric102.pp b/tests/test/tgeneric102.pp
new file mode 100644
index 0000000000..6d30559fa8
--- /dev/null
+++ b/tests/test/tgeneric102.pp
@@ -0,0 +1,11 @@
+{ %NORUN }
+
+program tgeneric102;
+
+uses
+ ugeneric102;
+
+begin
+ Test;
+ Test2;
+end.
diff --git a/tests/test/theap.pp b/tests/test/theap.pp
index dc73e2195b..2c5fe4f31a 100644
--- a/tests/test/theap.pp
+++ b/tests/test/theap.pp
@@ -8,7 +8,7 @@ uses
erroru;
const
-{$ifdef cpusparc}
+{$if defined (cpusparc) or defined(cpui8086)}
Blocks = 1000;
{$else}
Blocks = 10000;
diff --git a/tests/test/ugeneric102.pp b/tests/test/ugeneric102.pp
new file mode 100644
index 0000000000..dfdc491ab5
--- /dev/null
+++ b/tests/test/ugeneric102.pp
@@ -0,0 +1,72 @@
+unit ugeneric102;
+
+{$mode objfpc}{$H+}
+
+interface
+
+type
+ generic TTest<T> = class
+ class function Test(aTest: T): T; inline;
+ class function Test2(aTest: T): T; inline;
+ end;
+
+ TTestLongInt = specialize TTest<LongInt>;
+
+generic function TestFunc<T>(aTest: T): T; inline;
+
+procedure Test;
+procedure Test2;
+
+implementation
+
+class function TTest.Test(aTest: T): T;
+begin
+ Result := aTest;
+end;
+
+type
+ TTestBoolean = specialize TTest<Boolean>;
+
+{ here the functions won't be inlined, cause the bodies are missing }
+procedure Test;
+begin
+ Writeln(TTestLongInt.Test(42));
+ Writeln(TTestBoolean.Test(True));
+ Writeln(specialize TTest<String>.Test('Hello World'));
+
+ Writeln(TTestLongInt.Test2(42));
+ Writeln(TTestBoolean.Test2(True));
+ Writeln(specialize TTest<String>.Test2('Hello World'));
+
+ Writeln(specialize TestFunc<LongInt>(42));
+ Writeln(specialize TestFunc<Boolean>(True));
+ Writeln(specialize TestFunc<String>('Hello World'));
+end;
+
+class function TTest.Test2(aTest: T): T;
+begin
+ Result := aTest;
+end;
+
+generic function TestFunc<T>(aTest: T): T;
+begin
+ Result := aTest;
+end;
+
+{ here the functions will be inlined as now the bodies are available }
+procedure Test2;
+begin
+ Writeln(TTestLongInt.Test(42));
+ Writeln(TTestBoolean.Test(True));
+ Writeln(specialize TTest<String>.Test('Hello World'));
+
+ Writeln(TTestLongInt.Test2(42));
+ Writeln(TTestBoolean.Test2(True));
+ Writeln(specialize TTest<String>.Test2('Hello World'));
+
+ Writeln(specialize TestFunc<LongInt>(42));
+ Writeln(specialize TestFunc<Boolean>(True));
+ Writeln(specialize TestFunc<String>('Hello World'));
+end;
+
+end.
diff --git a/tests/test/units/fpcunit/tcstrutils.pp b/tests/test/units/fpcunit/tcstrutils.pp
index 44c4ef7aac..85eb5c8fc8 100644
--- a/tests/test/units/fpcunit/tcstrutils.pp
+++ b/tests/test/units/fpcunit/tcstrutils.pp
@@ -1,6 +1,7 @@
unit tcstrutils;
{$mode objfpc}{$H+}
+{$codepage utf8}
interface
@@ -9,8 +10,6 @@ uses
type
- { TTestSearchBuf }
-
TTestSearchBuf= class(TTestCase)
Private
Procedure TestSearch(Sub:String; Start : Integer; O : TStringSearchOptions; Expected : Integer);
@@ -41,6 +40,14 @@ type
Procedure TestDecodeSoundexInt;
end;
+
+ TTestGeneral = class(TTestCase)
+ published
+ procedure TestIndexStr;
+ procedure TestMatchStr;
+ end;
+
+
implementation
Const
@@ -258,8 +265,56 @@ begin
TestSearch('in',0,[soWholeWord,soDown],39);
end;
+procedure TTestGeneral.TestIndexStr;
+var
+ s: UnicodeString;
+ a: array of UnicodeString;
+begin
+ s := 'Henry';
+ AssertTrue('Failed on 1', IndexStr(s, ['Brian', 'Jim', 'Henry']) = 2);
+ AssertTrue('Failed on 2', IndexStr(s, ['Brian', 'Jim', 'henry']) = -1);
+ AssertTrue('Failed on 3', IndexStr(s, ['BRIAN', 'JIM', 'HENRY']) = -1);
+ s := 'HENRY';
+ AssertTrue('Failed on 4', IndexStr(s, ['BRIAN', 'HENRY', 'JIM']) = 1);
+
+ SetLength(a, 3);
+ a[0] := 'Brian';
+ a[1] := 'Jim';
+ a[2] := 'Henry';
+ AssertTrue('Failed on 5', IndexStr(s, a) = -1);
+ s := 'Henry';
+ AssertTrue('Failed on 6', IndexStr(s, a) = 2);
+ a[2] := 'henry';
+ AssertTrue('Failed on 7', IndexStr(s, a) = -1);
+end;
+
+procedure TTestGeneral.TestMatchStr;
+var
+ s: UnicodeString;
+ a: array of UnicodeString;
+begin
+ s := 'Henry';
+ AssertEquals('Failed on 1', True, MatchStr(s, ['Brian', 'Jim', 'Henry']));
+ AssertEquals('Failed on 2', False, MatchStr(s, ['Brian', 'Jim', 'henry']));
+ AssertEquals('Failed on 3', False, MatchStr(s, ['BRIAN', 'JIM', 'HENRY']));
+ s := 'HENRY';
+ AssertEquals('Failed on 4', True, MatchStr(s, ['BRIAN', 'HENRY', 'JIM']));
+
+ SetLength(a, 3);
+ a[0] := 'Brian';
+ a[1] := 'Jim';
+ a[2] := 'Henry';
+ AssertEquals('Failed on 5', False, MatchStr(s, a));
+ s := 'Henry';
+ AssertEquals('Failed on 6', True, MatchStr(s, a));
+ a[2] := 'henry';
+ AssertEquals('Failed on 7', False, MatchStr(s, a));
+end;
+
+
initialization
RegisterTest(TTestSearchBuf);
+ RegisterTest(TTestGeneral);
writeln ('Testing with ', WhichSearchbuf, ' implementation');
writeln;
end.
diff --git a/tests/test/units/fpcunit/tstrutils.lpi b/tests/test/units/fpcunit/tstrutils.lpi
index 25e0229360..2e4bdd9052 100644
--- a/tests/test/units/fpcunit/tstrutils.lpi
+++ b/tests/test/units/fpcunit/tstrutils.lpi
@@ -1,19 +1,24 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
- <PathDelim Value="/"/>
- <Version Value="6"/>
+ <Version Value="9"/>
<General>
+ <Flags>
+ <LRSInOutputDirectory Value="False"/>
+ </Flags>
+ <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
- <IconPath Value="./"/>
- <TargetFileExt Value=""/>
- <ActiveEditorIndexAtStart Value="0"/>
+ <Title Value="FPCUnit Console test runner"/>
+ <ResourceType Value="res"/>
</General>
<VersionInfo>
- <ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
+ <StringTable ProductVersion=""/>
</VersionInfo>
+ <BuildModes Count="1">
+ <Item1 Name="default" Default="True"/>
+ </BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@@ -27,131 +32,43 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
- <RequiredPackages Count="2">
+ <RequiredPackages Count="1">
<Item1>
- <PackageName Value="FCL"/>
- </Item1>
- <Item2>
<PackageName Value="FPCUnitConsoleRunner"/>
- </Item2>
+ </Item1>
</RequiredPackages>
- <Units Count="11">
+ <Units Count="4">
<Unit0>
<Filename Value="tstrutils.lpr"/>
<IsPartOfProject Value="True"/>
- <UnitName Value="tstrutils"/>
- <CursorPos X="37" Y="6"/>
- <TopLine Value="1"/>
- <EditorIndex Value="6"/>
- <UsageCount Value="44"/>
- <Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="tcstrutils.pp"/>
<IsPartOfProject Value="True"/>
- <UnitName Value="tcstrutils"/>
- <CursorPos X="1" Y="163"/>
- <TopLine Value="148"/>
- <EditorIndex Value="0"/>
- <UsageCount Value="44"/>
- <Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="tcstringlist.pp"/>
<IsPartOfProject Value="True"/>
- <UnitName Value="tcstringlist"/>
- <CursorPos X="19" Y="47"/>
- <TopLine Value="1"/>
- <EditorIndex Value="2"/>
- <UsageCount Value="44"/>
- <Loaded Value="True"/>
</Unit2>
<Unit3>
- <Filename Value="../../../../fpc/packages/fcl-fpcunit/src/fpcunit.pp"/>
- <UnitName Value="fpcunit"/>
- <CursorPos X="6" Y="554"/>
- <TopLine Value="524"/>
- <UsageCount Value="8"/>
- </Unit3>
- <Unit4>
- <Filename Value="../../../../fpc/rtl/objpas/classes/classesh.inc"/>
- <CursorPos X="1" Y="233"/>
- <TopLine Value="212"/>
- <EditorIndex Value="4"/>
- <UsageCount Value="22"/>
- <Loaded Value="True"/>
- </Unit4>
- <Unit5>
- <Filename Value="searchbuf.inc"/>
- <CursorPos X="47" Y="117"/>
- <TopLine Value="65"/>
- <UsageCount Value="8"/>
- </Unit5>
- <Unit6>
<Filename Value="tclist.pp"/>
<IsPartOfProject Value="True"/>
- <UnitName Value="tclist"/>
- <CursorPos X="66" Y="341"/>
- <TopLine Value="346"/>
- <EditorIndex Value="3"/>
- <UsageCount Value="44"/>
- <Loaded Value="True"/>
- </Unit6>
- <Unit7>
- <Filename Value="../../../../fpc/rtl/objpas/classes/resreference.inc"/>
- <CursorPos X="39" Y="345"/>
- <TopLine Value="311"/>
- <UsageCount Value="21"/>
- </Unit7>
- <Unit8>
- <Filename Value="../../../../fpc/rtl/objpas/classes/lists.inc"/>
- <CursorPos X="20" Y="271"/>
- <TopLine Value="222"/>
- <EditorIndex Value="5"/>
- <UsageCount Value="21"/>
- <Loaded Value="True"/>
- </Unit8>
- <Unit9>
- <Filename Value="testll.pp"/>
- <UnitName Value="Testll"/>
- <CursorPos X="1" Y="1"/>
- <TopLine Value="1"/>
- <UsageCount Value="20"/>
- </Unit9>
- <Unit10>
- <Filename Value="../../../../testsi.pp"/>
- <UnitName Value="testsi"/>
- <CursorPos X="1" Y="12"/>
- <TopLine Value="1"/>
- <EditorIndex Value="1"/>
- <UsageCount Value="10"/>
- <Loaded Value="True"/>
- </Unit10>
+ </Unit3>
</Units>
- <JumpHistory Count="2" HistoryIndex="1">
- <Position1>
- <Filename Value="tcstrutils.pp"/>
- <Caret Line="164" Column="5" TopLine="109"/>
- </Position1>
- <Position2>
- <Filename Value="tcstrutils.pp"/>
- <Caret Line="163" Column="1" TopLine="161"/>
- </Position2>
- </JumpHistory>
</ProjectOptions>
<CompilerOptions>
- <Version Value="5"/>
- <CodeGeneration>
- <Generate Value="Faster"/>
- </CodeGeneration>
- <Linking>
- <Debugging>
- <GenerateDebugInfo Value="True"/>
- </Debugging>
- </Linking>
- <Other>
- <CompilerPath Value="$(CompPath)"/>
- </Other>
+ <Version Value="11"/>
+ <Target>
+ <Filename Value="tstrutils"/>
+ </Target>
+ <SearchPaths>
+ <UnitOutputDirectory Value="units"/>
+ </SearchPaths>
+ <Parsing>
+ <SyntaxOptions>
+ <AllowLabel Value="False"/>
+ </SyntaxOptions>
+ </Parsing>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
diff --git a/tests/test/units/fpcunit/tstrutils.lpr b/tests/test/units/fpcunit/tstrutils.lpr
index a11f4df654..04ee695a4e 100644
--- a/tests/test/units/fpcunit/tstrutils.lpr
+++ b/tests/test/units/fpcunit/tstrutils.lpr
@@ -3,6 +3,7 @@ program tstrutils;
{$mode objfpc}{$H+}
uses
+ cwstring,
Classes, consoletestrunner, tcstrutils, tcstringlist, tclist;
type
diff --git a/tests/test/units/fpwidestring/CollationTest_NON_IGNORABLE_SHORT.txt b/tests/test/units/fpwidestring/CollationTest_NON_IGNORABLE_SHORT.txt
index 281e47c013..0ac19ad95b 100644
--- a/tests/test/units/fpwidestring/CollationTest_NON_IGNORABLE_SHORT.txt
+++ b/tests/test/units/fpwidestring/CollationTest_NON_IGNORABLE_SHORT.txt
@@ -1,8 +1,9 @@
# File: CollationTest_CLDR_NON_IGNORABLE_SHORT.txt
-# UCA Version: 6.2.0
-# UCD Version: 6.2.0
-# Generated: 2012-09-21, 19:14:36 GMT [MD]
-# For a description of the format and usage, see CollationAuxiliary.html
+# UCA Version: 7.0.0
+# UCD Version: 7.0.0
+# Generated: 2015-01-03 [MS]
+# For a description of the format and usage, see
+# http://www.unicode.org/reports/tr35/tr35-collation.html#Root_Data_Files
0338 0334
0336 0334
@@ -13,6 +14,8 @@
20E5 0334
20EA 0334
20EB 0334
+1BC9E 0334
+0335 0334
0334 0591
0591 0334
0334 0592
@@ -243,6 +246,10 @@
1CE0 0334
0334 1CF4
1CF4 0334
+0334 1CF8
+1CF8 0334
+0334 1CF9
+1CF9 0334
0334 2D7F
2D7F 0334
0334 A8E0
@@ -291,6 +298,42 @@ FE24 0334
FE25 0334
0334 FE26
FE26 0334
+0334 FE28
+FE28 0334
+0334 FE2A
+FE2A 0334
+0334 FE2B
+FE2B 0334
+0334 FE2C
+FE2C 0334
+0334 FE2D
+FE2D 0334
+0334 102E0
+102E0 0334
+0334 11366
+11366 0334
+0334 11367
+11367 0334
+0334 11368
+11368 0334
+0334 11369
+11369 0334
+0334 1136A
+1136A 0334
+0334 1136B
+1136B 0334
+0334 1136C
+1136C 0334
+0334 11370
+11370 0334
+0334 11371
+11371 0334
+0334 11372
+11372 0334
+0334 11373
+11373 0334
+0334 11374
+11374 0334
0334 1D165
1D165 0334
0334 1D166
@@ -351,6 +394,20 @@ FE26 0334
1D243 0334
0334 1D244
1D244 0334
+0334 1E8D0
+1E8D0 0334
+0334 1E8D1
+1E8D1 0334
+0334 1E8D2
+1E8D2 0334
+0334 1E8D3
+1E8D3 0334
+0334 1E8D4
+1E8D4 0334
+0334 1E8D5
+1E8D5 0334
+0334 1E8D6
+1E8D6 0334
1CD4 0334
1CE2 0334
1CE3 0334
@@ -466,6 +523,20 @@ FE26 0334
0745 0334
0334 17DD
17DD 0334
+0334 1AB0
+1AB0 0334
+0334 1AB1
+1AB1 0334
+0334 1AB2
+1AB2 0334
+0334 1AB3
+1AB3 0334
+0334 1AB4
+1AB4 0334
+0334 1ABB
+1ABB 0334
+0334 1ABC
+1ABC 0334
0334 1DC0
1DC0 0334
0334 1DC1
@@ -494,6 +565,8 @@ FE26 0334
1DCE 0334
0334 1DD1
1DD1 0334
+0334 1DF5
+1DF5 0334
0334 1DFE
1DFE 0334
0334 20F0
@@ -504,6 +577,8 @@ FE26 0334
A67C 0334
0334 A67D
A67D 0334
+0334 10AE5
+10AE5 0334
0316 0334
0334 0316
0317 0334
@@ -578,6 +653,20 @@ A67D 0334
085A 0334
0334 085B
085B 0334
+0334 1AB5
+1AB5 0334
+0334 1AB6
+1AB6 0334
+0334 1AB7
+1AB7 0334
+0334 1AB8
+1AB8 0334
+0334 1AB9
+1AB9 0334
+0334 1ABA
+1ABA 0334
+0334 1ABD
+1ABD 0334
0334 1DC2
1DC2 0334
0334 1DCF
@@ -598,8 +687,16 @@ A67D 0334
20EE 0334
0334 20EF
20EF 0334
+0334 FE27
+FE27 0334
0334 10A0D
10A0D 0334
+0334 10AE6
+10AE6 0334
+0334 3099
+3099 0334
+0334 309A
+309A 0334
0305 0334
0334 0305
0309 0334
@@ -643,6 +740,8 @@ A67D 0334
0360 0334
0334 FE22
FE22 0334
+0334 FE29
+FE29 0334
0334 0361
0361 0334
0334 FE20
@@ -779,6 +878,8 @@ FB1E 0334
0657 0334
0334 0658
0658 0334
+0334 08FF
+08FF 0334
0334 0659
0659 0334
0334 065A
@@ -891,6 +992,18 @@ A6F1 0334
A9B3 0334
0334 110BA
110BA 0334
+0334 11173
+11173 0334
+0334 11236
+11236 0334
+0334 112E9
+112E9 0334
+0334 1133C
+1133C 0334
+0334 114C3
+114C3 0334
+0334 115C0
+115C0 0334
0334 116B7
116B7 0334
0334 11100
@@ -937,8 +1050,6 @@ A92C 0334
A92D 0334
0334 1037
1037 0334
-0334 108D
-108D 0334
0334 1A75
1A75 0334
0334 1A76
@@ -961,6 +1072,20 @@ A92D 0334
193A 0334
0334 193B
193B 0334
+0334 16B30
+16B30 0334
+0334 16B31
+16B31 0334
+0334 16B32
+16B32 0334
+0334 16B33
+16B33 0334
+0334 16B34
+16B34 0334
+0334 16B35
+16B35 0334
+0334 16B36
+16B36 0334
0334 302A
302A 0334
0334 302B
@@ -973,10 +1098,6 @@ A92D 0334
302E 0334
0334 302F
302F 0334
-0334 3099
-3099 0334
-0334 309A
-309A 0334
0334 20D0
20D0 0334
0334 20D1
@@ -1003,7 +1124,11 @@ A92D 0334
20E9 0334
0334 101FD
101FD 0334
-0335 0334
+16AF0 0334
+16AF1 0334
+16AF2 0334
+16AF3 0334
+16AF4 0334
10A39 0334
20D2 0334
20D3 0334
@@ -1043,11 +1168,6 @@ FFFE 0062
0085 0061
0085 0041
0085 0062
-180E 0021
-180E 003F
-180E 0061
-180E 0041
-180E 0062
2028 0021
2028 003F
2028 0061
@@ -1313,6 +1433,11 @@ FE31 0062
2E17 0061
2E17 0041
2E17 0062
+2E40 0021
+2E40 003F
+2E40 0061
+2E40 0041
+2E40 0062
301C 0021
301C 003F
301C 0061
@@ -1368,6 +1493,11 @@ FE10 0062
2E32 0061
2E32 0041
2E32 0062
+2E41 0021
+2E41 003F
+2E41 0061
+2E41 0041
+2E41 0062
055D 0021
055D 003F
055D 0061
@@ -1815,6 +1945,7 @@ A6F4 0062
0602 0021
0603 0021
0604 0021
+0605 0021
0610 0021
0611 0021
0612 0021
@@ -1826,6 +1957,7 @@ A6F4 0062
0618 0021
0619 0021
061A 0021
+061C 0021
0640 0021
06D6 0021
06D7 0021
@@ -1883,6 +2015,7 @@ A6F4 0062
180B 0021
180C 0021
180D 0021
+180E 0021
1A7F 0021
1B6B 0021
1B6C 0021
@@ -1919,6 +2052,8 @@ A6F4 0062
1CE7 0021
1CE8 0021
1CF4 0021
+1CF8 0021
+1CF9 0021
200B 0021
200C 0021
200D 0021
@@ -1934,6 +2069,10 @@ A6F4 0062
2062 0021
2063 0021
2064 0021
+2066 0021
+2067 0021
+2068 0021
+2069 0021
206A 0021
206B 0021
206C 0021
@@ -1983,12 +2122,34 @@ FE23 0021
FE24 0021
FE25 0021
FE26 0021
+FE28 0021
+FE2A 0021
+FE2B 0021
+FE2C 0021
+FE2D 0021
FE73 0021
FEFF 0021
FFF9 0021
FFFA 0021
FFFB 0021
+102E0 0021
110BD 0021
+11366 0021
+11367 0021
+11368 0021
+11369 0021
+1136A 0021
+1136B 0021
+1136C 0021
+11370 0021
+11371 0021
+11372 0021
+11373 0021
+11374 0021
+1BCA0 0021
+1BCA1 0021
+1BCA2 0021
+1BCA3 0021
1D165 0021
1D166 0021
1D167 0021
@@ -2030,6 +2191,13 @@ FFFB 0021
1D242 0021
1D243 0021
1D244 0021
+1E8D0 0021
+1E8D1 0021
+1E8D2 0021
+1E8D3 0021
+1E8D4 0021
+1E8D5 0021
+1E8D6 0021
E0001 0021
E0020 0021
E0021 0021
@@ -2426,6 +2594,13 @@ E01EF 0021
17D0 0021
17D1 0021
17DD 0021
+1AB0 0021
+1AB1 0021
+1AB2 0021
+1AB3 0021
+1AB4 0021
+1ABB 0021
+1ABC 0021
1DC0 0021
1DC1 0021
1DC3 0021
@@ -2440,11 +2615,14 @@ E01EF 0021
1DCD 0021
1DCE 0021
1DD1 0021
+1DF5 0021
1DFE 0021
20F0 0021
2CEF 0021
A67C 0021
A67D 0021
+10AE5 0021
+1BC9D 0021
0316 0021
0317 0021
0318 0021
@@ -2482,6 +2660,13 @@ A67D 0021
0859 0021
085A 0021
085B 0021
+1AB5 0021
+1AB6 0021
+1AB7 0021
+1AB8 0021
+1AB9 0021
+1ABA 0021
+1ABD 0021
1DC2 0021
1DCF 0021
1DD0 0021
@@ -2492,7 +2677,9 @@ A67D 0021
20ED 0021
20EE 0021
20EF 0021
+FE27 0021
10A0D 0021
+10AE6 0021
0336 0021
0337 0021
20D8 0021
@@ -2501,6 +2688,8 @@ A67D 0021
20E5 0021
20EA 0021
20EB 0021
+1BC9E 0021
+1ABE 0021
20DD 0021
20DE 0021
20DF 0021
@@ -2508,6 +2697,11 @@ A67D 0021
20E2 0021
20E3 0021
20E4 0021
+3099 0021
+FF9E 0021
+309A 0021
+FF9F 0021
+0335 0021
0305 0021
0309 0021
030F 0021
@@ -2525,12 +2719,12 @@ A67D 0021
0330 0021
0331 0021
0334 0021
-0335 0021
0339 0021
0345 0021
0358 0021
0360 0021
FE22 0021
+FE29 0021
0361 0021
FE20 0021
0483 0021
@@ -2611,6 +2805,7 @@ FC62 0021
08E6 0021
08F6 0021
0651 0021
+11237 0021
FE7D 0021
FE7C 0021
FC63 0021
@@ -2624,6 +2819,7 @@ FE7E 0021
0656 0021
0657 0021
0658 0021
+08FF 0021
0659 0021
065A 0021
065B 0021
@@ -2669,6 +2865,11 @@ FE7E 0021
135D 0021
A6F0 0021
A6F1 0021
+16AF0 0021
+16AF1 0021
+16AF2 0021
+16AF3 0021
+16AF4 0021
093C 0021
09BC 0021
0A3C 0021
@@ -2680,6 +2881,12 @@ A6F1 0021
1C37 0021
A9B3 0021
110BA 0021
+11173 0021
+11236 0021
+112E9 0021
+1133C 0021
+114C3 0021
+115C0 0021
116B7 0021
0900 0021
0901 0021
@@ -2687,7 +2894,10 @@ A9B3 0021
0A01 0021
0A81 0021
0B01 0021
+0C00 0021
0C01 0021
+0C81 0021
+0D01 0021
1B00 0021
1B01 0021
A980 0021
@@ -2695,6 +2905,10 @@ A980 0021
11080 0021
11100 0021
11180 0021
+11301 0021
+114BF 0021
+115BC 0021
+11640 0021
0902 0021
0982 0021
0A02 0021
@@ -2720,6 +2934,12 @@ A981 0021
11081 0021
11101 0021
11181 0021
+11234 0021
+112DF 0021
+11302 0021
+114C0 0021
+115BD 0021
+1163D 0021
116AB 0021
0903 0021
0983 0021
@@ -2744,6 +2964,10 @@ A983 0021
11082 0021
11102 0021
11182 0021
+11303 0021
+114C1 0021
+115BE 0021
+1163E 0021
116AC 0021
0A70 0021
0A71 0021
@@ -2775,7 +2999,6 @@ A92B 0021
A92C 0021
A92D 0021
1037 0021
-108D 0021
17C8 0021
17C9 0021
17CA 0021
@@ -2790,16 +3013,19 @@ A92D 0021
1939 0021
193A 0021
193B 0021
+16B30 0021
+16B31 0021
+16B32 0021
+16B33 0021
+16B34 0021
+16B35 0021
+16B36 0021
302A 0021
302B 0021
302C 0021
302D 0021
302E 0021
302F 0021
-3099 0021
-FF9E 0021
-309A 0021
-FF9F 0021
20D0 0021
20D1 0021
20D2 0021
@@ -2968,6 +3194,7 @@ FE15 0062
0602 003F
0603 003F
0604 003F
+0605 003F
0610 003F
0611 003F
0612 003F
@@ -2979,6 +3206,7 @@ FE15 0062
0618 003F
0619 003F
061A 003F
+061C 003F
0640 003F
06D6 003F
06D7 003F
@@ -3036,6 +3264,7 @@ FE15 0062
180B 003F
180C 003F
180D 003F
+180E 003F
1A7F 003F
1B6B 003F
1B6C 003F
@@ -3072,6 +3301,8 @@ FE15 0062
1CE7 003F
1CE8 003F
1CF4 003F
+1CF8 003F
+1CF9 003F
200B 003F
200C 003F
200D 003F
@@ -3087,6 +3318,10 @@ FE15 0062
2062 003F
2063 003F
2064 003F
+2066 003F
+2067 003F
+2068 003F
+2069 003F
206A 003F
206B 003F
206C 003F
@@ -3136,12 +3371,34 @@ FE23 003F
FE24 003F
FE25 003F
FE26 003F
+FE28 003F
+FE2A 003F
+FE2B 003F
+FE2C 003F
+FE2D 003F
FE73 003F
FEFF 003F
FFF9 003F
FFFA 003F
FFFB 003F
+102E0 003F
110BD 003F
+11366 003F
+11367 003F
+11368 003F
+11369 003F
+1136A 003F
+1136B 003F
+1136C 003F
+11370 003F
+11371 003F
+11372 003F
+11373 003F
+11374 003F
+1BCA0 003F
+1BCA1 003F
+1BCA2 003F
+1BCA3 003F
1D165 003F
1D166 003F
1D167 003F
@@ -3183,6 +3440,13 @@ FFFB 003F
1D242 003F
1D243 003F
1D244 003F
+1E8D0 003F
+1E8D1 003F
+1E8D2 003F
+1E8D3 003F
+1E8D4 003F
+1E8D5 003F
+1E8D6 003F
E0001 003F
E0020 003F
E0021 003F
@@ -3579,6 +3843,13 @@ E01EF 003F
17D0 003F
17D1 003F
17DD 003F
+1AB0 003F
+1AB1 003F
+1AB2 003F
+1AB3 003F
+1AB4 003F
+1ABB 003F
+1ABC 003F
1DC0 003F
1DC1 003F
1DC3 003F
@@ -3593,11 +3864,14 @@ E01EF 003F
1DCD 003F
1DCE 003F
1DD1 003F
+1DF5 003F
1DFE 003F
20F0 003F
2CEF 003F
A67C 003F
A67D 003F
+10AE5 003F
+1BC9D 003F
0316 003F
0317 003F
0318 003F
@@ -3635,6 +3909,13 @@ A67D 003F
0859 003F
085A 003F
085B 003F
+1AB5 003F
+1AB6 003F
+1AB7 003F
+1AB8 003F
+1AB9 003F
+1ABA 003F
+1ABD 003F
1DC2 003F
1DCF 003F
1DD0 003F
@@ -3645,7 +3926,9 @@ A67D 003F
20ED 003F
20EE 003F
20EF 003F
+FE27 003F
10A0D 003F
+10AE6 003F
0336 003F
0337 003F
20D8 003F
@@ -3654,6 +3937,8 @@ A67D 003F
20E5 003F
20EA 003F
20EB 003F
+1BC9E 003F
+1ABE 003F
20DD 003F
20DE 003F
20DF 003F
@@ -3661,6 +3946,11 @@ A67D 003F
20E2 003F
20E3 003F
20E4 003F
+3099 003F
+FF9E 003F
+309A 003F
+FF9F 003F
+0335 003F
0305 003F
0309 003F
030F 003F
@@ -3678,12 +3968,12 @@ A67D 003F
0330 003F
0331 003F
0334 003F
-0335 003F
0339 003F
0345 003F
0358 003F
0360 003F
FE22 003F
+FE29 003F
0361 003F
FE20 003F
0483 003F
@@ -3764,6 +4054,7 @@ FC62 003F
08E6 003F
08F6 003F
0651 003F
+11237 003F
FE7D 003F
FE7C 003F
FC63 003F
@@ -3777,6 +4068,7 @@ FE7E 003F
0656 003F
0657 003F
0658 003F
+08FF 003F
0659 003F
065A 003F
065B 003F
@@ -3822,6 +4114,11 @@ FE7E 003F
135D 003F
A6F0 003F
A6F1 003F
+16AF0 003F
+16AF1 003F
+16AF2 003F
+16AF3 003F
+16AF4 003F
093C 003F
09BC 003F
0A3C 003F
@@ -3833,6 +4130,12 @@ A6F1 003F
1C37 003F
A9B3 003F
110BA 003F
+11173 003F
+11236 003F
+112E9 003F
+1133C 003F
+114C3 003F
+115C0 003F
116B7 003F
0900 003F
0901 003F
@@ -3840,7 +4143,10 @@ A9B3 003F
0A01 003F
0A81 003F
0B01 003F
+0C00 003F
0C01 003F
+0C81 003F
+0D01 003F
1B00 003F
1B01 003F
A980 003F
@@ -3848,6 +4154,10 @@ A980 003F
11080 003F
11100 003F
11180 003F
+11301 003F
+114BF 003F
+115BC 003F
+11640 003F
0902 003F
0982 003F
0A02 003F
@@ -3873,6 +4183,12 @@ A981 003F
11081 003F
11101 003F
11181 003F
+11234 003F
+112DF 003F
+11302 003F
+114C0 003F
+115BD 003F
+1163D 003F
116AB 003F
0903 003F
0983 003F
@@ -3897,6 +4213,10 @@ A983 003F
11082 003F
11102 003F
11182 003F
+11303 003F
+114C1 003F
+115BE 003F
+1163E 003F
116AC 003F
0A70 003F
0A71 003F
@@ -3928,7 +4248,6 @@ A92B 003F
A92C 003F
A92D 003F
1037 003F
-108D 003F
17C8 003F
17C9 003F
17CA 003F
@@ -3943,16 +4262,19 @@ A92D 003F
1939 003F
193A 003F
193B 003F
+16B30 003F
+16B31 003F
+16B32 003F
+16B33 003F
+16B34 003F
+16B35 003F
+16B36 003F
302A 003F
302B 003F
302C 003F
302D 003F
302E 003F
302F 003F
-3099 003F
-FF9E 003F
-309A 003F
-FF9F 003F
20D0 003F
20D1 003F
20D2 003F
@@ -4174,6 +4496,11 @@ FE52 0062
2E30 0061
2E30 0041
2E30 0062
+2E3C 0021
+2E3C 003F
+2E3C 0061
+2E3C 0041
+2E3C 0062
A4FF 0021
A4FF 003F
A4FF 0061
@@ -4189,6 +4516,16 @@ A6F3 003F
A6F3 0061
A6F3 0041
A6F3 0062
+16AF5 0021
+16AF5 003F
+16AF5 0061
+16AF5 0041
+16AF5 0062
+1BC9F 0021
+1BC9F 003F
+1BC9F 0061
+1BC9F 0041
+1BC9F 0062
3002 0021
FF61 0021
FE12 0021
@@ -4414,6 +4751,46 @@ ABEB 0062
111C6 0061
111C6 0041
111C6 0062
+11238 0021
+11238 003F
+11238 0061
+11238 0041
+11238 0062
+11239 0021
+11239 003F
+11239 0061
+11239 0041
+11239 0062
+115C2 0021
+115C2 003F
+115C2 0061
+115C2 0041
+115C2 0062
+115C3 0021
+115C3 003F
+115C3 0061
+115C3 0041
+115C3 0062
+11641 0021
+11641 003F
+11641 0061
+11641 0041
+11641 0062
+11642 0021
+11642 003F
+11642 0061
+11642 0041
+11642 0062
+16A6E 0021
+16A6E 003F
+16A6E 0061
+16A6E 0041
+16A6E 0062
+16A6F 0021
+16A6F 003F
+16A6F 0061
+16A6F 0041
+16A6F 0062
1C7E 0021
1C7E 003F
1C7E 0061
@@ -4649,6 +5026,11 @@ A95F 0062
2E2D 0061
2E2D 0041
2E2D 0062
+2E3D 0021
+2E3D 003F
+2E3D 0061
+2E3D 0041
+2E3D 0062
2CFC 0021
2CFC 003F
2CFC 0061
@@ -4719,6 +5101,11 @@ A95F 0062
12473 0061
12473 0041
12473 0062
+12474 0021
+12474 003F
+12474 0061
+12474 0041
+12474 0062
0027 0021
FF07 0021
0027 003F
@@ -4789,6 +5176,11 @@ FF02 0062
201F 0061
201F 0041
201F 0062
+2E42 0021
+2E42 003F
+2E42 0061
+2E42 0041
+2E42 0062
301D 0021
301D 003F
301D 0061
@@ -5679,6 +6071,26 @@ FE38 0062
2046 0061
2046 0041
2046 0062
+2308 0021
+2308 003F
+2308 0061
+2308 0041
+2308 0062
+2309 0021
+2309 003F
+2309 0061
+2309 0041
+2309 0062
+230A 0021
+230A 003F
+230A 0061
+230A 0041
+230A 0062
+230B 0021
+230B 003F
+230B 0061
+230B 0041
+230B 0062
29FC 0021
29FC 003F
29FC 0061
@@ -6294,6 +6706,11 @@ FD3F 0062
2016 0061
2016 0041
2016 0062
+2E3E 0021
+2E3E 003F
+2E3E 0061
+2E3E 0041
+2E3E 0062
29D8 0021
29D8 003F
29D8 0061
@@ -6334,6 +6751,11 @@ FD3F 0062
204B 0061
204B 0041
204B 0062
+2E3F 0021
+2E3F 003F
+2E3F 0061
+2E3F 0041
+2E3F 0062
0040 0021
FF20 0021
FE6B 0021
@@ -7164,6 +7586,11 @@ AA5C 003F
AA5C 0061
AA5C 0041
AA5C 0062
+1056F 0021
+1056F 003F
+1056F 0061
+1056F 0041
+1056F 0062
11049 0021
11049 003F
11049 0061
@@ -7229,6 +7656,61 @@ AA5C 0062
10B39 0061
10B39 0041
10B39 0062
+10AF0 0021
+10AF0 003F
+10AF0 0061
+10AF0 0041
+10AF0 0062
+10AF1 0021
+10AF1 003F
+10AF1 0061
+10AF1 0041
+10AF1 0062
+10AF2 0021
+10AF2 003F
+10AF2 0061
+10AF2 0041
+10AF2 0062
+10AF3 0021
+10AF3 003F
+10AF3 0061
+10AF3 0041
+10AF3 0062
+10AF4 0021
+10AF4 003F
+10AF4 0061
+10AF4 0041
+10AF4 0062
+10AF5 0021
+10AF5 003F
+10AF5 0061
+10AF5 0041
+10AF5 0062
+10AF6 0021
+10AF6 003F
+10AF6 0061
+10AF6 0041
+10AF6 0062
+10B99 0021
+10B99 003F
+10B99 0061
+10B99 0041
+10B99 0062
+10B9A 0021
+10B9A 003F
+10B9A 0061
+10B9A 0041
+10B9A 0062
+10B9B 0021
+10B9B 003F
+10B9B 0061
+10B9B 0041
+10B9B 0062
+10B9C 0021
+10B9C 003F
+10B9C 0061
+10B9C 0041
+10B9C 0062
110BB 0021
110BB 003F
110BB 0061
@@ -7239,11 +7721,121 @@ AA5C 0062
110BC 0061
110BC 0041
110BC 0062
+11174 0021
+11174 003F
+11174 0061
+11174 0041
+11174 0062
+11175 0021
+11175 003F
+11175 0061
+11175 0041
+11175 0062
+111CD 0021
+111CD 003F
+111CD 0061
+111CD 0041
+111CD 0062
111C7 0021
111C7 003F
111C7 0061
111C7 0041
111C7 0062
+1123A 0021
+1123A 003F
+1123A 0061
+1123A 0041
+1123A 0062
+1123B 0021
+1123B 003F
+1123B 0061
+1123B 0041
+1123B 0062
+1123C 0021
+1123C 003F
+1123C 0061
+1123C 0041
+1123C 0062
+1123D 0021
+1123D 003F
+1123D 0061
+1123D 0041
+1123D 0062
+114C6 0021
+114C6 003F
+114C6 0061
+114C6 0041
+114C6 0062
+115C1 0021
+115C1 003F
+115C1 0061
+115C1 0041
+115C1 0062
+115C4 0021
+115C4 003F
+115C4 0061
+115C4 0041
+115C4 0062
+115C5 0021
+115C5 003F
+115C5 0061
+115C5 0041
+115C5 0062
+115C6 0021
+115C6 003F
+115C6 0061
+115C6 0041
+115C6 0062
+115C7 0021
+115C7 003F
+115C7 0061
+115C7 0041
+115C7 0062
+115C8 0021
+115C8 003F
+115C8 0061
+115C8 0041
+115C8 0062
+115C9 0021
+115C9 003F
+115C9 0061
+115C9 0041
+115C9 0062
+11643 0021
+11643 003F
+11643 0061
+11643 0041
+11643 0062
+16B37 0021
+16B37 003F
+16B37 0061
+16B37 0041
+16B37 0062
+16B38 0021
+16B38 003F
+16B38 0061
+16B38 0041
+16B38 0062
+16B39 0021
+16B39 003F
+16B39 0061
+16B39 0041
+16B39 0062
+16B3A 0021
+16B3A 003F
+16B3A 0061
+16B3A 0041
+16B3A 0062
+16B3B 0021
+16B3B 003F
+16B3B 0061
+16B3B 0041
+16B3B 0062
+16B44 0021
+16B44 003F
+16B44 0061
+16B44 0041
+16B44 0062
10A7F 0021
10A7F 003F
10A7F 0061
@@ -7947,6 +8539,11 @@ A78A 003F
A78A 0061
A78A 0041
A78A 0062
+AB5B 0021
+AB5B 003F
+AB5B 0061
+AB5B 0041
+AB5B 0062
00B0 0021
00B0 003F
00B0 0061
@@ -7967,6 +8564,16 @@ A78A 0062
0482 0061
0482 0041
0482 0062
+058D 0021
+058D 003F
+058D 0061
+058D 0041
+058D 0062
+058E 0021
+058E 003F
+058E 0061
+058E 0041
+058E 0062
0608 0021
0608 003F
0608 0061
@@ -10995,26 +11602,6 @@ FF5E 0062
2307 0061
2307 0041
2307 0062
-2308 0021
-2308 003F
-2308 0061
-2308 0041
-2308 0062
-2309 0021
-2309 003F
-2309 0061
-2309 0041
-2309 0062
-230A 0021
-230A 003F
-230A 0061
-230A 0041
-230A 0062
-230B 0021
-230B 003F
-230B 0061
-230B 0041
-230B 0062
230C 0021
230C 003F
230C 0061
@@ -12165,6 +12752,41 @@ FF5E 0062
23F3 0061
23F3 0041
23F3 0062
+23F4 0021
+23F4 003F
+23F4 0061
+23F4 0041
+23F4 0062
+23F5 0021
+23F5 003F
+23F5 0061
+23F5 0041
+23F5 0062
+23F6 0021
+23F6 003F
+23F6 0061
+23F6 0041
+23F6 0062
+23F7 0021
+23F7 003F
+23F7 0061
+23F7 0041
+23F7 0062
+23F8 0021
+23F8 003F
+23F8 0061
+23F8 0041
+23F8 0062
+23F9 0021
+23F9 003F
+23F9 0061
+23F9 0041
+23F9 0062
+23FA 0021
+23FA 003F
+23FA 0061
+23FA 0041
+23FA 0062
2400 0021
2400 003F
2400 0061
@@ -15035,6 +15657,11 @@ FFEE 0062
1F1FF 0061
1F1FF 0041
1F1FF 0062
+2700 0021
+2700 003F
+2700 0061
+2700 0041
+2700 0062
2701 0021
2701 003F
2701 0061
@@ -18817,6 +19444,21 @@ FFEE 0062
2B4C 0061
2B4C 0041
2B4C 0062
+2B4D 0021
+2B4D 003F
+2B4D 0061
+2B4D 0041
+2B4D 0062
+2B4E 0021
+2B4E 003F
+2B4E 0061
+2B4E 0041
+2B4E 0062
+2B4F 0021
+2B4F 003F
+2B4F 0061
+2B4F 0041
+2B4F 0062
2B50 0021
2B50 003F
2B50 0061
@@ -18867,6 +19509,566 @@ FFEE 0062
2B59 0061
2B59 0041
2B59 0062
+2B5A 0021
+2B5A 003F
+2B5A 0061
+2B5A 0041
+2B5A 0062
+2B5B 0021
+2B5B 003F
+2B5B 0061
+2B5B 0041
+2B5B 0062
+2B5C 0021
+2B5C 003F
+2B5C 0061
+2B5C 0041
+2B5C 0062
+2B5D 0021
+2B5D 003F
+2B5D 0061
+2B5D 0041
+2B5D 0062
+2B5E 0021
+2B5E 003F
+2B5E 0061
+2B5E 0041
+2B5E 0062
+2B5F 0021
+2B5F 003F
+2B5F 0061
+2B5F 0041
+2B5F 0062
+2B60 0021
+2B60 003F
+2B60 0061
+2B60 0041
+2B60 0062
+2B61 0021
+2B61 003F
+2B61 0061
+2B61 0041
+2B61 0062
+2B62 0021
+2B62 003F
+2B62 0061
+2B62 0041
+2B62 0062
+2B63 0021
+2B63 003F
+2B63 0061
+2B63 0041
+2B63 0062
+2B64 0021
+2B64 003F
+2B64 0061
+2B64 0041
+2B64 0062
+2B65 0021
+2B65 003F
+2B65 0061
+2B65 0041
+2B65 0062
+2B66 0021
+2B66 003F
+2B66 0061
+2B66 0041
+2B66 0062
+2B67 0021
+2B67 003F
+2B67 0061
+2B67 0041
+2B67 0062
+2B68 0021
+2B68 003F
+2B68 0061
+2B68 0041
+2B68 0062
+2B69 0021
+2B69 003F
+2B69 0061
+2B69 0041
+2B69 0062
+2B6A 0021
+2B6A 003F
+2B6A 0061
+2B6A 0041
+2B6A 0062
+2B6B 0021
+2B6B 003F
+2B6B 0061
+2B6B 0041
+2B6B 0062
+2B6C 0021
+2B6C 003F
+2B6C 0061
+2B6C 0041
+2B6C 0062
+2B6D 0021
+2B6D 003F
+2B6D 0061
+2B6D 0041
+2B6D 0062
+2B6E 0021
+2B6E 003F
+2B6E 0061
+2B6E 0041
+2B6E 0062
+2B6F 0021
+2B6F 003F
+2B6F 0061
+2B6F 0041
+2B6F 0062
+2B70 0021
+2B70 003F
+2B70 0061
+2B70 0041
+2B70 0062
+2B71 0021
+2B71 003F
+2B71 0061
+2B71 0041
+2B71 0062
+2B72 0021
+2B72 003F
+2B72 0061
+2B72 0041
+2B72 0062
+2B73 0021
+2B73 003F
+2B73 0061
+2B73 0041
+2B73 0062
+2B76 0021
+2B76 003F
+2B76 0061
+2B76 0041
+2B76 0062
+2B77 0021
+2B77 003F
+2B77 0061
+2B77 0041
+2B77 0062
+2B78 0021
+2B78 003F
+2B78 0061
+2B78 0041
+2B78 0062
+2B79 0021
+2B79 003F
+2B79 0061
+2B79 0041
+2B79 0062
+2B7A 0021
+2B7A 003F
+2B7A 0061
+2B7A 0041
+2B7A 0062
+2B7B 0021
+2B7B 003F
+2B7B 0061
+2B7B 0041
+2B7B 0062
+2B7C 0021
+2B7C 003F
+2B7C 0061
+2B7C 0041
+2B7C 0062
+2B7D 0021
+2B7D 003F
+2B7D 0061
+2B7D 0041
+2B7D 0062
+2B7E 0021
+2B7E 003F
+2B7E 0061
+2B7E 0041
+2B7E 0062
+2B7F 0021
+2B7F 003F
+2B7F 0061
+2B7F 0041
+2B7F 0062
+2B80 0021
+2B80 003F
+2B80 0061
+2B80 0041
+2B80 0062
+2B81 0021
+2B81 003F
+2B81 0061
+2B81 0041
+2B81 0062
+2B82 0021
+2B82 003F
+2B82 0061
+2B82 0041
+2B82 0062
+2B83 0021
+2B83 003F
+2B83 0061
+2B83 0041
+2B83 0062
+2B84 0021
+2B84 003F
+2B84 0061
+2B84 0041
+2B84 0062
+2B85 0021
+2B85 003F
+2B85 0061
+2B85 0041
+2B85 0062
+2B86 0021
+2B86 003F
+2B86 0061
+2B86 0041
+2B86 0062
+2B87 0021
+2B87 003F
+2B87 0061
+2B87 0041
+2B87 0062
+2B88 0021
+2B88 003F
+2B88 0061
+2B88 0041
+2B88 0062
+2B89 0021
+2B89 003F
+2B89 0061
+2B89 0041
+2B89 0062
+2B8A 0021
+2B8A 003F
+2B8A 0061
+2B8A 0041
+2B8A 0062
+2B8B 0021
+2B8B 003F
+2B8B 0061
+2B8B 0041
+2B8B 0062
+2B8C 0021
+2B8C 003F
+2B8C 0061
+2B8C 0041
+2B8C 0062
+2B8D 0021
+2B8D 003F
+2B8D 0061
+2B8D 0041
+2B8D 0062
+2B8E 0021
+2B8E 003F
+2B8E 0061
+2B8E 0041
+2B8E 0062
+2B8F 0021
+2B8F 003F
+2B8F 0061
+2B8F 0041
+2B8F 0062
+2B90 0021
+2B90 003F
+2B90 0061
+2B90 0041
+2B90 0062
+2B91 0021
+2B91 003F
+2B91 0061
+2B91 0041
+2B91 0062
+2B92 0021
+2B92 003F
+2B92 0061
+2B92 0041
+2B92 0062
+2B93 0021
+2B93 003F
+2B93 0061
+2B93 0041
+2B93 0062
+2B94 0021
+2B94 003F
+2B94 0061
+2B94 0041
+2B94 0062
+2B95 0021
+2B95 003F
+2B95 0061
+2B95 0041
+2B95 0062
+2B98 0021
+2B98 003F
+2B98 0061
+2B98 0041
+2B98 0062
+2B99 0021
+2B99 003F
+2B99 0061
+2B99 0041
+2B99 0062
+2B9A 0021
+2B9A 003F
+2B9A 0061
+2B9A 0041
+2B9A 0062
+2B9B 0021
+2B9B 003F
+2B9B 0061
+2B9B 0041
+2B9B 0062
+2B9C 0021
+2B9C 003F
+2B9C 0061
+2B9C 0041
+2B9C 0062
+2B9D 0021
+2B9D 003F
+2B9D 0061
+2B9D 0041
+2B9D 0062
+2B9E 0021
+2B9E 003F
+2B9E 0061
+2B9E 0041
+2B9E 0062
+2B9F 0021
+2B9F 003F
+2B9F 0061
+2B9F 0041
+2B9F 0062
+2BA0 0021
+2BA0 003F
+2BA0 0061
+2BA0 0041
+2BA0 0062
+2BA1 0021
+2BA1 003F
+2BA1 0061
+2BA1 0041
+2BA1 0062
+2BA2 0021
+2BA2 003F
+2BA2 0061
+2BA2 0041
+2BA2 0062
+2BA3 0021
+2BA3 003F
+2BA3 0061
+2BA3 0041
+2BA3 0062
+2BA4 0021
+2BA4 003F
+2BA4 0061
+2BA4 0041
+2BA4 0062
+2BA5 0021
+2BA5 003F
+2BA5 0061
+2BA5 0041
+2BA5 0062
+2BA6 0021
+2BA6 003F
+2BA6 0061
+2BA6 0041
+2BA6 0062
+2BA7 0021
+2BA7 003F
+2BA7 0061
+2BA7 0041
+2BA7 0062
+2BA8 0021
+2BA8 003F
+2BA8 0061
+2BA8 0041
+2BA8 0062
+2BA9 0021
+2BA9 003F
+2BA9 0061
+2BA9 0041
+2BA9 0062
+2BAA 0021
+2BAA 003F
+2BAA 0061
+2BAA 0041
+2BAA 0062
+2BAB 0021
+2BAB 003F
+2BAB 0061
+2BAB 0041
+2BAB 0062
+2BAC 0021
+2BAC 003F
+2BAC 0061
+2BAC 0041
+2BAC 0062
+2BAD 0021
+2BAD 003F
+2BAD 0061
+2BAD 0041
+2BAD 0062
+2BAE 0021
+2BAE 003F
+2BAE 0061
+2BAE 0041
+2BAE 0062
+2BAF 0021
+2BAF 003F
+2BAF 0061
+2BAF 0041
+2BAF 0062
+2BB0 0021
+2BB0 003F
+2BB0 0061
+2BB0 0041
+2BB0 0062
+2BB1 0021
+2BB1 003F
+2BB1 0061
+2BB1 0041
+2BB1 0062
+2BB2 0021
+2BB2 003F
+2BB2 0061
+2BB2 0041
+2BB2 0062
+2BB3 0021
+2BB3 003F
+2BB3 0061
+2BB3 0041
+2BB3 0062
+2BB4 0021
+2BB4 003F
+2BB4 0061
+2BB4 0041
+2BB4 0062
+2BB5 0021
+2BB5 003F
+2BB5 0061
+2BB5 0041
+2BB5 0062
+2BB6 0021
+2BB6 003F
+2BB6 0061
+2BB6 0041
+2BB6 0062
+2BB7 0021
+2BB7 003F
+2BB7 0061
+2BB7 0041
+2BB7 0062
+2BB8 0021
+2BB8 003F
+2BB8 0061
+2BB8 0041
+2BB8 0062
+2BB9 0021
+2BB9 003F
+2BB9 0061
+2BB9 0041
+2BB9 0062
+2BBD 0021
+2BBD 003F
+2BBD 0061
+2BBD 0041
+2BBD 0062
+2BBE 0021
+2BBE 003F
+2BBE 0061
+2BBE 0041
+2BBE 0062
+2BBF 0021
+2BBF 003F
+2BBF 0061
+2BBF 0041
+2BBF 0062
+2BC0 0021
+2BC0 003F
+2BC0 0061
+2BC0 0041
+2BC0 0062
+2BC1 0021
+2BC1 003F
+2BC1 0061
+2BC1 0041
+2BC1 0062
+2BC2 0021
+2BC2 003F
+2BC2 0061
+2BC2 0041
+2BC2 0062
+2BC3 0021
+2BC3 003F
+2BC3 0061
+2BC3 0041
+2BC3 0062
+2BC4 0021
+2BC4 003F
+2BC4 0061
+2BC4 0041
+2BC4 0062
+2BC5 0021
+2BC5 003F
+2BC5 0061
+2BC5 0041
+2BC5 0062
+2BC6 0021
+2BC6 003F
+2BC6 0061
+2BC6 0041
+2BC6 0062
+2BC7 0021
+2BC7 003F
+2BC7 0061
+2BC7 0041
+2BC7 0062
+2BC8 0021
+2BC8 003F
+2BC8 0061
+2BC8 0041
+2BC8 0062
+2BCA 0021
+2BCA 003F
+2BCA 0061
+2BCA 0041
+2BCA 0062
+2BCB 0021
+2BCB 003F
+2BCB 0061
+2BCB 0041
+2BCB 0062
+2BCC 0021
+2BCC 003F
+2BCC 0061
+2BCC 0041
+2BCC 0062
+2BCD 0021
+2BCD 003F
+2BCD 0061
+2BCD 0041
+2BCD 0062
+2BCE 0021
+2BCE 003F
+2BCE 0061
+2BCE 0041
+2BCE 0062
+2BCF 0021
+2BCF 003F
+2BCF 0061
+2BCF 0041
+2BCF 0062
+2BD0 0021
+2BD0 003F
+2BD0 0061
+2BD0 0041
+2BD0 0062
+2BD1 0021
+2BD1 003F
+2BD1 0061
+2BD1 0041
+2BD1 0062
2CE5 0021
2CE5 003F
2CE5 0061
@@ -21407,6 +22609,11 @@ A4C6 0062
10189 0061
10189 0041
10189 0062
+1018C 0021
+1018C 003F
+1018C 0061
+1018C 0041
+1018C 0062
10190 0021
10190 003F
10190 0061
@@ -21467,6 +22674,11 @@ A4C6 0062
1019B 0061
1019B 0041
1019B 0062
+101A0 0021
+101A0 003F
+101A0 0061
+101A0 0041
+101A0 0062
101D0 0021
101D0 003F
101D0 0061
@@ -21692,6 +22904,41 @@ A4C6 0062
101FC 0061
101FC 0041
101FC 0062
+10877 0021
+10877 003F
+10877 0061
+10877 0041
+10877 0062
+10878 0021
+10878 003F
+10878 0061
+10878 0041
+10878 0062
+16B3C 0021
+16B3C 003F
+16B3C 0061
+16B3C 0041
+16B3C 0062
+16B3D 0021
+16B3D 003F
+16B3D 0061
+16B3D 0041
+16B3D 0062
+16B3E 0021
+16B3E 003F
+16B3E 0061
+16B3E 0041
+16B3E 0062
+16B3F 0021
+16B3F 003F
+16B3F 0061
+16B3F 0041
+16B3F 0062
+16B45 0021
+16B45 003F
+16B45 0061
+16B45 0041
+16B45 0062
1D000 0021
1D000 003F
1D000 0061
@@ -24230,6 +25477,11 @@ A4C6 0062
1D245 0061
1D245 0041
1D245 0062
+1BC9C 0021
+1BC9C 003F
+1BC9C 0061
+1BC9C 0041
+1BC9C 0062
1F000 0021
1F000 003F
1F000 0061
@@ -25095,6 +26347,11 @@ A4C6 0062
1F0BE 0061
1F0BE 0041
1F0BE 0062
+1F0BF 0021
+1F0BF 003F
+1F0BF 0061
+1F0BF 0041
+1F0BF 0062
1F0C1 0021
1F0C1 003F
1F0C1 0061
@@ -25245,6 +26502,116 @@ A4C6 0062
1F0DF 0061
1F0DF 0041
1F0DF 0062
+1F0E0 0021
+1F0E0 003F
+1F0E0 0061
+1F0E0 0041
+1F0E0 0062
+1F0E1 0021
+1F0E1 003F
+1F0E1 0061
+1F0E1 0041
+1F0E1 0062
+1F0E2 0021
+1F0E2 003F
+1F0E2 0061
+1F0E2 0041
+1F0E2 0062
+1F0E3 0021
+1F0E3 003F
+1F0E3 0061
+1F0E3 0041
+1F0E3 0062
+1F0E4 0021
+1F0E4 003F
+1F0E4 0061
+1F0E4 0041
+1F0E4 0062
+1F0E5 0021
+1F0E5 003F
+1F0E5 0061
+1F0E5 0041
+1F0E5 0062
+1F0E6 0021
+1F0E6 003F
+1F0E6 0061
+1F0E6 0041
+1F0E6 0062
+1F0E7 0021
+1F0E7 003F
+1F0E7 0061
+1F0E7 0041
+1F0E7 0062
+1F0E8 0021
+1F0E8 003F
+1F0E8 0061
+1F0E8 0041
+1F0E8 0062
+1F0E9 0021
+1F0E9 003F
+1F0E9 0061
+1F0E9 0041
+1F0E9 0062
+1F0EA 0021
+1F0EA 003F
+1F0EA 0061
+1F0EA 0041
+1F0EA 0062
+1F0EB 0021
+1F0EB 003F
+1F0EB 0061
+1F0EB 0041
+1F0EB 0062
+1F0EC 0021
+1F0EC 003F
+1F0EC 0061
+1F0EC 0041
+1F0EC 0062
+1F0ED 0021
+1F0ED 003F
+1F0ED 0061
+1F0ED 0041
+1F0ED 0062
+1F0EE 0021
+1F0EE 003F
+1F0EE 0061
+1F0EE 0041
+1F0EE 0062
+1F0EF 0021
+1F0EF 003F
+1F0EF 0061
+1F0EF 0041
+1F0EF 0062
+1F0F0 0021
+1F0F0 003F
+1F0F0 0061
+1F0F0 0041
+1F0F0 0062
+1F0F1 0021
+1F0F1 003F
+1F0F1 0061
+1F0F1 0041
+1F0F1 0062
+1F0F2 0021
+1F0F2 003F
+1F0F2 0061
+1F0F2 0041
+1F0F2 0062
+1F0F3 0021
+1F0F3 003F
+1F0F3 0061
+1F0F3 0041
+1F0F3 0062
+1F0F4 0021
+1F0F4 003F
+1F0F4 0061
+1F0F4 0041
+1F0F4 0062
+1F0F5 0021
+1F0F5 003F
+1F0F5 0061
+1F0F5 0041
+1F0F5 0062
1F300 0021
1F300 003F
1F300 0061
@@ -25410,6 +26777,66 @@ A4C6 0062
1F320 0061
1F320 0041
1F320 0062
+1F321 0021
+1F321 003F
+1F321 0061
+1F321 0041
+1F321 0062
+1F322 0021
+1F322 003F
+1F322 0061
+1F322 0041
+1F322 0062
+1F323 0021
+1F323 003F
+1F323 0061
+1F323 0041
+1F323 0062
+1F324 0021
+1F324 003F
+1F324 0061
+1F324 0041
+1F324 0062
+1F325 0021
+1F325 003F
+1F325 0061
+1F325 0041
+1F325 0062
+1F326 0021
+1F326 003F
+1F326 0061
+1F326 0041
+1F326 0062
+1F327 0021
+1F327 003F
+1F327 0061
+1F327 0041
+1F327 0062
+1F328 0021
+1F328 003F
+1F328 0061
+1F328 0041
+1F328 0062
+1F329 0021
+1F329 003F
+1F329 0061
+1F329 0041
+1F329 0062
+1F32A 0021
+1F32A 003F
+1F32A 0061
+1F32A 0041
+1F32A 0062
+1F32B 0021
+1F32B 003F
+1F32B 0061
+1F32B 0041
+1F32B 0062
+1F32C 0021
+1F32C 003F
+1F32C 0061
+1F32C 0041
+1F32C 0062
1F330 0021
1F330 003F
1F330 0061
@@ -25440,6 +26867,11 @@ A4C6 0062
1F335 0061
1F335 0041
1F335 0062
+1F336 0021
+1F336 003F
+1F336 0061
+1F336 0041
+1F336 0062
1F337 0021
1F337 003F
1F337 0061
@@ -25790,6 +27222,11 @@ A4C6 0062
1F37C 0061
1F37C 0041
1F37C 0062
+1F37D 0021
+1F37D 003F
+1F37D 0061
+1F37D 0041
+1F37D 0062
1F380 0021
1F380 003F
1F380 0061
@@ -25890,6 +27327,66 @@ A4C6 0062
1F393 0061
1F393 0041
1F393 0062
+1F394 0021
+1F394 003F
+1F394 0061
+1F394 0041
+1F394 0062
+1F395 0021
+1F395 003F
+1F395 0061
+1F395 0041
+1F395 0062
+1F396 0021
+1F396 003F
+1F396 0061
+1F396 0041
+1F396 0062
+1F397 0021
+1F397 003F
+1F397 0061
+1F397 0041
+1F397 0062
+1F398 0021
+1F398 003F
+1F398 0061
+1F398 0041
+1F398 0062
+1F399 0021
+1F399 003F
+1F399 0061
+1F399 0041
+1F399 0062
+1F39A 0021
+1F39A 003F
+1F39A 0061
+1F39A 0041
+1F39A 0062
+1F39B 0021
+1F39B 003F
+1F39B 0061
+1F39B 0041
+1F39B 0062
+1F39C 0021
+1F39C 003F
+1F39C 0061
+1F39C 0041
+1F39C 0062
+1F39D 0021
+1F39D 003F
+1F39D 0061
+1F39D 0041
+1F39D 0062
+1F39E 0021
+1F39E 003F
+1F39E 0061
+1F39E 0041
+1F39E 0062
+1F39F 0021
+1F39F 003F
+1F39F 0061
+1F39F 0041
+1F39F 0062
1F3A0 0021
1F3A0 003F
1F3A0 0061
@@ -26075,6 +27572,11 @@ A4C6 0062
1F3C4 0061
1F3C4 0041
1F3C4 0062
+1F3C5 0021
+1F3C5 003F
+1F3C5 0061
+1F3C5 0041
+1F3C5 0062
1F3C6 0021
1F3C6 003F
1F3C6 0061
@@ -26100,6 +27602,86 @@ A4C6 0062
1F3CA 0061
1F3CA 0041
1F3CA 0062
+1F3CB 0021
+1F3CB 003F
+1F3CB 0061
+1F3CB 0041
+1F3CB 0062
+1F3CC 0021
+1F3CC 003F
+1F3CC 0061
+1F3CC 0041
+1F3CC 0062
+1F3CD 0021
+1F3CD 003F
+1F3CD 0061
+1F3CD 0041
+1F3CD 0062
+1F3CE 0021
+1F3CE 003F
+1F3CE 0061
+1F3CE 0041
+1F3CE 0062
+1F3D4 0021
+1F3D4 003F
+1F3D4 0061
+1F3D4 0041
+1F3D4 0062
+1F3D5 0021
+1F3D5 003F
+1F3D5 0061
+1F3D5 0041
+1F3D5 0062
+1F3D6 0021
+1F3D6 003F
+1F3D6 0061
+1F3D6 0041
+1F3D6 0062
+1F3D7 0021
+1F3D7 003F
+1F3D7 0061
+1F3D7 0041
+1F3D7 0062
+1F3D8 0021
+1F3D8 003F
+1F3D8 0061
+1F3D8 0041
+1F3D8 0062
+1F3D9 0021
+1F3D9 003F
+1F3D9 0061
+1F3D9 0041
+1F3D9 0062
+1F3DA 0021
+1F3DA 003F
+1F3DA 0061
+1F3DA 0041
+1F3DA 0062
+1F3DB 0021
+1F3DB 003F
+1F3DB 0061
+1F3DB 0041
+1F3DB 0062
+1F3DC 0021
+1F3DC 003F
+1F3DC 0061
+1F3DC 0041
+1F3DC 0062
+1F3DD 0021
+1F3DD 003F
+1F3DD 0061
+1F3DD 0041
+1F3DD 0062
+1F3DE 0021
+1F3DE 003F
+1F3DE 0061
+1F3DE 0041
+1F3DE 0062
+1F3DF 0021
+1F3DF 003F
+1F3DF 0061
+1F3DF 0041
+1F3DF 0062
1F3E0 0021
1F3E0 003F
1F3E0 0061
@@ -26185,6 +27767,41 @@ A4C6 0062
1F3F0 0061
1F3F0 0041
1F3F0 0062
+1F3F1 0021
+1F3F1 003F
+1F3F1 0061
+1F3F1 0041
+1F3F1 0062
+1F3F2 0021
+1F3F2 003F
+1F3F2 0061
+1F3F2 0041
+1F3F2 0062
+1F3F3 0021
+1F3F3 003F
+1F3F3 0061
+1F3F3 0041
+1F3F3 0062
+1F3F4 0021
+1F3F4 003F
+1F3F4 0061
+1F3F4 0041
+1F3F4 0062
+1F3F5 0021
+1F3F5 003F
+1F3F5 0061
+1F3F5 0041
+1F3F5 0062
+1F3F6 0021
+1F3F6 003F
+1F3F6 0061
+1F3F6 0041
+1F3F6 0062
+1F3F7 0021
+1F3F7 003F
+1F3F7 0061
+1F3F7 0041
+1F3F7 0062
1F400 0021
1F400 003F
1F400 0061
@@ -26500,11 +28117,21 @@ A4C6 0062
1F43E 0061
1F43E 0041
1F43E 0062
+1F43F 0021
+1F43F 003F
+1F43F 0061
+1F43F 0041
+1F43F 0062
1F440 0021
1F440 003F
1F440 0061
1F440 0041
1F440 0062
+1F441 0021
+1F441 003F
+1F441 0061
+1F441 0041
+1F441 0062
1F442 0021
1F442 003F
1F442 0061
@@ -27415,6 +29042,11 @@ A4C6 0062
1F4F7 0061
1F4F7 0041
1F4F7 0062
+1F4F8 0021
+1F4F8 003F
+1F4F8 0061
+1F4F8 0041
+1F4F8 0062
1F4F9 0021
1F4F9 003F
1F4F9 0061
@@ -27435,6 +29067,16 @@ A4C6 0062
1F4FC 0061
1F4FC 0041
1F4FC 0062
+1F4FD 0021
+1F4FD 003F
+1F4FD 0061
+1F4FD 0041
+1F4FD 0062
+1F4FE 0021
+1F4FE 003F
+1F4FE 0061
+1F4FE 0041
+1F4FE 0062
1F500 0021
1F500 003F
1F500 0061
@@ -27745,6 +29387,16 @@ A4C6 0062
1F53D 0061
1F53D 0041
1F53D 0062
+1F53E 0021
+1F53E 003F
+1F53E 0061
+1F53E 0041
+1F53E 0062
+1F53F 0021
+1F53F 003F
+1F53F 0061
+1F53F 0041
+1F53F 0062
1F540 0021
1F540 003F
1F540 0061
@@ -27765,6 +29417,41 @@ A4C6 0062
1F543 0061
1F543 0041
1F543 0062
+1F544 0021
+1F544 003F
+1F544 0061
+1F544 0041
+1F544 0062
+1F545 0021
+1F545 003F
+1F545 0061
+1F545 0041
+1F545 0062
+1F546 0021
+1F546 003F
+1F546 0061
+1F546 0041
+1F546 0062
+1F547 0021
+1F547 003F
+1F547 0061
+1F547 0041
+1F547 0062
+1F548 0021
+1F548 003F
+1F548 0061
+1F548 0041
+1F548 0062
+1F549 0021
+1F549 003F
+1F549 0061
+1F549 0041
+1F549 0062
+1F54A 0021
+1F54A 003F
+1F54A 0061
+1F54A 0041
+1F54A 0062
1F550 0021
1F550 003F
1F550 0061
@@ -27885,6 +29572,731 @@ A4C6 0062
1F567 0061
1F567 0041
1F567 0062
+1F568 0021
+1F568 003F
+1F568 0061
+1F568 0041
+1F568 0062
+1F569 0021
+1F569 003F
+1F569 0061
+1F569 0041
+1F569 0062
+1F56A 0021
+1F56A 003F
+1F56A 0061
+1F56A 0041
+1F56A 0062
+1F56B 0021
+1F56B 003F
+1F56B 0061
+1F56B 0041
+1F56B 0062
+1F56C 0021
+1F56C 003F
+1F56C 0061
+1F56C 0041
+1F56C 0062
+1F56D 0021
+1F56D 003F
+1F56D 0061
+1F56D 0041
+1F56D 0062
+1F56E 0021
+1F56E 003F
+1F56E 0061
+1F56E 0041
+1F56E 0062
+1F56F 0021
+1F56F 003F
+1F56F 0061
+1F56F 0041
+1F56F 0062
+1F570 0021
+1F570 003F
+1F570 0061
+1F570 0041
+1F570 0062
+1F571 0021
+1F571 003F
+1F571 0061
+1F571 0041
+1F571 0062
+1F572 0021
+1F572 003F
+1F572 0061
+1F572 0041
+1F572 0062
+1F573 0021
+1F573 003F
+1F573 0061
+1F573 0041
+1F573 0062
+1F574 0021
+1F574 003F
+1F574 0061
+1F574 0041
+1F574 0062
+1F575 0021
+1F575 003F
+1F575 0061
+1F575 0041
+1F575 0062
+1F576 0021
+1F576 003F
+1F576 0061
+1F576 0041
+1F576 0062
+1F577 0021
+1F577 003F
+1F577 0061
+1F577 0041
+1F577 0062
+1F578 0021
+1F578 003F
+1F578 0061
+1F578 0041
+1F578 0062
+1F579 0021
+1F579 003F
+1F579 0061
+1F579 0041
+1F579 0062
+1F57B 0021
+1F57B 003F
+1F57B 0061
+1F57B 0041
+1F57B 0062
+1F57C 0021
+1F57C 003F
+1F57C 0061
+1F57C 0041
+1F57C 0062
+1F57D 0021
+1F57D 003F
+1F57D 0061
+1F57D 0041
+1F57D 0062
+1F57E 0021
+1F57E 003F
+1F57E 0061
+1F57E 0041
+1F57E 0062
+1F57F 0021
+1F57F 003F
+1F57F 0061
+1F57F 0041
+1F57F 0062
+1F580 0021
+1F580 003F
+1F580 0061
+1F580 0041
+1F580 0062
+1F581 0021
+1F581 003F
+1F581 0061
+1F581 0041
+1F581 0062
+1F582 0021
+1F582 003F
+1F582 0061
+1F582 0041
+1F582 0062
+1F583 0021
+1F583 003F
+1F583 0061
+1F583 0041
+1F583 0062
+1F584 0021
+1F584 003F
+1F584 0061
+1F584 0041
+1F584 0062
+1F585 0021
+1F585 003F
+1F585 0061
+1F585 0041
+1F585 0062
+1F586 0021
+1F586 003F
+1F586 0061
+1F586 0041
+1F586 0062
+1F587 0021
+1F587 003F
+1F587 0061
+1F587 0041
+1F587 0062
+1F588 0021
+1F588 003F
+1F588 0061
+1F588 0041
+1F588 0062
+1F589 0021
+1F589 003F
+1F589 0061
+1F589 0041
+1F589 0062
+1F58A 0021
+1F58A 003F
+1F58A 0061
+1F58A 0041
+1F58A 0062
+1F58B 0021
+1F58B 003F
+1F58B 0061
+1F58B 0041
+1F58B 0062
+1F58C 0021
+1F58C 003F
+1F58C 0061
+1F58C 0041
+1F58C 0062
+1F58D 0021
+1F58D 003F
+1F58D 0061
+1F58D 0041
+1F58D 0062
+1F58E 0021
+1F58E 003F
+1F58E 0061
+1F58E 0041
+1F58E 0062
+1F58F 0021
+1F58F 003F
+1F58F 0061
+1F58F 0041
+1F58F 0062
+1F590 0021
+1F590 003F
+1F590 0061
+1F590 0041
+1F590 0062
+1F591 0021
+1F591 003F
+1F591 0061
+1F591 0041
+1F591 0062
+1F592 0021
+1F592 003F
+1F592 0061
+1F592 0041
+1F592 0062
+1F593 0021
+1F593 003F
+1F593 0061
+1F593 0041
+1F593 0062
+1F594 0021
+1F594 003F
+1F594 0061
+1F594 0041
+1F594 0062
+1F595 0021
+1F595 003F
+1F595 0061
+1F595 0041
+1F595 0062
+1F596 0021
+1F596 003F
+1F596 0061
+1F596 0041
+1F596 0062
+1F597 0021
+1F597 003F
+1F597 0061
+1F597 0041
+1F597 0062
+1F598 0021
+1F598 003F
+1F598 0061
+1F598 0041
+1F598 0062
+1F599 0021
+1F599 003F
+1F599 0061
+1F599 0041
+1F599 0062
+1F59A 0021
+1F59A 003F
+1F59A 0061
+1F59A 0041
+1F59A 0062
+1F59B 0021
+1F59B 003F
+1F59B 0061
+1F59B 0041
+1F59B 0062
+1F59C 0021
+1F59C 003F
+1F59C 0061
+1F59C 0041
+1F59C 0062
+1F59D 0021
+1F59D 003F
+1F59D 0061
+1F59D 0041
+1F59D 0062
+1F59E 0021
+1F59E 003F
+1F59E 0061
+1F59E 0041
+1F59E 0062
+1F59F 0021
+1F59F 003F
+1F59F 0061
+1F59F 0041
+1F59F 0062
+1F5A0 0021
+1F5A0 003F
+1F5A0 0061
+1F5A0 0041
+1F5A0 0062
+1F5A1 0021
+1F5A1 003F
+1F5A1 0061
+1F5A1 0041
+1F5A1 0062
+1F5A2 0021
+1F5A2 003F
+1F5A2 0061
+1F5A2 0041
+1F5A2 0062
+1F5A3 0021
+1F5A3 003F
+1F5A3 0061
+1F5A3 0041
+1F5A3 0062
+1F5A5 0021
+1F5A5 003F
+1F5A5 0061
+1F5A5 0041
+1F5A5 0062
+1F5A6 0021
+1F5A6 003F
+1F5A6 0061
+1F5A6 0041
+1F5A6 0062
+1F5A7 0021
+1F5A7 003F
+1F5A7 0061
+1F5A7 0041
+1F5A7 0062
+1F5A8 0021
+1F5A8 003F
+1F5A8 0061
+1F5A8 0041
+1F5A8 0062
+1F5A9 0021
+1F5A9 003F
+1F5A9 0061
+1F5A9 0041
+1F5A9 0062
+1F5AA 0021
+1F5AA 003F
+1F5AA 0061
+1F5AA 0041
+1F5AA 0062
+1F5AB 0021
+1F5AB 003F
+1F5AB 0061
+1F5AB 0041
+1F5AB 0062
+1F5AC 0021
+1F5AC 003F
+1F5AC 0061
+1F5AC 0041
+1F5AC 0062
+1F5AD 0021
+1F5AD 003F
+1F5AD 0061
+1F5AD 0041
+1F5AD 0062
+1F5AE 0021
+1F5AE 003F
+1F5AE 0061
+1F5AE 0041
+1F5AE 0062
+1F5AF 0021
+1F5AF 003F
+1F5AF 0061
+1F5AF 0041
+1F5AF 0062
+1F5B0 0021
+1F5B0 003F
+1F5B0 0061
+1F5B0 0041
+1F5B0 0062
+1F5B1 0021
+1F5B1 003F
+1F5B1 0061
+1F5B1 0041
+1F5B1 0062
+1F5B2 0021
+1F5B2 003F
+1F5B2 0061
+1F5B2 0041
+1F5B2 0062
+1F5B3 0021
+1F5B3 003F
+1F5B3 0061
+1F5B3 0041
+1F5B3 0062
+1F5B4 0021
+1F5B4 003F
+1F5B4 0061
+1F5B4 0041
+1F5B4 0062
+1F5B5 0021
+1F5B5 003F
+1F5B5 0061
+1F5B5 0041
+1F5B5 0062
+1F5B6 0021
+1F5B6 003F
+1F5B6 0061
+1F5B6 0041
+1F5B6 0062
+1F5B7 0021
+1F5B7 003F
+1F5B7 0061
+1F5B7 0041
+1F5B7 0062
+1F5B8 0021
+1F5B8 003F
+1F5B8 0061
+1F5B8 0041
+1F5B8 0062
+1F5B9 0021
+1F5B9 003F
+1F5B9 0061
+1F5B9 0041
+1F5B9 0062
+1F5BA 0021
+1F5BA 003F
+1F5BA 0061
+1F5BA 0041
+1F5BA 0062
+1F5BB 0021
+1F5BB 003F
+1F5BB 0061
+1F5BB 0041
+1F5BB 0062
+1F5BC 0021
+1F5BC 003F
+1F5BC 0061
+1F5BC 0041
+1F5BC 0062
+1F5BD 0021
+1F5BD 003F
+1F5BD 0061
+1F5BD 0041
+1F5BD 0062
+1F5BE 0021
+1F5BE 003F
+1F5BE 0061
+1F5BE 0041
+1F5BE 0062
+1F5BF 0021
+1F5BF 003F
+1F5BF 0061
+1F5BF 0041
+1F5BF 0062
+1F5C0 0021
+1F5C0 003F
+1F5C0 0061
+1F5C0 0041
+1F5C0 0062
+1F5C1 0021
+1F5C1 003F
+1F5C1 0061
+1F5C1 0041
+1F5C1 0062
+1F5C2 0021
+1F5C2 003F
+1F5C2 0061
+1F5C2 0041
+1F5C2 0062
+1F5C3 0021
+1F5C3 003F
+1F5C3 0061
+1F5C3 0041
+1F5C3 0062
+1F5C4 0021
+1F5C4 003F
+1F5C4 0061
+1F5C4 0041
+1F5C4 0062
+1F5C5 0021
+1F5C5 003F
+1F5C5 0061
+1F5C5 0041
+1F5C5 0062
+1F5C6 0021
+1F5C6 003F
+1F5C6 0061
+1F5C6 0041
+1F5C6 0062
+1F5C7 0021
+1F5C7 003F
+1F5C7 0061
+1F5C7 0041
+1F5C7 0062
+1F5C8 0021
+1F5C8 003F
+1F5C8 0061
+1F5C8 0041
+1F5C8 0062
+1F5C9 0021
+1F5C9 003F
+1F5C9 0061
+1F5C9 0041
+1F5C9 0062
+1F5CA 0021
+1F5CA 003F
+1F5CA 0061
+1F5CA 0041
+1F5CA 0062
+1F5CB 0021
+1F5CB 003F
+1F5CB 0061
+1F5CB 0041
+1F5CB 0062
+1F5CC 0021
+1F5CC 003F
+1F5CC 0061
+1F5CC 0041
+1F5CC 0062
+1F5CD 0021
+1F5CD 003F
+1F5CD 0061
+1F5CD 0041
+1F5CD 0062
+1F5CE 0021
+1F5CE 003F
+1F5CE 0061
+1F5CE 0041
+1F5CE 0062
+1F5CF 0021
+1F5CF 003F
+1F5CF 0061
+1F5CF 0041
+1F5CF 0062
+1F5D0 0021
+1F5D0 003F
+1F5D0 0061
+1F5D0 0041
+1F5D0 0062
+1F5D1 0021
+1F5D1 003F
+1F5D1 0061
+1F5D1 0041
+1F5D1 0062
+1F5D2 0021
+1F5D2 003F
+1F5D2 0061
+1F5D2 0041
+1F5D2 0062
+1F5D3 0021
+1F5D3 003F
+1F5D3 0061
+1F5D3 0041
+1F5D3 0062
+1F5D4 0021
+1F5D4 003F
+1F5D4 0061
+1F5D4 0041
+1F5D4 0062
+1F5D5 0021
+1F5D5 003F
+1F5D5 0061
+1F5D5 0041
+1F5D5 0062
+1F5D6 0021
+1F5D6 003F
+1F5D6 0061
+1F5D6 0041
+1F5D6 0062
+1F5D7 0021
+1F5D7 003F
+1F5D7 0061
+1F5D7 0041
+1F5D7 0062
+1F5D8 0021
+1F5D8 003F
+1F5D8 0061
+1F5D8 0041
+1F5D8 0062
+1F5D9 0021
+1F5D9 003F
+1F5D9 0061
+1F5D9 0041
+1F5D9 0062
+1F5DA 0021
+1F5DA 003F
+1F5DA 0061
+1F5DA 0041
+1F5DA 0062
+1F5DB 0021
+1F5DB 003F
+1F5DB 0061
+1F5DB 0041
+1F5DB 0062
+1F5DC 0021
+1F5DC 003F
+1F5DC 0061
+1F5DC 0041
+1F5DC 0062
+1F5DD 0021
+1F5DD 003F
+1F5DD 0061
+1F5DD 0041
+1F5DD 0062
+1F5DE 0021
+1F5DE 003F
+1F5DE 0061
+1F5DE 0041
+1F5DE 0062
+1F5DF 0021
+1F5DF 003F
+1F5DF 0061
+1F5DF 0041
+1F5DF 0062
+1F5E0 0021
+1F5E0 003F
+1F5E0 0061
+1F5E0 0041
+1F5E0 0062
+1F5E1 0021
+1F5E1 003F
+1F5E1 0061
+1F5E1 0041
+1F5E1 0062
+1F5E2 0021
+1F5E2 003F
+1F5E2 0061
+1F5E2 0041
+1F5E2 0062
+1F5E3 0021
+1F5E3 003F
+1F5E3 0061
+1F5E3 0041
+1F5E3 0062
+1F5E4 0021
+1F5E4 003F
+1F5E4 0061
+1F5E4 0041
+1F5E4 0062
+1F5E5 0021
+1F5E5 003F
+1F5E5 0061
+1F5E5 0041
+1F5E5 0062
+1F5E6 0021
+1F5E6 003F
+1F5E6 0061
+1F5E6 0041
+1F5E6 0062
+1F5E7 0021
+1F5E7 003F
+1F5E7 0061
+1F5E7 0041
+1F5E7 0062
+1F5E8 0021
+1F5E8 003F
+1F5E8 0061
+1F5E8 0041
+1F5E8 0062
+1F5E9 0021
+1F5E9 003F
+1F5E9 0061
+1F5E9 0041
+1F5E9 0062
+1F5EA 0021
+1F5EA 003F
+1F5EA 0061
+1F5EA 0041
+1F5EA 0062
+1F5EB 0021
+1F5EB 003F
+1F5EB 0061
+1F5EB 0041
+1F5EB 0062
+1F5EC 0021
+1F5EC 003F
+1F5EC 0061
+1F5EC 0041
+1F5EC 0062
+1F5ED 0021
+1F5ED 003F
+1F5ED 0061
+1F5ED 0041
+1F5ED 0062
+1F5EE 0021
+1F5EE 003F
+1F5EE 0061
+1F5EE 0041
+1F5EE 0062
+1F5EF 0021
+1F5EF 003F
+1F5EF 0061
+1F5EF 0041
+1F5EF 0062
+1F5F0 0021
+1F5F0 003F
+1F5F0 0061
+1F5F0 0041
+1F5F0 0062
+1F5F1 0021
+1F5F1 003F
+1F5F1 0061
+1F5F1 0041
+1F5F1 0062
+1F5F2 0021
+1F5F2 003F
+1F5F2 0061
+1F5F2 0041
+1F5F2 0062
+1F5F3 0021
+1F5F3 003F
+1F5F3 0061
+1F5F3 0041
+1F5F3 0062
+1F5F4 0021
+1F5F4 003F
+1F5F4 0061
+1F5F4 0041
+1F5F4 0062
+1F5F5 0021
+1F5F5 003F
+1F5F5 0061
+1F5F5 0041
+1F5F5 0062
+1F5F6 0021
+1F5F6 003F
+1F5F6 0061
+1F5F6 0041
+1F5F6 0062
+1F5F7 0021
+1F5F7 003F
+1F5F7 0061
+1F5F7 0041
+1F5F7 0062
+1F5F8 0021
+1F5F8 003F
+1F5F8 0061
+1F5F8 0041
+1F5F8 0062
+1F5F9 0021
+1F5F9 003F
+1F5F9 0061
+1F5F9 0041
+1F5F9 0062
+1F5FA 0021
+1F5FA 003F
+1F5FA 0061
+1F5FA 0041
+1F5FA 0062
1F5FB 0021
1F5FB 003F
1F5FB 0061
@@ -28235,6 +30647,16 @@ A4C6 0062
1F640 0061
1F640 0041
1F640 0062
+1F641 0021
+1F641 003F
+1F641 0061
+1F641 0041
+1F641 0062
+1F642 0021
+1F642 003F
+1F642 0061
+1F642 0041
+1F642 0062
1F645 0021
1F645 003F
1F645 0061
@@ -28290,6 +30712,246 @@ A4C6 0062
1F64F 0061
1F64F 0041
1F64F 0062
+1F650 0021
+1F650 003F
+1F650 0061
+1F650 0041
+1F650 0062
+1F651 0021
+1F651 003F
+1F651 0061
+1F651 0041
+1F651 0062
+1F652 0021
+1F652 003F
+1F652 0061
+1F652 0041
+1F652 0062
+1F653 0021
+1F653 003F
+1F653 0061
+1F653 0041
+1F653 0062
+1F654 0021
+1F654 003F
+1F654 0061
+1F654 0041
+1F654 0062
+1F655 0021
+1F655 003F
+1F655 0061
+1F655 0041
+1F655 0062
+1F656 0021
+1F656 003F
+1F656 0061
+1F656 0041
+1F656 0062
+1F657 0021
+1F657 003F
+1F657 0061
+1F657 0041
+1F657 0062
+1F658 0021
+1F658 003F
+1F658 0061
+1F658 0041
+1F658 0062
+1F659 0021
+1F659 003F
+1F659 0061
+1F659 0041
+1F659 0062
+1F65A 0021
+1F65A 003F
+1F65A 0061
+1F65A 0041
+1F65A 0062
+1F65B 0021
+1F65B 003F
+1F65B 0061
+1F65B 0041
+1F65B 0062
+1F65C 0021
+1F65C 003F
+1F65C 0061
+1F65C 0041
+1F65C 0062
+1F65D 0021
+1F65D 003F
+1F65D 0061
+1F65D 0041
+1F65D 0062
+1F65E 0021
+1F65E 003F
+1F65E 0061
+1F65E 0041
+1F65E 0062
+1F65F 0021
+1F65F 003F
+1F65F 0061
+1F65F 0041
+1F65F 0062
+1F660 0021
+1F660 003F
+1F660 0061
+1F660 0041
+1F660 0062
+1F661 0021
+1F661 003F
+1F661 0061
+1F661 0041
+1F661 0062
+1F662 0021
+1F662 003F
+1F662 0061
+1F662 0041
+1F662 0062
+1F663 0021
+1F663 003F
+1F663 0061
+1F663 0041
+1F663 0062
+1F664 0021
+1F664 003F
+1F664 0061
+1F664 0041
+1F664 0062
+1F665 0021
+1F665 003F
+1F665 0061
+1F665 0041
+1F665 0062
+1F666 0021
+1F666 003F
+1F666 0061
+1F666 0041
+1F666 0062
+1F667 0021
+1F667 003F
+1F667 0061
+1F667 0041
+1F667 0062
+1F668 0021
+1F668 003F
+1F668 0061
+1F668 0041
+1F668 0062
+1F669 0021
+1F669 003F
+1F669 0061
+1F669 0041
+1F669 0062
+1F66A 0021
+1F66A 003F
+1F66A 0061
+1F66A 0041
+1F66A 0062
+1F66B 0021
+1F66B 003F
+1F66B 0061
+1F66B 0041
+1F66B 0062
+1F66C 0021
+1F66C 003F
+1F66C 0061
+1F66C 0041
+1F66C 0062
+1F66D 0021
+1F66D 003F
+1F66D 0061
+1F66D 0041
+1F66D 0062
+1F66E 0021
+1F66E 003F
+1F66E 0061
+1F66E 0041
+1F66E 0062
+1F66F 0021
+1F66F 003F
+1F66F 0061
+1F66F 0041
+1F66F 0062
+1F670 0021
+1F670 003F
+1F670 0061
+1F670 0041
+1F670 0062
+1F671 0021
+1F671 003F
+1F671 0061
+1F671 0041
+1F671 0062
+1F672 0021
+1F672 003F
+1F672 0061
+1F672 0041
+1F672 0062
+1F673 0021
+1F673 003F
+1F673 0061
+1F673 0041
+1F673 0062
+1F674 0021
+1F674 003F
+1F674 0061
+1F674 0041
+1F674 0062
+1F675 0021
+1F675 003F
+1F675 0061
+1F675 0041
+1F675 0062
+1F676 0021
+1F676 003F
+1F676 0061
+1F676 0041
+1F676 0062
+1F677 0021
+1F677 003F
+1F677 0061
+1F677 0041
+1F677 0062
+1F678 0021
+1F678 003F
+1F678 0061
+1F678 0041
+1F678 0062
+1F679 0021
+1F679 003F
+1F679 0061
+1F679 0041
+1F679 0062
+1F67A 0021
+1F67A 003F
+1F67A 0061
+1F67A 0041
+1F67A 0062
+1F67B 0021
+1F67B 003F
+1F67B 0061
+1F67B 0041
+1F67B 0062
+1F67C 0021
+1F67C 003F
+1F67C 0061
+1F67C 0041
+1F67C 0062
+1F67D 0021
+1F67D 003F
+1F67D 0061
+1F67D 0041
+1F67D 0062
+1F67E 0021
+1F67E 003F
+1F67E 0061
+1F67E 0041
+1F67E 0062
+1F67F 0021
+1F67F 003F
+1F67F 0061
+1F67F 0041
+1F67F 0062
1F680 0021
1F680 003F
1F680 0061
@@ -28640,6 +31302,141 @@ A4C6 0062
1F6C5 0061
1F6C5 0041
1F6C5 0062
+1F6C6 0021
+1F6C6 003F
+1F6C6 0061
+1F6C6 0041
+1F6C6 0062
+1F6C7 0021
+1F6C7 003F
+1F6C7 0061
+1F6C7 0041
+1F6C7 0062
+1F6C8 0021
+1F6C8 003F
+1F6C8 0061
+1F6C8 0041
+1F6C8 0062
+1F6C9 0021
+1F6C9 003F
+1F6C9 0061
+1F6C9 0041
+1F6C9 0062
+1F6CA 0021
+1F6CA 003F
+1F6CA 0061
+1F6CA 0041
+1F6CA 0062
+1F6CB 0021
+1F6CB 003F
+1F6CB 0061
+1F6CB 0041
+1F6CB 0062
+1F6CC 0021
+1F6CC 003F
+1F6CC 0061
+1F6CC 0041
+1F6CC 0062
+1F6CD 0021
+1F6CD 003F
+1F6CD 0061
+1F6CD 0041
+1F6CD 0062
+1F6CE 0021
+1F6CE 003F
+1F6CE 0061
+1F6CE 0041
+1F6CE 0062
+1F6CF 0021
+1F6CF 003F
+1F6CF 0061
+1F6CF 0041
+1F6CF 0062
+1F6E0 0021
+1F6E0 003F
+1F6E0 0061
+1F6E0 0041
+1F6E0 0062
+1F6E1 0021
+1F6E1 003F
+1F6E1 0061
+1F6E1 0041
+1F6E1 0062
+1F6E2 0021
+1F6E2 003F
+1F6E2 0061
+1F6E2 0041
+1F6E2 0062
+1F6E3 0021
+1F6E3 003F
+1F6E3 0061
+1F6E3 0041
+1F6E3 0062
+1F6E4 0021
+1F6E4 003F
+1F6E4 0061
+1F6E4 0041
+1F6E4 0062
+1F6E5 0021
+1F6E5 003F
+1F6E5 0061
+1F6E5 0041
+1F6E5 0062
+1F6E6 0021
+1F6E6 003F
+1F6E6 0061
+1F6E6 0041
+1F6E6 0062
+1F6E7 0021
+1F6E7 003F
+1F6E7 0061
+1F6E7 0041
+1F6E7 0062
+1F6E8 0021
+1F6E8 003F
+1F6E8 0061
+1F6E8 0041
+1F6E8 0062
+1F6E9 0021
+1F6E9 003F
+1F6E9 0061
+1F6E9 0041
+1F6E9 0062
+1F6EA 0021
+1F6EA 003F
+1F6EA 0061
+1F6EA 0041
+1F6EA 0062
+1F6EB 0021
+1F6EB 003F
+1F6EB 0061
+1F6EB 0041
+1F6EB 0062
+1F6EC 0021
+1F6EC 003F
+1F6EC 0061
+1F6EC 0041
+1F6EC 0062
+1F6F0 0021
+1F6F0 003F
+1F6F0 0061
+1F6F0 0041
+1F6F0 0062
+1F6F1 0021
+1F6F1 003F
+1F6F1 0061
+1F6F1 0041
+1F6F1 0062
+1F6F2 0021
+1F6F2 003F
+1F6F2 0061
+1F6F2 0041
+1F6F2 0062
+1F6F3 0021
+1F6F3 003F
+1F6F3 0061
+1F6F3 0041
+1F6F3 0062
1F700 0021
1F700 003F
1F700 0061
@@ -29220,6 +32017,1171 @@ A4C6 0062
1F773 0061
1F773 0041
1F773 0062
+1F780 0021
+1F780 003F
+1F780 0061
+1F780 0041
+1F780 0062
+1F781 0021
+1F781 003F
+1F781 0061
+1F781 0041
+1F781 0062
+1F782 0021
+1F782 003F
+1F782 0061
+1F782 0041
+1F782 0062
+1F783 0021
+1F783 003F
+1F783 0061
+1F783 0041
+1F783 0062
+1F784 0021
+1F784 003F
+1F784 0061
+1F784 0041
+1F784 0062
+1F785 0021
+1F785 003F
+1F785 0061
+1F785 0041
+1F785 0062
+1F786 0021
+1F786 003F
+1F786 0061
+1F786 0041
+1F786 0062
+1F787 0021
+1F787 003F
+1F787 0061
+1F787 0041
+1F787 0062
+1F788 0021
+1F788 003F
+1F788 0061
+1F788 0041
+1F788 0062
+1F789 0021
+1F789 003F
+1F789 0061
+1F789 0041
+1F789 0062
+1F78A 0021
+1F78A 003F
+1F78A 0061
+1F78A 0041
+1F78A 0062
+1F78B 0021
+1F78B 003F
+1F78B 0061
+1F78B 0041
+1F78B 0062
+1F78C 0021
+1F78C 003F
+1F78C 0061
+1F78C 0041
+1F78C 0062
+1F78D 0021
+1F78D 003F
+1F78D 0061
+1F78D 0041
+1F78D 0062
+1F78E 0021
+1F78E 003F
+1F78E 0061
+1F78E 0041
+1F78E 0062
+1F78F 0021
+1F78F 003F
+1F78F 0061
+1F78F 0041
+1F78F 0062
+1F790 0021
+1F790 003F
+1F790 0061
+1F790 0041
+1F790 0062
+1F791 0021
+1F791 003F
+1F791 0061
+1F791 0041
+1F791 0062
+1F792 0021
+1F792 003F
+1F792 0061
+1F792 0041
+1F792 0062
+1F793 0021
+1F793 003F
+1F793 0061
+1F793 0041
+1F793 0062
+1F794 0021
+1F794 003F
+1F794 0061
+1F794 0041
+1F794 0062
+1F795 0021
+1F795 003F
+1F795 0061
+1F795 0041
+1F795 0062
+1F796 0021
+1F796 003F
+1F796 0061
+1F796 0041
+1F796 0062
+1F797 0021
+1F797 003F
+1F797 0061
+1F797 0041
+1F797 0062
+1F798 0021
+1F798 003F
+1F798 0061
+1F798 0041
+1F798 0062
+1F799 0021
+1F799 003F
+1F799 0061
+1F799 0041
+1F799 0062
+1F79A 0021
+1F79A 003F
+1F79A 0061
+1F79A 0041
+1F79A 0062
+1F79B 0021
+1F79B 003F
+1F79B 0061
+1F79B 0041
+1F79B 0062
+1F79C 0021
+1F79C 003F
+1F79C 0061
+1F79C 0041
+1F79C 0062
+1F79D 0021
+1F79D 003F
+1F79D 0061
+1F79D 0041
+1F79D 0062
+1F79E 0021
+1F79E 003F
+1F79E 0061
+1F79E 0041
+1F79E 0062
+1F79F 0021
+1F79F 003F
+1F79F 0061
+1F79F 0041
+1F79F 0062
+1F7A0 0021
+1F7A0 003F
+1F7A0 0061
+1F7A0 0041
+1F7A0 0062
+1F7A1 0021
+1F7A1 003F
+1F7A1 0061
+1F7A1 0041
+1F7A1 0062
+1F7A2 0021
+1F7A2 003F
+1F7A2 0061
+1F7A2 0041
+1F7A2 0062
+1F7A3 0021
+1F7A3 003F
+1F7A3 0061
+1F7A3 0041
+1F7A3 0062
+1F7A4 0021
+1F7A4 003F
+1F7A4 0061
+1F7A4 0041
+1F7A4 0062
+1F7A5 0021
+1F7A5 003F
+1F7A5 0061
+1F7A5 0041
+1F7A5 0062
+1F7A6 0021
+1F7A6 003F
+1F7A6 0061
+1F7A6 0041
+1F7A6 0062
+1F7A7 0021
+1F7A7 003F
+1F7A7 0061
+1F7A7 0041
+1F7A7 0062
+1F7A8 0021
+1F7A8 003F
+1F7A8 0061
+1F7A8 0041
+1F7A8 0062
+1F7A9 0021
+1F7A9 003F
+1F7A9 0061
+1F7A9 0041
+1F7A9 0062
+1F7AA 0021
+1F7AA 003F
+1F7AA 0061
+1F7AA 0041
+1F7AA 0062
+1F7AB 0021
+1F7AB 003F
+1F7AB 0061
+1F7AB 0041
+1F7AB 0062
+1F7AC 0021
+1F7AC 003F
+1F7AC 0061
+1F7AC 0041
+1F7AC 0062
+1F7AD 0021
+1F7AD 003F
+1F7AD 0061
+1F7AD 0041
+1F7AD 0062
+1F7AE 0021
+1F7AE 003F
+1F7AE 0061
+1F7AE 0041
+1F7AE 0062
+1F7AF 0021
+1F7AF 003F
+1F7AF 0061
+1F7AF 0041
+1F7AF 0062
+1F7B0 0021
+1F7B0 003F
+1F7B0 0061
+1F7B0 0041
+1F7B0 0062
+1F7B1 0021
+1F7B1 003F
+1F7B1 0061
+1F7B1 0041
+1F7B1 0062
+1F7B2 0021
+1F7B2 003F
+1F7B2 0061
+1F7B2 0041
+1F7B2 0062
+1F7B3 0021
+1F7B3 003F
+1F7B3 0061
+1F7B3 0041
+1F7B3 0062
+1F7B4 0021
+1F7B4 003F
+1F7B4 0061
+1F7B4 0041
+1F7B4 0062
+1F7B5 0021
+1F7B5 003F
+1F7B5 0061
+1F7B5 0041
+1F7B5 0062
+1F7B6 0021
+1F7B6 003F
+1F7B6 0061
+1F7B6 0041
+1F7B6 0062
+1F7B7 0021
+1F7B7 003F
+1F7B7 0061
+1F7B7 0041
+1F7B7 0062
+1F7B8 0021
+1F7B8 003F
+1F7B8 0061
+1F7B8 0041
+1F7B8 0062
+1F7B9 0021
+1F7B9 003F
+1F7B9 0061
+1F7B9 0041
+1F7B9 0062
+1F7BA 0021
+1F7BA 003F
+1F7BA 0061
+1F7BA 0041
+1F7BA 0062
+1F7BB 0021
+1F7BB 003F
+1F7BB 0061
+1F7BB 0041
+1F7BB 0062
+1F7BC 0021
+1F7BC 003F
+1F7BC 0061
+1F7BC 0041
+1F7BC 0062
+1F7BD 0021
+1F7BD 003F
+1F7BD 0061
+1F7BD 0041
+1F7BD 0062
+1F7BE 0021
+1F7BE 003F
+1F7BE 0061
+1F7BE 0041
+1F7BE 0062
+1F7BF 0021
+1F7BF 003F
+1F7BF 0061
+1F7BF 0041
+1F7BF 0062
+1F7C0 0021
+1F7C0 003F
+1F7C0 0061
+1F7C0 0041
+1F7C0 0062
+1F7C1 0021
+1F7C1 003F
+1F7C1 0061
+1F7C1 0041
+1F7C1 0062
+1F7C2 0021
+1F7C2 003F
+1F7C2 0061
+1F7C2 0041
+1F7C2 0062
+1F7C3 0021
+1F7C3 003F
+1F7C3 0061
+1F7C3 0041
+1F7C3 0062
+1F7C4 0021
+1F7C4 003F
+1F7C4 0061
+1F7C4 0041
+1F7C4 0062
+1F7C5 0021
+1F7C5 003F
+1F7C5 0061
+1F7C5 0041
+1F7C5 0062
+1F7C6 0021
+1F7C6 003F
+1F7C6 0061
+1F7C6 0041
+1F7C6 0062
+1F7C7 0021
+1F7C7 003F
+1F7C7 0061
+1F7C7 0041
+1F7C7 0062
+1F7C8 0021
+1F7C8 003F
+1F7C8 0061
+1F7C8 0041
+1F7C8 0062
+1F7C9 0021
+1F7C9 003F
+1F7C9 0061
+1F7C9 0041
+1F7C9 0062
+1F7CA 0021
+1F7CA 003F
+1F7CA 0061
+1F7CA 0041
+1F7CA 0062
+1F7CB 0021
+1F7CB 003F
+1F7CB 0061
+1F7CB 0041
+1F7CB 0062
+1F7CC 0021
+1F7CC 003F
+1F7CC 0061
+1F7CC 0041
+1F7CC 0062
+1F7CD 0021
+1F7CD 003F
+1F7CD 0061
+1F7CD 0041
+1F7CD 0062
+1F7CE 0021
+1F7CE 003F
+1F7CE 0061
+1F7CE 0041
+1F7CE 0062
+1F7CF 0021
+1F7CF 003F
+1F7CF 0061
+1F7CF 0041
+1F7CF 0062
+1F7D0 0021
+1F7D0 003F
+1F7D0 0061
+1F7D0 0041
+1F7D0 0062
+1F7D1 0021
+1F7D1 003F
+1F7D1 0061
+1F7D1 0041
+1F7D1 0062
+1F7D2 0021
+1F7D2 003F
+1F7D2 0061
+1F7D2 0041
+1F7D2 0062
+1F7D3 0021
+1F7D3 003F
+1F7D3 0061
+1F7D3 0041
+1F7D3 0062
+1F7D4 0021
+1F7D4 003F
+1F7D4 0061
+1F7D4 0041
+1F7D4 0062
+1F800 0021
+1F800 003F
+1F800 0061
+1F800 0041
+1F800 0062
+1F801 0021
+1F801 003F
+1F801 0061
+1F801 0041
+1F801 0062
+1F802 0021
+1F802 003F
+1F802 0061
+1F802 0041
+1F802 0062
+1F803 0021
+1F803 003F
+1F803 0061
+1F803 0041
+1F803 0062
+1F804 0021
+1F804 003F
+1F804 0061
+1F804 0041
+1F804 0062
+1F805 0021
+1F805 003F
+1F805 0061
+1F805 0041
+1F805 0062
+1F806 0021
+1F806 003F
+1F806 0061
+1F806 0041
+1F806 0062
+1F807 0021
+1F807 003F
+1F807 0061
+1F807 0041
+1F807 0062
+1F808 0021
+1F808 003F
+1F808 0061
+1F808 0041
+1F808 0062
+1F809 0021
+1F809 003F
+1F809 0061
+1F809 0041
+1F809 0062
+1F80A 0021
+1F80A 003F
+1F80A 0061
+1F80A 0041
+1F80A 0062
+1F80B 0021
+1F80B 003F
+1F80B 0061
+1F80B 0041
+1F80B 0062
+1F810 0021
+1F810 003F
+1F810 0061
+1F810 0041
+1F810 0062
+1F811 0021
+1F811 003F
+1F811 0061
+1F811 0041
+1F811 0062
+1F812 0021
+1F812 003F
+1F812 0061
+1F812 0041
+1F812 0062
+1F813 0021
+1F813 003F
+1F813 0061
+1F813 0041
+1F813 0062
+1F814 0021
+1F814 003F
+1F814 0061
+1F814 0041
+1F814 0062
+1F815 0021
+1F815 003F
+1F815 0061
+1F815 0041
+1F815 0062
+1F816 0021
+1F816 003F
+1F816 0061
+1F816 0041
+1F816 0062
+1F817 0021
+1F817 003F
+1F817 0061
+1F817 0041
+1F817 0062
+1F818 0021
+1F818 003F
+1F818 0061
+1F818 0041
+1F818 0062
+1F819 0021
+1F819 003F
+1F819 0061
+1F819 0041
+1F819 0062
+1F81A 0021
+1F81A 003F
+1F81A 0061
+1F81A 0041
+1F81A 0062
+1F81B 0021
+1F81B 003F
+1F81B 0061
+1F81B 0041
+1F81B 0062
+1F81C 0021
+1F81C 003F
+1F81C 0061
+1F81C 0041
+1F81C 0062
+1F81D 0021
+1F81D 003F
+1F81D 0061
+1F81D 0041
+1F81D 0062
+1F81E 0021
+1F81E 003F
+1F81E 0061
+1F81E 0041
+1F81E 0062
+1F81F 0021
+1F81F 003F
+1F81F 0061
+1F81F 0041
+1F81F 0062
+1F820 0021
+1F820 003F
+1F820 0061
+1F820 0041
+1F820 0062
+1F821 0021
+1F821 003F
+1F821 0061
+1F821 0041
+1F821 0062
+1F822 0021
+1F822 003F
+1F822 0061
+1F822 0041
+1F822 0062
+1F823 0021
+1F823 003F
+1F823 0061
+1F823 0041
+1F823 0062
+1F824 0021
+1F824 003F
+1F824 0061
+1F824 0041
+1F824 0062
+1F825 0021
+1F825 003F
+1F825 0061
+1F825 0041
+1F825 0062
+1F826 0021
+1F826 003F
+1F826 0061
+1F826 0041
+1F826 0062
+1F827 0021
+1F827 003F
+1F827 0061
+1F827 0041
+1F827 0062
+1F828 0021
+1F828 003F
+1F828 0061
+1F828 0041
+1F828 0062
+1F829 0021
+1F829 003F
+1F829 0061
+1F829 0041
+1F829 0062
+1F82A 0021
+1F82A 003F
+1F82A 0061
+1F82A 0041
+1F82A 0062
+1F82B 0021
+1F82B 003F
+1F82B 0061
+1F82B 0041
+1F82B 0062
+1F82C 0021
+1F82C 003F
+1F82C 0061
+1F82C 0041
+1F82C 0062
+1F82D 0021
+1F82D 003F
+1F82D 0061
+1F82D 0041
+1F82D 0062
+1F82E 0021
+1F82E 003F
+1F82E 0061
+1F82E 0041
+1F82E 0062
+1F82F 0021
+1F82F 003F
+1F82F 0061
+1F82F 0041
+1F82F 0062
+1F830 0021
+1F830 003F
+1F830 0061
+1F830 0041
+1F830 0062
+1F831 0021
+1F831 003F
+1F831 0061
+1F831 0041
+1F831 0062
+1F832 0021
+1F832 003F
+1F832 0061
+1F832 0041
+1F832 0062
+1F833 0021
+1F833 003F
+1F833 0061
+1F833 0041
+1F833 0062
+1F834 0021
+1F834 003F
+1F834 0061
+1F834 0041
+1F834 0062
+1F835 0021
+1F835 003F
+1F835 0061
+1F835 0041
+1F835 0062
+1F836 0021
+1F836 003F
+1F836 0061
+1F836 0041
+1F836 0062
+1F837 0021
+1F837 003F
+1F837 0061
+1F837 0041
+1F837 0062
+1F838 0021
+1F838 003F
+1F838 0061
+1F838 0041
+1F838 0062
+1F839 0021
+1F839 003F
+1F839 0061
+1F839 0041
+1F839 0062
+1F83A 0021
+1F83A 003F
+1F83A 0061
+1F83A 0041
+1F83A 0062
+1F83B 0021
+1F83B 003F
+1F83B 0061
+1F83B 0041
+1F83B 0062
+1F83C 0021
+1F83C 003F
+1F83C 0061
+1F83C 0041
+1F83C 0062
+1F83D 0021
+1F83D 003F
+1F83D 0061
+1F83D 0041
+1F83D 0062
+1F83E 0021
+1F83E 003F
+1F83E 0061
+1F83E 0041
+1F83E 0062
+1F83F 0021
+1F83F 003F
+1F83F 0061
+1F83F 0041
+1F83F 0062
+1F840 0021
+1F840 003F
+1F840 0061
+1F840 0041
+1F840 0062
+1F841 0021
+1F841 003F
+1F841 0061
+1F841 0041
+1F841 0062
+1F842 0021
+1F842 003F
+1F842 0061
+1F842 0041
+1F842 0062
+1F843 0021
+1F843 003F
+1F843 0061
+1F843 0041
+1F843 0062
+1F844 0021
+1F844 003F
+1F844 0061
+1F844 0041
+1F844 0062
+1F845 0021
+1F845 003F
+1F845 0061
+1F845 0041
+1F845 0062
+1F846 0021
+1F846 003F
+1F846 0061
+1F846 0041
+1F846 0062
+1F847 0021
+1F847 003F
+1F847 0061
+1F847 0041
+1F847 0062
+1F850 0021
+1F850 003F
+1F850 0061
+1F850 0041
+1F850 0062
+1F851 0021
+1F851 003F
+1F851 0061
+1F851 0041
+1F851 0062
+1F852 0021
+1F852 003F
+1F852 0061
+1F852 0041
+1F852 0062
+1F853 0021
+1F853 003F
+1F853 0061
+1F853 0041
+1F853 0062
+1F854 0021
+1F854 003F
+1F854 0061
+1F854 0041
+1F854 0062
+1F855 0021
+1F855 003F
+1F855 0061
+1F855 0041
+1F855 0062
+1F856 0021
+1F856 003F
+1F856 0061
+1F856 0041
+1F856 0062
+1F857 0021
+1F857 003F
+1F857 0061
+1F857 0041
+1F857 0062
+1F858 0021
+1F858 003F
+1F858 0061
+1F858 0041
+1F858 0062
+1F859 0021
+1F859 003F
+1F859 0061
+1F859 0041
+1F859 0062
+1F860 0021
+1F860 003F
+1F860 0061
+1F860 0041
+1F860 0062
+1F861 0021
+1F861 003F
+1F861 0061
+1F861 0041
+1F861 0062
+1F862 0021
+1F862 003F
+1F862 0061
+1F862 0041
+1F862 0062
+1F863 0021
+1F863 003F
+1F863 0061
+1F863 0041
+1F863 0062
+1F864 0021
+1F864 003F
+1F864 0061
+1F864 0041
+1F864 0062
+1F865 0021
+1F865 003F
+1F865 0061
+1F865 0041
+1F865 0062
+1F866 0021
+1F866 003F
+1F866 0061
+1F866 0041
+1F866 0062
+1F867 0021
+1F867 003F
+1F867 0061
+1F867 0041
+1F867 0062
+1F868 0021
+1F868 003F
+1F868 0061
+1F868 0041
+1F868 0062
+1F869 0021
+1F869 003F
+1F869 0061
+1F869 0041
+1F869 0062
+1F86A 0021
+1F86A 003F
+1F86A 0061
+1F86A 0041
+1F86A 0062
+1F86B 0021
+1F86B 003F
+1F86B 0061
+1F86B 0041
+1F86B 0062
+1F86C 0021
+1F86C 003F
+1F86C 0061
+1F86C 0041
+1F86C 0062
+1F86D 0021
+1F86D 003F
+1F86D 0061
+1F86D 0041
+1F86D 0062
+1F86E 0021
+1F86E 003F
+1F86E 0061
+1F86E 0041
+1F86E 0062
+1F86F 0021
+1F86F 003F
+1F86F 0061
+1F86F 0041
+1F86F 0062
+1F870 0021
+1F870 003F
+1F870 0061
+1F870 0041
+1F870 0062
+1F871 0021
+1F871 003F
+1F871 0061
+1F871 0041
+1F871 0062
+1F872 0021
+1F872 003F
+1F872 0061
+1F872 0041
+1F872 0062
+1F873 0021
+1F873 003F
+1F873 0061
+1F873 0041
+1F873 0062
+1F874 0021
+1F874 003F
+1F874 0061
+1F874 0041
+1F874 0062
+1F875 0021
+1F875 003F
+1F875 0061
+1F875 0041
+1F875 0062
+1F876 0021
+1F876 003F
+1F876 0061
+1F876 0041
+1F876 0062
+1F877 0021
+1F877 003F
+1F877 0061
+1F877 0041
+1F877 0062
+1F878 0021
+1F878 003F
+1F878 0061
+1F878 0041
+1F878 0062
+1F879 0021
+1F879 003F
+1F879 0061
+1F879 0041
+1F879 0062
+1F87A 0021
+1F87A 003F
+1F87A 0061
+1F87A 0041
+1F87A 0062
+1F87B 0021
+1F87B 003F
+1F87B 0061
+1F87B 0041
+1F87B 0062
+1F87C 0021
+1F87C 003F
+1F87C 0061
+1F87C 0041
+1F87C 0062
+1F87D 0021
+1F87D 003F
+1F87D 0061
+1F87D 0041
+1F87D 0062
+1F87E 0021
+1F87E 003F
+1F87E 0061
+1F87E 0041
+1F87E 0062
+1F87F 0021
+1F87F 003F
+1F87F 0061
+1F87F 0041
+1F87F 0062
+1F880 0021
+1F880 003F
+1F880 0061
+1F880 0041
+1F880 0062
+1F881 0021
+1F881 003F
+1F881 0061
+1F881 0041
+1F881 0062
+1F882 0021
+1F882 003F
+1F882 0061
+1F882 0041
+1F882 0062
+1F883 0021
+1F883 003F
+1F883 0061
+1F883 0041
+1F883 0062
+1F884 0021
+1F884 003F
+1F884 0061
+1F884 0041
+1F884 0062
+1F885 0021
+1F885 003F
+1F885 0061
+1F885 0041
+1F885 0062
+1F886 0021
+1F886 003F
+1F886 0061
+1F886 0041
+1F886 0062
+1F887 0021
+1F887 003F
+1F887 0061
+1F887 0041
+1F887 0062
+1F890 0021
+1F890 003F
+1F890 0061
+1F890 0041
+1F890 0062
+1F891 0021
+1F891 003F
+1F891 0061
+1F891 0041
+1F891 0062
+1F892 0021
+1F892 003F
+1F892 0061
+1F892 0041
+1F892 0062
+1F893 0021
+1F893 003F
+1F893 0061
+1F893 0041
+1F893 0062
+1F894 0021
+1F894 003F
+1F894 0061
+1F894 0041
+1F894 0062
+1F895 0021
+1F895 003F
+1F895 0061
+1F895 0041
+1F895 0062
+1F896 0021
+1F896 003F
+1F896 0061
+1F896 0041
+1F896 0062
+1F897 0021
+1F897 003F
+1F897 0061
+1F897 0041
+1F897 0062
+1F898 0021
+1F898 003F
+1F898 0061
+1F898 0041
+1F898 0062
+1F899 0021
+1F899 003F
+1F899 0061
+1F899 0041
+1F899 0062
+1F89A 0021
+1F89A 003F
+1F89A 0061
+1F89A 0041
+1F89A 0062
+1F89B 0021
+1F89B 003F
+1F89B 0061
+1F89B 0041
+1F89B 0062
+1F89C 0021
+1F89C 003F
+1F89C 0061
+1F89C 0041
+1F89C 0062
+1F89D 0021
+1F89D 003F
+1F89D 0061
+1F89D 0041
+1F89D 0062
+1F89E 0021
+1F89E 003F
+1F89E 0061
+1F89E 0041
+1F89E 0062
+1F89F 0021
+1F89F 003F
+1F89F 0061
+1F89F 0041
+1F89F 0062
+1F8A0 0021
+1F8A0 003F
+1F8A0 0061
+1F8A0 0041
+1F8A0 0062
+1F8A1 0021
+1F8A1 003F
+1F8A1 0061
+1F8A1 0041
+1F8A1 0062
+1F8A2 0021
+1F8A2 003F
+1F8A2 0061
+1F8A2 0041
+1F8A2 0062
+1F8A3 0021
+1F8A3 003F
+1F8A3 0061
+1F8A3 0041
+1F8A3 0062
+1F8A4 0021
+1F8A4 003F
+1F8A4 0061
+1F8A4 0041
+1F8A4 0062
+1F8A5 0021
+1F8A5 003F
+1F8A5 0061
+1F8A5 0041
+1F8A5 0062
+1F8A6 0021
+1F8A6 003F
+1F8A6 0061
+1F8A6 0041
+1F8A6 0062
+1F8A7 0021
+1F8A7 003F
+1F8A7 0061
+1F8A7 0041
+1F8A7 0062
+1F8A8 0021
+1F8A8 003F
+1F8A8 0061
+1F8A8 0041
+1F8A8 0062
+1F8A9 0021
+1F8A9 003F
+1F8A9 0061
+1F8A9 0041
+1F8A9 0062
+1F8AA 0021
+1F8AA 003F
+1F8AA 0061
+1F8AA 0041
+1F8AA 0062
+1F8AB 0021
+1F8AB 003F
+1F8AB 0061
+1F8AB 0041
+1F8AB 0062
+1F8AC 0021
+1F8AC 003F
+1F8AC 0061
+1F8AC 0041
+1F8AC 0062
+1F8AD 0021
+1F8AD 003F
+1F8AD 0061
+1F8AD 0041
+1F8AD 0062
2FF0 0021
2FF0 003F
2FF0 0061
@@ -29520,11 +33482,6 @@ FFFC 003F
FFFC 0061
FFFC 0041
FFFC 0062
-FFFD 0021
-FFFD 003F
-FFFD 0061
-FFFD 0041
-FFFD 0062
02D0 0021
02D0 003F
02D0 0061
@@ -29565,6 +33522,11 @@ A9CF 003F
A9CF 0061
A9CF 0041
A9CF 0062
+A9E6 0021
+A9E6 003F
+A9E6 0061
+A9E6 0041
+A9E6 0062
AA70 0021
AA70 003F
AA70 0061
@@ -29585,6 +33547,16 @@ AAF4 003F
AAF4 0061
AAF4 0041
AAF4 0062
+16B42 0021
+16B42 003F
+16B42 0061
+16B42 0041
+16B42 0062
+16B43 0021
+16B43 003F
+16B43 0061
+16B43 0041
+16B43 0062
3005 0021
3005 003F
3005 0061
@@ -29891,6 +33863,21 @@ FFE6 0062
20BA 0061
20BA 0041
20BA 0062
+20BB 0021
+20BB 003F
+20BB 0061
+20BB 0041
+20BB 0062
+20BC 0021
+20BC 003F
+20BC 0061
+20BC 0041
+20BC 0062
+20BD 0021
+20BD 003F
+20BD 0061
+20BD 0041
+20BD 0062
20A8 0021
20A8 003F
20A8 0061
@@ -30646,6 +34633,101 @@ A835 0062
10178 0061
10178 0041
10178 0062
+1018B 0021
+1018B 003F
+1018B 0061
+1018B 0041
+1018B 0062
+102EA 0021
+102EA 003F
+102EA 0061
+102EA 0041
+102EA 0062
+102EB 0021
+102EB 003F
+102EB 0061
+102EB 0041
+102EB 0062
+102EC 0021
+102EC 003F
+102EC 0061
+102EC 0041
+102EC 0062
+102ED 0021
+102ED 003F
+102ED 0061
+102ED 0041
+102ED 0062
+102EE 0021
+102EE 003F
+102EE 0061
+102EE 0041
+102EE 0062
+102EF 0021
+102EF 003F
+102EF 0061
+102EF 0041
+102EF 0062
+102F0 0021
+102F0 003F
+102F0 0061
+102F0 0041
+102F0 0062
+102F1 0021
+102F1 003F
+102F1 0061
+102F1 0041
+102F1 0062
+102F2 0021
+102F2 003F
+102F2 0061
+102F2 0041
+102F2 0062
+102F3 0021
+102F3 003F
+102F3 0061
+102F3 0041
+102F3 0062
+102F4 0021
+102F4 003F
+102F4 0061
+102F4 0041
+102F4 0062
+102F5 0021
+102F5 003F
+102F5 0061
+102F5 0041
+102F5 0062
+102F6 0021
+102F6 003F
+102F6 0061
+102F6 0041
+102F6 0062
+102F7 0021
+102F7 003F
+102F7 0061
+102F7 0041
+102F7 0062
+102F8 0021
+102F8 003F
+102F8 0061
+102F8 0041
+102F8 0062
+102F9 0021
+102F9 003F
+102F9 0061
+102F9 0041
+102F9 0062
+102FA 0021
+102FA 003F
+102FA 0061
+102FA 0041
+102FA 0062
+102FB 0021
+102FB 003F
+102FB 0061
+102FB 0041
+102FB 0062
103D3 0021
103D3 003F
103D3 0061
@@ -30661,11 +34743,46 @@ A835 0062
103D5 0061
103D5 0041
103D5 0062
+1087E 0021
+1087E 003F
+1087E 0061
+1087E 0041
+1087E 0062
+1087F 0021
+1087F 003F
+1087F 0061
+1087F 0041
+1087F 0062
+108AD 0021
+108AD 003F
+108AD 0061
+108AD 0041
+108AD 0062
+108AE 0021
+108AE 003F
+108AE 0061
+108AE 0041
+108AE 0062
+108AF 0021
+108AF 003F
+108AF 0061
+108AF 0041
+108AF 0062
10A7E 0021
10A7E 003F
10A7E 0061
10A7E 0041
10A7E 0062
+10A9E 0021
+10A9E 003F
+10A9E 0061
+10A9E 0041
+10A9E 0062
+10A9F 0021
+10A9F 003F
+10A9F 0061
+10A9F 0041
+10A9F 0062
10917 0021
10917 003F
10917 0061
@@ -30706,6 +34823,21 @@ A835 0062
1085F 0061
1085F 0041
1085F 0062
+10AED 0021
+10AED 003F
+10AED 0061
+10AED 0041
+10AED 0062
+10AEE 0021
+10AEE 003F
+10AEE 0061
+10AEE 0041
+10AEE 0062
+10AEF 0021
+10AEF 003F
+10AEF 0061
+10AEF 0041
+10AEF 0062
10B5C 0021
10B5C 003F
10B5C 0061
@@ -30746,6 +34878,21 @@ A835 0062
10B7F 0061
10B7F 0041
10B7F 0062
+10BAD 0021
+10BAD 003F
+10BAD 0061
+10BAD 0041
+10BAD 0062
+10BAE 0021
+10BAE 003F
+10BAE 0061
+10BAE 0041
+10BAE 0062
+10BAF 0021
+10BAF 003F
+10BAF 0061
+10BAF 0041
+10BAF 0062
1105B 0021
1105B 003F
1105B 0061
@@ -30821,6 +34968,141 @@ A835 0062
10A47 0061
10A47 0041
10A47 0062
+111EA 0021
+111EA 003F
+111EA 0061
+111EA 0041
+111EA 0062
+111EB 0021
+111EB 003F
+111EB 0061
+111EB 0041
+111EB 0062
+111EC 0021
+111EC 003F
+111EC 0061
+111EC 0041
+111EC 0062
+111ED 0021
+111ED 003F
+111ED 0061
+111ED 0041
+111ED 0062
+111EE 0021
+111EE 003F
+111EE 0061
+111EE 0041
+111EE 0062
+111EF 0021
+111EF 003F
+111EF 0061
+111EF 0041
+111EF 0062
+111F0 0021
+111F0 003F
+111F0 0061
+111F0 0041
+111F0 0062
+111F1 0021
+111F1 003F
+111F1 0061
+111F1 0041
+111F1 0062
+111F2 0021
+111F2 003F
+111F2 0061
+111F2 0041
+111F2 0062
+111F3 0021
+111F3 003F
+111F3 0061
+111F3 0041
+111F3 0062
+111F4 0021
+111F4 003F
+111F4 0061
+111F4 0041
+111F4 0062
+118EA 0021
+118EA 003F
+118EA 0061
+118EA 0041
+118EA 0062
+118EB 0021
+118EB 003F
+118EB 0061
+118EB 0041
+118EB 0062
+118EC 0021
+118EC 003F
+118EC 0061
+118EC 0041
+118EC 0062
+118ED 0021
+118ED 003F
+118ED 0061
+118ED 0041
+118ED 0062
+118EE 0021
+118EE 003F
+118EE 0061
+118EE 0041
+118EE 0062
+118EF 0021
+118EF 003F
+118EF 0061
+118EF 0041
+118EF 0062
+118F0 0021
+118F0 003F
+118F0 0061
+118F0 0041
+118F0 0062
+118F1 0021
+118F1 003F
+118F1 0061
+118F1 0041
+118F1 0062
+118F2 0021
+118F2 003F
+118F2 0061
+118F2 0041
+118F2 0062
+16B5B 0021
+16B5B 003F
+16B5B 0061
+16B5B 0041
+16B5B 0062
+16B5C 0021
+16B5C 003F
+16B5C 0061
+16B5C 0041
+16B5C 0062
+16B5D 0021
+16B5D 003F
+16B5D 0061
+16B5D 0041
+16B5D 0062
+16B5E 0021
+16B5E 003F
+16B5E 0061
+16B5E 0041
+16B5E 0062
+16B5F 0021
+16B5F 003F
+16B5F 0061
+16B5F 0041
+16B5F 0062
+16B60 0021
+16B60 003F
+16B60 0061
+16B60 0041
+16B60 0062
+16B61 0021
+16B61 003F
+16B61 0061
+16B61 0041
+16B61 0062
12432 0021
12432 003F
12432 0061
@@ -30831,16 +35113,6 @@ A835 0062
12433 0061
12433 0041
12433 0062
-12456 0021
-12456 003F
-12456 0061
-12456 0041
-12456 0062
-12457 0021
-12457 003F
-12457 0061
-12457 0041
-12457 0062
1245A 0021
1245A 003F
1245A 0061
@@ -30886,6 +35158,36 @@ A835 0062
12462 0061
12462 0041
12462 0062
+12463 0021
+12463 003F
+12463 0061
+12463 0041
+12463 0062
+12464 0021
+12464 003F
+12464 0061
+12464 0041
+12464 0062
+12465 0021
+12465 003F
+12465 0061
+12465 0041
+12465 0062
+12466 0021
+12466 003F
+12466 0061
+12466 0041
+12466 0062
+12467 0021
+12467 003F
+12467 0061
+12467 0041
+12467 0062
+12468 0021
+12468 003F
+12468 0061
+12468 0041
+12468 0062
1D369 0021
1D369 003F
1D369 0061
@@ -30937,20 +35239,9 @@ A835 0062
1F101 0041
1F101 0062
0030 0021
-FF10 0021
-1D7CE 0021
-1D7D8 0021
-1D7E2 0021
-1D7EC 0021
-1D7F6 0021
-24EA 0021
-24FF 0021
-2070 0021
-2080 0021
0660 0021
06F0 0021
07C0 0021
-104A0 0021
0966 0021
09E6 0021
0A66 0021
@@ -30961,51 +35252,61 @@ FF10 0021
0C78 0021
0CE6 0021
0D66 0021
-ABF0 0021
-A8D0 0021
-1946 0021
-19D0 0021
-1A80 0021
-1A90 0021
+0DE6 0021
0E50 0021
0ED0 0021
0F20 0021
-0F33 0021
-1C40 0021
-A900 0021
1040 0021
1090 0021
-11136 0021
17E0 0021
17F0 0021
-AA50 0021
+1810 0021
+1946 0021
+19D0 0021
+1A80 0021
+1A90 0021
1B50 0021
-A9D0 0021
1BB0 0021
-1810 0021
+1C40 0021
1C50 0021
-A620 0021
-110F0 0021
3007 0021
+A620 0021
+A8D0 0021
+A900 0021
+A9D0 0021
+A9F0 0021
+AA50 0021
+ABF0 0021
1018A 0021
+104A0 0021
+11066 0021
+110F0 0021
+11136 0021
111D0 0021
+112F0 0021
+114D0 0021
+11650 0021
116C0 0021
-11066 0021
+118E0 0021
+16A60 0021
+16B50 0021
+FF10 0021
+0F33 0021
+1D7CE 0021
+1D7D8 0021
+1D7E2 0021
+1D7EC 0021
+1D7F6 0021
+24EA 0021
+24FF 0021
+1F10B 0021
+1F10C 0021
+2070 0021
+2080 0021
0030 003F
-FF10 003F
-1D7CE 003F
-1D7D8 003F
-1D7E2 003F
-1D7EC 003F
-1D7F6 003F
-24EA 003F
-24FF 003F
-2070 003F
-2080 003F
0660 003F
06F0 003F
07C0 003F
-104A0 003F
0966 003F
09E6 003F
0A66 003F
@@ -31016,36 +35317,57 @@ FF10 003F
0C78 003F
0CE6 003F
0D66 003F
-ABF0 003F
-A8D0 003F
-1946 003F
-19D0 003F
-1A80 003F
-1A90 003F
+0DE6 003F
0E50 003F
0ED0 003F
0F20 003F
-0F33 003F
-1C40 003F
-A900 003F
1040 003F
1090 003F
-11136 003F
17E0 003F
17F0 003F
-AA50 003F
+1810 003F
+1946 003F
+19D0 003F
+1A80 003F
+1A90 003F
1B50 003F
-A9D0 003F
1BB0 003F
-1810 003F
+1C40 003F
1C50 003F
-A620 003F
-110F0 003F
3007 003F
+A620 003F
+A8D0 003F
+A900 003F
+A9D0 003F
+A9F0 003F
+AA50 003F
+ABF0 003F
1018A 003F
+104A0 003F
+11066 003F
+110F0 003F
+11136 003F
111D0 003F
+112F0 003F
+114D0 003F
+11650 003F
116C0 003F
-11066 003F
+118E0 003F
+16A60 003F
+16B50 003F
+FF10 003F
+0F33 003F
+1D7CE 003F
+1D7D8 003F
+1D7E2 003F
+1D7EC 003F
+1D7F6 003F
+24EA 003F
+24FF 003F
+1F10B 003F
+1F10C 003F
+2070 003F
+2080 003F
1F100 0021
1F100 003F
1F100 0061
@@ -31057,130 +35379,139 @@ A620 003F
2189 0041
2189 0062
0030 0061
-0030 0041
-FF10 0061
-FF10 0041
-1D7CE 0061
-1D7D8 0061
-1D7E2 0061
-1D7EC 0061
-1D7F6 0061
-1D7CE 0041
-1D7D8 0041
-1D7E2 0041
-1D7EC 0041
-1D7F6 0041
-24EA 0061
-24FF 0061
-24EA 0041
-24FF 0041
-2070 0061
-2070 0041
-2080 0061
-2080 0041
0660 0061
-0660 0041
06F0 0061
-06F0 0041
07C0 0061
-07C0 0041
-104A0 0061
-104A0 0041
0966 0061
-0966 0041
09E6 0061
-09E6 0041
0A66 0061
-0A66 0041
0AE6 0061
-0AE6 0041
0B66 0061
-0B66 0041
0BE6 0061
-0BE6 0041
0C66 0061
0C78 0061
-0C66 0041
-0C78 0041
0CE6 0061
-0CE6 0041
0D66 0061
-0D66 0041
-ABF0 0061
-ABF0 0041
-A8D0 0061
-A8D0 0041
+0DE6 0061
+0E50 0061
+0ED0 0061
+0F20 0061
+1040 0061
+1090 0061
+17E0 0061
+17F0 0061
+1810 0061
1946 0061
-1946 0041
19D0 0061
-19D0 0041
1A80 0061
-1A80 0041
1A90 0061
-1A90 0041
-0E50 0061
+1B50 0061
+1BB0 0061
+1C40 0061
+1C50 0061
+3007 0061
+A620 0061
+A8D0 0061
+A900 0061
+A9D0 0061
+A9F0 0061
+AA50 0061
+ABF0 0061
+1018A 0061
+104A0 0061
+11066 0061
+110F0 0061
+11136 0061
+111D0 0061
+112F0 0061
+114D0 0061
+11650 0061
+116C0 0061
+118E0 0061
+16A60 0061
+16B50 0061
+0030 0041
+0660 0041
+06F0 0041
+07C0 0041
+0966 0041
+09E6 0041
+0A66 0041
+0AE6 0041
+0B66 0041
+0BE6 0041
+0C66 0041
+0C78 0041
+0CE6 0041
+0D66 0041
+0DE6 0041
0E50 0041
-0ED0 0061
0ED0 0041
-0F20 0061
0F20 0041
-0F33 0061
-0F33 0041
-1C40 0061
-1C40 0041
-A900 0061
-A900 0041
-1040 0061
1040 0041
-1090 0061
1090 0041
-11136 0061
-11136 0041
-17E0 0061
17E0 0041
-17F0 0061
17F0 0041
-AA50 0061
-AA50 0041
-1B50 0061
+1810 0041
+1946 0041
+19D0 0041
+1A80 0041
+1A90 0041
1B50 0041
-A9D0 0061
-A9D0 0041
-1BB0 0061
1BB0 0041
-1810 0061
-1810 0041
-1C50 0061
+1C40 0041
1C50 0041
-A620 0061
-A620 0041
-110F0 0061
-110F0 0041
-3007 0061
3007 0041
-1018A 0061
+A620 0041
+A8D0 0041
+A900 0041
+A9D0 0041
+A9F0 0041
+AA50 0041
+ABF0 0041
1018A 0041
-111D0 0061
+104A0 0041
+11066 0041
+110F0 0041
+11136 0041
111D0 0041
-116C0 0061
+112F0 0041
+114D0 0041
+11650 0041
116C0 0041
-11066 0061
-11066 0041
+118E0 0041
+16A60 0041
+16B50 0041
+FF10 0061
+FF10 0041
+0F33 0061
+0F33 0041
+1D7CE 0061
+1D7D8 0061
+1D7E2 0061
+1D7EC 0061
+1D7F6 0061
+1D7CE 0041
+1D7D8 0041
+1D7E2 0041
+1D7EC 0041
+1D7F6 0041
+24EA 0061
+24FF 0061
+1F10B 0061
+1F10C 0061
+24EA 0041
+24FF 0041
+1F10B 0041
+1F10C 0041
+2070 0061
+2070 0041
+2080 0061
+2080 0041
0030 0062
-FF10 0062
-1D7CE 0062
-1D7D8 0062
-1D7E2 0062
-1D7EC 0062
-1D7F6 0062
-24EA 0062
-24FF 0062
-2070 0062
-2080 0062
0660 0062
06F0 0062
07C0 0062
-104A0 0062
0966 0062
09E6 0062
0A66 0062
@@ -31191,36 +35522,57 @@ FF10 0062
0C78 0062
0CE6 0062
0D66 0062
-ABF0 0062
-A8D0 0062
-1946 0062
-19D0 0062
-1A80 0062
-1A90 0062
+0DE6 0062
0E50 0062
0ED0 0062
0F20 0062
-0F33 0062
-1C40 0062
-A900 0062
1040 0062
1090 0062
-11136 0062
17E0 0062
17F0 0062
-AA50 0062
+1810 0062
+1946 0062
+19D0 0062
+1A80 0062
+1A90 0062
1B50 0062
-A9D0 0062
1BB0 0062
-1810 0062
+1C40 0062
1C50 0062
-A620 0062
-110F0 0062
3007 0062
+A620 0062
+A8D0 0062
+A900 0062
+A9D0 0062
+A9F0 0062
+AA50 0062
+ABF0 0062
1018A 0062
+104A0 0062
+11066 0062
+110F0 0062
+11136 0062
111D0 0062
+112F0 0062
+114D0 0062
+11650 0062
116C0 0062
-11066 0062
+118E0 0062
+16A60 0062
+16B50 0062
+FF10 0062
+0F33 0062
+1D7CE 0062
+1D7D8 0062
+1D7E2 0062
+1D7EC 0062
+1D7F6 0062
+24EA 0062
+24FF 0062
+1F10B 0062
+1F10C 0062
+2070 0062
+2080 0062
3358 0021
3358 003F
3358 0061
@@ -31232,25 +35584,9 @@ A620 0062
1F102 0041
1F102 0062
0031 0021
-FF11 0021
-1D7CF 0021
-1D7D9 0021
-1D7E3 0021
-1D7ED 0021
-1D7F7 0021
-2460 0021
-24F5 0021
-2776 0021
-2780 0021
-278A 0021
-00B9 0021
-2081 0021
0661 0021
06F1 0021
-10E60 0021
07C1 0021
-1369 0021
-104A1 0021
0967 0021
09E7 0021
0A67 0021
@@ -31262,77 +35598,93 @@ FF11 0021
0C7C 0021
0CE7 0021
0D67 0021
-ABF1 0021
-A8D1 0021
-1947 0021
-19D1 0021
-19DA 0021
-1A81 0021
-1A91 0021
+0DE7 0021
0E51 0021
0ED1 0021
0F21 0021
-0F2A 0021
-1C41 0021
-A901 0021
1041 0021
1091 0021
-11137 0021
+1369 0021
17E1 0021
17F1 0021
-AA51 0021
+1811 0021
+1947 0021
+19D1 0021
+19DA 0021
+1A81 0021
+1A91 0021
1B51 0021
-A9D1 0021
1BB1 0021
-1811 0021
+1C41 0021
1C51 0021
-A621 0021
-110F1 0021
3021 0021
+A621 0021
+A8D1 0021
+A901 0021
+A9D1 0021
+A9F1 0021
+AA51 0021
+ABF1 0021
10107 0021
10142 0021
10158 0021
10159 0021
1015A 0021
+102E1 0021
10320 0021
103D1 0021
+104A1 0021
+10858 0021
+10879 0021
+108A7 0021
+10916 0021
+10A40 0021
+10A7D 0021
+10A9D 0021
+10AEB 0021
+10B58 0021
+10B78 0021
+10BA9 0021
+10E60 0021
+11052 0021
+11067 0021
+110F1 0021
+11137 0021
+111D1 0021
+111E1 0021
+112F1 0021
+114D1 0021
+11651 0021
+116C1 0021
+118E1 0021
12415 0021
1241E 0021
1242C 0021
12434 0021
1244F 0021
12458 0021
-10A7D 0021
-10916 0021
-10858 0021
-10B58 0021
-10B78 0021
-111D1 0021
-116C1 0021
-11067 0021
-11052 0021
-10A40 0021
+16A61 0021
+16B51 0021
1D360 0021
+1E8C7 0021
+FF11 0021
+0F2A 0021
+1D7CF 0021
+1D7D9 0021
+1D7E3 0021
+1D7ED 0021
+1D7F7 0021
+2460 0021
+24F5 0021
+2776 0021
+2780 0021
+278A 0021
+00B9 0021
+2081 0021
0031 003F
-FF11 003F
-1D7CF 003F
-1D7D9 003F
-1D7E3 003F
-1D7ED 003F
-1D7F7 003F
-2460 003F
-24F5 003F
-2776 003F
-2780 003F
-278A 003F
-00B9 003F
-2081 003F
0661 003F
06F1 003F
-10E60 003F
07C1 003F
-1369 003F
-104A1 003F
0967 003F
09E7 003F
0A67 003F
@@ -31344,57 +35696,89 @@ FF11 003F
0C7C 003F
0CE7 003F
0D67 003F
-ABF1 003F
-A8D1 003F
-1947 003F
-19D1 003F
-19DA 003F
-1A81 003F
-1A91 003F
+0DE7 003F
0E51 003F
0ED1 003F
0F21 003F
-0F2A 003F
-1C41 003F
-A901 003F
1041 003F
1091 003F
-11137 003F
+1369 003F
17E1 003F
17F1 003F
-AA51 003F
+1811 003F
+1947 003F
+19D1 003F
+19DA 003F
+1A81 003F
+1A91 003F
1B51 003F
-A9D1 003F
1BB1 003F
-1811 003F
+1C41 003F
1C51 003F
-A621 003F
-110F1 003F
3021 003F
+A621 003F
+A8D1 003F
+A901 003F
+A9D1 003F
+A9F1 003F
+AA51 003F
+ABF1 003F
10107 003F
10142 003F
10158 003F
10159 003F
1015A 003F
+102E1 003F
10320 003F
103D1 003F
+104A1 003F
+10858 003F
+10879 003F
+108A7 003F
+10916 003F
+10A40 003F
+10A7D 003F
+10A9D 003F
+10AEB 003F
+10B58 003F
+10B78 003F
+10BA9 003F
+10E60 003F
+11052 003F
+11067 003F
+110F1 003F
+11137 003F
+111D1 003F
+111E1 003F
+112F1 003F
+114D1 003F
+11651 003F
+116C1 003F
+118E1 003F
12415 003F
1241E 003F
1242C 003F
12434 003F
1244F 003F
12458 003F
-10A7D 003F
-10916 003F
-10858 003F
-10B58 003F
-10B78 003F
-111D1 003F
-116C1 003F
-11067 003F
-11052 003F
-10A40 003F
+16A61 003F
+16B51 003F
1D360 003F
+1E8C7 003F
+FF11 003F
+0F2A 003F
+1D7CF 003F
+1D7D9 003F
+1D7E3 003F
+1D7ED 003F
+1D7F7 003F
+2460 003F
+24F5 003F
+2776 003F
+2780 003F
+278A 003F
+00B9 003F
+2081 003F
2488 0021
2488 003F
2488 0061
@@ -31736,189 +36120,205 @@ A621 003F
336B 0041
336B 0062
0031 0061
-0031 0041
-FF11 0061
-FF11 0041
-1D7CF 0061
-1D7D9 0061
-1D7E3 0061
-1D7ED 0061
-1D7F7 0061
-1D7CF 0041
-1D7D9 0041
-1D7E3 0041
-1D7ED 0041
-1D7F7 0041
-2460 0061
-24F5 0061
-2776 0061
-2780 0061
-278A 0061
-2460 0041
-24F5 0041
-2776 0041
-2780 0041
-278A 0041
-00B9 0061
-00B9 0041
-2081 0061
-2081 0041
0661 0061
-0661 0041
06F1 0061
-06F1 0041
-10E60 0061
-10E60 0041
07C1 0061
-07C1 0041
-1369 0061
-1369 0041
-104A1 0061
-104A1 0041
0967 0061
-0967 0041
09E7 0061
-09E7 0041
0A67 0061
-0A67 0041
0AE7 0061
-0AE7 0041
0B67 0061
-0B67 0041
0BE7 0061
-0BE7 0041
0C67 0061
0C79 0061
0C7C 0061
-0C67 0041
-0C79 0041
-0C7C 0041
0CE7 0061
-0CE7 0041
0D67 0061
-0D67 0041
-ABF1 0061
-ABF1 0041
-A8D1 0061
-A8D1 0041
-1947 0061
-1947 0041
-19D1 0061
-19DA 0061
-19D1 0041
-19DA 0041
-1A81 0061
-1A81 0041
-1A91 0061
-1A91 0041
+0DE7 0061
0E51 0061
-0E51 0041
0ED1 0061
-0ED1 0041
0F21 0061
-0F21 0041
-0F2A 0061
-0F2A 0041
-1C41 0061
-1C41 0041
-A901 0061
-A901 0041
1041 0061
-1041 0041
1091 0061
-1091 0041
-11137 0061
-11137 0041
+1369 0061
17E1 0061
-17E1 0041
17F1 0061
-17F1 0041
-AA51 0061
-AA51 0041
+1811 0061
+1947 0061
+19D1 0061
+19DA 0061
+1A81 0061
+1A91 0061
1B51 0061
-1B51 0041
-A9D1 0061
-A9D1 0041
1BB1 0061
-1BB1 0041
-1811 0061
-1811 0041
+1C41 0061
1C51 0061
-1C51 0041
-A621 0061
-A621 0041
-110F1 0061
-110F1 0041
3021 0061
-3021 0041
+A621 0061
+A8D1 0061
+A901 0061
+A9D1 0061
+A9F1 0061
+AA51 0061
+ABF1 0061
10107 0061
-10107 0041
10142 0061
10158 0061
10159 0061
1015A 0061
-10142 0041
-10158 0041
-10159 0041
-1015A 0041
+102E1 0061
10320 0061
-10320 0041
103D1 0061
-103D1 0041
+104A1 0061
+10858 0061
+10879 0061
+108A7 0061
+10916 0061
+10A40 0061
+10A7D 0061
+10A9D 0061
+10AEB 0061
+10B58 0061
+10B78 0061
+10BA9 0061
+10E60 0061
+11052 0061
+11067 0061
+110F1 0061
+11137 0061
+111D1 0061
+111E1 0061
+112F1 0061
+114D1 0061
+11651 0061
+116C1 0061
+118E1 0061
12415 0061
1241E 0061
1242C 0061
12434 0061
1244F 0061
12458 0061
+16A61 0061
+16B51 0061
+1D360 0061
+1E8C7 0061
+0031 0041
+0661 0041
+06F1 0041
+07C1 0041
+0967 0041
+09E7 0041
+0A67 0041
+0AE7 0041
+0B67 0041
+0BE7 0041
+0C67 0041
+0C79 0041
+0C7C 0041
+0CE7 0041
+0D67 0041
+0DE7 0041
+0E51 0041
+0ED1 0041
+0F21 0041
+1041 0041
+1091 0041
+1369 0041
+17E1 0041
+17F1 0041
+1811 0041
+1947 0041
+19D1 0041
+19DA 0041
+1A81 0041
+1A91 0041
+1B51 0041
+1BB1 0041
+1C41 0041
+1C51 0041
+3021 0041
+A621 0041
+A8D1 0041
+A901 0041
+A9D1 0041
+A9F1 0041
+AA51 0041
+ABF1 0041
+10107 0041
+10142 0041
+10158 0041
+10159 0041
+1015A 0041
+102E1 0041
+10320 0041
+103D1 0041
+104A1 0041
+10858 0041
+10879 0041
+108A7 0041
+10916 0041
+10A40 0041
+10A7D 0041
+10A9D 0041
+10AEB 0041
+10B58 0041
+10B78 0041
+10BA9 0041
+10E60 0041
+11052 0041
+11067 0041
+110F1 0041
+11137 0041
+111D1 0041
+111E1 0041
+112F1 0041
+114D1 0041
+11651 0041
+116C1 0041
+118E1 0041
12415 0041
1241E 0041
1242C 0041
12434 0041
1244F 0041
12458 0041
-10A7D 0061
-10A7D 0041
-10916 0061
-10916 0041
-10858 0061
-10858 0041
-10B58 0061
-10B58 0041
-10B78 0061
-10B78 0041
-111D1 0061
-111D1 0041
-116C1 0061
-116C1 0041
-11067 0061
-11067 0041
-11052 0061
-11052 0041
-10A40 0061
-10A40 0041
-1D360 0061
+16A61 0041
+16B51 0041
1D360 0041
+1E8C7 0041
+FF11 0061
+FF11 0041
+0F2A 0061
+0F2A 0041
+1D7CF 0061
+1D7D9 0061
+1D7E3 0061
+1D7ED 0061
+1D7F7 0061
+1D7CF 0041
+1D7D9 0041
+1D7E3 0041
+1D7ED 0041
+1D7F7 0041
+2460 0061
+24F5 0061
+2776 0061
+2780 0061
+278A 0061
+2460 0041
+24F5 0041
+2776 0041
+2780 0041
+278A 0041
+00B9 0061
+00B9 0041
+2081 0061
+2081 0041
0031 0062
-FF11 0062
-1D7CF 0062
-1D7D9 0062
-1D7E3 0062
-1D7ED 0062
-1D7F7 0062
-2460 0062
-24F5 0062
-2776 0062
-2780 0062
-278A 0062
-00B9 0062
-2081 0062
0661 0062
06F1 0062
-10E60 0062
07C1 0062
-1369 0062
-104A1 0062
0967 0062
09E7 0062
0A67 0062
@@ -31930,57 +36330,89 @@ FF11 0062
0C7C 0062
0CE7 0062
0D67 0062
-ABF1 0062
-A8D1 0062
-1947 0062
-19D1 0062
-19DA 0062
-1A81 0062
-1A91 0062
+0DE7 0062
0E51 0062
0ED1 0062
0F21 0062
-0F2A 0062
-1C41 0062
-A901 0062
1041 0062
1091 0062
-11137 0062
+1369 0062
17E1 0062
17F1 0062
-AA51 0062
+1811 0062
+1947 0062
+19D1 0062
+19DA 0062
+1A81 0062
+1A91 0062
1B51 0062
-A9D1 0062
1BB1 0062
-1811 0062
+1C41 0062
1C51 0062
-A621 0062
-110F1 0062
3021 0062
+A621 0062
+A8D1 0062
+A901 0062
+A9D1 0062
+A9F1 0062
+AA51 0062
+ABF1 0062
10107 0062
10142 0062
10158 0062
10159 0062
1015A 0062
+102E1 0062
10320 0062
103D1 0062
+104A1 0062
+10858 0062
+10879 0062
+108A7 0062
+10916 0062
+10A40 0062
+10A7D 0062
+10A9D 0062
+10AEB 0062
+10B58 0062
+10B78 0062
+10BA9 0062
+10E60 0062
+11052 0062
+11067 0062
+110F1 0062
+11137 0062
+111D1 0062
+111E1 0062
+112F1 0062
+114D1 0062
+11651 0062
+116C1 0062
+118E1 0062
12415 0062
1241E 0062
1242C 0062
12434 0062
1244F 0062
12458 0062
-10A7D 0062
-10916 0062
-10858 0062
-10B58 0062
-10B78 0062
-111D1 0062
-116C1 0062
-11067 0062
-11052 0062
-10A40 0062
+16A61 0062
+16B51 0062
1D360 0062
+1E8C7 0062
+FF11 0062
+0F2A 0062
+1D7CF 0062
+1D7D9 0062
+1D7E3 0062
+1D7ED 0062
+1D7F7 0062
+2460 0062
+24F5 0062
+2776 0062
+2780 0062
+278A 0062
+00B9 0062
+2081 0062
33E0 0021
33E0 003F
33E0 0061
@@ -32002,25 +36434,9 @@ A621 0062
1F103 0041
1F103 0062
0032 0021
-FF12 0021
-1D7D0 0021
-1D7DA 0021
-1D7E4 0021
-1D7EE 0021
-1D7F8 0021
-2461 0021
-24F6 0021
-2777 0021
-2781 0021
-278B 0021
-00B2 0021
-2082 0021
0662 0021
06F2 0021
-10E61 0021
07C2 0021
-136A 0021
-104A2 0021
0968 0021
09E8 0021
0A68 0021
@@ -32032,38 +36448,60 @@ FF12 0021
0C7D 0021
0CE8 0021
0D68 0021
-ABF2 0021
-A8D2 0021
-1948 0021
-19D2 0021
-1A82 0021
-1A92 0021
+0DE8 0021
0E52 0021
0ED2 0021
0F22 0021
-0F2B 0021
-1C42 0021
-A902 0021
1042 0021
1092 0021
-11138 0021
+136A 0021
17E2 0021
17F2 0021
-AA52 0021
+1812 0021
+1948 0021
+19D2 0021
+1A82 0021
+1A92 0021
1B52 0021
-A9D2 0021
1BB2 0021
-1812 0021
+1C42 0021
1C52 0021
-A622 0021
-110F2 0021
3022 0021
+A622 0021
+A8D2 0021
+A902 0021
+A9D2 0021
+A9F2 0021
+AA52 0021
+ABF2 0021
10108 0021
1015B 0021
1015C 0021
1015D 0021
1015E 0021
+102E2 0021
103D2 0021
+104A2 0021
+10859 0021
+1087A 0021
+108A8 0021
+1091A 0021
+10A41 0021
+10B59 0021
+10B79 0021
+10BAA 0021
+10E61 0021
+11053 0021
+11068 0021
+110F2 0021
+11138 0021
+111D2 0021
+111E2 0021
+112F2 0021
+114D2 0021
+11652 0021
+116C2 0021
+118E2 0021
12400 0021
12416 0021
1241F 0021
@@ -32072,37 +36510,30 @@ A622 0021
12435 0021
1244A 0021
12450 0021
+12456 0021
12459 0021
-1091A 0021
-10859 0021
-10B59 0021
-10B79 0021
-111D2 0021
-116C2 0021
-11068 0021
-11053 0021
-10A41 0021
+16A62 0021
+16B52 0021
1D361 0021
+1E8C8 0021
+FF12 0021
+0F2B 0021
+1D7D0 0021
+1D7DA 0021
+1D7E4 0021
+1D7EE 0021
+1D7F8 0021
+2461 0021
+24F6 0021
+2777 0021
+2781 0021
+278B 0021
+00B2 0021
+2082 0021
0032 003F
-FF12 003F
-1D7D0 003F
-1D7DA 003F
-1D7E4 003F
-1D7EE 003F
-1D7F8 003F
-2461 003F
-24F6 003F
-2777 003F
-2781 003F
-278B 003F
-00B2 003F
-2082 003F
0662 003F
06F2 003F
-10E61 003F
07C2 003F
-136A 003F
-104A2 003F
0968 003F
09E8 003F
0A68 003F
@@ -32114,38 +36545,60 @@ FF12 003F
0C7D 003F
0CE8 003F
0D68 003F
-ABF2 003F
-A8D2 003F
-1948 003F
-19D2 003F
-1A82 003F
-1A92 003F
+0DE8 003F
0E52 003F
0ED2 003F
0F22 003F
-0F2B 003F
-1C42 003F
-A902 003F
1042 003F
1092 003F
-11138 003F
+136A 003F
17E2 003F
17F2 003F
-AA52 003F
+1812 003F
+1948 003F
+19D2 003F
+1A82 003F
+1A92 003F
1B52 003F
-A9D2 003F
1BB2 003F
-1812 003F
+1C42 003F
1C52 003F
-A622 003F
-110F2 003F
3022 003F
+A622 003F
+A8D2 003F
+A902 003F
+A9D2 003F
+A9F2 003F
+AA52 003F
+ABF2 003F
10108 003F
1015B 003F
1015C 003F
1015D 003F
1015E 003F
+102E2 003F
103D2 003F
+104A2 003F
+10859 003F
+1087A 003F
+108A8 003F
+1091A 003F
+10A41 003F
+10B59 003F
+10B79 003F
+10BAA 003F
+10E61 003F
+11053 003F
+11068 003F
+110F2 003F
+11138 003F
+111D2 003F
+111E2 003F
+112F2 003F
+114D2 003F
+11652 003F
+116C2 003F
+118E2 003F
12400 003F
12416 003F
1241F 003F
@@ -32154,17 +36607,26 @@ A622 003F
12435 003F
1244A 003F
12450 003F
+12456 003F
12459 003F
-1091A 003F
-10859 003F
-10B59 003F
-10B79 003F
-111D2 003F
-116C2 003F
-11068 003F
-11053 003F
-10A41 003F
+16A62 003F
+16B52 003F
1D361 003F
+1E8C8 003F
+FF12 003F
+0F2B 003F
+1D7D0 003F
+1D7DA 003F
+1D7E4 003F
+1D7EE 003F
+1D7F8 003F
+2461 003F
+24F6 003F
+2777 003F
+2781 003F
+278B 003F
+00B2 003F
+2082 003F
2489 0021
2489 003F
2489 0061
@@ -32321,131 +36783,74 @@ A622 003F
33FC 0041
33FC 0062
0032 0061
-0032 0041
-FF12 0061
-FF12 0041
-1D7D0 0061
-1D7DA 0061
-1D7E4 0061
-1D7EE 0061
-1D7F8 0061
-1D7D0 0041
-1D7DA 0041
-1D7E4 0041
-1D7EE 0041
-1D7F8 0041
-2461 0061
-24F6 0061
-2777 0061
-2781 0061
-278B 0061
-2461 0041
-24F6 0041
-2777 0041
-2781 0041
-278B 0041
-00B2 0061
-00B2 0041
-2082 0061
-2082 0041
0662 0061
-0662 0041
06F2 0061
-06F2 0041
-10E61 0061
-10E61 0041
07C2 0061
-07C2 0041
-136A 0061
-136A 0041
-104A2 0061
-104A2 0041
0968 0061
-0968 0041
09E8 0061
-09E8 0041
0A68 0061
-0A68 0041
0AE8 0061
-0AE8 0041
0B68 0061
-0B68 0041
0BE8 0061
-0BE8 0041
0C68 0061
0C7A 0061
0C7D 0061
-0C68 0041
-0C7A 0041
-0C7D 0041
0CE8 0061
-0CE8 0041
0D68 0061
-0D68 0041
-ABF2 0061
-ABF2 0041
-A8D2 0061
-A8D2 0041
-1948 0061
-1948 0041
-19D2 0061
-19D2 0041
-1A82 0061
-1A82 0041
-1A92 0061
-1A92 0041
+0DE8 0061
0E52 0061
-0E52 0041
0ED2 0061
-0ED2 0041
0F22 0061
-0F22 0041
-0F2B 0061
-0F2B 0041
-1C42 0061
-1C42 0041
-A902 0061
-A902 0041
1042 0061
-1042 0041
1092 0061
-1092 0041
-11138 0061
-11138 0041
+136A 0061
17E2 0061
-17E2 0041
17F2 0061
-17F2 0041
-AA52 0061
-AA52 0041
+1812 0061
+1948 0061
+19D2 0061
+1A82 0061
+1A92 0061
1B52 0061
-1B52 0041
-A9D2 0061
-A9D2 0041
1BB2 0061
-1BB2 0041
-1812 0061
-1812 0041
+1C42 0061
1C52 0061
-1C52 0041
-A622 0061
-A622 0041
-110F2 0061
-110F2 0041
3022 0061
-3022 0041
+A622 0061
+A8D2 0061
+A902 0061
+A9D2 0061
+A9F2 0061
+AA52 0061
+ABF2 0061
10108 0061
-10108 0041
1015B 0061
1015C 0061
1015D 0061
1015E 0061
-1015B 0041
-1015C 0041
-1015D 0041
-1015E 0041
+102E2 0061
103D2 0061
-103D2 0041
+104A2 0061
+10859 0061
+1087A 0061
+108A8 0061
+1091A 0061
+10A41 0061
+10B59 0061
+10B79 0061
+10BAA 0061
+10E61 0061
+11053 0061
+11068 0061
+110F2 0061
+11138 0061
+111D2 0061
+111E2 0061
+112F2 0061
+114D2 0061
+11652 0061
+116C2 0061
+118E2 0061
12400 0061
12416 0061
1241F 0061
@@ -32454,7 +36859,81 @@ A622 0041
12435 0061
1244A 0061
12450 0061
+12456 0061
12459 0061
+16A62 0061
+16B52 0061
+1D361 0061
+1E8C8 0061
+0032 0041
+0662 0041
+06F2 0041
+07C2 0041
+0968 0041
+09E8 0041
+0A68 0041
+0AE8 0041
+0B68 0041
+0BE8 0041
+0C68 0041
+0C7A 0041
+0C7D 0041
+0CE8 0041
+0D68 0041
+0DE8 0041
+0E52 0041
+0ED2 0041
+0F22 0041
+1042 0041
+1092 0041
+136A 0041
+17E2 0041
+17F2 0041
+1812 0041
+1948 0041
+19D2 0041
+1A82 0041
+1A92 0041
+1B52 0041
+1BB2 0041
+1C42 0041
+1C52 0041
+3022 0041
+A622 0041
+A8D2 0041
+A902 0041
+A9D2 0041
+A9F2 0041
+AA52 0041
+ABF2 0041
+10108 0041
+1015B 0041
+1015C 0041
+1015D 0041
+1015E 0041
+102E2 0041
+103D2 0041
+104A2 0041
+10859 0041
+1087A 0041
+108A8 0041
+1091A 0041
+10A41 0041
+10B59 0041
+10B79 0041
+10BAA 0041
+10E61 0041
+11053 0041
+11068 0041
+110F2 0041
+11138 0041
+111D2 0041
+111E2 0041
+112F2 0041
+114D2 0041
+11652 0041
+116C2 0041
+118E2 0041
12400 0041
12416 0041
1241F 0041
@@ -32463,47 +36942,44 @@ A622 0041
12435 0041
1244A 0041
12450 0041
+12456 0041
12459 0041
-1091A 0061
-1091A 0041
-10859 0061
-10859 0041
-10B59 0061
-10B59 0041
-10B79 0061
-10B79 0041
-111D2 0061
-111D2 0041
-116C2 0061
-116C2 0041
-11068 0061
-11068 0041
-11053 0061
-11053 0041
-10A41 0061
-10A41 0041
-1D361 0061
+16A62 0041
+16B52 0041
1D361 0041
+1E8C8 0041
+FF12 0061
+FF12 0041
+0F2B 0061
+0F2B 0041
+1D7D0 0061
+1D7DA 0061
+1D7E4 0061
+1D7EE 0061
+1D7F8 0061
+1D7D0 0041
+1D7DA 0041
+1D7E4 0041
+1D7EE 0041
+1D7F8 0041
+2461 0061
+24F6 0061
+2777 0061
+2781 0061
+278B 0061
+2461 0041
+24F6 0041
+2777 0041
+2781 0041
+278B 0041
+00B2 0061
+00B2 0041
+2082 0061
+2082 0041
0032 0062
-FF12 0062
-1D7D0 0062
-1D7DA 0062
-1D7E4 0062
-1D7EE 0062
-1D7F8 0062
-2461 0062
-24F6 0062
-2777 0062
-2781 0062
-278B 0062
-00B2 0062
-2082 0062
0662 0062
06F2 0062
-10E61 0062
07C2 0062
-136A 0062
-104A2 0062
0968 0062
09E8 0062
0A68 0062
@@ -32515,38 +36991,60 @@ FF12 0062
0C7D 0062
0CE8 0062
0D68 0062
-ABF2 0062
-A8D2 0062
-1948 0062
-19D2 0062
-1A82 0062
-1A92 0062
+0DE8 0062
0E52 0062
0ED2 0062
0F22 0062
-0F2B 0062
-1C42 0062
-A902 0062
1042 0062
1092 0062
-11138 0062
+136A 0062
17E2 0062
17F2 0062
-AA52 0062
+1812 0062
+1948 0062
+19D2 0062
+1A82 0062
+1A92 0062
1B52 0062
-A9D2 0062
1BB2 0062
-1812 0062
+1C42 0062
1C52 0062
-A622 0062
-110F2 0062
3022 0062
+A622 0062
+A8D2 0062
+A902 0062
+A9D2 0062
+A9F2 0062
+AA52 0062
+ABF2 0062
10108 0062
1015B 0062
1015C 0062
1015D 0062
1015E 0062
+102E2 0062
103D2 0062
+104A2 0062
+10859 0062
+1087A 0062
+108A8 0062
+1091A 0062
+10A41 0062
+10B59 0062
+10B79 0062
+10BAA 0062
+10E61 0062
+11053 0062
+11068 0062
+110F2 0062
+11138 0062
+111D2 0062
+111E2 0062
+112F2 0062
+114D2 0062
+11652 0062
+116C2 0062
+118E2 0062
12400 0062
12416 0062
1241F 0062
@@ -32555,17 +37053,26 @@ A622 0062
12435 0062
1244A 0062
12450 0062
+12456 0062
12459 0062
-1091A 0062
-10859 0062
-10B59 0062
-10B79 0062
-111D2 0062
-116C2 0062
-11068 0062
-11053 0062
-10A41 0062
+16A62 0062
+16B52 0062
1D361 0062
+1E8C8 0062
+FF12 0062
+0F2B 0062
+1D7D0 0062
+1D7DA 0062
+1D7E4 0062
+1D7EE 0062
+1D7F8 0062
+2461 0062
+24F6 0062
+2777 0062
+2781 0062
+278B 0062
+00B2 0062
+2082 0062
33E1 0021
33E1 003F
33E1 0061
@@ -32587,25 +37094,9 @@ A622 0062
1F104 0041
1F104 0062
0033 0021
-FF13 0021
-1D7D1 0021
-1D7DB 0021
-1D7E5 0021
-1D7EF 0021
-1D7F9 0021
-2462 0021
-24F7 0021
-2778 0021
-2782 0021
-278C 0021
-00B3 0021
-2083 0021
0663 0021
06F3 0021
-10E62 0021
07C3 0021
-136B 0021
-104A3 0021
0969 0021
09E9 0021
0A69 0021
@@ -32617,33 +37108,55 @@ FF13 0021
0C7E 0021
0CE9 0021
0D69 0021
-ABF3 0021
-A8D3 0021
-1949 0021
-19D3 0021
-1A83 0021
-1A93 0021
+0DE9 0021
0E53 0021
0ED3 0021
0F23 0021
-0F2C 0021
-1C43 0021
-A903 0021
1043 0021
1093 0021
-11139 0021
+136B 0021
17E3 0021
17F3 0021
-AA53 0021
+1813 0021
+1949 0021
+19D3 0021
+1A83 0021
+1A93 0021
1B53 0021
-A9D3 0021
1BB3 0021
-1813 0021
+1C43 0021
1C53 0021
-A623 0021
-110F3 0021
3023 0021
+A623 0021
+A8D3 0021
+A903 0021
+A9D3 0021
+A9F3 0021
+AA53 0021
+ABF3 0021
10109 0021
+102E3 0021
+104A3 0021
+1085A 0021
+1087B 0021
+108A9 0021
+1091B 0021
+10A42 0021
+10B5A 0021
+10B7A 0021
+10BAB 0021
+10E62 0021
+11054 0021
+11069 0021
+110F3 0021
+11139 0021
+111D3 0021
+111E3 0021
+112F3 0021
+114D3 0021
+11653 0021
+116C3 0021
+118E3 0021
12401 0021
12408 0021
12417 0021
@@ -32658,36 +37171,29 @@ A623 0021
1243B 0021
1244B 0021
12451 0021
-1091B 0021
-1085A 0021
-10B5A 0021
-10B7A 0021
-111D3 0021
-116C3 0021
-11069 0021
-11054 0021
-10A42 0021
+12457 0021
+16A63 0021
+16B53 0021
1D362 0021
+1E8C9 0021
+FF13 0021
+0F2C 0021
+1D7D1 0021
+1D7DB 0021
+1D7E5 0021
+1D7EF 0021
+1D7F9 0021
+2462 0021
+24F7 0021
+2778 0021
+2782 0021
+278C 0021
+00B3 0021
+2083 0021
0033 003F
-FF13 003F
-1D7D1 003F
-1D7DB 003F
-1D7E5 003F
-1D7EF 003F
-1D7F9 003F
-2462 003F
-24F7 003F
-2778 003F
-2782 003F
-278C 003F
-00B3 003F
-2083 003F
0663 003F
06F3 003F
-10E62 003F
07C3 003F
-136B 003F
-104A3 003F
0969 003F
09E9 003F
0A69 003F
@@ -32699,33 +37205,55 @@ FF13 003F
0C7E 003F
0CE9 003F
0D69 003F
-ABF3 003F
-A8D3 003F
-1949 003F
-19D3 003F
-1A83 003F
-1A93 003F
+0DE9 003F
0E53 003F
0ED3 003F
0F23 003F
-0F2C 003F
-1C43 003F
-A903 003F
1043 003F
1093 003F
-11139 003F
+136B 003F
17E3 003F
17F3 003F
-AA53 003F
+1813 003F
+1949 003F
+19D3 003F
+1A83 003F
+1A93 003F
1B53 003F
-A9D3 003F
1BB3 003F
-1813 003F
+1C43 003F
1C53 003F
-A623 003F
-110F3 003F
3023 003F
+A623 003F
+A8D3 003F
+A903 003F
+A9D3 003F
+A9F3 003F
+AA53 003F
+ABF3 003F
10109 003F
+102E3 003F
+104A3 003F
+1085A 003F
+1087B 003F
+108A9 003F
+1091B 003F
+10A42 003F
+10B5A 003F
+10B7A 003F
+10BAB 003F
+10E62 003F
+11054 003F
+11069 003F
+110F3 003F
+11139 003F
+111D3 003F
+111E3 003F
+112F3 003F
+114D3 003F
+11653 003F
+116C3 003F
+118E3 003F
12401 003F
12408 003F
12417 003F
@@ -32740,16 +37268,25 @@ A623 003F
1243B 003F
1244B 003F
12451 003F
-1091B 003F
-1085A 003F
-10B5A 003F
-10B7A 003F
-111D3 003F
-116C3 003F
-11069 003F
-11054 003F
-10A42 003F
+12457 003F
+16A63 003F
+16B53 003F
1D362 003F
+1E8C9 003F
+FF13 003F
+0F2C 003F
+1D7D1 003F
+1D7DB 003F
+1D7E5 003F
+1D7EF 003F
+1D7F9 003F
+2462 003F
+24F7 003F
+2778 003F
+2782 003F
+278C 003F
+00B3 003F
+2083 003F
248A 0021
248A 003F
248A 0061
@@ -32836,121 +37373,69 @@ A623 003F
32B4 0041
32B4 0062
0033 0061
-0033 0041
-FF13 0061
-FF13 0041
-1D7D1 0061
-1D7DB 0061
-1D7E5 0061
-1D7EF 0061
-1D7F9 0061
-1D7D1 0041
-1D7DB 0041
-1D7E5 0041
-1D7EF 0041
-1D7F9 0041
-2462 0061
-24F7 0061
-2778 0061
-2782 0061
-278C 0061
-2462 0041
-24F7 0041
-2778 0041
-2782 0041
-278C 0041
-00B3 0061
-00B3 0041
-2083 0061
-2083 0041
0663 0061
-0663 0041
06F3 0061
-06F3 0041
-10E62 0061
-10E62 0041
07C3 0061
-07C3 0041
-136B 0061
-136B 0041
-104A3 0061
-104A3 0041
0969 0061
-0969 0041
09E9 0061
-09E9 0041
0A69 0061
-0A69 0041
0AE9 0061
-0AE9 0041
0B69 0061
-0B69 0041
0BE9 0061
-0BE9 0041
0C69 0061
0C7B 0061
0C7E 0061
-0C69 0041
-0C7B 0041
-0C7E 0041
0CE9 0061
-0CE9 0041
0D69 0061
-0D69 0041
-ABF3 0061
-ABF3 0041
-A8D3 0061
-A8D3 0041
-1949 0061
-1949 0041
-19D3 0061
-19D3 0041
-1A83 0061
-1A83 0041
-1A93 0061
-1A93 0041
+0DE9 0061
0E53 0061
-0E53 0041
0ED3 0061
-0ED3 0041
0F23 0061
-0F23 0041
-0F2C 0061
-0F2C 0041
-1C43 0061
-1C43 0041
-A903 0061
-A903 0041
1043 0061
-1043 0041
1093 0061
-1093 0041
-11139 0061
-11139 0041
+136B 0061
17E3 0061
-17E3 0041
17F3 0061
-17F3 0041
-AA53 0061
-AA53 0041
+1813 0061
+1949 0061
+19D3 0061
+1A83 0061
+1A93 0061
1B53 0061
-1B53 0041
-A9D3 0061
-A9D3 0041
1BB3 0061
-1BB3 0041
-1813 0061
-1813 0041
+1C43 0061
1C53 0061
-1C53 0041
-A623 0061
-A623 0041
-110F3 0061
-110F3 0041
3023 0061
-3023 0041
+A623 0061
+A8D3 0061
+A903 0061
+A9D3 0061
+A9F3 0061
+AA53 0061
+ABF3 0061
10109 0061
-10109 0041
+102E3 0061
+104A3 0061
+1085A 0061
+1087B 0061
+108A9 0061
+1091B 0061
+10A42 0061
+10B5A 0061
+10B7A 0061
+10BAB 0061
+10E62 0061
+11054 0061
+11069 0061
+110F3 0061
+11139 0061
+111D3 0061
+111E3 0061
+112F3 0061
+114D3 0061
+11653 0061
+116C3 0061
+118E3 0061
12401 0061
12408 0061
12417 0061
@@ -32965,6 +37450,75 @@ A623 0041
1243B 0061
1244B 0061
12451 0061
+12457 0061
+16A63 0061
+16B53 0061
+1D362 0061
+1E8C9 0061
+0033 0041
+0663 0041
+06F3 0041
+07C3 0041
+0969 0041
+09E9 0041
+0A69 0041
+0AE9 0041
+0B69 0041
+0BE9 0041
+0C69 0041
+0C7B 0041
+0C7E 0041
+0CE9 0041
+0D69 0041
+0DE9 0041
+0E53 0041
+0ED3 0041
+0F23 0041
+1043 0041
+1093 0041
+136B 0041
+17E3 0041
+17F3 0041
+1813 0041
+1949 0041
+19D3 0041
+1A83 0041
+1A93 0041
+1B53 0041
+1BB3 0041
+1C43 0041
+1C53 0041
+3023 0041
+A623 0041
+A8D3 0041
+A903 0041
+A9D3 0041
+A9F3 0041
+AA53 0041
+ABF3 0041
+10109 0041
+102E3 0041
+104A3 0041
+1085A 0041
+1087B 0041
+108A9 0041
+1091B 0041
+10A42 0041
+10B5A 0041
+10B7A 0041
+10BAB 0041
+10E62 0041
+11054 0041
+11069 0041
+110F3 0041
+11139 0041
+111D3 0041
+111E3 0041
+112F3 0041
+114D3 0041
+11653 0041
+116C3 0041
+118E3 0041
12401 0041
12408 0041
12417 0041
@@ -32979,46 +37533,43 @@ A623 0041
1243B 0041
1244B 0041
12451 0041
-1091B 0061
-1091B 0041
-1085A 0061
-1085A 0041
-10B5A 0061
-10B5A 0041
-10B7A 0061
-10B7A 0041
-111D3 0061
-111D3 0041
-116C3 0061
-116C3 0041
-11069 0061
-11069 0041
-11054 0061
-11054 0041
-10A42 0061
-10A42 0041
-1D362 0061
+12457 0041
+16A63 0041
+16B53 0041
1D362 0041
+1E8C9 0041
+FF13 0061
+FF13 0041
+0F2C 0061
+0F2C 0041
+1D7D1 0061
+1D7DB 0061
+1D7E5 0061
+1D7EF 0061
+1D7F9 0061
+1D7D1 0041
+1D7DB 0041
+1D7E5 0041
+1D7EF 0041
+1D7F9 0041
+2462 0061
+24F7 0061
+2778 0061
+2782 0061
+278C 0061
+2462 0041
+24F7 0041
+2778 0041
+2782 0041
+278C 0041
+00B3 0061
+00B3 0041
+2083 0061
+2083 0041
0033 0062
-FF13 0062
-1D7D1 0062
-1D7DB 0062
-1D7E5 0062
-1D7EF 0062
-1D7F9 0062
-2462 0062
-24F7 0062
-2778 0062
-2782 0062
-278C 0062
-00B3 0062
-2083 0062
0663 0062
06F3 0062
-10E62 0062
07C3 0062
-136B 0062
-104A3 0062
0969 0062
09E9 0062
0A69 0062
@@ -33030,33 +37581,55 @@ FF13 0062
0C7E 0062
0CE9 0062
0D69 0062
-ABF3 0062
-A8D3 0062
-1949 0062
-19D3 0062
-1A83 0062
-1A93 0062
+0DE9 0062
0E53 0062
0ED3 0062
0F23 0062
-0F2C 0062
-1C43 0062
-A903 0062
1043 0062
1093 0062
-11139 0062
+136B 0062
17E3 0062
17F3 0062
-AA53 0062
+1813 0062
+1949 0062
+19D3 0062
+1A83 0062
+1A93 0062
1B53 0062
-A9D3 0062
1BB3 0062
-1813 0062
+1C43 0062
1C53 0062
-A623 0062
-110F3 0062
3023 0062
+A623 0062
+A8D3 0062
+A903 0062
+A9D3 0062
+A9F3 0062
+AA53 0062
+ABF3 0062
10109 0062
+102E3 0062
+104A3 0062
+1085A 0062
+1087B 0062
+108A9 0062
+1091B 0062
+10A42 0062
+10B5A 0062
+10B7A 0062
+10BAB 0062
+10E62 0062
+11054 0062
+11069 0062
+110F3 0062
+11139 0062
+111D3 0062
+111E3 0062
+112F3 0062
+114D3 0062
+11653 0062
+116C3 0062
+118E3 0062
12401 0062
12408 0062
12417 0062
@@ -33071,16 +37644,25 @@ A623 0062
1243B 0062
1244B 0062
12451 0062
-1091B 0062
-1085A 0062
-10B5A 0062
-10B7A 0062
-111D3 0062
-116C3 0062
-11069 0062
-11054 0062
-10A42 0062
+12457 0062
+16A63 0062
+16B53 0062
1D362 0062
+1E8C9 0062
+FF13 0062
+0F2C 0062
+1D7D1 0062
+1D7DB 0062
+1D7E5 0062
+1D7EF 0062
+1D7F9 0062
+2462 0062
+24F7 0062
+2778 0062
+2782 0062
+278C 0062
+00B3 0062
+2083 0062
33E2 0021
33E2 003F
33E2 0061
@@ -33102,25 +37684,9 @@ A623 0062
1F105 0041
1F105 0062
0034 0021
-FF14 0021
-1D7D2 0021
-1D7DC 0021
-1D7E6 0021
-1D7F0 0021
-1D7FA 0021
-2463 0021
-24F8 0021
-2779 0021
-2783 0021
-278D 0021
-2074 0021
-2084 0021
0664 0021
06F4 0021
-10E63 0021
07C4 0021
-136C 0021
-104A4 0021
096A 0021
09EA 0021
0A6A 0021
@@ -33130,33 +37696,54 @@ FF14 0021
0C6A 0021
0CEA 0021
0D6A 0021
-ABF4 0021
-A8D4 0021
-194A 0021
-19D4 0021
-1A84 0021
-1A94 0021
+0DEA 0021
0E54 0021
0ED4 0021
0F24 0021
-0F2D 0021
-1C44 0021
-A904 0021
1044 0021
1094 0021
-1113A 0021
+136C 0021
17E4 0021
17F4 0021
-AA54 0021
+1814 0021
+194A 0021
+19D4 0021
+1A84 0021
+1A94 0021
1B54 0021
-A9D4 0021
1BB4 0021
-1814 0021
+1C44 0021
1C54 0021
-A624 0021
-110F4 0021
3024 0021
+A624 0021
+A8D4 0021
+A904 0021
+A9D4 0021
+A9F4 0021
+AA54 0021
+ABF4 0021
1010A 0021
+102E4 0021
+104A4 0021
+1087C 0021
+108AA 0021
+108AB 0021
+10A43 0021
+10B5B 0021
+10B7B 0021
+10BAC 0021
+10E63 0021
+11055 0021
+1106A 0021
+110F4 0021
+1113A 0021
+111D4 0021
+111E4 0021
+112F4 0021
+114D4 0021
+11654 0021
+116C4 0021
+118E4 0021
12402 0021
12409 0021
1240F 0021
@@ -33172,34 +37759,29 @@ A624 0021
1244C 0021
12452 0021
12453 0021
-10B5B 0021
-10B7B 0021
-111D4 0021
-116C4 0021
-1106A 0021
-11055 0021
-10A43 0021
+12469 0021
+16A64 0021
+16B54 0021
1D363 0021
+1E8CA 0021
+FF14 0021
+0F2D 0021
+1D7D2 0021
+1D7DC 0021
+1D7E6 0021
+1D7F0 0021
+1D7FA 0021
+2463 0021
+24F8 0021
+2779 0021
+2783 0021
+278D 0021
+2074 0021
+2084 0021
0034 003F
-FF14 003F
-1D7D2 003F
-1D7DC 003F
-1D7E6 003F
-1D7F0 003F
-1D7FA 003F
-2463 003F
-24F8 003F
-2779 003F
-2783 003F
-278D 003F
-2074 003F
-2084 003F
0664 003F
06F4 003F
-10E63 003F
07C4 003F
-136C 003F
-104A4 003F
096A 003F
09EA 003F
0A6A 003F
@@ -33209,33 +37791,54 @@ FF14 003F
0C6A 003F
0CEA 003F
0D6A 003F
-ABF4 003F
-A8D4 003F
-194A 003F
-19D4 003F
-1A84 003F
-1A94 003F
+0DEA 003F
0E54 003F
0ED4 003F
0F24 003F
-0F2D 003F
-1C44 003F
-A904 003F
1044 003F
1094 003F
-1113A 003F
+136C 003F
17E4 003F
17F4 003F
-AA54 003F
+1814 003F
+194A 003F
+19D4 003F
+1A84 003F
+1A94 003F
1B54 003F
-A9D4 003F
1BB4 003F
-1814 003F
+1C44 003F
1C54 003F
-A624 003F
-110F4 003F
3024 003F
+A624 003F
+A8D4 003F
+A904 003F
+A9D4 003F
+A9F4 003F
+AA54 003F
+ABF4 003F
1010A 003F
+102E4 003F
+104A4 003F
+1087C 003F
+108AA 003F
+108AB 003F
+10A43 003F
+10B5B 003F
+10B7B 003F
+10BAC 003F
+10E63 003F
+11055 003F
+1106A 003F
+110F4 003F
+1113A 003F
+111D4 003F
+111E4 003F
+112F4 003F
+114D4 003F
+11654 003F
+116C4 003F
+118E4 003F
12402 003F
12409 003F
1240F 003F
@@ -33251,14 +37854,25 @@ A624 003F
1244C 003F
12452 003F
12453 003F
-10B5B 003F
-10B7B 003F
-111D4 003F
-116C4 003F
-1106A 003F
-11055 003F
-10A43 003F
+12469 003F
+16A64 003F
+16B54 003F
1D363 003F
+1E8CA 003F
+FF14 003F
+0F2D 003F
+1D7D2 003F
+1D7DC 003F
+1D7E6 003F
+1D7F0 003F
+1D7FA 003F
+2463 003F
+24F8 003F
+2779 003F
+2783 003F
+278D 003F
+2074 003F
+2084 003F
248B 0021
248B 003F
248B 0061
@@ -33325,117 +37939,66 @@ A624 003F
32BE 0041
32BE 0062
0034 0061
-0034 0041
-FF14 0061
-FF14 0041
-1D7D2 0061
-1D7DC 0061
-1D7E6 0061
-1D7F0 0061
-1D7FA 0061
-1D7D2 0041
-1D7DC 0041
-1D7E6 0041
-1D7F0 0041
-1D7FA 0041
-2463 0061
-24F8 0061
-2779 0061
-2783 0061
-278D 0061
-2463 0041
-24F8 0041
-2779 0041
-2783 0041
-278D 0041
-2074 0061
-2074 0041
-2084 0061
-2084 0041
0664 0061
-0664 0041
06F4 0061
-06F4 0041
-10E63 0061
-10E63 0041
07C4 0061
-07C4 0041
-136C 0061
-136C 0041
-104A4 0061
-104A4 0041
096A 0061
-096A 0041
09EA 0061
-09EA 0041
0A6A 0061
-0A6A 0041
0AEA 0061
-0AEA 0041
0B6A 0061
-0B6A 0041
0BEA 0061
-0BEA 0041
0C6A 0061
-0C6A 0041
0CEA 0061
-0CEA 0041
0D6A 0061
-0D6A 0041
-ABF4 0061
-ABF4 0041
-A8D4 0061
-A8D4 0041
-194A 0061
-194A 0041
-19D4 0061
-19D4 0041
-1A84 0061
-1A84 0041
-1A94 0061
-1A94 0041
+0DEA 0061
0E54 0061
-0E54 0041
0ED4 0061
-0ED4 0041
0F24 0061
-0F24 0041
-0F2D 0061
-0F2D 0041
-1C44 0061
-1C44 0041
-A904 0061
-A904 0041
1044 0061
-1044 0041
1094 0061
-1094 0041
-1113A 0061
-1113A 0041
+136C 0061
17E4 0061
-17E4 0041
17F4 0061
-17F4 0041
-AA54 0061
-AA54 0041
+1814 0061
+194A 0061
+19D4 0061
+1A84 0061
+1A94 0061
1B54 0061
-1B54 0041
-A9D4 0061
-A9D4 0041
1BB4 0061
-1BB4 0041
-1814 0061
-1814 0041
+1C44 0061
1C54 0061
-1C54 0041
-A624 0061
-A624 0041
-110F4 0061
-110F4 0041
3024 0061
-3024 0041
+A624 0061
+A8D4 0061
+A904 0061
+A9D4 0061
+A9F4 0061
+AA54 0061
+ABF4 0061
1010A 0061
-1010A 0041
+102E4 0061
+104A4 0061
+1087C 0061
+108AA 0061
+108AB 0061
+10A43 0061
+10B5B 0061
+10B7B 0061
+10BAC 0061
+10E63 0061
+11055 0061
+1106A 0061
+110F4 0061
+1113A 0061
+111D4 0061
+111E4 0061
+112F4 0061
+114D4 0061
+11654 0061
+116C4 0061
+118E4 0061
12402 0061
12409 0061
1240F 0061
@@ -33451,6 +38014,72 @@ A624 0041
1244C 0061
12452 0061
12453 0061
+12469 0061
+16A64 0061
+16B54 0061
+1D363 0061
+1E8CA 0061
+0034 0041
+0664 0041
+06F4 0041
+07C4 0041
+096A 0041
+09EA 0041
+0A6A 0041
+0AEA 0041
+0B6A 0041
+0BEA 0041
+0C6A 0041
+0CEA 0041
+0D6A 0041
+0DEA 0041
+0E54 0041
+0ED4 0041
+0F24 0041
+1044 0041
+1094 0041
+136C 0041
+17E4 0041
+17F4 0041
+1814 0041
+194A 0041
+19D4 0041
+1A84 0041
+1A94 0041
+1B54 0041
+1BB4 0041
+1C44 0041
+1C54 0041
+3024 0041
+A624 0041
+A8D4 0041
+A904 0041
+A9D4 0041
+A9F4 0041
+AA54 0041
+ABF4 0041
+1010A 0041
+102E4 0041
+104A4 0041
+1087C 0041
+108AA 0041
+108AB 0041
+10A43 0041
+10B5B 0041
+10B7B 0041
+10BAC 0041
+10E63 0041
+11055 0041
+1106A 0041
+110F4 0041
+1113A 0041
+111D4 0041
+111E4 0041
+112F4 0041
+114D4 0041
+11654 0041
+116C4 0041
+118E4 0041
12402 0041
12409 0041
1240F 0041
@@ -33466,42 +38095,43 @@ A624 0041
1244C 0041
12452 0041
12453 0041
-10B5B 0061
-10B5B 0041
-10B7B 0061
-10B7B 0041
-111D4 0061
-111D4 0041
-116C4 0061
-116C4 0041
-1106A 0061
-1106A 0041
-11055 0061
-11055 0041
-10A43 0061
-10A43 0041
-1D363 0061
+12469 0041
+16A64 0041
+16B54 0041
1D363 0041
+1E8CA 0041
+FF14 0061
+FF14 0041
+0F2D 0061
+0F2D 0041
+1D7D2 0061
+1D7DC 0061
+1D7E6 0061
+1D7F0 0061
+1D7FA 0061
+1D7D2 0041
+1D7DC 0041
+1D7E6 0041
+1D7F0 0041
+1D7FA 0041
+2463 0061
+24F8 0061
+2779 0061
+2783 0061
+278D 0061
+2463 0041
+24F8 0041
+2779 0041
+2783 0041
+278D 0041
+2074 0061
+2074 0041
+2084 0061
+2084 0041
0034 0062
-FF14 0062
-1D7D2 0062
-1D7DC 0062
-1D7E6 0062
-1D7F0 0062
-1D7FA 0062
-2463 0062
-24F8 0062
-2779 0062
-2783 0062
-278D 0062
-2074 0062
-2084 0062
0664 0062
06F4 0062
-10E63 0062
07C4 0062
-136C 0062
-104A4 0062
096A 0062
09EA 0062
0A6A 0062
@@ -33511,33 +38141,54 @@ FF14 0062
0C6A 0062
0CEA 0062
0D6A 0062
-ABF4 0062
-A8D4 0062
-194A 0062
-19D4 0062
-1A84 0062
-1A94 0062
+0DEA 0062
0E54 0062
0ED4 0062
0F24 0062
-0F2D 0062
-1C44 0062
-A904 0062
1044 0062
1094 0062
-1113A 0062
+136C 0062
17E4 0062
17F4 0062
-AA54 0062
+1814 0062
+194A 0062
+19D4 0062
+1A84 0062
+1A94 0062
1B54 0062
-A9D4 0062
1BB4 0062
-1814 0062
+1C44 0062
1C54 0062
-A624 0062
-110F4 0062
3024 0062
+A624 0062
+A8D4 0062
+A904 0062
+A9D4 0062
+A9F4 0062
+AA54 0062
+ABF4 0062
1010A 0062
+102E4 0062
+104A4 0062
+1087C 0062
+108AA 0062
+108AB 0062
+10A43 0062
+10B5B 0062
+10B7B 0062
+10BAC 0062
+10E63 0062
+11055 0062
+1106A 0062
+110F4 0062
+1113A 0062
+111D4 0062
+111E4 0062
+112F4 0062
+114D4 0062
+11654 0062
+116C4 0062
+118E4 0062
12402 0062
12409 0062
1240F 0062
@@ -33553,14 +38204,25 @@ A624 0062
1244C 0062
12452 0062
12453 0062
-10B5B 0062
-10B7B 0062
-111D4 0062
-116C4 0062
-1106A 0062
-11055 0062
-10A43 0062
+12469 0062
+16A64 0062
+16B54 0062
1D363 0062
+1E8CA 0062
+FF14 0062
+0F2D 0062
+1D7D2 0062
+1D7DC 0062
+1D7E6 0062
+1D7F0 0062
+1D7FA 0062
+2463 0062
+24F8 0062
+2779 0062
+2783 0062
+278D 0062
+2074 0062
+2084 0062
33E3 0021
33E3 003F
33E3 0061
@@ -33582,25 +38244,9 @@ A624 0062
1F106 0041
1F106 0062
0035 0021
-FF15 0021
-1D7D3 0021
-1D7DD 0021
-1D7E7 0021
-1D7F1 0021
-1D7FB 0021
-2464 0021
-24F9 0021
-277A 0021
-2784 0021
-278E 0021
-2075 0021
-2085 0021
0665 0021
06F5 0021
-10E64 0021
07C5 0021
-136D 0021
-104A5 0021
096B 0021
09EB 0021
0A6B 0021
@@ -33610,39 +38256,56 @@ FF15 0021
0C6B 0021
0CEB 0021
0D6B 0021
-ABF5 0021
-A8D5 0021
-194B 0021
-19D5 0021
-1A85 0021
-1A95 0021
+0DEB 0021
0E55 0021
0ED5 0021
0F25 0021
-0F2E 0021
-1C45 0021
-A905 0021
1045 0021
1095 0021
-1113B 0021
+136D 0021
17E5 0021
17F5 0021
-AA55 0021
+1815 0021
+194B 0021
+19D5 0021
+1A85 0021
+1A95 0021
1B55 0021
-A9D5 0021
1BB5 0021
-1815 0021
+1C45 0021
1C55 0021
-A625 0021
-110F5 0021
3025 0021
+A625 0021
+A8D5 0021
+A905 0021
+A9D5 0021
+A9F5 0021
+AA55 0021
+ABF5 0021
1010B 0021
10143 0021
10148 0021
1014F 0021
1015F 0021
10173 0021
+102E5 0021
10321 0021
+104A5 0021
+1087D 0021
+108AC 0021
+10AEC 0021
+10E64 0021
+11056 0021
+1106B 0021
+110F5 0021
+1113B 0021
+111D5 0021
+111E5 0021
+112F5 0021
+114D5 0021
+11655 0021
+116C5 0021
+118E5 0021
12403 0021
1240A 0021
12410 0021
@@ -33654,31 +38317,29 @@ A625 0021
1244D 0021
12454 0021
12455 0021
-111D5 0021
-116C5 0021
-1106B 0021
-11056 0021
+1246A 0021
+16A65 0021
+16B55 0021
1D364 0021
+1E8CB 0021
+FF15 0021
+0F2E 0021
+1D7D3 0021
+1D7DD 0021
+1D7E7 0021
+1D7F1 0021
+1D7FB 0021
+2464 0021
+24F9 0021
+277A 0021
+2784 0021
+278E 0021
+2075 0021
+2085 0021
0035 003F
-FF15 003F
-1D7D3 003F
-1D7DD 003F
-1D7E7 003F
-1D7F1 003F
-1D7FB 003F
-2464 003F
-24F9 003F
-277A 003F
-2784 003F
-278E 003F
-2075 003F
-2085 003F
0665 003F
06F5 003F
-10E64 003F
07C5 003F
-136D 003F
-104A5 003F
096B 003F
09EB 003F
0A6B 003F
@@ -33688,39 +38349,56 @@ FF15 003F
0C6B 003F
0CEB 003F
0D6B 003F
-ABF5 003F
-A8D5 003F
-194B 003F
-19D5 003F
-1A85 003F
-1A95 003F
+0DEB 003F
0E55 003F
0ED5 003F
0F25 003F
-0F2E 003F
-1C45 003F
-A905 003F
1045 003F
1095 003F
-1113B 003F
+136D 003F
17E5 003F
17F5 003F
-AA55 003F
+1815 003F
+194B 003F
+19D5 003F
+1A85 003F
+1A95 003F
1B55 003F
-A9D5 003F
1BB5 003F
-1815 003F
+1C45 003F
1C55 003F
-A625 003F
-110F5 003F
3025 003F
+A625 003F
+A8D5 003F
+A905 003F
+A9D5 003F
+A9F5 003F
+AA55 003F
+ABF5 003F
1010B 003F
10143 003F
10148 003F
1014F 003F
1015F 003F
10173 003F
+102E5 003F
10321 003F
+104A5 003F
+1087D 003F
+108AC 003F
+10AEC 003F
+10E64 003F
+11056 003F
+1106B 003F
+110F5 003F
+1113B 003F
+111D5 003F
+111E5 003F
+112F5 003F
+114D5 003F
+11655 003F
+116C5 003F
+118E5 003F
12403 003F
1240A 003F
12410 003F
@@ -33732,11 +38410,25 @@ A625 003F
1244D 003F
12454 003F
12455 003F
-111D5 003F
-116C5 003F
-1106B 003F
-11056 003F
+1246A 003F
+16A65 003F
+16B55 003F
1D364 003F
+1E8CB 003F
+FF15 003F
+0F2E 003F
+1D7D3 003F
+1D7DD 003F
+1D7E7 003F
+1D7F1 003F
+1D7FB 003F
+2464 003F
+24F9 003F
+277A 003F
+2784 003F
+278E 003F
+2075 003F
+2085 003F
248C 0021
248C 003F
248C 0061
@@ -33763,129 +38455,68 @@ A625 003F
324C 0062
32BF 0062
0035 0061
-0035 0041
-FF15 0061
-FF15 0041
-1D7D3 0061
-1D7DD 0061
-1D7E7 0061
-1D7F1 0061
-1D7FB 0061
-1D7D3 0041
-1D7DD 0041
-1D7E7 0041
-1D7F1 0041
-1D7FB 0041
-2464 0061
-24F9 0061
-277A 0061
-2784 0061
-278E 0061
-2464 0041
-24F9 0041
-277A 0041
-2784 0041
-278E 0041
-2075 0061
-2075 0041
-2085 0061
-2085 0041
0665 0061
-0665 0041
06F5 0061
-06F5 0041
-10E64 0061
-10E64 0041
07C5 0061
-07C5 0041
-136D 0061
-136D 0041
-104A5 0061
-104A5 0041
096B 0061
-096B 0041
09EB 0061
-09EB 0041
0A6B 0061
-0A6B 0041
0AEB 0061
-0AEB 0041
0B6B 0061
-0B6B 0041
0BEB 0061
-0BEB 0041
0C6B 0061
-0C6B 0041
0CEB 0061
-0CEB 0041
0D6B 0061
-0D6B 0041
-ABF5 0061
-ABF5 0041
-A8D5 0061
-A8D5 0041
-194B 0061
-194B 0041
-19D5 0061
-19D5 0041
-1A85 0061
-1A85 0041
-1A95 0061
-1A95 0041
+0DEB 0061
0E55 0061
-0E55 0041
0ED5 0061
-0ED5 0041
0F25 0061
-0F25 0041
-0F2E 0061
-0F2E 0041
-1C45 0061
-1C45 0041
-A905 0061
-A905 0041
1045 0061
-1045 0041
1095 0061
-1095 0041
-1113B 0061
-1113B 0041
+136D 0061
17E5 0061
-17E5 0041
17F5 0061
-17F5 0041
-AA55 0061
-AA55 0041
+1815 0061
+194B 0061
+19D5 0061
+1A85 0061
+1A95 0061
1B55 0061
-1B55 0041
-A9D5 0061
-A9D5 0041
1BB5 0061
-1BB5 0041
-1815 0061
-1815 0041
+1C45 0061
1C55 0061
-1C55 0041
-A625 0061
-A625 0041
-110F5 0061
-110F5 0041
3025 0061
-3025 0041
+A625 0061
+A8D5 0061
+A905 0061
+A9D5 0061
+A9F5 0061
+AA55 0061
+ABF5 0061
1010B 0061
-1010B 0041
10143 0061
10148 0061
1014F 0061
1015F 0061
10173 0061
-10143 0041
-10148 0041
-1014F 0041
-1015F 0041
-10173 0041
+102E5 0061
10321 0061
-10321 0041
+104A5 0061
+1087D 0061
+108AC 0061
+10AEC 0061
+10E64 0061
+11056 0061
+1106B 0061
+110F5 0061
+1113B 0061
+111D5 0061
+111E5 0061
+112F5 0061
+114D5 0061
+11655 0061
+116C5 0061
+118E5 0061
12403 0061
1240A 0061
12410 0061
@@ -33897,6 +38528,74 @@ A625 0041
1244D 0061
12454 0061
12455 0061
+1246A 0061
+16A65 0061
+16B55 0061
+1D364 0061
+1E8CB 0061
+0035 0041
+0665 0041
+06F5 0041
+07C5 0041
+096B 0041
+09EB 0041
+0A6B 0041
+0AEB 0041
+0B6B 0041
+0BEB 0041
+0C6B 0041
+0CEB 0041
+0D6B 0041
+0DEB 0041
+0E55 0041
+0ED5 0041
+0F25 0041
+1045 0041
+1095 0041
+136D 0041
+17E5 0041
+17F5 0041
+1815 0041
+194B 0041
+19D5 0041
+1A85 0041
+1A95 0041
+1B55 0041
+1BB5 0041
+1C45 0041
+1C55 0041
+3025 0041
+A625 0041
+A8D5 0041
+A905 0041
+A9D5 0041
+A9F5 0041
+AA55 0041
+ABF5 0041
+1010B 0041
+10143 0041
+10148 0041
+1014F 0041
+1015F 0041
+10173 0041
+102E5 0041
+10321 0041
+104A5 0041
+1087D 0041
+108AC 0041
+10AEC 0041
+10E64 0041
+11056 0041
+1106B 0041
+110F5 0041
+1113B 0041
+111D5 0041
+111E5 0041
+112F5 0041
+114D5 0041
+11655 0041
+116C5 0041
+118E5 0041
12403 0041
1240A 0041
12410 0041
@@ -33908,36 +38607,43 @@ A625 0041
1244D 0041
12454 0041
12455 0041
-111D5 0061
-111D5 0041
-116C5 0061
-116C5 0041
-1106B 0061
-1106B 0041
-11056 0061
-11056 0041
-1D364 0061
+1246A 0041
+16A65 0041
+16B55 0041
1D364 0041
+1E8CB 0041
+FF15 0061
+FF15 0041
+0F2E 0061
+0F2E 0041
+1D7D3 0061
+1D7DD 0061
+1D7E7 0061
+1D7F1 0061
+1D7FB 0061
+1D7D3 0041
+1D7DD 0041
+1D7E7 0041
+1D7F1 0041
+1D7FB 0041
+2464 0061
+24F9 0061
+277A 0061
+2784 0061
+278E 0061
+2464 0041
+24F9 0041
+277A 0041
+2784 0041
+278E 0041
+2075 0061
+2075 0041
+2085 0061
+2085 0041
0035 0062
-FF15 0062
-1D7D3 0062
-1D7DD 0062
-1D7E7 0062
-1D7F1 0062
-1D7FB 0062
-2464 0062
-24F9 0062
-277A 0062
-2784 0062
-278E 0062
-2075 0062
-2085 0062
0665 0062
06F5 0062
-10E64 0062
07C5 0062
-136D 0062
-104A5 0062
096B 0062
09EB 0062
0A6B 0062
@@ -33947,39 +38653,56 @@ FF15 0062
0C6B 0062
0CEB 0062
0D6B 0062
-ABF5 0062
-A8D5 0062
-194B 0062
-19D5 0062
-1A85 0062
-1A95 0062
+0DEB 0062
0E55 0062
0ED5 0062
0F25 0062
-0F2E 0062
-1C45 0062
-A905 0062
1045 0062
1095 0062
-1113B 0062
+136D 0062
17E5 0062
17F5 0062
-AA55 0062
+1815 0062
+194B 0062
+19D5 0062
+1A85 0062
+1A95 0062
1B55 0062
-A9D5 0062
1BB5 0062
-1815 0062
+1C45 0062
1C55 0062
-A625 0062
-110F5 0062
3025 0062
+A625 0062
+A8D5 0062
+A905 0062
+A9D5 0062
+A9F5 0062
+AA55 0062
+ABF5 0062
1010B 0062
10143 0062
10148 0062
1014F 0062
1015F 0062
10173 0062
+102E5 0062
10321 0062
+104A5 0062
+1087D 0062
+108AC 0062
+10AEC 0062
+10E64 0062
+11056 0062
+1106B 0062
+110F5 0062
+1113B 0062
+111D5 0062
+111E5 0062
+112F5 0062
+114D5 0062
+11655 0062
+116C5 0062
+118E5 0062
12403 0062
1240A 0062
12410 0062
@@ -33991,11 +38714,25 @@ A625 0062
1244D 0062
12454 0062
12455 0062
-111D5 0062
-116C5 0062
-1106B 0062
-11056 0062
+1246A 0062
+16A65 0062
+16B55 0062
1D364 0062
+1E8CB 0062
+FF15 0062
+0F2E 0062
+1D7D3 0062
+1D7DD 0062
+1D7E7 0062
+1D7F1 0062
+1D7FB 0062
+2464 0062
+24F9 0062
+277A 0062
+2784 0062
+278E 0062
+2075 0062
+2085 0062
33E4 0021
33E4 003F
33E4 0061
@@ -34017,25 +38754,9 @@ A625 0062
1F107 0041
1F107 0062
0036 0021
-FF16 0021
-1D7D4 0021
-1D7DE 0021
-1D7E8 0021
-1D7F2 0021
-1D7FC 0021
-2465 0021
-24FA 0021
-277B 0021
-2785 0021
-278F 0021
-2076 0021
-2086 0021
0666 0021
06F6 0021
-10E65 0021
07C6 0021
-136E 0021
-104A6 0021
096C 0021
09EC 0021
0A6C 0021
@@ -34045,34 +38766,48 @@ FF16 0021
0C6C 0021
0CEC 0021
0D6C 0021
-ABF6 0021
-A8D6 0021
-194C 0021
-19D6 0021
-1A86 0021
-1A96 0021
+0DEC 0021
0E56 0021
0ED6 0021
0F26 0021
-0F2F 0021
-1C46 0021
-A906 0021
1046 0021
1096 0021
-1113C 0021
+136E 0021
17E6 0021
17F6 0021
-AA56 0021
+1816 0021
+194C 0021
+19D6 0021
+1A86 0021
+1A96 0021
1B56 0021
-A9D6 0021
1BB6 0021
-1816 0021
+1C46 0021
1C56 0021
-A626 0021
-110F6 0021
+2185 0021
3026 0021
+A626 0021
+A8D6 0021
+A906 0021
+A9D6 0021
+A9F6 0021
+AA56 0021
+ABF6 0021
1010C 0021
-2185 0021
+102E6 0021
+104A6 0021
+10E65 0021
+11057 0021
+1106C 0021
+110F6 0021
+1113C 0021
+111D6 0021
+111E6 0021
+112F6 0021
+114D6 0021
+11656 0021
+116C6 0021
+118E6 0021
12404 0021
1240B 0021
12411 0021
@@ -34080,31 +38815,29 @@ A626 0021
12428 0021
12440 0021
1244E 0021
-111D6 0021
-116C6 0021
-1106C 0021
-11057 0021
+1246B 0021
+16A66 0021
+16B56 0021
1D365 0021
+1E8CC 0021
+FF16 0021
+0F2F 0021
+1D7D4 0021
+1D7DE 0021
+1D7E8 0021
+1D7F2 0021
+1D7FC 0021
+2465 0021
+24FA 0021
+277B 0021
+2785 0021
+278F 0021
+2076 0021
+2086 0021
0036 003F
-FF16 003F
-1D7D4 003F
-1D7DE 003F
-1D7E8 003F
-1D7F2 003F
-1D7FC 003F
-2465 003F
-24FA 003F
-277B 003F
-2785 003F
-278F 003F
-2076 003F
-2086 003F
0666 003F
06F6 003F
-10E65 003F
07C6 003F
-136E 003F
-104A6 003F
096C 003F
09EC 003F
0A6C 003F
@@ -34114,34 +38847,48 @@ FF16 003F
0C6C 003F
0CEC 003F
0D6C 003F
-ABF6 003F
-A8D6 003F
-194C 003F
-19D6 003F
-1A86 003F
-1A96 003F
+0DEC 003F
0E56 003F
0ED6 003F
0F26 003F
-0F2F 003F
-1C46 003F
-A906 003F
1046 003F
1096 003F
-1113C 003F
+136E 003F
17E6 003F
17F6 003F
-AA56 003F
+1816 003F
+194C 003F
+19D6 003F
+1A86 003F
+1A96 003F
1B56 003F
-A9D6 003F
1BB6 003F
-1816 003F
+1C46 003F
1C56 003F
-A626 003F
-110F6 003F
+2185 003F
3026 003F
+A626 003F
+A8D6 003F
+A906 003F
+A9D6 003F
+A9F6 003F
+AA56 003F
+ABF6 003F
1010C 003F
-2185 003F
+102E6 003F
+104A6 003F
+10E65 003F
+11057 003F
+1106C 003F
+110F6 003F
+1113C 003F
+111D6 003F
+111E6 003F
+112F6 003F
+114D6 003F
+11656 003F
+116C6 003F
+118E6 003F
12404 003F
1240B 003F
12411 003F
@@ -34149,11 +38896,25 @@ A626 003F
12428 003F
12440 003F
1244E 003F
-111D6 003F
-116C6 003F
-1106C 003F
-11057 003F
+1246B 003F
+16A66 003F
+16B56 003F
1D365 003F
+1E8CC 003F
+FF16 003F
+0F2F 003F
+1D7D4 003F
+1D7DE 003F
+1D7E8 003F
+1D7F2 003F
+1D7FC 003F
+2465 003F
+24FA 003F
+277B 003F
+2785 003F
+278F 003F
+2076 003F
+2086 003F
248D 0021
248D 003F
248D 0061
@@ -34165,119 +38926,60 @@ A626 003F
324D 0041
324D 0062
0036 0061
-0036 0041
-FF16 0061
-FF16 0041
-1D7D4 0061
-1D7DE 0061
-1D7E8 0061
-1D7F2 0061
-1D7FC 0061
-1D7D4 0041
-1D7DE 0041
-1D7E8 0041
-1D7F2 0041
-1D7FC 0041
-2465 0061
-24FA 0061
-277B 0061
-2785 0061
-278F 0061
-2465 0041
-24FA 0041
-277B 0041
-2785 0041
-278F 0041
-2076 0061
-2076 0041
-2086 0061
-2086 0041
0666 0061
-0666 0041
06F6 0061
-06F6 0041
-10E65 0061
-10E65 0041
07C6 0061
-07C6 0041
-136E 0061
-136E 0041
-104A6 0061
-104A6 0041
096C 0061
-096C 0041
09EC 0061
-09EC 0041
0A6C 0061
-0A6C 0041
0AEC 0061
-0AEC 0041
0B6C 0061
-0B6C 0041
0BEC 0061
-0BEC 0041
0C6C 0061
-0C6C 0041
0CEC 0061
-0CEC 0041
0D6C 0061
-0D6C 0041
-ABF6 0061
-ABF6 0041
-A8D6 0061
-A8D6 0041
-194C 0061
-194C 0041
-19D6 0061
-19D6 0041
-1A86 0061
-1A86 0041
-1A96 0061
-1A96 0041
+0DEC 0061
0E56 0061
-0E56 0041
0ED6 0061
-0ED6 0041
0F26 0061
-0F26 0041
-0F2F 0061
-0F2F 0041
-1C46 0061
-1C46 0041
-A906 0061
-A906 0041
1046 0061
-1046 0041
1096 0061
-1096 0041
-1113C 0061
-1113C 0041
+136E 0061
17E6 0061
-17E6 0041
17F6 0061
-17F6 0041
-AA56 0061
-AA56 0041
+1816 0061
+194C 0061
+19D6 0061
+1A86 0061
+1A96 0061
1B56 0061
-1B56 0041
-A9D6 0061
-A9D6 0041
1BB6 0061
-1BB6 0041
-1816 0061
-1816 0041
+1C46 0061
1C56 0061
-1C56 0041
-A626 0061
-A626 0041
-110F6 0061
-110F6 0041
+2185 0061
3026 0061
-3026 0041
+A626 0061
+A8D6 0061
+A906 0061
+A9D6 0061
+A9F6 0061
+AA56 0061
+ABF6 0061
1010C 0061
-1010C 0041
-2185 0061
-2185 0041
+102E6 0061
+104A6 0061
+10E65 0061
+11057 0061
+1106C 0061
+110F6 0061
+1113C 0061
+111D6 0061
+111E6 0061
+112F6 0061
+114D6 0061
+11656 0061
+116C6 0061
+118E6 0061
12404 0061
1240B 0061
12411 0061
@@ -34285,6 +38987,66 @@ A626 0041
12428 0061
12440 0061
1244E 0061
+1246B 0061
+16A66 0061
+16B56 0061
+1D365 0061
+1E8CC 0061
+0036 0041
+0666 0041
+06F6 0041
+07C6 0041
+096C 0041
+09EC 0041
+0A6C 0041
+0AEC 0041
+0B6C 0041
+0BEC 0041
+0C6C 0041
+0CEC 0041
+0D6C 0041
+0DEC 0041
+0E56 0041
+0ED6 0041
+0F26 0041
+1046 0041
+1096 0041
+136E 0041
+17E6 0041
+17F6 0041
+1816 0041
+194C 0041
+19D6 0041
+1A86 0041
+1A96 0041
+1B56 0041
+1BB6 0041
+1C46 0041
+1C56 0041
+2185 0041
+3026 0041
+A626 0041
+A8D6 0041
+A906 0041
+A9D6 0041
+A9F6 0041
+AA56 0041
+ABF6 0041
+1010C 0041
+102E6 0041
+104A6 0041
+10E65 0041
+11057 0041
+1106C 0041
+110F6 0041
+1113C 0041
+111D6 0041
+111E6 0041
+112F6 0041
+114D6 0041
+11656 0041
+116C6 0041
+118E6 0041
12404 0041
1240B 0041
12411 0041
@@ -34292,36 +39054,43 @@ A626 0041
12428 0041
12440 0041
1244E 0041
-111D6 0061
-111D6 0041
-116C6 0061
-116C6 0041
-1106C 0061
-1106C 0041
-11057 0061
-11057 0041
-1D365 0061
+1246B 0041
+16A66 0041
+16B56 0041
1D365 0041
+1E8CC 0041
+FF16 0061
+FF16 0041
+0F2F 0061
+0F2F 0041
+1D7D4 0061
+1D7DE 0061
+1D7E8 0061
+1D7F2 0061
+1D7FC 0061
+1D7D4 0041
+1D7DE 0041
+1D7E8 0041
+1D7F2 0041
+1D7FC 0041
+2465 0061
+24FA 0061
+277B 0061
+2785 0061
+278F 0061
+2465 0041
+24FA 0041
+277B 0041
+2785 0041
+278F 0041
+2076 0061
+2076 0041
+2086 0061
+2086 0041
0036 0062
-FF16 0062
-1D7D4 0062
-1D7DE 0062
-1D7E8 0062
-1D7F2 0062
-1D7FC 0062
-2465 0062
-24FA 0062
-277B 0062
-2785 0062
-278F 0062
-2076 0062
-2086 0062
0666 0062
06F6 0062
-10E65 0062
07C6 0062
-136E 0062
-104A6 0062
096C 0062
09EC 0062
0A6C 0062
@@ -34331,34 +39100,48 @@ FF16 0062
0C6C 0062
0CEC 0062
0D6C 0062
-ABF6 0062
-A8D6 0062
-194C 0062
-19D6 0062
-1A86 0062
-1A96 0062
+0DEC 0062
0E56 0062
0ED6 0062
0F26 0062
-0F2F 0062
-1C46 0062
-A906 0062
1046 0062
1096 0062
-1113C 0062
+136E 0062
17E6 0062
17F6 0062
-AA56 0062
+1816 0062
+194C 0062
+19D6 0062
+1A86 0062
+1A96 0062
1B56 0062
-A9D6 0062
1BB6 0062
-1816 0062
+1C46 0062
1C56 0062
-A626 0062
-110F6 0062
+2185 0062
3026 0062
+A626 0062
+A8D6 0062
+A906 0062
+A9D6 0062
+A9F6 0062
+AA56 0062
+ABF6 0062
1010C 0062
-2185 0062
+102E6 0062
+104A6 0062
+10E65 0062
+11057 0062
+1106C 0062
+110F6 0062
+1113C 0062
+111D6 0062
+111E6 0062
+112F6 0062
+114D6 0062
+11656 0062
+116C6 0062
+118E6 0062
12404 0062
1240B 0062
12411 0062
@@ -34366,11 +39149,25 @@ A626 0062
12428 0062
12440 0062
1244E 0062
-111D6 0062
-116C6 0062
-1106C 0062
-11057 0062
+1246B 0062
+16A66 0062
+16B56 0062
1D365 0062
+1E8CC 0062
+FF16 0062
+0F2F 0062
+1D7D4 0062
+1D7DE 0062
+1D7E8 0062
+1D7F2 0062
+1D7FC 0062
+2465 0062
+24FA 0062
+277B 0062
+2785 0062
+278F 0062
+2076 0062
+2086 0062
33E5 0021
33E5 003F
33E5 0061
@@ -34392,25 +39189,9 @@ A626 0062
1F108 0041
1F108 0062
0037 0021
-FF17 0021
-1D7D5 0021
-1D7DF 0021
-1D7E9 0021
-1D7F3 0021
-1D7FD 0021
-2466 0021
-24FB 0021
-277C 0021
-2786 0021
-2790 0021
-2077 0021
-2087 0021
0667 0021
06F7 0021
-10E66 0021
07C7 0021
-136F 0021
-104A7 0021
096D 0021
09ED 0021
0A6D 0021
@@ -34420,33 +39201,47 @@ FF17 0021
0C6D 0021
0CED 0021
0D6D 0021
-ABF7 0021
-A8D7 0021
-194D 0021
-19D7 0021
-1A87 0021
-1A97 0021
+0DED 0021
0E57 0021
0ED7 0021
0F27 0021
-0F30 0021
-1C47 0021
-A907 0021
1047 0021
1097 0021
-1113D 0021
+136F 0021
17E7 0021
17F7 0021
-AA57 0021
+1817 0021
+194D 0021
+19D7 0021
+1A87 0021
+1A97 0021
1B57 0021
-A9D7 0021
1BB7 0021
-1817 0021
+1C47 0021
1C57 0021
-A627 0021
-110F7 0021
3027 0021
+A627 0021
+A8D7 0021
+A907 0021
+A9D7 0021
+A9F7 0021
+AA57 0021
+ABF7 0021
1010D 0021
+102E7 0021
+104A7 0021
+10E66 0021
+11058 0021
+1106D 0021
+110F7 0021
+1113D 0021
+111D7 0021
+111E7 0021
+112F7 0021
+114D7 0021
+11657 0021
+116C7 0021
+118E7 0021
12405 0021
1240C 0021
12412 0021
@@ -34455,31 +39250,29 @@ A627 0021
12441 0021
12442 0021
12443 0021
-111D7 0021
-116C7 0021
-1106D 0021
-11058 0021
+1246C 0021
+16A67 0021
+16B57 0021
1D366 0021
+1E8CD 0021
+FF17 0021
+0F30 0021
+1D7D5 0021
+1D7DF 0021
+1D7E9 0021
+1D7F3 0021
+1D7FD 0021
+2466 0021
+24FB 0021
+277C 0021
+2786 0021
+2790 0021
+2077 0021
+2087 0021
0037 003F
-FF17 003F
-1D7D5 003F
-1D7DF 003F
-1D7E9 003F
-1D7F3 003F
-1D7FD 003F
-2466 003F
-24FB 003F
-277C 003F
-2786 003F
-2790 003F
-2077 003F
-2087 003F
0667 003F
06F7 003F
-10E66 003F
07C7 003F
-136F 003F
-104A7 003F
096D 003F
09ED 003F
0A6D 003F
@@ -34489,33 +39282,47 @@ FF17 003F
0C6D 003F
0CED 003F
0D6D 003F
-ABF7 003F
-A8D7 003F
-194D 003F
-19D7 003F
-1A87 003F
-1A97 003F
+0DED 003F
0E57 003F
0ED7 003F
0F27 003F
-0F30 003F
-1C47 003F
-A907 003F
1047 003F
1097 003F
-1113D 003F
+136F 003F
17E7 003F
17F7 003F
-AA57 003F
+1817 003F
+194D 003F
+19D7 003F
+1A87 003F
+1A97 003F
1B57 003F
-A9D7 003F
1BB7 003F
-1817 003F
+1C47 003F
1C57 003F
-A627 003F
-110F7 003F
3027 003F
+A627 003F
+A8D7 003F
+A907 003F
+A9D7 003F
+A9F7 003F
+AA57 003F
+ABF7 003F
1010D 003F
+102E7 003F
+104A7 003F
+10E66 003F
+11058 003F
+1106D 003F
+110F7 003F
+1113D 003F
+111D7 003F
+111E7 003F
+112F7 003F
+114D7 003F
+11657 003F
+116C7 003F
+118E7 003F
12405 003F
1240C 003F
12412 003F
@@ -34524,11 +39331,25 @@ A627 003F
12441 003F
12442 003F
12443 003F
-111D7 003F
-116C7 003F
-1106D 003F
-11058 003F
+1246C 003F
+16A67 003F
+16B57 003F
1D366 003F
+1E8CD 003F
+FF17 003F
+0F30 003F
+1D7D5 003F
+1D7DF 003F
+1D7E9 003F
+1D7F3 003F
+1D7FD 003F
+2466 003F
+24FB 003F
+277C 003F
+2786 003F
+2790 003F
+2077 003F
+2087 003F
248E 0021
248E 003F
248E 0061
@@ -34545,117 +39366,59 @@ A627 003F
324E 0041
324E 0062
0037 0061
-0037 0041
-FF17 0061
-FF17 0041
-1D7D5 0061
-1D7DF 0061
-1D7E9 0061
-1D7F3 0061
-1D7FD 0061
-1D7D5 0041
-1D7DF 0041
-1D7E9 0041
-1D7F3 0041
-1D7FD 0041
-2466 0061
-24FB 0061
-277C 0061
-2786 0061
-2790 0061
-2466 0041
-24FB 0041
-277C 0041
-2786 0041
-2790 0041
-2077 0061
-2077 0041
-2087 0061
-2087 0041
0667 0061
-0667 0041
06F7 0061
-06F7 0041
-10E66 0061
-10E66 0041
07C7 0061
-07C7 0041
-136F 0061
-136F 0041
-104A7 0061
-104A7 0041
096D 0061
-096D 0041
09ED 0061
-09ED 0041
0A6D 0061
-0A6D 0041
0AED 0061
-0AED 0041
0B6D 0061
-0B6D 0041
0BED 0061
-0BED 0041
0C6D 0061
-0C6D 0041
0CED 0061
-0CED 0041
0D6D 0061
-0D6D 0041
-ABF7 0061
-ABF7 0041
-A8D7 0061
-A8D7 0041
-194D 0061
-194D 0041
-19D7 0061
-19D7 0041
-1A87 0061
-1A87 0041
-1A97 0061
-1A97 0041
+0DED 0061
0E57 0061
-0E57 0041
0ED7 0061
-0ED7 0041
0F27 0061
-0F27 0041
-0F30 0061
-0F30 0041
-1C47 0061
-1C47 0041
-A907 0061
-A907 0041
1047 0061
-1047 0041
1097 0061
-1097 0041
-1113D 0061
-1113D 0041
+136F 0061
17E7 0061
-17E7 0041
17F7 0061
-17F7 0041
-AA57 0061
-AA57 0041
+1817 0061
+194D 0061
+19D7 0061
+1A87 0061
+1A97 0061
1B57 0061
-1B57 0041
-A9D7 0061
-A9D7 0041
1BB7 0061
-1BB7 0041
-1817 0061
-1817 0041
+1C47 0061
1C57 0061
-1C57 0041
-A627 0061
-A627 0041
-110F7 0061
-110F7 0041
3027 0061
-3027 0041
+A627 0061
+A8D7 0061
+A907 0061
+A9D7 0061
+A9F7 0061
+AA57 0061
+ABF7 0061
1010D 0061
-1010D 0041
+102E7 0061
+104A7 0061
+10E66 0061
+11058 0061
+1106D 0061
+110F7 0061
+1113D 0061
+111D7 0061
+111E7 0061
+112F7 0061
+114D7 0061
+11657 0061
+116C7 0061
+118E7 0061
12405 0061
1240C 0061
12412 0061
@@ -34664,6 +39427,65 @@ A627 0041
12441 0061
12442 0061
12443 0061
+1246C 0061
+16A67 0061
+16B57 0061
+1D366 0061
+1E8CD 0061
+0037 0041
+0667 0041
+06F7 0041
+07C7 0041
+096D 0041
+09ED 0041
+0A6D 0041
+0AED 0041
+0B6D 0041
+0BED 0041
+0C6D 0041
+0CED 0041
+0D6D 0041
+0DED 0041
+0E57 0041
+0ED7 0041
+0F27 0041
+1047 0041
+1097 0041
+136F 0041
+17E7 0041
+17F7 0041
+1817 0041
+194D 0041
+19D7 0041
+1A87 0041
+1A97 0041
+1B57 0041
+1BB7 0041
+1C47 0041
+1C57 0041
+3027 0041
+A627 0041
+A8D7 0041
+A907 0041
+A9D7 0041
+A9F7 0041
+AA57 0041
+ABF7 0041
+1010D 0041
+102E7 0041
+104A7 0041
+10E66 0041
+11058 0041
+1106D 0041
+110F7 0041
+1113D 0041
+111D7 0041
+111E7 0041
+112F7 0041
+114D7 0041
+11657 0041
+116C7 0041
+118E7 0041
12405 0041
1240C 0041
12412 0041
@@ -34672,36 +39494,43 @@ A627 0041
12441 0041
12442 0041
12443 0041
-111D7 0061
-111D7 0041
-116C7 0061
-116C7 0041
-1106D 0061
-1106D 0041
-11058 0061
-11058 0041
-1D366 0061
+1246C 0041
+16A67 0041
+16B57 0041
1D366 0041
+1E8CD 0041
+FF17 0061
+FF17 0041
+0F30 0061
+0F30 0041
+1D7D5 0061
+1D7DF 0061
+1D7E9 0061
+1D7F3 0061
+1D7FD 0061
+1D7D5 0041
+1D7DF 0041
+1D7E9 0041
+1D7F3 0041
+1D7FD 0041
+2466 0061
+24FB 0061
+277C 0061
+2786 0061
+2790 0061
+2466 0041
+24FB 0041
+277C 0041
+2786 0041
+2790 0041
+2077 0061
+2077 0041
+2087 0061
+2087 0041
0037 0062
-FF17 0062
-1D7D5 0062
-1D7DF 0062
-1D7E9 0062
-1D7F3 0062
-1D7FD 0062
-2466 0062
-24FB 0062
-277C 0062
-2786 0062
-2790 0062
-2077 0062
-2087 0062
0667 0062
06F7 0062
-10E66 0062
07C7 0062
-136F 0062
-104A7 0062
096D 0062
09ED 0062
0A6D 0062
@@ -34711,33 +39540,47 @@ FF17 0062
0C6D 0062
0CED 0062
0D6D 0062
-ABF7 0062
-A8D7 0062
-194D 0062
-19D7 0062
-1A87 0062
-1A97 0062
+0DED 0062
0E57 0062
0ED7 0062
0F27 0062
-0F30 0062
-1C47 0062
-A907 0062
1047 0062
1097 0062
-1113D 0062
+136F 0062
17E7 0062
17F7 0062
-AA57 0062
+1817 0062
+194D 0062
+19D7 0062
+1A87 0062
+1A97 0062
1B57 0062
-A9D7 0062
1BB7 0062
-1817 0062
+1C47 0062
1C57 0062
-A627 0062
-110F7 0062
3027 0062
+A627 0062
+A8D7 0062
+A907 0062
+A9D7 0062
+A9F7 0062
+AA57 0062
+ABF7 0062
1010D 0062
+102E7 0062
+104A7 0062
+10E66 0062
+11058 0062
+1106D 0062
+110F7 0062
+1113D 0062
+111D7 0062
+111E7 0062
+112F7 0062
+114D7 0062
+11657 0062
+116C7 0062
+118E7 0062
12405 0062
1240C 0062
12412 0062
@@ -34746,11 +39589,25 @@ A627 0062
12441 0062
12442 0062
12443 0062
-111D7 0062
-116C7 0062
-1106D 0062
-11058 0062
+1246C 0062
+16A67 0062
+16B57 0062
1D366 0062
+1E8CD 0062
+FF17 0062
+0F30 0062
+1D7D5 0062
+1D7DF 0062
+1D7E9 0062
+1D7F3 0062
+1D7FD 0062
+2466 0062
+24FB 0062
+277C 0062
+2786 0062
+2790 0062
+2077 0062
+2087 0062
33E6 0021
33E6 003F
33E6 0061
@@ -34772,25 +39629,9 @@ A627 0062
1F109 0041
1F109 0062
0038 0021
-FF18 0021
-1D7D6 0021
-1D7E0 0021
-1D7EA 0021
-1D7F4 0021
-1D7FE 0021
-2467 0021
-24FC 0021
-277D 0021
-2787 0021
-2791 0021
-2078 0021
-2088 0021
0668 0021
06F8 0021
-10E67 0021
07C8 0021
-1370 0021
-104A8 0021
096E 0021
09EE 0021
0A6E 0021
@@ -34800,33 +39641,47 @@ FF18 0021
0C6E 0021
0CEE 0021
0D6E 0021
-ABF8 0021
-A8D8 0021
-194E 0021
-19D8 0021
-1A88 0021
-1A98 0021
+0DEE 0021
0E58 0021
0ED8 0021
0F28 0021
-0F31 0021
-1C48 0021
-A908 0021
1048 0021
1098 0021
-1113E 0021
+1370 0021
17E8 0021
17F8 0021
-AA58 0021
+1818 0021
+194E 0021
+19D8 0021
+1A88 0021
+1A98 0021
1B58 0021
-A9D8 0021
1BB8 0021
-1818 0021
+1C48 0021
1C58 0021
-A628 0021
-110F8 0021
3028 0021
+A628 0021
+A8D8 0021
+A908 0021
+A9D8 0021
+A9F8 0021
+AA58 0021
+ABF8 0021
1010E 0021
+102E8 0021
+104A8 0021
+10E67 0021
+11059 0021
+1106E 0021
+110F8 0021
+1113E 0021
+111D8 0021
+111E8 0021
+112F8 0021
+114D8 0021
+11658 0021
+116C8 0021
+118E8 0021
12406 0021
1240D 0021
12413 0021
@@ -34834,31 +39689,29 @@ A628 0021
1242A 0021
12444 0021
12445 0021
-111D8 0021
-116C8 0021
-1106E 0021
-11059 0021
+1246D 0021
+16A68 0021
+16B58 0021
1D367 0021
+1E8CE 0021
+FF18 0021
+0F31 0021
+1D7D6 0021
+1D7E0 0021
+1D7EA 0021
+1D7F4 0021
+1D7FE 0021
+2467 0021
+24FC 0021
+277D 0021
+2787 0021
+2791 0021
+2078 0021
+2088 0021
0038 003F
-FF18 003F
-1D7D6 003F
-1D7E0 003F
-1D7EA 003F
-1D7F4 003F
-1D7FE 003F
-2467 003F
-24FC 003F
-277D 003F
-2787 003F
-2791 003F
-2078 003F
-2088 003F
0668 003F
06F8 003F
-10E67 003F
07C8 003F
-1370 003F
-104A8 003F
096E 003F
09EE 003F
0A6E 003F
@@ -34868,33 +39721,47 @@ FF18 003F
0C6E 003F
0CEE 003F
0D6E 003F
-ABF8 003F
-A8D8 003F
-194E 003F
-19D8 003F
-1A88 003F
-1A98 003F
+0DEE 003F
0E58 003F
0ED8 003F
0F28 003F
-0F31 003F
-1C48 003F
-A908 003F
1048 003F
1098 003F
-1113E 003F
+1370 003F
17E8 003F
17F8 003F
-AA58 003F
+1818 003F
+194E 003F
+19D8 003F
+1A88 003F
+1A98 003F
1B58 003F
-A9D8 003F
1BB8 003F
-1818 003F
+1C48 003F
1C58 003F
-A628 003F
-110F8 003F
3028 003F
+A628 003F
+A8D8 003F
+A908 003F
+A9D8 003F
+A9F8 003F
+AA58 003F
+ABF8 003F
1010E 003F
+102E8 003F
+104A8 003F
+10E67 003F
+11059 003F
+1106E 003F
+110F8 003F
+1113E 003F
+111D8 003F
+111E8 003F
+112F8 003F
+114D8 003F
+11658 003F
+116C8 003F
+118E8 003F
12406 003F
1240D 003F
12413 003F
@@ -34902,11 +39769,25 @@ A628 003F
1242A 003F
12444 003F
12445 003F
-111D8 003F
-116C8 003F
-1106E 003F
-11059 003F
+1246D 003F
+16A68 003F
+16B58 003F
1D367 003F
+1E8CE 003F
+FF18 003F
+0F31 003F
+1D7D6 003F
+1D7E0 003F
+1D7EA 003F
+1D7F4 003F
+1D7FE 003F
+2467 003F
+24FC 003F
+277D 003F
+2787 003F
+2791 003F
+2078 003F
+2088 003F
248F 0021
248F 003F
248F 0061
@@ -34918,117 +39799,59 @@ A628 003F
324F 0041
324F 0062
0038 0061
-0038 0041
-FF18 0061
-FF18 0041
-1D7D6 0061
-1D7E0 0061
-1D7EA 0061
-1D7F4 0061
-1D7FE 0061
-1D7D6 0041
-1D7E0 0041
-1D7EA 0041
-1D7F4 0041
-1D7FE 0041
-2467 0061
-24FC 0061
-277D 0061
-2787 0061
-2791 0061
-2467 0041
-24FC 0041
-277D 0041
-2787 0041
-2791 0041
-2078 0061
-2078 0041
-2088 0061
-2088 0041
0668 0061
-0668 0041
06F8 0061
-06F8 0041
-10E67 0061
-10E67 0041
07C8 0061
-07C8 0041
-1370 0061
-1370 0041
-104A8 0061
-104A8 0041
096E 0061
-096E 0041
09EE 0061
-09EE 0041
0A6E 0061
-0A6E 0041
0AEE 0061
-0AEE 0041
0B6E 0061
-0B6E 0041
0BEE 0061
-0BEE 0041
0C6E 0061
-0C6E 0041
0CEE 0061
-0CEE 0041
0D6E 0061
-0D6E 0041
-ABF8 0061
-ABF8 0041
-A8D8 0061
-A8D8 0041
-194E 0061
-194E 0041
-19D8 0061
-19D8 0041
-1A88 0061
-1A88 0041
-1A98 0061
-1A98 0041
+0DEE 0061
0E58 0061
-0E58 0041
0ED8 0061
-0ED8 0041
0F28 0061
-0F28 0041
-0F31 0061
-0F31 0041
-1C48 0061
-1C48 0041
-A908 0061
-A908 0041
1048 0061
-1048 0041
1098 0061
-1098 0041
-1113E 0061
-1113E 0041
+1370 0061
17E8 0061
-17E8 0041
17F8 0061
-17F8 0041
-AA58 0061
-AA58 0041
+1818 0061
+194E 0061
+19D8 0061
+1A88 0061
+1A98 0061
1B58 0061
-1B58 0041
-A9D8 0061
-A9D8 0041
1BB8 0061
-1BB8 0041
-1818 0061
-1818 0041
+1C48 0061
1C58 0061
-1C58 0041
-A628 0061
-A628 0041
-110F8 0061
-110F8 0041
3028 0061
-3028 0041
+A628 0061
+A8D8 0061
+A908 0061
+A9D8 0061
+A9F8 0061
+AA58 0061
+ABF8 0061
1010E 0061
-1010E 0041
+102E8 0061
+104A8 0061
+10E67 0061
+11059 0061
+1106E 0061
+110F8 0061
+1113E 0061
+111D8 0061
+111E8 0061
+112F8 0061
+114D8 0061
+11658 0061
+116C8 0061
+118E8 0061
12406 0061
1240D 0061
12413 0061
@@ -35036,6 +39859,65 @@ A628 0041
1242A 0061
12444 0061
12445 0061
+1246D 0061
+16A68 0061
+16B58 0061
+1D367 0061
+1E8CE 0061
+0038 0041
+0668 0041
+06F8 0041
+07C8 0041
+096E 0041
+09EE 0041
+0A6E 0041
+0AEE 0041
+0B6E 0041
+0BEE 0041
+0C6E 0041
+0CEE 0041
+0D6E 0041
+0DEE 0041
+0E58 0041
+0ED8 0041
+0F28 0041
+1048 0041
+1098 0041
+1370 0041
+17E8 0041
+17F8 0041
+1818 0041
+194E 0041
+19D8 0041
+1A88 0041
+1A98 0041
+1B58 0041
+1BB8 0041
+1C48 0041
+1C58 0041
+3028 0041
+A628 0041
+A8D8 0041
+A908 0041
+A9D8 0041
+A9F8 0041
+AA58 0041
+ABF8 0041
+1010E 0041
+102E8 0041
+104A8 0041
+10E67 0041
+11059 0041
+1106E 0041
+110F8 0041
+1113E 0041
+111D8 0041
+111E8 0041
+112F8 0041
+114D8 0041
+11658 0041
+116C8 0041
+118E8 0041
12406 0041
1240D 0041
12413 0041
@@ -35043,36 +39925,43 @@ A628 0041
1242A 0041
12444 0041
12445 0041
-111D8 0061
-111D8 0041
-116C8 0061
-116C8 0041
-1106E 0061
-1106E 0041
-11059 0061
-11059 0041
-1D367 0061
+1246D 0041
+16A68 0041
+16B58 0041
1D367 0041
+1E8CE 0041
+FF18 0061
+FF18 0041
+0F31 0061
+0F31 0041
+1D7D6 0061
+1D7E0 0061
+1D7EA 0061
+1D7F4 0061
+1D7FE 0061
+1D7D6 0041
+1D7E0 0041
+1D7EA 0041
+1D7F4 0041
+1D7FE 0041
+2467 0061
+24FC 0061
+277D 0061
+2787 0061
+2791 0061
+2467 0041
+24FC 0041
+277D 0041
+2787 0041
+2791 0041
+2078 0061
+2078 0041
+2088 0061
+2088 0041
0038 0062
-FF18 0062
-1D7D6 0062
-1D7E0 0062
-1D7EA 0062
-1D7F4 0062
-1D7FE 0062
-2467 0062
-24FC 0062
-277D 0062
-2787 0062
-2791 0062
-2078 0062
-2088 0062
0668 0062
06F8 0062
-10E67 0062
07C8 0062
-1370 0062
-104A8 0062
096E 0062
09EE 0062
0A6E 0062
@@ -35082,33 +39971,47 @@ FF18 0062
0C6E 0062
0CEE 0062
0D6E 0062
-ABF8 0062
-A8D8 0062
-194E 0062
-19D8 0062
-1A88 0062
-1A98 0062
+0DEE 0062
0E58 0062
0ED8 0062
0F28 0062
-0F31 0062
-1C48 0062
-A908 0062
1048 0062
1098 0062
-1113E 0062
+1370 0062
17E8 0062
17F8 0062
-AA58 0062
+1818 0062
+194E 0062
+19D8 0062
+1A88 0062
+1A98 0062
1B58 0062
-A9D8 0062
1BB8 0062
-1818 0062
+1C48 0062
1C58 0062
-A628 0062
-110F8 0062
3028 0062
+A628 0062
+A8D8 0062
+A908 0062
+A9D8 0062
+A9F8 0062
+AA58 0062
+ABF8 0062
1010E 0062
+102E8 0062
+104A8 0062
+10E67 0062
+11059 0062
+1106E 0062
+110F8 0062
+1113E 0062
+111D8 0062
+111E8 0062
+112F8 0062
+114D8 0062
+11658 0062
+116C8 0062
+118E8 0062
12406 0062
1240D 0062
12413 0062
@@ -35116,11 +40019,25 @@ A628 0062
1242A 0062
12444 0062
12445 0062
-111D8 0062
-116C8 0062
-1106E 0062
-11059 0062
+1246D 0062
+16A68 0062
+16B58 0062
1D367 0062
+1E8CE 0062
+FF18 0062
+0F31 0062
+1D7D6 0062
+1D7E0 0062
+1D7EA 0062
+1D7F4 0062
+1D7FE 0062
+2467 0062
+24FC 0062
+277D 0062
+2787 0062
+2791 0062
+2078 0062
+2088 0062
33E7 0021
33E7 003F
33E7 0061
@@ -35142,25 +40059,9 @@ A628 0062
1F10A 0041
1F10A 0062
0039 0021
-FF19 0021
-1D7D7 0021
-1D7E1 0021
-1D7EB 0021
-1D7F5 0021
-1D7FF 0021
-2468 0021
-24FD 0021
-277E 0021
-2788 0021
-2792 0021
-2079 0021
-2089 0021
0669 0021
06F9 0021
-10E68 0021
07C9 0021
-1371 0021
-104A9 0021
096F 0021
09EF 0021
0A6F 0021
@@ -35170,33 +40071,47 @@ FF19 0021
0C6F 0021
0CEF 0021
0D6F 0021
-ABF9 0021
-A8D9 0021
-194F 0021
-19D9 0021
-1A89 0021
-1A99 0021
+0DEF 0021
0E59 0021
0ED9 0021
0F29 0021
-0F32 0021
-1C49 0021
-A909 0021
1049 0021
1099 0021
-1113F 0021
+1371 0021
17E9 0021
17F9 0021
-AA59 0021
+1819 0021
+194F 0021
+19D9 0021
+1A89 0021
+1A99 0021
1B59 0021
-A9D9 0021
1BB9 0021
-1819 0021
+1C49 0021
1C59 0021
-A629 0021
-110F9 0021
3029 0021
+A629 0021
+A8D9 0021
+A909 0021
+A9D9 0021
+A9F9 0021
+AA59 0021
+ABF9 0021
1010F 0021
+102E9 0021
+104A9 0021
+10E68 0021
+1105A 0021
+1106F 0021
+110F9 0021
+1113F 0021
+111D9 0021
+111E9 0021
+112F9 0021
+114D9 0021
+11659 0021
+116C9 0021
+118E9 0021
12407 0021
1240E 0021
12414 0021
@@ -35206,31 +40121,29 @@ A629 0021
12447 0021
12448 0021
12449 0021
-111D9 0021
-116C9 0021
-1106F 0021
-1105A 0021
+1246E 0021
+16A69 0021
+16B59 0021
1D368 0021
+1E8CF 0021
+FF19 0021
+0F32 0021
+1D7D7 0021
+1D7E1 0021
+1D7EB 0021
+1D7F5 0021
+1D7FF 0021
+2468 0021
+24FD 0021
+277E 0021
+2788 0021
+2792 0021
+2079 0021
+2089 0021
0039 003F
-FF19 003F
-1D7D7 003F
-1D7E1 003F
-1D7EB 003F
-1D7F5 003F
-1D7FF 003F
-2468 003F
-24FD 003F
-277E 003F
-2788 003F
-2792 003F
-2079 003F
-2089 003F
0669 003F
06F9 003F
-10E68 003F
07C9 003F
-1371 003F
-104A9 003F
096F 003F
09EF 003F
0A6F 003F
@@ -35240,33 +40153,47 @@ FF19 003F
0C6F 003F
0CEF 003F
0D6F 003F
-ABF9 003F
-A8D9 003F
-194F 003F
-19D9 003F
-1A89 003F
-1A99 003F
+0DEF 003F
0E59 003F
0ED9 003F
0F29 003F
-0F32 003F
-1C49 003F
-A909 003F
1049 003F
1099 003F
-1113F 003F
+1371 003F
17E9 003F
17F9 003F
-AA59 003F
+1819 003F
+194F 003F
+19D9 003F
+1A89 003F
+1A99 003F
1B59 003F
-A9D9 003F
1BB9 003F
-1819 003F
+1C49 003F
1C59 003F
-A629 003F
-110F9 003F
3029 003F
+A629 003F
+A8D9 003F
+A909 003F
+A9D9 003F
+A9F9 003F
+AA59 003F
+ABF9 003F
1010F 003F
+102E9 003F
+104A9 003F
+10E68 003F
+1105A 003F
+1106F 003F
+110F9 003F
+1113F 003F
+111D9 003F
+111E9 003F
+112F9 003F
+114D9 003F
+11659 003F
+116C9 003F
+118E9 003F
12407 003F
1240E 003F
12414 003F
@@ -35276,128 +40203,84 @@ A629 003F
12447 003F
12448 003F
12449 003F
-111D9 003F
-116C9 003F
-1106F 003F
-1105A 003F
+1246E 003F
+16A69 003F
+16B59 003F
1D368 003F
+1E8CF 003F
+FF19 003F
+0F32 003F
+1D7D7 003F
+1D7E1 003F
+1D7EB 003F
+1D7F5 003F
+1D7FF 003F
+2468 003F
+24FD 003F
+277E 003F
+2788 003F
+2792 003F
+2079 003F
+2089 003F
2490 0021
2490 003F
2490 0061
2490 0041
2490 0062
0039 0061
-0039 0041
-FF19 0061
-FF19 0041
-1D7D7 0061
-1D7E1 0061
-1D7EB 0061
-1D7F5 0061
-1D7FF 0061
-1D7D7 0041
-1D7E1 0041
-1D7EB 0041
-1D7F5 0041
-1D7FF 0041
-2468 0061
-24FD 0061
-277E 0061
-2788 0061
-2792 0061
-2468 0041
-24FD 0041
-277E 0041
-2788 0041
-2792 0041
-2079 0061
-2079 0041
-2089 0061
-2089 0041
0669 0061
-0669 0041
06F9 0061
-06F9 0041
-10E68 0061
-10E68 0041
07C9 0061
-07C9 0041
-1371 0061
-1371 0041
-104A9 0061
-104A9 0041
096F 0061
-096F 0041
09EF 0061
-09EF 0041
0A6F 0061
-0A6F 0041
0AEF 0061
-0AEF 0041
0B6F 0061
-0B6F 0041
0BEF 0061
-0BEF 0041
0C6F 0061
-0C6F 0041
0CEF 0061
-0CEF 0041
0D6F 0061
-0D6F 0041
-ABF9 0061
-ABF9 0041
-A8D9 0061
-A8D9 0041
-194F 0061
-194F 0041
-19D9 0061
-19D9 0041
-1A89 0061
-1A89 0041
-1A99 0061
-1A99 0041
+0DEF 0061
0E59 0061
-0E59 0041
0ED9 0061
-0ED9 0041
0F29 0061
-0F29 0041
-0F32 0061
-0F32 0041
-1C49 0061
-1C49 0041
-A909 0061
-A909 0041
1049 0061
-1049 0041
1099 0061
-1099 0041
-1113F 0061
-1113F 0041
+1371 0061
17E9 0061
-17E9 0041
17F9 0061
-17F9 0041
-AA59 0061
-AA59 0041
+1819 0061
+194F 0061
+19D9 0061
+1A89 0061
+1A99 0061
1B59 0061
-1B59 0041
-A9D9 0061
-A9D9 0041
1BB9 0061
-1BB9 0041
-1819 0061
-1819 0041
+1C49 0061
1C59 0061
-1C59 0041
-A629 0061
-A629 0041
-110F9 0061
-110F9 0041
3029 0061
-3029 0041
+A629 0061
+A8D9 0061
+A909 0061
+A9D9 0061
+A9F9 0061
+AA59 0061
+ABF9 0061
1010F 0061
-1010F 0041
+102E9 0061
+104A9 0061
+10E68 0061
+1105A 0061
+1106F 0061
+110F9 0061
+1113F 0061
+111D9 0061
+111E9 0061
+112F9 0061
+114D9 0061
+11659 0061
+116C9 0061
+118E9 0061
12407 0061
1240E 0061
12414 0061
@@ -35407,6 +40290,65 @@ A629 0041
12447 0061
12448 0061
12449 0061
+1246E 0061
+16A69 0061
+16B59 0061
+1D368 0061
+1E8CF 0061
+0039 0041
+0669 0041
+06F9 0041
+07C9 0041
+096F 0041
+09EF 0041
+0A6F 0041
+0AEF 0041
+0B6F 0041
+0BEF 0041
+0C6F 0041
+0CEF 0041
+0D6F 0041
+0DEF 0041
+0E59 0041
+0ED9 0041
+0F29 0041
+1049 0041
+1099 0041
+1371 0041
+17E9 0041
+17F9 0041
+1819 0041
+194F 0041
+19D9 0041
+1A89 0041
+1A99 0041
+1B59 0041
+1BB9 0041
+1C49 0041
+1C59 0041
+3029 0041
+A629 0041
+A8D9 0041
+A909 0041
+A9D9 0041
+A9F9 0041
+AA59 0041
+ABF9 0041
+1010F 0041
+102E9 0041
+104A9 0041
+10E68 0041
+1105A 0041
+1106F 0041
+110F9 0041
+1113F 0041
+111D9 0041
+111E9 0041
+112F9 0041
+114D9 0041
+11659 0041
+116C9 0041
+118E9 0041
12407 0041
1240E 0041
12414 0041
@@ -35416,36 +40358,43 @@ A629 0041
12447 0041
12448 0041
12449 0041
-111D9 0061
-111D9 0041
-116C9 0061
-116C9 0041
-1106F 0061
-1106F 0041
-1105A 0061
-1105A 0041
-1D368 0061
+1246E 0041
+16A69 0041
+16B59 0041
1D368 0041
+1E8CF 0041
+FF19 0061
+FF19 0041
+0F32 0061
+0F32 0041
+1D7D7 0061
+1D7E1 0061
+1D7EB 0061
+1D7F5 0061
+1D7FF 0061
+1D7D7 0041
+1D7E1 0041
+1D7EB 0041
+1D7F5 0041
+1D7FF 0041
+2468 0061
+24FD 0061
+277E 0061
+2788 0061
+2792 0061
+2468 0041
+24FD 0041
+277E 0041
+2788 0041
+2792 0041
+2079 0061
+2079 0041
+2089 0061
+2089 0041
0039 0062
-FF19 0062
-1D7D7 0062
-1D7E1 0062
-1D7EB 0062
-1D7F5 0062
-1D7FF 0062
-2468 0062
-24FD 0062
-277E 0062
-2788 0062
-2792 0062
-2079 0062
-2089 0062
0669 0062
06F9 0062
-10E68 0062
07C9 0062
-1371 0062
-104A9 0062
096F 0062
09EF 0062
0A6F 0062
@@ -35455,33 +40404,47 @@ FF19 0062
0C6F 0062
0CEF 0062
0D6F 0062
-ABF9 0062
-A8D9 0062
-194F 0062
-19D9 0062
-1A89 0062
-1A99 0062
+0DEF 0062
0E59 0062
0ED9 0062
0F29 0062
-0F32 0062
-1C49 0062
-A909 0062
1049 0062
1099 0062
-1113F 0062
+1371 0062
17E9 0062
17F9 0062
-AA59 0062
+1819 0062
+194F 0062
+19D9 0062
+1A89 0062
+1A99 0062
1B59 0062
-A9D9 0062
1BB9 0062
-1819 0062
+1C49 0062
1C59 0062
-A629 0062
-110F9 0062
3029 0062
+A629 0062
+A8D9 0062
+A909 0062
+A9D9 0062
+A9F9 0062
+AA59 0062
+ABF9 0062
1010F 0062
+102E9 0062
+104A9 0062
+10E68 0062
+1105A 0062
+1106F 0062
+110F9 0062
+1113F 0062
+111D9 0062
+111E9 0062
+112F9 0062
+114D9 0062
+11659 0062
+116C9 0062
+118E9 0062
12407 0062
1240E 0062
12414 0062
@@ -35491,11 +40454,25 @@ A629 0062
12447 0062
12448 0062
12449 0062
-111D9 0062
-116C9 0062
-1106F 0062
-1105A 0062
+1246E 0062
+16A69 0062
+16B59 0062
1D368 0062
+1E8CF 0062
+FF19 0062
+0F32 0062
+1D7D7 0062
+1D7E1 0062
+1D7EB 0062
+1D7F5 0062
+1D7FF 0062
+2468 0062
+24FD 0062
+277E 0062
+2788 0062
+2792 0062
+2079 0062
+2089 0062
33E8 0021
33E8 003F
33E8 0061
@@ -35613,6 +40590,7 @@ A629 0062
0602 0061
0603 0061
0604 0061
+0605 0061
0610 0061
0611 0061
0612 0061
@@ -35624,6 +40602,7 @@ A629 0062
0618 0061
0619 0061
061A 0061
+061C 0061
0640 0061
06D6 0061
06D7 0061
@@ -35681,6 +40660,7 @@ A629 0062
180B 0061
180C 0061
180D 0061
+180E 0061
1A7F 0061
1B6B 0061
1B6C 0061
@@ -35717,6 +40697,8 @@ A629 0062
1CE7 0061
1CE8 0061
1CF4 0061
+1CF8 0061
+1CF9 0061
200B 0061
200C 0061
200D 0061
@@ -35732,6 +40714,10 @@ A629 0062
2062 0061
2063 0061
2064 0061
+2066 0061
+2067 0061
+2068 0061
+2069 0061
206A 0061
206B 0061
206C 0061
@@ -35781,12 +40767,34 @@ FE23 0061
FE24 0061
FE25 0061
FE26 0061
+FE28 0061
+FE2A 0061
+FE2B 0061
+FE2C 0061
+FE2D 0061
FE73 0061
FEFF 0061
FFF9 0061
FFFA 0061
FFFB 0061
+102E0 0061
110BD 0061
+11366 0061
+11367 0061
+11368 0061
+11369 0061
+1136A 0061
+1136B 0061
+1136C 0061
+11370 0061
+11371 0061
+11372 0061
+11373 0061
+11374 0061
+1BCA0 0061
+1BCA1 0061
+1BCA2 0061
+1BCA3 0061
1D165 0061
1D166 0061
1D167 0061
@@ -35828,6 +40836,13 @@ FFFB 0061
1D242 0061
1D243 0061
1D244 0061
+1E8D0 0061
+1E8D1 0061
+1E8D2 0061
+1E8D3 0061
+1E8D4 0061
+1E8D5 0061
+1E8D6 0061
E0001 0061
E0020 0061
E0021 0061
@@ -36267,6 +41282,7 @@ E01EF 0061
0602 0041
0603 0041
0604 0041
+0605 0041
0610 0041
0611 0041
0612 0041
@@ -36278,6 +41294,7 @@ E01EF 0061
0618 0041
0619 0041
061A 0041
+061C 0041
0640 0041
06D6 0041
06D7 0041
@@ -36335,6 +41352,7 @@ E01EF 0061
180B 0041
180C 0041
180D 0041
+180E 0041
1A7F 0041
1B6B 0041
1B6C 0041
@@ -36371,6 +41389,8 @@ E01EF 0061
1CE7 0041
1CE8 0041
1CF4 0041
+1CF8 0041
+1CF9 0041
200B 0041
200C 0041
200D 0041
@@ -36386,6 +41406,10 @@ E01EF 0061
2062 0041
2063 0041
2064 0041
+2066 0041
+2067 0041
+2068 0041
+2069 0041
206A 0041
206B 0041
206C 0041
@@ -36435,12 +41459,34 @@ FE23 0041
FE24 0041
FE25 0041
FE26 0041
+FE28 0041
+FE2A 0041
+FE2B 0041
+FE2C 0041
+FE2D 0041
FE73 0041
FEFF 0041
FFF9 0041
FFFA 0041
FFFB 0041
+102E0 0041
110BD 0041
+11366 0041
+11367 0041
+11368 0041
+11369 0041
+1136A 0041
+1136B 0041
+1136C 0041
+11370 0041
+11371 0041
+11372 0041
+11373 0041
+11374 0041
+1BCA0 0041
+1BCA1 0041
+1BCA2 0041
+1BCA3 0041
1D165 0041
1D166 0041
1D167 0041
@@ -36482,6 +41528,13 @@ FFFB 0041
1D242 0041
1D243 0041
1D244 0041
+1E8D0 0041
+1E8D1 0041
+1E8D2 0041
+1E8D3 0041
+1E8D4 0041
+1E8D5 0041
+1E8D6 0041
E0001 0041
E0020 0041
E0021 0041
@@ -37111,6 +42164,13 @@ E01EF 0041
17D0 0061
17D1 0061
17DD 0061
+1AB0 0061
+1AB1 0061
+1AB2 0061
+1AB3 0061
+1AB4 0061
+1ABB 0061
+1ABC 0061
1DC0 0061
1DC1 0061
1DC3 0061
@@ -37125,11 +42185,14 @@ E01EF 0041
1DCD 0061
1DCE 0061
1DD1 0061
+1DF5 0061
1DFE 0061
20F0 0061
2CEF 0061
A67C 0061
A67D 0061
+10AE5 0061
+1BC9D 0061
030D 0041
030E 0041
0312 0041
@@ -37161,6 +42224,13 @@ A67D 0061
17D0 0041
17D1 0041
17DD 0041
+1AB0 0041
+1AB1 0041
+1AB2 0041
+1AB3 0041
+1AB4 0041
+1ABB 0041
+1ABC 0041
1DC0 0041
1DC1 0041
1DC3 0041
@@ -37175,11 +42245,14 @@ A67D 0061
1DCD 0041
1DCE 0041
1DD1 0041
+1DF5 0041
1DFE 0041
20F0 0041
2CEF 0041
A67C 0041
A67D 0041
+10AE5 0041
+1BC9D 0041
0316 0061
0317 0061
0318 0061
@@ -37217,6 +42290,13 @@ A67D 0041
0859 0061
085A 0061
085B 0061
+1AB5 0061
+1AB6 0061
+1AB7 0061
+1AB8 0061
+1AB9 0061
+1ABA 0061
+1ABD 0061
1DC2 0061
1DCF 0061
1DD0 0061
@@ -37227,7 +42307,9 @@ A67D 0041
20ED 0061
20EE 0061
20EF 0061
+FE27 0061
10A0D 0061
+10AE6 0061
0316 0041
0317 0041
0318 0041
@@ -37265,6 +42347,13 @@ A67D 0041
0859 0041
085A 0041
085B 0041
+1AB5 0041
+1AB6 0041
+1AB7 0041
+1AB8 0041
+1AB9 0041
+1ABA 0041
+1ABD 0041
1DC2 0041
1DCF 0041
1DD0 0041
@@ -37275,7 +42364,9 @@ A67D 0041
20ED 0041
20EE 0041
20EF 0041
+FE27 0041
10A0D 0041
+10AE6 0041
0336 0061
0337 0061
20D8 0061
@@ -37284,6 +42375,7 @@ A67D 0041
20E5 0061
20EA 0061
20EB 0061
+1BC9E 0061
0336 0041
0337 0041
20D8 0041
@@ -37292,6 +42384,8 @@ A67D 0041
20E5 0041
20EA 0041
20EB 0041
+1BC9E 0041
+1ABE 0061
20DD 0061
20DE 0061
20DF 0061
@@ -37299,6 +42393,7 @@ A67D 0041
20E2 0061
20E3 0061
20E4 0061
+1ABE 0041
20DD 0041
20DE 0041
20DF 0041
@@ -37306,6 +42401,16 @@ A67D 0041
20E2 0041
20E3 0041
20E4 0041
+3099 0061
+3099 0041
+FF9E 0061
+FF9E 0041
+309A 0061
+309A 0041
+FF9F 0061
+FF9F 0041
+0335 0061
+0335 0041
0305 0061
0305 0041
0309 0061
@@ -37342,10 +42447,10 @@ A67D 0041
0334 0363
0363 0334
0334 0041
+0334 1DF2
+1DF2 0334
0334 1DD3
1DD3 0334
-0335 0061
-0335 0041
0339 0061
0339 0041
0345 0061
@@ -37354,8 +42459,10 @@ A67D 0041
0358 0041
0360 0061
FE22 0061
+FE29 0061
0360 0041
FE22 0041
+FE29 0041
0361 0061
FE20 0061
0361 0041
@@ -37515,7 +42622,9 @@ FC62 0041
08F6 0061
08F6 0041
0651 0061
+11237 0061
0651 0041
+11237 0041
FE7D 0061
FE7D 0041
FE7C 0061
@@ -37542,6 +42651,8 @@ FE7E 0041
0657 0041
0658 0061
0658 0041
+08FF 0061
+08FF 0041
0659 0061
0659 0041
065A 0061
@@ -37632,6 +42743,16 @@ A6F0 0061
A6F0 0041
A6F1 0061
A6F1 0041
+16AF0 0061
+16AF0 0041
+16AF1 0061
+16AF1 0041
+16AF2 0061
+16AF2 0041
+16AF3 0061
+16AF3 0041
+16AF4 0061
+16AF4 0041
093C 0061
09BC 0061
0A3C 0061
@@ -37643,6 +42764,12 @@ A6F1 0041
1C37 0061
A9B3 0061
110BA 0061
+11173 0061
+11236 0061
+112E9 0061
+1133C 0061
+114C3 0061
+115C0 0061
116B7 0061
093C 0041
09BC 0041
@@ -37655,6 +42782,12 @@ A9B3 0061
1C37 0041
A9B3 0041
110BA 0041
+11173 0041
+11236 0041
+112E9 0041
+1133C 0041
+114C3 0041
+115C0 0041
116B7 0041
0900 0061
0901 0061
@@ -37662,7 +42795,10 @@ A9B3 0041
0A01 0061
0A81 0061
0B01 0061
+0C00 0061
0C01 0061
+0C81 0061
+0D01 0061
1B00 0061
1B01 0061
A980 0061
@@ -37670,13 +42806,20 @@ A980 0061
11080 0061
11100 0061
11180 0061
+11301 0061
+114BF 0061
+115BC 0061
+11640 0061
0900 0041
0901 0041
0981 0041
0A01 0041
0A81 0041
0B01 0041
+0C00 0041
0C01 0041
+0C81 0041
+0D01 0041
1B00 0041
1B01 0041
A980 0041
@@ -37684,6 +42827,10 @@ A980 0041
11080 0041
11100 0041
11180 0041
+11301 0041
+114BF 0041
+115BC 0041
+11640 0041
0902 0061
0982 0061
0A02 0061
@@ -37709,6 +42856,12 @@ A981 0061
11081 0061
11101 0061
11181 0061
+11234 0061
+112DF 0061
+11302 0061
+114C0 0061
+115BD 0061
+1163D 0061
116AB 0061
0902 0041
0982 0041
@@ -37735,6 +42888,12 @@ A981 0041
11081 0041
11101 0041
11181 0041
+11234 0041
+112DF 0041
+11302 0041
+114C0 0041
+115BD 0041
+1163D 0041
116AB 0041
0903 0061
0983 0061
@@ -37759,6 +42918,10 @@ A983 0061
11082 0061
11102 0061
11182 0061
+11303 0061
+114C1 0061
+115BE 0061
+1163E 0061
116AC 0061
0903 0041
0983 0041
@@ -37783,6 +42946,10 @@ A983 0041
11082 0041
11102 0041
11182 0041
+11303 0041
+114C1 0041
+115BE 0041
+1163E 0041
116AC 0041
0A70 0061
0A70 0041
@@ -37844,8 +43011,6 @@ A92D 0061
A92D 0041
1037 0061
1037 0041
-108D 0061
-108D 0041
17C8 0061
17C8 0041
17C9 0061
@@ -37874,6 +43039,20 @@ A92D 0041
193A 0041
193B 0061
193B 0041
+16B30 0061
+16B30 0041
+16B31 0061
+16B31 0041
+16B32 0061
+16B32 0041
+16B33 0061
+16B33 0041
+16B34 0061
+16B34 0041
+16B35 0061
+16B35 0041
+16B36 0061
+16B36 0041
302A 0061
302A 0041
302B 0061
@@ -37886,14 +43065,6 @@ A92D 0041
302E 0041
302F 0061
302F 0041
-3099 0061
-3099 0041
-FF9E 0061
-FF9E 0041
-309A 0061
-309A 0041
-FF9F 0061
-FF9F 0041
20D0 0061
20D0 0041
20D1 0061
@@ -37998,7 +43169,10 @@ FF21 0021
01FB 0021
01FA 0021
00E4 0021
+1DF2 0021
+A79B 0021
00C4 0021
+A79A 0021
01DF 0021
01DE 0021
00E3 0021
@@ -38098,7 +43272,10 @@ FF21 003F
01FB 003F
01FA 003F
00E4 003F
+1DF2 003F
+A79B 003F
00C4 003F
+A79A 003F
01DF 003F
01DE 003F
00E3 003F
@@ -38295,8 +43472,14 @@ FF21 0041
01FA 0041
00E4 0061
00E4 0041
+1DF2 0061
+A79B 0061
+1DF2 0041
+A79B 0041
00C4 0061
00C4 0041
+A79A 0061
+A79A 0041
01DF 0061
01DF 0041
01DE 0061
@@ -38433,7 +43616,10 @@ FF21 0062
01FB 0062
01FA 0062
00E4 0062
+1DF2 0062
+A79B 0062
00C4 0062
+A79A 0062
01DF 0062
01DE 0062
00E3 0062
@@ -38631,6 +43817,11 @@ A73C 0062
1D46 0041
1D02 0062
1D46 0062
+AB31 0021
+AB31 003F
+AB31 0061
+AB31 0041
+AB31 0062
0250 0021
2C6F 0021
1D44 0021
@@ -38646,21 +43837,33 @@ A73C 0062
0250 0062
2C6F 0062
1D44 0062
+0334 1DE7
+1DE7 0334
0251 0021
+1DE7 0021
2C6D 0021
1D45 0021
0251 003F
+1DE7 003F
2C6D 003F
1D45 003F
0251 0061
0251 0041
+1DE7 0061
+1DE7 0041
2C6D 0061
2C6D 0041
1D45 0061
1D45 0041
0251 0062
+1DE7 0062
2C6D 0062
1D45 0062
+AB30 0021
+AB30 003F
+AB30 0061
+AB30 0041
+AB30 0062
1D90 0021
1D90 003F
1D90 0061
@@ -38681,6 +43884,11 @@ A73C 0062
0252 0062
2C70 0062
1D9B 0062
+AB64 0021
+AB64 003F
+AB64 0061
+AB64 0041
+AB64 0062
0000 0062
0001 0062
0002 0062
@@ -38783,6 +43991,7 @@ A73C 0062
0602 0062
0603 0062
0604 0062
+0605 0062
0610 0062
0611 0062
0612 0062
@@ -38794,6 +44003,7 @@ A73C 0062
0618 0062
0619 0062
061A 0062
+061C 0062
0640 0062
06D6 0062
06D7 0062
@@ -38851,6 +44061,7 @@ A73C 0062
180B 0062
180C 0062
180D 0062
+180E 0062
1A7F 0062
1B6B 0062
1B6C 0062
@@ -38887,6 +44098,8 @@ A73C 0062
1CE7 0062
1CE8 0062
1CF4 0062
+1CF8 0062
+1CF9 0062
200B 0062
200C 0062
200D 0062
@@ -38902,6 +44115,10 @@ A73C 0062
2062 0062
2063 0062
2064 0062
+2066 0062
+2067 0062
+2068 0062
+2069 0062
206A 0062
206B 0062
206C 0062
@@ -38951,12 +44168,34 @@ FE23 0062
FE24 0062
FE25 0062
FE26 0062
+FE28 0062
+FE2A 0062
+FE2B 0062
+FE2C 0062
+FE2D 0062
FE73 0062
FEFF 0062
FFF9 0062
FFFA 0062
FFFB 0062
+102E0 0062
110BD 0062
+11366 0062
+11367 0062
+11368 0062
+11369 0062
+1136A 0062
+1136B 0062
+1136C 0062
+11370 0062
+11371 0062
+11372 0062
+11373 0062
+11374 0062
+1BCA0 0062
+1BCA1 0062
+1BCA2 0062
+1BCA3 0062
1D165 0062
1D166 0062
1D167 0062
@@ -38998,6 +44237,13 @@ FFFB 0062
1D242 0062
1D243 0062
1D244 0062
+1E8D0 0062
+1E8D1 0062
+1E8D2 0062
+1E8D3 0062
+1E8D4 0062
+1E8D5 0062
+1E8D6 0062
E0001 0062
E0020 0062
E0021 0062
@@ -39412,6 +44658,13 @@ E01EF 0062
17D0 0062
17D1 0062
17DD 0062
+1AB0 0062
+1AB1 0062
+1AB2 0062
+1AB3 0062
+1AB4 0062
+1ABB 0062
+1ABC 0062
1DC0 0062
1DC1 0062
1DC3 0062
@@ -39426,11 +44679,14 @@ E01EF 0062
1DCD 0062
1DCE 0062
1DD1 0062
+1DF5 0062
1DFE 0062
20F0 0062
2CEF 0062
A67C 0062
A67D 0062
+10AE5 0062
+1BC9D 0062
0316 0062
0317 0062
0318 0062
@@ -39468,6 +44724,13 @@ A67D 0062
0859 0062
085A 0062
085B 0062
+1AB5 0062
+1AB6 0062
+1AB7 0062
+1AB8 0062
+1AB9 0062
+1ABA 0062
+1ABD 0062
1DC2 0062
1DCF 0062
1DD0 0062
@@ -39478,7 +44741,9 @@ A67D 0062
20ED 0062
20EE 0062
20EF 0062
+FE27 0062
10A0D 0062
+10AE6 0062
0336 0062
0337 0062
20D8 0062
@@ -39487,6 +44752,8 @@ A67D 0062
20E5 0062
20EA 0062
20EB 0062
+1BC9E 0062
+1ABE 0062
20DD 0062
20DE 0062
20DF 0062
@@ -39494,6 +44761,11 @@ A67D 0062
20E2 0062
20E3 0062
20E4 0062
+3099 0062
+FF9E 0062
+309A 0062
+FF9F 0062
+0335 0062
0305 0062
0309 0062
030F 0062
@@ -39511,12 +44783,14 @@ A67D 0062
0330 0062
0331 0062
0334 0062
-0335 0062
+0334 1DE8
+1DE8 0334
0339 0062
0345 0062
0358 0062
0360 0062
FE22 0062
+FE29 0062
0361 0062
FE20 0062
0483 0062
@@ -39597,6 +44871,7 @@ FC62 0062
08E6 0062
08F6 0062
0651 0062
+11237 0062
FE7D 0062
FE7C 0062
FC63 0062
@@ -39610,6 +44885,7 @@ FE7E 0062
0656 0062
0657 0062
0658 0062
+08FF 0062
0659 0062
065A 0062
065B 0062
@@ -39655,6 +44931,11 @@ FE7E 0062
135D 0062
A6F0 0062
A6F1 0062
+16AF0 0062
+16AF1 0062
+16AF2 0062
+16AF3 0062
+16AF4 0062
093C 0062
09BC 0062
0A3C 0062
@@ -39666,6 +44947,12 @@ A6F1 0062
1C37 0062
A9B3 0062
110BA 0062
+11173 0062
+11236 0062
+112E9 0062
+1133C 0062
+114C3 0062
+115C0 0062
116B7 0062
0900 0062
0901 0062
@@ -39673,7 +44960,10 @@ A9B3 0062
0A01 0062
0A81 0062
0B01 0062
+0C00 0062
0C01 0062
+0C81 0062
+0D01 0062
1B00 0062
1B01 0062
A980 0062
@@ -39681,6 +44971,10 @@ A980 0062
11080 0062
11100 0062
11180 0062
+11301 0062
+114BF 0062
+115BC 0062
+11640 0062
0902 0062
0982 0062
0A02 0062
@@ -39706,6 +45000,12 @@ A981 0062
11081 0062
11101 0062
11181 0062
+11234 0062
+112DF 0062
+11302 0062
+114C0 0062
+115BD 0062
+1163D 0062
116AB 0062
0903 0062
0983 0062
@@ -39730,6 +45030,10 @@ A983 0062
11082 0062
11102 0062
11182 0062
+11303 0062
+114C1 0062
+115BE 0062
+1163E 0062
116AC 0062
0A70 0062
0A71 0062
@@ -39761,7 +45065,6 @@ A92B 0062
A92C 0062
A92D 0062
1037 0062
-108D 0062
17C8 0062
17C9 0062
17CA 0062
@@ -39776,16 +45079,19 @@ A92D 0062
1939 0062
193A 0062
193B 0062
+16B30 0062
+16B31 0062
+16B32 0062
+16B33 0062
+16B34 0062
+16B35 0062
+16B36 0062
302A 0062
302B 0062
302C 0062
302D 0062
302E 0062
302F 0062
-3099 0062
-FF9E 0062
-309A 0062
-FF9F 0062
20D0 0062
20D1 0062
20D2 0062
@@ -39804,6 +45110,7 @@ FF9F 0062
101FD 0062
0062 0021
FF42 0021
+1DE8 0021
1D41B 0021
1D44F 0021
1D483 0021
@@ -39847,6 +45154,7 @@ FF22 0021
1E06 0021
0062 003F
FF42 003F
+1DE8 003F
1D41B 003F
1D44F 003F
1D483 003F
@@ -39892,6 +45200,8 @@ FF22 003F
0062 0041
FF42 0061
FF42 0041
+1DE8 0061
+1DE8 0041
1D41B 0061
1D44F 0061
1D483 0061
@@ -39981,6 +45291,7 @@ FF22 0041
3374 0062
0062 0062
FF42 0062
+1DE8 0062
1D41B 0062
1D44F 0062
1D483 0062
@@ -40057,6 +45368,16 @@ FF22 0062
1D6C 0061
1D6C 0041
1D6C 0062
+A797 0021
+A796 0021
+A797 003F
+A796 003F
+A797 0061
+A797 0041
+A796 0061
+A796 0041
+A797 0062
+A796 0062
1D80 0021
1D80 003F
1D80 0061
@@ -40481,6 +45802,11 @@ A792 0061
A792 0041
A793 0062
A792 0062
+A794 0021
+A794 003F
+A794 0061
+A794 0041
+A794 0062
0188 0021
0187 0021
0188 003F
@@ -40611,14 +45937,14 @@ FF24 0021
1E0A 0021
1E11 0021
1E10 0021
+0111 0021
+0110 0021
1E0D 0021
1E0C 0021
1E13 0021
1E12 0021
1E0F 0021
1E0E 0021
-0111 0021
-0110 0021
00F0 0021
1DD9 0021
00D0 0021
@@ -40674,14 +46000,14 @@ FF24 003F
1E0A 003F
1E11 003F
1E10 003F
+0111 003F
+0110 003F
1E0D 003F
1E0C 003F
1E13 003F
1E12 003F
1E0F 003F
1E0E 003F
-0111 003F
-0110 003F
00F0 003F
1DD9 003F
00D0 003F
@@ -40785,6 +46111,10 @@ FF24 0041
1E11 0041
1E10 0061
1E10 0041
+0111 0061
+0111 0041
+0110 0061
+0110 0041
1E0D 0061
1E0D 0041
1E0C 0061
@@ -40797,10 +46127,6 @@ FF24 0041
1E0F 0041
1E0E 0061
1E0E 0041
-0111 0061
-0111 0041
-0110 0061
-0110 0041
00F0 0061
1DD9 0061
00F0 0041
@@ -40868,14 +46194,14 @@ FF24 0062
1E0A 0062
1E11 0062
1E10 0062
+0111 0062
+0110 0062
1E0D 0062
1E0C 0062
1E13 0062
1E12 0062
1E0F 0062
1E0E 0062
-0111 0062
-0110 0062
00F0 0062
1DD9 0062
00D0 0062
@@ -41670,6 +46996,16 @@ FF25 0062
1D07 0061
1D07 0041
1D07 0062
+AB32 0021
+AB32 003F
+AB32 0061
+AB32 0041
+AB32 0062
+AB33 0021
+AB33 003F
+AB33 0061
+AB33 0041
+AB33 0062
0247 0021
0246 0021
0247 003F
@@ -41685,6 +47021,11 @@ FF25 0062
1D92 0061
1D92 0041
1D92 0062
+AB34 0021
+AB34 003F
+AB34 0061
+AB34 0041
+AB34 0062
2C78 0021
2C78 003F
2C78 0061
@@ -41710,16 +47051,22 @@ FF25 0062
2C7B 0061
2C7B 0041
2C7B 0062
+0334 1DEA
+1DEA 0334
0259 0021
+1DEA 0021
018F 0021
1D4A 0021
2094 0021
0259 003F
+1DEA 003F
018F 003F
1D4A 003F
2094 003F
0259 0061
0259 0041
+1DEA 0061
+1DEA 0041
018F 0061
018F 0041
1D4A 0061
@@ -41727,6 +47074,7 @@ FF25 0062
2094 0061
2094 0041
0259 0062
+1DEA 0062
018F 0062
1D4A 0062
2094 0062
@@ -41771,14 +47119,19 @@ FF25 0062
025A 0041
025A 0062
025C 0021
+A7AB 0021
1D9F 0021
025C 003F
+A7AB 003F
1D9F 003F
025C 0061
025C 0041
+A7AB 0061
+A7AB 0041
1D9F 0061
1D9F 0041
025C 0062
+A7AB 0062
1D9F 0062
1D94 0021
1D94 003F
@@ -41821,8 +47174,11 @@ FF25 0062
0046 0307 0334
0046 0334 0307
1E1E 0334
+0334 1DEB
+1DEB 0334
0066 0021
FF46 0021
+1DEB 0021
1D41F 0021
1D453 0021
1D487 0021
@@ -41863,6 +47219,7 @@ A77C 0021
A77B 0021
0066 003F
FF46 003F
+1DEB 003F
1D41F 003F
1D453 003F
1D487 003F
@@ -41905,6 +47262,8 @@ A77B 003F
0066 0041
FF46 0061
FF46 0041
+1DEB 0061
+1DEB 0041
1D41F 0061
1D453 0061
1D487 0061
@@ -41988,6 +47347,7 @@ A77B 0041
213B 0062
0066 0062
FF46 0062
+1DEB 0062
1D41F 0062
1D453 0062
1D487 0062
@@ -42071,6 +47431,21 @@ A730 003F
A730 0061
A730 0041
A730 0062
+AB35 0021
+AB35 003F
+AB35 0061
+AB35 0041
+AB35 0062
+A799 0021
+A798 0021
+A799 003F
+A798 003F
+A799 0061
+A799 0041
+A798 0061
+A798 0041
+A799 0062
+A798 0062
1D6E 0021
1D6E 003F
1D6E 0061
@@ -42458,15 +47833,25 @@ A77D 0062
33C9 0041
33C9 0062
0261 0021
+A7AC 0021
1DA2 0021
0261 003F
+A7AC 003F
1DA2 003F
0261 0061
0261 0041
+A7AC 0061
+A7AC 0041
1DA2 0061
1DA2 0041
0261 0062
+A7AC 0062
1DA2 0062
+AB36 0021
+AB36 003F
+AB36 0061
+AB36 0041
+AB36 0062
0334 1DDB
1DDB 0334
0262 0021
@@ -42645,15 +48030,15 @@ FF28 0021
1E22 0021
1E29 0021
1E28 0021
+0127 0021
+210F 0021
+0126 0021
+A7F8 0021
1E25 0021
1E24 0021
1E2B 0021
1E2A 0021
1E96 0021
-0127 0021
-210F 0021
-0126 0021
-A7F8 0021
0068 003F
FF48 003F
036A 003F
@@ -42703,15 +48088,15 @@ FF28 003F
1E22 003F
1E29 003F
1E28 003F
+0127 003F
+210F 003F
+0126 003F
+A7F8 003F
1E25 003F
1E24 003F
1E2B 003F
1E2A 003F
1E96 003F
-0127 003F
-210F 003F
-0126 003F
-A7F8 003F
0068 0061
0068 0041
FF48 0061
@@ -42810,6 +48195,14 @@ FF28 0041
1E29 0041
1E28 0061
1E28 0041
+0127 0061
+210F 0061
+0127 0041
+210F 0041
+0126 0061
+0126 0041
+A7F8 0061
+A7F8 0041
1E25 0061
1E25 0041
1E24 0061
@@ -42820,14 +48213,6 @@ FF28 0041
1E2A 0041
1E96 0061
1E96 0041
-0127 0061
-210F 0061
-0127 0041
-210F 0041
-0126 0061
-0126 0041
-A7F8 0061
-A7F8 0041
33CA 0021
33CA 003F
33CA 0061
@@ -42882,15 +48267,15 @@ FF28 0062
1E22 0062
1E29 0062
1E28 0062
+0127 0062
+210F 0062
+0126 0062
+A7F8 0062
1E25 0062
1E24 0062
1E2B 0062
1E2A 0062
1E96 0062
-0127 0062
-210F 0062
-0126 0062
-A7F8 0062
32CC 0021
32CC 003F
32CC 0061
@@ -42931,6 +48316,11 @@ A7F8 0062
01F6 0041
0195 0062
01F6 0062
+A795 0021
+A795 003F
+A795 0061
+A795 0041
+A795 0062
0266 0021
A7AA 0021
02B1 0021
@@ -42968,14 +48358,19 @@ A7AA 0062
2C75 0062
A727 0021
A726 0021
+AB5C 0021
A727 003F
A726 003F
+AB5C 003F
A727 0061
A727 0041
A726 0061
A726 0041
+AB5C 0061
+AB5C 0041
A727 0062
A726 0062
+AB5C 0062
0267 0021
0267 003F
0267 0061
@@ -43034,7 +48429,7 @@ A726 0062
0069 0308 0301 0334
0069 0308 0334 0341
00EF 0301 0334
-1E2F 0334
+00EF 0334 0341
0049 0308 0334 0301
0049 0308 0341 0334
00CF 0334 0301
@@ -43557,6 +48952,11 @@ A7FE 003F
A7FE 0061
A7FE 0041
A7FE 0062
+A7F7 0021
+A7F7 003F
+A7F7 0061
+A7F7 0041
+A7F7 0062
1D09 0021
1D4E 0021
1D09 003F
@@ -44325,10 +49725,15 @@ A744 0041
A745 0062
A744 0062
029E 0021
+A7B0 0021
029E 003F
+A7B0 003F
029E 0061
029E 0041
+A7B0 0061
+A7B0 0041
029E 0062
+A7B0 0062
006C 0301 0334
006C 0334 0301
006C 0341 0334
@@ -44425,6 +49830,8 @@ FF2C 0021
013D 0021
013C 0021
013B 0021
+0142 0021
+0141 0021
1E37 0021
1E36 0021
1E39 0021
@@ -44433,8 +49840,6 @@ FF2C 0021
1E3C 0021
1E3B 0021
1E3A 0021
-0142 0021
-0141 0021
006C 00B7 0021
006C 0387 0021
0140 0021
@@ -44489,6 +49894,8 @@ FF2C 003F
013D 003F
013C 003F
013B 003F
+0142 003F
+0141 003F
1E37 003F
1E36 003F
1E39 003F
@@ -44497,8 +49904,6 @@ FF2C 003F
1E3C 003F
1E3B 003F
1E3A 003F
-0142 003F
-0141 003F
006C 00B7 003F
006C 0387 003F
0140 003F
@@ -44613,6 +50018,10 @@ FF2C 0041
013C 0041
013B 0061
013B 0041
+0142 0061
+0142 0041
+0141 0061
+0141 0041
1E37 0061
1E37 0041
1E36 0061
@@ -44629,10 +50038,6 @@ FF2C 0041
1E3B 0041
1E3A 0061
1E3A 0041
-0142 0061
-0142 0041
-0141 0061
-0141 0041
006C 00B7 0061
006C 0387 0061
0140 0061
@@ -44693,6 +50098,8 @@ FF2C 0062
013D 0062
013C 0062
013B 0062
+0142 0062
+0141 0062
1E37 0062
1E36 0062
1E39 0062
@@ -44701,8 +50108,6 @@ FF2C 0062
1E3C 0062
1E3B 0062
1E3A 0062
-0142 0062
-0141 0062
006C 00B7 0062
006C 0387 0062
0140 0062
@@ -44833,19 +50238,56 @@ A748 0062
2C60 0062
026B 0021
2C62 0021
+AB5E 0021
026B 003F
2C62 003F
+AB5E 003F
026B 0061
026B 0041
2C62 0061
2C62 0041
+AB5E 0061
+AB5E 0041
026B 0062
2C62 0062
+AB5E 0062
+0334 1DEC
+1DEC 0334
+AB38 0021
+1DEC 0021
+AB38 003F
+1DEC 003F
+AB38 0061
+AB38 0041
+1DEC 0061
+1DEC 0041
+AB38 0062
+1DEC 0062
+AB39 0021
+AB39 003F
+AB39 0061
+AB39 0041
+AB39 0062
026C 0021
+A7AD 0021
026C 003F
+A7AD 003F
026C 0061
026C 0041
+A7AD 0061
+A7AD 0041
026C 0062
+A7AD 0062
+AB37 0021
+AB5D 0021
+AB37 003F
+AB5D 003F
+AB37 0061
+AB37 0041
+AB5D 0061
+AB5D 0041
+AB37 0062
+AB5D 0062
1D85 0021
1DAA 0021
1D85 003F
@@ -45325,6 +50767,11 @@ FF2D 0062
0271 0062
2C6E 0062
1DAC 0062
+AB3A 0021
+AB3A 003F
+AB3A 0061
+AB3A 0041
+AB3A 0062
A7FD 0021
A7FD 003F
A7FD 0061
@@ -45842,6 +51289,11 @@ A790 0062
0235 0061
0235 0041
0235 0062
+AB3B 0021
+AB3B 003F
+AB3B 0061
+AB3B 0041
+AB3B 0062
A774 0021
A774 003F
A774 0061
@@ -45862,6 +51314,11 @@ A774 0062
014B 0062
014A 0062
1D51 0062
+AB3C 0021
+AB3C 003F
+AB3C 0061
+AB3C 0041
+AB3C 0062
00F8 0334 0301
00F8 0334 0341
00F8 0341 0334
@@ -46116,6 +51573,10 @@ A774 0062
1ECC 0334 0302
0334 0366
0366 0334
+0334 1DF3
+1DF3 0334
+0334 1DED
+1DED 0334
006F 0021
FF4F 0021
0366 0021
@@ -46175,7 +51636,10 @@ FF2F 0021
01D2 0021
01D1 0021
00F6 0021
+1DF3 0021
+A79D 0021
00D6 0021
+A79C 0021
022B 0021
022A 0021
0151 0021
@@ -46206,6 +51670,7 @@ FF2F 0021
1E52 0021
1E51 0021
1E50 0021
+1DED 0021
1ECF 0021
1ECE 0021
020D 0021
@@ -46287,7 +51752,10 @@ FF2F 003F
01D2 003F
01D1 003F
00F6 003F
+1DF3 003F
+A79D 003F
00D6 003F
+A79C 003F
022B 003F
022A 003F
0151 003F
@@ -46318,6 +51786,7 @@ FF2F 003F
1E52 003F
1E51 003F
1E50 003F
+1DED 003F
1ECF 003F
1ECE 003F
020D 003F
@@ -46458,8 +51927,14 @@ FF2F 0041
01D1 0041
00F6 0061
00F6 0041
+1DF3 0061
+A79D 0061
+1DF3 0041
+A79D 0041
00D6 0061
00D6 0041
+A79C 0061
+A79C 0041
022B 0061
022B 0041
022A 0061
@@ -46520,6 +51995,8 @@ FF2F 0041
1E51 0041
1E50 0061
1E50 0041
+1DED 0061
+1DED 0041
1ECF 0061
1ECF 0041
1ECE 0061
@@ -46623,7 +52100,10 @@ FF2F 0062
01D2 0062
01D1 0062
00F6 0062
+1DF3 0062
+A79D 0062
00D6 0062
+A79C 0062
022B 0062
022A 0062
0151 0062
@@ -46654,6 +52134,7 @@ FF2F 0062
1E52 0062
1E51 0062
1E50 0062
+1DED 0062
1ECF 0062
1ECE 0062
020D 0062
@@ -46721,6 +52202,11 @@ A74E 0062
1D11 0061
1D11 0041
1D11 0062
+AB3D 0021
+AB3D 003F
+AB3D 0061
+AB3D 0041
+AB3D 0062
0276 0021
0276 003F
0276 0061
@@ -46731,11 +52217,41 @@ A74E 0062
1D14 0061
1D14 0041
1D14 0062
+AB41 0021
+AB41 003F
+AB41 0061
+AB41 0041
+AB41 0062
+AB42 0021
+AB42 003F
+AB42 0061
+AB42 0041
+AB42 0062
+AB40 0021
+AB40 003F
+AB40 0061
+AB40 0041
+AB40 0062
+AB43 0021
+AB43 003F
+AB43 0061
+AB43 0041
+AB43 0062
+AB44 0021
+AB44 003F
+AB44 0061
+AB44 0041
+AB44 0062
1D13 0021
1D13 003F
1D13 0061
1D13 0041
1D13 0062
+AB3E 0021
+AB3E 003F
+AB3E 0061
+AB3E 0041
+AB3E 0062
0254 0021
0186 0021
1D53 0021
@@ -46761,6 +52277,11 @@ A74E 0062
1D12 0061
1D12 0041
1D12 0062
+AB3F 0021
+AB3F 003F
+AB3F 0061
+AB3F 0041
+AB3F 0062
1D97 0021
1D97 003F
1D97 0061
@@ -46865,8 +52386,11 @@ A74A 0062
0050 0307 0334
0050 0334 0307
1E56 0334
+0334 1DEE
+1DEE 0334
0070 0021
FF50 0021
+1DEE 0021
1D429 0021
1D45D 0021
1D491 0021
@@ -46910,6 +52434,7 @@ FF30 0021
1E56 0021
0070 003F
FF50 003F
+1DEE 003F
1D429 003F
1D45D 003F
1D491 003F
@@ -46960,6 +52485,8 @@ FF30 003F
0070 0041
FF50 0061
FF50 0041
+1DEE 0061
+1DEE 0041
1D429 0061
1D45D 0061
1D491 0061
@@ -47059,6 +52586,7 @@ FF30 0041
1F18C 0062
0070 0062
FF50 0062
+1DEE 0062
1D429 0062
1D45D 0062
1D491 0062
@@ -47847,6 +53375,11 @@ A7A6 0062
1E5E 0062
A783 0062
A782 0062
+AB45 0021
+AB45 003F
+AB45 0061
+AB45 0041
+AB45 0062
0334 1DE2
1DE2 0334
0280 0021
@@ -47864,6 +53397,11 @@ A782 0062
0280 0062
1DE2 0062
01A6 0062
+AB46 0021
+AB46 003F
+AB46 0061
+AB46 0041
+AB46 0062
0334 1DE3
1DE3 0334
A75B 0021
@@ -47956,6 +53494,11 @@ A75A 0062
2C64 0041
027D 0062
2C64 0062
+AB49 0021
+AB49 003F
+AB49 0061
+AB49 0041
+AB49 0062
027E 0021
027E 003F
027E 0061
@@ -47971,6 +53514,31 @@ A75A 0062
027F 0061
027F 0041
027F 0062
+AB47 0021
+AB47 003F
+AB47 0061
+AB47 0041
+AB47 0062
+AB48 0021
+AB48 003F
+AB48 0061
+AB48 0041
+AB48 0062
+AB4A 0021
+AB4A 003F
+AB4A 0061
+AB4A 0041
+AB4A 0062
+AB4B 0021
+AB4B 003F
+AB4B 0061
+AB4B 0041
+AB4B 0062
+AB4C 0021
+AB4C 003F
+AB4C 0061
+AB4C 0041
+AB4C 0062
0281 0021
02B6 0021
0281 003F
@@ -48501,21 +54069,33 @@ A731 0062
1E9D 0061
1E9D 0041
1E9D 0062
+0334 1DEF
+1DEF 0334
0283 0021
+1DEF 0021
01A9 0021
1DB4 0021
0283 003F
+1DEF 003F
01A9 003F
1DB4 003F
0283 0061
0283 0041
+1DEF 0061
+1DEF 0041
01A9 0061
01A9 0041
1DB4 0061
1DB4 0041
0283 0062
+1DEF 0062
01A9 0062
1DB4 0062
+AB4D 0021
+AB4D 003F
+AB4D 0061
+AB4D 0041
+AB4D 0062
1D8B 0021
1D8B 003F
1D8B 0061
@@ -48989,10 +54569,15 @@ A777 0061
A777 0041
A777 0062
0287 0021
+A7B1 0021
0287 003F
+A7B1 003F
0287 0061
0287 0041
+A7B1 0061
+A7B1 0041
0287 0062
+A7B1 0062
0075 0301 0334
0075 0334 0301
0075 0334 0341
@@ -49043,10 +54628,10 @@ A777 0062
0075 0334 0344
0075 0344 0334
01D8 0334
-0055 0308 0341 0334
+0055 0308 0301 0334
0055 0334 0308 0301
-0055 0334 0308 0341
00DC 0301 0334
+00DC 0334 0301
0075 0308 0340 0334
0075 0334 0308 0340
00FC 0300 0334
@@ -49201,6 +54786,10 @@ A777 0062
1E74 0334
0334 0367
0367 0334
+0334 1DF4
+1DF4 0334
+0334 1DF0
+1DF0 0334
0075 0021
FF55 0021
0367 0021
@@ -49253,7 +54842,10 @@ FF35 0021
016F 0021
016E 0021
00FC 0021
+1DF4 0021
+A79F 0021
00DC 0021
+A79E 0021
01D8 0021
01D7 0021
01DC 0021
@@ -49274,6 +54866,7 @@ FF35 0021
016A 0021
1E7B 0021
1E7A 0021
+1DF0 0021
1EE7 0021
1EE6 0021
0215 0021
@@ -49352,7 +54945,10 @@ FF35 003F
016F 003F
016E 003F
00FC 003F
+1DF4 003F
+A79F 003F
00DC 003F
+A79E 003F
01D8 003F
01D7 003F
01DC 003F
@@ -49373,6 +54969,7 @@ FF35 003F
016A 003F
1E7B 003F
1E7A 003F
+1DF0 003F
1EE7 003F
1EE6 003F
0215 003F
@@ -49503,8 +55100,14 @@ FF35 0041
016E 0041
00FC 0061
00FC 0041
+1DF4 0061
+A79F 0061
+1DF4 0041
+A79F 0041
00DC 0061
00DC 0041
+A79E 0061
+A79E 0041
01D8 0061
01D8 0041
01D7 0061
@@ -49545,6 +55148,8 @@ FF35 0041
1E7B 0041
1E7A 0061
1E7A 0041
+1DF0 0061
+1DF0 0041
1EE7 0061
1EE7 0041
1EE6 0061
@@ -49649,7 +55254,10 @@ FF35 0062
016F 0062
016E 0062
00FC 0062
+1DF4 0062
+A79F 0062
00DC 0062
+A79E 0062
01D8 0062
01D7 0062
01DC 0062
@@ -49670,6 +55278,7 @@ FF35 0062
016A 0062
1E7B 0062
1E7A 0062
+1DF0 0062
1EE7 0062
1EE6 0062
0215 0062
@@ -49711,6 +55320,11 @@ FF35 0062
1DB8 0041
1D1C 0062
1DB8 0062
+AB4E 0021
+AB4E 003F
+AB4E 0061
+AB4E 0041
+AB4E 0062
1D1D 0021
1D59 0021
1D1D 003F
@@ -49731,6 +55345,16 @@ FF35 0062
1D6B 0061
1D6B 0041
1D6B 0062
+AB50 0021
+AB50 003F
+AB50 0061
+AB50 0041
+AB50 0062
+AB51 0021
+AB51 003F
+AB51 0061
+AB51 0041
+AB51 0062
0289 0021
0244 0021
1DB6 0021
@@ -49746,6 +55370,11 @@ FF35 0062
0289 0062
0244 0062
1DB6 0062
+AB4F 0021
+AB4F 003F
+AB4F 0061
+AB4F 0041
+AB4F 0062
1D7E 0021
1D7E 003F
1D7E 0061
@@ -49756,6 +55385,16 @@ FF35 0062
1D99 0061
1D99 0041
1D99 0062
+AB52 0021
+AB5F 0021
+AB52 003F
+AB5F 003F
+AB52 0061
+AB52 0041
+AB5F 0061
+AB5F 0041
+AB52 0062
+AB5F 0062
0265 0021
A78D 0021
1DA3 0021
@@ -50238,8 +55877,11 @@ A75E 0062
0057 0323 0334
0057 0334 0323
1E88 0334
+0334 1DF1
+1DF1 0334
0077 0021
FF57 0021
+1DF1 0021
1D430 0021
1D464 0021
1D498 0021
@@ -50290,6 +55932,7 @@ FF37 0021
1E88 0021
0077 003F
FF57 003F
+1DF1 003F
1D430 003F
1D464 003F
1D498 003F
@@ -50342,6 +55985,8 @@ FF37 003F
0077 0041
FF57 0061
FF57 0041
+1DF1 0061
+1DF1 0041
1D430 0061
1D464 0061
1D498 0061
@@ -50440,6 +56085,7 @@ FF37 0041
1E88 0041
0077 0062
FF57 0062
+1DF1 0062
1D430 0062
1D464 0062
1D498 0062
@@ -50787,6 +56433,41 @@ FF38 0062
1D8D 0061
1D8D 0041
1D8D 0062
+AB56 0021
+AB56 003F
+AB56 0061
+AB56 0041
+AB56 0062
+AB57 0021
+AB57 003F
+AB57 0061
+AB57 0041
+AB57 0062
+AB58 0021
+AB58 003F
+AB58 0061
+AB58 0041
+AB58 0062
+AB59 0021
+AB59 003F
+AB59 0061
+AB59 0041
+AB59 0062
+AB53 0021
+AB53 003F
+AB53 0061
+AB53 0041
+AB53 0062
+AB54 0021
+AB54 003F
+AB54 0061
+AB54 0041
+AB54 0062
+AB55 0021
+AB55 003F
+AB55 0061
+AB55 0041
+AB55 0062
0079 0301 0334
0079 0334 0301
0079 0334 0341
@@ -51158,6 +56839,11 @@ FF39 0062
1EFE 0041
1EFF 0062
1EFE 0062
+AB5A 0021
+AB5A 003F
+AB5A 0061
+AB5A 0041
+AB5A 0062
021D 0021
021C 0021
021D 003F
@@ -51958,10 +57644,10 @@ A724 0062
0391 0334 0313 0340
1F08 0300 0334
1F0A 0334
-03B1 0313 0300 0334 0345
03B1 0343 0300 0345 0334
03B1 0343 0345 0334 0340
03B1 0345 0313 0300 0334
+1F00 0345 0340 0334
0391 0343 0334 0345 0340
0391 0345 0313 0334 0340
1F08 0300 0345 0334
@@ -52021,13 +57707,13 @@ A724 0062
1F09 0300 0334
1F09 0340 0334
03B1 0314 0334 0300 0345
-03B1 0334 0314 0345 0300
-03B1 0345 0314 0300 0334
-03B1 0345 0334 0314 0340
+03B1 0314 0345 0340 0334
+1F81 0340 0334
+1F83 0334
0391 0334 0345 0314 0300
1F09 0334 0345 0300
-1F09 0345 0300 0334
1F0B 0345 0334
+1FBC 0314 0300 0334
03B1 0314 0334 0342
03B1 0314 0342 0334
03B1 0334 0314 0342
@@ -52401,8 +58087,11 @@ A724 0062
1FB9 0062
1FB3 0062
1FBC 0062
+0334 1DE9
+1DE9 0334
03B2 0021
03D0 0021
+1DE9 0021
1D6C3 0021
1D6FD 0021
1D737 0021
@@ -52418,6 +58107,7 @@ A724 0062
1D66 0021
03B2 003F
03D0 003F
+1DE9 003F
1D6C3 003F
1D6FD 003F
1D737 003F
@@ -52434,7 +58124,9 @@ A724 0062
03B2 0061
03B2 0041
03D0 0061
+1DE9 0061
03D0 0041
+1DE9 0041
1D6C3 0061
1D6FD 0061
1D737 0061
@@ -52463,6 +58155,7 @@ A724 0062
1D66 0041
03B2 0062
03D0 0062
+1DE9 0062
1D6C3 0062
1D6FD 0062
1D737 0062
@@ -52987,9 +58680,9 @@ A724 0062
0397 0334 0343
1F28 0334
03B7 0334 0313 0341
-03B7 0334 0343 0301
03B7 0334 0343 0341
-1F20 0334 0341
+03B7 0343 0341 0334
+1F20 0341 0334
0397 0313 0334 0301
0397 0313 0341 0334
0397 0334 0313 0301
@@ -53012,8 +58705,8 @@ A724 0062
0397 0343 0300 0334
03B7 0313 0345 0334 0300
03B7 0313 0345 0340 0334
-03B7 0343 0340 0334 0345
03B7 0343 0345 0340 0334
+1FC3 0334 0313 0300
0397 0313 0334 0300 0345
0397 0343 0334 0345 0340
0397 0343 0340 0345 0334
@@ -53057,9 +58750,9 @@ A724 0062
1F29 0334 0301
1F2D 0334
03B7 0314 0301 0345 0334
+03B7 0314 0334 0345 0301
03B7 0314 0334 0345 0341
-1F21 0334 0341 0345
-1F21 0345 0301 0334
+03B7 0314 0345 0334 0301
0397 0314 0334 0345 0341
0397 0334 0314 0345 0301
1F29 0334 0301 0345
@@ -53898,10 +59591,15 @@ A724 0062
1FD1 0062
1FD9 0062
03F3 0021
+037F 0021
03F3 003F
+037F 003F
03F3 0061
03F3 0041
+037F 0061
+037F 0041
03F3 0062
+037F 0062
03BA 0021
03F0 0021
1D6CB 0021
@@ -54967,7 +60665,7 @@ A724 0062
03C5 0334 0343 0341
1F50 0334 0301
1F50 0334 0341
-03C5 0334 0313 0340
+03C5 0313 0340 0334
03C5 0334 0343 0340
1F50 0334 0340
1F52 0334
@@ -55043,9 +60741,9 @@ A724 0062
03D2 0308 0334
03D2 0334 0308
03D4 0334
+03B0 0334
03C5 0308 0341 0334
03C5 0344 0334
-03CB 0334 0341
03CB 0341 0334
03C5 0308 0300 0334
03C5 0308 0340 0334
@@ -55596,8 +61294,8 @@ A724 0062
2126 0334 0314 0301
2126 0334 0314 0341
03C9 0314 0334 0345 0301
-1F61 0334 0301 0345
-1F61 0341 0345 0334
+03C9 0345 0314 0334 0301
+1F61 0301 0345 0334
1F65 0345 0334
03A9 0314 0301 0345 0334
03A9 0345 0334 0314 0301
@@ -55612,9 +61310,9 @@ A724 0062
2126 0314 0334 0340
2126 0334 0314 0340
03C9 0314 0334 0345 0300
-03C9 0314 0340 0334 0345
03C9 0314 0345 0300 0334
-03C9 0334 0314 0340 0345
+03C9 0345 0314 0300 0334
+03C9 0345 0314 0334 0300
03A9 0314 0300 0345 0334
03A9 0345 0334 0314 0300
1F6B 0345 0334
@@ -55966,6 +61664,11 @@ A724 0062
1FF7 0062
1FF3 0062
1FFC 0062
+AB65 0021
+AB65 003F
+AB65 0061
+AB65 0041
+AB65 0062
03E1 0021
03E0 0021
03E1 003F
@@ -56601,128 +62304,80 @@ A724 0062
2CE2 0041
2CE3 0062
2CE2 0062
+0430 0306 0334
+0430 0334 0306
+04D1 0334
+0410 0306 0334
+0410 0334 0306
+04D0 0334
+0430 0308 0334
+0430 0334 0308
+04D3 0334
+0410 0308 0334
+0410 0334 0308
+04D2 0334
0334 2DF6
2DF6 0334
0430 0021
2DF6 0021
0410 0021
+04D1 0021
+04D0 0021
+04D3 0021
+04D2 0021
0430 003F
2DF6 003F
0410 003F
+04D1 003F
+04D0 003F
+04D3 003F
+04D2 003F
0430 0061
0430 0041
2DF6 0061
2DF6 0041
0410 0061
0410 0041
-0430 0001 0306 0061
-0410 0001 0306 0061
-0430 0001 0308 0061
-0410 0001 0308 0061
-0430 0062
-2DF6 0062
-0410 0062
-0430 0306 0334
-0430 0334 0306
-04D1 0334
-0410 0306 0334
-0410 0334 0306
-04D0 0334
-0430 0306 0021
-04D1 0021
-0410 0306 0021
-04D0 0021
-0430 0306 003F
-04D1 003F
-0410 0306 003F
-04D0 003F
-0430 0306 0061
04D1 0061
-0430 0591 0306 0061
-0430 1D165 0306 0061
-0430 0306 0041
04D1 0041
-0410 0306 0061
04D0 0061
-0410 0591 0306 0061
-0410 1D165 0306 0061
-0410 0306 0041
04D0 0041
-0430 0306 0062
-04D1 0062
-0410 0306 0062
-04D0 0062
-0430 0308 0334
-0430 0334 0308
-04D3 0334
-0410 0308 0334
-0410 0334 0308
-04D2 0334
-0430 0308 0021
-04D3 0021
-0410 0308 0021
-04D2 0021
-0430 0308 003F
-04D3 003F
-0410 0308 003F
-04D2 003F
-0430 0308 0061
04D3 0061
-0430 0591 0308 0061
-0430 1D165 0308 0061
-0430 0308 0041
04D3 0041
-0410 0308 0061
04D2 0061
-0410 0591 0308 0061
-0410 1D165 0308 0061
-0410 0308 0041
04D2 0041
-0430 0308 0062
+0430 0062
+2DF6 0062
+0410 0062
+04D1 0062
+04D0 0062
04D3 0062
-0410 0308 0062
04D2 0062
-04D9 0021
-04D8 0021
-04D9 003F
-04D8 003F
-04D9 0061
-04D9 0041
-04D8 0061
-04D8 0041
-04D9 0001 0308 0061
-04D8 0001 0308 0061
-04D9 0062
-04D8 0062
04D9 0308 0334
04D9 0334 0308
04DB 0334
04D8 0308 0334
04D8 0334 0308
04DA 0334
-04D9 0308 0021
+04D9 0021
+04D8 0021
04DB 0021
-04D8 0308 0021
04DA 0021
-04D9 0308 003F
+04D9 003F
+04D8 003F
04DB 003F
-04D8 0308 003F
04DA 003F
-04D9 0308 0061
+04D9 0061
+04D9 0041
+04D8 0061
+04D8 0041
04DB 0061
-04D9 0591 0308 0061
-04D9 1D165 0308 0061
-04D9 0308 0041
04DB 0041
-04D8 0308 0061
04DA 0061
-04D8 0591 0308 0061
-04D8 1D165 0308 0061
-04D8 0308 0041
04DA 0041
-04D9 0308 0062
+04D9 0062
+04D8 0062
04DB 0062
-04D8 0308 0062
04DA 0062
04D5 0021
04D4 0021
@@ -56768,16 +62423,28 @@ A724 0062
0432 0062
2DE1 0062
0412 0062
+0433 0301 0334
+0433 0334 0301
+0433 0334 0341
+0433 0341 0334
+0403 0334
+0413 0334 0301
+0413 0334 0341
+0413 0341 0334
0334 2DE2
2DE2 0334
0433 0021
2DE2 0021
0413 0021
+0453 0021
+0403 0021
0491 0021
0490 0021
0433 003F
2DE2 003F
0413 003F
+0453 003F
+0403 003F
0491 003F
0490 003F
0433 0061
@@ -56786,10 +62453,10 @@ A724 0062
2DE2 0041
0413 0061
0413 0041
-0433 0001 0301 0061
-0433 0001 0341 0061
-0413 0001 0301 0061
-0413 0001 0341 0061
+0453 0061
+0453 0041
+0403 0061
+0403 0041
0491 0061
0491 0041
0490 0061
@@ -56797,6 +62464,8 @@ A724 0062
0433 0062
2DE2 0062
0413 0062
+0453 0062
+0403 0062
0491 0062
0490 0062
0493 0021
@@ -56906,52 +62575,6 @@ A662 0062
0502 0041
0503 0062
0502 0062
-0433 0301 0334
-0433 0334 0301
-0433 0334 0341
-0433 0341 0334
-0403 0334
-0413 0334 0301
-0413 0334 0341
-0413 0341 0334
-0433 0301 0021
-0433 0341 0021
-0453 0021
-0403 0021
-0413 0301 0021
-0413 0341 0021
-0433 0301 003F
-0433 0341 003F
-0453 003F
-0403 003F
-0413 0301 003F
-0413 0341 003F
-0433 0301 0061
-0433 0341 0061
-0453 0061
-0433 0591 0301 0061
-0433 0591 0341 0061
-0433 1D165 0301 0061
-0433 1D165 0341 0061
-0433 0301 0041
-0433 0341 0041
-0453 0041
-0403 0061
-0413 0301 0061
-0413 0341 0061
-0413 0591 0301 0061
-0413 0591 0341 0061
-0413 1D165 0301 0061
-0413 1D165 0341 0061
-0403 0041
-0413 0301 0041
-0413 0341 0041
-0433 0301 0062
-0433 0341 0062
-0453 0062
-0403 0062
-0413 0301 0062
-0413 0341 0062
0499 0021
0498 0021
0499 003F
@@ -56970,6 +62593,12 @@ A662 0062
0415 0334 0300
0415 0334 0340
0415 0340 0334
+0435 0306 0334
+0435 0334 0306
+04D7 0334
+0415 0306 0334
+0415 0334 0306
+04D6 0334
0435 0308 0334
0435 0334 0308
0451 0334
@@ -56983,6 +62612,8 @@ A662 0062
0415 0021
0450 0021
0400 0021
+04D7 0021
+04D6 0021
0451 0021
0401 0021
0435 003F
@@ -56990,6 +62621,8 @@ A662 0062
0415 003F
0450 003F
0400 003F
+04D7 003F
+04D6 003F
0451 003F
0401 003F
0435 0061
@@ -57002,8 +62635,10 @@ A662 0062
0450 0041
0400 0061
0400 0041
-0435 0001 0306 0061
-0415 0001 0306 0061
+04D7 0061
+04D7 0041
+04D6 0061
+04D6 0041
0451 0061
0451 0041
0401 0061
@@ -57013,38 +62648,10 @@ A662 0062
0415 0062
0450 0062
0400 0062
-0451 0062
-0401 0062
-0435 0306 0334
-0435 0334 0306
-04D7 0334
-0415 0306 0334
-0415 0334 0306
-04D6 0334
-0435 0306 0021
-04D7 0021
-0415 0306 0021
-04D6 0021
-0435 0306 003F
-04D7 003F
-0415 0306 003F
-04D6 003F
-0435 0306 0061
-04D7 0061
-0435 0591 0306 0061
-0435 1D165 0306 0061
-0435 0306 0041
-04D7 0041
-0415 0306 0061
-04D6 0061
-0415 0591 0306 0061
-0415 1D165 0306 0061
-0415 0306 0041
-04D6 0041
-0435 0306 0062
04D7 0062
-0415 0306 0062
04D6 0062
+0451 0062
+0401 0062
0334 A674
A674 0334
0454 0021
@@ -57068,6 +62675,12 @@ A674 0062
0416 0306 0334
0416 0334 0306
04C1 0334
+0436 0308 0334
+0436 0334 0308
+04DD 0334
+0416 0308 0334
+0416 0334 0308
+04DC 0334
0334 2DE4
2DE4 0334
0436 0021
@@ -57075,11 +62688,15 @@ A674 0062
0416 0021
04C2 0021
04C1 0021
+04DD 0021
+04DC 0021
0436 003F
2DE4 003F
0416 003F
04C2 003F
04C1 003F
+04DD 003F
+04DC 003F
0436 0061
0436 0041
2DE4 0061
@@ -57090,13 +62707,27 @@ A674 0062
04C2 0041
04C1 0061
04C1 0041
-0436 0001 0308 0061
-0416 0001 0308 0061
+04DD 0061
+04DD 0041
+04DC 0061
+04DC 0041
0436 0062
2DE4 0062
0416 0062
04C2 0062
04C1 0062
+04DD 0062
+04DC 0062
+052B 0021
+052A 0021
+052B 003F
+052A 003F
+052B 0061
+052B 0041
+052A 0061
+052A 0041
+052B 0062
+052A 0062
A685 0021
A684 0021
A685 003F
@@ -57107,36 +62738,6 @@ A684 0061
A684 0041
A685 0062
A684 0062
-0436 0308 0334
-0436 0334 0308
-04DD 0334
-0416 0308 0334
-0416 0334 0308
-04DC 0334
-0436 0308 0021
-04DD 0021
-0416 0308 0021
-04DC 0021
-0436 0308 003F
-04DD 003F
-0416 0308 003F
-04DC 003F
-0436 0308 0061
-04DD 0061
-0436 0591 0308 0061
-0436 1D165 0308 0061
-0436 0308 0041
-04DD 0041
-0416 0308 0061
-04DC 0061
-0416 0591 0308 0061
-0416 1D165 0308 0061
-0416 0308 0041
-04DC 0041
-0436 0308 0062
-04DD 0062
-0416 0308 0062
-04DC 0062
0497 0021
0496 0021
0497 003F
@@ -57147,25 +62748,39 @@ A684 0062
0496 0041
0497 0062
0496 0062
+0437 0308 0334
+0437 0334 0308
+04DF 0334
+0417 0308 0334
+0417 0334 0308
+04DE 0334
0334 2DE5
2DE5 0334
0437 0021
2DE5 0021
0417 0021
+04DF 0021
+04DE 0021
0437 003F
2DE5 003F
0417 003F
+04DF 003F
+04DE 003F
0437 0061
0437 0041
2DE5 0061
2DE5 0041
0417 0061
0417 0041
-0437 0001 0308 0061
-0417 0001 0308 0061
+04DF 0061
+04DF 0041
+04DE 0061
+04DE 0041
0437 0062
2DE5 0062
0417 0062
+04DF 0062
+04DE 0062
A641 0021
A640 0021
A641 003F
@@ -57196,36 +62811,6 @@ A640 0062
0510 0041
0511 0062
0510 0062
-0437 0308 0334
-0437 0334 0308
-04DF 0334
-0417 0308 0334
-0417 0334 0308
-04DE 0334
-0437 0308 0021
-04DF 0021
-0417 0308 0021
-04DE 0021
-0437 0308 003F
-04DF 003F
-0417 0308 003F
-04DE 003F
-0437 0308 0061
-04DF 0061
-0437 0591 0308 0061
-0437 1D165 0308 0061
-0437 0308 0041
-04DF 0041
-0417 0308 0061
-04DE 0061
-0417 0591 0308 0061
-0417 1D165 0308 0061
-0417 0308 0041
-04DE 0041
-0437 0308 0062
-04DF 0062
-0417 0308 0062
-04DE 0062
A643 0021
A642 0021
A643 003F
@@ -57304,6 +62889,12 @@ A682 0062
0418 0300 0334
0418 0334 0340
0418 0340 0334
+0438 0308 0334
+0438 0334 0308
+04E5 0334
+0418 0308 0334
+0418 0334 0308
+04E4 0334
0438 0304 0334
0438 0334 0304
04E3 0334
@@ -57317,6 +62908,8 @@ A675 0021
0418 0021
045D 0021
040D 0021
+04E5 0021
+04E4 0021
04E3 0021
04E2 0021
0438 003F
@@ -57324,6 +62917,8 @@ A675 003F
0418 003F
045D 003F
040D 003F
+04E5 003F
+04E4 003F
04E3 003F
04E2 003F
0438 0061
@@ -57338,8 +62933,10 @@ A675 0041
040D 0041
0438 0001 0306 0061
0418 0001 0306 0061
-0438 0001 0308 0061
-0418 0001 0308 0061
+04E5 0061
+04E5 0041
+04E4 0061
+04E4 0041
04E3 0061
04E3 0041
04E2 0061
@@ -57349,6 +62946,8 @@ A675 0062
0418 0062
045D 0062
040D 0062
+04E5 0062
+04E4 0062
04E3 0062
04E2 0062
048B 0021
@@ -57361,58 +62960,6 @@ A675 0062
048A 0041
048B 0062
048A 0062
-0438 0308 0334
-0438 0334 0308
-04E5 0334
-0418 0308 0334
-0418 0334 0308
-04E4 0334
-0438 0308 0021
-04E5 0021
-0418 0308 0021
-04E4 0021
-0438 0308 003F
-04E5 003F
-0418 0308 003F
-04E4 003F
-0438 0308 0061
-04E5 0061
-0438 0591 0308 0061
-0438 1D165 0308 0061
-0438 0308 0041
-04E5 0041
-0418 0308 0061
-04E4 0061
-0418 0591 0308 0061
-0418 1D165 0308 0061
-0418 0308 0041
-04E4 0041
-0438 0308 0062
-04E5 0062
-0418 0308 0062
-04E4 0062
-0456 0021
-0406 0021
-0456 003F
-0406 003F
-0456 0061
-0456 0041
-0406 0061
-0406 0041
-0456 0001 0308 0061
-0406 0001 0308 0061
-0456 0062
-0406 0062
-A647 0021
-A646 0021
-A647 003F
-A646 003F
-A647 0061
-A647 0041
-A646 0061
-A646 0041
-A647 0062
-A646 0062
0456 0308 0334
0456 0334 0308
0457 0334
@@ -57421,35 +62968,41 @@ A646 0062
0407 0334
0334 A676
A676 0334
-0456 0308 0021
+0456 0021
+0406 0021
0457 0021
A676 0021
-0406 0308 0021
0407 0021
-0456 0308 003F
+0456 003F
+0406 003F
0457 003F
A676 003F
-0406 0308 003F
0407 003F
-0456 0308 0061
+0456 0061
+0456 0041
+0406 0061
+0406 0041
0457 0061
-0456 0591 0308 0061
-0456 1D165 0308 0061
-0456 0308 0041
0457 0041
A676 0061
A676 0041
-0406 0308 0061
0407 0061
-0406 0591 0308 0061
-0406 1D165 0308 0061
-0406 0308 0041
0407 0041
-0456 0308 0062
+0456 0062
+0406 0062
0457 0062
A676 0062
-0406 0308 0062
0407 0062
+A647 0021
+A646 0021
+A647 003F
+A646 003F
+A647 0061
+A647 0041
+A646 0061
+A646 0041
+A647 0062
+A646 0062
0438 0306 0334
0438 0334 0306
0439 0334
@@ -57507,27 +63060,41 @@ A648 0041
A649 0062
2DF8 0062
A648 0062
+043A 0301 0334
+043A 0334 0301
+043A 0334 0341
+045C 0334
+040C 0334
+041A 0301 0334
+041A 0334 0301
+041A 0341 0334
0334 2DE6
2DE6 0334
043A 0021
2DE6 0021
041A 0021
+045C 0021
+040C 0021
043A 003F
2DE6 003F
041A 003F
+045C 003F
+040C 003F
043A 0061
043A 0041
2DE6 0061
2DE6 0041
041A 0061
041A 0041
-043A 0001 0301 0061
-043A 0001 0341 0061
-041A 0001 0301 0061
-041A 0001 0341 0061
+045C 0061
+045C 0041
+040C 0061
+040C 0041
043A 0062
2DE6 0062
041A 0062
+045C 0062
+040C 0062
049B 0021
049A 0021
049B 003F
@@ -57630,6 +63197,16 @@ A648 0062
04C5 0041
04C6 0062
04C5 0062
+052F 0021
+052E 0021
+052F 003F
+052E 003F
+052F 0061
+052F 0041
+052E 0061
+052E 0041
+052F 0062
+052E 0062
0513 0021
0512 0021
0513 003F
@@ -57749,6 +63326,16 @@ A666 0062
2DE9 0062
041D 0062
1D78 0062
+0529 0021
+0528 0021
+0529 003F
+0528 003F
+0529 0061
+0529 0041
+0528 0061
+0528 0041
+0529 0062
+0528 0062
04CA 0021
04C9 0021
04CA 003F
@@ -57819,6 +63406,12 @@ A666 0062
050A 0041
050B 0062
050A 0062
+043E 0308 0334
+043E 0334 0308
+04E7 0334
+041E 0308 0334
+041E 0334 0308
+04E6 0334
0334 2DEA
2DEA 0334
043E 0021
@@ -57827,20 +63420,32 @@ A669 0021
A66B 0021
A66D 0021
A66E 0021
+A699 0021
+A69B 0021
041E 0021
A668 0021
A66A 0021
A66C 0021
+A698 0021
+A69A 0021
+04E7 0021
+04E6 0021
043E 003F
2DEA 003F
A669 003F
A66B 003F
A66D 003F
A66E 003F
+A699 003F
+A69B 003F
041E 003F
A668 003F
A66A 003F
A66C 003F
+A698 003F
+A69A 003F
+04E7 003F
+04E6 003F
043E 0061
043E 0041
2DEA 0061
@@ -57848,102 +63453,72 @@ A669 0061
A66B 0061
A66D 0061
A66E 0061
+A699 0061
+A69B 0061
2DEA 0041
A669 0041
A66B 0041
A66D 0041
A66E 0041
+A699 0041
+A69B 0041
041E 0061
041E 0041
A668 0061
A66A 0061
A66C 0061
+A698 0061
+A69A 0061
A668 0041
A66A 0041
A66C 0041
-043E 0001 0308 0061
-041E 0001 0308 0061
+A698 0041
+A69A 0041
+04E7 0061
+04E7 0041
+04E6 0061
+04E6 0041
043E 0062
2DEA 0062
A669 0062
A66B 0062
A66D 0062
A66E 0062
+A699 0062
+A69B 0062
041E 0062
A668 0062
A66A 0062
A66C 0062
-043E 0308 0334
-043E 0334 0308
-04E7 0334
-041E 0308 0334
-041E 0334 0308
-04E6 0334
-043E 0308 0021
-04E7 0021
-041E 0308 0021
-04E6 0021
-043E 0308 003F
-04E7 003F
-041E 0308 003F
-04E6 003F
-043E 0308 0061
-04E7 0061
-043E 0591 0308 0061
-043E 1D165 0308 0061
-043E 0308 0041
-04E7 0041
-041E 0308 0061
-04E6 0061
-041E 0591 0308 0061
-041E 1D165 0308 0061
-041E 0308 0041
-04E6 0041
-043E 0308 0062
+A698 0062
+A69A 0062
04E7 0062
-041E 0308 0062
04E6 0062
-04E9 0021
-04E8 0021
-04E9 003F
-04E8 003F
-04E9 0061
-04E9 0041
-04E8 0061
-04E8 0041
-04E9 0001 0308 0061
-04E8 0001 0308 0061
-04E9 0062
-04E8 0062
04E9 0308 0334
04E9 0334 0308
04EB 0334
04E8 0308 0334
04E8 0334 0308
04EA 0334
-04E9 0308 0021
+04E9 0021
+04E8 0021
04EB 0021
-04E8 0308 0021
04EA 0021
-04E9 0308 003F
+04E9 003F
+04E8 003F
04EB 003F
-04E8 0308 003F
04EA 003F
-04E9 0308 0061
+04E9 0061
+04E9 0041
+04E8 0061
+04E8 0041
04EB 0061
-04E9 0591 0308 0061
-04E9 1D165 0308 0061
-04E9 0308 0041
04EB 0041
-04E8 0308 0061
04EA 0061
-04E8 0591 0308 0061
-04E8 1D165 0308 0061
-04E8 0308 0041
04EA 0041
-04E9 0308 0062
+04E9 0062
+04E8 0062
04EB 0062
-04E8 0308 0062
04EA 0062
0334 2DEB
2DEB 0334
@@ -58140,52 +63715,24 @@ A68A 0062
040B 0041
045B 0062
040B 0062
-043A 0301 0334
-043A 0334 0301
-043A 0334 0341
-045C 0334
-040C 0334
-041A 0301 0334
-041A 0334 0301
-041A 0341 0334
-043A 0301 0021
-043A 0341 0021
-045C 0021
-040C 0021
-041A 0301 0021
-041A 0341 0021
-043A 0301 003F
-043A 0341 003F
-045C 003F
-040C 003F
-041A 0301 003F
-041A 0341 003F
-043A 0301 0061
-043A 0341 0061
-045C 0061
-043A 0591 0301 0061
-043A 0591 0341 0061
-043A 1D165 0301 0061
-043A 1D165 0341 0061
-043A 0301 0041
-043A 0341 0041
-045C 0041
-040C 0061
-041A 0301 0061
-041A 0341 0061
-041A 0591 0301 0061
-041A 0591 0341 0061
-041A 1D165 0301 0061
-041A 1D165 0341 0061
-040C 0041
-041A 0301 0041
-041A 0341 0041
-043A 0301 0062
-043A 0341 0062
-045C 0062
-040C 0062
-041A 0301 0062
-041A 0341 0062
+0443 0306 0334
+0443 0334 0306
+045E 0334
+040E 0334
+0423 0306 0334
+0423 0334 0306
+0443 0308 0334
+0443 0334 0308
+04F1 0334
+0423 0308 0334
+0423 0334 0308
+04F0 0334
+0443 030B 0334
+0443 0334 030B
+04F3 0334
+0423 030B 0334
+0423 0334 030B
+04F2 0334
0443 0304 0334
0443 0334 0304
04EF 0334
@@ -58197,11 +63744,23 @@ A677 0334
0443 0021
A677 0021
0423 0021
+045E 0021
+040E 0021
+04F1 0021
+04F0 0021
+04F3 0021
+04F2 0021
04EF 0021
04EE 0021
0443 003F
A677 003F
0423 003F
+045E 003F
+040E 003F
+04F1 003F
+04F0 003F
+04F3 003F
+04F2 003F
04EF 003F
04EE 003F
0443 0061
@@ -58210,111 +63769,33 @@ A677 0061
A677 0041
0423 0061
0423 0041
-0443 0001 0306 0061
-0423 0001 0306 0061
-0443 0001 0308 0061
-0423 0001 0308 0061
-0443 0001 030B 0061
-0423 0001 030B 0061
-04EF 0061
-04EF 0041
-04EE 0061
-04EE 0041
-0443 0062
-A677 0062
-0423 0062
-04EF 0062
-04EE 0062
-0443 0306 0334
-0443 0334 0306
-045E 0334
-040E 0334
-0423 0306 0334
-0423 0334 0306
-0443 0306 0021
-045E 0021
-040E 0021
-0423 0306 0021
-0443 0306 003F
-045E 003F
-040E 003F
-0423 0306 003F
-0443 0306 0061
045E 0061
-0443 0591 0306 0061
-0443 1D165 0306 0061
-0443 0306 0041
045E 0041
040E 0061
-0423 0306 0061
-0423 0591 0306 0061
-0423 1D165 0306 0061
040E 0041
-0423 0306 0041
-0443 0306 0062
-045E 0062
-040E 0062
-0423 0306 0062
-0443 0308 0334
-0443 0334 0308
-04F1 0334
-0423 0308 0334
-0423 0334 0308
-04F0 0334
-0443 0308 0021
-04F1 0021
-0423 0308 0021
-04F0 0021
-0443 0308 003F
-04F1 003F
-0423 0308 003F
-04F0 003F
-0443 0308 0061
04F1 0061
-0443 0591 0308 0061
-0443 1D165 0308 0061
-0443 0308 0041
04F1 0041
-0423 0308 0061
04F0 0061
-0423 0591 0308 0061
-0423 1D165 0308 0061
-0423 0308 0041
04F0 0041
-0443 0308 0062
-04F1 0062
-0423 0308 0062
-04F0 0062
-0443 030B 0334
-0443 0334 030B
-04F3 0334
-0423 030B 0334
-0423 0334 030B
-04F2 0334
-0443 030B 0021
-04F3 0021
-0423 030B 0021
-04F2 0021
-0443 030B 003F
-04F3 003F
-0423 030B 003F
-04F2 003F
-0443 030B 0061
04F3 0061
-0443 0591 030B 0061
-0443 1D165 030B 0061
-0443 030B 0041
04F3 0041
-0423 030B 0061
04F2 0061
-0423 0591 030B 0061
-0423 1D165 030B 0061
-0423 030B 0041
04F2 0041
-0443 030B 0062
+04EF 0061
+04EF 0041
+04EE 0061
+04EE 0041
+0443 0062
+A677 0062
+0423 0062
+045E 0062
+040E 0062
+04F1 0062
+04F0 0062
04F3 0062
-0423 030B 0062
04F2 0062
+04EF 0062
+04EE 0062
04AF 0021
04AE 0021
04AF 003F
@@ -58563,25 +64044,49 @@ A690 0061
A690 0041
A691 0062
A690 0062
+0447 0308 0334
+0447 0334 0308
+04F5 0334
+0427 0308 0334
+0427 0334 0308
+04F4 0334
0334 2DF1
2DF1 0334
0447 0021
2DF1 0021
0427 0021
+04F5 0021
+04F4 0021
0447 003F
2DF1 003F
0427 003F
+04F5 003F
+04F4 003F
0447 0061
0447 0041
2DF1 0061
2DF1 0041
0427 0061
0427 0041
-0447 0001 0308 0061
-0427 0001 0308 0061
+04F5 0061
+04F5 0041
+04F4 0061
+04F4 0041
0447 0062
2DF1 0062
0427 0062
+04F5 0062
+04F4 0062
+052D 0021
+052C 0021
+052D 003F
+052C 003F
+052D 0061
+052D 0041
+052C 0061
+052C 0041
+052D 0062
+052C 0062
A693 0021
A692 0021
A693 003F
@@ -58592,36 +64097,6 @@ A692 0061
A692 0041
A693 0062
A692 0062
-0447 0308 0334
-0447 0334 0308
-04F5 0334
-0427 0308 0334
-0427 0334 0308
-04F4 0334
-0447 0308 0021
-04F5 0021
-0427 0308 0021
-04F4 0021
-0447 0308 003F
-04F5 003F
-0427 0308 003F
-04F4 003F
-0447 0308 0061
-04F5 0061
-0447 0591 0308 0061
-0447 1D165 0308 0061
-0447 0308 0041
-04F5 0041
-0427 0308 0061
-04F4 0061
-0427 0591 0308 0061
-0427 1D165 0308 0061
-0427 0308 0041
-04F4 0041
-0447 0308 0062
-04F5 0062
-0427 0308 0062
-04F4 0062
04B7 0021
04B6 0021
04B7 003F
@@ -58761,18 +64236,23 @@ A678 0334
044A 0021
A678 0021
042A 0021
+A69C 0021
044A 003F
A678 003F
042A 003F
+A69C 003F
044A 0061
044A 0041
A678 0061
A678 0041
042A 0061
042A 0041
+A69C 0061
+A69C 0041
044A 0062
A678 0062
042A 0062
+A69C 0062
A651 0021
A650 0021
A651 003F
@@ -58783,72 +64263,61 @@ A650 0061
A650 0041
A651 0062
A650 0062
+044B 0308 0334
+044B 0334 0308
+04F9 0334
+042B 0308 0334
+042B 0334 0308
+04F8 0334
0334 A679
A679 0334
044B 0021
A679 0021
042B 0021
+04F9 0021
+04F8 0021
044B 003F
A679 003F
042B 003F
+04F9 003F
+04F8 003F
044B 0061
044B 0041
A679 0061
A679 0041
042B 0061
042B 0041
-044B 0001 0308 0061
-042B 0001 0308 0061
-044B 0062
-A679 0062
-042B 0062
-044B 0308 0334
-044B 0334 0308
-04F9 0334
-042B 0308 0334
-042B 0334 0308
-04F8 0334
-044B 0308 0021
-04F9 0021
-042B 0308 0021
-04F8 0021
-044B 0308 003F
-04F9 003F
-042B 0308 003F
-04F8 003F
-044B 0308 0061
04F9 0061
-044B 0591 0308 0061
-044B 1D165 0308 0061
-044B 0308 0041
04F9 0041
-042B 0308 0061
04F8 0061
-042B 0591 0308 0061
-042B 1D165 0308 0061
-042B 0308 0041
04F8 0041
-044B 0308 0062
+044B 0062
+A679 0062
+042B 0062
04F9 0062
-042B 0308 0062
04F8 0062
0334 A67A
A67A 0334
044C 0021
A67A 0021
042C 0021
+A69D 0021
044C 003F
A67A 003F
042C 003F
+A69D 003F
044C 0061
044C 0041
A67A 0061
A67A 0041
042C 0061
042C 0041
+A69D 0061
+A69D 0041
044C 0062
A67A 0062
042C 0062
+A69D 0062
048D 0021
048C 0021
048D 003F
@@ -58886,47 +64355,31 @@ A652 0061
A652 0041
A653 0062
A652 0062
-044D 0021
-042D 0021
-044D 003F
-042D 003F
-044D 0061
-044D 0041
-042D 0061
-042D 0041
-044D 0001 0308 0061
-042D 0001 0308 0061
-044D 0062
-042D 0062
044D 0308 0334
044D 0334 0308
04ED 0334
042D 0308 0334
042D 0334 0308
04EC 0334
-044D 0308 0021
+044D 0021
+042D 0021
04ED 0021
-042D 0308 0021
04EC 0021
-044D 0308 003F
+044D 003F
+042D 003F
04ED 003F
-042D 0308 003F
04EC 003F
-044D 0308 0061
+044D 0061
+044D 0041
+042D 0061
+042D 0041
04ED 0061
-044D 0591 0308 0061
-044D 1D165 0308 0061
-044D 0308 0041
04ED 0041
-042D 0308 0061
04EC 0061
-042D 0591 0308 0061
-042D 1D165 0308 0061
-042D 0308 0041
04EC 0041
-044D 0308 0062
+044D 0062
+042D 0062
04ED 0062
-042D 0308 0062
04EC 0062
0334 2DFB
2DFB 0334
@@ -59137,47 +64590,31 @@ A65C 0062
0473 0062
2DF4 0062
0472 0062
-0475 0021
-0474 0021
-0475 003F
-0474 003F
-0475 0061
-0475 0041
-0474 0061
-0474 0041
-0475 0001 030F 0061
-0474 0001 030F 0061
-0475 0062
-0474 0062
0475 030F 0334
0475 0334 030F
0477 0334
0474 030F 0334
0474 0334 030F
0476 0334
-0475 030F 0021
+0475 0021
+0474 0021
0477 0021
-0474 030F 0021
0476 0021
-0475 030F 003F
+0475 003F
+0474 003F
0477 003F
-0474 030F 003F
0476 003F
-0475 030F 0061
+0475 0061
+0475 0041
+0474 0061
+0474 0041
0477 0061
-0475 0591 030F 0061
-0475 1D165 030F 0061
-0475 030F 0041
0477 0041
-0474 030F 0061
0476 0061
-0474 0591 030F 0061
-0474 1D165 030F 0061
-0474 030F 0041
0476 0041
-0475 030F 0062
+0475 0062
+0474 0062
0477 0062
-0474 030F 0062
0476 0062
A65F 0021
A65E 0021
@@ -59689,6 +65126,231 @@ A65E 0062
2C2E 0041
2C5E 0062
2C2E 0062
+0334 10376
+10376 0334
+10350 0021
+10376 0021
+10350 003F
+10376 003F
+10350 0061
+10350 0041
+10376 0061
+10376 0041
+10350 0062
+10376 0062
+10351 0021
+10351 003F
+10351 0061
+10351 0041
+10351 0062
+10352 0021
+10352 003F
+10352 0061
+10352 0041
+10352 0062
+0334 10377
+10377 0334
+10353 0021
+10377 0021
+10353 003F
+10377 003F
+10353 0061
+10353 0041
+10377 0061
+10377 0041
+10353 0062
+10377 0062
+10354 0021
+10354 003F
+10354 0061
+10354 0041
+10354 0062
+10355 0021
+10355 003F
+10355 0061
+10355 0041
+10355 0062
+10356 0021
+10356 003F
+10356 0061
+10356 0041
+10356 0062
+0334 10378
+10378 0334
+10357 0021
+10378 0021
+10357 003F
+10378 003F
+10357 0061
+10357 0041
+10378 0061
+10378 0041
+10357 0062
+10378 0062
+10358 0021
+10358 003F
+10358 0061
+10358 0041
+10358 0062
+10359 0021
+10359 003F
+10359 0061
+10359 0041
+10359 0062
+1035A 0021
+1035A 003F
+1035A 0061
+1035A 0041
+1035A 0062
+1035B 0021
+1035B 003F
+1035B 0061
+1035B 0041
+1035B 0062
+1035C 0021
+1035C 003F
+1035C 0061
+1035C 0041
+1035C 0062
+0334 10379
+10379 0334
+1035D 0021
+10379 0021
+1035D 003F
+10379 003F
+1035D 0061
+1035D 0041
+10379 0061
+10379 0041
+1035D 0062
+10379 0062
+1035E 0021
+1035E 003F
+1035E 0061
+1035E 0041
+1035E 0062
+1035F 0021
+1035F 003F
+1035F 0061
+1035F 0041
+1035F 0062
+10360 0021
+10360 003F
+10360 0061
+10360 0041
+10360 0062
+0334 1037A
+1037A 0334
+10361 0021
+1037A 0021
+10361 003F
+1037A 003F
+10361 0061
+10361 0041
+1037A 0061
+1037A 0041
+10361 0062
+1037A 0062
+10362 0021
+10362 003F
+10362 0061
+10362 0041
+10362 0062
+10363 0021
+10363 003F
+10363 0061
+10363 0041
+10363 0062
+10364 0021
+10364 003F
+10364 0061
+10364 0041
+10364 0062
+10365 0021
+10365 003F
+10365 0061
+10365 0041
+10365 0062
+10366 0021
+10366 003F
+10366 0061
+10366 0041
+10366 0062
+10367 0021
+10367 003F
+10367 0061
+10367 0041
+10367 0062
+10368 0021
+10368 003F
+10368 0061
+10368 0041
+10368 0062
+10369 0021
+10369 003F
+10369 0061
+10369 0041
+10369 0062
+1036A 0021
+1036A 003F
+1036A 0061
+1036A 0041
+1036A 0062
+1036B 0021
+1036B 003F
+1036B 0061
+1036B 0041
+1036B 0062
+1036C 0021
+1036C 003F
+1036C 0061
+1036C 0041
+1036C 0062
+1036D 0021
+1036D 003F
+1036D 0061
+1036D 0041
+1036D 0062
+1036E 0021
+1036E 003F
+1036E 0061
+1036E 0041
+1036E 0062
+1036F 0021
+1036F 003F
+1036F 0061
+1036F 0041
+1036F 0062
+10370 0021
+10370 003F
+10370 0061
+10370 0041
+10370 0062
+10371 0021
+10371 003F
+10371 0061
+10371 0041
+10371 0062
+10372 0021
+10372 003F
+10372 0061
+10372 0041
+10372 0062
+10373 0021
+10373 003F
+10373 0061
+10373 0041
+10373 0062
+10374 0021
+10374 003F
+10374 0061
+10374 0041
+10374 0062
+10375 0021
+10375 003F
+10375 0061
+10375 0041
+10375 0062
10D0 0021
10D0 003F
10D0 0061
@@ -61864,6 +67526,7 @@ FBF6 0062
08AC 0041
08AC 0062
0627 0021
+08AD 0021
1EE00 0021
1EE80 0021
FE8E 0021
@@ -61871,6 +67534,7 @@ FE8D 0021
FD3C 0021
FD3D 0021
0627 003F
+08AD 003F
1EE00 003F
1EE80 003F
FE8E 003F
@@ -61879,6 +67543,8 @@ FD3C 003F
FD3D 003F
0627 0061
0627 0041
+08AD 0061
+08AD 0041
1EE00 0061
1EE80 0061
1EE00 0041
@@ -61896,6 +67562,7 @@ FD3D 0041
0627 0001 0655 0061
0627 0591 0655 0061
0627 0062
+08AD 0062
1EE00 0062
1EE80 0062
FE8E 0062
@@ -62202,6 +67869,11 @@ FB5A 0062
0756 0061
0756 0041
0756 0062
+08A1 0021
+08A1 003F
+08A1 0061
+08A1 0041
+08A1 0062
0629 0021
FE94 0021
FE93 0021
@@ -63252,6 +68924,11 @@ FB82 0041
068D 0062
FB83 0062
FB82 0062
+08AE 0021
+08AE 003F
+08AE 0061
+08AE 0041
+08AE 0062
068E 0021
FB87 0021
FB86 0021
@@ -63457,6 +69134,11 @@ FB8A 0062
08AA 0061
08AA 0041
08AA 0062
+08B2 0021
+08B2 003F
+08B2 0061
+08B2 0041
+08B2 0062
0633 0021
1EE0E 0021
1EE2E 0021
@@ -64227,6 +69909,11 @@ FD08 0062
069D 0061
069D 0041
069D 0062
+08AF 0021
+08AF 003F
+08AF 0061
+08AF 0041
+08AF 0062
069E 0021
069E 003F
069E 0061
@@ -65307,6 +70994,11 @@ FB94 0062
FB95 0062
FB93 0062
FB92 0062
+08B0 0021
+08B0 003F
+08B0 0061
+08B0 0041
+08B0 0062
06B0 0021
06B0 003F
06B0 0061
@@ -66469,6 +72161,11 @@ FBDE 0041
06CB 0062
FBDF 0062
FBDE 0062
+08B1 0021
+08B1 003F
+08B1 0061
+08B1 0041
+08B1 0062
06CF 0021
06CF 003F
06CF 0061
@@ -70360,6 +76057,11 @@ AB2E 0062
0920 0061
0920 0041
0920 0062
+0978 0021
+0978 003F
+0978 0061
+0978 0041
+0978 0062
0921 0334 093C
0921 093C 0334
095C 0334
@@ -70763,6 +76465,11 @@ A8FB 0062
094D 0061
094D 0041
094D 0062
+0980 0021
+0980 003F
+0980 0061
+0980 0041
+0980 0062
0985 0021
0985 003F
0985 0061
@@ -72733,6 +78440,11 @@ A8FB 0062
0C33 0061
0C33 0041
0C33 0062
+0C34 0021
+0C34 003F
+0C34 0061
+0C34 0041
+0C34 0062
0C3D 0021
0C3D 003F
0C3D 0061
@@ -75260,11 +80972,196 @@ A8C4 0062
110B9 0061
110B9 0041
110B9 0062
+11150 0021
+11150 003F
+11150 0061
+11150 0041
+11150 0062
+11151 0021
+11151 003F
+11151 0061
+11151 0041
+11151 0062
+11152 0021
+11152 003F
+11152 0061
+11152 0041
+11152 0062
+11153 0021
+11153 003F
+11153 0061
+11153 0041
+11153 0062
+11154 0021
+11154 003F
+11154 0061
+11154 0041
+11154 0062
+11155 0021
+11155 003F
+11155 0061
+11155 0041
+11155 0062
+11156 0021
+11156 003F
+11156 0061
+11156 0041
+11156 0062
+11157 0021
+11157 003F
+11157 0061
+11157 0041
+11157 0062
+11158 0021
+11158 003F
+11158 0061
+11158 0041
+11158 0062
+11159 0021
+11159 003F
+11159 0061
+11159 0041
+11159 0062
+1115A 0021
+1115A 003F
+1115A 0061
+1115A 0041
+1115A 0062
+1115B 0021
+1115B 003F
+1115B 0061
+1115B 0041
+1115B 0062
+1115C 0021
+1115C 003F
+1115C 0061
+1115C 0041
+1115C 0062
+1115D 0021
+1115D 003F
+1115D 0061
+1115D 0041
+1115D 0062
+1115E 0021
+1115E 003F
+1115E 0061
+1115E 0041
+1115E 0062
+1115F 0021
+1115F 003F
+1115F 0061
+1115F 0041
+1115F 0062
+11160 0021
+11160 003F
+11160 0061
+11160 0041
+11160 0062
+11161 0021
+11161 003F
+11161 0061
+11161 0041
+11161 0062
+11162 0021
+11162 003F
+11162 0061
+11162 0041
+11162 0062
+11163 0021
+11163 003F
+11163 0061
+11163 0041
+11163 0062
+11164 0021
+11164 003F
+11164 0061
+11164 0041
+11164 0062
+11165 0021
+11165 003F
+11165 0061
+11165 0041
+11165 0062
+11166 0021
+11166 003F
+11166 0061
+11166 0041
+11166 0062
+11167 0021
+11167 003F
+11167 0061
+11167 0041
+11167 0062
+11168 0021
+11168 003F
+11168 0061
+11168 0041
+11168 0062
+11169 0021
+11169 003F
+11169 0061
+11169 0041
+11169 0062
+1116A 0021
+1116A 003F
+1116A 0061
+1116A 0041
+1116A 0062
+1116B 0021
+1116B 003F
+1116B 0061
+1116B 0041
+1116B 0062
+1116C 0021
+1116C 003F
+1116C 0061
+1116C 0041
+1116C 0062
+1116D 0021
+1116D 003F
+1116D 0061
+1116D 0041
+1116D 0062
+1116E 0021
+1116E 003F
+1116E 0061
+1116E 0041
+1116E 0062
+1116F 0021
+1116F 003F
+1116F 0061
+1116F 0041
+1116F 0062
+11176 0021
+11176 003F
+11176 0061
+11176 0041
+11176 0062
+11170 0021
+11170 003F
+11170 0061
+11170 0041
+11170 0062
+11171 0021
+11171 003F
+11171 0061
+11171 0041
+11171 0062
+11172 0021
+11172 003F
+11172 0061
+11172 0041
+11172 0062
111C4 0021
111C4 003F
111C4 0061
111C4 0041
111C4 0062
+111DA 0021
+111DA 003F
+111DA 0061
+111DA 0041
+111DA 0062
11183 0021
11183 003F
11183 0061
@@ -75505,6 +81402,21 @@ A8C4 0062
111B2 0061
111B2 0041
111B2 0062
+111C1 0021
+111C1 003F
+111C1 0061
+111C1 0041
+111C1 0062
+111C2 0021
+111C2 003F
+111C2 0061
+111C2 0041
+111C2 0062
+111C3 0021
+111C3 003F
+111C3 0061
+111C3 0041
+111C3 0062
111B3 0021
111B3 003F
111B3 0061
@@ -75577,21 +81489,1899 @@ A8C4 0062
111C0 0061
111C0 0041
111C0 0062
-111C1 0021
-111C1 003F
-111C1 0061
-111C1 0041
-111C1 0062
-111C2 0021
-111C2 003F
-111C2 0061
-111C2 0041
-111C2 0062
-111C3 0021
-111C3 003F
-111C3 0061
-111C3 0041
-111C3 0062
+11200 0021
+11200 003F
+11200 0061
+11200 0041
+11200 0062
+11201 0021
+11201 003F
+11201 0061
+11201 0041
+11201 0062
+11202 0021
+11202 003F
+11202 0061
+11202 0041
+11202 0062
+11203 0021
+11203 003F
+11203 0061
+11203 0041
+11203 0062
+11204 0021
+11204 003F
+11204 0061
+11204 0041
+11204 0062
+11205 0021
+11205 003F
+11205 0061
+11205 0041
+11205 0062
+11206 0021
+11206 003F
+11206 0061
+11206 0041
+11206 0062
+11207 0021
+11207 003F
+11207 0061
+11207 0041
+11207 0062
+11208 0021
+11208 003F
+11208 0061
+11208 0041
+11208 0062
+11209 0021
+11209 003F
+11209 0061
+11209 0041
+11209 0062
+1120A 0021
+1120A 003F
+1120A 0061
+1120A 0041
+1120A 0062
+1120B 0021
+1120B 003F
+1120B 0061
+1120B 0041
+1120B 0062
+1120C 0021
+1120C 003F
+1120C 0061
+1120C 0041
+1120C 0062
+1120D 0021
+1120D 003F
+1120D 0061
+1120D 0041
+1120D 0062
+1120E 0021
+1120E 003F
+1120E 0061
+1120E 0041
+1120E 0062
+1120F 0021
+1120F 003F
+1120F 0061
+1120F 0041
+1120F 0062
+11210 0021
+11210 003F
+11210 0061
+11210 0041
+11210 0062
+11211 0021
+11211 003F
+11211 0061
+11211 0041
+11211 0062
+11213 0021
+11213 003F
+11213 0061
+11213 0041
+11213 0062
+11214 0021
+11214 003F
+11214 0061
+11214 0041
+11214 0062
+11215 0021
+11215 003F
+11215 0061
+11215 0041
+11215 0062
+11216 0021
+11216 003F
+11216 0061
+11216 0041
+11216 0062
+11217 0021
+11217 003F
+11217 0061
+11217 0041
+11217 0062
+11218 0021
+11218 003F
+11218 0061
+11218 0041
+11218 0062
+11219 0021
+11219 003F
+11219 0061
+11219 0041
+11219 0062
+1121A 0021
+1121A 003F
+1121A 0061
+1121A 0041
+1121A 0062
+1121B 0021
+1121B 003F
+1121B 0061
+1121B 0041
+1121B 0062
+1121C 0021
+1121C 003F
+1121C 0061
+1121C 0041
+1121C 0062
+1121D 0021
+1121D 003F
+1121D 0061
+1121D 0041
+1121D 0062
+1121E 0021
+1121E 003F
+1121E 0061
+1121E 0041
+1121E 0062
+1121F 0021
+1121F 003F
+1121F 0061
+1121F 0041
+1121F 0062
+11220 0021
+11220 003F
+11220 0061
+11220 0041
+11220 0062
+11221 0021
+11221 003F
+11221 0061
+11221 0041
+11221 0062
+11222 0021
+11222 003F
+11222 0061
+11222 0041
+11222 0062
+11223 0021
+11223 003F
+11223 0061
+11223 0041
+11223 0062
+11224 0021
+11224 003F
+11224 0061
+11224 0041
+11224 0062
+11225 0021
+11225 003F
+11225 0061
+11225 0041
+11225 0062
+11226 0021
+11226 003F
+11226 0061
+11226 0041
+11226 0062
+11227 0021
+11227 003F
+11227 0061
+11227 0041
+11227 0062
+11228 0021
+11228 003F
+11228 0061
+11228 0041
+11228 0062
+11229 0021
+11229 003F
+11229 0061
+11229 0041
+11229 0062
+1122A 0021
+1122A 003F
+1122A 0061
+1122A 0041
+1122A 0062
+1122B 0021
+1122B 003F
+1122B 0061
+1122B 0041
+1122B 0062
+1122C 0021
+1122C 003F
+1122C 0061
+1122C 0041
+1122C 0062
+1122D 0021
+1122D 003F
+1122D 0061
+1122D 0041
+1122D 0062
+1122E 0021
+1122E 003F
+1122E 0061
+1122E 0041
+1122E 0062
+1122F 0021
+1122F 003F
+1122F 0061
+1122F 0041
+1122F 0062
+11230 0021
+11230 003F
+11230 0061
+11230 0041
+11230 0062
+11231 0021
+11231 003F
+11231 0061
+11231 0041
+11231 0062
+11232 0021
+11232 003F
+11232 0061
+11232 0041
+11232 0062
+11233 0021
+11233 003F
+11233 0061
+11233 0041
+11233 0062
+0334 11235
+11235 0334
+11235 0021
+11235 003F
+11235 0061
+11235 0041
+11235 0062
+112B0 0021
+112B0 003F
+112B0 0061
+112B0 0041
+112B0 0062
+112B1 0021
+112B1 003F
+112B1 0061
+112B1 0041
+112B1 0062
+112B2 0021
+112B2 003F
+112B2 0061
+112B2 0041
+112B2 0062
+112B3 0021
+112B3 003F
+112B3 0061
+112B3 0041
+112B3 0062
+112B4 0021
+112B4 003F
+112B4 0061
+112B4 0041
+112B4 0062
+112B5 0021
+112B5 003F
+112B5 0061
+112B5 0041
+112B5 0062
+112B6 0021
+112B6 003F
+112B6 0061
+112B6 0041
+112B6 0062
+112B7 0021
+112B7 003F
+112B7 0061
+112B7 0041
+112B7 0062
+112B8 0021
+112B8 003F
+112B8 0061
+112B8 0041
+112B8 0062
+112B9 0021
+112B9 003F
+112B9 0061
+112B9 0041
+112B9 0062
+112BA 0021
+112BA 003F
+112BA 0061
+112BA 0041
+112BA 0062
+112BB 0021
+112BB 003F
+112BB 0061
+112BB 0041
+112BB 0062
+112BC 0021
+112BC 003F
+112BC 0061
+112BC 0041
+112BC 0062
+112BD 0021
+112BD 003F
+112BD 0061
+112BD 0041
+112BD 0062
+112BE 0021
+112BE 003F
+112BE 0061
+112BE 0041
+112BE 0062
+112BF 0021
+112BF 003F
+112BF 0061
+112BF 0041
+112BF 0062
+112C0 0021
+112C0 003F
+112C0 0061
+112C0 0041
+112C0 0062
+112C1 0021
+112C1 003F
+112C1 0061
+112C1 0041
+112C1 0062
+112C2 0021
+112C2 003F
+112C2 0061
+112C2 0041
+112C2 0062
+112C3 0021
+112C3 003F
+112C3 0061
+112C3 0041
+112C3 0062
+112C4 0021
+112C4 003F
+112C4 0061
+112C4 0041
+112C4 0062
+112C5 0021
+112C5 003F
+112C5 0061
+112C5 0041
+112C5 0062
+112C6 0021
+112C6 003F
+112C6 0061
+112C6 0041
+112C6 0062
+112C7 0021
+112C7 003F
+112C7 0061
+112C7 0041
+112C7 0062
+112C8 0021
+112C8 003F
+112C8 0061
+112C8 0041
+112C8 0062
+112C9 0021
+112C9 003F
+112C9 0061
+112C9 0041
+112C9 0062
+112CA 0021
+112CA 003F
+112CA 0061
+112CA 0041
+112CA 0062
+112CB 0021
+112CB 003F
+112CB 0061
+112CB 0041
+112CB 0062
+112CC 0021
+112CC 003F
+112CC 0061
+112CC 0041
+112CC 0062
+112CD 0021
+112CD 003F
+112CD 0061
+112CD 0041
+112CD 0062
+112CE 0021
+112CE 003F
+112CE 0061
+112CE 0041
+112CE 0062
+112CF 0021
+112CF 003F
+112CF 0061
+112CF 0041
+112CF 0062
+112D0 0021
+112D0 003F
+112D0 0061
+112D0 0041
+112D0 0062
+112D1 0021
+112D1 003F
+112D1 0061
+112D1 0041
+112D1 0062
+112D2 0021
+112D2 003F
+112D2 0061
+112D2 0041
+112D2 0062
+112D3 0021
+112D3 003F
+112D3 0061
+112D3 0041
+112D3 0062
+112D4 0021
+112D4 003F
+112D4 0061
+112D4 0041
+112D4 0062
+112D5 0021
+112D5 003F
+112D5 0061
+112D5 0041
+112D5 0062
+112D6 0021
+112D6 003F
+112D6 0061
+112D6 0041
+112D6 0062
+112D7 0021
+112D7 003F
+112D7 0061
+112D7 0041
+112D7 0062
+112D8 0021
+112D8 003F
+112D8 0061
+112D8 0041
+112D8 0062
+112D9 0021
+112D9 003F
+112D9 0061
+112D9 0041
+112D9 0062
+112DA 0021
+112DA 003F
+112DA 0061
+112DA 0041
+112DA 0062
+112DB 0021
+112DB 003F
+112DB 0061
+112DB 0041
+112DB 0062
+112DC 0021
+112DC 003F
+112DC 0061
+112DC 0041
+112DC 0062
+112DD 0021
+112DD 003F
+112DD 0061
+112DD 0041
+112DD 0062
+112DE 0021
+112DE 003F
+112DE 0061
+112DE 0041
+112DE 0062
+112E0 0021
+112E0 003F
+112E0 0061
+112E0 0041
+112E0 0062
+112E1 0021
+112E1 003F
+112E1 0061
+112E1 0041
+112E1 0062
+112E2 0021
+112E2 003F
+112E2 0061
+112E2 0041
+112E2 0062
+112E3 0021
+112E3 003F
+112E3 0061
+112E3 0041
+112E3 0062
+112E4 0021
+112E4 003F
+112E4 0061
+112E4 0041
+112E4 0062
+112E5 0021
+112E5 003F
+112E5 0061
+112E5 0041
+112E5 0062
+112E6 0021
+112E6 003F
+112E6 0061
+112E6 0041
+112E6 0062
+112E7 0021
+112E7 003F
+112E7 0061
+112E7 0041
+112E7 0062
+112E8 0021
+112E8 003F
+112E8 0061
+112E8 0041
+112E8 0062
+0334 112EA
+112EA 0334
+112EA 0021
+112EA 003F
+112EA 0061
+112EA 0041
+112EA 0062
+11305 0021
+11305 003F
+11305 0061
+11305 0041
+11305 0062
+11306 0021
+11306 003F
+11306 0061
+11306 0041
+11306 0062
+11307 0021
+11307 003F
+11307 0061
+11307 0041
+11307 0062
+11308 0021
+11308 003F
+11308 0061
+11308 0041
+11308 0062
+11309 0021
+11309 003F
+11309 0061
+11309 0041
+11309 0062
+1130A 0021
+1130A 003F
+1130A 0061
+1130A 0041
+1130A 0062
+1130B 0021
+1130B 003F
+1130B 0061
+1130B 0041
+1130B 0062
+11360 0021
+11360 003F
+11360 0061
+11360 0041
+11360 0062
+1130C 0021
+1130C 003F
+1130C 0061
+1130C 0041
+1130C 0062
+11361 0021
+11361 003F
+11361 0061
+11361 0041
+11361 0062
+1130F 0021
+1130F 003F
+1130F 0061
+1130F 0041
+1130F 0062
+11310 0021
+11310 003F
+11310 0061
+11310 0041
+11310 0062
+11313 0021
+11313 003F
+11313 0061
+11313 0041
+11313 0062
+11314 0021
+11314 003F
+11314 0061
+11314 0041
+11314 0062
+11315 0021
+11315 003F
+11315 0061
+11315 0041
+11315 0062
+11316 0021
+11316 003F
+11316 0061
+11316 0041
+11316 0062
+11317 0021
+11317 003F
+11317 0061
+11317 0041
+11317 0062
+11318 0021
+11318 003F
+11318 0061
+11318 0041
+11318 0062
+11319 0021
+11319 003F
+11319 0061
+11319 0041
+11319 0062
+1131A 0021
+1131A 003F
+1131A 0061
+1131A 0041
+1131A 0062
+1131B 0021
+1131B 003F
+1131B 0061
+1131B 0041
+1131B 0062
+1131C 0021
+1131C 003F
+1131C 0061
+1131C 0041
+1131C 0062
+1131D 0021
+1131D 003F
+1131D 0061
+1131D 0041
+1131D 0062
+1131E 0021
+1131E 003F
+1131E 0061
+1131E 0041
+1131E 0062
+1131F 0021
+1131F 003F
+1131F 0061
+1131F 0041
+1131F 0062
+11320 0021
+11320 003F
+11320 0061
+11320 0041
+11320 0062
+11321 0021
+11321 003F
+11321 0061
+11321 0041
+11321 0062
+11322 0021
+11322 003F
+11322 0061
+11322 0041
+11322 0062
+11323 0021
+11323 003F
+11323 0061
+11323 0041
+11323 0062
+11324 0021
+11324 003F
+11324 0061
+11324 0041
+11324 0062
+11325 0021
+11325 003F
+11325 0061
+11325 0041
+11325 0062
+11326 0021
+11326 003F
+11326 0061
+11326 0041
+11326 0062
+11327 0021
+11327 003F
+11327 0061
+11327 0041
+11327 0062
+11328 0021
+11328 003F
+11328 0061
+11328 0041
+11328 0062
+1132A 0021
+1132A 003F
+1132A 0061
+1132A 0041
+1132A 0062
+1132B 0021
+1132B 003F
+1132B 0061
+1132B 0041
+1132B 0062
+1132C 0021
+1132C 003F
+1132C 0061
+1132C 0041
+1132C 0062
+1132D 0021
+1132D 003F
+1132D 0061
+1132D 0041
+1132D 0062
+1132E 0021
+1132E 003F
+1132E 0061
+1132E 0041
+1132E 0062
+1132F 0021
+1132F 003F
+1132F 0061
+1132F 0041
+1132F 0062
+11330 0021
+11330 003F
+11330 0061
+11330 0041
+11330 0062
+11332 0021
+11332 003F
+11332 0061
+11332 0041
+11332 0062
+11333 0021
+11333 003F
+11333 0061
+11333 0041
+11333 0062
+11335 0021
+11335 003F
+11335 0061
+11335 0041
+11335 0062
+11336 0021
+11336 003F
+11336 0061
+11336 0041
+11336 0062
+11337 0021
+11337 003F
+11337 0061
+11337 0041
+11337 0062
+11338 0021
+11338 003F
+11338 0061
+11338 0041
+11338 0062
+11339 0021
+11339 003F
+11339 0061
+11339 0041
+11339 0062
+1133D 0021
+1133D 003F
+1133D 0061
+1133D 0041
+1133D 0062
+1135E 0021
+1135E 003F
+1135E 0061
+1135E 0041
+1135E 0062
+1135F 0021
+1135F 003F
+1135F 0061
+1135F 0041
+1135F 0062
+1133E 0021
+1133E 003F
+1133E 0061
+1133E 0041
+1133E 0062
+1133F 0021
+1133F 003F
+1133F 0061
+1133F 0041
+1133F 0062
+11340 0021
+11340 003F
+11340 0061
+11340 0041
+11340 0062
+11341 0021
+11341 003F
+11341 0061
+11341 0041
+11341 0062
+11342 0021
+11342 003F
+11342 0061
+11342 0041
+11342 0062
+11343 0021
+11343 003F
+11343 0061
+11343 0041
+11343 0062
+11344 0021
+11344 003F
+11344 0061
+11344 0041
+11344 0062
+11362 0021
+11362 003F
+11362 0061
+11362 0041
+11362 0062
+11363 0021
+11363 003F
+11363 0061
+11363 0041
+11363 0062
+11347 0021
+11347 003F
+11347 0061
+11347 0041
+11347 0062
+11347 0001 1133E 0061
+11347 0591 1133E 0061
+11347 1D165 1133E 0061
+11347 0001 11357 0061
+11347 0591 11357 0061
+11347 1D165 11357 0061
+11348 0021
+11348 003F
+11348 0061
+11348 0041
+11348 0062
+11347 1133E 0021
+1134B 0021
+11347 1133E 003F
+1134B 003F
+11347 1133E 0061
+1134B 0061
+11347 1133E 0041
+1134B 0041
+11347 1133E 0062
+1134B 0062
+11347 11357 0021
+1134C 0021
+11347 11357 003F
+1134C 003F
+11347 11357 0061
+1134C 0061
+11347 11357 0041
+1134C 0041
+11347 11357 0062
+1134C 0062
+0334 1134D
+1134D 0334
+1134D 0021
+1134D 003F
+1134D 0061
+1134D 0041
+1134D 0062
+11357 0021
+11357 003F
+11357 0061
+11357 0041
+11357 0062
+1135D 0021
+1135D 003F
+1135D 0061
+1135D 0041
+1135D 0062
+114C7 0021
+114C7 003F
+114C7 0061
+114C7 0041
+114C7 0062
+11480 0021
+11480 003F
+11480 0061
+11480 0041
+11480 0062
+11481 0021
+11481 003F
+11481 0061
+11481 0041
+11481 0062
+11482 0021
+11482 003F
+11482 0061
+11482 0041
+11482 0062
+11483 0021
+11483 003F
+11483 0061
+11483 0041
+11483 0062
+11484 0021
+11484 003F
+11484 0061
+11484 0041
+11484 0062
+11485 0021
+11485 003F
+11485 0061
+11485 0041
+11485 0062
+11486 0021
+11486 003F
+11486 0061
+11486 0041
+11486 0062
+11487 0021
+11487 003F
+11487 0061
+11487 0041
+11487 0062
+11488 0021
+11488 003F
+11488 0061
+11488 0041
+11488 0062
+11489 0021
+11489 003F
+11489 0061
+11489 0041
+11489 0062
+1148A 0021
+1148A 003F
+1148A 0061
+1148A 0041
+1148A 0062
+1148B 0021
+1148B 003F
+1148B 0061
+1148B 0041
+1148B 0062
+1148C 0021
+1148C 003F
+1148C 0061
+1148C 0041
+1148C 0062
+1148D 0021
+1148D 003F
+1148D 0061
+1148D 0041
+1148D 0062
+1148E 0021
+1148E 003F
+1148E 0061
+1148E 0041
+1148E 0062
+1148F 0021
+1148F 003F
+1148F 0061
+1148F 0041
+1148F 0062
+11490 0021
+11490 003F
+11490 0061
+11490 0041
+11490 0062
+11491 0021
+11491 003F
+11491 0061
+11491 0041
+11491 0062
+11492 0021
+11492 003F
+11492 0061
+11492 0041
+11492 0062
+11493 0021
+11493 003F
+11493 0061
+11493 0041
+11493 0062
+11494 0021
+11494 003F
+11494 0061
+11494 0041
+11494 0062
+11495 0021
+11495 003F
+11495 0061
+11495 0041
+11495 0062
+11496 0021
+11496 003F
+11496 0061
+11496 0041
+11496 0062
+11497 0021
+11497 003F
+11497 0061
+11497 0041
+11497 0062
+11498 0021
+11498 003F
+11498 0061
+11498 0041
+11498 0062
+11499 0021
+11499 003F
+11499 0061
+11499 0041
+11499 0062
+1149A 0021
+1149A 003F
+1149A 0061
+1149A 0041
+1149A 0062
+1149B 0021
+1149B 003F
+1149B 0061
+1149B 0041
+1149B 0062
+1149C 0021
+1149C 003F
+1149C 0061
+1149C 0041
+1149C 0062
+1149D 0021
+1149D 003F
+1149D 0061
+1149D 0041
+1149D 0062
+1149E 0021
+1149E 003F
+1149E 0061
+1149E 0041
+1149E 0062
+1149F 0021
+1149F 003F
+1149F 0061
+1149F 0041
+1149F 0062
+114A0 0021
+114A0 003F
+114A0 0061
+114A0 0041
+114A0 0062
+114A1 0021
+114A1 003F
+114A1 0061
+114A1 0041
+114A1 0062
+114A2 0021
+114A2 003F
+114A2 0061
+114A2 0041
+114A2 0062
+114A3 0021
+114A3 003F
+114A3 0061
+114A3 0041
+114A3 0062
+114A4 0021
+114A4 003F
+114A4 0061
+114A4 0041
+114A4 0062
+114A5 0021
+114A5 003F
+114A5 0061
+114A5 0041
+114A5 0062
+114A6 0021
+114A6 003F
+114A6 0061
+114A6 0041
+114A6 0062
+114A7 0021
+114A7 003F
+114A7 0061
+114A7 0041
+114A7 0062
+114A8 0021
+114A8 003F
+114A8 0061
+114A8 0041
+114A8 0062
+114A9 0021
+114A9 003F
+114A9 0061
+114A9 0041
+114A9 0062
+114AA 0021
+114AA 003F
+114AA 0061
+114AA 0041
+114AA 0062
+114AB 0021
+114AB 003F
+114AB 0061
+114AB 0041
+114AB 0062
+114AC 0021
+114AC 003F
+114AC 0061
+114AC 0041
+114AC 0062
+114AD 0021
+114AD 003F
+114AD 0061
+114AD 0041
+114AD 0062
+114AE 0021
+114AE 003F
+114AE 0061
+114AE 0041
+114AE 0062
+114AF 0021
+114AF 003F
+114AF 0061
+114AF 0041
+114AF 0062
+114C4 0021
+114C4 003F
+114C4 0061
+114C4 0041
+114C4 0062
+114C5 0021
+114C5 003F
+114C5 0061
+114C5 0041
+114C5 0062
+114B0 0021
+114B0 003F
+114B0 0061
+114B0 0041
+114B0 0062
+114B1 0021
+114B1 003F
+114B1 0061
+114B1 0041
+114B1 0062
+114B2 0021
+114B2 003F
+114B2 0061
+114B2 0041
+114B2 0062
+114B3 0021
+114B3 003F
+114B3 0061
+114B3 0041
+114B3 0062
+114B4 0021
+114B4 003F
+114B4 0061
+114B4 0041
+114B4 0062
+114B5 0021
+114B5 003F
+114B5 0061
+114B5 0041
+114B5 0062
+114B6 0021
+114B6 003F
+114B6 0061
+114B6 0041
+114B6 0062
+114B7 0021
+114B7 003F
+114B7 0061
+114B7 0041
+114B7 0062
+114B8 0021
+114B8 003F
+114B8 0061
+114B8 0041
+114B8 0062
+114B9 0021
+114B9 003F
+114B9 0061
+114B9 0041
+114B9 0062
+114B9 0001 114B0 0061
+114B9 0591 114B0 0061
+114B9 1D165 114B0 0061
+114B9 0001 114BA 0061
+114B9 0591 114BA 0061
+114B9 1D165 114BA 0061
+114B9 0001 114BD 0061
+114B9 0591 114BD 0061
+114B9 1D165 114BD 0061
+114BA 0021
+114BA 003F
+114BA 0061
+114BA 0041
+114BA 0062
+114B9 114BA 0021
+114BB 0021
+114B9 114BA 003F
+114BB 003F
+114B9 114BA 0061
+114BB 0061
+114B9 114BA 0041
+114BB 0041
+114B9 114BA 0062
+114BB 0062
+114B9 114B0 0021
+114BC 0021
+114B9 114B0 003F
+114BC 003F
+114B9 114B0 0061
+114BC 0061
+114B9 114B0 0041
+114BC 0041
+114B9 114B0 0062
+114BC 0062
+114BD 0021
+114BD 003F
+114BD 0061
+114BD 0041
+114BD 0062
+114B9 114BD 0021
+114BE 0021
+114B9 114BD 003F
+114BE 003F
+114B9 114BD 0061
+114BE 0061
+114B9 114BD 0041
+114BE 0041
+114B9 114BD 0062
+114BE 0062
+0334 114C2
+114C2 0334
+114C2 0021
+114C2 003F
+114C2 0061
+114C2 0041
+114C2 0062
+11580 0021
+11580 003F
+11580 0061
+11580 0041
+11580 0062
+11581 0021
+11581 003F
+11581 0061
+11581 0041
+11581 0062
+11582 0021
+11582 003F
+11582 0061
+11582 0041
+11582 0062
+11583 0021
+11583 003F
+11583 0061
+11583 0041
+11583 0062
+11584 0021
+11584 003F
+11584 0061
+11584 0041
+11584 0062
+11585 0021
+11585 003F
+11585 0061
+11585 0041
+11585 0062
+11586 0021
+11586 003F
+11586 0061
+11586 0041
+11586 0062
+11587 0021
+11587 003F
+11587 0061
+11587 0041
+11587 0062
+11588 0021
+11588 003F
+11588 0061
+11588 0041
+11588 0062
+11589 0021
+11589 003F
+11589 0061
+11589 0041
+11589 0062
+1158A 0021
+1158A 003F
+1158A 0061
+1158A 0041
+1158A 0062
+1158B 0021
+1158B 003F
+1158B 0061
+1158B 0041
+1158B 0062
+1158C 0021
+1158C 003F
+1158C 0061
+1158C 0041
+1158C 0062
+1158D 0021
+1158D 003F
+1158D 0061
+1158D 0041
+1158D 0062
+1158E 0021
+1158E 003F
+1158E 0061
+1158E 0041
+1158E 0062
+1158F 0021
+1158F 003F
+1158F 0061
+1158F 0041
+1158F 0062
+11590 0021
+11590 003F
+11590 0061
+11590 0041
+11590 0062
+11591 0021
+11591 003F
+11591 0061
+11591 0041
+11591 0062
+11592 0021
+11592 003F
+11592 0061
+11592 0041
+11592 0062
+11593 0021
+11593 003F
+11593 0061
+11593 0041
+11593 0062
+11594 0021
+11594 003F
+11594 0061
+11594 0041
+11594 0062
+11595 0021
+11595 003F
+11595 0061
+11595 0041
+11595 0062
+11596 0021
+11596 003F
+11596 0061
+11596 0041
+11596 0062
+11597 0021
+11597 003F
+11597 0061
+11597 0041
+11597 0062
+11598 0021
+11598 003F
+11598 0061
+11598 0041
+11598 0062
+11599 0021
+11599 003F
+11599 0061
+11599 0041
+11599 0062
+1159A 0021
+1159A 003F
+1159A 0061
+1159A 0041
+1159A 0062
+1159B 0021
+1159B 003F
+1159B 0061
+1159B 0041
+1159B 0062
+1159C 0021
+1159C 003F
+1159C 0061
+1159C 0041
+1159C 0062
+1159D 0021
+1159D 003F
+1159D 0061
+1159D 0041
+1159D 0062
+1159E 0021
+1159E 003F
+1159E 0061
+1159E 0041
+1159E 0062
+1159F 0021
+1159F 003F
+1159F 0061
+1159F 0041
+1159F 0062
+115A0 0021
+115A0 003F
+115A0 0061
+115A0 0041
+115A0 0062
+115A1 0021
+115A1 003F
+115A1 0061
+115A1 0041
+115A1 0062
+115A2 0021
+115A2 003F
+115A2 0061
+115A2 0041
+115A2 0062
+115A3 0021
+115A3 003F
+115A3 0061
+115A3 0041
+115A3 0062
+115A4 0021
+115A4 003F
+115A4 0061
+115A4 0041
+115A4 0062
+115A5 0021
+115A5 003F
+115A5 0061
+115A5 0041
+115A5 0062
+115A6 0021
+115A6 003F
+115A6 0061
+115A6 0041
+115A6 0062
+115A7 0021
+115A7 003F
+115A7 0061
+115A7 0041
+115A7 0062
+115A8 0021
+115A8 003F
+115A8 0061
+115A8 0041
+115A8 0062
+115A9 0021
+115A9 003F
+115A9 0061
+115A9 0041
+115A9 0062
+115AA 0021
+115AA 003F
+115AA 0061
+115AA 0041
+115AA 0062
+115AB 0021
+115AB 003F
+115AB 0061
+115AB 0041
+115AB 0062
+115AC 0021
+115AC 003F
+115AC 0061
+115AC 0041
+115AC 0062
+115AD 0021
+115AD 003F
+115AD 0061
+115AD 0041
+115AD 0062
+115AE 0021
+115AE 003F
+115AE 0061
+115AE 0041
+115AE 0062
+115AF 0021
+115AF 003F
+115AF 0061
+115AF 0041
+115AF 0062
+115B0 0021
+115B0 003F
+115B0 0061
+115B0 0041
+115B0 0062
+115B1 0021
+115B1 003F
+115B1 0061
+115B1 0041
+115B1 0062
+115B2 0021
+115B2 003F
+115B2 0061
+115B2 0041
+115B2 0062
+115B3 0021
+115B3 003F
+115B3 0061
+115B3 0041
+115B3 0062
+115B4 0021
+115B4 003F
+115B4 0061
+115B4 0041
+115B4 0062
+115B5 0021
+115B5 003F
+115B5 0061
+115B5 0041
+115B5 0062
+115B8 0021
+115B8 003F
+115B8 0061
+115B8 0041
+115B8 0062
+115B8 0001 115AF 0061
+115B8 0591 115AF 0061
+115B8 1D165 115AF 0061
+115B9 0021
+115B9 003F
+115B9 0061
+115B9 0041
+115B9 0062
+115B9 0001 115AF 0061
+115B9 0591 115AF 0061
+115B9 1D165 115AF 0061
+115B8 115AF 0021
+115BA 0021
+115B8 115AF 003F
+115BA 003F
+115B8 115AF 0061
+115BA 0061
+115B8 115AF 0041
+115BA 0041
+115B8 115AF 0062
+115BA 0062
+115B9 115AF 0021
+115BB 0021
+115B9 115AF 003F
+115BB 003F
+115B9 115AF 0061
+115BB 0061
+115B9 115AF 0041
+115BB 0041
+115B9 115AF 0062
+115BB 0062
+0334 115BF
+115BF 0334
+115BF 0021
+115BF 003F
+115BF 0061
+115BF 0041
+115BF 0062
+11600 0021
+11600 003F
+11600 0061
+11600 0041
+11600 0062
+11601 0021
+11601 003F
+11601 0061
+11601 0041
+11601 0062
+11602 0021
+11602 003F
+11602 0061
+11602 0041
+11602 0062
+11603 0021
+11603 003F
+11603 0061
+11603 0041
+11603 0062
+11604 0021
+11604 003F
+11604 0061
+11604 0041
+11604 0062
+11605 0021
+11605 003F
+11605 0061
+11605 0041
+11605 0062
+11606 0021
+11606 003F
+11606 0061
+11606 0041
+11606 0062
+11607 0021
+11607 003F
+11607 0061
+11607 0041
+11607 0062
+11608 0021
+11608 003F
+11608 0061
+11608 0041
+11608 0062
+11609 0021
+11609 003F
+11609 0061
+11609 0041
+11609 0062
+1160A 0021
+1160A 003F
+1160A 0061
+1160A 0041
+1160A 0062
+1160B 0021
+1160B 003F
+1160B 0061
+1160B 0041
+1160B 0062
+1160C 0021
+1160C 003F
+1160C 0061
+1160C 0041
+1160C 0062
+1160D 0021
+1160D 003F
+1160D 0061
+1160D 0041
+1160D 0062
+1160E 0021
+1160E 003F
+1160E 0061
+1160E 0041
+1160E 0062
+1160F 0021
+1160F 003F
+1160F 0061
+1160F 0041
+1160F 0062
+11610 0021
+11610 003F
+11610 0061
+11610 0041
+11610 0062
+11611 0021
+11611 003F
+11611 0061
+11611 0041
+11611 0062
+11612 0021
+11612 003F
+11612 0061
+11612 0041
+11612 0062
+11613 0021
+11613 003F
+11613 0061
+11613 0041
+11613 0062
+11614 0021
+11614 003F
+11614 0061
+11614 0041
+11614 0062
+11615 0021
+11615 003F
+11615 0061
+11615 0041
+11615 0062
+11616 0021
+11616 003F
+11616 0061
+11616 0041
+11616 0062
+11617 0021
+11617 003F
+11617 0061
+11617 0041
+11617 0062
+11618 0021
+11618 003F
+11618 0061
+11618 0041
+11618 0062
+11619 0021
+11619 003F
+11619 0061
+11619 0041
+11619 0062
+1161A 0021
+1161A 003F
+1161A 0061
+1161A 0041
+1161A 0062
+1161B 0021
+1161B 003F
+1161B 0061
+1161B 0041
+1161B 0062
+1161C 0021
+1161C 003F
+1161C 0061
+1161C 0041
+1161C 0062
+1161D 0021
+1161D 003F
+1161D 0061
+1161D 0041
+1161D 0062
+1161E 0021
+1161E 003F
+1161E 0061
+1161E 0041
+1161E 0062
+1161F 0021
+1161F 003F
+1161F 0061
+1161F 0041
+1161F 0062
+11620 0021
+11620 003F
+11620 0061
+11620 0041
+11620 0062
+11621 0021
+11621 003F
+11621 0061
+11621 0041
+11621 0062
+11622 0021
+11622 003F
+11622 0061
+11622 0041
+11622 0062
+11623 0021
+11623 003F
+11623 0061
+11623 0041
+11623 0062
+11624 0021
+11624 003F
+11624 0061
+11624 0041
+11624 0062
+11625 0021
+11625 003F
+11625 0061
+11625 0041
+11625 0062
+11626 0021
+11626 003F
+11626 0061
+11626 0041
+11626 0062
+11627 0021
+11627 003F
+11627 0061
+11627 0041
+11627 0062
+11628 0021
+11628 003F
+11628 0061
+11628 0041
+11628 0062
+11629 0021
+11629 003F
+11629 0061
+11629 0041
+11629 0062
+1162A 0021
+1162A 003F
+1162A 0061
+1162A 0041
+1162A 0062
+1162B 0021
+1162B 003F
+1162B 0061
+1162B 0041
+1162B 0062
+1162C 0021
+1162C 003F
+1162C 0061
+1162C 0041
+1162C 0062
+1162D 0021
+1162D 003F
+1162D 0061
+1162D 0041
+1162D 0062
+1162E 0021
+1162E 003F
+1162E 0061
+1162E 0041
+1162E 0062
+1162F 0021
+1162F 003F
+1162F 0061
+1162F 0041
+1162F 0062
+11630 0021
+11630 003F
+11630 0061
+11630 0041
+11630 0062
+11631 0021
+11631 003F
+11631 0061
+11631 0041
+11631 0062
+11632 0021
+11632 003F
+11632 0061
+11632 0041
+11632 0062
+11633 0021
+11633 003F
+11633 0061
+11633 0041
+11633 0062
+11634 0021
+11634 003F
+11634 0061
+11634 0041
+11634 0062
+11635 0021
+11635 003F
+11635 0061
+11635 0041
+11635 0062
+11636 0021
+11636 003F
+11636 0061
+11636 0041
+11636 0062
+11637 0021
+11637 003F
+11637 0061
+11637 0041
+11637 0062
+11638 0021
+11638 003F
+11638 0061
+11638 0041
+11638 0062
+11639 0021
+11639 003F
+11639 0061
+11639 0041
+11639 0062
+1163A 0021
+1163A 003F
+1163A 0061
+1163A 0041
+1163A 0062
+1163B 0021
+1163B 003F
+1163B 0061
+1163B 0041
+1163B 0062
+1163C 0021
+1163C 003F
+1163C 0061
+1163C 0041
+1163C 0062
+0334 1163F
+1163F 0334
+1163F 0021
+1163F 003F
+1163F 0061
+1163F 0041
+1163F 0062
+11644 0021
+11644 003F
+11644 0061
+11644 0041
+11644 0062
11680 0021
11680 003F
11680 0061
@@ -76460,6 +84250,13 @@ A8C4 0062
11046 0061
11046 0041
11046 0062
+0334 1107F
+1107F 0334
+1107F 0021
+1107F 003F
+1107F 0061
+1107F 0041
+1107F 0062
10A00 0021
10A00 003F
10A00 0061
@@ -84007,6 +91804,11 @@ A873 0062
1908 0061
1908 0041
1908 0062
+191D 0021
+191D 003F
+191D 0061
+191D 0041
+191D 0062
1909 0021
1909 003F
1909 0061
@@ -84022,6 +91824,11 @@ A873 0062
190B 0061
190B 0041
190B 0062
+191E 0021
+191E 003F
+191E 0061
+191E 0041
+191E 0062
190C 0021
190C 003F
190C 0061
@@ -85396,11 +93203,26 @@ AA60 003F
AA60 0061
AA60 0041
AA60 0062
+A9E9 0021
+A9E9 003F
+A9E9 0061
+A9E9 0041
+A9E9 0062
1003 0021
1003 003F
1003 0061
1003 0041
1003 0062
+A9E0 0021
+A9E0 003F
+A9E0 0061
+A9E0 0041
+A9E0 0062
+A9EA 0021
+A9EA 003F
+A9EA 0061
+A9EA 0041
+A9EA 0062
1004 0021
1004 003F
1004 0061
@@ -85431,11 +93253,21 @@ AA61 0062
1006 0061
1006 0041
1006 0062
+A9E1 0021
+A9E1 003F
+A9E1 0061
+A9E1 0041
+A9E1 0062
AA62 0021
AA62 003F
AA62 0061
AA62 0041
AA62 0062
+AA7E 0021
+AA7E 003F
+AA7E 0061
+AA7E 0041
+AA7E 0062
1007 0021
1007 003F
1007 0061
@@ -85446,6 +93278,11 @@ AA63 003F
AA63 0061
AA63 0041
AA63 0062
+A9EB 0021
+A9EB 003F
+A9EB 0061
+A9EB 0041
+A9EB 0062
1079 0021
1079 003F
1079 0061
@@ -85466,16 +93303,31 @@ AA72 0062
105B 0061
105B 0041
105B 0062
+A9E2 0021
+A9E2 003F
+A9E2 0061
+A9E2 0041
+A9E2 0062
AA64 0021
AA64 003F
AA64 0061
AA64 0041
AA64 0062
+A9EC 0021
+A9EC 003F
+A9EC 0061
+A9EC 0041
+A9EC 0062
1061 0021
1061 003F
1061 0061
1061 0041
1061 0062
+AA7F 0021
+AA7F 003F
+AA7F 0061
+AA7F 0041
+AA7F 0062
1009 0021
1009 003F
1009 0061
@@ -85491,6 +93343,11 @@ AA65 003F
AA65 0061
AA65 0041
AA65 0062
+A9E7 0021
+A9E7 003F
+A9E7 0061
+A9E7 0041
+A9E7 0062
100A 0021
100A 003F
100A 0061
@@ -85526,6 +93383,11 @@ AA68 003F
AA68 0061
AA68 0041
AA68 0062
+A9ED 0021
+A9ED 003F
+A9ED 0061
+A9ED 0041
+A9ED 0062
100E 0021
100E 003F
100E 0061
@@ -85536,6 +93398,11 @@ AA69 003F
AA69 0061
AA69 0041
AA69 0062
+A9EE 0021
+A9EE 003F
+A9EE 0061
+A9EE 0041
+A9EE 0062
100F 0021
100F 003F
100F 0061
@@ -85546,6 +93413,16 @@ AA69 0062
106E 0061
106E 0041
106E 0062
+A9E3 0021
+A9E3 003F
+A9E3 0061
+A9E3 0041
+A9E3 0062
+A9EF 0021
+A9EF 003F
+A9EF 0061
+A9EF 0041
+A9EF 0062
1010 0021
1010 003F
1010 0061
@@ -85566,6 +93443,11 @@ AA69 0062
107B 0061
107B 0041
107B 0062
+A9FB 0021
+A9FB 003F
+A9FB 0061
+A9FB 0041
+A9FB 0062
1013 0021
1013 003F
1013 0061
@@ -85576,6 +93458,11 @@ AA6A 003F
AA6A 0061
AA6A 0041
AA6A 0062
+A9FC 0021
+A9FC 003F
+A9FC 0061
+A9FC 0041
+A9FC 0062
1014 0021
1014 003F
1014 0061
@@ -85626,6 +93513,11 @@ AA6F 0062
108E 0061
108E 0041
108E 0062
+A9E8 0021
+A9E8 003F
+A9E8 0061
+A9E8 0041
+A9E8 0062
1017 0021
1017 003F
1017 0061
@@ -85636,11 +93528,26 @@ AA6F 0062
107F 0061
107F 0041
107F 0062
+A9FD 0021
+A9FD 003F
+A9FD 0061
+A9FD 0041
+A9FD 0062
1018 0021
1018 003F
1018 0061
1018 0041
1018 0062
+A9E4 0021
+A9E4 003F
+A9E4 0061
+A9E4 0041
+A9E4 0062
+A9FE 0021
+A9FE 003F
+A9FE 0061
+A9FE 0041
+A9FE 0062
1019 0021
1019 003F
1019 0061
@@ -85776,6 +93683,11 @@ AA71 0062
1020 0061
1020 0041
1020 0062
+A9FA 0021
+A9FA 003F
+A9FA 0061
+A9FA 0041
+A9FA 0062
105C 0021
105C 003F
105C 0061
@@ -86014,6 +93926,11 @@ AA71 0062
1068 0061
1068 0041
1068 0062
+A9E5 0021
+A9E5 003F
+A9E5 0061
+A9E5 0041
+A9E5 0062
1086 0021
1086 003F
1086 0061
@@ -86088,6 +94005,13 @@ AA71 0062
108C 0061
108C 0041
108C 0062
+0334 108D
+108D 0334
+108D 0021
+108D 003F
+108D 0061
+108D 0041
+108D 0062
1089 0021
1089 003F
1089 0061
@@ -86118,6 +94042,16 @@ AA7B 003F
AA7B 0061
AA7B 0041
AA7B 0062
+AA7C 0021
+AA7C 003F
+AA7C 0061
+AA7C 0041
+AA7C 0062
+AA7D 0021
+AA7D 003F
+AA7D 0061
+AA7D 0041
+AA7D 0062
AA74 0021
AA74 003F
AA74 0061
@@ -93786,6 +101720,11 @@ A9C0 0062
16AC 0062
16AD 0062
16AE 0062
+16F4 0021
+16F4 003F
+16F4 0061
+16F4 0041
+16F4 0062
16AF 0021
16AF 003F
16AF 0061
@@ -93826,6 +101765,11 @@ A9C0 0062
16B4 0062
16B5 0062
16B6 0062
+16F1 0021
+16F1 003F
+16F1 0061
+16F1 0041
+16F1 0062
16B7 0021
16B7 003F
16B7 0061
@@ -93886,6 +101830,11 @@ A9C0 0062
16C2 0041
16C1 0062
16C2 0062
+16F5 0021
+16F5 003F
+16F5 0061
+16F5 0041
+16F5 0062
16C3 0021
16C4 0021
16C3 003F
@@ -93961,6 +101910,11 @@ A9C0 0062
16CC 0062
16CD 0062
16CE 0062
+16F2 0021
+16F2 003F
+16F2 0061
+16F2 0041
+16F2 0062
16CF 0021
16D0 0021
16D1 0021
@@ -93996,6 +101950,11 @@ A9C0 0062
16D6 0061
16D6 0041
16D6 0062
+16F6 0021
+16F6 003F
+16F6 0061
+16F6 0041
+16F6 0062
16D7 0021
16D8 0021
16D9 0021
@@ -94046,16 +102005,31 @@ A9C0 0062
16DF 0061
16DF 0041
16DF 0062
+16F3 0021
+16F3 003F
+16F3 0061
+16F3 0041
+16F3 0062
16AA 0021
16AA 003F
16AA 0061
16AA 0041
16AA 0062
+16F7 0021
+16F7 003F
+16F7 0061
+16F7 0041
+16F7 0062
16AB 0021
16AB 003F
16AB 0061
16AB 0041
16AB 0062
+16F8 0021
+16F8 003F
+16F8 0061
+16F8 0041
+16F8 0062
16A3 0021
16A3 003F
16A3 0061
@@ -99156,6 +107130,1141 @@ A6EF 0062
16A38 0061
16A38 0041
16A38 0062
+16AD0 0021
+16AD0 003F
+16AD0 0061
+16AD0 0041
+16AD0 0062
+16AD1 0021
+16AD1 003F
+16AD1 0061
+16AD1 0041
+16AD1 0062
+16AD2 0021
+16AD2 003F
+16AD2 0061
+16AD2 0041
+16AD2 0062
+16AD3 0021
+16AD3 003F
+16AD3 0061
+16AD3 0041
+16AD3 0062
+16AD4 0021
+16AD4 003F
+16AD4 0061
+16AD4 0041
+16AD4 0062
+16AD5 0021
+16AD5 003F
+16AD5 0061
+16AD5 0041
+16AD5 0062
+16AD6 0021
+16AD6 003F
+16AD6 0061
+16AD6 0041
+16AD6 0062
+16AD7 0021
+16AD7 003F
+16AD7 0061
+16AD7 0041
+16AD7 0062
+16AD8 0021
+16AD8 003F
+16AD8 0061
+16AD8 0041
+16AD8 0062
+16AD9 0021
+16AD9 003F
+16AD9 0061
+16AD9 0041
+16AD9 0062
+16ADA 0021
+16ADA 003F
+16ADA 0061
+16ADA 0041
+16ADA 0062
+16ADB 0021
+16ADB 003F
+16ADB 0061
+16ADB 0041
+16ADB 0062
+16ADC 0021
+16ADC 003F
+16ADC 0061
+16ADC 0041
+16ADC 0062
+16ADD 0021
+16ADD 003F
+16ADD 0061
+16ADD 0041
+16ADD 0062
+16ADE 0021
+16ADE 003F
+16ADE 0061
+16ADE 0041
+16ADE 0062
+16ADF 0021
+16ADF 003F
+16ADF 0061
+16ADF 0041
+16ADF 0062
+16AE0 0021
+16AE0 003F
+16AE0 0061
+16AE0 0041
+16AE0 0062
+16AE1 0021
+16AE1 003F
+16AE1 0061
+16AE1 0041
+16AE1 0062
+16AE2 0021
+16AE2 003F
+16AE2 0061
+16AE2 0041
+16AE2 0062
+16AE3 0021
+16AE3 003F
+16AE3 0061
+16AE3 0041
+16AE3 0062
+16AE4 0021
+16AE4 003F
+16AE4 0061
+16AE4 0041
+16AE4 0062
+16AE5 0021
+16AE5 003F
+16AE5 0061
+16AE5 0041
+16AE5 0062
+16AE6 0021
+16AE6 003F
+16AE6 0061
+16AE6 0041
+16AE6 0062
+16AE7 0021
+16AE7 003F
+16AE7 0061
+16AE7 0041
+16AE7 0062
+16AE8 0021
+16AE8 003F
+16AE8 0061
+16AE8 0041
+16AE8 0062
+16AE9 0021
+16AE9 003F
+16AE9 0061
+16AE9 0041
+16AE9 0062
+16AEA 0021
+16AEA 003F
+16AEA 0061
+16AEA 0041
+16AEA 0062
+16AEB 0021
+16AEB 003F
+16AEB 0061
+16AEB 0041
+16AEB 0062
+16AEC 0021
+16AEC 003F
+16AEC 0061
+16AEC 0041
+16AEC 0062
+16AED 0021
+16AED 003F
+16AED 0061
+16AED 0041
+16AED 0062
+1E800 0021
+1E800 003F
+1E800 0061
+1E800 0041
+1E800 0062
+1E801 0021
+1E801 003F
+1E801 0061
+1E801 0041
+1E801 0062
+1E802 0021
+1E802 003F
+1E802 0061
+1E802 0041
+1E802 0062
+1E803 0021
+1E803 003F
+1E803 0061
+1E803 0041
+1E803 0062
+1E804 0021
+1E804 003F
+1E804 0061
+1E804 0041
+1E804 0062
+1E805 0021
+1E805 003F
+1E805 0061
+1E805 0041
+1E805 0062
+1E806 0021
+1E806 003F
+1E806 0061
+1E806 0041
+1E806 0062
+1E807 0021
+1E807 003F
+1E807 0061
+1E807 0041
+1E807 0062
+1E808 0021
+1E808 003F
+1E808 0061
+1E808 0041
+1E808 0062
+1E809 0021
+1E809 003F
+1E809 0061
+1E809 0041
+1E809 0062
+1E80A 0021
+1E80A 003F
+1E80A 0061
+1E80A 0041
+1E80A 0062
+1E80B 0021
+1E80B 003F
+1E80B 0061
+1E80B 0041
+1E80B 0062
+1E80C 0021
+1E80C 003F
+1E80C 0061
+1E80C 0041
+1E80C 0062
+1E80D 0021
+1E80D 003F
+1E80D 0061
+1E80D 0041
+1E80D 0062
+1E80E 0021
+1E80E 003F
+1E80E 0061
+1E80E 0041
+1E80E 0062
+1E80F 0021
+1E80F 003F
+1E80F 0061
+1E80F 0041
+1E80F 0062
+1E810 0021
+1E810 003F
+1E810 0061
+1E810 0041
+1E810 0062
+1E811 0021
+1E811 003F
+1E811 0061
+1E811 0041
+1E811 0062
+1E812 0021
+1E812 003F
+1E812 0061
+1E812 0041
+1E812 0062
+1E813 0021
+1E813 003F
+1E813 0061
+1E813 0041
+1E813 0062
+1E814 0021
+1E814 003F
+1E814 0061
+1E814 0041
+1E814 0062
+1E815 0021
+1E815 003F
+1E815 0061
+1E815 0041
+1E815 0062
+1E816 0021
+1E816 003F
+1E816 0061
+1E816 0041
+1E816 0062
+1E817 0021
+1E817 003F
+1E817 0061
+1E817 0041
+1E817 0062
+1E818 0021
+1E818 003F
+1E818 0061
+1E818 0041
+1E818 0062
+1E819 0021
+1E819 003F
+1E819 0061
+1E819 0041
+1E819 0062
+1E81A 0021
+1E81A 003F
+1E81A 0061
+1E81A 0041
+1E81A 0062
+1E81B 0021
+1E81B 003F
+1E81B 0061
+1E81B 0041
+1E81B 0062
+1E81C 0021
+1E81C 003F
+1E81C 0061
+1E81C 0041
+1E81C 0062
+1E81D 0021
+1E81D 003F
+1E81D 0061
+1E81D 0041
+1E81D 0062
+1E81E 0021
+1E81E 003F
+1E81E 0061
+1E81E 0041
+1E81E 0062
+1E81F 0021
+1E81F 003F
+1E81F 0061
+1E81F 0041
+1E81F 0062
+1E820 0021
+1E820 003F
+1E820 0061
+1E820 0041
+1E820 0062
+1E821 0021
+1E821 003F
+1E821 0061
+1E821 0041
+1E821 0062
+1E822 0021
+1E822 003F
+1E822 0061
+1E822 0041
+1E822 0062
+1E823 0021
+1E823 003F
+1E823 0061
+1E823 0041
+1E823 0062
+1E824 0021
+1E824 003F
+1E824 0061
+1E824 0041
+1E824 0062
+1E825 0021
+1E825 003F
+1E825 0061
+1E825 0041
+1E825 0062
+1E826 0021
+1E826 003F
+1E826 0061
+1E826 0041
+1E826 0062
+1E827 0021
+1E827 003F
+1E827 0061
+1E827 0041
+1E827 0062
+1E828 0021
+1E828 003F
+1E828 0061
+1E828 0041
+1E828 0062
+1E829 0021
+1E829 003F
+1E829 0061
+1E829 0041
+1E829 0062
+1E82A 0021
+1E82A 003F
+1E82A 0061
+1E82A 0041
+1E82A 0062
+1E82B 0021
+1E82B 003F
+1E82B 0061
+1E82B 0041
+1E82B 0062
+1E82C 0021
+1E82C 003F
+1E82C 0061
+1E82C 0041
+1E82C 0062
+1E82D 0021
+1E82D 003F
+1E82D 0061
+1E82D 0041
+1E82D 0062
+1E82E 0021
+1E82E 003F
+1E82E 0061
+1E82E 0041
+1E82E 0062
+1E82F 0021
+1E82F 003F
+1E82F 0061
+1E82F 0041
+1E82F 0062
+1E830 0021
+1E830 003F
+1E830 0061
+1E830 0041
+1E830 0062
+1E831 0021
+1E831 003F
+1E831 0061
+1E831 0041
+1E831 0062
+1E832 0021
+1E832 003F
+1E832 0061
+1E832 0041
+1E832 0062
+1E833 0021
+1E833 003F
+1E833 0061
+1E833 0041
+1E833 0062
+1E834 0021
+1E834 003F
+1E834 0061
+1E834 0041
+1E834 0062
+1E835 0021
+1E835 003F
+1E835 0061
+1E835 0041
+1E835 0062
+1E836 0021
+1E836 003F
+1E836 0061
+1E836 0041
+1E836 0062
+1E837 0021
+1E837 003F
+1E837 0061
+1E837 0041
+1E837 0062
+1E838 0021
+1E838 003F
+1E838 0061
+1E838 0041
+1E838 0062
+1E839 0021
+1E839 003F
+1E839 0061
+1E839 0041
+1E839 0062
+1E83A 0021
+1E83A 003F
+1E83A 0061
+1E83A 0041
+1E83A 0062
+1E83B 0021
+1E83B 003F
+1E83B 0061
+1E83B 0041
+1E83B 0062
+1E83C 0021
+1E83C 003F
+1E83C 0061
+1E83C 0041
+1E83C 0062
+1E83D 0021
+1E83D 003F
+1E83D 0061
+1E83D 0041
+1E83D 0062
+1E83E 0021
+1E83E 003F
+1E83E 0061
+1E83E 0041
+1E83E 0062
+1E83F 0021
+1E83F 003F
+1E83F 0061
+1E83F 0041
+1E83F 0062
+1E840 0021
+1E840 003F
+1E840 0061
+1E840 0041
+1E840 0062
+1E841 0021
+1E841 003F
+1E841 0061
+1E841 0041
+1E841 0062
+1E842 0021
+1E842 003F
+1E842 0061
+1E842 0041
+1E842 0062
+1E843 0021
+1E843 003F
+1E843 0061
+1E843 0041
+1E843 0062
+1E844 0021
+1E844 003F
+1E844 0061
+1E844 0041
+1E844 0062
+1E845 0021
+1E845 003F
+1E845 0061
+1E845 0041
+1E845 0062
+1E846 0021
+1E846 003F
+1E846 0061
+1E846 0041
+1E846 0062
+1E847 0021
+1E847 003F
+1E847 0061
+1E847 0041
+1E847 0062
+1E848 0021
+1E848 003F
+1E848 0061
+1E848 0041
+1E848 0062
+1E849 0021
+1E849 003F
+1E849 0061
+1E849 0041
+1E849 0062
+1E84A 0021
+1E84A 003F
+1E84A 0061
+1E84A 0041
+1E84A 0062
+1E84B 0021
+1E84B 003F
+1E84B 0061
+1E84B 0041
+1E84B 0062
+1E84C 0021
+1E84C 003F
+1E84C 0061
+1E84C 0041
+1E84C 0062
+1E84D 0021
+1E84D 003F
+1E84D 0061
+1E84D 0041
+1E84D 0062
+1E84E 0021
+1E84E 003F
+1E84E 0061
+1E84E 0041
+1E84E 0062
+1E84F 0021
+1E84F 003F
+1E84F 0061
+1E84F 0041
+1E84F 0062
+1E850 0021
+1E850 003F
+1E850 0061
+1E850 0041
+1E850 0062
+1E851 0021
+1E851 003F
+1E851 0061
+1E851 0041
+1E851 0062
+1E852 0021
+1E852 003F
+1E852 0061
+1E852 0041
+1E852 0062
+1E853 0021
+1E853 003F
+1E853 0061
+1E853 0041
+1E853 0062
+1E854 0021
+1E854 003F
+1E854 0061
+1E854 0041
+1E854 0062
+1E855 0021
+1E855 003F
+1E855 0061
+1E855 0041
+1E855 0062
+1E856 0021
+1E856 003F
+1E856 0061
+1E856 0041
+1E856 0062
+1E857 0021
+1E857 003F
+1E857 0061
+1E857 0041
+1E857 0062
+1E858 0021
+1E858 003F
+1E858 0061
+1E858 0041
+1E858 0062
+1E859 0021
+1E859 003F
+1E859 0061
+1E859 0041
+1E859 0062
+1E85A 0021
+1E85A 003F
+1E85A 0061
+1E85A 0041
+1E85A 0062
+1E85B 0021
+1E85B 003F
+1E85B 0061
+1E85B 0041
+1E85B 0062
+1E85C 0021
+1E85C 003F
+1E85C 0061
+1E85C 0041
+1E85C 0062
+1E85D 0021
+1E85D 003F
+1E85D 0061
+1E85D 0041
+1E85D 0062
+1E85E 0021
+1E85E 003F
+1E85E 0061
+1E85E 0041
+1E85E 0062
+1E85F 0021
+1E85F 003F
+1E85F 0061
+1E85F 0041
+1E85F 0062
+1E860 0021
+1E860 003F
+1E860 0061
+1E860 0041
+1E860 0062
+1E861 0021
+1E861 003F
+1E861 0061
+1E861 0041
+1E861 0062
+1E862 0021
+1E862 003F
+1E862 0061
+1E862 0041
+1E862 0062
+1E863 0021
+1E863 003F
+1E863 0061
+1E863 0041
+1E863 0062
+1E864 0021
+1E864 003F
+1E864 0061
+1E864 0041
+1E864 0062
+1E865 0021
+1E865 003F
+1E865 0061
+1E865 0041
+1E865 0062
+1E866 0021
+1E866 003F
+1E866 0061
+1E866 0041
+1E866 0062
+1E867 0021
+1E867 003F
+1E867 0061
+1E867 0041
+1E867 0062
+1E868 0021
+1E868 003F
+1E868 0061
+1E868 0041
+1E868 0062
+1E869 0021
+1E869 003F
+1E869 0061
+1E869 0041
+1E869 0062
+1E86A 0021
+1E86A 003F
+1E86A 0061
+1E86A 0041
+1E86A 0062
+1E86B 0021
+1E86B 003F
+1E86B 0061
+1E86B 0041
+1E86B 0062
+1E86C 0021
+1E86C 003F
+1E86C 0061
+1E86C 0041
+1E86C 0062
+1E86D 0021
+1E86D 003F
+1E86D 0061
+1E86D 0041
+1E86D 0062
+1E86E 0021
+1E86E 003F
+1E86E 0061
+1E86E 0041
+1E86E 0062
+1E86F 0021
+1E86F 003F
+1E86F 0061
+1E86F 0041
+1E86F 0062
+1E870 0021
+1E870 003F
+1E870 0061
+1E870 0041
+1E870 0062
+1E871 0021
+1E871 003F
+1E871 0061
+1E871 0041
+1E871 0062
+1E872 0021
+1E872 003F
+1E872 0061
+1E872 0041
+1E872 0062
+1E873 0021
+1E873 003F
+1E873 0061
+1E873 0041
+1E873 0062
+1E874 0021
+1E874 003F
+1E874 0061
+1E874 0041
+1E874 0062
+1E875 0021
+1E875 003F
+1E875 0061
+1E875 0041
+1E875 0062
+1E876 0021
+1E876 003F
+1E876 0061
+1E876 0041
+1E876 0062
+1E877 0021
+1E877 003F
+1E877 0061
+1E877 0041
+1E877 0062
+1E878 0021
+1E878 003F
+1E878 0061
+1E878 0041
+1E878 0062
+1E879 0021
+1E879 003F
+1E879 0061
+1E879 0041
+1E879 0062
+1E87A 0021
+1E87A 003F
+1E87A 0061
+1E87A 0041
+1E87A 0062
+1E87B 0021
+1E87B 003F
+1E87B 0061
+1E87B 0041
+1E87B 0062
+1E87C 0021
+1E87C 003F
+1E87C 0061
+1E87C 0041
+1E87C 0062
+1E87D 0021
+1E87D 003F
+1E87D 0061
+1E87D 0041
+1E87D 0062
+1E87E 0021
+1E87E 003F
+1E87E 0061
+1E87E 0041
+1E87E 0062
+1E87F 0021
+1E87F 003F
+1E87F 0061
+1E87F 0041
+1E87F 0062
+1E880 0021
+1E880 003F
+1E880 0061
+1E880 0041
+1E880 0062
+1E881 0021
+1E881 003F
+1E881 0061
+1E881 0041
+1E881 0062
+1E882 0021
+1E882 003F
+1E882 0061
+1E882 0041
+1E882 0062
+1E883 0021
+1E883 003F
+1E883 0061
+1E883 0041
+1E883 0062
+1E884 0021
+1E884 003F
+1E884 0061
+1E884 0041
+1E884 0062
+1E885 0021
+1E885 003F
+1E885 0061
+1E885 0041
+1E885 0062
+1E886 0021
+1E886 003F
+1E886 0061
+1E886 0041
+1E886 0062
+1E887 0021
+1E887 003F
+1E887 0061
+1E887 0041
+1E887 0062
+1E888 0021
+1E888 003F
+1E888 0061
+1E888 0041
+1E888 0062
+1E889 0021
+1E889 003F
+1E889 0061
+1E889 0041
+1E889 0062
+1E88A 0021
+1E88A 003F
+1E88A 0061
+1E88A 0041
+1E88A 0062
+1E88B 0021
+1E88B 003F
+1E88B 0061
+1E88B 0041
+1E88B 0062
+1E88C 0021
+1E88C 003F
+1E88C 0061
+1E88C 0041
+1E88C 0062
+1E88D 0021
+1E88D 003F
+1E88D 0061
+1E88D 0041
+1E88D 0062
+1E88E 0021
+1E88E 003F
+1E88E 0061
+1E88E 0041
+1E88E 0062
+1E88F 0021
+1E88F 003F
+1E88F 0061
+1E88F 0041
+1E88F 0062
+1E890 0021
+1E890 003F
+1E890 0061
+1E890 0041
+1E890 0062
+1E891 0021
+1E891 003F
+1E891 0061
+1E891 0041
+1E891 0062
+1E892 0021
+1E892 003F
+1E892 0061
+1E892 0041
+1E892 0062
+1E893 0021
+1E893 003F
+1E893 0061
+1E893 0041
+1E893 0062
+1E894 0021
+1E894 003F
+1E894 0061
+1E894 0041
+1E894 0062
+1E895 0021
+1E895 003F
+1E895 0061
+1E895 0041
+1E895 0062
+1E896 0021
+1E896 003F
+1E896 0061
+1E896 0041
+1E896 0062
+1E897 0021
+1E897 003F
+1E897 0061
+1E897 0041
+1E897 0062
+1E898 0021
+1E898 003F
+1E898 0061
+1E898 0041
+1E898 0062
+1E899 0021
+1E899 003F
+1E899 0061
+1E899 0041
+1E899 0062
+1E89A 0021
+1E89A 003F
+1E89A 0061
+1E89A 0041
+1E89A 0062
+1E89B 0021
+1E89B 003F
+1E89B 0061
+1E89B 0041
+1E89B 0062
+1E89C 0021
+1E89C 003F
+1E89C 0061
+1E89C 0041
+1E89C 0062
+1E89D 0021
+1E89D 003F
+1E89D 0061
+1E89D 0041
+1E89D 0062
+1E89E 0021
+1E89E 003F
+1E89E 0061
+1E89E 0041
+1E89E 0062
+1E89F 0021
+1E89F 003F
+1E89F 0061
+1E89F 0041
+1E89F 0062
+1E8A0 0021
+1E8A0 003F
+1E8A0 0061
+1E8A0 0041
+1E8A0 0062
+1E8A1 0021
+1E8A1 003F
+1E8A1 0061
+1E8A1 0041
+1E8A1 0062
+1E8A2 0021
+1E8A2 003F
+1E8A2 0061
+1E8A2 0041
+1E8A2 0062
+1E8A3 0021
+1E8A3 003F
+1E8A3 0061
+1E8A3 0041
+1E8A3 0062
+1E8A4 0021
+1E8A4 003F
+1E8A4 0061
+1E8A4 0041
+1E8A4 0062
+1E8A5 0021
+1E8A5 003F
+1E8A5 0061
+1E8A5 0041
+1E8A5 0062
+1E8A6 0021
+1E8A6 003F
+1E8A6 0061
+1E8A6 0041
+1E8A6 0062
+1E8A7 0021
+1E8A7 003F
+1E8A7 0061
+1E8A7 0041
+1E8A7 0062
+1E8A8 0021
+1E8A8 003F
+1E8A8 0061
+1E8A8 0041
+1E8A8 0062
+1E8A9 0021
+1E8A9 003F
+1E8A9 0061
+1E8A9 0041
+1E8A9 0062
+1E8AA 0021
+1E8AA 003F
+1E8AA 0061
+1E8AA 0041
+1E8AA 0062
+1E8AB 0021
+1E8AB 003F
+1E8AB 0061
+1E8AB 0041
+1E8AB 0062
+1E8AC 0021
+1E8AC 003F
+1E8AC 0061
+1E8AC 0041
+1E8AC 0062
+1E8AD 0021
+1E8AD 003F
+1E8AD 0061
+1E8AD 0041
+1E8AD 0062
+1E8AE 0021
+1E8AE 003F
+1E8AE 0061
+1E8AE 0041
+1E8AE 0062
+1E8AF 0021
+1E8AF 003F
+1E8AF 0061
+1E8AF 0041
+1E8AF 0062
+1E8B0 0021
+1E8B0 003F
+1E8B0 0061
+1E8B0 0041
+1E8B0 0062
+1E8B1 0021
+1E8B1 003F
+1E8B1 0061
+1E8B1 0041
+1E8B1 0062
+1E8B2 0021
+1E8B2 003F
+1E8B2 0061
+1E8B2 0041
+1E8B2 0062
+1E8B3 0021
+1E8B3 003F
+1E8B3 0061
+1E8B3 0041
+1E8B3 0062
+1E8B4 0021
+1E8B4 003F
+1E8B4 0061
+1E8B4 0041
+1E8B4 0062
+1E8B5 0021
+1E8B5 003F
+1E8B5 0061
+1E8B5 0041
+1E8B5 0062
+1E8B6 0021
+1E8B6 003F
+1E8B6 0061
+1E8B6 0041
+1E8B6 0062
+1E8B7 0021
+1E8B7 003F
+1E8B7 0061
+1E8B7 0041
+1E8B7 0062
+1E8B8 0021
+1E8B8 003F
+1E8B8 0061
+1E8B8 0041
+1E8B8 0062
+1E8B9 0021
+1E8B9 003F
+1E8B9 0061
+1E8B9 0041
+1E8B9 0062
+1E8BA 0021
+1E8BA 003F
+1E8BA 0061
+1E8BA 0041
+1E8BA 0062
+1E8BB 0021
+1E8BB 003F
+1E8BB 0061
+1E8BB 0041
+1E8BB 0062
+1E8BC 0021
+1E8BC 003F
+1E8BC 0061
+1E8BC 0041
+1E8BC 0062
+1E8BD 0021
+1E8BD 003F
+1E8BD 0061
+1E8BD 0041
+1E8BD 0062
+1E8BE 0021
+1E8BE 003F
+1E8BE 0061
+1E8BE 0041
+1E8BE 0062
+1E8BF 0021
+1E8BF 003F
+1E8BF 0061
+1E8BF 0041
+1E8BF 0062
+1E8C0 0021
+1E8C0 003F
+1E8C0 0061
+1E8C0 0041
+1E8C0 0062
+1E8C1 0021
+1E8C1 003F
+1E8C1 0061
+1E8C1 0041
+1E8C1 0062
+1E8C2 0021
+1E8C2 003F
+1E8C2 0061
+1E8C2 0041
+1E8C2 0062
+1E8C3 0021
+1E8C3 003F
+1E8C3 0061
+1E8C3 0041
+1E8C3 0062
+1E8C4 0021
+1E8C4 003F
+1E8C4 0061
+1E8C4 0041
+1E8C4 0062
1100 0021
3131 0021
3260 0021
@@ -111138,6 +120247,1066 @@ A4F7 0062
16F9F 0061
16F9F 0041
16F9F 0062
+118FF 0021
+118FF 003F
+118FF 0061
+118FF 0041
+118FF 0062
+118C0 0021
+118A0 0021
+118C0 003F
+118A0 003F
+118C0 0061
+118C0 0041
+118A0 0061
+118A0 0041
+118C0 0062
+118A0 0062
+118C1 0021
+118A1 0021
+118C1 003F
+118A1 003F
+118C1 0061
+118C1 0041
+118A1 0061
+118A1 0041
+118C1 0062
+118A1 0062
+118C2 0021
+118A2 0021
+118C2 003F
+118A2 003F
+118C2 0061
+118C2 0041
+118A2 0061
+118A2 0041
+118C2 0062
+118A2 0062
+118C3 0021
+118A3 0021
+118C3 003F
+118A3 003F
+118C3 0061
+118C3 0041
+118A3 0061
+118A3 0041
+118C3 0062
+118A3 0062
+118C4 0021
+118A4 0021
+118C4 003F
+118A4 003F
+118C4 0061
+118C4 0041
+118A4 0061
+118A4 0041
+118C4 0062
+118A4 0062
+118C5 0021
+118A5 0021
+118C5 003F
+118A5 003F
+118C5 0061
+118C5 0041
+118A5 0061
+118A5 0041
+118C5 0062
+118A5 0062
+118C6 0021
+118A6 0021
+118C6 003F
+118A6 003F
+118C6 0061
+118C6 0041
+118A6 0061
+118A6 0041
+118C6 0062
+118A6 0062
+118C7 0021
+118A7 0021
+118C7 003F
+118A7 003F
+118C7 0061
+118C7 0041
+118A7 0061
+118A7 0041
+118C7 0062
+118A7 0062
+118C8 0021
+118A8 0021
+118C8 003F
+118A8 003F
+118C8 0061
+118C8 0041
+118A8 0061
+118A8 0041
+118C8 0062
+118A8 0062
+118C9 0021
+118A9 0021
+118C9 003F
+118A9 003F
+118C9 0061
+118C9 0041
+118A9 0061
+118A9 0041
+118C9 0062
+118A9 0062
+118CA 0021
+118AA 0021
+118CA 003F
+118AA 003F
+118CA 0061
+118CA 0041
+118AA 0061
+118AA 0041
+118CA 0062
+118AA 0062
+118CB 0021
+118AB 0021
+118CB 003F
+118AB 003F
+118CB 0061
+118CB 0041
+118AB 0061
+118AB 0041
+118CB 0062
+118AB 0062
+118CC 0021
+118AC 0021
+118CC 003F
+118AC 003F
+118CC 0061
+118CC 0041
+118AC 0061
+118AC 0041
+118CC 0062
+118AC 0062
+118CD 0021
+118AD 0021
+118CD 003F
+118AD 003F
+118CD 0061
+118CD 0041
+118AD 0061
+118AD 0041
+118CD 0062
+118AD 0062
+118CE 0021
+118AE 0021
+118CE 003F
+118AE 003F
+118CE 0061
+118CE 0041
+118AE 0061
+118AE 0041
+118CE 0062
+118AE 0062
+118CF 0021
+118AF 0021
+118CF 003F
+118AF 003F
+118CF 0061
+118CF 0041
+118AF 0061
+118AF 0041
+118CF 0062
+118AF 0062
+118D0 0021
+118B0 0021
+118D0 003F
+118B0 003F
+118D0 0061
+118D0 0041
+118B0 0061
+118B0 0041
+118D0 0062
+118B0 0062
+118D1 0021
+118B1 0021
+118D1 003F
+118B1 003F
+118D1 0061
+118D1 0041
+118B1 0061
+118B1 0041
+118D1 0062
+118B1 0062
+118D2 0021
+118B2 0021
+118D2 003F
+118B2 003F
+118D2 0061
+118D2 0041
+118B2 0061
+118B2 0041
+118D2 0062
+118B2 0062
+118D3 0021
+118B3 0021
+118D3 003F
+118B3 003F
+118D3 0061
+118D3 0041
+118B3 0061
+118B3 0041
+118D3 0062
+118B3 0062
+118D4 0021
+118B4 0021
+118D4 003F
+118B4 003F
+118D4 0061
+118D4 0041
+118B4 0061
+118B4 0041
+118D4 0062
+118B4 0062
+118D5 0021
+118B5 0021
+118D5 003F
+118B5 003F
+118D5 0061
+118D5 0041
+118B5 0061
+118B5 0041
+118D5 0062
+118B5 0062
+118D6 0021
+118B6 0021
+118D6 003F
+118B6 003F
+118D6 0061
+118D6 0041
+118B6 0061
+118B6 0041
+118D6 0062
+118B6 0062
+118D7 0021
+118B7 0021
+118D7 003F
+118B7 003F
+118D7 0061
+118D7 0041
+118B7 0061
+118B7 0041
+118D7 0062
+118B7 0062
+118D8 0021
+118B8 0021
+118D8 003F
+118B8 003F
+118D8 0061
+118D8 0041
+118B8 0061
+118B8 0041
+118D8 0062
+118B8 0062
+118D9 0021
+118B9 0021
+118D9 003F
+118B9 003F
+118D9 0061
+118D9 0041
+118B9 0061
+118B9 0041
+118D9 0062
+118B9 0062
+118DA 0021
+118BA 0021
+118DA 003F
+118BA 003F
+118DA 0061
+118DA 0041
+118BA 0061
+118BA 0041
+118DA 0062
+118BA 0062
+118DB 0021
+118BB 0021
+118DB 003F
+118BB 003F
+118DB 0061
+118DB 0041
+118BB 0061
+118BB 0041
+118DB 0062
+118BB 0062
+118DC 0021
+118BC 0021
+118DC 003F
+118BC 003F
+118DC 0061
+118DC 0041
+118BC 0061
+118BC 0041
+118DC 0062
+118BC 0062
+118DD 0021
+118BD 0021
+118DD 003F
+118BD 003F
+118DD 0061
+118DD 0041
+118BD 0061
+118BD 0041
+118DD 0062
+118BD 0062
+118DE 0021
+118BE 0021
+118DE 003F
+118BE 003F
+118DE 0061
+118DE 0041
+118BE 0061
+118BE 0041
+118DE 0062
+118BE 0062
+118DF 0021
+118BF 0021
+118DF 003F
+118BF 003F
+118DF 0061
+118DF 0041
+118BF 0061
+118BF 0041
+118DF 0062
+118BF 0062
+11AD5 0021
+11AD5 003F
+11AD5 0061
+11AD5 0041
+11AD5 0062
+11AD6 0021
+11AD6 003F
+11AD6 0061
+11AD6 0041
+11AD6 0062
+11AD7 0021
+11AD7 003F
+11AD7 0061
+11AD7 0041
+11AD7 0062
+11AD8 0021
+11AD8 003F
+11AD8 0061
+11AD8 0041
+11AD8 0062
+11AD9 0021
+11AD9 003F
+11AD9 0061
+11AD9 0041
+11AD9 0062
+11ADA 0021
+11ADA 003F
+11ADA 0061
+11ADA 0041
+11ADA 0062
+11ADB 0021
+11ADB 003F
+11ADB 0061
+11ADB 0041
+11ADB 0062
+11AC0 0021
+11AC0 003F
+11AC0 0061
+11AC0 0041
+11AC0 0062
+11AC1 0021
+11AC1 003F
+11AC1 0061
+11AC1 0041
+11AC1 0062
+11AC2 0021
+11AC2 003F
+11AC2 0061
+11AC2 0041
+11AC2 0062
+11AC3 0021
+11AC3 003F
+11AC3 0061
+11AC3 0041
+11AC3 0062
+11AC4 0021
+11AC4 003F
+11AC4 0061
+11AC4 0041
+11AC4 0062
+11AC5 0021
+11AC5 003F
+11AC5 0061
+11AC5 0041
+11AC5 0062
+11AC6 0021
+11AC6 003F
+11AC6 0061
+11AC6 0041
+11AC6 0062
+11AC7 0021
+11AC7 003F
+11AC7 0061
+11AC7 0041
+11AC7 0062
+11AC8 0021
+11AC8 003F
+11AC8 0061
+11AC8 0041
+11AC8 0062
+11AC9 0021
+11AC9 003F
+11AC9 0061
+11AC9 0041
+11AC9 0062
+11ACA 0021
+11ACA 003F
+11ACA 0061
+11ACA 0041
+11ACA 0062
+11ACB 0021
+11ACB 003F
+11ACB 0061
+11ACB 0041
+11ACB 0062
+11ACC 0021
+11ACC 003F
+11ACC 0061
+11ACC 0041
+11ACC 0062
+11ACD 0021
+11ACD 003F
+11ACD 0061
+11ACD 0041
+11ACD 0062
+11ACE 0021
+11ACE 003F
+11ACE 0061
+11ACE 0041
+11ACE 0062
+11ACF 0021
+11ACF 003F
+11ACF 0061
+11ACF 0041
+11ACF 0062
+11AD0 0021
+11AD0 003F
+11AD0 0061
+11AD0 0041
+11AD0 0062
+11AD1 0021
+11AD1 003F
+11AD1 0061
+11AD1 0041
+11AD1 0062
+11AD2 0021
+11AD2 003F
+11AD2 0061
+11AD2 0041
+11AD2 0062
+11AD3 0021
+11AD3 003F
+11AD3 0061
+11AD3 0041
+11AD3 0062
+11AD4 0021
+11AD4 003F
+11AD4 0061
+11AD4 0041
+11AD4 0062
+11ADC 0021
+11ADC 003F
+11ADC 0061
+11ADC 0041
+11ADC 0062
+11ADD 0021
+11ADD 003F
+11ADD 0061
+11ADD 0041
+11ADD 0062
+11ADF 0021
+11ADF 003F
+11ADF 0061
+11ADF 0041
+11ADF 0062
+11AE0 0021
+11AE0 003F
+11AE0 0061
+11AE0 0041
+11AE0 0062
+11AE1 0021
+11AE1 003F
+11AE1 0061
+11AE1 0041
+11AE1 0062
+11AE2 0021
+11AE2 003F
+11AE2 0061
+11AE2 0041
+11AE2 0062
+11AE3 0021
+11AE3 003F
+11AE3 0061
+11AE3 0041
+11AE3 0062
+11ADE 0021
+11ADE 003F
+11ADE 0061
+11ADE 0041
+11ADE 0062
+11AE4 0021
+11AE4 003F
+11AE4 0061
+11AE4 0041
+11AE4 0062
+11AEF 0021
+11AEF 003F
+11AEF 0061
+11AEF 0041
+11AEF 0062
+11AF2 0021
+11AF2 003F
+11AF2 0061
+11AF2 0041
+11AF2 0062
+11AF1 0021
+11AF1 003F
+11AF1 0061
+11AF1 0041
+11AF1 0062
+11AE6 0021
+11AE6 003F
+11AE6 0061
+11AE6 0041
+11AE6 0062
+11AE9 0021
+11AE9 003F
+11AE9 0061
+11AE9 0041
+11AE9 0062
+11AE5 0021
+11AE5 003F
+11AE5 0061
+11AE5 0041
+11AE5 0062
+11AE8 0021
+11AE8 003F
+11AE8 0061
+11AE8 0041
+11AE8 0062
+11AF4 0021
+11AF4 003F
+11AF4 0061
+11AF4 0041
+11AF4 0062
+11AF7 0021
+11AF7 003F
+11AF7 0061
+11AF7 0041
+11AF7 0062
+11AF3 0021
+11AF3 003F
+11AF3 0061
+11AF3 0041
+11AF3 0062
+11AF6 0021
+11AF6 003F
+11AF6 0061
+11AF6 0041
+11AF6 0062
+11AEC 0021
+11AEC 003F
+11AEC 0061
+11AEC 0041
+11AEC 0062
+11AEE 0021
+11AEE 003F
+11AEE 0061
+11AEE 0041
+11AEE 0062
+11AEB 0021
+11AEB 003F
+11AEB 0061
+11AEB 0041
+11AEB 0062
+11AED 0021
+11AED 003F
+11AED 0061
+11AED 0041
+11AED 0062
+11AF5 0021
+11AF5 003F
+11AF5 0061
+11AF5 0041
+11AF5 0062
+11AF8 0021
+11AF8 003F
+11AF8 0061
+11AF8 0041
+11AF8 0062
+11AE7 0021
+11AE7 003F
+11AE7 0061
+11AE7 0041
+11AE7 0062
+11AEA 0021
+11AEA 003F
+11AEA 0061
+11AEA 0041
+11AEA 0062
+11AF0 0021
+11AF0 003F
+11AF0 0061
+11AF0 0041
+11AF0 0062
+16B00 0021
+16B00 003F
+16B00 0061
+16B00 0041
+16B00 0062
+16B01 0021
+16B01 003F
+16B01 0061
+16B01 0041
+16B01 0062
+16B02 0021
+16B02 003F
+16B02 0061
+16B02 0041
+16B02 0062
+16B03 0021
+16B03 003F
+16B03 0061
+16B03 0041
+16B03 0062
+16B04 0021
+16B04 003F
+16B04 0061
+16B04 0041
+16B04 0062
+16B05 0021
+16B05 003F
+16B05 0061
+16B05 0041
+16B05 0062
+16B06 0021
+16B06 003F
+16B06 0061
+16B06 0041
+16B06 0062
+16B07 0021
+16B07 003F
+16B07 0061
+16B07 0041
+16B07 0062
+16B08 0021
+16B08 003F
+16B08 0061
+16B08 0041
+16B08 0062
+16B09 0021
+16B09 003F
+16B09 0061
+16B09 0041
+16B09 0062
+16B0A 0021
+16B0A 003F
+16B0A 0061
+16B0A 0041
+16B0A 0062
+16B0B 0021
+16B0B 003F
+16B0B 0061
+16B0B 0041
+16B0B 0062
+16B0C 0021
+16B0C 003F
+16B0C 0061
+16B0C 0041
+16B0C 0062
+16B0D 0021
+16B0D 003F
+16B0D 0061
+16B0D 0041
+16B0D 0062
+16B0E 0021
+16B0E 003F
+16B0E 0061
+16B0E 0041
+16B0E 0062
+16B0F 0021
+16B0F 003F
+16B0F 0061
+16B0F 0041
+16B0F 0062
+16B10 0021
+16B10 003F
+16B10 0061
+16B10 0041
+16B10 0062
+16B11 0021
+16B11 003F
+16B11 0061
+16B11 0041
+16B11 0062
+16B12 0021
+16B12 003F
+16B12 0061
+16B12 0041
+16B12 0062
+16B13 0021
+16B13 003F
+16B13 0061
+16B13 0041
+16B13 0062
+16B14 0021
+16B14 003F
+16B14 0061
+16B14 0041
+16B14 0062
+16B15 0021
+16B15 003F
+16B15 0061
+16B15 0041
+16B15 0062
+16B16 0021
+16B16 003F
+16B16 0061
+16B16 0041
+16B16 0062
+16B17 0021
+16B17 003F
+16B17 0061
+16B17 0041
+16B17 0062
+16B18 0021
+16B18 003F
+16B18 0061
+16B18 0041
+16B18 0062
+16B19 0021
+16B19 003F
+16B19 0061
+16B19 0041
+16B19 0062
+16B1A 0021
+16B1A 003F
+16B1A 0061
+16B1A 0041
+16B1A 0062
+16B1B 0021
+16B1B 003F
+16B1B 0061
+16B1B 0041
+16B1B 0062
+16B1C 0021
+16B1C 003F
+16B1C 0061
+16B1C 0041
+16B1C 0062
+16B1D 0021
+16B1D 003F
+16B1D 0061
+16B1D 0041
+16B1D 0062
+16B1E 0021
+16B1E 003F
+16B1E 0061
+16B1E 0041
+16B1E 0062
+16B1F 0021
+16B1F 003F
+16B1F 0061
+16B1F 0041
+16B1F 0062
+16B20 0021
+16B20 003F
+16B20 0061
+16B20 0041
+16B20 0062
+16B21 0021
+16B21 003F
+16B21 0061
+16B21 0041
+16B21 0062
+16B22 0021
+16B22 003F
+16B22 0061
+16B22 0041
+16B22 0062
+16B23 0021
+16B23 003F
+16B23 0061
+16B23 0041
+16B23 0062
+16B24 0021
+16B24 003F
+16B24 0061
+16B24 0041
+16B24 0062
+16B25 0021
+16B25 003F
+16B25 0061
+16B25 0041
+16B25 0062
+16B26 0021
+16B26 003F
+16B26 0061
+16B26 0041
+16B26 0062
+16B27 0021
+16B27 003F
+16B27 0061
+16B27 0041
+16B27 0062
+16B28 0021
+16B28 003F
+16B28 0061
+16B28 0041
+16B28 0062
+16B29 0021
+16B29 003F
+16B29 0061
+16B29 0041
+16B29 0062
+16B2A 0021
+16B2A 003F
+16B2A 0061
+16B2A 0041
+16B2A 0062
+16B2B 0021
+16B2B 003F
+16B2B 0061
+16B2B 0041
+16B2B 0062
+16B2C 0021
+16B2C 003F
+16B2C 0061
+16B2C 0041
+16B2C 0062
+16B2D 0021
+16B2D 003F
+16B2D 0061
+16B2D 0041
+16B2D 0062
+16B2E 0021
+16B2E 003F
+16B2E 0061
+16B2E 0041
+16B2E 0062
+16B2F 0021
+16B2F 003F
+16B2F 0061
+16B2F 0041
+16B2F 0062
+16B40 0021
+16B40 003F
+16B40 0061
+16B40 0041
+16B40 0062
+16B41 0021
+16B41 003F
+16B41 0061
+16B41 0041
+16B41 0062
+16B63 0021
+16B63 003F
+16B63 0061
+16B63 0041
+16B63 0062
+16B64 0021
+16B64 003F
+16B64 0061
+16B64 0041
+16B64 0062
+16B65 0021
+16B65 003F
+16B65 0061
+16B65 0041
+16B65 0062
+16B66 0021
+16B66 003F
+16B66 0061
+16B66 0041
+16B66 0062
+16B67 0021
+16B67 003F
+16B67 0061
+16B67 0041
+16B67 0062
+16B68 0021
+16B68 003F
+16B68 0061
+16B68 0041
+16B68 0062
+16B69 0021
+16B69 003F
+16B69 0061
+16B69 0041
+16B69 0062
+16B6A 0021
+16B6A 003F
+16B6A 0061
+16B6A 0041
+16B6A 0062
+16B6B 0021
+16B6B 003F
+16B6B 0061
+16B6B 0041
+16B6B 0062
+16B6C 0021
+16B6C 003F
+16B6C 0061
+16B6C 0041
+16B6C 0062
+16B6D 0021
+16B6D 003F
+16B6D 0061
+16B6D 0041
+16B6D 0062
+16B6E 0021
+16B6E 003F
+16B6E 0061
+16B6E 0041
+16B6E 0062
+16B6F 0021
+16B6F 003F
+16B6F 0061
+16B6F 0041
+16B6F 0062
+16B70 0021
+16B70 003F
+16B70 0061
+16B70 0041
+16B70 0062
+16B71 0021
+16B71 003F
+16B71 0061
+16B71 0041
+16B71 0062
+16B72 0021
+16B72 003F
+16B72 0061
+16B72 0041
+16B72 0062
+16B73 0021
+16B73 003F
+16B73 0061
+16B73 0041
+16B73 0062
+16B74 0021
+16B74 003F
+16B74 0061
+16B74 0041
+16B74 0062
+16B75 0021
+16B75 003F
+16B75 0061
+16B75 0041
+16B75 0062
+16B76 0021
+16B76 003F
+16B76 0061
+16B76 0041
+16B76 0062
+16B77 0021
+16B77 003F
+16B77 0061
+16B77 0041
+16B77 0062
+16B7D 0021
+16B7D 003F
+16B7D 0061
+16B7D 0041
+16B7D 0062
+16B7E 0021
+16B7E 003F
+16B7E 0061
+16B7E 0041
+16B7E 0062
+16B7F 0021
+16B7F 003F
+16B7F 0061
+16B7F 0041
+16B7F 0062
+16B80 0021
+16B80 003F
+16B80 0061
+16B80 0041
+16B80 0062
+16B81 0021
+16B81 003F
+16B81 0061
+16B81 0041
+16B81 0062
+16B82 0021
+16B82 003F
+16B82 0061
+16B82 0041
+16B82 0062
+16B83 0021
+16B83 003F
+16B83 0061
+16B83 0041
+16B83 0062
+16B84 0021
+16B84 003F
+16B84 0061
+16B84 0041
+16B84 0062
+16B85 0021
+16B85 003F
+16B85 0061
+16B85 0041
+16B85 0062
+16B86 0021
+16B86 003F
+16B86 0061
+16B86 0041
+16B86 0062
+16B87 0021
+16B87 003F
+16B87 0061
+16B87 0041
+16B87 0062
+16B88 0021
+16B88 003F
+16B88 0061
+16B88 0041
+16B88 0062
+16B89 0021
+16B89 003F
+16B89 0061
+16B89 0041
+16B89 0062
+16B8A 0021
+16B8A 003F
+16B8A 0061
+16B8A 0041
+16B8A 0062
+16B8B 0021
+16B8B 003F
+16B8B 0061
+16B8B 0041
+16B8B 0062
+16B8C 0021
+16B8C 003F
+16B8C 0061
+16B8C 0041
+16B8C 0062
+16B8D 0021
+16B8D 003F
+16B8D 0061
+16B8D 0041
+16B8D 0062
+16B8E 0021
+16B8E 003F
+16B8E 0061
+16B8E 0041
+16B8E 0062
+16B8F 0021
+16B8F 003F
+16B8F 0061
+16B8F 0041
+16B8F 0062
10280 0021
10280 003F
10280 0061
@@ -111733,6 +121902,11 @@ A4F7 0062
1030E 0061
1030E 0041
1030E 0062
+1031F 0021
+1031F 003F
+1031F 0061
+1031F 0041
+1031F 0062
1030F 0021
1030F 003F
1030F 0061
@@ -112588,6 +122762,701 @@ A4F7 0062
1047F 0061
1047F 0041
1047F 0062
+1BC00 0021
+1BC00 003F
+1BC00 0061
+1BC00 0041
+1BC00 0062
+1BC01 0021
+1BC01 003F
+1BC01 0061
+1BC01 0041
+1BC01 0062
+1BC02 0021
+1BC02 003F
+1BC02 0061
+1BC02 0041
+1BC02 0062
+1BC03 0021
+1BC03 003F
+1BC03 0061
+1BC03 0041
+1BC03 0062
+1BC04 0021
+1BC04 003F
+1BC04 0061
+1BC04 0041
+1BC04 0062
+1BC05 0021
+1BC05 003F
+1BC05 0061
+1BC05 0041
+1BC05 0062
+1BC06 0021
+1BC06 003F
+1BC06 0061
+1BC06 0041
+1BC06 0062
+1BC07 0021
+1BC07 003F
+1BC07 0061
+1BC07 0041
+1BC07 0062
+1BC08 0021
+1BC08 003F
+1BC08 0061
+1BC08 0041
+1BC08 0062
+1BC09 0021
+1BC09 003F
+1BC09 0061
+1BC09 0041
+1BC09 0062
+1BC0A 0021
+1BC0A 003F
+1BC0A 0061
+1BC0A 0041
+1BC0A 0062
+1BC0B 0021
+1BC0B 003F
+1BC0B 0061
+1BC0B 0041
+1BC0B 0062
+1BC0C 0021
+1BC0C 003F
+1BC0C 0061
+1BC0C 0041
+1BC0C 0062
+1BC0D 0021
+1BC0D 003F
+1BC0D 0061
+1BC0D 0041
+1BC0D 0062
+1BC0E 0021
+1BC0E 003F
+1BC0E 0061
+1BC0E 0041
+1BC0E 0062
+1BC0F 0021
+1BC0F 003F
+1BC0F 0061
+1BC0F 0041
+1BC0F 0062
+1BC10 0021
+1BC10 003F
+1BC10 0061
+1BC10 0041
+1BC10 0062
+1BC11 0021
+1BC11 003F
+1BC11 0061
+1BC11 0041
+1BC11 0062
+1BC12 0021
+1BC12 003F
+1BC12 0061
+1BC12 0041
+1BC12 0062
+1BC13 0021
+1BC13 003F
+1BC13 0061
+1BC13 0041
+1BC13 0062
+1BC14 0021
+1BC14 003F
+1BC14 0061
+1BC14 0041
+1BC14 0062
+1BC15 0021
+1BC15 003F
+1BC15 0061
+1BC15 0041
+1BC15 0062
+1BC16 0021
+1BC16 003F
+1BC16 0061
+1BC16 0041
+1BC16 0062
+1BC17 0021
+1BC17 003F
+1BC17 0061
+1BC17 0041
+1BC17 0062
+1BC18 0021
+1BC18 003F
+1BC18 0061
+1BC18 0041
+1BC18 0062
+1BC19 0021
+1BC19 003F
+1BC19 0061
+1BC19 0041
+1BC19 0062
+1BC1A 0021
+1BC1A 003F
+1BC1A 0061
+1BC1A 0041
+1BC1A 0062
+1BC1B 0021
+1BC1B 003F
+1BC1B 0061
+1BC1B 0041
+1BC1B 0062
+1BC1C 0021
+1BC1C 003F
+1BC1C 0061
+1BC1C 0041
+1BC1C 0062
+1BC1D 0021
+1BC1D 003F
+1BC1D 0061
+1BC1D 0041
+1BC1D 0062
+1BC1E 0021
+1BC1E 003F
+1BC1E 0061
+1BC1E 0041
+1BC1E 0062
+1BC1F 0021
+1BC1F 003F
+1BC1F 0061
+1BC1F 0041
+1BC1F 0062
+1BC20 0021
+1BC20 003F
+1BC20 0061
+1BC20 0041
+1BC20 0062
+1BC21 0021
+1BC21 003F
+1BC21 0061
+1BC21 0041
+1BC21 0062
+1BC22 0021
+1BC22 003F
+1BC22 0061
+1BC22 0041
+1BC22 0062
+1BC23 0021
+1BC23 003F
+1BC23 0061
+1BC23 0041
+1BC23 0062
+1BC24 0021
+1BC24 003F
+1BC24 0061
+1BC24 0041
+1BC24 0062
+1BC25 0021
+1BC25 003F
+1BC25 0061
+1BC25 0041
+1BC25 0062
+1BC26 0021
+1BC26 003F
+1BC26 0061
+1BC26 0041
+1BC26 0062
+1BC27 0021
+1BC27 003F
+1BC27 0061
+1BC27 0041
+1BC27 0062
+1BC28 0021
+1BC28 003F
+1BC28 0061
+1BC28 0041
+1BC28 0062
+1BC29 0021
+1BC29 003F
+1BC29 0061
+1BC29 0041
+1BC29 0062
+1BC2A 0021
+1BC2A 003F
+1BC2A 0061
+1BC2A 0041
+1BC2A 0062
+1BC2B 0021
+1BC2B 003F
+1BC2B 0061
+1BC2B 0041
+1BC2B 0062
+1BC2C 0021
+1BC2C 003F
+1BC2C 0061
+1BC2C 0041
+1BC2C 0062
+1BC2D 0021
+1BC2D 003F
+1BC2D 0061
+1BC2D 0041
+1BC2D 0062
+1BC2E 0021
+1BC2E 003F
+1BC2E 0061
+1BC2E 0041
+1BC2E 0062
+1BC2F 0021
+1BC2F 003F
+1BC2F 0061
+1BC2F 0041
+1BC2F 0062
+1BC30 0021
+1BC30 003F
+1BC30 0061
+1BC30 0041
+1BC30 0062
+1BC31 0021
+1BC31 003F
+1BC31 0061
+1BC31 0041
+1BC31 0062
+1BC32 0021
+1BC32 003F
+1BC32 0061
+1BC32 0041
+1BC32 0062
+1BC33 0021
+1BC33 003F
+1BC33 0061
+1BC33 0041
+1BC33 0062
+1BC34 0021
+1BC34 003F
+1BC34 0061
+1BC34 0041
+1BC34 0062
+1BC35 0021
+1BC35 003F
+1BC35 0061
+1BC35 0041
+1BC35 0062
+1BC36 0021
+1BC36 003F
+1BC36 0061
+1BC36 0041
+1BC36 0062
+1BC37 0021
+1BC37 003F
+1BC37 0061
+1BC37 0041
+1BC37 0062
+1BC38 0021
+1BC38 003F
+1BC38 0061
+1BC38 0041
+1BC38 0062
+1BC39 0021
+1BC39 003F
+1BC39 0061
+1BC39 0041
+1BC39 0062
+1BC3A 0021
+1BC3A 003F
+1BC3A 0061
+1BC3A 0041
+1BC3A 0062
+1BC3B 0021
+1BC3B 003F
+1BC3B 0061
+1BC3B 0041
+1BC3B 0062
+1BC3C 0021
+1BC3C 003F
+1BC3C 0061
+1BC3C 0041
+1BC3C 0062
+1BC3D 0021
+1BC3D 003F
+1BC3D 0061
+1BC3D 0041
+1BC3D 0062
+1BC3E 0021
+1BC3E 003F
+1BC3E 0061
+1BC3E 0041
+1BC3E 0062
+1BC3F 0021
+1BC3F 003F
+1BC3F 0061
+1BC3F 0041
+1BC3F 0062
+1BC40 0021
+1BC40 003F
+1BC40 0061
+1BC40 0041
+1BC40 0062
+1BC41 0021
+1BC41 003F
+1BC41 0061
+1BC41 0041
+1BC41 0062
+1BC42 0021
+1BC42 003F
+1BC42 0061
+1BC42 0041
+1BC42 0062
+1BC43 0021
+1BC43 003F
+1BC43 0061
+1BC43 0041
+1BC43 0062
+1BC44 0021
+1BC44 003F
+1BC44 0061
+1BC44 0041
+1BC44 0062
+1BC45 0021
+1BC45 003F
+1BC45 0061
+1BC45 0041
+1BC45 0062
+1BC46 0021
+1BC46 003F
+1BC46 0061
+1BC46 0041
+1BC46 0062
+1BC47 0021
+1BC47 003F
+1BC47 0061
+1BC47 0041
+1BC47 0062
+1BC48 0021
+1BC48 003F
+1BC48 0061
+1BC48 0041
+1BC48 0062
+1BC49 0021
+1BC49 003F
+1BC49 0061
+1BC49 0041
+1BC49 0062
+1BC4A 0021
+1BC4A 003F
+1BC4A 0061
+1BC4A 0041
+1BC4A 0062
+1BC4B 0021
+1BC4B 003F
+1BC4B 0061
+1BC4B 0041
+1BC4B 0062
+1BC4C 0021
+1BC4C 003F
+1BC4C 0061
+1BC4C 0041
+1BC4C 0062
+1BC4D 0021
+1BC4D 003F
+1BC4D 0061
+1BC4D 0041
+1BC4D 0062
+1BC4E 0021
+1BC4E 003F
+1BC4E 0061
+1BC4E 0041
+1BC4E 0062
+1BC4F 0021
+1BC4F 003F
+1BC4F 0061
+1BC4F 0041
+1BC4F 0062
+1BC50 0021
+1BC50 003F
+1BC50 0061
+1BC50 0041
+1BC50 0062
+1BC51 0021
+1BC51 003F
+1BC51 0061
+1BC51 0041
+1BC51 0062
+1BC52 0021
+1BC52 003F
+1BC52 0061
+1BC52 0041
+1BC52 0062
+1BC53 0021
+1BC53 003F
+1BC53 0061
+1BC53 0041
+1BC53 0062
+1BC54 0021
+1BC54 003F
+1BC54 0061
+1BC54 0041
+1BC54 0062
+1BC55 0021
+1BC55 003F
+1BC55 0061
+1BC55 0041
+1BC55 0062
+1BC56 0021
+1BC56 003F
+1BC56 0061
+1BC56 0041
+1BC56 0062
+1BC57 0021
+1BC57 003F
+1BC57 0061
+1BC57 0041
+1BC57 0062
+1BC58 0021
+1BC58 003F
+1BC58 0061
+1BC58 0041
+1BC58 0062
+1BC59 0021
+1BC59 003F
+1BC59 0061
+1BC59 0041
+1BC59 0062
+1BC5A 0021
+1BC5A 003F
+1BC5A 0061
+1BC5A 0041
+1BC5A 0062
+1BC5B 0021
+1BC5B 003F
+1BC5B 0061
+1BC5B 0041
+1BC5B 0062
+1BC5C 0021
+1BC5C 003F
+1BC5C 0061
+1BC5C 0041
+1BC5C 0062
+1BC5D 0021
+1BC5D 003F
+1BC5D 0061
+1BC5D 0041
+1BC5D 0062
+1BC5E 0021
+1BC5E 003F
+1BC5E 0061
+1BC5E 0041
+1BC5E 0062
+1BC5F 0021
+1BC5F 003F
+1BC5F 0061
+1BC5F 0041
+1BC5F 0062
+1BC60 0021
+1BC60 003F
+1BC60 0061
+1BC60 0041
+1BC60 0062
+1BC61 0021
+1BC61 003F
+1BC61 0061
+1BC61 0041
+1BC61 0062
+1BC62 0021
+1BC62 003F
+1BC62 0061
+1BC62 0041
+1BC62 0062
+1BC63 0021
+1BC63 003F
+1BC63 0061
+1BC63 0041
+1BC63 0062
+1BC64 0021
+1BC64 003F
+1BC64 0061
+1BC64 0041
+1BC64 0062
+1BC65 0021
+1BC65 003F
+1BC65 0061
+1BC65 0041
+1BC65 0062
+1BC66 0021
+1BC66 003F
+1BC66 0061
+1BC66 0041
+1BC66 0062
+1BC67 0021
+1BC67 003F
+1BC67 0061
+1BC67 0041
+1BC67 0062
+1BC68 0021
+1BC68 003F
+1BC68 0061
+1BC68 0041
+1BC68 0062
+1BC69 0021
+1BC69 003F
+1BC69 0061
+1BC69 0041
+1BC69 0062
+1BC6A 0021
+1BC6A 003F
+1BC6A 0061
+1BC6A 0041
+1BC6A 0062
+1BC70 0021
+1BC70 003F
+1BC70 0061
+1BC70 0041
+1BC70 0062
+1BC71 0021
+1BC71 003F
+1BC71 0061
+1BC71 0041
+1BC71 0062
+1BC72 0021
+1BC72 003F
+1BC72 0061
+1BC72 0041
+1BC72 0062
+1BC73 0021
+1BC73 003F
+1BC73 0061
+1BC73 0041
+1BC73 0062
+1BC74 0021
+1BC74 003F
+1BC74 0061
+1BC74 0041
+1BC74 0062
+1BC75 0021
+1BC75 003F
+1BC75 0061
+1BC75 0041
+1BC75 0062
+1BC76 0021
+1BC76 003F
+1BC76 0061
+1BC76 0041
+1BC76 0062
+1BC77 0021
+1BC77 003F
+1BC77 0061
+1BC77 0041
+1BC77 0062
+1BC78 0021
+1BC78 003F
+1BC78 0061
+1BC78 0041
+1BC78 0062
+1BC79 0021
+1BC79 003F
+1BC79 0061
+1BC79 0041
+1BC79 0062
+1BC7A 0021
+1BC7A 003F
+1BC7A 0061
+1BC7A 0041
+1BC7A 0062
+1BC7B 0021
+1BC7B 003F
+1BC7B 0061
+1BC7B 0041
+1BC7B 0062
+1BC7C 0021
+1BC7C 003F
+1BC7C 0061
+1BC7C 0041
+1BC7C 0062
+1BC80 0021
+1BC80 003F
+1BC80 0061
+1BC80 0041
+1BC80 0062
+1BC81 0021
+1BC81 003F
+1BC81 0061
+1BC81 0041
+1BC81 0062
+1BC82 0021
+1BC82 003F
+1BC82 0061
+1BC82 0041
+1BC82 0062
+1BC83 0021
+1BC83 003F
+1BC83 0061
+1BC83 0041
+1BC83 0062
+1BC84 0021
+1BC84 003F
+1BC84 0061
+1BC84 0041
+1BC84 0062
+1BC85 0021
+1BC85 003F
+1BC85 0061
+1BC85 0041
+1BC85 0062
+1BC86 0021
+1BC86 003F
+1BC86 0061
+1BC86 0041
+1BC86 0062
+1BC87 0021
+1BC87 003F
+1BC87 0061
+1BC87 0041
+1BC87 0062
+1BC88 0021
+1BC88 003F
+1BC88 0061
+1BC88 0041
+1BC88 0062
+1BC90 0021
+1BC90 003F
+1BC90 0061
+1BC90 0041
+1BC90 0062
+1BC91 0021
+1BC91 003F
+1BC91 0061
+1BC91 0041
+1BC91 0062
+1BC92 0021
+1BC92 003F
+1BC92 0061
+1BC92 0041
+1BC92 0062
+1BC93 0021
+1BC93 003F
+1BC93 0061
+1BC93 0041
+1BC93 0062
+1BC94 0021
+1BC94 003F
+1BC94 0061
+1BC94 0041
+1BC94 0062
+1BC95 0021
+1BC95 003F
+1BC95 0061
+1BC95 0041
+1BC95 0062
+1BC96 0021
+1BC96 003F
+1BC96 0061
+1BC96 0041
+1BC96 0062
+1BC97 0021
+1BC97 003F
+1BC97 0061
+1BC97 0041
+1BC97 0062
+1BC98 0021
+1BC98 003F
+1BC98 0061
+1BC98 0041
+1BC98 0062
+1BC99 0021
+1BC99 003F
+1BC99 0061
+1BC99 0041
+1BC99 0062
10480 0021
10480 003F
10480 0061
@@ -112738,6 +123607,466 @@ A4F7 0062
1049D 0061
1049D 0041
1049D 0062
+10500 0021
+10500 003F
+10500 0061
+10500 0041
+10500 0062
+10501 0021
+10501 003F
+10501 0061
+10501 0041
+10501 0062
+10502 0021
+10502 003F
+10502 0061
+10502 0041
+10502 0062
+10503 0021
+10503 003F
+10503 0061
+10503 0041
+10503 0062
+10504 0021
+10504 003F
+10504 0061
+10504 0041
+10504 0062
+10505 0021
+10505 003F
+10505 0061
+10505 0041
+10505 0062
+10506 0021
+10506 003F
+10506 0061
+10506 0041
+10506 0062
+10507 0021
+10507 003F
+10507 0061
+10507 0041
+10507 0062
+10508 0021
+10508 003F
+10508 0061
+10508 0041
+10508 0062
+10509 0021
+10509 003F
+10509 0061
+10509 0041
+10509 0062
+1050A 0021
+1050A 003F
+1050A 0061
+1050A 0041
+1050A 0062
+1050B 0021
+1050B 003F
+1050B 0061
+1050B 0041
+1050B 0062
+1050C 0021
+1050C 003F
+1050C 0061
+1050C 0041
+1050C 0062
+1050D 0021
+1050D 003F
+1050D 0061
+1050D 0041
+1050D 0062
+1050E 0021
+1050E 003F
+1050E 0061
+1050E 0041
+1050E 0062
+1050F 0021
+1050F 003F
+1050F 0061
+1050F 0041
+1050F 0062
+10510 0021
+10510 003F
+10510 0061
+10510 0041
+10510 0062
+10511 0021
+10511 003F
+10511 0061
+10511 0041
+10511 0062
+10512 0021
+10512 003F
+10512 0061
+10512 0041
+10512 0062
+10513 0021
+10513 003F
+10513 0061
+10513 0041
+10513 0062
+10514 0021
+10514 003F
+10514 0061
+10514 0041
+10514 0062
+10515 0021
+10515 003F
+10515 0061
+10515 0041
+10515 0062
+10516 0021
+10516 003F
+10516 0061
+10516 0041
+10516 0062
+10517 0021
+10517 003F
+10517 0061
+10517 0041
+10517 0062
+10518 0021
+10518 003F
+10518 0061
+10518 0041
+10518 0062
+10519 0021
+10519 003F
+10519 0061
+10519 0041
+10519 0062
+1051A 0021
+1051A 003F
+1051A 0061
+1051A 0041
+1051A 0062
+1051B 0021
+1051B 003F
+1051B 0061
+1051B 0041
+1051B 0062
+1051C 0021
+1051C 003F
+1051C 0061
+1051C 0041
+1051C 0062
+1051D 0021
+1051D 003F
+1051D 0061
+1051D 0041
+1051D 0062
+1051E 0021
+1051E 003F
+1051E 0061
+1051E 0041
+1051E 0062
+1051F 0021
+1051F 003F
+1051F 0061
+1051F 0041
+1051F 0062
+10520 0021
+10520 003F
+10520 0061
+10520 0041
+10520 0062
+10521 0021
+10521 003F
+10521 0061
+10521 0041
+10521 0062
+10522 0021
+10522 003F
+10522 0061
+10522 0041
+10522 0062
+10523 0021
+10523 003F
+10523 0061
+10523 0041
+10523 0062
+10524 0021
+10524 003F
+10524 0061
+10524 0041
+10524 0062
+10525 0021
+10525 003F
+10525 0061
+10525 0041
+10525 0062
+10526 0021
+10526 003F
+10526 0061
+10526 0041
+10526 0062
+10527 0021
+10527 003F
+10527 0061
+10527 0041
+10527 0062
+10530 0021
+10530 003F
+10530 0061
+10530 0041
+10530 0062
+10531 0021
+10531 003F
+10531 0061
+10531 0041
+10531 0062
+10532 0021
+10532 003F
+10532 0061
+10532 0041
+10532 0062
+10533 0021
+10533 003F
+10533 0061
+10533 0041
+10533 0062
+10534 0021
+10534 003F
+10534 0061
+10534 0041
+10534 0062
+10535 0021
+10535 003F
+10535 0061
+10535 0041
+10535 0062
+10536 0021
+10536 003F
+10536 0061
+10536 0041
+10536 0062
+10537 0021
+10537 003F
+10537 0061
+10537 0041
+10537 0062
+10538 0021
+10538 003F
+10538 0061
+10538 0041
+10538 0062
+10539 0021
+10539 003F
+10539 0061
+10539 0041
+10539 0062
+1053A 0021
+1053A 003F
+1053A 0061
+1053A 0041
+1053A 0062
+1053B 0021
+1053B 003F
+1053B 0061
+1053B 0041
+1053B 0062
+1053C 0021
+1053C 003F
+1053C 0061
+1053C 0041
+1053C 0062
+1053D 0021
+1053D 003F
+1053D 0061
+1053D 0041
+1053D 0062
+1053E 0021
+1053E 003F
+1053E 0061
+1053E 0041
+1053E 0062
+1053F 0021
+1053F 003F
+1053F 0061
+1053F 0041
+1053F 0062
+10540 0021
+10540 003F
+10540 0061
+10540 0041
+10540 0062
+10541 0021
+10541 003F
+10541 0061
+10541 0041
+10541 0062
+10542 0021
+10542 003F
+10542 0061
+10542 0041
+10542 0062
+10543 0021
+10543 003F
+10543 0061
+10543 0041
+10543 0062
+10544 0021
+10544 003F
+10544 0061
+10544 0041
+10544 0062
+10545 0021
+10545 003F
+10545 0061
+10545 0041
+10545 0062
+10546 0021
+10546 003F
+10546 0061
+10546 0041
+10546 0062
+10547 0021
+10547 003F
+10547 0061
+10547 0041
+10547 0062
+10548 0021
+10548 003F
+10548 0061
+10548 0041
+10548 0062
+10549 0021
+10549 003F
+10549 0061
+10549 0041
+10549 0062
+1054A 0021
+1054A 003F
+1054A 0061
+1054A 0041
+1054A 0062
+1054B 0021
+1054B 003F
+1054B 0061
+1054B 0041
+1054B 0062
+1054C 0021
+1054C 003F
+1054C 0061
+1054C 0041
+1054C 0062
+1054D 0021
+1054D 003F
+1054D 0061
+1054D 0041
+1054D 0062
+1054E 0021
+1054E 003F
+1054E 0061
+1054E 0041
+1054E 0062
+1054F 0021
+1054F 003F
+1054F 0061
+1054F 0041
+1054F 0062
+10550 0021
+10550 003F
+10550 0061
+10550 0041
+10550 0062
+10551 0021
+10551 003F
+10551 0061
+10551 0041
+10551 0062
+10552 0021
+10552 003F
+10552 0061
+10552 0041
+10552 0062
+10553 0021
+10553 003F
+10553 0061
+10553 0041
+10553 0062
+10554 0021
+10554 003F
+10554 0061
+10554 0041
+10554 0062
+10555 0021
+10555 003F
+10555 0061
+10555 0041
+10555 0062
+10556 0021
+10556 003F
+10556 0061
+10556 0041
+10556 0062
+10557 0021
+10557 003F
+10557 0061
+10557 0041
+10557 0062
+10558 0021
+10558 003F
+10558 0061
+10558 0041
+10558 0062
+10559 0021
+10559 003F
+10559 0061
+10559 0041
+10559 0062
+1055A 0021
+1055A 003F
+1055A 0061
+1055A 0041
+1055A 0062
+1055B 0021
+1055B 003F
+1055B 0061
+1055B 0041
+1055B 0062
+1055C 0021
+1055C 003F
+1055C 0061
+1055C 0041
+1055C 0062
+1055D 0021
+1055D 003F
+1055D 0061
+1055D 0041
+1055D 0062
+1055E 0021
+1055E 003F
+1055E 0061
+1055E 0041
+1055E 0062
+1055F 0021
+1055F 003F
+1055F 0061
+1055F 0041
+1055F 0062
+10560 0021
+10560 003F
+10560 0061
+10560 0041
+10560 0062
+10561 0021
+10561 003F
+10561 0061
+10561 0041
+10561 0062
+10562 0021
+10562 003F
+10562 0061
+10562 0041
+10562 0062
+10563 0021
+10563 003F
+10563 0061
+10563 0041
+10563 0062
110D0 0021
110D0 003F
110D0 0061
@@ -112863,6 +124192,161 @@ A4F7 0062
110E8 0061
110E8 0041
110E8 0062
+16A40 0021
+16A40 003F
+16A40 0061
+16A40 0041
+16A40 0062
+16A41 0021
+16A41 003F
+16A41 0061
+16A41 0041
+16A41 0062
+16A42 0021
+16A42 003F
+16A42 0061
+16A42 0041
+16A42 0062
+16A43 0021
+16A43 003F
+16A43 0061
+16A43 0041
+16A43 0062
+16A44 0021
+16A44 003F
+16A44 0061
+16A44 0041
+16A44 0062
+16A45 0021
+16A45 003F
+16A45 0061
+16A45 0041
+16A45 0062
+16A46 0021
+16A46 003F
+16A46 0061
+16A46 0041
+16A46 0062
+16A47 0021
+16A47 003F
+16A47 0061
+16A47 0041
+16A47 0062
+16A48 0021
+16A48 003F
+16A48 0061
+16A48 0041
+16A48 0062
+16A49 0021
+16A49 003F
+16A49 0061
+16A49 0041
+16A49 0062
+16A4A 0021
+16A4A 003F
+16A4A 0061
+16A4A 0041
+16A4A 0062
+16A4B 0021
+16A4B 003F
+16A4B 0061
+16A4B 0041
+16A4B 0062
+16A4C 0021
+16A4C 003F
+16A4C 0061
+16A4C 0041
+16A4C 0062
+16A4D 0021
+16A4D 003F
+16A4D 0061
+16A4D 0041
+16A4D 0062
+16A4E 0021
+16A4E 003F
+16A4E 0061
+16A4E 0041
+16A4E 0062
+16A4F 0021
+16A4F 003F
+16A4F 0061
+16A4F 0041
+16A4F 0062
+16A50 0021
+16A50 003F
+16A50 0061
+16A50 0041
+16A50 0062
+16A51 0021
+16A51 003F
+16A51 0061
+16A51 0041
+16A51 0062
+16A52 0021
+16A52 003F
+16A52 0061
+16A52 0041
+16A52 0062
+16A53 0021
+16A53 003F
+16A53 0061
+16A53 0041
+16A53 0062
+16A54 0021
+16A54 003F
+16A54 0061
+16A54 0041
+16A54 0062
+16A55 0021
+16A55 003F
+16A55 0061
+16A55 0041
+16A55 0062
+16A56 0021
+16A56 003F
+16A56 0061
+16A56 0041
+16A56 0062
+16A57 0021
+16A57 003F
+16A57 0061
+16A57 0041
+16A57 0062
+16A58 0021
+16A58 003F
+16A58 0061
+16A58 0041
+16A58 0062
+16A59 0021
+16A59 003F
+16A59 0061
+16A59 0041
+16A59 0062
+16A5A 0021
+16A5A 003F
+16A5A 0061
+16A5A 0041
+16A5A 0062
+16A5B 0021
+16A5B 003F
+16A5B 0061
+16A5B 0041
+16A5B 0062
+16A5C 0021
+16A5C 003F
+16A5C 0061
+16A5C 0041
+16A5C 0062
+16A5D 0021
+16A5D 003F
+16A5D 0061
+16A5D 0041
+16A5D 0062
+16A5E 0021
+16A5E 003F
+16A5E 0061
+16A5E 0041
+16A5E 0062
10000 0021
10000 003F
10000 0061
@@ -113918,6 +125402,1711 @@ A4F7 0062
100FA 0061
100FA 0041
100FA 0062
+10600 0021
+10600 003F
+10600 0061
+10600 0041
+10600 0062
+10601 0021
+10601 003F
+10601 0061
+10601 0041
+10601 0062
+10602 0021
+10602 003F
+10602 0061
+10602 0041
+10602 0062
+10603 0021
+10603 003F
+10603 0061
+10603 0041
+10603 0062
+10604 0021
+10604 003F
+10604 0061
+10604 0041
+10604 0062
+10605 0021
+10605 003F
+10605 0061
+10605 0041
+10605 0062
+10606 0021
+10606 003F
+10606 0061
+10606 0041
+10606 0062
+10607 0021
+10607 003F
+10607 0061
+10607 0041
+10607 0062
+10608 0021
+10608 003F
+10608 0061
+10608 0041
+10608 0062
+10609 0021
+10609 003F
+10609 0061
+10609 0041
+10609 0062
+1060A 0021
+1060A 003F
+1060A 0061
+1060A 0041
+1060A 0062
+1060B 0021
+1060B 003F
+1060B 0061
+1060B 0041
+1060B 0062
+1060C 0021
+1060C 003F
+1060C 0061
+1060C 0041
+1060C 0062
+1060D 0021
+1060D 003F
+1060D 0061
+1060D 0041
+1060D 0062
+1060E 0021
+1060E 003F
+1060E 0061
+1060E 0041
+1060E 0062
+1060F 0021
+1060F 003F
+1060F 0061
+1060F 0041
+1060F 0062
+10610 0021
+10610 003F
+10610 0061
+10610 0041
+10610 0062
+10611 0021
+10611 003F
+10611 0061
+10611 0041
+10611 0062
+10612 0021
+10612 003F
+10612 0061
+10612 0041
+10612 0062
+10613 0021
+10613 003F
+10613 0061
+10613 0041
+10613 0062
+10614 0021
+10614 003F
+10614 0061
+10614 0041
+10614 0062
+10615 0021
+10615 003F
+10615 0061
+10615 0041
+10615 0062
+10616 0021
+10616 003F
+10616 0061
+10616 0041
+10616 0062
+10617 0021
+10617 003F
+10617 0061
+10617 0041
+10617 0062
+10618 0021
+10618 003F
+10618 0061
+10618 0041
+10618 0062
+10619 0021
+10619 003F
+10619 0061
+10619 0041
+10619 0062
+1061A 0021
+1061A 003F
+1061A 0061
+1061A 0041
+1061A 0062
+1061B 0021
+1061B 003F
+1061B 0061
+1061B 0041
+1061B 0062
+1061C 0021
+1061C 003F
+1061C 0061
+1061C 0041
+1061C 0062
+1061D 0021
+1061D 003F
+1061D 0061
+1061D 0041
+1061D 0062
+1061E 0021
+1061E 003F
+1061E 0061
+1061E 0041
+1061E 0062
+1061F 0021
+1061F 003F
+1061F 0061
+1061F 0041
+1061F 0062
+10620 0021
+10620 003F
+10620 0061
+10620 0041
+10620 0062
+10621 0021
+10621 003F
+10621 0061
+10621 0041
+10621 0062
+10622 0021
+10622 003F
+10622 0061
+10622 0041
+10622 0062
+10623 0021
+10623 003F
+10623 0061
+10623 0041
+10623 0062
+10624 0021
+10624 003F
+10624 0061
+10624 0041
+10624 0062
+10625 0021
+10625 003F
+10625 0061
+10625 0041
+10625 0062
+10626 0021
+10626 003F
+10626 0061
+10626 0041
+10626 0062
+10627 0021
+10627 003F
+10627 0061
+10627 0041
+10627 0062
+10628 0021
+10628 003F
+10628 0061
+10628 0041
+10628 0062
+10629 0021
+10629 003F
+10629 0061
+10629 0041
+10629 0062
+1062A 0021
+1062A 003F
+1062A 0061
+1062A 0041
+1062A 0062
+1062B 0021
+1062B 003F
+1062B 0061
+1062B 0041
+1062B 0062
+1062C 0021
+1062C 003F
+1062C 0061
+1062C 0041
+1062C 0062
+1062D 0021
+1062D 003F
+1062D 0061
+1062D 0041
+1062D 0062
+1062E 0021
+1062E 003F
+1062E 0061
+1062E 0041
+1062E 0062
+1062F 0021
+1062F 003F
+1062F 0061
+1062F 0041
+1062F 0062
+10630 0021
+10630 003F
+10630 0061
+10630 0041
+10630 0062
+10631 0021
+10631 003F
+10631 0061
+10631 0041
+10631 0062
+10632 0021
+10632 003F
+10632 0061
+10632 0041
+10632 0062
+10633 0021
+10633 003F
+10633 0061
+10633 0041
+10633 0062
+10634 0021
+10634 003F
+10634 0061
+10634 0041
+10634 0062
+10635 0021
+10635 003F
+10635 0061
+10635 0041
+10635 0062
+10636 0021
+10636 003F
+10636 0061
+10636 0041
+10636 0062
+10637 0021
+10637 003F
+10637 0061
+10637 0041
+10637 0062
+10638 0021
+10638 003F
+10638 0061
+10638 0041
+10638 0062
+10639 0021
+10639 003F
+10639 0061
+10639 0041
+10639 0062
+1063A 0021
+1063A 003F
+1063A 0061
+1063A 0041
+1063A 0062
+1063B 0021
+1063B 003F
+1063B 0061
+1063B 0041
+1063B 0062
+1063C 0021
+1063C 003F
+1063C 0061
+1063C 0041
+1063C 0062
+1063D 0021
+1063D 003F
+1063D 0061
+1063D 0041
+1063D 0062
+1063E 0021
+1063E 003F
+1063E 0061
+1063E 0041
+1063E 0062
+1063F 0021
+1063F 003F
+1063F 0061
+1063F 0041
+1063F 0062
+10640 0021
+10640 003F
+10640 0061
+10640 0041
+10640 0062
+10641 0021
+10641 003F
+10641 0061
+10641 0041
+10641 0062
+10642 0021
+10642 003F
+10642 0061
+10642 0041
+10642 0062
+10643 0021
+10643 003F
+10643 0061
+10643 0041
+10643 0062
+10644 0021
+10644 003F
+10644 0061
+10644 0041
+10644 0062
+10645 0021
+10645 003F
+10645 0061
+10645 0041
+10645 0062
+10646 0021
+10646 003F
+10646 0061
+10646 0041
+10646 0062
+10647 0021
+10647 003F
+10647 0061
+10647 0041
+10647 0062
+10648 0021
+10648 003F
+10648 0061
+10648 0041
+10648 0062
+10649 0021
+10649 003F
+10649 0061
+10649 0041
+10649 0062
+1064A 0021
+1064A 003F
+1064A 0061
+1064A 0041
+1064A 0062
+1064B 0021
+1064B 003F
+1064B 0061
+1064B 0041
+1064B 0062
+1064C 0021
+1064C 003F
+1064C 0061
+1064C 0041
+1064C 0062
+1064D 0021
+1064D 003F
+1064D 0061
+1064D 0041
+1064D 0062
+1064E 0021
+1064E 003F
+1064E 0061
+1064E 0041
+1064E 0062
+1064F 0021
+1064F 003F
+1064F 0061
+1064F 0041
+1064F 0062
+10650 0021
+10650 003F
+10650 0061
+10650 0041
+10650 0062
+10651 0021
+10651 003F
+10651 0061
+10651 0041
+10651 0062
+10652 0021
+10652 003F
+10652 0061
+10652 0041
+10652 0062
+10653 0021
+10653 003F
+10653 0061
+10653 0041
+10653 0062
+10654 0021
+10654 003F
+10654 0061
+10654 0041
+10654 0062
+10655 0021
+10655 003F
+10655 0061
+10655 0041
+10655 0062
+10656 0021
+10656 003F
+10656 0061
+10656 0041
+10656 0062
+10657 0021
+10657 003F
+10657 0061
+10657 0041
+10657 0062
+10658 0021
+10658 003F
+10658 0061
+10658 0041
+10658 0062
+10659 0021
+10659 003F
+10659 0061
+10659 0041
+10659 0062
+1065A 0021
+1065A 003F
+1065A 0061
+1065A 0041
+1065A 0062
+1065B 0021
+1065B 003F
+1065B 0061
+1065B 0041
+1065B 0062
+1065C 0021
+1065C 003F
+1065C 0061
+1065C 0041
+1065C 0062
+1065D 0021
+1065D 003F
+1065D 0061
+1065D 0041
+1065D 0062
+1065E 0021
+1065E 003F
+1065E 0061
+1065E 0041
+1065E 0062
+1065F 0021
+1065F 003F
+1065F 0061
+1065F 0041
+1065F 0062
+10660 0021
+10660 003F
+10660 0061
+10660 0041
+10660 0062
+10661 0021
+10661 003F
+10661 0061
+10661 0041
+10661 0062
+10662 0021
+10662 003F
+10662 0061
+10662 0041
+10662 0062
+10663 0021
+10663 003F
+10663 0061
+10663 0041
+10663 0062
+10664 0021
+10664 003F
+10664 0061
+10664 0041
+10664 0062
+10665 0021
+10665 003F
+10665 0061
+10665 0041
+10665 0062
+10666 0021
+10666 003F
+10666 0061
+10666 0041
+10666 0062
+10667 0021
+10667 003F
+10667 0061
+10667 0041
+10667 0062
+10668 0021
+10668 003F
+10668 0061
+10668 0041
+10668 0062
+10669 0021
+10669 003F
+10669 0061
+10669 0041
+10669 0062
+1066A 0021
+1066A 003F
+1066A 0061
+1066A 0041
+1066A 0062
+1066B 0021
+1066B 003F
+1066B 0061
+1066B 0041
+1066B 0062
+1066C 0021
+1066C 003F
+1066C 0061
+1066C 0041
+1066C 0062
+1066D 0021
+1066D 003F
+1066D 0061
+1066D 0041
+1066D 0062
+1066E 0021
+1066E 003F
+1066E 0061
+1066E 0041
+1066E 0062
+1066F 0021
+1066F 003F
+1066F 0061
+1066F 0041
+1066F 0062
+10670 0021
+10670 003F
+10670 0061
+10670 0041
+10670 0062
+10671 0021
+10671 003F
+10671 0061
+10671 0041
+10671 0062
+10672 0021
+10672 003F
+10672 0061
+10672 0041
+10672 0062
+10673 0021
+10673 003F
+10673 0061
+10673 0041
+10673 0062
+10674 0021
+10674 003F
+10674 0061
+10674 0041
+10674 0062
+10675 0021
+10675 003F
+10675 0061
+10675 0041
+10675 0062
+10676 0021
+10676 003F
+10676 0061
+10676 0041
+10676 0062
+10677 0021
+10677 003F
+10677 0061
+10677 0041
+10677 0062
+10678 0021
+10678 003F
+10678 0061
+10678 0041
+10678 0062
+10679 0021
+10679 003F
+10679 0061
+10679 0041
+10679 0062
+1067A 0021
+1067A 003F
+1067A 0061
+1067A 0041
+1067A 0062
+1067B 0021
+1067B 003F
+1067B 0061
+1067B 0041
+1067B 0062
+1067C 0021
+1067C 003F
+1067C 0061
+1067C 0041
+1067C 0062
+1067D 0021
+1067D 003F
+1067D 0061
+1067D 0041
+1067D 0062
+1067E 0021
+1067E 003F
+1067E 0061
+1067E 0041
+1067E 0062
+1067F 0021
+1067F 003F
+1067F 0061
+1067F 0041
+1067F 0062
+10680 0021
+10680 003F
+10680 0061
+10680 0041
+10680 0062
+10681 0021
+10681 003F
+10681 0061
+10681 0041
+10681 0062
+10682 0021
+10682 003F
+10682 0061
+10682 0041
+10682 0062
+10683 0021
+10683 003F
+10683 0061
+10683 0041
+10683 0062
+10684 0021
+10684 003F
+10684 0061
+10684 0041
+10684 0062
+10685 0021
+10685 003F
+10685 0061
+10685 0041
+10685 0062
+10686 0021
+10686 003F
+10686 0061
+10686 0041
+10686 0062
+10687 0021
+10687 003F
+10687 0061
+10687 0041
+10687 0062
+10688 0021
+10688 003F
+10688 0061
+10688 0041
+10688 0062
+10689 0021
+10689 003F
+10689 0061
+10689 0041
+10689 0062
+1068A 0021
+1068A 003F
+1068A 0061
+1068A 0041
+1068A 0062
+1068B 0021
+1068B 003F
+1068B 0061
+1068B 0041
+1068B 0062
+1068C 0021
+1068C 003F
+1068C 0061
+1068C 0041
+1068C 0062
+1068D 0021
+1068D 003F
+1068D 0061
+1068D 0041
+1068D 0062
+1068E 0021
+1068E 003F
+1068E 0061
+1068E 0041
+1068E 0062
+1068F 0021
+1068F 003F
+1068F 0061
+1068F 0041
+1068F 0062
+10690 0021
+10690 003F
+10690 0061
+10690 0041
+10690 0062
+10691 0021
+10691 003F
+10691 0061
+10691 0041
+10691 0062
+10692 0021
+10692 003F
+10692 0061
+10692 0041
+10692 0062
+10693 0021
+10693 003F
+10693 0061
+10693 0041
+10693 0062
+10694 0021
+10694 003F
+10694 0061
+10694 0041
+10694 0062
+10695 0021
+10695 003F
+10695 0061
+10695 0041
+10695 0062
+10696 0021
+10696 003F
+10696 0061
+10696 0041
+10696 0062
+10697 0021
+10697 003F
+10697 0061
+10697 0041
+10697 0062
+10698 0021
+10698 003F
+10698 0061
+10698 0041
+10698 0062
+10699 0021
+10699 003F
+10699 0061
+10699 0041
+10699 0062
+1069A 0021
+1069A 003F
+1069A 0061
+1069A 0041
+1069A 0062
+1069B 0021
+1069B 003F
+1069B 0061
+1069B 0041
+1069B 0062
+1069C 0021
+1069C 003F
+1069C 0061
+1069C 0041
+1069C 0062
+1069D 0021
+1069D 003F
+1069D 0061
+1069D 0041
+1069D 0062
+1069E 0021
+1069E 003F
+1069E 0061
+1069E 0041
+1069E 0062
+1069F 0021
+1069F 003F
+1069F 0061
+1069F 0041
+1069F 0062
+106A0 0021
+106A0 003F
+106A0 0061
+106A0 0041
+106A0 0062
+106A1 0021
+106A1 003F
+106A1 0061
+106A1 0041
+106A1 0062
+106A2 0021
+106A2 003F
+106A2 0061
+106A2 0041
+106A2 0062
+106A3 0021
+106A3 003F
+106A3 0061
+106A3 0041
+106A3 0062
+106A4 0021
+106A4 003F
+106A4 0061
+106A4 0041
+106A4 0062
+106A5 0021
+106A5 003F
+106A5 0061
+106A5 0041
+106A5 0062
+106A6 0021
+106A6 003F
+106A6 0061
+106A6 0041
+106A6 0062
+106A7 0021
+106A7 003F
+106A7 0061
+106A7 0041
+106A7 0062
+106A8 0021
+106A8 003F
+106A8 0061
+106A8 0041
+106A8 0062
+106A9 0021
+106A9 003F
+106A9 0061
+106A9 0041
+106A9 0062
+106AA 0021
+106AA 003F
+106AA 0061
+106AA 0041
+106AA 0062
+106AB 0021
+106AB 003F
+106AB 0061
+106AB 0041
+106AB 0062
+106AC 0021
+106AC 003F
+106AC 0061
+106AC 0041
+106AC 0062
+106AD 0021
+106AD 003F
+106AD 0061
+106AD 0041
+106AD 0062
+106AE 0021
+106AE 003F
+106AE 0061
+106AE 0041
+106AE 0062
+106AF 0021
+106AF 003F
+106AF 0061
+106AF 0041
+106AF 0062
+106B0 0021
+106B0 003F
+106B0 0061
+106B0 0041
+106B0 0062
+106B1 0021
+106B1 003F
+106B1 0061
+106B1 0041
+106B1 0062
+106B2 0021
+106B2 003F
+106B2 0061
+106B2 0041
+106B2 0062
+106B3 0021
+106B3 003F
+106B3 0061
+106B3 0041
+106B3 0062
+106B4 0021
+106B4 003F
+106B4 0061
+106B4 0041
+106B4 0062
+106B5 0021
+106B5 003F
+106B5 0061
+106B5 0041
+106B5 0062
+106B6 0021
+106B6 003F
+106B6 0061
+106B6 0041
+106B6 0062
+106B7 0021
+106B7 003F
+106B7 0061
+106B7 0041
+106B7 0062
+106B8 0021
+106B8 003F
+106B8 0061
+106B8 0041
+106B8 0062
+106B9 0021
+106B9 003F
+106B9 0061
+106B9 0041
+106B9 0062
+106BA 0021
+106BA 003F
+106BA 0061
+106BA 0041
+106BA 0062
+106BB 0021
+106BB 003F
+106BB 0061
+106BB 0041
+106BB 0062
+106BC 0021
+106BC 003F
+106BC 0061
+106BC 0041
+106BC 0062
+106BD 0021
+106BD 003F
+106BD 0061
+106BD 0041
+106BD 0062
+106BE 0021
+106BE 003F
+106BE 0061
+106BE 0041
+106BE 0062
+106BF 0021
+106BF 003F
+106BF 0061
+106BF 0041
+106BF 0062
+106C0 0021
+106C0 003F
+106C0 0061
+106C0 0041
+106C0 0062
+106C1 0021
+106C1 003F
+106C1 0061
+106C1 0041
+106C1 0062
+106C2 0021
+106C2 003F
+106C2 0061
+106C2 0041
+106C2 0062
+106C3 0021
+106C3 003F
+106C3 0061
+106C3 0041
+106C3 0062
+106C4 0021
+106C4 003F
+106C4 0061
+106C4 0041
+106C4 0062
+106C5 0021
+106C5 003F
+106C5 0061
+106C5 0041
+106C5 0062
+106C6 0021
+106C6 003F
+106C6 0061
+106C6 0041
+106C6 0062
+106C7 0021
+106C7 003F
+106C7 0061
+106C7 0041
+106C7 0062
+106C8 0021
+106C8 003F
+106C8 0061
+106C8 0041
+106C8 0062
+106C9 0021
+106C9 003F
+106C9 0061
+106C9 0041
+106C9 0062
+106CA 0021
+106CA 003F
+106CA 0061
+106CA 0041
+106CA 0062
+106CB 0021
+106CB 003F
+106CB 0061
+106CB 0041
+106CB 0062
+106CC 0021
+106CC 003F
+106CC 0061
+106CC 0041
+106CC 0062
+106CD 0021
+106CD 003F
+106CD 0061
+106CD 0041
+106CD 0062
+106CE 0021
+106CE 003F
+106CE 0061
+106CE 0041
+106CE 0062
+106CF 0021
+106CF 003F
+106CF 0061
+106CF 0041
+106CF 0062
+106D0 0021
+106D0 003F
+106D0 0061
+106D0 0041
+106D0 0062
+106D1 0021
+106D1 003F
+106D1 0061
+106D1 0041
+106D1 0062
+106D2 0021
+106D2 003F
+106D2 0061
+106D2 0041
+106D2 0062
+106D3 0021
+106D3 003F
+106D3 0061
+106D3 0041
+106D3 0062
+106D4 0021
+106D4 003F
+106D4 0061
+106D4 0041
+106D4 0062
+106D5 0021
+106D5 003F
+106D5 0061
+106D5 0041
+106D5 0062
+106D6 0021
+106D6 003F
+106D6 0061
+106D6 0041
+106D6 0062
+106D7 0021
+106D7 003F
+106D7 0061
+106D7 0041
+106D7 0062
+106D8 0021
+106D8 003F
+106D8 0061
+106D8 0041
+106D8 0062
+106D9 0021
+106D9 003F
+106D9 0061
+106D9 0041
+106D9 0062
+106DA 0021
+106DA 003F
+106DA 0061
+106DA 0041
+106DA 0062
+106DB 0021
+106DB 003F
+106DB 0061
+106DB 0041
+106DB 0062
+106DC 0021
+106DC 003F
+106DC 0061
+106DC 0041
+106DC 0062
+106DD 0021
+106DD 003F
+106DD 0061
+106DD 0041
+106DD 0062
+106DE 0021
+106DE 003F
+106DE 0061
+106DE 0041
+106DE 0062
+106DF 0021
+106DF 003F
+106DF 0061
+106DF 0041
+106DF 0062
+106E0 0021
+106E0 003F
+106E0 0061
+106E0 0041
+106E0 0062
+106E1 0021
+106E1 003F
+106E1 0061
+106E1 0041
+106E1 0062
+106E2 0021
+106E2 003F
+106E2 0061
+106E2 0041
+106E2 0062
+106E3 0021
+106E3 003F
+106E3 0061
+106E3 0041
+106E3 0062
+106E4 0021
+106E4 003F
+106E4 0061
+106E4 0041
+106E4 0062
+106E5 0021
+106E5 003F
+106E5 0061
+106E5 0041
+106E5 0062
+106E6 0021
+106E6 003F
+106E6 0061
+106E6 0041
+106E6 0062
+106E7 0021
+106E7 003F
+106E7 0061
+106E7 0041
+106E7 0062
+106E8 0021
+106E8 003F
+106E8 0061
+106E8 0041
+106E8 0062
+106E9 0021
+106E9 003F
+106E9 0061
+106E9 0041
+106E9 0062
+106EA 0021
+106EA 003F
+106EA 0061
+106EA 0041
+106EA 0062
+106EB 0021
+106EB 003F
+106EB 0061
+106EB 0041
+106EB 0062
+106EC 0021
+106EC 003F
+106EC 0061
+106EC 0041
+106EC 0062
+106ED 0021
+106ED 003F
+106ED 0061
+106ED 0041
+106ED 0062
+106EE 0021
+106EE 003F
+106EE 0061
+106EE 0041
+106EE 0062
+106EF 0021
+106EF 003F
+106EF 0061
+106EF 0041
+106EF 0062
+106F0 0021
+106F0 003F
+106F0 0061
+106F0 0041
+106F0 0062
+106F1 0021
+106F1 003F
+106F1 0061
+106F1 0041
+106F1 0062
+106F2 0021
+106F2 003F
+106F2 0061
+106F2 0041
+106F2 0062
+106F3 0021
+106F3 003F
+106F3 0061
+106F3 0041
+106F3 0062
+106F4 0021
+106F4 003F
+106F4 0061
+106F4 0041
+106F4 0062
+106F5 0021
+106F5 003F
+106F5 0061
+106F5 0041
+106F5 0062
+106F6 0021
+106F6 003F
+106F6 0061
+106F6 0041
+106F6 0062
+106F7 0021
+106F7 003F
+106F7 0061
+106F7 0041
+106F7 0062
+106F8 0021
+106F8 003F
+106F8 0061
+106F8 0041
+106F8 0062
+106F9 0021
+106F9 003F
+106F9 0061
+106F9 0041
+106F9 0062
+106FA 0021
+106FA 003F
+106FA 0061
+106FA 0041
+106FA 0062
+106FB 0021
+106FB 003F
+106FB 0061
+106FB 0041
+106FB 0062
+106FC 0021
+106FC 003F
+106FC 0061
+106FC 0041
+106FC 0062
+106FD 0021
+106FD 003F
+106FD 0061
+106FD 0041
+106FD 0062
+106FE 0021
+106FE 003F
+106FE 0061
+106FE 0041
+106FE 0062
+106FF 0021
+106FF 003F
+106FF 0061
+106FF 0041
+106FF 0062
+10700 0021
+10700 003F
+10700 0061
+10700 0041
+10700 0062
+10701 0021
+10701 003F
+10701 0061
+10701 0041
+10701 0062
+10702 0021
+10702 003F
+10702 0061
+10702 0041
+10702 0062
+10703 0021
+10703 003F
+10703 0061
+10703 0041
+10703 0062
+10704 0021
+10704 003F
+10704 0061
+10704 0041
+10704 0062
+10705 0021
+10705 003F
+10705 0061
+10705 0041
+10705 0062
+10706 0021
+10706 003F
+10706 0061
+10706 0041
+10706 0062
+10707 0021
+10707 003F
+10707 0061
+10707 0041
+10707 0062
+10708 0021
+10708 003F
+10708 0061
+10708 0041
+10708 0062
+10709 0021
+10709 003F
+10709 0061
+10709 0041
+10709 0062
+1070A 0021
+1070A 003F
+1070A 0061
+1070A 0041
+1070A 0062
+1070B 0021
+1070B 003F
+1070B 0061
+1070B 0041
+1070B 0062
+1070C 0021
+1070C 003F
+1070C 0061
+1070C 0041
+1070C 0062
+1070D 0021
+1070D 003F
+1070D 0061
+1070D 0041
+1070D 0062
+1070E 0021
+1070E 003F
+1070E 0061
+1070E 0041
+1070E 0062
+1070F 0021
+1070F 003F
+1070F 0061
+1070F 0041
+1070F 0062
+10710 0021
+10710 003F
+10710 0061
+10710 0041
+10710 0062
+10711 0021
+10711 003F
+10711 0061
+10711 0041
+10711 0062
+10712 0021
+10712 003F
+10712 0061
+10712 0041
+10712 0062
+10713 0021
+10713 003F
+10713 0061
+10713 0041
+10713 0062
+10714 0021
+10714 003F
+10714 0061
+10714 0041
+10714 0062
+10715 0021
+10715 003F
+10715 0061
+10715 0041
+10715 0062
+10716 0021
+10716 003F
+10716 0061
+10716 0041
+10716 0062
+10717 0021
+10717 003F
+10717 0061
+10717 0041
+10717 0062
+10718 0021
+10718 003F
+10718 0061
+10718 0041
+10718 0062
+10719 0021
+10719 003F
+10719 0061
+10719 0041
+10719 0062
+1071A 0021
+1071A 003F
+1071A 0061
+1071A 0041
+1071A 0062
+1071B 0021
+1071B 003F
+1071B 0061
+1071B 0041
+1071B 0062
+1071C 0021
+1071C 003F
+1071C 0061
+1071C 0041
+1071C 0062
+1071D 0021
+1071D 003F
+1071D 0061
+1071D 0041
+1071D 0062
+1071E 0021
+1071E 003F
+1071E 0061
+1071E 0041
+1071E 0062
+1071F 0021
+1071F 003F
+1071F 0061
+1071F 0041
+1071F 0062
+10720 0021
+10720 003F
+10720 0061
+10720 0041
+10720 0062
+10721 0021
+10721 003F
+10721 0061
+10721 0041
+10721 0062
+10722 0021
+10722 003F
+10722 0061
+10722 0041
+10722 0062
+10723 0021
+10723 003F
+10723 0061
+10723 0041
+10723 0062
+10724 0021
+10724 003F
+10724 0061
+10724 0041
+10724 0062
+10725 0021
+10725 003F
+10725 0061
+10725 0041
+10725 0062
+10726 0021
+10726 003F
+10726 0061
+10726 0041
+10726 0062
+10727 0021
+10727 003F
+10727 0061
+10727 0041
+10727 0062
+10728 0021
+10728 003F
+10728 0061
+10728 0041
+10728 0062
+10729 0021
+10729 003F
+10729 0061
+10729 0041
+10729 0062
+1072A 0021
+1072A 003F
+1072A 0061
+1072A 0041
+1072A 0062
+1072B 0021
+1072B 003F
+1072B 0061
+1072B 0041
+1072B 0062
+1072C 0021
+1072C 003F
+1072C 0061
+1072C 0041
+1072C 0062
+1072D 0021
+1072D 003F
+1072D 0061
+1072D 0041
+1072D 0062
+1072E 0021
+1072E 003F
+1072E 0061
+1072E 0041
+1072E 0062
+1072F 0021
+1072F 003F
+1072F 0061
+1072F 0041
+1072F 0062
+10730 0021
+10730 003F
+10730 0061
+10730 0041
+10730 0062
+10731 0021
+10731 003F
+10731 0061
+10731 0041
+10731 0062
+10732 0021
+10732 003F
+10732 0061
+10732 0041
+10732 0062
+10733 0021
+10733 003F
+10733 0061
+10733 0041
+10733 0062
+10734 0021
+10734 003F
+10734 0061
+10734 0041
+10734 0062
+10735 0021
+10735 003F
+10735 0061
+10735 0041
+10735 0062
+10736 0021
+10736 003F
+10736 0061
+10736 0041
+10736 0062
+10740 0021
+10740 003F
+10740 0061
+10740 0041
+10740 0062
+10741 0021
+10741 003F
+10741 0061
+10741 0041
+10741 0062
+10742 0021
+10742 003F
+10742 0061
+10742 0041
+10742 0062
+10743 0021
+10743 003F
+10743 0061
+10743 0041
+10743 0062
+10744 0021
+10744 003F
+10744 0061
+10744 0041
+10744 0062
+10745 0021
+10745 003F
+10745 0061
+10745 0041
+10745 0062
+10746 0021
+10746 003F
+10746 0061
+10746 0041
+10746 0062
+10747 0021
+10747 003F
+10747 0061
+10747 0041
+10747 0062
+10748 0021
+10748 003F
+10748 0061
+10748 0041
+10748 0062
+10749 0021
+10749 003F
+10749 0061
+10749 0041
+10749 0062
+1074A 0021
+1074A 003F
+1074A 0061
+1074A 0041
+1074A 0062
+1074B 0021
+1074B 003F
+1074B 0061
+1074B 0041
+1074B 0062
+1074C 0021
+1074C 003F
+1074C 0061
+1074C 0041
+1074C 0062
+1074D 0021
+1074D 003F
+1074D 0061
+1074D 0041
+1074D 0062
+1074E 0021
+1074E 003F
+1074E 0061
+1074E 0041
+1074E 0062
+1074F 0021
+1074F 003F
+1074F 0061
+1074F 0041
+1074F 0062
+10750 0021
+10750 003F
+10750 0061
+10750 0041
+10750 0062
+10751 0021
+10751 003F
+10751 0061
+10751 0041
+10751 0062
+10752 0021
+10752 003F
+10752 0061
+10752 0041
+10752 0062
+10753 0021
+10753 003F
+10753 0061
+10753 0041
+10753 0062
+10754 0021
+10754 003F
+10754 0061
+10754 0041
+10754 0062
+10755 0021
+10755 003F
+10755 0061
+10755 0041
+10755 0062
+10760 0021
+10760 003F
+10760 0061
+10760 0041
+10760 0062
+10761 0021
+10761 003F
+10761 0061
+10761 0041
+10761 0062
+10762 0021
+10762 003F
+10762 0061
+10762 0041
+10762 0062
+10763 0021
+10763 003F
+10763 0061
+10763 0041
+10763 0062
+10764 0021
+10764 003F
+10764 0061
+10764 0041
+10764 0062
+10765 0021
+10765 003F
+10765 0061
+10765 0041
+10765 0062
+10766 0021
+10766 003F
+10766 0061
+10766 0041
+10766 0062
+10767 0021
+10767 003F
+10767 0061
+10767 0041
+10767 0062
10800 0021
10800 003F
10800 0061
@@ -114338,6 +127527,151 @@ A4F7 0062
10A7C 0061
10A7C 0041
10A7C 0062
+10A80 0021
+10A80 003F
+10A80 0061
+10A80 0041
+10A80 0062
+10A81 0021
+10A81 003F
+10A81 0061
+10A81 0041
+10A81 0062
+10A82 0021
+10A82 003F
+10A82 0061
+10A82 0041
+10A82 0062
+10A83 0021
+10A83 003F
+10A83 0061
+10A83 0041
+10A83 0062
+10A84 0021
+10A84 003F
+10A84 0061
+10A84 0041
+10A84 0062
+10A85 0021
+10A85 003F
+10A85 0061
+10A85 0041
+10A85 0062
+10A86 0021
+10A86 003F
+10A86 0061
+10A86 0041
+10A86 0062
+10A87 0021
+10A87 003F
+10A87 0061
+10A87 0041
+10A87 0062
+10A88 0021
+10A88 003F
+10A88 0061
+10A88 0041
+10A88 0062
+10A89 0021
+10A89 003F
+10A89 0061
+10A89 0041
+10A89 0062
+10A8A 0021
+10A8A 003F
+10A8A 0061
+10A8A 0041
+10A8A 0062
+10A8B 0021
+10A8B 003F
+10A8B 0061
+10A8B 0041
+10A8B 0062
+10A8C 0021
+10A8C 003F
+10A8C 0061
+10A8C 0041
+10A8C 0062
+10A8D 0021
+10A8D 003F
+10A8D 0061
+10A8D 0041
+10A8D 0062
+10A8E 0021
+10A8E 003F
+10A8E 0061
+10A8E 0041
+10A8E 0062
+10A8F 0021
+10A8F 003F
+10A8F 0061
+10A8F 0041
+10A8F 0062
+10A90 0021
+10A90 003F
+10A90 0061
+10A90 0041
+10A90 0062
+10A91 0021
+10A91 003F
+10A91 0061
+10A91 0041
+10A91 0062
+10A92 0021
+10A92 003F
+10A92 0061
+10A92 0041
+10A92 0062
+10A93 0021
+10A93 003F
+10A93 0061
+10A93 0041
+10A93 0062
+10A94 0021
+10A94 003F
+10A94 0061
+10A94 0041
+10A94 0062
+10A95 0021
+10A95 003F
+10A95 0061
+10A95 0041
+10A95 0062
+10A96 0021
+10A96 003F
+10A96 0061
+10A96 0041
+10A96 0062
+10A97 0021
+10A97 003F
+10A97 0061
+10A97 0041
+10A97 0062
+10A98 0021
+10A98 003F
+10A98 0061
+10A98 0041
+10A98 0062
+10A99 0021
+10A99 003F
+10A99 0061
+10A99 0041
+10A99 0062
+10A9A 0021
+10A9A 003F
+10A9A 0061
+10A9A 0041
+10A9A 0062
+10A9B 0021
+10A9B 003F
+10A9B 0061
+10A9B 0041
+10A9B 0062
+10A9C 0021
+10A9C 003F
+10A9C 0061
+10A9C 0041
+10A9C 0062
10B00 0021
10B00 003F
10B00 0061
@@ -114608,6 +127942,276 @@ A4F7 0062
10B35 0061
10B35 0041
10B35 0062
+10860 0021
+10860 003F
+10860 0061
+10860 0041
+10860 0062
+10861 0021
+10861 003F
+10861 0061
+10861 0041
+10861 0062
+10862 0021
+10862 003F
+10862 0061
+10862 0041
+10862 0062
+10863 0021
+10863 003F
+10863 0061
+10863 0041
+10863 0062
+10864 0021
+10864 003F
+10864 0061
+10864 0041
+10864 0062
+10865 0021
+10865 003F
+10865 0061
+10865 0041
+10865 0062
+10866 0021
+10866 003F
+10866 0061
+10866 0041
+10866 0062
+10867 0021
+10867 003F
+10867 0061
+10867 0041
+10867 0062
+10868 0021
+10868 003F
+10868 0061
+10868 0041
+10868 0062
+10869 0021
+10869 003F
+10869 0061
+10869 0041
+10869 0062
+1086A 0021
+1086A 003F
+1086A 0061
+1086A 0041
+1086A 0062
+1086B 0021
+1086B 003F
+1086B 0061
+1086B 0041
+1086B 0062
+1086C 0021
+1086C 003F
+1086C 0061
+1086C 0041
+1086C 0062
+1086E 0021
+1086D 0021
+1086E 003F
+1086D 003F
+1086E 0061
+1086E 0041
+1086D 0061
+1086D 0041
+1086E 0062
+1086D 0062
+1086F 0021
+1086F 003F
+1086F 0061
+1086F 0041
+1086F 0062
+10870 0021
+10870 003F
+10870 0061
+10870 0041
+10870 0062
+10871 0021
+10871 003F
+10871 0061
+10871 0041
+10871 0062
+10872 0021
+10872 003F
+10872 0061
+10872 0041
+10872 0062
+10873 0021
+10873 003F
+10873 0061
+10873 0041
+10873 0062
+10874 0021
+10874 003F
+10874 0061
+10874 0041
+10874 0062
+10875 0021
+10875 003F
+10875 0061
+10875 0041
+10875 0062
+10876 0021
+10876 003F
+10876 0061
+10876 0041
+10876 0062
+10881 0021
+10880 0021
+10881 003F
+10880 003F
+10881 0061
+10881 0041
+10880 0061
+10880 0041
+10881 0062
+10880 0062
+10883 0021
+10882 0021
+10883 003F
+10882 003F
+10883 0061
+10883 0041
+10882 0061
+10882 0041
+10883 0062
+10882 0062
+10884 0021
+10884 003F
+10884 0061
+10884 0041
+10884 0062
+10885 0021
+10885 003F
+10885 0061
+10885 0041
+10885 0062
+10887 0021
+10886 0021
+10887 003F
+10886 003F
+10887 0061
+10887 0041
+10886 0061
+10886 0041
+10887 0062
+10886 0062
+10888 0021
+10888 003F
+10888 0061
+10888 0041
+10888 0062
+10889 0021
+10889 003F
+10889 0061
+10889 0041
+10889 0062
+1088A 0021
+1088A 003F
+1088A 0061
+1088A 0041
+1088A 0062
+1088B 0021
+1088B 003F
+1088B 0061
+1088B 0041
+1088B 0062
+1088D 0021
+1088C 0021
+1088D 003F
+1088C 003F
+1088D 0061
+1088D 0041
+1088C 0061
+1088C 0041
+1088D 0062
+1088C 0062
+1088F 0021
+1088E 0021
+1088F 003F
+1088E 003F
+1088F 0061
+1088F 0041
+1088E 0061
+1088E 0041
+1088F 0062
+1088E 0062
+10891 0021
+10890 0021
+10891 003F
+10890 003F
+10891 0061
+10891 0041
+10890 0061
+10890 0041
+10891 0062
+10890 0062
+10893 0021
+10892 0021
+10893 003F
+10892 003F
+10893 0061
+10893 0041
+10892 0061
+10892 0041
+10893 0062
+10892 0062
+10895 0021
+10894 0021
+10895 003F
+10894 003F
+10895 0061
+10895 0041
+10894 0061
+10894 0041
+10895 0062
+10894 0062
+10896 0021
+10896 003F
+10896 0061
+10896 0041
+10896 0062
+10897 0021
+10897 003F
+10897 0061
+10897 0041
+10897 0062
+10898 0021
+10898 003F
+10898 0061
+10898 0041
+10898 0062
+10899 0021
+10899 003F
+10899 0061
+10899 0041
+10899 0062
+1089A 0021
+1089A 003F
+1089A 0061
+1089A 0041
+1089A 0062
+1089B 0021
+1089B 003F
+1089B 0061
+1089B 0041
+1089B 0062
+1089D 0021
+1089C 0021
+1089D 003F
+1089C 003F
+1089D 0061
+1089D 0041
+1089C 0061
+1089C 0041
+1089D 0062
+1089C 0062
+1089E 0021
+1089E 003F
+1089E 0061
+1089E 0041
+1089E 0062
10840 0021
10840 003F
10840 0061
@@ -114923,6 +128527,281 @@ A4F7 0062
10B72 0061
10B72 0041
10B72 0062
+10B80 0021
+10B80 003F
+10B80 0061
+10B80 0041
+10B80 0062
+10B81 0021
+10B81 003F
+10B81 0061
+10B81 0041
+10B81 0062
+10B82 0021
+10B82 003F
+10B82 0061
+10B82 0041
+10B82 0062
+10B83 0021
+10B83 003F
+10B83 0061
+10B83 0041
+10B83 0062
+10B84 0021
+10B84 003F
+10B84 0061
+10B84 0041
+10B84 0062
+10B85 0021
+10B85 003F
+10B85 0061
+10B85 0041
+10B85 0062
+10B86 0021
+10B86 003F
+10B86 0061
+10B86 0041
+10B86 0062
+10B87 0021
+10B87 003F
+10B87 0061
+10B87 0041
+10B87 0062
+10B88 0021
+10B88 003F
+10B88 0061
+10B88 0041
+10B88 0062
+10B89 0021
+10B89 003F
+10B89 0061
+10B89 0041
+10B89 0062
+10B8A 0021
+10B8A 003F
+10B8A 0061
+10B8A 0041
+10B8A 0062
+10B8B 0021
+10B8B 003F
+10B8B 0061
+10B8B 0041
+10B8B 0062
+10B8C 0021
+10B8C 003F
+10B8C 0061
+10B8C 0041
+10B8C 0062
+10B8D 0021
+10B8D 003F
+10B8D 0061
+10B8D 0041
+10B8D 0062
+10B8E 0021
+10B8E 003F
+10B8E 0061
+10B8E 0041
+10B8E 0062
+10B8F 0021
+10B8F 003F
+10B8F 0061
+10B8F 0041
+10B8F 0062
+10B90 0021
+10B90 003F
+10B90 0061
+10B90 0041
+10B90 0062
+10B91 0021
+10B91 003F
+10B91 0061
+10B91 0041
+10B91 0062
+10AC0 0021
+10AC0 003F
+10AC0 0061
+10AC0 0041
+10AC0 0062
+10AC1 0021
+10AC1 003F
+10AC1 0061
+10AC1 0041
+10AC1 0062
+10AC2 0021
+10AC2 003F
+10AC2 0061
+10AC2 0041
+10AC2 0062
+10AC3 0021
+10AC3 003F
+10AC3 0061
+10AC3 0041
+10AC3 0062
+10AC4 0021
+10AC4 003F
+10AC4 0061
+10AC4 0041
+10AC4 0062
+10AC5 0021
+10AC5 003F
+10AC5 0061
+10AC5 0041
+10AC5 0062
+10AC6 0021
+10AC6 003F
+10AC6 0061
+10AC6 0041
+10AC6 0062
+10AC7 0021
+10AC8 0021
+10AC7 003F
+10AC8 003F
+10AC7 0061
+10AC7 0041
+10AC8 0061
+10AC8 0041
+10AC7 0062
+10AC8 0062
+10AC9 0021
+10AC9 003F
+10AC9 0061
+10AC9 0041
+10AC9 0062
+10ACA 0021
+10ACA 003F
+10ACA 0061
+10ACA 0041
+10ACA 0062
+10ACB 0021
+10ACB 003F
+10ACB 0061
+10ACB 0041
+10ACB 0062
+10ACC 0021
+10ACC 003F
+10ACC 0061
+10ACC 0041
+10ACC 0062
+10ACD 0021
+10ACD 003F
+10ACD 0061
+10ACD 0041
+10ACD 0062
+10ACE 0021
+10ACE 003F
+10ACE 0061
+10ACE 0041
+10ACE 0062
+10ACF 0021
+10ACF 003F
+10ACF 0061
+10ACF 0041
+10ACF 0062
+10AD0 0021
+10AD0 003F
+10AD0 0061
+10AD0 0041
+10AD0 0062
+10AD1 0021
+10AD1 003F
+10AD1 0061
+10AD1 0041
+10AD1 0062
+10AD2 0021
+10AD2 003F
+10AD2 0061
+10AD2 0041
+10AD2 0062
+10AD3 0021
+10AD3 003F
+10AD3 0061
+10AD3 0041
+10AD3 0062
+10AD4 0021
+10AD4 003F
+10AD4 0061
+10AD4 0041
+10AD4 0062
+10AD5 0021
+10AD5 003F
+10AD5 0061
+10AD5 0041
+10AD5 0062
+10AD6 0021
+10AD6 003F
+10AD6 0061
+10AD6 0041
+10AD6 0062
+10AD7 0021
+10AD7 003F
+10AD7 0061
+10AD7 0041
+10AD7 0062
+10AD8 0021
+10AD8 003F
+10AD8 0061
+10AD8 0041
+10AD8 0062
+10AD9 0021
+10AD9 003F
+10AD9 0061
+10AD9 0041
+10AD9 0062
+10ADA 0021
+10ADA 003F
+10ADA 0061
+10ADA 0041
+10ADA 0062
+10ADB 0021
+10ADB 003F
+10ADB 0061
+10ADB 0041
+10ADB 0062
+10ADC 0021
+10ADC 003F
+10ADC 0061
+10ADC 0041
+10ADC 0062
+10ADD 0021
+10ADD 003F
+10ADD 0061
+10ADD 0041
+10ADD 0062
+10ADE 0021
+10ADE 003F
+10ADE 0061
+10ADE 0041
+10ADE 0062
+10ADF 0021
+10ADF 003F
+10ADF 0061
+10ADF 0041
+10ADF 0062
+10AE0 0021
+10AE0 003F
+10AE0 0061
+10AE0 0041
+10AE0 0062
+10AE1 0021
+10AE1 003F
+10AE1 0061
+10AE1 0041
+10AE1 0062
+10AE2 0021
+10AE2 003F
+10AE2 0061
+10AE2 0041
+10AE2 0062
+10AE3 0021
+10AE3 003F
+10AE3 0061
+10AE3 0041
+10AE3 0062
+10AE4 0021
+10AE4 003F
+10AE4 0061
+10AE4 0041
+10AE4 0062
10380 0021
10380 003F
10380 0061
@@ -118348,6 +132227,16 @@ A4F7 0062
12262 0061
12262 0041
12262 0062
+122D4 0021
+122D4 003F
+122D4 0061
+122D4 0041
+122D4 0062
+122D5 0021
+122D5 003F
+122D5 0061
+122D5 0041
+122D5 0062
12263 0021
12263 003F
12263 0061
@@ -118913,16 +132802,6 @@ A4F7 0062
122D3 0061
122D3 0041
122D3 0062
-122D4 0021
-122D4 003F
-122D4 0061
-122D4 0041
-122D4 0062
-122D5 0021
-122D5 003F
-122D5 0061
-122D5 0041
-122D5 0062
122D6 0021
122D6 003F
122D6 0061
@@ -119688,6 +133567,216 @@ A4F7 0062
1236E 0061
1236E 0041
1236E 0062
+1236F 0021
+1236F 003F
+1236F 0061
+1236F 0041
+1236F 0062
+12370 0021
+12370 003F
+12370 0061
+12370 0041
+12370 0062
+12371 0021
+12371 003F
+12371 0061
+12371 0041
+12371 0062
+12372 0021
+12372 003F
+12372 0061
+12372 0041
+12372 0062
+12373 0021
+12373 003F
+12373 0061
+12373 0041
+12373 0062
+12374 0021
+12374 003F
+12374 0061
+12374 0041
+12374 0062
+12375 0021
+12375 003F
+12375 0061
+12375 0041
+12375 0062
+12376 0021
+12376 003F
+12376 0061
+12376 0041
+12376 0062
+12377 0021
+12377 003F
+12377 0061
+12377 0041
+12377 0062
+12378 0021
+12378 003F
+12378 0061
+12378 0041
+12378 0062
+12379 0021
+12379 003F
+12379 0061
+12379 0041
+12379 0062
+1237A 0021
+1237A 003F
+1237A 0061
+1237A 0041
+1237A 0062
+1237B 0021
+1237B 003F
+1237B 0061
+1237B 0041
+1237B 0062
+1237C 0021
+1237C 003F
+1237C 0061
+1237C 0041
+1237C 0062
+1237D 0021
+1237D 003F
+1237D 0061
+1237D 0041
+1237D 0062
+1237E 0021
+1237E 003F
+1237E 0061
+1237E 0041
+1237E 0062
+1237F 0021
+1237F 003F
+1237F 0061
+1237F 0041
+1237F 0062
+12380 0021
+12380 003F
+12380 0061
+12380 0041
+12380 0062
+12381 0021
+12381 003F
+12381 0061
+12381 0041
+12381 0062
+12382 0021
+12382 003F
+12382 0061
+12382 0041
+12382 0062
+12383 0021
+12383 003F
+12383 0061
+12383 0041
+12383 0062
+12384 0021
+12384 003F
+12384 0061
+12384 0041
+12384 0062
+12385 0021
+12385 003F
+12385 0061
+12385 0041
+12385 0062
+12386 0021
+12386 003F
+12386 0061
+12386 0041
+12386 0062
+12387 0021
+12387 003F
+12387 0061
+12387 0041
+12387 0062
+12388 0021
+12388 003F
+12388 0061
+12388 0041
+12388 0062
+12389 0021
+12389 003F
+12389 0061
+12389 0041
+12389 0062
+1238A 0021
+1238A 003F
+1238A 0061
+1238A 0041
+1238A 0062
+1238B 0021
+1238B 003F
+1238B 0061
+1238B 0041
+1238B 0062
+1238C 0021
+1238C 003F
+1238C 0061
+1238C 0041
+1238C 0062
+1238D 0021
+1238D 003F
+1238D 0061
+1238D 0041
+1238D 0062
+1238E 0021
+1238E 003F
+1238E 0061
+1238E 0041
+1238E 0062
+1238F 0021
+1238F 003F
+1238F 0061
+1238F 0041
+1238F 0062
+12390 0021
+12390 003F
+12390 0061
+12390 0041
+12390 0062
+12391 0021
+12391 003F
+12391 0061
+12391 0041
+12391 0062
+12392 0021
+12392 003F
+12392 0061
+12392 0041
+12392 0062
+12393 0021
+12393 003F
+12393 0061
+12393 0041
+12393 0062
+12394 0021
+12394 003F
+12394 0061
+12394 0041
+12394 0062
+12395 0021
+12395 003F
+12395 0061
+12395 0041
+12395 0062
+12396 0021
+12396 003F
+12396 0061
+12396 0041
+12396 0062
+12397 0021
+12397 003F
+12397 0061
+12397 0041
+12397 0062
+12398 0021
+12398 003F
+12398 0061
+12398 0041
+12398 0062
13000 0021
13000 003F
13000 0061
@@ -125448,11 +139537,6 @@ FA70 0062
2F01 0061
2F01 0041
2F01 0062
-2EA6 0021
-2EA6 003F
-2EA6 0061
-2EA6 0041
-2EA6 0062
32A5 0021
3197 0021
1F22D 0021
@@ -125493,11 +139577,6 @@ F95E 003F
F95E 0061
F95E 0041
F95E 0062
-2F800 0021
-2F800 003F
-2F800 0061
-2F800 0041
-2F800 0062
2F03 0021
2F03 003F
2F03 0061
@@ -126148,11 +140227,6 @@ F9EB 0062
2F17 0062
3038 0062
3289 0062
-3039 0021
-3039 003F
-3039 0061
-3039 0041
-3039 0062
303A 0021
303A 003F
303A 0061
@@ -126483,21 +140557,11 @@ FA37 0041
2F84C 0041
FA37 0062
2F84C 0062
-2F84E 0021
-2F84E 003F
-2F84E 0061
-2F84E 0041
-2F84E 0062
FA38 0021
FA38 003F
FA38 0061
FA38 0041
FA38 0062
-2F84F 0021
-2F84F 003F
-2F84F 0061
-2F84F 0041
-2F84F 0062
2F1E 0021
2F1E 003F
2F1E 0061
@@ -126548,11 +140612,6 @@ F9A9 0062
2F855 0061
2F855 0041
2F855 0062
-2F852 0021
-2F852 003F
-2F852 0061
-2F852 0041
-2F852 0062
2F853 0021
2F853 003F
2F853 0061
@@ -126593,11 +140652,6 @@ F96C 003F
F96C 0061
F96C 0041
F96C 0062
-FA3A 0021
-FA3A 003F
-FA3A 0061
-FA3A 0041
-FA3A 0062
2F858 0021
2F858 003F
2F858 0061
@@ -126748,11 +140802,6 @@ F981 0062
2F865 0061
2F865 0041
2F865 0062
-2F862 0021
-2F862 003F
-2F862 0061
-2F862 0041
-2F862 0062
2F863 0021
2F863 003F
2F863 0061
@@ -126873,11 +140922,6 @@ F9BC 0062
2F872 0061
2F872 0041
2F872 0062
-2F873 0021
-2F873 003F
-2F873 0061
-2F873 0041
-2F873 0062
2F29 0021
2E8C 0021
2E8D 0021
@@ -126973,11 +141017,6 @@ FA3C 0062
2F2D 0061
2F2D 0041
2F2D 0062
-2F87A 0021
-2F87A 003F
-2F87A 0061
-2F87A 0041
-2F87A 0062
2F879 0021
2F879 003F
2F879 0061
@@ -127028,11 +141067,6 @@ F9AB 0062
2F2E 0061
2F2E 0041
2F2E 0062
-2F881 0021
-2F881 003F
-2F881 0061
-2F881 0041
-2F881 0062
2F882 0021
2F882 003F
2F882 0061
@@ -127148,16 +141182,6 @@ F9A2 003F
F9A2 0061
F9A2 0041
F9A2 0062
-F928 0021
-2F88E 0021
-F928 003F
-2F88E 003F
-F928 0061
-2F88E 0061
-F928 0041
-2F88E 0041
-F928 0062
-2F88E 0062
FA82 0021
FA82 003F
FA82 0061
@@ -127278,11 +141302,6 @@ F9D8 0062
1F250 0061
1F250 0041
1F250 0062
-2F89C 0021
-2F89C 003F
-2F89C 0061
-2F89C 0041
-2F89C 0062
F966 0021
F966 003F
F966 0061
@@ -127413,11 +141432,6 @@ FA8A 003F
FA8A 0061
FA8A 0041
FA8A 0062
-FA3E 0021
-FA3E 003F
-FA3E 0061
-FA3E 0041
-FA3E 0062
2F8AA 0021
2F8AA 003F
2F8AA 0061
@@ -127638,11 +141652,6 @@ FA8D 003F
FA8D 0061
FA8D 0041
FA8D 0062
-2F8C0 0021
-2F8C0 003F
-2F8C0 0061
-2F8C0 0041
-2F8C0 0062
2F8BD 0021
2F8BD 003F
2F8BD 0061
@@ -127658,11 +141667,6 @@ FA8E 0062
2F8BF 0061
2F8BF 0041
2F8BF 0062
-FA8F 0021
-FA8F 003F
-FA8F 0061
-FA8F 0041
-FA8F 0062
2F8C3 0021
2F8C3 003F
2F8C3 0061
@@ -127853,16 +141857,6 @@ F9C5 003F
F9C5 0061
F9C5 0041
F9C5 0062
-FA43 0021
-2F8CF 0021
-FA43 003F
-2F8CF 003F
-FA43 0061
-2F8CF 0061
-FA43 0041
-2F8CF 0041
-FA43 0062
-2F8CF 0062
2F8D5 0021
2F8D5 003F
2F8D5 0061
@@ -127893,11 +141887,6 @@ F901 0062
2F8CC 0061
2F8CC 0041
2F8CC 0062
-2F8D4 0021
-2F8D4 003F
-2F8D4 0061
-2F8D4 0041
-2F8D4 0062
2F49 0021
328A 0021
1F237 0021
@@ -128303,11 +142292,6 @@ F9E3 0062
329F 0061
329F 0041
329F 0062
-2F8FF 0021
-2F8FF 003F
-2F8FF 0061
-2F8FF 0041
-2F8FF 0062
F915 0021
F915 003F
F915 0061
@@ -128393,11 +142377,6 @@ F9D6 0062
2F90E 0061
2F90E 0041
2F90E 0062
-FA46 0021
-FA46 003F
-FA46 0061
-FA46 0041
-FA46 0062
2F908 0021
2F908 003F
2F908 0061
@@ -128428,16 +142407,6 @@ F9EC 0062
2F90C 0061
2F90C 0041
2F90C 0062
-FA99 0021
-2F90B 0021
-FA99 003F
-2F90B 003F
-FA99 0061
-2F90B 0061
-FA99 0041
-2F90B 0041
-FA99 0062
-2F90B 0062
F904 0021
F904 003F
F904 0061
@@ -128583,16 +142552,6 @@ F993 003F
F993 0061
F993 0041
F993 0062
-FA48 0021
-FA9C 0021
-FA48 003F
-FA9C 003F
-FA48 0061
-FA9C 0061
-FA48 0041
-FA9C 0041
-FA48 0062
-FA9C 0062
2F91E 0021
2F91E 003F
2F91E 0061
@@ -128703,11 +142662,6 @@ F946 0062
3295 0061
3295 0041
3295 0062
-2F924 0021
-2F924 003F
-2F924 0061
-2F924 0041
-2F924 0062
2F925 0021
2F925 003F
2F925 0061
@@ -128738,16 +142692,6 @@ F92B 003F
F92B 0061
F92B 0041
F92B 0062
-FA16 0021
-FAA0 0021
-FA16 003F
-FAA0 003F
-FA16 0061
-FAA0 0061
-FA16 0041
-FAA0 0041
-FA16 0062
-FAA0 0062
F9A7 0021
F9A7 003F
F9A7 0061
@@ -128808,11 +142752,6 @@ F9E4 003F
F9E4 0061
F9E4 0041
F9E4 0062
-F9CC 0021
-F9CC 003F
-F9CC 0061
-F9CC 0041
-F9CC 0062
FA4A 0021
FA4A 003F
FA4A 0061
@@ -128923,11 +142862,6 @@ FAA2 0062
329A 0061
329A 0041
329A 0062
-FAA3 0021
-FAA3 003F
-FAA3 0061
-FAA3 0041
-FAA3 0062
2F936 0021
2F936 003F
2F936 0061
@@ -128943,16 +142877,6 @@ F976 003F
F976 0061
F976 0041
F976 0062
-F962 0021
-2F938 0021
-F962 003F
-2F938 003F
-F962 0061
-2F938 0061
-F962 0041
-2F938 0041
-F962 0062
-2F938 0062
2F66 0021
2EAA 0021
2F66 003F
@@ -128983,11 +142907,6 @@ FAA4 003F
FAA4 0061
FAA4 0041
FAA4 0062
-FAA5 0021
-FAA5 003F
-FAA5 0061
-FAA5 0041
-FAA5 0062
F9C1 0021
F9C1 003F
F9C1 0061
@@ -129028,11 +142947,6 @@ FA17 0041
FAA6 0041
FA17 0062
FAA6 0062
-FAA7 0021
-FAA7 003F
-FAA7 0061
-FAA7 0041
-FAA7 0062
32AC 0021
32AC 003F
32AC 0061
@@ -129083,11 +142997,6 @@ F96D 0062
2F947 0041
2F946 0062
2F947 0062
-FAAA 0021
-FAAA 003F
-FAAA 0061
-FAAA 0041
-FAAA 0062
FAA9 0021
2F948 0021
FAA9 003F
@@ -129323,11 +143232,6 @@ FA54 0041
2F959 0041
FA54 0062
2F959 0062
-2F95A 0021
-2F95A 003F
-2F95A 0061
-2F95A 0041
-2F95A 0062
2F95B 0021
2F95B 003F
2F95B 0061
@@ -129363,11 +143267,6 @@ F9F7 0041
2F74 0041
F9F7 0062
2F74 0062
-2F95F 0021
-2F95F 003F
-2F95F 0061
-2F95F 0041
-2F95F 0062
2F75 0021
2EAE 0021
2F75 003F
@@ -129388,26 +143287,11 @@ F9F8 0062
3247 0061
3247 0041
3247 0062
-FA56 0021
-FAAD 0021
-FA56 003F
-FAAD 003F
-FA56 0061
-FAAD 0061
-FA56 0041
-FAAD 0041
-FA56 0062
-FAAD 0062
2F962 0021
2F962 003F
2F962 0061
2F962 0041
2F962 0062
-2F963 0021
-2F963 003F
-2F963 0061
-2F963 0041
-2F963 0062
F9A6 0021
F9A6 003F
F9A6 0061
@@ -129458,11 +143342,6 @@ F97B 003F
F97B 0061
F97B 0041
F97B 0062
-2F968 0021
-2F968 003F
-2F968 0061
-2F968 0041
-2F968 0062
2F77 0021
2F77 003F
2F77 0061
@@ -129498,11 +143377,6 @@ F94F 0062
1F221 0061
1F221 0041
1F221 0062
-FAAF 0021
-FAAF 003F
-FAAF 0061
-FAAF 0041
-FAAF 0062
2F96C 0021
2F96C 003F
2F96C 0061
@@ -129608,11 +143482,6 @@ FAB1 0062
2EB1 0062
2EB3 0062
2EB4 0062
-FA5A 0021
-FA5A 003F
-FA5A 0061
-FA5A 0041
-FA5A 0062
F9E6 0021
F9E6 003F
F9E6 0061
@@ -129648,11 +143517,6 @@ F90F 0062
2EB8 0061
2EB8 0041
2EB8 0062
-2F978 0021
-2F978 003F
-2F978 0061
-2F978 0041
-2F978 0062
F9AF 0021
F9AF 003F
F9AF 0061
@@ -129723,11 +143587,6 @@ F9B0 003F
F9B0 0061
F9B0 0041
F9B0 0062
-2F97D 0021
-2F97D 003F
-2F97D 0061
-2F97D 0041
-2F97D 0062
F997 0021
F997 003F
F997 0061
@@ -129958,16 +143817,6 @@ F974 0062
2F996 0061
2F996 0041
2F996 0062
-2F999 0021
-2F999 003F
-2F999 0061
-2F999 0041
-2F999 0062
-2F99C 0021
-2F99C 003F
-2F99C 0061
-2F99C 0041
-2F99C 0062
F9FE 0021
F9FE 003F
F9FE 0061
@@ -129978,21 +143827,11 @@ FAB3 003F
FAB3 0061
FAB3 0041
FAB3 0062
-2F9A0 0021
-2F9A0 003F
-2F9A0 0061
-2F9A0 0041
-2F9A0 0062
2F99A 0021
2F99A 003F
2F99A 0061
2F99A 0041
2F99A 0062
-2F99B 0021
-2F99B 003F
-2F99B 0061
-2F99B 0041
-2F99B 0062
2F99D 0021
2F99D 003F
2F99D 0061
@@ -130043,16 +143882,6 @@ F96E 003F
F96E 0061
F96E 0041
F96E 0062
-FA5F 0021
-2F99F 0021
-FA5F 003F
-2F99F 003F
-FA5F 0061
-2F99F 0061
-FA5F 0041
-2F99F 0041
-FA5F 0062
-2F99F 0062
F999 0021
F999 003F
F999 0061
@@ -130098,11 +143927,6 @@ F935 003F
F935 0061
F935 0041
F935 0062
-FA20 0021
-FA20 003F
-FA20 0061
-FA20 0041
-FA20 0062
F91F 0021
F91F 003F
F91F 0061
@@ -130153,11 +143977,6 @@ F936 0062
2F8D 0061
2F8D 0041
2F8D 0062
-2F9B8 0021
-2F9B8 003F
-2F9B8 0061
-2F9B8 0041
-2F9B8 0062
2F9B7 0021
2F9B7 003F
2F9B7 0061
@@ -130183,16 +144002,6 @@ F936 0062
2F9BD 0061
2F9BD 0041
2F9BD 0062
-FAB5 0021
-2F9BB 0021
-FAB5 003F
-2F9BB 003F
-FAB5 0061
-2F9BB 0061
-FAB5 0041
-2F9BB 0041
-FAB5 0062
-2F9BB 0062
2F9BE 0021
2F9BE 003F
2F9BE 0061
@@ -130203,16 +144012,6 @@ F911 003F
F911 0061
F911 0041
F911 0062
-2F9C0 0021
-2F9C0 003F
-2F9C0 0061
-2F9C0 0041
-2F9C0 0062
-2F9C1 0021
-2F9C1 003F
-2F9C1 0061
-2F9C1 0041
-2F9C1 0062
F927 0021
F927 003F
F927 0061
@@ -130333,16 +144132,6 @@ FA0A 0041
2F92 0041
FA0A 0062
2F92 0062
-FA61 0021
-FAB8 0021
-FA61 003F
-FAB8 003F
-FA61 0061
-FAB8 0061
-FA61 0041
-FAB8 0041
-FA61 0062
-FAB8 0062
2EC5 0021
2EC5 003F
2EC5 0061
@@ -130373,11 +144162,6 @@ FAB8 0062
2F94 0061
2F94 0041
2F94 0062
-2F9CF 0021
-2F9CF 003F
-2F9CF 0061
-2F9CF 0041
-2F9CF 0062
F96F 0021
F9A1 0021
F96F 003F
@@ -130608,11 +144392,6 @@ FAC1 0062
2ECA 0041
2F9C 0062
2ECA 0062
-2F9DB 0021
-2F9DB 003F
-2F9DB 0061
-2F9DB 0041
-2F9DB 0062
2F9DA 0021
2F9DA 003F
2F9DA 0061
@@ -130753,11 +144532,6 @@ FA67 0062
329C 0061
329C 0041
329C 0062
-FAC3 0021
-FAC3 003F
-FAC3 0061
-FAC3 0041
-FAC3 0062
F9C3 0021
F9C3 003F
F9C3 0061
@@ -130883,11 +144657,6 @@ FAC5 003F
FAC5 0061
FAC5 0041
FAC5 0062
-2F9EA 0021
-2F9EA 003F
-2F9EA 0061
-2F9EA 0041
-2F9EA 0062
2F9E8 0021
2F9E8 003F
2F9E8 0061
@@ -130908,11 +144677,6 @@ F99B 003F
F99B 0061
F99B 0041
F99B 0062
-2F9EB 0021
-2F9EB 003F
-2F9EB 0061
-2F9EB 0041
-2F9EB 0062
2F9EC 0021
2F9EC 003F
2F9EC 0061
@@ -130958,11 +144722,6 @@ F986 003F
F986 0061
F986 0041
F986 0062
-2F9F0 0021
-2F9F0 003F
-2F9F0 0061
-2F9F0 0041
-2F9F0 0062
2ED4 0021
2ED4 003F
2ED4 0061
@@ -131138,11 +144897,6 @@ FAC8 0062
2FB1 0061
2FB1 0041
2FB1 0062
-FAC9 0021
-FAC9 003F
-FAC9 0061
-FAC9 0041
-FAC9 0062
2F9FA 0021
2F9FA 003F
2F9FA 0061
@@ -131553,16 +145307,6 @@ F989 0062
2FCC 0061
2FCC 0041
2FCC 0062
-2FA18 0021
-2EEA 0021
-2FA18 003F
-2EEA 003F
-2FA18 0061
-2FA18 0041
-2EEA 0061
-2EEA 0041
-2FA18 0062
-2EEA 0062
2FA19 0021
2FA19 003F
2FA19 0061
@@ -131703,34076 +145447,6 @@ FACE 0062
2FD5 0061
2FD5 0041
2FD5 0062
-9FC8 0021
-9FC8 003F
-9FC8 0061
-9FC8 0041
-9FC8 0062
-9FC9 0021
-9FC9 003F
-9FC9 0061
-9FC9 0041
-9FC9 0062
-9FCA 0021
-9FCA 003F
-9FCA 0061
-9FCA 0041
-9FCA 0062
-9FCB 0021
-9FCB 003F
-9FCB 0061
-9FCB 0041
-9FCB 0062
-9FCC 0021
-9FCC 003F
-9FCC 0061
-9FCC 0041
-9FCC 0062
-FA0E 0021
-FA0E 003F
-FA0E 0061
-FA0E 0041
-FA0E 0062
-FA0F 0021
-FA0F 003F
-FA0F 0061
-FA0F 0041
-FA0F 0062
-FA11 0021
-FA11 003F
-FA11 0061
-FA11 0041
-FA11 0062
-FA13 0021
-FA13 003F
-FA13 0061
-FA13 0041
-FA13 0062
-FA14 0021
-FA14 003F
-FA14 0061
-FA14 0041
-FA14 0062
-FA1F 0021
-FA1F 003F
-FA1F 0061
-FA1F 0041
-FA1F 0062
-FA21 0021
-FA21 003F
-FA21 0061
-FA21 0041
-FA21 0062
-FA23 0021
-FA23 003F
-FA23 0061
-FA23 0041
-FA23 0062
-FA24 0021
-FA24 003F
-FA24 0061
-FA24 0041
-FA24 0062
-FA27 0021
-FA27 003F
-FA27 0061
-FA27 0041
-FA27 0062
-FA28 0021
-FA28 003F
-FA28 0061
-FA28 0041
-FA28 0062
-FA29 0021
-FA29 003F
-FA29 0061
-FA29 0041
-FA29 0062
-3400 0021
-3400 003F
-3400 0061
-3400 0041
-3400 0062
-3401 0021
-3401 003F
-3401 0061
-3401 0041
-3401 0062
-3402 0021
-3402 003F
-3402 0061
-3402 0041
-3402 0062
-3403 0021
-3403 003F
-3403 0061
-3403 0041
-3403 0062
-3404 0021
-3404 003F
-3404 0061
-3404 0041
-3404 0062
-3405 0021
-3405 003F
-3405 0061
-3405 0041
-3405 0062
-3406 0021
-3406 003F
-3406 0061
-3406 0041
-3406 0062
-3407 0021
-3407 003F
-3407 0061
-3407 0041
-3407 0062
-3408 0021
-3408 003F
-3408 0061
-3408 0041
-3408 0062
-3409 0021
-3409 003F
-3409 0061
-3409 0041
-3409 0062
-340A 0021
-340A 003F
-340A 0061
-340A 0041
-340A 0062
-340B 0021
-340B 003F
-340B 0061
-340B 0041
-340B 0062
-340C 0021
-340C 003F
-340C 0061
-340C 0041
-340C 0062
-340D 0021
-340D 003F
-340D 0061
-340D 0041
-340D 0062
-340E 0021
-340E 003F
-340E 0061
-340E 0041
-340E 0062
-340F 0021
-340F 003F
-340F 0061
-340F 0041
-340F 0062
-3410 0021
-3410 003F
-3410 0061
-3410 0041
-3410 0062
-3411 0021
-3411 003F
-3411 0061
-3411 0041
-3411 0062
-3412 0021
-3412 003F
-3412 0061
-3412 0041
-3412 0062
-3413 0021
-3413 003F
-3413 0061
-3413 0041
-3413 0062
-3414 0021
-3414 003F
-3414 0061
-3414 0041
-3414 0062
-3415 0021
-3415 003F
-3415 0061
-3415 0041
-3415 0062
-3416 0021
-3416 003F
-3416 0061
-3416 0041
-3416 0062
-3417 0021
-3417 003F
-3417 0061
-3417 0041
-3417 0062
-3418 0021
-3418 003F
-3418 0061
-3418 0041
-3418 0062
-3419 0021
-3419 003F
-3419 0061
-3419 0041
-3419 0062
-341A 0021
-341A 003F
-341A 0061
-341A 0041
-341A 0062
-341B 0021
-341B 003F
-341B 0061
-341B 0041
-341B 0062
-341C 0021
-341C 003F
-341C 0061
-341C 0041
-341C 0062
-341D 0021
-341D 003F
-341D 0061
-341D 0041
-341D 0062
-341E 0021
-341E 003F
-341E 0061
-341E 0041
-341E 0062
-341F 0021
-341F 003F
-341F 0061
-341F 0041
-341F 0062
-3420 0021
-3420 003F
-3420 0061
-3420 0041
-3420 0062
-3421 0021
-3421 003F
-3421 0061
-3421 0041
-3421 0062
-3422 0021
-3422 003F
-3422 0061
-3422 0041
-3422 0062
-3423 0021
-3423 003F
-3423 0061
-3423 0041
-3423 0062
-3424 0021
-3424 003F
-3424 0061
-3424 0041
-3424 0062
-3425 0021
-3425 003F
-3425 0061
-3425 0041
-3425 0062
-3426 0021
-3426 003F
-3426 0061
-3426 0041
-3426 0062
-3427 0021
-3427 003F
-3427 0061
-3427 0041
-3427 0062
-3428 0021
-3428 003F
-3428 0061
-3428 0041
-3428 0062
-3429 0021
-3429 003F
-3429 0061
-3429 0041
-3429 0062
-342A 0021
-342A 003F
-342A 0061
-342A 0041
-342A 0062
-342B 0021
-342B 003F
-342B 0061
-342B 0041
-342B 0062
-342C 0021
-342C 003F
-342C 0061
-342C 0041
-342C 0062
-342D 0021
-342D 003F
-342D 0061
-342D 0041
-342D 0062
-342E 0021
-342E 003F
-342E 0061
-342E 0041
-342E 0062
-342F 0021
-342F 003F
-342F 0061
-342F 0041
-342F 0062
-3430 0021
-3430 003F
-3430 0061
-3430 0041
-3430 0062
-3431 0021
-3431 003F
-3431 0061
-3431 0041
-3431 0062
-3432 0021
-3432 003F
-3432 0061
-3432 0041
-3432 0062
-3433 0021
-3433 003F
-3433 0061
-3433 0041
-3433 0062
-3434 0021
-3434 003F
-3434 0061
-3434 0041
-3434 0062
-3435 0021
-3435 003F
-3435 0061
-3435 0041
-3435 0062
-3436 0021
-3436 003F
-3436 0061
-3436 0041
-3436 0062
-3437 0021
-3437 003F
-3437 0061
-3437 0041
-3437 0062
-3438 0021
-3438 003F
-3438 0061
-3438 0041
-3438 0062
-3439 0021
-3439 003F
-3439 0061
-3439 0041
-3439 0062
-343A 0021
-343A 003F
-343A 0061
-343A 0041
-343A 0062
-343B 0021
-343B 003F
-343B 0061
-343B 0041
-343B 0062
-343C 0021
-343C 003F
-343C 0061
-343C 0041
-343C 0062
-343D 0021
-343D 003F
-343D 0061
-343D 0041
-343D 0062
-343E 0021
-343E 003F
-343E 0061
-343E 0041
-343E 0062
-343F 0021
-343F 003F
-343F 0061
-343F 0041
-343F 0062
-3440 0021
-3440 003F
-3440 0061
-3440 0041
-3440 0062
-3441 0021
-3441 003F
-3441 0061
-3441 0041
-3441 0062
-3442 0021
-3442 003F
-3442 0061
-3442 0041
-3442 0062
-3443 0021
-3443 003F
-3443 0061
-3443 0041
-3443 0062
-3444 0021
-3444 003F
-3444 0061
-3444 0041
-3444 0062
-3445 0021
-3445 003F
-3445 0061
-3445 0041
-3445 0062
-3446 0021
-3446 003F
-3446 0061
-3446 0041
-3446 0062
-3447 0021
-3447 003F
-3447 0061
-3447 0041
-3447 0062
-3448 0021
-3448 003F
-3448 0061
-3448 0041
-3448 0062
-3449 0021
-3449 003F
-3449 0061
-3449 0041
-3449 0062
-344A 0021
-344A 003F
-344A 0061
-344A 0041
-344A 0062
-344B 0021
-344B 003F
-344B 0061
-344B 0041
-344B 0062
-344C 0021
-344C 003F
-344C 0061
-344C 0041
-344C 0062
-344D 0021
-344D 003F
-344D 0061
-344D 0041
-344D 0062
-344E 0021
-344E 003F
-344E 0061
-344E 0041
-344E 0062
-344F 0021
-344F 003F
-344F 0061
-344F 0041
-344F 0062
-3450 0021
-3450 003F
-3450 0061
-3450 0041
-3450 0062
-3451 0021
-3451 003F
-3451 0061
-3451 0041
-3451 0062
-3452 0021
-3452 003F
-3452 0061
-3452 0041
-3452 0062
-3453 0021
-3453 003F
-3453 0061
-3453 0041
-3453 0062
-3454 0021
-3454 003F
-3454 0061
-3454 0041
-3454 0062
-3455 0021
-3455 003F
-3455 0061
-3455 0041
-3455 0062
-3456 0021
-3456 003F
-3456 0061
-3456 0041
-3456 0062
-3457 0021
-3457 003F
-3457 0061
-3457 0041
-3457 0062
-3458 0021
-3458 003F
-3458 0061
-3458 0041
-3458 0062
-3459 0021
-3459 003F
-3459 0061
-3459 0041
-3459 0062
-345A 0021
-345A 003F
-345A 0061
-345A 0041
-345A 0062
-345B 0021
-345B 003F
-345B 0061
-345B 0041
-345B 0062
-345C 0021
-345C 003F
-345C 0061
-345C 0041
-345C 0062
-345D 0021
-345D 003F
-345D 0061
-345D 0041
-345D 0062
-345E 0021
-345E 003F
-345E 0061
-345E 0041
-345E 0062
-345F 0021
-345F 003F
-345F 0061
-345F 0041
-345F 0062
-3460 0021
-3460 003F
-3460 0061
-3460 0041
-3460 0062
-3461 0021
-3461 003F
-3461 0061
-3461 0041
-3461 0062
-3462 0021
-3462 003F
-3462 0061
-3462 0041
-3462 0062
-3463 0021
-3463 003F
-3463 0061
-3463 0041
-3463 0062
-3464 0021
-3464 003F
-3464 0061
-3464 0041
-3464 0062
-3465 0021
-3465 003F
-3465 0061
-3465 0041
-3465 0062
-3466 0021
-3466 003F
-3466 0061
-3466 0041
-3466 0062
-3467 0021
-3467 003F
-3467 0061
-3467 0041
-3467 0062
-3468 0021
-3468 003F
-3468 0061
-3468 0041
-3468 0062
-3469 0021
-3469 003F
-3469 0061
-3469 0041
-3469 0062
-346A 0021
-346A 003F
-346A 0061
-346A 0041
-346A 0062
-346B 0021
-346B 003F
-346B 0061
-346B 0041
-346B 0062
-346C 0021
-346C 003F
-346C 0061
-346C 0041
-346C 0062
-346D 0021
-346D 003F
-346D 0061
-346D 0041
-346D 0062
-346E 0021
-346E 003F
-346E 0061
-346E 0041
-346E 0062
-346F 0021
-346F 003F
-346F 0061
-346F 0041
-346F 0062
-3470 0021
-3470 003F
-3470 0061
-3470 0041
-3470 0062
-3471 0021
-3471 003F
-3471 0061
-3471 0041
-3471 0062
-3472 0021
-3472 003F
-3472 0061
-3472 0041
-3472 0062
-3473 0021
-3473 003F
-3473 0061
-3473 0041
-3473 0062
-3474 0021
-3474 003F
-3474 0061
-3474 0041
-3474 0062
-3475 0021
-3475 003F
-3475 0061
-3475 0041
-3475 0062
-3476 0021
-3476 003F
-3476 0061
-3476 0041
-3476 0062
-3477 0021
-3477 003F
-3477 0061
-3477 0041
-3477 0062
-3478 0021
-3478 003F
-3478 0061
-3478 0041
-3478 0062
-3479 0021
-3479 003F
-3479 0061
-3479 0041
-3479 0062
-347A 0021
-347A 003F
-347A 0061
-347A 0041
-347A 0062
-347B 0021
-347B 003F
-347B 0061
-347B 0041
-347B 0062
-347C 0021
-347C 003F
-347C 0061
-347C 0041
-347C 0062
-347D 0021
-347D 003F
-347D 0061
-347D 0041
-347D 0062
-347E 0021
-347E 003F
-347E 0061
-347E 0041
-347E 0062
-347F 0021
-347F 003F
-347F 0061
-347F 0041
-347F 0062
-3480 0021
-3480 003F
-3480 0061
-3480 0041
-3480 0062
-3481 0021
-3481 003F
-3481 0061
-3481 0041
-3481 0062
-3482 0021
-3482 003F
-3482 0061
-3482 0041
-3482 0062
-3483 0021
-3483 003F
-3483 0061
-3483 0041
-3483 0062
-3484 0021
-3484 003F
-3484 0061
-3484 0041
-3484 0062
-3485 0021
-3485 003F
-3485 0061
-3485 0041
-3485 0062
-3486 0021
-3486 003F
-3486 0061
-3486 0041
-3486 0062
-3487 0021
-3487 003F
-3487 0061
-3487 0041
-3487 0062
-3488 0021
-3488 003F
-3488 0061
-3488 0041
-3488 0062
-3489 0021
-3489 003F
-3489 0061
-3489 0041
-3489 0062
-348A 0021
-348A 003F
-348A 0061
-348A 0041
-348A 0062
-348B 0021
-348B 003F
-348B 0061
-348B 0041
-348B 0062
-348C 0021
-348C 003F
-348C 0061
-348C 0041
-348C 0062
-348D 0021
-348D 003F
-348D 0061
-348D 0041
-348D 0062
-348E 0021
-348E 003F
-348E 0061
-348E 0041
-348E 0062
-348F 0021
-348F 003F
-348F 0061
-348F 0041
-348F 0062
-3490 0021
-3490 003F
-3490 0061
-3490 0041
-3490 0062
-3491 0021
-3491 003F
-3491 0061
-3491 0041
-3491 0062
-3492 0021
-3492 003F
-3492 0061
-3492 0041
-3492 0062
-3493 0021
-3493 003F
-3493 0061
-3493 0041
-3493 0062
-3494 0021
-3494 003F
-3494 0061
-3494 0041
-3494 0062
-3495 0021
-3495 003F
-3495 0061
-3495 0041
-3495 0062
-3496 0021
-3496 003F
-3496 0061
-3496 0041
-3496 0062
-3497 0021
-3497 003F
-3497 0061
-3497 0041
-3497 0062
-3498 0021
-3498 003F
-3498 0061
-3498 0041
-3498 0062
-3499 0021
-3499 003F
-3499 0061
-3499 0041
-3499 0062
-349A 0021
-349A 003F
-349A 0061
-349A 0041
-349A 0062
-349B 0021
-349B 003F
-349B 0061
-349B 0041
-349B 0062
-349C 0021
-349C 003F
-349C 0061
-349C 0041
-349C 0062
-349D 0021
-349D 003F
-349D 0061
-349D 0041
-349D 0062
-349E 0021
-2F80C 0021
-349E 003F
-2F80C 003F
-349E 0061
-2F80C 0061
-349E 0041
-2F80C 0041
-349E 0062
-2F80C 0062
-349F 0021
-349F 003F
-349F 0061
-349F 0041
-349F 0062
-34A0 0021
-34A0 003F
-34A0 0061
-34A0 0041
-34A0 0062
-34A1 0021
-34A1 003F
-34A1 0061
-34A1 0041
-34A1 0062
-34A2 0021
-34A2 003F
-34A2 0061
-34A2 0041
-34A2 0062
-34A3 0021
-34A3 003F
-34A3 0061
-34A3 0041
-34A3 0062
-34A4 0021
-34A4 003F
-34A4 0061
-34A4 0041
-34A4 0062
-34A5 0021
-34A5 003F
-34A5 0061
-34A5 0041
-34A5 0062
-34A6 0021
-34A6 003F
-34A6 0061
-34A6 0041
-34A6 0062
-34A7 0021
-34A7 003F
-34A7 0061
-34A7 0041
-34A7 0062
-34A8 0021
-34A8 003F
-34A8 0061
-34A8 0041
-34A8 0062
-34A9 0021
-34A9 003F
-34A9 0061
-34A9 0041
-34A9 0062
-34AA 0021
-34AA 003F
-34AA 0061
-34AA 0041
-34AA 0062
-34AB 0021
-34AB 003F
-34AB 0061
-34AB 0041
-34AB 0062
-34AC 0021
-34AC 003F
-34AC 0061
-34AC 0041
-34AC 0062
-34AD 0021
-34AD 003F
-34AD 0061
-34AD 0041
-34AD 0062
-34AE 0021
-34AE 003F
-34AE 0061
-34AE 0041
-34AE 0062
-34AF 0021
-34AF 003F
-34AF 0061
-34AF 0041
-34AF 0062
-34B0 0021
-34B0 003F
-34B0 0061
-34B0 0041
-34B0 0062
-34B1 0021
-34B1 003F
-34B1 0061
-34B1 0041
-34B1 0062
-34B2 0021
-34B2 003F
-34B2 0061
-34B2 0041
-34B2 0062
-34B3 0021
-34B3 003F
-34B3 0061
-34B3 0041
-34B3 0062
-34B4 0021
-34B4 003F
-34B4 0061
-34B4 0041
-34B4 0062
-34B5 0021
-34B5 003F
-34B5 0061
-34B5 0041
-34B5 0062
-34B6 0021
-34B6 003F
-34B6 0061
-34B6 0041
-34B6 0062
-34B7 0021
-34B7 003F
-34B7 0061
-34B7 0041
-34B7 0062
-34B8 0021
-34B8 003F
-34B8 0061
-34B8 0041
-34B8 0062
-34B9 0021
-2F813 0021
-34B9 003F
-2F813 003F
-34B9 0061
-2F813 0061
-34B9 0041
-2F813 0041
-34B9 0062
-2F813 0062
-34BA 0021
-34BA 003F
-34BA 0061
-34BA 0041
-34BA 0062
-34BB 0021
-2F9CA 0021
-34BB 003F
-2F9CA 003F
-34BB 0061
-2F9CA 0061
-34BB 0041
-2F9CA 0041
-34BB 0062
-2F9CA 0062
-34BC 0021
-34BC 003F
-34BC 0061
-34BC 0041
-34BC 0062
-34BD 0021
-34BD 003F
-34BD 0061
-34BD 0041
-34BD 0062
-34BE 0021
-34BE 003F
-34BE 0061
-34BE 0041
-34BE 0062
-34BF 0021
-34BF 003F
-34BF 0061
-34BF 0041
-34BF 0062
-34C0 0021
-34C0 003F
-34C0 0061
-34C0 0041
-34C0 0062
-34C1 0021
-34C1 003F
-34C1 0061
-34C1 0041
-34C1 0062
-34C2 0021
-34C2 003F
-34C2 0061
-34C2 0041
-34C2 0062
-34C3 0021
-34C3 003F
-34C3 0061
-34C3 0041
-34C3 0062
-34C4 0021
-34C4 003F
-34C4 0061
-34C4 0041
-34C4 0062
-34C5 0021
-34C5 003F
-34C5 0061
-34C5 0041
-34C5 0062
-34C6 0021
-34C6 003F
-34C6 0061
-34C6 0041
-34C6 0062
-34C7 0021
-34C7 003F
-34C7 0061
-34C7 0041
-34C7 0062
-34C8 0021
-34C8 003F
-34C8 0061
-34C8 0041
-34C8 0062
-34C9 0021
-34C9 003F
-34C9 0061
-34C9 0041
-34C9 0062
-34CA 0021
-34CA 003F
-34CA 0061
-34CA 0041
-34CA 0062
-34CB 0021
-34CB 003F
-34CB 0061
-34CB 0041
-34CB 0062
-34CC 0021
-34CC 003F
-34CC 0061
-34CC 0041
-34CC 0062
-34CD 0021
-34CD 003F
-34CD 0061
-34CD 0041
-34CD 0062
-34CE 0021
-34CE 003F
-34CE 0061
-34CE 0041
-34CE 0062
-34CF 0021
-34CF 003F
-34CF 0061
-34CF 0041
-34CF 0062
-34D0 0021
-34D0 003F
-34D0 0061
-34D0 0041
-34D0 0062
-34D1 0021
-34D1 003F
-34D1 0061
-34D1 0041
-34D1 0062
-34D2 0021
-34D2 003F
-34D2 0061
-34D2 0041
-34D2 0062
-34D3 0021
-34D3 003F
-34D3 0061
-34D3 0041
-34D3 0062
-34D4 0021
-34D4 003F
-34D4 0061
-34D4 0041
-34D4 0062
-34D5 0021
-34D5 003F
-34D5 0061
-34D5 0041
-34D5 0062
-34D6 0021
-34D6 003F
-34D6 0061
-34D6 0041
-34D6 0062
-34D7 0021
-34D7 003F
-34D7 0061
-34D7 0041
-34D7 0062
-34D8 0021
-34D8 003F
-34D8 0061
-34D8 0041
-34D8 0062
-34D9 0021
-34D9 003F
-34D9 0061
-34D9 0041
-34D9 0062
-34DA 0021
-34DA 003F
-34DA 0061
-34DA 0041
-34DA 0062
-34DB 0021
-34DB 003F
-34DB 0061
-34DB 0041
-34DB 0062
-34DC 0021
-34DC 003F
-34DC 0061
-34DC 0041
-34DC 0062
-34DD 0021
-34DD 003F
-34DD 0061
-34DD 0041
-34DD 0062
-34DE 0021
-34DE 003F
-34DE 0061
-34DE 0041
-34DE 0062
-34DF 0021
-2F81F 0021
-34DF 003F
-2F81F 003F
-34DF 0061
-2F81F 0061
-34DF 0041
-2F81F 0041
-34DF 0062
-2F81F 0062
-34E0 0021
-34E0 003F
-34E0 0061
-34E0 0041
-34E0 0062
-34E1 0021
-34E1 003F
-34E1 0061
-34E1 0041
-34E1 0062
-34E2 0021
-34E2 003F
-34E2 0061
-34E2 0041
-34E2 0062
-34E3 0021
-34E3 003F
-34E3 0061
-34E3 0041
-34E3 0062
-34E4 0021
-34E4 003F
-34E4 0061
-34E4 0041
-34E4 0062
-34E5 0021
-34E5 003F
-34E5 0061
-34E5 0041
-34E5 0062
-34E6 0021
-34E6 003F
-34E6 0061
-34E6 0041
-34E6 0062
-34E7 0021
-34E7 003F
-34E7 0061
-34E7 0041
-34E7 0062
-34E8 0021
-34E8 003F
-34E8 0061
-34E8 0041
-34E8 0062
-34E9 0021
-34E9 003F
-34E9 0061
-34E9 0041
-34E9 0062
-34EA 0021
-34EA 003F
-34EA 0061
-34EA 0041
-34EA 0062
-34EB 0021
-34EB 003F
-34EB 0061
-34EB 0041
-34EB 0062
-34EC 0021
-34EC 003F
-34EC 0061
-34EC 0041
-34EC 0062
-34ED 0021
-34ED 003F
-34ED 0061
-34ED 0041
-34ED 0062
-34EE 0021
-34EE 003F
-34EE 0061
-34EE 0041
-34EE 0062
-34EF 0021
-34EF 003F
-34EF 0061
-34EF 0041
-34EF 0062
-34F0 0021
-34F0 003F
-34F0 0061
-34F0 0041
-34F0 0062
-34F1 0021
-34F1 003F
-34F1 0061
-34F1 0041
-34F1 0062
-34F2 0021
-34F2 003F
-34F2 0061
-34F2 0041
-34F2 0062
-34F3 0021
-34F3 003F
-34F3 0061
-34F3 0041
-34F3 0062
-34F4 0021
-34F4 003F
-34F4 0061
-34F4 0041
-34F4 0062
-34F5 0021
-34F5 003F
-34F5 0061
-34F5 0041
-34F5 0062
-34F6 0021
-34F6 003F
-34F6 0061
-34F6 0041
-34F6 0062
-34F7 0021
-34F7 003F
-34F7 0061
-34F7 0041
-34F7 0062
-34F8 0021
-34F8 003F
-34F8 0061
-34F8 0041
-34F8 0062
-34F9 0021
-34F9 003F
-34F9 0061
-34F9 0041
-34F9 0062
-34FA 0021
-34FA 003F
-34FA 0061
-34FA 0041
-34FA 0062
-34FB 0021
-34FB 003F
-34FB 0061
-34FB 0041
-34FB 0062
-34FC 0021
-34FC 003F
-34FC 0061
-34FC 0041
-34FC 0062
-34FD 0021
-34FD 003F
-34FD 0061
-34FD 0041
-34FD 0062
-34FE 0021
-34FE 003F
-34FE 0061
-34FE 0041
-34FE 0062
-34FF 0021
-34FF 003F
-34FF 0061
-34FF 0041
-34FF 0062
-3500 0021
-3500 003F
-3500 0061
-3500 0041
-3500 0062
-3501 0021
-3501 003F
-3501 0061
-3501 0041
-3501 0062
-3502 0021
-3502 003F
-3502 0061
-3502 0041
-3502 0062
-3503 0021
-3503 003F
-3503 0061
-3503 0041
-3503 0062
-3504 0021
-3504 003F
-3504 0061
-3504 0041
-3504 0062
-3505 0021
-3505 003F
-3505 0061
-3505 0041
-3505 0062
-3506 0021
-3506 003F
-3506 0061
-3506 0041
-3506 0062
-3507 0021
-3507 003F
-3507 0061
-3507 0041
-3507 0062
-3508 0021
-3508 003F
-3508 0061
-3508 0041
-3508 0062
-3509 0021
-3509 003F
-3509 0061
-3509 0041
-3509 0062
-350A 0021
-350A 003F
-350A 0061
-350A 0041
-350A 0062
-350B 0021
-350B 003F
-350B 0061
-350B 0041
-350B 0062
-350C 0021
-350C 003F
-350C 0061
-350C 0041
-350C 0062
-350D 0021
-350D 003F
-350D 0061
-350D 0041
-350D 0062
-350E 0021
-350E 003F
-350E 0061
-350E 0041
-350E 0062
-350F 0021
-350F 003F
-350F 0061
-350F 0041
-350F 0062
-3510 0021
-3510 003F
-3510 0061
-3510 0041
-3510 0062
-3511 0021
-3511 003F
-3511 0061
-3511 0041
-3511 0062
-3512 0021
-3512 003F
-3512 0061
-3512 0041
-3512 0062
-3513 0021
-3513 003F
-3513 0061
-3513 0041
-3513 0062
-3514 0021
-3514 003F
-3514 0061
-3514 0041
-3514 0062
-3515 0021
-2F824 0021
-3515 003F
-2F824 003F
-3515 0061
-2F824 0061
-3515 0041
-2F824 0041
-3515 0062
-2F824 0062
-3516 0021
-3516 003F
-3516 0061
-3516 0041
-3516 0062
-3517 0021
-3517 003F
-3517 0061
-3517 0041
-3517 0062
-3518 0021
-3518 003F
-3518 0061
-3518 0041
-3518 0062
-3519 0021
-3519 003F
-3519 0061
-3519 0041
-3519 0062
-351A 0021
-351A 003F
-351A 0061
-351A 0041
-351A 0062
-351B 0021
-351B 003F
-351B 0061
-351B 0041
-351B 0062
-351C 0021
-351C 003F
-351C 0061
-351C 0041
-351C 0062
-351D 0021
-351D 003F
-351D 0061
-351D 0041
-351D 0062
-351E 0021
-351E 003F
-351E 0061
-351E 0041
-351E 0062
-351F 0021
-351F 003F
-351F 0061
-351F 0041
-351F 0062
-3520 0021
-3520 003F
-3520 0061
-3520 0041
-3520 0062
-3521 0021
-3521 003F
-3521 0061
-3521 0041
-3521 0062
-3522 0021
-3522 003F
-3522 0061
-3522 0041
-3522 0062
-3523 0021
-3523 003F
-3523 0061
-3523 0041
-3523 0062
-3524 0021
-3524 003F
-3524 0061
-3524 0041
-3524 0062
-3525 0021
-3525 003F
-3525 0061
-3525 0041
-3525 0062
-3526 0021
-3526 003F
-3526 0061
-3526 0041
-3526 0062
-3527 0021
-3527 003F
-3527 0061
-3527 0041
-3527 0062
-3528 0021
-3528 003F
-3528 0061
-3528 0041
-3528 0062
-3529 0021
-3529 003F
-3529 0061
-3529 0041
-3529 0062
-352A 0021
-352A 003F
-352A 0061
-352A 0041
-352A 0062
-352B 0021
-352B 003F
-352B 0061
-352B 0041
-352B 0062
-352C 0021
-352C 003F
-352C 0061
-352C 0041
-352C 0062
-352D 0021
-352D 003F
-352D 0061
-352D 0041
-352D 0062
-352E 0021
-352E 003F
-352E 0061
-352E 0041
-352E 0062
-352F 0021
-352F 003F
-352F 0061
-352F 0041
-352F 0062
-3530 0021
-3530 003F
-3530 0061
-3530 0041
-3530 0062
-3531 0021
-3531 003F
-3531 0061
-3531 0041
-3531 0062
-3532 0021
-3532 003F
-3532 0061
-3532 0041
-3532 0062
-3533 0021
-3533 003F
-3533 0061
-3533 0041
-3533 0062
-3534 0021
-3534 003F
-3534 0061
-3534 0041
-3534 0062
-3535 0021
-3535 003F
-3535 0061
-3535 0041
-3535 0062
-3536 0021
-3536 003F
-3536 0061
-3536 0041
-3536 0062
-3537 0021
-3537 003F
-3537 0061
-3537 0041
-3537 0062
-3538 0021
-3538 003F
-3538 0061
-3538 0041
-3538 0062
-3539 0021
-3539 003F
-3539 0061
-3539 0041
-3539 0062
-353A 0021
-353A 003F
-353A 0061
-353A 0041
-353A 0062
-353B 0021
-353B 003F
-353B 0061
-353B 0041
-353B 0062
-353C 0021
-353C 003F
-353C 0061
-353C 0041
-353C 0062
-353D 0021
-353D 003F
-353D 0061
-353D 0041
-353D 0062
-353E 0021
-353E 003F
-353E 0061
-353E 0041
-353E 0062
-353F 0021
-353F 003F
-353F 0061
-353F 0041
-353F 0062
-3540 0021
-3540 003F
-3540 0061
-3540 0041
-3540 0062
-3541 0021
-3541 003F
-3541 0061
-3541 0041
-3541 0062
-3542 0021
-3542 003F
-3542 0061
-3542 0041
-3542 0062
-3543 0021
-3543 003F
-3543 0061
-3543 0041
-3543 0062
-3544 0021
-3544 003F
-3544 0061
-3544 0041
-3544 0062
-3545 0021
-3545 003F
-3545 0061
-3545 0041
-3545 0062
-3546 0021
-3546 003F
-3546 0061
-3546 0041
-3546 0062
-3547 0021
-3547 003F
-3547 0061
-3547 0041
-3547 0062
-3548 0021
-3548 003F
-3548 0061
-3548 0041
-3548 0062
-3549 0021
-3549 003F
-3549 0061
-3549 0041
-3549 0062
-354A 0021
-354A 003F
-354A 0061
-354A 0041
-354A 0062
-354B 0021
-354B 003F
-354B 0061
-354B 0041
-354B 0062
-354C 0021
-354C 003F
-354C 0061
-354C 0041
-354C 0062
-354D 0021
-354D 003F
-354D 0061
-354D 0041
-354D 0062
-354E 0021
-354E 003F
-354E 0061
-354E 0041
-354E 0062
-354F 0021
-354F 003F
-354F 0061
-354F 0041
-354F 0062
-3550 0021
-3550 003F
-3550 0061
-3550 0041
-3550 0062
-3551 0021
-3551 003F
-3551 0061
-3551 0041
-3551 0062
-3552 0021
-3552 003F
-3552 0061
-3552 0041
-3552 0062
-3553 0021
-3553 003F
-3553 0061
-3553 0041
-3553 0062
-3554 0021
-3554 003F
-3554 0061
-3554 0041
-3554 0062
-3555 0021
-3555 003F
-3555 0061
-3555 0041
-3555 0062
-3556 0021
-3556 003F
-3556 0061
-3556 0041
-3556 0062
-3557 0021
-3557 003F
-3557 0061
-3557 0041
-3557 0062
-3558 0021
-3558 003F
-3558 0061
-3558 0041
-3558 0062
-3559 0021
-3559 003F
-3559 0061
-3559 0041
-3559 0062
-355A 0021
-355A 003F
-355A 0061
-355A 0041
-355A 0062
-355B 0021
-355B 003F
-355B 0061
-355B 0041
-355B 0062
-355C 0021
-355C 003F
-355C 0061
-355C 0041
-355C 0062
-355D 0021
-355D 003F
-355D 0061
-355D 0041
-355D 0062
-355E 0021
-355E 003F
-355E 0061
-355E 0041
-355E 0062
-355F 0021
-355F 003F
-355F 0061
-355F 0041
-355F 0062
-3560 0021
-3560 003F
-3560 0061
-3560 0041
-3560 0062
-3561 0021
-3561 003F
-3561 0061
-3561 0041
-3561 0062
-3562 0021
-3562 003F
-3562 0061
-3562 0041
-3562 0062
-3563 0021
-3563 003F
-3563 0061
-3563 0041
-3563 0062
-3564 0021
-3564 003F
-3564 0061
-3564 0041
-3564 0062
-3565 0021
-3565 003F
-3565 0061
-3565 0041
-3565 0062
-3566 0021
-3566 003F
-3566 0061
-3566 0041
-3566 0062
-3567 0021
-3567 003F
-3567 0061
-3567 0041
-3567 0062
-3568 0021
-3568 003F
-3568 0061
-3568 0041
-3568 0062
-3569 0021
-3569 003F
-3569 0061
-3569 0041
-3569 0062
-356A 0021
-356A 003F
-356A 0061
-356A 0041
-356A 0062
-356B 0021
-356B 003F
-356B 0061
-356B 0041
-356B 0062
-356C 0021
-356C 003F
-356C 0061
-356C 0041
-356C 0062
-356D 0021
-356D 003F
-356D 0061
-356D 0041
-356D 0062
-356E 0021
-356E 003F
-356E 0061
-356E 0041
-356E 0062
-356F 0021
-356F 003F
-356F 0061
-356F 0041
-356F 0062
-3570 0021
-3570 003F
-3570 0061
-3570 0041
-3570 0062
-3571 0021
-3571 003F
-3571 0061
-3571 0041
-3571 0062
-3572 0021
-3572 003F
-3572 0061
-3572 0041
-3572 0062
-3573 0021
-3573 003F
-3573 0061
-3573 0041
-3573 0062
-3574 0021
-3574 003F
-3574 0061
-3574 0041
-3574 0062
-3575 0021
-3575 003F
-3575 0061
-3575 0041
-3575 0062
-3576 0021
-3576 003F
-3576 0061
-3576 0041
-3576 0062
-3577 0021
-3577 003F
-3577 0061
-3577 0041
-3577 0062
-3578 0021
-3578 003F
-3578 0061
-3578 0041
-3578 0062
-3579 0021
-3579 003F
-3579 0061
-3579 0041
-3579 0062
-357A 0021
-357A 003F
-357A 0061
-357A 0041
-357A 0062
-357B 0021
-357B 003F
-357B 0061
-357B 0041
-357B 0062
-357C 0021
-357C 003F
-357C 0061
-357C 0041
-357C 0062
-357D 0021
-357D 003F
-357D 0061
-357D 0041
-357D 0062
-357E 0021
-357E 003F
-357E 0061
-357E 0041
-357E 0062
-357F 0021
-357F 003F
-357F 0061
-357F 0041
-357F 0062
-3580 0021
-3580 003F
-3580 0061
-3580 0041
-3580 0062
-3581 0021
-3581 003F
-3581 0061
-3581 0041
-3581 0062
-3582 0021
-3582 003F
-3582 0061
-3582 0041
-3582 0062
-3583 0021
-3583 003F
-3583 0061
-3583 0041
-3583 0062
-3584 0021
-3584 003F
-3584 0061
-3584 0041
-3584 0062
-3585 0021
-3585 003F
-3585 0061
-3585 0041
-3585 0062
-3586 0021
-3586 003F
-3586 0061
-3586 0041
-3586 0062
-3587 0021
-3587 003F
-3587 0061
-3587 0041
-3587 0062
-3588 0021
-3588 003F
-3588 0061
-3588 0041
-3588 0062
-3589 0021
-3589 003F
-3589 0061
-3589 0041
-3589 0062
-358A 0021
-358A 003F
-358A 0061
-358A 0041
-358A 0062
-358B 0021
-358B 003F
-358B 0061
-358B 0041
-358B 0062
-358C 0021
-358C 003F
-358C 0061
-358C 0041
-358C 0062
-358D 0021
-358D 003F
-358D 0061
-358D 0041
-358D 0062
-358E 0021
-358E 003F
-358E 0061
-358E 0041
-358E 0062
-358F 0021
-358F 003F
-358F 0061
-358F 0041
-358F 0062
-3590 0021
-3590 003F
-3590 0061
-3590 0041
-3590 0062
-3591 0021
-3591 003F
-3591 0061
-3591 0041
-3591 0062
-3592 0021
-3592 003F
-3592 0061
-3592 0041
-3592 0062
-3593 0021
-3593 003F
-3593 0061
-3593 0041
-3593 0062
-3594 0021
-3594 003F
-3594 0061
-3594 0041
-3594 0062
-3595 0021
-3595 003F
-3595 0061
-3595 0041
-3595 0062
-3596 0021
-3596 003F
-3596 0061
-3596 0041
-3596 0062
-3597 0021
-3597 003F
-3597 0061
-3597 0041
-3597 0062
-3598 0021
-3598 003F
-3598 0061
-3598 0041
-3598 0062
-3599 0021
-3599 003F
-3599 0061
-3599 0041
-3599 0062
-359A 0021
-359A 003F
-359A 0061
-359A 0041
-359A 0062
-359B 0021
-359B 003F
-359B 0061
-359B 0041
-359B 0062
-359C 0021
-359C 003F
-359C 0061
-359C 0041
-359C 0062
-359D 0021
-359D 003F
-359D 0061
-359D 0041
-359D 0062
-359E 0021
-359E 003F
-359E 0061
-359E 0041
-359E 0062
-359F 0021
-359F 003F
-359F 0061
-359F 0041
-359F 0062
-35A0 0021
-35A0 003F
-35A0 0061
-35A0 0041
-35A0 0062
-35A1 0021
-35A1 003F
-35A1 0061
-35A1 0041
-35A1 0062
-35A2 0021
-35A2 003F
-35A2 0061
-35A2 0041
-35A2 0062
-35A3 0021
-35A3 003F
-35A3 0061
-35A3 0041
-35A3 0062
-35A4 0021
-35A4 003F
-35A4 0061
-35A4 0041
-35A4 0062
-35A5 0021
-35A5 003F
-35A5 0061
-35A5 0041
-35A5 0062
-35A6 0021
-35A6 003F
-35A6 0061
-35A6 0041
-35A6 0062
-35A7 0021
-35A7 003F
-35A7 0061
-35A7 0041
-35A7 0062
-35A8 0021
-35A8 003F
-35A8 0061
-35A8 0041
-35A8 0062
-35A9 0021
-35A9 003F
-35A9 0061
-35A9 0041
-35A9 0062
-35AA 0021
-35AA 003F
-35AA 0061
-35AA 0041
-35AA 0062
-35AB 0021
-35AB 003F
-35AB 0061
-35AB 0041
-35AB 0062
-35AC 0021
-35AC 003F
-35AC 0061
-35AC 0041
-35AC 0062
-35AD 0021
-35AD 003F
-35AD 0061
-35AD 0041
-35AD 0062
-35AE 0021
-35AE 003F
-35AE 0061
-35AE 0041
-35AE 0062
-35AF 0021
-35AF 003F
-35AF 0061
-35AF 0041
-35AF 0062
-35B0 0021
-35B0 003F
-35B0 0061
-35B0 0041
-35B0 0062
-35B1 0021
-35B1 003F
-35B1 0061
-35B1 0041
-35B1 0062
-35B2 0021
-35B2 003F
-35B2 0061
-35B2 0041
-35B2 0062
-35B3 0021
-35B3 003F
-35B3 0061
-35B3 0041
-35B3 0062
-35B4 0021
-35B4 003F
-35B4 0061
-35B4 0041
-35B4 0062
-35B5 0021
-35B5 003F
-35B5 0061
-35B5 0041
-35B5 0062
-35B6 0021
-35B6 003F
-35B6 0061
-35B6 0041
-35B6 0062
-35B7 0021
-35B7 003F
-35B7 0061
-35B7 0041
-35B7 0062
-35B8 0021
-35B8 003F
-35B8 0061
-35B8 0041
-35B8 0062
-35B9 0021
-35B9 003F
-35B9 0061
-35B9 0041
-35B9 0062
-35BA 0021
-35BA 003F
-35BA 0061
-35BA 0041
-35BA 0062
-35BB 0021
-35BB 003F
-35BB 0061
-35BB 0041
-35BB 0062
-35BC 0021
-35BC 003F
-35BC 0061
-35BC 0041
-35BC 0062
-35BD 0021
-35BD 003F
-35BD 0061
-35BD 0041
-35BD 0062
-35BE 0021
-35BE 003F
-35BE 0061
-35BE 0041
-35BE 0062
-35BF 0021
-35BF 003F
-35BF 0061
-35BF 0041
-35BF 0062
-35C0 0021
-35C0 003F
-35C0 0061
-35C0 0041
-35C0 0062
-35C1 0021
-35C1 003F
-35C1 0061
-35C1 0041
-35C1 0062
-35C2 0021
-35C2 003F
-35C2 0061
-35C2 0041
-35C2 0062
-35C3 0021
-35C3 003F
-35C3 0061
-35C3 0041
-35C3 0062
-35C4 0021
-35C4 003F
-35C4 0061
-35C4 0041
-35C4 0062
-35C5 0021
-35C5 003F
-35C5 0061
-35C5 0041
-35C5 0062
-35C6 0021
-35C6 003F
-35C6 0061
-35C6 0041
-35C6 0062
-35C7 0021
-35C7 003F
-35C7 0061
-35C7 0041
-35C7 0062
-35C8 0021
-35C8 003F
-35C8 0061
-35C8 0041
-35C8 0062
-35C9 0021
-35C9 003F
-35C9 0061
-35C9 0041
-35C9 0062
-35CA 0021
-35CA 003F
-35CA 0061
-35CA 0041
-35CA 0062
-35CB 0021
-35CB 003F
-35CB 0061
-35CB 0041
-35CB 0062
-35CC 0021
-35CC 003F
-35CC 0061
-35CC 0041
-35CC 0062
-35CD 0021
-35CD 003F
-35CD 0061
-35CD 0041
-35CD 0062
-35CE 0021
-35CE 003F
-35CE 0061
-35CE 0041
-35CE 0062
-35CF 0021
-35CF 003F
-35CF 0061
-35CF 0041
-35CF 0062
-35D0 0021
-35D0 003F
-35D0 0061
-35D0 0041
-35D0 0062
-35D1 0021
-35D1 003F
-35D1 0061
-35D1 0041
-35D1 0062
-35D2 0021
-35D2 003F
-35D2 0061
-35D2 0041
-35D2 0062
-35D3 0021
-35D3 003F
-35D3 0061
-35D3 0041
-35D3 0062
-35D4 0021
-35D4 003F
-35D4 0061
-35D4 0041
-35D4 0062
-35D5 0021
-35D5 003F
-35D5 0061
-35D5 0041
-35D5 0062
-35D6 0021
-35D6 003F
-35D6 0061
-35D6 0041
-35D6 0062
-35D7 0021
-35D7 003F
-35D7 0061
-35D7 0041
-35D7 0062
-35D8 0021
-35D8 003F
-35D8 0061
-35D8 0041
-35D8 0062
-35D9 0021
-35D9 003F
-35D9 0061
-35D9 0041
-35D9 0062
-35DA 0021
-35DA 003F
-35DA 0061
-35DA 0041
-35DA 0062
-35DB 0021
-35DB 003F
-35DB 0061
-35DB 0041
-35DB 0062
-35DC 0021
-35DC 003F
-35DC 0061
-35DC 0041
-35DC 0062
-35DD 0021
-35DD 003F
-35DD 0061
-35DD 0041
-35DD 0062
-35DE 0021
-35DE 003F
-35DE 0061
-35DE 0041
-35DE 0062
-35DF 0021
-35DF 003F
-35DF 0061
-35DF 0041
-35DF 0062
-35E0 0021
-35E0 003F
-35E0 0061
-35E0 0041
-35E0 0062
-35E1 0021
-35E1 003F
-35E1 0061
-35E1 0041
-35E1 0062
-35E2 0021
-35E2 003F
-35E2 0061
-35E2 0041
-35E2 0062
-35E3 0021
-35E3 003F
-35E3 0061
-35E3 0041
-35E3 0062
-35E4 0021
-35E4 003F
-35E4 0061
-35E4 0041
-35E4 0062
-35E5 0021
-35E5 003F
-35E5 0061
-35E5 0041
-35E5 0062
-35E6 0021
-35E6 003F
-35E6 0061
-35E6 0041
-35E6 0062
-35E7 0021
-35E7 003F
-35E7 0061
-35E7 0041
-35E7 0062
-35E8 0021
-35E8 003F
-35E8 0061
-35E8 0041
-35E8 0062
-35E9 0021
-35E9 003F
-35E9 0061
-35E9 0041
-35E9 0062
-35EA 0021
-35EA 003F
-35EA 0061
-35EA 0041
-35EA 0062
-35EB 0021
-35EB 003F
-35EB 0061
-35EB 0041
-35EB 0062
-35EC 0021
-35EC 003F
-35EC 0061
-35EC 0041
-35EC 0062
-35ED 0021
-35ED 003F
-35ED 0061
-35ED 0041
-35ED 0062
-35EE 0021
-35EE 003F
-35EE 0061
-35EE 0041
-35EE 0062
-35EF 0021
-35EF 003F
-35EF 0061
-35EF 0041
-35EF 0062
-35F0 0021
-35F0 003F
-35F0 0061
-35F0 0041
-35F0 0062
-35F1 0021
-35F1 003F
-35F1 0061
-35F1 0041
-35F1 0062
-35F2 0021
-35F2 003F
-35F2 0061
-35F2 0041
-35F2 0062
-35F3 0021
-35F3 003F
-35F3 0061
-35F3 0041
-35F3 0062
-35F4 0021
-35F4 003F
-35F4 0061
-35F4 0041
-35F4 0062
-35F5 0021
-35F5 003F
-35F5 0061
-35F5 0041
-35F5 0062
-35F6 0021
-35F6 003F
-35F6 0061
-35F6 0041
-35F6 0062
-35F7 0021
-35F7 003F
-35F7 0061
-35F7 0041
-35F7 0062
-35F8 0021
-35F8 003F
-35F8 0061
-35F8 0041
-35F8 0062
-35F9 0021
-35F9 003F
-35F9 0061
-35F9 0041
-35F9 0062
-35FA 0021
-35FA 003F
-35FA 0061
-35FA 0041
-35FA 0062
-35FB 0021
-35FB 003F
-35FB 0061
-35FB 0041
-35FB 0062
-35FC 0021
-35FC 003F
-35FC 0061
-35FC 0041
-35FC 0062
-35FD 0021
-35FD 003F
-35FD 0061
-35FD 0041
-35FD 0062
-35FE 0021
-35FE 003F
-35FE 0061
-35FE 0041
-35FE 0062
-35FF 0021
-35FF 003F
-35FF 0061
-35FF 0041
-35FF 0062
-3600 0021
-3600 003F
-3600 0061
-3600 0041
-3600 0062
-3601 0021
-3601 003F
-3601 0061
-3601 0041
-3601 0062
-3602 0021
-3602 003F
-3602 0061
-3602 0041
-3602 0062
-3603 0021
-3603 003F
-3603 0061
-3603 0041
-3603 0062
-3604 0021
-3604 003F
-3604 0061
-3604 0041
-3604 0062
-3605 0021
-3605 003F
-3605 0061
-3605 0041
-3605 0062
-3606 0021
-3606 003F
-3606 0061
-3606 0041
-3606 0062
-3607 0021
-3607 003F
-3607 0061
-3607 0041
-3607 0062
-3608 0021
-3608 003F
-3608 0061
-3608 0041
-3608 0062
-3609 0021
-3609 003F
-3609 0061
-3609 0041
-3609 0062
-360A 0021
-360A 003F
-360A 0061
-360A 0041
-360A 0062
-360B 0021
-360B 003F
-360B 0061
-360B 0041
-360B 0062
-360C 0021
-360C 003F
-360C 0061
-360C 0041
-360C 0062
-360D 0021
-360D 003F
-360D 0061
-360D 0041
-360D 0062
-360E 0021
-360E 003F
-360E 0061
-360E 0041
-360E 0062
-360F 0021
-360F 003F
-360F 0061
-360F 0041
-360F 0062
-3610 0021
-3610 003F
-3610 0061
-3610 0041
-3610 0062
-3611 0021
-3611 003F
-3611 0061
-3611 0041
-3611 0062
-3612 0021
-3612 003F
-3612 0061
-3612 0041
-3612 0062
-3613 0021
-3613 003F
-3613 0061
-3613 0041
-3613 0062
-3614 0021
-3614 003F
-3614 0061
-3614 0041
-3614 0062
-3615 0021
-3615 003F
-3615 0061
-3615 0041
-3615 0062
-3616 0021
-3616 003F
-3616 0061
-3616 0041
-3616 0062
-3617 0021
-3617 003F
-3617 0061
-3617 0041
-3617 0062
-3618 0021
-3618 003F
-3618 0061
-3618 0041
-3618 0062
-3619 0021
-3619 003F
-3619 0061
-3619 0041
-3619 0062
-361A 0021
-361A 003F
-361A 0061
-361A 0041
-361A 0062
-361B 0021
-361B 003F
-361B 0061
-361B 0041
-361B 0062
-361C 0021
-361C 003F
-361C 0061
-361C 0041
-361C 0062
-361D 0021
-361D 003F
-361D 0061
-361D 0041
-361D 0062
-361E 0021
-361E 003F
-361E 0061
-361E 0041
-361E 0062
-361F 0021
-361F 003F
-361F 0061
-361F 0041
-361F 0062
-3620 0021
-3620 003F
-3620 0061
-3620 0041
-3620 0062
-3621 0021
-3621 003F
-3621 0061
-3621 0041
-3621 0062
-3622 0021
-3622 003F
-3622 0061
-3622 0041
-3622 0062
-3623 0021
-3623 003F
-3623 0061
-3623 0041
-3623 0062
-3624 0021
-3624 003F
-3624 0061
-3624 0041
-3624 0062
-3625 0021
-3625 003F
-3625 0061
-3625 0041
-3625 0062
-3626 0021
-3626 003F
-3626 0061
-3626 0041
-3626 0062
-3627 0021
-3627 003F
-3627 0061
-3627 0041
-3627 0062
-3628 0021
-3628 003F
-3628 0061
-3628 0041
-3628 0062
-3629 0021
-3629 003F
-3629 0061
-3629 0041
-3629 0062
-362A 0021
-362A 003F
-362A 0061
-362A 0041
-362A 0062
-362B 0021
-362B 003F
-362B 0061
-362B 0041
-362B 0062
-362C 0021
-362C 003F
-362C 0061
-362C 0041
-362C 0062
-362D 0021
-362D 003F
-362D 0061
-362D 0041
-362D 0062
-362E 0021
-362E 003F
-362E 0061
-362E 0041
-362E 0062
-362F 0021
-362F 003F
-362F 0061
-362F 0041
-362F 0062
-3630 0021
-3630 003F
-3630 0061
-3630 0041
-3630 0062
-3631 0021
-3631 003F
-3631 0061
-3631 0041
-3631 0062
-3632 0021
-3632 003F
-3632 0061
-3632 0041
-3632 0062
-3633 0021
-3633 003F
-3633 0061
-3633 0041
-3633 0062
-3634 0021
-3634 003F
-3634 0061
-3634 0041
-3634 0062
-3635 0021
-3635 003F
-3635 0061
-3635 0041
-3635 0062
-3636 0021
-3636 003F
-3636 0061
-3636 0041
-3636 0062
-3637 0021
-3637 003F
-3637 0061
-3637 0041
-3637 0062
-3638 0021
-3638 003F
-3638 0061
-3638 0041
-3638 0062
-3639 0021
-3639 003F
-3639 0061
-3639 0041
-3639 0062
-363A 0021
-363A 003F
-363A 0061
-363A 0041
-363A 0062
-363B 0021
-363B 003F
-363B 0061
-363B 0041
-363B 0062
-363C 0021
-363C 003F
-363C 0061
-363C 0041
-363C 0062
-363D 0021
-363D 003F
-363D 0061
-363D 0041
-363D 0062
-363E 0021
-363E 003F
-363E 0061
-363E 0041
-363E 0062
-363F 0021
-363F 003F
-363F 0061
-363F 0041
-363F 0062
-3640 0021
-3640 003F
-3640 0061
-3640 0041
-3640 0062
-3641 0021
-3641 003F
-3641 0061
-3641 0041
-3641 0062
-3642 0021
-3642 003F
-3642 0061
-3642 0041
-3642 0062
-3643 0021
-3643 003F
-3643 0061
-3643 0041
-3643 0062
-3644 0021
-3644 003F
-3644 0061
-3644 0041
-3644 0062
-3645 0021
-3645 003F
-3645 0061
-3645 0041
-3645 0062
-3646 0021
-3646 003F
-3646 0061
-3646 0041
-3646 0062
-3647 0021
-3647 003F
-3647 0061
-3647 0041
-3647 0062
-3648 0021
-3648 003F
-3648 0061
-3648 0041
-3648 0062
-3649 0021
-3649 003F
-3649 0061
-3649 0041
-3649 0062
-364A 0021
-364A 003F
-364A 0061
-364A 0041
-364A 0062
-364B 0021
-364B 003F
-364B 0061
-364B 0041
-364B 0062
-364C 0021
-364C 003F
-364C 0061
-364C 0041
-364C 0062
-364D 0021
-364D 003F
-364D 0061
-364D 0041
-364D 0062
-364E 0021
-364E 003F
-364E 0061
-364E 0041
-364E 0062
-364F 0021
-364F 003F
-364F 0061
-364F 0041
-364F 0062
-3650 0021
-3650 003F
-3650 0061
-3650 0041
-3650 0062
-3651 0021
-3651 003F
-3651 0061
-3651 0041
-3651 0062
-3652 0021
-3652 003F
-3652 0061
-3652 0041
-3652 0062
-3653 0021
-3653 003F
-3653 0061
-3653 0041
-3653 0062
-3654 0021
-3654 003F
-3654 0061
-3654 0041
-3654 0062
-3655 0021
-3655 003F
-3655 0061
-3655 0041
-3655 0062
-3656 0021
-3656 003F
-3656 0061
-3656 0041
-3656 0062
-3657 0021
-3657 003F
-3657 0061
-3657 0041
-3657 0062
-3658 0021
-3658 003F
-3658 0061
-3658 0041
-3658 0062
-3659 0021
-3659 003F
-3659 0061
-3659 0041
-3659 0062
-365A 0021
-365A 003F
-365A 0061
-365A 0041
-365A 0062
-365B 0021
-365B 003F
-365B 0061
-365B 0041
-365B 0062
-365C 0021
-365C 003F
-365C 0061
-365C 0041
-365C 0062
-365D 0021
-365D 003F
-365D 0061
-365D 0041
-365D 0062
-365E 0021
-365E 003F
-365E 0061
-365E 0041
-365E 0062
-365F 0021
-365F 003F
-365F 0061
-365F 0041
-365F 0062
-3660 0021
-3660 003F
-3660 0061
-3660 0041
-3660 0062
-3661 0021
-3661 003F
-3661 0061
-3661 0041
-3661 0062
-3662 0021
-3662 003F
-3662 0061
-3662 0041
-3662 0062
-3663 0021
-3663 003F
-3663 0061
-3663 0041
-3663 0062
-3664 0021
-3664 003F
-3664 0061
-3664 0041
-3664 0062
-3665 0021
-3665 003F
-3665 0061
-3665 0041
-3665 0062
-3666 0021
-3666 003F
-3666 0061
-3666 0041
-3666 0062
-3667 0021
-3667 003F
-3667 0061
-3667 0041
-3667 0062
-3668 0021
-3668 003F
-3668 0061
-3668 0041
-3668 0062
-3669 0021
-3669 003F
-3669 0061
-3669 0041
-3669 0062
-366A 0021
-366A 003F
-366A 0061
-366A 0041
-366A 0062
-366B 0021
-366B 003F
-366B 0061
-366B 0041
-366B 0062
-366C 0021
-366C 003F
-366C 0061
-366C 0041
-366C 0062
-366D 0021
-366D 003F
-366D 0061
-366D 0041
-366D 0062
-366E 0021
-366E 003F
-366E 0061
-366E 0041
-366E 0062
-366F 0021
-366F 003F
-366F 0061
-366F 0041
-366F 0062
-3670 0021
-3670 003F
-3670 0061
-3670 0041
-3670 0062
-3671 0021
-3671 003F
-3671 0061
-3671 0041
-3671 0062
-3672 0021
-3672 003F
-3672 0061
-3672 0041
-3672 0062
-3673 0021
-3673 003F
-3673 0061
-3673 0041
-3673 0062
-3674 0021
-3674 003F
-3674 0061
-3674 0041
-3674 0062
-3675 0021
-3675 003F
-3675 0061
-3675 0041
-3675 0062
-3676 0021
-3676 003F
-3676 0061
-3676 0041
-3676 0062
-3677 0021
-3677 003F
-3677 0061
-3677 0041
-3677 0062
-3678 0021
-3678 003F
-3678 0061
-3678 0041
-3678 0062
-3679 0021
-3679 003F
-3679 0061
-3679 0041
-3679 0062
-367A 0021
-367A 003F
-367A 0061
-367A 0041
-367A 0062
-367B 0021
-367B 003F
-367B 0061
-367B 0041
-367B 0062
-367C 0021
-367C 003F
-367C 0061
-367C 0041
-367C 0062
-367D 0021
-367D 003F
-367D 0061
-367D 0041
-367D 0062
-367E 0021
-367E 003F
-367E 0061
-367E 0041
-367E 0062
-367F 0021
-367F 003F
-367F 0061
-367F 0041
-367F 0062
-3680 0021
-3680 003F
-3680 0061
-3680 0041
-3680 0062
-3681 0021
-3681 003F
-3681 0061
-3681 0041
-3681 0062
-3682 0021
-3682 003F
-3682 0061
-3682 0041
-3682 0062
-3683 0021
-3683 003F
-3683 0061
-3683 0041
-3683 0062
-3684 0021
-3684 003F
-3684 0061
-3684 0041
-3684 0062
-3685 0021
-3685 003F
-3685 0061
-3685 0041
-3685 0062
-3686 0021
-3686 003F
-3686 0061
-3686 0041
-3686 0062
-3687 0021
-3687 003F
-3687 0061
-3687 0041
-3687 0062
-3688 0021
-3688 003F
-3688 0061
-3688 0041
-3688 0062
-3689 0021
-3689 003F
-3689 0061
-3689 0041
-3689 0062
-368A 0021
-368A 003F
-368A 0061
-368A 0041
-368A 0062
-368B 0021
-368B 003F
-368B 0061
-368B 0041
-368B 0062
-368C 0021
-368C 003F
-368C 0061
-368C 0041
-368C 0062
-368D 0021
-368D 003F
-368D 0061
-368D 0041
-368D 0062
-368E 0021
-368E 003F
-368E 0061
-368E 0041
-368E 0062
-368F 0021
-368F 003F
-368F 0061
-368F 0041
-368F 0062
-3690 0021
-3690 003F
-3690 0061
-3690 0041
-3690 0062
-3691 0021
-3691 003F
-3691 0061
-3691 0041
-3691 0062
-3692 0021
-3692 003F
-3692 0061
-3692 0041
-3692 0062
-3693 0021
-3693 003F
-3693 0061
-3693 0041
-3693 0062
-3694 0021
-3694 003F
-3694 0061
-3694 0041
-3694 0062
-3695 0021
-3695 003F
-3695 0061
-3695 0041
-3695 0062
-3696 0021
-3696 003F
-3696 0061
-3696 0041
-3696 0062
-3697 0021
-3697 003F
-3697 0061
-3697 0041
-3697 0062
-3698 0021
-3698 003F
-3698 0061
-3698 0041
-3698 0062
-3699 0021
-3699 003F
-3699 0061
-3699 0041
-3699 0062
-369A 0021
-369A 003F
-369A 0061
-369A 0041
-369A 0062
-369B 0021
-369B 003F
-369B 0061
-369B 0041
-369B 0062
-369C 0021
-369C 003F
-369C 0061
-369C 0041
-369C 0062
-369D 0021
-369D 003F
-369D 0061
-369D 0041
-369D 0062
-369E 0021
-369E 003F
-369E 0061
-369E 0041
-369E 0062
-369F 0021
-369F 003F
-369F 0061
-369F 0041
-369F 0062
-36A0 0021
-36A0 003F
-36A0 0061
-36A0 0041
-36A0 0062
-36A1 0021
-36A1 003F
-36A1 0061
-36A1 0041
-36A1 0062
-36A2 0021
-36A2 003F
-36A2 0061
-36A2 0041
-36A2 0062
-36A3 0021
-36A3 003F
-36A3 0061
-36A3 0041
-36A3 0062
-36A4 0021
-36A4 003F
-36A4 0061
-36A4 0041
-36A4 0062
-36A5 0021
-36A5 003F
-36A5 0061
-36A5 0041
-36A5 0062
-36A6 0021
-36A6 003F
-36A6 0061
-36A6 0041
-36A6 0062
-36A7 0021
-36A7 003F
-36A7 0061
-36A7 0041
-36A7 0062
-36A8 0021
-36A8 003F
-36A8 0061
-36A8 0041
-36A8 0062
-36A9 0021
-36A9 003F
-36A9 0061
-36A9 0041
-36A9 0062
-36AA 0021
-36AA 003F
-36AA 0061
-36AA 0041
-36AA 0062
-36AB 0021
-36AB 003F
-36AB 0061
-36AB 0041
-36AB 0062
-36AC 0021
-36AC 003F
-36AC 0061
-36AC 0041
-36AC 0062
-36AD 0021
-36AD 003F
-36AD 0061
-36AD 0041
-36AD 0062
-36AE 0021
-36AE 003F
-36AE 0061
-36AE 0041
-36AE 0062
-36AF 0021
-36AF 003F
-36AF 0061
-36AF 0041
-36AF 0062
-36B0 0021
-36B0 003F
-36B0 0061
-36B0 0041
-36B0 0062
-36B1 0021
-36B1 003F
-36B1 0061
-36B1 0041
-36B1 0062
-36B2 0021
-36B2 003F
-36B2 0061
-36B2 0041
-36B2 0062
-36B3 0021
-36B3 003F
-36B3 0061
-36B3 0041
-36B3 0062
-36B4 0021
-36B4 003F
-36B4 0061
-36B4 0041
-36B4 0062
-36B5 0021
-36B5 003F
-36B5 0061
-36B5 0041
-36B5 0062
-36B6 0021
-36B6 003F
-36B6 0061
-36B6 0041
-36B6 0062
-36B7 0021
-36B7 003F
-36B7 0061
-36B7 0041
-36B7 0062
-36B8 0021
-36B8 003F
-36B8 0061
-36B8 0041
-36B8 0062
-36B9 0021
-36B9 003F
-36B9 0061
-36B9 0041
-36B9 0062
-36BA 0021
-36BA 003F
-36BA 0061
-36BA 0041
-36BA 0062
-36BB 0021
-36BB 003F
-36BB 0061
-36BB 0041
-36BB 0062
-36BC 0021
-36BC 003F
-36BC 0061
-36BC 0041
-36BC 0062
-36BD 0021
-36BD 003F
-36BD 0061
-36BD 0041
-36BD 0062
-36BE 0021
-36BE 003F
-36BE 0061
-36BE 0041
-36BE 0062
-36BF 0021
-36BF 003F
-36BF 0061
-36BF 0041
-36BF 0062
-36C0 0021
-36C0 003F
-36C0 0061
-36C0 0041
-36C0 0062
-36C1 0021
-36C1 003F
-36C1 0061
-36C1 0041
-36C1 0062
-36C2 0021
-36C2 003F
-36C2 0061
-36C2 0041
-36C2 0062
-36C3 0021
-36C3 003F
-36C3 0061
-36C3 0041
-36C3 0062
-36C4 0021
-36C4 003F
-36C4 0061
-36C4 0041
-36C4 0062
-36C5 0021
-36C5 003F
-36C5 0061
-36C5 0041
-36C5 0062
-36C6 0021
-36C6 003F
-36C6 0061
-36C6 0041
-36C6 0062
-36C7 0021
-36C7 003F
-36C7 0061
-36C7 0041
-36C7 0062
-36C8 0021
-36C8 003F
-36C8 0061
-36C8 0041
-36C8 0062
-36C9 0021
-36C9 003F
-36C9 0061
-36C9 0041
-36C9 0062
-36CA 0021
-36CA 003F
-36CA 0061
-36CA 0041
-36CA 0062
-36CB 0021
-36CB 003F
-36CB 0061
-36CB 0041
-36CB 0062
-36CC 0021
-36CC 003F
-36CC 0061
-36CC 0041
-36CC 0062
-36CD 0021
-36CD 003F
-36CD 0061
-36CD 0041
-36CD 0062
-36CE 0021
-36CE 003F
-36CE 0061
-36CE 0041
-36CE 0062
-36CF 0021
-36CF 003F
-36CF 0061
-36CF 0041
-36CF 0062
-36D0 0021
-36D0 003F
-36D0 0061
-36D0 0041
-36D0 0062
-36D1 0021
-36D1 003F
-36D1 0061
-36D1 0041
-36D1 0062
-36D2 0021
-36D2 003F
-36D2 0061
-36D2 0041
-36D2 0062
-36D3 0021
-36D3 003F
-36D3 0061
-36D3 0041
-36D3 0062
-36D4 0021
-36D4 003F
-36D4 0061
-36D4 0041
-36D4 0062
-36D5 0021
-36D5 003F
-36D5 0061
-36D5 0041
-36D5 0062
-36D6 0021
-36D6 003F
-36D6 0061
-36D6 0041
-36D6 0062
-36D7 0021
-36D7 003F
-36D7 0061
-36D7 0041
-36D7 0062
-36D8 0021
-36D8 003F
-36D8 0061
-36D8 0041
-36D8 0062
-36D9 0021
-36D9 003F
-36D9 0061
-36D9 0041
-36D9 0062
-36DA 0021
-36DA 003F
-36DA 0061
-36DA 0041
-36DA 0062
-36DB 0021
-36DB 003F
-36DB 0061
-36DB 0041
-36DB 0062
-36DC 0021
-36DC 003F
-36DC 0061
-36DC 0041
-36DC 0062
-36DD 0021
-36DD 003F
-36DD 0061
-36DD 0041
-36DD 0062
-36DE 0021
-36DE 003F
-36DE 0061
-36DE 0041
-36DE 0062
-36DF 0021
-36DF 003F
-36DF 0061
-36DF 0041
-36DF 0062
-36E0 0021
-36E0 003F
-36E0 0061
-36E0 0041
-36E0 0062
-36E1 0021
-36E1 003F
-36E1 0061
-36E1 0041
-36E1 0062
-36E2 0021
-36E2 003F
-36E2 0061
-36E2 0041
-36E2 0062
-36E3 0021
-36E3 003F
-36E3 0061
-36E3 0041
-36E3 0062
-36E4 0021
-36E4 003F
-36E4 0061
-36E4 0041
-36E4 0062
-36E5 0021
-36E5 003F
-36E5 0061
-36E5 0041
-36E5 0062
-36E6 0021
-36E6 003F
-36E6 0061
-36E6 0041
-36E6 0062
-36E7 0021
-36E7 003F
-36E7 0061
-36E7 0041
-36E7 0062
-36E8 0021
-36E8 003F
-36E8 0061
-36E8 0041
-36E8 0062
-36E9 0021
-36E9 003F
-36E9 0061
-36E9 0041
-36E9 0062
-36EA 0021
-36EA 003F
-36EA 0061
-36EA 0041
-36EA 0062
-36EB 0021
-36EB 003F
-36EB 0061
-36EB 0041
-36EB 0062
-36EC 0021
-36EC 003F
-36EC 0061
-36EC 0041
-36EC 0062
-36ED 0021
-36ED 003F
-36ED 0061
-36ED 0041
-36ED 0062
-36EE 0021
-2F867 0021
-36EE 003F
-2F867 003F
-36EE 0061
-2F867 0061
-36EE 0041
-2F867 0041
-36EE 0062
-2F867 0062
-36EF 0021
-36EF 003F
-36EF 0061
-36EF 0041
-36EF 0062
-36F0 0021
-36F0 003F
-36F0 0061
-36F0 0041
-36F0 0062
-36F1 0021
-36F1 003F
-36F1 0061
-36F1 0041
-36F1 0062
-36F2 0021
-36F2 003F
-36F2 0061
-36F2 0041
-36F2 0062
-36F3 0021
-36F3 003F
-36F3 0061
-36F3 0041
-36F3 0062
-36F4 0021
-36F4 003F
-36F4 0061
-36F4 0041
-36F4 0062
-36F5 0021
-36F5 003F
-36F5 0061
-36F5 0041
-36F5 0062
-36F6 0021
-36F6 003F
-36F6 0061
-36F6 0041
-36F6 0062
-36F7 0021
-36F7 003F
-36F7 0061
-36F7 0041
-36F7 0062
-36F8 0021
-36F8 003F
-36F8 0061
-36F8 0041
-36F8 0062
-36F9 0021
-36F9 003F
-36F9 0061
-36F9 0041
-36F9 0062
-36FA 0021
-36FA 003F
-36FA 0061
-36FA 0041
-36FA 0062
-36FB 0021
-36FB 003F
-36FB 0061
-36FB 0041
-36FB 0062
-36FC 0021
-2F868 0021
-36FC 003F
-2F868 003F
-36FC 0061
-2F868 0061
-36FC 0041
-2F868 0041
-36FC 0062
-2F868 0062
-36FD 0021
-36FD 003F
-36FD 0061
-36FD 0041
-36FD 0062
-36FE 0021
-36FE 003F
-36FE 0061
-36FE 0041
-36FE 0062
-36FF 0021
-36FF 003F
-36FF 0061
-36FF 0041
-36FF 0062
-3700 0021
-3700 003F
-3700 0061
-3700 0041
-3700 0062
-3701 0021
-3701 003F
-3701 0061
-3701 0041
-3701 0062
-3702 0021
-3702 003F
-3702 0061
-3702 0041
-3702 0062
-3703 0021
-3703 003F
-3703 0061
-3703 0041
-3703 0062
-3704 0021
-3704 003F
-3704 0061
-3704 0041
-3704 0062
-3705 0021
-3705 003F
-3705 0061
-3705 0041
-3705 0062
-3706 0021
-3706 003F
-3706 0061
-3706 0041
-3706 0062
-3707 0021
-3707 003F
-3707 0061
-3707 0041
-3707 0062
-3708 0021
-3708 003F
-3708 0061
-3708 0041
-3708 0062
-3709 0021
-3709 003F
-3709 0061
-3709 0041
-3709 0062
-370A 0021
-370A 003F
-370A 0061
-370A 0041
-370A 0062
-370B 0021
-370B 003F
-370B 0061
-370B 0041
-370B 0062
-370C 0021
-370C 003F
-370C 0061
-370C 0041
-370C 0062
-370D 0021
-370D 003F
-370D 0061
-370D 0041
-370D 0062
-370E 0021
-370E 003F
-370E 0061
-370E 0041
-370E 0062
-370F 0021
-370F 003F
-370F 0061
-370F 0041
-370F 0062
-3710 0021
-3710 003F
-3710 0061
-3710 0041
-3710 0062
-3711 0021
-3711 003F
-3711 0061
-3711 0041
-3711 0062
-3712 0021
-3712 003F
-3712 0061
-3712 0041
-3712 0062
-3713 0021
-3713 003F
-3713 0061
-3713 0041
-3713 0062
-3714 0021
-3714 003F
-3714 0061
-3714 0041
-3714 0062
-3715 0021
-3715 003F
-3715 0061
-3715 0041
-3715 0062
-3716 0021
-3716 003F
-3716 0061
-3716 0041
-3716 0062
-3717 0021
-3717 003F
-3717 0061
-3717 0041
-3717 0062
-3718 0021
-3718 003F
-3718 0061
-3718 0041
-3718 0062
-3719 0021
-3719 003F
-3719 0061
-3719 0041
-3719 0062
-371A 0021
-371A 003F
-371A 0061
-371A 0041
-371A 0062
-371B 0021
-371B 003F
-371B 0061
-371B 0041
-371B 0062
-371C 0021
-371C 003F
-371C 0061
-371C 0041
-371C 0062
-371D 0021
-371D 003F
-371D 0061
-371D 0041
-371D 0062
-371E 0021
-371E 003F
-371E 0061
-371E 0041
-371E 0062
-371F 0021
-371F 003F
-371F 0061
-371F 0041
-371F 0062
-3720 0021
-3720 003F
-3720 0061
-3720 0041
-3720 0062
-3721 0021
-3721 003F
-3721 0061
-3721 0041
-3721 0062
-3722 0021
-3722 003F
-3722 0061
-3722 0041
-3722 0062
-3723 0021
-3723 003F
-3723 0061
-3723 0041
-3723 0062
-3724 0021
-3724 003F
-3724 0061
-3724 0041
-3724 0062
-3725 0021
-3725 003F
-3725 0061
-3725 0041
-3725 0062
-3726 0021
-3726 003F
-3726 0061
-3726 0041
-3726 0062
-3727 0021
-3727 003F
-3727 0061
-3727 0041
-3727 0062
-3728 0021
-3728 003F
-3728 0061
-3728 0041
-3728 0062
-3729 0021
-3729 003F
-3729 0061
-3729 0041
-3729 0062
-372A 0021
-372A 003F
-372A 0061
-372A 0041
-372A 0062
-372B 0021
-372B 003F
-372B 0061
-372B 0041
-372B 0062
-372C 0021
-372C 003F
-372C 0061
-372C 0041
-372C 0062
-372D 0021
-372D 003F
-372D 0061
-372D 0041
-372D 0062
-372E 0021
-372E 003F
-372E 0061
-372E 0041
-372E 0062
-372F 0021
-372F 003F
-372F 0061
-372F 0041
-372F 0062
-3730 0021
-3730 003F
-3730 0061
-3730 0041
-3730 0062
-3731 0021
-3731 003F
-3731 0061
-3731 0041
-3731 0062
-3732 0021
-3732 003F
-3732 0061
-3732 0041
-3732 0062
-3733 0021
-3733 003F
-3733 0061
-3733 0041
-3733 0062
-3734 0021
-3734 003F
-3734 0061
-3734 0041
-3734 0062
-3735 0021
-3735 003F
-3735 0061
-3735 0041
-3735 0062
-3736 0021
-3736 003F
-3736 0061
-3736 0041
-3736 0062
-3737 0021
-3737 003F
-3737 0061
-3737 0041
-3737 0062
-3738 0021
-3738 003F
-3738 0061
-3738 0041
-3738 0062
-3739 0021
-3739 003F
-3739 0061
-3739 0041
-3739 0062
-373A 0021
-373A 003F
-373A 0061
-373A 0041
-373A 0062
-373B 0021
-373B 003F
-373B 0061
-373B 0041
-373B 0062
-373C 0021
-373C 003F
-373C 0061
-373C 0041
-373C 0062
-373D 0021
-373D 003F
-373D 0061
-373D 0041
-373D 0062
-373E 0021
-373E 003F
-373E 0061
-373E 0041
-373E 0062
-373F 0021
-373F 003F
-373F 0061
-373F 0041
-373F 0062
-3740 0021
-3740 003F
-3740 0061
-3740 0041
-3740 0062
-3741 0021
-3741 003F
-3741 0061
-3741 0041
-3741 0062
-3742 0021
-3742 003F
-3742 0061
-3742 0041
-3742 0062
-3743 0021
-3743 003F
-3743 0061
-3743 0041
-3743 0062
-3744 0021
-3744 003F
-3744 0061
-3744 0041
-3744 0062
-3745 0021
-3745 003F
-3745 0061
-3745 0041
-3745 0062
-3746 0021
-3746 003F
-3746 0061
-3746 0041
-3746 0062
-3747 0021
-3747 003F
-3747 0061
-3747 0041
-3747 0062
-3748 0021
-3748 003F
-3748 0061
-3748 0041
-3748 0062
-3749 0021
-3749 003F
-3749 0061
-3749 0041
-3749 0062
-374A 0021
-374A 003F
-374A 0061
-374A 0041
-374A 0062
-374B 0021
-374B 003F
-374B 0061
-374B 0041
-374B 0062
-374C 0021
-374C 003F
-374C 0061
-374C 0041
-374C 0062
-374D 0021
-374D 003F
-374D 0061
-374D 0041
-374D 0062
-374E 0021
-374E 003F
-374E 0061
-374E 0041
-374E 0062
-374F 0021
-374F 003F
-374F 0061
-374F 0041
-374F 0062
-3750 0021
-3750 003F
-3750 0061
-3750 0041
-3750 0062
-3751 0021
-3751 003F
-3751 0061
-3751 0041
-3751 0062
-3752 0021
-3752 003F
-3752 0061
-3752 0041
-3752 0062
-3753 0021
-3753 003F
-3753 0061
-3753 0041
-3753 0062
-3754 0021
-3754 003F
-3754 0061
-3754 0041
-3754 0062
-3755 0021
-3755 003F
-3755 0061
-3755 0041
-3755 0062
-3756 0021
-3756 003F
-3756 0061
-3756 0041
-3756 0062
-3757 0021
-3757 003F
-3757 0061
-3757 0041
-3757 0062
-3758 0021
-3758 003F
-3758 0061
-3758 0041
-3758 0062
-3759 0021
-3759 003F
-3759 0061
-3759 0041
-3759 0062
-375A 0021
-375A 003F
-375A 0061
-375A 0041
-375A 0062
-375B 0021
-375B 003F
-375B 0061
-375B 0041
-375B 0062
-375C 0021
-375C 003F
-375C 0061
-375C 0041
-375C 0062
-375D 0021
-375D 003F
-375D 0061
-375D 0041
-375D 0062
-375E 0021
-375E 003F
-375E 0061
-375E 0041
-375E 0062
-375F 0021
-375F 003F
-375F 0061
-375F 0041
-375F 0062
-3760 0021
-3760 003F
-3760 0061
-3760 0041
-3760 0062
-3761 0021
-3761 003F
-3761 0061
-3761 0041
-3761 0062
-3762 0021
-3762 003F
-3762 0061
-3762 0041
-3762 0062
-3763 0021
-3763 003F
-3763 0061
-3763 0041
-3763 0062
-3764 0021
-3764 003F
-3764 0061
-3764 0041
-3764 0062
-3765 0021
-3765 003F
-3765 0061
-3765 0041
-3765 0062
-3766 0021
-3766 003F
-3766 0061
-3766 0041
-3766 0062
-3767 0021
-3767 003F
-3767 0061
-3767 0041
-3767 0062
-3768 0021
-3768 003F
-3768 0061
-3768 0041
-3768 0062
-3769 0021
-3769 003F
-3769 0061
-3769 0041
-3769 0062
-376A 0021
-376A 003F
-376A 0061
-376A 0041
-376A 0062
-376B 0021
-376B 003F
-376B 0061
-376B 0041
-376B 0062
-376C 0021
-376C 003F
-376C 0061
-376C 0041
-376C 0062
-376D 0021
-376D 003F
-376D 0061
-376D 0041
-376D 0062
-376E 0021
-376E 003F
-376E 0061
-376E 0041
-376E 0062
-376F 0021
-376F 003F
-376F 0061
-376F 0041
-376F 0062
-3770 0021
-3770 003F
-3770 0061
-3770 0041
-3770 0062
-3771 0021
-3771 003F
-3771 0061
-3771 0041
-3771 0062
-3772 0021
-3772 003F
-3772 0061
-3772 0041
-3772 0062
-3773 0021
-3773 003F
-3773 0061
-3773 0041
-3773 0062
-3774 0021
-3774 003F
-3774 0061
-3774 0041
-3774 0062
-3775 0021
-3775 003F
-3775 0061
-3775 0041
-3775 0062
-3776 0021
-3776 003F
-3776 0061
-3776 0041
-3776 0062
-3777 0021
-3777 003F
-3777 0061
-3777 0041
-3777 0062
-3778 0021
-3778 003F
-3778 0061
-3778 0041
-3778 0062
-3779 0021
-3779 003F
-3779 0061
-3779 0041
-3779 0062
-377A 0021
-377A 003F
-377A 0061
-377A 0041
-377A 0062
-377B 0021
-377B 003F
-377B 0061
-377B 0041
-377B 0062
-377C 0021
-377C 003F
-377C 0061
-377C 0041
-377C 0062
-377D 0021
-377D 003F
-377D 0061
-377D 0041
-377D 0062
-377E 0021
-377E 003F
-377E 0061
-377E 0041
-377E 0062
-377F 0021
-377F 003F
-377F 0061
-377F 0041
-377F 0062
-3780 0021
-3780 003F
-3780 0061
-3780 0041
-3780 0062
-3781 0021
-2F876 0021
-3781 003F
-2F876 003F
-3781 0061
-2F876 0061
-3781 0041
-2F876 0041
-3781 0062
-2F876 0062
-3782 0021
-3782 003F
-3782 0061
-3782 0041
-3782 0062
-3783 0021
-3783 003F
-3783 0061
-3783 0041
-3783 0062
-3784 0021
-3784 003F
-3784 0061
-3784 0041
-3784 0062
-3785 0021
-3785 003F
-3785 0061
-3785 0041
-3785 0062
-3786 0021
-3786 003F
-3786 0061
-3786 0041
-3786 0062
-3787 0021
-3787 003F
-3787 0061
-3787 0041
-3787 0062
-3788 0021
-3788 003F
-3788 0061
-3788 0041
-3788 0062
-3789 0021
-3789 003F
-3789 0061
-3789 0041
-3789 0062
-378A 0021
-378A 003F
-378A 0061
-378A 0041
-378A 0062
-378B 0021
-378B 003F
-378B 0061
-378B 0041
-378B 0062
-378C 0021
-378C 003F
-378C 0061
-378C 0041
-378C 0062
-378D 0021
-378D 003F
-378D 0061
-378D 0041
-378D 0062
-378E 0021
-378E 003F
-378E 0061
-378E 0041
-378E 0062
-378F 0021
-378F 003F
-378F 0061
-378F 0041
-378F 0062
-3790 0021
-3790 003F
-3790 0061
-3790 0041
-3790 0062
-3791 0021
-3791 003F
-3791 0061
-3791 0041
-3791 0062
-3792 0021
-3792 003F
-3792 0061
-3792 0041
-3792 0062
-3793 0021
-3793 003F
-3793 0061
-3793 0041
-3793 0062
-3794 0021
-3794 003F
-3794 0061
-3794 0041
-3794 0062
-3795 0021
-3795 003F
-3795 0061
-3795 0041
-3795 0062
-3796 0021
-3796 003F
-3796 0061
-3796 0041
-3796 0062
-3797 0021
-3797 003F
-3797 0061
-3797 0041
-3797 0062
-3798 0021
-3798 003F
-3798 0061
-3798 0041
-3798 0062
-3799 0021
-3799 003F
-3799 0061
-3799 0041
-3799 0062
-379A 0021
-379A 003F
-379A 0061
-379A 0041
-379A 0062
-379B 0021
-379B 003F
-379B 0061
-379B 0041
-379B 0062
-379C 0021
-379C 003F
-379C 0061
-379C 0041
-379C 0062
-379D 0021
-379D 003F
-379D 0061
-379D 0041
-379D 0062
-379E 0021
-379E 003F
-379E 0061
-379E 0041
-379E 0062
-379F 0021
-379F 003F
-379F 0061
-379F 0041
-379F 0062
-37A0 0021
-37A0 003F
-37A0 0061
-37A0 0041
-37A0 0062
-37A1 0021
-37A1 003F
-37A1 0061
-37A1 0041
-37A1 0062
-37A2 0021
-37A2 003F
-37A2 0061
-37A2 0041
-37A2 0062
-37A3 0021
-37A3 003F
-37A3 0061
-37A3 0041
-37A3 0062
-37A4 0021
-37A4 003F
-37A4 0061
-37A4 0041
-37A4 0062
-37A5 0021
-37A5 003F
-37A5 0061
-37A5 0041
-37A5 0062
-37A6 0021
-37A6 003F
-37A6 0061
-37A6 0041
-37A6 0062
-37A7 0021
-37A7 003F
-37A7 0061
-37A7 0041
-37A7 0062
-37A8 0021
-37A8 003F
-37A8 0061
-37A8 0041
-37A8 0062
-37A9 0021
-37A9 003F
-37A9 0061
-37A9 0041
-37A9 0062
-37AA 0021
-37AA 003F
-37AA 0061
-37AA 0041
-37AA 0062
-37AB 0021
-37AB 003F
-37AB 0061
-37AB 0041
-37AB 0062
-37AC 0021
-37AC 003F
-37AC 0061
-37AC 0041
-37AC 0062
-37AD 0021
-37AD 003F
-37AD 0061
-37AD 0041
-37AD 0062
-37AE 0021
-37AE 003F
-37AE 0061
-37AE 0041
-37AE 0062
-37AF 0021
-37AF 003F
-37AF 0061
-37AF 0041
-37AF 0062
-37B0 0021
-37B0 003F
-37B0 0061
-37B0 0041
-37B0 0062
-37B1 0021
-37B1 003F
-37B1 0061
-37B1 0041
-37B1 0062
-37B2 0021
-37B2 003F
-37B2 0061
-37B2 0041
-37B2 0062
-37B3 0021
-37B3 003F
-37B3 0061
-37B3 0041
-37B3 0062
-37B4 0021
-37B4 003F
-37B4 0061
-37B4 0041
-37B4 0062
-37B5 0021
-37B5 003F
-37B5 0061
-37B5 0041
-37B5 0062
-37B6 0021
-37B6 003F
-37B6 0061
-37B6 0041
-37B6 0062
-37B7 0021
-37B7 003F
-37B7 0061
-37B7 0041
-37B7 0062
-37B8 0021
-37B8 003F
-37B8 0061
-37B8 0041
-37B8 0062
-37B9 0021
-37B9 003F
-37B9 0061
-37B9 0041
-37B9 0062
-37BA 0021
-37BA 003F
-37BA 0061
-37BA 0041
-37BA 0062
-37BB 0021
-37BB 003F
-37BB 0061
-37BB 0041
-37BB 0062
-37BC 0021
-37BC 003F
-37BC 0061
-37BC 0041
-37BC 0062
-37BD 0021
-37BD 003F
-37BD 0061
-37BD 0041
-37BD 0062
-37BE 0021
-37BE 003F
-37BE 0061
-37BE 0041
-37BE 0062
-37BF 0021
-37BF 003F
-37BF 0061
-37BF 0041
-37BF 0062
-37C0 0021
-37C0 003F
-37C0 0061
-37C0 0041
-37C0 0062
-37C1 0021
-37C1 003F
-37C1 0061
-37C1 0041
-37C1 0062
-37C2 0021
-37C2 003F
-37C2 0061
-37C2 0041
-37C2 0062
-37C3 0021
-37C3 003F
-37C3 0061
-37C3 0041
-37C3 0062
-37C4 0021
-37C4 003F
-37C4 0061
-37C4 0041
-37C4 0062
-37C5 0021
-37C5 003F
-37C5 0061
-37C5 0041
-37C5 0062
-37C6 0021
-37C6 003F
-37C6 0061
-37C6 0041
-37C6 0062
-37C7 0021
-37C7 003F
-37C7 0061
-37C7 0041
-37C7 0062
-37C8 0021
-37C8 003F
-37C8 0061
-37C8 0041
-37C8 0062
-37C9 0021
-37C9 003F
-37C9 0061
-37C9 0041
-37C9 0062
-37CA 0021
-37CA 003F
-37CA 0061
-37CA 0041
-37CA 0062
-37CB 0021
-37CB 003F
-37CB 0061
-37CB 0041
-37CB 0062
-37CC 0021
-37CC 003F
-37CC 0061
-37CC 0041
-37CC 0062
-37CD 0021
-37CD 003F
-37CD 0061
-37CD 0041
-37CD 0062
-37CE 0021
-37CE 003F
-37CE 0061
-37CE 0041
-37CE 0062
-37CF 0021
-37CF 003F
-37CF 0061
-37CF 0041
-37CF 0062
-37D0 0021
-37D0 003F
-37D0 0061
-37D0 0041
-37D0 0062
-37D1 0021
-37D1 003F
-37D1 0061
-37D1 0041
-37D1 0062
-37D2 0021
-37D2 003F
-37D2 0061
-37D2 0041
-37D2 0062
-37D3 0021
-37D3 003F
-37D3 0061
-37D3 0041
-37D3 0062
-37D4 0021
-37D4 003F
-37D4 0061
-37D4 0041
-37D4 0062
-37D5 0021
-37D5 003F
-37D5 0061
-37D5 0041
-37D5 0062
-37D6 0021
-37D6 003F
-37D6 0061
-37D6 0041
-37D6 0062
-37D7 0021
-37D7 003F
-37D7 0061
-37D7 0041
-37D7 0062
-37D8 0021
-37D8 003F
-37D8 0061
-37D8 0041
-37D8 0062
-37D9 0021
-37D9 003F
-37D9 0061
-37D9 0041
-37D9 0062
-37DA 0021
-37DA 003F
-37DA 0061
-37DA 0041
-37DA 0062
-37DB 0021
-37DB 003F
-37DB 0061
-37DB 0041
-37DB 0062
-37DC 0021
-37DC 003F
-37DC 0061
-37DC 0041
-37DC 0062
-37DD 0021
-37DD 003F
-37DD 0061
-37DD 0041
-37DD 0062
-37DE 0021
-37DE 003F
-37DE 0061
-37DE 0041
-37DE 0062
-37DF 0021
-37DF 003F
-37DF 0061
-37DF 0041
-37DF 0062
-37E0 0021
-37E0 003F
-37E0 0061
-37E0 0041
-37E0 0062
-37E1 0021
-37E1 003F
-37E1 0061
-37E1 0041
-37E1 0062
-37E2 0021
-37E2 003F
-37E2 0061
-37E2 0041
-37E2 0062
-37E3 0021
-37E3 003F
-37E3 0061
-37E3 0041
-37E3 0062
-37E4 0021
-37E4 003F
-37E4 0061
-37E4 0041
-37E4 0062
-37E5 0021
-37E5 003F
-37E5 0061
-37E5 0041
-37E5 0062
-37E6 0021
-37E6 003F
-37E6 0061
-37E6 0041
-37E6 0062
-37E7 0021
-37E7 003F
-37E7 0061
-37E7 0041
-37E7 0062
-37E8 0021
-37E8 003F
-37E8 0061
-37E8 0041
-37E8 0062
-37E9 0021
-37E9 003F
-37E9 0061
-37E9 0041
-37E9 0062
-37EA 0021
-37EA 003F
-37EA 0061
-37EA 0041
-37EA 0062
-37EB 0021
-37EB 003F
-37EB 0061
-37EB 0041
-37EB 0062
-37EC 0021
-37EC 003F
-37EC 0061
-37EC 0041
-37EC 0062
-37ED 0021
-37ED 003F
-37ED 0061
-37ED 0041
-37ED 0062
-37EE 0021
-37EE 003F
-37EE 0061
-37EE 0041
-37EE 0062
-37EF 0021
-37EF 003F
-37EF 0061
-37EF 0041
-37EF 0062
-37F0 0021
-37F0 003F
-37F0 0061
-37F0 0041
-37F0 0062
-37F1 0021
-37F1 003F
-37F1 0061
-37F1 0041
-37F1 0062
-37F2 0021
-37F2 003F
-37F2 0061
-37F2 0041
-37F2 0062
-37F3 0021
-37F3 003F
-37F3 0061
-37F3 0041
-37F3 0062
-37F4 0021
-37F4 003F
-37F4 0061
-37F4 0041
-37F4 0062
-37F5 0021
-37F5 003F
-37F5 0061
-37F5 0041
-37F5 0062
-37F6 0021
-37F6 003F
-37F6 0061
-37F6 0041
-37F6 0062
-37F7 0021
-37F7 003F
-37F7 0061
-37F7 0041
-37F7 0062
-37F8 0021
-37F8 003F
-37F8 0061
-37F8 0041
-37F8 0062
-37F9 0021
-37F9 003F
-37F9 0061
-37F9 0041
-37F9 0062
-37FA 0021
-37FA 003F
-37FA 0061
-37FA 0041
-37FA 0062
-37FB 0021
-37FB 003F
-37FB 0061
-37FB 0041
-37FB 0062
-37FC 0021
-37FC 003F
-37FC 0061
-37FC 0041
-37FC 0062
-37FD 0021
-37FD 003F
-37FD 0061
-37FD 0041
-37FD 0062
-37FE 0021
-37FE 003F
-37FE 0061
-37FE 0041
-37FE 0062
-37FF 0021
-37FF 003F
-37FF 0061
-37FF 0041
-37FF 0062
-3800 0021
-3800 003F
-3800 0061
-3800 0041
-3800 0062
-3801 0021
-3801 003F
-3801 0061
-3801 0041
-3801 0062
-3802 0021
-3802 003F
-3802 0061
-3802 0041
-3802 0062
-3803 0021
-3803 003F
-3803 0061
-3803 0041
-3803 0062
-3804 0021
-3804 003F
-3804 0061
-3804 0041
-3804 0062
-3805 0021
-3805 003F
-3805 0061
-3805 0041
-3805 0062
-3806 0021
-3806 003F
-3806 0061
-3806 0041
-3806 0062
-3807 0021
-3807 003F
-3807 0061
-3807 0041
-3807 0062
-3808 0021
-3808 003F
-3808 0061
-3808 0041
-3808 0062
-3809 0021
-3809 003F
-3809 0061
-3809 0041
-3809 0062
-380A 0021
-380A 003F
-380A 0061
-380A 0041
-380A 0062
-380B 0021
-380B 003F
-380B 0061
-380B 0041
-380B 0062
-380C 0021
-380C 003F
-380C 0061
-380C 0041
-380C 0062
-380D 0021
-380D 003F
-380D 0061
-380D 0041
-380D 0062
-380E 0021
-380E 003F
-380E 0061
-380E 0041
-380E 0062
-380F 0021
-380F 003F
-380F 0061
-380F 0041
-380F 0062
-3810 0021
-3810 003F
-3810 0061
-3810 0041
-3810 0062
-3811 0021
-3811 003F
-3811 0061
-3811 0041
-3811 0062
-3812 0021
-3812 003F
-3812 0061
-3812 0041
-3812 0062
-3813 0021
-3813 003F
-3813 0061
-3813 0041
-3813 0062
-3814 0021
-3814 003F
-3814 0061
-3814 0041
-3814 0062
-3815 0021
-3815 003F
-3815 0061
-3815 0041
-3815 0062
-3816 0021
-3816 003F
-3816 0061
-3816 0041
-3816 0062
-3817 0021
-3817 003F
-3817 0061
-3817 0041
-3817 0062
-3818 0021
-3818 003F
-3818 0061
-3818 0041
-3818 0062
-3819 0021
-3819 003F
-3819 0061
-3819 0041
-3819 0062
-381A 0021
-381A 003F
-381A 0061
-381A 0041
-381A 0062
-381B 0021
-381B 003F
-381B 0061
-381B 0041
-381B 0062
-381C 0021
-381C 003F
-381C 0061
-381C 0041
-381C 0062
-381D 0021
-381D 003F
-381D 0061
-381D 0041
-381D 0062
-381E 0021
-381E 003F
-381E 0061
-381E 0041
-381E 0062
-381F 0021
-381F 003F
-381F 0061
-381F 0041
-381F 0062
-3820 0021
-3820 003F
-3820 0061
-3820 0041
-3820 0062
-3821 0021
-3821 003F
-3821 0061
-3821 0041
-3821 0062
-3822 0021
-3822 003F
-3822 0061
-3822 0041
-3822 0062
-3823 0021
-3823 003F
-3823 0061
-3823 0041
-3823 0062
-3824 0021
-3824 003F
-3824 0061
-3824 0041
-3824 0062
-3825 0021
-3825 003F
-3825 0061
-3825 0041
-3825 0062
-3826 0021
-3826 003F
-3826 0061
-3826 0041
-3826 0062
-3827 0021
-3827 003F
-3827 0061
-3827 0041
-3827 0062
-3828 0021
-3828 003F
-3828 0061
-3828 0041
-3828 0062
-3829 0021
-3829 003F
-3829 0061
-3829 0041
-3829 0062
-382A 0021
-382A 003F
-382A 0061
-382A 0041
-382A 0062
-382B 0021
-382B 003F
-382B 0061
-382B 0041
-382B 0062
-382C 0021
-382C 003F
-382C 0061
-382C 0041
-382C 0062
-382D 0021
-382D 003F
-382D 0061
-382D 0041
-382D 0062
-382E 0021
-382E 003F
-382E 0061
-382E 0041
-382E 0062
-382F 0021
-2F883 0021
-382F 003F
-2F883 003F
-382F 0061
-2F883 0061
-382F 0041
-2F883 0041
-382F 0062
-2F883 0062
-3830 0021
-3830 003F
-3830 0061
-3830 0041
-3830 0062
-3831 0021
-3831 003F
-3831 0061
-3831 0041
-3831 0062
-3832 0021
-3832 003F
-3832 0061
-3832 0041
-3832 0062
-3833 0021
-3833 003F
-3833 0061
-3833 0041
-3833 0062
-3834 0021
-3834 003F
-3834 0061
-3834 0041
-3834 0062
-3835 0021
-3835 003F
-3835 0061
-3835 0041
-3835 0062
-3836 0021
-3836 003F
-3836 0061
-3836 0041
-3836 0062
-3837 0021
-3837 003F
-3837 0061
-3837 0041
-3837 0062
-3838 0021
-3838 003F
-3838 0061
-3838 0041
-3838 0062
-3839 0021
-3839 003F
-3839 0061
-3839 0041
-3839 0062
-383A 0021
-383A 003F
-383A 0061
-383A 0041
-383A 0062
-383B 0021
-383B 003F
-383B 0061
-383B 0041
-383B 0062
-383C 0021
-383C 003F
-383C 0061
-383C 0041
-383C 0062
-383D 0021
-383D 003F
-383D 0061
-383D 0041
-383D 0062
-383E 0021
-383E 003F
-383E 0061
-383E 0041
-383E 0062
-383F 0021
-383F 003F
-383F 0061
-383F 0041
-383F 0062
-3840 0021
-3840 003F
-3840 0061
-3840 0041
-3840 0062
-3841 0021
-3841 003F
-3841 0061
-3841 0041
-3841 0062
-3842 0021
-3842 003F
-3842 0061
-3842 0041
-3842 0062
-3843 0021
-3843 003F
-3843 0061
-3843 0041
-3843 0062
-3844 0021
-3844 003F
-3844 0061
-3844 0041
-3844 0062
-3845 0021
-3845 003F
-3845 0061
-3845 0041
-3845 0062
-3846 0021
-3846 003F
-3846 0061
-3846 0041
-3846 0062
-3847 0021
-3847 003F
-3847 0061
-3847 0041
-3847 0062
-3848 0021
-3848 003F
-3848 0061
-3848 0041
-3848 0062
-3849 0021
-3849 003F
-3849 0061
-3849 0041
-3849 0062
-384A 0021
-384A 003F
-384A 0061
-384A 0041
-384A 0062
-384B 0021
-384B 003F
-384B 0061
-384B 0041
-384B 0062
-384C 0021
-384C 003F
-384C 0061
-384C 0041
-384C 0062
-384D 0021
-384D 003F
-384D 0061
-384D 0041
-384D 0062
-384E 0021
-384E 003F
-384E 0061
-384E 0041
-384E 0062
-384F 0021
-384F 003F
-384F 0061
-384F 0041
-384F 0062
-3850 0021
-3850 003F
-3850 0061
-3850 0041
-3850 0062
-3851 0021
-3851 003F
-3851 0061
-3851 0041
-3851 0062
-3852 0021
-3852 003F
-3852 0061
-3852 0041
-3852 0062
-3853 0021
-3853 003F
-3853 0061
-3853 0041
-3853 0062
-3854 0021
-3854 003F
-3854 0061
-3854 0041
-3854 0062
-3855 0021
-3855 003F
-3855 0061
-3855 0041
-3855 0062
-3856 0021
-3856 003F
-3856 0061
-3856 0041
-3856 0062
-3857 0021
-3857 003F
-3857 0061
-3857 0041
-3857 0062
-3858 0021
-3858 003F
-3858 0061
-3858 0041
-3858 0062
-3859 0021
-3859 003F
-3859 0061
-3859 0041
-3859 0062
-385A 0021
-385A 003F
-385A 0061
-385A 0041
-385A 0062
-385B 0021
-385B 003F
-385B 0061
-385B 0041
-385B 0062
-385C 0021
-385C 003F
-385C 0061
-385C 0041
-385C 0062
-385D 0021
-385D 003F
-385D 0061
-385D 0041
-385D 0062
-385E 0021
-385E 003F
-385E 0061
-385E 0041
-385E 0062
-385F 0021
-385F 003F
-385F 0061
-385F 0041
-385F 0062
-3860 0021
-3860 003F
-3860 0061
-3860 0041
-3860 0062
-3861 0021
-3861 003F
-3861 0061
-3861 0041
-3861 0062
-3862 0021
-2F888 0021
-3862 003F
-2F888 003F
-3862 0061
-2F888 0061
-3862 0041
-2F888 0041
-3862 0062
-2F888 0062
-3863 0021
-3863 003F
-3863 0061
-3863 0041
-3863 0062
-3864 0021
-3864 003F
-3864 0061
-3864 0041
-3864 0062
-3865 0021
-3865 003F
-3865 0061
-3865 0041
-3865 0062
-3866 0021
-3866 003F
-3866 0061
-3866 0041
-3866 0062
-3867 0021
-3867 003F
-3867 0061
-3867 0041
-3867 0062
-3868 0021
-3868 003F
-3868 0061
-3868 0041
-3868 0062
-3869 0021
-3869 003F
-3869 0061
-3869 0041
-3869 0062
-386A 0021
-386A 003F
-386A 0061
-386A 0041
-386A 0062
-386B 0021
-386B 003F
-386B 0061
-386B 0041
-386B 0062
-386C 0021
-386C 003F
-386C 0061
-386C 0041
-386C 0062
-386D 0021
-386D 003F
-386D 0061
-386D 0041
-386D 0062
-386E 0021
-386E 003F
-386E 0061
-386E 0041
-386E 0062
-386F 0021
-386F 003F
-386F 0061
-386F 0041
-386F 0062
-3870 0021
-3870 003F
-3870 0061
-3870 0041
-3870 0062
-3871 0021
-3871 003F
-3871 0061
-3871 0041
-3871 0062
-3872 0021
-3872 003F
-3872 0061
-3872 0041
-3872 0062
-3873 0021
-3873 003F
-3873 0061
-3873 0041
-3873 0062
-3874 0021
-3874 003F
-3874 0061
-3874 0041
-3874 0062
-3875 0021
-3875 003F
-3875 0061
-3875 0041
-3875 0062
-3876 0021
-3876 003F
-3876 0061
-3876 0041
-3876 0062
-3877 0021
-3877 003F
-3877 0061
-3877 0041
-3877 0062
-3878 0021
-3878 003F
-3878 0061
-3878 0041
-3878 0062
-3879 0021
-3879 003F
-3879 0061
-3879 0041
-3879 0062
-387A 0021
-387A 003F
-387A 0061
-387A 0041
-387A 0062
-387B 0021
-387B 003F
-387B 0061
-387B 0041
-387B 0062
-387C 0021
-2F88A 0021
-387C 003F
-2F88A 003F
-387C 0061
-2F88A 0061
-387C 0041
-2F88A 0041
-387C 0062
-2F88A 0062
-387D 0021
-387D 003F
-387D 0061
-387D 0041
-387D 0062
-387E 0021
-387E 003F
-387E 0061
-387E 0041
-387E 0062
-387F 0021
-387F 003F
-387F 0061
-387F 0041
-387F 0062
-3880 0021
-3880 003F
-3880 0061
-3880 0041
-3880 0062
-3881 0021
-3881 003F
-3881 0061
-3881 0041
-3881 0062
-3882 0021
-3882 003F
-3882 0061
-3882 0041
-3882 0062
-3883 0021
-3883 003F
-3883 0061
-3883 0041
-3883 0062
-3884 0021
-3884 003F
-3884 0061
-3884 0041
-3884 0062
-3885 0021
-3885 003F
-3885 0061
-3885 0041
-3885 0062
-3886 0021
-3886 003F
-3886 0061
-3886 0041
-3886 0062
-3887 0021
-3887 003F
-3887 0061
-3887 0041
-3887 0062
-3888 0021
-3888 003F
-3888 0061
-3888 0041
-3888 0062
-3889 0021
-3889 003F
-3889 0061
-3889 0041
-3889 0062
-388A 0021
-388A 003F
-388A 0061
-388A 0041
-388A 0062
-388B 0021
-388B 003F
-388B 0061
-388B 0041
-388B 0062
-388C 0021
-388C 003F
-388C 0061
-388C 0041
-388C 0062
-388D 0021
-388D 003F
-388D 0061
-388D 0041
-388D 0062
-388E 0021
-388E 003F
-388E 0061
-388E 0041
-388E 0062
-388F 0021
-388F 003F
-388F 0061
-388F 0041
-388F 0062
-3890 0021
-3890 003F
-3890 0061
-3890 0041
-3890 0062
-3891 0021
-3891 003F
-3891 0061
-3891 0041
-3891 0062
-3892 0021
-3892 003F
-3892 0061
-3892 0041
-3892 0062
-3893 0021
-3893 003F
-3893 0061
-3893 0041
-3893 0062
-3894 0021
-3894 003F
-3894 0061
-3894 0041
-3894 0062
-3895 0021
-3895 003F
-3895 0061
-3895 0041
-3895 0062
-3896 0021
-3896 003F
-3896 0061
-3896 0041
-3896 0062
-3897 0021
-3897 003F
-3897 0061
-3897 0041
-3897 0062
-3898 0021
-3898 003F
-3898 0061
-3898 0041
-3898 0062
-3899 0021
-3899 003F
-3899 0061
-3899 0041
-3899 0062
-389A 0021
-389A 003F
-389A 0061
-389A 0041
-389A 0062
-389B 0021
-389B 003F
-389B 0061
-389B 0041
-389B 0062
-389C 0021
-389C 003F
-389C 0061
-389C 0041
-389C 0062
-389D 0021
-389D 003F
-389D 0061
-389D 0041
-389D 0062
-389E 0021
-389E 003F
-389E 0061
-389E 0041
-389E 0062
-389F 0021
-389F 003F
-389F 0061
-389F 0041
-389F 0062
-38A0 0021
-38A0 003F
-38A0 0061
-38A0 0041
-38A0 0062
-38A1 0021
-38A1 003F
-38A1 0061
-38A1 0041
-38A1 0062
-38A2 0021
-38A2 003F
-38A2 0061
-38A2 0041
-38A2 0062
-38A3 0021
-38A3 003F
-38A3 0061
-38A3 0041
-38A3 0062
-38A4 0021
-38A4 003F
-38A4 0061
-38A4 0041
-38A4 0062
-38A5 0021
-38A5 003F
-38A5 0061
-38A5 0041
-38A5 0062
-38A6 0021
-38A6 003F
-38A6 0061
-38A6 0041
-38A6 0062
-38A7 0021
-38A7 003F
-38A7 0061
-38A7 0041
-38A7 0062
-38A8 0021
-38A8 003F
-38A8 0061
-38A8 0041
-38A8 0062
-38A9 0021
-38A9 003F
-38A9 0061
-38A9 0041
-38A9 0062
-38AA 0021
-38AA 003F
-38AA 0061
-38AA 0041
-38AA 0062
-38AB 0021
-38AB 003F
-38AB 0061
-38AB 0041
-38AB 0062
-38AC 0021
-38AC 003F
-38AC 0061
-38AC 0041
-38AC 0062
-38AD 0021
-38AD 003F
-38AD 0061
-38AD 0041
-38AD 0062
-38AE 0021
-38AE 003F
-38AE 0061
-38AE 0041
-38AE 0062
-38AF 0021
-38AF 003F
-38AF 0061
-38AF 0041
-38AF 0062
-38B0 0021
-38B0 003F
-38B0 0061
-38B0 0041
-38B0 0062
-38B1 0021
-38B1 003F
-38B1 0061
-38B1 0041
-38B1 0062
-38B2 0021
-38B2 003F
-38B2 0061
-38B2 0041
-38B2 0062
-38B3 0021
-38B3 003F
-38B3 0061
-38B3 0041
-38B3 0062
-38B4 0021
-38B4 003F
-38B4 0061
-38B4 0041
-38B4 0062
-38B5 0021
-38B5 003F
-38B5 0061
-38B5 0041
-38B5 0062
-38B6 0021
-38B6 003F
-38B6 0061
-38B6 0041
-38B6 0062
-38B7 0021
-38B7 003F
-38B7 0061
-38B7 0041
-38B7 0062
-38B8 0021
-38B8 003F
-38B8 0061
-38B8 0041
-38B8 0062
-38B9 0021
-38B9 003F
-38B9 0061
-38B9 0041
-38B9 0062
-38BA 0021
-38BA 003F
-38BA 0061
-38BA 0041
-38BA 0062
-38BB 0021
-38BB 003F
-38BB 0061
-38BB 0041
-38BB 0062
-38BC 0021
-38BC 003F
-38BC 0061
-38BC 0041
-38BC 0062
-38BD 0021
-38BD 003F
-38BD 0061
-38BD 0041
-38BD 0062
-38BE 0021
-38BE 003F
-38BE 0061
-38BE 0041
-38BE 0062
-38BF 0021
-38BF 003F
-38BF 0061
-38BF 0041
-38BF 0062
-38C0 0021
-38C0 003F
-38C0 0061
-38C0 0041
-38C0 0062
-38C1 0021
-38C1 003F
-38C1 0061
-38C1 0041
-38C1 0062
-38C2 0021
-38C2 003F
-38C2 0061
-38C2 0041
-38C2 0062
-38C3 0021
-38C3 003F
-38C3 0061
-38C3 0041
-38C3 0062
-38C4 0021
-38C4 003F
-38C4 0061
-38C4 0041
-38C4 0062
-38C5 0021
-38C5 003F
-38C5 0061
-38C5 0041
-38C5 0062
-38C6 0021
-38C6 003F
-38C6 0061
-38C6 0041
-38C6 0062
-38C7 0021
-2F896 0021
-38C7 003F
-2F896 003F
-38C7 0061
-2F896 0061
-38C7 0041
-2F896 0041
-38C7 0062
-2F896 0062
-38C8 0021
-38C8 003F
-38C8 0061
-38C8 0041
-38C8 0062
-38C9 0021
-38C9 003F
-38C9 0061
-38C9 0041
-38C9 0062
-38CA 0021
-38CA 003F
-38CA 0061
-38CA 0041
-38CA 0062
-38CB 0021
-38CB 003F
-38CB 0061
-38CB 0041
-38CB 0062
-38CC 0021
-38CC 003F
-38CC 0061
-38CC 0041
-38CC 0062
-38CD 0021
-38CD 003F
-38CD 0061
-38CD 0041
-38CD 0062
-38CE 0021
-38CE 003F
-38CE 0061
-38CE 0041
-38CE 0062
-38CF 0021
-38CF 003F
-38CF 0061
-38CF 0041
-38CF 0062
-38D0 0021
-38D0 003F
-38D0 0061
-38D0 0041
-38D0 0062
-38D1 0021
-38D1 003F
-38D1 0061
-38D1 0041
-38D1 0062
-38D2 0021
-38D2 003F
-38D2 0061
-38D2 0041
-38D2 0062
-38D3 0021
-38D3 003F
-38D3 0061
-38D3 0041
-38D3 0062
-38D4 0021
-38D4 003F
-38D4 0061
-38D4 0041
-38D4 0062
-38D5 0021
-38D5 003F
-38D5 0061
-38D5 0041
-38D5 0062
-38D6 0021
-38D6 003F
-38D6 0061
-38D6 0041
-38D6 0062
-38D7 0021
-38D7 003F
-38D7 0061
-38D7 0041
-38D7 0062
-38D8 0021
-38D8 003F
-38D8 0061
-38D8 0041
-38D8 0062
-38D9 0021
-38D9 003F
-38D9 0061
-38D9 0041
-38D9 0062
-38DA 0021
-38DA 003F
-38DA 0061
-38DA 0041
-38DA 0062
-38DB 0021
-38DB 003F
-38DB 0061
-38DB 0041
-38DB 0062
-38DC 0021
-38DC 003F
-38DC 0061
-38DC 0041
-38DC 0062
-38DD 0021
-38DD 003F
-38DD 0061
-38DD 0041
-38DD 0062
-38DE 0021
-38DE 003F
-38DE 0061
-38DE 0041
-38DE 0062
-38DF 0021
-38DF 003F
-38DF 0061
-38DF 0041
-38DF 0062
-38E0 0021
-38E0 003F
-38E0 0061
-38E0 0041
-38E0 0062
-38E1 0021
-38E1 003F
-38E1 0061
-38E1 0041
-38E1 0062
-38E2 0021
-38E2 003F
-38E2 0061
-38E2 0041
-38E2 0062
-38E3 0021
-2F89B 0021
-38E3 003F
-2F89B 003F
-38E3 0061
-2F89B 0061
-38E3 0041
-2F89B 0041
-38E3 0062
-2F89B 0062
-38E4 0021
-38E4 003F
-38E4 0061
-38E4 0041
-38E4 0062
-38E5 0021
-38E5 003F
-38E5 0061
-38E5 0041
-38E5 0062
-38E6 0021
-38E6 003F
-38E6 0061
-38E6 0041
-38E6 0062
-38E7 0021
-38E7 003F
-38E7 0061
-38E7 0041
-38E7 0062
-38E8 0021
-38E8 003F
-38E8 0061
-38E8 0041
-38E8 0062
-38E9 0021
-38E9 003F
-38E9 0061
-38E9 0041
-38E9 0062
-38EA 0021
-38EA 003F
-38EA 0061
-38EA 0041
-38EA 0062
-38EB 0021
-38EB 003F
-38EB 0061
-38EB 0041
-38EB 0062
-38EC 0021
-38EC 003F
-38EC 0061
-38EC 0041
-38EC 0062
-38ED 0021
-38ED 003F
-38ED 0061
-38ED 0041
-38ED 0062
-38EE 0021
-38EE 003F
-38EE 0061
-38EE 0041
-38EE 0062
-38EF 0021
-38EF 003F
-38EF 0061
-38EF 0041
-38EF 0062
-38F0 0021
-38F0 003F
-38F0 0061
-38F0 0041
-38F0 0062
-38F1 0021
-38F1 003F
-38F1 0061
-38F1 0041
-38F1 0062
-38F2 0021
-38F2 003F
-38F2 0061
-38F2 0041
-38F2 0062
-38F3 0021
-38F3 003F
-38F3 0061
-38F3 0041
-38F3 0062
-38F4 0021
-38F4 003F
-38F4 0061
-38F4 0041
-38F4 0062
-38F5 0021
-38F5 003F
-38F5 0061
-38F5 0041
-38F5 0062
-38F6 0021
-38F6 003F
-38F6 0061
-38F6 0041
-38F6 0062
-38F7 0021
-38F7 003F
-38F7 0061
-38F7 0041
-38F7 0062
-38F8 0021
-38F8 003F
-38F8 0061
-38F8 0041
-38F8 0062
-38F9 0021
-38F9 003F
-38F9 0061
-38F9 0041
-38F9 0062
-38FA 0021
-38FA 003F
-38FA 0061
-38FA 0041
-38FA 0062
-38FB 0021
-38FB 003F
-38FB 0061
-38FB 0041
-38FB 0062
-38FC 0021
-38FC 003F
-38FC 0061
-38FC 0041
-38FC 0062
-38FD 0021
-38FD 003F
-38FD 0061
-38FD 0041
-38FD 0062
-38FE 0021
-38FE 003F
-38FE 0061
-38FE 0041
-38FE 0062
-38FF 0021
-38FF 003F
-38FF 0061
-38FF 0041
-38FF 0062
-3900 0021
-3900 003F
-3900 0061
-3900 0041
-3900 0062
-3901 0021
-3901 003F
-3901 0061
-3901 0041
-3901 0062
-3902 0021
-3902 003F
-3902 0061
-3902 0041
-3902 0062
-3903 0021
-3903 003F
-3903 0061
-3903 0041
-3903 0062
-3904 0021
-3904 003F
-3904 0061
-3904 0041
-3904 0062
-3905 0021
-3905 003F
-3905 0061
-3905 0041
-3905 0062
-3906 0021
-3906 003F
-3906 0061
-3906 0041
-3906 0062
-3907 0021
-3907 003F
-3907 0061
-3907 0041
-3907 0062
-3908 0021
-3908 003F
-3908 0061
-3908 0041
-3908 0062
-3909 0021
-3909 003F
-3909 0061
-3909 0041
-3909 0062
-390A 0021
-390A 003F
-390A 0061
-390A 0041
-390A 0062
-390B 0021
-390B 003F
-390B 0061
-390B 0041
-390B 0062
-390C 0021
-390C 003F
-390C 0061
-390C 0041
-390C 0062
-390D 0021
-390D 003F
-390D 0061
-390D 0041
-390D 0062
-390E 0021
-390E 003F
-390E 0061
-390E 0041
-390E 0062
-390F 0021
-390F 003F
-390F 0061
-390F 0041
-390F 0062
-3910 0021
-3910 003F
-3910 0061
-3910 0041
-3910 0062
-3911 0021
-3911 003F
-3911 0061
-3911 0041
-3911 0062
-3912 0021
-3912 003F
-3912 0061
-3912 0041
-3912 0062
-3913 0021
-3913 003F
-3913 0061
-3913 0041
-3913 0062
-3914 0021
-3914 003F
-3914 0061
-3914 0041
-3914 0062
-3915 0021
-3915 003F
-3915 0061
-3915 0041
-3915 0062
-3916 0021
-3916 003F
-3916 0061
-3916 0041
-3916 0062
-3917 0021
-3917 003F
-3917 0061
-3917 0041
-3917 0062
-3918 0021
-3918 003F
-3918 0061
-3918 0041
-3918 0062
-3919 0021
-3919 003F
-3919 0061
-3919 0041
-3919 0062
-391A 0021
-391A 003F
-391A 0061
-391A 0041
-391A 0062
-391B 0021
-391B 003F
-391B 0061
-391B 0041
-391B 0062
-391C 0021
-2F8A2 0021
-391C 003F
-2F8A2 003F
-391C 0061
-2F8A2 0061
-391C 0041
-2F8A2 0041
-391C 0062
-2F8A2 0062
-391D 0021
-391D 003F
-391D 0061
-391D 0041
-391D 0062
-391E 0021
-391E 003F
-391E 0061
-391E 0041
-391E 0062
-391F 0021
-391F 003F
-391F 0061
-391F 0041
-391F 0062
-3920 0021
-3920 003F
-3920 0061
-3920 0041
-3920 0062
-3921 0021
-3921 003F
-3921 0061
-3921 0041
-3921 0062
-3922 0021
-3922 003F
-3922 0061
-3922 0041
-3922 0062
-3923 0021
-3923 003F
-3923 0061
-3923 0041
-3923 0062
-3924 0021
-3924 003F
-3924 0061
-3924 0041
-3924 0062
-3925 0021
-3925 003F
-3925 0061
-3925 0041
-3925 0062
-3926 0021
-3926 003F
-3926 0061
-3926 0041
-3926 0062
-3927 0021
-3927 003F
-3927 0061
-3927 0041
-3927 0062
-3928 0021
-3928 003F
-3928 0061
-3928 0041
-3928 0062
-3929 0021
-3929 003F
-3929 0061
-3929 0041
-3929 0062
-392A 0021
-392A 003F
-392A 0061
-392A 0041
-392A 0062
-392B 0021
-392B 003F
-392B 0061
-392B 0041
-392B 0062
-392C 0021
-392C 003F
-392C 0061
-392C 0041
-392C 0062
-392D 0021
-392D 003F
-392D 0061
-392D 0041
-392D 0062
-392E 0021
-392E 003F
-392E 0061
-392E 0041
-392E 0062
-392F 0021
-392F 003F
-392F 0061
-392F 0041
-392F 0062
-3930 0021
-3930 003F
-3930 0061
-3930 0041
-3930 0062
-3931 0021
-3931 003F
-3931 0061
-3931 0041
-3931 0062
-3932 0021
-3932 003F
-3932 0061
-3932 0041
-3932 0062
-3933 0021
-3933 003F
-3933 0061
-3933 0041
-3933 0062
-3934 0021
-3934 003F
-3934 0061
-3934 0041
-3934 0062
-3935 0021
-3935 003F
-3935 0061
-3935 0041
-3935 0062
-3936 0021
-3936 003F
-3936 0061
-3936 0041
-3936 0062
-3937 0021
-3937 003F
-3937 0061
-3937 0041
-3937 0062
-3938 0021
-3938 003F
-3938 0061
-3938 0041
-3938 0062
-3939 0021
-3939 003F
-3939 0061
-3939 0041
-3939 0062
-393A 0021
-2F8A1 0021
-393A 003F
-2F8A1 003F
-393A 0061
-2F8A1 0061
-393A 0041
-2F8A1 0041
-393A 0062
-2F8A1 0062
-393B 0021
-393B 003F
-393B 0061
-393B 0041
-393B 0062
-393C 0021
-393C 003F
-393C 0061
-393C 0041
-393C 0062
-393D 0021
-393D 003F
-393D 0061
-393D 0041
-393D 0062
-393E 0021
-393E 003F
-393E 0061
-393E 0041
-393E 0062
-393F 0021
-393F 003F
-393F 0061
-393F 0041
-393F 0062
-3940 0021
-3940 003F
-3940 0061
-3940 0041
-3940 0062
-3941 0021
-3941 003F
-3941 0061
-3941 0041
-3941 0062
-3942 0021
-3942 003F
-3942 0061
-3942 0041
-3942 0062
-3943 0021
-3943 003F
-3943 0061
-3943 0041
-3943 0062
-3944 0021
-3944 003F
-3944 0061
-3944 0041
-3944 0062
-3945 0021
-3945 003F
-3945 0061
-3945 0041
-3945 0062
-3946 0021
-3946 003F
-3946 0061
-3946 0041
-3946 0062
-3947 0021
-3947 003F
-3947 0061
-3947 0041
-3947 0062
-3948 0021
-3948 003F
-3948 0061
-3948 0041
-3948 0062
-3949 0021
-3949 003F
-3949 0061
-3949 0041
-3949 0062
-394A 0021
-394A 003F
-394A 0061
-394A 0041
-394A 0062
-394B 0021
-394B 003F
-394B 0061
-394B 0041
-394B 0062
-394C 0021
-394C 003F
-394C 0061
-394C 0041
-394C 0062
-394D 0021
-394D 003F
-394D 0061
-394D 0041
-394D 0062
-394E 0021
-394E 003F
-394E 0061
-394E 0041
-394E 0062
-394F 0021
-394F 003F
-394F 0061
-394F 0041
-394F 0062
-3950 0021
-3950 003F
-3950 0061
-3950 0041
-3950 0062
-3951 0021
-3951 003F
-3951 0061
-3951 0041
-3951 0062
-3952 0021
-3952 003F
-3952 0061
-3952 0041
-3952 0062
-3953 0021
-3953 003F
-3953 0061
-3953 0041
-3953 0062
-3954 0021
-3954 003F
-3954 0061
-3954 0041
-3954 0062
-3955 0021
-3955 003F
-3955 0061
-3955 0041
-3955 0062
-3956 0021
-3956 003F
-3956 0061
-3956 0041
-3956 0062
-3957 0021
-3957 003F
-3957 0061
-3957 0041
-3957 0062
-3958 0021
-3958 003F
-3958 0061
-3958 0041
-3958 0062
-3959 0021
-3959 003F
-3959 0061
-3959 0041
-3959 0062
-395A 0021
-395A 003F
-395A 0061
-395A 0041
-395A 0062
-395B 0021
-395B 003F
-395B 0061
-395B 0041
-395B 0062
-395C 0021
-395C 003F
-395C 0061
-395C 0041
-395C 0062
-395D 0021
-395D 003F
-395D 0061
-395D 0041
-395D 0062
-395E 0021
-395E 003F
-395E 0061
-395E 0041
-395E 0062
-395F 0021
-395F 003F
-395F 0061
-395F 0041
-395F 0062
-3960 0021
-3960 003F
-3960 0061
-3960 0041
-3960 0062
-3961 0021
-3961 003F
-3961 0061
-3961 0041
-3961 0062
-3962 0021
-3962 003F
-3962 0061
-3962 0041
-3962 0062
-3963 0021
-3963 003F
-3963 0061
-3963 0041
-3963 0062
-3964 0021
-3964 003F
-3964 0061
-3964 0041
-3964 0062
-3965 0021
-3965 003F
-3965 0061
-3965 0041
-3965 0062
-3966 0021
-3966 003F
-3966 0061
-3966 0041
-3966 0062
-3967 0021
-3967 003F
-3967 0061
-3967 0041
-3967 0062
-3968 0021
-3968 003F
-3968 0061
-3968 0041
-3968 0062
-3969 0021
-3969 003F
-3969 0061
-3969 0041
-3969 0062
-396A 0021
-396A 003F
-396A 0061
-396A 0041
-396A 0062
-396B 0021
-396B 003F
-396B 0061
-396B 0041
-396B 0062
-396C 0021
-396C 003F
-396C 0061
-396C 0041
-396C 0062
-396D 0021
-396D 003F
-396D 0061
-396D 0041
-396D 0062
-396E 0021
-396E 003F
-396E 0061
-396E 0041
-396E 0062
-396F 0021
-396F 003F
-396F 0061
-396F 0041
-396F 0062
-3970 0021
-3970 003F
-3970 0061
-3970 0041
-3970 0062
-3971 0021
-3971 003F
-3971 0061
-3971 0041
-3971 0062
-3972 0021
-3972 003F
-3972 0061
-3972 0041
-3972 0062
-3973 0021
-3973 003F
-3973 0061
-3973 0041
-3973 0062
-3974 0021
-3974 003F
-3974 0061
-3974 0041
-3974 0062
-3975 0021
-3975 003F
-3975 0061
-3975 0041
-3975 0062
-3976 0021
-3976 003F
-3976 0061
-3976 0041
-3976 0062
-3977 0021
-3977 003F
-3977 0061
-3977 0041
-3977 0062
-3978 0021
-3978 003F
-3978 0061
-3978 0041
-3978 0062
-3979 0021
-3979 003F
-3979 0061
-3979 0041
-3979 0062
-397A 0021
-397A 003F
-397A 0061
-397A 0041
-397A 0062
-397B 0021
-397B 003F
-397B 0061
-397B 0041
-397B 0062
-397C 0021
-397C 003F
-397C 0061
-397C 0041
-397C 0062
-397D 0021
-397D 003F
-397D 0061
-397D 0041
-397D 0062
-397E 0021
-397E 003F
-397E 0061
-397E 0041
-397E 0062
-397F 0021
-397F 003F
-397F 0061
-397F 0041
-397F 0062
-3980 0021
-3980 003F
-3980 0061
-3980 0041
-3980 0062
-3981 0021
-3981 003F
-3981 0061
-3981 0041
-3981 0062
-3982 0021
-3982 003F
-3982 0061
-3982 0041
-3982 0062
-3983 0021
-3983 003F
-3983 0061
-3983 0041
-3983 0062
-3984 0021
-3984 003F
-3984 0061
-3984 0041
-3984 0062
-3985 0021
-3985 003F
-3985 0061
-3985 0041
-3985 0062
-3986 0021
-3986 003F
-3986 0061
-3986 0041
-3986 0062
-3987 0021
-3987 003F
-3987 0061
-3987 0041
-3987 0062
-3988 0021
-3988 003F
-3988 0061
-3988 0041
-3988 0062
-3989 0021
-3989 003F
-3989 0061
-3989 0041
-3989 0062
-398A 0021
-398A 003F
-398A 0061
-398A 0041
-398A 0062
-398B 0021
-398B 003F
-398B 0061
-398B 0041
-398B 0062
-398C 0021
-398C 003F
-398C 0061
-398C 0041
-398C 0062
-398D 0021
-398D 003F
-398D 0061
-398D 0041
-398D 0062
-398E 0021
-398E 003F
-398E 0061
-398E 0041
-398E 0062
-398F 0021
-398F 003F
-398F 0061
-398F 0041
-398F 0062
-3990 0021
-3990 003F
-3990 0061
-3990 0041
-3990 0062
-3991 0021
-3991 003F
-3991 0061
-3991 0041
-3991 0062
-3992 0021
-3992 003F
-3992 0061
-3992 0041
-3992 0062
-3993 0021
-3993 003F
-3993 0061
-3993 0041
-3993 0062
-3994 0021
-3994 003F
-3994 0061
-3994 0041
-3994 0062
-3995 0021
-3995 003F
-3995 0061
-3995 0041
-3995 0062
-3996 0021
-3996 003F
-3996 0061
-3996 0041
-3996 0062
-3997 0021
-3997 003F
-3997 0061
-3997 0041
-3997 0062
-3998 0021
-3998 003F
-3998 0061
-3998 0041
-3998 0062
-3999 0021
-3999 003F
-3999 0061
-3999 0041
-3999 0062
-399A 0021
-399A 003F
-399A 0061
-399A 0041
-399A 0062
-399B 0021
-399B 003F
-399B 0061
-399B 0041
-399B 0062
-399C 0021
-399C 003F
-399C 0061
-399C 0041
-399C 0062
-399D 0021
-399D 003F
-399D 0061
-399D 0041
-399D 0062
-399E 0021
-399E 003F
-399E 0061
-399E 0041
-399E 0062
-399F 0021
-399F 003F
-399F 0061
-399F 0041
-399F 0062
-39A0 0021
-39A0 003F
-39A0 0061
-39A0 0041
-39A0 0062
-39A1 0021
-39A1 003F
-39A1 0061
-39A1 0041
-39A1 0062
-39A2 0021
-39A2 003F
-39A2 0061
-39A2 0041
-39A2 0062
-39A3 0021
-39A3 003F
-39A3 0061
-39A3 0041
-39A3 0062
-39A4 0021
-39A4 003F
-39A4 0061
-39A4 0041
-39A4 0062
-39A5 0021
-39A5 003F
-39A5 0061
-39A5 0041
-39A5 0062
-39A6 0021
-39A6 003F
-39A6 0061
-39A6 0041
-39A6 0062
-39A7 0021
-39A7 003F
-39A7 0061
-39A7 0041
-39A7 0062
-39A8 0021
-39A8 003F
-39A8 0061
-39A8 0041
-39A8 0062
-39A9 0021
-39A9 003F
-39A9 0061
-39A9 0041
-39A9 0062
-39AA 0021
-39AA 003F
-39AA 0061
-39AA 0041
-39AA 0062
-39AB 0021
-39AB 003F
-39AB 0061
-39AB 0041
-39AB 0062
-39AC 0021
-39AC 003F
-39AC 0061
-39AC 0041
-39AC 0062
-39AD 0021
-39AD 003F
-39AD 0061
-39AD 0041
-39AD 0062
-39AE 0021
-39AE 003F
-39AE 0061
-39AE 0041
-39AE 0062
-39AF 0021
-39AF 003F
-39AF 0061
-39AF 0041
-39AF 0062
-39B0 0021
-39B0 003F
-39B0 0061
-39B0 0041
-39B0 0062
-39B1 0021
-39B1 003F
-39B1 0061
-39B1 0041
-39B1 0062
-39B2 0021
-39B2 003F
-39B2 0061
-39B2 0041
-39B2 0062
-39B3 0021
-39B3 003F
-39B3 0061
-39B3 0041
-39B3 0062
-39B4 0021
-39B4 003F
-39B4 0061
-39B4 0041
-39B4 0062
-39B5 0021
-39B5 003F
-39B5 0061
-39B5 0041
-39B5 0062
-39B6 0021
-39B6 003F
-39B6 0061
-39B6 0041
-39B6 0062
-39B7 0021
-39B7 003F
-39B7 0061
-39B7 0041
-39B7 0062
-39B8 0021
-39B8 003F
-39B8 0061
-39B8 0041
-39B8 0062
-39B9 0021
-39B9 003F
-39B9 0061
-39B9 0041
-39B9 0062
-39BA 0021
-39BA 003F
-39BA 0061
-39BA 0041
-39BA 0062
-39BB 0021
-39BB 003F
-39BB 0061
-39BB 0041
-39BB 0062
-39BC 0021
-39BC 003F
-39BC 0061
-39BC 0041
-39BC 0062
-39BD 0021
-39BD 003F
-39BD 0061
-39BD 0041
-39BD 0062
-39BE 0021
-39BE 003F
-39BE 0061
-39BE 0041
-39BE 0062
-39BF 0021
-39BF 003F
-39BF 0061
-39BF 0041
-39BF 0062
-39C0 0021
-39C0 003F
-39C0 0061
-39C0 0041
-39C0 0062
-39C1 0021
-39C1 003F
-39C1 0061
-39C1 0041
-39C1 0062
-39C2 0021
-39C2 003F
-39C2 0061
-39C2 0041
-39C2 0062
-39C3 0021
-39C3 003F
-39C3 0061
-39C3 0041
-39C3 0062
-39C4 0021
-39C4 003F
-39C4 0061
-39C4 0041
-39C4 0062
-39C5 0021
-39C5 003F
-39C5 0061
-39C5 0041
-39C5 0062
-39C6 0021
-39C6 003F
-39C6 0061
-39C6 0041
-39C6 0062
-39C7 0021
-39C7 003F
-39C7 0061
-39C7 0041
-39C7 0062
-39C8 0021
-39C8 003F
-39C8 0061
-39C8 0041
-39C8 0062
-39C9 0021
-39C9 003F
-39C9 0061
-39C9 0041
-39C9 0062
-39CA 0021
-39CA 003F
-39CA 0061
-39CA 0041
-39CA 0062
-39CB 0021
-39CB 003F
-39CB 0061
-39CB 0041
-39CB 0062
-39CC 0021
-39CC 003F
-39CC 0061
-39CC 0041
-39CC 0062
-39CD 0021
-39CD 003F
-39CD 0061
-39CD 0041
-39CD 0062
-39CE 0021
-39CE 003F
-39CE 0061
-39CE 0041
-39CE 0062
-39CF 0021
-39CF 003F
-39CF 0061
-39CF 0041
-39CF 0062
-39D0 0021
-39D0 003F
-39D0 0061
-39D0 0041
-39D0 0062
-39D1 0021
-39D1 003F
-39D1 0061
-39D1 0041
-39D1 0062
-39D2 0021
-39D2 003F
-39D2 0061
-39D2 0041
-39D2 0062
-39D3 0021
-39D3 003F
-39D3 0061
-39D3 0041
-39D3 0062
-39D4 0021
-39D4 003F
-39D4 0061
-39D4 0041
-39D4 0062
-39D5 0021
-39D5 003F
-39D5 0061
-39D5 0041
-39D5 0062
-39D6 0021
-39D6 003F
-39D6 0061
-39D6 0041
-39D6 0062
-39D7 0021
-39D7 003F
-39D7 0061
-39D7 0041
-39D7 0062
-39D8 0021
-39D8 003F
-39D8 0061
-39D8 0041
-39D8 0062
-39D9 0021
-39D9 003F
-39D9 0061
-39D9 0041
-39D9 0062
-39DA 0021
-39DA 003F
-39DA 0061
-39DA 0041
-39DA 0062
-39DB 0021
-39DB 003F
-39DB 0061
-39DB 0041
-39DB 0062
-39DC 0021
-39DC 003F
-39DC 0061
-39DC 0041
-39DC 0062
-39DD 0021
-39DD 003F
-39DD 0061
-39DD 0041
-39DD 0062
-39DE 0021
-39DE 003F
-39DE 0061
-39DE 0041
-39DE 0062
-39DF 0021
-39DF 003F
-39DF 0061
-39DF 0041
-39DF 0062
-39E0 0021
-39E0 003F
-39E0 0061
-39E0 0041
-39E0 0062
-39E1 0021
-39E1 003F
-39E1 0061
-39E1 0041
-39E1 0062
-39E2 0021
-39E2 003F
-39E2 0061
-39E2 0041
-39E2 0062
-39E3 0021
-39E3 003F
-39E3 0061
-39E3 0041
-39E3 0062
-39E4 0021
-39E4 003F
-39E4 0061
-39E4 0041
-39E4 0062
-39E5 0021
-39E5 003F
-39E5 0061
-39E5 0041
-39E5 0062
-39E6 0021
-39E6 003F
-39E6 0061
-39E6 0041
-39E6 0062
-39E7 0021
-39E7 003F
-39E7 0061
-39E7 0041
-39E7 0062
-39E8 0021
-39E8 003F
-39E8 0061
-39E8 0041
-39E8 0062
-39E9 0021
-39E9 003F
-39E9 0061
-39E9 0041
-39E9 0062
-39EA 0021
-39EA 003F
-39EA 0061
-39EA 0041
-39EA 0062
-39EB 0021
-39EB 003F
-39EB 0061
-39EB 0041
-39EB 0062
-39EC 0021
-39EC 003F
-39EC 0061
-39EC 0041
-39EC 0062
-39ED 0021
-39ED 003F
-39ED 0061
-39ED 0041
-39ED 0062
-39EE 0021
-39EE 003F
-39EE 0061
-39EE 0041
-39EE 0062
-39EF 0021
-39EF 003F
-39EF 0061
-39EF 0041
-39EF 0062
-39F0 0021
-39F0 003F
-39F0 0061
-39F0 0041
-39F0 0062
-39F1 0021
-39F1 003F
-39F1 0061
-39F1 0041
-39F1 0062
-39F2 0021
-39F2 003F
-39F2 0061
-39F2 0041
-39F2 0062
-39F3 0021
-39F3 003F
-39F3 0061
-39F3 0041
-39F3 0062
-39F4 0021
-39F4 003F
-39F4 0061
-39F4 0041
-39F4 0062
-39F5 0021
-39F5 003F
-39F5 0061
-39F5 0041
-39F5 0062
-39F6 0021
-39F6 003F
-39F6 0061
-39F6 0041
-39F6 0062
-39F7 0021
-39F7 003F
-39F7 0061
-39F7 0041
-39F7 0062
-39F8 0021
-39F8 003F
-39F8 0061
-39F8 0041
-39F8 0062
-39F9 0021
-39F9 003F
-39F9 0061
-39F9 0041
-39F9 0062
-39FA 0021
-39FA 003F
-39FA 0061
-39FA 0041
-39FA 0062
-39FB 0021
-39FB 003F
-39FB 0061
-39FB 0041
-39FB 0062
-39FC 0021
-39FC 003F
-39FC 0061
-39FC 0041
-39FC 0062
-39FD 0021
-39FD 003F
-39FD 0061
-39FD 0041
-39FD 0062
-39FE 0021
-39FE 003F
-39FE 0061
-39FE 0041
-39FE 0062
-39FF 0021
-39FF 003F
-39FF 0061
-39FF 0041
-39FF 0062
-3A00 0021
-3A00 003F
-3A00 0061
-3A00 0041
-3A00 0062
-3A01 0021
-3A01 003F
-3A01 0061
-3A01 0041
-3A01 0062
-3A02 0021
-3A02 003F
-3A02 0061
-3A02 0041
-3A02 0062
-3A03 0021
-3A03 003F
-3A03 0061
-3A03 0041
-3A03 0062
-3A04 0021
-3A04 003F
-3A04 0061
-3A04 0041
-3A04 0062
-3A05 0021
-3A05 003F
-3A05 0061
-3A05 0041
-3A05 0062
-3A06 0021
-3A06 003F
-3A06 0061
-3A06 0041
-3A06 0062
-3A07 0021
-3A07 003F
-3A07 0061
-3A07 0041
-3A07 0062
-3A08 0021
-3A08 003F
-3A08 0061
-3A08 0041
-3A08 0062
-3A09 0021
-3A09 003F
-3A09 0061
-3A09 0041
-3A09 0062
-3A0A 0021
-3A0A 003F
-3A0A 0061
-3A0A 0041
-3A0A 0062
-3A0B 0021
-3A0B 003F
-3A0B 0061
-3A0B 0041
-3A0B 0062
-3A0C 0021
-3A0C 003F
-3A0C 0061
-3A0C 0041
-3A0C 0062
-3A0D 0021
-3A0D 003F
-3A0D 0061
-3A0D 0041
-3A0D 0062
-3A0E 0021
-3A0E 003F
-3A0E 0061
-3A0E 0041
-3A0E 0062
-3A0F 0021
-3A0F 003F
-3A0F 0061
-3A0F 0041
-3A0F 0062
-3A10 0021
-3A10 003F
-3A10 0061
-3A10 0041
-3A10 0062
-3A11 0021
-3A11 003F
-3A11 0061
-3A11 0041
-3A11 0062
-3A12 0021
-3A12 003F
-3A12 0061
-3A12 0041
-3A12 0062
-3A13 0021
-3A13 003F
-3A13 0061
-3A13 0041
-3A13 0062
-3A14 0021
-3A14 003F
-3A14 0061
-3A14 0041
-3A14 0062
-3A15 0021
-3A15 003F
-3A15 0061
-3A15 0041
-3A15 0062
-3A16 0021
-3A16 003F
-3A16 0061
-3A16 0041
-3A16 0062
-3A17 0021
-3A17 003F
-3A17 0061
-3A17 0041
-3A17 0062
-3A18 0021
-3A18 003F
-3A18 0061
-3A18 0041
-3A18 0062
-3A19 0021
-3A19 003F
-3A19 0061
-3A19 0041
-3A19 0062
-3A1A 0021
-3A1A 003F
-3A1A 0061
-3A1A 0041
-3A1A 0062
-3A1B 0021
-3A1B 003F
-3A1B 0061
-3A1B 0041
-3A1B 0062
-3A1C 0021
-3A1C 003F
-3A1C 0061
-3A1C 0041
-3A1C 0062
-3A1D 0021
-3A1D 003F
-3A1D 0061
-3A1D 0041
-3A1D 0062
-3A1E 0021
-3A1E 003F
-3A1E 0061
-3A1E 0041
-3A1E 0062
-3A1F 0021
-3A1F 003F
-3A1F 0061
-3A1F 0041
-3A1F 0062
-3A20 0021
-3A20 003F
-3A20 0061
-3A20 0041
-3A20 0062
-3A21 0021
-3A21 003F
-3A21 0061
-3A21 0041
-3A21 0062
-3A22 0021
-3A22 003F
-3A22 0061
-3A22 0041
-3A22 0062
-3A23 0021
-3A23 003F
-3A23 0061
-3A23 0041
-3A23 0062
-3A24 0021
-3A24 003F
-3A24 0061
-3A24 0041
-3A24 0062
-3A25 0021
-3A25 003F
-3A25 0061
-3A25 0041
-3A25 0062
-3A26 0021
-3A26 003F
-3A26 0061
-3A26 0041
-3A26 0062
-3A27 0021
-3A27 003F
-3A27 0061
-3A27 0041
-3A27 0062
-3A28 0021
-3A28 003F
-3A28 0061
-3A28 0041
-3A28 0062
-3A29 0021
-3A29 003F
-3A29 0061
-3A29 0041
-3A29 0062
-3A2A 0021
-3A2A 003F
-3A2A 0061
-3A2A 0041
-3A2A 0062
-3A2B 0021
-3A2B 003F
-3A2B 0061
-3A2B 0041
-3A2B 0062
-3A2C 0021
-3A2C 003F
-3A2C 0061
-3A2C 0041
-3A2C 0062
-3A2D 0021
-3A2D 003F
-3A2D 0061
-3A2D 0041
-3A2D 0062
-3A2E 0021
-2F8C2 0021
-3A2E 003F
-2F8C2 003F
-3A2E 0061
-2F8C2 0061
-3A2E 0041
-2F8C2 0041
-3A2E 0062
-2F8C2 0062
-3A2F 0021
-3A2F 003F
-3A2F 0061
-3A2F 0041
-3A2F 0062
-3A30 0021
-3A30 003F
-3A30 0061
-3A30 0041
-3A30 0062
-3A31 0021
-3A31 003F
-3A31 0061
-3A31 0041
-3A31 0062
-3A32 0021
-3A32 003F
-3A32 0061
-3A32 0041
-3A32 0062
-3A33 0021
-3A33 003F
-3A33 0061
-3A33 0041
-3A33 0062
-3A34 0021
-3A34 003F
-3A34 0061
-3A34 0041
-3A34 0062
-3A35 0021
-3A35 003F
-3A35 0061
-3A35 0041
-3A35 0062
-3A36 0021
-3A36 003F
-3A36 0061
-3A36 0041
-3A36 0062
-3A37 0021
-3A37 003F
-3A37 0061
-3A37 0041
-3A37 0062
-3A38 0021
-3A38 003F
-3A38 0061
-3A38 0041
-3A38 0062
-3A39 0021
-3A39 003F
-3A39 0061
-3A39 0041
-3A39 0062
-3A3A 0021
-3A3A 003F
-3A3A 0061
-3A3A 0041
-3A3A 0062
-3A3B 0021
-3A3B 003F
-3A3B 0061
-3A3B 0041
-3A3B 0062
-3A3C 0021
-3A3C 003F
-3A3C 0061
-3A3C 0041
-3A3C 0062
-3A3D 0021
-3A3D 003F
-3A3D 0061
-3A3D 0041
-3A3D 0062
-3A3E 0021
-3A3E 003F
-3A3E 0061
-3A3E 0041
-3A3E 0062
-3A3F 0021
-3A3F 003F
-3A3F 0061
-3A3F 0041
-3A3F 0062
-3A40 0021
-3A40 003F
-3A40 0061
-3A40 0041
-3A40 0062
-3A41 0021
-3A41 003F
-3A41 0061
-3A41 0041
-3A41 0062
-3A42 0021
-3A42 003F
-3A42 0061
-3A42 0041
-3A42 0062
-3A43 0021
-3A43 003F
-3A43 0061
-3A43 0041
-3A43 0062
-3A44 0021
-3A44 003F
-3A44 0061
-3A44 0041
-3A44 0062
-3A45 0021
-3A45 003F
-3A45 0061
-3A45 0041
-3A45 0062
-3A46 0021
-3A46 003F
-3A46 0061
-3A46 0041
-3A46 0062
-3A47 0021
-3A47 003F
-3A47 0061
-3A47 0041
-3A47 0062
-3A48 0021
-3A48 003F
-3A48 0061
-3A48 0041
-3A48 0062
-3A49 0021
-3A49 003F
-3A49 0061
-3A49 0041
-3A49 0062
-3A4A 0021
-3A4A 003F
-3A4A 0061
-3A4A 0041
-3A4A 0062
-3A4B 0021
-3A4B 003F
-3A4B 0061
-3A4B 0041
-3A4B 0062
-3A4C 0021
-3A4C 003F
-3A4C 0061
-3A4C 0041
-3A4C 0062
-3A4D 0021
-3A4D 003F
-3A4D 0061
-3A4D 0041
-3A4D 0062
-3A4E 0021
-3A4E 003F
-3A4E 0061
-3A4E 0041
-3A4E 0062
-3A4F 0021
-3A4F 003F
-3A4F 0061
-3A4F 0041
-3A4F 0062
-3A50 0021
-3A50 003F
-3A50 0061
-3A50 0041
-3A50 0062
-3A51 0021
-3A51 003F
-3A51 0061
-3A51 0041
-3A51 0062
-3A52 0021
-3A52 003F
-3A52 0061
-3A52 0041
-3A52 0062
-3A53 0021
-3A53 003F
-3A53 0061
-3A53 0041
-3A53 0062
-3A54 0021
-3A54 003F
-3A54 0061
-3A54 0041
-3A54 0062
-3A55 0021
-3A55 003F
-3A55 0061
-3A55 0041
-3A55 0062
-3A56 0021
-3A56 003F
-3A56 0061
-3A56 0041
-3A56 0062
-3A57 0021
-3A57 003F
-3A57 0061
-3A57 0041
-3A57 0062
-3A58 0021
-3A58 003F
-3A58 0061
-3A58 0041
-3A58 0062
-3A59 0021
-3A59 003F
-3A59 0061
-3A59 0041
-3A59 0062
-3A5A 0021
-3A5A 003F
-3A5A 0061
-3A5A 0041
-3A5A 0062
-3A5B 0021
-3A5B 003F
-3A5B 0061
-3A5B 0041
-3A5B 0062
-3A5C 0021
-3A5C 003F
-3A5C 0061
-3A5C 0041
-3A5C 0062
-3A5D 0021
-3A5D 003F
-3A5D 0061
-3A5D 0041
-3A5D 0062
-3A5E 0021
-3A5E 003F
-3A5E 0061
-3A5E 0041
-3A5E 0062
-3A5F 0021
-3A5F 003F
-3A5F 0061
-3A5F 0041
-3A5F 0062
-3A60 0021
-3A60 003F
-3A60 0061
-3A60 0041
-3A60 0062
-3A61 0021
-3A61 003F
-3A61 0061
-3A61 0041
-3A61 0062
-3A62 0021
-3A62 003F
-3A62 0061
-3A62 0041
-3A62 0062
-3A63 0021
-3A63 003F
-3A63 0061
-3A63 0041
-3A63 0062
-3A64 0021
-3A64 003F
-3A64 0061
-3A64 0041
-3A64 0062
-3A65 0021
-3A65 003F
-3A65 0061
-3A65 0041
-3A65 0062
-3A66 0021
-3A66 003F
-3A66 0061
-3A66 0041
-3A66 0062
-3A67 0021
-3A67 003F
-3A67 0061
-3A67 0041
-3A67 0062
-3A68 0021
-3A68 003F
-3A68 0061
-3A68 0041
-3A68 0062
-3A69 0021
-3A69 003F
-3A69 0061
-3A69 0041
-3A69 0062
-3A6A 0021
-3A6A 003F
-3A6A 0061
-3A6A 0041
-3A6A 0062
-3A6B 0021
-3A6B 003F
-3A6B 0061
-3A6B 0041
-3A6B 0062
-3A6C 0021
-2F8C7 0021
-3A6C 003F
-2F8C7 003F
-3A6C 0061
-2F8C7 0061
-3A6C 0041
-2F8C7 0041
-3A6C 0062
-2F8C7 0062
-3A6D 0021
-3A6D 003F
-3A6D 0061
-3A6D 0041
-3A6D 0062
-3A6E 0021
-3A6E 003F
-3A6E 0061
-3A6E 0041
-3A6E 0062
-3A6F 0021
-3A6F 003F
-3A6F 0061
-3A6F 0041
-3A6F 0062
-3A70 0021
-3A70 003F
-3A70 0061
-3A70 0041
-3A70 0062
-3A71 0021
-3A71 003F
-3A71 0061
-3A71 0041
-3A71 0062
-3A72 0021
-3A72 003F
-3A72 0061
-3A72 0041
-3A72 0062
-3A73 0021
-3A73 003F
-3A73 0061
-3A73 0041
-3A73 0062
-3A74 0021
-3A74 003F
-3A74 0061
-3A74 0041
-3A74 0062
-3A75 0021
-3A75 003F
-3A75 0061
-3A75 0041
-3A75 0062
-3A76 0021
-3A76 003F
-3A76 0061
-3A76 0041
-3A76 0062
-3A77 0021
-3A77 003F
-3A77 0061
-3A77 0041
-3A77 0062
-3A78 0021
-3A78 003F
-3A78 0061
-3A78 0041
-3A78 0062
-3A79 0021
-3A79 003F
-3A79 0061
-3A79 0041
-3A79 0062
-3A7A 0021
-3A7A 003F
-3A7A 0061
-3A7A 0041
-3A7A 0062
-3A7B 0021
-3A7B 003F
-3A7B 0061
-3A7B 0041
-3A7B 0062
-3A7C 0021
-3A7C 003F
-3A7C 0061
-3A7C 0041
-3A7C 0062
-3A7D 0021
-3A7D 003F
-3A7D 0061
-3A7D 0041
-3A7D 0062
-3A7E 0021
-3A7E 003F
-3A7E 0061
-3A7E 0041
-3A7E 0062
-3A7F 0021
-3A7F 003F
-3A7F 0061
-3A7F 0041
-3A7F 0062
-3A80 0021
-3A80 003F
-3A80 0061
-3A80 0041
-3A80 0062
-3A81 0021
-3A81 003F
-3A81 0061
-3A81 0041
-3A81 0062
-3A82 0021
-3A82 003F
-3A82 0061
-3A82 0041
-3A82 0062
-3A83 0021
-3A83 003F
-3A83 0061
-3A83 0041
-3A83 0062
-3A84 0021
-3A84 003F
-3A84 0061
-3A84 0041
-3A84 0062
-3A85 0021
-3A85 003F
-3A85 0061
-3A85 0041
-3A85 0062
-3A86 0021
-3A86 003F
-3A86 0061
-3A86 0041
-3A86 0062
-3A87 0021
-3A87 003F
-3A87 0061
-3A87 0041
-3A87 0062
-3A88 0021
-3A88 003F
-3A88 0061
-3A88 0041
-3A88 0062
-3A89 0021
-3A89 003F
-3A89 0061
-3A89 0041
-3A89 0062
-3A8A 0021
-3A8A 003F
-3A8A 0061
-3A8A 0041
-3A8A 0062
-3A8B 0021
-3A8B 003F
-3A8B 0061
-3A8B 0041
-3A8B 0062
-3A8C 0021
-3A8C 003F
-3A8C 0061
-3A8C 0041
-3A8C 0062
-3A8D 0021
-3A8D 003F
-3A8D 0061
-3A8D 0041
-3A8D 0062
-3A8E 0021
-3A8E 003F
-3A8E 0061
-3A8E 0041
-3A8E 0062
-3A8F 0021
-3A8F 003F
-3A8F 0061
-3A8F 0041
-3A8F 0062
-3A90 0021
-3A90 003F
-3A90 0061
-3A90 0041
-3A90 0062
-3A91 0021
-3A91 003F
-3A91 0061
-3A91 0041
-3A91 0062
-3A92 0021
-3A92 003F
-3A92 0061
-3A92 0041
-3A92 0062
-3A93 0021
-3A93 003F
-3A93 0061
-3A93 0041
-3A93 0062
-3A94 0021
-3A94 003F
-3A94 0061
-3A94 0041
-3A94 0062
-3A95 0021
-3A95 003F
-3A95 0061
-3A95 0041
-3A95 0062
-3A96 0021
-3A96 003F
-3A96 0061
-3A96 0041
-3A96 0062
-3A97 0021
-3A97 003F
-3A97 0061
-3A97 0041
-3A97 0062
-3A98 0021
-3A98 003F
-3A98 0061
-3A98 0041
-3A98 0062
-3A99 0021
-3A99 003F
-3A99 0061
-3A99 0041
-3A99 0062
-3A9A 0021
-3A9A 003F
-3A9A 0061
-3A9A 0041
-3A9A 0062
-3A9B 0021
-3A9B 003F
-3A9B 0061
-3A9B 0041
-3A9B 0062
-3A9C 0021
-3A9C 003F
-3A9C 0061
-3A9C 0041
-3A9C 0062
-3A9D 0021
-3A9D 003F
-3A9D 0061
-3A9D 0041
-3A9D 0062
-3A9E 0021
-3A9E 003F
-3A9E 0061
-3A9E 0041
-3A9E 0062
-3A9F 0021
-3A9F 003F
-3A9F 0061
-3A9F 0041
-3A9F 0062
-3AA0 0021
-3AA0 003F
-3AA0 0061
-3AA0 0041
-3AA0 0062
-3AA1 0021
-3AA1 003F
-3AA1 0061
-3AA1 0041
-3AA1 0062
-3AA2 0021
-3AA2 003F
-3AA2 0061
-3AA2 0041
-3AA2 0062
-3AA3 0021
-3AA3 003F
-3AA3 0061
-3AA3 0041
-3AA3 0062
-3AA4 0021
-3AA4 003F
-3AA4 0061
-3AA4 0041
-3AA4 0062
-3AA5 0021
-3AA5 003F
-3AA5 0061
-3AA5 0041
-3AA5 0062
-3AA6 0021
-3AA6 003F
-3AA6 0061
-3AA6 0041
-3AA6 0062
-3AA7 0021
-3AA7 003F
-3AA7 0061
-3AA7 0041
-3AA7 0062
-3AA8 0021
-3AA8 003F
-3AA8 0061
-3AA8 0041
-3AA8 0062
-3AA9 0021
-3AA9 003F
-3AA9 0061
-3AA9 0041
-3AA9 0062
-3AAA 0021
-3AAA 003F
-3AAA 0061
-3AAA 0041
-3AAA 0062
-3AAB 0021
-3AAB 003F
-3AAB 0061
-3AAB 0041
-3AAB 0062
-3AAC 0021
-3AAC 003F
-3AAC 0061
-3AAC 0041
-3AAC 0062
-3AAD 0021
-3AAD 003F
-3AAD 0061
-3AAD 0041
-3AAD 0062
-3AAE 0021
-3AAE 003F
-3AAE 0061
-3AAE 0041
-3AAE 0062
-3AAF 0021
-3AAF 003F
-3AAF 0061
-3AAF 0041
-3AAF 0062
-3AB0 0021
-3AB0 003F
-3AB0 0061
-3AB0 0041
-3AB0 0062
-3AB1 0021
-3AB1 003F
-3AB1 0061
-3AB1 0041
-3AB1 0062
-3AB2 0021
-3AB2 003F
-3AB2 0061
-3AB2 0041
-3AB2 0062
-3AB3 0021
-3AB3 003F
-3AB3 0061
-3AB3 0041
-3AB3 0062
-3AB4 0021
-3AB4 003F
-3AB4 0061
-3AB4 0041
-3AB4 0062
-3AB5 0021
-3AB5 003F
-3AB5 0061
-3AB5 0041
-3AB5 0062
-3AB6 0021
-3AB6 003F
-3AB6 0061
-3AB6 0041
-3AB6 0062
-3AB7 0021
-3AB7 003F
-3AB7 0061
-3AB7 0041
-3AB7 0062
-3AB8 0021
-3AB8 003F
-3AB8 0061
-3AB8 0041
-3AB8 0062
-3AB9 0021
-3AB9 003F
-3AB9 0061
-3AB9 0041
-3AB9 0062
-3ABA 0021
-3ABA 003F
-3ABA 0061
-3ABA 0041
-3ABA 0062
-3ABB 0021
-3ABB 003F
-3ABB 0061
-3ABB 0041
-3ABB 0062
-3ABC 0021
-3ABC 003F
-3ABC 0061
-3ABC 0041
-3ABC 0062
-3ABD 0021
-3ABD 003F
-3ABD 0061
-3ABD 0041
-3ABD 0062
-3ABE 0021
-3ABE 003F
-3ABE 0061
-3ABE 0041
-3ABE 0062
-3ABF 0021
-3ABF 003F
-3ABF 0061
-3ABF 0041
-3ABF 0062
-3AC0 0021
-3AC0 003F
-3AC0 0061
-3AC0 0041
-3AC0 0062
-3AC1 0021
-3AC1 003F
-3AC1 0061
-3AC1 0041
-3AC1 0062
-3AC2 0021
-3AC2 003F
-3AC2 0061
-3AC2 0041
-3AC2 0062
-3AC3 0021
-3AC3 003F
-3AC3 0061
-3AC3 0041
-3AC3 0062
-3AC4 0021
-3AC4 003F
-3AC4 0061
-3AC4 0041
-3AC4 0062
-3AC5 0021
-3AC5 003F
-3AC5 0061
-3AC5 0041
-3AC5 0062
-3AC6 0021
-3AC6 003F
-3AC6 0061
-3AC6 0041
-3AC6 0062
-3AC7 0021
-3AC7 003F
-3AC7 0061
-3AC7 0041
-3AC7 0062
-3AC8 0021
-3AC8 003F
-3AC8 0061
-3AC8 0041
-3AC8 0062
-3AC9 0021
-3AC9 003F
-3AC9 0061
-3AC9 0041
-3AC9 0062
-3ACA 0021
-3ACA 003F
-3ACA 0061
-3ACA 0041
-3ACA 0062
-3ACB 0021
-3ACB 003F
-3ACB 0061
-3ACB 0041
-3ACB 0062
-3ACC 0021
-3ACC 003F
-3ACC 0061
-3ACC 0041
-3ACC 0062
-3ACD 0021
-3ACD 003F
-3ACD 0061
-3ACD 0041
-3ACD 0062
-3ACE 0021
-3ACE 003F
-3ACE 0061
-3ACE 0041
-3ACE 0062
-3ACF 0021
-3ACF 003F
-3ACF 0061
-3ACF 0041
-3ACF 0062
-3AD0 0021
-3AD0 003F
-3AD0 0061
-3AD0 0041
-3AD0 0062
-3AD1 0021
-3AD1 003F
-3AD1 0061
-3AD1 0041
-3AD1 0062
-3AD2 0021
-3AD2 003F
-3AD2 0061
-3AD2 0041
-3AD2 0062
-3AD3 0021
-3AD3 003F
-3AD3 0061
-3AD3 0041
-3AD3 0062
-3AD4 0021
-3AD4 003F
-3AD4 0061
-3AD4 0041
-3AD4 0062
-3AD5 0021
-3AD5 003F
-3AD5 0061
-3AD5 0041
-3AD5 0062
-3AD6 0021
-3AD6 003F
-3AD6 0061
-3AD6 0041
-3AD6 0062
-3AD7 0021
-3AD7 003F
-3AD7 0061
-3AD7 0041
-3AD7 0062
-3AD8 0021
-3AD8 003F
-3AD8 0061
-3AD8 0041
-3AD8 0062
-3AD9 0021
-3AD9 003F
-3AD9 0061
-3AD9 0041
-3AD9 0062
-3ADA 0021
-3ADA 003F
-3ADA 0061
-3ADA 0041
-3ADA 0062
-3ADB 0021
-3ADB 003F
-3ADB 0061
-3ADB 0041
-3ADB 0062
-3ADC 0021
-3ADC 003F
-3ADC 0061
-3ADC 0041
-3ADC 0062
-3ADD 0021
-3ADD 003F
-3ADD 0061
-3ADD 0041
-3ADD 0062
-3ADE 0021
-3ADE 003F
-3ADE 0061
-3ADE 0041
-3ADE 0062
-3ADF 0021
-3ADF 003F
-3ADF 0061
-3ADF 0041
-3ADF 0062
-3AE0 0021
-3AE0 003F
-3AE0 0061
-3AE0 0041
-3AE0 0062
-3AE1 0021
-3AE1 003F
-3AE1 0061
-3AE1 0041
-3AE1 0062
-3AE2 0021
-3AE2 003F
-3AE2 0061
-3AE2 0041
-3AE2 0062
-3AE3 0021
-3AE3 003F
-3AE3 0061
-3AE3 0041
-3AE3 0062
-3AE4 0021
-2F8D1 0021
-3AE4 003F
-2F8D1 003F
-3AE4 0061
-2F8D1 0061
-3AE4 0041
-2F8D1 0041
-3AE4 0062
-2F8D1 0062
-3AE5 0021
-3AE5 003F
-3AE5 0061
-3AE5 0041
-3AE5 0062
-3AE6 0021
-3AE6 003F
-3AE6 0061
-3AE6 0041
-3AE6 0062
-3AE7 0021
-3AE7 003F
-3AE7 0061
-3AE7 0041
-3AE7 0062
-3AE8 0021
-3AE8 003F
-3AE8 0061
-3AE8 0041
-3AE8 0062
-3AE9 0021
-3AE9 003F
-3AE9 0061
-3AE9 0041
-3AE9 0062
-3AEA 0021
-3AEA 003F
-3AEA 0061
-3AEA 0041
-3AEA 0062
-3AEB 0021
-3AEB 003F
-3AEB 0061
-3AEB 0041
-3AEB 0062
-3AEC 0021
-3AEC 003F
-3AEC 0061
-3AEC 0041
-3AEC 0062
-3AED 0021
-3AED 003F
-3AED 0061
-3AED 0041
-3AED 0062
-3AEE 0021
-3AEE 003F
-3AEE 0061
-3AEE 0041
-3AEE 0062
-3AEF 0021
-3AEF 003F
-3AEF 0061
-3AEF 0041
-3AEF 0062
-3AF0 0021
-3AF0 003F
-3AF0 0061
-3AF0 0041
-3AF0 0062
-3AF1 0021
-3AF1 003F
-3AF1 0061
-3AF1 0041
-3AF1 0062
-3AF2 0021
-3AF2 003F
-3AF2 0061
-3AF2 0041
-3AF2 0062
-3AF3 0021
-3AF3 003F
-3AF3 0061
-3AF3 0041
-3AF3 0062
-3AF4 0021
-3AF4 003F
-3AF4 0061
-3AF4 0041
-3AF4 0062
-3AF5 0021
-3AF5 003F
-3AF5 0061
-3AF5 0041
-3AF5 0062
-3AF6 0021
-3AF6 003F
-3AF6 0061
-3AF6 0041
-3AF6 0062
-3AF7 0021
-3AF7 003F
-3AF7 0061
-3AF7 0041
-3AF7 0062
-3AF8 0021
-3AF8 003F
-3AF8 0061
-3AF8 0041
-3AF8 0062
-3AF9 0021
-3AF9 003F
-3AF9 0061
-3AF9 0041
-3AF9 0062
-3AFA 0021
-3AFA 003F
-3AFA 0061
-3AFA 0041
-3AFA 0062
-3AFB 0021
-3AFB 003F
-3AFB 0061
-3AFB 0041
-3AFB 0062
-3AFC 0021
-3AFC 003F
-3AFC 0061
-3AFC 0041
-3AFC 0062
-3AFD 0021
-3AFD 003F
-3AFD 0061
-3AFD 0041
-3AFD 0062
-3AFE 0021
-3AFE 003F
-3AFE 0061
-3AFE 0041
-3AFE 0062
-3AFF 0021
-3AFF 003F
-3AFF 0061
-3AFF 0041
-3AFF 0062
-3B00 0021
-3B00 003F
-3B00 0061
-3B00 0041
-3B00 0062
-3B01 0021
-3B01 003F
-3B01 0061
-3B01 0041
-3B01 0062
-3B02 0021
-3B02 003F
-3B02 0061
-3B02 0041
-3B02 0062
-3B03 0021
-3B03 003F
-3B03 0061
-3B03 0041
-3B03 0062
-3B04 0021
-3B04 003F
-3B04 0061
-3B04 0041
-3B04 0062
-3B05 0021
-3B05 003F
-3B05 0061
-3B05 0041
-3B05 0062
-3B06 0021
-3B06 003F
-3B06 0061
-3B06 0041
-3B06 0062
-3B07 0021
-3B07 003F
-3B07 0061
-3B07 0041
-3B07 0062
-3B08 0021
-2F8D0 0021
-3B08 003F
-2F8D0 003F
-3B08 0061
-2F8D0 0061
-3B08 0041
-2F8D0 0041
-3B08 0062
-2F8D0 0062
-3B09 0021
-3B09 003F
-3B09 0061
-3B09 0041
-3B09 0062
-3B0A 0021
-3B0A 003F
-3B0A 0061
-3B0A 0041
-3B0A 0062
-3B0B 0021
-3B0B 003F
-3B0B 0061
-3B0B 0041
-3B0B 0062
-3B0C 0021
-3B0C 003F
-3B0C 0061
-3B0C 0041
-3B0C 0062
-3B0D 0021
-3B0D 003F
-3B0D 0061
-3B0D 0041
-3B0D 0062
-3B0E 0021
-3B0E 003F
-3B0E 0061
-3B0E 0041
-3B0E 0062
-3B0F 0021
-3B0F 003F
-3B0F 0061
-3B0F 0041
-3B0F 0062
-3B10 0021
-3B10 003F
-3B10 0061
-3B10 0041
-3B10 0062
-3B11 0021
-3B11 003F
-3B11 0061
-3B11 0041
-3B11 0062
-3B12 0021
-3B12 003F
-3B12 0061
-3B12 0041
-3B12 0062
-3B13 0021
-3B13 003F
-3B13 0061
-3B13 0041
-3B13 0062
-3B14 0021
-3B14 003F
-3B14 0061
-3B14 0041
-3B14 0062
-3B15 0021
-3B15 003F
-3B15 0061
-3B15 0041
-3B15 0062
-3B16 0021
-3B16 003F
-3B16 0061
-3B16 0041
-3B16 0062
-3B17 0021
-3B17 003F
-3B17 0061
-3B17 0041
-3B17 0062
-3B18 0021
-3B18 003F
-3B18 0061
-3B18 0041
-3B18 0062
-3B19 0021
-2F8CE 0021
-3B19 003F
-2F8CE 003F
-3B19 0061
-2F8CE 0061
-3B19 0041
-2F8CE 0041
-3B19 0062
-2F8CE 0062
-3B1A 0021
-3B1A 003F
-3B1A 0061
-3B1A 0041
-3B1A 0062
-3B1B 0021
-3B1B 003F
-3B1B 0061
-3B1B 0041
-3B1B 0062
-3B1C 0021
-3B1C 003F
-3B1C 0061
-3B1C 0041
-3B1C 0062
-3B1D 0021
-3B1D 003F
-3B1D 0061
-3B1D 0041
-3B1D 0062
-3B1E 0021
-3B1E 003F
-3B1E 0061
-3B1E 0041
-3B1E 0062
-3B1F 0021
-3B1F 003F
-3B1F 0061
-3B1F 0041
-3B1F 0062
-3B20 0021
-3B20 003F
-3B20 0061
-3B20 0041
-3B20 0062
-3B21 0021
-3B21 003F
-3B21 0061
-3B21 0041
-3B21 0062
-3B22 0021
-3B22 003F
-3B22 0061
-3B22 0041
-3B22 0062
-3B23 0021
-3B23 003F
-3B23 0061
-3B23 0041
-3B23 0062
-3B24 0021
-3B24 003F
-3B24 0061
-3B24 0041
-3B24 0062
-3B25 0021
-3B25 003F
-3B25 0061
-3B25 0041
-3B25 0062
-3B26 0021
-3B26 003F
-3B26 0061
-3B26 0041
-3B26 0062
-3B27 0021
-3B27 003F
-3B27 0061
-3B27 0041
-3B27 0062
-3B28 0021
-3B28 003F
-3B28 0061
-3B28 0041
-3B28 0062
-3B29 0021
-3B29 003F
-3B29 0061
-3B29 0041
-3B29 0062
-3B2A 0021
-3B2A 003F
-3B2A 0061
-3B2A 0041
-3B2A 0062
-3B2B 0021
-3B2B 003F
-3B2B 0061
-3B2B 0041
-3B2B 0062
-3B2C 0021
-3B2C 003F
-3B2C 0061
-3B2C 0041
-3B2C 0062
-3B2D 0021
-3B2D 003F
-3B2D 0061
-3B2D 0041
-3B2D 0062
-3B2E 0021
-3B2E 003F
-3B2E 0061
-3B2E 0041
-3B2E 0062
-3B2F 0021
-3B2F 003F
-3B2F 0061
-3B2F 0041
-3B2F 0062
-3B30 0021
-3B30 003F
-3B30 0061
-3B30 0041
-3B30 0062
-3B31 0021
-3B31 003F
-3B31 0061
-3B31 0041
-3B31 0062
-3B32 0021
-3B32 003F
-3B32 0061
-3B32 0041
-3B32 0062
-3B33 0021
-3B33 003F
-3B33 0061
-3B33 0041
-3B33 0062
-3B34 0021
-3B34 003F
-3B34 0061
-3B34 0041
-3B34 0062
-3B35 0021
-3B35 003F
-3B35 0061
-3B35 0041
-3B35 0062
-3B36 0021
-3B36 003F
-3B36 0061
-3B36 0041
-3B36 0062
-3B37 0021
-3B37 003F
-3B37 0061
-3B37 0041
-3B37 0062
-3B38 0021
-3B38 003F
-3B38 0061
-3B38 0041
-3B38 0062
-3B39 0021
-3B39 003F
-3B39 0061
-3B39 0041
-3B39 0062
-3B3A 0021
-3B3A 003F
-3B3A 0061
-3B3A 0041
-3B3A 0062
-3B3B 0021
-3B3B 003F
-3B3B 0061
-3B3B 0041
-3B3B 0062
-3B3C 0021
-3B3C 003F
-3B3C 0061
-3B3C 0041
-3B3C 0062
-3B3D 0021
-3B3D 003F
-3B3D 0061
-3B3D 0041
-3B3D 0062
-3B3E 0021
-3B3E 003F
-3B3E 0061
-3B3E 0041
-3B3E 0062
-3B3F 0021
-3B3F 003F
-3B3F 0061
-3B3F 0041
-3B3F 0062
-3B40 0021
-3B40 003F
-3B40 0061
-3B40 0041
-3B40 0062
-3B41 0021
-3B41 003F
-3B41 0061
-3B41 0041
-3B41 0062
-3B42 0021
-3B42 003F
-3B42 0061
-3B42 0041
-3B42 0062
-3B43 0021
-3B43 003F
-3B43 0061
-3B43 0041
-3B43 0062
-3B44 0021
-3B44 003F
-3B44 0061
-3B44 0041
-3B44 0062
-3B45 0021
-3B45 003F
-3B45 0061
-3B45 0041
-3B45 0062
-3B46 0021
-3B46 003F
-3B46 0061
-3B46 0041
-3B46 0062
-3B47 0021
-3B47 003F
-3B47 0061
-3B47 0041
-3B47 0062
-3B48 0021
-3B48 003F
-3B48 0061
-3B48 0041
-3B48 0062
-3B49 0021
-2F8DE 0021
-3B49 003F
-2F8DE 003F
-3B49 0061
-2F8DE 0061
-3B49 0041
-2F8DE 0041
-3B49 0062
-2F8DE 0062
-3B4A 0021
-3B4A 003F
-3B4A 0061
-3B4A 0041
-3B4A 0062
-3B4B 0021
-3B4B 003F
-3B4B 0061
-3B4B 0041
-3B4B 0062
-3B4C 0021
-3B4C 003F
-3B4C 0061
-3B4C 0041
-3B4C 0062
-3B4D 0021
-3B4D 003F
-3B4D 0061
-3B4D 0041
-3B4D 0062
-3B4E 0021
-3B4E 003F
-3B4E 0061
-3B4E 0041
-3B4E 0062
-3B4F 0021
-3B4F 003F
-3B4F 0061
-3B4F 0041
-3B4F 0062
-3B50 0021
-3B50 003F
-3B50 0061
-3B50 0041
-3B50 0062
-3B51 0021
-3B51 003F
-3B51 0061
-3B51 0041
-3B51 0062
-3B52 0021
-3B52 003F
-3B52 0061
-3B52 0041
-3B52 0062
-3B53 0021
-3B53 003F
-3B53 0061
-3B53 0041
-3B53 0062
-3B54 0021
-3B54 003F
-3B54 0061
-3B54 0041
-3B54 0062
-3B55 0021
-3B55 003F
-3B55 0061
-3B55 0041
-3B55 0062
-3B56 0021
-3B56 003F
-3B56 0061
-3B56 0041
-3B56 0062
-3B57 0021
-3B57 003F
-3B57 0061
-3B57 0041
-3B57 0062
-3B58 0021
-3B58 003F
-3B58 0061
-3B58 0041
-3B58 0062
-3B59 0021
-3B59 003F
-3B59 0061
-3B59 0041
-3B59 0062
-3B5A 0021
-3B5A 003F
-3B5A 0061
-3B5A 0041
-3B5A 0062
-3B5B 0021
-3B5B 003F
-3B5B 0061
-3B5B 0041
-3B5B 0062
-3B5C 0021
-3B5C 003F
-3B5C 0061
-3B5C 0041
-3B5C 0062
-3B5D 0021
-3B5D 003F
-3B5D 0061
-3B5D 0041
-3B5D 0062
-3B5E 0021
-3B5E 003F
-3B5E 0061
-3B5E 0041
-3B5E 0062
-3B5F 0021
-3B5F 003F
-3B5F 0061
-3B5F 0041
-3B5F 0062
-3B60 0021
-3B60 003F
-3B60 0061
-3B60 0041
-3B60 0062
-3B61 0021
-3B61 003F
-3B61 0061
-3B61 0041
-3B61 0062
-3B62 0021
-3B62 003F
-3B62 0061
-3B62 0041
-3B62 0062
-3B63 0021
-3B63 003F
-3B63 0061
-3B63 0041
-3B63 0062
-3B64 0021
-3B64 003F
-3B64 0061
-3B64 0041
-3B64 0062
-3B65 0021
-3B65 003F
-3B65 0061
-3B65 0041
-3B65 0062
-3B66 0021
-3B66 003F
-3B66 0061
-3B66 0041
-3B66 0062
-3B67 0021
-3B67 003F
-3B67 0061
-3B67 0041
-3B67 0062
-3B68 0021
-3B68 003F
-3B68 0061
-3B68 0041
-3B68 0062
-3B69 0021
-3B69 003F
-3B69 0061
-3B69 0041
-3B69 0062
-3B6A 0021
-3B6A 003F
-3B6A 0061
-3B6A 0041
-3B6A 0062
-3B6B 0021
-3B6B 003F
-3B6B 0061
-3B6B 0041
-3B6B 0062
-3B6C 0021
-3B6C 003F
-3B6C 0061
-3B6C 0041
-3B6C 0062
-3B6D 0021
-3B6D 003F
-3B6D 0061
-3B6D 0041
-3B6D 0062
-3B6E 0021
-3B6E 003F
-3B6E 0061
-3B6E 0041
-3B6E 0062
-3B6F 0021
-3B6F 003F
-3B6F 0061
-3B6F 0041
-3B6F 0062
-3B70 0021
-3B70 003F
-3B70 0061
-3B70 0041
-3B70 0062
-3B71 0021
-3B71 003F
-3B71 0061
-3B71 0041
-3B71 0062
-3B72 0021
-3B72 003F
-3B72 0061
-3B72 0041
-3B72 0062
-3B73 0021
-3B73 003F
-3B73 0061
-3B73 0041
-3B73 0062
-3B74 0021
-3B74 003F
-3B74 0061
-3B74 0041
-3B74 0062
-3B75 0021
-3B75 003F
-3B75 0061
-3B75 0041
-3B75 0062
-3B76 0021
-3B76 003F
-3B76 0061
-3B76 0041
-3B76 0062
-3B77 0021
-3B77 003F
-3B77 0061
-3B77 0041
-3B77 0062
-3B78 0021
-3B78 003F
-3B78 0061
-3B78 0041
-3B78 0062
-3B79 0021
-3B79 003F
-3B79 0061
-3B79 0041
-3B79 0062
-3B7A 0021
-3B7A 003F
-3B7A 0061
-3B7A 0041
-3B7A 0062
-3B7B 0021
-3B7B 003F
-3B7B 0061
-3B7B 0041
-3B7B 0062
-3B7C 0021
-3B7C 003F
-3B7C 0061
-3B7C 0041
-3B7C 0062
-3B7D 0021
-3B7D 003F
-3B7D 0061
-3B7D 0041
-3B7D 0062
-3B7E 0021
-3B7E 003F
-3B7E 0061
-3B7E 0041
-3B7E 0062
-3B7F 0021
-3B7F 003F
-3B7F 0061
-3B7F 0041
-3B7F 0062
-3B80 0021
-3B80 003F
-3B80 0061
-3B80 0041
-3B80 0062
-3B81 0021
-3B81 003F
-3B81 0061
-3B81 0041
-3B81 0062
-3B82 0021
-3B82 003F
-3B82 0061
-3B82 0041
-3B82 0062
-3B83 0021
-3B83 003F
-3B83 0061
-3B83 0041
-3B83 0062
-3B84 0021
-3B84 003F
-3B84 0061
-3B84 0041
-3B84 0062
-3B85 0021
-3B85 003F
-3B85 0061
-3B85 0041
-3B85 0062
-3B86 0021
-3B86 003F
-3B86 0061
-3B86 0041
-3B86 0062
-3B87 0021
-3B87 003F
-3B87 0061
-3B87 0041
-3B87 0062
-3B88 0021
-3B88 003F
-3B88 0061
-3B88 0041
-3B88 0062
-3B89 0021
-3B89 003F
-3B89 0061
-3B89 0041
-3B89 0062
-3B8A 0021
-3B8A 003F
-3B8A 0061
-3B8A 0041
-3B8A 0062
-3B8B 0021
-3B8B 003F
-3B8B 0061
-3B8B 0041
-3B8B 0062
-3B8C 0021
-3B8C 003F
-3B8C 0061
-3B8C 0041
-3B8C 0062
-3B8D 0021
-3B8D 003F
-3B8D 0061
-3B8D 0041
-3B8D 0062
-3B8E 0021
-3B8E 003F
-3B8E 0061
-3B8E 0041
-3B8E 0062
-3B8F 0021
-3B8F 003F
-3B8F 0061
-3B8F 0041
-3B8F 0062
-3B90 0021
-3B90 003F
-3B90 0061
-3B90 0041
-3B90 0062
-3B91 0021
-3B91 003F
-3B91 0061
-3B91 0041
-3B91 0062
-3B92 0021
-3B92 003F
-3B92 0061
-3B92 0041
-3B92 0062
-3B93 0021
-3B93 003F
-3B93 0061
-3B93 0041
-3B93 0062
-3B94 0021
-3B94 003F
-3B94 0061
-3B94 0041
-3B94 0062
-3B95 0021
-3B95 003F
-3B95 0061
-3B95 0041
-3B95 0062
-3B96 0021
-3B96 003F
-3B96 0061
-3B96 0041
-3B96 0062
-3B97 0021
-3B97 003F
-3B97 0061
-3B97 0041
-3B97 0062
-3B98 0021
-3B98 003F
-3B98 0061
-3B98 0041
-3B98 0062
-3B99 0021
-3B99 003F
-3B99 0061
-3B99 0041
-3B99 0062
-3B9A 0021
-3B9A 003F
-3B9A 0061
-3B9A 0041
-3B9A 0062
-3B9B 0021
-3B9B 003F
-3B9B 0061
-3B9B 0041
-3B9B 0062
-3B9C 0021
-3B9C 003F
-3B9C 0061
-3B9C 0041
-3B9C 0062
-3B9D 0021
-FAD2 0021
-2F8E7 0021
-3B9D 003F
-FAD2 003F
-2F8E7 003F
-3B9D 0061
-FAD2 0061
-2F8E7 0061
-3B9D 0041
-FAD2 0041
-2F8E7 0041
-3B9D 0062
-FAD2 0062
-2F8E7 0062
-3B9E 0021
-3B9E 003F
-3B9E 0061
-3B9E 0041
-3B9E 0062
-3B9F 0021
-3B9F 003F
-3B9F 0061
-3B9F 0041
-3B9F 0062
-3BA0 0021
-3BA0 003F
-3BA0 0061
-3BA0 0041
-3BA0 0062
-3BA1 0021
-3BA1 003F
-3BA1 0061
-3BA1 0041
-3BA1 0062
-3BA2 0021
-3BA2 003F
-3BA2 0061
-3BA2 0041
-3BA2 0062
-3BA3 0021
-3BA3 003F
-3BA3 0061
-3BA3 0041
-3BA3 0062
-3BA4 0021
-3BA4 003F
-3BA4 0061
-3BA4 0041
-3BA4 0062
-3BA5 0021
-3BA5 003F
-3BA5 0061
-3BA5 0041
-3BA5 0062
-3BA6 0021
-3BA6 003F
-3BA6 0061
-3BA6 0041
-3BA6 0062
-3BA7 0021
-3BA7 003F
-3BA7 0061
-3BA7 0041
-3BA7 0062
-3BA8 0021
-3BA8 003F
-3BA8 0061
-3BA8 0041
-3BA8 0062
-3BA9 0021
-3BA9 003F
-3BA9 0061
-3BA9 0041
-3BA9 0062
-3BAA 0021
-3BAA 003F
-3BAA 0061
-3BAA 0041
-3BAA 0062
-3BAB 0021
-3BAB 003F
-3BAB 0061
-3BAB 0041
-3BAB 0062
-3BAC 0021
-3BAC 003F
-3BAC 0061
-3BAC 0041
-3BAC 0062
-3BAD 0021
-3BAD 003F
-3BAD 0061
-3BAD 0041
-3BAD 0062
-3BAE 0021
-3BAE 003F
-3BAE 0061
-3BAE 0041
-3BAE 0062
-3BAF 0021
-3BAF 003F
-3BAF 0061
-3BAF 0041
-3BAF 0062
-3BB0 0021
-3BB0 003F
-3BB0 0061
-3BB0 0041
-3BB0 0062
-3BB1 0021
-3BB1 003F
-3BB1 0061
-3BB1 0041
-3BB1 0062
-3BB2 0021
-3BB2 003F
-3BB2 0061
-3BB2 0041
-3BB2 0062
-3BB3 0021
-3BB3 003F
-3BB3 0061
-3BB3 0041
-3BB3 0062
-3BB4 0021
-3BB4 003F
-3BB4 0061
-3BB4 0041
-3BB4 0062
-3BB5 0021
-3BB5 003F
-3BB5 0061
-3BB5 0041
-3BB5 0062
-3BB6 0021
-3BB6 003F
-3BB6 0061
-3BB6 0041
-3BB6 0062
-3BB7 0021
-3BB7 003F
-3BB7 0061
-3BB7 0041
-3BB7 0062
-3BB8 0021
-3BB8 003F
-3BB8 0061
-3BB8 0041
-3BB8 0062
-3BB9 0021
-3BB9 003F
-3BB9 0061
-3BB9 0041
-3BB9 0062
-3BBA 0021
-3BBA 003F
-3BBA 0061
-3BBA 0041
-3BBA 0062
-3BBB 0021
-3BBB 003F
-3BBB 0061
-3BBB 0041
-3BBB 0062
-3BBC 0021
-3BBC 003F
-3BBC 0061
-3BBC 0041
-3BBC 0062
-3BBD 0021
-3BBD 003F
-3BBD 0061
-3BBD 0041
-3BBD 0062
-3BBE 0021
-3BBE 003F
-3BBE 0061
-3BBE 0041
-3BBE 0062
-3BBF 0021
-3BBF 003F
-3BBF 0061
-3BBF 0041
-3BBF 0062
-3BC0 0021
-3BC0 003F
-3BC0 0061
-3BC0 0041
-3BC0 0062
-3BC1 0021
-3BC1 003F
-3BC1 0061
-3BC1 0041
-3BC1 0062
-3BC2 0021
-3BC2 003F
-3BC2 0061
-3BC2 0041
-3BC2 0062
-3BC3 0021
-3BC3 003F
-3BC3 0061
-3BC3 0041
-3BC3 0062
-3BC4 0021
-3BC4 003F
-3BC4 0061
-3BC4 0041
-3BC4 0062
-3BC5 0021
-3BC5 003F
-3BC5 0061
-3BC5 0041
-3BC5 0062
-3BC6 0021
-3BC6 003F
-3BC6 0061
-3BC6 0041
-3BC6 0062
-3BC7 0021
-3BC7 003F
-3BC7 0061
-3BC7 0041
-3BC7 0062
-3BC8 0021
-3BC8 003F
-3BC8 0061
-3BC8 0041
-3BC8 0062
-3BC9 0021
-3BC9 003F
-3BC9 0061
-3BC9 0041
-3BC9 0062
-3BCA 0021
-3BCA 003F
-3BCA 0061
-3BCA 0041
-3BCA 0062
-3BCB 0021
-3BCB 003F
-3BCB 0061
-3BCB 0041
-3BCB 0062
-3BCC 0021
-3BCC 003F
-3BCC 0061
-3BCC 0041
-3BCC 0062
-3BCD 0021
-3BCD 003F
-3BCD 0061
-3BCD 0041
-3BCD 0062
-3BCE 0021
-3BCE 003F
-3BCE 0061
-3BCE 0041
-3BCE 0062
-3BCF 0021
-3BCF 003F
-3BCF 0061
-3BCF 0041
-3BCF 0062
-3BD0 0021
-3BD0 003F
-3BD0 0061
-3BD0 0041
-3BD0 0062
-3BD1 0021
-3BD1 003F
-3BD1 0061
-3BD1 0041
-3BD1 0062
-3BD2 0021
-3BD2 003F
-3BD2 0061
-3BD2 0041
-3BD2 0062
-3BD3 0021
-3BD3 003F
-3BD3 0061
-3BD3 0041
-3BD3 0062
-3BD4 0021
-3BD4 003F
-3BD4 0061
-3BD4 0041
-3BD4 0062
-3BD5 0021
-3BD5 003F
-3BD5 0061
-3BD5 0041
-3BD5 0062
-3BD6 0021
-3BD6 003F
-3BD6 0061
-3BD6 0041
-3BD6 0062
-3BD7 0021
-3BD7 003F
-3BD7 0061
-3BD7 0041
-3BD7 0062
-3BD8 0021
-3BD8 003F
-3BD8 0061
-3BD8 0041
-3BD8 0062
-3BD9 0021
-3BD9 003F
-3BD9 0061
-3BD9 0041
-3BD9 0062
-3BDA 0021
-3BDA 003F
-3BDA 0061
-3BDA 0041
-3BDA 0062
-3BDB 0021
-3BDB 003F
-3BDB 0061
-3BDB 0041
-3BDB 0062
-3BDC 0021
-3BDC 003F
-3BDC 0061
-3BDC 0041
-3BDC 0062
-3BDD 0021
-3BDD 003F
-3BDD 0061
-3BDD 0041
-3BDD 0062
-3BDE 0021
-3BDE 003F
-3BDE 0061
-3BDE 0041
-3BDE 0062
-3BDF 0021
-3BDF 003F
-3BDF 0061
-3BDF 0041
-3BDF 0062
-3BE0 0021
-3BE0 003F
-3BE0 0061
-3BE0 0041
-3BE0 0062
-3BE1 0021
-3BE1 003F
-3BE1 0061
-3BE1 0041
-3BE1 0062
-3BE2 0021
-3BE2 003F
-3BE2 0061
-3BE2 0041
-3BE2 0062
-3BE3 0021
-3BE3 003F
-3BE3 0061
-3BE3 0041
-3BE3 0062
-3BE4 0021
-3BE4 003F
-3BE4 0061
-3BE4 0041
-3BE4 0062
-3BE5 0021
-3BE5 003F
-3BE5 0061
-3BE5 0041
-3BE5 0062
-3BE6 0021
-3BE6 003F
-3BE6 0061
-3BE6 0041
-3BE6 0062
-3BE7 0021
-3BE7 003F
-3BE7 0061
-3BE7 0041
-3BE7 0062
-3BE8 0021
-3BE8 003F
-3BE8 0061
-3BE8 0041
-3BE8 0062
-3BE9 0021
-3BE9 003F
-3BE9 0061
-3BE9 0041
-3BE9 0062
-3BEA 0021
-3BEA 003F
-3BEA 0061
-3BEA 0041
-3BEA 0062
-3BEB 0021
-3BEB 003F
-3BEB 0061
-3BEB 0041
-3BEB 0062
-3BEC 0021
-3BEC 003F
-3BEC 0061
-3BEC 0041
-3BEC 0062
-3BED 0021
-3BED 003F
-3BED 0061
-3BED 0041
-3BED 0062
-3BEE 0021
-3BEE 003F
-3BEE 0061
-3BEE 0041
-3BEE 0062
-3BEF 0021
-3BEF 003F
-3BEF 0061
-3BEF 0041
-3BEF 0062
-3BF0 0021
-3BF0 003F
-3BF0 0061
-3BF0 0041
-3BF0 0062
-3BF1 0021
-3BF1 003F
-3BF1 0061
-3BF1 0041
-3BF1 0062
-3BF2 0021
-3BF2 003F
-3BF2 0061
-3BF2 0041
-3BF2 0062
-3BF3 0021
-3BF3 003F
-3BF3 0061
-3BF3 0041
-3BF3 0062
-3BF4 0021
-3BF4 003F
-3BF4 0061
-3BF4 0041
-3BF4 0062
-3BF5 0021
-3BF5 003F
-3BF5 0061
-3BF5 0041
-3BF5 0062
-3BF6 0021
-3BF6 003F
-3BF6 0061
-3BF6 0041
-3BF6 0062
-3BF7 0021
-3BF7 003F
-3BF7 0061
-3BF7 0041
-3BF7 0062
-3BF8 0021
-3BF8 003F
-3BF8 0061
-3BF8 0041
-3BF8 0062
-3BF9 0021
-3BF9 003F
-3BF9 0061
-3BF9 0041
-3BF9 0062
-3BFA 0021
-3BFA 003F
-3BFA 0061
-3BFA 0041
-3BFA 0062
-3BFB 0021
-3BFB 003F
-3BFB 0061
-3BFB 0041
-3BFB 0062
-3BFC 0021
-3BFC 003F
-3BFC 0061
-3BFC 0041
-3BFC 0062
-3BFD 0021
-3BFD 003F
-3BFD 0061
-3BFD 0041
-3BFD 0062
-3BFE 0021
-3BFE 003F
-3BFE 0061
-3BFE 0041
-3BFE 0062
-3BFF 0021
-3BFF 003F
-3BFF 0061
-3BFF 0041
-3BFF 0062
-3C00 0021
-3C00 003F
-3C00 0061
-3C00 0041
-3C00 0062
-3C01 0021
-3C01 003F
-3C01 0061
-3C01 0041
-3C01 0062
-3C02 0021
-3C02 003F
-3C02 0061
-3C02 0041
-3C02 0062
-3C03 0021
-3C03 003F
-3C03 0061
-3C03 0041
-3C03 0062
-3C04 0021
-3C04 003F
-3C04 0061
-3C04 0041
-3C04 0062
-3C05 0021
-3C05 003F
-3C05 0061
-3C05 0041
-3C05 0062
-3C06 0021
-3C06 003F
-3C06 0061
-3C06 0041
-3C06 0062
-3C07 0021
-3C07 003F
-3C07 0061
-3C07 0041
-3C07 0062
-3C08 0021
-3C08 003F
-3C08 0061
-3C08 0041
-3C08 0062
-3C09 0021
-3C09 003F
-3C09 0061
-3C09 0041
-3C09 0062
-3C0A 0021
-3C0A 003F
-3C0A 0061
-3C0A 0041
-3C0A 0062
-3C0B 0021
-3C0B 003F
-3C0B 0061
-3C0B 0041
-3C0B 0062
-3C0C 0021
-3C0C 003F
-3C0C 0061
-3C0C 0041
-3C0C 0062
-3C0D 0021
-3C0D 003F
-3C0D 0061
-3C0D 0041
-3C0D 0062
-3C0E 0021
-3C0E 003F
-3C0E 0061
-3C0E 0041
-3C0E 0062
-3C0F 0021
-3C0F 003F
-3C0F 0061
-3C0F 0041
-3C0F 0062
-3C10 0021
-3C10 003F
-3C10 0061
-3C10 0041
-3C10 0062
-3C11 0021
-3C11 003F
-3C11 0061
-3C11 0041
-3C11 0062
-3C12 0021
-3C12 003F
-3C12 0061
-3C12 0041
-3C12 0062
-3C13 0021
-3C13 003F
-3C13 0061
-3C13 0041
-3C13 0062
-3C14 0021
-3C14 003F
-3C14 0061
-3C14 0041
-3C14 0062
-3C15 0021
-3C15 003F
-3C15 0061
-3C15 0041
-3C15 0062
-3C16 0021
-3C16 003F
-3C16 0061
-3C16 0041
-3C16 0062
-3C17 0021
-3C17 003F
-3C17 0061
-3C17 0041
-3C17 0062
-3C18 0021
-2F8EE 0021
-3C18 003F
-2F8EE 003F
-3C18 0061
-2F8EE 0061
-3C18 0041
-2F8EE 0041
-3C18 0062
-2F8EE 0062
-3C19 0021
-3C19 003F
-3C19 0061
-3C19 0041
-3C19 0062
-3C1A 0021
-3C1A 003F
-3C1A 0061
-3C1A 0041
-3C1A 0062
-3C1B 0021
-3C1B 003F
-3C1B 0061
-3C1B 0041
-3C1B 0062
-3C1C 0021
-3C1C 003F
-3C1C 0061
-3C1C 0041
-3C1C 0062
-3C1D 0021
-3C1D 003F
-3C1D 0061
-3C1D 0041
-3C1D 0062
-3C1E 0021
-3C1E 003F
-3C1E 0061
-3C1E 0041
-3C1E 0062
-3C1F 0021
-3C1F 003F
-3C1F 0061
-3C1F 0041
-3C1F 0062
-3C20 0021
-3C20 003F
-3C20 0061
-3C20 0041
-3C20 0062
-3C21 0021
-3C21 003F
-3C21 0061
-3C21 0041
-3C21 0062
-3C22 0021
-3C22 003F
-3C22 0061
-3C22 0041
-3C22 0062
-3C23 0021
-3C23 003F
-3C23 0061
-3C23 0041
-3C23 0062
-3C24 0021
-3C24 003F
-3C24 0061
-3C24 0041
-3C24 0062
-3C25 0021
-3C25 003F
-3C25 0061
-3C25 0041
-3C25 0062
-3C26 0021
-3C26 003F
-3C26 0061
-3C26 0041
-3C26 0062
-3C27 0021
-3C27 003F
-3C27 0061
-3C27 0041
-3C27 0062
-3C28 0021
-3C28 003F
-3C28 0061
-3C28 0041
-3C28 0062
-3C29 0021
-3C29 003F
-3C29 0061
-3C29 0041
-3C29 0062
-3C2A 0021
-3C2A 003F
-3C2A 0061
-3C2A 0041
-3C2A 0062
-3C2B 0021
-3C2B 003F
-3C2B 0061
-3C2B 0041
-3C2B 0062
-3C2C 0021
-3C2C 003F
-3C2C 0061
-3C2C 0041
-3C2C 0062
-3C2D 0021
-3C2D 003F
-3C2D 0061
-3C2D 0041
-3C2D 0062
-3C2E 0021
-3C2E 003F
-3C2E 0061
-3C2E 0041
-3C2E 0062
-3C2F 0021
-3C2F 003F
-3C2F 0061
-3C2F 0041
-3C2F 0062
-3C30 0021
-3C30 003F
-3C30 0061
-3C30 0041
-3C30 0062
-3C31 0021
-3C31 003F
-3C31 0061
-3C31 0041
-3C31 0062
-3C32 0021
-3C32 003F
-3C32 0061
-3C32 0041
-3C32 0062
-3C33 0021
-3C33 003F
-3C33 0061
-3C33 0041
-3C33 0062
-3C34 0021
-3C34 003F
-3C34 0061
-3C34 0041
-3C34 0062
-3C35 0021
-3C35 003F
-3C35 0061
-3C35 0041
-3C35 0062
-3C36 0021
-3C36 003F
-3C36 0061
-3C36 0041
-3C36 0062
-3C37 0021
-3C37 003F
-3C37 0061
-3C37 0041
-3C37 0062
-3C38 0021
-3C38 003F
-3C38 0061
-3C38 0041
-3C38 0062
-3C39 0021
-3C39 003F
-3C39 0061
-3C39 0041
-3C39 0062
-3C3A 0021
-3C3A 003F
-3C3A 0061
-3C3A 0041
-3C3A 0062
-3C3B 0021
-3C3B 003F
-3C3B 0061
-3C3B 0041
-3C3B 0062
-3C3C 0021
-3C3C 003F
-3C3C 0061
-3C3C 0041
-3C3C 0062
-3C3D 0021
-3C3D 003F
-3C3D 0061
-3C3D 0041
-3C3D 0062
-3C3E 0021
-3C3E 003F
-3C3E 0061
-3C3E 0041
-3C3E 0062
-3C3F 0021
-3C3F 003F
-3C3F 0061
-3C3F 0041
-3C3F 0062
-3C40 0021
-3C40 003F
-3C40 0061
-3C40 0041
-3C40 0062
-3C41 0021
-3C41 003F
-3C41 0061
-3C41 0041
-3C41 0062
-3C42 0021
-3C42 003F
-3C42 0061
-3C42 0041
-3C42 0062
-3C43 0021
-3C43 003F
-3C43 0061
-3C43 0041
-3C43 0062
-3C44 0021
-3C44 003F
-3C44 0061
-3C44 0041
-3C44 0062
-3C45 0021
-3C45 003F
-3C45 0061
-3C45 0041
-3C45 0062
-3C46 0021
-3C46 003F
-3C46 0061
-3C46 0041
-3C46 0062
-3C47 0021
-3C47 003F
-3C47 0061
-3C47 0041
-3C47 0062
-3C48 0021
-3C48 003F
-3C48 0061
-3C48 0041
-3C48 0062
-3C49 0021
-3C49 003F
-3C49 0061
-3C49 0041
-3C49 0062
-3C4A 0021
-3C4A 003F
-3C4A 0061
-3C4A 0041
-3C4A 0062
-3C4B 0021
-3C4B 003F
-3C4B 0061
-3C4B 0041
-3C4B 0062
-3C4C 0021
-3C4C 003F
-3C4C 0061
-3C4C 0041
-3C4C 0062
-3C4D 0021
-3C4D 003F
-3C4D 0061
-3C4D 0041
-3C4D 0062
-3C4E 0021
-2F8F2 0021
-3C4E 003F
-2F8F2 003F
-3C4E 0061
-2F8F2 0061
-3C4E 0041
-2F8F2 0041
-3C4E 0062
-2F8F2 0062
-3C4F 0021
-3C4F 003F
-3C4F 0061
-3C4F 0041
-3C4F 0062
-3C50 0021
-3C50 003F
-3C50 0061
-3C50 0041
-3C50 0062
-3C51 0021
-3C51 003F
-3C51 0061
-3C51 0041
-3C51 0062
-3C52 0021
-3C52 003F
-3C52 0061
-3C52 0041
-3C52 0062
-3C53 0021
-3C53 003F
-3C53 0061
-3C53 0041
-3C53 0062
-3C54 0021
-3C54 003F
-3C54 0061
-3C54 0041
-3C54 0062
-3C55 0021
-3C55 003F
-3C55 0061
-3C55 0041
-3C55 0062
-3C56 0021
-3C56 003F
-3C56 0061
-3C56 0041
-3C56 0062
-3C57 0021
-3C57 003F
-3C57 0061
-3C57 0041
-3C57 0062
-3C58 0021
-3C58 003F
-3C58 0061
-3C58 0041
-3C58 0062
-3C59 0021
-3C59 003F
-3C59 0061
-3C59 0041
-3C59 0062
-3C5A 0021
-3C5A 003F
-3C5A 0061
-3C5A 0041
-3C5A 0062
-3C5B 0021
-3C5B 003F
-3C5B 0061
-3C5B 0041
-3C5B 0062
-3C5C 0021
-3C5C 003F
-3C5C 0061
-3C5C 0041
-3C5C 0062
-3C5D 0021
-3C5D 003F
-3C5D 0061
-3C5D 0041
-3C5D 0062
-3C5E 0021
-3C5E 003F
-3C5E 0061
-3C5E 0041
-3C5E 0062
-3C5F 0021
-3C5F 003F
-3C5F 0061
-3C5F 0041
-3C5F 0062
-3C60 0021
-3C60 003F
-3C60 0061
-3C60 0041
-3C60 0062
-3C61 0021
-3C61 003F
-3C61 0061
-3C61 0041
-3C61 0062
-3C62 0021
-3C62 003F
-3C62 0061
-3C62 0041
-3C62 0062
-3C63 0021
-3C63 003F
-3C63 0061
-3C63 0041
-3C63 0062
-3C64 0021
-3C64 003F
-3C64 0061
-3C64 0041
-3C64 0062
-3C65 0021
-3C65 003F
-3C65 0061
-3C65 0041
-3C65 0062
-3C66 0021
-3C66 003F
-3C66 0061
-3C66 0041
-3C66 0062
-3C67 0021
-3C67 003F
-3C67 0061
-3C67 0041
-3C67 0062
-3C68 0021
-3C68 003F
-3C68 0061
-3C68 0041
-3C68 0062
-3C69 0021
-3C69 003F
-3C69 0061
-3C69 0041
-3C69 0062
-3C6A 0021
-3C6A 003F
-3C6A 0061
-3C6A 0041
-3C6A 0062
-3C6B 0021
-3C6B 003F
-3C6B 0061
-3C6B 0041
-3C6B 0062
-3C6C 0021
-3C6C 003F
-3C6C 0061
-3C6C 0041
-3C6C 0062
-3C6D 0021
-3C6D 003F
-3C6D 0061
-3C6D 0041
-3C6D 0062
-3C6E 0021
-3C6E 003F
-3C6E 0061
-3C6E 0041
-3C6E 0062
-3C6F 0021
-3C6F 003F
-3C6F 0061
-3C6F 0041
-3C6F 0062
-3C70 0021
-3C70 003F
-3C70 0061
-3C70 0041
-3C70 0062
-3C71 0021
-3C71 003F
-3C71 0061
-3C71 0041
-3C71 0062
-3C72 0021
-3C72 003F
-3C72 0061
-3C72 0041
-3C72 0062
-3C73 0021
-3C73 003F
-3C73 0061
-3C73 0041
-3C73 0062
-3C74 0021
-3C74 003F
-3C74 0061
-3C74 0041
-3C74 0062
-3C75 0021
-3C75 003F
-3C75 0061
-3C75 0041
-3C75 0062
-3C76 0021
-3C76 003F
-3C76 0061
-3C76 0041
-3C76 0062
-3C77 0021
-3C77 003F
-3C77 0061
-3C77 0041
-3C77 0062
-3C78 0021
-3C78 003F
-3C78 0061
-3C78 0041
-3C78 0062
-3C79 0021
-3C79 003F
-3C79 0061
-3C79 0041
-3C79 0062
-3C7A 0021
-3C7A 003F
-3C7A 0061
-3C7A 0041
-3C7A 0062
-3C7B 0021
-3C7B 003F
-3C7B 0061
-3C7B 0041
-3C7B 0062
-3C7C 0021
-3C7C 003F
-3C7C 0061
-3C7C 0041
-3C7C 0062
-3C7D 0021
-3C7D 003F
-3C7D 0061
-3C7D 0041
-3C7D 0062
-3C7E 0021
-3C7E 003F
-3C7E 0061
-3C7E 0041
-3C7E 0062
-3C7F 0021
-3C7F 003F
-3C7F 0061
-3C7F 0041
-3C7F 0062
-3C80 0021
-3C80 003F
-3C80 0061
-3C80 0041
-3C80 0062
-3C81 0021
-3C81 003F
-3C81 0061
-3C81 0041
-3C81 0062
-3C82 0021
-3C82 003F
-3C82 0061
-3C82 0041
-3C82 0062
-3C83 0021
-3C83 003F
-3C83 0061
-3C83 0041
-3C83 0062
-3C84 0021
-3C84 003F
-3C84 0061
-3C84 0041
-3C84 0062
-3C85 0021
-3C85 003F
-3C85 0061
-3C85 0041
-3C85 0062
-3C86 0021
-3C86 003F
-3C86 0061
-3C86 0041
-3C86 0062
-3C87 0021
-3C87 003F
-3C87 0061
-3C87 0041
-3C87 0062
-3C88 0021
-3C88 003F
-3C88 0061
-3C88 0041
-3C88 0062
-3C89 0021
-3C89 003F
-3C89 0061
-3C89 0041
-3C89 0062
-3C8A 0021
-3C8A 003F
-3C8A 0061
-3C8A 0041
-3C8A 0062
-3C8B 0021
-3C8B 003F
-3C8B 0061
-3C8B 0041
-3C8B 0062
-3C8C 0021
-3C8C 003F
-3C8C 0061
-3C8C 0041
-3C8C 0062
-3C8D 0021
-3C8D 003F
-3C8D 0061
-3C8D 0041
-3C8D 0062
-3C8E 0021
-3C8E 003F
-3C8E 0061
-3C8E 0041
-3C8E 0062
-3C8F 0021
-3C8F 003F
-3C8F 0061
-3C8F 0041
-3C8F 0062
-3C90 0021
-3C90 003F
-3C90 0061
-3C90 0041
-3C90 0062
-3C91 0021
-3C91 003F
-3C91 0061
-3C91 0041
-3C91 0062
-3C92 0021
-3C92 003F
-3C92 0061
-3C92 0041
-3C92 0062
-3C93 0021
-3C93 003F
-3C93 0061
-3C93 0041
-3C93 0062
-3C94 0021
-3C94 003F
-3C94 0061
-3C94 0041
-3C94 0062
-3C95 0021
-3C95 003F
-3C95 0061
-3C95 0041
-3C95 0062
-3C96 0021
-3C96 003F
-3C96 0061
-3C96 0041
-3C96 0062
-3C97 0021
-3C97 003F
-3C97 0061
-3C97 0041
-3C97 0062
-3C98 0021
-3C98 003F
-3C98 0061
-3C98 0041
-3C98 0062
-3C99 0021
-3C99 003F
-3C99 0061
-3C99 0041
-3C99 0062
-3C9A 0021
-3C9A 003F
-3C9A 0061
-3C9A 0041
-3C9A 0062
-3C9B 0021
-3C9B 003F
-3C9B 0061
-3C9B 0041
-3C9B 0062
-3C9C 0021
-3C9C 003F
-3C9C 0061
-3C9C 0041
-3C9C 0062
-3C9D 0021
-3C9D 003F
-3C9D 0061
-3C9D 0041
-3C9D 0062
-3C9E 0021
-3C9E 003F
-3C9E 0061
-3C9E 0041
-3C9E 0062
-3C9F 0021
-3C9F 003F
-3C9F 0061
-3C9F 0041
-3C9F 0062
-3CA0 0021
-3CA0 003F
-3CA0 0061
-3CA0 0041
-3CA0 0062
-3CA1 0021
-3CA1 003F
-3CA1 0061
-3CA1 0041
-3CA1 0062
-3CA2 0021
-3CA2 003F
-3CA2 0061
-3CA2 0041
-3CA2 0062
-3CA3 0021
-3CA3 003F
-3CA3 0061
-3CA3 0041
-3CA3 0062
-3CA4 0021
-3CA4 003F
-3CA4 0061
-3CA4 0041
-3CA4 0062
-3CA5 0021
-3CA5 003F
-3CA5 0061
-3CA5 0041
-3CA5 0062
-3CA6 0021
-3CA6 003F
-3CA6 0061
-3CA6 0041
-3CA6 0062
-3CA7 0021
-3CA7 003F
-3CA7 0061
-3CA7 0041
-3CA7 0062
-3CA8 0021
-3CA8 003F
-3CA8 0061
-3CA8 0041
-3CA8 0062
-3CA9 0021
-3CA9 003F
-3CA9 0061
-3CA9 0041
-3CA9 0062
-3CAA 0021
-3CAA 003F
-3CAA 0061
-3CAA 0041
-3CAA 0062
-3CAB 0021
-3CAB 003F
-3CAB 0061
-3CAB 0041
-3CAB 0062
-3CAC 0021
-3CAC 003F
-3CAC 0061
-3CAC 0041
-3CAC 0062
-3CAD 0021
-3CAD 003F
-3CAD 0061
-3CAD 0041
-3CAD 0062
-3CAE 0021
-3CAE 003F
-3CAE 0061
-3CAE 0041
-3CAE 0062
-3CAF 0021
-3CAF 003F
-3CAF 0061
-3CAF 0041
-3CAF 0062
-3CB0 0021
-3CB0 003F
-3CB0 0061
-3CB0 0041
-3CB0 0062
-3CB1 0021
-3CB1 003F
-3CB1 0061
-3CB1 0041
-3CB1 0062
-3CB2 0021
-3CB2 003F
-3CB2 0061
-3CB2 0041
-3CB2 0062
-3CB3 0021
-3CB3 003F
-3CB3 0061
-3CB3 0041
-3CB3 0062
-3CB4 0021
-3CB4 003F
-3CB4 0061
-3CB4 0041
-3CB4 0062
-3CB5 0021
-3CB5 003F
-3CB5 0061
-3CB5 0041
-3CB5 0062
-3CB6 0021
-3CB6 003F
-3CB6 0061
-3CB6 0041
-3CB6 0062
-3CB7 0021
-3CB7 003F
-3CB7 0061
-3CB7 0041
-3CB7 0062
-3CB8 0021
-3CB8 003F
-3CB8 0061
-3CB8 0041
-3CB8 0062
-3CB9 0021
-3CB9 003F
-3CB9 0061
-3CB9 0041
-3CB9 0062
-3CBA 0021
-3CBA 003F
-3CBA 0061
-3CBA 0041
-3CBA 0062
-3CBB 0021
-3CBB 003F
-3CBB 0061
-3CBB 0041
-3CBB 0062
-3CBC 0021
-3CBC 003F
-3CBC 0061
-3CBC 0041
-3CBC 0062
-3CBD 0021
-3CBD 003F
-3CBD 0061
-3CBD 0041
-3CBD 0062
-3CBE 0021
-3CBE 003F
-3CBE 0061
-3CBE 0041
-3CBE 0062
-3CBF 0021
-3CBF 003F
-3CBF 0061
-3CBF 0041
-3CBF 0062
-3CC0 0021
-3CC0 003F
-3CC0 0061
-3CC0 0041
-3CC0 0062
-3CC1 0021
-3CC1 003F
-3CC1 0061
-3CC1 0041
-3CC1 0062
-3CC2 0021
-3CC2 003F
-3CC2 0061
-3CC2 0041
-3CC2 0062
-3CC3 0021
-3CC3 003F
-3CC3 0061
-3CC3 0041
-3CC3 0062
-3CC4 0021
-3CC4 003F
-3CC4 0061
-3CC4 0041
-3CC4 0062
-3CC5 0021
-3CC5 003F
-3CC5 0061
-3CC5 0041
-3CC5 0062
-3CC6 0021
-3CC6 003F
-3CC6 0061
-3CC6 0041
-3CC6 0062
-3CC7 0021
-3CC7 003F
-3CC7 0061
-3CC7 0041
-3CC7 0062
-3CC8 0021
-3CC8 003F
-3CC8 0061
-3CC8 0041
-3CC8 0062
-3CC9 0021
-3CC9 003F
-3CC9 0061
-3CC9 0041
-3CC9 0062
-3CCA 0021
-3CCA 003F
-3CCA 0061
-3CCA 0041
-3CCA 0062
-3CCB 0021
-3CCB 003F
-3CCB 0061
-3CCB 0041
-3CCB 0062
-3CCC 0021
-3CCC 003F
-3CCC 0061
-3CCC 0041
-3CCC 0062
-3CCD 0021
-3CCD 003F
-3CCD 0061
-3CCD 0041
-3CCD 0062
-3CCE 0021
-3CCE 003F
-3CCE 0061
-3CCE 0041
-3CCE 0062
-3CCF 0021
-3CCF 003F
-3CCF 0061
-3CCF 0041
-3CCF 0062
-3CD0 0021
-3CD0 003F
-3CD0 0061
-3CD0 0041
-3CD0 0062
-3CD1 0021
-3CD1 003F
-3CD1 0061
-3CD1 0041
-3CD1 0062
-3CD2 0021
-3CD2 003F
-3CD2 0061
-3CD2 0041
-3CD2 0062
-3CD3 0021
-3CD3 003F
-3CD3 0061
-3CD3 0041
-3CD3 0062
-3CD4 0021
-3CD4 003F
-3CD4 0061
-3CD4 0041
-3CD4 0062
-3CD5 0021
-3CD5 003F
-3CD5 0061
-3CD5 0041
-3CD5 0062
-3CD6 0021
-3CD6 003F
-3CD6 0061
-3CD6 0041
-3CD6 0062
-3CD7 0021
-3CD7 003F
-3CD7 0061
-3CD7 0041
-3CD7 0062
-3CD8 0021
-3CD8 003F
-3CD8 0061
-3CD8 0041
-3CD8 0062
-3CD9 0021
-3CD9 003F
-3CD9 0061
-3CD9 0041
-3CD9 0062
-3CDA 0021
-3CDA 003F
-3CDA 0061
-3CDA 0041
-3CDA 0062
-3CDB 0021
-3CDB 003F
-3CDB 0061
-3CDB 0041
-3CDB 0062
-3CDC 0021
-3CDC 003F
-3CDC 0061
-3CDC 0041
-3CDC 0062
-3CDD 0021
-3CDD 003F
-3CDD 0061
-3CDD 0041
-3CDD 0062
-3CDE 0021
-3CDE 003F
-3CDE 0061
-3CDE 0041
-3CDE 0062
-3CDF 0021
-3CDF 003F
-3CDF 0061
-3CDF 0041
-3CDF 0062
-3CE0 0021
-3CE0 003F
-3CE0 0061
-3CE0 0041
-3CE0 0062
-3CE1 0021
-3CE1 003F
-3CE1 0061
-3CE1 0041
-3CE1 0062
-3CE2 0021
-3CE2 003F
-3CE2 0061
-3CE2 0041
-3CE2 0062
-3CE3 0021
-3CE3 003F
-3CE3 0061
-3CE3 0041
-3CE3 0062
-3CE4 0021
-3CE4 003F
-3CE4 0061
-3CE4 0041
-3CE4 0062
-3CE5 0021
-3CE5 003F
-3CE5 0061
-3CE5 0041
-3CE5 0062
-3CE6 0021
-3CE6 003F
-3CE6 0061
-3CE6 0041
-3CE6 0062
-3CE7 0021
-3CE7 003F
-3CE7 0061
-3CE7 0041
-3CE7 0062
-3CE8 0021
-3CE8 003F
-3CE8 0061
-3CE8 0041
-3CE8 0062
-3CE9 0021
-3CE9 003F
-3CE9 0061
-3CE9 0041
-3CE9 0062
-3CEA 0021
-3CEA 003F
-3CEA 0061
-3CEA 0041
-3CEA 0062
-3CEB 0021
-3CEB 003F
-3CEB 0061
-3CEB 0041
-3CEB 0062
-3CEC 0021
-3CEC 003F
-3CEC 0061
-3CEC 0041
-3CEC 0062
-3CED 0021
-3CED 003F
-3CED 0061
-3CED 0041
-3CED 0062
-3CEE 0021
-3CEE 003F
-3CEE 0061
-3CEE 0041
-3CEE 0062
-3CEF 0021
-3CEF 003F
-3CEF 0061
-3CEF 0041
-3CEF 0062
-3CF0 0021
-3CF0 003F
-3CF0 0061
-3CF0 0041
-3CF0 0062
-3CF1 0021
-3CF1 003F
-3CF1 0061
-3CF1 0041
-3CF1 0062
-3CF2 0021
-3CF2 003F
-3CF2 0061
-3CF2 0041
-3CF2 0062
-3CF3 0021
-3CF3 003F
-3CF3 0061
-3CF3 0041
-3CF3 0062
-3CF4 0021
-3CF4 003F
-3CF4 0061
-3CF4 0041
-3CF4 0062
-3CF5 0021
-3CF5 003F
-3CF5 0061
-3CF5 0041
-3CF5 0062
-3CF6 0021
-3CF6 003F
-3CF6 0061
-3CF6 0041
-3CF6 0062
-3CF7 0021
-3CF7 003F
-3CF7 0061
-3CF7 0041
-3CF7 0062
-3CF8 0021
-3CF8 003F
-3CF8 0061
-3CF8 0041
-3CF8 0062
-3CF9 0021
-3CF9 003F
-3CF9 0061
-3CF9 0041
-3CF9 0062
-3CFA 0021
-3CFA 003F
-3CFA 0061
-3CFA 0041
-3CFA 0062
-3CFB 0021
-3CFB 003F
-3CFB 0061
-3CFB 0041
-3CFB 0062
-3CFC 0021
-3CFC 003F
-3CFC 0061
-3CFC 0041
-3CFC 0062
-3CFD 0021
-3CFD 003F
-3CFD 0061
-3CFD 0041
-3CFD 0062
-3CFE 0021
-3CFE 003F
-3CFE 0061
-3CFE 0041
-3CFE 0062
-3CFF 0021
-3CFF 003F
-3CFF 0061
-3CFF 0041
-3CFF 0062
-3D00 0021
-3D00 003F
-3D00 0061
-3D00 0041
-3D00 0062
-3D01 0021
-3D01 003F
-3D01 0061
-3D01 0041
-3D01 0062
-3D02 0021
-3D02 003F
-3D02 0061
-3D02 0041
-3D02 0062
-3D03 0021
-3D03 003F
-3D03 0061
-3D03 0041
-3D03 0062
-3D04 0021
-3D04 003F
-3D04 0061
-3D04 0041
-3D04 0062
-3D05 0021
-3D05 003F
-3D05 0061
-3D05 0041
-3D05 0062
-3D06 0021
-3D06 003F
-3D06 0061
-3D06 0041
-3D06 0062
-3D07 0021
-3D07 003F
-3D07 0061
-3D07 0041
-3D07 0062
-3D08 0021
-3D08 003F
-3D08 0061
-3D08 0041
-3D08 0062
-3D09 0021
-3D09 003F
-3D09 0061
-3D09 0041
-3D09 0062
-3D0A 0021
-3D0A 003F
-3D0A 0061
-3D0A 0041
-3D0A 0062
-3D0B 0021
-3D0B 003F
-3D0B 0061
-3D0B 0041
-3D0B 0062
-3D0C 0021
-3D0C 003F
-3D0C 0061
-3D0C 0041
-3D0C 0062
-3D0D 0021
-3D0D 003F
-3D0D 0061
-3D0D 0041
-3D0D 0062
-3D0E 0021
-3D0E 003F
-3D0E 0061
-3D0E 0041
-3D0E 0062
-3D0F 0021
-3D0F 003F
-3D0F 0061
-3D0F 0041
-3D0F 0062
-3D10 0021
-3D10 003F
-3D10 0061
-3D10 0041
-3D10 0062
-3D11 0021
-3D11 003F
-3D11 0061
-3D11 0041
-3D11 0062
-3D12 0021
-3D12 003F
-3D12 0061
-3D12 0041
-3D12 0062
-3D13 0021
-3D13 003F
-3D13 0061
-3D13 0041
-3D13 0062
-3D14 0021
-3D14 003F
-3D14 0061
-3D14 0041
-3D14 0062
-3D15 0021
-3D15 003F
-3D15 0061
-3D15 0041
-3D15 0062
-3D16 0021
-3D16 003F
-3D16 0061
-3D16 0041
-3D16 0062
-3D17 0021
-3D17 003F
-3D17 0061
-3D17 0041
-3D17 0062
-3D18 0021
-3D18 003F
-3D18 0061
-3D18 0041
-3D18 0062
-3D19 0021
-3D19 003F
-3D19 0061
-3D19 0041
-3D19 0062
-3D1A 0021
-3D1A 003F
-3D1A 0061
-3D1A 0041
-3D1A 0062
-3D1B 0021
-3D1B 003F
-3D1B 0061
-3D1B 0041
-3D1B 0062
-3D1C 0021
-3D1C 003F
-3D1C 0061
-3D1C 0041
-3D1C 0062
-3D1D 0021
-3D1D 003F
-3D1D 0061
-3D1D 0041
-3D1D 0062
-3D1E 0021
-3D1E 003F
-3D1E 0061
-3D1E 0041
-3D1E 0062
-3D1F 0021
-3D1F 003F
-3D1F 0061
-3D1F 0041
-3D1F 0062
-3D20 0021
-3D20 003F
-3D20 0061
-3D20 0041
-3D20 0062
-3D21 0021
-3D21 003F
-3D21 0061
-3D21 0041
-3D21 0062
-3D22 0021
-3D22 003F
-3D22 0061
-3D22 0041
-3D22 0062
-3D23 0021
-3D23 003F
-3D23 0061
-3D23 0041
-3D23 0062
-3D24 0021
-3D24 003F
-3D24 0061
-3D24 0041
-3D24 0062
-3D25 0021
-3D25 003F
-3D25 0061
-3D25 0041
-3D25 0062
-3D26 0021
-3D26 003F
-3D26 0061
-3D26 0041
-3D26 0062
-3D27 0021
-3D27 003F
-3D27 0061
-3D27 0041
-3D27 0062
-3D28 0021
-3D28 003F
-3D28 0061
-3D28 0041
-3D28 0062
-3D29 0021
-3D29 003F
-3D29 0061
-3D29 0041
-3D29 0062
-3D2A 0021
-3D2A 003F
-3D2A 0061
-3D2A 0041
-3D2A 0062
-3D2B 0021
-3D2B 003F
-3D2B 0061
-3D2B 0041
-3D2B 0062
-3D2C 0021
-3D2C 003F
-3D2C 0061
-3D2C 0041
-3D2C 0062
-3D2D 0021
-3D2D 003F
-3D2D 0061
-3D2D 0041
-3D2D 0062
-3D2E 0021
-3D2E 003F
-3D2E 0061
-3D2E 0041
-3D2E 0062
-3D2F 0021
-3D2F 003F
-3D2F 0061
-3D2F 0041
-3D2F 0062
-3D30 0021
-3D30 003F
-3D30 0061
-3D30 0041
-3D30 0062
-3D31 0021
-3D31 003F
-3D31 0061
-3D31 0041
-3D31 0062
-3D32 0021
-3D32 003F
-3D32 0061
-3D32 0041
-3D32 0062
-3D33 0021
-2F90A 0021
-3D33 003F
-2F90A 003F
-3D33 0061
-2F90A 0061
-3D33 0041
-2F90A 0041
-3D33 0062
-2F90A 0062
-3D34 0021
-3D34 003F
-3D34 0061
-3D34 0041
-3D34 0062
-3D35 0021
-3D35 003F
-3D35 0061
-3D35 0041
-3D35 0062
-3D36 0021
-3D36 003F
-3D36 0061
-3D36 0041
-3D36 0062
-3D37 0021
-3D37 003F
-3D37 0061
-3D37 0041
-3D37 0062
-3D38 0021
-3D38 003F
-3D38 0061
-3D38 0041
-3D38 0062
-3D39 0021
-3D39 003F
-3D39 0061
-3D39 0041
-3D39 0062
-3D3A 0021
-3D3A 003F
-3D3A 0061
-3D3A 0041
-3D3A 0062
-3D3B 0021
-3D3B 003F
-3D3B 0061
-3D3B 0041
-3D3B 0062
-3D3C 0021
-3D3C 003F
-3D3C 0061
-3D3C 0041
-3D3C 0062
-3D3D 0021
-3D3D 003F
-3D3D 0061
-3D3D 0041
-3D3D 0062
-3D3E 0021
-3D3E 003F
-3D3E 0061
-3D3E 0041
-3D3E 0062
-3D3F 0021
-3D3F 003F
-3D3F 0061
-3D3F 0041
-3D3F 0062
-3D40 0021
-3D40 003F
-3D40 0061
-3D40 0041
-3D40 0062
-3D41 0021
-3D41 003F
-3D41 0061
-3D41 0041
-3D41 0062
-3D42 0021
-3D42 003F
-3D42 0061
-3D42 0041
-3D42 0062
-3D43 0021
-3D43 003F
-3D43 0061
-3D43 0041
-3D43 0062
-3D44 0021
-3D44 003F
-3D44 0061
-3D44 0041
-3D44 0062
-3D45 0021
-3D45 003F
-3D45 0061
-3D45 0041
-3D45 0062
-3D46 0021
-3D46 003F
-3D46 0061
-3D46 0041
-3D46 0062
-3D47 0021
-3D47 003F
-3D47 0061
-3D47 0041
-3D47 0062
-3D48 0021
-3D48 003F
-3D48 0061
-3D48 0041
-3D48 0062
-3D49 0021
-3D49 003F
-3D49 0061
-3D49 0041
-3D49 0062
-3D4A 0021
-3D4A 003F
-3D4A 0061
-3D4A 0041
-3D4A 0062
-3D4B 0021
-3D4B 003F
-3D4B 0061
-3D4B 0041
-3D4B 0062
-3D4C 0021
-3D4C 003F
-3D4C 0061
-3D4C 0041
-3D4C 0062
-3D4D 0021
-3D4D 003F
-3D4D 0061
-3D4D 0041
-3D4D 0062
-3D4E 0021
-3D4E 003F
-3D4E 0061
-3D4E 0041
-3D4E 0062
-3D4F 0021
-3D4F 003F
-3D4F 0061
-3D4F 0041
-3D4F 0062
-3D50 0021
-3D50 003F
-3D50 0061
-3D50 0041
-3D50 0062
-3D51 0021
-3D51 003F
-3D51 0061
-3D51 0041
-3D51 0062
-3D52 0021
-3D52 003F
-3D52 0061
-3D52 0041
-3D52 0062
-3D53 0021
-3D53 003F
-3D53 0061
-3D53 0041
-3D53 0062
-3D54 0021
-3D54 003F
-3D54 0061
-3D54 0041
-3D54 0062
-3D55 0021
-3D55 003F
-3D55 0061
-3D55 0041
-3D55 0062
-3D56 0021
-3D56 003F
-3D56 0061
-3D56 0041
-3D56 0062
-3D57 0021
-3D57 003F
-3D57 0061
-3D57 0041
-3D57 0062
-3D58 0021
-3D58 003F
-3D58 0061
-3D58 0041
-3D58 0062
-3D59 0021
-3D59 003F
-3D59 0061
-3D59 0041
-3D59 0062
-3D5A 0021
-3D5A 003F
-3D5A 0061
-3D5A 0041
-3D5A 0062
-3D5B 0021
-3D5B 003F
-3D5B 0061
-3D5B 0041
-3D5B 0062
-3D5C 0021
-3D5C 003F
-3D5C 0061
-3D5C 0041
-3D5C 0062
-3D5D 0021
-3D5D 003F
-3D5D 0061
-3D5D 0041
-3D5D 0062
-3D5E 0021
-3D5E 003F
-3D5E 0061
-3D5E 0041
-3D5E 0062
-3D5F 0021
-3D5F 003F
-3D5F 0061
-3D5F 0041
-3D5F 0062
-3D60 0021
-3D60 003F
-3D60 0061
-3D60 0041
-3D60 0062
-3D61 0021
-3D61 003F
-3D61 0061
-3D61 0041
-3D61 0062
-3D62 0021
-3D62 003F
-3D62 0061
-3D62 0041
-3D62 0062
-3D63 0021
-3D63 003F
-3D63 0061
-3D63 0041
-3D63 0062
-3D64 0021
-3D64 003F
-3D64 0061
-3D64 0041
-3D64 0062
-3D65 0021
-3D65 003F
-3D65 0061
-3D65 0041
-3D65 0062
-3D66 0021
-3D66 003F
-3D66 0061
-3D66 0041
-3D66 0062
-3D67 0021
-3D67 003F
-3D67 0061
-3D67 0041
-3D67 0062
-3D68 0021
-3D68 003F
-3D68 0061
-3D68 0041
-3D68 0062
-3D69 0021
-3D69 003F
-3D69 0061
-3D69 0041
-3D69 0062
-3D6A 0021
-3D6A 003F
-3D6A 0061
-3D6A 0041
-3D6A 0062
-3D6B 0021
-3D6B 003F
-3D6B 0061
-3D6B 0041
-3D6B 0062
-3D6C 0021
-3D6C 003F
-3D6C 0061
-3D6C 0041
-3D6C 0062
-3D6D 0021
-3D6D 003F
-3D6D 0061
-3D6D 0041
-3D6D 0062
-3D6E 0021
-3D6E 003F
-3D6E 0061
-3D6E 0041
-3D6E 0062
-3D6F 0021
-3D6F 003F
-3D6F 0061
-3D6F 0041
-3D6F 0062
-3D70 0021
-3D70 003F
-3D70 0061
-3D70 0041
-3D70 0062
-3D71 0021
-3D71 003F
-3D71 0061
-3D71 0041
-3D71 0062
-3D72 0021
-3D72 003F
-3D72 0061
-3D72 0041
-3D72 0062
-3D73 0021
-3D73 003F
-3D73 0061
-3D73 0041
-3D73 0062
-3D74 0021
-3D74 003F
-3D74 0061
-3D74 0041
-3D74 0062
-3D75 0021
-3D75 003F
-3D75 0061
-3D75 0041
-3D75 0062
-3D76 0021
-3D76 003F
-3D76 0061
-3D76 0041
-3D76 0062
-3D77 0021
-3D77 003F
-3D77 0061
-3D77 0041
-3D77 0062
-3D78 0021
-3D78 003F
-3D78 0061
-3D78 0041
-3D78 0062
-3D79 0021
-3D79 003F
-3D79 0061
-3D79 0041
-3D79 0062
-3D7A 0021
-3D7A 003F
-3D7A 0061
-3D7A 0041
-3D7A 0062
-3D7B 0021
-3D7B 003F
-3D7B 0061
-3D7B 0041
-3D7B 0062
-3D7C 0021
-3D7C 003F
-3D7C 0061
-3D7C 0041
-3D7C 0062
-3D7D 0021
-3D7D 003F
-3D7D 0061
-3D7D 0041
-3D7D 0062
-3D7E 0021
-3D7E 003F
-3D7E 0061
-3D7E 0041
-3D7E 0062
-3D7F 0021
-3D7F 003F
-3D7F 0061
-3D7F 0041
-3D7F 0062
-3D80 0021
-3D80 003F
-3D80 0061
-3D80 0041
-3D80 0062
-3D81 0021
-3D81 003F
-3D81 0061
-3D81 0041
-3D81 0062
-3D82 0021
-3D82 003F
-3D82 0061
-3D82 0041
-3D82 0062
-3D83 0021
-3D83 003F
-3D83 0061
-3D83 0041
-3D83 0062
-3D84 0021
-3D84 003F
-3D84 0061
-3D84 0041
-3D84 0062
-3D85 0021
-3D85 003F
-3D85 0061
-3D85 0041
-3D85 0062
-3D86 0021
-3D86 003F
-3D86 0061
-3D86 0041
-3D86 0062
-3D87 0021
-3D87 003F
-3D87 0061
-3D87 0041
-3D87 0062
-3D88 0021
-3D88 003F
-3D88 0061
-3D88 0041
-3D88 0062
-3D89 0021
-3D89 003F
-3D89 0061
-3D89 0041
-3D89 0062
-3D8A 0021
-3D8A 003F
-3D8A 0061
-3D8A 0041
-3D8A 0062
-3D8B 0021
-3D8B 003F
-3D8B 0061
-3D8B 0041
-3D8B 0062
-3D8C 0021
-3D8C 003F
-3D8C 0061
-3D8C 0041
-3D8C 0062
-3D8D 0021
-3D8D 003F
-3D8D 0061
-3D8D 0041
-3D8D 0062
-3D8E 0021
-3D8E 003F
-3D8E 0061
-3D8E 0041
-3D8E 0062
-3D8F 0021
-3D8F 003F
-3D8F 0061
-3D8F 0041
-3D8F 0062
-3D90 0021
-3D90 003F
-3D90 0061
-3D90 0041
-3D90 0062
-3D91 0021
-3D91 003F
-3D91 0061
-3D91 0041
-3D91 0062
-3D92 0021
-3D92 003F
-3D92 0061
-3D92 0041
-3D92 0062
-3D93 0021
-3D93 003F
-3D93 0061
-3D93 0041
-3D93 0062
-3D94 0021
-3D94 003F
-3D94 0061
-3D94 0041
-3D94 0062
-3D95 0021
-3D95 003F
-3D95 0061
-3D95 0041
-3D95 0062
-3D96 0021
-2F916 0021
-3D96 003F
-2F916 003F
-3D96 0061
-2F916 0061
-3D96 0041
-2F916 0041
-3D96 0062
-2F916 0062
-3D97 0021
-3D97 003F
-3D97 0061
-3D97 0041
-3D97 0062
-3D98 0021
-3D98 003F
-3D98 0061
-3D98 0041
-3D98 0062
-3D99 0021
-3D99 003F
-3D99 0061
-3D99 0041
-3D99 0062
-3D9A 0021
-3D9A 003F
-3D9A 0061
-3D9A 0041
-3D9A 0062
-3D9B 0021
-3D9B 003F
-3D9B 0061
-3D9B 0041
-3D9B 0062
-3D9C 0021
-3D9C 003F
-3D9C 0061
-3D9C 0041
-3D9C 0062
-3D9D 0021
-3D9D 003F
-3D9D 0061
-3D9D 0041
-3D9D 0062
-3D9E 0021
-3D9E 003F
-3D9E 0061
-3D9E 0041
-3D9E 0062
-3D9F 0021
-3D9F 003F
-3D9F 0061
-3D9F 0041
-3D9F 0062
-3DA0 0021
-3DA0 003F
-3DA0 0061
-3DA0 0041
-3DA0 0062
-3DA1 0021
-3DA1 003F
-3DA1 0061
-3DA1 0041
-3DA1 0062
-3DA2 0021
-3DA2 003F
-3DA2 0061
-3DA2 0041
-3DA2 0062
-3DA3 0021
-3DA3 003F
-3DA3 0061
-3DA3 0041
-3DA3 0062
-3DA4 0021
-3DA4 003F
-3DA4 0061
-3DA4 0041
-3DA4 0062
-3DA5 0021
-3DA5 003F
-3DA5 0061
-3DA5 0041
-3DA5 0062
-3DA6 0021
-3DA6 003F
-3DA6 0061
-3DA6 0041
-3DA6 0062
-3DA7 0021
-3DA7 003F
-3DA7 0061
-3DA7 0041
-3DA7 0062
-3DA8 0021
-3DA8 003F
-3DA8 0061
-3DA8 0041
-3DA8 0062
-3DA9 0021
-3DA9 003F
-3DA9 0061
-3DA9 0041
-3DA9 0062
-3DAA 0021
-3DAA 003F
-3DAA 0061
-3DAA 0041
-3DAA 0062
-3DAB 0021
-3DAB 003F
-3DAB 0061
-3DAB 0041
-3DAB 0062
-3DAC 0021
-3DAC 003F
-3DAC 0061
-3DAC 0041
-3DAC 0062
-3DAD 0021
-3DAD 003F
-3DAD 0061
-3DAD 0041
-3DAD 0062
-3DAE 0021
-3DAE 003F
-3DAE 0061
-3DAE 0041
-3DAE 0062
-3DAF 0021
-3DAF 003F
-3DAF 0061
-3DAF 0041
-3DAF 0062
-3DB0 0021
-3DB0 003F
-3DB0 0061
-3DB0 0041
-3DB0 0062
-3DB1 0021
-3DB1 003F
-3DB1 0061
-3DB1 0041
-3DB1 0062
-3DB2 0021
-3DB2 003F
-3DB2 0061
-3DB2 0041
-3DB2 0062
-3DB3 0021
-3DB3 003F
-3DB3 0061
-3DB3 0041
-3DB3 0062
-3DB4 0021
-3DB4 003F
-3DB4 0061
-3DB4 0041
-3DB4 0062
-3DB5 0021
-3DB5 003F
-3DB5 0061
-3DB5 0041
-3DB5 0062
-3DB6 0021
-3DB6 003F
-3DB6 0061
-3DB6 0041
-3DB6 0062
-3DB7 0021
-3DB7 003F
-3DB7 0061
-3DB7 0041
-3DB7 0062
-3DB8 0021
-3DB8 003F
-3DB8 0061
-3DB8 0041
-3DB8 0062
-3DB9 0021
-3DB9 003F
-3DB9 0061
-3DB9 0041
-3DB9 0062
-3DBA 0021
-3DBA 003F
-3DBA 0061
-3DBA 0041
-3DBA 0062
-3DBB 0021
-3DBB 003F
-3DBB 0061
-3DBB 0041
-3DBB 0062
-3DBC 0021
-3DBC 003F
-3DBC 0061
-3DBC 0041
-3DBC 0062
-3DBD 0021
-3DBD 003F
-3DBD 0061
-3DBD 0041
-3DBD 0062
-3DBE 0021
-3DBE 003F
-3DBE 0061
-3DBE 0041
-3DBE 0062
-3DBF 0021
-3DBF 003F
-3DBF 0061
-3DBF 0041
-3DBF 0062
-3DC0 0021
-3DC0 003F
-3DC0 0061
-3DC0 0041
-3DC0 0062
-3DC1 0021
-3DC1 003F
-3DC1 0061
-3DC1 0041
-3DC1 0062
-3DC2 0021
-3DC2 003F
-3DC2 0061
-3DC2 0041
-3DC2 0062
-3DC3 0021
-3DC3 003F
-3DC3 0061
-3DC3 0041
-3DC3 0062
-3DC4 0021
-3DC4 003F
-3DC4 0061
-3DC4 0041
-3DC4 0062
-3DC5 0021
-3DC5 003F
-3DC5 0061
-3DC5 0041
-3DC5 0062
-3DC6 0021
-3DC6 003F
-3DC6 0061
-3DC6 0041
-3DC6 0062
-3DC7 0021
-3DC7 003F
-3DC7 0061
-3DC7 0041
-3DC7 0062
-3DC8 0021
-3DC8 003F
-3DC8 0061
-3DC8 0041
-3DC8 0062
-3DC9 0021
-3DC9 003F
-3DC9 0061
-3DC9 0041
-3DC9 0062
-3DCA 0021
-3DCA 003F
-3DCA 0061
-3DCA 0041
-3DCA 0062
-3DCB 0021
-3DCB 003F
-3DCB 0061
-3DCB 0041
-3DCB 0062
-3DCC 0021
-3DCC 003F
-3DCC 0061
-3DCC 0041
-3DCC 0062
-3DCD 0021
-3DCD 003F
-3DCD 0061
-3DCD 0041
-3DCD 0062
-3DCE 0021
-3DCE 003F
-3DCE 0061
-3DCE 0041
-3DCE 0062
-3DCF 0021
-3DCF 003F
-3DCF 0061
-3DCF 0041
-3DCF 0062
-3DD0 0021
-3DD0 003F
-3DD0 0061
-3DD0 0041
-3DD0 0062
-3DD1 0021
-3DD1 003F
-3DD1 0061
-3DD1 0041
-3DD1 0062
-3DD2 0021
-3DD2 003F
-3DD2 0061
-3DD2 0041
-3DD2 0062
-3DD3 0021
-3DD3 003F
-3DD3 0061
-3DD3 0041
-3DD3 0062
-3DD4 0021
-3DD4 003F
-3DD4 0061
-3DD4 0041
-3DD4 0062
-3DD5 0021
-3DD5 003F
-3DD5 0061
-3DD5 0041
-3DD5 0062
-3DD6 0021
-3DD6 003F
-3DD6 0061
-3DD6 0041
-3DD6 0062
-3DD7 0021
-3DD7 003F
-3DD7 0061
-3DD7 0041
-3DD7 0062
-3DD8 0021
-3DD8 003F
-3DD8 0061
-3DD8 0041
-3DD8 0062
-3DD9 0021
-3DD9 003F
-3DD9 0061
-3DD9 0041
-3DD9 0062
-3DDA 0021
-3DDA 003F
-3DDA 0061
-3DDA 0041
-3DDA 0062
-3DDB 0021
-3DDB 003F
-3DDB 0061
-3DDB 0041
-3DDB 0062
-3DDC 0021
-3DDC 003F
-3DDC 0061
-3DDC 0041
-3DDC 0062
-3DDD 0021
-3DDD 003F
-3DDD 0061
-3DDD 0041
-3DDD 0062
-3DDE 0021
-3DDE 003F
-3DDE 0061
-3DDE 0041
-3DDE 0062
-3DDF 0021
-3DDF 003F
-3DDF 0061
-3DDF 0041
-3DDF 0062
-3DE0 0021
-3DE0 003F
-3DE0 0061
-3DE0 0041
-3DE0 0062
-3DE1 0021
-3DE1 003F
-3DE1 0061
-3DE1 0041
-3DE1 0062
-3DE2 0021
-3DE2 003F
-3DE2 0061
-3DE2 0041
-3DE2 0062
-3DE3 0021
-3DE3 003F
-3DE3 0061
-3DE3 0041
-3DE3 0062
-3DE4 0021
-3DE4 003F
-3DE4 0061
-3DE4 0041
-3DE4 0062
-3DE5 0021
-3DE5 003F
-3DE5 0061
-3DE5 0041
-3DE5 0062
-3DE6 0021
-3DE6 003F
-3DE6 0061
-3DE6 0041
-3DE6 0062
-3DE7 0021
-3DE7 003F
-3DE7 0061
-3DE7 0041
-3DE7 0062
-3DE8 0021
-3DE8 003F
-3DE8 0061
-3DE8 0041
-3DE8 0062
-3DE9 0021
-3DE9 003F
-3DE9 0061
-3DE9 0041
-3DE9 0062
-3DEA 0021
-3DEA 003F
-3DEA 0061
-3DEA 0041
-3DEA 0062
-3DEB 0021
-3DEB 003F
-3DEB 0061
-3DEB 0041
-3DEB 0062
-3DEC 0021
-3DEC 003F
-3DEC 0061
-3DEC 0041
-3DEC 0062
-3DED 0021
-3DED 003F
-3DED 0061
-3DED 0041
-3DED 0062
-3DEE 0021
-3DEE 003F
-3DEE 0061
-3DEE 0041
-3DEE 0062
-3DEF 0021
-3DEF 003F
-3DEF 0061
-3DEF 0041
-3DEF 0062
-3DF0 0021
-3DF0 003F
-3DF0 0061
-3DF0 0041
-3DF0 0062
-3DF1 0021
-3DF1 003F
-3DF1 0061
-3DF1 0041
-3DF1 0062
-3DF2 0021
-3DF2 003F
-3DF2 0061
-3DF2 0041
-3DF2 0062
-3DF3 0021
-3DF3 003F
-3DF3 0061
-3DF3 0041
-3DF3 0062
-3DF4 0021
-3DF4 003F
-3DF4 0061
-3DF4 0041
-3DF4 0062
-3DF5 0021
-3DF5 003F
-3DF5 0061
-3DF5 0041
-3DF5 0062
-3DF6 0021
-3DF6 003F
-3DF6 0061
-3DF6 0041
-3DF6 0062
-3DF7 0021
-3DF7 003F
-3DF7 0061
-3DF7 0041
-3DF7 0062
-3DF8 0021
-3DF8 003F
-3DF8 0061
-3DF8 0041
-3DF8 0062
-3DF9 0021
-3DF9 003F
-3DF9 0061
-3DF9 0041
-3DF9 0062
-3DFA 0021
-3DFA 003F
-3DFA 0061
-3DFA 0041
-3DFA 0062
-3DFB 0021
-3DFB 003F
-3DFB 0061
-3DFB 0041
-3DFB 0062
-3DFC 0021
-3DFC 003F
-3DFC 0061
-3DFC 0041
-3DFC 0062
-3DFD 0021
-3DFD 003F
-3DFD 0061
-3DFD 0041
-3DFD 0062
-3DFE 0021
-3DFE 003F
-3DFE 0061
-3DFE 0041
-3DFE 0062
-3DFF 0021
-3DFF 003F
-3DFF 0061
-3DFF 0041
-3DFF 0062
-3E00 0021
-3E00 003F
-3E00 0061
-3E00 0041
-3E00 0062
-3E01 0021
-3E01 003F
-3E01 0061
-3E01 0041
-3E01 0062
-3E02 0021
-3E02 003F
-3E02 0061
-3E02 0041
-3E02 0062
-3E03 0021
-3E03 003F
-3E03 0061
-3E03 0041
-3E03 0062
-3E04 0021
-3E04 003F
-3E04 0061
-3E04 0041
-3E04 0062
-3E05 0021
-3E05 003F
-3E05 0061
-3E05 0041
-3E05 0062
-3E06 0021
-3E06 003F
-3E06 0061
-3E06 0041
-3E06 0062
-3E07 0021
-3E07 003F
-3E07 0061
-3E07 0041
-3E07 0062
-3E08 0021
-3E08 003F
-3E08 0061
-3E08 0041
-3E08 0062
-3E09 0021
-3E09 003F
-3E09 0061
-3E09 0041
-3E09 0062
-3E0A 0021
-3E0A 003F
-3E0A 0061
-3E0A 0041
-3E0A 0062
-3E0B 0021
-3E0B 003F
-3E0B 0061
-3E0B 0041
-3E0B 0062
-3E0C 0021
-3E0C 003F
-3E0C 0061
-3E0C 0041
-3E0C 0062
-3E0D 0021
-3E0D 003F
-3E0D 0061
-3E0D 0041
-3E0D 0062
-3E0E 0021
-3E0E 003F
-3E0E 0061
-3E0E 0041
-3E0E 0062
-3E0F 0021
-3E0F 003F
-3E0F 0061
-3E0F 0041
-3E0F 0062
-3E10 0021
-3E10 003F
-3E10 0061
-3E10 0041
-3E10 0062
-3E11 0021
-3E11 003F
-3E11 0061
-3E11 0041
-3E11 0062
-3E12 0021
-3E12 003F
-3E12 0061
-3E12 0041
-3E12 0062
-3E13 0021
-3E13 003F
-3E13 0061
-3E13 0041
-3E13 0062
-3E14 0021
-3E14 003F
-3E14 0061
-3E14 0041
-3E14 0062
-3E15 0021
-3E15 003F
-3E15 0061
-3E15 0041
-3E15 0062
-3E16 0021
-3E16 003F
-3E16 0061
-3E16 0041
-3E16 0062
-3E17 0021
-3E17 003F
-3E17 0061
-3E17 0041
-3E17 0062
-3E18 0021
-3E18 003F
-3E18 0061
-3E18 0041
-3E18 0062
-3E19 0021
-3E19 003F
-3E19 0061
-3E19 0041
-3E19 0062
-3E1A 0021
-3E1A 003F
-3E1A 0061
-3E1A 0041
-3E1A 0062
-3E1B 0021
-3E1B 003F
-3E1B 0061
-3E1B 0041
-3E1B 0062
-3E1C 0021
-3E1C 003F
-3E1C 0061
-3E1C 0041
-3E1C 0062
-3E1D 0021
-3E1D 003F
-3E1D 0061
-3E1D 0041
-3E1D 0062
-3E1E 0021
-3E1E 003F
-3E1E 0061
-3E1E 0041
-3E1E 0062
-3E1F 0021
-3E1F 003F
-3E1F 0061
-3E1F 0041
-3E1F 0062
-3E20 0021
-3E20 003F
-3E20 0061
-3E20 0041
-3E20 0062
-3E21 0021
-3E21 003F
-3E21 0061
-3E21 0041
-3E21 0062
-3E22 0021
-3E22 003F
-3E22 0061
-3E22 0041
-3E22 0062
-3E23 0021
-3E23 003F
-3E23 0061
-3E23 0041
-3E23 0062
-3E24 0021
-3E24 003F
-3E24 0061
-3E24 0041
-3E24 0062
-3E25 0021
-3E25 003F
-3E25 0061
-3E25 0041
-3E25 0062
-3E26 0021
-3E26 003F
-3E26 0061
-3E26 0041
-3E26 0062
-3E27 0021
-3E27 003F
-3E27 0061
-3E27 0041
-3E27 0062
-3E28 0021
-3E28 003F
-3E28 0061
-3E28 0041
-3E28 0062
-3E29 0021
-3E29 003F
-3E29 0061
-3E29 0041
-3E29 0062
-3E2A 0021
-3E2A 003F
-3E2A 0061
-3E2A 0041
-3E2A 0062
-3E2B 0021
-3E2B 003F
-3E2B 0061
-3E2B 0041
-3E2B 0062
-3E2C 0021
-3E2C 003F
-3E2C 0061
-3E2C 0041
-3E2C 0062
-3E2D 0021
-3E2D 003F
-3E2D 0061
-3E2D 0041
-3E2D 0062
-3E2E 0021
-3E2E 003F
-3E2E 0061
-3E2E 0041
-3E2E 0062
-3E2F 0021
-3E2F 003F
-3E2F 0061
-3E2F 0041
-3E2F 0062
-3E30 0021
-3E30 003F
-3E30 0061
-3E30 0041
-3E30 0062
-3E31 0021
-3E31 003F
-3E31 0061
-3E31 0041
-3E31 0062
-3E32 0021
-3E32 003F
-3E32 0061
-3E32 0041
-3E32 0062
-3E33 0021
-3E33 003F
-3E33 0061
-3E33 0041
-3E33 0062
-3E34 0021
-3E34 003F
-3E34 0061
-3E34 0041
-3E34 0062
-3E35 0021
-3E35 003F
-3E35 0061
-3E35 0041
-3E35 0062
-3E36 0021
-3E36 003F
-3E36 0061
-3E36 0041
-3E36 0062
-3E37 0021
-3E37 003F
-3E37 0061
-3E37 0041
-3E37 0062
-3E38 0021
-3E38 003F
-3E38 0061
-3E38 0041
-3E38 0062
-3E39 0021
-3E39 003F
-3E39 0061
-3E39 0041
-3E39 0062
-3E3A 0021
-3E3A 003F
-3E3A 0061
-3E3A 0041
-3E3A 0062
-3E3B 0021
-3E3B 003F
-3E3B 0061
-3E3B 0041
-3E3B 0062
-3E3C 0021
-3E3C 003F
-3E3C 0061
-3E3C 0041
-3E3C 0062
-3E3D 0021
-3E3D 003F
-3E3D 0061
-3E3D 0041
-3E3D 0062
-3E3E 0021
-3E3E 003F
-3E3E 0061
-3E3E 0041
-3E3E 0062
-3E3F 0021
-3E3F 003F
-3E3F 0061
-3E3F 0041
-3E3F 0062
-3E40 0021
-3E40 003F
-3E40 0061
-3E40 0041
-3E40 0062
-3E41 0021
-3E41 003F
-3E41 0061
-3E41 0041
-3E41 0062
-3E42 0021
-3E42 003F
-3E42 0061
-3E42 0041
-3E42 0062
-3E43 0021
-3E43 003F
-3E43 0061
-3E43 0041
-3E43 0062
-3E44 0021
-3E44 003F
-3E44 0061
-3E44 0041
-3E44 0062
-3E45 0021
-3E45 003F
-3E45 0061
-3E45 0041
-3E45 0062
-3E46 0021
-3E46 003F
-3E46 0061
-3E46 0041
-3E46 0062
-3E47 0021
-3E47 003F
-3E47 0061
-3E47 0041
-3E47 0062
-3E48 0021
-3E48 003F
-3E48 0061
-3E48 0041
-3E48 0062
-3E49 0021
-3E49 003F
-3E49 0061
-3E49 0041
-3E49 0062
-3E4A 0021
-3E4A 003F
-3E4A 0061
-3E4A 0041
-3E4A 0062
-3E4B 0021
-3E4B 003F
-3E4B 0061
-3E4B 0041
-3E4B 0062
-3E4C 0021
-3E4C 003F
-3E4C 0061
-3E4C 0041
-3E4C 0062
-3E4D 0021
-3E4D 003F
-3E4D 0061
-3E4D 0041
-3E4D 0062
-3E4E 0021
-3E4E 003F
-3E4E 0061
-3E4E 0041
-3E4E 0062
-3E4F 0021
-3E4F 003F
-3E4F 0061
-3E4F 0041
-3E4F 0062
-3E50 0021
-3E50 003F
-3E50 0061
-3E50 0041
-3E50 0062
-3E51 0021
-3E51 003F
-3E51 0061
-3E51 0041
-3E51 0062
-3E52 0021
-3E52 003F
-3E52 0061
-3E52 0041
-3E52 0062
-3E53 0021
-3E53 003F
-3E53 0061
-3E53 0041
-3E53 0062
-3E54 0021
-3E54 003F
-3E54 0061
-3E54 0041
-3E54 0062
-3E55 0021
-3E55 003F
-3E55 0061
-3E55 0041
-3E55 0062
-3E56 0021
-3E56 003F
-3E56 0061
-3E56 0041
-3E56 0062
-3E57 0021
-3E57 003F
-3E57 0061
-3E57 0041
-3E57 0062
-3E58 0021
-3E58 003F
-3E58 0061
-3E58 0041
-3E58 0062
-3E59 0021
-3E59 003F
-3E59 0061
-3E59 0041
-3E59 0062
-3E5A 0021
-3E5A 003F
-3E5A 0061
-3E5A 0041
-3E5A 0062
-3E5B 0021
-3E5B 003F
-3E5B 0061
-3E5B 0041
-3E5B 0062
-3E5C 0021
-3E5C 003F
-3E5C 0061
-3E5C 0041
-3E5C 0062
-3E5D 0021
-3E5D 003F
-3E5D 0061
-3E5D 0041
-3E5D 0062
-3E5E 0021
-3E5E 003F
-3E5E 0061
-3E5E 0041
-3E5E 0062
-3E5F 0021
-3E5F 003F
-3E5F 0061
-3E5F 0041
-3E5F 0062
-3E60 0021
-3E60 003F
-3E60 0061
-3E60 0041
-3E60 0062
-3E61 0021
-3E61 003F
-3E61 0061
-3E61 0041
-3E61 0062
-3E62 0021
-3E62 003F
-3E62 0061
-3E62 0041
-3E62 0062
-3E63 0021
-3E63 003F
-3E63 0061
-3E63 0041
-3E63 0062
-3E64 0021
-3E64 003F
-3E64 0061
-3E64 0041
-3E64 0062
-3E65 0021
-3E65 003F
-3E65 0061
-3E65 0041
-3E65 0062
-3E66 0021
-3E66 003F
-3E66 0061
-3E66 0041
-3E66 0062
-3E67 0021
-3E67 003F
-3E67 0061
-3E67 0041
-3E67 0062
-3E68 0021
-3E68 003F
-3E68 0061
-3E68 0041
-3E68 0062
-3E69 0021
-3E69 003F
-3E69 0061
-3E69 0041
-3E69 0062
-3E6A 0021
-3E6A 003F
-3E6A 0061
-3E6A 0041
-3E6A 0062
-3E6B 0021
-3E6B 003F
-3E6B 0061
-3E6B 0041
-3E6B 0062
-3E6C 0021
-3E6C 003F
-3E6C 0061
-3E6C 0041
-3E6C 0062
-3E6D 0021
-3E6D 003F
-3E6D 0061
-3E6D 0041
-3E6D 0062
-3E6E 0021
-3E6E 003F
-3E6E 0061
-3E6E 0041
-3E6E 0062
-3E6F 0021
-3E6F 003F
-3E6F 0061
-3E6F 0041
-3E6F 0062
-3E70 0021
-3E70 003F
-3E70 0061
-3E70 0041
-3E70 0062
-3E71 0021
-3E71 003F
-3E71 0061
-3E71 0041
-3E71 0062
-3E72 0021
-3E72 003F
-3E72 0061
-3E72 0041
-3E72 0062
-3E73 0021
-3E73 003F
-3E73 0061
-3E73 0041
-3E73 0062
-3E74 0021
-3E74 003F
-3E74 0061
-3E74 0041
-3E74 0062
-3E75 0021
-3E75 003F
-3E75 0061
-3E75 0041
-3E75 0062
-3E76 0021
-3E76 003F
-3E76 0061
-3E76 0041
-3E76 0062
-3E77 0021
-3E77 003F
-3E77 0061
-3E77 0041
-3E77 0062
-3E78 0021
-3E78 003F
-3E78 0061
-3E78 0041
-3E78 0062
-3E79 0021
-3E79 003F
-3E79 0061
-3E79 0041
-3E79 0062
-3E7A 0021
-3E7A 003F
-3E7A 0061
-3E7A 0041
-3E7A 0062
-3E7B 0021
-3E7B 003F
-3E7B 0061
-3E7B 0041
-3E7B 0062
-3E7C 0021
-3E7C 003F
-3E7C 0061
-3E7C 0041
-3E7C 0062
-3E7D 0021
-3E7D 003F
-3E7D 0061
-3E7D 0041
-3E7D 0062
-3E7E 0021
-3E7E 003F
-3E7E 0061
-3E7E 0041
-3E7E 0062
-3E7F 0021
-3E7F 003F
-3E7F 0061
-3E7F 0041
-3E7F 0062
-3E80 0021
-3E80 003F
-3E80 0061
-3E80 0041
-3E80 0062
-3E81 0021
-3E81 003F
-3E81 0061
-3E81 0041
-3E81 0062
-3E82 0021
-3E82 003F
-3E82 0061
-3E82 0041
-3E82 0062
-3E83 0021
-3E83 003F
-3E83 0061
-3E83 0041
-3E83 0062
-3E84 0021
-3E84 003F
-3E84 0061
-3E84 0041
-3E84 0062
-3E85 0021
-3E85 003F
-3E85 0061
-3E85 0041
-3E85 0062
-3E86 0021
-3E86 003F
-3E86 0061
-3E86 0041
-3E86 0062
-3E87 0021
-3E87 003F
-3E87 0061
-3E87 0041
-3E87 0062
-3E88 0021
-3E88 003F
-3E88 0061
-3E88 0041
-3E88 0062
-3E89 0021
-3E89 003F
-3E89 0061
-3E89 0041
-3E89 0062
-3E8A 0021
-3E8A 003F
-3E8A 0061
-3E8A 0041
-3E8A 0062
-3E8B 0021
-3E8B 003F
-3E8B 0061
-3E8B 0041
-3E8B 0062
-3E8C 0021
-3E8C 003F
-3E8C 0061
-3E8C 0041
-3E8C 0062
-3E8D 0021
-3E8D 003F
-3E8D 0061
-3E8D 0041
-3E8D 0062
-3E8E 0021
-3E8E 003F
-3E8E 0061
-3E8E 0041
-3E8E 0062
-3E8F 0021
-3E8F 003F
-3E8F 0061
-3E8F 0041
-3E8F 0062
-3E90 0021
-3E90 003F
-3E90 0061
-3E90 0041
-3E90 0062
-3E91 0021
-3E91 003F
-3E91 0061
-3E91 0041
-3E91 0062
-3E92 0021
-3E92 003F
-3E92 0061
-3E92 0041
-3E92 0062
-3E93 0021
-3E93 003F
-3E93 0061
-3E93 0041
-3E93 0062
-3E94 0021
-3E94 003F
-3E94 0061
-3E94 0041
-3E94 0062
-3E95 0021
-3E95 003F
-3E95 0061
-3E95 0041
-3E95 0062
-3E96 0021
-3E96 003F
-3E96 0061
-3E96 0041
-3E96 0062
-3E97 0021
-3E97 003F
-3E97 0061
-3E97 0041
-3E97 0062
-3E98 0021
-3E98 003F
-3E98 0061
-3E98 0041
-3E98 0062
-3E99 0021
-3E99 003F
-3E99 0061
-3E99 0041
-3E99 0062
-3E9A 0021
-3E9A 003F
-3E9A 0061
-3E9A 0041
-3E9A 0062
-3E9B 0021
-3E9B 003F
-3E9B 0061
-3E9B 0041
-3E9B 0062
-3E9C 0021
-3E9C 003F
-3E9C 0061
-3E9C 0041
-3E9C 0062
-3E9D 0021
-3E9D 003F
-3E9D 0061
-3E9D 0041
-3E9D 0062
-3E9E 0021
-3E9E 003F
-3E9E 0061
-3E9E 0041
-3E9E 0062
-3E9F 0021
-3E9F 003F
-3E9F 0061
-3E9F 0041
-3E9F 0062
-3EA0 0021
-3EA0 003F
-3EA0 0061
-3EA0 0041
-3EA0 0062
-3EA1 0021
-3EA1 003F
-3EA1 0061
-3EA1 0041
-3EA1 0062
-3EA2 0021
-3EA2 003F
-3EA2 0061
-3EA2 0041
-3EA2 0062
-3EA3 0021
-3EA3 003F
-3EA3 0061
-3EA3 0041
-3EA3 0062
-3EA4 0021
-3EA4 003F
-3EA4 0061
-3EA4 0041
-3EA4 0062
-3EA5 0021
-3EA5 003F
-3EA5 0061
-3EA5 0041
-3EA5 0062
-3EA6 0021
-3EA6 003F
-3EA6 0061
-3EA6 0041
-3EA6 0062
-3EA7 0021
-3EA7 003F
-3EA7 0061
-3EA7 0041
-3EA7 0062
-3EA8 0021
-3EA8 003F
-3EA8 0061
-3EA8 0041
-3EA8 0062
-3EA9 0021
-3EA9 003F
-3EA9 0061
-3EA9 0041
-3EA9 0062
-3EAA 0021
-3EAA 003F
-3EAA 0061
-3EAA 0041
-3EAA 0062
-3EAB 0021
-3EAB 003F
-3EAB 0061
-3EAB 0041
-3EAB 0062
-3EAC 0021
-2F92A 0021
-3EAC 003F
-2F92A 003F
-3EAC 0061
-2F92A 0061
-3EAC 0041
-2F92A 0041
-3EAC 0062
-2F92A 0062
-3EAD 0021
-3EAD 003F
-3EAD 0061
-3EAD 0041
-3EAD 0062
-3EAE 0021
-3EAE 003F
-3EAE 0061
-3EAE 0041
-3EAE 0062
-3EAF 0021
-3EAF 003F
-3EAF 0061
-3EAF 0041
-3EAF 0062
-3EB0 0021
-3EB0 003F
-3EB0 0061
-3EB0 0041
-3EB0 0062
-3EB1 0021
-3EB1 003F
-3EB1 0061
-3EB1 0041
-3EB1 0062
-3EB2 0021
-3EB2 003F
-3EB2 0061
-3EB2 0041
-3EB2 0062
-3EB3 0021
-3EB3 003F
-3EB3 0061
-3EB3 0041
-3EB3 0062
-3EB4 0021
-3EB4 003F
-3EB4 0061
-3EB4 0041
-3EB4 0062
-3EB5 0021
-3EB5 003F
-3EB5 0061
-3EB5 0041
-3EB5 0062
-3EB6 0021
-3EB6 003F
-3EB6 0061
-3EB6 0041
-3EB6 0062
-3EB7 0021
-3EB7 003F
-3EB7 0061
-3EB7 0041
-3EB7 0062
-3EB8 0021
-2F92C 0021
-2F92D 0021
-3EB8 003F
-2F92C 003F
-2F92D 003F
-3EB8 0061
-2F92C 0061
-2F92D 0061
-3EB8 0041
-2F92C 0041
-2F92D 0041
-3EB8 0062
-2F92C 0062
-2F92D 0062
-3EB9 0021
-3EB9 003F
-3EB9 0061
-3EB9 0041
-3EB9 0062
-3EBA 0021
-3EBA 003F
-3EBA 0061
-3EBA 0041
-3EBA 0062
-3EBB 0021
-3EBB 003F
-3EBB 0061
-3EBB 0041
-3EBB 0062
-3EBC 0021
-3EBC 003F
-3EBC 0061
-3EBC 0041
-3EBC 0062
-3EBD 0021
-3EBD 003F
-3EBD 0061
-3EBD 0041
-3EBD 0062
-3EBE 0021
-3EBE 003F
-3EBE 0061
-3EBE 0041
-3EBE 0062
-3EBF 0021
-3EBF 003F
-3EBF 0061
-3EBF 0041
-3EBF 0062
-3EC0 0021
-3EC0 003F
-3EC0 0061
-3EC0 0041
-3EC0 0062
-3EC1 0021
-3EC1 003F
-3EC1 0061
-3EC1 0041
-3EC1 0062
-3EC2 0021
-3EC2 003F
-3EC2 0061
-3EC2 0041
-3EC2 0062
-3EC3 0021
-3EC3 003F
-3EC3 0061
-3EC3 0041
-3EC3 0062
-3EC4 0021
-3EC4 003F
-3EC4 0061
-3EC4 0041
-3EC4 0062
-3EC5 0021
-3EC5 003F
-3EC5 0061
-3EC5 0041
-3EC5 0062
-3EC6 0021
-3EC6 003F
-3EC6 0061
-3EC6 0041
-3EC6 0062
-3EC7 0021
-3EC7 003F
-3EC7 0061
-3EC7 0041
-3EC7 0062
-3EC8 0021
-3EC8 003F
-3EC8 0061
-3EC8 0041
-3EC8 0062
-3EC9 0021
-3EC9 003F
-3EC9 0061
-3EC9 0041
-3EC9 0062
-3ECA 0021
-3ECA 003F
-3ECA 0061
-3ECA 0041
-3ECA 0062
-3ECB 0021
-3ECB 003F
-3ECB 0061
-3ECB 0041
-3ECB 0062
-3ECC 0021
-3ECC 003F
-3ECC 0061
-3ECC 0041
-3ECC 0062
-3ECD 0021
-3ECD 003F
-3ECD 0061
-3ECD 0041
-3ECD 0062
-3ECE 0021
-3ECE 003F
-3ECE 0061
-3ECE 0041
-3ECE 0062
-3ECF 0021
-3ECF 003F
-3ECF 0061
-3ECF 0041
-3ECF 0062
-3ED0 0021
-3ED0 003F
-3ED0 0061
-3ED0 0041
-3ED0 0062
-3ED1 0021
-3ED1 003F
-3ED1 0061
-3ED1 0041
-3ED1 0062
-3ED2 0021
-3ED2 003F
-3ED2 0061
-3ED2 0041
-3ED2 0062
-3ED3 0021
-3ED3 003F
-3ED3 0061
-3ED3 0041
-3ED3 0062
-3ED4 0021
-3ED4 003F
-3ED4 0061
-3ED4 0041
-3ED4 0062
-3ED5 0021
-3ED5 003F
-3ED5 0061
-3ED5 0041
-3ED5 0062
-3ED6 0021
-3ED6 003F
-3ED6 0061
-3ED6 0041
-3ED6 0062
-3ED7 0021
-3ED7 003F
-3ED7 0061
-3ED7 0041
-3ED7 0062
-3ED8 0021
-3ED8 003F
-3ED8 0061
-3ED8 0041
-3ED8 0062
-3ED9 0021
-3ED9 003F
-3ED9 0061
-3ED9 0041
-3ED9 0062
-3EDA 0021
-3EDA 003F
-3EDA 0061
-3EDA 0041
-3EDA 0062
-3EDB 0021
-3EDB 003F
-3EDB 0061
-3EDB 0041
-3EDB 0062
-3EDC 0021
-3EDC 003F
-3EDC 0061
-3EDC 0041
-3EDC 0062
-3EDD 0021
-3EDD 003F
-3EDD 0061
-3EDD 0041
-3EDD 0062
-3EDE 0021
-3EDE 003F
-3EDE 0061
-3EDE 0041
-3EDE 0062
-3EDF 0021
-3EDF 003F
-3EDF 0061
-3EDF 0041
-3EDF 0062
-3EE0 0021
-3EE0 003F
-3EE0 0061
-3EE0 0041
-3EE0 0062
-3EE1 0021
-3EE1 003F
-3EE1 0061
-3EE1 0041
-3EE1 0062
-3EE2 0021
-3EE2 003F
-3EE2 0061
-3EE2 0041
-3EE2 0062
-3EE3 0021
-3EE3 003F
-3EE3 0061
-3EE3 0041
-3EE3 0062
-3EE4 0021
-3EE4 003F
-3EE4 0061
-3EE4 0041
-3EE4 0062
-3EE5 0021
-3EE5 003F
-3EE5 0061
-3EE5 0041
-3EE5 0062
-3EE6 0021
-3EE6 003F
-3EE6 0061
-3EE6 0041
-3EE6 0062
-3EE7 0021
-3EE7 003F
-3EE7 0061
-3EE7 0041
-3EE7 0062
-3EE8 0021
-3EE8 003F
-3EE8 0061
-3EE8 0041
-3EE8 0062
-3EE9 0021
-3EE9 003F
-3EE9 0061
-3EE9 0041
-3EE9 0062
-3EEA 0021
-3EEA 003F
-3EEA 0061
-3EEA 0041
-3EEA 0062
-3EEB 0021
-3EEB 003F
-3EEB 0061
-3EEB 0041
-3EEB 0062
-3EEC 0021
-3EEC 003F
-3EEC 0061
-3EEC 0041
-3EEC 0062
-3EED 0021
-3EED 003F
-3EED 0061
-3EED 0041
-3EED 0062
-3EEE 0021
-3EEE 003F
-3EEE 0061
-3EEE 0041
-3EEE 0062
-3EEF 0021
-3EEF 003F
-3EEF 0061
-3EEF 0041
-3EEF 0062
-3EF0 0021
-3EF0 003F
-3EF0 0061
-3EF0 0041
-3EF0 0062
-3EF1 0021
-3EF1 003F
-3EF1 0061
-3EF1 0041
-3EF1 0062
-3EF2 0021
-3EF2 003F
-3EF2 0061
-3EF2 0041
-3EF2 0062
-3EF3 0021
-3EF3 003F
-3EF3 0061
-3EF3 0041
-3EF3 0062
-3EF4 0021
-3EF4 003F
-3EF4 0061
-3EF4 0041
-3EF4 0062
-3EF5 0021
-3EF5 003F
-3EF5 0061
-3EF5 0041
-3EF5 0062
-3EF6 0021
-3EF6 003F
-3EF6 0061
-3EF6 0041
-3EF6 0062
-3EF7 0021
-3EF7 003F
-3EF7 0061
-3EF7 0041
-3EF7 0062
-3EF8 0021
-3EF8 003F
-3EF8 0061
-3EF8 0041
-3EF8 0062
-3EF9 0021
-3EF9 003F
-3EF9 0061
-3EF9 0041
-3EF9 0062
-3EFA 0021
-3EFA 003F
-3EFA 0061
-3EFA 0041
-3EFA 0062
-3EFB 0021
-3EFB 003F
-3EFB 0061
-3EFB 0041
-3EFB 0062
-3EFC 0021
-3EFC 003F
-3EFC 0061
-3EFC 0041
-3EFC 0062
-3EFD 0021
-3EFD 003F
-3EFD 0061
-3EFD 0041
-3EFD 0062
-3EFE 0021
-3EFE 003F
-3EFE 0061
-3EFE 0041
-3EFE 0062
-3EFF 0021
-3EFF 003F
-3EFF 0061
-3EFF 0041
-3EFF 0062
-3F00 0021
-3F00 003F
-3F00 0061
-3F00 0041
-3F00 0062
-3F01 0021
-3F01 003F
-3F01 0061
-3F01 0041
-3F01 0062
-3F02 0021
-3F02 003F
-3F02 0061
-3F02 0041
-3F02 0062
-3F03 0021
-3F03 003F
-3F03 0061
-3F03 0041
-3F03 0062
-3F04 0021
-3F04 003F
-3F04 0061
-3F04 0041
-3F04 0062
-3F05 0021
-3F05 003F
-3F05 0061
-3F05 0041
-3F05 0062
-3F06 0021
-3F06 003F
-3F06 0061
-3F06 0041
-3F06 0062
-3F07 0021
-3F07 003F
-3F07 0061
-3F07 0041
-3F07 0062
-3F08 0021
-3F08 003F
-3F08 0061
-3F08 0041
-3F08 0062
-3F09 0021
-3F09 003F
-3F09 0061
-3F09 0041
-3F09 0062
-3F0A 0021
-3F0A 003F
-3F0A 0061
-3F0A 0041
-3F0A 0062
-3F0B 0021
-3F0B 003F
-3F0B 0061
-3F0B 0041
-3F0B 0062
-3F0C 0021
-3F0C 003F
-3F0C 0061
-3F0C 0041
-3F0C 0062
-3F0D 0021
-3F0D 003F
-3F0D 0061
-3F0D 0041
-3F0D 0062
-3F0E 0021
-3F0E 003F
-3F0E 0061
-3F0E 0041
-3F0E 0062
-3F0F 0021
-3F0F 003F
-3F0F 0061
-3F0F 0041
-3F0F 0062
-3F10 0021
-3F10 003F
-3F10 0061
-3F10 0041
-3F10 0062
-3F11 0021
-3F11 003F
-3F11 0061
-3F11 0041
-3F11 0062
-3F12 0021
-3F12 003F
-3F12 0061
-3F12 0041
-3F12 0062
-3F13 0021
-3F13 003F
-3F13 0061
-3F13 0041
-3F13 0062
-3F14 0021
-3F14 003F
-3F14 0061
-3F14 0041
-3F14 0062
-3F15 0021
-3F15 003F
-3F15 0061
-3F15 0041
-3F15 0062
-3F16 0021
-3F16 003F
-3F16 0061
-3F16 0041
-3F16 0062
-3F17 0021
-3F17 003F
-3F17 0061
-3F17 0041
-3F17 0062
-3F18 0021
-3F18 003F
-3F18 0061
-3F18 0041
-3F18 0062
-3F19 0021
-3F19 003F
-3F19 0061
-3F19 0041
-3F19 0062
-3F1A 0021
-3F1A 003F
-3F1A 0061
-3F1A 0041
-3F1A 0062
-3F1B 0021
-2F933 0021
-3F1B 003F
-2F933 003F
-3F1B 0061
-2F933 0061
-3F1B 0041
-2F933 0041
-3F1B 0062
-2F933 0062
-3F1C 0021
-3F1C 003F
-3F1C 0061
-3F1C 0041
-3F1C 0062
-3F1D 0021
-3F1D 003F
-3F1D 0061
-3F1D 0041
-3F1D 0062
-3F1E 0021
-3F1E 003F
-3F1E 0061
-3F1E 0041
-3F1E 0062
-3F1F 0021
-3F1F 003F
-3F1F 0061
-3F1F 0041
-3F1F 0062
-3F20 0021
-3F20 003F
-3F20 0061
-3F20 0041
-3F20 0062
-3F21 0021
-3F21 003F
-3F21 0061
-3F21 0041
-3F21 0062
-3F22 0021
-3F22 003F
-3F22 0061
-3F22 0041
-3F22 0062
-3F23 0021
-3F23 003F
-3F23 0061
-3F23 0041
-3F23 0062
-3F24 0021
-3F24 003F
-3F24 0061
-3F24 0041
-3F24 0062
-3F25 0021
-3F25 003F
-3F25 0061
-3F25 0041
-3F25 0062
-3F26 0021
-3F26 003F
-3F26 0061
-3F26 0041
-3F26 0062
-3F27 0021
-3F27 003F
-3F27 0061
-3F27 0041
-3F27 0062
-3F28 0021
-3F28 003F
-3F28 0061
-3F28 0041
-3F28 0062
-3F29 0021
-3F29 003F
-3F29 0061
-3F29 0041
-3F29 0062
-3F2A 0021
-3F2A 003F
-3F2A 0061
-3F2A 0041
-3F2A 0062
-3F2B 0021
-3F2B 003F
-3F2B 0061
-3F2B 0041
-3F2B 0062
-3F2C 0021
-3F2C 003F
-3F2C 0061
-3F2C 0041
-3F2C 0062
-3F2D 0021
-3F2D 003F
-3F2D 0061
-3F2D 0041
-3F2D 0062
-3F2E 0021
-3F2E 003F
-3F2E 0061
-3F2E 0041
-3F2E 0062
-3F2F 0021
-3F2F 003F
-3F2F 0061
-3F2F 0041
-3F2F 0062
-3F30 0021
-3F30 003F
-3F30 0061
-3F30 0041
-3F30 0062
-3F31 0021
-3F31 003F
-3F31 0061
-3F31 0041
-3F31 0062
-3F32 0021
-3F32 003F
-3F32 0061
-3F32 0041
-3F32 0062
-3F33 0021
-3F33 003F
-3F33 0061
-3F33 0041
-3F33 0062
-3F34 0021
-3F34 003F
-3F34 0061
-3F34 0041
-3F34 0062
-3F35 0021
-3F35 003F
-3F35 0061
-3F35 0041
-3F35 0062
-3F36 0021
-3F36 003F
-3F36 0061
-3F36 0041
-3F36 0062
-3F37 0021
-3F37 003F
-3F37 0061
-3F37 0041
-3F37 0062
-3F38 0021
-3F38 003F
-3F38 0061
-3F38 0041
-3F38 0062
-3F39 0021
-3F39 003F
-3F39 0061
-3F39 0041
-3F39 0062
-3F3A 0021
-3F3A 003F
-3F3A 0061
-3F3A 0041
-3F3A 0062
-3F3B 0021
-3F3B 003F
-3F3B 0061
-3F3B 0041
-3F3B 0062
-3F3C 0021
-3F3C 003F
-3F3C 0061
-3F3C 0041
-3F3C 0062
-3F3D 0021
-3F3D 003F
-3F3D 0061
-3F3D 0041
-3F3D 0062
-3F3E 0021
-3F3E 003F
-3F3E 0061
-3F3E 0041
-3F3E 0062
-3F3F 0021
-3F3F 003F
-3F3F 0061
-3F3F 0041
-3F3F 0062
-3F40 0021
-3F40 003F
-3F40 0061
-3F40 0041
-3F40 0062
-3F41 0021
-3F41 003F
-3F41 0061
-3F41 0041
-3F41 0062
-3F42 0021
-3F42 003F
-3F42 0061
-3F42 0041
-3F42 0062
-3F43 0021
-3F43 003F
-3F43 0061
-3F43 0041
-3F43 0062
-3F44 0021
-3F44 003F
-3F44 0061
-3F44 0041
-3F44 0062
-3F45 0021
-3F45 003F
-3F45 0061
-3F45 0041
-3F45 0062
-3F46 0021
-3F46 003F
-3F46 0061
-3F46 0041
-3F46 0062
-3F47 0021
-3F47 003F
-3F47 0061
-3F47 0041
-3F47 0062
-3F48 0021
-3F48 003F
-3F48 0061
-3F48 0041
-3F48 0062
-3F49 0021
-3F49 003F
-3F49 0061
-3F49 0041
-3F49 0062
-3F4A 0021
-3F4A 003F
-3F4A 0061
-3F4A 0041
-3F4A 0062
-3F4B 0021
-3F4B 003F
-3F4B 0061
-3F4B 0041
-3F4B 0062
-3F4C 0021
-3F4C 003F
-3F4C 0061
-3F4C 0041
-3F4C 0062
-3F4D 0021
-3F4D 003F
-3F4D 0061
-3F4D 0041
-3F4D 0062
-3F4E 0021
-3F4E 003F
-3F4E 0061
-3F4E 0041
-3F4E 0062
-3F4F 0021
-3F4F 003F
-3F4F 0061
-3F4F 0041
-3F4F 0062
-3F50 0021
-3F50 003F
-3F50 0061
-3F50 0041
-3F50 0062
-3F51 0021
-3F51 003F
-3F51 0061
-3F51 0041
-3F51 0062
-3F52 0021
-3F52 003F
-3F52 0061
-3F52 0041
-3F52 0062
-3F53 0021
-3F53 003F
-3F53 0061
-3F53 0041
-3F53 0062
-3F54 0021
-3F54 003F
-3F54 0061
-3F54 0041
-3F54 0062
-3F55 0021
-3F55 003F
-3F55 0061
-3F55 0041
-3F55 0062
-3F56 0021
-3F56 003F
-3F56 0061
-3F56 0041
-3F56 0062
-3F57 0021
-3F57 003F
-3F57 0061
-3F57 0041
-3F57 0062
-3F58 0021
-3F58 003F
-3F58 0061
-3F58 0041
-3F58 0062
-3F59 0021
-3F59 003F
-3F59 0061
-3F59 0041
-3F59 0062
-3F5A 0021
-3F5A 003F
-3F5A 0061
-3F5A 0041
-3F5A 0062
-3F5B 0021
-3F5B 003F
-3F5B 0061
-3F5B 0041
-3F5B 0062
-3F5C 0021
-3F5C 003F
-3F5C 0061
-3F5C 0041
-3F5C 0062
-3F5D 0021
-3F5D 003F
-3F5D 0061
-3F5D 0041
-3F5D 0062
-3F5E 0021
-3F5E 003F
-3F5E 0061
-3F5E 0041
-3F5E 0062
-3F5F 0021
-3F5F 003F
-3F5F 0061
-3F5F 0041
-3F5F 0062
-3F60 0021
-3F60 003F
-3F60 0061
-3F60 0041
-3F60 0062
-3F61 0021
-3F61 003F
-3F61 0061
-3F61 0041
-3F61 0062
-3F62 0021
-3F62 003F
-3F62 0061
-3F62 0041
-3F62 0062
-3F63 0021
-3F63 003F
-3F63 0061
-3F63 0041
-3F63 0062
-3F64 0021
-3F64 003F
-3F64 0061
-3F64 0041
-3F64 0062
-3F65 0021
-3F65 003F
-3F65 0061
-3F65 0041
-3F65 0062
-3F66 0021
-3F66 003F
-3F66 0061
-3F66 0041
-3F66 0062
-3F67 0021
-3F67 003F
-3F67 0061
-3F67 0041
-3F67 0062
-3F68 0021
-3F68 003F
-3F68 0061
-3F68 0041
-3F68 0062
-3F69 0021
-3F69 003F
-3F69 0061
-3F69 0041
-3F69 0062
-3F6A 0021
-3F6A 003F
-3F6A 0061
-3F6A 0041
-3F6A 0062
-3F6B 0021
-3F6B 003F
-3F6B 0061
-3F6B 0041
-3F6B 0062
-3F6C 0021
-3F6C 003F
-3F6C 0061
-3F6C 0041
-3F6C 0062
-3F6D 0021
-3F6D 003F
-3F6D 0061
-3F6D 0041
-3F6D 0062
-3F6E 0021
-3F6E 003F
-3F6E 0061
-3F6E 0041
-3F6E 0062
-3F6F 0021
-3F6F 003F
-3F6F 0061
-3F6F 0041
-3F6F 0062
-3F70 0021
-3F70 003F
-3F70 0061
-3F70 0041
-3F70 0062
-3F71 0021
-3F71 003F
-3F71 0061
-3F71 0041
-3F71 0062
-3F72 0021
-3F72 003F
-3F72 0061
-3F72 0041
-3F72 0062
-3F73 0021
-3F73 003F
-3F73 0061
-3F73 0041
-3F73 0062
-3F74 0021
-3F74 003F
-3F74 0061
-3F74 0041
-3F74 0062
-3F75 0021
-3F75 003F
-3F75 0061
-3F75 0041
-3F75 0062
-3F76 0021
-3F76 003F
-3F76 0061
-3F76 0041
-3F76 0062
-3F77 0021
-3F77 003F
-3F77 0061
-3F77 0041
-3F77 0062
-3F78 0021
-3F78 003F
-3F78 0061
-3F78 0041
-3F78 0062
-3F79 0021
-3F79 003F
-3F79 0061
-3F79 0041
-3F79 0062
-3F7A 0021
-3F7A 003F
-3F7A 0061
-3F7A 0041
-3F7A 0062
-3F7B 0021
-3F7B 003F
-3F7B 0061
-3F7B 0041
-3F7B 0062
-3F7C 0021
-3F7C 003F
-3F7C 0061
-3F7C 0041
-3F7C 0062
-3F7D 0021
-3F7D 003F
-3F7D 0061
-3F7D 0041
-3F7D 0062
-3F7E 0021
-3F7E 003F
-3F7E 0061
-3F7E 0041
-3F7E 0062
-3F7F 0021
-3F7F 003F
-3F7F 0061
-3F7F 0041
-3F7F 0062
-3F80 0021
-3F80 003F
-3F80 0061
-3F80 0041
-3F80 0062
-3F81 0021
-3F81 003F
-3F81 0061
-3F81 0041
-3F81 0062
-3F82 0021
-3F82 003F
-3F82 0061
-3F82 0041
-3F82 0062
-3F83 0021
-3F83 003F
-3F83 0061
-3F83 0041
-3F83 0062
-3F84 0021
-3F84 003F
-3F84 0061
-3F84 0041
-3F84 0062
-3F85 0021
-3F85 003F
-3F85 0061
-3F85 0041
-3F85 0062
-3F86 0021
-3F86 003F
-3F86 0061
-3F86 0041
-3F86 0062
-3F87 0021
-3F87 003F
-3F87 0061
-3F87 0041
-3F87 0062
-3F88 0021
-3F88 003F
-3F88 0061
-3F88 0041
-3F88 0062
-3F89 0021
-3F89 003F
-3F89 0061
-3F89 0041
-3F89 0062
-3F8A 0021
-3F8A 003F
-3F8A 0061
-3F8A 0041
-3F8A 0062
-3F8B 0021
-3F8B 003F
-3F8B 0061
-3F8B 0041
-3F8B 0062
-3F8C 0021
-3F8C 003F
-3F8C 0061
-3F8C 0041
-3F8C 0062
-3F8D 0021
-3F8D 003F
-3F8D 0061
-3F8D 0041
-3F8D 0062
-3F8E 0021
-3F8E 003F
-3F8E 0061
-3F8E 0041
-3F8E 0062
-3F8F 0021
-3F8F 003F
-3F8F 0061
-3F8F 0041
-3F8F 0062
-3F90 0021
-3F90 003F
-3F90 0061
-3F90 0041
-3F90 0062
-3F91 0021
-3F91 003F
-3F91 0061
-3F91 0041
-3F91 0062
-3F92 0021
-3F92 003F
-3F92 0061
-3F92 0041
-3F92 0062
-3F93 0021
-3F93 003F
-3F93 0061
-3F93 0041
-3F93 0062
-3F94 0021
-3F94 003F
-3F94 0061
-3F94 0041
-3F94 0062
-3F95 0021
-3F95 003F
-3F95 0061
-3F95 0041
-3F95 0062
-3F96 0021
-3F96 003F
-3F96 0061
-3F96 0041
-3F96 0062
-3F97 0021
-3F97 003F
-3F97 0061
-3F97 0041
-3F97 0062
-3F98 0021
-3F98 003F
-3F98 0061
-3F98 0041
-3F98 0062
-3F99 0021
-3F99 003F
-3F99 0061
-3F99 0041
-3F99 0062
-3F9A 0021
-3F9A 003F
-3F9A 0061
-3F9A 0041
-3F9A 0062
-3F9B 0021
-3F9B 003F
-3F9B 0061
-3F9B 0041
-3F9B 0062
-3F9C 0021
-3F9C 003F
-3F9C 0061
-3F9C 0041
-3F9C 0062
-3F9D 0021
-3F9D 003F
-3F9D 0061
-3F9D 0041
-3F9D 0062
-3F9E 0021
-3F9E 003F
-3F9E 0061
-3F9E 0041
-3F9E 0062
-3F9F 0021
-3F9F 003F
-3F9F 0061
-3F9F 0041
-3F9F 0062
-3FA0 0021
-3FA0 003F
-3FA0 0061
-3FA0 0041
-3FA0 0062
-3FA1 0021
-3FA1 003F
-3FA1 0061
-3FA1 0041
-3FA1 0062
-3FA2 0021
-3FA2 003F
-3FA2 0061
-3FA2 0041
-3FA2 0062
-3FA3 0021
-3FA3 003F
-3FA3 0061
-3FA3 0041
-3FA3 0062
-3FA4 0021
-3FA4 003F
-3FA4 0061
-3FA4 0041
-3FA4 0062
-3FA5 0021
-3FA5 003F
-3FA5 0061
-3FA5 0041
-3FA5 0062
-3FA6 0021
-3FA6 003F
-3FA6 0061
-3FA6 0041
-3FA6 0062
-3FA7 0021
-3FA7 003F
-3FA7 0061
-3FA7 0041
-3FA7 0062
-3FA8 0021
-3FA8 003F
-3FA8 0061
-3FA8 0041
-3FA8 0062
-3FA9 0021
-3FA9 003F
-3FA9 0061
-3FA9 0041
-3FA9 0062
-3FAA 0021
-3FAA 003F
-3FAA 0061
-3FAA 0041
-3FAA 0062
-3FAB 0021
-3FAB 003F
-3FAB 0061
-3FAB 0041
-3FAB 0062
-3FAC 0021
-3FAC 003F
-3FAC 0061
-3FAC 0041
-3FAC 0062
-3FAD 0021
-3FAD 003F
-3FAD 0061
-3FAD 0041
-3FAD 0062
-3FAE 0021
-3FAE 003F
-3FAE 0061
-3FAE 0041
-3FAE 0062
-3FAF 0021
-3FAF 003F
-3FAF 0061
-3FAF 0041
-3FAF 0062
-3FB0 0021
-3FB0 003F
-3FB0 0061
-3FB0 0041
-3FB0 0062
-3FB1 0021
-3FB1 003F
-3FB1 0061
-3FB1 0041
-3FB1 0062
-3FB2 0021
-3FB2 003F
-3FB2 0061
-3FB2 0041
-3FB2 0062
-3FB3 0021
-3FB3 003F
-3FB3 0061
-3FB3 0041
-3FB3 0062
-3FB4 0021
-3FB4 003F
-3FB4 0061
-3FB4 0041
-3FB4 0062
-3FB5 0021
-3FB5 003F
-3FB5 0061
-3FB5 0041
-3FB5 0062
-3FB6 0021
-3FB6 003F
-3FB6 0061
-3FB6 0041
-3FB6 0062
-3FB7 0021
-3FB7 003F
-3FB7 0061
-3FB7 0041
-3FB7 0062
-3FB8 0021
-3FB8 003F
-3FB8 0061
-3FB8 0041
-3FB8 0062
-3FB9 0021
-3FB9 003F
-3FB9 0061
-3FB9 0041
-3FB9 0062
-3FBA 0021
-3FBA 003F
-3FBA 0061
-3FBA 0041
-3FBA 0062
-3FBB 0021
-3FBB 003F
-3FBB 0061
-3FBB 0041
-3FBB 0062
-3FBC 0021
-3FBC 003F
-3FBC 0061
-3FBC 0041
-3FBC 0062
-3FBD 0021
-3FBD 003F
-3FBD 0061
-3FBD 0041
-3FBD 0062
-3FBE 0021
-3FBE 003F
-3FBE 0061
-3FBE 0041
-3FBE 0062
-3FBF 0021
-3FBF 003F
-3FBF 0061
-3FBF 0041
-3FBF 0062
-3FC0 0021
-3FC0 003F
-3FC0 0061
-3FC0 0041
-3FC0 0062
-3FC1 0021
-3FC1 003F
-3FC1 0061
-3FC1 0041
-3FC1 0062
-3FC2 0021
-3FC2 003F
-3FC2 0061
-3FC2 0041
-3FC2 0062
-3FC3 0021
-3FC3 003F
-3FC3 0061
-3FC3 0041
-3FC3 0062
-3FC4 0021
-3FC4 003F
-3FC4 0061
-3FC4 0041
-3FC4 0062
-3FC5 0021
-3FC5 003F
-3FC5 0061
-3FC5 0041
-3FC5 0062
-3FC6 0021
-3FC6 003F
-3FC6 0061
-3FC6 0041
-3FC6 0062
-3FC7 0021
-3FC7 003F
-3FC7 0061
-3FC7 0041
-3FC7 0062
-3FC8 0021
-3FC8 003F
-3FC8 0061
-3FC8 0041
-3FC8 0062
-3FC9 0021
-3FC9 003F
-3FC9 0061
-3FC9 0041
-3FC9 0062
-3FCA 0021
-3FCA 003F
-3FCA 0061
-3FCA 0041
-3FCA 0062
-3FCB 0021
-3FCB 003F
-3FCB 0061
-3FCB 0041
-3FCB 0062
-3FCC 0021
-3FCC 003F
-3FCC 0061
-3FCC 0041
-3FCC 0062
-3FCD 0021
-3FCD 003F
-3FCD 0061
-3FCD 0041
-3FCD 0062
-3FCE 0021
-3FCE 003F
-3FCE 0061
-3FCE 0041
-3FCE 0062
-3FCF 0021
-3FCF 003F
-3FCF 0061
-3FCF 0041
-3FCF 0062
-3FD0 0021
-3FD0 003F
-3FD0 0061
-3FD0 0041
-3FD0 0062
-3FD1 0021
-3FD1 003F
-3FD1 0061
-3FD1 0041
-3FD1 0062
-3FD2 0021
-3FD2 003F
-3FD2 0061
-3FD2 0041
-3FD2 0062
-3FD3 0021
-3FD3 003F
-3FD3 0061
-3FD3 0041
-3FD3 0062
-3FD4 0021
-3FD4 003F
-3FD4 0061
-3FD4 0041
-3FD4 0062
-3FD5 0021
-3FD5 003F
-3FD5 0061
-3FD5 0041
-3FD5 0062
-3FD6 0021
-3FD6 003F
-3FD6 0061
-3FD6 0041
-3FD6 0062
-3FD7 0021
-3FD7 003F
-3FD7 0061
-3FD7 0041
-3FD7 0062
-3FD8 0021
-3FD8 003F
-3FD8 0061
-3FD8 0041
-3FD8 0062
-3FD9 0021
-3FD9 003F
-3FD9 0061
-3FD9 0041
-3FD9 0062
-3FDA 0021
-3FDA 003F
-3FDA 0061
-3FDA 0041
-3FDA 0062
-3FDB 0021
-3FDB 003F
-3FDB 0061
-3FDB 0041
-3FDB 0062
-3FDC 0021
-3FDC 003F
-3FDC 0061
-3FDC 0041
-3FDC 0062
-3FDD 0021
-3FDD 003F
-3FDD 0061
-3FDD 0041
-3FDD 0062
-3FDE 0021
-3FDE 003F
-3FDE 0061
-3FDE 0041
-3FDE 0062
-3FDF 0021
-3FDF 003F
-3FDF 0061
-3FDF 0041
-3FDF 0062
-3FE0 0021
-3FE0 003F
-3FE0 0061
-3FE0 0041
-3FE0 0062
-3FE1 0021
-3FE1 003F
-3FE1 0061
-3FE1 0041
-3FE1 0062
-3FE2 0021
-3FE2 003F
-3FE2 0061
-3FE2 0041
-3FE2 0062
-3FE3 0021
-3FE3 003F
-3FE3 0061
-3FE3 0041
-3FE3 0062
-3FE4 0021
-3FE4 003F
-3FE4 0061
-3FE4 0041
-3FE4 0062
-3FE5 0021
-3FE5 003F
-3FE5 0061
-3FE5 0041
-3FE5 0062
-3FE6 0021
-3FE6 003F
-3FE6 0061
-3FE6 0041
-3FE6 0062
-3FE7 0021
-3FE7 003F
-3FE7 0061
-3FE7 0041
-3FE7 0062
-3FE8 0021
-3FE8 003F
-3FE8 0061
-3FE8 0041
-3FE8 0062
-3FE9 0021
-3FE9 003F
-3FE9 0061
-3FE9 0041
-3FE9 0062
-3FEA 0021
-3FEA 003F
-3FEA 0061
-3FEA 0041
-3FEA 0062
-3FEB 0021
-3FEB 003F
-3FEB 0061
-3FEB 0041
-3FEB 0062
-3FEC 0021
-3FEC 003F
-3FEC 0061
-3FEC 0041
-3FEC 0062
-3FED 0021
-3FED 003F
-3FED 0061
-3FED 0041
-3FED 0062
-3FEE 0021
-3FEE 003F
-3FEE 0061
-3FEE 0041
-3FEE 0062
-3FEF 0021
-3FEF 003F
-3FEF 0061
-3FEF 0041
-3FEF 0062
-3FF0 0021
-3FF0 003F
-3FF0 0061
-3FF0 0041
-3FF0 0062
-3FF1 0021
-3FF1 003F
-3FF1 0061
-3FF1 0041
-3FF1 0062
-3FF2 0021
-3FF2 003F
-3FF2 0061
-3FF2 0041
-3FF2 0062
-3FF3 0021
-3FF3 003F
-3FF3 0061
-3FF3 0041
-3FF3 0062
-3FF4 0021
-3FF4 003F
-3FF4 0061
-3FF4 0041
-3FF4 0062
-3FF5 0021
-3FF5 003F
-3FF5 0061
-3FF5 0041
-3FF5 0062
-3FF6 0021
-3FF6 003F
-3FF6 0061
-3FF6 0041
-3FF6 0062
-3FF7 0021
-3FF7 003F
-3FF7 0061
-3FF7 0041
-3FF7 0062
-3FF8 0021
-3FF8 003F
-3FF8 0061
-3FF8 0041
-3FF8 0062
-3FF9 0021
-3FF9 003F
-3FF9 0061
-3FF9 0041
-3FF9 0062
-3FFA 0021
-3FFA 003F
-3FFA 0061
-3FFA 0041
-3FFA 0062
-3FFB 0021
-3FFB 003F
-3FFB 0061
-3FFB 0041
-3FFB 0062
-3FFC 0021
-2F93E 0021
-3FFC 003F
-2F93E 003F
-3FFC 0061
-2F93E 0061
-3FFC 0041
-2F93E 0041
-3FFC 0062
-2F93E 0062
-3FFD 0021
-3FFD 003F
-3FFD 0061
-3FFD 0041
-3FFD 0062
-3FFE 0021
-3FFE 003F
-3FFE 0061
-3FFE 0041
-3FFE 0062
-3FFF 0021
-3FFF 003F
-3FFF 0061
-3FFF 0041
-3FFF 0062
-4000 0021
-4000 003F
-4000 0061
-4000 0041
-4000 0062
-4001 0021
-4001 003F
-4001 0061
-4001 0041
-4001 0062
-4002 0021
-4002 003F
-4002 0061
-4002 0041
-4002 0062
-4003 0021
-4003 003F
-4003 0061
-4003 0041
-4003 0062
-4004 0021
-4004 003F
-4004 0061
-4004 0041
-4004 0062
-4005 0021
-4005 003F
-4005 0061
-4005 0041
-4005 0062
-4006 0021
-4006 003F
-4006 0061
-4006 0041
-4006 0062
-4007 0021
-4007 003F
-4007 0061
-4007 0041
-4007 0062
-4008 0021
-2F93F 0021
-4008 003F
-2F93F 003F
-4008 0061
-2F93F 0061
-4008 0041
-2F93F 0041
-4008 0062
-2F93F 0062
-4009 0021
-4009 003F
-4009 0061
-4009 0041
-4009 0062
-400A 0021
-400A 003F
-400A 0061
-400A 0041
-400A 0062
-400B 0021
-400B 003F
-400B 0061
-400B 0041
-400B 0062
-400C 0021
-400C 003F
-400C 0061
-400C 0041
-400C 0062
-400D 0021
-400D 003F
-400D 0061
-400D 0041
-400D 0062
-400E 0021
-400E 003F
-400E 0061
-400E 0041
-400E 0062
-400F 0021
-400F 003F
-400F 0061
-400F 0041
-400F 0062
-4010 0021
-4010 003F
-4010 0061
-4010 0041
-4010 0062
-4011 0021
-4011 003F
-4011 0061
-4011 0041
-4011 0062
-4012 0021
-4012 003F
-4012 0061
-4012 0041
-4012 0062
-4013 0021
-4013 003F
-4013 0061
-4013 0041
-4013 0062
-4014 0021
-4014 003F
-4014 0061
-4014 0041
-4014 0062
-4015 0021
-4015 003F
-4015 0061
-4015 0041
-4015 0062
-4016 0021
-4016 003F
-4016 0061
-4016 0041
-4016 0062
-4017 0021
-4017 003F
-4017 0061
-4017 0041
-4017 0062
-4018 0021
-FAD3 0021
-4018 003F
-FAD3 003F
-4018 0061
-FAD3 0061
-4018 0041
-FAD3 0041
-4018 0062
-FAD3 0062
-4019 0021
-4019 003F
-4019 0061
-4019 0041
-4019 0062
-401A 0021
-401A 003F
-401A 0061
-401A 0041
-401A 0062
-401B 0021
-401B 003F
-401B 0061
-401B 0041
-401B 0062
-401C 0021
-401C 003F
-401C 0061
-401C 0041
-401C 0062
-401D 0021
-401D 003F
-401D 0061
-401D 0041
-401D 0062
-401E 0021
-401E 003F
-401E 0061
-401E 0041
-401E 0062
-401F 0021
-401F 003F
-401F 0061
-401F 0041
-401F 0062
-4020 0021
-4020 003F
-4020 0061
-4020 0041
-4020 0062
-4021 0021
-4021 003F
-4021 0061
-4021 0041
-4021 0062
-4022 0021
-4022 003F
-4022 0061
-4022 0041
-4022 0062
-4023 0021
-4023 003F
-4023 0061
-4023 0041
-4023 0062
-4024 0021
-4024 003F
-4024 0061
-4024 0041
-4024 0062
-4025 0021
-4025 003F
-4025 0061
-4025 0041
-4025 0062
-4026 0021
-4026 003F
-4026 0061
-4026 0041
-4026 0062
-4027 0021
-4027 003F
-4027 0061
-4027 0041
-4027 0062
-4028 0021
-4028 003F
-4028 0061
-4028 0041
-4028 0062
-4029 0021
-4029 003F
-4029 0061
-4029 0041
-4029 0062
-402A 0021
-402A 003F
-402A 0061
-402A 0041
-402A 0062
-402B 0021
-402B 003F
-402B 0061
-402B 0041
-402B 0062
-402C 0021
-402C 003F
-402C 0061
-402C 0041
-402C 0062
-402D 0021
-402D 003F
-402D 0061
-402D 0041
-402D 0062
-402E 0021
-402E 003F
-402E 0061
-402E 0041
-402E 0062
-402F 0021
-402F 003F
-402F 0061
-402F 0041
-402F 0062
-4030 0021
-4030 003F
-4030 0061
-4030 0041
-4030 0062
-4031 0021
-4031 003F
-4031 0061
-4031 0041
-4031 0062
-4032 0021
-4032 003F
-4032 0061
-4032 0041
-4032 0062
-4033 0021
-4033 003F
-4033 0061
-4033 0041
-4033 0062
-4034 0021
-4034 003F
-4034 0061
-4034 0041
-4034 0062
-4035 0021
-4035 003F
-4035 0061
-4035 0041
-4035 0062
-4036 0021
-4036 003F
-4036 0061
-4036 0041
-4036 0062
-4037 0021
-4037 003F
-4037 0061
-4037 0041
-4037 0062
-4038 0021
-4038 003F
-4038 0061
-4038 0041
-4038 0062
-4039 0021
-FAD4 0021
-2F949 0021
-4039 003F
-FAD4 003F
-2F949 003F
-4039 0061
-FAD4 0061
-2F949 0061
-4039 0041
-FAD4 0041
-2F949 0041
-4039 0062
-FAD4 0062
-2F949 0062
-403A 0021
-403A 003F
-403A 0061
-403A 0041
-403A 0062
-403B 0021
-403B 003F
-403B 0061
-403B 0041
-403B 0062
-403C 0021
-403C 003F
-403C 0061
-403C 0041
-403C 0062
-403D 0021
-403D 003F
-403D 0061
-403D 0041
-403D 0062
-403E 0021
-403E 003F
-403E 0061
-403E 0041
-403E 0062
-403F 0021
-403F 003F
-403F 0061
-403F 0041
-403F 0062
-4040 0021
-4040 003F
-4040 0061
-4040 0041
-4040 0062
-4041 0021
-4041 003F
-4041 0061
-4041 0041
-4041 0062
-4042 0021
-4042 003F
-4042 0061
-4042 0041
-4042 0062
-4043 0021
-4043 003F
-4043 0061
-4043 0041
-4043 0062
-4044 0021
-4044 003F
-4044 0061
-4044 0041
-4044 0062
-4045 0021
-4045 003F
-4045 0061
-4045 0041
-4045 0062
-4046 0021
-2F94B 0021
-4046 003F
-2F94B 003F
-4046 0061
-2F94B 0061
-4046 0041
-2F94B 0041
-4046 0062
-2F94B 0062
-4047 0021
-4047 003F
-4047 0061
-4047 0041
-4047 0062
-4048 0021
-4048 003F
-4048 0061
-4048 0041
-4048 0062
-4049 0021
-4049 003F
-4049 0061
-4049 0041
-4049 0062
-404A 0021
-404A 003F
-404A 0061
-404A 0041
-404A 0062
-404B 0021
-404B 003F
-404B 0061
-404B 0041
-404B 0062
-404C 0021
-404C 003F
-404C 0061
-404C 0041
-404C 0062
-404D 0021
-404D 003F
-404D 0061
-404D 0041
-404D 0062
-404E 0021
-404E 003F
-404E 0061
-404E 0041
-404E 0062
-404F 0021
-404F 003F
-404F 0061
-404F 0041
-404F 0062
-4050 0021
-4050 003F
-4050 0061
-4050 0041
-4050 0062
-4051 0021
-4051 003F
-4051 0061
-4051 0041
-4051 0062
-4052 0021
-4052 003F
-4052 0061
-4052 0041
-4052 0062
-4053 0021
-4053 003F
-4053 0061
-4053 0041
-4053 0062
-4054 0021
-4054 003F
-4054 0061
-4054 0041
-4054 0062
-4055 0021
-4055 003F
-4055 0061
-4055 0041
-4055 0062
-4056 0021
-4056 003F
-4056 0061
-4056 0041
-4056 0062
-4057 0021
-4057 003F
-4057 0061
-4057 0041
-4057 0062
-4058 0021
-4058 003F
-4058 0061
-4058 0041
-4058 0062
-4059 0021
-4059 003F
-4059 0061
-4059 0041
-4059 0062
-405A 0021
-405A 003F
-405A 0061
-405A 0041
-405A 0062
-405B 0021
-405B 003F
-405B 0061
-405B 0041
-405B 0062
-405C 0021
-405C 003F
-405C 0061
-405C 0041
-405C 0062
-405D 0021
-405D 003F
-405D 0061
-405D 0041
-405D 0062
-405E 0021
-405E 003F
-405E 0061
-405E 0041
-405E 0062
-405F 0021
-405F 003F
-405F 0061
-405F 0041
-405F 0062
-4060 0021
-4060 003F
-4060 0061
-4060 0041
-4060 0062
-4061 0021
-4061 003F
-4061 0061
-4061 0041
-4061 0062
-4062 0021
-4062 003F
-4062 0061
-4062 0041
-4062 0062
-4063 0021
-4063 003F
-4063 0061
-4063 0041
-4063 0062
-4064 0021
-4064 003F
-4064 0061
-4064 0041
-4064 0062
-4065 0021
-4065 003F
-4065 0061
-4065 0041
-4065 0062
-4066 0021
-4066 003F
-4066 0061
-4066 0041
-4066 0062
-4067 0021
-4067 003F
-4067 0061
-4067 0041
-4067 0062
-4068 0021
-4068 003F
-4068 0061
-4068 0041
-4068 0062
-4069 0021
-4069 003F
-4069 0061
-4069 0041
-4069 0062
-406A 0021
-406A 003F
-406A 0061
-406A 0041
-406A 0062
-406B 0021
-406B 003F
-406B 0061
-406B 0041
-406B 0062
-406C 0021
-406C 003F
-406C 0061
-406C 0041
-406C 0062
-406D 0021
-406D 003F
-406D 0061
-406D 0041
-406D 0062
-406E 0021
-406E 003F
-406E 0061
-406E 0041
-406E 0062
-406F 0021
-406F 003F
-406F 0061
-406F 0041
-406F 0062
-4070 0021
-4070 003F
-4070 0061
-4070 0041
-4070 0062
-4071 0021
-4071 003F
-4071 0061
-4071 0041
-4071 0062
-4072 0021
-4072 003F
-4072 0061
-4072 0041
-4072 0062
-4073 0021
-4073 003F
-4073 0061
-4073 0041
-4073 0062
-4074 0021
-4074 003F
-4074 0061
-4074 0041
-4074 0062
-4075 0021
-4075 003F
-4075 0061
-4075 0041
-4075 0062
-4076 0021
-4076 003F
-4076 0061
-4076 0041
-4076 0062
-4077 0021
-4077 003F
-4077 0061
-4077 0041
-4077 0062
-4078 0021
-4078 003F
-4078 0061
-4078 0041
-4078 0062
-4079 0021
-4079 003F
-4079 0061
-4079 0041
-4079 0062
-407A 0021
-407A 003F
-407A 0061
-407A 0041
-407A 0062
-407B 0021
-407B 003F
-407B 0061
-407B 0041
-407B 0062
-407C 0021
-407C 003F
-407C 0061
-407C 0041
-407C 0062
-407D 0021
-407D 003F
-407D 0061
-407D 0041
-407D 0062
-407E 0021
-407E 003F
-407E 0061
-407E 0041
-407E 0062
-407F 0021
-407F 003F
-407F 0061
-407F 0041
-407F 0062
-4080 0021
-4080 003F
-4080 0061
-4080 0041
-4080 0062
-4081 0021
-4081 003F
-4081 0061
-4081 0041
-4081 0062
-4082 0021
-4082 003F
-4082 0061
-4082 0041
-4082 0062
-4083 0021
-4083 003F
-4083 0061
-4083 0041
-4083 0062
-4084 0021
-4084 003F
-4084 0061
-4084 0041
-4084 0062
-4085 0021
-4085 003F
-4085 0061
-4085 0041
-4085 0062
-4086 0021
-4086 003F
-4086 0061
-4086 0041
-4086 0062
-4087 0021
-4087 003F
-4087 0061
-4087 0041
-4087 0062
-4088 0021
-4088 003F
-4088 0061
-4088 0041
-4088 0062
-4089 0021
-4089 003F
-4089 0061
-4089 0041
-4089 0062
-408A 0021
-408A 003F
-408A 0061
-408A 0041
-408A 0062
-408B 0021
-408B 003F
-408B 0061
-408B 0041
-408B 0062
-408C 0021
-408C 003F
-408C 0061
-408C 0041
-408C 0062
-408D 0021
-408D 003F
-408D 0061
-408D 0041
-408D 0062
-408E 0021
-408E 003F
-408E 0061
-408E 0041
-408E 0062
-408F 0021
-408F 003F
-408F 0061
-408F 0041
-408F 0062
-4090 0021
-4090 003F
-4090 0061
-4090 0041
-4090 0062
-4091 0021
-4091 003F
-4091 0061
-4091 0041
-4091 0062
-4092 0021
-4092 003F
-4092 0061
-4092 0041
-4092 0062
-4093 0021
-4093 003F
-4093 0061
-4093 0041
-4093 0062
-4094 0021
-4094 003F
-4094 0061
-4094 0041
-4094 0062
-4095 0021
-4095 003F
-4095 0061
-4095 0041
-4095 0062
-4096 0021
-2F94C 0021
-4096 003F
-2F94C 003F
-4096 0061
-2F94C 0061
-4096 0041
-2F94C 0041
-4096 0062
-2F94C 0062
-4097 0021
-4097 003F
-4097 0061
-4097 0041
-4097 0062
-4098 0021
-4098 003F
-4098 0061
-4098 0041
-4098 0062
-4099 0021
-4099 003F
-4099 0061
-4099 0041
-4099 0062
-409A 0021
-409A 003F
-409A 0061
-409A 0041
-409A 0062
-409B 0021
-409B 003F
-409B 0061
-409B 0041
-409B 0062
-409C 0021
-409C 003F
-409C 0061
-409C 0041
-409C 0062
-409D 0021
-409D 003F
-409D 0061
-409D 0041
-409D 0062
-409E 0021
-409E 003F
-409E 0061
-409E 0041
-409E 0062
-409F 0021
-409F 003F
-409F 0061
-409F 0041
-409F 0062
-40A0 0021
-40A0 003F
-40A0 0061
-40A0 0041
-40A0 0062
-40A1 0021
-40A1 003F
-40A1 0061
-40A1 0041
-40A1 0062
-40A2 0021
-40A2 003F
-40A2 0061
-40A2 0041
-40A2 0062
-40A3 0021
-40A3 003F
-40A3 0061
-40A3 0041
-40A3 0062
-40A4 0021
-40A4 003F
-40A4 0061
-40A4 0041
-40A4 0062
-40A5 0021
-40A5 003F
-40A5 0061
-40A5 0041
-40A5 0062
-40A6 0021
-40A6 003F
-40A6 0061
-40A6 0041
-40A6 0062
-40A7 0021
-40A7 003F
-40A7 0061
-40A7 0041
-40A7 0062
-40A8 0021
-40A8 003F
-40A8 0061
-40A8 0041
-40A8 0062
-40A9 0021
-40A9 003F
-40A9 0061
-40A9 0041
-40A9 0062
-40AA 0021
-40AA 003F
-40AA 0061
-40AA 0041
-40AA 0062
-40AB 0021
-40AB 003F
-40AB 0061
-40AB 0041
-40AB 0062
-40AC 0021
-40AC 003F
-40AC 0061
-40AC 0041
-40AC 0062
-40AD 0021
-40AD 003F
-40AD 0061
-40AD 0041
-40AD 0062
-40AE 0021
-40AE 003F
-40AE 0061
-40AE 0041
-40AE 0062
-40AF 0021
-40AF 003F
-40AF 0061
-40AF 0041
-40AF 0062
-40B0 0021
-40B0 003F
-40B0 0061
-40B0 0041
-40B0 0062
-40B1 0021
-40B1 003F
-40B1 0061
-40B1 0041
-40B1 0062
-40B2 0021
-40B2 003F
-40B2 0061
-40B2 0041
-40B2 0062
-40B3 0021
-40B3 003F
-40B3 0061
-40B3 0041
-40B3 0062
-40B4 0021
-40B4 003F
-40B4 0061
-40B4 0041
-40B4 0062
-40B5 0021
-40B5 003F
-40B5 0061
-40B5 0041
-40B5 0062
-40B6 0021
-40B6 003F
-40B6 0061
-40B6 0041
-40B6 0062
-40B7 0021
-40B7 003F
-40B7 0061
-40B7 0041
-40B7 0062
-40B8 0021
-40B8 003F
-40B8 0061
-40B8 0041
-40B8 0062
-40B9 0021
-40B9 003F
-40B9 0061
-40B9 0041
-40B9 0062
-40BA 0021
-40BA 003F
-40BA 0061
-40BA 0041
-40BA 0062
-40BB 0021
-40BB 003F
-40BB 0061
-40BB 0041
-40BB 0062
-40BC 0021
-40BC 003F
-40BC 0061
-40BC 0041
-40BC 0062
-40BD 0021
-40BD 003F
-40BD 0061
-40BD 0041
-40BD 0062
-40BE 0021
-40BE 003F
-40BE 0061
-40BE 0041
-40BE 0062
-40BF 0021
-40BF 003F
-40BF 0061
-40BF 0041
-40BF 0062
-40C0 0021
-40C0 003F
-40C0 0061
-40C0 0041
-40C0 0062
-40C1 0021
-40C1 003F
-40C1 0061
-40C1 0041
-40C1 0062
-40C2 0021
-40C2 003F
-40C2 0061
-40C2 0041
-40C2 0062
-40C3 0021
-40C3 003F
-40C3 0061
-40C3 0041
-40C3 0062
-40C4 0021
-40C4 003F
-40C4 0061
-40C4 0041
-40C4 0062
-40C5 0021
-40C5 003F
-40C5 0061
-40C5 0041
-40C5 0062
-40C6 0021
-40C6 003F
-40C6 0061
-40C6 0041
-40C6 0062
-40C7 0021
-40C7 003F
-40C7 0061
-40C7 0041
-40C7 0062
-40C8 0021
-40C8 003F
-40C8 0061
-40C8 0041
-40C8 0062
-40C9 0021
-40C9 003F
-40C9 0061
-40C9 0041
-40C9 0062
-40CA 0021
-40CA 003F
-40CA 0061
-40CA 0041
-40CA 0062
-40CB 0021
-40CB 003F
-40CB 0061
-40CB 0041
-40CB 0062
-40CC 0021
-40CC 003F
-40CC 0061
-40CC 0041
-40CC 0062
-40CD 0021
-40CD 003F
-40CD 0061
-40CD 0041
-40CD 0062
-40CE 0021
-40CE 003F
-40CE 0061
-40CE 0041
-40CE 0062
-40CF 0021
-40CF 003F
-40CF 0061
-40CF 0041
-40CF 0062
-40D0 0021
-40D0 003F
-40D0 0061
-40D0 0041
-40D0 0062
-40D1 0021
-40D1 003F
-40D1 0061
-40D1 0041
-40D1 0062
-40D2 0021
-40D2 003F
-40D2 0061
-40D2 0041
-40D2 0062
-40D3 0021
-40D3 003F
-40D3 0061
-40D3 0041
-40D3 0062
-40D4 0021
-40D4 003F
-40D4 0061
-40D4 0041
-40D4 0062
-40D5 0021
-40D5 003F
-40D5 0061
-40D5 0041
-40D5 0062
-40D6 0021
-40D6 003F
-40D6 0061
-40D6 0041
-40D6 0062
-40D7 0021
-40D7 003F
-40D7 0061
-40D7 0041
-40D7 0062
-40D8 0021
-40D8 003F
-40D8 0061
-40D8 0041
-40D8 0062
-40D9 0021
-40D9 003F
-40D9 0061
-40D9 0041
-40D9 0062
-40DA 0021
-40DA 003F
-40DA 0061
-40DA 0041
-40DA 0062
-40DB 0021
-40DB 003F
-40DB 0061
-40DB 0041
-40DB 0062
-40DC 0021
-40DC 003F
-40DC 0061
-40DC 0041
-40DC 0062
-40DD 0021
-40DD 003F
-40DD 0061
-40DD 0041
-40DD 0062
-40DE 0021
-40DE 003F
-40DE 0061
-40DE 0041
-40DE 0062
-40DF 0021
-40DF 003F
-40DF 0061
-40DF 0041
-40DF 0062
-40E0 0021
-40E0 003F
-40E0 0061
-40E0 0041
-40E0 0062
-40E1 0021
-40E1 003F
-40E1 0061
-40E1 0041
-40E1 0062
-40E2 0021
-40E2 003F
-40E2 0061
-40E2 0041
-40E2 0062
-40E3 0021
-2F951 0021
-40E3 003F
-2F951 003F
-40E3 0061
-2F951 0061
-40E3 0041
-2F951 0041
-40E3 0062
-2F951 0062
-40E4 0021
-40E4 003F
-40E4 0061
-40E4 0041
-40E4 0062
-40E5 0021
-40E5 003F
-40E5 0061
-40E5 0041
-40E5 0062
-40E6 0021
-40E6 003F
-40E6 0061
-40E6 0041
-40E6 0062
-40E7 0021
-40E7 003F
-40E7 0061
-40E7 0041
-40E7 0062
-40E8 0021
-40E8 003F
-40E8 0061
-40E8 0041
-40E8 0062
-40E9 0021
-40E9 003F
-40E9 0061
-40E9 0041
-40E9 0062
-40EA 0021
-40EA 003F
-40EA 0061
-40EA 0041
-40EA 0062
-40EB 0021
-40EB 003F
-40EB 0061
-40EB 0041
-40EB 0062
-40EC 0021
-40EC 003F
-40EC 0061
-40EC 0041
-40EC 0062
-40ED 0021
-40ED 003F
-40ED 0061
-40ED 0041
-40ED 0062
-40EE 0021
-40EE 003F
-40EE 0061
-40EE 0041
-40EE 0062
-40EF 0021
-40EF 003F
-40EF 0061
-40EF 0041
-40EF 0062
-40F0 0021
-40F0 003F
-40F0 0061
-40F0 0041
-40F0 0062
-40F1 0021
-40F1 003F
-40F1 0061
-40F1 0041
-40F1 0062
-40F2 0021
-40F2 003F
-40F2 0061
-40F2 0041
-40F2 0062
-40F3 0021
-40F3 003F
-40F3 0061
-40F3 0041
-40F3 0062
-40F4 0021
-40F4 003F
-40F4 0061
-40F4 0041
-40F4 0062
-40F5 0021
-40F5 003F
-40F5 0061
-40F5 0041
-40F5 0062
-40F6 0021
-40F6 003F
-40F6 0061
-40F6 0041
-40F6 0062
-40F7 0021
-40F7 003F
-40F7 0061
-40F7 0041
-40F7 0062
-40F8 0021
-40F8 003F
-40F8 0061
-40F8 0041
-40F8 0062
-40F9 0021
-40F9 003F
-40F9 0061
-40F9 0041
-40F9 0062
-40FA 0021
-40FA 003F
-40FA 0061
-40FA 0041
-40FA 0062
-40FB 0021
-40FB 003F
-40FB 0061
-40FB 0041
-40FB 0062
-40FC 0021
-40FC 003F
-40FC 0061
-40FC 0041
-40FC 0062
-40FD 0021
-40FD 003F
-40FD 0061
-40FD 0041
-40FD 0062
-40FE 0021
-40FE 003F
-40FE 0061
-40FE 0041
-40FE 0062
-40FF 0021
-40FF 003F
-40FF 0061
-40FF 0041
-40FF 0062
-4100 0021
-4100 003F
-4100 0061
-4100 0041
-4100 0062
-4101 0021
-4101 003F
-4101 0061
-4101 0041
-4101 0062
-4102 0021
-4102 003F
-4102 0061
-4102 0041
-4102 0062
-4103 0021
-4103 003F
-4103 0061
-4103 0041
-4103 0062
-4104 0021
-4104 003F
-4104 0061
-4104 0041
-4104 0062
-4105 0021
-4105 003F
-4105 0061
-4105 0041
-4105 0062
-4106 0021
-4106 003F
-4106 0061
-4106 0041
-4106 0062
-4107 0021
-4107 003F
-4107 0061
-4107 0041
-4107 0062
-4108 0021
-4108 003F
-4108 0061
-4108 0041
-4108 0062
-4109 0021
-4109 003F
-4109 0061
-4109 0041
-4109 0062
-410A 0021
-410A 003F
-410A 0061
-410A 0041
-410A 0062
-410B 0021
-410B 003F
-410B 0061
-410B 0041
-410B 0062
-410C 0021
-410C 003F
-410C 0061
-410C 0041
-410C 0062
-410D 0021
-410D 003F
-410D 0061
-410D 0041
-410D 0062
-410E 0021
-410E 003F
-410E 0061
-410E 0041
-410E 0062
-410F 0021
-410F 003F
-410F 0061
-410F 0041
-410F 0062
-4110 0021
-4110 003F
-4110 0061
-4110 0041
-4110 0062
-4111 0021
-4111 003F
-4111 0061
-4111 0041
-4111 0062
-4112 0021
-4112 003F
-4112 0061
-4112 0041
-4112 0062
-4113 0021
-4113 003F
-4113 0061
-4113 0041
-4113 0062
-4114 0021
-4114 003F
-4114 0061
-4114 0041
-4114 0062
-4115 0021
-4115 003F
-4115 0061
-4115 0041
-4115 0062
-4116 0021
-4116 003F
-4116 0061
-4116 0041
-4116 0062
-4117 0021
-4117 003F
-4117 0061
-4117 0041
-4117 0062
-4118 0021
-4118 003F
-4118 0061
-4118 0041
-4118 0062
-4119 0021
-4119 003F
-4119 0061
-4119 0041
-4119 0062
-411A 0021
-411A 003F
-411A 0061
-411A 0041
-411A 0062
-411B 0021
-411B 003F
-411B 0061
-411B 0041
-411B 0062
-411C 0021
-411C 003F
-411C 0061
-411C 0041
-411C 0062
-411D 0021
-411D 003F
-411D 0061
-411D 0041
-411D 0062
-411E 0021
-411E 003F
-411E 0061
-411E 0041
-411E 0062
-411F 0021
-411F 003F
-411F 0061
-411F 0041
-411F 0062
-4120 0021
-4120 003F
-4120 0061
-4120 0041
-4120 0062
-4121 0021
-4121 003F
-4121 0061
-4121 0041
-4121 0062
-4122 0021
-4122 003F
-4122 0061
-4122 0041
-4122 0062
-4123 0021
-4123 003F
-4123 0061
-4123 0041
-4123 0062
-4124 0021
-4124 003F
-4124 0061
-4124 0041
-4124 0062
-4125 0021
-4125 003F
-4125 0061
-4125 0041
-4125 0062
-4126 0021
-4126 003F
-4126 0061
-4126 0041
-4126 0062
-4127 0021
-4127 003F
-4127 0061
-4127 0041
-4127 0062
-4128 0021
-4128 003F
-4128 0061
-4128 0041
-4128 0062
-4129 0021
-4129 003F
-4129 0061
-4129 0041
-4129 0062
-412A 0021
-412A 003F
-412A 0061
-412A 0041
-412A 0062
-412B 0021
-412B 003F
-412B 0061
-412B 0041
-412B 0062
-412C 0021
-412C 003F
-412C 0061
-412C 0041
-412C 0062
-412D 0021
-412D 003F
-412D 0061
-412D 0041
-412D 0062
-412E 0021
-412E 003F
-412E 0061
-412E 0041
-412E 0062
-412F 0021
-2F958 0021
-412F 003F
-2F958 003F
-412F 0061
-2F958 0061
-412F 0041
-2F958 0041
-412F 0062
-2F958 0062
-4130 0021
-4130 003F
-4130 0061
-4130 0041
-4130 0062
-4131 0021
-4131 003F
-4131 0061
-4131 0041
-4131 0062
-4132 0021
-4132 003F
-4132 0061
-4132 0041
-4132 0062
-4133 0021
-4133 003F
-4133 0061
-4133 0041
-4133 0062
-4134 0021
-4134 003F
-4134 0061
-4134 0041
-4134 0062
-4135 0021
-4135 003F
-4135 0061
-4135 0041
-4135 0062
-4136 0021
-4136 003F
-4136 0061
-4136 0041
-4136 0062
-4137 0021
-4137 003F
-4137 0061
-4137 0041
-4137 0062
-4138 0021
-4138 003F
-4138 0061
-4138 0041
-4138 0062
-4139 0021
-4139 003F
-4139 0061
-4139 0041
-4139 0062
-413A 0021
-413A 003F
-413A 0061
-413A 0041
-413A 0062
-413B 0021
-413B 003F
-413B 0061
-413B 0041
-413B 0062
-413C 0021
-413C 003F
-413C 0061
-413C 0041
-413C 0062
-413D 0021
-413D 003F
-413D 0061
-413D 0041
-413D 0062
-413E 0021
-413E 003F
-413E 0061
-413E 0041
-413E 0062
-413F 0021
-413F 003F
-413F 0061
-413F 0041
-413F 0062
-4140 0021
-4140 003F
-4140 0061
-4140 0041
-4140 0062
-4141 0021
-4141 003F
-4141 0061
-4141 0041
-4141 0062
-4142 0021
-4142 003F
-4142 0061
-4142 0041
-4142 0062
-4143 0021
-4143 003F
-4143 0061
-4143 0041
-4143 0062
-4144 0021
-4144 003F
-4144 0061
-4144 0041
-4144 0062
-4145 0021
-4145 003F
-4145 0061
-4145 0041
-4145 0062
-4146 0021
-4146 003F
-4146 0061
-4146 0041
-4146 0062
-4147 0021
-4147 003F
-4147 0061
-4147 0041
-4147 0062
-4148 0021
-4148 003F
-4148 0061
-4148 0041
-4148 0062
-4149 0021
-4149 003F
-4149 0061
-4149 0041
-4149 0062
-414A 0021
-414A 003F
-414A 0061
-414A 0041
-414A 0062
-414B 0021
-414B 003F
-414B 0061
-414B 0041
-414B 0062
-414C 0021
-414C 003F
-414C 0061
-414C 0041
-414C 0062
-414D 0021
-414D 003F
-414D 0061
-414D 0041
-414D 0062
-414E 0021
-414E 003F
-414E 0061
-414E 0041
-414E 0062
-414F 0021
-414F 003F
-414F 0061
-414F 0041
-414F 0062
-4150 0021
-4150 003F
-4150 0061
-4150 0041
-4150 0062
-4151 0021
-4151 003F
-4151 0061
-4151 0041
-4151 0062
-4152 0021
-4152 003F
-4152 0061
-4152 0041
-4152 0062
-4153 0021
-4153 003F
-4153 0061
-4153 0041
-4153 0062
-4154 0021
-4154 003F
-4154 0061
-4154 0041
-4154 0062
-4155 0021
-4155 003F
-4155 0061
-4155 0041
-4155 0062
-4156 0021
-4156 003F
-4156 0061
-4156 0041
-4156 0062
-4157 0021
-4157 003F
-4157 0061
-4157 0041
-4157 0062
-4158 0021
-4158 003F
-4158 0061
-4158 0041
-4158 0062
-4159 0021
-4159 003F
-4159 0061
-4159 0041
-4159 0062
-415A 0021
-415A 003F
-415A 0061
-415A 0041
-415A 0062
-415B 0021
-415B 003F
-415B 0061
-415B 0041
-415B 0062
-415C 0021
-415C 003F
-415C 0061
-415C 0041
-415C 0062
-415D 0021
-415D 003F
-415D 0061
-415D 0041
-415D 0062
-415E 0021
-415E 003F
-415E 0061
-415E 0041
-415E 0062
-415F 0021
-415F 003F
-415F 0061
-415F 0041
-415F 0062
-4160 0021
-4160 003F
-4160 0061
-4160 0041
-4160 0062
-4161 0021
-4161 003F
-4161 0061
-4161 0041
-4161 0062
-4162 0021
-4162 003F
-4162 0061
-4162 0041
-4162 0062
-4163 0021
-4163 003F
-4163 0061
-4163 0041
-4163 0062
-4164 0021
-4164 003F
-4164 0061
-4164 0041
-4164 0062
-4165 0021
-4165 003F
-4165 0061
-4165 0041
-4165 0062
-4166 0021
-4166 003F
-4166 0061
-4166 0041
-4166 0062
-4167 0021
-4167 003F
-4167 0061
-4167 0041
-4167 0062
-4168 0021
-4168 003F
-4168 0061
-4168 0041
-4168 0062
-4169 0021
-4169 003F
-4169 0061
-4169 0041
-4169 0062
-416A 0021
-416A 003F
-416A 0061
-416A 0041
-416A 0062
-416B 0021
-416B 003F
-416B 0061
-416B 0041
-416B 0062
-416C 0021
-416C 003F
-416C 0061
-416C 0041
-416C 0062
-416D 0021
-416D 003F
-416D 0061
-416D 0041
-416D 0062
-416E 0021
-416E 003F
-416E 0061
-416E 0041
-416E 0062
-416F 0021
-416F 003F
-416F 0061
-416F 0041
-416F 0062
-4170 0021
-4170 003F
-4170 0061
-4170 0041
-4170 0062
-4171 0021
-4171 003F
-4171 0061
-4171 0041
-4171 0062
-4172 0021
-4172 003F
-4172 0061
-4172 0041
-4172 0062
-4173 0021
-4173 003F
-4173 0061
-4173 0041
-4173 0062
-4174 0021
-4174 003F
-4174 0061
-4174 0041
-4174 0062
-4175 0021
-4175 003F
-4175 0061
-4175 0041
-4175 0062
-4176 0021
-4176 003F
-4176 0061
-4176 0041
-4176 0062
-4177 0021
-4177 003F
-4177 0061
-4177 0041
-4177 0062
-4178 0021
-4178 003F
-4178 0061
-4178 0041
-4178 0062
-4179 0021
-4179 003F
-4179 0061
-4179 0041
-4179 0062
-417A 0021
-417A 003F
-417A 0061
-417A 0041
-417A 0062
-417B 0021
-417B 003F
-417B 0061
-417B 0041
-417B 0062
-417C 0021
-417C 003F
-417C 0061
-417C 0041
-417C 0062
-417D 0021
-417D 003F
-417D 0061
-417D 0041
-417D 0062
-417E 0021
-417E 003F
-417E 0061
-417E 0041
-417E 0062
-417F 0021
-417F 003F
-417F 0061
-417F 0041
-417F 0062
-4180 0021
-4180 003F
-4180 0061
-4180 0041
-4180 0062
-4181 0021
-4181 003F
-4181 0061
-4181 0041
-4181 0062
-4182 0021
-4182 003F
-4182 0061
-4182 0041
-4182 0062
-4183 0021
-4183 003F
-4183 0061
-4183 0041
-4183 0062
-4184 0021
-4184 003F
-4184 0061
-4184 0041
-4184 0062
-4185 0021
-4185 003F
-4185 0061
-4185 0041
-4185 0062
-4186 0021
-4186 003F
-4186 0061
-4186 0041
-4186 0062
-4187 0021
-4187 003F
-4187 0061
-4187 0041
-4187 0062
-4188 0021
-4188 003F
-4188 0061
-4188 0041
-4188 0062
-4189 0021
-4189 003F
-4189 0061
-4189 0041
-4189 0062
-418A 0021
-418A 003F
-418A 0061
-418A 0041
-418A 0062
-418B 0021
-418B 003F
-418B 0061
-418B 0041
-418B 0062
-418C 0021
-418C 003F
-418C 0061
-418C 0041
-418C 0062
-418D 0021
-418D 003F
-418D 0061
-418D 0041
-418D 0062
-418E 0021
-418E 003F
-418E 0061
-418E 0041
-418E 0062
-418F 0021
-418F 003F
-418F 0061
-418F 0041
-418F 0062
-4190 0021
-4190 003F
-4190 0061
-4190 0041
-4190 0062
-4191 0021
-4191 003F
-4191 0061
-4191 0041
-4191 0062
-4192 0021
-4192 003F
-4192 0061
-4192 0041
-4192 0062
-4193 0021
-4193 003F
-4193 0061
-4193 0041
-4193 0062
-4194 0021
-4194 003F
-4194 0061
-4194 0041
-4194 0062
-4195 0021
-4195 003F
-4195 0061
-4195 0041
-4195 0062
-4196 0021
-4196 003F
-4196 0061
-4196 0041
-4196 0062
-4197 0021
-4197 003F
-4197 0061
-4197 0041
-4197 0062
-4198 0021
-4198 003F
-4198 0061
-4198 0041
-4198 0062
-4199 0021
-4199 003F
-4199 0061
-4199 0041
-4199 0062
-419A 0021
-419A 003F
-419A 0061
-419A 0041
-419A 0062
-419B 0021
-419B 003F
-419B 0061
-419B 0041
-419B 0062
-419C 0021
-419C 003F
-419C 0061
-419C 0041
-419C 0062
-419D 0021
-419D 003F
-419D 0061
-419D 0041
-419D 0062
-419E 0021
-419E 003F
-419E 0061
-419E 0041
-419E 0062
-419F 0021
-419F 003F
-419F 0061
-419F 0041
-419F 0062
-41A0 0021
-41A0 003F
-41A0 0061
-41A0 0041
-41A0 0062
-41A1 0021
-41A1 003F
-41A1 0061
-41A1 0041
-41A1 0062
-41A2 0021
-41A2 003F
-41A2 0061
-41A2 0041
-41A2 0062
-41A3 0021
-41A3 003F
-41A3 0061
-41A3 0041
-41A3 0062
-41A4 0021
-41A4 003F
-41A4 0061
-41A4 0041
-41A4 0062
-41A5 0021
-41A5 003F
-41A5 0061
-41A5 0041
-41A5 0062
-41A6 0021
-41A6 003F
-41A6 0061
-41A6 0041
-41A6 0062
-41A7 0021
-41A7 003F
-41A7 0061
-41A7 0041
-41A7 0062
-41A8 0021
-41A8 003F
-41A8 0061
-41A8 0041
-41A8 0062
-41A9 0021
-41A9 003F
-41A9 0061
-41A9 0041
-41A9 0062
-41AA 0021
-41AA 003F
-41AA 0061
-41AA 0041
-41AA 0062
-41AB 0021
-41AB 003F
-41AB 0061
-41AB 0041
-41AB 0062
-41AC 0021
-41AC 003F
-41AC 0061
-41AC 0041
-41AC 0062
-41AD 0021
-41AD 003F
-41AD 0061
-41AD 0041
-41AD 0062
-41AE 0021
-41AE 003F
-41AE 0061
-41AE 0041
-41AE 0062
-41AF 0021
-41AF 003F
-41AF 0061
-41AF 0041
-41AF 0062
-41B0 0021
-41B0 003F
-41B0 0061
-41B0 0041
-41B0 0062
-41B1 0021
-41B1 003F
-41B1 0061
-41B1 0041
-41B1 0062
-41B2 0021
-41B2 003F
-41B2 0061
-41B2 0041
-41B2 0062
-41B3 0021
-41B3 003F
-41B3 0061
-41B3 0041
-41B3 0062
-41B4 0021
-41B4 003F
-41B4 0061
-41B4 0041
-41B4 0062
-41B5 0021
-41B5 003F
-41B5 0061
-41B5 0041
-41B5 0062
-41B6 0021
-41B6 003F
-41B6 0061
-41B6 0041
-41B6 0062
-41B7 0021
-41B7 003F
-41B7 0061
-41B7 0041
-41B7 0062
-41B8 0021
-41B8 003F
-41B8 0061
-41B8 0041
-41B8 0062
-41B9 0021
-41B9 003F
-41B9 0061
-41B9 0041
-41B9 0062
-41BA 0021
-41BA 003F
-41BA 0061
-41BA 0041
-41BA 0062
-41BB 0021
-41BB 003F
-41BB 0061
-41BB 0041
-41BB 0062
-41BC 0021
-41BC 003F
-41BC 0061
-41BC 0041
-41BC 0062
-41BD 0021
-41BD 003F
-41BD 0061
-41BD 0041
-41BD 0062
-41BE 0021
-41BE 003F
-41BE 0061
-41BE 0041
-41BE 0062
-41BF 0021
-41BF 003F
-41BF 0061
-41BF 0041
-41BF 0062
-41C0 0021
-41C0 003F
-41C0 0061
-41C0 0041
-41C0 0062
-41C1 0021
-41C1 003F
-41C1 0061
-41C1 0041
-41C1 0062
-41C2 0021
-41C2 003F
-41C2 0061
-41C2 0041
-41C2 0062
-41C3 0021
-41C3 003F
-41C3 0061
-41C3 0041
-41C3 0062
-41C4 0021
-41C4 003F
-41C4 0061
-41C4 0041
-41C4 0062
-41C5 0021
-41C5 003F
-41C5 0061
-41C5 0041
-41C5 0062
-41C6 0021
-41C6 003F
-41C6 0061
-41C6 0041
-41C6 0062
-41C7 0021
-41C7 003F
-41C7 0061
-41C7 0041
-41C7 0062
-41C8 0021
-41C8 003F
-41C8 0061
-41C8 0041
-41C8 0062
-41C9 0021
-41C9 003F
-41C9 0061
-41C9 0041
-41C9 0062
-41CA 0021
-41CA 003F
-41CA 0061
-41CA 0041
-41CA 0062
-41CB 0021
-41CB 003F
-41CB 0061
-41CB 0041
-41CB 0062
-41CC 0021
-41CC 003F
-41CC 0061
-41CC 0041
-41CC 0062
-41CD 0021
-41CD 003F
-41CD 0061
-41CD 0041
-41CD 0062
-41CE 0021
-41CE 003F
-41CE 0061
-41CE 0041
-41CE 0062
-41CF 0021
-41CF 003F
-41CF 0061
-41CF 0041
-41CF 0062
-41D0 0021
-41D0 003F
-41D0 0061
-41D0 0041
-41D0 0062
-41D1 0021
-41D1 003F
-41D1 0061
-41D1 0041
-41D1 0062
-41D2 0021
-41D2 003F
-41D2 0061
-41D2 0041
-41D2 0062
-41D3 0021
-41D3 003F
-41D3 0061
-41D3 0041
-41D3 0062
-41D4 0021
-41D4 003F
-41D4 0061
-41D4 0041
-41D4 0062
-41D5 0021
-41D5 003F
-41D5 0061
-41D5 0041
-41D5 0062
-41D6 0021
-41D6 003F
-41D6 0061
-41D6 0041
-41D6 0062
-41D7 0021
-41D7 003F
-41D7 0061
-41D7 0041
-41D7 0062
-41D8 0021
-41D8 003F
-41D8 0061
-41D8 0041
-41D8 0062
-41D9 0021
-41D9 003F
-41D9 0061
-41D9 0041
-41D9 0062
-41DA 0021
-41DA 003F
-41DA 0061
-41DA 0041
-41DA 0062
-41DB 0021
-41DB 003F
-41DB 0061
-41DB 0041
-41DB 0062
-41DC 0021
-41DC 003F
-41DC 0061
-41DC 0041
-41DC 0062
-41DD 0021
-41DD 003F
-41DD 0061
-41DD 0041
-41DD 0062
-41DE 0021
-41DE 003F
-41DE 0061
-41DE 0041
-41DE 0062
-41DF 0021
-41DF 003F
-41DF 0061
-41DF 0041
-41DF 0062
-41E0 0021
-41E0 003F
-41E0 0061
-41E0 0041
-41E0 0062
-41E1 0021
-41E1 003F
-41E1 0061
-41E1 0041
-41E1 0062
-41E2 0021
-41E2 003F
-41E2 0061
-41E2 0041
-41E2 0062
-41E3 0021
-41E3 003F
-41E3 0061
-41E3 0041
-41E3 0062
-41E4 0021
-41E4 003F
-41E4 0061
-41E4 0041
-41E4 0062
-41E5 0021
-41E5 003F
-41E5 0061
-41E5 0041
-41E5 0062
-41E6 0021
-41E6 003F
-41E6 0061
-41E6 0041
-41E6 0062
-41E7 0021
-41E7 003F
-41E7 0061
-41E7 0041
-41E7 0062
-41E8 0021
-41E8 003F
-41E8 0061
-41E8 0041
-41E8 0062
-41E9 0021
-41E9 003F
-41E9 0061
-41E9 0041
-41E9 0062
-41EA 0021
-41EA 003F
-41EA 0061
-41EA 0041
-41EA 0062
-41EB 0021
-41EB 003F
-41EB 0061
-41EB 0041
-41EB 0062
-41EC 0021
-41EC 003F
-41EC 0061
-41EC 0041
-41EC 0062
-41ED 0021
-41ED 003F
-41ED 0061
-41ED 0041
-41ED 0062
-41EE 0021
-41EE 003F
-41EE 0061
-41EE 0041
-41EE 0062
-41EF 0021
-41EF 003F
-41EF 0061
-41EF 0041
-41EF 0062
-41F0 0021
-41F0 003F
-41F0 0061
-41F0 0041
-41F0 0062
-41F1 0021
-41F1 003F
-41F1 0061
-41F1 0041
-41F1 0062
-41F2 0021
-41F2 003F
-41F2 0061
-41F2 0041
-41F2 0062
-41F3 0021
-41F3 003F
-41F3 0061
-41F3 0041
-41F3 0062
-41F4 0021
-41F4 003F
-41F4 0061
-41F4 0041
-41F4 0062
-41F5 0021
-41F5 003F
-41F5 0061
-41F5 0041
-41F5 0062
-41F6 0021
-41F6 003F
-41F6 0061
-41F6 0041
-41F6 0062
-41F7 0021
-41F7 003F
-41F7 0061
-41F7 0041
-41F7 0062
-41F8 0021
-41F8 003F
-41F8 0061
-41F8 0041
-41F8 0062
-41F9 0021
-41F9 003F
-41F9 0061
-41F9 0041
-41F9 0062
-41FA 0021
-41FA 003F
-41FA 0061
-41FA 0041
-41FA 0062
-41FB 0021
-41FB 003F
-41FB 0061
-41FB 0041
-41FB 0062
-41FC 0021
-41FC 003F
-41FC 0061
-41FC 0041
-41FC 0062
-41FD 0021
-41FD 003F
-41FD 0061
-41FD 0041
-41FD 0062
-41FE 0021
-41FE 003F
-41FE 0061
-41FE 0041
-41FE 0062
-41FF 0021
-41FF 003F
-41FF 0061
-41FF 0041
-41FF 0062
-4200 0021
-4200 003F
-4200 0061
-4200 0041
-4200 0062
-4201 0021
-4201 003F
-4201 0061
-4201 0041
-4201 0062
-4202 0021
-2F960 0021
-4202 003F
-2F960 003F
-4202 0061
-2F960 0061
-4202 0041
-2F960 0041
-4202 0062
-2F960 0062
-4203 0021
-4203 003F
-4203 0061
-4203 0041
-4203 0062
-4204 0021
-4204 003F
-4204 0061
-4204 0041
-4204 0062
-4205 0021
-4205 003F
-4205 0061
-4205 0041
-4205 0062
-4206 0021
-4206 003F
-4206 0061
-4206 0041
-4206 0062
-4207 0021
-4207 003F
-4207 0061
-4207 0041
-4207 0062
-4208 0021
-4208 003F
-4208 0061
-4208 0041
-4208 0062
-4209 0021
-4209 003F
-4209 0061
-4209 0041
-4209 0062
-420A 0021
-420A 003F
-420A 0061
-420A 0041
-420A 0062
-420B 0021
-420B 003F
-420B 0061
-420B 0041
-420B 0062
-420C 0021
-420C 003F
-420C 0061
-420C 0041
-420C 0062
-420D 0021
-420D 003F
-420D 0061
-420D 0041
-420D 0062
-420E 0021
-420E 003F
-420E 0061
-420E 0041
-420E 0062
-420F 0021
-420F 003F
-420F 0061
-420F 0041
-420F 0062
-4210 0021
-4210 003F
-4210 0061
-4210 0041
-4210 0062
-4211 0021
-4211 003F
-4211 0061
-4211 0041
-4211 0062
-4212 0021
-4212 003F
-4212 0061
-4212 0041
-4212 0062
-4213 0021
-4213 003F
-4213 0061
-4213 0041
-4213 0062
-4214 0021
-4214 003F
-4214 0061
-4214 0041
-4214 0062
-4215 0021
-4215 003F
-4215 0061
-4215 0041
-4215 0062
-4216 0021
-4216 003F
-4216 0061
-4216 0041
-4216 0062
-4217 0021
-4217 003F
-4217 0061
-4217 0041
-4217 0062
-4218 0021
-4218 003F
-4218 0061
-4218 0041
-4218 0062
-4219 0021
-4219 003F
-4219 0061
-4219 0041
-4219 0062
-421A 0021
-421A 003F
-421A 0061
-421A 0041
-421A 0062
-421B 0021
-421B 003F
-421B 0061
-421B 0041
-421B 0062
-421C 0021
-421C 003F
-421C 0061
-421C 0041
-421C 0062
-421D 0021
-421D 003F
-421D 0061
-421D 0041
-421D 0062
-421E 0021
-421E 003F
-421E 0061
-421E 0041
-421E 0062
-421F 0021
-421F 003F
-421F 0061
-421F 0041
-421F 0062
-4220 0021
-4220 003F
-4220 0061
-4220 0041
-4220 0062
-4221 0021
-4221 003F
-4221 0061
-4221 0041
-4221 0062
-4222 0021
-4222 003F
-4222 0061
-4222 0041
-4222 0062
-4223 0021
-4223 003F
-4223 0061
-4223 0041
-4223 0062
-4224 0021
-4224 003F
-4224 0061
-4224 0041
-4224 0062
-4225 0021
-4225 003F
-4225 0061
-4225 0041
-4225 0062
-4226 0021
-4226 003F
-4226 0061
-4226 0041
-4226 0062
-4227 0021
-2F964 0021
-4227 003F
-2F964 003F
-4227 0061
-2F964 0061
-4227 0041
-2F964 0041
-4227 0062
-2F964 0062
-4228 0021
-4228 003F
-4228 0061
-4228 0041
-4228 0062
-4229 0021
-4229 003F
-4229 0061
-4229 0041
-4229 0062
-422A 0021
-422A 003F
-422A 0061
-422A 0041
-422A 0062
-422B 0021
-422B 003F
-422B 0061
-422B 0041
-422B 0062
-422C 0021
-422C 003F
-422C 0061
-422C 0041
-422C 0062
-422D 0021
-422D 003F
-422D 0061
-422D 0041
-422D 0062
-422E 0021
-422E 003F
-422E 0061
-422E 0041
-422E 0062
-422F 0021
-422F 003F
-422F 0061
-422F 0041
-422F 0062
-4230 0021
-4230 003F
-4230 0061
-4230 0041
-4230 0062
-4231 0021
-4231 003F
-4231 0061
-4231 0041
-4231 0062
-4232 0021
-4232 003F
-4232 0061
-4232 0041
-4232 0062
-4233 0021
-4233 003F
-4233 0061
-4233 0041
-4233 0062
-4234 0021
-4234 003F
-4234 0061
-4234 0041
-4234 0062
-4235 0021
-4235 003F
-4235 0061
-4235 0041
-4235 0062
-4236 0021
-4236 003F
-4236 0061
-4236 0041
-4236 0062
-4237 0021
-4237 003F
-4237 0061
-4237 0041
-4237 0062
-4238 0021
-4238 003F
-4238 0061
-4238 0041
-4238 0062
-4239 0021
-4239 003F
-4239 0061
-4239 0041
-4239 0062
-423A 0021
-423A 003F
-423A 0061
-423A 0041
-423A 0062
-423B 0021
-423B 003F
-423B 0061
-423B 0041
-423B 0062
-423C 0021
-423C 003F
-423C 0061
-423C 0041
-423C 0062
-423D 0021
-423D 003F
-423D 0061
-423D 0041
-423D 0062
-423E 0021
-423E 003F
-423E 0061
-423E 0041
-423E 0062
-423F 0021
-423F 003F
-423F 0061
-423F 0041
-423F 0062
-4240 0021
-4240 003F
-4240 0061
-4240 0041
-4240 0062
-4241 0021
-4241 003F
-4241 0061
-4241 0041
-4241 0062
-4242 0021
-4242 003F
-4242 0061
-4242 0041
-4242 0062
-4243 0021
-4243 003F
-4243 0061
-4243 0041
-4243 0062
-4244 0021
-4244 003F
-4244 0061
-4244 0041
-4244 0062
-4245 0021
-4245 003F
-4245 0061
-4245 0041
-4245 0062
-4246 0021
-4246 003F
-4246 0061
-4246 0041
-4246 0062
-4247 0021
-4247 003F
-4247 0061
-4247 0041
-4247 0062
-4248 0021
-4248 003F
-4248 0061
-4248 0041
-4248 0062
-4249 0021
-4249 003F
-4249 0061
-4249 0041
-4249 0062
-424A 0021
-424A 003F
-424A 0061
-424A 0041
-424A 0062
-424B 0021
-424B 003F
-424B 0061
-424B 0041
-424B 0062
-424C 0021
-424C 003F
-424C 0061
-424C 0041
-424C 0062
-424D 0021
-424D 003F
-424D 0061
-424D 0041
-424D 0062
-424E 0021
-424E 003F
-424E 0061
-424E 0041
-424E 0062
-424F 0021
-424F 003F
-424F 0061
-424F 0041
-424F 0062
-4250 0021
-4250 003F
-4250 0061
-4250 0041
-4250 0062
-4251 0021
-4251 003F
-4251 0061
-4251 0041
-4251 0062
-4252 0021
-4252 003F
-4252 0061
-4252 0041
-4252 0062
-4253 0021
-4253 003F
-4253 0061
-4253 0041
-4253 0062
-4254 0021
-4254 003F
-4254 0061
-4254 0041
-4254 0062
-4255 0021
-4255 003F
-4255 0061
-4255 0041
-4255 0062
-4256 0021
-4256 003F
-4256 0061
-4256 0041
-4256 0062
-4257 0021
-4257 003F
-4257 0061
-4257 0041
-4257 0062
-4258 0021
-4258 003F
-4258 0061
-4258 0041
-4258 0062
-4259 0021
-4259 003F
-4259 0061
-4259 0041
-4259 0062
-425A 0021
-425A 003F
-425A 0061
-425A 0041
-425A 0062
-425B 0021
-425B 003F
-425B 0061
-425B 0041
-425B 0062
-425C 0021
-425C 003F
-425C 0061
-425C 0041
-425C 0062
-425D 0021
-425D 003F
-425D 0061
-425D 0041
-425D 0062
-425E 0021
-425E 003F
-425E 0061
-425E 0041
-425E 0062
-425F 0021
-425F 003F
-425F 0061
-425F 0041
-425F 0062
-4260 0021
-4260 003F
-4260 0061
-4260 0041
-4260 0062
-4261 0021
-4261 003F
-4261 0061
-4261 0041
-4261 0062
-4262 0021
-4262 003F
-4262 0061
-4262 0041
-4262 0062
-4263 0021
-4263 003F
-4263 0061
-4263 0041
-4263 0062
-4264 0021
-4264 003F
-4264 0061
-4264 0041
-4264 0062
-4265 0021
-4265 003F
-4265 0061
-4265 0041
-4265 0062
-4266 0021
-4266 003F
-4266 0061
-4266 0041
-4266 0062
-4267 0021
-4267 003F
-4267 0061
-4267 0041
-4267 0062
-4268 0021
-4268 003F
-4268 0061
-4268 0041
-4268 0062
-4269 0021
-4269 003F
-4269 0061
-4269 0041
-4269 0062
-426A 0021
-426A 003F
-426A 0061
-426A 0041
-426A 0062
-426B 0021
-426B 003F
-426B 0061
-426B 0041
-426B 0062
-426C 0021
-426C 003F
-426C 0061
-426C 0041
-426C 0062
-426D 0021
-426D 003F
-426D 0061
-426D 0041
-426D 0062
-426E 0021
-426E 003F
-426E 0061
-426E 0041
-426E 0062
-426F 0021
-426F 003F
-426F 0061
-426F 0041
-426F 0062
-4270 0021
-4270 003F
-4270 0061
-4270 0041
-4270 0062
-4271 0021
-4271 003F
-4271 0061
-4271 0041
-4271 0062
-4272 0021
-4272 003F
-4272 0061
-4272 0041
-4272 0062
-4273 0021
-4273 003F
-4273 0061
-4273 0041
-4273 0062
-4274 0021
-4274 003F
-4274 0061
-4274 0041
-4274 0062
-4275 0021
-4275 003F
-4275 0061
-4275 0041
-4275 0062
-4276 0021
-4276 003F
-4276 0061
-4276 0041
-4276 0062
-4277 0021
-4277 003F
-4277 0061
-4277 0041
-4277 0062
-4278 0021
-4278 003F
-4278 0061
-4278 0041
-4278 0062
-4279 0021
-4279 003F
-4279 0061
-4279 0041
-4279 0062
-427A 0021
-427A 003F
-427A 0061
-427A 0041
-427A 0062
-427B 0021
-427B 003F
-427B 0061
-427B 0041
-427B 0062
-427C 0021
-427C 003F
-427C 0061
-427C 0041
-427C 0062
-427D 0021
-427D 003F
-427D 0061
-427D 0041
-427D 0062
-427E 0021
-427E 003F
-427E 0061
-427E 0041
-427E 0062
-427F 0021
-427F 003F
-427F 0061
-427F 0041
-427F 0062
-4280 0021
-4280 003F
-4280 0061
-4280 0041
-4280 0062
-4281 0021
-4281 003F
-4281 0061
-4281 0041
-4281 0062
-4282 0021
-4282 003F
-4282 0061
-4282 0041
-4282 0062
-4283 0021
-4283 003F
-4283 0061
-4283 0041
-4283 0062
-4284 0021
-4284 003F
-4284 0061
-4284 0041
-4284 0062
-4285 0021
-4285 003F
-4285 0061
-4285 0041
-4285 0062
-4286 0021
-4286 003F
-4286 0061
-4286 0041
-4286 0062
-4287 0021
-4287 003F
-4287 0061
-4287 0041
-4287 0062
-4288 0021
-4288 003F
-4288 0061
-4288 0041
-4288 0062
-4289 0021
-4289 003F
-4289 0061
-4289 0041
-4289 0062
-428A 0021
-428A 003F
-428A 0061
-428A 0041
-428A 0062
-428B 0021
-428B 003F
-428B 0061
-428B 0041
-428B 0062
-428C 0021
-428C 003F
-428C 0061
-428C 0041
-428C 0062
-428D 0021
-428D 003F
-428D 0061
-428D 0041
-428D 0062
-428E 0021
-428E 003F
-428E 0061
-428E 0041
-428E 0062
-428F 0021
-428F 003F
-428F 0061
-428F 0041
-428F 0062
-4290 0021
-4290 003F
-4290 0061
-4290 0041
-4290 0062
-4291 0021
-4291 003F
-4291 0061
-4291 0041
-4291 0062
-4292 0021
-4292 003F
-4292 0061
-4292 0041
-4292 0062
-4293 0021
-4293 003F
-4293 0061
-4293 0041
-4293 0062
-4294 0021
-4294 003F
-4294 0061
-4294 0041
-4294 0062
-4295 0021
-4295 003F
-4295 0061
-4295 0041
-4295 0062
-4296 0021
-4296 003F
-4296 0061
-4296 0041
-4296 0062
-4297 0021
-4297 003F
-4297 0061
-4297 0041
-4297 0062
-4298 0021
-4298 003F
-4298 0061
-4298 0041
-4298 0062
-4299 0021
-4299 003F
-4299 0061
-4299 0041
-4299 0062
-429A 0021
-429A 003F
-429A 0061
-429A 0041
-429A 0062
-429B 0021
-429B 003F
-429B 0061
-429B 0041
-429B 0062
-429C 0021
-429C 003F
-429C 0061
-429C 0041
-429C 0062
-429D 0021
-429D 003F
-429D 0061
-429D 0041
-429D 0062
-429E 0021
-429E 003F
-429E 0061
-429E 0041
-429E 0062
-429F 0021
-429F 003F
-429F 0061
-429F 0041
-429F 0062
-42A0 0021
-2F967 0021
-42A0 003F
-2F967 003F
-42A0 0061
-2F967 0061
-42A0 0041
-2F967 0041
-42A0 0062
-2F967 0062
-42A1 0021
-42A1 003F
-42A1 0061
-42A1 0041
-42A1 0062
-42A2 0021
-42A2 003F
-42A2 0061
-42A2 0041
-42A2 0062
-42A3 0021
-42A3 003F
-42A3 0061
-42A3 0041
-42A3 0062
-42A4 0021
-42A4 003F
-42A4 0061
-42A4 0041
-42A4 0062
-42A5 0021
-42A5 003F
-42A5 0061
-42A5 0041
-42A5 0062
-42A6 0021
-42A6 003F
-42A6 0061
-42A6 0041
-42A6 0062
-42A7 0021
-42A7 003F
-42A7 0061
-42A7 0041
-42A7 0062
-42A8 0021
-42A8 003F
-42A8 0061
-42A8 0041
-42A8 0062
-42A9 0021
-42A9 003F
-42A9 0061
-42A9 0041
-42A9 0062
-42AA 0021
-42AA 003F
-42AA 0061
-42AA 0041
-42AA 0062
-42AB 0021
-42AB 003F
-42AB 0061
-42AB 0041
-42AB 0062
-42AC 0021
-42AC 003F
-42AC 0061
-42AC 0041
-42AC 0062
-42AD 0021
-42AD 003F
-42AD 0061
-42AD 0041
-42AD 0062
-42AE 0021
-42AE 003F
-42AE 0061
-42AE 0041
-42AE 0062
-42AF 0021
-42AF 003F
-42AF 0061
-42AF 0041
-42AF 0062
-42B0 0021
-42B0 003F
-42B0 0061
-42B0 0041
-42B0 0062
-42B1 0021
-42B1 003F
-42B1 0061
-42B1 0041
-42B1 0062
-42B2 0021
-42B2 003F
-42B2 0061
-42B2 0041
-42B2 0062
-42B3 0021
-42B3 003F
-42B3 0061
-42B3 0041
-42B3 0062
-42B4 0021
-42B4 003F
-42B4 0061
-42B4 0041
-42B4 0062
-42B5 0021
-42B5 003F
-42B5 0061
-42B5 0041
-42B5 0062
-42B6 0021
-42B6 003F
-42B6 0061
-42B6 0041
-42B6 0062
-42B7 0021
-42B7 003F
-42B7 0061
-42B7 0041
-42B7 0062
-42B8 0021
-42B8 003F
-42B8 0061
-42B8 0041
-42B8 0062
-42B9 0021
-42B9 003F
-42B9 0061
-42B9 0041
-42B9 0062
-42BA 0021
-42BA 003F
-42BA 0061
-42BA 0041
-42BA 0062
-42BB 0021
-42BB 003F
-42BB 0061
-42BB 0041
-42BB 0062
-42BC 0021
-42BC 003F
-42BC 0061
-42BC 0041
-42BC 0062
-42BD 0021
-42BD 003F
-42BD 0061
-42BD 0041
-42BD 0062
-42BE 0021
-42BE 003F
-42BE 0061
-42BE 0041
-42BE 0062
-42BF 0021
-42BF 003F
-42BF 0061
-42BF 0041
-42BF 0062
-42C0 0021
-42C0 003F
-42C0 0061
-42C0 0041
-42C0 0062
-42C1 0021
-42C1 003F
-42C1 0061
-42C1 0041
-42C1 0062
-42C2 0021
-42C2 003F
-42C2 0061
-42C2 0041
-42C2 0062
-42C3 0021
-42C3 003F
-42C3 0061
-42C3 0041
-42C3 0062
-42C4 0021
-42C4 003F
-42C4 0061
-42C4 0041
-42C4 0062
-42C5 0021
-42C5 003F
-42C5 0061
-42C5 0041
-42C5 0062
-42C6 0021
-42C6 003F
-42C6 0061
-42C6 0041
-42C6 0062
-42C7 0021
-42C7 003F
-42C7 0061
-42C7 0041
-42C7 0062
-42C8 0021
-42C8 003F
-42C8 0061
-42C8 0041
-42C8 0062
-42C9 0021
-42C9 003F
-42C9 0061
-42C9 0041
-42C9 0062
-42CA 0021
-42CA 003F
-42CA 0061
-42CA 0041
-42CA 0062
-42CB 0021
-42CB 003F
-42CB 0061
-42CB 0041
-42CB 0062
-42CC 0021
-42CC 003F
-42CC 0061
-42CC 0041
-42CC 0062
-42CD 0021
-42CD 003F
-42CD 0061
-42CD 0041
-42CD 0062
-42CE 0021
-42CE 003F
-42CE 0061
-42CE 0041
-42CE 0062
-42CF 0021
-42CF 003F
-42CF 0061
-42CF 0041
-42CF 0062
-42D0 0021
-42D0 003F
-42D0 0061
-42D0 0041
-42D0 0062
-42D1 0021
-42D1 003F
-42D1 0061
-42D1 0041
-42D1 0062
-42D2 0021
-42D2 003F
-42D2 0061
-42D2 0041
-42D2 0062
-42D3 0021
-42D3 003F
-42D3 0061
-42D3 0041
-42D3 0062
-42D4 0021
-42D4 003F
-42D4 0061
-42D4 0041
-42D4 0062
-42D5 0021
-42D5 003F
-42D5 0061
-42D5 0041
-42D5 0062
-42D6 0021
-42D6 003F
-42D6 0061
-42D6 0041
-42D6 0062
-42D7 0021
-42D7 003F
-42D7 0061
-42D7 0041
-42D7 0062
-42D8 0021
-42D8 003F
-42D8 0061
-42D8 0041
-42D8 0062
-42D9 0021
-42D9 003F
-42D9 0061
-42D9 0041
-42D9 0062
-42DA 0021
-42DA 003F
-42DA 0061
-42DA 0041
-42DA 0062
-42DB 0021
-42DB 003F
-42DB 0061
-42DB 0041
-42DB 0062
-42DC 0021
-42DC 003F
-42DC 0061
-42DC 0041
-42DC 0062
-42DD 0021
-42DD 003F
-42DD 0061
-42DD 0041
-42DD 0062
-42DE 0021
-42DE 003F
-42DE 0061
-42DE 0041
-42DE 0062
-42DF 0021
-42DF 003F
-42DF 0061
-42DF 0041
-42DF 0062
-42E0 0021
-42E0 003F
-42E0 0061
-42E0 0041
-42E0 0062
-42E1 0021
-42E1 003F
-42E1 0061
-42E1 0041
-42E1 0062
-42E2 0021
-42E2 003F
-42E2 0061
-42E2 0041
-42E2 0062
-42E3 0021
-42E3 003F
-42E3 0061
-42E3 0041
-42E3 0062
-42E4 0021
-42E4 003F
-42E4 0061
-42E4 0041
-42E4 0062
-42E5 0021
-42E5 003F
-42E5 0061
-42E5 0041
-42E5 0062
-42E6 0021
-42E6 003F
-42E6 0061
-42E6 0041
-42E6 0062
-42E7 0021
-42E7 003F
-42E7 0061
-42E7 0041
-42E7 0062
-42E8 0021
-42E8 003F
-42E8 0061
-42E8 0041
-42E8 0062
-42E9 0021
-42E9 003F
-42E9 0061
-42E9 0041
-42E9 0062
-42EA 0021
-42EA 003F
-42EA 0061
-42EA 0041
-42EA 0062
-42EB 0021
-42EB 003F
-42EB 0061
-42EB 0041
-42EB 0062
-42EC 0021
-42EC 003F
-42EC 0061
-42EC 0041
-42EC 0062
-42ED 0021
-42ED 003F
-42ED 0061
-42ED 0041
-42ED 0062
-42EE 0021
-42EE 003F
-42EE 0061
-42EE 0041
-42EE 0062
-42EF 0021
-42EF 003F
-42EF 0061
-42EF 0041
-42EF 0062
-42F0 0021
-42F0 003F
-42F0 0061
-42F0 0041
-42F0 0062
-42F1 0021
-42F1 003F
-42F1 0061
-42F1 0041
-42F1 0062
-42F2 0021
-42F2 003F
-42F2 0061
-42F2 0041
-42F2 0062
-42F3 0021
-42F3 003F
-42F3 0061
-42F3 0041
-42F3 0062
-42F4 0021
-42F4 003F
-42F4 0061
-42F4 0041
-42F4 0062
-42F5 0021
-42F5 003F
-42F5 0061
-42F5 0041
-42F5 0062
-42F6 0021
-42F6 003F
-42F6 0061
-42F6 0041
-42F6 0062
-42F7 0021
-42F7 003F
-42F7 0061
-42F7 0041
-42F7 0062
-42F8 0021
-42F8 003F
-42F8 0061
-42F8 0041
-42F8 0062
-42F9 0021
-42F9 003F
-42F9 0061
-42F9 0041
-42F9 0062
-42FA 0021
-42FA 003F
-42FA 0061
-42FA 0041
-42FA 0062
-42FB 0021
-42FB 003F
-42FB 0061
-42FB 0041
-42FB 0062
-42FC 0021
-42FC 003F
-42FC 0061
-42FC 0041
-42FC 0062
-42FD 0021
-42FD 003F
-42FD 0061
-42FD 0041
-42FD 0062
-42FE 0021
-42FE 003F
-42FE 0061
-42FE 0041
-42FE 0062
-42FF 0021
-42FF 003F
-42FF 0061
-42FF 0041
-42FF 0062
-4300 0021
-4300 003F
-4300 0061
-4300 0041
-4300 0062
-4301 0021
-2F96D 0021
-4301 003F
-2F96D 003F
-4301 0061
-2F96D 0061
-4301 0041
-2F96D 0041
-4301 0062
-2F96D 0062
-4302 0021
-4302 003F
-4302 0061
-4302 0041
-4302 0062
-4303 0021
-4303 003F
-4303 0061
-4303 0041
-4303 0062
-4304 0021
-4304 003F
-4304 0061
-4304 0041
-4304 0062
-4305 0021
-4305 003F
-4305 0061
-4305 0041
-4305 0062
-4306 0021
-4306 003F
-4306 0061
-4306 0041
-4306 0062
-4307 0021
-4307 003F
-4307 0061
-4307 0041
-4307 0062
-4308 0021
-4308 003F
-4308 0061
-4308 0041
-4308 0062
-4309 0021
-4309 003F
-4309 0061
-4309 0041
-4309 0062
-430A 0021
-430A 003F
-430A 0061
-430A 0041
-430A 0062
-430B 0021
-430B 003F
-430B 0061
-430B 0041
-430B 0062
-430C 0021
-430C 003F
-430C 0061
-430C 0041
-430C 0062
-430D 0021
-430D 003F
-430D 0061
-430D 0041
-430D 0062
-430E 0021
-430E 003F
-430E 0061
-430E 0041
-430E 0062
-430F 0021
-430F 003F
-430F 0061
-430F 0041
-430F 0062
-4310 0021
-4310 003F
-4310 0061
-4310 0041
-4310 0062
-4311 0021
-4311 003F
-4311 0061
-4311 0041
-4311 0062
-4312 0021
-4312 003F
-4312 0061
-4312 0041
-4312 0062
-4313 0021
-4313 003F
-4313 0061
-4313 0041
-4313 0062
-4314 0021
-4314 003F
-4314 0061
-4314 0041
-4314 0062
-4315 0021
-4315 003F
-4315 0061
-4315 0041
-4315 0062
-4316 0021
-4316 003F
-4316 0061
-4316 0041
-4316 0062
-4317 0021
-4317 003F
-4317 0061
-4317 0041
-4317 0062
-4318 0021
-4318 003F
-4318 0061
-4318 0041
-4318 0062
-4319 0021
-4319 003F
-4319 0061
-4319 0041
-4319 0062
-431A 0021
-431A 003F
-431A 0061
-431A 0041
-431A 0062
-431B 0021
-431B 003F
-431B 0061
-431B 0041
-431B 0062
-431C 0021
-431C 003F
-431C 0061
-431C 0041
-431C 0062
-431D 0021
-431D 003F
-431D 0061
-431D 0041
-431D 0062
-431E 0021
-431E 003F
-431E 0061
-431E 0041
-431E 0062
-431F 0021
-431F 003F
-431F 0061
-431F 0041
-431F 0062
-4320 0021
-4320 003F
-4320 0061
-4320 0041
-4320 0062
-4321 0021
-4321 003F
-4321 0061
-4321 0041
-4321 0062
-4322 0021
-4322 003F
-4322 0061
-4322 0041
-4322 0062
-4323 0021
-4323 003F
-4323 0061
-4323 0041
-4323 0062
-4324 0021
-4324 003F
-4324 0061
-4324 0041
-4324 0062
-4325 0021
-4325 003F
-4325 0061
-4325 0041
-4325 0062
-4326 0021
-4326 003F
-4326 0061
-4326 0041
-4326 0062
-4327 0021
-4327 003F
-4327 0061
-4327 0041
-4327 0062
-4328 0021
-4328 003F
-4328 0061
-4328 0041
-4328 0062
-4329 0021
-4329 003F
-4329 0061
-4329 0041
-4329 0062
-432A 0021
-432A 003F
-432A 0061
-432A 0041
-432A 0062
-432B 0021
-432B 003F
-432B 0061
-432B 0041
-432B 0062
-432C 0021
-432C 003F
-432C 0061
-432C 0041
-432C 0062
-432D 0021
-432D 003F
-432D 0061
-432D 0041
-432D 0062
-432E 0021
-432E 003F
-432E 0061
-432E 0041
-432E 0062
-432F 0021
-432F 003F
-432F 0061
-432F 0041
-432F 0062
-4330 0021
-4330 003F
-4330 0061
-4330 0041
-4330 0062
-4331 0021
-4331 003F
-4331 0061
-4331 0041
-4331 0062
-4332 0021
-4332 003F
-4332 0061
-4332 0041
-4332 0062
-4333 0021
-4333 003F
-4333 0061
-4333 0041
-4333 0062
-4334 0021
-2F971 0021
-4334 003F
-2F971 003F
-4334 0061
-2F971 0061
-4334 0041
-2F971 0041
-4334 0062
-2F971 0062
-4335 0021
-4335 003F
-4335 0061
-4335 0041
-4335 0062
-4336 0021
-4336 003F
-4336 0061
-4336 0041
-4336 0062
-4337 0021
-4337 003F
-4337 0061
-4337 0041
-4337 0062
-4338 0021
-4338 003F
-4338 0061
-4338 0041
-4338 0062
-4339 0021
-4339 003F
-4339 0061
-4339 0041
-4339 0062
-433A 0021
-433A 003F
-433A 0061
-433A 0041
-433A 0062
-433B 0021
-433B 003F
-433B 0061
-433B 0041
-433B 0062
-433C 0021
-433C 003F
-433C 0061
-433C 0041
-433C 0062
-433D 0021
-433D 003F
-433D 0061
-433D 0041
-433D 0062
-433E 0021
-433E 003F
-433E 0061
-433E 0041
-433E 0062
-433F 0021
-433F 003F
-433F 0061
-433F 0041
-433F 0062
-4340 0021
-4340 003F
-4340 0061
-4340 0041
-4340 0062
-4341 0021
-4341 003F
-4341 0061
-4341 0041
-4341 0062
-4342 0021
-4342 003F
-4342 0061
-4342 0041
-4342 0062
-4343 0021
-4343 003F
-4343 0061
-4343 0041
-4343 0062
-4344 0021
-4344 003F
-4344 0061
-4344 0041
-4344 0062
-4345 0021
-4345 003F
-4345 0061
-4345 0041
-4345 0062
-4346 0021
-4346 003F
-4346 0061
-4346 0041
-4346 0062
-4347 0021
-4347 003F
-4347 0061
-4347 0041
-4347 0062
-4348 0021
-4348 003F
-4348 0061
-4348 0041
-4348 0062
-4349 0021
-4349 003F
-4349 0061
-4349 0041
-4349 0062
-434A 0021
-434A 003F
-434A 0061
-434A 0041
-434A 0062
-434B 0021
-434B 003F
-434B 0061
-434B 0041
-434B 0062
-434C 0021
-434C 003F
-434C 0061
-434C 0041
-434C 0062
-434D 0021
-434D 003F
-434D 0061
-434D 0041
-434D 0062
-434E 0021
-434E 003F
-434E 0061
-434E 0041
-434E 0062
-434F 0021
-434F 003F
-434F 0061
-434F 0041
-434F 0062
-4350 0021
-4350 003F
-4350 0061
-4350 0041
-4350 0062
-4351 0021
-4351 003F
-4351 0061
-4351 0041
-4351 0062
-4352 0021
-4352 003F
-4352 0061
-4352 0041
-4352 0062
-4353 0021
-4353 003F
-4353 0061
-4353 0041
-4353 0062
-4354 0021
-4354 003F
-4354 0061
-4354 0041
-4354 0062
-4355 0021
-4355 003F
-4355 0061
-4355 0041
-4355 0062
-4356 0021
-4356 003F
-4356 0061
-4356 0041
-4356 0062
-4357 0021
-4357 003F
-4357 0061
-4357 0041
-4357 0062
-4358 0021
-4358 003F
-4358 0061
-4358 0041
-4358 0062
-4359 0021
-2F974 0021
-4359 003F
-2F974 003F
-4359 0061
-2F974 0061
-4359 0041
-2F974 0041
-4359 0062
-2F974 0062
-435A 0021
-435A 003F
-435A 0061
-435A 0041
-435A 0062
-435B 0021
-435B 003F
-435B 0061
-435B 0041
-435B 0062
-435C 0021
-435C 003F
-435C 0061
-435C 0041
-435C 0062
-435D 0021
-435D 003F
-435D 0061
-435D 0041
-435D 0062
-435E 0021
-435E 003F
-435E 0061
-435E 0041
-435E 0062
-435F 0021
-435F 003F
-435F 0061
-435F 0041
-435F 0062
-4360 0021
-4360 003F
-4360 0061
-4360 0041
-4360 0062
-4361 0021
-4361 003F
-4361 0061
-4361 0041
-4361 0062
-4362 0021
-4362 003F
-4362 0061
-4362 0041
-4362 0062
-4363 0021
-4363 003F
-4363 0061
-4363 0041
-4363 0062
-4364 0021
-4364 003F
-4364 0061
-4364 0041
-4364 0062
-4365 0021
-4365 003F
-4365 0061
-4365 0041
-4365 0062
-4366 0021
-4366 003F
-4366 0061
-4366 0041
-4366 0062
-4367 0021
-4367 003F
-4367 0061
-4367 0041
-4367 0062
-4368 0021
-4368 003F
-4368 0061
-4368 0041
-4368 0062
-4369 0021
-4369 003F
-4369 0061
-4369 0041
-4369 0062
-436A 0021
-436A 003F
-436A 0061
-436A 0041
-436A 0062
-436B 0021
-436B 003F
-436B 0061
-436B 0041
-436B 0062
-436C 0021
-436C 003F
-436C 0061
-436C 0041
-436C 0062
-436D 0021
-436D 003F
-436D 0061
-436D 0041
-436D 0062
-436E 0021
-436E 003F
-436E 0061
-436E 0041
-436E 0062
-436F 0021
-436F 003F
-436F 0061
-436F 0041
-436F 0062
-4370 0021
-4370 003F
-4370 0061
-4370 0041
-4370 0062
-4371 0021
-4371 003F
-4371 0061
-4371 0041
-4371 0062
-4372 0021
-4372 003F
-4372 0061
-4372 0041
-4372 0062
-4373 0021
-4373 003F
-4373 0061
-4373 0041
-4373 0062
-4374 0021
-4374 003F
-4374 0061
-4374 0041
-4374 0062
-4375 0021
-4375 003F
-4375 0061
-4375 0041
-4375 0062
-4376 0021
-4376 003F
-4376 0061
-4376 0041
-4376 0062
-4377 0021
-4377 003F
-4377 0061
-4377 0041
-4377 0062
-4378 0021
-4378 003F
-4378 0061
-4378 0041
-4378 0062
-4379 0021
-4379 003F
-4379 0061
-4379 0041
-4379 0062
-437A 0021
-437A 003F
-437A 0061
-437A 0041
-437A 0062
-437B 0021
-437B 003F
-437B 0061
-437B 0041
-437B 0062
-437C 0021
-437C 003F
-437C 0061
-437C 0041
-437C 0062
-437D 0021
-437D 003F
-437D 0061
-437D 0041
-437D 0062
-437E 0021
-437E 003F
-437E 0061
-437E 0041
-437E 0062
-437F 0021
-437F 003F
-437F 0061
-437F 0041
-437F 0062
-4380 0021
-4380 003F
-4380 0061
-4380 0041
-4380 0062
-4381 0021
-4381 003F
-4381 0061
-4381 0041
-4381 0062
-4382 0021
-4382 003F
-4382 0061
-4382 0041
-4382 0062
-4383 0021
-4383 003F
-4383 0061
-4383 0041
-4383 0062
-4384 0021
-4384 003F
-4384 0061
-4384 0041
-4384 0062
-4385 0021
-4385 003F
-4385 0061
-4385 0041
-4385 0062
-4386 0021
-4386 003F
-4386 0061
-4386 0041
-4386 0062
-4387 0021
-4387 003F
-4387 0061
-4387 0041
-4387 0062
-4388 0021
-4388 003F
-4388 0061
-4388 0041
-4388 0062
-4389 0021
-4389 003F
-4389 0061
-4389 0041
-4389 0062
-438A 0021
-438A 003F
-438A 0061
-438A 0041
-438A 0062
-438B 0021
-438B 003F
-438B 0061
-438B 0041
-438B 0062
-438C 0021
-438C 003F
-438C 0061
-438C 0041
-438C 0062
-438D 0021
-438D 003F
-438D 0061
-438D 0041
-438D 0062
-438E 0021
-438E 003F
-438E 0061
-438E 0041
-438E 0062
-438F 0021
-438F 003F
-438F 0061
-438F 0041
-438F 0062
-4390 0021
-4390 003F
-4390 0061
-4390 0041
-4390 0062
-4391 0021
-4391 003F
-4391 0061
-4391 0041
-4391 0062
-4392 0021
-4392 003F
-4392 0061
-4392 0041
-4392 0062
-4393 0021
-4393 003F
-4393 0061
-4393 0041
-4393 0062
-4394 0021
-4394 003F
-4394 0061
-4394 0041
-4394 0062
-4395 0021
-4395 003F
-4395 0061
-4395 0041
-4395 0062
-4396 0021
-4396 003F
-4396 0061
-4396 0041
-4396 0062
-4397 0021
-4397 003F
-4397 0061
-4397 0041
-4397 0062
-4398 0021
-4398 003F
-4398 0061
-4398 0041
-4398 0062
-4399 0021
-4399 003F
-4399 0061
-4399 0041
-4399 0062
-439A 0021
-439A 003F
-439A 0061
-439A 0041
-439A 0062
-439B 0021
-439B 003F
-439B 0061
-439B 0041
-439B 0062
-439C 0021
-439C 003F
-439C 0061
-439C 0041
-439C 0062
-439D 0021
-439D 003F
-439D 0061
-439D 0041
-439D 0062
-439E 0021
-439E 003F
-439E 0061
-439E 0041
-439E 0062
-439F 0021
-439F 003F
-439F 0061
-439F 0041
-439F 0062
-43A0 0021
-43A0 003F
-43A0 0061
-43A0 0041
-43A0 0062
-43A1 0021
-43A1 003F
-43A1 0061
-43A1 0041
-43A1 0062
-43A2 0021
-43A2 003F
-43A2 0061
-43A2 0041
-43A2 0062
-43A3 0021
-43A3 003F
-43A3 0061
-43A3 0041
-43A3 0062
-43A4 0021
-43A4 003F
-43A4 0061
-43A4 0041
-43A4 0062
-43A5 0021
-43A5 003F
-43A5 0061
-43A5 0041
-43A5 0062
-43A6 0021
-43A6 003F
-43A6 0061
-43A6 0041
-43A6 0062
-43A7 0021
-43A7 003F
-43A7 0061
-43A7 0041
-43A7 0062
-43A8 0021
-43A8 003F
-43A8 0061
-43A8 0041
-43A8 0062
-43A9 0021
-43A9 003F
-43A9 0061
-43A9 0041
-43A9 0062
-43AA 0021
-43AA 003F
-43AA 0061
-43AA 0041
-43AA 0062
-43AB 0021
-43AB 003F
-43AB 0061
-43AB 0041
-43AB 0062
-43AC 0021
-43AC 003F
-43AC 0061
-43AC 0041
-43AC 0062
-43AD 0021
-43AD 003F
-43AD 0061
-43AD 0041
-43AD 0062
-43AE 0021
-43AE 003F
-43AE 0061
-43AE 0041
-43AE 0062
-43AF 0021
-43AF 003F
-43AF 0061
-43AF 0041
-43AF 0062
-43B0 0021
-43B0 003F
-43B0 0061
-43B0 0041
-43B0 0062
-43B1 0021
-43B1 003F
-43B1 0061
-43B1 0041
-43B1 0062
-43B2 0021
-43B2 003F
-43B2 0061
-43B2 0041
-43B2 0062
-43B3 0021
-43B3 003F
-43B3 0061
-43B3 0041
-43B3 0062
-43B4 0021
-43B4 003F
-43B4 0061
-43B4 0041
-43B4 0062
-43B5 0021
-43B5 003F
-43B5 0061
-43B5 0041
-43B5 0062
-43B6 0021
-43B6 003F
-43B6 0061
-43B6 0041
-43B6 0062
-43B7 0021
-43B7 003F
-43B7 0061
-43B7 0041
-43B7 0062
-43B8 0021
-43B8 003F
-43B8 0061
-43B8 0041
-43B8 0062
-43B9 0021
-43B9 003F
-43B9 0061
-43B9 0041
-43B9 0062
-43BA 0021
-43BA 003F
-43BA 0061
-43BA 0041
-43BA 0062
-43BB 0021
-43BB 003F
-43BB 0061
-43BB 0041
-43BB 0062
-43BC 0021
-43BC 003F
-43BC 0061
-43BC 0041
-43BC 0062
-43BD 0021
-43BD 003F
-43BD 0061
-43BD 0041
-43BD 0062
-43BE 0021
-43BE 003F
-43BE 0061
-43BE 0041
-43BE 0062
-43BF 0021
-43BF 003F
-43BF 0061
-43BF 0041
-43BF 0062
-43C0 0021
-43C0 003F
-43C0 0061
-43C0 0041
-43C0 0062
-43C1 0021
-43C1 003F
-43C1 0061
-43C1 0041
-43C1 0062
-43C2 0021
-43C2 003F
-43C2 0061
-43C2 0041
-43C2 0062
-43C3 0021
-43C3 003F
-43C3 0061
-43C3 0041
-43C3 0062
-43C4 0021
-43C4 003F
-43C4 0061
-43C4 0041
-43C4 0062
-43C5 0021
-43C5 003F
-43C5 0061
-43C5 0041
-43C5 0062
-43C6 0021
-43C6 003F
-43C6 0061
-43C6 0041
-43C6 0062
-43C7 0021
-43C7 003F
-43C7 0061
-43C7 0041
-43C7 0062
-43C8 0021
-43C8 003F
-43C8 0061
-43C8 0041
-43C8 0062
-43C9 0021
-43C9 003F
-43C9 0061
-43C9 0041
-43C9 0062
-43CA 0021
-43CA 003F
-43CA 0061
-43CA 0041
-43CA 0062
-43CB 0021
-43CB 003F
-43CB 0061
-43CB 0041
-43CB 0062
-43CC 0021
-43CC 003F
-43CC 0061
-43CC 0041
-43CC 0062
-43CD 0021
-43CD 003F
-43CD 0061
-43CD 0041
-43CD 0062
-43CE 0021
-43CE 003F
-43CE 0061
-43CE 0041
-43CE 0062
-43CF 0021
-43CF 003F
-43CF 0061
-43CF 0041
-43CF 0062
-43D0 0021
-43D0 003F
-43D0 0061
-43D0 0041
-43D0 0062
-43D1 0021
-43D1 003F
-43D1 0061
-43D1 0041
-43D1 0062
-43D2 0021
-43D2 003F
-43D2 0061
-43D2 0041
-43D2 0062
-43D3 0021
-43D3 003F
-43D3 0061
-43D3 0041
-43D3 0062
-43D4 0021
-43D4 003F
-43D4 0061
-43D4 0041
-43D4 0062
-43D5 0021
-2F981 0021
-43D5 003F
-2F981 003F
-43D5 0061
-2F981 0061
-43D5 0041
-2F981 0041
-43D5 0062
-2F981 0062
-43D6 0021
-43D6 003F
-43D6 0061
-43D6 0041
-43D6 0062
-43D7 0021
-43D7 003F
-43D7 0061
-43D7 0041
-43D7 0062
-43D8 0021
-43D8 003F
-43D8 0061
-43D8 0041
-43D8 0062
-43D9 0021
-2F8D7 0021
-43D9 003F
-2F8D7 003F
-43D9 0061
-2F8D7 0061
-43D9 0041
-2F8D7 0041
-43D9 0062
-2F8D7 0062
-43DA 0021
-43DA 003F
-43DA 0061
-43DA 0041
-43DA 0062
-43DB 0021
-43DB 003F
-43DB 0061
-43DB 0041
-43DB 0062
-43DC 0021
-43DC 003F
-43DC 0061
-43DC 0041
-43DC 0062
-43DD 0021
-43DD 003F
-43DD 0061
-43DD 0041
-43DD 0062
-43DE 0021
-43DE 003F
-43DE 0061
-43DE 0041
-43DE 0062
-43DF 0021
-43DF 003F
-43DF 0061
-43DF 0041
-43DF 0062
-43E0 0021
-43E0 003F
-43E0 0061
-43E0 0041
-43E0 0062
-43E1 0021
-43E1 003F
-43E1 0061
-43E1 0041
-43E1 0062
-43E2 0021
-43E2 003F
-43E2 0061
-43E2 0041
-43E2 0062
-43E3 0021
-43E3 003F
-43E3 0061
-43E3 0041
-43E3 0062
-43E4 0021
-43E4 003F
-43E4 0061
-43E4 0041
-43E4 0062
-43E5 0021
-43E5 003F
-43E5 0061
-43E5 0041
-43E5 0062
-43E6 0021
-43E6 003F
-43E6 0061
-43E6 0041
-43E6 0062
-43E7 0021
-43E7 003F
-43E7 0061
-43E7 0041
-43E7 0062
-43E8 0021
-43E8 003F
-43E8 0061
-43E8 0041
-43E8 0062
-43E9 0021
-43E9 003F
-43E9 0061
-43E9 0041
-43E9 0062
-43EA 0021
-43EA 003F
-43EA 0061
-43EA 0041
-43EA 0062
-43EB 0021
-43EB 003F
-43EB 0061
-43EB 0041
-43EB 0062
-43EC 0021
-43EC 003F
-43EC 0061
-43EC 0041
-43EC 0062
-43ED 0021
-43ED 003F
-43ED 0061
-43ED 0041
-43ED 0062
-43EE 0021
-43EE 003F
-43EE 0061
-43EE 0041
-43EE 0062
-43EF 0021
-43EF 003F
-43EF 0061
-43EF 0041
-43EF 0062
-43F0 0021
-43F0 003F
-43F0 0061
-43F0 0041
-43F0 0062
-43F1 0021
-43F1 003F
-43F1 0061
-43F1 0041
-43F1 0062
-43F2 0021
-43F2 003F
-43F2 0061
-43F2 0041
-43F2 0062
-43F3 0021
-43F3 003F
-43F3 0061
-43F3 0041
-43F3 0062
-43F4 0021
-43F4 003F
-43F4 0061
-43F4 0041
-43F4 0062
-43F5 0021
-43F5 003F
-43F5 0061
-43F5 0041
-43F5 0062
-43F6 0021
-43F6 003F
-43F6 0061
-43F6 0041
-43F6 0062
-43F7 0021
-43F7 003F
-43F7 0061
-43F7 0041
-43F7 0062
-43F8 0021
-43F8 003F
-43F8 0061
-43F8 0041
-43F8 0062
-43F9 0021
-43F9 003F
-43F9 0061
-43F9 0041
-43F9 0062
-43FA 0021
-43FA 003F
-43FA 0061
-43FA 0041
-43FA 0062
-43FB 0021
-43FB 003F
-43FB 0061
-43FB 0041
-43FB 0062
-43FC 0021
-43FC 003F
-43FC 0061
-43FC 0041
-43FC 0062
-43FD 0021
-43FD 003F
-43FD 0061
-43FD 0041
-43FD 0062
-43FE 0021
-43FE 003F
-43FE 0061
-43FE 0041
-43FE 0062
-43FF 0021
-43FF 003F
-43FF 0061
-43FF 0041
-43FF 0062
-4400 0021
-4400 003F
-4400 0061
-4400 0041
-4400 0062
-4401 0021
-4401 003F
-4401 0061
-4401 0041
-4401 0062
-4402 0021
-4402 003F
-4402 0061
-4402 0041
-4402 0062
-4403 0021
-4403 003F
-4403 0061
-4403 0041
-4403 0062
-4404 0021
-4404 003F
-4404 0061
-4404 0041
-4404 0062
-4405 0021
-4405 003F
-4405 0061
-4405 0041
-4405 0062
-4406 0021
-4406 003F
-4406 0061
-4406 0041
-4406 0062
-4407 0021
-4407 003F
-4407 0061
-4407 0041
-4407 0062
-4408 0021
-4408 003F
-4408 0061
-4408 0041
-4408 0062
-4409 0021
-4409 003F
-4409 0061
-4409 0041
-4409 0062
-440A 0021
-440A 003F
-440A 0061
-440A 0041
-440A 0062
-440B 0021
-2F984 0021
-440B 003F
-2F984 003F
-440B 0061
-2F984 0061
-440B 0041
-2F984 0041
-440B 0062
-2F984 0062
-440C 0021
-440C 003F
-440C 0061
-440C 0041
-440C 0062
-440D 0021
-440D 003F
-440D 0061
-440D 0041
-440D 0062
-440E 0021
-440E 003F
-440E 0061
-440E 0041
-440E 0062
-440F 0021
-440F 003F
-440F 0061
-440F 0041
-440F 0062
-4410 0021
-4410 003F
-4410 0061
-4410 0041
-4410 0062
-4411 0021
-4411 003F
-4411 0061
-4411 0041
-4411 0062
-4412 0021
-4412 003F
-4412 0061
-4412 0041
-4412 0062
-4413 0021
-4413 003F
-4413 0061
-4413 0041
-4413 0062
-4414 0021
-4414 003F
-4414 0061
-4414 0041
-4414 0062
-4415 0021
-4415 003F
-4415 0061
-4415 0041
-4415 0062
-4416 0021
-4416 003F
-4416 0061
-4416 0041
-4416 0062
-4417 0021
-4417 003F
-4417 0061
-4417 0041
-4417 0062
-4418 0021
-4418 003F
-4418 0061
-4418 0041
-4418 0062
-4419 0021
-4419 003F
-4419 0061
-4419 0041
-4419 0062
-441A 0021
-441A 003F
-441A 0061
-441A 0041
-441A 0062
-441B 0021
-441B 003F
-441B 0061
-441B 0041
-441B 0062
-441C 0021
-441C 003F
-441C 0061
-441C 0041
-441C 0062
-441D 0021
-441D 003F
-441D 0061
-441D 0041
-441D 0062
-441E 0021
-441E 003F
-441E 0061
-441E 0041
-441E 0062
-441F 0021
-441F 003F
-441F 0061
-441F 0041
-441F 0062
-4420 0021
-4420 003F
-4420 0061
-4420 0041
-4420 0062
-4421 0021
-4421 003F
-4421 0061
-4421 0041
-4421 0062
-4422 0021
-4422 003F
-4422 0061
-4422 0041
-4422 0062
-4423 0021
-4423 003F
-4423 0061
-4423 0041
-4423 0062
-4424 0021
-4424 003F
-4424 0061
-4424 0041
-4424 0062
-4425 0021
-4425 003F
-4425 0061
-4425 0041
-4425 0062
-4426 0021
-4426 003F
-4426 0061
-4426 0041
-4426 0062
-4427 0021
-4427 003F
-4427 0061
-4427 0041
-4427 0062
-4428 0021
-4428 003F
-4428 0061
-4428 0041
-4428 0062
-4429 0021
-4429 003F
-4429 0061
-4429 0041
-4429 0062
-442A 0021
-442A 003F
-442A 0061
-442A 0041
-442A 0062
-442B 0021
-442B 003F
-442B 0061
-442B 0041
-442B 0062
-442C 0021
-442C 003F
-442C 0061
-442C 0041
-442C 0062
-442D 0021
-442D 003F
-442D 0061
-442D 0041
-442D 0062
-442E 0021
-442E 003F
-442E 0061
-442E 0041
-442E 0062
-442F 0021
-442F 003F
-442F 0061
-442F 0041
-442F 0062
-4430 0021
-4430 003F
-4430 0061
-4430 0041
-4430 0062
-4431 0021
-4431 003F
-4431 0061
-4431 0041
-4431 0062
-4432 0021
-4432 003F
-4432 0061
-4432 0041
-4432 0062
-4433 0021
-4433 003F
-4433 0061
-4433 0041
-4433 0062
-4434 0021
-4434 003F
-4434 0061
-4434 0041
-4434 0062
-4435 0021
-4435 003F
-4435 0061
-4435 0041
-4435 0062
-4436 0021
-4436 003F
-4436 0061
-4436 0041
-4436 0062
-4437 0021
-4437 003F
-4437 0061
-4437 0041
-4437 0062
-4438 0021
-4438 003F
-4438 0061
-4438 0041
-4438 0062
-4439 0021
-4439 003F
-4439 0061
-4439 0041
-4439 0062
-443A 0021
-443A 003F
-443A 0061
-443A 0041
-443A 0062
-443B 0021
-443B 003F
-443B 0061
-443B 0041
-443B 0062
-443C 0021
-443C 003F
-443C 0061
-443C 0041
-443C 0062
-443D 0021
-443D 003F
-443D 0061
-443D 0041
-443D 0062
-443E 0021
-443E 003F
-443E 0061
-443E 0041
-443E 0062
-443F 0021
-443F 003F
-443F 0061
-443F 0041
-443F 0062
-4440 0021
-4440 003F
-4440 0061
-4440 0041
-4440 0062
-4441 0021
-4441 003F
-4441 0061
-4441 0041
-4441 0062
-4442 0021
-4442 003F
-4442 0061
-4442 0041
-4442 0062
-4443 0021
-4443 003F
-4443 0061
-4443 0041
-4443 0062
-4444 0021
-4444 003F
-4444 0061
-4444 0041
-4444 0062
-4445 0021
-4445 003F
-4445 0061
-4445 0041
-4445 0062
-4446 0021
-4446 003F
-4446 0061
-4446 0041
-4446 0062
-4447 0021
-4447 003F
-4447 0061
-4447 0041
-4447 0062
-4448 0021
-4448 003F
-4448 0061
-4448 0041
-4448 0062
-4449 0021
-4449 003F
-4449 0061
-4449 0041
-4449 0062
-444A 0021
-444A 003F
-444A 0061
-444A 0041
-444A 0062
-444B 0021
-444B 003F
-444B 0061
-444B 0041
-444B 0062
-444C 0021
-444C 003F
-444C 0061
-444C 0041
-444C 0062
-444D 0021
-444D 003F
-444D 0061
-444D 0041
-444D 0062
-444E 0021
-444E 003F
-444E 0061
-444E 0041
-444E 0062
-444F 0021
-444F 003F
-444F 0061
-444F 0041
-444F 0062
-4450 0021
-4450 003F
-4450 0061
-4450 0041
-4450 0062
-4451 0021
-4451 003F
-4451 0061
-4451 0041
-4451 0062
-4452 0021
-4452 003F
-4452 0061
-4452 0041
-4452 0062
-4453 0021
-4453 003F
-4453 0061
-4453 0041
-4453 0062
-4454 0021
-4454 003F
-4454 0061
-4454 0041
-4454 0062
-4455 0021
-4455 003F
-4455 0061
-4455 0041
-4455 0062
-4456 0021
-4456 003F
-4456 0061
-4456 0041
-4456 0062
-4457 0021
-4457 003F
-4457 0061
-4457 0041
-4457 0062
-4458 0021
-4458 003F
-4458 0061
-4458 0041
-4458 0062
-4459 0021
-4459 003F
-4459 0061
-4459 0041
-4459 0062
-445A 0021
-445A 003F
-445A 0061
-445A 0041
-445A 0062
-445B 0021
-445B 003F
-445B 0061
-445B 0041
-445B 0062
-445C 0021
-445C 003F
-445C 0061
-445C 0041
-445C 0062
-445D 0021
-445D 003F
-445D 0061
-445D 0041
-445D 0062
-445E 0021
-445E 003F
-445E 0061
-445E 0041
-445E 0062
-445F 0021
-445F 003F
-445F 0061
-445F 0041
-445F 0062
-4460 0021
-4460 003F
-4460 0061
-4460 0041
-4460 0062
-4461 0021
-4461 003F
-4461 0061
-4461 0041
-4461 0062
-4462 0021
-4462 003F
-4462 0061
-4462 0041
-4462 0062
-4463 0021
-4463 003F
-4463 0061
-4463 0041
-4463 0062
-4464 0021
-4464 003F
-4464 0061
-4464 0041
-4464 0062
-4465 0021
-4465 003F
-4465 0061
-4465 0041
-4465 0062
-4466 0021
-4466 003F
-4466 0061
-4466 0041
-4466 0062
-4467 0021
-4467 003F
-4467 0061
-4467 0041
-4467 0062
-4468 0021
-4468 003F
-4468 0061
-4468 0041
-4468 0062
-4469 0021
-4469 003F
-4469 0061
-4469 0041
-4469 0062
-446A 0021
-446A 003F
-446A 0061
-446A 0041
-446A 0062
-446B 0021
-2F98E 0021
-446B 003F
-2F98E 003F
-446B 0061
-2F98E 0061
-446B 0041
-2F98E 0041
-446B 0062
-2F98E 0062
-446C 0021
-446C 003F
-446C 0061
-446C 0041
-446C 0062
-446D 0021
-446D 003F
-446D 0061
-446D 0041
-446D 0062
-446E 0021
-446E 003F
-446E 0061
-446E 0041
-446E 0062
-446F 0021
-446F 003F
-446F 0061
-446F 0041
-446F 0062
-4470 0021
-4470 003F
-4470 0061
-4470 0041
-4470 0062
-4471 0021
-4471 003F
-4471 0061
-4471 0041
-4471 0062
-4472 0021
-4472 003F
-4472 0061
-4472 0041
-4472 0062
-4473 0021
-4473 003F
-4473 0061
-4473 0041
-4473 0062
-4474 0021
-4474 003F
-4474 0061
-4474 0041
-4474 0062
-4475 0021
-4475 003F
-4475 0061
-4475 0041
-4475 0062
-4476 0021
-4476 003F
-4476 0061
-4476 0041
-4476 0062
-4477 0021
-4477 003F
-4477 0061
-4477 0041
-4477 0062
-4478 0021
-4478 003F
-4478 0061
-4478 0041
-4478 0062
-4479 0021
-4479 003F
-4479 0061
-4479 0041
-4479 0062
-447A 0021
-447A 003F
-447A 0061
-447A 0041
-447A 0062
-447B 0021
-447B 003F
-447B 0061
-447B 0041
-447B 0062
-447C 0021
-447C 003F
-447C 0061
-447C 0041
-447C 0062
-447D 0021
-447D 003F
-447D 0061
-447D 0041
-447D 0062
-447E 0021
-447E 003F
-447E 0061
-447E 0041
-447E 0062
-447F 0021
-447F 003F
-447F 0061
-447F 0041
-447F 0062
-4480 0021
-4480 003F
-4480 0061
-4480 0041
-4480 0062
-4481 0021
-4481 003F
-4481 0061
-4481 0041
-4481 0062
-4482 0021
-4482 003F
-4482 0061
-4482 0041
-4482 0062
-4483 0021
-4483 003F
-4483 0061
-4483 0041
-4483 0062
-4484 0021
-4484 003F
-4484 0061
-4484 0041
-4484 0062
-4485 0021
-4485 003F
-4485 0061
-4485 0041
-4485 0062
-4486 0021
-4486 003F
-4486 0061
-4486 0041
-4486 0062
-4487 0021
-4487 003F
-4487 0061
-4487 0041
-4487 0062
-4488 0021
-4488 003F
-4488 0061
-4488 0041
-4488 0062
-4489 0021
-4489 003F
-4489 0061
-4489 0041
-4489 0062
-448A 0021
-448A 003F
-448A 0061
-448A 0041
-448A 0062
-448B 0021
-448B 003F
-448B 0061
-448B 0041
-448B 0062
-448C 0021
-448C 003F
-448C 0061
-448C 0041
-448C 0062
-448D 0021
-448D 003F
-448D 0061
-448D 0041
-448D 0062
-448E 0021
-448E 003F
-448E 0061
-448E 0041
-448E 0062
-448F 0021
-448F 003F
-448F 0061
-448F 0041
-448F 0062
-4490 0021
-4490 003F
-4490 0061
-4490 0041
-4490 0062
-4491 0021
-4491 003F
-4491 0061
-4491 0041
-4491 0062
-4492 0021
-4492 003F
-4492 0061
-4492 0041
-4492 0062
-4493 0021
-4493 003F
-4493 0061
-4493 0041
-4493 0062
-4494 0021
-4494 003F
-4494 0061
-4494 0041
-4494 0062
-4495 0021
-4495 003F
-4495 0061
-4495 0041
-4495 0062
-4496 0021
-4496 003F
-4496 0061
-4496 0041
-4496 0062
-4497 0021
-4497 003F
-4497 0061
-4497 0041
-4497 0062
-4498 0021
-4498 003F
-4498 0061
-4498 0041
-4498 0062
-4499 0021
-4499 003F
-4499 0061
-4499 0041
-4499 0062
-449A 0021
-449A 003F
-449A 0061
-449A 0041
-449A 0062
-449B 0021
-449B 003F
-449B 0061
-449B 0041
-449B 0062
-449C 0021
-449C 003F
-449C 0061
-449C 0041
-449C 0062
-449D 0021
-449D 003F
-449D 0061
-449D 0041
-449D 0062
-449E 0021
-449E 003F
-449E 0061
-449E 0041
-449E 0062
-449F 0021
-449F 003F
-449F 0061
-449F 0041
-449F 0062
-44A0 0021
-44A0 003F
-44A0 0061
-44A0 0041
-44A0 0062
-44A1 0021
-44A1 003F
-44A1 0061
-44A1 0041
-44A1 0062
-44A2 0021
-44A2 003F
-44A2 0061
-44A2 0041
-44A2 0062
-44A3 0021
-44A3 003F
-44A3 0061
-44A3 0041
-44A3 0062
-44A4 0021
-44A4 003F
-44A4 0061
-44A4 0041
-44A4 0062
-44A5 0021
-44A5 003F
-44A5 0061
-44A5 0041
-44A5 0062
-44A6 0021
-44A6 003F
-44A6 0061
-44A6 0041
-44A6 0062
-44A7 0021
-44A7 003F
-44A7 0061
-44A7 0041
-44A7 0062
-44A8 0021
-44A8 003F
-44A8 0061
-44A8 0041
-44A8 0062
-44A9 0021
-44A9 003F
-44A9 0061
-44A9 0041
-44A9 0062
-44AA 0021
-44AA 003F
-44AA 0061
-44AA 0041
-44AA 0062
-44AB 0021
-44AB 003F
-44AB 0061
-44AB 0041
-44AB 0062
-44AC 0021
-44AC 003F
-44AC 0061
-44AC 0041
-44AC 0062
-44AD 0021
-44AD 003F
-44AD 0061
-44AD 0041
-44AD 0062
-44AE 0021
-44AE 003F
-44AE 0061
-44AE 0041
-44AE 0062
-44AF 0021
-44AF 003F
-44AF 0061
-44AF 0041
-44AF 0062
-44B0 0021
-44B0 003F
-44B0 0061
-44B0 0041
-44B0 0062
-44B1 0021
-44B1 003F
-44B1 0061
-44B1 0041
-44B1 0062
-44B2 0021
-44B2 003F
-44B2 0061
-44B2 0041
-44B2 0062
-44B3 0021
-44B3 003F
-44B3 0061
-44B3 0041
-44B3 0062
-44B4 0021
-44B4 003F
-44B4 0061
-44B4 0041
-44B4 0062
-44B5 0021
-44B5 003F
-44B5 0061
-44B5 0041
-44B5 0062
-44B6 0021
-44B6 003F
-44B6 0061
-44B6 0041
-44B6 0062
-44B7 0021
-44B7 003F
-44B7 0061
-44B7 0041
-44B7 0062
-44B8 0021
-44B8 003F
-44B8 0061
-44B8 0041
-44B8 0062
-44B9 0021
-44B9 003F
-44B9 0061
-44B9 0041
-44B9 0062
-44BA 0021
-44BA 003F
-44BA 0061
-44BA 0041
-44BA 0062
-44BB 0021
-44BB 003F
-44BB 0061
-44BB 0041
-44BB 0062
-44BC 0021
-44BC 003F
-44BC 0061
-44BC 0041
-44BC 0062
-44BD 0021
-44BD 003F
-44BD 0061
-44BD 0041
-44BD 0062
-44BE 0021
-44BE 003F
-44BE 0061
-44BE 0041
-44BE 0062
-44BF 0021
-44BF 003F
-44BF 0061
-44BF 0041
-44BF 0062
-44C0 0021
-44C0 003F
-44C0 0061
-44C0 0041
-44C0 0062
-44C1 0021
-44C1 003F
-44C1 0061
-44C1 0041
-44C1 0062
-44C2 0021
-44C2 003F
-44C2 0061
-44C2 0041
-44C2 0062
-44C3 0021
-44C3 003F
-44C3 0061
-44C3 0041
-44C3 0062
-44C4 0021
-44C4 003F
-44C4 0061
-44C4 0041
-44C4 0062
-44C5 0021
-44C5 003F
-44C5 0061
-44C5 0041
-44C5 0062
-44C6 0021
-44C6 003F
-44C6 0061
-44C6 0041
-44C6 0062
-44C7 0021
-44C7 003F
-44C7 0061
-44C7 0041
-44C7 0062
-44C8 0021
-44C8 003F
-44C8 0061
-44C8 0041
-44C8 0062
-44C9 0021
-44C9 003F
-44C9 0061
-44C9 0041
-44C9 0062
-44CA 0021
-44CA 003F
-44CA 0061
-44CA 0041
-44CA 0062
-44CB 0021
-44CB 003F
-44CB 0061
-44CB 0041
-44CB 0062
-44CC 0021
-44CC 003F
-44CC 0061
-44CC 0041
-44CC 0062
-44CD 0021
-44CD 003F
-44CD 0061
-44CD 0041
-44CD 0062
-44CE 0021
-44CE 003F
-44CE 0061
-44CE 0041
-44CE 0062
-44CF 0021
-44CF 003F
-44CF 0061
-44CF 0041
-44CF 0062
-44D0 0021
-44D0 003F
-44D0 0061
-44D0 0041
-44D0 0062
-44D1 0021
-44D1 003F
-44D1 0061
-44D1 0041
-44D1 0062
-44D2 0021
-44D2 003F
-44D2 0061
-44D2 0041
-44D2 0062
-44D3 0021
-44D3 003F
-44D3 0061
-44D3 0041
-44D3 0062
-44D4 0021
-44D4 003F
-44D4 0061
-44D4 0041
-44D4 0062
-44D5 0021
-44D5 003F
-44D5 0061
-44D5 0041
-44D5 0062
-44D6 0021
-44D6 003F
-44D6 0061
-44D6 0041
-44D6 0062
-44D7 0021
-44D7 003F
-44D7 0061
-44D7 0041
-44D7 0062
-44D8 0021
-44D8 003F
-44D8 0061
-44D8 0041
-44D8 0062
-44D9 0021
-44D9 003F
-44D9 0061
-44D9 0041
-44D9 0062
-44DA 0021
-44DA 003F
-44DA 0061
-44DA 0041
-44DA 0062
-44DB 0021
-44DB 003F
-44DB 0061
-44DB 0041
-44DB 0062
-44DC 0021
-44DC 003F
-44DC 0061
-44DC 0041
-44DC 0062
-44DD 0021
-44DD 003F
-44DD 0061
-44DD 0041
-44DD 0062
-44DE 0021
-44DE 003F
-44DE 0061
-44DE 0041
-44DE 0062
-44DF 0021
-44DF 003F
-44DF 0061
-44DF 0041
-44DF 0062
-44E0 0021
-44E0 003F
-44E0 0061
-44E0 0041
-44E0 0062
-44E1 0021
-44E1 003F
-44E1 0061
-44E1 0041
-44E1 0062
-44E2 0021
-44E2 003F
-44E2 0061
-44E2 0041
-44E2 0062
-44E3 0021
-44E3 003F
-44E3 0061
-44E3 0041
-44E3 0062
-44E4 0021
-44E4 003F
-44E4 0061
-44E4 0041
-44E4 0062
-44E5 0021
-44E5 003F
-44E5 0061
-44E5 0041
-44E5 0062
-44E6 0021
-44E6 003F
-44E6 0061
-44E6 0041
-44E6 0062
-44E7 0021
-44E7 003F
-44E7 0061
-44E7 0041
-44E7 0062
-44E8 0021
-44E8 003F
-44E8 0061
-44E8 0041
-44E8 0062
-44E9 0021
-44E9 003F
-44E9 0061
-44E9 0041
-44E9 0062
-44EA 0021
-44EA 003F
-44EA 0061
-44EA 0041
-44EA 0062
-44EB 0021
-44EB 003F
-44EB 0061
-44EB 0041
-44EB 0062
-44EC 0021
-44EC 003F
-44EC 0061
-44EC 0041
-44EC 0062
-44ED 0021
-44ED 003F
-44ED 0061
-44ED 0041
-44ED 0062
-44EE 0021
-44EE 003F
-44EE 0061
-44EE 0041
-44EE 0062
-44EF 0021
-44EF 003F
-44EF 0061
-44EF 0041
-44EF 0062
-44F0 0021
-44F0 003F
-44F0 0061
-44F0 0041
-44F0 0062
-44F1 0021
-44F1 003F
-44F1 0061
-44F1 0041
-44F1 0062
-44F2 0021
-44F2 003F
-44F2 0061
-44F2 0041
-44F2 0062
-44F3 0021
-44F3 003F
-44F3 0061
-44F3 0041
-44F3 0062
-44F4 0021
-44F4 003F
-44F4 0061
-44F4 0041
-44F4 0062
-44F5 0021
-44F5 003F
-44F5 0061
-44F5 0041
-44F5 0062
-44F6 0021
-44F6 003F
-44F6 0061
-44F6 0041
-44F6 0062
-44F7 0021
-44F7 003F
-44F7 0061
-44F7 0041
-44F7 0062
-44F8 0021
-44F8 003F
-44F8 0061
-44F8 0041
-44F8 0062
-44F9 0021
-44F9 003F
-44F9 0061
-44F9 0041
-44F9 0062
-44FA 0021
-44FA 003F
-44FA 0061
-44FA 0041
-44FA 0062
-44FB 0021
-44FB 003F
-44FB 0061
-44FB 0041
-44FB 0062
-44FC 0021
-44FC 003F
-44FC 0061
-44FC 0041
-44FC 0062
-44FD 0021
-44FD 003F
-44FD 0061
-44FD 0041
-44FD 0062
-44FE 0021
-44FE 003F
-44FE 0061
-44FE 0041
-44FE 0062
-44FF 0021
-44FF 003F
-44FF 0061
-44FF 0041
-44FF 0062
-4500 0021
-4500 003F
-4500 0061
-4500 0041
-4500 0062
-4501 0021
-4501 003F
-4501 0061
-4501 0041
-4501 0062
-4502 0021
-4502 003F
-4502 0061
-4502 0041
-4502 0062
-4503 0021
-4503 003F
-4503 0061
-4503 0041
-4503 0062
-4504 0021
-4504 003F
-4504 0061
-4504 0041
-4504 0062
-4505 0021
-4505 003F
-4505 0061
-4505 0041
-4505 0062
-4506 0021
-4506 003F
-4506 0061
-4506 0041
-4506 0062
-4507 0021
-4507 003F
-4507 0061
-4507 0041
-4507 0062
-4508 0021
-4508 003F
-4508 0061
-4508 0041
-4508 0062
-4509 0021
-4509 003F
-4509 0061
-4509 0041
-4509 0062
-450A 0021
-450A 003F
-450A 0061
-450A 0041
-450A 0062
-450B 0021
-450B 003F
-450B 0061
-450B 0041
-450B 0062
-450C 0021
-450C 003F
-450C 0061
-450C 0041
-450C 0062
-450D 0021
-450D 003F
-450D 0061
-450D 0041
-450D 0062
-450E 0021
-450E 003F
-450E 0061
-450E 0041
-450E 0062
-450F 0021
-450F 003F
-450F 0061
-450F 0041
-450F 0062
-4510 0021
-4510 003F
-4510 0061
-4510 0041
-4510 0062
-4511 0021
-4511 003F
-4511 0061
-4511 0041
-4511 0062
-4512 0021
-4512 003F
-4512 0061
-4512 0041
-4512 0062
-4513 0021
-4513 003F
-4513 0061
-4513 0041
-4513 0062
-4514 0021
-4514 003F
-4514 0061
-4514 0041
-4514 0062
-4515 0021
-4515 003F
-4515 0061
-4515 0041
-4515 0062
-4516 0021
-4516 003F
-4516 0061
-4516 0041
-4516 0062
-4517 0021
-4517 003F
-4517 0061
-4517 0041
-4517 0062
-4518 0021
-4518 003F
-4518 0061
-4518 0041
-4518 0062
-4519 0021
-4519 003F
-4519 0061
-4519 0041
-4519 0062
-451A 0021
-451A 003F
-451A 0061
-451A 0041
-451A 0062
-451B 0021
-451B 003F
-451B 0061
-451B 0041
-451B 0062
-451C 0021
-451C 003F
-451C 0061
-451C 0041
-451C 0062
-451D 0021
-451D 003F
-451D 0061
-451D 0041
-451D 0062
-451E 0021
-451E 003F
-451E 0061
-451E 0041
-451E 0062
-451F 0021
-451F 003F
-451F 0061
-451F 0041
-451F 0062
-4520 0021
-4520 003F
-4520 0061
-4520 0041
-4520 0062
-4521 0021
-4521 003F
-4521 0061
-4521 0041
-4521 0062
-4522 0021
-4522 003F
-4522 0061
-4522 0041
-4522 0062
-4523 0021
-4523 003F
-4523 0061
-4523 0041
-4523 0062
-4524 0021
-4524 003F
-4524 0061
-4524 0041
-4524 0062
-4525 0021
-4525 003F
-4525 0061
-4525 0041
-4525 0062
-4526 0021
-4526 003F
-4526 0061
-4526 0041
-4526 0062
-4527 0021
-4527 003F
-4527 0061
-4527 0041
-4527 0062
-4528 0021
-4528 003F
-4528 0061
-4528 0041
-4528 0062
-4529 0021
-4529 003F
-4529 0061
-4529 0041
-4529 0062
-452A 0021
-452A 003F
-452A 0061
-452A 0041
-452A 0062
-452B 0021
-2F9A7 0021
-452B 003F
-2F9A7 003F
-452B 0061
-2F9A7 0061
-452B 0041
-2F9A7 0041
-452B 0062
-2F9A7 0062
-452C 0021
-452C 003F
-452C 0061
-452C 0041
-452C 0062
-452D 0021
-452D 003F
-452D 0061
-452D 0041
-452D 0062
-452E 0021
-452E 003F
-452E 0061
-452E 0041
-452E 0062
-452F 0021
-452F 003F
-452F 0061
-452F 0041
-452F 0062
-4530 0021
-4530 003F
-4530 0061
-4530 0041
-4530 0062
-4531 0021
-4531 003F
-4531 0061
-4531 0041
-4531 0062
-4532 0021
-4532 003F
-4532 0061
-4532 0041
-4532 0062
-4533 0021
-4533 003F
-4533 0061
-4533 0041
-4533 0062
-4534 0021
-4534 003F
-4534 0061
-4534 0041
-4534 0062
-4535 0021
-4535 003F
-4535 0061
-4535 0041
-4535 0062
-4536 0021
-4536 003F
-4536 0061
-4536 0041
-4536 0062
-4537 0021
-4537 003F
-4537 0061
-4537 0041
-4537 0062
-4538 0021
-4538 003F
-4538 0061
-4538 0041
-4538 0062
-4539 0021
-4539 003F
-4539 0061
-4539 0041
-4539 0062
-453A 0021
-453A 003F
-453A 0061
-453A 0041
-453A 0062
-453B 0021
-453B 003F
-453B 0061
-453B 0041
-453B 0062
-453C 0021
-453C 003F
-453C 0061
-453C 0041
-453C 0062
-453D 0021
-453D 003F
-453D 0061
-453D 0041
-453D 0062
-453E 0021
-453E 003F
-453E 0061
-453E 0041
-453E 0062
-453F 0021
-453F 003F
-453F 0061
-453F 0041
-453F 0062
-4540 0021
-4540 003F
-4540 0061
-4540 0041
-4540 0062
-4541 0021
-4541 003F
-4541 0061
-4541 0041
-4541 0062
-4542 0021
-4542 003F
-4542 0061
-4542 0041
-4542 0062
-4543 0021
-4543 003F
-4543 0061
-4543 0041
-4543 0062
-4544 0021
-4544 003F
-4544 0061
-4544 0041
-4544 0062
-4545 0021
-4545 003F
-4545 0061
-4545 0041
-4545 0062
-4546 0021
-4546 003F
-4546 0061
-4546 0041
-4546 0062
-4547 0021
-4547 003F
-4547 0061
-4547 0041
-4547 0062
-4548 0021
-4548 003F
-4548 0061
-4548 0041
-4548 0062
-4549 0021
-4549 003F
-4549 0061
-4549 0041
-4549 0062
-454A 0021
-454A 003F
-454A 0061
-454A 0041
-454A 0062
-454B 0021
-454B 003F
-454B 0061
-454B 0041
-454B 0062
-454C 0021
-454C 003F
-454C 0061
-454C 0041
-454C 0062
-454D 0021
-454D 003F
-454D 0061
-454D 0041
-454D 0062
-454E 0021
-454E 003F
-454E 0061
-454E 0041
-454E 0062
-454F 0021
-454F 003F
-454F 0061
-454F 0041
-454F 0062
-4550 0021
-4550 003F
-4550 0061
-4550 0041
-4550 0062
-4551 0021
-4551 003F
-4551 0061
-4551 0041
-4551 0062
-4552 0021
-4552 003F
-4552 0061
-4552 0041
-4552 0062
-4553 0021
-4553 003F
-4553 0061
-4553 0041
-4553 0062
-4554 0021
-4554 003F
-4554 0061
-4554 0041
-4554 0062
-4555 0021
-4555 003F
-4555 0061
-4555 0041
-4555 0062
-4556 0021
-4556 003F
-4556 0061
-4556 0041
-4556 0062
-4557 0021
-4557 003F
-4557 0061
-4557 0041
-4557 0062
-4558 0021
-4558 003F
-4558 0061
-4558 0041
-4558 0062
-4559 0021
-4559 003F
-4559 0061
-4559 0041
-4559 0062
-455A 0021
-455A 003F
-455A 0061
-455A 0041
-455A 0062
-455B 0021
-455B 003F
-455B 0061
-455B 0041
-455B 0062
-455C 0021
-455C 003F
-455C 0061
-455C 0041
-455C 0062
-455D 0021
-2F9AE 0021
-455D 003F
-2F9AE 003F
-455D 0061
-2F9AE 0061
-455D 0041
-2F9AE 0041
-455D 0062
-2F9AE 0062
-455E 0021
-455E 003F
-455E 0061
-455E 0041
-455E 0062
-455F 0021
-455F 003F
-455F 0061
-455F 0041
-455F 0062
-4560 0021
-4560 003F
-4560 0061
-4560 0041
-4560 0062
-4561 0021
-2F9AF 0021
-4561 003F
-2F9AF 003F
-4561 0061
-2F9AF 0061
-4561 0041
-2F9AF 0041
-4561 0062
-2F9AF 0062
-4562 0021
-4562 003F
-4562 0061
-4562 0041
-4562 0062
-4563 0021
-4563 003F
-4563 0061
-4563 0041
-4563 0062
-4564 0021
-4564 003F
-4564 0061
-4564 0041
-4564 0062
-4565 0021
-4565 003F
-4565 0061
-4565 0041
-4565 0062
-4566 0021
-4566 003F
-4566 0061
-4566 0041
-4566 0062
-4567 0021
-4567 003F
-4567 0061
-4567 0041
-4567 0062
-4568 0021
-4568 003F
-4568 0061
-4568 0041
-4568 0062
-4569 0021
-4569 003F
-4569 0061
-4569 0041
-4569 0062
-456A 0021
-456A 003F
-456A 0061
-456A 0041
-456A 0062
-456B 0021
-2F9B2 0021
-456B 003F
-2F9B2 003F
-456B 0061
-2F9B2 0061
-456B 0041
-2F9B2 0041
-456B 0062
-2F9B2 0062
-456C 0021
-456C 003F
-456C 0061
-456C 0041
-456C 0062
-456D 0021
-456D 003F
-456D 0061
-456D 0041
-456D 0062
-456E 0021
-456E 003F
-456E 0061
-456E 0041
-456E 0062
-456F 0021
-456F 003F
-456F 0061
-456F 0041
-456F 0062
-4570 0021
-4570 003F
-4570 0061
-4570 0041
-4570 0062
-4571 0021
-4571 003F
-4571 0061
-4571 0041
-4571 0062
-4572 0021
-4572 003F
-4572 0061
-4572 0041
-4572 0062
-4573 0021
-4573 003F
-4573 0061
-4573 0041
-4573 0062
-4574 0021
-4574 003F
-4574 0061
-4574 0041
-4574 0062
-4575 0021
-4575 003F
-4575 0061
-4575 0041
-4575 0062
-4576 0021
-4576 003F
-4576 0061
-4576 0041
-4576 0062
-4577 0021
-4577 003F
-4577 0061
-4577 0041
-4577 0062
-4578 0021
-4578 003F
-4578 0061
-4578 0041
-4578 0062
-4579 0021
-4579 003F
-4579 0061
-4579 0041
-4579 0062
-457A 0021
-457A 003F
-457A 0061
-457A 0041
-457A 0062
-457B 0021
-457B 003F
-457B 0061
-457B 0041
-457B 0062
-457C 0021
-457C 003F
-457C 0061
-457C 0041
-457C 0062
-457D 0021
-457D 003F
-457D 0061
-457D 0041
-457D 0062
-457E 0021
-457E 003F
-457E 0061
-457E 0041
-457E 0062
-457F 0021
-457F 003F
-457F 0061
-457F 0041
-457F 0062
-4580 0021
-4580 003F
-4580 0061
-4580 0041
-4580 0062
-4581 0021
-4581 003F
-4581 0061
-4581 0041
-4581 0062
-4582 0021
-4582 003F
-4582 0061
-4582 0041
-4582 0062
-4583 0021
-4583 003F
-4583 0061
-4583 0041
-4583 0062
-4584 0021
-4584 003F
-4584 0061
-4584 0041
-4584 0062
-4585 0021
-4585 003F
-4585 0061
-4585 0041
-4585 0062
-4586 0021
-4586 003F
-4586 0061
-4586 0041
-4586 0062
-4587 0021
-4587 003F
-4587 0061
-4587 0041
-4587 0062
-4588 0021
-4588 003F
-4588 0061
-4588 0041
-4588 0062
-4589 0021
-4589 003F
-4589 0061
-4589 0041
-4589 0062
-458A 0021
-458A 003F
-458A 0061
-458A 0041
-458A 0062
-458B 0021
-458B 003F
-458B 0061
-458B 0041
-458B 0062
-458C 0021
-458C 003F
-458C 0061
-458C 0041
-458C 0062
-458D 0021
-458D 003F
-458D 0061
-458D 0041
-458D 0062
-458E 0021
-458E 003F
-458E 0061
-458E 0041
-458E 0062
-458F 0021
-458F 003F
-458F 0061
-458F 0041
-458F 0062
-4590 0021
-4590 003F
-4590 0061
-4590 0041
-4590 0062
-4591 0021
-4591 003F
-4591 0061
-4591 0041
-4591 0062
-4592 0021
-4592 003F
-4592 0061
-4592 0041
-4592 0062
-4593 0021
-4593 003F
-4593 0061
-4593 0041
-4593 0062
-4594 0021
-4594 003F
-4594 0061
-4594 0041
-4594 0062
-4595 0021
-4595 003F
-4595 0061
-4595 0041
-4595 0062
-4596 0021
-4596 003F
-4596 0061
-4596 0041
-4596 0062
-4597 0021
-4597 003F
-4597 0061
-4597 0041
-4597 0062
-4598 0021
-4598 003F
-4598 0061
-4598 0041
-4598 0062
-4599 0021
-4599 003F
-4599 0061
-4599 0041
-4599 0062
-459A 0021
-459A 003F
-459A 0061
-459A 0041
-459A 0062
-459B 0021
-459B 003F
-459B 0061
-459B 0041
-459B 0062
-459C 0021
-459C 003F
-459C 0061
-459C 0041
-459C 0062
-459D 0021
-459D 003F
-459D 0061
-459D 0041
-459D 0062
-459E 0021
-459E 003F
-459E 0061
-459E 0041
-459E 0062
-459F 0021
-459F 003F
-459F 0061
-459F 0041
-459F 0062
-45A0 0021
-45A0 003F
-45A0 0061
-45A0 0041
-45A0 0062
-45A1 0021
-45A1 003F
-45A1 0061
-45A1 0041
-45A1 0062
-45A2 0021
-45A2 003F
-45A2 0061
-45A2 0041
-45A2 0062
-45A3 0021
-45A3 003F
-45A3 0061
-45A3 0041
-45A3 0062
-45A4 0021
-45A4 003F
-45A4 0061
-45A4 0041
-45A4 0062
-45A5 0021
-45A5 003F
-45A5 0061
-45A5 0041
-45A5 0062
-45A6 0021
-45A6 003F
-45A6 0061
-45A6 0041
-45A6 0062
-45A7 0021
-45A7 003F
-45A7 0061
-45A7 0041
-45A7 0062
-45A8 0021
-45A8 003F
-45A8 0061
-45A8 0041
-45A8 0062
-45A9 0021
-45A9 003F
-45A9 0061
-45A9 0041
-45A9 0062
-45AA 0021
-45AA 003F
-45AA 0061
-45AA 0041
-45AA 0062
-45AB 0021
-45AB 003F
-45AB 0061
-45AB 0041
-45AB 0062
-45AC 0021
-45AC 003F
-45AC 0061
-45AC 0041
-45AC 0062
-45AD 0021
-45AD 003F
-45AD 0061
-45AD 0041
-45AD 0062
-45AE 0021
-45AE 003F
-45AE 0061
-45AE 0041
-45AE 0062
-45AF 0021
-45AF 003F
-45AF 0061
-45AF 0041
-45AF 0062
-45B0 0021
-45B0 003F
-45B0 0061
-45B0 0041
-45B0 0062
-45B1 0021
-45B1 003F
-45B1 0061
-45B1 0041
-45B1 0062
-45B2 0021
-45B2 003F
-45B2 0061
-45B2 0041
-45B2 0062
-45B3 0021
-45B3 003F
-45B3 0061
-45B3 0041
-45B3 0062
-45B4 0021
-45B4 003F
-45B4 0061
-45B4 0041
-45B4 0062
-45B5 0021
-45B5 003F
-45B5 0061
-45B5 0041
-45B5 0062
-45B6 0021
-45B6 003F
-45B6 0061
-45B6 0041
-45B6 0062
-45B7 0021
-45B7 003F
-45B7 0061
-45B7 0041
-45B7 0062
-45B8 0021
-45B8 003F
-45B8 0061
-45B8 0041
-45B8 0062
-45B9 0021
-45B9 003F
-45B9 0061
-45B9 0041
-45B9 0062
-45BA 0021
-45BA 003F
-45BA 0061
-45BA 0041
-45BA 0062
-45BB 0021
-45BB 003F
-45BB 0061
-45BB 0041
-45BB 0062
-45BC 0021
-45BC 003F
-45BC 0061
-45BC 0041
-45BC 0062
-45BD 0021
-45BD 003F
-45BD 0061
-45BD 0041
-45BD 0062
-45BE 0021
-45BE 003F
-45BE 0061
-45BE 0041
-45BE 0062
-45BF 0021
-45BF 003F
-45BF 0061
-45BF 0041
-45BF 0062
-45C0 0021
-45C0 003F
-45C0 0061
-45C0 0041
-45C0 0062
-45C1 0021
-45C1 003F
-45C1 0061
-45C1 0041
-45C1 0062
-45C2 0021
-45C2 003F
-45C2 0061
-45C2 0041
-45C2 0062
-45C3 0021
-45C3 003F
-45C3 0061
-45C3 0041
-45C3 0062
-45C4 0021
-45C4 003F
-45C4 0061
-45C4 0041
-45C4 0062
-45C5 0021
-45C5 003F
-45C5 0061
-45C5 0041
-45C5 0062
-45C6 0021
-45C6 003F
-45C6 0061
-45C6 0041
-45C6 0062
-45C7 0021
-45C7 003F
-45C7 0061
-45C7 0041
-45C7 0062
-45C8 0021
-45C8 003F
-45C8 0061
-45C8 0041
-45C8 0062
-45C9 0021
-45C9 003F
-45C9 0061
-45C9 0041
-45C9 0062
-45CA 0021
-45CA 003F
-45CA 0061
-45CA 0041
-45CA 0062
-45CB 0021
-45CB 003F
-45CB 0061
-45CB 0041
-45CB 0062
-45CC 0021
-45CC 003F
-45CC 0061
-45CC 0041
-45CC 0062
-45CD 0021
-45CD 003F
-45CD 0061
-45CD 0041
-45CD 0062
-45CE 0021
-45CE 003F
-45CE 0061
-45CE 0041
-45CE 0062
-45CF 0021
-45CF 003F
-45CF 0061
-45CF 0041
-45CF 0062
-45D0 0021
-45D0 003F
-45D0 0061
-45D0 0041
-45D0 0062
-45D1 0021
-45D1 003F
-45D1 0061
-45D1 0041
-45D1 0062
-45D2 0021
-45D2 003F
-45D2 0061
-45D2 0041
-45D2 0062
-45D3 0021
-45D3 003F
-45D3 0061
-45D3 0041
-45D3 0062
-45D4 0021
-45D4 003F
-45D4 0061
-45D4 0041
-45D4 0062
-45D5 0021
-45D5 003F
-45D5 0061
-45D5 0041
-45D5 0062
-45D6 0021
-45D6 003F
-45D6 0061
-45D6 0041
-45D6 0062
-45D7 0021
-2F9BF 0021
-45D7 003F
-2F9BF 003F
-45D7 0061
-2F9BF 0061
-45D7 0041
-2F9BF 0041
-45D7 0062
-2F9BF 0062
-45D8 0021
-45D8 003F
-45D8 0061
-45D8 0041
-45D8 0062
-45D9 0021
-45D9 003F
-45D9 0061
-45D9 0041
-45D9 0062
-45DA 0021
-45DA 003F
-45DA 0061
-45DA 0041
-45DA 0062
-45DB 0021
-45DB 003F
-45DB 0061
-45DB 0041
-45DB 0062
-45DC 0021
-45DC 003F
-45DC 0061
-45DC 0041
-45DC 0062
-45DD 0021
-45DD 003F
-45DD 0061
-45DD 0041
-45DD 0062
-45DE 0021
-45DE 003F
-45DE 0061
-45DE 0041
-45DE 0062
-45DF 0021
-45DF 003F
-45DF 0061
-45DF 0041
-45DF 0062
-45E0 0021
-45E0 003F
-45E0 0061
-45E0 0041
-45E0 0062
-45E1 0021
-45E1 003F
-45E1 0061
-45E1 0041
-45E1 0062
-45E2 0021
-45E2 003F
-45E2 0061
-45E2 0041
-45E2 0062
-45E3 0021
-45E3 003F
-45E3 0061
-45E3 0041
-45E3 0062
-45E4 0021
-45E4 003F
-45E4 0061
-45E4 0041
-45E4 0062
-45E5 0021
-45E5 003F
-45E5 0061
-45E5 0041
-45E5 0062
-45E6 0021
-45E6 003F
-45E6 0061
-45E6 0041
-45E6 0062
-45E7 0021
-45E7 003F
-45E7 0061
-45E7 0041
-45E7 0062
-45E8 0021
-45E8 003F
-45E8 0061
-45E8 0041
-45E8 0062
-45E9 0021
-45E9 003F
-45E9 0061
-45E9 0041
-45E9 0062
-45EA 0021
-45EA 003F
-45EA 0061
-45EA 0041
-45EA 0062
-45EB 0021
-45EB 003F
-45EB 0061
-45EB 0041
-45EB 0062
-45EC 0021
-45EC 003F
-45EC 0061
-45EC 0041
-45EC 0062
-45ED 0021
-45ED 003F
-45ED 0061
-45ED 0041
-45ED 0062
-45EE 0021
-45EE 003F
-45EE 0061
-45EE 0041
-45EE 0062
-45EF 0021
-45EF 003F
-45EF 0061
-45EF 0041
-45EF 0062
-45F0 0021
-45F0 003F
-45F0 0061
-45F0 0041
-45F0 0062
-45F1 0021
-45F1 003F
-45F1 0061
-45F1 0041
-45F1 0062
-45F2 0021
-45F2 003F
-45F2 0061
-45F2 0041
-45F2 0062
-45F3 0021
-45F3 003F
-45F3 0061
-45F3 0041
-45F3 0062
-45F4 0021
-45F4 003F
-45F4 0061
-45F4 0041
-45F4 0062
-45F5 0021
-45F5 003F
-45F5 0061
-45F5 0041
-45F5 0062
-45F6 0021
-45F6 003F
-45F6 0061
-45F6 0041
-45F6 0062
-45F7 0021
-45F7 003F
-45F7 0061
-45F7 0041
-45F7 0062
-45F8 0021
-45F8 003F
-45F8 0061
-45F8 0041
-45F8 0062
-45F9 0021
-2F9C2 0021
-45F9 003F
-2F9C2 003F
-45F9 0061
-2F9C2 0061
-45F9 0041
-2F9C2 0041
-45F9 0062
-2F9C2 0062
-45FA 0021
-45FA 003F
-45FA 0061
-45FA 0041
-45FA 0062
-45FB 0021
-45FB 003F
-45FB 0061
-45FB 0041
-45FB 0062
-45FC 0021
-45FC 003F
-45FC 0061
-45FC 0041
-45FC 0062
-45FD 0021
-45FD 003F
-45FD 0061
-45FD 0041
-45FD 0062
-45FE 0021
-45FE 003F
-45FE 0061
-45FE 0041
-45FE 0062
-45FF 0021
-45FF 003F
-45FF 0061
-45FF 0041
-45FF 0062
-4600 0021
-4600 003F
-4600 0061
-4600 0041
-4600 0062
-4601 0021
-4601 003F
-4601 0061
-4601 0041
-4601 0062
-4602 0021
-4602 003F
-4602 0061
-4602 0041
-4602 0062
-4603 0021
-4603 003F
-4603 0061
-4603 0041
-4603 0062
-4604 0021
-4604 003F
-4604 0061
-4604 0041
-4604 0062
-4605 0021
-4605 003F
-4605 0061
-4605 0041
-4605 0062
-4606 0021
-4606 003F
-4606 0061
-4606 0041
-4606 0062
-4607 0021
-4607 003F
-4607 0061
-4607 0041
-4607 0062
-4608 0021
-4608 003F
-4608 0061
-4608 0041
-4608 0062
-4609 0021
-4609 003F
-4609 0061
-4609 0041
-4609 0062
-460A 0021
-460A 003F
-460A 0061
-460A 0041
-460A 0062
-460B 0021
-460B 003F
-460B 0061
-460B 0041
-460B 0062
-460C 0021
-460C 003F
-460C 0061
-460C 0041
-460C 0062
-460D 0021
-460D 003F
-460D 0061
-460D 0041
-460D 0062
-460E 0021
-460E 003F
-460E 0061
-460E 0041
-460E 0062
-460F 0021
-460F 003F
-460F 0061
-460F 0041
-460F 0062
-4610 0021
-4610 003F
-4610 0061
-4610 0041
-4610 0062
-4611 0021
-4611 003F
-4611 0061
-4611 0041
-4611 0062
-4612 0021
-4612 003F
-4612 0061
-4612 0041
-4612 0062
-4613 0021
-4613 003F
-4613 0061
-4613 0041
-4613 0062
-4614 0021
-4614 003F
-4614 0061
-4614 0041
-4614 0062
-4615 0021
-4615 003F
-4615 0061
-4615 0041
-4615 0062
-4616 0021
-4616 003F
-4616 0061
-4616 0041
-4616 0062
-4617 0021
-4617 003F
-4617 0061
-4617 0041
-4617 0062
-4618 0021
-4618 003F
-4618 0061
-4618 0041
-4618 0062
-4619 0021
-4619 003F
-4619 0061
-4619 0041
-4619 0062
-461A 0021
-461A 003F
-461A 0061
-461A 0041
-461A 0062
-461B 0021
-461B 003F
-461B 0061
-461B 0041
-461B 0062
-461C 0021
-461C 003F
-461C 0061
-461C 0041
-461C 0062
-461D 0021
-461D 003F
-461D 0061
-461D 0041
-461D 0062
-461E 0021
-461E 003F
-461E 0061
-461E 0041
-461E 0062
-461F 0021
-461F 003F
-461F 0061
-461F 0041
-461F 0062
-4620 0021
-4620 003F
-4620 0061
-4620 0041
-4620 0062
-4621 0021
-4621 003F
-4621 0061
-4621 0041
-4621 0062
-4622 0021
-4622 003F
-4622 0061
-4622 0041
-4622 0062
-4623 0021
-4623 003F
-4623 0061
-4623 0041
-4623 0062
-4624 0021
-4624 003F
-4624 0061
-4624 0041
-4624 0062
-4625 0021
-4625 003F
-4625 0061
-4625 0041
-4625 0062
-4626 0021
-4626 003F
-4626 0061
-4626 0041
-4626 0062
-4627 0021
-4627 003F
-4627 0061
-4627 0041
-4627 0062
-4628 0021
-4628 003F
-4628 0061
-4628 0041
-4628 0062
-4629 0021
-4629 003F
-4629 0061
-4629 0041
-4629 0062
-462A 0021
-462A 003F
-462A 0061
-462A 0041
-462A 0062
-462B 0021
-462B 003F
-462B 0061
-462B 0041
-462B 0062
-462C 0021
-462C 003F
-462C 0061
-462C 0041
-462C 0062
-462D 0021
-462D 003F
-462D 0061
-462D 0041
-462D 0062
-462E 0021
-462E 003F
-462E 0061
-462E 0041
-462E 0062
-462F 0021
-462F 003F
-462F 0061
-462F 0041
-462F 0062
-4630 0021
-4630 003F
-4630 0061
-4630 0041
-4630 0062
-4631 0021
-4631 003F
-4631 0061
-4631 0041
-4631 0062
-4632 0021
-4632 003F
-4632 0061
-4632 0041
-4632 0062
-4633 0021
-4633 003F
-4633 0061
-4633 0041
-4633 0062
-4634 0021
-4634 003F
-4634 0061
-4634 0041
-4634 0062
-4635 0021
-2F9C8 0021
-4635 003F
-2F9C8 003F
-4635 0061
-2F9C8 0061
-4635 0041
-2F9C8 0041
-4635 0062
-2F9C8 0062
-4636 0021
-4636 003F
-4636 0061
-4636 0041
-4636 0062
-4637 0021
-4637 003F
-4637 0061
-4637 0041
-4637 0062
-4638 0021
-4638 003F
-4638 0061
-4638 0041
-4638 0062
-4639 0021
-4639 003F
-4639 0061
-4639 0041
-4639 0062
-463A 0021
-463A 003F
-463A 0061
-463A 0041
-463A 0062
-463B 0021
-463B 003F
-463B 0061
-463B 0041
-463B 0062
-463C 0021
-463C 003F
-463C 0061
-463C 0041
-463C 0062
-463D 0021
-463D 003F
-463D 0061
-463D 0041
-463D 0062
-463E 0021
-463E 003F
-463E 0061
-463E 0041
-463E 0062
-463F 0021
-463F 003F
-463F 0061
-463F 0041
-463F 0062
-4640 0021
-4640 003F
-4640 0061
-4640 0041
-4640 0062
-4641 0021
-4641 003F
-4641 0061
-4641 0041
-4641 0062
-4642 0021
-4642 003F
-4642 0061
-4642 0041
-4642 0062
-4643 0021
-4643 003F
-4643 0061
-4643 0041
-4643 0062
-4644 0021
-4644 003F
-4644 0061
-4644 0041
-4644 0062
-4645 0021
-4645 003F
-4645 0061
-4645 0041
-4645 0062
-4646 0021
-4646 003F
-4646 0061
-4646 0041
-4646 0062
-4647 0021
-4647 003F
-4647 0061
-4647 0041
-4647 0062
-4648 0021
-4648 003F
-4648 0061
-4648 0041
-4648 0062
-4649 0021
-4649 003F
-4649 0061
-4649 0041
-4649 0062
-464A 0021
-464A 003F
-464A 0061
-464A 0041
-464A 0062
-464B 0021
-464B 003F
-464B 0061
-464B 0041
-464B 0062
-464C 0021
-464C 003F
-464C 0061
-464C 0041
-464C 0062
-464D 0021
-464D 003F
-464D 0061
-464D 0041
-464D 0062
-464E 0021
-464E 003F
-464E 0061
-464E 0041
-464E 0062
-464F 0021
-464F 003F
-464F 0061
-464F 0041
-464F 0062
-4650 0021
-4650 003F
-4650 0061
-4650 0041
-4650 0062
-4651 0021
-4651 003F
-4651 0061
-4651 0041
-4651 0062
-4652 0021
-4652 003F
-4652 0061
-4652 0041
-4652 0062
-4653 0021
-4653 003F
-4653 0061
-4653 0041
-4653 0062
-4654 0021
-4654 003F
-4654 0061
-4654 0041
-4654 0062
-4655 0021
-4655 003F
-4655 0061
-4655 0041
-4655 0062
-4656 0021
-4656 003F
-4656 0061
-4656 0041
-4656 0062
-4657 0021
-4657 003F
-4657 0061
-4657 0041
-4657 0062
-4658 0021
-4658 003F
-4658 0061
-4658 0041
-4658 0062
-4659 0021
-4659 003F
-4659 0061
-4659 0041
-4659 0062
-465A 0021
-465A 003F
-465A 0061
-465A 0041
-465A 0062
-465B 0021
-465B 003F
-465B 0061
-465B 0041
-465B 0062
-465C 0021
-465C 003F
-465C 0061
-465C 0041
-465C 0062
-465D 0021
-465D 003F
-465D 0061
-465D 0041
-465D 0062
-465E 0021
-465E 003F
-465E 0061
-465E 0041
-465E 0062
-465F 0021
-465F 003F
-465F 0061
-465F 0041
-465F 0062
-4660 0021
-4660 003F
-4660 0061
-4660 0041
-4660 0062
-4661 0021
-4661 003F
-4661 0061
-4661 0041
-4661 0062
-4662 0021
-4662 003F
-4662 0061
-4662 0041
-4662 0062
-4663 0021
-4663 003F
-4663 0061
-4663 0041
-4663 0062
-4664 0021
-4664 003F
-4664 0061
-4664 0041
-4664 0062
-4665 0021
-4665 003F
-4665 0061
-4665 0041
-4665 0062
-4666 0021
-4666 003F
-4666 0061
-4666 0041
-4666 0062
-4667 0021
-4667 003F
-4667 0061
-4667 0041
-4667 0062
-4668 0021
-4668 003F
-4668 0061
-4668 0041
-4668 0062
-4669 0021
-4669 003F
-4669 0061
-4669 0041
-4669 0062
-466A 0021
-466A 003F
-466A 0061
-466A 0041
-466A 0062
-466B 0021
-466B 003F
-466B 0061
-466B 0041
-466B 0062
-466C 0021
-466C 003F
-466C 0061
-466C 0041
-466C 0062
-466D 0021
-466D 003F
-466D 0061
-466D 0041
-466D 0062
-466E 0021
-466E 003F
-466E 0061
-466E 0041
-466E 0062
-466F 0021
-466F 003F
-466F 0061
-466F 0041
-466F 0062
-4670 0021
-4670 003F
-4670 0061
-4670 0041
-4670 0062
-4671 0021
-4671 003F
-4671 0061
-4671 0041
-4671 0062
-4672 0021
-4672 003F
-4672 0061
-4672 0041
-4672 0062
-4673 0021
-4673 003F
-4673 0061
-4673 0041
-4673 0062
-4674 0021
-4674 003F
-4674 0061
-4674 0041
-4674 0062
-4675 0021
-4675 003F
-4675 0061
-4675 0041
-4675 0062
-4676 0021
-4676 003F
-4676 0061
-4676 0041
-4676 0062
-4677 0021
-4677 003F
-4677 0061
-4677 0041
-4677 0062
-4678 0021
-4678 003F
-4678 0061
-4678 0041
-4678 0062
-4679 0021
-4679 003F
-4679 0061
-4679 0041
-4679 0062
-467A 0021
-467A 003F
-467A 0061
-467A 0041
-467A 0062
-467B 0021
-467B 003F
-467B 0061
-467B 0041
-467B 0062
-467C 0021
-467C 003F
-467C 0061
-467C 0041
-467C 0062
-467D 0021
-467D 003F
-467D 0061
-467D 0041
-467D 0062
-467E 0021
-467E 003F
-467E 0061
-467E 0041
-467E 0062
-467F 0021
-467F 003F
-467F 0061
-467F 0041
-467F 0062
-4680 0021
-4680 003F
-4680 0061
-4680 0041
-4680 0062
-4681 0021
-4681 003F
-4681 0061
-4681 0041
-4681 0062
-4682 0021
-4682 003F
-4682 0061
-4682 0041
-4682 0062
-4683 0021
-4683 003F
-4683 0061
-4683 0041
-4683 0062
-4684 0021
-4684 003F
-4684 0061
-4684 0041
-4684 0062
-4685 0021
-4685 003F
-4685 0061
-4685 0041
-4685 0062
-4686 0021
-4686 003F
-4686 0061
-4686 0041
-4686 0062
-4687 0021
-4687 003F
-4687 0061
-4687 0041
-4687 0062
-4688 0021
-4688 003F
-4688 0061
-4688 0041
-4688 0062
-4689 0021
-4689 003F
-4689 0061
-4689 0041
-4689 0062
-468A 0021
-468A 003F
-468A 0061
-468A 0041
-468A 0062
-468B 0021
-468B 003F
-468B 0061
-468B 0041
-468B 0062
-468C 0021
-468C 003F
-468C 0061
-468C 0041
-468C 0062
-468D 0021
-468D 003F
-468D 0061
-468D 0041
-468D 0062
-468E 0021
-468E 003F
-468E 0061
-468E 0041
-468E 0062
-468F 0021
-468F 003F
-468F 0061
-468F 0041
-468F 0062
-4690 0021
-4690 003F
-4690 0061
-4690 0041
-4690 0062
-4691 0021
-4691 003F
-4691 0061
-4691 0041
-4691 0062
-4692 0021
-4692 003F
-4692 0061
-4692 0041
-4692 0062
-4693 0021
-4693 003F
-4693 0061
-4693 0041
-4693 0062
-4694 0021
-4694 003F
-4694 0061
-4694 0041
-4694 0062
-4695 0021
-4695 003F
-4695 0061
-4695 0041
-4695 0062
-4696 0021
-4696 003F
-4696 0061
-4696 0041
-4696 0062
-4697 0021
-4697 003F
-4697 0061
-4697 0041
-4697 0062
-4698 0021
-4698 003F
-4698 0061
-4698 0041
-4698 0062
-4699 0021
-4699 003F
-4699 0061
-4699 0041
-4699 0062
-469A 0021
-469A 003F
-469A 0061
-469A 0041
-469A 0062
-469B 0021
-469B 003F
-469B 0061
-469B 0041
-469B 0062
-469C 0021
-469C 003F
-469C 0061
-469C 0041
-469C 0062
-469D 0021
-469D 003F
-469D 0061
-469D 0041
-469D 0062
-469E 0021
-469E 003F
-469E 0061
-469E 0041
-469E 0062
-469F 0021
-469F 003F
-469F 0061
-469F 0041
-469F 0062
-46A0 0021
-46A0 003F
-46A0 0061
-46A0 0041
-46A0 0062
-46A1 0021
-46A1 003F
-46A1 0061
-46A1 0041
-46A1 0062
-46A2 0021
-46A2 003F
-46A2 0061
-46A2 0041
-46A2 0062
-46A3 0021
-46A3 003F
-46A3 0061
-46A3 0041
-46A3 0062
-46A4 0021
-46A4 003F
-46A4 0061
-46A4 0041
-46A4 0062
-46A5 0021
-46A5 003F
-46A5 0061
-46A5 0041
-46A5 0062
-46A6 0021
-46A6 003F
-46A6 0061
-46A6 0041
-46A6 0062
-46A7 0021
-46A7 003F
-46A7 0061
-46A7 0041
-46A7 0062
-46A8 0021
-46A8 003F
-46A8 0061
-46A8 0041
-46A8 0062
-46A9 0021
-46A9 003F
-46A9 0061
-46A9 0041
-46A9 0062
-46AA 0021
-46AA 003F
-46AA 0061
-46AA 0041
-46AA 0062
-46AB 0021
-46AB 003F
-46AB 0061
-46AB 0041
-46AB 0062
-46AC 0021
-46AC 003F
-46AC 0061
-46AC 0041
-46AC 0062
-46AD 0021
-46AD 003F
-46AD 0061
-46AD 0041
-46AD 0062
-46AE 0021
-46AE 003F
-46AE 0061
-46AE 0041
-46AE 0062
-46AF 0021
-46AF 003F
-46AF 0061
-46AF 0041
-46AF 0062
-46B0 0021
-46B0 003F
-46B0 0061
-46B0 0041
-46B0 0062
-46B1 0021
-46B1 003F
-46B1 0061
-46B1 0041
-46B1 0062
-46B2 0021
-46B2 003F
-46B2 0061
-46B2 0041
-46B2 0062
-46B3 0021
-46B3 003F
-46B3 0061
-46B3 0041
-46B3 0062
-46B4 0021
-46B4 003F
-46B4 0061
-46B4 0041
-46B4 0062
-46B5 0021
-46B5 003F
-46B5 0061
-46B5 0041
-46B5 0062
-46B6 0021
-46B6 003F
-46B6 0061
-46B6 0041
-46B6 0062
-46B7 0021
-46B7 003F
-46B7 0061
-46B7 0041
-46B7 0062
-46B8 0021
-46B8 003F
-46B8 0061
-46B8 0041
-46B8 0062
-46B9 0021
-46B9 003F
-46B9 0061
-46B9 0041
-46B9 0062
-46BA 0021
-46BA 003F
-46BA 0061
-46BA 0041
-46BA 0062
-46BB 0021
-46BB 003F
-46BB 0061
-46BB 0041
-46BB 0062
-46BC 0021
-46BC 003F
-46BC 0061
-46BC 0041
-46BC 0062
-46BD 0021
-46BD 003F
-46BD 0061
-46BD 0041
-46BD 0062
-46BE 0021
-2F9CD 0021
-46BE 003F
-2F9CD 003F
-46BE 0061
-2F9CD 0061
-46BE 0041
-2F9CD 0041
-46BE 0062
-2F9CD 0062
-46BF 0021
-46BF 003F
-46BF 0061
-46BF 0041
-46BF 0062
-46C0 0021
-46C0 003F
-46C0 0061
-46C0 0041
-46C0 0062
-46C1 0021
-46C1 003F
-46C1 0061
-46C1 0041
-46C1 0062
-46C2 0021
-46C2 003F
-46C2 0061
-46C2 0041
-46C2 0062
-46C3 0021
-46C3 003F
-46C3 0061
-46C3 0041
-46C3 0062
-46C4 0021
-46C4 003F
-46C4 0061
-46C4 0041
-46C4 0062
-46C5 0021
-46C5 003F
-46C5 0061
-46C5 0041
-46C5 0062
-46C6 0021
-46C6 003F
-46C6 0061
-46C6 0041
-46C6 0062
-46C7 0021
-2F9CE 0021
-46C7 003F
-2F9CE 003F
-46C7 0061
-2F9CE 0061
-46C7 0041
-2F9CE 0041
-46C7 0062
-2F9CE 0062
-46C8 0021
-46C8 003F
-46C8 0061
-46C8 0041
-46C8 0062
-46C9 0021
-46C9 003F
-46C9 0061
-46C9 0041
-46C9 0062
-46CA 0021
-46CA 003F
-46CA 0061
-46CA 0041
-46CA 0062
-46CB 0021
-46CB 003F
-46CB 0061
-46CB 0041
-46CB 0062
-46CC 0021
-46CC 003F
-46CC 0061
-46CC 0041
-46CC 0062
-46CD 0021
-46CD 003F
-46CD 0061
-46CD 0041
-46CD 0062
-46CE 0021
-46CE 003F
-46CE 0061
-46CE 0041
-46CE 0062
-46CF 0021
-46CF 003F
-46CF 0061
-46CF 0041
-46CF 0062
-46D0 0021
-46D0 003F
-46D0 0061
-46D0 0041
-46D0 0062
-46D1 0021
-46D1 003F
-46D1 0061
-46D1 0041
-46D1 0062
-46D2 0021
-46D2 003F
-46D2 0061
-46D2 0041
-46D2 0062
-46D3 0021
-46D3 003F
-46D3 0061
-46D3 0041
-46D3 0062
-46D4 0021
-46D4 003F
-46D4 0061
-46D4 0041
-46D4 0062
-46D5 0021
-46D5 003F
-46D5 0061
-46D5 0041
-46D5 0062
-46D6 0021
-46D6 003F
-46D6 0061
-46D6 0041
-46D6 0062
-46D7 0021
-46D7 003F
-46D7 0061
-46D7 0041
-46D7 0062
-46D8 0021
-46D8 003F
-46D8 0061
-46D8 0041
-46D8 0062
-46D9 0021
-46D9 003F
-46D9 0061
-46D9 0041
-46D9 0062
-46DA 0021
-46DA 003F
-46DA 0061
-46DA 0041
-46DA 0062
-46DB 0021
-46DB 003F
-46DB 0061
-46DB 0041
-46DB 0062
-46DC 0021
-46DC 003F
-46DC 0061
-46DC 0041
-46DC 0062
-46DD 0021
-46DD 003F
-46DD 0061
-46DD 0041
-46DD 0062
-46DE 0021
-46DE 003F
-46DE 0061
-46DE 0041
-46DE 0062
-46DF 0021
-46DF 003F
-46DF 0061
-46DF 0041
-46DF 0062
-46E0 0021
-46E0 003F
-46E0 0061
-46E0 0041
-46E0 0062
-46E1 0021
-46E1 003F
-46E1 0061
-46E1 0041
-46E1 0062
-46E2 0021
-46E2 003F
-46E2 0061
-46E2 0041
-46E2 0062
-46E3 0021
-46E3 003F
-46E3 0061
-46E3 0041
-46E3 0062
-46E4 0021
-46E4 003F
-46E4 0061
-46E4 0041
-46E4 0062
-46E5 0021
-46E5 003F
-46E5 0061
-46E5 0041
-46E5 0062
-46E6 0021
-46E6 003F
-46E6 0061
-46E6 0041
-46E6 0062
-46E7 0021
-46E7 003F
-46E7 0061
-46E7 0041
-46E7 0062
-46E8 0021
-46E8 003F
-46E8 0061
-46E8 0041
-46E8 0062
-46E9 0021
-46E9 003F
-46E9 0061
-46E9 0041
-46E9 0062
-46EA 0021
-46EA 003F
-46EA 0061
-46EA 0041
-46EA 0062
-46EB 0021
-46EB 003F
-46EB 0061
-46EB 0041
-46EB 0062
-46EC 0021
-46EC 003F
-46EC 0061
-46EC 0041
-46EC 0062
-46ED 0021
-46ED 003F
-46ED 0061
-46ED 0041
-46ED 0062
-46EE 0021
-46EE 003F
-46EE 0061
-46EE 0041
-46EE 0062
-46EF 0021
-46EF 003F
-46EF 0061
-46EF 0041
-46EF 0062
-46F0 0021
-46F0 003F
-46F0 0061
-46F0 0041
-46F0 0062
-46F1 0021
-46F1 003F
-46F1 0061
-46F1 0041
-46F1 0062
-46F2 0021
-46F2 003F
-46F2 0061
-46F2 0041
-46F2 0062
-46F3 0021
-46F3 003F
-46F3 0061
-46F3 0041
-46F3 0062
-46F4 0021
-46F4 003F
-46F4 0061
-46F4 0041
-46F4 0062
-46F5 0021
-46F5 003F
-46F5 0061
-46F5 0041
-46F5 0062
-46F6 0021
-46F6 003F
-46F6 0061
-46F6 0041
-46F6 0062
-46F7 0021
-46F7 003F
-46F7 0061
-46F7 0041
-46F7 0062
-46F8 0021
-46F8 003F
-46F8 0061
-46F8 0041
-46F8 0062
-46F9 0021
-46F9 003F
-46F9 0061
-46F9 0041
-46F9 0062
-46FA 0021
-46FA 003F
-46FA 0061
-46FA 0041
-46FA 0062
-46FB 0021
-46FB 003F
-46FB 0061
-46FB 0041
-46FB 0062
-46FC 0021
-46FC 003F
-46FC 0061
-46FC 0041
-46FC 0062
-46FD 0021
-46FD 003F
-46FD 0061
-46FD 0041
-46FD 0062
-46FE 0021
-46FE 003F
-46FE 0061
-46FE 0041
-46FE 0062
-46FF 0021
-46FF 003F
-46FF 0061
-46FF 0041
-46FF 0062
-4700 0021
-4700 003F
-4700 0061
-4700 0041
-4700 0062
-4701 0021
-4701 003F
-4701 0061
-4701 0041
-4701 0062
-4702 0021
-4702 003F
-4702 0061
-4702 0041
-4702 0062
-4703 0021
-4703 003F
-4703 0061
-4703 0041
-4703 0062
-4704 0021
-4704 003F
-4704 0061
-4704 0041
-4704 0062
-4705 0021
-4705 003F
-4705 0061
-4705 0041
-4705 0062
-4706 0021
-4706 003F
-4706 0061
-4706 0041
-4706 0062
-4707 0021
-4707 003F
-4707 0061
-4707 0041
-4707 0062
-4708 0021
-4708 003F
-4708 0061
-4708 0041
-4708 0062
-4709 0021
-4709 003F
-4709 0061
-4709 0041
-4709 0062
-470A 0021
-470A 003F
-470A 0061
-470A 0041
-470A 0062
-470B 0021
-470B 003F
-470B 0061
-470B 0041
-470B 0062
-470C 0021
-470C 003F
-470C 0061
-470C 0041
-470C 0062
-470D 0021
-470D 003F
-470D 0061
-470D 0041
-470D 0062
-470E 0021
-470E 003F
-470E 0061
-470E 0041
-470E 0062
-470F 0021
-470F 003F
-470F 0061
-470F 0041
-470F 0062
-4710 0021
-4710 003F
-4710 0061
-4710 0041
-4710 0062
-4711 0021
-4711 003F
-4711 0061
-4711 0041
-4711 0062
-4712 0021
-4712 003F
-4712 0061
-4712 0041
-4712 0062
-4713 0021
-4713 003F
-4713 0061
-4713 0041
-4713 0062
-4714 0021
-4714 003F
-4714 0061
-4714 0041
-4714 0062
-4715 0021
-4715 003F
-4715 0061
-4715 0041
-4715 0062
-4716 0021
-4716 003F
-4716 0061
-4716 0041
-4716 0062
-4717 0021
-4717 003F
-4717 0061
-4717 0041
-4717 0062
-4718 0021
-4718 003F
-4718 0061
-4718 0041
-4718 0062
-4719 0021
-4719 003F
-4719 0061
-4719 0041
-4719 0062
-471A 0021
-471A 003F
-471A 0061
-471A 0041
-471A 0062
-471B 0021
-471B 003F
-471B 0061
-471B 0041
-471B 0062
-471C 0021
-471C 003F
-471C 0061
-471C 0041
-471C 0062
-471D 0021
-471D 003F
-471D 0061
-471D 0041
-471D 0062
-471E 0021
-471E 003F
-471E 0061
-471E 0041
-471E 0062
-471F 0021
-471F 003F
-471F 0061
-471F 0041
-471F 0062
-4720 0021
-4720 003F
-4720 0061
-4720 0041
-4720 0062
-4721 0021
-4721 003F
-4721 0061
-4721 0041
-4721 0062
-4722 0021
-4722 003F
-4722 0061
-4722 0041
-4722 0062
-4723 0021
-4723 003F
-4723 0061
-4723 0041
-4723 0062
-4724 0021
-4724 003F
-4724 0061
-4724 0041
-4724 0062
-4725 0021
-4725 003F
-4725 0061
-4725 0041
-4725 0062
-4726 0021
-4726 003F
-4726 0061
-4726 0041
-4726 0062
-4727 0021
-4727 003F
-4727 0061
-4727 0041
-4727 0062
-4728 0021
-4728 003F
-4728 0061
-4728 0041
-4728 0062
-4729 0021
-4729 003F
-4729 0061
-4729 0041
-4729 0062
-472A 0021
-472A 003F
-472A 0061
-472A 0041
-472A 0062
-472B 0021
-472B 003F
-472B 0061
-472B 0041
-472B 0062
-472C 0021
-472C 003F
-472C 0061
-472C 0041
-472C 0062
-472D 0021
-472D 003F
-472D 0061
-472D 0041
-472D 0062
-472E 0021
-472E 003F
-472E 0061
-472E 0041
-472E 0062
-472F 0021
-472F 003F
-472F 0061
-472F 0041
-472F 0062
-4730 0021
-4730 003F
-4730 0061
-4730 0041
-4730 0062
-4731 0021
-4731 003F
-4731 0061
-4731 0041
-4731 0062
-4732 0021
-4732 003F
-4732 0061
-4732 0041
-4732 0062
-4733 0021
-4733 003F
-4733 0061
-4733 0041
-4733 0062
-4734 0021
-4734 003F
-4734 0061
-4734 0041
-4734 0062
-4735 0021
-4735 003F
-4735 0061
-4735 0041
-4735 0062
-4736 0021
-4736 003F
-4736 0061
-4736 0041
-4736 0062
-4737 0021
-4737 003F
-4737 0061
-4737 0041
-4737 0062
-4738 0021
-4738 003F
-4738 0061
-4738 0041
-4738 0062
-4739 0021
-4739 003F
-4739 0061
-4739 0041
-4739 0062
-473A 0021
-473A 003F
-473A 0061
-473A 0041
-473A 0062
-473B 0021
-473B 003F
-473B 0061
-473B 0041
-473B 0062
-473C 0021
-473C 003F
-473C 0061
-473C 0041
-473C 0062
-473D 0021
-473D 003F
-473D 0061
-473D 0041
-473D 0062
-473E 0021
-473E 003F
-473E 0061
-473E 0041
-473E 0062
-473F 0021
-473F 003F
-473F 0061
-473F 0041
-473F 0062
-4740 0021
-4740 003F
-4740 0061
-4740 0041
-4740 0062
-4741 0021
-4741 003F
-4741 0061
-4741 0041
-4741 0062
-4742 0021
-4742 003F
-4742 0061
-4742 0041
-4742 0062
-4743 0021
-4743 003F
-4743 0061
-4743 0041
-4743 0062
-4744 0021
-4744 003F
-4744 0061
-4744 0041
-4744 0062
-4745 0021
-4745 003F
-4745 0061
-4745 0041
-4745 0062
-4746 0021
-4746 003F
-4746 0061
-4746 0041
-4746 0062
-4747 0021
-4747 003F
-4747 0061
-4747 0041
-4747 0062
-4748 0021
-4748 003F
-4748 0061
-4748 0041
-4748 0062
-4749 0021
-4749 003F
-4749 0061
-4749 0041
-4749 0062
-474A 0021
-474A 003F
-474A 0061
-474A 0041
-474A 0062
-474B 0021
-474B 003F
-474B 0061
-474B 0041
-474B 0062
-474C 0021
-474C 003F
-474C 0061
-474C 0041
-474C 0062
-474D 0021
-474D 003F
-474D 0061
-474D 0041
-474D 0062
-474E 0021
-474E 003F
-474E 0061
-474E 0041
-474E 0062
-474F 0021
-474F 003F
-474F 0061
-474F 0041
-474F 0062
-4750 0021
-4750 003F
-4750 0061
-4750 0041
-4750 0062
-4751 0021
-4751 003F
-4751 0061
-4751 0041
-4751 0062
-4752 0021
-4752 003F
-4752 0061
-4752 0041
-4752 0062
-4753 0021
-4753 003F
-4753 0061
-4753 0041
-4753 0062
-4754 0021
-4754 003F
-4754 0061
-4754 0041
-4754 0062
-4755 0021
-4755 003F
-4755 0061
-4755 0041
-4755 0062
-4756 0021
-4756 003F
-4756 0061
-4756 0041
-4756 0062
-4757 0021
-4757 003F
-4757 0061
-4757 0041
-4757 0062
-4758 0021
-4758 003F
-4758 0061
-4758 0041
-4758 0062
-4759 0021
-4759 003F
-4759 0061
-4759 0041
-4759 0062
-475A 0021
-475A 003F
-475A 0061
-475A 0041
-475A 0062
-475B 0021
-475B 003F
-475B 0061
-475B 0041
-475B 0062
-475C 0021
-475C 003F
-475C 0061
-475C 0041
-475C 0062
-475D 0021
-475D 003F
-475D 0061
-475D 0041
-475D 0062
-475E 0021
-475E 003F
-475E 0061
-475E 0041
-475E 0062
-475F 0021
-475F 003F
-475F 0061
-475F 0041
-475F 0062
-4760 0021
-4760 003F
-4760 0061
-4760 0041
-4760 0062
-4761 0021
-4761 003F
-4761 0061
-4761 0041
-4761 0062
-4762 0021
-4762 003F
-4762 0061
-4762 0041
-4762 0062
-4763 0021
-4763 003F
-4763 0061
-4763 0041
-4763 0062
-4764 0021
-4764 003F
-4764 0061
-4764 0041
-4764 0062
-4765 0021
-4765 003F
-4765 0061
-4765 0041
-4765 0062
-4766 0021
-4766 003F
-4766 0061
-4766 0041
-4766 0062
-4767 0021
-4767 003F
-4767 0061
-4767 0041
-4767 0062
-4768 0021
-4768 003F
-4768 0061
-4768 0041
-4768 0062
-4769 0021
-4769 003F
-4769 0061
-4769 0041
-4769 0062
-476A 0021
-476A 003F
-476A 0061
-476A 0041
-476A 0062
-476B 0021
-476B 003F
-476B 0061
-476B 0041
-476B 0062
-476C 0021
-476C 003F
-476C 0061
-476C 0041
-476C 0062
-476D 0021
-476D 003F
-476D 0061
-476D 0041
-476D 0062
-476E 0021
-476E 003F
-476E 0061
-476E 0041
-476E 0062
-476F 0021
-476F 003F
-476F 0061
-476F 0041
-476F 0062
-4770 0021
-4770 003F
-4770 0061
-4770 0041
-4770 0062
-4771 0021
-4771 003F
-4771 0061
-4771 0041
-4771 0062
-4772 0021
-4772 003F
-4772 0061
-4772 0041
-4772 0062
-4773 0021
-4773 003F
-4773 0061
-4773 0041
-4773 0062
-4774 0021
-4774 003F
-4774 0061
-4774 0041
-4774 0062
-4775 0021
-4775 003F
-4775 0061
-4775 0041
-4775 0062
-4776 0021
-4776 003F
-4776 0061
-4776 0041
-4776 0062
-4777 0021
-4777 003F
-4777 0061
-4777 0041
-4777 0062
-4778 0021
-4778 003F
-4778 0061
-4778 0041
-4778 0062
-4779 0021
-4779 003F
-4779 0061
-4779 0041
-4779 0062
-477A 0021
-477A 003F
-477A 0061
-477A 0041
-477A 0062
-477B 0021
-477B 003F
-477B 0061
-477B 0041
-477B 0062
-477C 0021
-477C 003F
-477C 0061
-477C 0041
-477C 0062
-477D 0021
-477D 003F
-477D 0061
-477D 0041
-477D 0062
-477E 0021
-477E 003F
-477E 0061
-477E 0041
-477E 0062
-477F 0021
-477F 003F
-477F 0061
-477F 0041
-477F 0062
-4780 0021
-4780 003F
-4780 0061
-4780 0041
-4780 0062
-4781 0021
-4781 003F
-4781 0061
-4781 0041
-4781 0062
-4782 0021
-4782 003F
-4782 0061
-4782 0041
-4782 0062
-4783 0021
-4783 003F
-4783 0061
-4783 0041
-4783 0062
-4784 0021
-4784 003F
-4784 0061
-4784 0041
-4784 0062
-4785 0021
-4785 003F
-4785 0061
-4785 0041
-4785 0062
-4786 0021
-4786 003F
-4786 0061
-4786 0041
-4786 0062
-4787 0021
-4787 003F
-4787 0061
-4787 0041
-4787 0062
-4788 0021
-4788 003F
-4788 0061
-4788 0041
-4788 0062
-4789 0021
-4789 003F
-4789 0061
-4789 0041
-4789 0062
-478A 0021
-478A 003F
-478A 0061
-478A 0041
-478A 0062
-478B 0021
-478B 003F
-478B 0061
-478B 0041
-478B 0062
-478C 0021
-478C 003F
-478C 0061
-478C 0041
-478C 0062
-478D 0021
-478D 003F
-478D 0061
-478D 0041
-478D 0062
-478E 0021
-478E 003F
-478E 0061
-478E 0041
-478E 0062
-478F 0021
-478F 003F
-478F 0061
-478F 0041
-478F 0062
-4790 0021
-4790 003F
-4790 0061
-4790 0041
-4790 0062
-4791 0021
-4791 003F
-4791 0061
-4791 0041
-4791 0062
-4792 0021
-4792 003F
-4792 0061
-4792 0041
-4792 0062
-4793 0021
-4793 003F
-4793 0061
-4793 0041
-4793 0062
-4794 0021
-4794 003F
-4794 0061
-4794 0041
-4794 0062
-4795 0021
-4795 003F
-4795 0061
-4795 0041
-4795 0062
-4796 0021
-4796 003F
-4796 0061
-4796 0041
-4796 0062
-4797 0021
-4797 003F
-4797 0061
-4797 0041
-4797 0062
-4798 0021
-4798 003F
-4798 0061
-4798 0041
-4798 0062
-4799 0021
-4799 003F
-4799 0061
-4799 0041
-4799 0062
-479A 0021
-479A 003F
-479A 0061
-479A 0041
-479A 0062
-479B 0021
-479B 003F
-479B 0061
-479B 0041
-479B 0062
-479C 0021
-479C 003F
-479C 0061
-479C 0041
-479C 0062
-479D 0021
-479D 003F
-479D 0061
-479D 0041
-479D 0062
-479E 0021
-479E 003F
-479E 0061
-479E 0041
-479E 0062
-479F 0021
-479F 003F
-479F 0061
-479F 0041
-479F 0062
-47A0 0021
-47A0 003F
-47A0 0061
-47A0 0041
-47A0 0062
-47A1 0021
-47A1 003F
-47A1 0061
-47A1 0041
-47A1 0062
-47A2 0021
-47A2 003F
-47A2 0061
-47A2 0041
-47A2 0062
-47A3 0021
-47A3 003F
-47A3 0061
-47A3 0041
-47A3 0062
-47A4 0021
-47A4 003F
-47A4 0061
-47A4 0041
-47A4 0062
-47A5 0021
-47A5 003F
-47A5 0061
-47A5 0041
-47A5 0062
-47A6 0021
-47A6 003F
-47A6 0061
-47A6 0041
-47A6 0062
-47A7 0021
-47A7 003F
-47A7 0061
-47A7 0041
-47A7 0062
-47A8 0021
-47A8 003F
-47A8 0061
-47A8 0041
-47A8 0062
-47A9 0021
-47A9 003F
-47A9 0061
-47A9 0041
-47A9 0062
-47AA 0021
-47AA 003F
-47AA 0061
-47AA 0041
-47AA 0062
-47AB 0021
-47AB 003F
-47AB 0061
-47AB 0041
-47AB 0062
-47AC 0021
-47AC 003F
-47AC 0061
-47AC 0041
-47AC 0062
-47AD 0021
-47AD 003F
-47AD 0061
-47AD 0041
-47AD 0062
-47AE 0021
-47AE 003F
-47AE 0061
-47AE 0041
-47AE 0062
-47AF 0021
-47AF 003F
-47AF 0061
-47AF 0041
-47AF 0062
-47B0 0021
-47B0 003F
-47B0 0061
-47B0 0041
-47B0 0062
-47B1 0021
-47B1 003F
-47B1 0061
-47B1 0041
-47B1 0062
-47B2 0021
-47B2 003F
-47B2 0061
-47B2 0041
-47B2 0062
-47B3 0021
-47B3 003F
-47B3 0061
-47B3 0041
-47B3 0062
-47B4 0021
-47B4 003F
-47B4 0061
-47B4 0041
-47B4 0062
-47B5 0021
-47B5 003F
-47B5 0061
-47B5 0041
-47B5 0062
-47B6 0021
-47B6 003F
-47B6 0061
-47B6 0041
-47B6 0062
-47B7 0021
-47B7 003F
-47B7 0061
-47B7 0041
-47B7 0062
-47B8 0021
-47B8 003F
-47B8 0061
-47B8 0041
-47B8 0062
-47B9 0021
-47B9 003F
-47B9 0061
-47B9 0041
-47B9 0062
-47BA 0021
-47BA 003F
-47BA 0061
-47BA 0041
-47BA 0062
-47BB 0021
-47BB 003F
-47BB 0061
-47BB 0041
-47BB 0062
-47BC 0021
-47BC 003F
-47BC 0061
-47BC 0041
-47BC 0062
-47BD 0021
-47BD 003F
-47BD 0061
-47BD 0041
-47BD 0062
-47BE 0021
-47BE 003F
-47BE 0061
-47BE 0041
-47BE 0062
-47BF 0021
-47BF 003F
-47BF 0061
-47BF 0041
-47BF 0062
-47C0 0021
-47C0 003F
-47C0 0061
-47C0 0041
-47C0 0062
-47C1 0021
-47C1 003F
-47C1 0061
-47C1 0041
-47C1 0062
-47C2 0021
-47C2 003F
-47C2 0061
-47C2 0041
-47C2 0062
-47C3 0021
-47C3 003F
-47C3 0061
-47C3 0041
-47C3 0062
-47C4 0021
-47C4 003F
-47C4 0061
-47C4 0041
-47C4 0062
-47C5 0021
-47C5 003F
-47C5 0061
-47C5 0041
-47C5 0062
-47C6 0021
-47C6 003F
-47C6 0061
-47C6 0041
-47C6 0062
-47C7 0021
-47C7 003F
-47C7 0061
-47C7 0041
-47C7 0062
-47C8 0021
-47C8 003F
-47C8 0061
-47C8 0041
-47C8 0062
-47C9 0021
-47C9 003F
-47C9 0061
-47C9 0041
-47C9 0062
-47CA 0021
-47CA 003F
-47CA 0061
-47CA 0041
-47CA 0062
-47CB 0021
-47CB 003F
-47CB 0061
-47CB 0041
-47CB 0062
-47CC 0021
-47CC 003F
-47CC 0061
-47CC 0041
-47CC 0062
-47CD 0021
-47CD 003F
-47CD 0061
-47CD 0041
-47CD 0062
-47CE 0021
-47CE 003F
-47CE 0061
-47CE 0041
-47CE 0062
-47CF 0021
-47CF 003F
-47CF 0061
-47CF 0041
-47CF 0062
-47D0 0021
-47D0 003F
-47D0 0061
-47D0 0041
-47D0 0062
-47D1 0021
-47D1 003F
-47D1 0061
-47D1 0041
-47D1 0062
-47D2 0021
-47D2 003F
-47D2 0061
-47D2 0041
-47D2 0062
-47D3 0021
-47D3 003F
-47D3 0061
-47D3 0041
-47D3 0062
-47D4 0021
-47D4 003F
-47D4 0061
-47D4 0041
-47D4 0062
-47D5 0021
-47D5 003F
-47D5 0061
-47D5 0041
-47D5 0062
-47D6 0021
-47D6 003F
-47D6 0061
-47D6 0041
-47D6 0062
-47D7 0021
-47D7 003F
-47D7 0061
-47D7 0041
-47D7 0062
-47D8 0021
-47D8 003F
-47D8 0061
-47D8 0041
-47D8 0062
-47D9 0021
-47D9 003F
-47D9 0061
-47D9 0041
-47D9 0062
-47DA 0021
-47DA 003F
-47DA 0061
-47DA 0041
-47DA 0062
-47DB 0021
-47DB 003F
-47DB 0061
-47DB 0041
-47DB 0062
-47DC 0021
-47DC 003F
-47DC 0061
-47DC 0041
-47DC 0062
-47DD 0021
-47DD 003F
-47DD 0061
-47DD 0041
-47DD 0062
-47DE 0021
-47DE 003F
-47DE 0061
-47DE 0041
-47DE 0062
-47DF 0021
-47DF 003F
-47DF 0061
-47DF 0041
-47DF 0062
-47E0 0021
-47E0 003F
-47E0 0061
-47E0 0041
-47E0 0062
-47E1 0021
-47E1 003F
-47E1 0061
-47E1 0041
-47E1 0062
-47E2 0021
-47E2 003F
-47E2 0061
-47E2 0041
-47E2 0062
-47E3 0021
-47E3 003F
-47E3 0061
-47E3 0041
-47E3 0062
-47E4 0021
-47E4 003F
-47E4 0061
-47E4 0041
-47E4 0062
-47E5 0021
-47E5 003F
-47E5 0061
-47E5 0041
-47E5 0062
-47E6 0021
-47E6 003F
-47E6 0061
-47E6 0041
-47E6 0062
-47E7 0021
-47E7 003F
-47E7 0061
-47E7 0041
-47E7 0062
-47E8 0021
-47E8 003F
-47E8 0061
-47E8 0041
-47E8 0062
-47E9 0021
-47E9 003F
-47E9 0061
-47E9 0041
-47E9 0062
-47EA 0021
-47EA 003F
-47EA 0061
-47EA 0041
-47EA 0062
-47EB 0021
-47EB 003F
-47EB 0061
-47EB 0041
-47EB 0062
-47EC 0021
-47EC 003F
-47EC 0061
-47EC 0041
-47EC 0062
-47ED 0021
-47ED 003F
-47ED 0061
-47ED 0041
-47ED 0062
-47EE 0021
-47EE 003F
-47EE 0061
-47EE 0041
-47EE 0062
-47EF 0021
-47EF 003F
-47EF 0061
-47EF 0041
-47EF 0062
-47F0 0021
-47F0 003F
-47F0 0061
-47F0 0041
-47F0 0062
-47F1 0021
-47F1 003F
-47F1 0061
-47F1 0041
-47F1 0062
-47F2 0021
-47F2 003F
-47F2 0061
-47F2 0041
-47F2 0062
-47F3 0021
-47F3 003F
-47F3 0061
-47F3 0041
-47F3 0062
-47F4 0021
-47F4 003F
-47F4 0061
-47F4 0041
-47F4 0062
-47F5 0021
-47F5 003F
-47F5 0061
-47F5 0041
-47F5 0062
-47F6 0021
-47F6 003F
-47F6 0061
-47F6 0041
-47F6 0062
-47F7 0021
-47F7 003F
-47F7 0061
-47F7 0041
-47F7 0062
-47F8 0021
-47F8 003F
-47F8 0061
-47F8 0041
-47F8 0062
-47F9 0021
-47F9 003F
-47F9 0061
-47F9 0041
-47F9 0062
-47FA 0021
-47FA 003F
-47FA 0061
-47FA 0041
-47FA 0062
-47FB 0021
-47FB 003F
-47FB 0061
-47FB 0041
-47FB 0062
-47FC 0021
-47FC 003F
-47FC 0061
-47FC 0041
-47FC 0062
-47FD 0021
-47FD 003F
-47FD 0061
-47FD 0041
-47FD 0062
-47FE 0021
-47FE 003F
-47FE 0061
-47FE 0041
-47FE 0062
-47FF 0021
-47FF 003F
-47FF 0061
-47FF 0041
-47FF 0062
-4800 0021
-4800 003F
-4800 0061
-4800 0041
-4800 0062
-4801 0021
-4801 003F
-4801 0061
-4801 0041
-4801 0062
-4802 0021
-4802 003F
-4802 0061
-4802 0041
-4802 0062
-4803 0021
-4803 003F
-4803 0061
-4803 0041
-4803 0062
-4804 0021
-4804 003F
-4804 0061
-4804 0041
-4804 0062
-4805 0021
-4805 003F
-4805 0061
-4805 0041
-4805 0062
-4806 0021
-4806 003F
-4806 0061
-4806 0041
-4806 0062
-4807 0021
-4807 003F
-4807 0061
-4807 0041
-4807 0062
-4808 0021
-4808 003F
-4808 0061
-4808 0041
-4808 0062
-4809 0021
-4809 003F
-4809 0061
-4809 0041
-4809 0062
-480A 0021
-480A 003F
-480A 0061
-480A 0041
-480A 0062
-480B 0021
-480B 003F
-480B 0061
-480B 0041
-480B 0062
-480C 0021
-480C 003F
-480C 0061
-480C 0041
-480C 0062
-480D 0021
-480D 003F
-480D 0061
-480D 0041
-480D 0062
-480E 0021
-480E 003F
-480E 0061
-480E 0041
-480E 0062
-480F 0021
-480F 003F
-480F 0061
-480F 0041
-480F 0062
-4810 0021
-4810 003F
-4810 0061
-4810 0041
-4810 0062
-4811 0021
-4811 003F
-4811 0061
-4811 0041
-4811 0062
-4812 0021
-4812 003F
-4812 0061
-4812 0041
-4812 0062
-4813 0021
-4813 003F
-4813 0061
-4813 0041
-4813 0062
-4814 0021
-4814 003F
-4814 0061
-4814 0041
-4814 0062
-4815 0021
-4815 003F
-4815 0061
-4815 0041
-4815 0062
-4816 0021
-4816 003F
-4816 0061
-4816 0041
-4816 0062
-4817 0021
-4817 003F
-4817 0061
-4817 0041
-4817 0062
-4818 0021
-4818 003F
-4818 0061
-4818 0041
-4818 0062
-4819 0021
-4819 003F
-4819 0061
-4819 0041
-4819 0062
-481A 0021
-481A 003F
-481A 0061
-481A 0041
-481A 0062
-481B 0021
-481B 003F
-481B 0061
-481B 0041
-481B 0062
-481C 0021
-481C 003F
-481C 0061
-481C 0041
-481C 0062
-481D 0021
-481D 003F
-481D 0061
-481D 0041
-481D 0062
-481E 0021
-481E 003F
-481E 0061
-481E 0041
-481E 0062
-481F 0021
-481F 003F
-481F 0061
-481F 0041
-481F 0062
-4820 0021
-4820 003F
-4820 0061
-4820 0041
-4820 0062
-4821 0021
-4821 003F
-4821 0061
-4821 0041
-4821 0062
-4822 0021
-4822 003F
-4822 0061
-4822 0041
-4822 0062
-4823 0021
-4823 003F
-4823 0061
-4823 0041
-4823 0062
-4824 0021
-4824 003F
-4824 0061
-4824 0041
-4824 0062
-4825 0021
-4825 003F
-4825 0061
-4825 0041
-4825 0062
-4826 0021
-4826 003F
-4826 0061
-4826 0041
-4826 0062
-4827 0021
-4827 003F
-4827 0061
-4827 0041
-4827 0062
-4828 0021
-4828 003F
-4828 0061
-4828 0041
-4828 0062
-4829 0021
-4829 003F
-4829 0061
-4829 0041
-4829 0062
-482A 0021
-482A 003F
-482A 0061
-482A 0041
-482A 0062
-482B 0021
-482B 003F
-482B 0061
-482B 0041
-482B 0062
-482C 0021
-482C 003F
-482C 0061
-482C 0041
-482C 0062
-482D 0021
-482D 003F
-482D 0061
-482D 0041
-482D 0062
-482E 0021
-482E 003F
-482E 0061
-482E 0041
-482E 0062
-482F 0021
-482F 003F
-482F 0061
-482F 0041
-482F 0062
-4830 0021
-4830 003F
-4830 0061
-4830 0041
-4830 0062
-4831 0021
-4831 003F
-4831 0061
-4831 0041
-4831 0062
-4832 0021
-4832 003F
-4832 0061
-4832 0041
-4832 0062
-4833 0021
-4833 003F
-4833 0061
-4833 0041
-4833 0062
-4834 0021
-4834 003F
-4834 0061
-4834 0041
-4834 0062
-4835 0021
-4835 003F
-4835 0061
-4835 0041
-4835 0062
-4836 0021
-4836 003F
-4836 0061
-4836 0041
-4836 0062
-4837 0021
-4837 003F
-4837 0061
-4837 0041
-4837 0062
-4838 0021
-4838 003F
-4838 0061
-4838 0041
-4838 0062
-4839 0021
-4839 003F
-4839 0061
-4839 0041
-4839 0062
-483A 0021
-483A 003F
-483A 0061
-483A 0041
-483A 0062
-483B 0021
-483B 003F
-483B 0061
-483B 0041
-483B 0062
-483C 0021
-483C 003F
-483C 0061
-483C 0041
-483C 0062
-483D 0021
-483D 003F
-483D 0061
-483D 0041
-483D 0062
-483E 0021
-483E 003F
-483E 0061
-483E 0041
-483E 0062
-483F 0021
-483F 003F
-483F 0061
-483F 0041
-483F 0062
-4840 0021
-4840 003F
-4840 0061
-4840 0041
-4840 0062
-4841 0021
-4841 003F
-4841 0061
-4841 0041
-4841 0062
-4842 0021
-4842 003F
-4842 0061
-4842 0041
-4842 0062
-4843 0021
-4843 003F
-4843 0061
-4843 0041
-4843 0062
-4844 0021
-4844 003F
-4844 0061
-4844 0041
-4844 0062
-4845 0021
-4845 003F
-4845 0061
-4845 0041
-4845 0062
-4846 0021
-4846 003F
-4846 0061
-4846 0041
-4846 0062
-4847 0021
-4847 003F
-4847 0061
-4847 0041
-4847 0062
-4848 0021
-4848 003F
-4848 0061
-4848 0041
-4848 0062
-4849 0021
-4849 003F
-4849 0061
-4849 0041
-4849 0062
-484A 0021
-484A 003F
-484A 0061
-484A 0041
-484A 0062
-484B 0021
-484B 003F
-484B 0061
-484B 0041
-484B 0062
-484C 0021
-484C 003F
-484C 0061
-484C 0041
-484C 0062
-484D 0021
-484D 003F
-484D 0061
-484D 0041
-484D 0062
-484E 0021
-484E 003F
-484E 0061
-484E 0041
-484E 0062
-484F 0021
-484F 003F
-484F 0061
-484F 0041
-484F 0062
-4850 0021
-4850 003F
-4850 0061
-4850 0041
-4850 0062
-4851 0021
-4851 003F
-4851 0061
-4851 0041
-4851 0062
-4852 0021
-4852 003F
-4852 0061
-4852 0041
-4852 0062
-4853 0021
-4853 003F
-4853 0061
-4853 0041
-4853 0062
-4854 0021
-4854 003F
-4854 0061
-4854 0041
-4854 0062
-4855 0021
-4855 003F
-4855 0061
-4855 0041
-4855 0062
-4856 0021
-4856 003F
-4856 0061
-4856 0041
-4856 0062
-4857 0021
-4857 003F
-4857 0061
-4857 0041
-4857 0062
-4858 0021
-4858 003F
-4858 0061
-4858 0041
-4858 0062
-4859 0021
-4859 003F
-4859 0061
-4859 0041
-4859 0062
-485A 0021
-485A 003F
-485A 0061
-485A 0041
-485A 0062
-485B 0021
-485B 003F
-485B 0061
-485B 0041
-485B 0062
-485C 0021
-485C 003F
-485C 0061
-485C 0041
-485C 0062
-485D 0021
-485D 003F
-485D 0061
-485D 0041
-485D 0062
-485E 0021
-485E 003F
-485E 0061
-485E 0041
-485E 0062
-485F 0021
-485F 003F
-485F 0061
-485F 0041
-485F 0062
-4860 0021
-4860 003F
-4860 0061
-4860 0041
-4860 0062
-4861 0021
-4861 003F
-4861 0061
-4861 0041
-4861 0062
-4862 0021
-4862 003F
-4862 0061
-4862 0041
-4862 0062
-4863 0021
-4863 003F
-4863 0061
-4863 0041
-4863 0062
-4864 0021
-4864 003F
-4864 0061
-4864 0041
-4864 0062
-4865 0021
-4865 003F
-4865 0061
-4865 0041
-4865 0062
-4866 0021
-4866 003F
-4866 0061
-4866 0041
-4866 0062
-4867 0021
-4867 003F
-4867 0061
-4867 0041
-4867 0062
-4868 0021
-4868 003F
-4868 0061
-4868 0041
-4868 0062
-4869 0021
-4869 003F
-4869 0061
-4869 0041
-4869 0062
-486A 0021
-486A 003F
-486A 0061
-486A 0041
-486A 0062
-486B 0021
-486B 003F
-486B 0061
-486B 0041
-486B 0062
-486C 0021
-486C 003F
-486C 0061
-486C 0041
-486C 0062
-486D 0021
-486D 003F
-486D 0061
-486D 0041
-486D 0062
-486E 0021
-486E 003F
-486E 0061
-486E 0041
-486E 0062
-486F 0021
-486F 003F
-486F 0061
-486F 0041
-486F 0062
-4870 0021
-4870 003F
-4870 0061
-4870 0041
-4870 0062
-4871 0021
-4871 003F
-4871 0061
-4871 0041
-4871 0062
-4872 0021
-4872 003F
-4872 0061
-4872 0041
-4872 0062
-4873 0021
-4873 003F
-4873 0061
-4873 0041
-4873 0062
-4874 0021
-4874 003F
-4874 0061
-4874 0041
-4874 0062
-4875 0021
-4875 003F
-4875 0061
-4875 0041
-4875 0062
-4876 0021
-4876 003F
-4876 0061
-4876 0041
-4876 0062
-4877 0021
-4877 003F
-4877 0061
-4877 0041
-4877 0062
-4878 0021
-4878 003F
-4878 0061
-4878 0041
-4878 0062
-4879 0021
-4879 003F
-4879 0061
-4879 0041
-4879 0062
-487A 0021
-487A 003F
-487A 0061
-487A 0041
-487A 0062
-487B 0021
-487B 003F
-487B 0061
-487B 0041
-487B 0062
-487C 0021
-487C 003F
-487C 0061
-487C 0041
-487C 0062
-487D 0021
-487D 003F
-487D 0061
-487D 0041
-487D 0062
-487E 0021
-487E 003F
-487E 0061
-487E 0041
-487E 0062
-487F 0021
-487F 003F
-487F 0061
-487F 0041
-487F 0062
-4880 0021
-4880 003F
-4880 0061
-4880 0041
-4880 0062
-4881 0021
-4881 003F
-4881 0061
-4881 0041
-4881 0062
-4882 0021
-4882 003F
-4882 0061
-4882 0041
-4882 0062
-4883 0021
-4883 003F
-4883 0061
-4883 0041
-4883 0062
-4884 0021
-4884 003F
-4884 0061
-4884 0041
-4884 0062
-4885 0021
-4885 003F
-4885 0061
-4885 0041
-4885 0062
-4886 0021
-4886 003F
-4886 0061
-4886 0041
-4886 0062
-4887 0021
-4887 003F
-4887 0061
-4887 0041
-4887 0062
-4888 0021
-4888 003F
-4888 0061
-4888 0041
-4888 0062
-4889 0021
-4889 003F
-4889 0061
-4889 0041
-4889 0062
-488A 0021
-488A 003F
-488A 0061
-488A 0041
-488A 0062
-488B 0021
-488B 003F
-488B 0061
-488B 0041
-488B 0062
-488C 0021
-488C 003F
-488C 0061
-488C 0041
-488C 0062
-488D 0021
-488D 003F
-488D 0061
-488D 0041
-488D 0062
-488E 0021
-488E 003F
-488E 0061
-488E 0041
-488E 0062
-488F 0021
-488F 003F
-488F 0061
-488F 0041
-488F 0062
-4890 0021
-4890 003F
-4890 0061
-4890 0041
-4890 0062
-4891 0021
-4891 003F
-4891 0061
-4891 0041
-4891 0062
-4892 0021
-4892 003F
-4892 0061
-4892 0041
-4892 0062
-4893 0021
-4893 003F
-4893 0061
-4893 0041
-4893 0062
-4894 0021
-4894 003F
-4894 0061
-4894 0041
-4894 0062
-4895 0021
-4895 003F
-4895 0061
-4895 0041
-4895 0062
-4896 0021
-4896 003F
-4896 0061
-4896 0041
-4896 0062
-4897 0021
-4897 003F
-4897 0061
-4897 0041
-4897 0062
-4898 0021
-4898 003F
-4898 0061
-4898 0041
-4898 0062
-4899 0021
-4899 003F
-4899 0061
-4899 0041
-4899 0062
-489A 0021
-489A 003F
-489A 0061
-489A 0041
-489A 0062
-489B 0021
-489B 003F
-489B 0061
-489B 0041
-489B 0062
-489C 0021
-489C 003F
-489C 0061
-489C 0041
-489C 0062
-489D 0021
-489D 003F
-489D 0061
-489D 0041
-489D 0062
-489E 0021
-489E 003F
-489E 0061
-489E 0041
-489E 0062
-489F 0021
-489F 003F
-489F 0061
-489F 0041
-489F 0062
-48A0 0021
-48A0 003F
-48A0 0061
-48A0 0041
-48A0 0062
-48A1 0021
-48A1 003F
-48A1 0061
-48A1 0041
-48A1 0062
-48A2 0021
-48A2 003F
-48A2 0061
-48A2 0041
-48A2 0062
-48A3 0021
-48A3 003F
-48A3 0061
-48A3 0041
-48A3 0062
-48A4 0021
-48A4 003F
-48A4 0061
-48A4 0041
-48A4 0062
-48A5 0021
-48A5 003F
-48A5 0061
-48A5 0041
-48A5 0062
-48A6 0021
-48A6 003F
-48A6 0061
-48A6 0041
-48A6 0062
-48A7 0021
-48A7 003F
-48A7 0061
-48A7 0041
-48A7 0062
-48A8 0021
-48A8 003F
-48A8 0061
-48A8 0041
-48A8 0062
-48A9 0021
-48A9 003F
-48A9 0061
-48A9 0041
-48A9 0062
-48AA 0021
-48AA 003F
-48AA 0061
-48AA 0041
-48AA 0062
-48AB 0021
-48AB 003F
-48AB 0061
-48AB 0041
-48AB 0062
-48AC 0021
-48AC 003F
-48AC 0061
-48AC 0041
-48AC 0062
-48AD 0021
-48AD 003F
-48AD 0061
-48AD 0041
-48AD 0062
-48AE 0021
-48AE 003F
-48AE 0061
-48AE 0041
-48AE 0062
-48AF 0021
-48AF 003F
-48AF 0061
-48AF 0041
-48AF 0062
-48B0 0021
-48B0 003F
-48B0 0061
-48B0 0041
-48B0 0062
-48B1 0021
-48B1 003F
-48B1 0061
-48B1 0041
-48B1 0062
-48B2 0021
-48B2 003F
-48B2 0061
-48B2 0041
-48B2 0062
-48B3 0021
-48B3 003F
-48B3 0061
-48B3 0041
-48B3 0062
-48B4 0021
-48B4 003F
-48B4 0061
-48B4 0041
-48B4 0062
-48B5 0021
-48B5 003F
-48B5 0061
-48B5 0041
-48B5 0062
-48B6 0021
-48B6 003F
-48B6 0061
-48B6 0041
-48B6 0062
-48B7 0021
-48B7 003F
-48B7 0061
-48B7 0041
-48B7 0062
-48B8 0021
-48B8 003F
-48B8 0061
-48B8 0041
-48B8 0062
-48B9 0021
-48B9 003F
-48B9 0061
-48B9 0041
-48B9 0062
-48BA 0021
-48BA 003F
-48BA 0061
-48BA 0041
-48BA 0062
-48BB 0021
-48BB 003F
-48BB 0061
-48BB 0041
-48BB 0062
-48BC 0021
-48BC 003F
-48BC 0061
-48BC 0041
-48BC 0062
-48BD 0021
-48BD 003F
-48BD 0061
-48BD 0041
-48BD 0062
-48BE 0021
-48BE 003F
-48BE 0061
-48BE 0041
-48BE 0062
-48BF 0021
-48BF 003F
-48BF 0061
-48BF 0041
-48BF 0062
-48C0 0021
-48C0 003F
-48C0 0061
-48C0 0041
-48C0 0062
-48C1 0021
-48C1 003F
-48C1 0061
-48C1 0041
-48C1 0062
-48C2 0021
-48C2 003F
-48C2 0061
-48C2 0041
-48C2 0062
-48C3 0021
-48C3 003F
-48C3 0061
-48C3 0041
-48C3 0062
-48C4 0021
-48C4 003F
-48C4 0061
-48C4 0041
-48C4 0062
-48C5 0021
-48C5 003F
-48C5 0061
-48C5 0041
-48C5 0062
-48C6 0021
-48C6 003F
-48C6 0061
-48C6 0041
-48C6 0062
-48C7 0021
-48C7 003F
-48C7 0061
-48C7 0041
-48C7 0062
-48C8 0021
-48C8 003F
-48C8 0061
-48C8 0041
-48C8 0062
-48C9 0021
-48C9 003F
-48C9 0061
-48C9 0041
-48C9 0062
-48CA 0021
-48CA 003F
-48CA 0061
-48CA 0041
-48CA 0062
-48CB 0021
-48CB 003F
-48CB 0061
-48CB 0041
-48CB 0062
-48CC 0021
-48CC 003F
-48CC 0061
-48CC 0041
-48CC 0062
-48CD 0021
-48CD 003F
-48CD 0061
-48CD 0041
-48CD 0062
-48CE 0021
-48CE 003F
-48CE 0061
-48CE 0041
-48CE 0062
-48CF 0021
-48CF 003F
-48CF 0061
-48CF 0041
-48CF 0062
-48D0 0021
-48D0 003F
-48D0 0061
-48D0 0041
-48D0 0062
-48D1 0021
-48D1 003F
-48D1 0061
-48D1 0041
-48D1 0062
-48D2 0021
-48D2 003F
-48D2 0061
-48D2 0041
-48D2 0062
-48D3 0021
-48D3 003F
-48D3 0061
-48D3 0041
-48D3 0062
-48D4 0021
-48D4 003F
-48D4 0061
-48D4 0041
-48D4 0062
-48D5 0021
-48D5 003F
-48D5 0061
-48D5 0041
-48D5 0062
-48D6 0021
-48D6 003F
-48D6 0061
-48D6 0041
-48D6 0062
-48D7 0021
-48D7 003F
-48D7 0061
-48D7 0041
-48D7 0062
-48D8 0021
-48D8 003F
-48D8 0061
-48D8 0041
-48D8 0062
-48D9 0021
-48D9 003F
-48D9 0061
-48D9 0041
-48D9 0062
-48DA 0021
-48DA 003F
-48DA 0061
-48DA 0041
-48DA 0062
-48DB 0021
-48DB 003F
-48DB 0061
-48DB 0041
-48DB 0062
-48DC 0021
-48DC 003F
-48DC 0061
-48DC 0041
-48DC 0062
-48DD 0021
-48DD 003F
-48DD 0061
-48DD 0041
-48DD 0062
-48DE 0021
-48DE 003F
-48DE 0061
-48DE 0041
-48DE 0062
-48DF 0021
-48DF 003F
-48DF 0061
-48DF 0041
-48DF 0062
-48E0 0021
-48E0 003F
-48E0 0061
-48E0 0041
-48E0 0062
-48E1 0021
-48E1 003F
-48E1 0061
-48E1 0041
-48E1 0062
-48E2 0021
-48E2 003F
-48E2 0061
-48E2 0041
-48E2 0062
-48E3 0021
-48E3 003F
-48E3 0061
-48E3 0041
-48E3 0062
-48E4 0021
-48E4 003F
-48E4 0061
-48E4 0041
-48E4 0062
-48E5 0021
-48E5 003F
-48E5 0061
-48E5 0041
-48E5 0062
-48E6 0021
-48E6 003F
-48E6 0061
-48E6 0041
-48E6 0062
-48E7 0021
-48E7 003F
-48E7 0061
-48E7 0041
-48E7 0062
-48E8 0021
-48E8 003F
-48E8 0061
-48E8 0041
-48E8 0062
-48E9 0021
-48E9 003F
-48E9 0061
-48E9 0041
-48E9 0062
-48EA 0021
-48EA 003F
-48EA 0061
-48EA 0041
-48EA 0062
-48EB 0021
-48EB 003F
-48EB 0061
-48EB 0041
-48EB 0062
-48EC 0021
-48EC 003F
-48EC 0061
-48EC 0041
-48EC 0062
-48ED 0021
-48ED 003F
-48ED 0061
-48ED 0041
-48ED 0062
-48EE 0021
-48EE 003F
-48EE 0061
-48EE 0041
-48EE 0062
-48EF 0021
-48EF 003F
-48EF 0061
-48EF 0041
-48EF 0062
-48F0 0021
-48F0 003F
-48F0 0061
-48F0 0041
-48F0 0062
-48F1 0021
-48F1 003F
-48F1 0061
-48F1 0041
-48F1 0062
-48F2 0021
-48F2 003F
-48F2 0061
-48F2 0041
-48F2 0062
-48F3 0021
-48F3 003F
-48F3 0061
-48F3 0041
-48F3 0062
-48F4 0021
-48F4 003F
-48F4 0061
-48F4 0041
-48F4 0062
-48F5 0021
-48F5 003F
-48F5 0061
-48F5 0041
-48F5 0062
-48F6 0021
-48F6 003F
-48F6 0061
-48F6 0041
-48F6 0062
-48F7 0021
-48F7 003F
-48F7 0061
-48F7 0041
-48F7 0062
-48F8 0021
-48F8 003F
-48F8 0061
-48F8 0041
-48F8 0062
-48F9 0021
-48F9 003F
-48F9 0061
-48F9 0041
-48F9 0062
-48FA 0021
-48FA 003F
-48FA 0061
-48FA 0041
-48FA 0062
-48FB 0021
-48FB 003F
-48FB 0061
-48FB 0041
-48FB 0062
-48FC 0021
-48FC 003F
-48FC 0061
-48FC 0041
-48FC 0062
-48FD 0021
-48FD 003F
-48FD 0061
-48FD 0041
-48FD 0062
-48FE 0021
-48FE 003F
-48FE 0061
-48FE 0041
-48FE 0062
-48FF 0021
-48FF 003F
-48FF 0061
-48FF 0041
-48FF 0062
-4900 0021
-4900 003F
-4900 0061
-4900 0041
-4900 0062
-4901 0021
-4901 003F
-4901 0061
-4901 0041
-4901 0062
-4902 0021
-4902 003F
-4902 0061
-4902 0041
-4902 0062
-4903 0021
-4903 003F
-4903 0061
-4903 0041
-4903 0062
-4904 0021
-4904 003F
-4904 0061
-4904 0041
-4904 0062
-4905 0021
-4905 003F
-4905 0061
-4905 0041
-4905 0062
-4906 0021
-4906 003F
-4906 0061
-4906 0041
-4906 0062
-4907 0021
-4907 003F
-4907 0061
-4907 0041
-4907 0062
-4908 0021
-4908 003F
-4908 0061
-4908 0041
-4908 0062
-4909 0021
-4909 003F
-4909 0061
-4909 0041
-4909 0062
-490A 0021
-490A 003F
-490A 0061
-490A 0041
-490A 0062
-490B 0021
-490B 003F
-490B 0061
-490B 0041
-490B 0062
-490C 0021
-490C 003F
-490C 0061
-490C 0041
-490C 0062
-490D 0021
-490D 003F
-490D 0061
-490D 0041
-490D 0062
-490E 0021
-490E 003F
-490E 0061
-490E 0041
-490E 0062
-490F 0021
-490F 003F
-490F 0061
-490F 0041
-490F 0062
-4910 0021
-4910 003F
-4910 0061
-4910 0041
-4910 0062
-4911 0021
-4911 003F
-4911 0061
-4911 0041
-4911 0062
-4912 0021
-4912 003F
-4912 0061
-4912 0041
-4912 0062
-4913 0021
-4913 003F
-4913 0061
-4913 0041
-4913 0062
-4914 0021
-4914 003F
-4914 0061
-4914 0041
-4914 0062
-4915 0021
-4915 003F
-4915 0061
-4915 0041
-4915 0062
-4916 0021
-4916 003F
-4916 0061
-4916 0041
-4916 0062
-4917 0021
-4917 003F
-4917 0061
-4917 0041
-4917 0062
-4918 0021
-4918 003F
-4918 0061
-4918 0041
-4918 0062
-4919 0021
-4919 003F
-4919 0061
-4919 0041
-4919 0062
-491A 0021
-491A 003F
-491A 0061
-491A 0041
-491A 0062
-491B 0021
-491B 003F
-491B 0061
-491B 0041
-491B 0062
-491C 0021
-491C 003F
-491C 0061
-491C 0041
-491C 0062
-491D 0021
-491D 003F
-491D 0061
-491D 0041
-491D 0062
-491E 0021
-491E 003F
-491E 0061
-491E 0041
-491E 0062
-491F 0021
-491F 003F
-491F 0061
-491F 0041
-491F 0062
-4920 0021
-4920 003F
-4920 0061
-4920 0041
-4920 0062
-4921 0021
-4921 003F
-4921 0061
-4921 0041
-4921 0062
-4922 0021
-4922 003F
-4922 0061
-4922 0041
-4922 0062
-4923 0021
-4923 003F
-4923 0061
-4923 0041
-4923 0062
-4924 0021
-4924 003F
-4924 0061
-4924 0041
-4924 0062
-4925 0021
-4925 003F
-4925 0061
-4925 0041
-4925 0062
-4926 0021
-4926 003F
-4926 0061
-4926 0041
-4926 0062
-4927 0021
-4927 003F
-4927 0061
-4927 0041
-4927 0062
-4928 0021
-4928 003F
-4928 0061
-4928 0041
-4928 0062
-4929 0021
-4929 003F
-4929 0061
-4929 0041
-4929 0062
-492A 0021
-492A 003F
-492A 0061
-492A 0041
-492A 0062
-492B 0021
-492B 003F
-492B 0061
-492B 0041
-492B 0062
-492C 0021
-492C 003F
-492C 0061
-492C 0041
-492C 0062
-492D 0021
-492D 003F
-492D 0061
-492D 0041
-492D 0062
-492E 0021
-492E 003F
-492E 0061
-492E 0041
-492E 0062
-492F 0021
-492F 003F
-492F 0061
-492F 0041
-492F 0062
-4930 0021
-4930 003F
-4930 0061
-4930 0041
-4930 0062
-4931 0021
-4931 003F
-4931 0061
-4931 0041
-4931 0062
-4932 0021
-4932 003F
-4932 0061
-4932 0041
-4932 0062
-4933 0021
-4933 003F
-4933 0061
-4933 0041
-4933 0062
-4934 0021
-4934 003F
-4934 0061
-4934 0041
-4934 0062
-4935 0021
-4935 003F
-4935 0061
-4935 0041
-4935 0062
-4936 0021
-4936 003F
-4936 0061
-4936 0041
-4936 0062
-4937 0021
-4937 003F
-4937 0061
-4937 0041
-4937 0062
-4938 0021
-4938 003F
-4938 0061
-4938 0041
-4938 0062
-4939 0021
-4939 003F
-4939 0061
-4939 0041
-4939 0062
-493A 0021
-493A 003F
-493A 0061
-493A 0041
-493A 0062
-493B 0021
-493B 003F
-493B 0061
-493B 0041
-493B 0062
-493C 0021
-493C 003F
-493C 0061
-493C 0041
-493C 0062
-493D 0021
-493D 003F
-493D 0061
-493D 0041
-493D 0062
-493E 0021
-493E 003F
-493E 0061
-493E 0041
-493E 0062
-493F 0021
-493F 003F
-493F 0061
-493F 0041
-493F 0062
-4940 0021
-4940 003F
-4940 0061
-4940 0041
-4940 0062
-4941 0021
-4941 003F
-4941 0061
-4941 0041
-4941 0062
-4942 0021
-4942 003F
-4942 0061
-4942 0041
-4942 0062
-4943 0021
-4943 003F
-4943 0061
-4943 0041
-4943 0062
-4944 0021
-4944 003F
-4944 0061
-4944 0041
-4944 0062
-4945 0021
-4945 003F
-4945 0061
-4945 0041
-4945 0062
-4946 0021
-4946 003F
-4946 0061
-4946 0041
-4946 0062
-4947 0021
-4947 003F
-4947 0061
-4947 0041
-4947 0062
-4948 0021
-4948 003F
-4948 0061
-4948 0041
-4948 0062
-4949 0021
-4949 003F
-4949 0061
-4949 0041
-4949 0062
-494A 0021
-494A 003F
-494A 0061
-494A 0041
-494A 0062
-494B 0021
-494B 003F
-494B 0061
-494B 0041
-494B 0062
-494C 0021
-494C 003F
-494C 0061
-494C 0041
-494C 0062
-494D 0021
-494D 003F
-494D 0061
-494D 0041
-494D 0062
-494E 0021
-494E 003F
-494E 0061
-494E 0041
-494E 0062
-494F 0021
-494F 003F
-494F 0061
-494F 0041
-494F 0062
-4950 0021
-4950 003F
-4950 0061
-4950 0041
-4950 0062
-4951 0021
-4951 003F
-4951 0061
-4951 0041
-4951 0062
-4952 0021
-4952 003F
-4952 0061
-4952 0041
-4952 0062
-4953 0021
-4953 003F
-4953 0061
-4953 0041
-4953 0062
-4954 0021
-4954 003F
-4954 0061
-4954 0041
-4954 0062
-4955 0021
-4955 003F
-4955 0061
-4955 0041
-4955 0062
-4956 0021
-4956 003F
-4956 0061
-4956 0041
-4956 0062
-4957 0021
-4957 003F
-4957 0061
-4957 0041
-4957 0062
-4958 0021
-4958 003F
-4958 0061
-4958 0041
-4958 0062
-4959 0021
-4959 003F
-4959 0061
-4959 0041
-4959 0062
-495A 0021
-495A 003F
-495A 0061
-495A 0041
-495A 0062
-495B 0021
-495B 003F
-495B 0061
-495B 0041
-495B 0062
-495C 0021
-495C 003F
-495C 0061
-495C 0041
-495C 0062
-495D 0021
-495D 003F
-495D 0061
-495D 0041
-495D 0062
-495E 0021
-495E 003F
-495E 0061
-495E 0041
-495E 0062
-495F 0021
-495F 003F
-495F 0061
-495F 0041
-495F 0062
-4960 0021
-4960 003F
-4960 0061
-4960 0041
-4960 0062
-4961 0021
-4961 003F
-4961 0061
-4961 0041
-4961 0062
-4962 0021
-4962 003F
-4962 0061
-4962 0041
-4962 0062
-4963 0021
-4963 003F
-4963 0061
-4963 0041
-4963 0062
-4964 0021
-4964 003F
-4964 0061
-4964 0041
-4964 0062
-4965 0021
-4965 003F
-4965 0061
-4965 0041
-4965 0062
-4966 0021
-4966 003F
-4966 0061
-4966 0041
-4966 0062
-4967 0021
-4967 003F
-4967 0061
-4967 0041
-4967 0062
-4968 0021
-4968 003F
-4968 0061
-4968 0041
-4968 0062
-4969 0021
-4969 003F
-4969 0061
-4969 0041
-4969 0062
-496A 0021
-496A 003F
-496A 0061
-496A 0041
-496A 0062
-496B 0021
-496B 003F
-496B 0061
-496B 0041
-496B 0062
-496C 0021
-496C 003F
-496C 0061
-496C 0041
-496C 0062
-496D 0021
-496D 003F
-496D 0061
-496D 0041
-496D 0062
-496E 0021
-496E 003F
-496E 0061
-496E 0041
-496E 0062
-496F 0021
-496F 003F
-496F 0061
-496F 0041
-496F 0062
-4970 0021
-4970 003F
-4970 0061
-4970 0041
-4970 0062
-4971 0021
-4971 003F
-4971 0061
-4971 0041
-4971 0062
-4972 0021
-4972 003F
-4972 0061
-4972 0041
-4972 0062
-4973 0021
-4973 003F
-4973 0061
-4973 0041
-4973 0062
-4974 0021
-4974 003F
-4974 0061
-4974 0041
-4974 0062
-4975 0021
-4975 003F
-4975 0061
-4975 0041
-4975 0062
-4976 0021
-4976 003F
-4976 0061
-4976 0041
-4976 0062
-4977 0021
-4977 003F
-4977 0061
-4977 0041
-4977 0062
-4978 0021
-4978 003F
-4978 0061
-4978 0041
-4978 0062
-4979 0021
-4979 003F
-4979 0061
-4979 0041
-4979 0062
-497A 0021
-497A 003F
-497A 0061
-497A 0041
-497A 0062
-497B 0021
-497B 003F
-497B 0061
-497B 0041
-497B 0062
-497C 0021
-497C 003F
-497C 0061
-497C 0041
-497C 0062
-497D 0021
-497D 003F
-497D 0061
-497D 0041
-497D 0062
-497E 0021
-497E 003F
-497E 0061
-497E 0041
-497E 0062
-497F 0021
-497F 003F
-497F 0061
-497F 0041
-497F 0062
-4980 0021
-4980 003F
-4980 0061
-4980 0041
-4980 0062
-4981 0021
-4981 003F
-4981 0061
-4981 0041
-4981 0062
-4982 0021
-4982 003F
-4982 0061
-4982 0041
-4982 0062
-4983 0021
-4983 003F
-4983 0061
-4983 0041
-4983 0062
-4984 0021
-4984 003F
-4984 0061
-4984 0041
-4984 0062
-4985 0021
-4985 003F
-4985 0061
-4985 0041
-4985 0062
-4986 0021
-4986 003F
-4986 0061
-4986 0041
-4986 0062
-4987 0021
-4987 003F
-4987 0061
-4987 0041
-4987 0062
-4988 0021
-4988 003F
-4988 0061
-4988 0041
-4988 0062
-4989 0021
-4989 003F
-4989 0061
-4989 0041
-4989 0062
-498A 0021
-498A 003F
-498A 0061
-498A 0041
-498A 0062
-498B 0021
-498B 003F
-498B 0061
-498B 0041
-498B 0062
-498C 0021
-498C 003F
-498C 0061
-498C 0041
-498C 0062
-498D 0021
-498D 003F
-498D 0061
-498D 0041
-498D 0062
-498E 0021
-498E 003F
-498E 0061
-498E 0041
-498E 0062
-498F 0021
-498F 003F
-498F 0061
-498F 0041
-498F 0062
-4990 0021
-4990 003F
-4990 0061
-4990 0041
-4990 0062
-4991 0021
-4991 003F
-4991 0061
-4991 0041
-4991 0062
-4992 0021
-4992 003F
-4992 0061
-4992 0041
-4992 0062
-4993 0021
-4993 003F
-4993 0061
-4993 0041
-4993 0062
-4994 0021
-4994 003F
-4994 0061
-4994 0041
-4994 0062
-4995 0021
-2F9EF 0021
-4995 003F
-2F9EF 003F
-4995 0061
-2F9EF 0061
-4995 0041
-2F9EF 0041
-4995 0062
-2F9EF 0062
-4996 0021
-4996 003F
-4996 0061
-4996 0041
-4996 0062
-4997 0021
-4997 003F
-4997 0061
-4997 0041
-4997 0062
-4998 0021
-4998 003F
-4998 0061
-4998 0041
-4998 0062
-4999 0021
-4999 003F
-4999 0061
-4999 0041
-4999 0062
-499A 0021
-499A 003F
-499A 0061
-499A 0041
-499A 0062
-499B 0021
-499B 003F
-499B 0061
-499B 0041
-499B 0062
-499C 0021
-499C 003F
-499C 0061
-499C 0041
-499C 0062
-499D 0021
-499D 003F
-499D 0061
-499D 0041
-499D 0062
-499E 0021
-499E 003F
-499E 0061
-499E 0041
-499E 0062
-499F 0021
-499F 003F
-499F 0061
-499F 0041
-499F 0062
-49A0 0021
-49A0 003F
-49A0 0061
-49A0 0041
-49A0 0062
-49A1 0021
-49A1 003F
-49A1 0061
-49A1 0041
-49A1 0062
-49A2 0021
-49A2 003F
-49A2 0061
-49A2 0041
-49A2 0062
-49A3 0021
-49A3 003F
-49A3 0061
-49A3 0041
-49A3 0062
-49A4 0021
-49A4 003F
-49A4 0061
-49A4 0041
-49A4 0062
-49A5 0021
-49A5 003F
-49A5 0061
-49A5 0041
-49A5 0062
-49A6 0021
-49A6 003F
-49A6 0061
-49A6 0041
-49A6 0062
-49A7 0021
-49A7 003F
-49A7 0061
-49A7 0041
-49A7 0062
-49A8 0021
-49A8 003F
-49A8 0061
-49A8 0041
-49A8 0062
-49A9 0021
-49A9 003F
-49A9 0061
-49A9 0041
-49A9 0062
-49AA 0021
-49AA 003F
-49AA 0061
-49AA 0041
-49AA 0062
-49AB 0021
-49AB 003F
-49AB 0061
-49AB 0041
-49AB 0062
-49AC 0021
-49AC 003F
-49AC 0061
-49AC 0041
-49AC 0062
-49AD 0021
-49AD 003F
-49AD 0061
-49AD 0041
-49AD 0062
-49AE 0021
-49AE 003F
-49AE 0061
-49AE 0041
-49AE 0062
-49AF 0021
-49AF 003F
-49AF 0061
-49AF 0041
-49AF 0062
-49B0 0021
-49B0 003F
-49B0 0061
-49B0 0041
-49B0 0062
-49B1 0021
-49B1 003F
-49B1 0061
-49B1 0041
-49B1 0062
-49B2 0021
-49B2 003F
-49B2 0061
-49B2 0041
-49B2 0062
-49B3 0021
-49B3 003F
-49B3 0061
-49B3 0041
-49B3 0062
-49B4 0021
-49B4 003F
-49B4 0061
-49B4 0041
-49B4 0062
-49B5 0021
-49B5 003F
-49B5 0061
-49B5 0041
-49B5 0062
-49B6 0021
-49B6 003F
-49B6 0061
-49B6 0041
-49B6 0062
-49B7 0021
-49B7 003F
-49B7 0061
-49B7 0041
-49B7 0062
-49B8 0021
-49B8 003F
-49B8 0061
-49B8 0041
-49B8 0062
-49B9 0021
-49B9 003F
-49B9 0061
-49B9 0041
-49B9 0062
-49BA 0021
-49BA 003F
-49BA 0061
-49BA 0041
-49BA 0062
-49BB 0021
-49BB 003F
-49BB 0061
-49BB 0041
-49BB 0062
-49BC 0021
-49BC 003F
-49BC 0061
-49BC 0041
-49BC 0062
-49BD 0021
-49BD 003F
-49BD 0061
-49BD 0041
-49BD 0062
-49BE 0021
-49BE 003F
-49BE 0061
-49BE 0041
-49BE 0062
-49BF 0021
-49BF 003F
-49BF 0061
-49BF 0041
-49BF 0062
-49C0 0021
-49C0 003F
-49C0 0061
-49C0 0041
-49C0 0062
-49C1 0021
-49C1 003F
-49C1 0061
-49C1 0041
-49C1 0062
-49C2 0021
-49C2 003F
-49C2 0061
-49C2 0041
-49C2 0062
-49C3 0021
-49C3 003F
-49C3 0061
-49C3 0041
-49C3 0062
-49C4 0021
-49C4 003F
-49C4 0061
-49C4 0041
-49C4 0062
-49C5 0021
-49C5 003F
-49C5 0061
-49C5 0041
-49C5 0062
-49C6 0021
-49C6 003F
-49C6 0061
-49C6 0041
-49C6 0062
-49C7 0021
-49C7 003F
-49C7 0061
-49C7 0041
-49C7 0062
-49C8 0021
-49C8 003F
-49C8 0061
-49C8 0041
-49C8 0062
-49C9 0021
-49C9 003F
-49C9 0061
-49C9 0041
-49C9 0062
-49CA 0021
-49CA 003F
-49CA 0061
-49CA 0041
-49CA 0062
-49CB 0021
-49CB 003F
-49CB 0061
-49CB 0041
-49CB 0062
-49CC 0021
-49CC 003F
-49CC 0061
-49CC 0041
-49CC 0062
-49CD 0021
-49CD 003F
-49CD 0061
-49CD 0041
-49CD 0062
-49CE 0021
-49CE 003F
-49CE 0061
-49CE 0041
-49CE 0062
-49CF 0021
-49CF 003F
-49CF 0061
-49CF 0041
-49CF 0062
-49D0 0021
-49D0 003F
-49D0 0061
-49D0 0041
-49D0 0062
-49D1 0021
-49D1 003F
-49D1 0061
-49D1 0041
-49D1 0062
-49D2 0021
-49D2 003F
-49D2 0061
-49D2 0041
-49D2 0062
-49D3 0021
-49D3 003F
-49D3 0061
-49D3 0041
-49D3 0062
-49D4 0021
-49D4 003F
-49D4 0061
-49D4 0041
-49D4 0062
-49D5 0021
-49D5 003F
-49D5 0061
-49D5 0041
-49D5 0062
-49D6 0021
-49D6 003F
-49D6 0061
-49D6 0041
-49D6 0062
-49D7 0021
-49D7 003F
-49D7 0061
-49D7 0041
-49D7 0062
-49D8 0021
-49D8 003F
-49D8 0061
-49D8 0041
-49D8 0062
-49D9 0021
-49D9 003F
-49D9 0061
-49D9 0041
-49D9 0062
-49DA 0021
-49DA 003F
-49DA 0061
-49DA 0041
-49DA 0062
-49DB 0021
-49DB 003F
-49DB 0061
-49DB 0041
-49DB 0062
-49DC 0021
-49DC 003F
-49DC 0061
-49DC 0041
-49DC 0062
-49DD 0021
-49DD 003F
-49DD 0061
-49DD 0041
-49DD 0062
-49DE 0021
-49DE 003F
-49DE 0061
-49DE 0041
-49DE 0062
-49DF 0021
-49DF 003F
-49DF 0061
-49DF 0041
-49DF 0062
-49E0 0021
-49E0 003F
-49E0 0061
-49E0 0041
-49E0 0062
-49E1 0021
-49E1 003F
-49E1 0061
-49E1 0041
-49E1 0062
-49E2 0021
-49E2 003F
-49E2 0061
-49E2 0041
-49E2 0062
-49E3 0021
-49E3 003F
-49E3 0061
-49E3 0041
-49E3 0062
-49E4 0021
-49E4 003F
-49E4 0061
-49E4 0041
-49E4 0062
-49E5 0021
-49E5 003F
-49E5 0061
-49E5 0041
-49E5 0062
-49E6 0021
-2F9F2 0021
-49E6 003F
-2F9F2 003F
-49E6 0061
-2F9F2 0061
-49E6 0041
-2F9F2 0041
-49E6 0062
-2F9F2 0062
-49E7 0021
-49E7 003F
-49E7 0061
-49E7 0041
-49E7 0062
-49E8 0021
-49E8 003F
-49E8 0061
-49E8 0041
-49E8 0062
-49E9 0021
-49E9 003F
-49E9 0061
-49E9 0041
-49E9 0062
-49EA 0021
-49EA 003F
-49EA 0061
-49EA 0041
-49EA 0062
-49EB 0021
-49EB 003F
-49EB 0061
-49EB 0041
-49EB 0062
-49EC 0021
-49EC 003F
-49EC 0061
-49EC 0041
-49EC 0062
-49ED 0021
-49ED 003F
-49ED 0061
-49ED 0041
-49ED 0062
-49EE 0021
-49EE 003F
-49EE 0061
-49EE 0041
-49EE 0062
-49EF 0021
-49EF 003F
-49EF 0061
-49EF 0041
-49EF 0062
-49F0 0021
-49F0 003F
-49F0 0061
-49F0 0041
-49F0 0062
-49F1 0021
-49F1 003F
-49F1 0061
-49F1 0041
-49F1 0062
-49F2 0021
-49F2 003F
-49F2 0061
-49F2 0041
-49F2 0062
-49F3 0021
-49F3 003F
-49F3 0061
-49F3 0041
-49F3 0062
-49F4 0021
-49F4 003F
-49F4 0061
-49F4 0041
-49F4 0062
-49F5 0021
-49F5 003F
-49F5 0061
-49F5 0041
-49F5 0062
-49F6 0021
-49F6 003F
-49F6 0061
-49F6 0041
-49F6 0062
-49F7 0021
-49F7 003F
-49F7 0061
-49F7 0041
-49F7 0062
-49F8 0021
-49F8 003F
-49F8 0061
-49F8 0041
-49F8 0062
-49F9 0021
-49F9 003F
-49F9 0061
-49F9 0041
-49F9 0062
-49FA 0021
-49FA 003F
-49FA 0061
-49FA 0041
-49FA 0062
-49FB 0021
-49FB 003F
-49FB 0061
-49FB 0041
-49FB 0062
-49FC 0021
-49FC 003F
-49FC 0061
-49FC 0041
-49FC 0062
-49FD 0021
-49FD 003F
-49FD 0061
-49FD 0041
-49FD 0062
-49FE 0021
-49FE 003F
-49FE 0061
-49FE 0041
-49FE 0062
-49FF 0021
-49FF 003F
-49FF 0061
-49FF 0041
-49FF 0062
-4A00 0021
-4A00 003F
-4A00 0061
-4A00 0041
-4A00 0062
-4A01 0021
-4A01 003F
-4A01 0061
-4A01 0041
-4A01 0062
-4A02 0021
-4A02 003F
-4A02 0061
-4A02 0041
-4A02 0062
-4A03 0021
-4A03 003F
-4A03 0061
-4A03 0041
-4A03 0062
-4A04 0021
-4A04 003F
-4A04 0061
-4A04 0041
-4A04 0062
-4A05 0021
-4A05 003F
-4A05 0061
-4A05 0041
-4A05 0062
-4A06 0021
-4A06 003F
-4A06 0061
-4A06 0041
-4A06 0062
-4A07 0021
-4A07 003F
-4A07 0061
-4A07 0041
-4A07 0062
-4A08 0021
-4A08 003F
-4A08 0061
-4A08 0041
-4A08 0062
-4A09 0021
-4A09 003F
-4A09 0061
-4A09 0041
-4A09 0062
-4A0A 0021
-4A0A 003F
-4A0A 0061
-4A0A 0041
-4A0A 0062
-4A0B 0021
-4A0B 003F
-4A0B 0061
-4A0B 0041
-4A0B 0062
-4A0C 0021
-4A0C 003F
-4A0C 0061
-4A0C 0041
-4A0C 0062
-4A0D 0021
-4A0D 003F
-4A0D 0061
-4A0D 0041
-4A0D 0062
-4A0E 0021
-4A0E 003F
-4A0E 0061
-4A0E 0041
-4A0E 0062
-4A0F 0021
-4A0F 003F
-4A0F 0061
-4A0F 0041
-4A0F 0062
-4A10 0021
-4A10 003F
-4A10 0061
-4A10 0041
-4A10 0062
-4A11 0021
-4A11 003F
-4A11 0061
-4A11 0041
-4A11 0062
-4A12 0021
-4A12 003F
-4A12 0061
-4A12 0041
-4A12 0062
-4A13 0021
-4A13 003F
-4A13 0061
-4A13 0041
-4A13 0062
-4A14 0021
-4A14 003F
-4A14 0061
-4A14 0041
-4A14 0062
-4A15 0021
-4A15 003F
-4A15 0061
-4A15 0041
-4A15 0062
-4A16 0021
-4A16 003F
-4A16 0061
-4A16 0041
-4A16 0062
-4A17 0021
-4A17 003F
-4A17 0061
-4A17 0041
-4A17 0062
-4A18 0021
-4A18 003F
-4A18 0061
-4A18 0041
-4A18 0062
-4A19 0021
-4A19 003F
-4A19 0061
-4A19 0041
-4A19 0062
-4A1A 0021
-4A1A 003F
-4A1A 0061
-4A1A 0041
-4A1A 0062
-4A1B 0021
-4A1B 003F
-4A1B 0061
-4A1B 0041
-4A1B 0062
-4A1C 0021
-4A1C 003F
-4A1C 0061
-4A1C 0041
-4A1C 0062
-4A1D 0021
-4A1D 003F
-4A1D 0061
-4A1D 0041
-4A1D 0062
-4A1E 0021
-4A1E 003F
-4A1E 0061
-4A1E 0041
-4A1E 0062
-4A1F 0021
-4A1F 003F
-4A1F 0061
-4A1F 0041
-4A1F 0062
-4A20 0021
-4A20 003F
-4A20 0061
-4A20 0041
-4A20 0062
-4A21 0021
-4A21 003F
-4A21 0061
-4A21 0041
-4A21 0062
-4A22 0021
-4A22 003F
-4A22 0061
-4A22 0041
-4A22 0062
-4A23 0021
-4A23 003F
-4A23 0061
-4A23 0041
-4A23 0062
-4A24 0021
-4A24 003F
-4A24 0061
-4A24 0041
-4A24 0062
-4A25 0021
-4A25 003F
-4A25 0061
-4A25 0041
-4A25 0062
-4A26 0021
-4A26 003F
-4A26 0061
-4A26 0041
-4A26 0062
-4A27 0021
-4A27 003F
-4A27 0061
-4A27 0041
-4A27 0062
-4A28 0021
-4A28 003F
-4A28 0061
-4A28 0041
-4A28 0062
-4A29 0021
-4A29 003F
-4A29 0061
-4A29 0041
-4A29 0062
-4A2A 0021
-4A2A 003F
-4A2A 0061
-4A2A 0041
-4A2A 0062
-4A2B 0021
-4A2B 003F
-4A2B 0061
-4A2B 0041
-4A2B 0062
-4A2C 0021
-4A2C 003F
-4A2C 0061
-4A2C 0041
-4A2C 0062
-4A2D 0021
-4A2D 003F
-4A2D 0061
-4A2D 0041
-4A2D 0062
-4A2E 0021
-4A2E 003F
-4A2E 0061
-4A2E 0041
-4A2E 0062
-4A2F 0021
-4A2F 003F
-4A2F 0061
-4A2F 0041
-4A2F 0062
-4A30 0021
-4A30 003F
-4A30 0061
-4A30 0041
-4A30 0062
-4A31 0021
-4A31 003F
-4A31 0061
-4A31 0041
-4A31 0062
-4A32 0021
-4A32 003F
-4A32 0061
-4A32 0041
-4A32 0062
-4A33 0021
-4A33 003F
-4A33 0061
-4A33 0041
-4A33 0062
-4A34 0021
-4A34 003F
-4A34 0061
-4A34 0041
-4A34 0062
-4A35 0021
-4A35 003F
-4A35 0061
-4A35 0041
-4A35 0062
-4A36 0021
-4A36 003F
-4A36 0061
-4A36 0041
-4A36 0062
-4A37 0021
-4A37 003F
-4A37 0061
-4A37 0041
-4A37 0062
-4A38 0021
-4A38 003F
-4A38 0061
-4A38 0041
-4A38 0062
-4A39 0021
-4A39 003F
-4A39 0061
-4A39 0041
-4A39 0062
-4A3A 0021
-4A3A 003F
-4A3A 0061
-4A3A 0041
-4A3A 0062
-4A3B 0021
-4A3B 003F
-4A3B 0061
-4A3B 0041
-4A3B 0062
-4A3C 0021
-4A3C 003F
-4A3C 0061
-4A3C 0041
-4A3C 0062
-4A3D 0021
-4A3D 003F
-4A3D 0061
-4A3D 0041
-4A3D 0062
-4A3E 0021
-4A3E 003F
-4A3E 0061
-4A3E 0041
-4A3E 0062
-4A3F 0021
-4A3F 003F
-4A3F 0061
-4A3F 0041
-4A3F 0062
-4A40 0021
-4A40 003F
-4A40 0061
-4A40 0041
-4A40 0062
-4A41 0021
-4A41 003F
-4A41 0061
-4A41 0041
-4A41 0062
-4A42 0021
-4A42 003F
-4A42 0061
-4A42 0041
-4A42 0062
-4A43 0021
-4A43 003F
-4A43 0061
-4A43 0041
-4A43 0062
-4A44 0021
-4A44 003F
-4A44 0061
-4A44 0041
-4A44 0062
-4A45 0021
-4A45 003F
-4A45 0061
-4A45 0041
-4A45 0062
-4A46 0021
-4A46 003F
-4A46 0061
-4A46 0041
-4A46 0062
-4A47 0021
-4A47 003F
-4A47 0061
-4A47 0041
-4A47 0062
-4A48 0021
-4A48 003F
-4A48 0061
-4A48 0041
-4A48 0062
-4A49 0021
-4A49 003F
-4A49 0061
-4A49 0041
-4A49 0062
-4A4A 0021
-4A4A 003F
-4A4A 0061
-4A4A 0041
-4A4A 0062
-4A4B 0021
-4A4B 003F
-4A4B 0061
-4A4B 0041
-4A4B 0062
-4A4C 0021
-4A4C 003F
-4A4C 0061
-4A4C 0041
-4A4C 0062
-4A4D 0021
-4A4D 003F
-4A4D 0061
-4A4D 0041
-4A4D 0062
-4A4E 0021
-4A4E 003F
-4A4E 0061
-4A4E 0041
-4A4E 0062
-4A4F 0021
-4A4F 003F
-4A4F 0061
-4A4F 0041
-4A4F 0062
-4A50 0021
-4A50 003F
-4A50 0061
-4A50 0041
-4A50 0062
-4A51 0021
-4A51 003F
-4A51 0061
-4A51 0041
-4A51 0062
-4A52 0021
-4A52 003F
-4A52 0061
-4A52 0041
-4A52 0062
-4A53 0021
-4A53 003F
-4A53 0061
-4A53 0041
-4A53 0062
-4A54 0021
-4A54 003F
-4A54 0061
-4A54 0041
-4A54 0062
-4A55 0021
-4A55 003F
-4A55 0061
-4A55 0041
-4A55 0062
-4A56 0021
-4A56 003F
-4A56 0061
-4A56 0041
-4A56 0062
-4A57 0021
-4A57 003F
-4A57 0061
-4A57 0041
-4A57 0062
-4A58 0021
-4A58 003F
-4A58 0061
-4A58 0041
-4A58 0062
-4A59 0021
-4A59 003F
-4A59 0061
-4A59 0041
-4A59 0062
-4A5A 0021
-4A5A 003F
-4A5A 0061
-4A5A 0041
-4A5A 0062
-4A5B 0021
-4A5B 003F
-4A5B 0061
-4A5B 0041
-4A5B 0062
-4A5C 0021
-4A5C 003F
-4A5C 0061
-4A5C 0041
-4A5C 0062
-4A5D 0021
-4A5D 003F
-4A5D 0061
-4A5D 0041
-4A5D 0062
-4A5E 0021
-4A5E 003F
-4A5E 0061
-4A5E 0041
-4A5E 0062
-4A5F 0021
-4A5F 003F
-4A5F 0061
-4A5F 0041
-4A5F 0062
-4A60 0021
-4A60 003F
-4A60 0061
-4A60 0041
-4A60 0062
-4A61 0021
-4A61 003F
-4A61 0061
-4A61 0041
-4A61 0062
-4A62 0021
-4A62 003F
-4A62 0061
-4A62 0041
-4A62 0062
-4A63 0021
-4A63 003F
-4A63 0061
-4A63 0041
-4A63 0062
-4A64 0021
-4A64 003F
-4A64 0061
-4A64 0041
-4A64 0062
-4A65 0021
-4A65 003F
-4A65 0061
-4A65 0041
-4A65 0062
-4A66 0021
-4A66 003F
-4A66 0061
-4A66 0041
-4A66 0062
-4A67 0021
-4A67 003F
-4A67 0061
-4A67 0041
-4A67 0062
-4A68 0021
-4A68 003F
-4A68 0061
-4A68 0041
-4A68 0062
-4A69 0021
-4A69 003F
-4A69 0061
-4A69 0041
-4A69 0062
-4A6A 0021
-4A6A 003F
-4A6A 0061
-4A6A 0041
-4A6A 0062
-4A6B 0021
-4A6B 003F
-4A6B 0061
-4A6B 0041
-4A6B 0062
-4A6C 0021
-4A6C 003F
-4A6C 0061
-4A6C 0041
-4A6C 0062
-4A6D 0021
-4A6D 003F
-4A6D 0061
-4A6D 0041
-4A6D 0062
-4A6E 0021
-2F9F8 0021
-4A6E 003F
-2F9F8 003F
-4A6E 0061
-2F9F8 0061
-4A6E 0041
-2F9F8 0041
-4A6E 0062
-2F9F8 0062
-4A6F 0021
-4A6F 003F
-4A6F 0061
-4A6F 0041
-4A6F 0062
-4A70 0021
-4A70 003F
-4A70 0061
-4A70 0041
-4A70 0062
-4A71 0021
-4A71 003F
-4A71 0061
-4A71 0041
-4A71 0062
-4A72 0021
-4A72 003F
-4A72 0061
-4A72 0041
-4A72 0062
-4A73 0021
-4A73 003F
-4A73 0061
-4A73 0041
-4A73 0062
-4A74 0021
-4A74 003F
-4A74 0061
-4A74 0041
-4A74 0062
-4A75 0021
-4A75 003F
-4A75 0061
-4A75 0041
-4A75 0062
-4A76 0021
-2F9F9 0021
-4A76 003F
-2F9F9 003F
-4A76 0061
-2F9F9 0061
-4A76 0041
-2F9F9 0041
-4A76 0062
-2F9F9 0062
-4A77 0021
-4A77 003F
-4A77 0061
-4A77 0041
-4A77 0062
-4A78 0021
-4A78 003F
-4A78 0061
-4A78 0041
-4A78 0062
-4A79 0021
-4A79 003F
-4A79 0061
-4A79 0041
-4A79 0062
-4A7A 0021
-4A7A 003F
-4A7A 0061
-4A7A 0041
-4A7A 0062
-4A7B 0021
-4A7B 003F
-4A7B 0061
-4A7B 0041
-4A7B 0062
-4A7C 0021
-4A7C 003F
-4A7C 0061
-4A7C 0041
-4A7C 0062
-4A7D 0021
-4A7D 003F
-4A7D 0061
-4A7D 0041
-4A7D 0062
-4A7E 0021
-4A7E 003F
-4A7E 0061
-4A7E 0041
-4A7E 0062
-4A7F 0021
-4A7F 003F
-4A7F 0061
-4A7F 0041
-4A7F 0062
-4A80 0021
-4A80 003F
-4A80 0061
-4A80 0041
-4A80 0062
-4A81 0021
-4A81 003F
-4A81 0061
-4A81 0041
-4A81 0062
-4A82 0021
-4A82 003F
-4A82 0061
-4A82 0041
-4A82 0062
-4A83 0021
-4A83 003F
-4A83 0061
-4A83 0041
-4A83 0062
-4A84 0021
-4A84 003F
-4A84 0061
-4A84 0041
-4A84 0062
-4A85 0021
-4A85 003F
-4A85 0061
-4A85 0041
-4A85 0062
-4A86 0021
-4A86 003F
-4A86 0061
-4A86 0041
-4A86 0062
-4A87 0021
-4A87 003F
-4A87 0061
-4A87 0041
-4A87 0062
-4A88 0021
-4A88 003F
-4A88 0061
-4A88 0041
-4A88 0062
-4A89 0021
-4A89 003F
-4A89 0061
-4A89 0041
-4A89 0062
-4A8A 0021
-4A8A 003F
-4A8A 0061
-4A8A 0041
-4A8A 0062
-4A8B 0021
-4A8B 003F
-4A8B 0061
-4A8B 0041
-4A8B 0062
-4A8C 0021
-4A8C 003F
-4A8C 0061
-4A8C 0041
-4A8C 0062
-4A8D 0021
-4A8D 003F
-4A8D 0061
-4A8D 0041
-4A8D 0062
-4A8E 0021
-4A8E 003F
-4A8E 0061
-4A8E 0041
-4A8E 0062
-4A8F 0021
-4A8F 003F
-4A8F 0061
-4A8F 0041
-4A8F 0062
-4A90 0021
-4A90 003F
-4A90 0061
-4A90 0041
-4A90 0062
-4A91 0021
-4A91 003F
-4A91 0061
-4A91 0041
-4A91 0062
-4A92 0021
-4A92 003F
-4A92 0061
-4A92 0041
-4A92 0062
-4A93 0021
-4A93 003F
-4A93 0061
-4A93 0041
-4A93 0062
-4A94 0021
-4A94 003F
-4A94 0061
-4A94 0041
-4A94 0062
-4A95 0021
-4A95 003F
-4A95 0061
-4A95 0041
-4A95 0062
-4A96 0021
-4A96 003F
-4A96 0061
-4A96 0041
-4A96 0062
-4A97 0021
-4A97 003F
-4A97 0061
-4A97 0041
-4A97 0062
-4A98 0021
-4A98 003F
-4A98 0061
-4A98 0041
-4A98 0062
-4A99 0021
-4A99 003F
-4A99 0061
-4A99 0041
-4A99 0062
-4A9A 0021
-4A9A 003F
-4A9A 0061
-4A9A 0041
-4A9A 0062
-4A9B 0021
-4A9B 003F
-4A9B 0061
-4A9B 0041
-4A9B 0062
-4A9C 0021
-4A9C 003F
-4A9C 0061
-4A9C 0041
-4A9C 0062
-4A9D 0021
-4A9D 003F
-4A9D 0061
-4A9D 0041
-4A9D 0062
-4A9E 0021
-4A9E 003F
-4A9E 0061
-4A9E 0041
-4A9E 0062
-4A9F 0021
-4A9F 003F
-4A9F 0061
-4A9F 0041
-4A9F 0062
-4AA0 0021
-4AA0 003F
-4AA0 0061
-4AA0 0041
-4AA0 0062
-4AA1 0021
-4AA1 003F
-4AA1 0061
-4AA1 0041
-4AA1 0062
-4AA2 0021
-4AA2 003F
-4AA2 0061
-4AA2 0041
-4AA2 0062
-4AA3 0021
-4AA3 003F
-4AA3 0061
-4AA3 0041
-4AA3 0062
-4AA4 0021
-4AA4 003F
-4AA4 0061
-4AA4 0041
-4AA4 0062
-4AA5 0021
-4AA5 003F
-4AA5 0061
-4AA5 0041
-4AA5 0062
-4AA6 0021
-4AA6 003F
-4AA6 0061
-4AA6 0041
-4AA6 0062
-4AA7 0021
-4AA7 003F
-4AA7 0061
-4AA7 0041
-4AA7 0062
-4AA8 0021
-4AA8 003F
-4AA8 0061
-4AA8 0041
-4AA8 0062
-4AA9 0021
-4AA9 003F
-4AA9 0061
-4AA9 0041
-4AA9 0062
-4AAA 0021
-4AAA 003F
-4AAA 0061
-4AAA 0041
-4AAA 0062
-4AAB 0021
-4AAB 003F
-4AAB 0061
-4AAB 0041
-4AAB 0062
-4AAC 0021
-4AAC 003F
-4AAC 0061
-4AAC 0041
-4AAC 0062
-4AAD 0021
-4AAD 003F
-4AAD 0061
-4AAD 0041
-4AAD 0062
-4AAE 0021
-4AAE 003F
-4AAE 0061
-4AAE 0041
-4AAE 0062
-4AAF 0021
-4AAF 003F
-4AAF 0061
-4AAF 0041
-4AAF 0062
-4AB0 0021
-4AB0 003F
-4AB0 0061
-4AB0 0041
-4AB0 0062
-4AB1 0021
-4AB1 003F
-4AB1 0061
-4AB1 0041
-4AB1 0062
-4AB2 0021
-2F9FC 0021
-4AB2 003F
-2F9FC 003F
-4AB2 0061
-2F9FC 0061
-4AB2 0041
-2F9FC 0041
-4AB2 0062
-2F9FC 0062
-4AB3 0021
-4AB3 003F
-4AB3 0061
-4AB3 0041
-4AB3 0062
-4AB4 0021
-4AB4 003F
-4AB4 0061
-4AB4 0041
-4AB4 0062
-4AB5 0021
-4AB5 003F
-4AB5 0061
-4AB5 0041
-4AB5 0062
-4AB6 0021
-4AB6 003F
-4AB6 0061
-4AB6 0041
-4AB6 0062
-4AB7 0021
-4AB7 003F
-4AB7 0061
-4AB7 0041
-4AB7 0062
-4AB8 0021
-4AB8 003F
-4AB8 0061
-4AB8 0041
-4AB8 0062
-4AB9 0021
-4AB9 003F
-4AB9 0061
-4AB9 0041
-4AB9 0062
-4ABA 0021
-4ABA 003F
-4ABA 0061
-4ABA 0041
-4ABA 0062
-4ABB 0021
-4ABB 003F
-4ABB 0061
-4ABB 0041
-4ABB 0062
-4ABC 0021
-4ABC 003F
-4ABC 0061
-4ABC 0041
-4ABC 0062
-4ABD 0021
-4ABD 003F
-4ABD 0061
-4ABD 0041
-4ABD 0062
-4ABE 0021
-4ABE 003F
-4ABE 0061
-4ABE 0041
-4ABE 0062
-4ABF 0021
-4ABF 003F
-4ABF 0061
-4ABF 0041
-4ABF 0062
-4AC0 0021
-4AC0 003F
-4AC0 0061
-4AC0 0041
-4AC0 0062
-4AC1 0021
-4AC1 003F
-4AC1 0061
-4AC1 0041
-4AC1 0062
-4AC2 0021
-4AC2 003F
-4AC2 0061
-4AC2 0041
-4AC2 0062
-4AC3 0021
-4AC3 003F
-4AC3 0061
-4AC3 0041
-4AC3 0062
-4AC4 0021
-4AC4 003F
-4AC4 0061
-4AC4 0041
-4AC4 0062
-4AC5 0021
-4AC5 003F
-4AC5 0061
-4AC5 0041
-4AC5 0062
-4AC6 0021
-4AC6 003F
-4AC6 0061
-4AC6 0041
-4AC6 0062
-4AC7 0021
-4AC7 003F
-4AC7 0061
-4AC7 0041
-4AC7 0062
-4AC8 0021
-4AC8 003F
-4AC8 0061
-4AC8 0041
-4AC8 0062
-4AC9 0021
-4AC9 003F
-4AC9 0061
-4AC9 0041
-4AC9 0062
-4ACA 0021
-4ACA 003F
-4ACA 0061
-4ACA 0041
-4ACA 0062
-4ACB 0021
-4ACB 003F
-4ACB 0061
-4ACB 0041
-4ACB 0062
-4ACC 0021
-4ACC 003F
-4ACC 0061
-4ACC 0041
-4ACC 0062
-4ACD 0021
-4ACD 003F
-4ACD 0061
-4ACD 0041
-4ACD 0062
-4ACE 0021
-4ACE 003F
-4ACE 0061
-4ACE 0041
-4ACE 0062
-4ACF 0021
-4ACF 003F
-4ACF 0061
-4ACF 0041
-4ACF 0062
-4AD0 0021
-4AD0 003F
-4AD0 0061
-4AD0 0041
-4AD0 0062
-4AD1 0021
-4AD1 003F
-4AD1 0061
-4AD1 0041
-4AD1 0062
-4AD2 0021
-4AD2 003F
-4AD2 0061
-4AD2 0041
-4AD2 0062
-4AD3 0021
-4AD3 003F
-4AD3 0061
-4AD3 0041
-4AD3 0062
-4AD4 0021
-4AD4 003F
-4AD4 0061
-4AD4 0041
-4AD4 0062
-4AD5 0021
-4AD5 003F
-4AD5 0061
-4AD5 0041
-4AD5 0062
-4AD6 0021
-4AD6 003F
-4AD6 0061
-4AD6 0041
-4AD6 0062
-4AD7 0021
-4AD7 003F
-4AD7 0061
-4AD7 0041
-4AD7 0062
-4AD8 0021
-4AD8 003F
-4AD8 0061
-4AD8 0041
-4AD8 0062
-4AD9 0021
-4AD9 003F
-4AD9 0061
-4AD9 0041
-4AD9 0062
-4ADA 0021
-4ADA 003F
-4ADA 0061
-4ADA 0041
-4ADA 0062
-4ADB 0021
-4ADB 003F
-4ADB 0061
-4ADB 0041
-4ADB 0062
-4ADC 0021
-4ADC 003F
-4ADC 0061
-4ADC 0041
-4ADC 0062
-4ADD 0021
-4ADD 003F
-4ADD 0061
-4ADD 0041
-4ADD 0062
-4ADE 0021
-4ADE 003F
-4ADE 0061
-4ADE 0041
-4ADE 0062
-4ADF 0021
-4ADF 003F
-4ADF 0061
-4ADF 0041
-4ADF 0062
-4AE0 0021
-4AE0 003F
-4AE0 0061
-4AE0 0041
-4AE0 0062
-4AE1 0021
-4AE1 003F
-4AE1 0061
-4AE1 0041
-4AE1 0062
-4AE2 0021
-4AE2 003F
-4AE2 0061
-4AE2 0041
-4AE2 0062
-4AE3 0021
-4AE3 003F
-4AE3 0061
-4AE3 0041
-4AE3 0062
-4AE4 0021
-4AE4 003F
-4AE4 0061
-4AE4 0041
-4AE4 0062
-4AE5 0021
-4AE5 003F
-4AE5 0061
-4AE5 0041
-4AE5 0062
-4AE6 0021
-4AE6 003F
-4AE6 0061
-4AE6 0041
-4AE6 0062
-4AE7 0021
-4AE7 003F
-4AE7 0061
-4AE7 0041
-4AE7 0062
-4AE8 0021
-4AE8 003F
-4AE8 0061
-4AE8 0041
-4AE8 0062
-4AE9 0021
-4AE9 003F
-4AE9 0061
-4AE9 0041
-4AE9 0062
-4AEA 0021
-4AEA 003F
-4AEA 0061
-4AEA 0041
-4AEA 0062
-4AEB 0021
-4AEB 003F
-4AEB 0061
-4AEB 0041
-4AEB 0062
-4AEC 0021
-4AEC 003F
-4AEC 0061
-4AEC 0041
-4AEC 0062
-4AED 0021
-4AED 003F
-4AED 0061
-4AED 0041
-4AED 0062
-4AEE 0021
-4AEE 003F
-4AEE 0061
-4AEE 0041
-4AEE 0062
-4AEF 0021
-4AEF 003F
-4AEF 0061
-4AEF 0041
-4AEF 0062
-4AF0 0021
-4AF0 003F
-4AF0 0061
-4AF0 0041
-4AF0 0062
-4AF1 0021
-4AF1 003F
-4AF1 0061
-4AF1 0041
-4AF1 0062
-4AF2 0021
-4AF2 003F
-4AF2 0061
-4AF2 0041
-4AF2 0062
-4AF3 0021
-4AF3 003F
-4AF3 0061
-4AF3 0041
-4AF3 0062
-4AF4 0021
-4AF4 003F
-4AF4 0061
-4AF4 0041
-4AF4 0062
-4AF5 0021
-4AF5 003F
-4AF5 0061
-4AF5 0041
-4AF5 0062
-4AF6 0021
-4AF6 003F
-4AF6 0061
-4AF6 0041
-4AF6 0062
-4AF7 0021
-4AF7 003F
-4AF7 0061
-4AF7 0041
-4AF7 0062
-4AF8 0021
-4AF8 003F
-4AF8 0061
-4AF8 0041
-4AF8 0062
-4AF9 0021
-4AF9 003F
-4AF9 0061
-4AF9 0041
-4AF9 0062
-4AFA 0021
-4AFA 003F
-4AFA 0061
-4AFA 0041
-4AFA 0062
-4AFB 0021
-4AFB 003F
-4AFB 0061
-4AFB 0041
-4AFB 0062
-4AFC 0021
-4AFC 003F
-4AFC 0061
-4AFC 0041
-4AFC 0062
-4AFD 0021
-4AFD 003F
-4AFD 0061
-4AFD 0041
-4AFD 0062
-4AFE 0021
-4AFE 003F
-4AFE 0061
-4AFE 0041
-4AFE 0062
-4AFF 0021
-4AFF 003F
-4AFF 0061
-4AFF 0041
-4AFF 0062
-4B00 0021
-4B00 003F
-4B00 0061
-4B00 0041
-4B00 0062
-4B01 0021
-4B01 003F
-4B01 0061
-4B01 0041
-4B01 0062
-4B02 0021
-4B02 003F
-4B02 0061
-4B02 0041
-4B02 0062
-4B03 0021
-4B03 003F
-4B03 0061
-4B03 0041
-4B03 0062
-4B04 0021
-4B04 003F
-4B04 0061
-4B04 0041
-4B04 0062
-4B05 0021
-4B05 003F
-4B05 0061
-4B05 0041
-4B05 0062
-4B06 0021
-4B06 003F
-4B06 0061
-4B06 0041
-4B06 0062
-4B07 0021
-4B07 003F
-4B07 0061
-4B07 0041
-4B07 0062
-4B08 0021
-4B08 003F
-4B08 0061
-4B08 0041
-4B08 0062
-4B09 0021
-4B09 003F
-4B09 0061
-4B09 0041
-4B09 0062
-4B0A 0021
-4B0A 003F
-4B0A 0061
-4B0A 0041
-4B0A 0062
-4B0B 0021
-4B0B 003F
-4B0B 0061
-4B0B 0041
-4B0B 0062
-4B0C 0021
-4B0C 003F
-4B0C 0061
-4B0C 0041
-4B0C 0062
-4B0D 0021
-4B0D 003F
-4B0D 0061
-4B0D 0041
-4B0D 0062
-4B0E 0021
-4B0E 003F
-4B0E 0061
-4B0E 0041
-4B0E 0062
-4B0F 0021
-4B0F 003F
-4B0F 0061
-4B0F 0041
-4B0F 0062
-4B10 0021
-4B10 003F
-4B10 0061
-4B10 0041
-4B10 0062
-4B11 0021
-4B11 003F
-4B11 0061
-4B11 0041
-4B11 0062
-4B12 0021
-4B12 003F
-4B12 0061
-4B12 0041
-4B12 0062
-4B13 0021
-4B13 003F
-4B13 0061
-4B13 0041
-4B13 0062
-4B14 0021
-4B14 003F
-4B14 0061
-4B14 0041
-4B14 0062
-4B15 0021
-4B15 003F
-4B15 0061
-4B15 0041
-4B15 0062
-4B16 0021
-4B16 003F
-4B16 0061
-4B16 0041
-4B16 0062
-4B17 0021
-4B17 003F
-4B17 0061
-4B17 0041
-4B17 0062
-4B18 0021
-4B18 003F
-4B18 0061
-4B18 0041
-4B18 0062
-4B19 0021
-4B19 003F
-4B19 0061
-4B19 0041
-4B19 0062
-4B1A 0021
-4B1A 003F
-4B1A 0061
-4B1A 0041
-4B1A 0062
-4B1B 0021
-4B1B 003F
-4B1B 0061
-4B1B 0041
-4B1B 0062
-4B1C 0021
-4B1C 003F
-4B1C 0061
-4B1C 0041
-4B1C 0062
-4B1D 0021
-4B1D 003F
-4B1D 0061
-4B1D 0041
-4B1D 0062
-4B1E 0021
-4B1E 003F
-4B1E 0061
-4B1E 0041
-4B1E 0062
-4B1F 0021
-4B1F 003F
-4B1F 0061
-4B1F 0041
-4B1F 0062
-4B20 0021
-4B20 003F
-4B20 0061
-4B20 0041
-4B20 0062
-4B21 0021
-4B21 003F
-4B21 0061
-4B21 0041
-4B21 0062
-4B22 0021
-4B22 003F
-4B22 0061
-4B22 0041
-4B22 0062
-4B23 0021
-4B23 003F
-4B23 0061
-4B23 0041
-4B23 0062
-4B24 0021
-4B24 003F
-4B24 0061
-4B24 0041
-4B24 0062
-4B25 0021
-4B25 003F
-4B25 0061
-4B25 0041
-4B25 0062
-4B26 0021
-4B26 003F
-4B26 0061
-4B26 0041
-4B26 0062
-4B27 0021
-4B27 003F
-4B27 0061
-4B27 0041
-4B27 0062
-4B28 0021
-4B28 003F
-4B28 0061
-4B28 0041
-4B28 0062
-4B29 0021
-4B29 003F
-4B29 0061
-4B29 0041
-4B29 0062
-4B2A 0021
-4B2A 003F
-4B2A 0061
-4B2A 0041
-4B2A 0062
-4B2B 0021
-4B2B 003F
-4B2B 0061
-4B2B 0041
-4B2B 0062
-4B2C 0021
-4B2C 003F
-4B2C 0061
-4B2C 0041
-4B2C 0062
-4B2D 0021
-4B2D 003F
-4B2D 0061
-4B2D 0041
-4B2D 0062
-4B2E 0021
-4B2E 003F
-4B2E 0061
-4B2E 0041
-4B2E 0062
-4B2F 0021
-4B2F 003F
-4B2F 0061
-4B2F 0041
-4B2F 0062
-4B30 0021
-4B30 003F
-4B30 0061
-4B30 0041
-4B30 0062
-4B31 0021
-4B31 003F
-4B31 0061
-4B31 0041
-4B31 0062
-4B32 0021
-4B32 003F
-4B32 0061
-4B32 0041
-4B32 0062
-4B33 0021
-2FA03 0021
-4B33 003F
-2FA03 003F
-4B33 0061
-2FA03 0061
-4B33 0041
-2FA03 0041
-4B33 0062
-2FA03 0062
-4B34 0021
-4B34 003F
-4B34 0061
-4B34 0041
-4B34 0062
-4B35 0021
-4B35 003F
-4B35 0061
-4B35 0041
-4B35 0062
-4B36 0021
-4B36 003F
-4B36 0061
-4B36 0041
-4B36 0062
-4B37 0021
-4B37 003F
-4B37 0061
-4B37 0041
-4B37 0062
-4B38 0021
-4B38 003F
-4B38 0061
-4B38 0041
-4B38 0062
-4B39 0021
-4B39 003F
-4B39 0061
-4B39 0041
-4B39 0062
-4B3A 0021
-4B3A 003F
-4B3A 0061
-4B3A 0041
-4B3A 0062
-4B3B 0021
-4B3B 003F
-4B3B 0061
-4B3B 0041
-4B3B 0062
-4B3C 0021
-4B3C 003F
-4B3C 0061
-4B3C 0041
-4B3C 0062
-4B3D 0021
-4B3D 003F
-4B3D 0061
-4B3D 0041
-4B3D 0062
-4B3E 0021
-4B3E 003F
-4B3E 0061
-4B3E 0041
-4B3E 0062
-4B3F 0021
-4B3F 003F
-4B3F 0061
-4B3F 0041
-4B3F 0062
-4B40 0021
-4B40 003F
-4B40 0061
-4B40 0041
-4B40 0062
-4B41 0021
-4B41 003F
-4B41 0061
-4B41 0041
-4B41 0062
-4B42 0021
-4B42 003F
-4B42 0061
-4B42 0041
-4B42 0062
-4B43 0021
-4B43 003F
-4B43 0061
-4B43 0041
-4B43 0062
-4B44 0021
-4B44 003F
-4B44 0061
-4B44 0041
-4B44 0062
-4B45 0021
-4B45 003F
-4B45 0061
-4B45 0041
-4B45 0062
-4B46 0021
-4B46 003F
-4B46 0061
-4B46 0041
-4B46 0062
-4B47 0021
-4B47 003F
-4B47 0061
-4B47 0041
-4B47 0062
-4B48 0021
-4B48 003F
-4B48 0061
-4B48 0041
-4B48 0062
-4B49 0021
-4B49 003F
-4B49 0061
-4B49 0041
-4B49 0062
-4B4A 0021
-4B4A 003F
-4B4A 0061
-4B4A 0041
-4B4A 0062
-4B4B 0021
-4B4B 003F
-4B4B 0061
-4B4B 0041
-4B4B 0062
-4B4C 0021
-4B4C 003F
-4B4C 0061
-4B4C 0041
-4B4C 0062
-4B4D 0021
-4B4D 003F
-4B4D 0061
-4B4D 0041
-4B4D 0062
-4B4E 0021
-4B4E 003F
-4B4E 0061
-4B4E 0041
-4B4E 0062
-4B4F 0021
-4B4F 003F
-4B4F 0061
-4B4F 0041
-4B4F 0062
-4B50 0021
-4B50 003F
-4B50 0061
-4B50 0041
-4B50 0062
-4B51 0021
-4B51 003F
-4B51 0061
-4B51 0041
-4B51 0062
-4B52 0021
-4B52 003F
-4B52 0061
-4B52 0041
-4B52 0062
-4B53 0021
-4B53 003F
-4B53 0061
-4B53 0041
-4B53 0062
-4B54 0021
-4B54 003F
-4B54 0061
-4B54 0041
-4B54 0062
-4B55 0021
-4B55 003F
-4B55 0061
-4B55 0041
-4B55 0062
-4B56 0021
-4B56 003F
-4B56 0061
-4B56 0041
-4B56 0062
-4B57 0021
-4B57 003F
-4B57 0061
-4B57 0041
-4B57 0062
-4B58 0021
-4B58 003F
-4B58 0061
-4B58 0041
-4B58 0062
-4B59 0021
-4B59 003F
-4B59 0061
-4B59 0041
-4B59 0062
-4B5A 0021
-4B5A 003F
-4B5A 0061
-4B5A 0041
-4B5A 0062
-4B5B 0021
-4B5B 003F
-4B5B 0061
-4B5B 0041
-4B5B 0062
-4B5C 0021
-4B5C 003F
-4B5C 0061
-4B5C 0041
-4B5C 0062
-4B5D 0021
-4B5D 003F
-4B5D 0061
-4B5D 0041
-4B5D 0062
-4B5E 0021
-4B5E 003F
-4B5E 0061
-4B5E 0041
-4B5E 0062
-4B5F 0021
-4B5F 003F
-4B5F 0061
-4B5F 0041
-4B5F 0062
-4B60 0021
-4B60 003F
-4B60 0061
-4B60 0041
-4B60 0062
-4B61 0021
-4B61 003F
-4B61 0061
-4B61 0041
-4B61 0062
-4B62 0021
-4B62 003F
-4B62 0061
-4B62 0041
-4B62 0062
-4B63 0021
-4B63 003F
-4B63 0061
-4B63 0041
-4B63 0062
-4B64 0021
-4B64 003F
-4B64 0061
-4B64 0041
-4B64 0062
-4B65 0021
-4B65 003F
-4B65 0061
-4B65 0041
-4B65 0062
-4B66 0021
-4B66 003F
-4B66 0061
-4B66 0041
-4B66 0062
-4B67 0021
-4B67 003F
-4B67 0061
-4B67 0041
-4B67 0062
-4B68 0021
-4B68 003F
-4B68 0061
-4B68 0041
-4B68 0062
-4B69 0021
-4B69 003F
-4B69 0061
-4B69 0041
-4B69 0062
-4B6A 0021
-4B6A 003F
-4B6A 0061
-4B6A 0041
-4B6A 0062
-4B6B 0021
-4B6B 003F
-4B6B 0061
-4B6B 0041
-4B6B 0062
-4B6C 0021
-4B6C 003F
-4B6C 0061
-4B6C 0041
-4B6C 0062
-4B6D 0021
-4B6D 003F
-4B6D 0061
-4B6D 0041
-4B6D 0062
-4B6E 0021
-4B6E 003F
-4B6E 0061
-4B6E 0041
-4B6E 0062
-4B6F 0021
-4B6F 003F
-4B6F 0061
-4B6F 0041
-4B6F 0062
-4B70 0021
-4B70 003F
-4B70 0061
-4B70 0041
-4B70 0062
-4B71 0021
-4B71 003F
-4B71 0061
-4B71 0041
-4B71 0062
-4B72 0021
-4B72 003F
-4B72 0061
-4B72 0041
-4B72 0062
-4B73 0021
-4B73 003F
-4B73 0061
-4B73 0041
-4B73 0062
-4B74 0021
-4B74 003F
-4B74 0061
-4B74 0041
-4B74 0062
-4B75 0021
-4B75 003F
-4B75 0061
-4B75 0041
-4B75 0062
-4B76 0021
-4B76 003F
-4B76 0061
-4B76 0041
-4B76 0062
-4B77 0021
-4B77 003F
-4B77 0061
-4B77 0041
-4B77 0062
-4B78 0021
-4B78 003F
-4B78 0061
-4B78 0041
-4B78 0062
-4B79 0021
-4B79 003F
-4B79 0061
-4B79 0041
-4B79 0062
-4B7A 0021
-4B7A 003F
-4B7A 0061
-4B7A 0041
-4B7A 0062
-4B7B 0021
-4B7B 003F
-4B7B 0061
-4B7B 0041
-4B7B 0062
-4B7C 0021
-4B7C 003F
-4B7C 0061
-4B7C 0041
-4B7C 0062
-4B7D 0021
-4B7D 003F
-4B7D 0061
-4B7D 0041
-4B7D 0062
-4B7E 0021
-4B7E 003F
-4B7E 0061
-4B7E 0041
-4B7E 0062
-4B7F 0021
-4B7F 003F
-4B7F 0061
-4B7F 0041
-4B7F 0062
-4B80 0021
-4B80 003F
-4B80 0061
-4B80 0041
-4B80 0062
-4B81 0021
-4B81 003F
-4B81 0061
-4B81 0041
-4B81 0062
-4B82 0021
-4B82 003F
-4B82 0061
-4B82 0041
-4B82 0062
-4B83 0021
-4B83 003F
-4B83 0061
-4B83 0041
-4B83 0062
-4B84 0021
-4B84 003F
-4B84 0061
-4B84 0041
-4B84 0062
-4B85 0021
-4B85 003F
-4B85 0061
-4B85 0041
-4B85 0062
-4B86 0021
-4B86 003F
-4B86 0061
-4B86 0041
-4B86 0062
-4B87 0021
-4B87 003F
-4B87 0061
-4B87 0041
-4B87 0062
-4B88 0021
-4B88 003F
-4B88 0061
-4B88 0041
-4B88 0062
-4B89 0021
-4B89 003F
-4B89 0061
-4B89 0041
-4B89 0062
-4B8A 0021
-4B8A 003F
-4B8A 0061
-4B8A 0041
-4B8A 0062
-4B8B 0021
-4B8B 003F
-4B8B 0061
-4B8B 0041
-4B8B 0062
-4B8C 0021
-4B8C 003F
-4B8C 0061
-4B8C 0041
-4B8C 0062
-4B8D 0021
-4B8D 003F
-4B8D 0061
-4B8D 0041
-4B8D 0062
-4B8E 0021
-4B8E 003F
-4B8E 0061
-4B8E 0041
-4B8E 0062
-4B8F 0021
-4B8F 003F
-4B8F 0061
-4B8F 0041
-4B8F 0062
-4B90 0021
-4B90 003F
-4B90 0061
-4B90 0041
-4B90 0062
-4B91 0021
-4B91 003F
-4B91 0061
-4B91 0041
-4B91 0062
-4B92 0021
-4B92 003F
-4B92 0061
-4B92 0041
-4B92 0062
-4B93 0021
-4B93 003F
-4B93 0061
-4B93 0041
-4B93 0062
-4B94 0021
-4B94 003F
-4B94 0061
-4B94 0041
-4B94 0062
-4B95 0021
-4B95 003F
-4B95 0061
-4B95 0041
-4B95 0062
-4B96 0021
-4B96 003F
-4B96 0061
-4B96 0041
-4B96 0062
-4B97 0021
-4B97 003F
-4B97 0061
-4B97 0041
-4B97 0062
-4B98 0021
-4B98 003F
-4B98 0061
-4B98 0041
-4B98 0062
-4B99 0021
-4B99 003F
-4B99 0061
-4B99 0041
-4B99 0062
-4B9A 0021
-4B9A 003F
-4B9A 0061
-4B9A 0041
-4B9A 0062
-4B9B 0021
-4B9B 003F
-4B9B 0061
-4B9B 0041
-4B9B 0062
-4B9C 0021
-4B9C 003F
-4B9C 0061
-4B9C 0041
-4B9C 0062
-4B9D 0021
-4B9D 003F
-4B9D 0061
-4B9D 0041
-4B9D 0062
-4B9E 0021
-4B9E 003F
-4B9E 0061
-4B9E 0041
-4B9E 0062
-4B9F 0021
-4B9F 003F
-4B9F 0061
-4B9F 0041
-4B9F 0062
-4BA0 0021
-4BA0 003F
-4BA0 0061
-4BA0 0041
-4BA0 0062
-4BA1 0021
-4BA1 003F
-4BA1 0061
-4BA1 0041
-4BA1 0062
-4BA2 0021
-4BA2 003F
-4BA2 0061
-4BA2 0041
-4BA2 0062
-4BA3 0021
-4BA3 003F
-4BA3 0061
-4BA3 0041
-4BA3 0062
-4BA4 0021
-4BA4 003F
-4BA4 0061
-4BA4 0041
-4BA4 0062
-4BA5 0021
-4BA5 003F
-4BA5 0061
-4BA5 0041
-4BA5 0062
-4BA6 0021
-4BA6 003F
-4BA6 0061
-4BA6 0041
-4BA6 0062
-4BA7 0021
-4BA7 003F
-4BA7 0061
-4BA7 0041
-4BA7 0062
-4BA8 0021
-4BA8 003F
-4BA8 0061
-4BA8 0041
-4BA8 0062
-4BA9 0021
-4BA9 003F
-4BA9 0061
-4BA9 0041
-4BA9 0062
-4BAA 0021
-4BAA 003F
-4BAA 0061
-4BAA 0041
-4BAA 0062
-4BAB 0021
-4BAB 003F
-4BAB 0061
-4BAB 0041
-4BAB 0062
-4BAC 0021
-4BAC 003F
-4BAC 0061
-4BAC 0041
-4BAC 0062
-4BAD 0021
-4BAD 003F
-4BAD 0061
-4BAD 0041
-4BAD 0062
-4BAE 0021
-4BAE 003F
-4BAE 0061
-4BAE 0041
-4BAE 0062
-4BAF 0021
-4BAF 003F
-4BAF 0061
-4BAF 0041
-4BAF 0062
-4BB0 0021
-4BB0 003F
-4BB0 0061
-4BB0 0041
-4BB0 0062
-4BB1 0021
-4BB1 003F
-4BB1 0061
-4BB1 0041
-4BB1 0062
-4BB2 0021
-4BB2 003F
-4BB2 0061
-4BB2 0041
-4BB2 0062
-4BB3 0021
-4BB3 003F
-4BB3 0061
-4BB3 0041
-4BB3 0062
-4BB4 0021
-4BB4 003F
-4BB4 0061
-4BB4 0041
-4BB4 0062
-4BB5 0021
-4BB5 003F
-4BB5 0061
-4BB5 0041
-4BB5 0062
-4BB6 0021
-4BB6 003F
-4BB6 0061
-4BB6 0041
-4BB6 0062
-4BB7 0021
-4BB7 003F
-4BB7 0061
-4BB7 0041
-4BB7 0062
-4BB8 0021
-4BB8 003F
-4BB8 0061
-4BB8 0041
-4BB8 0062
-4BB9 0021
-4BB9 003F
-4BB9 0061
-4BB9 0041
-4BB9 0062
-4BBA 0021
-4BBA 003F
-4BBA 0061
-4BBA 0041
-4BBA 0062
-4BBB 0021
-4BBB 003F
-4BBB 0061
-4BBB 0041
-4BBB 0062
-4BBC 0021
-4BBC 003F
-4BBC 0061
-4BBC 0041
-4BBC 0062
-4BBD 0021
-4BBD 003F
-4BBD 0061
-4BBD 0041
-4BBD 0062
-4BBE 0021
-4BBE 003F
-4BBE 0061
-4BBE 0041
-4BBE 0062
-4BBF 0021
-4BBF 003F
-4BBF 0061
-4BBF 0041
-4BBF 0062
-4BC0 0021
-4BC0 003F
-4BC0 0061
-4BC0 0041
-4BC0 0062
-4BC1 0021
-4BC1 003F
-4BC1 0061
-4BC1 0041
-4BC1 0062
-4BC2 0021
-4BC2 003F
-4BC2 0061
-4BC2 0041
-4BC2 0062
-4BC3 0021
-4BC3 003F
-4BC3 0061
-4BC3 0041
-4BC3 0062
-4BC4 0021
-4BC4 003F
-4BC4 0061
-4BC4 0041
-4BC4 0062
-4BC5 0021
-4BC5 003F
-4BC5 0061
-4BC5 0041
-4BC5 0062
-4BC6 0021
-4BC6 003F
-4BC6 0061
-4BC6 0041
-4BC6 0062
-4BC7 0021
-4BC7 003F
-4BC7 0061
-4BC7 0041
-4BC7 0062
-4BC8 0021
-4BC8 003F
-4BC8 0061
-4BC8 0041
-4BC8 0062
-4BC9 0021
-4BC9 003F
-4BC9 0061
-4BC9 0041
-4BC9 0062
-4BCA 0021
-4BCA 003F
-4BCA 0061
-4BCA 0041
-4BCA 0062
-4BCB 0021
-4BCB 003F
-4BCB 0061
-4BCB 0041
-4BCB 0062
-4BCC 0021
-4BCC 003F
-4BCC 0061
-4BCC 0041
-4BCC 0062
-4BCD 0021
-4BCD 003F
-4BCD 0061
-4BCD 0041
-4BCD 0062
-4BCE 0021
-2FA08 0021
-4BCE 003F
-2FA08 003F
-4BCE 0061
-2FA08 0061
-4BCE 0041
-2FA08 0041
-4BCE 0062
-2FA08 0062
-4BCF 0021
-4BCF 003F
-4BCF 0061
-4BCF 0041
-4BCF 0062
-4BD0 0021
-4BD0 003F
-4BD0 0061
-4BD0 0041
-4BD0 0062
-4BD1 0021
-4BD1 003F
-4BD1 0061
-4BD1 0041
-4BD1 0062
-4BD2 0021
-4BD2 003F
-4BD2 0061
-4BD2 0041
-4BD2 0062
-4BD3 0021
-4BD3 003F
-4BD3 0061
-4BD3 0041
-4BD3 0062
-4BD4 0021
-4BD4 003F
-4BD4 0061
-4BD4 0041
-4BD4 0062
-4BD5 0021
-4BD5 003F
-4BD5 0061
-4BD5 0041
-4BD5 0062
-4BD6 0021
-4BD6 003F
-4BD6 0061
-4BD6 0041
-4BD6 0062
-4BD7 0021
-4BD7 003F
-4BD7 0061
-4BD7 0041
-4BD7 0062
-4BD8 0021
-4BD8 003F
-4BD8 0061
-4BD8 0041
-4BD8 0062
-4BD9 0021
-4BD9 003F
-4BD9 0061
-4BD9 0041
-4BD9 0062
-4BDA 0021
-4BDA 003F
-4BDA 0061
-4BDA 0041
-4BDA 0062
-4BDB 0021
-4BDB 003F
-4BDB 0061
-4BDB 0041
-4BDB 0062
-4BDC 0021
-4BDC 003F
-4BDC 0061
-4BDC 0041
-4BDC 0062
-4BDD 0021
-4BDD 003F
-4BDD 0061
-4BDD 0041
-4BDD 0062
-4BDE 0021
-4BDE 003F
-4BDE 0061
-4BDE 0041
-4BDE 0062
-4BDF 0021
-4BDF 003F
-4BDF 0061
-4BDF 0041
-4BDF 0062
-4BE0 0021
-4BE0 003F
-4BE0 0061
-4BE0 0041
-4BE0 0062
-4BE1 0021
-4BE1 003F
-4BE1 0061
-4BE1 0041
-4BE1 0062
-4BE2 0021
-4BE2 003F
-4BE2 0061
-4BE2 0041
-4BE2 0062
-4BE3 0021
-4BE3 003F
-4BE3 0061
-4BE3 0041
-4BE3 0062
-4BE4 0021
-4BE4 003F
-4BE4 0061
-4BE4 0041
-4BE4 0062
-4BE5 0021
-4BE5 003F
-4BE5 0061
-4BE5 0041
-4BE5 0062
-4BE6 0021
-4BE6 003F
-4BE6 0061
-4BE6 0041
-4BE6 0062
-4BE7 0021
-4BE7 003F
-4BE7 0061
-4BE7 0041
-4BE7 0062
-4BE8 0021
-4BE8 003F
-4BE8 0061
-4BE8 0041
-4BE8 0062
-4BE9 0021
-4BE9 003F
-4BE9 0061
-4BE9 0041
-4BE9 0062
-4BEA 0021
-4BEA 003F
-4BEA 0061
-4BEA 0041
-4BEA 0062
-4BEB 0021
-4BEB 003F
-4BEB 0061
-4BEB 0041
-4BEB 0062
-4BEC 0021
-4BEC 003F
-4BEC 0061
-4BEC 0041
-4BEC 0062
-4BED 0021
-4BED 003F
-4BED 0061
-4BED 0041
-4BED 0062
-4BEE 0021
-4BEE 003F
-4BEE 0061
-4BEE 0041
-4BEE 0062
-4BEF 0021
-4BEF 003F
-4BEF 0061
-4BEF 0041
-4BEF 0062
-4BF0 0021
-4BF0 003F
-4BF0 0061
-4BF0 0041
-4BF0 0062
-4BF1 0021
-4BF1 003F
-4BF1 0061
-4BF1 0041
-4BF1 0062
-4BF2 0021
-4BF2 003F
-4BF2 0061
-4BF2 0041
-4BF2 0062
-4BF3 0021
-4BF3 003F
-4BF3 0061
-4BF3 0041
-4BF3 0062
-4BF4 0021
-4BF4 003F
-4BF4 0061
-4BF4 0041
-4BF4 0062
-4BF5 0021
-4BF5 003F
-4BF5 0061
-4BF5 0041
-4BF5 0062
-4BF6 0021
-4BF6 003F
-4BF6 0061
-4BF6 0041
-4BF6 0062
-4BF7 0021
-4BF7 003F
-4BF7 0061
-4BF7 0041
-4BF7 0062
-4BF8 0021
-4BF8 003F
-4BF8 0061
-4BF8 0041
-4BF8 0062
-4BF9 0021
-4BF9 003F
-4BF9 0061
-4BF9 0041
-4BF9 0062
-4BFA 0021
-4BFA 003F
-4BFA 0061
-4BFA 0041
-4BFA 0062
-4BFB 0021
-4BFB 003F
-4BFB 0061
-4BFB 0041
-4BFB 0062
-4BFC 0021
-4BFC 003F
-4BFC 0061
-4BFC 0041
-4BFC 0062
-4BFD 0021
-4BFD 003F
-4BFD 0061
-4BFD 0041
-4BFD 0062
-4BFE 0021
-4BFE 003F
-4BFE 0061
-4BFE 0041
-4BFE 0062
-4BFF 0021
-4BFF 003F
-4BFF 0061
-4BFF 0041
-4BFF 0062
-4C00 0021
-4C00 003F
-4C00 0061
-4C00 0041
-4C00 0062
-4C01 0021
-4C01 003F
-4C01 0061
-4C01 0041
-4C01 0062
-4C02 0021
-4C02 003F
-4C02 0061
-4C02 0041
-4C02 0062
-4C03 0021
-4C03 003F
-4C03 0061
-4C03 0041
-4C03 0062
-4C04 0021
-4C04 003F
-4C04 0061
-4C04 0041
-4C04 0062
-4C05 0021
-4C05 003F
-4C05 0061
-4C05 0041
-4C05 0062
-4C06 0021
-4C06 003F
-4C06 0061
-4C06 0041
-4C06 0062
-4C07 0021
-4C07 003F
-4C07 0061
-4C07 0041
-4C07 0062
-4C08 0021
-4C08 003F
-4C08 0061
-4C08 0041
-4C08 0062
-4C09 0021
-4C09 003F
-4C09 0061
-4C09 0041
-4C09 0062
-4C0A 0021
-4C0A 003F
-4C0A 0061
-4C0A 0041
-4C0A 0062
-4C0B 0021
-4C0B 003F
-4C0B 0061
-4C0B 0041
-4C0B 0062
-4C0C 0021
-4C0C 003F
-4C0C 0061
-4C0C 0041
-4C0C 0062
-4C0D 0021
-4C0D 003F
-4C0D 0061
-4C0D 0041
-4C0D 0062
-4C0E 0021
-4C0E 003F
-4C0E 0061
-4C0E 0041
-4C0E 0062
-4C0F 0021
-4C0F 003F
-4C0F 0061
-4C0F 0041
-4C0F 0062
-4C10 0021
-4C10 003F
-4C10 0061
-4C10 0041
-4C10 0062
-4C11 0021
-4C11 003F
-4C11 0061
-4C11 0041
-4C11 0062
-4C12 0021
-4C12 003F
-4C12 0061
-4C12 0041
-4C12 0062
-4C13 0021
-4C13 003F
-4C13 0061
-4C13 0041
-4C13 0062
-4C14 0021
-4C14 003F
-4C14 0061
-4C14 0041
-4C14 0062
-4C15 0021
-4C15 003F
-4C15 0061
-4C15 0041
-4C15 0062
-4C16 0021
-4C16 003F
-4C16 0061
-4C16 0041
-4C16 0062
-4C17 0021
-4C17 003F
-4C17 0061
-4C17 0041
-4C17 0062
-4C18 0021
-4C18 003F
-4C18 0061
-4C18 0041
-4C18 0062
-4C19 0021
-4C19 003F
-4C19 0061
-4C19 0041
-4C19 0062
-4C1A 0021
-4C1A 003F
-4C1A 0061
-4C1A 0041
-4C1A 0062
-4C1B 0021
-4C1B 003F
-4C1B 0061
-4C1B 0041
-4C1B 0062
-4C1C 0021
-4C1C 003F
-4C1C 0061
-4C1C 0041
-4C1C 0062
-4C1D 0021
-4C1D 003F
-4C1D 0061
-4C1D 0041
-4C1D 0062
-4C1E 0021
-4C1E 003F
-4C1E 0061
-4C1E 0041
-4C1E 0062
-4C1F 0021
-4C1F 003F
-4C1F 0061
-4C1F 0041
-4C1F 0062
-4C20 0021
-4C20 003F
-4C20 0061
-4C20 0041
-4C20 0062
-4C21 0021
-4C21 003F
-4C21 0061
-4C21 0041
-4C21 0062
-4C22 0021
-4C22 003F
-4C22 0061
-4C22 0041
-4C22 0062
-4C23 0021
-4C23 003F
-4C23 0061
-4C23 0041
-4C23 0062
-4C24 0021
-4C24 003F
-4C24 0061
-4C24 0041
-4C24 0062
-4C25 0021
-4C25 003F
-4C25 0061
-4C25 0041
-4C25 0062
-4C26 0021
-4C26 003F
-4C26 0061
-4C26 0041
-4C26 0062
-4C27 0021
-4C27 003F
-4C27 0061
-4C27 0041
-4C27 0062
-4C28 0021
-4C28 003F
-4C28 0061
-4C28 0041
-4C28 0062
-4C29 0021
-4C29 003F
-4C29 0061
-4C29 0041
-4C29 0062
-4C2A 0021
-4C2A 003F
-4C2A 0061
-4C2A 0041
-4C2A 0062
-4C2B 0021
-4C2B 003F
-4C2B 0061
-4C2B 0041
-4C2B 0062
-4C2C 0021
-4C2C 003F
-4C2C 0061
-4C2C 0041
-4C2C 0062
-4C2D 0021
-4C2D 003F
-4C2D 0061
-4C2D 0041
-4C2D 0062
-4C2E 0021
-4C2E 003F
-4C2E 0061
-4C2E 0041
-4C2E 0062
-4C2F 0021
-4C2F 003F
-4C2F 0061
-4C2F 0041
-4C2F 0062
-4C30 0021
-4C30 003F
-4C30 0061
-4C30 0041
-4C30 0062
-4C31 0021
-4C31 003F
-4C31 0061
-4C31 0041
-4C31 0062
-4C32 0021
-4C32 003F
-4C32 0061
-4C32 0041
-4C32 0062
-4C33 0021
-4C33 003F
-4C33 0061
-4C33 0041
-4C33 0062
-4C34 0021
-4C34 003F
-4C34 0061
-4C34 0041
-4C34 0062
-4C35 0021
-4C35 003F
-4C35 0061
-4C35 0041
-4C35 0062
-4C36 0021
-4C36 003F
-4C36 0061
-4C36 0041
-4C36 0062
-4C37 0021
-4C37 003F
-4C37 0061
-4C37 0041
-4C37 0062
-4C38 0021
-4C38 003F
-4C38 0061
-4C38 0041
-4C38 0062
-4C39 0021
-4C39 003F
-4C39 0061
-4C39 0041
-4C39 0062
-4C3A 0021
-4C3A 003F
-4C3A 0061
-4C3A 0041
-4C3A 0062
-4C3B 0021
-4C3B 003F
-4C3B 0061
-4C3B 0041
-4C3B 0062
-4C3C 0021
-4C3C 003F
-4C3C 0061
-4C3C 0041
-4C3C 0062
-4C3D 0021
-4C3D 003F
-4C3D 0061
-4C3D 0041
-4C3D 0062
-4C3E 0021
-4C3E 003F
-4C3E 0061
-4C3E 0041
-4C3E 0062
-4C3F 0021
-4C3F 003F
-4C3F 0061
-4C3F 0041
-4C3F 0062
-4C40 0021
-4C40 003F
-4C40 0061
-4C40 0041
-4C40 0062
-4C41 0021
-4C41 003F
-4C41 0061
-4C41 0041
-4C41 0062
-4C42 0021
-4C42 003F
-4C42 0061
-4C42 0041
-4C42 0062
-4C43 0021
-4C43 003F
-4C43 0061
-4C43 0041
-4C43 0062
-4C44 0021
-4C44 003F
-4C44 0061
-4C44 0041
-4C44 0062
-4C45 0021
-4C45 003F
-4C45 0061
-4C45 0041
-4C45 0062
-4C46 0021
-4C46 003F
-4C46 0061
-4C46 0041
-4C46 0062
-4C47 0021
-4C47 003F
-4C47 0061
-4C47 0041
-4C47 0062
-4C48 0021
-4C48 003F
-4C48 0061
-4C48 0041
-4C48 0062
-4C49 0021
-4C49 003F
-4C49 0061
-4C49 0041
-4C49 0062
-4C4A 0021
-4C4A 003F
-4C4A 0061
-4C4A 0041
-4C4A 0062
-4C4B 0021
-4C4B 003F
-4C4B 0061
-4C4B 0041
-4C4B 0062
-4C4C 0021
-4C4C 003F
-4C4C 0061
-4C4C 0041
-4C4C 0062
-4C4D 0021
-4C4D 003F
-4C4D 0061
-4C4D 0041
-4C4D 0062
-4C4E 0021
-4C4E 003F
-4C4E 0061
-4C4E 0041
-4C4E 0062
-4C4F 0021
-4C4F 003F
-4C4F 0061
-4C4F 0041
-4C4F 0062
-4C50 0021
-4C50 003F
-4C50 0061
-4C50 0041
-4C50 0062
-4C51 0021
-4C51 003F
-4C51 0061
-4C51 0041
-4C51 0062
-4C52 0021
-4C52 003F
-4C52 0061
-4C52 0041
-4C52 0062
-4C53 0021
-4C53 003F
-4C53 0061
-4C53 0041
-4C53 0062
-4C54 0021
-4C54 003F
-4C54 0061
-4C54 0041
-4C54 0062
-4C55 0021
-4C55 003F
-4C55 0061
-4C55 0041
-4C55 0062
-4C56 0021
-4C56 003F
-4C56 0061
-4C56 0041
-4C56 0062
-4C57 0021
-4C57 003F
-4C57 0061
-4C57 0041
-4C57 0062
-4C58 0021
-4C58 003F
-4C58 0061
-4C58 0041
-4C58 0062
-4C59 0021
-4C59 003F
-4C59 0061
-4C59 0041
-4C59 0062
-4C5A 0021
-4C5A 003F
-4C5A 0061
-4C5A 0041
-4C5A 0062
-4C5B 0021
-4C5B 003F
-4C5B 0061
-4C5B 0041
-4C5B 0062
-4C5C 0021
-4C5C 003F
-4C5C 0061
-4C5C 0041
-4C5C 0062
-4C5D 0021
-4C5D 003F
-4C5D 0061
-4C5D 0041
-4C5D 0062
-4C5E 0021
-4C5E 003F
-4C5E 0061
-4C5E 0041
-4C5E 0062
-4C5F 0021
-4C5F 003F
-4C5F 0061
-4C5F 0041
-4C5F 0062
-4C60 0021
-4C60 003F
-4C60 0061
-4C60 0041
-4C60 0062
-4C61 0021
-4C61 003F
-4C61 0061
-4C61 0041
-4C61 0062
-4C62 0021
-4C62 003F
-4C62 0061
-4C62 0041
-4C62 0062
-4C63 0021
-4C63 003F
-4C63 0061
-4C63 0041
-4C63 0062
-4C64 0021
-4C64 003F
-4C64 0061
-4C64 0041
-4C64 0062
-4C65 0021
-4C65 003F
-4C65 0061
-4C65 0041
-4C65 0062
-4C66 0021
-4C66 003F
-4C66 0061
-4C66 0041
-4C66 0062
-4C67 0021
-4C67 003F
-4C67 0061
-4C67 0041
-4C67 0062
-4C68 0021
-4C68 003F
-4C68 0061
-4C68 0041
-4C68 0062
-4C69 0021
-4C69 003F
-4C69 0061
-4C69 0041
-4C69 0062
-4C6A 0021
-4C6A 003F
-4C6A 0061
-4C6A 0041
-4C6A 0062
-4C6B 0021
-4C6B 003F
-4C6B 0061
-4C6B 0041
-4C6B 0062
-4C6C 0021
-4C6C 003F
-4C6C 0061
-4C6C 0041
-4C6C 0062
-4C6D 0021
-4C6D 003F
-4C6D 0061
-4C6D 0041
-4C6D 0062
-4C6E 0021
-4C6E 003F
-4C6E 0061
-4C6E 0041
-4C6E 0062
-4C6F 0021
-4C6F 003F
-4C6F 0061
-4C6F 0041
-4C6F 0062
-4C70 0021
-4C70 003F
-4C70 0061
-4C70 0041
-4C70 0062
-4C71 0021
-4C71 003F
-4C71 0061
-4C71 0041
-4C71 0062
-4C72 0021
-4C72 003F
-4C72 0061
-4C72 0041
-4C72 0062
-4C73 0021
-4C73 003F
-4C73 0061
-4C73 0041
-4C73 0062
-4C74 0021
-4C74 003F
-4C74 0061
-4C74 0041
-4C74 0062
-4C75 0021
-4C75 003F
-4C75 0061
-4C75 0041
-4C75 0062
-4C76 0021
-4C76 003F
-4C76 0061
-4C76 0041
-4C76 0062
-4C77 0021
-4C77 003F
-4C77 0061
-4C77 0041
-4C77 0062
-4C78 0021
-4C78 003F
-4C78 0061
-4C78 0041
-4C78 0062
-4C79 0021
-4C79 003F
-4C79 0061
-4C79 0041
-4C79 0062
-4C7A 0021
-4C7A 003F
-4C7A 0061
-4C7A 0041
-4C7A 0062
-4C7B 0021
-4C7B 003F
-4C7B 0061
-4C7B 0041
-4C7B 0062
-4C7C 0021
-4C7C 003F
-4C7C 0061
-4C7C 0041
-4C7C 0062
-4C7D 0021
-4C7D 003F
-4C7D 0061
-4C7D 0041
-4C7D 0062
-4C7E 0021
-4C7E 003F
-4C7E 0061
-4C7E 0041
-4C7E 0062
-4C7F 0021
-4C7F 003F
-4C7F 0061
-4C7F 0041
-4C7F 0062
-4C80 0021
-4C80 003F
-4C80 0061
-4C80 0041
-4C80 0062
-4C81 0021
-4C81 003F
-4C81 0061
-4C81 0041
-4C81 0062
-4C82 0021
-4C82 003F
-4C82 0061
-4C82 0041
-4C82 0062
-4C83 0021
-4C83 003F
-4C83 0061
-4C83 0041
-4C83 0062
-4C84 0021
-4C84 003F
-4C84 0061
-4C84 0041
-4C84 0062
-4C85 0021
-4C85 003F
-4C85 0061
-4C85 0041
-4C85 0062
-4C86 0021
-4C86 003F
-4C86 0061
-4C86 0041
-4C86 0062
-4C87 0021
-4C87 003F
-4C87 0061
-4C87 0041
-4C87 0062
-4C88 0021
-4C88 003F
-4C88 0061
-4C88 0041
-4C88 0062
-4C89 0021
-4C89 003F
-4C89 0061
-4C89 0041
-4C89 0062
-4C8A 0021
-4C8A 003F
-4C8A 0061
-4C8A 0041
-4C8A 0062
-4C8B 0021
-4C8B 003F
-4C8B 0061
-4C8B 0041
-4C8B 0062
-4C8C 0021
-4C8C 003F
-4C8C 0061
-4C8C 0041
-4C8C 0062
-4C8D 0021
-4C8D 003F
-4C8D 0061
-4C8D 0041
-4C8D 0062
-4C8E 0021
-4C8E 003F
-4C8E 0061
-4C8E 0041
-4C8E 0062
-4C8F 0021
-4C8F 003F
-4C8F 0061
-4C8F 0041
-4C8F 0062
-4C90 0021
-4C90 003F
-4C90 0061
-4C90 0041
-4C90 0062
-4C91 0021
-4C91 003F
-4C91 0061
-4C91 0041
-4C91 0062
-4C92 0021
-4C92 003F
-4C92 0061
-4C92 0041
-4C92 0062
-4C93 0021
-4C93 003F
-4C93 0061
-4C93 0041
-4C93 0062
-4C94 0021
-4C94 003F
-4C94 0061
-4C94 0041
-4C94 0062
-4C95 0021
-4C95 003F
-4C95 0061
-4C95 0041
-4C95 0062
-4C96 0021
-4C96 003F
-4C96 0061
-4C96 0041
-4C96 0062
-4C97 0021
-4C97 003F
-4C97 0061
-4C97 0041
-4C97 0062
-4C98 0021
-4C98 003F
-4C98 0061
-4C98 0041
-4C98 0062
-4C99 0021
-4C99 003F
-4C99 0061
-4C99 0041
-4C99 0062
-4C9A 0021
-4C9A 003F
-4C9A 0061
-4C9A 0041
-4C9A 0062
-4C9B 0021
-4C9B 003F
-4C9B 0061
-4C9B 0041
-4C9B 0062
-4C9C 0021
-4C9C 003F
-4C9C 0061
-4C9C 0041
-4C9C 0062
-4C9D 0021
-4C9D 003F
-4C9D 0061
-4C9D 0041
-4C9D 0062
-4C9E 0021
-4C9E 003F
-4C9E 0061
-4C9E 0041
-4C9E 0062
-4C9F 0021
-4C9F 003F
-4C9F 0061
-4C9F 0041
-4C9F 0062
-4CA0 0021
-4CA0 003F
-4CA0 0061
-4CA0 0041
-4CA0 0062
-4CA1 0021
-4CA1 003F
-4CA1 0061
-4CA1 0041
-4CA1 0062
-4CA2 0021
-4CA2 003F
-4CA2 0061
-4CA2 0041
-4CA2 0062
-4CA3 0021
-4CA3 003F
-4CA3 0061
-4CA3 0041
-4CA3 0062
-4CA4 0021
-4CA4 003F
-4CA4 0061
-4CA4 0041
-4CA4 0062
-4CA5 0021
-4CA5 003F
-4CA5 0061
-4CA5 0041
-4CA5 0062
-4CA6 0021
-4CA6 003F
-4CA6 0061
-4CA6 0041
-4CA6 0062
-4CA7 0021
-4CA7 003F
-4CA7 0061
-4CA7 0041
-4CA7 0062
-4CA8 0021
-4CA8 003F
-4CA8 0061
-4CA8 0041
-4CA8 0062
-4CA9 0021
-4CA9 003F
-4CA9 0061
-4CA9 0041
-4CA9 0062
-4CAA 0021
-4CAA 003F
-4CAA 0061
-4CAA 0041
-4CAA 0062
-4CAB 0021
-4CAB 003F
-4CAB 0061
-4CAB 0041
-4CAB 0062
-4CAC 0021
-4CAC 003F
-4CAC 0061
-4CAC 0041
-4CAC 0062
-4CAD 0021
-4CAD 003F
-4CAD 0061
-4CAD 0041
-4CAD 0062
-4CAE 0021
-4CAE 003F
-4CAE 0061
-4CAE 0041
-4CAE 0062
-4CAF 0021
-4CAF 003F
-4CAF 0061
-4CAF 0041
-4CAF 0062
-4CB0 0021
-4CB0 003F
-4CB0 0061
-4CB0 0041
-4CB0 0062
-4CB1 0021
-4CB1 003F
-4CB1 0061
-4CB1 0041
-4CB1 0062
-4CB2 0021
-4CB2 003F
-4CB2 0061
-4CB2 0041
-4CB2 0062
-4CB3 0021
-4CB3 003F
-4CB3 0061
-4CB3 0041
-4CB3 0062
-4CB4 0021
-4CB4 003F
-4CB4 0061
-4CB4 0041
-4CB4 0062
-4CB5 0021
-4CB5 003F
-4CB5 0061
-4CB5 0041
-4CB5 0062
-4CB6 0021
-4CB6 003F
-4CB6 0061
-4CB6 0041
-4CB6 0062
-4CB7 0021
-4CB7 003F
-4CB7 0061
-4CB7 0041
-4CB7 0062
-4CB8 0021
-4CB8 003F
-4CB8 0061
-4CB8 0041
-4CB8 0062
-4CB9 0021
-4CB9 003F
-4CB9 0061
-4CB9 0041
-4CB9 0062
-4CBA 0021
-4CBA 003F
-4CBA 0061
-4CBA 0041
-4CBA 0062
-4CBB 0021
-4CBB 003F
-4CBB 0061
-4CBB 0041
-4CBB 0062
-4CBC 0021
-4CBC 003F
-4CBC 0061
-4CBC 0041
-4CBC 0062
-4CBD 0021
-4CBD 003F
-4CBD 0061
-4CBD 0041
-4CBD 0062
-4CBE 0021
-4CBE 003F
-4CBE 0061
-4CBE 0041
-4CBE 0062
-4CBF 0021
-4CBF 003F
-4CBF 0061
-4CBF 0041
-4CBF 0062
-4CC0 0021
-4CC0 003F
-4CC0 0061
-4CC0 0041
-4CC0 0062
-4CC1 0021
-4CC1 003F
-4CC1 0061
-4CC1 0041
-4CC1 0062
-4CC2 0021
-4CC2 003F
-4CC2 0061
-4CC2 0041
-4CC2 0062
-4CC3 0021
-4CC3 003F
-4CC3 0061
-4CC3 0041
-4CC3 0062
-4CC4 0021
-4CC4 003F
-4CC4 0061
-4CC4 0041
-4CC4 0062
-4CC5 0021
-4CC5 003F
-4CC5 0061
-4CC5 0041
-4CC5 0062
-4CC6 0021
-4CC6 003F
-4CC6 0061
-4CC6 0041
-4CC6 0062
-4CC7 0021
-4CC7 003F
-4CC7 0061
-4CC7 0041
-4CC7 0062
-4CC8 0021
-4CC8 003F
-4CC8 0061
-4CC8 0041
-4CC8 0062
-4CC9 0021
-4CC9 003F
-4CC9 0061
-4CC9 0041
-4CC9 0062
-4CCA 0021
-4CCA 003F
-4CCA 0061
-4CCA 0041
-4CCA 0062
-4CCB 0021
-4CCB 003F
-4CCB 0061
-4CCB 0041
-4CCB 0062
-4CCC 0021
-4CCC 003F
-4CCC 0061
-4CCC 0041
-4CCC 0062
-4CCD 0021
-4CCD 003F
-4CCD 0061
-4CCD 0041
-4CCD 0062
-4CCE 0021
-2FA0D 0021
-4CCE 003F
-2FA0D 003F
-4CCE 0061
-2FA0D 0061
-4CCE 0041
-2FA0D 0041
-4CCE 0062
-2FA0D 0062
-4CCF 0021
-4CCF 003F
-4CCF 0061
-4CCF 0041
-4CCF 0062
-4CD0 0021
-4CD0 003F
-4CD0 0061
-4CD0 0041
-4CD0 0062
-4CD1 0021
-4CD1 003F
-4CD1 0061
-4CD1 0041
-4CD1 0062
-4CD2 0021
-4CD2 003F
-4CD2 0061
-4CD2 0041
-4CD2 0062
-4CD3 0021
-4CD3 003F
-4CD3 0061
-4CD3 0041
-4CD3 0062
-4CD4 0021
-4CD4 003F
-4CD4 0061
-4CD4 0041
-4CD4 0062
-4CD5 0021
-4CD5 003F
-4CD5 0061
-4CD5 0041
-4CD5 0062
-4CD6 0021
-4CD6 003F
-4CD6 0061
-4CD6 0041
-4CD6 0062
-4CD7 0021
-4CD7 003F
-4CD7 0061
-4CD7 0041
-4CD7 0062
-4CD8 0021
-4CD8 003F
-4CD8 0061
-4CD8 0041
-4CD8 0062
-4CD9 0021
-4CD9 003F
-4CD9 0061
-4CD9 0041
-4CD9 0062
-4CDA 0021
-4CDA 003F
-4CDA 0061
-4CDA 0041
-4CDA 0062
-4CDB 0021
-4CDB 003F
-4CDB 0061
-4CDB 0041
-4CDB 0062
-4CDC 0021
-4CDC 003F
-4CDC 0061
-4CDC 0041
-4CDC 0062
-4CDD 0021
-4CDD 003F
-4CDD 0061
-4CDD 0041
-4CDD 0062
-4CDE 0021
-4CDE 003F
-4CDE 0061
-4CDE 0041
-4CDE 0062
-4CDF 0021
-4CDF 003F
-4CDF 0061
-4CDF 0041
-4CDF 0062
-4CE0 0021
-4CE0 003F
-4CE0 0061
-4CE0 0041
-4CE0 0062
-4CE1 0021
-4CE1 003F
-4CE1 0061
-4CE1 0041
-4CE1 0062
-4CE2 0021
-4CE2 003F
-4CE2 0061
-4CE2 0041
-4CE2 0062
-4CE3 0021
-4CE3 003F
-4CE3 0061
-4CE3 0041
-4CE3 0062
-4CE4 0021
-4CE4 003F
-4CE4 0061
-4CE4 0041
-4CE4 0062
-4CE5 0021
-4CE5 003F
-4CE5 0061
-4CE5 0041
-4CE5 0062
-4CE6 0021
-4CE6 003F
-4CE6 0061
-4CE6 0041
-4CE6 0062
-4CE7 0021
-4CE7 003F
-4CE7 0061
-4CE7 0041
-4CE7 0062
-4CE8 0021
-4CE8 003F
-4CE8 0061
-4CE8 0041
-4CE8 0062
-4CE9 0021
-4CE9 003F
-4CE9 0061
-4CE9 0041
-4CE9 0062
-4CEA 0021
-4CEA 003F
-4CEA 0061
-4CEA 0041
-4CEA 0062
-4CEB 0021
-4CEB 003F
-4CEB 0061
-4CEB 0041
-4CEB 0062
-4CEC 0021
-4CEC 003F
-4CEC 0061
-4CEC 0041
-4CEC 0062
-4CED 0021
-2FA0E 0021
-4CED 003F
-2FA0E 003F
-4CED 0061
-2FA0E 0061
-4CED 0041
-2FA0E 0041
-4CED 0062
-2FA0E 0062
-4CEE 0021
-4CEE 003F
-4CEE 0061
-4CEE 0041
-4CEE 0062
-4CEF 0021
-4CEF 003F
-4CEF 0061
-4CEF 0041
-4CEF 0062
-4CF0 0021
-4CF0 003F
-4CF0 0061
-4CF0 0041
-4CF0 0062
-4CF1 0021
-4CF1 003F
-4CF1 0061
-4CF1 0041
-4CF1 0062
-4CF2 0021
-4CF2 003F
-4CF2 0061
-4CF2 0041
-4CF2 0062
-4CF3 0021
-4CF3 003F
-4CF3 0061
-4CF3 0041
-4CF3 0062
-4CF4 0021
-4CF4 003F
-4CF4 0061
-4CF4 0041
-4CF4 0062
-4CF5 0021
-4CF5 003F
-4CF5 0061
-4CF5 0041
-4CF5 0062
-4CF6 0021
-4CF6 003F
-4CF6 0061
-4CF6 0041
-4CF6 0062
-4CF7 0021
-4CF7 003F
-4CF7 0061
-4CF7 0041
-4CF7 0062
-4CF8 0021
-2FA11 0021
-4CF8 003F
-2FA11 003F
-4CF8 0061
-2FA11 0061
-4CF8 0041
-2FA11 0041
-4CF8 0062
-2FA11 0062
-4CF9 0021
-4CF9 003F
-4CF9 0061
-4CF9 0041
-4CF9 0062
-4CFA 0021
-4CFA 003F
-4CFA 0061
-4CFA 0041
-4CFA 0062
-4CFB 0021
-4CFB 003F
-4CFB 0061
-4CFB 0041
-4CFB 0062
-4CFC 0021
-4CFC 003F
-4CFC 0061
-4CFC 0041
-4CFC 0062
-4CFD 0021
-4CFD 003F
-4CFD 0061
-4CFD 0041
-4CFD 0062
-4CFE 0021
-4CFE 003F
-4CFE 0061
-4CFE 0041
-4CFE 0062
-4CFF 0021
-4CFF 003F
-4CFF 0061
-4CFF 0041
-4CFF 0062
-4D00 0021
-4D00 003F
-4D00 0061
-4D00 0041
-4D00 0062
-4D01 0021
-4D01 003F
-4D01 0061
-4D01 0041
-4D01 0062
-4D02 0021
-4D02 003F
-4D02 0061
-4D02 0041
-4D02 0062
-4D03 0021
-4D03 003F
-4D03 0061
-4D03 0041
-4D03 0062
-4D04 0021
-4D04 003F
-4D04 0061
-4D04 0041
-4D04 0062
-4D05 0021
-4D05 003F
-4D05 0061
-4D05 0041
-4D05 0062
-4D06 0021
-4D06 003F
-4D06 0061
-4D06 0041
-4D06 0062
-4D07 0021
-4D07 003F
-4D07 0061
-4D07 0041
-4D07 0062
-4D08 0021
-4D08 003F
-4D08 0061
-4D08 0041
-4D08 0062
-4D09 0021
-4D09 003F
-4D09 0061
-4D09 0041
-4D09 0062
-4D0A 0021
-4D0A 003F
-4D0A 0061
-4D0A 0041
-4D0A 0062
-4D0B 0021
-4D0B 003F
-4D0B 0061
-4D0B 0041
-4D0B 0062
-4D0C 0021
-4D0C 003F
-4D0C 0061
-4D0C 0041
-4D0C 0062
-4D0D 0021
-4D0D 003F
-4D0D 0061
-4D0D 0041
-4D0D 0062
-4D0E 0021
-4D0E 003F
-4D0E 0061
-4D0E 0041
-4D0E 0062
-4D0F 0021
-4D0F 003F
-4D0F 0061
-4D0F 0041
-4D0F 0062
-4D10 0021
-4D10 003F
-4D10 0061
-4D10 0041
-4D10 0062
-4D11 0021
-4D11 003F
-4D11 0061
-4D11 0041
-4D11 0062
-4D12 0021
-4D12 003F
-4D12 0061
-4D12 0041
-4D12 0062
-4D13 0021
-4D13 003F
-4D13 0061
-4D13 0041
-4D13 0062
-4D14 0021
-4D14 003F
-4D14 0061
-4D14 0041
-4D14 0062
-4D15 0021
-4D15 003F
-4D15 0061
-4D15 0041
-4D15 0062
-4D16 0021
-4D16 003F
-4D16 0061
-4D16 0041
-4D16 0062
-4D17 0021
-4D17 003F
-4D17 0061
-4D17 0041
-4D17 0062
-4D18 0021
-4D18 003F
-4D18 0061
-4D18 0041
-4D18 0062
-4D19 0021
-4D19 003F
-4D19 0061
-4D19 0041
-4D19 0062
-4D1A 0021
-4D1A 003F
-4D1A 0061
-4D1A 0041
-4D1A 0062
-4D1B 0021
-4D1B 003F
-4D1B 0061
-4D1B 0041
-4D1B 0062
-4D1C 0021
-4D1C 003F
-4D1C 0061
-4D1C 0041
-4D1C 0062
-4D1D 0021
-4D1D 003F
-4D1D 0061
-4D1D 0041
-4D1D 0062
-4D1E 0021
-4D1E 003F
-4D1E 0061
-4D1E 0041
-4D1E 0062
-4D1F 0021
-4D1F 003F
-4D1F 0061
-4D1F 0041
-4D1F 0062
-4D20 0021
-4D20 003F
-4D20 0061
-4D20 0041
-4D20 0062
-4D21 0021
-4D21 003F
-4D21 0061
-4D21 0041
-4D21 0062
-4D22 0021
-4D22 003F
-4D22 0061
-4D22 0041
-4D22 0062
-4D23 0021
-4D23 003F
-4D23 0061
-4D23 0041
-4D23 0062
-4D24 0021
-4D24 003F
-4D24 0061
-4D24 0041
-4D24 0062
-4D25 0021
-4D25 003F
-4D25 0061
-4D25 0041
-4D25 0062
-4D26 0021
-4D26 003F
-4D26 0061
-4D26 0041
-4D26 0062
-4D27 0021
-4D27 003F
-4D27 0061
-4D27 0041
-4D27 0062
-4D28 0021
-4D28 003F
-4D28 0061
-4D28 0041
-4D28 0062
-4D29 0021
-4D29 003F
-4D29 0061
-4D29 0041
-4D29 0062
-4D2A 0021
-4D2A 003F
-4D2A 0061
-4D2A 0041
-4D2A 0062
-4D2B 0021
-4D2B 003F
-4D2B 0061
-4D2B 0041
-4D2B 0062
-4D2C 0021
-4D2C 003F
-4D2C 0061
-4D2C 0041
-4D2C 0062
-4D2D 0021
-4D2D 003F
-4D2D 0061
-4D2D 0041
-4D2D 0062
-4D2E 0021
-4D2E 003F
-4D2E 0061
-4D2E 0041
-4D2E 0062
-4D2F 0021
-4D2F 003F
-4D2F 0061
-4D2F 0041
-4D2F 0062
-4D30 0021
-4D30 003F
-4D30 0061
-4D30 0041
-4D30 0062
-4D31 0021
-4D31 003F
-4D31 0061
-4D31 0041
-4D31 0062
-4D32 0021
-4D32 003F
-4D32 0061
-4D32 0041
-4D32 0062
-4D33 0021
-4D33 003F
-4D33 0061
-4D33 0041
-4D33 0062
-4D34 0021
-4D34 003F
-4D34 0061
-4D34 0041
-4D34 0062
-4D35 0021
-4D35 003F
-4D35 0061
-4D35 0041
-4D35 0062
-4D36 0021
-4D36 003F
-4D36 0061
-4D36 0041
-4D36 0062
-4D37 0021
-4D37 003F
-4D37 0061
-4D37 0041
-4D37 0062
-4D38 0021
-4D38 003F
-4D38 0061
-4D38 0041
-4D38 0062
-4D39 0021
-4D39 003F
-4D39 0061
-4D39 0041
-4D39 0062
-4D3A 0021
-4D3A 003F
-4D3A 0061
-4D3A 0041
-4D3A 0062
-4D3B 0021
-4D3B 003F
-4D3B 0061
-4D3B 0041
-4D3B 0062
-4D3C 0021
-4D3C 003F
-4D3C 0061
-4D3C 0041
-4D3C 0062
-4D3D 0021
-4D3D 003F
-4D3D 0061
-4D3D 0041
-4D3D 0062
-4D3E 0021
-4D3E 003F
-4D3E 0061
-4D3E 0041
-4D3E 0062
-4D3F 0021
-4D3F 003F
-4D3F 0061
-4D3F 0041
-4D3F 0062
-4D40 0021
-4D40 003F
-4D40 0061
-4D40 0041
-4D40 0062
-4D41 0021
-4D41 003F
-4D41 0061
-4D41 0041
-4D41 0062
-4D42 0021
-4D42 003F
-4D42 0061
-4D42 0041
-4D42 0062
-4D43 0021
-4D43 003F
-4D43 0061
-4D43 0041
-4D43 0062
-4D44 0021
-4D44 003F
-4D44 0061
-4D44 0041
-4D44 0062
-4D45 0021
-4D45 003F
-4D45 0061
-4D45 0041
-4D45 0062
-4D46 0021
-4D46 003F
-4D46 0061
-4D46 0041
-4D46 0062
-4D47 0021
-4D47 003F
-4D47 0061
-4D47 0041
-4D47 0062
-4D48 0021
-4D48 003F
-4D48 0061
-4D48 0041
-4D48 0062
-4D49 0021
-4D49 003F
-4D49 0061
-4D49 0041
-4D49 0062
-4D4A 0021
-4D4A 003F
-4D4A 0061
-4D4A 0041
-4D4A 0062
-4D4B 0021
-4D4B 003F
-4D4B 0061
-4D4B 0041
-4D4B 0062
-4D4C 0021
-4D4C 003F
-4D4C 0061
-4D4C 0041
-4D4C 0062
-4D4D 0021
-4D4D 003F
-4D4D 0061
-4D4D 0041
-4D4D 0062
-4D4E 0021
-4D4E 003F
-4D4E 0061
-4D4E 0041
-4D4E 0062
-4D4F 0021
-4D4F 003F
-4D4F 0061
-4D4F 0041
-4D4F 0062
-4D50 0021
-4D50 003F
-4D50 0061
-4D50 0041
-4D50 0062
-4D51 0021
-4D51 003F
-4D51 0061
-4D51 0041
-4D51 0062
-4D52 0021
-4D52 003F
-4D52 0061
-4D52 0041
-4D52 0062
-4D53 0021
-4D53 003F
-4D53 0061
-4D53 0041
-4D53 0062
-4D54 0021
-4D54 003F
-4D54 0061
-4D54 0041
-4D54 0062
-4D55 0021
-4D55 003F
-4D55 0061
-4D55 0041
-4D55 0062
-4D56 0021
-2FA16 0021
-4D56 003F
-2FA16 003F
-4D56 0061
-2FA16 0061
-4D56 0041
-2FA16 0041
-4D56 0062
-2FA16 0062
-4D57 0021
-4D57 003F
-4D57 0061
-4D57 0041
-4D57 0062
-4D58 0021
-4D58 003F
-4D58 0061
-4D58 0041
-4D58 0062
-4D59 0021
-4D59 003F
-4D59 0061
-4D59 0041
-4D59 0062
-4D5A 0021
-4D5A 003F
-4D5A 0061
-4D5A 0041
-4D5A 0062
-4D5B 0021
-4D5B 003F
-4D5B 0061
-4D5B 0041
-4D5B 0062
-4D5C 0021
-4D5C 003F
-4D5C 0061
-4D5C 0041
-4D5C 0062
-4D5D 0021
-4D5D 003F
-4D5D 0061
-4D5D 0041
-4D5D 0062
-4D5E 0021
-4D5E 003F
-4D5E 0061
-4D5E 0041
-4D5E 0062
-4D5F 0021
-4D5F 003F
-4D5F 0061
-4D5F 0041
-4D5F 0062
-4D60 0021
-4D60 003F
-4D60 0061
-4D60 0041
-4D60 0062
-4D61 0021
-4D61 003F
-4D61 0061
-4D61 0041
-4D61 0062
-4D62 0021
-4D62 003F
-4D62 0061
-4D62 0041
-4D62 0062
-4D63 0021
-4D63 003F
-4D63 0061
-4D63 0041
-4D63 0062
-4D64 0021
-4D64 003F
-4D64 0061
-4D64 0041
-4D64 0062
-4D65 0021
-4D65 003F
-4D65 0061
-4D65 0041
-4D65 0062
-4D66 0021
-4D66 003F
-4D66 0061
-4D66 0041
-4D66 0062
-4D67 0021
-4D67 003F
-4D67 0061
-4D67 0041
-4D67 0062
-4D68 0021
-4D68 003F
-4D68 0061
-4D68 0041
-4D68 0062
-4D69 0021
-4D69 003F
-4D69 0061
-4D69 0041
-4D69 0062
-4D6A 0021
-4D6A 003F
-4D6A 0061
-4D6A 0041
-4D6A 0062
-4D6B 0021
-4D6B 003F
-4D6B 0061
-4D6B 0041
-4D6B 0062
-4D6C 0021
-4D6C 003F
-4D6C 0061
-4D6C 0041
-4D6C 0062
-4D6D 0021
-4D6D 003F
-4D6D 0061
-4D6D 0041
-4D6D 0062
-4D6E 0021
-4D6E 003F
-4D6E 0061
-4D6E 0041
-4D6E 0062
-4D6F 0021
-4D6F 003F
-4D6F 0061
-4D6F 0041
-4D6F 0062
-4D70 0021
-4D70 003F
-4D70 0061
-4D70 0041
-4D70 0062
-4D71 0021
-4D71 003F
-4D71 0061
-4D71 0041
-4D71 0062
-4D72 0021
-4D72 003F
-4D72 0061
-4D72 0041
-4D72 0062
-4D73 0021
-4D73 003F
-4D73 0061
-4D73 0041
-4D73 0062
-4D74 0021
-4D74 003F
-4D74 0061
-4D74 0041
-4D74 0062
-4D75 0021
-4D75 003F
-4D75 0061
-4D75 0041
-4D75 0062
-4D76 0021
-4D76 003F
-4D76 0061
-4D76 0041
-4D76 0062
-4D77 0021
-4D77 003F
-4D77 0061
-4D77 0041
-4D77 0062
-4D78 0021
-4D78 003F
-4D78 0061
-4D78 0041
-4D78 0062
-4D79 0021
-4D79 003F
-4D79 0061
-4D79 0041
-4D79 0062
-4D7A 0021
-4D7A 003F
-4D7A 0061
-4D7A 0041
-4D7A 0062
-4D7B 0021
-4D7B 003F
-4D7B 0061
-4D7B 0041
-4D7B 0062
-4D7C 0021
-4D7C 003F
-4D7C 0061
-4D7C 0041
-4D7C 0062
-4D7D 0021
-4D7D 003F
-4D7D 0061
-4D7D 0041
-4D7D 0062
-4D7E 0021
-4D7E 003F
-4D7E 0061
-4D7E 0041
-4D7E 0062
-4D7F 0021
-4D7F 003F
-4D7F 0061
-4D7F 0041
-4D7F 0062
-4D80 0021
-4D80 003F
-4D80 0061
-4D80 0041
-4D80 0062
-4D81 0021
-4D81 003F
-4D81 0061
-4D81 0041
-4D81 0062
-4D82 0021
-4D82 003F
-4D82 0061
-4D82 0041
-4D82 0062
-4D83 0021
-4D83 003F
-4D83 0061
-4D83 0041
-4D83 0062
-4D84 0021
-4D84 003F
-4D84 0061
-4D84 0041
-4D84 0062
-4D85 0021
-4D85 003F
-4D85 0061
-4D85 0041
-4D85 0062
-4D86 0021
-4D86 003F
-4D86 0061
-4D86 0041
-4D86 0062
-4D87 0021
-4D87 003F
-4D87 0061
-4D87 0041
-4D87 0062
-4D88 0021
-4D88 003F
-4D88 0061
-4D88 0041
-4D88 0062
-4D89 0021
-4D89 003F
-4D89 0061
-4D89 0041
-4D89 0062
-4D8A 0021
-4D8A 003F
-4D8A 0061
-4D8A 0041
-4D8A 0062
-4D8B 0021
-4D8B 003F
-4D8B 0061
-4D8B 0041
-4D8B 0062
-4D8C 0021
-4D8C 003F
-4D8C 0061
-4D8C 0041
-4D8C 0062
-4D8D 0021
-4D8D 003F
-4D8D 0061
-4D8D 0041
-4D8D 0062
-4D8E 0021
-4D8E 003F
-4D8E 0061
-4D8E 0041
-4D8E 0062
-4D8F 0021
-4D8F 003F
-4D8F 0061
-4D8F 0041
-4D8F 0062
-4D90 0021
-4D90 003F
-4D90 0061
-4D90 0041
-4D90 0062
-4D91 0021
-4D91 003F
-4D91 0061
-4D91 0041
-4D91 0062
-4D92 0021
-4D92 003F
-4D92 0061
-4D92 0041
-4D92 0062
-4D93 0021
-4D93 003F
-4D93 0061
-4D93 0041
-4D93 0062
-4D94 0021
-4D94 003F
-4D94 0061
-4D94 0041
-4D94 0062
-4D95 0021
-4D95 003F
-4D95 0061
-4D95 0041
-4D95 0062
-4D96 0021
-4D96 003F
-4D96 0061
-4D96 0041
-4D96 0062
-4D97 0021
-4D97 003F
-4D97 0061
-4D97 0041
-4D97 0062
-4D98 0021
-4D98 003F
-4D98 0061
-4D98 0041
-4D98 0062
-4D99 0021
-4D99 003F
-4D99 0061
-4D99 0041
-4D99 0062
-4D9A 0021
-4D9A 003F
-4D9A 0061
-4D9A 0041
-4D9A 0062
-4D9B 0021
-4D9B 003F
-4D9B 0061
-4D9B 0041
-4D9B 0062
-4D9C 0021
-4D9C 003F
-4D9C 0061
-4D9C 0041
-4D9C 0062
-4D9D 0021
-4D9D 003F
-4D9D 0061
-4D9D 0041
-4D9D 0062
-4D9E 0021
-4D9E 003F
-4D9E 0061
-4D9E 0041
-4D9E 0062
-4D9F 0021
-4D9F 003F
-4D9F 0061
-4D9F 0041
-4D9F 0062
-4DA0 0021
-4DA0 003F
-4DA0 0061
-4DA0 0041
-4DA0 0062
-4DA1 0021
-4DA1 003F
-4DA1 0061
-4DA1 0041
-4DA1 0062
-4DA2 0021
-4DA2 003F
-4DA2 0061
-4DA2 0041
-4DA2 0062
-4DA3 0021
-4DA3 003F
-4DA3 0061
-4DA3 0041
-4DA3 0062
-4DA4 0021
-4DA4 003F
-4DA4 0061
-4DA4 0041
-4DA4 0062
-4DA5 0021
-4DA5 003F
-4DA5 0061
-4DA5 0041
-4DA5 0062
-4DA6 0021
-4DA6 003F
-4DA6 0061
-4DA6 0041
-4DA6 0062
-4DA7 0021
-4DA7 003F
-4DA7 0061
-4DA7 0041
-4DA7 0062
-4DA8 0021
-4DA8 003F
-4DA8 0061
-4DA8 0041
-4DA8 0062
-4DA9 0021
-4DA9 003F
-4DA9 0061
-4DA9 0041
-4DA9 0062
-4DAA 0021
-4DAA 003F
-4DAA 0061
-4DAA 0041
-4DAA 0062
-4DAB 0021
-4DAB 003F
-4DAB 0061
-4DAB 0041
-4DAB 0062
-4DAC 0021
-4DAC 003F
-4DAC 0061
-4DAC 0041
-4DAC 0062
-4DAD 0021
-4DAD 003F
-4DAD 0061
-4DAD 0041
-4DAD 0062
-4DAE 0021
-4DAE 003F
-4DAE 0061
-4DAE 0041
-4DAE 0062
-4DAF 0021
-4DAF 003F
-4DAF 0061
-4DAF 0041
-4DAF 0062
-4DB0 0021
-4DB0 003F
-4DB0 0061
-4DB0 0041
-4DB0 0062
-4DB1 0021
-4DB1 003F
-4DB1 0061
-4DB1 0041
-4DB1 0062
-4DB2 0021
-4DB2 003F
-4DB2 0061
-4DB2 0041
-4DB2 0062
-4DB3 0021
-4DB3 003F
-4DB3 0061
-4DB3 0041
-4DB3 0062
-4DB4 0021
-4DB4 003F
-4DB4 0061
-4DB4 0041
-4DB4 0062
-4DB5 0021
-4DB5 003F
-4DB5 0061
-4DB5 0041
-4DB5 0062
-20000 0021
-20000 003F
-20000 0061
-20000 0041
-20000 0062
-20001 0021
-20001 003F
-20001 0061
-20001 0041
-20001 0062
-20002 0021
-20002 003F
-20002 0061
-20002 0041
-20002 0062
-20003 0021
-20003 003F
-20003 0061
-20003 0041
-20003 0062
-20004 0021
-20004 003F
-20004 0061
-20004 0041
-20004 0062
-20005 0021
-20005 003F
-20005 0061
-20005 0041
-20005 0062
-2F803 0021
-2F803 003F
-2F803 0061
-2F803 0041
-2F803 0062
-2F812 0021
-2F812 003F
-2F812 0061
-2F812 0041
-2F812 0062
-2F91B 0021
-2F91B 003F
-2F91B 0061
-2F91B 0041
-2F91B 0062
-2F816 0021
-2F816 003F
-2F816 0061
-2F816 0041
-2F816 0062
-2F80D 0021
-2F80D 003F
-2F80D 0061
-2F80D 0041
-2F80D 0062
-2F9D9 0021
-2F9D9 003F
-2F9D9 0061
-2F9D9 0041
-2F9D9 0062
-2F9DD 0021
-2F9DD 003F
-2F9DD 0061
-2F9DD 0041
-2F9DD 0062
-2F834 0021
-2F834 003F
-2F834 0061
-2F834 0041
-2F834 0062
-2F838 0021
-2F838 003F
-2F838 0061
-2F838 0041
-2F838 0062
-2F859 0021
-2F859 003F
-2F859 0061
-2F859 0041
-2F859 0062
-2F860 0021
-2F860 003F
-2F860 0061
-2F860 0041
-2F860 0062
-2F861 0021
-2F861 003F
-2F861 0061
-2F861 0041
-2F861 0062
-2F86C 0021
-2F86C 003F
-2F86C 0061
-2F86C 0041
-2F86C 0062
-2F871 0021
-2F871 003F
-2F871 0061
-2F871 0041
-2F871 0062
-2F8F8 0021
-2F8F8 003F
-2F8F8 0061
-2F8F8 0041
-2F8F8 0062
-2F87B 0021
-2F87B 003F
-2F87B 0061
-2F87B 0041
-2F87B 0062
-2F87D 0021
-2F87D 003F
-2F87D 0061
-2F87D 0041
-2F87D 0062
-2F889 0021
-2F889 003F
-2F889 0061
-2F889 0041
-2F889 0062
-2F939 0021
-2F939 003F
-2F939 0061
-2F939 0041
-2F939 0062
-2F891 0021
-2F892 0021
-2F891 003F
-2F892 003F
-2F891 0061
-2F892 0061
-2F891 0041
-2F892 0041
-2F891 0062
-2F892 0062
-2F8A4 0021
-2F8A4 003F
-2F8A4 0061
-2F8A4 0041
-2F8A4 0062
-FAD0 0021
-FAD0 003F
-FAD0 0061
-FAD0 0041
-FAD0 0062
-FACF 0021
-FACF 003F
-FACF 0061
-FACF 0041
-FACF 0062
-2F8B8 0021
-2F8B8 003F
-2F8B8 0061
-2F8B8 0041
-2F8B8 0062
-2F8BE 0021
-2F8BE 003F
-2F8BE 0061
-2F8BE 0041
-2F8BE 0062
-2F8CA 0021
-2F8CA 003F
-2F8CA 0061
-2F8CA 0041
-2F8CA 0062
-2F897 0021
-2F897 003F
-2F897 0061
-2F897 0041
-2F897 0062
-2F980 0021
-2F980 003F
-2F980 0061
-2F980 0041
-2F980 0062
-2F989 0021
-2F989 003F
-2F989 0061
-2F989 0041
-2F989 0062
-2F98A 0021
-2F98A 003F
-2F98A 0061
-2F98A 0041
-2F98A 0062
-2F8DD 0021
-2F8DD 003F
-2F8DD 0061
-2F8DD 0041
-2F8DD 0062
-FAD1 0021
-FAD1 003F
-FAD1 0061
-FAD1 0041
-FAD1 0062
-2F8E3 0021
-2F8E3 003F
-2F8E3 0061
-2F8E3 0041
-2F8E3 0062
-2F8EC 0021
-2F8EC 003F
-2F8EC 0061
-2F8EC 0041
-2F8EC 0062
-2F8F0 0021
-2F8F0 003F
-2F8F0 0061
-2F8F0 0041
-2F8F0 0062
-2F8F7 0021
-2F8F7 003F
-2F8F7 0061
-2F8F7 0041
-2F8F7 0062
-2F8F9 0021
-2F8F9 003F
-2F8F9 0061
-2F8F9 0041
-2F8F9 0062
-2F8FB 0021
-2F8FB 003F
-2F8FB 0061
-2F8FB 0041
-2F8FB 0062
-2F906 0021
-2F906 003F
-2F906 0061
-2F906 0041
-2F906 0062
-2F90D 0021
-2F90D 003F
-2F90D 0061
-2F90D 0041
-2F90D 0062
-2F910 0021
-2F910 003F
-2F910 0061
-2F910 0041
-2F910 0062
-2F911 0021
-2F911 003F
-2F911 0061
-2F911 0041
-2F911 0062
-2F91D 0021
-2F91D 003F
-2F91D 0061
-2F91D 0041
-2F91D 0062
-FA6C 0021
-FA6C 003F
-FA6C 0061
-FA6C 0041
-FA6C 0062
-2F91F 0021
-2F91F 003F
-2F91F 0061
-2F91F 0041
-2F91F 0062
-2F923 0021
-2F923 003F
-2F923 0061
-2F923 0041
-2F923 0062
-2F926 0021
-2F926 003F
-2F926 0061
-2F926 0041
-2F926 0062
-2F927 0021
-2F927 003F
-2F927 0061
-2F927 0041
-2F927 0062
-2F935 0021
-2F935 003F
-2F935 0061
-2F935 0041
-2F935 0062
-2F937 0021
-2F937 003F
-2F937 0061
-2F937 0041
-2F937 0062
-2F93B 0021
-2F93B 003F
-2F93B 0061
-2F93B 0041
-2F93B 0062
-2F93C 0021
-2F93C 003F
-2F93C 0061
-2F93C 0041
-2F93C 0062
-2F93D 0021
-2F93D 003F
-2F93D 0061
-2F93D 0041
-2F93D 0062
-2F942 0021
-2F942 003F
-2F942 0061
-2F942 0041
-2F942 0062
-2F941 0021
-2F941 003F
-2F941 0061
-2F941 0041
-2F941 0062
-2F943 0021
-2F943 003F
-2F943 0061
-2F943 0041
-2F943 0062
-2F944 0021
-2F944 003F
-2F944 0061
-2F944 0041
-2F944 0062
-FAD5 0021
-FAD5 003F
-FAD5 0061
-FAD5 0041
-FAD5 0062
-2F94D 0021
-2F94D 003F
-2F94D 0061
-2F94D 0041
-2F94D 0062
-2F952 0021
-2F952 003F
-2F952 0061
-2F952 0041
-2F952 0062
-2F954 0021
-2F954 003F
-2F954 0061
-2F954 0041
-2F954 0062
-2F955 0021
-2F955 003F
-2F955 0061
-2F955 0041
-2F955 0062
-2F95C 0021
-2F95C 003F
-2F95C 0061
-2F95C 0041
-2F95C 0062
-2F95D 0021
-2F95E 0021
-2F95D 003F
-2F95E 003F
-2F95D 0061
-2F95E 0061
-2F95D 0041
-2F95E 0041
-2F95D 0062
-2F95E 0062
-2F961 0021
-2F961 003F
-2F961 0061
-2F961 0041
-2F961 0062
-2F965 0021
-2F965 003F
-2F965 0061
-2F965 0041
-2F965 0062
-FAD6 0021
-FAD6 003F
-FAD6 0061
-FAD6 0041
-FAD6 0062
-2F96B 0021
-2F96B 003F
-2F96B 0061
-2F96B 0041
-2F96B 0062
-2F898 0021
-2F898 003F
-2F898 0061
-2F898 0041
-2F898 0062
-2F972 0021
-2F972 003F
-2F972 0061
-2F972 0041
-2F972 0062
-2F973 0021
-2F973 003F
-2F973 0061
-2F973 0041
-2F973 0062
-2F975 0021
-2F975 003F
-2F975 0061
-2F975 0041
-2F975 0062
-2F977 0021
-2F977 003F
-2F977 0061
-2F977 0041
-2F977 0062
-2F97B 0021
-2F97B 003F
-2F97B 0061
-2F97B 0041
-2F97B 0062
-2F97C 0021
-2F97C 003F
-2F97C 0061
-2F97C 0041
-2F97C 0062
-2F97E 0021
-2F97E 003F
-2F97E 0061
-2F97E 0041
-2F97E 0062
-2F987 0021
-2F987 003F
-2F987 0061
-2F987 0041
-2F987 0062
-2F988 0021
-2F988 003F
-2F988 0061
-2F988 0041
-2F988 0062
-2F997 0021
-2F997 003F
-2F997 0061
-2F997 0041
-2F997 0062
-2F9A4 0021
-2F9A4 003F
-2F9A4 0061
-2F9A4 0041
-2F9A4 0062
-2F9A6 0021
-2F9A6 003F
-2F9A6 0061
-2F9A6 0041
-2F9A6 0062
-2F9A5 0021
-2F9A5 003F
-2F9A5 0061
-2F9A5 0041
-2F9A5 0062
-2F9AD 0021
-2F9AD 003F
-2F9AD 0061
-2F9AD 0041
-2F9AD 0062
-2F9B0 0021
-2F9B0 003F
-2F9B0 0061
-2F9B0 0041
-2F9B0 0062
-2F9B1 0021
-2F9B1 003F
-2F9B1 0061
-2F9B1 0041
-2F9B1 0062
-2F9AB 0021
-2F9AB 003F
-2F9AB 0061
-2F9AB 0041
-2F9AB 0062
-2F9C5 0021
-2F9C5 003F
-2F9C5 0061
-2F9C5 0041
-2F9C5 0062
-2F9CB 0021
-2F9CB 003F
-2F9CB 0061
-2F9CB 0041
-2F9CB 0062
-2F9CC 0021
-2F9CC 003F
-2F9CC 0061
-2F9CC 0041
-2F9CC 0062
-2F9D3 0021
-2F9D3 003F
-2F9D3 0061
-2F9D3 0041
-2F9D3 0062
-FAD7 0021
-FAD7 003F
-FAD7 0061
-FAD7 0041
-FAD7 0062
-2F9D8 0021
-2F9D8 003F
-2F9D8 0061
-2F9D8 0041
-2F9D8 0062
-2F9E0 0021
-2F9E0 003F
-2F9E0 0061
-2F9E0 0041
-2F9E0 0062
-2F9E1 0021
-2F9E1 003F
-2F9E1 0061
-2F9E1 0041
-2F9E1 0062
-2F9E5 0021
-2F9E5 003F
-2F9E5 0061
-2F9E5 0041
-2F9E5 0062
-2F9ED 0021
-2F9ED 003F
-2F9ED 0061
-2F9ED 0041
-2F9ED 0062
-2F9F1 0021
-2F9F1 003F
-2F9F1 0061
-2F9F1 0041
-2F9F1 0062
-2F9F6 0021
-2F9F6 003F
-2F9F6 0061
-2F9F6 0041
-2F9F6 0062
-2F81C 0021
-2F81C 003F
-2F81C 0061
-2F81C 0041
-2F81C 0062
-2F9F7 0021
-2F9F7 003F
-2F9F7 0061
-2F9F7 0041
-2F9F7 0062
-2F9FB 0021
-2F9FB 003F
-2F9FB 0061
-2F9FB 0041
-2F9FB 0062
-2F9FD 0021
-2F9FD 003F
-2F9FD 0061
-2F9FD 0041
-2F9FD 0062
-2FA01 0021
-2FA01 003F
-2FA01 0061
-2FA01 0041
-2FA01 0062
-2FA09 0021
-2FA09 003F
-2FA09 0061
-2FA09 0041
-2FA09 0062
-2FA10 0021
-2FA10 003F
-2FA10 0061
-2FA10 0041
-2FA10 0062
-2FA12 0021
-2FA12 003F
-2FA12 0061
-2FA12 0041
-2FA12 0062
-2FA13 0021
-2FA13 003F
-2FA13 0061
-2FA13 0041
-2FA13 0062
-2FA14 0021
-2FA14 003F
-2FA14 0061
-2FA14 0041
-2FA14 0062
-2F88F 0021
-2F88F 003F
-2F88F 0061
-2F88F 0041
-2F88F 0062
-2FA1D 0021
-2FA1D 003F
-2FA1D 0061
-2FA1D 0041
-2FA1D 0062
-2A6D2 0021
-2A6D2 003F
-2A6D2 0061
-2A6D2 0041
-2A6D2 0062
-2A6D3 0021
-2A6D3 003F
-2A6D3 0061
-2A6D3 0041
-2A6D3 0062
-2A6D4 0021
-2A6D4 003F
-2A6D4 0061
-2A6D4 0041
-2A6D4 0062
-2A6D5 0021
-2A6D5 003F
-2A6D5 0061
-2A6D5 0041
-2A6D5 0062
-2A6D6 0021
-2A6D6 003F
-2A6D6 0061
-2A6D6 0041
-2A6D6 0062
-2A700 0021
-2A700 003F
-2A700 0061
-2A700 0041
-2A700 0062
-2A701 0021
-2A701 003F
-2A701 0061
-2A701 0041
-2A701 0062
-2A702 0021
-2A702 003F
-2A702 0061
-2A702 0041
-2A702 0062
-2A703 0021
-2A703 003F
-2A703 0061
-2A703 0041
-2A703 0062
-2A704 0021
-2A704 003F
-2A704 0061
-2A704 0041
-2A704 0062
-2A705 0021
-2A705 003F
-2A705 0061
-2A705 0041
-2A705 0062
-2B730 0021
-2B730 003F
-2B730 0061
-2B730 0041
-2B730 0062
-2B731 0021
-2B731 003F
-2B731 0061
-2B731 0041
-2B731 0062
-2B732 0021
-2B732 003F
-2B732 0061
-2B732 0041
-2B732 0062
-2B733 0021
-2B733 003F
-2B733 0061
-2B733 0041
-2B733 0062
-2B734 0021
-2B734 003F
-2B734 0061
-2B734 0041
-2B734 0062
-2B740 0021
-2B740 003F
-2B740 0061
-2B740 0041
-2B740 0062
-2B741 0021
-2B741 003F
-2B741 0061
-2B741 0041
-2B741 0062
-2B742 0021
-2B742 003F
-2B742 0061
-2B742 0041
-2B742 0062
-2B743 0021
-2B743 003F
-2B743 0061
-2B743 0041
-2B743 0062
-2B744 0021
-2B744 003F
-2B744 0061
-2B744 0041
-2B744 0062
-2B745 0021
-2B745 003F
-2B745 0061
-2B745 0041
-2B745 0062
-2B819 0021
-2B819 003F
-2B819 0061
-2B819 0041
-2B819 0062
-2B81A 0021
-2B81A 003F
-2B81A 0061
-2B81A 0041
-2B81A 0062
-2B81B 0021
-2B81B 003F
-2B81B 0061
-2B81B 0041
-2B81B 0062
-2B81C 0021
-2B81C 003F
-2B81C 0061
-2B81C 0041
-2B81C 0062
-2B81D 0021
-2B81D 003F
-2B81D 0061
-2B81D 0041
-2B81D 0062
0378 0021
0378 003F
0378 0061
@@ -166353,6 +146027,11 @@ FFFFD 0062
10FFFF 0061
10FFFF 0041
10FFFF 0062
+FFFD 0021
+FFFD 003F
+FFFD 0061
+FFFD 0041
+FFFD 0062
FFFF 0021
FFFF 003F
FFFF 0061
diff --git a/tests/test/units/fpwidestring/CollationTest_SHIFTED_SHORT.txt b/tests/test/units/fpwidestring/CollationTest_SHIFTED_SHORT.txt
index 3c2db2fe4f..b8d87175fc 100644
--- a/tests/test/units/fpwidestring/CollationTest_SHIFTED_SHORT.txt
+++ b/tests/test/units/fpwidestring/CollationTest_SHIFTED_SHORT.txt
@@ -1,8 +1,9 @@
# File: CollationTest_CLDR_SHIFTED_SHORT.txt
-# UCA Version: 6.2.0
-# UCD Version: 6.2.0
-# Generated: 2012-09-21, 19:14:36 GMT [MD]
-# For a description of the format and usage, see CollationAuxiliary.html
+# UCA Version: 7.0.0
+# UCD Version: 7.0.0
+# Generated: 2015-01-03 [MS]
+# For a description of the format and usage, see
+# http://www.unicode.org/reports/tr35/tr35-collation.html#Root_Data_Files
0009 0021
0009 003F
@@ -16,8 +17,6 @@
000D 003F
0085 0021
0085 003F
-180E 0021
-180E 003F
2028 0021
2028 003F
2029 0021
@@ -124,6 +123,8 @@ FE58 003F
2053 003F
2E17 0021
2E17 003F
+2E40 0021
+2E40 003F
301C 0021
301C 003F
3030 0021
@@ -146,6 +147,8 @@ FF0C 003F
2E34 003F
2E32 0021
2E32 003F
+2E41 0021
+2E41 003F
055D 0021
055D 003F
060C 0021
@@ -384,6 +387,7 @@ A6F4 003F
0602 0021
0603 0021
0604 0021
+0605 0021
0610 0021
0611 0021
0612 0021
@@ -395,6 +399,7 @@ A6F4 003F
0618 0021
0619 0021
061A 0021
+061C 0021
0640 0021
06D6 0021
06D7 0021
@@ -452,6 +457,7 @@ A6F4 003F
180B 0021
180C 0021
180D 0021
+180E 0021
1A7F 0021
1B6B 0021
1B6C 0021
@@ -488,6 +494,8 @@ A6F4 003F
1CE7 0021
1CE8 0021
1CF4 0021
+1CF8 0021
+1CF9 0021
200B 0021
200C 0021
200D 0021
@@ -503,6 +511,10 @@ A6F4 003F
2062 0021
2063 0021
2064 0021
+2066 0021
+2067 0021
+2068 0021
+2069 0021
206A 0021
206B 0021
206C 0021
@@ -552,12 +564,34 @@ FE23 0021
FE24 0021
FE25 0021
FE26 0021
+FE28 0021
+FE2A 0021
+FE2B 0021
+FE2C 0021
+FE2D 0021
FE73 0021
FEFF 0021
FFF9 0021
FFFA 0021
FFFB 0021
+102E0 0021
110BD 0021
+11366 0021
+11367 0021
+11368 0021
+11369 0021
+1136A 0021
+1136B 0021
+1136C 0021
+11370 0021
+11371 0021
+11372 0021
+11373 0021
+11374 0021
+1BCA0 0021
+1BCA1 0021
+1BCA2 0021
+1BCA3 0021
1D165 0021
1D166 0021
1D167 0021
@@ -599,6 +633,13 @@ FFFB 0021
1D242 0021
1D243 0021
1D244 0021
+1E8D0 0021
+1E8D1 0021
+1E8D2 0021
+1E8D3 0021
+1E8D4 0021
+1E8D5 0021
+1E8D6 0021
E0001 0021
E0020 0021
E0021 0021
@@ -1058,6 +1099,7 @@ FF01 003F
0602 003F
0603 003F
0604 003F
+0605 003F
0610 003F
0611 003F
0612 003F
@@ -1069,6 +1111,7 @@ FF01 003F
0618 003F
0619 003F
061A 003F
+061C 003F
0640 003F
06D6 003F
06D7 003F
@@ -1126,6 +1169,7 @@ FF01 003F
180B 003F
180C 003F
180D 003F
+180E 003F
1A7F 003F
1B6B 003F
1B6C 003F
@@ -1162,6 +1206,8 @@ FF01 003F
1CE7 003F
1CE8 003F
1CF4 003F
+1CF8 003F
+1CF9 003F
200B 003F
200C 003F
200D 003F
@@ -1177,6 +1223,10 @@ FF01 003F
2062 003F
2063 003F
2064 003F
+2066 003F
+2067 003F
+2068 003F
+2069 003F
206A 003F
206B 003F
206C 003F
@@ -1226,12 +1276,34 @@ FE23 003F
FE24 003F
FE25 003F
FE26 003F
+FE28 003F
+FE2A 003F
+FE2B 003F
+FE2C 003F
+FE2D 003F
FE73 003F
FEFF 003F
FFF9 003F
FFFA 003F
FFFB 003F
+102E0 003F
110BD 003F
+11366 003F
+11367 003F
+11368 003F
+11369 003F
+1136A 003F
+1136B 003F
+1136C 003F
+11370 003F
+11371 003F
+11372 003F
+11373 003F
+11374 003F
+1BCA0 003F
+1BCA1 003F
+1BCA2 003F
+1BCA3 003F
1D165 003F
1D166 003F
1D167 003F
@@ -1273,6 +1345,13 @@ FFFB 003F
1D242 003F
1D243 003F
1D244 003F
+1E8D0 003F
+1E8D1 003F
+1E8D2 003F
+1E8D3 003F
+1E8D4 003F
+1E8D5 003F
+1E8D6 003F
E0001 003F
E0020 003F
E0021 003F
@@ -1693,12 +1772,20 @@ FE19 003F
2CFE 003F
2E30 0021
2E30 003F
+2E3C 0021
+2E3C 003F
A4FF 0021
A4FF 003F
A60E 0021
A60E 003F
A6F3 0021
A6F3 003F
+16AF5 0334
+16AF5 0021
+16AF5 003F
+1BC9F 0334
+1BC9F 0021
+1BC9F 003F
3002 0021
FE12 0021
FF61 0021
@@ -1799,6 +1886,30 @@ ABEB 003F
111C6 0334
111C6 0021
111C6 003F
+11238 0334
+11238 0021
+11238 003F
+11239 0334
+11239 0021
+11239 003F
+115C2 0334
+115C2 0021
+115C2 003F
+115C3 0334
+115C3 0021
+115C3 003F
+11641 0334
+11641 0021
+11641 003F
+11642 0334
+11642 0021
+11642 003F
+16A6E 0334
+16A6E 0021
+16A6E 003F
+16A6F 0334
+16A6F 0021
+16A6F 003F
1C7E 0021
1C7E 003F
1C7F 0021
@@ -1904,6 +2015,8 @@ A95F 003F
2E2C 003F
2E2D 0021
2E2D 003F
+2E3D 0021
+2E3D 003F
2CFC 0021
2CFC 003F
2CFF 0021
@@ -1943,6 +2056,9 @@ A95F 003F
12473 0334
12473 0021
12473 003F
+12474 0334
+12474 0021
+12474 003F
0027 0021
FF07 0021
0027 003F
@@ -1971,6 +2087,8 @@ FF02 003F
201E 003F
201F 0021
201F 003F
+2E42 0021
+2E42 003F
301D 0021
301D 003F
301E 0021
@@ -2049,6 +2167,14 @@ FF5D 003F
2045 003F
2046 0021
2046 003F
+2308 0021
+2308 003F
+2309 0021
+2309 003F
+230A 0021
+230A 003F
+230B 0021
+230B 003F
29FC 0021
29FC 003F
29FD 0021
@@ -2275,6 +2401,8 @@ FD3F 0021
FD3F 003F
2016 0021
2016 003F
+2E3E 0021
+2E3E 003F
29D8 0021
29D8 003F
29D9 0021
@@ -2291,6 +2419,8 @@ FD3F 003F
00B6 003F
204B 0021
204B 003F
+2E3F 0021
+2E3F 003F
0040 0021
FE6B 0021
FF20 0021
@@ -2623,6 +2753,9 @@ A9DF 0021
A9DF 003F
AA5C 0021
AA5C 003F
+1056F 0334
+1056F 0021
+1056F 003F
11049 0334
11049 0021
11049 003F
@@ -2662,15 +2795,114 @@ AA5C 003F
10B39 0334
10B39 0021
10B39 003F
+10AF0 0334
+10AF0 0021
+10AF0 003F
+10AF1 0334
+10AF1 0021
+10AF1 003F
+10AF2 0334
+10AF2 0021
+10AF2 003F
+10AF3 0334
+10AF3 0021
+10AF3 003F
+10AF4 0334
+10AF4 0021
+10AF4 003F
+10AF5 0334
+10AF5 0021
+10AF5 003F
+10AF6 0334
+10AF6 0021
+10AF6 003F
+10B99 0334
+10B99 0021
+10B99 003F
+10B9A 0334
+10B9A 0021
+10B9A 003F
+10B9B 0334
+10B9B 0021
+10B9B 003F
+10B9C 0334
+10B9C 0021
+10B9C 003F
110BB 0334
110BB 0021
110BB 003F
110BC 0334
110BC 0021
110BC 003F
+11174 0334
+11174 0021
+11174 003F
+11175 0334
+11175 0021
+11175 003F
+111CD 0334
+111CD 0021
+111CD 003F
111C7 0334
111C7 0021
111C7 003F
+1123A 0334
+1123A 0021
+1123A 003F
+1123B 0334
+1123B 0021
+1123B 003F
+1123C 0334
+1123C 0021
+1123C 003F
+1123D 0334
+1123D 0021
+1123D 003F
+114C6 0334
+114C6 0021
+114C6 003F
+115C1 0334
+115C1 0021
+115C1 003F
+115C4 0334
+115C4 0021
+115C4 003F
+115C5 0334
+115C5 0021
+115C5 003F
+115C6 0334
+115C6 0021
+115C6 003F
+115C7 0334
+115C7 0021
+115C7 003F
+115C8 0334
+115C8 0021
+115C8 003F
+115C9 0334
+115C9 0021
+115C9 003F
+11643 0334
+11643 0021
+11643 003F
+16B37 0334
+16B37 0021
+16B37 003F
+16B38 0334
+16B38 0021
+16B38 003F
+16B39 0334
+16B39 0021
+16B39 003F
+16B3A 0334
+16B3A 0021
+16B3A 003F
+16B3B 0334
+16B3B 0021
+16B3B 003F
+16B44 0334
+16B44 0021
+16B44 003F
10A7F 0334
10A7F 0021
10A7F 003F
@@ -2762,6 +2994,13 @@ AA5C 003F
17D0 0021
17D1 0021
17DD 0021
+1AB0 0021
+1AB1 0021
+1AB2 0021
+1AB3 0021
+1AB4 0021
+1ABB 0021
+1ABC 0021
1DC0 0021
1DC1 0021
1DC3 0021
@@ -2776,11 +3015,14 @@ AA5C 003F
1DCD 0021
1DCE 0021
1DD1 0021
+1DF5 0021
1DFE 0021
20F0 0021
2CEF 0021
A67C 0021
A67D 0021
+10AE5 0021
+1BC9D 0021
030D 003F
030E 003F
0312 003F
@@ -2812,6 +3054,13 @@ A67D 0021
17D0 003F
17D1 003F
17DD 003F
+1AB0 003F
+1AB1 003F
+1AB2 003F
+1AB3 003F
+1AB4 003F
+1ABB 003F
+1ABC 003F
1DC0 003F
1DC1 003F
1DC3 003F
@@ -2826,11 +3075,15 @@ A67D 0021
1DCD 003F
1DCE 003F
1DD1 003F
+1DF5 003F
1DFE 003F
20F0 003F
2CEF 003F
A67C 003F
A67D 003F
+10AE5 003F
+1BC9D 003F
+1BC9D 0334
0316 0021
0317 0021
0318 0021
@@ -2868,6 +3121,13 @@ A67D 003F
0859 0021
085A 0021
085B 0021
+1AB5 0021
+1AB6 0021
+1AB7 0021
+1AB8 0021
+1AB9 0021
+1ABA 0021
+1ABD 0021
1DC2 0021
1DCF 0021
1DD0 0021
@@ -2878,7 +3138,9 @@ A67D 003F
20ED 0021
20EE 0021
20EF 0021
+FE27 0021
10A0D 0021
+10AE6 0021
0316 003F
0317 003F
0318 003F
@@ -2916,6 +3178,13 @@ A67D 003F
0859 003F
085A 003F
085B 003F
+1AB5 003F
+1AB6 003F
+1AB7 003F
+1AB8 003F
+1AB9 003F
+1ABA 003F
+1ABD 003F
1DC2 003F
1DCF 003F
1DD0 003F
@@ -2926,7 +3195,9 @@ A67D 003F
20ED 003F
20EE 003F
20EF 003F
+FE27 003F
10A0D 003F
+10AE6 003F
0336 0021
0337 0021
20D8 0021
@@ -2935,6 +3206,7 @@ A67D 003F
20E5 0021
20EA 0021
20EB 0021
+1BC9E 0021
0336 003F
0337 003F
20D8 003F
@@ -2943,6 +3215,7 @@ A67D 003F
20E5 003F
20EA 003F
20EB 003F
+1BC9E 003F
0336 0334
0337 0334
20D8 0334
@@ -2951,6 +3224,8 @@ A67D 003F
20E5 0334
20EA 0334
20EB 0334
+1BC9E 0334
+1ABE 0021
20DD 0021
20DE 0021
20DF 0021
@@ -2958,6 +3233,7 @@ A67D 003F
20E2 0021
20E3 0021
20E4 0021
+1ABE 003F
20DD 003F
20DE 003F
20DF 003F
@@ -2965,6 +3241,17 @@ A67D 003F
20E2 003F
20E3 003F
20E4 003F
+3099 0021
+3099 003F
+FF9E 0021
+FF9E 003F
+309A 0021
+309A 003F
+FF9F 0021
+FF9F 003F
+0335 0021
+0335 003F
+0335 0334
0305 0021
0305 003F
0309 0021
@@ -3227,6 +3514,10 @@ A67D 003F
1CE0 0334
0334 1CF4
1CF4 0334
+0334 1CF8
+1CF8 0334
+0334 1CF9
+1CF9 0334
0334 2D7F
2D7F 0334
0334 A8E0
@@ -3275,6 +3566,42 @@ FE24 0334
FE25 0334
0334 FE26
FE26 0334
+0334 FE28
+FE28 0334
+0334 FE2A
+FE2A 0334
+0334 FE2B
+FE2B 0334
+0334 FE2C
+FE2C 0334
+0334 FE2D
+FE2D 0334
+0334 102E0
+102E0 0334
+0334 11366
+11366 0334
+0334 11367
+11367 0334
+0334 11368
+11368 0334
+0334 11369
+11369 0334
+0334 1136A
+1136A 0334
+0334 1136B
+1136B 0334
+0334 1136C
+1136C 0334
+0334 11370
+11370 0334
+0334 11371
+11371 0334
+0334 11372
+11372 0334
+0334 11373
+11373 0334
+0334 11374
+11374 0334
0334 1D165
1D165 0334
0334 1D166
@@ -3335,6 +3662,20 @@ FE26 0334
1D243 0334
0334 1D244
1D244 0334
+0334 1E8D0
+1E8D0 0334
+0334 1E8D1
+1E8D1 0334
+0334 1E8D2
+1E8D2 0334
+0334 1E8D3
+1E8D3 0334
+0334 1E8D4
+1E8D4 0334
+0334 1E8D5
+1E8D5 0334
+0334 1E8D6
+1E8D6 0334
1CD4 0334
1CE2 0334
1CE3 0334
@@ -3344,6 +3685,10 @@ FE26 0334
1CE7 0334
1CE8 0334
110BD 0334
+1BCA0 0334
+1BCA1 0334
+1BCA2 0334
+1BCA3 0334
1D167 0334
1D168 0334
1D169 0334
@@ -3798,6 +4143,20 @@ E01EF 0334
0745 0334
0334 17DD
17DD 0334
+0334 1AB0
+1AB0 0334
+0334 1AB1
+1AB1 0334
+0334 1AB2
+1AB2 0334
+0334 1AB3
+1AB3 0334
+0334 1AB4
+1AB4 0334
+0334 1ABB
+1ABB 0334
+0334 1ABC
+1ABC 0334
0334 1DC0
1DC0 0334
0334 1DC1
@@ -3826,6 +4185,8 @@ E01EF 0334
1DCE 0334
0334 1DD1
1DD1 0334
+0334 1DF5
+1DF5 0334
0334 1DFE
1DFE 0334
0334 20F0
@@ -3836,6 +4197,8 @@ E01EF 0334
A67C 0334
0334 A67D
A67D 0334
+0334 10AE5
+10AE5 0334
0316 0334
0334 0316
0317 0334
@@ -3910,6 +4273,20 @@ A67D 0334
085A 0334
0334 085B
085B 0334
+0334 1AB5
+1AB5 0334
+0334 1AB6
+1AB6 0334
+0334 1AB7
+1AB7 0334
+0334 1AB8
+1AB8 0334
+0334 1AB9
+1AB9 0334
+0334 1ABA
+1ABA 0334
+0334 1ABD
+1ABD 0334
0334 1DC2
1DC2 0334
0334 1DCF
@@ -3930,8 +4307,16 @@ A67D 0334
20EE 0334
0334 20EF
20EF 0334
+0334 FE27
+FE27 0334
0334 10A0D
10A0D 0334
+0334 10AE6
+10AE6 0334
+0334 3099
+3099 0334
+0334 309A
+309A 0334
0305 0334
0334 0305
0309 0334
@@ -3975,6 +4360,8 @@ A67D 0334
0360 0334
0334 FE22
FE22 0334
+0334 FE29
+FE29 0334
0334 0361
0361 0334
0334 FE20
@@ -4111,6 +4498,8 @@ FB1E 0334
0657 0334
0334 0658
0658 0334
+0334 08FF
+08FF 0334
0334 0659
0659 0334
0334 065A
@@ -4223,6 +4612,18 @@ A6F1 0334
A9B3 0334
0334 110BA
110BA 0334
+0334 11173
+11173 0334
+0334 11236
+11236 0334
+0334 112E9
+112E9 0334
+0334 1133C
+1133C 0334
+0334 114C3
+114C3 0334
+0334 115C0
+115C0 0334
0334 116B7
116B7 0334
0334 11100
@@ -4269,8 +4670,6 @@ A92C 0334
A92D 0334
0334 1037
1037 0334
-0334 108D
-108D 0334
0334 1A75
1A75 0334
0334 1A76
@@ -4293,6 +4692,20 @@ A92D 0334
193A 0334
0334 193B
193B 0334
+0334 16B30
+16B30 0334
+0334 16B31
+16B31 0334
+0334 16B32
+16B32 0334
+0334 16B33
+16B33 0334
+0334 16B34
+16B34 0334
+0334 16B35
+16B35 0334
+0334 16B36
+16B36 0334
0334 302A
302A 0334
0334 302B
@@ -4305,10 +4718,6 @@ A92D 0334
302E 0334
0334 302F
302F 0334
-0334 3099
-3099 0334
-0334 309A
-309A 0334
0334 20D0
20D0 0334
0334 20D1
@@ -4335,9 +4744,6 @@ A92D 0334
20E9 0334
0334 101FD
101FD 0334
-0335 0021
-0335 003F
-0335 0334
0339 0021
0339 003F
0345 0021
@@ -4346,8 +4752,10 @@ A92D 0334
0358 003F
0360 0021
FE22 0021
+FE29 0021
0360 003F
FE22 003F
+FE29 003F
0361 0021
FE20 0021
0361 003F
@@ -4507,11 +4915,14 @@ FC62 003F
08F6 0021
08F6 003F
0651 0021
+11237 0021
0651 003F
+11237 003F
FE7D 0021
FE7D 003F
FE7C 0021
FE7C 003F
+11237 0334
FC63 0021
FC63 003F
0652 0021
@@ -4534,6 +4945,8 @@ FE7E 003F
0657 003F
0658 0021
0658 003F
+08FF 0021
+08FF 003F
0659 0021
0659 003F
065A 0021
@@ -4624,6 +5037,21 @@ A6F0 0021
A6F0 003F
A6F1 0021
A6F1 003F
+16AF0 0021
+16AF0 003F
+16AF0 0334
+16AF1 0021
+16AF1 003F
+16AF1 0334
+16AF2 0021
+16AF2 003F
+16AF2 0334
+16AF3 0021
+16AF3 003F
+16AF3 0334
+16AF4 0021
+16AF4 003F
+16AF4 0334
093C 0021
09BC 0021
0A3C 0021
@@ -4635,6 +5063,12 @@ A6F1 003F
1C37 0021
A9B3 0021
110BA 0021
+11173 0021
+11236 0021
+112E9 0021
+1133C 0021
+114C3 0021
+115C0 0021
116B7 0021
093C 003F
09BC 003F
@@ -4647,6 +5081,12 @@ A9B3 0021
1C37 003F
A9B3 003F
110BA 003F
+11173 003F
+11236 003F
+112E9 003F
+1133C 003F
+114C3 003F
+115C0 003F
116B7 003F
0900 0021
0901 0021
@@ -4654,7 +5094,10 @@ A9B3 003F
0A01 0021
0A81 0021
0B01 0021
+0C00 0021
0C01 0021
+0C81 0021
+0D01 0021
1B00 0021
1B01 0021
A980 0021
@@ -4662,13 +5105,20 @@ A980 0021
11080 0021
11100 0021
11180 0021
+11301 0021
+114BF 0021
+115BC 0021
+11640 0021
0900 003F
0901 003F
0981 003F
0A01 003F
0A81 003F
0B01 003F
+0C00 003F
0C01 003F
+0C81 003F
+0D01 003F
1B00 003F
1B01 003F
A980 003F
@@ -4676,9 +5126,17 @@ A980 003F
11080 003F
11100 003F
11180 003F
+11301 003F
+114BF 003F
+115BC 003F
+11640 003F
11000 0334
11080 0334
11180 0334
+11301 0334
+114BF 0334
+115BC 0334
+11640 0334
0902 0021
0982 0021
0A02 0021
@@ -4704,6 +5162,12 @@ A981 0021
11081 0021
11101 0021
11181 0021
+11234 0021
+112DF 0021
+11302 0021
+114C0 0021
+115BD 0021
+1163D 0021
116AB 0021
0902 003F
0982 003F
@@ -4730,11 +5194,23 @@ A981 003F
11081 003F
11101 003F
11181 003F
+11234 003F
+112DF 003F
+11302 003F
+114C0 003F
+115BD 003F
+1163D 003F
116AB 003F
10A0E 0334
11001 0334
11081 0334
11181 0334
+11234 0334
+112DF 0334
+11302 0334
+114C0 0334
+115BD 0334
+1163D 0334
116AB 0334
0903 0021
0983 0021
@@ -4759,6 +5235,10 @@ A983 0021
11082 0021
11102 0021
11182 0021
+11303 0021
+114C1 0021
+115BE 0021
+1163E 0021
116AC 0021
0903 003F
0983 003F
@@ -4783,10 +5263,18 @@ A983 003F
11082 003F
11102 003F
11182 003F
+11303 003F
+114C1 003F
+115BE 003F
+1163E 003F
116AC 003F
11002 0334
11082 0334
11182 0334
+11303 0334
+114C1 0334
+115BE 0334
+1163E 0334
116AC 0334
0A70 0021
0A70 003F
@@ -4849,8 +5337,6 @@ A92D 0021
A92D 003F
1037 0021
1037 003F
-108D 0021
-108D 003F
17C8 0021
17C8 003F
17C9 0021
@@ -4879,6 +5365,20 @@ A92D 003F
193A 003F
193B 0021
193B 003F
+16B30 0021
+16B30 003F
+16B31 0021
+16B31 003F
+16B32 0021
+16B32 003F
+16B33 0021
+16B33 003F
+16B34 0021
+16B34 003F
+16B35 0021
+16B35 003F
+16B36 0021
+16B36 003F
302A 0021
302A 003F
302B 0021
@@ -4891,14 +5391,6 @@ A92D 003F
302E 003F
302F 0021
302F 003F
-3099 0021
-3099 003F
-FF9E 0021
-FF9E 003F
-309A 0021
-309A 003F
-FF9F 0021
-FF9F 003F
20D0 0021
20D0 003F
20D1 0021
@@ -5637,6 +6129,11 @@ A78A 003F
A78A 0061
A78A 0041
A78A 0062
+AB5B 0021
+AB5B 003F
+AB5B 0061
+AB5B 0041
+AB5B 0062
00B0 0021
00B0 003F
00B0 0061
@@ -5657,6 +6154,16 @@ A78A 0062
0482 0061
0482 0041
0482 0062
+058D 0021
+058D 003F
+058D 0061
+058D 0041
+058D 0062
+058E 0021
+058E 003F
+058E 0061
+058E 0041
+058E 0062
0608 0021
0608 003F
0608 0061
@@ -7278,14 +7785,14 @@ FE64 0062
003D 003F
FF1D 0021
FF1D 003F
+2A74 0021
+2A74 003F
FE66 0021
FE66 003F
207C 0021
207C 003F
208C 0021
208C 003F
-2A74 0021
-2A74 003F
2260 0021
2260 003F
003D 0338 0334
@@ -7304,22 +7811,22 @@ FE66 003F
003D 0041
FF1D 0061
FF1D 0041
+2A74 0061
+2A74 0041
FE66 0061
FE66 0041
207C 0061
207C 0041
208C 0061
208C 0041
-2A74 0061
-2A74 0041
2260 0061
2260 0041
003D 0062
FF1D 0062
+2A74 0062
FE66 0062
207C 0062
208C 0062
-2A74 0062
2260 0062
003E 0021
003E 003F
@@ -8702,26 +9209,6 @@ FF5E 0062
2307 0061
2307 0041
2307 0062
-2308 0021
-2308 003F
-2308 0061
-2308 0041
-2308 0062
-2309 0021
-2309 003F
-2309 0061
-2309 0041
-2309 0062
-230A 0021
-230A 003F
-230A 0061
-230A 0041
-230A 0062
-230B 0021
-230B 003F
-230B 0061
-230B 0041
-230B 0062
230C 0021
230C 003F
230C 0061
@@ -9872,6 +10359,41 @@ FF5E 0062
23F3 0061
23F3 0041
23F3 0062
+23F4 0021
+23F4 003F
+23F4 0061
+23F4 0041
+23F4 0062
+23F5 0021
+23F5 003F
+23F5 0061
+23F5 0041
+23F5 0062
+23F6 0021
+23F6 003F
+23F6 0061
+23F6 0041
+23F6 0062
+23F7 0021
+23F7 003F
+23F7 0061
+23F7 0041
+23F7 0062
+23F8 0021
+23F8 003F
+23F8 0061
+23F8 0041
+23F8 0062
+23F9 0021
+23F9 003F
+23F9 0061
+23F9 0041
+23F9 0062
+23FA 0021
+23FA 003F
+23FA 0061
+23FA 0041
+23FA 0062
2400 0021
2400 003F
2400 0061
@@ -12768,6 +13290,11 @@ FFEE 0062
1F1FF 0061
1F1FF 0041
1F1FF 0062
+2700 0021
+2700 003F
+2700 0061
+2700 0041
+2700 0062
2701 0021
2701 003F
2701 0061
@@ -16550,6 +17077,21 @@ FFEE 0062
2B4C 0061
2B4C 0041
2B4C 0062
+2B4D 0021
+2B4D 003F
+2B4D 0061
+2B4D 0041
+2B4D 0062
+2B4E 0021
+2B4E 003F
+2B4E 0061
+2B4E 0041
+2B4E 0062
+2B4F 0021
+2B4F 003F
+2B4F 0061
+2B4F 0041
+2B4F 0062
2B50 0021
2B50 003F
2B50 0061
@@ -16600,6 +17142,566 @@ FFEE 0062
2B59 0061
2B59 0041
2B59 0062
+2B5A 0021
+2B5A 003F
+2B5A 0061
+2B5A 0041
+2B5A 0062
+2B5B 0021
+2B5B 003F
+2B5B 0061
+2B5B 0041
+2B5B 0062
+2B5C 0021
+2B5C 003F
+2B5C 0061
+2B5C 0041
+2B5C 0062
+2B5D 0021
+2B5D 003F
+2B5D 0061
+2B5D 0041
+2B5D 0062
+2B5E 0021
+2B5E 003F
+2B5E 0061
+2B5E 0041
+2B5E 0062
+2B5F 0021
+2B5F 003F
+2B5F 0061
+2B5F 0041
+2B5F 0062
+2B60 0021
+2B60 003F
+2B60 0061
+2B60 0041
+2B60 0062
+2B61 0021
+2B61 003F
+2B61 0061
+2B61 0041
+2B61 0062
+2B62 0021
+2B62 003F
+2B62 0061
+2B62 0041
+2B62 0062
+2B63 0021
+2B63 003F
+2B63 0061
+2B63 0041
+2B63 0062
+2B64 0021
+2B64 003F
+2B64 0061
+2B64 0041
+2B64 0062
+2B65 0021
+2B65 003F
+2B65 0061
+2B65 0041
+2B65 0062
+2B66 0021
+2B66 003F
+2B66 0061
+2B66 0041
+2B66 0062
+2B67 0021
+2B67 003F
+2B67 0061
+2B67 0041
+2B67 0062
+2B68 0021
+2B68 003F
+2B68 0061
+2B68 0041
+2B68 0062
+2B69 0021
+2B69 003F
+2B69 0061
+2B69 0041
+2B69 0062
+2B6A 0021
+2B6A 003F
+2B6A 0061
+2B6A 0041
+2B6A 0062
+2B6B 0021
+2B6B 003F
+2B6B 0061
+2B6B 0041
+2B6B 0062
+2B6C 0021
+2B6C 003F
+2B6C 0061
+2B6C 0041
+2B6C 0062
+2B6D 0021
+2B6D 003F
+2B6D 0061
+2B6D 0041
+2B6D 0062
+2B6E 0021
+2B6E 003F
+2B6E 0061
+2B6E 0041
+2B6E 0062
+2B6F 0021
+2B6F 003F
+2B6F 0061
+2B6F 0041
+2B6F 0062
+2B70 0021
+2B70 003F
+2B70 0061
+2B70 0041
+2B70 0062
+2B71 0021
+2B71 003F
+2B71 0061
+2B71 0041
+2B71 0062
+2B72 0021
+2B72 003F
+2B72 0061
+2B72 0041
+2B72 0062
+2B73 0021
+2B73 003F
+2B73 0061
+2B73 0041
+2B73 0062
+2B76 0021
+2B76 003F
+2B76 0061
+2B76 0041
+2B76 0062
+2B77 0021
+2B77 003F
+2B77 0061
+2B77 0041
+2B77 0062
+2B78 0021
+2B78 003F
+2B78 0061
+2B78 0041
+2B78 0062
+2B79 0021
+2B79 003F
+2B79 0061
+2B79 0041
+2B79 0062
+2B7A 0021
+2B7A 003F
+2B7A 0061
+2B7A 0041
+2B7A 0062
+2B7B 0021
+2B7B 003F
+2B7B 0061
+2B7B 0041
+2B7B 0062
+2B7C 0021
+2B7C 003F
+2B7C 0061
+2B7C 0041
+2B7C 0062
+2B7D 0021
+2B7D 003F
+2B7D 0061
+2B7D 0041
+2B7D 0062
+2B7E 0021
+2B7E 003F
+2B7E 0061
+2B7E 0041
+2B7E 0062
+2B7F 0021
+2B7F 003F
+2B7F 0061
+2B7F 0041
+2B7F 0062
+2B80 0021
+2B80 003F
+2B80 0061
+2B80 0041
+2B80 0062
+2B81 0021
+2B81 003F
+2B81 0061
+2B81 0041
+2B81 0062
+2B82 0021
+2B82 003F
+2B82 0061
+2B82 0041
+2B82 0062
+2B83 0021
+2B83 003F
+2B83 0061
+2B83 0041
+2B83 0062
+2B84 0021
+2B84 003F
+2B84 0061
+2B84 0041
+2B84 0062
+2B85 0021
+2B85 003F
+2B85 0061
+2B85 0041
+2B85 0062
+2B86 0021
+2B86 003F
+2B86 0061
+2B86 0041
+2B86 0062
+2B87 0021
+2B87 003F
+2B87 0061
+2B87 0041
+2B87 0062
+2B88 0021
+2B88 003F
+2B88 0061
+2B88 0041
+2B88 0062
+2B89 0021
+2B89 003F
+2B89 0061
+2B89 0041
+2B89 0062
+2B8A 0021
+2B8A 003F
+2B8A 0061
+2B8A 0041
+2B8A 0062
+2B8B 0021
+2B8B 003F
+2B8B 0061
+2B8B 0041
+2B8B 0062
+2B8C 0021
+2B8C 003F
+2B8C 0061
+2B8C 0041
+2B8C 0062
+2B8D 0021
+2B8D 003F
+2B8D 0061
+2B8D 0041
+2B8D 0062
+2B8E 0021
+2B8E 003F
+2B8E 0061
+2B8E 0041
+2B8E 0062
+2B8F 0021
+2B8F 003F
+2B8F 0061
+2B8F 0041
+2B8F 0062
+2B90 0021
+2B90 003F
+2B90 0061
+2B90 0041
+2B90 0062
+2B91 0021
+2B91 003F
+2B91 0061
+2B91 0041
+2B91 0062
+2B92 0021
+2B92 003F
+2B92 0061
+2B92 0041
+2B92 0062
+2B93 0021
+2B93 003F
+2B93 0061
+2B93 0041
+2B93 0062
+2B94 0021
+2B94 003F
+2B94 0061
+2B94 0041
+2B94 0062
+2B95 0021
+2B95 003F
+2B95 0061
+2B95 0041
+2B95 0062
+2B98 0021
+2B98 003F
+2B98 0061
+2B98 0041
+2B98 0062
+2B99 0021
+2B99 003F
+2B99 0061
+2B99 0041
+2B99 0062
+2B9A 0021
+2B9A 003F
+2B9A 0061
+2B9A 0041
+2B9A 0062
+2B9B 0021
+2B9B 003F
+2B9B 0061
+2B9B 0041
+2B9B 0062
+2B9C 0021
+2B9C 003F
+2B9C 0061
+2B9C 0041
+2B9C 0062
+2B9D 0021
+2B9D 003F
+2B9D 0061
+2B9D 0041
+2B9D 0062
+2B9E 0021
+2B9E 003F
+2B9E 0061
+2B9E 0041
+2B9E 0062
+2B9F 0021
+2B9F 003F
+2B9F 0061
+2B9F 0041
+2B9F 0062
+2BA0 0021
+2BA0 003F
+2BA0 0061
+2BA0 0041
+2BA0 0062
+2BA1 0021
+2BA1 003F
+2BA1 0061
+2BA1 0041
+2BA1 0062
+2BA2 0021
+2BA2 003F
+2BA2 0061
+2BA2 0041
+2BA2 0062
+2BA3 0021
+2BA3 003F
+2BA3 0061
+2BA3 0041
+2BA3 0062
+2BA4 0021
+2BA4 003F
+2BA4 0061
+2BA4 0041
+2BA4 0062
+2BA5 0021
+2BA5 003F
+2BA5 0061
+2BA5 0041
+2BA5 0062
+2BA6 0021
+2BA6 003F
+2BA6 0061
+2BA6 0041
+2BA6 0062
+2BA7 0021
+2BA7 003F
+2BA7 0061
+2BA7 0041
+2BA7 0062
+2BA8 0021
+2BA8 003F
+2BA8 0061
+2BA8 0041
+2BA8 0062
+2BA9 0021
+2BA9 003F
+2BA9 0061
+2BA9 0041
+2BA9 0062
+2BAA 0021
+2BAA 003F
+2BAA 0061
+2BAA 0041
+2BAA 0062
+2BAB 0021
+2BAB 003F
+2BAB 0061
+2BAB 0041
+2BAB 0062
+2BAC 0021
+2BAC 003F
+2BAC 0061
+2BAC 0041
+2BAC 0062
+2BAD 0021
+2BAD 003F
+2BAD 0061
+2BAD 0041
+2BAD 0062
+2BAE 0021
+2BAE 003F
+2BAE 0061
+2BAE 0041
+2BAE 0062
+2BAF 0021
+2BAF 003F
+2BAF 0061
+2BAF 0041
+2BAF 0062
+2BB0 0021
+2BB0 003F
+2BB0 0061
+2BB0 0041
+2BB0 0062
+2BB1 0021
+2BB1 003F
+2BB1 0061
+2BB1 0041
+2BB1 0062
+2BB2 0021
+2BB2 003F
+2BB2 0061
+2BB2 0041
+2BB2 0062
+2BB3 0021
+2BB3 003F
+2BB3 0061
+2BB3 0041
+2BB3 0062
+2BB4 0021
+2BB4 003F
+2BB4 0061
+2BB4 0041
+2BB4 0062
+2BB5 0021
+2BB5 003F
+2BB5 0061
+2BB5 0041
+2BB5 0062
+2BB6 0021
+2BB6 003F
+2BB6 0061
+2BB6 0041
+2BB6 0062
+2BB7 0021
+2BB7 003F
+2BB7 0061
+2BB7 0041
+2BB7 0062
+2BB8 0021
+2BB8 003F
+2BB8 0061
+2BB8 0041
+2BB8 0062
+2BB9 0021
+2BB9 003F
+2BB9 0061
+2BB9 0041
+2BB9 0062
+2BBD 0021
+2BBD 003F
+2BBD 0061
+2BBD 0041
+2BBD 0062
+2BBE 0021
+2BBE 003F
+2BBE 0061
+2BBE 0041
+2BBE 0062
+2BBF 0021
+2BBF 003F
+2BBF 0061
+2BBF 0041
+2BBF 0062
+2BC0 0021
+2BC0 003F
+2BC0 0061
+2BC0 0041
+2BC0 0062
+2BC1 0021
+2BC1 003F
+2BC1 0061
+2BC1 0041
+2BC1 0062
+2BC2 0021
+2BC2 003F
+2BC2 0061
+2BC2 0041
+2BC2 0062
+2BC3 0021
+2BC3 003F
+2BC3 0061
+2BC3 0041
+2BC3 0062
+2BC4 0021
+2BC4 003F
+2BC4 0061
+2BC4 0041
+2BC4 0062
+2BC5 0021
+2BC5 003F
+2BC5 0061
+2BC5 0041
+2BC5 0062
+2BC6 0021
+2BC6 003F
+2BC6 0061
+2BC6 0041
+2BC6 0062
+2BC7 0021
+2BC7 003F
+2BC7 0061
+2BC7 0041
+2BC7 0062
+2BC8 0021
+2BC8 003F
+2BC8 0061
+2BC8 0041
+2BC8 0062
+2BCA 0021
+2BCA 003F
+2BCA 0061
+2BCA 0041
+2BCA 0062
+2BCB 0021
+2BCB 003F
+2BCB 0061
+2BCB 0041
+2BCB 0062
+2BCC 0021
+2BCC 003F
+2BCC 0061
+2BCC 0041
+2BCC 0062
+2BCD 0021
+2BCD 003F
+2BCD 0061
+2BCD 0041
+2BCD 0062
+2BCE 0021
+2BCE 003F
+2BCE 0061
+2BCE 0041
+2BCE 0062
+2BCF 0021
+2BCF 003F
+2BCF 0061
+2BCF 0041
+2BCF 0062
+2BD0 0021
+2BD0 003F
+2BD0 0061
+2BD0 0041
+2BD0 0062
+2BD1 0021
+2BD1 003F
+2BD1 0061
+2BD1 0041
+2BD1 0062
2CE5 0021
2CE5 003F
2CE5 0061
@@ -19253,6 +20355,12 @@ A4C6 0062
10189 0061
10189 0041
10189 0062
+1018C 0021
+1018C 003F
+1018C 0334
+1018C 0061
+1018C 0041
+1018C 0062
10190 0021
10190 003F
10190 0334
@@ -19325,6 +20433,12 @@ A4C6 0062
1019B 0061
1019B 0041
1019B 0062
+101A0 0021
+101A0 003F
+101A0 0334
+101A0 0061
+101A0 0041
+101A0 0062
101D0 0021
101D0 003F
101D0 0334
@@ -19595,6 +20709,48 @@ A4C6 0062
101FC 0061
101FC 0041
101FC 0062
+10877 0021
+10877 003F
+10877 0334
+10877 0061
+10877 0041
+10877 0062
+10878 0021
+10878 003F
+10878 0334
+10878 0061
+10878 0041
+10878 0062
+16B3C 0021
+16B3C 003F
+16B3C 0334
+16B3C 0061
+16B3C 0041
+16B3C 0062
+16B3D 0021
+16B3D 003F
+16B3D 0334
+16B3D 0061
+16B3D 0041
+16B3D 0062
+16B3E 0021
+16B3E 003F
+16B3E 0334
+16B3E 0061
+16B3E 0041
+16B3E 0062
+16B3F 0021
+16B3F 003F
+16B3F 0334
+16B3F 0061
+16B3F 0041
+16B3F 0062
+16B45 0021
+16B45 003F
+16B45 0334
+16B45 0061
+16B45 0041
+16B45 0062
1D000 0021
1D000 003F
1D000 0334
@@ -22618,6 +23774,12 @@ A4C6 0062
1D245 0061
1D245 0041
1D245 0062
+1BC9C 0021
+1BC9C 003F
+1BC9C 0334
+1BC9C 0061
+1BC9C 0041
+1BC9C 0062
1F000 0021
1F000 003F
1F000 0334
@@ -23656,6 +24818,12 @@ A4C6 0062
1F0BE 0061
1F0BE 0041
1F0BE 0062
+1F0BF 0021
+1F0BF 003F
+1F0BF 0334
+1F0BF 0061
+1F0BF 0041
+1F0BF 0062
1F0C1 0021
1F0C1 003F
1F0C1 0334
@@ -23836,6 +25004,138 @@ A4C6 0062
1F0DF 0061
1F0DF 0041
1F0DF 0062
+1F0E0 0021
+1F0E0 003F
+1F0E0 0334
+1F0E0 0061
+1F0E0 0041
+1F0E0 0062
+1F0E1 0021
+1F0E1 003F
+1F0E1 0334
+1F0E1 0061
+1F0E1 0041
+1F0E1 0062
+1F0E2 0021
+1F0E2 003F
+1F0E2 0334
+1F0E2 0061
+1F0E2 0041
+1F0E2 0062
+1F0E3 0021
+1F0E3 003F
+1F0E3 0334
+1F0E3 0061
+1F0E3 0041
+1F0E3 0062
+1F0E4 0021
+1F0E4 003F
+1F0E4 0334
+1F0E4 0061
+1F0E4 0041
+1F0E4 0062
+1F0E5 0021
+1F0E5 003F
+1F0E5 0334
+1F0E5 0061
+1F0E5 0041
+1F0E5 0062
+1F0E6 0021
+1F0E6 003F
+1F0E6 0334
+1F0E6 0061
+1F0E6 0041
+1F0E6 0062
+1F0E7 0021
+1F0E7 003F
+1F0E7 0334
+1F0E7 0061
+1F0E7 0041
+1F0E7 0062
+1F0E8 0021
+1F0E8 003F
+1F0E8 0334
+1F0E8 0061
+1F0E8 0041
+1F0E8 0062
+1F0E9 0021
+1F0E9 003F
+1F0E9 0334
+1F0E9 0061
+1F0E9 0041
+1F0E9 0062
+1F0EA 0021
+1F0EA 003F
+1F0EA 0334
+1F0EA 0061
+1F0EA 0041
+1F0EA 0062
+1F0EB 0021
+1F0EB 003F
+1F0EB 0334
+1F0EB 0061
+1F0EB 0041
+1F0EB 0062
+1F0EC 0021
+1F0EC 003F
+1F0EC 0334
+1F0EC 0061
+1F0EC 0041
+1F0EC 0062
+1F0ED 0021
+1F0ED 003F
+1F0ED 0334
+1F0ED 0061
+1F0ED 0041
+1F0ED 0062
+1F0EE 0021
+1F0EE 003F
+1F0EE 0334
+1F0EE 0061
+1F0EE 0041
+1F0EE 0062
+1F0EF 0021
+1F0EF 003F
+1F0EF 0334
+1F0EF 0061
+1F0EF 0041
+1F0EF 0062
+1F0F0 0021
+1F0F0 003F
+1F0F0 0334
+1F0F0 0061
+1F0F0 0041
+1F0F0 0062
+1F0F1 0021
+1F0F1 003F
+1F0F1 0334
+1F0F1 0061
+1F0F1 0041
+1F0F1 0062
+1F0F2 0021
+1F0F2 003F
+1F0F2 0334
+1F0F2 0061
+1F0F2 0041
+1F0F2 0062
+1F0F3 0021
+1F0F3 003F
+1F0F3 0334
+1F0F3 0061
+1F0F3 0041
+1F0F3 0062
+1F0F4 0021
+1F0F4 003F
+1F0F4 0334
+1F0F4 0061
+1F0F4 0041
+1F0F4 0062
+1F0F5 0021
+1F0F5 003F
+1F0F5 0334
+1F0F5 0061
+1F0F5 0041
+1F0F5 0062
1F300 0021
1F300 003F
1F300 0334
@@ -24034,6 +25334,78 @@ A4C6 0062
1F320 0061
1F320 0041
1F320 0062
+1F321 0021
+1F321 003F
+1F321 0334
+1F321 0061
+1F321 0041
+1F321 0062
+1F322 0021
+1F322 003F
+1F322 0334
+1F322 0061
+1F322 0041
+1F322 0062
+1F323 0021
+1F323 003F
+1F323 0334
+1F323 0061
+1F323 0041
+1F323 0062
+1F324 0021
+1F324 003F
+1F324 0334
+1F324 0061
+1F324 0041
+1F324 0062
+1F325 0021
+1F325 003F
+1F325 0334
+1F325 0061
+1F325 0041
+1F325 0062
+1F326 0021
+1F326 003F
+1F326 0334
+1F326 0061
+1F326 0041
+1F326 0062
+1F327 0021
+1F327 003F
+1F327 0334
+1F327 0061
+1F327 0041
+1F327 0062
+1F328 0021
+1F328 003F
+1F328 0334
+1F328 0061
+1F328 0041
+1F328 0062
+1F329 0021
+1F329 003F
+1F329 0334
+1F329 0061
+1F329 0041
+1F329 0062
+1F32A 0021
+1F32A 003F
+1F32A 0334
+1F32A 0061
+1F32A 0041
+1F32A 0062
+1F32B 0021
+1F32B 003F
+1F32B 0334
+1F32B 0061
+1F32B 0041
+1F32B 0062
+1F32C 0021
+1F32C 003F
+1F32C 0334
+1F32C 0061
+1F32C 0041
+1F32C 0062
1F330 0021
1F330 003F
1F330 0334
@@ -24070,6 +25442,12 @@ A4C6 0062
1F335 0061
1F335 0041
1F335 0062
+1F336 0021
+1F336 003F
+1F336 0334
+1F336 0061
+1F336 0041
+1F336 0062
1F337 0021
1F337 003F
1F337 0334
@@ -24490,6 +25868,12 @@ A4C6 0062
1F37C 0061
1F37C 0041
1F37C 0062
+1F37D 0021
+1F37D 003F
+1F37D 0334
+1F37D 0061
+1F37D 0041
+1F37D 0062
1F380 0021
1F380 003F
1F380 0334
@@ -24610,6 +25994,78 @@ A4C6 0062
1F393 0061
1F393 0041
1F393 0062
+1F394 0021
+1F394 003F
+1F394 0334
+1F394 0061
+1F394 0041
+1F394 0062
+1F395 0021
+1F395 003F
+1F395 0334
+1F395 0061
+1F395 0041
+1F395 0062
+1F396 0021
+1F396 003F
+1F396 0334
+1F396 0061
+1F396 0041
+1F396 0062
+1F397 0021
+1F397 003F
+1F397 0334
+1F397 0061
+1F397 0041
+1F397 0062
+1F398 0021
+1F398 003F
+1F398 0334
+1F398 0061
+1F398 0041
+1F398 0062
+1F399 0021
+1F399 003F
+1F399 0334
+1F399 0061
+1F399 0041
+1F399 0062
+1F39A 0021
+1F39A 003F
+1F39A 0334
+1F39A 0061
+1F39A 0041
+1F39A 0062
+1F39B 0021
+1F39B 003F
+1F39B 0334
+1F39B 0061
+1F39B 0041
+1F39B 0062
+1F39C 0021
+1F39C 003F
+1F39C 0334
+1F39C 0061
+1F39C 0041
+1F39C 0062
+1F39D 0021
+1F39D 003F
+1F39D 0334
+1F39D 0061
+1F39D 0041
+1F39D 0062
+1F39E 0021
+1F39E 003F
+1F39E 0334
+1F39E 0061
+1F39E 0041
+1F39E 0062
+1F39F 0021
+1F39F 003F
+1F39F 0334
+1F39F 0061
+1F39F 0041
+1F39F 0062
1F3A0 0021
1F3A0 003F
1F3A0 0334
@@ -24832,6 +26288,12 @@ A4C6 0062
1F3C4 0061
1F3C4 0041
1F3C4 0062
+1F3C5 0021
+1F3C5 003F
+1F3C5 0334
+1F3C5 0061
+1F3C5 0041
+1F3C5 0062
1F3C6 0021
1F3C6 003F
1F3C6 0334
@@ -24862,6 +26324,102 @@ A4C6 0062
1F3CA 0061
1F3CA 0041
1F3CA 0062
+1F3CB 0021
+1F3CB 003F
+1F3CB 0334
+1F3CB 0061
+1F3CB 0041
+1F3CB 0062
+1F3CC 0021
+1F3CC 003F
+1F3CC 0334
+1F3CC 0061
+1F3CC 0041
+1F3CC 0062
+1F3CD 0021
+1F3CD 003F
+1F3CD 0334
+1F3CD 0061
+1F3CD 0041
+1F3CD 0062
+1F3CE 0021
+1F3CE 003F
+1F3CE 0334
+1F3CE 0061
+1F3CE 0041
+1F3CE 0062
+1F3D4 0021
+1F3D4 003F
+1F3D4 0334
+1F3D4 0061
+1F3D4 0041
+1F3D4 0062
+1F3D5 0021
+1F3D5 003F
+1F3D5 0334
+1F3D5 0061
+1F3D5 0041
+1F3D5 0062
+1F3D6 0021
+1F3D6 003F
+1F3D6 0334
+1F3D6 0061
+1F3D6 0041
+1F3D6 0062
+1F3D7 0021
+1F3D7 003F
+1F3D7 0334
+1F3D7 0061
+1F3D7 0041
+1F3D7 0062
+1F3D8 0021
+1F3D8 003F
+1F3D8 0334
+1F3D8 0061
+1F3D8 0041
+1F3D8 0062
+1F3D9 0021
+1F3D9 003F
+1F3D9 0334
+1F3D9 0061
+1F3D9 0041
+1F3D9 0062
+1F3DA 0021
+1F3DA 003F
+1F3DA 0334
+1F3DA 0061
+1F3DA 0041
+1F3DA 0062
+1F3DB 0021
+1F3DB 003F
+1F3DB 0334
+1F3DB 0061
+1F3DB 0041
+1F3DB 0062
+1F3DC 0021
+1F3DC 003F
+1F3DC 0334
+1F3DC 0061
+1F3DC 0041
+1F3DC 0062
+1F3DD 0021
+1F3DD 003F
+1F3DD 0334
+1F3DD 0061
+1F3DD 0041
+1F3DD 0062
+1F3DE 0021
+1F3DE 003F
+1F3DE 0334
+1F3DE 0061
+1F3DE 0041
+1F3DE 0062
+1F3DF 0021
+1F3DF 003F
+1F3DF 0334
+1F3DF 0061
+1F3DF 0041
+1F3DF 0062
1F3E0 0021
1F3E0 003F
1F3E0 0334
@@ -24964,6 +26522,48 @@ A4C6 0062
1F3F0 0061
1F3F0 0041
1F3F0 0062
+1F3F1 0021
+1F3F1 003F
+1F3F1 0334
+1F3F1 0061
+1F3F1 0041
+1F3F1 0062
+1F3F2 0021
+1F3F2 003F
+1F3F2 0334
+1F3F2 0061
+1F3F2 0041
+1F3F2 0062
+1F3F3 0021
+1F3F3 003F
+1F3F3 0334
+1F3F3 0061
+1F3F3 0041
+1F3F3 0062
+1F3F4 0021
+1F3F4 003F
+1F3F4 0334
+1F3F4 0061
+1F3F4 0041
+1F3F4 0062
+1F3F5 0021
+1F3F5 003F
+1F3F5 0334
+1F3F5 0061
+1F3F5 0041
+1F3F5 0062
+1F3F6 0021
+1F3F6 003F
+1F3F6 0334
+1F3F6 0061
+1F3F6 0041
+1F3F6 0062
+1F3F7 0021
+1F3F7 003F
+1F3F7 0334
+1F3F7 0061
+1F3F7 0041
+1F3F7 0062
1F400 0021
1F400 003F
1F400 0334
@@ -25342,12 +26942,24 @@ A4C6 0062
1F43E 0061
1F43E 0041
1F43E 0062
+1F43F 0021
+1F43F 003F
+1F43F 0334
+1F43F 0061
+1F43F 0041
+1F43F 0062
1F440 0021
1F440 003F
1F440 0334
1F440 0061
1F440 0041
1F440 0062
+1F441 0021
+1F441 003F
+1F441 0334
+1F441 0061
+1F441 0041
+1F441 0062
1F442 0021
1F442 003F
1F442 0334
@@ -26440,6 +28052,12 @@ A4C6 0062
1F4F7 0061
1F4F7 0041
1F4F7 0062
+1F4F8 0021
+1F4F8 003F
+1F4F8 0334
+1F4F8 0061
+1F4F8 0041
+1F4F8 0062
1F4F9 0021
1F4F9 003F
1F4F9 0334
@@ -26464,6 +28082,18 @@ A4C6 0062
1F4FC 0061
1F4FC 0041
1F4FC 0062
+1F4FD 0021
+1F4FD 003F
+1F4FD 0334
+1F4FD 0061
+1F4FD 0041
+1F4FD 0062
+1F4FE 0021
+1F4FE 003F
+1F4FE 0334
+1F4FE 0061
+1F4FE 0041
+1F4FE 0062
1F500 0021
1F500 003F
1F500 0334
@@ -26836,6 +28466,18 @@ A4C6 0062
1F53D 0061
1F53D 0041
1F53D 0062
+1F53E 0021
+1F53E 003F
+1F53E 0334
+1F53E 0061
+1F53E 0041
+1F53E 0062
+1F53F 0021
+1F53F 003F
+1F53F 0334
+1F53F 0061
+1F53F 0041
+1F53F 0062
1F540 0021
1F540 003F
1F540 0334
@@ -26860,6 +28502,48 @@ A4C6 0062
1F543 0061
1F543 0041
1F543 0062
+1F544 0021
+1F544 003F
+1F544 0334
+1F544 0061
+1F544 0041
+1F544 0062
+1F545 0021
+1F545 003F
+1F545 0334
+1F545 0061
+1F545 0041
+1F545 0062
+1F546 0021
+1F546 003F
+1F546 0334
+1F546 0061
+1F546 0041
+1F546 0062
+1F547 0021
+1F547 003F
+1F547 0334
+1F547 0061
+1F547 0041
+1F547 0062
+1F548 0021
+1F548 003F
+1F548 0334
+1F548 0061
+1F548 0041
+1F548 0062
+1F549 0021
+1F549 003F
+1F549 0334
+1F549 0061
+1F549 0041
+1F549 0062
+1F54A 0021
+1F54A 003F
+1F54A 0334
+1F54A 0061
+1F54A 0041
+1F54A 0062
1F550 0021
1F550 003F
1F550 0334
@@ -27004,6 +28688,876 @@ A4C6 0062
1F567 0061
1F567 0041
1F567 0062
+1F568 0021
+1F568 003F
+1F568 0334
+1F568 0061
+1F568 0041
+1F568 0062
+1F569 0021
+1F569 003F
+1F569 0334
+1F569 0061
+1F569 0041
+1F569 0062
+1F56A 0021
+1F56A 003F
+1F56A 0334
+1F56A 0061
+1F56A 0041
+1F56A 0062
+1F56B 0021
+1F56B 003F
+1F56B 0334
+1F56B 0061
+1F56B 0041
+1F56B 0062
+1F56C 0021
+1F56C 003F
+1F56C 0334
+1F56C 0061
+1F56C 0041
+1F56C 0062
+1F56D 0021
+1F56D 003F
+1F56D 0334
+1F56D 0061
+1F56D 0041
+1F56D 0062
+1F56E 0021
+1F56E 003F
+1F56E 0334
+1F56E 0061
+1F56E 0041
+1F56E 0062
+1F56F 0021
+1F56F 003F
+1F56F 0334
+1F56F 0061
+1F56F 0041
+1F56F 0062
+1F570 0021
+1F570 003F
+1F570 0334
+1F570 0061
+1F570 0041
+1F570 0062
+1F571 0021
+1F571 003F
+1F571 0334
+1F571 0061
+1F571 0041
+1F571 0062
+1F572 0021
+1F572 003F
+1F572 0334
+1F572 0061
+1F572 0041
+1F572 0062
+1F573 0021
+1F573 003F
+1F573 0334
+1F573 0061
+1F573 0041
+1F573 0062
+1F574 0021
+1F574 003F
+1F574 0334
+1F574 0061
+1F574 0041
+1F574 0062
+1F575 0021
+1F575 003F
+1F575 0334
+1F575 0061
+1F575 0041
+1F575 0062
+1F576 0021
+1F576 003F
+1F576 0334
+1F576 0061
+1F576 0041
+1F576 0062
+1F577 0021
+1F577 003F
+1F577 0334
+1F577 0061
+1F577 0041
+1F577 0062
+1F578 0021
+1F578 003F
+1F578 0334
+1F578 0061
+1F578 0041
+1F578 0062
+1F579 0021
+1F579 003F
+1F579 0334
+1F579 0061
+1F579 0041
+1F579 0062
+1F57B 0021
+1F57B 003F
+1F57B 0334
+1F57B 0061
+1F57B 0041
+1F57B 0062
+1F57C 0021
+1F57C 003F
+1F57C 0334
+1F57C 0061
+1F57C 0041
+1F57C 0062
+1F57D 0021
+1F57D 003F
+1F57D 0334
+1F57D 0061
+1F57D 0041
+1F57D 0062
+1F57E 0021
+1F57E 003F
+1F57E 0334
+1F57E 0061
+1F57E 0041
+1F57E 0062
+1F57F 0021
+1F57F 003F
+1F57F 0334
+1F57F 0061
+1F57F 0041
+1F57F 0062
+1F580 0021
+1F580 003F
+1F580 0334
+1F580 0061
+1F580 0041
+1F580 0062
+1F581 0021
+1F581 003F
+1F581 0334
+1F581 0061
+1F581 0041
+1F581 0062
+1F582 0021
+1F582 003F
+1F582 0334
+1F582 0061
+1F582 0041
+1F582 0062
+1F583 0021
+1F583 003F
+1F583 0334
+1F583 0061
+1F583 0041
+1F583 0062
+1F584 0021
+1F584 003F
+1F584 0334
+1F584 0061
+1F584 0041
+1F584 0062
+1F585 0021
+1F585 003F
+1F585 0334
+1F585 0061
+1F585 0041
+1F585 0062
+1F586 0021
+1F586 003F
+1F586 0334
+1F586 0061
+1F586 0041
+1F586 0062
+1F587 0021
+1F587 003F
+1F587 0334
+1F587 0061
+1F587 0041
+1F587 0062
+1F588 0021
+1F588 003F
+1F588 0334
+1F588 0061
+1F588 0041
+1F588 0062
+1F589 0021
+1F589 003F
+1F589 0334
+1F589 0061
+1F589 0041
+1F589 0062
+1F58A 0021
+1F58A 003F
+1F58A 0334
+1F58A 0061
+1F58A 0041
+1F58A 0062
+1F58B 0021
+1F58B 003F
+1F58B 0334
+1F58B 0061
+1F58B 0041
+1F58B 0062
+1F58C 0021
+1F58C 003F
+1F58C 0334
+1F58C 0061
+1F58C 0041
+1F58C 0062
+1F58D 0021
+1F58D 003F
+1F58D 0334
+1F58D 0061
+1F58D 0041
+1F58D 0062
+1F58E 0021
+1F58E 003F
+1F58E 0334
+1F58E 0061
+1F58E 0041
+1F58E 0062
+1F58F 0021
+1F58F 003F
+1F58F 0334
+1F58F 0061
+1F58F 0041
+1F58F 0062
+1F590 0021
+1F590 003F
+1F590 0334
+1F590 0061
+1F590 0041
+1F590 0062
+1F591 0021
+1F591 003F
+1F591 0334
+1F591 0061
+1F591 0041
+1F591 0062
+1F592 0021
+1F592 003F
+1F592 0334
+1F592 0061
+1F592 0041
+1F592 0062
+1F593 0021
+1F593 003F
+1F593 0334
+1F593 0061
+1F593 0041
+1F593 0062
+1F594 0021
+1F594 003F
+1F594 0334
+1F594 0061
+1F594 0041
+1F594 0062
+1F595 0021
+1F595 003F
+1F595 0334
+1F595 0061
+1F595 0041
+1F595 0062
+1F596 0021
+1F596 003F
+1F596 0334
+1F596 0061
+1F596 0041
+1F596 0062
+1F597 0021
+1F597 003F
+1F597 0334
+1F597 0061
+1F597 0041
+1F597 0062
+1F598 0021
+1F598 003F
+1F598 0334
+1F598 0061
+1F598 0041
+1F598 0062
+1F599 0021
+1F599 003F
+1F599 0334
+1F599 0061
+1F599 0041
+1F599 0062
+1F59A 0021
+1F59A 003F
+1F59A 0334
+1F59A 0061
+1F59A 0041
+1F59A 0062
+1F59B 0021
+1F59B 003F
+1F59B 0334
+1F59B 0061
+1F59B 0041
+1F59B 0062
+1F59C 0021
+1F59C 003F
+1F59C 0334
+1F59C 0061
+1F59C 0041
+1F59C 0062
+1F59D 0021
+1F59D 003F
+1F59D 0334
+1F59D 0061
+1F59D 0041
+1F59D 0062
+1F59E 0021
+1F59E 003F
+1F59E 0334
+1F59E 0061
+1F59E 0041
+1F59E 0062
+1F59F 0021
+1F59F 003F
+1F59F 0334
+1F59F 0061
+1F59F 0041
+1F59F 0062
+1F5A0 0021
+1F5A0 003F
+1F5A0 0334
+1F5A0 0061
+1F5A0 0041
+1F5A0 0062
+1F5A1 0021
+1F5A1 003F
+1F5A1 0334
+1F5A1 0061
+1F5A1 0041
+1F5A1 0062
+1F5A2 0021
+1F5A2 003F
+1F5A2 0334
+1F5A2 0061
+1F5A2 0041
+1F5A2 0062
+1F5A3 0021
+1F5A3 003F
+1F5A3 0334
+1F5A3 0061
+1F5A3 0041
+1F5A3 0062
+1F5A5 0021
+1F5A5 003F
+1F5A5 0334
+1F5A5 0061
+1F5A5 0041
+1F5A5 0062
+1F5A6 0021
+1F5A6 003F
+1F5A6 0334
+1F5A6 0061
+1F5A6 0041
+1F5A6 0062
+1F5A7 0021
+1F5A7 003F
+1F5A7 0334
+1F5A7 0061
+1F5A7 0041
+1F5A7 0062
+1F5A8 0021
+1F5A8 003F
+1F5A8 0334
+1F5A8 0061
+1F5A8 0041
+1F5A8 0062
+1F5A9 0021
+1F5A9 003F
+1F5A9 0334
+1F5A9 0061
+1F5A9 0041
+1F5A9 0062
+1F5AA 0021
+1F5AA 003F
+1F5AA 0334
+1F5AA 0061
+1F5AA 0041
+1F5AA 0062
+1F5AB 0021
+1F5AB 003F
+1F5AB 0334
+1F5AB 0061
+1F5AB 0041
+1F5AB 0062
+1F5AC 0021
+1F5AC 003F
+1F5AC 0334
+1F5AC 0061
+1F5AC 0041
+1F5AC 0062
+1F5AD 0021
+1F5AD 003F
+1F5AD 0334
+1F5AD 0061
+1F5AD 0041
+1F5AD 0062
+1F5AE 0021
+1F5AE 003F
+1F5AE 0334
+1F5AE 0061
+1F5AE 0041
+1F5AE 0062
+1F5AF 0021
+1F5AF 003F
+1F5AF 0334
+1F5AF 0061
+1F5AF 0041
+1F5AF 0062
+1F5B0 0021
+1F5B0 003F
+1F5B0 0334
+1F5B0 0061
+1F5B0 0041
+1F5B0 0062
+1F5B1 0021
+1F5B1 003F
+1F5B1 0334
+1F5B1 0061
+1F5B1 0041
+1F5B1 0062
+1F5B2 0021
+1F5B2 003F
+1F5B2 0334
+1F5B2 0061
+1F5B2 0041
+1F5B2 0062
+1F5B3 0021
+1F5B3 003F
+1F5B3 0334
+1F5B3 0061
+1F5B3 0041
+1F5B3 0062
+1F5B4 0021
+1F5B4 003F
+1F5B4 0334
+1F5B4 0061
+1F5B4 0041
+1F5B4 0062
+1F5B5 0021
+1F5B5 003F
+1F5B5 0334
+1F5B5 0061
+1F5B5 0041
+1F5B5 0062
+1F5B6 0021
+1F5B6 003F
+1F5B6 0334
+1F5B6 0061
+1F5B6 0041
+1F5B6 0062
+1F5B7 0021
+1F5B7 003F
+1F5B7 0334
+1F5B7 0061
+1F5B7 0041
+1F5B7 0062
+1F5B8 0021
+1F5B8 003F
+1F5B8 0334
+1F5B8 0061
+1F5B8 0041
+1F5B8 0062
+1F5B9 0021
+1F5B9 003F
+1F5B9 0334
+1F5B9 0061
+1F5B9 0041
+1F5B9 0062
+1F5BA 0021
+1F5BA 003F
+1F5BA 0334
+1F5BA 0061
+1F5BA 0041
+1F5BA 0062
+1F5BB 0021
+1F5BB 003F
+1F5BB 0334
+1F5BB 0061
+1F5BB 0041
+1F5BB 0062
+1F5BC 0021
+1F5BC 003F
+1F5BC 0334
+1F5BC 0061
+1F5BC 0041
+1F5BC 0062
+1F5BD 0021
+1F5BD 003F
+1F5BD 0334
+1F5BD 0061
+1F5BD 0041
+1F5BD 0062
+1F5BE 0021
+1F5BE 003F
+1F5BE 0334
+1F5BE 0061
+1F5BE 0041
+1F5BE 0062
+1F5BF 0021
+1F5BF 003F
+1F5BF 0334
+1F5BF 0061
+1F5BF 0041
+1F5BF 0062
+1F5C0 0021
+1F5C0 003F
+1F5C0 0334
+1F5C0 0061
+1F5C0 0041
+1F5C0 0062
+1F5C1 0021
+1F5C1 003F
+1F5C1 0334
+1F5C1 0061
+1F5C1 0041
+1F5C1 0062
+1F5C2 0021
+1F5C2 003F
+1F5C2 0334
+1F5C2 0061
+1F5C2 0041
+1F5C2 0062
+1F5C3 0021
+1F5C3 003F
+1F5C3 0334
+1F5C3 0061
+1F5C3 0041
+1F5C3 0062
+1F5C4 0021
+1F5C4 003F
+1F5C4 0334
+1F5C4 0061
+1F5C4 0041
+1F5C4 0062
+1F5C5 0021
+1F5C5 003F
+1F5C5 0334
+1F5C5 0061
+1F5C5 0041
+1F5C5 0062
+1F5C6 0021
+1F5C6 003F
+1F5C6 0334
+1F5C6 0061
+1F5C6 0041
+1F5C6 0062
+1F5C7 0021
+1F5C7 003F
+1F5C7 0334
+1F5C7 0061
+1F5C7 0041
+1F5C7 0062
+1F5C8 0021
+1F5C8 003F
+1F5C8 0334
+1F5C8 0061
+1F5C8 0041
+1F5C8 0062
+1F5C9 0021
+1F5C9 003F
+1F5C9 0334
+1F5C9 0061
+1F5C9 0041
+1F5C9 0062
+1F5CA 0021
+1F5CA 003F
+1F5CA 0334
+1F5CA 0061
+1F5CA 0041
+1F5CA 0062
+1F5CB 0021
+1F5CB 003F
+1F5CB 0334
+1F5CB 0061
+1F5CB 0041
+1F5CB 0062
+1F5CC 0021
+1F5CC 003F
+1F5CC 0334
+1F5CC 0061
+1F5CC 0041
+1F5CC 0062
+1F5CD 0021
+1F5CD 003F
+1F5CD 0334
+1F5CD 0061
+1F5CD 0041
+1F5CD 0062
+1F5CE 0021
+1F5CE 003F
+1F5CE 0334
+1F5CE 0061
+1F5CE 0041
+1F5CE 0062
+1F5CF 0021
+1F5CF 003F
+1F5CF 0334
+1F5CF 0061
+1F5CF 0041
+1F5CF 0062
+1F5D0 0021
+1F5D0 003F
+1F5D0 0334
+1F5D0 0061
+1F5D0 0041
+1F5D0 0062
+1F5D1 0021
+1F5D1 003F
+1F5D1 0334
+1F5D1 0061
+1F5D1 0041
+1F5D1 0062
+1F5D2 0021
+1F5D2 003F
+1F5D2 0334
+1F5D2 0061
+1F5D2 0041
+1F5D2 0062
+1F5D3 0021
+1F5D3 003F
+1F5D3 0334
+1F5D3 0061
+1F5D3 0041
+1F5D3 0062
+1F5D4 0021
+1F5D4 003F
+1F5D4 0334
+1F5D4 0061
+1F5D4 0041
+1F5D4 0062
+1F5D5 0021
+1F5D5 003F
+1F5D5 0334
+1F5D5 0061
+1F5D5 0041
+1F5D5 0062
+1F5D6 0021
+1F5D6 003F
+1F5D6 0334
+1F5D6 0061
+1F5D6 0041
+1F5D6 0062
+1F5D7 0021
+1F5D7 003F
+1F5D7 0334
+1F5D7 0061
+1F5D7 0041
+1F5D7 0062
+1F5D8 0021
+1F5D8 003F
+1F5D8 0334
+1F5D8 0061
+1F5D8 0041
+1F5D8 0062
+1F5D9 0021
+1F5D9 003F
+1F5D9 0334
+1F5D9 0061
+1F5D9 0041
+1F5D9 0062
+1F5DA 0021
+1F5DA 003F
+1F5DA 0334
+1F5DA 0061
+1F5DA 0041
+1F5DA 0062
+1F5DB 0021
+1F5DB 003F
+1F5DB 0334
+1F5DB 0061
+1F5DB 0041
+1F5DB 0062
+1F5DC 0021
+1F5DC 003F
+1F5DC 0334
+1F5DC 0061
+1F5DC 0041
+1F5DC 0062
+1F5DD 0021
+1F5DD 003F
+1F5DD 0334
+1F5DD 0061
+1F5DD 0041
+1F5DD 0062
+1F5DE 0021
+1F5DE 003F
+1F5DE 0334
+1F5DE 0061
+1F5DE 0041
+1F5DE 0062
+1F5DF 0021
+1F5DF 003F
+1F5DF 0334
+1F5DF 0061
+1F5DF 0041
+1F5DF 0062
+1F5E0 0021
+1F5E0 003F
+1F5E0 0334
+1F5E0 0061
+1F5E0 0041
+1F5E0 0062
+1F5E1 0021
+1F5E1 003F
+1F5E1 0334
+1F5E1 0061
+1F5E1 0041
+1F5E1 0062
+1F5E2 0021
+1F5E2 003F
+1F5E2 0334
+1F5E2 0061
+1F5E2 0041
+1F5E2 0062
+1F5E3 0021
+1F5E3 003F
+1F5E3 0334
+1F5E3 0061
+1F5E3 0041
+1F5E3 0062
+1F5E4 0021
+1F5E4 003F
+1F5E4 0334
+1F5E4 0061
+1F5E4 0041
+1F5E4 0062
+1F5E5 0021
+1F5E5 003F
+1F5E5 0334
+1F5E5 0061
+1F5E5 0041
+1F5E5 0062
+1F5E6 0021
+1F5E6 003F
+1F5E6 0334
+1F5E6 0061
+1F5E6 0041
+1F5E6 0062
+1F5E7 0021
+1F5E7 003F
+1F5E7 0334
+1F5E7 0061
+1F5E7 0041
+1F5E7 0062
+1F5E8 0021
+1F5E8 003F
+1F5E8 0334
+1F5E8 0061
+1F5E8 0041
+1F5E8 0062
+1F5E9 0021
+1F5E9 003F
+1F5E9 0334
+1F5E9 0061
+1F5E9 0041
+1F5E9 0062
+1F5EA 0021
+1F5EA 003F
+1F5EA 0334
+1F5EA 0061
+1F5EA 0041
+1F5EA 0062
+1F5EB 0021
+1F5EB 003F
+1F5EB 0334
+1F5EB 0061
+1F5EB 0041
+1F5EB 0062
+1F5EC 0021
+1F5EC 003F
+1F5EC 0334
+1F5EC 0061
+1F5EC 0041
+1F5EC 0062
+1F5ED 0021
+1F5ED 003F
+1F5ED 0334
+1F5ED 0061
+1F5ED 0041
+1F5ED 0062
+1F5EE 0021
+1F5EE 003F
+1F5EE 0334
+1F5EE 0061
+1F5EE 0041
+1F5EE 0062
+1F5EF 0021
+1F5EF 003F
+1F5EF 0334
+1F5EF 0061
+1F5EF 0041
+1F5EF 0062
+1F5F0 0021
+1F5F0 003F
+1F5F0 0334
+1F5F0 0061
+1F5F0 0041
+1F5F0 0062
+1F5F1 0021
+1F5F1 003F
+1F5F1 0334
+1F5F1 0061
+1F5F1 0041
+1F5F1 0062
+1F5F2 0021
+1F5F2 003F
+1F5F2 0334
+1F5F2 0061
+1F5F2 0041
+1F5F2 0062
+1F5F3 0021
+1F5F3 003F
+1F5F3 0334
+1F5F3 0061
+1F5F3 0041
+1F5F3 0062
+1F5F4 0021
+1F5F4 003F
+1F5F4 0334
+1F5F4 0061
+1F5F4 0041
+1F5F4 0062
+1F5F5 0021
+1F5F5 003F
+1F5F5 0334
+1F5F5 0061
+1F5F5 0041
+1F5F5 0062
+1F5F6 0021
+1F5F6 003F
+1F5F6 0334
+1F5F6 0061
+1F5F6 0041
+1F5F6 0062
+1F5F7 0021
+1F5F7 003F
+1F5F7 0334
+1F5F7 0061
+1F5F7 0041
+1F5F7 0062
+1F5F8 0021
+1F5F8 003F
+1F5F8 0334
+1F5F8 0061
+1F5F8 0041
+1F5F8 0062
+1F5F9 0021
+1F5F9 003F
+1F5F9 0334
+1F5F9 0061
+1F5F9 0041
+1F5F9 0062
+1F5FA 0021
+1F5FA 003F
+1F5FA 0334
+1F5FA 0061
+1F5FA 0041
+1F5FA 0062
1F5FB 0021
1F5FB 003F
1F5FB 0334
@@ -27424,6 +29978,18 @@ A4C6 0062
1F640 0061
1F640 0041
1F640 0062
+1F641 0021
+1F641 003F
+1F641 0334
+1F641 0061
+1F641 0041
+1F641 0062
+1F642 0021
+1F642 003F
+1F642 0334
+1F642 0061
+1F642 0041
+1F642 0062
1F645 0021
1F645 003F
1F645 0334
@@ -27490,6 +30056,294 @@ A4C6 0062
1F64F 0061
1F64F 0041
1F64F 0062
+1F650 0021
+1F650 003F
+1F650 0334
+1F650 0061
+1F650 0041
+1F650 0062
+1F651 0021
+1F651 003F
+1F651 0334
+1F651 0061
+1F651 0041
+1F651 0062
+1F652 0021
+1F652 003F
+1F652 0334
+1F652 0061
+1F652 0041
+1F652 0062
+1F653 0021
+1F653 003F
+1F653 0334
+1F653 0061
+1F653 0041
+1F653 0062
+1F654 0021
+1F654 003F
+1F654 0334
+1F654 0061
+1F654 0041
+1F654 0062
+1F655 0021
+1F655 003F
+1F655 0334
+1F655 0061
+1F655 0041
+1F655 0062
+1F656 0021
+1F656 003F
+1F656 0334
+1F656 0061
+1F656 0041
+1F656 0062
+1F657 0021
+1F657 003F
+1F657 0334
+1F657 0061
+1F657 0041
+1F657 0062
+1F658 0021
+1F658 003F
+1F658 0334
+1F658 0061
+1F658 0041
+1F658 0062
+1F659 0021
+1F659 003F
+1F659 0334
+1F659 0061
+1F659 0041
+1F659 0062
+1F65A 0021
+1F65A 003F
+1F65A 0334
+1F65A 0061
+1F65A 0041
+1F65A 0062
+1F65B 0021
+1F65B 003F
+1F65B 0334
+1F65B 0061
+1F65B 0041
+1F65B 0062
+1F65C 0021
+1F65C 003F
+1F65C 0334
+1F65C 0061
+1F65C 0041
+1F65C 0062
+1F65D 0021
+1F65D 003F
+1F65D 0334
+1F65D 0061
+1F65D 0041
+1F65D 0062
+1F65E 0021
+1F65E 003F
+1F65E 0334
+1F65E 0061
+1F65E 0041
+1F65E 0062
+1F65F 0021
+1F65F 003F
+1F65F 0334
+1F65F 0061
+1F65F 0041
+1F65F 0062
+1F660 0021
+1F660 003F
+1F660 0334
+1F660 0061
+1F660 0041
+1F660 0062
+1F661 0021
+1F661 003F
+1F661 0334
+1F661 0061
+1F661 0041
+1F661 0062
+1F662 0021
+1F662 003F
+1F662 0334
+1F662 0061
+1F662 0041
+1F662 0062
+1F663 0021
+1F663 003F
+1F663 0334
+1F663 0061
+1F663 0041
+1F663 0062
+1F664 0021
+1F664 003F
+1F664 0334
+1F664 0061
+1F664 0041
+1F664 0062
+1F665 0021
+1F665 003F
+1F665 0334
+1F665 0061
+1F665 0041
+1F665 0062
+1F666 0021
+1F666 003F
+1F666 0334
+1F666 0061
+1F666 0041
+1F666 0062
+1F667 0021
+1F667 003F
+1F667 0334
+1F667 0061
+1F667 0041
+1F667 0062
+1F668 0021
+1F668 003F
+1F668 0334
+1F668 0061
+1F668 0041
+1F668 0062
+1F669 0021
+1F669 003F
+1F669 0334
+1F669 0061
+1F669 0041
+1F669 0062
+1F66A 0021
+1F66A 003F
+1F66A 0334
+1F66A 0061
+1F66A 0041
+1F66A 0062
+1F66B 0021
+1F66B 003F
+1F66B 0334
+1F66B 0061
+1F66B 0041
+1F66B 0062
+1F66C 0021
+1F66C 003F
+1F66C 0334
+1F66C 0061
+1F66C 0041
+1F66C 0062
+1F66D 0021
+1F66D 003F
+1F66D 0334
+1F66D 0061
+1F66D 0041
+1F66D 0062
+1F66E 0021
+1F66E 003F
+1F66E 0334
+1F66E 0061
+1F66E 0041
+1F66E 0062
+1F66F 0021
+1F66F 003F
+1F66F 0334
+1F66F 0061
+1F66F 0041
+1F66F 0062
+1F670 0021
+1F670 003F
+1F670 0334
+1F670 0061
+1F670 0041
+1F670 0062
+1F671 0021
+1F671 003F
+1F671 0334
+1F671 0061
+1F671 0041
+1F671 0062
+1F672 0021
+1F672 003F
+1F672 0334
+1F672 0061
+1F672 0041
+1F672 0062
+1F673 0021
+1F673 003F
+1F673 0334
+1F673 0061
+1F673 0041
+1F673 0062
+1F674 0021
+1F674 003F
+1F674 0334
+1F674 0061
+1F674 0041
+1F674 0062
+1F675 0021
+1F675 003F
+1F675 0334
+1F675 0061
+1F675 0041
+1F675 0062
+1F676 0021
+1F676 003F
+1F676 0334
+1F676 0061
+1F676 0041
+1F676 0062
+1F677 0021
+1F677 003F
+1F677 0334
+1F677 0061
+1F677 0041
+1F677 0062
+1F678 0021
+1F678 003F
+1F678 0334
+1F678 0061
+1F678 0041
+1F678 0062
+1F679 0021
+1F679 003F
+1F679 0334
+1F679 0061
+1F679 0041
+1F679 0062
+1F67A 0021
+1F67A 003F
+1F67A 0334
+1F67A 0061
+1F67A 0041
+1F67A 0062
+1F67B 0021
+1F67B 003F
+1F67B 0334
+1F67B 0061
+1F67B 0041
+1F67B 0062
+1F67C 0021
+1F67C 003F
+1F67C 0334
+1F67C 0061
+1F67C 0041
+1F67C 0062
+1F67D 0021
+1F67D 003F
+1F67D 0334
+1F67D 0061
+1F67D 0041
+1F67D 0062
+1F67E 0021
+1F67E 003F
+1F67E 0334
+1F67E 0061
+1F67E 0041
+1F67E 0062
+1F67F 0021
+1F67F 003F
+1F67F 0334
+1F67F 0061
+1F67F 0041
+1F67F 0062
1F680 0021
1F680 003F
1F680 0334
@@ -27910,6 +30764,168 @@ A4C6 0062
1F6C5 0061
1F6C5 0041
1F6C5 0062
+1F6C6 0021
+1F6C6 003F
+1F6C6 0334
+1F6C6 0061
+1F6C6 0041
+1F6C6 0062
+1F6C7 0021
+1F6C7 003F
+1F6C7 0334
+1F6C7 0061
+1F6C7 0041
+1F6C7 0062
+1F6C8 0021
+1F6C8 003F
+1F6C8 0334
+1F6C8 0061
+1F6C8 0041
+1F6C8 0062
+1F6C9 0021
+1F6C9 003F
+1F6C9 0334
+1F6C9 0061
+1F6C9 0041
+1F6C9 0062
+1F6CA 0021
+1F6CA 003F
+1F6CA 0334
+1F6CA 0061
+1F6CA 0041
+1F6CA 0062
+1F6CB 0021
+1F6CB 003F
+1F6CB 0334
+1F6CB 0061
+1F6CB 0041
+1F6CB 0062
+1F6CC 0021
+1F6CC 003F
+1F6CC 0334
+1F6CC 0061
+1F6CC 0041
+1F6CC 0062
+1F6CD 0021
+1F6CD 003F
+1F6CD 0334
+1F6CD 0061
+1F6CD 0041
+1F6CD 0062
+1F6CE 0021
+1F6CE 003F
+1F6CE 0334
+1F6CE 0061
+1F6CE 0041
+1F6CE 0062
+1F6CF 0021
+1F6CF 003F
+1F6CF 0334
+1F6CF 0061
+1F6CF 0041
+1F6CF 0062
+1F6E0 0021
+1F6E0 003F
+1F6E0 0334
+1F6E0 0061
+1F6E0 0041
+1F6E0 0062
+1F6E1 0021
+1F6E1 003F
+1F6E1 0334
+1F6E1 0061
+1F6E1 0041
+1F6E1 0062
+1F6E2 0021
+1F6E2 003F
+1F6E2 0334
+1F6E2 0061
+1F6E2 0041
+1F6E2 0062
+1F6E3 0021
+1F6E3 003F
+1F6E3 0334
+1F6E3 0061
+1F6E3 0041
+1F6E3 0062
+1F6E4 0021
+1F6E4 003F
+1F6E4 0334
+1F6E4 0061
+1F6E4 0041
+1F6E4 0062
+1F6E5 0021
+1F6E5 003F
+1F6E5 0334
+1F6E5 0061
+1F6E5 0041
+1F6E5 0062
+1F6E6 0021
+1F6E6 003F
+1F6E6 0334
+1F6E6 0061
+1F6E6 0041
+1F6E6 0062
+1F6E7 0021
+1F6E7 003F
+1F6E7 0334
+1F6E7 0061
+1F6E7 0041
+1F6E7 0062
+1F6E8 0021
+1F6E8 003F
+1F6E8 0334
+1F6E8 0061
+1F6E8 0041
+1F6E8 0062
+1F6E9 0021
+1F6E9 003F
+1F6E9 0334
+1F6E9 0061
+1F6E9 0041
+1F6E9 0062
+1F6EA 0021
+1F6EA 003F
+1F6EA 0334
+1F6EA 0061
+1F6EA 0041
+1F6EA 0062
+1F6EB 0021
+1F6EB 003F
+1F6EB 0334
+1F6EB 0061
+1F6EB 0041
+1F6EB 0062
+1F6EC 0021
+1F6EC 003F
+1F6EC 0334
+1F6EC 0061
+1F6EC 0041
+1F6EC 0062
+1F6F0 0021
+1F6F0 003F
+1F6F0 0334
+1F6F0 0061
+1F6F0 0041
+1F6F0 0062
+1F6F1 0021
+1F6F1 003F
+1F6F1 0334
+1F6F1 0061
+1F6F1 0041
+1F6F1 0062
+1F6F2 0021
+1F6F2 003F
+1F6F2 0334
+1F6F2 0061
+1F6F2 0041
+1F6F2 0062
+1F6F3 0021
+1F6F3 003F
+1F6F3 0334
+1F6F3 0061
+1F6F3 0041
+1F6F3 0062
1F700 0021
1F700 003F
1F700 0334
@@ -28606,6 +31622,1404 @@ A4C6 0062
1F773 0061
1F773 0041
1F773 0062
+1F780 0021
+1F780 003F
+1F780 0334
+1F780 0061
+1F780 0041
+1F780 0062
+1F781 0021
+1F781 003F
+1F781 0334
+1F781 0061
+1F781 0041
+1F781 0062
+1F782 0021
+1F782 003F
+1F782 0334
+1F782 0061
+1F782 0041
+1F782 0062
+1F783 0021
+1F783 003F
+1F783 0334
+1F783 0061
+1F783 0041
+1F783 0062
+1F784 0021
+1F784 003F
+1F784 0334
+1F784 0061
+1F784 0041
+1F784 0062
+1F785 0021
+1F785 003F
+1F785 0334
+1F785 0061
+1F785 0041
+1F785 0062
+1F786 0021
+1F786 003F
+1F786 0334
+1F786 0061
+1F786 0041
+1F786 0062
+1F787 0021
+1F787 003F
+1F787 0334
+1F787 0061
+1F787 0041
+1F787 0062
+1F788 0021
+1F788 003F
+1F788 0334
+1F788 0061
+1F788 0041
+1F788 0062
+1F789 0021
+1F789 003F
+1F789 0334
+1F789 0061
+1F789 0041
+1F789 0062
+1F78A 0021
+1F78A 003F
+1F78A 0334
+1F78A 0061
+1F78A 0041
+1F78A 0062
+1F78B 0021
+1F78B 003F
+1F78B 0334
+1F78B 0061
+1F78B 0041
+1F78B 0062
+1F78C 0021
+1F78C 003F
+1F78C 0334
+1F78C 0061
+1F78C 0041
+1F78C 0062
+1F78D 0021
+1F78D 003F
+1F78D 0334
+1F78D 0061
+1F78D 0041
+1F78D 0062
+1F78E 0021
+1F78E 003F
+1F78E 0334
+1F78E 0061
+1F78E 0041
+1F78E 0062
+1F78F 0021
+1F78F 003F
+1F78F 0334
+1F78F 0061
+1F78F 0041
+1F78F 0062
+1F790 0021
+1F790 003F
+1F790 0334
+1F790 0061
+1F790 0041
+1F790 0062
+1F791 0021
+1F791 003F
+1F791 0334
+1F791 0061
+1F791 0041
+1F791 0062
+1F792 0021
+1F792 003F
+1F792 0334
+1F792 0061
+1F792 0041
+1F792 0062
+1F793 0021
+1F793 003F
+1F793 0334
+1F793 0061
+1F793 0041
+1F793 0062
+1F794 0021
+1F794 003F
+1F794 0334
+1F794 0061
+1F794 0041
+1F794 0062
+1F795 0021
+1F795 003F
+1F795 0334
+1F795 0061
+1F795 0041
+1F795 0062
+1F796 0021
+1F796 003F
+1F796 0334
+1F796 0061
+1F796 0041
+1F796 0062
+1F797 0021
+1F797 003F
+1F797 0334
+1F797 0061
+1F797 0041
+1F797 0062
+1F798 0021
+1F798 003F
+1F798 0334
+1F798 0061
+1F798 0041
+1F798 0062
+1F799 0021
+1F799 003F
+1F799 0334
+1F799 0061
+1F799 0041
+1F799 0062
+1F79A 0021
+1F79A 003F
+1F79A 0334
+1F79A 0061
+1F79A 0041
+1F79A 0062
+1F79B 0021
+1F79B 003F
+1F79B 0334
+1F79B 0061
+1F79B 0041
+1F79B 0062
+1F79C 0021
+1F79C 003F
+1F79C 0334
+1F79C 0061
+1F79C 0041
+1F79C 0062
+1F79D 0021
+1F79D 003F
+1F79D 0334
+1F79D 0061
+1F79D 0041
+1F79D 0062
+1F79E 0021
+1F79E 003F
+1F79E 0334
+1F79E 0061
+1F79E 0041
+1F79E 0062
+1F79F 0021
+1F79F 003F
+1F79F 0334
+1F79F 0061
+1F79F 0041
+1F79F 0062
+1F7A0 0021
+1F7A0 003F
+1F7A0 0334
+1F7A0 0061
+1F7A0 0041
+1F7A0 0062
+1F7A1 0021
+1F7A1 003F
+1F7A1 0334
+1F7A1 0061
+1F7A1 0041
+1F7A1 0062
+1F7A2 0021
+1F7A2 003F
+1F7A2 0334
+1F7A2 0061
+1F7A2 0041
+1F7A2 0062
+1F7A3 0021
+1F7A3 003F
+1F7A3 0334
+1F7A3 0061
+1F7A3 0041
+1F7A3 0062
+1F7A4 0021
+1F7A4 003F
+1F7A4 0334
+1F7A4 0061
+1F7A4 0041
+1F7A4 0062
+1F7A5 0021
+1F7A5 003F
+1F7A5 0334
+1F7A5 0061
+1F7A5 0041
+1F7A5 0062
+1F7A6 0021
+1F7A6 003F
+1F7A6 0334
+1F7A6 0061
+1F7A6 0041
+1F7A6 0062
+1F7A7 0021
+1F7A7 003F
+1F7A7 0334
+1F7A7 0061
+1F7A7 0041
+1F7A7 0062
+1F7A8 0021
+1F7A8 003F
+1F7A8 0334
+1F7A8 0061
+1F7A8 0041
+1F7A8 0062
+1F7A9 0021
+1F7A9 003F
+1F7A9 0334
+1F7A9 0061
+1F7A9 0041
+1F7A9 0062
+1F7AA 0021
+1F7AA 003F
+1F7AA 0334
+1F7AA 0061
+1F7AA 0041
+1F7AA 0062
+1F7AB 0021
+1F7AB 003F
+1F7AB 0334
+1F7AB 0061
+1F7AB 0041
+1F7AB 0062
+1F7AC 0021
+1F7AC 003F
+1F7AC 0334
+1F7AC 0061
+1F7AC 0041
+1F7AC 0062
+1F7AD 0021
+1F7AD 003F
+1F7AD 0334
+1F7AD 0061
+1F7AD 0041
+1F7AD 0062
+1F7AE 0021
+1F7AE 003F
+1F7AE 0334
+1F7AE 0061
+1F7AE 0041
+1F7AE 0062
+1F7AF 0021
+1F7AF 003F
+1F7AF 0334
+1F7AF 0061
+1F7AF 0041
+1F7AF 0062
+1F7B0 0021
+1F7B0 003F
+1F7B0 0334
+1F7B0 0061
+1F7B0 0041
+1F7B0 0062
+1F7B1 0021
+1F7B1 003F
+1F7B1 0334
+1F7B1 0061
+1F7B1 0041
+1F7B1 0062
+1F7B2 0021
+1F7B2 003F
+1F7B2 0334
+1F7B2 0061
+1F7B2 0041
+1F7B2 0062
+1F7B3 0021
+1F7B3 003F
+1F7B3 0334
+1F7B3 0061
+1F7B3 0041
+1F7B3 0062
+1F7B4 0021
+1F7B4 003F
+1F7B4 0334
+1F7B4 0061
+1F7B4 0041
+1F7B4 0062
+1F7B5 0021
+1F7B5 003F
+1F7B5 0334
+1F7B5 0061
+1F7B5 0041
+1F7B5 0062
+1F7B6 0021
+1F7B6 003F
+1F7B6 0334
+1F7B6 0061
+1F7B6 0041
+1F7B6 0062
+1F7B7 0021
+1F7B7 003F
+1F7B7 0334
+1F7B7 0061
+1F7B7 0041
+1F7B7 0062
+1F7B8 0021
+1F7B8 003F
+1F7B8 0334
+1F7B8 0061
+1F7B8 0041
+1F7B8 0062
+1F7B9 0021
+1F7B9 003F
+1F7B9 0334
+1F7B9 0061
+1F7B9 0041
+1F7B9 0062
+1F7BA 0021
+1F7BA 003F
+1F7BA 0334
+1F7BA 0061
+1F7BA 0041
+1F7BA 0062
+1F7BB 0021
+1F7BB 003F
+1F7BB 0334
+1F7BB 0061
+1F7BB 0041
+1F7BB 0062
+1F7BC 0021
+1F7BC 003F
+1F7BC 0334
+1F7BC 0061
+1F7BC 0041
+1F7BC 0062
+1F7BD 0021
+1F7BD 003F
+1F7BD 0334
+1F7BD 0061
+1F7BD 0041
+1F7BD 0062
+1F7BE 0021
+1F7BE 003F
+1F7BE 0334
+1F7BE 0061
+1F7BE 0041
+1F7BE 0062
+1F7BF 0021
+1F7BF 003F
+1F7BF 0334
+1F7BF 0061
+1F7BF 0041
+1F7BF 0062
+1F7C0 0021
+1F7C0 003F
+1F7C0 0334
+1F7C0 0061
+1F7C0 0041
+1F7C0 0062
+1F7C1 0021
+1F7C1 003F
+1F7C1 0334
+1F7C1 0061
+1F7C1 0041
+1F7C1 0062
+1F7C2 0021
+1F7C2 003F
+1F7C2 0334
+1F7C2 0061
+1F7C2 0041
+1F7C2 0062
+1F7C3 0021
+1F7C3 003F
+1F7C3 0334
+1F7C3 0061
+1F7C3 0041
+1F7C3 0062
+1F7C4 0021
+1F7C4 003F
+1F7C4 0334
+1F7C4 0061
+1F7C4 0041
+1F7C4 0062
+1F7C5 0021
+1F7C5 003F
+1F7C5 0334
+1F7C5 0061
+1F7C5 0041
+1F7C5 0062
+1F7C6 0021
+1F7C6 003F
+1F7C6 0334
+1F7C6 0061
+1F7C6 0041
+1F7C6 0062
+1F7C7 0021
+1F7C7 003F
+1F7C7 0334
+1F7C7 0061
+1F7C7 0041
+1F7C7 0062
+1F7C8 0021
+1F7C8 003F
+1F7C8 0334
+1F7C8 0061
+1F7C8 0041
+1F7C8 0062
+1F7C9 0021
+1F7C9 003F
+1F7C9 0334
+1F7C9 0061
+1F7C9 0041
+1F7C9 0062
+1F7CA 0021
+1F7CA 003F
+1F7CA 0334
+1F7CA 0061
+1F7CA 0041
+1F7CA 0062
+1F7CB 0021
+1F7CB 003F
+1F7CB 0334
+1F7CB 0061
+1F7CB 0041
+1F7CB 0062
+1F7CC 0021
+1F7CC 003F
+1F7CC 0334
+1F7CC 0061
+1F7CC 0041
+1F7CC 0062
+1F7CD 0021
+1F7CD 003F
+1F7CD 0334
+1F7CD 0061
+1F7CD 0041
+1F7CD 0062
+1F7CE 0021
+1F7CE 003F
+1F7CE 0334
+1F7CE 0061
+1F7CE 0041
+1F7CE 0062
+1F7CF 0021
+1F7CF 003F
+1F7CF 0334
+1F7CF 0061
+1F7CF 0041
+1F7CF 0062
+1F7D0 0021
+1F7D0 003F
+1F7D0 0334
+1F7D0 0061
+1F7D0 0041
+1F7D0 0062
+1F7D1 0021
+1F7D1 003F
+1F7D1 0334
+1F7D1 0061
+1F7D1 0041
+1F7D1 0062
+1F7D2 0021
+1F7D2 003F
+1F7D2 0334
+1F7D2 0061
+1F7D2 0041
+1F7D2 0062
+1F7D3 0021
+1F7D3 003F
+1F7D3 0334
+1F7D3 0061
+1F7D3 0041
+1F7D3 0062
+1F7D4 0021
+1F7D4 003F
+1F7D4 0334
+1F7D4 0061
+1F7D4 0041
+1F7D4 0062
+1F800 0021
+1F800 003F
+1F800 0334
+1F800 0061
+1F800 0041
+1F800 0062
+1F801 0021
+1F801 003F
+1F801 0334
+1F801 0061
+1F801 0041
+1F801 0062
+1F802 0021
+1F802 003F
+1F802 0334
+1F802 0061
+1F802 0041
+1F802 0062
+1F803 0021
+1F803 003F
+1F803 0334
+1F803 0061
+1F803 0041
+1F803 0062
+1F804 0021
+1F804 003F
+1F804 0334
+1F804 0061
+1F804 0041
+1F804 0062
+1F805 0021
+1F805 003F
+1F805 0334
+1F805 0061
+1F805 0041
+1F805 0062
+1F806 0021
+1F806 003F
+1F806 0334
+1F806 0061
+1F806 0041
+1F806 0062
+1F807 0021
+1F807 003F
+1F807 0334
+1F807 0061
+1F807 0041
+1F807 0062
+1F808 0021
+1F808 003F
+1F808 0334
+1F808 0061
+1F808 0041
+1F808 0062
+1F809 0021
+1F809 003F
+1F809 0334
+1F809 0061
+1F809 0041
+1F809 0062
+1F80A 0021
+1F80A 003F
+1F80A 0334
+1F80A 0061
+1F80A 0041
+1F80A 0062
+1F80B 0021
+1F80B 003F
+1F80B 0334
+1F80B 0061
+1F80B 0041
+1F80B 0062
+1F810 0021
+1F810 003F
+1F810 0334
+1F810 0061
+1F810 0041
+1F810 0062
+1F811 0021
+1F811 003F
+1F811 0334
+1F811 0061
+1F811 0041
+1F811 0062
+1F812 0021
+1F812 003F
+1F812 0334
+1F812 0061
+1F812 0041
+1F812 0062
+1F813 0021
+1F813 003F
+1F813 0334
+1F813 0061
+1F813 0041
+1F813 0062
+1F814 0021
+1F814 003F
+1F814 0334
+1F814 0061
+1F814 0041
+1F814 0062
+1F815 0021
+1F815 003F
+1F815 0334
+1F815 0061
+1F815 0041
+1F815 0062
+1F816 0021
+1F816 003F
+1F816 0334
+1F816 0061
+1F816 0041
+1F816 0062
+1F817 0021
+1F817 003F
+1F817 0334
+1F817 0061
+1F817 0041
+1F817 0062
+1F818 0021
+1F818 003F
+1F818 0334
+1F818 0061
+1F818 0041
+1F818 0062
+1F819 0021
+1F819 003F
+1F819 0334
+1F819 0061
+1F819 0041
+1F819 0062
+1F81A 0021
+1F81A 003F
+1F81A 0334
+1F81A 0061
+1F81A 0041
+1F81A 0062
+1F81B 0021
+1F81B 003F
+1F81B 0334
+1F81B 0061
+1F81B 0041
+1F81B 0062
+1F81C 0021
+1F81C 003F
+1F81C 0334
+1F81C 0061
+1F81C 0041
+1F81C 0062
+1F81D 0021
+1F81D 003F
+1F81D 0334
+1F81D 0061
+1F81D 0041
+1F81D 0062
+1F81E 0021
+1F81E 003F
+1F81E 0334
+1F81E 0061
+1F81E 0041
+1F81E 0062
+1F81F 0021
+1F81F 003F
+1F81F 0334
+1F81F 0061
+1F81F 0041
+1F81F 0062
+1F820 0021
+1F820 003F
+1F820 0334
+1F820 0061
+1F820 0041
+1F820 0062
+1F821 0021
+1F821 003F
+1F821 0334
+1F821 0061
+1F821 0041
+1F821 0062
+1F822 0021
+1F822 003F
+1F822 0334
+1F822 0061
+1F822 0041
+1F822 0062
+1F823 0021
+1F823 003F
+1F823 0334
+1F823 0061
+1F823 0041
+1F823 0062
+1F824 0021
+1F824 003F
+1F824 0334
+1F824 0061
+1F824 0041
+1F824 0062
+1F825 0021
+1F825 003F
+1F825 0334
+1F825 0061
+1F825 0041
+1F825 0062
+1F826 0021
+1F826 003F
+1F826 0334
+1F826 0061
+1F826 0041
+1F826 0062
+1F827 0021
+1F827 003F
+1F827 0334
+1F827 0061
+1F827 0041
+1F827 0062
+1F828 0021
+1F828 003F
+1F828 0334
+1F828 0061
+1F828 0041
+1F828 0062
+1F829 0021
+1F829 003F
+1F829 0334
+1F829 0061
+1F829 0041
+1F829 0062
+1F82A 0021
+1F82A 003F
+1F82A 0334
+1F82A 0061
+1F82A 0041
+1F82A 0062
+1F82B 0021
+1F82B 003F
+1F82B 0334
+1F82B 0061
+1F82B 0041
+1F82B 0062
+1F82C 0021
+1F82C 003F
+1F82C 0334
+1F82C 0061
+1F82C 0041
+1F82C 0062
+1F82D 0021
+1F82D 003F
+1F82D 0334
+1F82D 0061
+1F82D 0041
+1F82D 0062
+1F82E 0021
+1F82E 003F
+1F82E 0334
+1F82E 0061
+1F82E 0041
+1F82E 0062
+1F82F 0021
+1F82F 003F
+1F82F 0334
+1F82F 0061
+1F82F 0041
+1F82F 0062
+1F830 0021
+1F830 003F
+1F830 0334
+1F830 0061
+1F830 0041
+1F830 0062
+1F831 0021
+1F831 003F
+1F831 0334
+1F831 0061
+1F831 0041
+1F831 0062
+1F832 0021
+1F832 003F
+1F832 0334
+1F832 0061
+1F832 0041
+1F832 0062
+1F833 0021
+1F833 003F
+1F833 0334
+1F833 0061
+1F833 0041
+1F833 0062
+1F834 0021
+1F834 003F
+1F834 0334
+1F834 0061
+1F834 0041
+1F834 0062
+1F835 0021
+1F835 003F
+1F835 0334
+1F835 0061
+1F835 0041
+1F835 0062
+1F836 0021
+1F836 003F
+1F836 0334
+1F836 0061
+1F836 0041
+1F836 0062
+1F837 0021
+1F837 003F
+1F837 0334
+1F837 0061
+1F837 0041
+1F837 0062
+1F838 0021
+1F838 003F
+1F838 0334
+1F838 0061
+1F838 0041
+1F838 0062
+1F839 0021
+1F839 003F
+1F839 0334
+1F839 0061
+1F839 0041
+1F839 0062
+1F83A 0021
+1F83A 003F
+1F83A 0334
+1F83A 0061
+1F83A 0041
+1F83A 0062
+1F83B 0021
+1F83B 003F
+1F83B 0334
+1F83B 0061
+1F83B 0041
+1F83B 0062
+1F83C 0021
+1F83C 003F
+1F83C 0334
+1F83C 0061
+1F83C 0041
+1F83C 0062
+1F83D 0021
+1F83D 003F
+1F83D 0334
+1F83D 0061
+1F83D 0041
+1F83D 0062
+1F83E 0021
+1F83E 003F
+1F83E 0334
+1F83E 0061
+1F83E 0041
+1F83E 0062
+1F83F 0021
+1F83F 003F
+1F83F 0334
+1F83F 0061
+1F83F 0041
+1F83F 0062
+1F840 0021
+1F840 003F
+1F840 0334
+1F840 0061
+1F840 0041
+1F840 0062
+1F841 0021
+1F841 003F
+1F841 0334
+1F841 0061
+1F841 0041
+1F841 0062
+1F842 0021
+1F842 003F
+1F842 0334
+1F842 0061
+1F842 0041
+1F842 0062
+1F843 0021
+1F843 003F
+1F843 0334
+1F843 0061
+1F843 0041
+1F843 0062
+1F844 0021
+1F844 003F
+1F844 0334
+1F844 0061
+1F844 0041
+1F844 0062
+1F845 0021
+1F845 003F
+1F845 0334
+1F845 0061
+1F845 0041
+1F845 0062
+1F846 0021
+1F846 003F
+1F846 0334
+1F846 0061
+1F846 0041
+1F846 0062
+1F847 0021
+1F847 003F
+1F847 0334
+1F847 0061
+1F847 0041
+1F847 0062
+1F850 0021
+1F850 003F
+1F850 0334
+1F850 0061
+1F850 0041
+1F850 0062
+1F851 0021
+1F851 003F
+1F851 0334
+1F851 0061
+1F851 0041
+1F851 0062
+1F852 0021
+1F852 003F
+1F852 0334
+1F852 0061
+1F852 0041
+1F852 0062
+1F853 0021
+1F853 003F
+1F853 0334
+1F853 0061
+1F853 0041
+1F853 0062
+1F854 0021
+1F854 003F
+1F854 0334
+1F854 0061
+1F854 0041
+1F854 0062
+1F855 0021
+1F855 003F
+1F855 0334
+1F855 0061
+1F855 0041
+1F855 0062
+1F856 0021
+1F856 003F
+1F856 0334
+1F856 0061
+1F856 0041
+1F856 0062
+1F857 0021
+1F857 003F
+1F857 0334
+1F857 0061
+1F857 0041
+1F857 0062
+1F858 0021
+1F858 003F
+1F858 0334
+1F858 0061
+1F858 0041
+1F858 0062
+1F859 0021
+1F859 003F
+1F859 0334
+1F859 0061
+1F859 0041
+1F859 0062
+1F860 0021
+1F860 003F
+1F860 0334
+1F860 0061
+1F860 0041
+1F860 0062
+1F861 0021
+1F861 003F
+1F861 0334
+1F861 0061
+1F861 0041
+1F861 0062
+1F862 0021
+1F862 003F
+1F862 0334
+1F862 0061
+1F862 0041
+1F862 0062
+1F863 0021
+1F863 003F
+1F863 0334
+1F863 0061
+1F863 0041
+1F863 0062
+1F864 0021
+1F864 003F
+1F864 0334
+1F864 0061
+1F864 0041
+1F864 0062
+1F865 0021
+1F865 003F
+1F865 0334
+1F865 0061
+1F865 0041
+1F865 0062
+1F866 0021
+1F866 003F
+1F866 0334
+1F866 0061
+1F866 0041
+1F866 0062
+1F867 0021
+1F867 003F
+1F867 0334
+1F867 0061
+1F867 0041
+1F867 0062
+1F868 0021
+1F868 003F
+1F868 0334
+1F868 0061
+1F868 0041
+1F868 0062
+1F869 0021
+1F869 003F
+1F869 0334
+1F869 0061
+1F869 0041
+1F869 0062
+1F86A 0021
+1F86A 003F
+1F86A 0334
+1F86A 0061
+1F86A 0041
+1F86A 0062
+1F86B 0021
+1F86B 003F
+1F86B 0334
+1F86B 0061
+1F86B 0041
+1F86B 0062
+1F86C 0021
+1F86C 003F
+1F86C 0334
+1F86C 0061
+1F86C 0041
+1F86C 0062
+1F86D 0021
+1F86D 003F
+1F86D 0334
+1F86D 0061
+1F86D 0041
+1F86D 0062
+1F86E 0021
+1F86E 003F
+1F86E 0334
+1F86E 0061
+1F86E 0041
+1F86E 0062
+1F86F 0021
+1F86F 003F
+1F86F 0334
+1F86F 0061
+1F86F 0041
+1F86F 0062
+1F870 0021
+1F870 003F
+1F870 0334
+1F870 0061
+1F870 0041
+1F870 0062
+1F871 0021
+1F871 003F
+1F871 0334
+1F871 0061
+1F871 0041
+1F871 0062
+1F872 0021
+1F872 003F
+1F872 0334
+1F872 0061
+1F872 0041
+1F872 0062
+1F873 0021
+1F873 003F
+1F873 0334
+1F873 0061
+1F873 0041
+1F873 0062
+1F874 0021
+1F874 003F
+1F874 0334
+1F874 0061
+1F874 0041
+1F874 0062
+1F875 0021
+1F875 003F
+1F875 0334
+1F875 0061
+1F875 0041
+1F875 0062
+1F876 0021
+1F876 003F
+1F876 0334
+1F876 0061
+1F876 0041
+1F876 0062
+1F877 0021
+1F877 003F
+1F877 0334
+1F877 0061
+1F877 0041
+1F877 0062
+1F878 0021
+1F878 003F
+1F878 0334
+1F878 0061
+1F878 0041
+1F878 0062
+1F879 0021
+1F879 003F
+1F879 0334
+1F879 0061
+1F879 0041
+1F879 0062
+1F87A 0021
+1F87A 003F
+1F87A 0334
+1F87A 0061
+1F87A 0041
+1F87A 0062
+1F87B 0021
+1F87B 003F
+1F87B 0334
+1F87B 0061
+1F87B 0041
+1F87B 0062
+1F87C 0021
+1F87C 003F
+1F87C 0334
+1F87C 0061
+1F87C 0041
+1F87C 0062
+1F87D 0021
+1F87D 003F
+1F87D 0334
+1F87D 0061
+1F87D 0041
+1F87D 0062
+1F87E 0021
+1F87E 003F
+1F87E 0334
+1F87E 0061
+1F87E 0041
+1F87E 0062
+1F87F 0021
+1F87F 003F
+1F87F 0334
+1F87F 0061
+1F87F 0041
+1F87F 0062
+1F880 0021
+1F880 003F
+1F880 0334
+1F880 0061
+1F880 0041
+1F880 0062
+1F881 0021
+1F881 003F
+1F881 0334
+1F881 0061
+1F881 0041
+1F881 0062
+1F882 0021
+1F882 003F
+1F882 0334
+1F882 0061
+1F882 0041
+1F882 0062
+1F883 0021
+1F883 003F
+1F883 0334
+1F883 0061
+1F883 0041
+1F883 0062
+1F884 0021
+1F884 003F
+1F884 0334
+1F884 0061
+1F884 0041
+1F884 0062
+1F885 0021
+1F885 003F
+1F885 0334
+1F885 0061
+1F885 0041
+1F885 0062
+1F886 0021
+1F886 003F
+1F886 0334
+1F886 0061
+1F886 0041
+1F886 0062
+1F887 0021
+1F887 003F
+1F887 0334
+1F887 0061
+1F887 0041
+1F887 0062
+1F890 0021
+1F890 003F
+1F890 0334
+1F890 0061
+1F890 0041
+1F890 0062
+1F891 0021
+1F891 003F
+1F891 0334
+1F891 0061
+1F891 0041
+1F891 0062
+1F892 0021
+1F892 003F
+1F892 0334
+1F892 0061
+1F892 0041
+1F892 0062
+1F893 0021
+1F893 003F
+1F893 0334
+1F893 0061
+1F893 0041
+1F893 0062
+1F894 0021
+1F894 003F
+1F894 0334
+1F894 0061
+1F894 0041
+1F894 0062
+1F895 0021
+1F895 003F
+1F895 0334
+1F895 0061
+1F895 0041
+1F895 0062
+1F896 0021
+1F896 003F
+1F896 0334
+1F896 0061
+1F896 0041
+1F896 0062
+1F897 0021
+1F897 003F
+1F897 0334
+1F897 0061
+1F897 0041
+1F897 0062
+1F898 0021
+1F898 003F
+1F898 0334
+1F898 0061
+1F898 0041
+1F898 0062
+1F899 0021
+1F899 003F
+1F899 0334
+1F899 0061
+1F899 0041
+1F899 0062
+1F89A 0021
+1F89A 003F
+1F89A 0334
+1F89A 0061
+1F89A 0041
+1F89A 0062
+1F89B 0021
+1F89B 003F
+1F89B 0334
+1F89B 0061
+1F89B 0041
+1F89B 0062
+1F89C 0021
+1F89C 003F
+1F89C 0334
+1F89C 0061
+1F89C 0041
+1F89C 0062
+1F89D 0021
+1F89D 003F
+1F89D 0334
+1F89D 0061
+1F89D 0041
+1F89D 0062
+1F89E 0021
+1F89E 003F
+1F89E 0334
+1F89E 0061
+1F89E 0041
+1F89E 0062
+1F89F 0021
+1F89F 003F
+1F89F 0334
+1F89F 0061
+1F89F 0041
+1F89F 0062
+1F8A0 0021
+1F8A0 003F
+1F8A0 0334
+1F8A0 0061
+1F8A0 0041
+1F8A0 0062
+1F8A1 0021
+1F8A1 003F
+1F8A1 0334
+1F8A1 0061
+1F8A1 0041
+1F8A1 0062
+1F8A2 0021
+1F8A2 003F
+1F8A2 0334
+1F8A2 0061
+1F8A2 0041
+1F8A2 0062
+1F8A3 0021
+1F8A3 003F
+1F8A3 0334
+1F8A3 0061
+1F8A3 0041
+1F8A3 0062
+1F8A4 0021
+1F8A4 003F
+1F8A4 0334
+1F8A4 0061
+1F8A4 0041
+1F8A4 0062
+1F8A5 0021
+1F8A5 003F
+1F8A5 0334
+1F8A5 0061
+1F8A5 0041
+1F8A5 0062
+1F8A6 0021
+1F8A6 003F
+1F8A6 0334
+1F8A6 0061
+1F8A6 0041
+1F8A6 0062
+1F8A7 0021
+1F8A7 003F
+1F8A7 0334
+1F8A7 0061
+1F8A7 0041
+1F8A7 0062
+1F8A8 0021
+1F8A8 003F
+1F8A8 0334
+1F8A8 0061
+1F8A8 0041
+1F8A8 0062
+1F8A9 0021
+1F8A9 003F
+1F8A9 0334
+1F8A9 0061
+1F8A9 0041
+1F8A9 0062
+1F8AA 0021
+1F8AA 003F
+1F8AA 0334
+1F8AA 0061
+1F8AA 0041
+1F8AA 0062
+1F8AB 0021
+1F8AB 003F
+1F8AB 0334
+1F8AB 0061
+1F8AB 0041
+1F8AB 0062
+1F8AC 0021
+1F8AC 003F
+1F8AC 0334
+1F8AC 0061
+1F8AC 0041
+1F8AC 0062
+1F8AD 0021
+1F8AD 003F
+1F8AD 0334
+1F8AD 0061
+1F8AD 0041
+1F8AD 0062
2FF0 0021
2FF0 003F
2FF0 0061
@@ -28906,11 +33320,6 @@ FFFC 003F
FFFC 0061
FFFC 0041
FFFC 0062
-FFFD 0021
-FFFD 003F
-FFFD 0061
-FFFD 0041
-FFFD 0062
02D0 0021
02D0 003F
02D0 0061
@@ -28951,6 +33360,11 @@ A9CF 003F
A9CF 0061
A9CF 0041
A9CF 0062
+A9E6 0021
+A9E6 003F
+A9E6 0061
+A9E6 0041
+A9E6 0062
AA70 0021
AA70 003F
AA70 0061
@@ -28971,6 +33385,18 @@ AAF4 003F
AAF4 0061
AAF4 0041
AAF4 0062
+16B42 0021
+16B42 003F
+16B42 0334
+16B42 0061
+16B42 0041
+16B42 0062
+16B43 0021
+16B43 003F
+16B43 0334
+16B43 0061
+16B43 0041
+16B43 0062
3005 0021
3005 003F
3005 0061
@@ -29008,11 +33434,11 @@ AAF4 0062
3035 0062
309D 0021
309D 003F
+309E 0021
+309E 003F
309D 0334 3099
309D 3099 0334
309E 0334
-309E 0021
-309E 003F
309D 0061
309D 0041
309E 0061
@@ -29031,11 +33457,11 @@ FF70 0041
FF70 0062
30FD 0021
30FD 003F
+30FE 0021
+30FE 003F
30FD 0334 3099
30FD 3099 0334
30FE 0334
-30FE 0021
-30FE 003F
30FD 0061
30FD 0041
30FE 0061
@@ -29277,6 +33703,21 @@ FFE6 0062
20BA 0061
20BA 0041
20BA 0062
+20BB 0021
+20BB 003F
+20BB 0061
+20BB 0041
+20BB 0062
+20BC 0021
+20BC 003F
+20BC 0061
+20BC 0041
+20BC 0062
+20BD 0021
+20BD 003F
+20BD 0061
+20BD 0041
+20BD 0062
20A8 0021
20A8 003F
20A8 0061
@@ -30136,6 +34577,120 @@ A835 0062
10178 0061
10178 0041
10178 0062
+1018B 0021
+1018B 003F
+1018B 0334
+1018B 0061
+1018B 0041
+1018B 0062
+102EA 0021
+102EA 003F
+102EA 0334
+102EA 0061
+102EA 0041
+102EA 0062
+102EB 0021
+102EB 003F
+102EB 0334
+102EB 0061
+102EB 0041
+102EB 0062
+102EC 0021
+102EC 003F
+102EC 0334
+102EC 0061
+102EC 0041
+102EC 0062
+102ED 0021
+102ED 003F
+102ED 0334
+102ED 0061
+102ED 0041
+102ED 0062
+102EE 0021
+102EE 003F
+102EE 0334
+102EE 0061
+102EE 0041
+102EE 0062
+102EF 0021
+102EF 003F
+102EF 0334
+102EF 0061
+102EF 0041
+102EF 0062
+102F0 0021
+102F0 003F
+102F0 0334
+102F0 0061
+102F0 0041
+102F0 0062
+102F1 0021
+102F1 003F
+102F1 0334
+102F1 0061
+102F1 0041
+102F1 0062
+102F2 0021
+102F2 003F
+102F2 0334
+102F2 0061
+102F2 0041
+102F2 0062
+102F3 0021
+102F3 003F
+102F3 0334
+102F3 0061
+102F3 0041
+102F3 0062
+102F4 0021
+102F4 003F
+102F4 0334
+102F4 0061
+102F4 0041
+102F4 0062
+102F5 0021
+102F5 003F
+102F5 0334
+102F5 0061
+102F5 0041
+102F5 0062
+102F6 0021
+102F6 003F
+102F6 0334
+102F6 0061
+102F6 0041
+102F6 0062
+102F7 0021
+102F7 003F
+102F7 0334
+102F7 0061
+102F7 0041
+102F7 0062
+102F8 0021
+102F8 003F
+102F8 0334
+102F8 0061
+102F8 0041
+102F8 0062
+102F9 0021
+102F9 003F
+102F9 0334
+102F9 0061
+102F9 0041
+102F9 0062
+102FA 0021
+102FA 003F
+102FA 0334
+102FA 0061
+102FA 0041
+102FA 0062
+102FB 0021
+102FB 003F
+102FB 0334
+102FB 0061
+102FB 0041
+102FB 0062
103D3 0021
103D3 003F
103D3 0334
@@ -30154,12 +34709,54 @@ A835 0062
103D5 0061
103D5 0041
103D5 0062
+1087E 0021
+1087E 003F
+1087E 0334
+1087E 0061
+1087E 0041
+1087E 0062
+1087F 0021
+1087F 003F
+1087F 0334
+1087F 0061
+1087F 0041
+1087F 0062
+108AD 0021
+108AD 003F
+108AD 0334
+108AD 0061
+108AD 0041
+108AD 0062
+108AE 0021
+108AE 003F
+108AE 0334
+108AE 0061
+108AE 0041
+108AE 0062
+108AF 0021
+108AF 003F
+108AF 0334
+108AF 0061
+108AF 0041
+108AF 0062
10A7E 0021
10A7E 003F
10A7E 0334
10A7E 0061
10A7E 0041
10A7E 0062
+10A9E 0021
+10A9E 003F
+10A9E 0334
+10A9E 0061
+10A9E 0041
+10A9E 0062
+10A9F 0021
+10A9F 003F
+10A9F 0334
+10A9F 0061
+10A9F 0041
+10A9F 0062
10917 0021
10917 003F
10917 0334
@@ -30208,6 +34805,24 @@ A835 0062
1085F 0061
1085F 0041
1085F 0062
+10AED 0021
+10AED 003F
+10AED 0334
+10AED 0061
+10AED 0041
+10AED 0062
+10AEE 0021
+10AEE 003F
+10AEE 0334
+10AEE 0061
+10AEE 0041
+10AEE 0062
+10AEF 0021
+10AEF 003F
+10AEF 0334
+10AEF 0061
+10AEF 0041
+10AEF 0062
10B5C 0021
10B5C 003F
10B5C 0334
@@ -30256,6 +34871,24 @@ A835 0062
10B7F 0061
10B7F 0041
10B7F 0062
+10BAD 0021
+10BAD 003F
+10BAD 0334
+10BAD 0061
+10BAD 0041
+10BAD 0062
+10BAE 0021
+10BAE 003F
+10BAE 0334
+10BAE 0061
+10BAE 0041
+10BAE 0062
+10BAF 0021
+10BAF 003F
+10BAF 0334
+10BAF 0061
+10BAF 0041
+10BAF 0062
1105B 0021
1105B 003F
1105B 0334
@@ -30346,6 +34979,168 @@ A835 0062
10A47 0061
10A47 0041
10A47 0062
+111EA 0021
+111EA 003F
+111EA 0334
+111EA 0061
+111EA 0041
+111EA 0062
+111EB 0021
+111EB 003F
+111EB 0334
+111EB 0061
+111EB 0041
+111EB 0062
+111EC 0021
+111EC 003F
+111EC 0334
+111EC 0061
+111EC 0041
+111EC 0062
+111ED 0021
+111ED 003F
+111ED 0334
+111ED 0061
+111ED 0041
+111ED 0062
+111EE 0021
+111EE 003F
+111EE 0334
+111EE 0061
+111EE 0041
+111EE 0062
+111EF 0021
+111EF 003F
+111EF 0334
+111EF 0061
+111EF 0041
+111EF 0062
+111F0 0021
+111F0 003F
+111F0 0334
+111F0 0061
+111F0 0041
+111F0 0062
+111F1 0021
+111F1 003F
+111F1 0334
+111F1 0061
+111F1 0041
+111F1 0062
+111F2 0021
+111F2 003F
+111F2 0334
+111F2 0061
+111F2 0041
+111F2 0062
+111F3 0021
+111F3 003F
+111F3 0334
+111F3 0061
+111F3 0041
+111F3 0062
+111F4 0021
+111F4 003F
+111F4 0334
+111F4 0061
+111F4 0041
+111F4 0062
+118EA 0021
+118EA 003F
+118EA 0334
+118EA 0061
+118EA 0041
+118EA 0062
+118EB 0021
+118EB 003F
+118EB 0334
+118EB 0061
+118EB 0041
+118EB 0062
+118EC 0021
+118EC 003F
+118EC 0334
+118EC 0061
+118EC 0041
+118EC 0062
+118ED 0021
+118ED 003F
+118ED 0334
+118ED 0061
+118ED 0041
+118ED 0062
+118EE 0021
+118EE 003F
+118EE 0334
+118EE 0061
+118EE 0041
+118EE 0062
+118EF 0021
+118EF 003F
+118EF 0334
+118EF 0061
+118EF 0041
+118EF 0062
+118F0 0021
+118F0 003F
+118F0 0334
+118F0 0061
+118F0 0041
+118F0 0062
+118F1 0021
+118F1 003F
+118F1 0334
+118F1 0061
+118F1 0041
+118F1 0062
+118F2 0021
+118F2 003F
+118F2 0334
+118F2 0061
+118F2 0041
+118F2 0062
+16B5B 0021
+16B5B 003F
+16B5B 0334
+16B5B 0061
+16B5B 0041
+16B5B 0062
+16B5C 0021
+16B5C 003F
+16B5C 0334
+16B5C 0061
+16B5C 0041
+16B5C 0062
+16B5D 0021
+16B5D 003F
+16B5D 0334
+16B5D 0061
+16B5D 0041
+16B5D 0062
+16B5E 0021
+16B5E 003F
+16B5E 0334
+16B5E 0061
+16B5E 0041
+16B5E 0062
+16B5F 0021
+16B5F 003F
+16B5F 0334
+16B5F 0061
+16B5F 0041
+16B5F 0062
+16B60 0021
+16B60 003F
+16B60 0334
+16B60 0061
+16B60 0041
+16B60 0062
+16B61 0021
+16B61 003F
+16B61 0334
+16B61 0061
+16B61 0041
+16B61 0062
12432 0021
12432 003F
12432 0334
@@ -30358,18 +35153,6 @@ A835 0062
12433 0061
12433 0041
12433 0062
-12456 0021
-12456 003F
-12456 0334
-12456 0061
-12456 0041
-12456 0062
-12457 0021
-12457 003F
-12457 0334
-12457 0061
-12457 0041
-12457 0062
1245A 0021
1245A 003F
1245A 0334
@@ -30424,6 +35207,42 @@ A835 0062
12462 0061
12462 0041
12462 0062
+12463 0021
+12463 003F
+12463 0334
+12463 0061
+12463 0041
+12463 0062
+12464 0021
+12464 003F
+12464 0334
+12464 0061
+12464 0041
+12464 0062
+12465 0021
+12465 003F
+12465 0334
+12465 0061
+12465 0041
+12465 0062
+12466 0021
+12466 003F
+12466 0334
+12466 0061
+12466 0041
+12466 0062
+12467 0021
+12467 003F
+12467 0334
+12467 0061
+12467 0041
+12467 0062
+12468 0021
+12468 003F
+12468 0334
+12468 0061
+12468 0041
+12468 0062
1D369 0021
1D369 003F
1D369 0334
@@ -30479,269 +35298,304 @@ A835 0062
1D371 0041
1D371 0062
0030 0021
-0030 003F
-FF10 0021
-FF10 003F
-1F101 0334
-1F101 0021
-1F101 003F
-1F100 0334
-1F100 0021
-1F100 003F
-1D7CE 0021
-1D7D8 0021
-1D7E2 0021
-1D7EC 0021
-1D7F6 0021
-1D7CE 003F
-1D7D8 003F
-1D7E2 003F
-1D7EC 003F
-1D7F6 003F
-24EA 0021
-24FF 0021
-24EA 003F
-24FF 003F
-2070 0021
-2070 003F
-2080 0021
-2080 003F
-1D7CE 0334
-1D7D8 0334
-1D7E2 0334
-1D7EC 0334
-1D7F6 0334
0660 0021
-0660 003F
06F0 0021
-06F0 003F
07C0 0021
-07C0 003F
-104A0 0021
-104A0 003F
-104A0 0334
0966 0021
-0966 003F
09E6 0021
-09E6 003F
0A66 0021
-0A66 003F
0AE6 0021
-0AE6 003F
0B66 0021
-0B66 003F
0BE6 0021
-0BE6 003F
0C66 0021
0C78 0021
-0C66 003F
-0C78 003F
0CE6 0021
-0CE6 003F
0D66 0021
-0D66 003F
-ABF0 0021
-ABF0 003F
-A8D0 0021
-A8D0 003F
+0DE6 0021
+0E50 0021
+0ED0 0021
+0F20 0021
+1040 0021
+1090 0021
+17E0 0021
+17F0 0021
+1810 0021
1946 0021
-1946 003F
19D0 0021
-19D0 003F
1A80 0021
-1A80 003F
1A90 0021
-1A90 003F
-0E50 0021
+1B50 0021
+1BB0 0021
+1C40 0021
+1C50 0021
+3007 0021
+A620 0021
+A8D0 0021
+A900 0021
+A9D0 0021
+A9F0 0021
+AA50 0021
+ABF0 0021
+1018A 0021
+104A0 0021
+11066 0021
+110F0 0021
+11136 0021
+111D0 0021
+112F0 0021
+114D0 0021
+11650 0021
+116C0 0021
+118E0 0021
+16A60 0021
+16B50 0021
+0030 003F
+0660 003F
+06F0 003F
+07C0 003F
+0966 003F
+09E6 003F
+0A66 003F
+0AE6 003F
+0B66 003F
+0BE6 003F
+0C66 003F
+0C78 003F
+0CE6 003F
+0D66 003F
+0DE6 003F
0E50 003F
-0ED0 0021
0ED0 003F
-0F20 0021
0F20 003F
-0F33 0021
-0F33 003F
-1C40 0021
-1C40 003F
-A900 0021
-A900 003F
-1040 0021
1040 003F
-1090 0021
1090 003F
-11136 0021
-11136 003F
-11136 0334
-17E0 0021
17E0 003F
-17F0 0021
17F0 003F
-AA50 0021
-AA50 003F
-1B50 0021
+1810 003F
+1946 003F
+19D0 003F
+1A80 003F
+1A90 003F
1B50 003F
-A9D0 0021
-A9D0 003F
-1BB0 0021
1BB0 003F
-1810 0021
-1810 003F
-1C50 0021
+1C40 003F
1C50 003F
-A620 0021
-A620 003F
-110F0 0021
-110F0 003F
-110F0 0334
-3007 0021
3007 003F
-1018A 0021
+A620 003F
+A8D0 003F
+A900 003F
+A9D0 003F
+A9F0 003F
+AA50 003F
+ABF0 003F
1018A 003F
-1018A 0334
-111D0 0021
+104A0 003F
+11066 003F
+110F0 003F
+11136 003F
111D0 003F
-111D0 0334
-116C0 0021
+112F0 003F
+114D0 003F
+11650 003F
116C0 003F
-116C0 0334
-11066 0021
-11066 003F
+118E0 003F
+16A60 003F
+16B50 003F
+FF10 0021
+FF10 003F
+1F101 0334
+1F101 0021
+1F101 003F
+0F33 0021
+0F33 003F
+1F100 0334
+1F100 0021
+1F100 003F
+1D7CE 0021
+1D7D8 0021
+1D7E2 0021
+1D7EC 0021
+1D7F6 0021
+1D7CE 003F
+1D7D8 003F
+1D7E2 003F
+1D7EC 003F
+1D7F6 003F
+24EA 0021
+24FF 0021
+1F10B 0021
+1F10C 0021
+24EA 003F
+24FF 003F
+1F10B 003F
+1F10C 003F
+2070 0021
+2070 003F
+2080 0021
+2080 003F
+1018A 0334
+104A0 0334
11066 0334
+110F0 0334
+11136 0334
+111D0 0334
+112F0 0334
+114D0 0334
+11650 0334
+116C0 0334
+118E0 0334
+16A60 0334
+16B50 0334
+1D7CE 0334
+1D7D8 0334
+1D7E2 0334
+1D7EC 0334
+1D7F6 0334
+1F10B 0334
+1F10C 0334
2189 0021
2189 003F
2189 0061
2189 0041
2189 0062
0030 0061
-0030 0041
-FF10 0061
-FF10 0041
-1F101 0061
-1F100 0061
-1F101 0041
-1F100 0041
-1D7CE 0061
-1D7D8 0061
-1D7E2 0061
-1D7EC 0061
-1D7F6 0061
-1D7CE 0041
-1D7D8 0041
-1D7E2 0041
-1D7EC 0041
-1D7F6 0041
-24EA 0061
-24FF 0061
-24EA 0041
-24FF 0041
-2070 0061
-2070 0041
-2080 0061
-2080 0041
0660 0061
-0660 0041
06F0 0061
-06F0 0041
07C0 0061
-07C0 0041
-104A0 0061
-104A0 0041
0966 0061
-0966 0041
09E6 0061
-09E6 0041
0A66 0061
-0A66 0041
0AE6 0061
-0AE6 0041
0B66 0061
-0B66 0041
0BE6 0061
-0BE6 0041
0C66 0061
0C78 0061
-0C66 0041
-0C78 0041
0CE6 0061
-0CE6 0041
0D66 0061
-0D66 0041
-ABF0 0061
-ABF0 0041
-A8D0 0061
-A8D0 0041
+0DE6 0061
+0E50 0061
+0ED0 0061
+0F20 0061
+1040 0061
+1090 0061
+17E0 0061
+17F0 0061
+1810 0061
1946 0061
-1946 0041
19D0 0061
-19D0 0041
1A80 0061
-1A80 0041
1A90 0061
-1A90 0041
-0E50 0061
+1B50 0061
+1BB0 0061
+1C40 0061
+1C50 0061
+3007 0061
+A620 0061
+A8D0 0061
+A900 0061
+A9D0 0061
+A9F0 0061
+AA50 0061
+ABF0 0061
+1018A 0061
+104A0 0061
+11066 0061
+110F0 0061
+11136 0061
+111D0 0061
+112F0 0061
+114D0 0061
+11650 0061
+116C0 0061
+118E0 0061
+16A60 0061
+16B50 0061
+0030 0041
+0660 0041
+06F0 0041
+07C0 0041
+0966 0041
+09E6 0041
+0A66 0041
+0AE6 0041
+0B66 0041
+0BE6 0041
+0C66 0041
+0C78 0041
+0CE6 0041
+0D66 0041
+0DE6 0041
0E50 0041
-0ED0 0061
0ED0 0041
-0F20 0061
0F20 0041
-0F33 0061
-0F33 0041
-1C40 0061
-1C40 0041
-A900 0061
-A900 0041
-1040 0061
1040 0041
-1090 0061
1090 0041
-11136 0061
-11136 0041
-17E0 0061
17E0 0041
-17F0 0061
17F0 0041
-AA50 0061
-AA50 0041
-1B50 0061
+1810 0041
+1946 0041
+19D0 0041
+1A80 0041
+1A90 0041
1B50 0041
-A9D0 0061
-A9D0 0041
-1BB0 0061
1BB0 0041
-1810 0061
-1810 0041
-1C50 0061
+1C40 0041
1C50 0041
-A620 0061
-A620 0041
-110F0 0061
-110F0 0041
-3007 0061
3007 0041
-1018A 0061
+A620 0041
+A8D0 0041
+A900 0041
+A9D0 0041
+A9F0 0041
+AA50 0041
+ABF0 0041
1018A 0041
-111D0 0061
+104A0 0041
+11066 0041
+110F0 0041
+11136 0041
111D0 0041
-116C0 0061
+112F0 0041
+114D0 0041
+11650 0041
116C0 0041
-11066 0061
-11066 0041
+118E0 0041
+16A60 0041
+16B50 0041
+FF10 0061
+FF10 0041
+1F101 0061
+1F100 0061
+0F33 0061
+1F101 0041
+1F100 0041
+0F33 0041
+1D7CE 0061
+1D7D8 0061
+1D7E2 0061
+1D7EC 0061
+1D7F6 0061
+1D7CE 0041
+1D7D8 0041
+1D7E2 0041
+1D7EC 0041
+1D7F6 0041
+24EA 0061
+24FF 0061
+1F10B 0061
+1F10C 0061
+24EA 0041
+24FF 0041
+1F10B 0041
+1F10C 0041
+2070 0061
+2070 0041
+2080 0061
+2080 0041
0030 0062
-FF10 0062
-1F101 0062
-1F100 0062
-1D7CE 0062
-1D7D8 0062
-1D7E2 0062
-1D7EC 0062
-1D7F6 0062
-24EA 0062
-24FF 0062
-2070 0062
-2080 0062
0660 0062
06F0 0062
07C0 0062
-104A0 0062
0966 0062
09E6 0062
0A66 0062
@@ -30752,245 +35606,314 @@ FF10 0062
0C78 0062
0CE6 0062
0D66 0062
-ABF0 0062
-A8D0 0062
-1946 0062
-19D0 0062
-1A80 0062
-1A90 0062
+0DE6 0062
0E50 0062
0ED0 0062
0F20 0062
-0F33 0062
-1C40 0062
-A900 0062
1040 0062
1090 0062
-11136 0062
17E0 0062
17F0 0062
-AA50 0062
+1810 0062
+1946 0062
+19D0 0062
+1A80 0062
+1A90 0062
1B50 0062
-A9D0 0062
1BB0 0062
-1810 0062
+1C40 0062
1C50 0062
-A620 0062
-110F0 0062
3007 0062
+A620 0062
+A8D0 0062
+A900 0062
+A9D0 0062
+A9F0 0062
+AA50 0062
+ABF0 0062
1018A 0062
+104A0 0062
+11066 0062
+110F0 0062
+11136 0062
111D0 0062
+112F0 0062
+114D0 0062
+11650 0062
116C0 0062
-11066 0062
+118E0 0062
+16A60 0062
+16B50 0062
+FF10 0062
+1F101 0062
+1F100 0062
+0F33 0062
+1D7CE 0062
+1D7D8 0062
+1D7E2 0062
+1D7EC 0062
+1D7F6 0062
+24EA 0062
+24FF 0062
+1F10B 0062
+1F10C 0062
+2070 0062
+2080 0062
3358 0021
3358 003F
3358 0061
3358 0041
3358 0062
0031 0021
-0031 003F
-FF11 0021
-FF11 003F
-2474 0021
-2474 003F
-1F102 0334
-1F102 0021
-1F102 003F
-2488 0021
-2488 003F
-1D7CF 0021
-1D7D9 0021
-1D7E3 0021
-1D7ED 0021
-1D7F7 0021
-1D7CF 003F
-1D7D9 003F
-1D7E3 003F
-1D7ED 003F
-1D7F7 003F
-2460 0021
-24F5 0021
-2776 0021
-2780 0021
-278A 0021
-2460 003F
-24F5 003F
-2776 003F
-2780 003F
-278A 003F
-00B9 0021
-00B9 003F
-2081 0021
-2081 003F
-1D7CF 0334
-1D7D9 0334
-1D7E3 0334
-1D7ED 0334
-1D7F7 0334
0661 0021
-0661 003F
06F1 0021
-06F1 003F
-10E60 0021
-10E60 003F
-10E60 0334
07C1 0021
-07C1 003F
-1369 0021
-1369 003F
-104A1 0021
-104A1 003F
-104A1 0334
0967 0021
-0967 003F
09E7 0021
-09E7 003F
0A67 0021
-0A67 003F
0AE7 0021
-0AE7 003F
0B67 0021
-0B67 003F
0BE7 0021
-0BE7 003F
0C67 0021
0C79 0021
0C7C 0021
-0C67 003F
-0C79 003F
-0C7C 003F
0CE7 0021
-0CE7 003F
0D67 0021
-0D67 003F
-ABF1 0021
-ABF1 003F
-A8D1 0021
-A8D1 003F
-1947 0021
-1947 003F
-19D1 0021
-19DA 0021
-19D1 003F
-19DA 003F
-1A81 0021
-1A81 003F
-1A91 0021
-1A91 003F
+0DE7 0021
0E51 0021
-0E51 003F
0ED1 0021
-0ED1 003F
0F21 0021
-0F21 003F
-0F2A 0021
-0F2A 003F
-1C41 0021
-1C41 003F
-A901 0021
-A901 003F
1041 0021
-1041 003F
1091 0021
-1091 003F
-11137 0021
-11137 003F
-11137 0334
+1369 0021
17E1 0021
-17E1 003F
17F1 0021
-17F1 003F
-AA51 0021
-AA51 003F
+1811 0021
+1947 0021
+19D1 0021
+19DA 0021
+1A81 0021
+1A91 0021
1B51 0021
-1B51 003F
-A9D1 0021
-A9D1 003F
1BB1 0021
-1BB1 003F
-1811 0021
-1811 003F
+1C41 0021
1C51 0021
-1C51 003F
-A621 0021
-A621 003F
-110F1 0021
-110F1 003F
-110F1 0334
3021 0021
-3021 003F
+A621 0021
+A8D1 0021
+A901 0021
+A9D1 0021
+A9F1 0021
+AA51 0021
+ABF1 0021
10107 0021
-10107 003F
-10107 0334
10142 0021
10158 0021
10159 0021
1015A 0021
-10142 003F
-10158 003F
-10159 003F
-1015A 003F
-10142 0334
-10158 0334
-10159 0334
-1015A 0334
+102E1 0021
10320 0021
-10320 003F
-10320 0334
103D1 0021
-103D1 003F
-103D1 0334
+104A1 0021
+10858 0021
+10879 0021
+108A7 0021
+10916 0021
+10A40 0021
+10A7D 0021
+10A9D 0021
+10AEB 0021
+10B58 0021
+10B78 0021
+10BA9 0021
+10E60 0021
+11052 0021
+11067 0021
+110F1 0021
+11137 0021
+111D1 0021
+111E1 0021
+112F1 0021
+114D1 0021
+11651 0021
+116C1 0021
+118E1 0021
12415 0021
1241E 0021
1242C 0021
12434 0021
1244F 0021
12458 0021
+16A61 0021
+16B51 0021
+1D360 0021
+1E8C7 0021
+0031 003F
+0661 003F
+06F1 003F
+07C1 003F
+0967 003F
+09E7 003F
+0A67 003F
+0AE7 003F
+0B67 003F
+0BE7 003F
+0C67 003F
+0C79 003F
+0C7C 003F
+0CE7 003F
+0D67 003F
+0DE7 003F
+0E51 003F
+0ED1 003F
+0F21 003F
+1041 003F
+1091 003F
+1369 003F
+17E1 003F
+17F1 003F
+1811 003F
+1947 003F
+19D1 003F
+19DA 003F
+1A81 003F
+1A91 003F
+1B51 003F
+1BB1 003F
+1C41 003F
+1C51 003F
+3021 003F
+A621 003F
+A8D1 003F
+A901 003F
+A9D1 003F
+A9F1 003F
+AA51 003F
+ABF1 003F
+10107 003F
+10142 003F
+10158 003F
+10159 003F
+1015A 003F
+102E1 003F
+10320 003F
+103D1 003F
+104A1 003F
+10858 003F
+10879 003F
+108A7 003F
+10916 003F
+10A40 003F
+10A7D 003F
+10A9D 003F
+10AEB 003F
+10B58 003F
+10B78 003F
+10BA9 003F
+10E60 003F
+11052 003F
+11067 003F
+110F1 003F
+11137 003F
+111D1 003F
+111E1 003F
+112F1 003F
+114D1 003F
+11651 003F
+116C1 003F
+118E1 003F
12415 003F
1241E 003F
1242C 003F
12434 003F
1244F 003F
12458 003F
+16A61 003F
+16B51 003F
+1D360 003F
+1E8C7 003F
+FF11 0021
+FF11 003F
+2474 0021
+2474 003F
+1F102 0334
+1F102 0021
+1F102 003F
+0F2A 0021
+0F2A 003F
+2488 0021
+2488 003F
+1D7CF 0021
+1D7D9 0021
+1D7E3 0021
+1D7ED 0021
+1D7F7 0021
+1D7CF 003F
+1D7D9 003F
+1D7E3 003F
+1D7ED 003F
+1D7F7 003F
+2460 0021
+24F5 0021
+2776 0021
+2780 0021
+278A 0021
+2460 003F
+24F5 003F
+2776 003F
+2780 003F
+278A 003F
+00B9 0021
+00B9 003F
+2081 0021
+2081 003F
+10107 0334
+10142 0334
+10158 0334
+10159 0334
+1015A 0334
+102E1 0334
+10320 0334
+103D1 0334
+104A1 0334
+10858 0334
+10879 0334
+108A7 0334
+10916 0334
+10A40 0334
+10A7D 0334
+10A9D 0334
+10AEB 0334
+10B58 0334
+10B78 0334
+10BA9 0334
+10E60 0334
+11052 0334
+11067 0334
+110F1 0334
+11137 0334
+111D1 0334
+111E1 0334
+112F1 0334
+114D1 0334
+11651 0334
+116C1 0334
+118E1 0334
12415 0334
1241E 0334
1242C 0334
12434 0334
1244F 0334
12458 0334
-10A7D 0021
-10A7D 003F
-10A7D 0334
-10916 0021
-10916 003F
-10916 0334
-10858 0021
-10858 003F
-10858 0334
-10B58 0021
-10B58 003F
-10B58 0334
-10B78 0021
-10B78 003F
-10B78 0334
-111D1 0021
-111D1 003F
-111D1 0334
-116C1 0021
-116C1 003F
-116C1 0334
-11067 0021
-11067 003F
-11067 0334
-11052 0021
-11052 003F
-11052 0334
-10A40 0021
-10A40 003F
-10A40 0334
-1D360 0021
-1D360 003F
+16A61 0334
+16B51 0334
1D360 0334
+1E8C7 0334
+1D7CF 0334
+1D7D9 0334
+1D7E3 0334
+1D7ED 0334
+1D7F7 0334
215F 0021
215F 003F
2152 0021
@@ -31377,198 +36300,211 @@ A621 003F
336B 0041
336B 0062
0031 0061
-0031 0041
-FF11 0061
-FF11 0041
-2474 0061
-1F102 0061
-2488 0061
-2474 0041
-1F102 0041
-2488 0041
-1D7CF 0061
-1D7D9 0061
-1D7E3 0061
-1D7ED 0061
-1D7F7 0061
-1D7CF 0041
-1D7D9 0041
-1D7E3 0041
-1D7ED 0041
-1D7F7 0041
-2460 0061
-24F5 0061
-2776 0061
-2780 0061
-278A 0061
-2460 0041
-24F5 0041
-2776 0041
-2780 0041
-278A 0041
-00B9 0061
-00B9 0041
-2081 0061
-2081 0041
0661 0061
-0661 0041
06F1 0061
-06F1 0041
-10E60 0061
-10E60 0041
07C1 0061
-07C1 0041
-1369 0061
-1369 0041
-104A1 0061
-104A1 0041
0967 0061
-0967 0041
09E7 0061
-09E7 0041
0A67 0061
-0A67 0041
0AE7 0061
-0AE7 0041
0B67 0061
-0B67 0041
0BE7 0061
-0BE7 0041
0C67 0061
0C79 0061
0C7C 0061
-0C67 0041
-0C79 0041
-0C7C 0041
0CE7 0061
-0CE7 0041
0D67 0061
-0D67 0041
-ABF1 0061
-ABF1 0041
-A8D1 0061
-A8D1 0041
-1947 0061
-1947 0041
-19D1 0061
-19DA 0061
-19D1 0041
-19DA 0041
-1A81 0061
-1A81 0041
-1A91 0061
-1A91 0041
+0DE7 0061
0E51 0061
-0E51 0041
0ED1 0061
-0ED1 0041
0F21 0061
-0F21 0041
-0F2A 0061
-0F2A 0041
-1C41 0061
-1C41 0041
-A901 0061
-A901 0041
1041 0061
-1041 0041
1091 0061
-1091 0041
-11137 0061
-11137 0041
+1369 0061
17E1 0061
-17E1 0041
17F1 0061
-17F1 0041
-AA51 0061
-AA51 0041
+1811 0061
+1947 0061
+19D1 0061
+19DA 0061
+1A81 0061
+1A91 0061
1B51 0061
-1B51 0041
-A9D1 0061
-A9D1 0041
1BB1 0061
-1BB1 0041
-1811 0061
-1811 0041
+1C41 0061
1C51 0061
-1C51 0041
-A621 0061
-A621 0041
-110F1 0061
-110F1 0041
3021 0061
-3021 0041
+A621 0061
+A8D1 0061
+A901 0061
+A9D1 0061
+A9F1 0061
+AA51 0061
+ABF1 0061
10107 0061
-10107 0041
10142 0061
10158 0061
10159 0061
1015A 0061
-10142 0041
-10158 0041
-10159 0041
-1015A 0041
+102E1 0061
10320 0061
-10320 0041
103D1 0061
-103D1 0041
+104A1 0061
+10858 0061
+10879 0061
+108A7 0061
+10916 0061
+10A40 0061
+10A7D 0061
+10A9D 0061
+10AEB 0061
+10B58 0061
+10B78 0061
+10BA9 0061
+10E60 0061
+11052 0061
+11067 0061
+110F1 0061
+11137 0061
+111D1 0061
+111E1 0061
+112F1 0061
+114D1 0061
+11651 0061
+116C1 0061
+118E1 0061
12415 0061
1241E 0061
1242C 0061
12434 0061
1244F 0061
12458 0061
+16A61 0061
+16B51 0061
+1D360 0061
+1E8C7 0061
+0031 0041
+0661 0041
+06F1 0041
+07C1 0041
+0967 0041
+09E7 0041
+0A67 0041
+0AE7 0041
+0B67 0041
+0BE7 0041
+0C67 0041
+0C79 0041
+0C7C 0041
+0CE7 0041
+0D67 0041
+0DE7 0041
+0E51 0041
+0ED1 0041
+0F21 0041
+1041 0041
+1091 0041
+1369 0041
+17E1 0041
+17F1 0041
+1811 0041
+1947 0041
+19D1 0041
+19DA 0041
+1A81 0041
+1A91 0041
+1B51 0041
+1BB1 0041
+1C41 0041
+1C51 0041
+3021 0041
+A621 0041
+A8D1 0041
+A901 0041
+A9D1 0041
+A9F1 0041
+AA51 0041
+ABF1 0041
+10107 0041
+10142 0041
+10158 0041
+10159 0041
+1015A 0041
+102E1 0041
+10320 0041
+103D1 0041
+104A1 0041
+10858 0041
+10879 0041
+108A7 0041
+10916 0041
+10A40 0041
+10A7D 0041
+10A9D 0041
+10AEB 0041
+10B58 0041
+10B78 0041
+10BA9 0041
+10E60 0041
+11052 0041
+11067 0041
+110F1 0041
+11137 0041
+111D1 0041
+111E1 0041
+112F1 0041
+114D1 0041
+11651 0041
+116C1 0041
+118E1 0041
12415 0041
1241E 0041
1242C 0041
12434 0041
1244F 0041
12458 0041
-10A7D 0061
-10A7D 0041
-10916 0061
-10916 0041
-10858 0061
-10858 0041
-10B58 0061
-10B58 0041
-10B78 0061
-10B78 0041
-111D1 0061
-111D1 0041
-116C1 0061
-116C1 0041
-11067 0061
-11067 0041
-11052 0061
-11052 0041
-10A40 0061
-10A40 0041
-1D360 0061
+16A61 0041
+16B51 0041
1D360 0041
+1E8C7 0041
+FF11 0061
+FF11 0041
+2474 0061
+1F102 0061
+2488 0061
+0F2A 0061
+2474 0041
+1F102 0041
+2488 0041
+0F2A 0041
+1D7CF 0061
+1D7D9 0061
+1D7E3 0061
+1D7ED 0061
+1D7F7 0061
+1D7CF 0041
+1D7D9 0041
+1D7E3 0041
+1D7ED 0041
+1D7F7 0041
+2460 0061
+24F5 0061
+2776 0061
+2780 0061
+278A 0061
+2460 0041
+24F5 0041
+2776 0041
+2780 0041
+278A 0041
+00B9 0061
+00B9 0041
+2081 0061
+2081 0041
0031 0062
-FF11 0062
-2474 0062
-1F102 0062
-2488 0062
-1D7CF 0062
-1D7D9 0062
-1D7E3 0062
-1D7ED 0062
-1D7F7 0062
-2460 0062
-24F5 0062
-2776 0062
-2780 0062
-278A 0062
-00B9 0062
-2081 0062
0661 0062
06F1 0062
-10E60 0062
07C1 0062
-1369 0062
-104A1 0062
0967 0062
09E7 0062
0A67 0062
@@ -31580,57 +36516,92 @@ FF11 0062
0C7C 0062
0CE7 0062
0D67 0062
-ABF1 0062
-A8D1 0062
-1947 0062
-19D1 0062
-19DA 0062
-1A81 0062
-1A91 0062
+0DE7 0062
0E51 0062
0ED1 0062
0F21 0062
-0F2A 0062
-1C41 0062
-A901 0062
1041 0062
1091 0062
-11137 0062
+1369 0062
17E1 0062
17F1 0062
-AA51 0062
+1811 0062
+1947 0062
+19D1 0062
+19DA 0062
+1A81 0062
+1A91 0062
1B51 0062
-A9D1 0062
1BB1 0062
-1811 0062
+1C41 0062
1C51 0062
-A621 0062
-110F1 0062
3021 0062
+A621 0062
+A8D1 0062
+A901 0062
+A9D1 0062
+A9F1 0062
+AA51 0062
+ABF1 0062
10107 0062
10142 0062
10158 0062
10159 0062
1015A 0062
+102E1 0062
10320 0062
103D1 0062
+104A1 0062
+10858 0062
+10879 0062
+108A7 0062
+10916 0062
+10A40 0062
+10A7D 0062
+10A9D 0062
+10AEB 0062
+10B58 0062
+10B78 0062
+10BA9 0062
+10E60 0062
+11052 0062
+11067 0062
+110F1 0062
+11137 0062
+111D1 0062
+111E1 0062
+112F1 0062
+114D1 0062
+11651 0062
+116C1 0062
+118E1 0062
12415 0062
1241E 0062
1242C 0062
12434 0062
1244F 0062
12458 0062
-10A7D 0062
-10916 0062
-10858 0062
-10B58 0062
-10B78 0062
-111D1 0062
-116C1 0062
-11067 0062
-11052 0062
-10A40 0062
+16A61 0062
+16B51 0062
1D360 0062
+1E8C7 0062
+FF11 0062
+2474 0062
+1F102 0062
+2488 0062
+0F2A 0062
+1D7CF 0062
+1D7D9 0062
+1D7E3 0062
+1D7ED 0062
+1D7F7 0062
+2460 0062
+24F5 0062
+2776 0062
+2780 0062
+278A 0062
+00B9 0062
+2081 0062
33E0 0021
33E0 003F
33E0 0061
@@ -31647,153 +36618,74 @@ A621 0062
3359 0041
3359 0062
0032 0021
-0032 003F
-FF12 0021
-FF12 003F
-2475 0021
-2475 003F
-1F103 0334
-1F103 0021
-1F103 003F
-2489 0021
-2489 003F
-1D7D0 0021
-1D7DA 0021
-1D7E4 0021
-1D7EE 0021
-1D7F8 0021
-1D7D0 003F
-1D7DA 003F
-1D7E4 003F
-1D7EE 003F
-1D7F8 003F
-2461 0021
-24F6 0021
-2777 0021
-2781 0021
-278B 0021
-2461 003F
-24F6 003F
-2777 003F
-2781 003F
-278B 003F
-00B2 0021
-00B2 003F
-2082 0021
-2082 003F
-1D7D0 0334
-1D7DA 0334
-1D7E4 0334
-1D7EE 0334
-1D7F8 0334
0662 0021
-0662 003F
06F2 0021
-06F2 003F
-10E61 0021
-10E61 003F
-10E61 0334
07C2 0021
-07C2 003F
-136A 0021
-136A 003F
-104A2 0021
-104A2 003F
-104A2 0334
0968 0021
-0968 003F
09E8 0021
-09E8 003F
0A68 0021
-0A68 003F
0AE8 0021
-0AE8 003F
0B68 0021
-0B68 003F
0BE8 0021
-0BE8 003F
0C68 0021
0C7A 0021
0C7D 0021
-0C68 003F
-0C7A 003F
-0C7D 003F
0CE8 0021
-0CE8 003F
0D68 0021
-0D68 003F
-ABF2 0021
-ABF2 003F
-A8D2 0021
-A8D2 003F
-1948 0021
-1948 003F
-19D2 0021
-19D2 003F
-1A82 0021
-1A82 003F
-1A92 0021
-1A92 003F
+0DE8 0021
0E52 0021
-0E52 003F
0ED2 0021
-0ED2 003F
0F22 0021
-0F22 003F
-0F2B 0021
-0F2B 003F
-1C42 0021
-1C42 003F
-A902 0021
-A902 003F
1042 0021
-1042 003F
1092 0021
-1092 003F
-11138 0021
-11138 003F
-11138 0334
+136A 0021
17E2 0021
-17E2 003F
17F2 0021
-17F2 003F
-AA52 0021
-AA52 003F
+1812 0021
+1948 0021
+19D2 0021
+1A82 0021
+1A92 0021
1B52 0021
-1B52 003F
-A9D2 0021
-A9D2 003F
1BB2 0021
-1BB2 003F
-1812 0021
-1812 003F
+1C42 0021
1C52 0021
-1C52 003F
-A622 0021
-A622 003F
-110F2 0021
-110F2 003F
-110F2 0334
3022 0021
-3022 003F
+A622 0021
+A8D2 0021
+A902 0021
+A9D2 0021
+A9F2 0021
+AA52 0021
+ABF2 0021
10108 0021
-10108 003F
-10108 0334
1015B 0021
1015C 0021
1015D 0021
1015E 0021
-1015B 003F
-1015C 003F
-1015D 003F
-1015E 003F
-1015B 0334
-1015C 0334
-1015D 0334
-1015E 0334
+102E2 0021
103D2 0021
-103D2 003F
-103D2 0334
+104A2 0021
+10859 0021
+1087A 0021
+108A8 0021
+1091A 0021
+10A41 0021
+10B59 0021
+10B79 0021
+10BAA 0021
+10E61 0021
+11053 0021
+11068 0021
+110F2 0021
+11138 0021
+111D2 0021
+111E2 0021
+112F2 0021
+114D2 0021
+11652 0021
+116C2 0021
+118E2 0021
12400 0021
12416 0021
1241F 0021
@@ -31802,7 +36694,81 @@ A622 003F
12435 0021
1244A 0021
12450 0021
+12456 0021
12459 0021
+16A62 0021
+16B52 0021
+1D361 0021
+1E8C8 0021
+0032 003F
+0662 003F
+06F2 003F
+07C2 003F
+0968 003F
+09E8 003F
+0A68 003F
+0AE8 003F
+0B68 003F
+0BE8 003F
+0C68 003F
+0C7A 003F
+0C7D 003F
+0CE8 003F
+0D68 003F
+0DE8 003F
+0E52 003F
+0ED2 003F
+0F22 003F
+1042 003F
+1092 003F
+136A 003F
+17E2 003F
+17F2 003F
+1812 003F
+1948 003F
+19D2 003F
+1A82 003F
+1A92 003F
+1B52 003F
+1BB2 003F
+1C42 003F
+1C52 003F
+3022 003F
+A622 003F
+A8D2 003F
+A902 003F
+A9D2 003F
+A9F2 003F
+AA52 003F
+ABF2 003F
+10108 003F
+1015B 003F
+1015C 003F
+1015D 003F
+1015E 003F
+102E2 003F
+103D2 003F
+104A2 003F
+10859 003F
+1087A 003F
+108A8 003F
+1091A 003F
+10A41 003F
+10B59 003F
+10B79 003F
+10BAA 003F
+10E61 003F
+11053 003F
+11068 003F
+110F2 003F
+11138 003F
+111D2 003F
+111E2 003F
+112F2 003F
+114D2 003F
+11652 003F
+116C2 003F
+118E2 003F
12400 003F
12416 003F
1241F 003F
@@ -31811,7 +36777,75 @@ A622 003F
12435 003F
1244A 003F
12450 003F
+12456 003F
12459 003F
+16A62 003F
+16B52 003F
+1D361 003F
+1E8C8 003F
+FF12 0021
+FF12 003F
+2475 0021
+2475 003F
+1F103 0334
+1F103 0021
+1F103 003F
+0F2B 0021
+0F2B 003F
+2489 0021
+2489 003F
+1D7D0 0021
+1D7DA 0021
+1D7E4 0021
+1D7EE 0021
+1D7F8 0021
+1D7D0 003F
+1D7DA 003F
+1D7E4 003F
+1D7EE 003F
+1D7F8 003F
+2461 0021
+24F6 0021
+2777 0021
+2781 0021
+278B 0021
+2461 003F
+24F6 003F
+2777 003F
+2781 003F
+278B 003F
+00B2 0021
+00B2 003F
+2082 0021
+2082 003F
+10108 0334
+1015B 0334
+1015C 0334
+1015D 0334
+1015E 0334
+102E2 0334
+103D2 0334
+104A2 0334
+10859 0334
+1087A 0334
+108A8 0334
+1091A 0334
+10A41 0334
+10B59 0334
+10B79 0334
+10BAA 0334
+10E61 0334
+11053 0334
+11068 0334
+110F2 0334
+11138 0334
+111D2 0334
+111E2 0334
+112F2 0334
+114D2 0334
+11652 0334
+116C2 0334
+118E2 0334
12400 0334
12416 0334
1241F 0334
@@ -31820,37 +36854,17 @@ A622 003F
12435 0334
1244A 0334
12450 0334
+12456 0334
12459 0334
-1091A 0021
-1091A 003F
-1091A 0334
-10859 0021
-10859 003F
-10859 0334
-10B59 0021
-10B59 003F
-10B59 0334
-10B79 0021
-10B79 003F
-10B79 0334
-111D2 0021
-111D2 003F
-111D2 0334
-116C2 0021
-116C2 003F
-116C2 0334
-11068 0021
-11068 003F
-11068 0334
-11053 0021
-11053 003F
-11053 0334
-10A41 0021
-10A41 003F
-10A41 0334
-1D361 0021
-1D361 003F
+16A62 0334
+16B52 0334
1D361 0334
+1E8C8 0334
+1D7D0 0334
+1D7DA 0334
+1D7E4 0334
+1D7EE 0334
+1D7F8 0334
2154 0021
2154 003F
2154 0061
@@ -32007,137 +37021,74 @@ A622 003F
33FC 0041
33FC 0062
0032 0061
-0032 0041
-FF12 0061
-FF12 0041
-2475 0061
-1F103 0061
-2489 0061
-2475 0041
-1F103 0041
-2489 0041
-1D7D0 0061
-1D7DA 0061
-1D7E4 0061
-1D7EE 0061
-1D7F8 0061
-1D7D0 0041
-1D7DA 0041
-1D7E4 0041
-1D7EE 0041
-1D7F8 0041
-2461 0061
-24F6 0061
-2777 0061
-2781 0061
-278B 0061
-2461 0041
-24F6 0041
-2777 0041
-2781 0041
-278B 0041
-00B2 0061
-00B2 0041
-2082 0061
-2082 0041
0662 0061
-0662 0041
06F2 0061
-06F2 0041
-10E61 0061
-10E61 0041
07C2 0061
-07C2 0041
-136A 0061
-136A 0041
-104A2 0061
-104A2 0041
0968 0061
-0968 0041
09E8 0061
-09E8 0041
0A68 0061
-0A68 0041
0AE8 0061
-0AE8 0041
0B68 0061
-0B68 0041
0BE8 0061
-0BE8 0041
0C68 0061
0C7A 0061
0C7D 0061
-0C68 0041
-0C7A 0041
-0C7D 0041
0CE8 0061
-0CE8 0041
0D68 0061
-0D68 0041
-ABF2 0061
-ABF2 0041
-A8D2 0061
-A8D2 0041
-1948 0061
-1948 0041
-19D2 0061
-19D2 0041
-1A82 0061
-1A82 0041
-1A92 0061
-1A92 0041
+0DE8 0061
0E52 0061
-0E52 0041
0ED2 0061
-0ED2 0041
0F22 0061
-0F22 0041
-0F2B 0061
-0F2B 0041
-1C42 0061
-1C42 0041
-A902 0061
-A902 0041
1042 0061
-1042 0041
1092 0061
-1092 0041
-11138 0061
-11138 0041
+136A 0061
17E2 0061
-17E2 0041
17F2 0061
-17F2 0041
-AA52 0061
-AA52 0041
+1812 0061
+1948 0061
+19D2 0061
+1A82 0061
+1A92 0061
1B52 0061
-1B52 0041
-A9D2 0061
-A9D2 0041
1BB2 0061
-1BB2 0041
-1812 0061
-1812 0041
+1C42 0061
1C52 0061
-1C52 0041
-A622 0061
-A622 0041
-110F2 0061
-110F2 0041
3022 0061
-3022 0041
+A622 0061
+A8D2 0061
+A902 0061
+A9D2 0061
+A9F2 0061
+AA52 0061
+ABF2 0061
10108 0061
-10108 0041
1015B 0061
1015C 0061
1015D 0061
1015E 0061
-1015B 0041
-1015C 0041
-1015D 0041
-1015E 0041
+102E2 0061
103D2 0061
-103D2 0041
+104A2 0061
+10859 0061
+1087A 0061
+108A8 0061
+1091A 0061
+10A41 0061
+10B59 0061
+10B79 0061
+10BAA 0061
+10E61 0061
+11053 0061
+11068 0061
+110F2 0061
+11138 0061
+111D2 0061
+111E2 0061
+112F2 0061
+114D2 0061
+11652 0061
+116C2 0061
+118E2 0061
12400 0061
12416 0061
1241F 0061
@@ -32146,7 +37097,81 @@ A622 0041
12435 0061
1244A 0061
12450 0061
+12456 0061
12459 0061
+16A62 0061
+16B52 0061
+1D361 0061
+1E8C8 0061
+0032 0041
+0662 0041
+06F2 0041
+07C2 0041
+0968 0041
+09E8 0041
+0A68 0041
+0AE8 0041
+0B68 0041
+0BE8 0041
+0C68 0041
+0C7A 0041
+0C7D 0041
+0CE8 0041
+0D68 0041
+0DE8 0041
+0E52 0041
+0ED2 0041
+0F22 0041
+1042 0041
+1092 0041
+136A 0041
+17E2 0041
+17F2 0041
+1812 0041
+1948 0041
+19D2 0041
+1A82 0041
+1A92 0041
+1B52 0041
+1BB2 0041
+1C42 0041
+1C52 0041
+3022 0041
+A622 0041
+A8D2 0041
+A902 0041
+A9D2 0041
+A9F2 0041
+AA52 0041
+ABF2 0041
+10108 0041
+1015B 0041
+1015C 0041
+1015D 0041
+1015E 0041
+102E2 0041
+103D2 0041
+104A2 0041
+10859 0041
+1087A 0041
+108A8 0041
+1091A 0041
+10A41 0041
+10B59 0041
+10B79 0041
+10BAA 0041
+10E61 0041
+11053 0041
+11068 0041
+110F2 0041
+11138 0041
+111D2 0041
+111E2 0041
+112F2 0041
+114D2 0041
+11652 0041
+116C2 0041
+118E2 0041
12400 0041
12416 0041
1241F 0041
@@ -32155,50 +37180,50 @@ A622 0041
12435 0041
1244A 0041
12450 0041
+12456 0041
12459 0041
-1091A 0061
-1091A 0041
-10859 0061
-10859 0041
-10B59 0061
-10B59 0041
-10B79 0061
-10B79 0041
-111D2 0061
-111D2 0041
-116C2 0061
-116C2 0041
-11068 0061
-11068 0041
-11053 0061
-11053 0041
-10A41 0061
-10A41 0041
-1D361 0061
+16A62 0041
+16B52 0041
1D361 0041
+1E8C8 0041
+FF12 0061
+FF12 0041
+2475 0061
+1F103 0061
+2489 0061
+0F2B 0061
+2475 0041
+1F103 0041
+2489 0041
+0F2B 0041
+1D7D0 0061
+1D7DA 0061
+1D7E4 0061
+1D7EE 0061
+1D7F8 0061
+1D7D0 0041
+1D7DA 0041
+1D7E4 0041
+1D7EE 0041
+1D7F8 0041
+2461 0061
+24F6 0061
+2777 0061
+2781 0061
+278B 0061
+2461 0041
+24F6 0041
+2777 0041
+2781 0041
+278B 0041
+00B2 0061
+00B2 0041
+2082 0061
+2082 0041
0032 0062
-FF12 0062
-2475 0062
-1F103 0062
-2489 0062
-1D7D0 0062
-1D7DA 0062
-1D7E4 0062
-1D7EE 0062
-1D7F8 0062
-2461 0062
-24F6 0062
-2777 0062
-2781 0062
-278B 0062
-00B2 0062
-2082 0062
0662 0062
06F2 0062
-10E61 0062
07C2 0062
-136A 0062
-104A2 0062
0968 0062
09E8 0062
0A68 0062
@@ -32210,38 +37235,60 @@ FF12 0062
0C7D 0062
0CE8 0062
0D68 0062
-ABF2 0062
-A8D2 0062
-1948 0062
-19D2 0062
-1A82 0062
-1A92 0062
+0DE8 0062
0E52 0062
0ED2 0062
0F22 0062
-0F2B 0062
-1C42 0062
-A902 0062
1042 0062
1092 0062
-11138 0062
+136A 0062
17E2 0062
17F2 0062
-AA52 0062
+1812 0062
+1948 0062
+19D2 0062
+1A82 0062
+1A92 0062
1B52 0062
-A9D2 0062
1BB2 0062
-1812 0062
+1C42 0062
1C52 0062
-A622 0062
-110F2 0062
3022 0062
+A622 0062
+A8D2 0062
+A902 0062
+A9D2 0062
+A9F2 0062
+AA52 0062
+ABF2 0062
10108 0062
1015B 0062
1015C 0062
1015D 0062
1015E 0062
+102E2 0062
103D2 0062
+104A2 0062
+10859 0062
+1087A 0062
+108A8 0062
+1091A 0062
+10A41 0062
+10B59 0062
+10B79 0062
+10BAA 0062
+10E61 0062
+11053 0062
+11068 0062
+110F2 0062
+11138 0062
+111D2 0062
+111E2 0062
+112F2 0062
+114D2 0062
+11652 0062
+116C2 0062
+118E2 0062
12400 0062
12416 0062
1241F 0062
@@ -32250,17 +37297,29 @@ A622 0062
12435 0062
1244A 0062
12450 0062
+12456 0062
12459 0062
-1091A 0062
-10859 0062
-10B59 0062
-10B79 0062
-111D2 0062
-116C2 0062
-11068 0062
-11053 0062
-10A41 0062
+16A62 0062
+16B52 0062
1D361 0062
+1E8C8 0062
+FF12 0062
+2475 0062
+1F103 0062
+2489 0062
+0F2B 0062
+1D7D0 0062
+1D7DA 0062
+1D7E4 0062
+1D7EE 0062
+1D7F8 0062
+2461 0062
+24F6 0062
+2777 0062
+2781 0062
+278B 0062
+00B2 0062
+2082 0062
33E1 0021
33E1 003F
33E1 0061
@@ -32277,138 +37336,69 @@ A622 0062
335A 0041
335A 0062
0033 0021
-0033 003F
-FF13 0021
-FF13 003F
-2476 0021
-2476 003F
-1F104 0334
-1F104 0021
-1F104 003F
-248A 0021
-248A 003F
-1D7D1 0021
-1D7DB 0021
-1D7E5 0021
-1D7EF 0021
-1D7F9 0021
-1D7D1 003F
-1D7DB 003F
-1D7E5 003F
-1D7EF 003F
-1D7F9 003F
-2462 0021
-24F7 0021
-2778 0021
-2782 0021
-278C 0021
-2462 003F
-24F7 003F
-2778 003F
-2782 003F
-278C 003F
-00B3 0021
-00B3 003F
-2083 0021
-2083 003F
-1D7D1 0334
-1D7DB 0334
-1D7E5 0334
-1D7EF 0334
-1D7F9 0334
0663 0021
-0663 003F
06F3 0021
-06F3 003F
-10E62 0021
-10E62 003F
-10E62 0334
07C3 0021
-07C3 003F
-136B 0021
-136B 003F
-104A3 0021
-104A3 003F
-104A3 0334
0969 0021
-0969 003F
09E9 0021
-09E9 003F
0A69 0021
-0A69 003F
0AE9 0021
-0AE9 003F
0B69 0021
-0B69 003F
0BE9 0021
-0BE9 003F
0C69 0021
0C7B 0021
0C7E 0021
-0C69 003F
-0C7B 003F
-0C7E 003F
0CE9 0021
-0CE9 003F
0D69 0021
-0D69 003F
-ABF3 0021
-ABF3 003F
-A8D3 0021
-A8D3 003F
-1949 0021
-1949 003F
-19D3 0021
-19D3 003F
-1A83 0021
-1A83 003F
-1A93 0021
-1A93 003F
+0DE9 0021
0E53 0021
-0E53 003F
0ED3 0021
-0ED3 003F
0F23 0021
-0F23 003F
-0F2C 0021
-0F2C 003F
-1C43 0021
-1C43 003F
-A903 0021
-A903 003F
1043 0021
-1043 003F
1093 0021
-1093 003F
-11139 0021
-11139 003F
-11139 0334
+136B 0021
17E3 0021
-17E3 003F
17F3 0021
-17F3 003F
-AA53 0021
-AA53 003F
+1813 0021
+1949 0021
+19D3 0021
+1A83 0021
+1A93 0021
1B53 0021
-1B53 003F
-A9D3 0021
-A9D3 003F
1BB3 0021
-1BB3 003F
-1813 0021
-1813 003F
+1C43 0021
1C53 0021
-1C53 003F
-A623 0021
-A623 003F
-110F3 0021
-110F3 003F
-110F3 0334
3023 0021
-3023 003F
+A623 0021
+A8D3 0021
+A903 0021
+A9D3 0021
+A9F3 0021
+AA53 0021
+ABF3 0021
10109 0021
-10109 003F
-10109 0334
+102E3 0021
+104A3 0021
+1085A 0021
+1087B 0021
+108A9 0021
+1091B 0021
+10A42 0021
+10B5A 0021
+10B7A 0021
+10BAB 0021
+10E62 0021
+11054 0021
+11069 0021
+110F3 0021
+11139 0021
+111D3 0021
+111E3 0021
+112F3 0021
+114D3 0021
+11653 0021
+116C3 0021
+118E3 0021
12401 0021
12408 0021
12417 0021
@@ -32423,6 +37413,75 @@ A623 003F
1243B 0021
1244B 0021
12451 0021
+12457 0021
+16A63 0021
+16B53 0021
+1D362 0021
+1E8C9 0021
+0033 003F
+0663 003F
+06F3 003F
+07C3 003F
+0969 003F
+09E9 003F
+0A69 003F
+0AE9 003F
+0B69 003F
+0BE9 003F
+0C69 003F
+0C7B 003F
+0C7E 003F
+0CE9 003F
+0D69 003F
+0DE9 003F
+0E53 003F
+0ED3 003F
+0F23 003F
+1043 003F
+1093 003F
+136B 003F
+17E3 003F
+17F3 003F
+1813 003F
+1949 003F
+19D3 003F
+1A83 003F
+1A93 003F
+1B53 003F
+1BB3 003F
+1C43 003F
+1C53 003F
+3023 003F
+A623 003F
+A8D3 003F
+A903 003F
+A9D3 003F
+A9F3 003F
+AA53 003F
+ABF3 003F
+10109 003F
+102E3 003F
+104A3 003F
+1085A 003F
+1087B 003F
+108A9 003F
+1091B 003F
+10A42 003F
+10B5A 003F
+10B7A 003F
+10BAB 003F
+10E62 003F
+11054 003F
+11069 003F
+110F3 003F
+11139 003F
+111D3 003F
+111E3 003F
+112F3 003F
+114D3 003F
+11653 003F
+116C3 003F
+118E3 003F
12401 003F
12408 003F
12417 003F
@@ -32437,6 +37496,69 @@ A623 003F
1243B 003F
1244B 003F
12451 003F
+12457 003F
+16A63 003F
+16B53 003F
+1D362 003F
+1E8C9 003F
+FF13 0021
+FF13 003F
+2476 0021
+2476 003F
+1F104 0334
+1F104 0021
+1F104 003F
+0F2C 0021
+0F2C 003F
+248A 0021
+248A 003F
+1D7D1 0021
+1D7DB 0021
+1D7E5 0021
+1D7EF 0021
+1D7F9 0021
+1D7D1 003F
+1D7DB 003F
+1D7E5 003F
+1D7EF 003F
+1D7F9 003F
+2462 0021
+24F7 0021
+2778 0021
+2782 0021
+278C 0021
+2462 003F
+24F7 003F
+2778 003F
+2782 003F
+278C 003F
+00B3 0021
+00B3 003F
+2083 0021
+2083 003F
+10109 0334
+102E3 0334
+104A3 0334
+1085A 0334
+1087B 0334
+108A9 0334
+1091B 0334
+10A42 0334
+10B5A 0334
+10B7A 0334
+10BAB 0334
+10E62 0334
+11054 0334
+11069 0334
+110F3 0334
+11139 0334
+111D3 0334
+111E3 0334
+112F3 0334
+114D3 0334
+11653 0334
+116C3 0334
+118E3 0334
12401 0334
12408 0334
12417 0334
@@ -32451,36 +37573,16 @@ A623 003F
1243B 0334
1244B 0334
12451 0334
-1091B 0021
-1091B 003F
-1091B 0334
-1085A 0021
-1085A 003F
-1085A 0334
-10B5A 0021
-10B5A 003F
-10B5A 0334
-10B7A 0021
-10B7A 003F
-10B7A 0334
-111D3 0021
-111D3 003F
-111D3 0334
-116C3 0021
-116C3 003F
-116C3 0334
-11069 0021
-11069 003F
-11069 0334
-11054 0021
-11054 003F
-11054 0334
-10A42 0021
-10A42 003F
-10A42 0334
-1D362 0021
-1D362 003F
+12457 0334
+16A63 0334
+16B53 0334
1D362 0334
+1E8C9 0334
+1D7D1 0334
+1D7DB 0334
+1D7E5 0334
+1D7EF 0334
+1D7F9 0334
00BE 0021
00BE 003F
00BE 0061
@@ -32562,127 +37664,69 @@ A623 003F
32B4 0041
32B4 0062
0033 0061
-0033 0041
-FF13 0061
-FF13 0041
-2476 0061
-1F104 0061
-248A 0061
-2476 0041
-1F104 0041
-248A 0041
-1D7D1 0061
-1D7DB 0061
-1D7E5 0061
-1D7EF 0061
-1D7F9 0061
-1D7D1 0041
-1D7DB 0041
-1D7E5 0041
-1D7EF 0041
-1D7F9 0041
-2462 0061
-24F7 0061
-2778 0061
-2782 0061
-278C 0061
-2462 0041
-24F7 0041
-2778 0041
-2782 0041
-278C 0041
-00B3 0061
-00B3 0041
-2083 0061
-2083 0041
0663 0061
-0663 0041
06F3 0061
-06F3 0041
-10E62 0061
-10E62 0041
07C3 0061
-07C3 0041
-136B 0061
-136B 0041
-104A3 0061
-104A3 0041
0969 0061
-0969 0041
09E9 0061
-09E9 0041
0A69 0061
-0A69 0041
0AE9 0061
-0AE9 0041
0B69 0061
-0B69 0041
0BE9 0061
-0BE9 0041
0C69 0061
0C7B 0061
0C7E 0061
-0C69 0041
-0C7B 0041
-0C7E 0041
0CE9 0061
-0CE9 0041
0D69 0061
-0D69 0041
-ABF3 0061
-ABF3 0041
-A8D3 0061
-A8D3 0041
-1949 0061
-1949 0041
-19D3 0061
-19D3 0041
-1A83 0061
-1A83 0041
-1A93 0061
-1A93 0041
+0DE9 0061
0E53 0061
-0E53 0041
0ED3 0061
-0ED3 0041
0F23 0061
-0F23 0041
-0F2C 0061
-0F2C 0041
-1C43 0061
-1C43 0041
-A903 0061
-A903 0041
1043 0061
-1043 0041
1093 0061
-1093 0041
-11139 0061
-11139 0041
+136B 0061
17E3 0061
-17E3 0041
17F3 0061
-17F3 0041
-AA53 0061
-AA53 0041
+1813 0061
+1949 0061
+19D3 0061
+1A83 0061
+1A93 0061
1B53 0061
-1B53 0041
-A9D3 0061
-A9D3 0041
1BB3 0061
-1BB3 0041
-1813 0061
-1813 0041
+1C43 0061
1C53 0061
-1C53 0041
-A623 0061
-A623 0041
-110F3 0061
-110F3 0041
3023 0061
-3023 0041
+A623 0061
+A8D3 0061
+A903 0061
+A9D3 0061
+A9F3 0061
+AA53 0061
+ABF3 0061
10109 0061
-10109 0041
+102E3 0061
+104A3 0061
+1085A 0061
+1087B 0061
+108A9 0061
+1091B 0061
+10A42 0061
+10B5A 0061
+10B7A 0061
+10BAB 0061
+10E62 0061
+11054 0061
+11069 0061
+110F3 0061
+11139 0061
+111D3 0061
+111E3 0061
+112F3 0061
+114D3 0061
+11653 0061
+116C3 0061
+118E3 0061
12401 0061
12408 0061
12417 0061
@@ -32697,6 +37741,75 @@ A623 0041
1243B 0061
1244B 0061
12451 0061
+12457 0061
+16A63 0061
+16B53 0061
+1D362 0061
+1E8C9 0061
+0033 0041
+0663 0041
+06F3 0041
+07C3 0041
+0969 0041
+09E9 0041
+0A69 0041
+0AE9 0041
+0B69 0041
+0BE9 0041
+0C69 0041
+0C7B 0041
+0C7E 0041
+0CE9 0041
+0D69 0041
+0DE9 0041
+0E53 0041
+0ED3 0041
+0F23 0041
+1043 0041
+1093 0041
+136B 0041
+17E3 0041
+17F3 0041
+1813 0041
+1949 0041
+19D3 0041
+1A83 0041
+1A93 0041
+1B53 0041
+1BB3 0041
+1C43 0041
+1C53 0041
+3023 0041
+A623 0041
+A8D3 0041
+A903 0041
+A9D3 0041
+A9F3 0041
+AA53 0041
+ABF3 0041
+10109 0041
+102E3 0041
+104A3 0041
+1085A 0041
+1087B 0041
+108A9 0041
+1091B 0041
+10A42 0041
+10B5A 0041
+10B7A 0041
+10BAB 0041
+10E62 0041
+11054 0041
+11069 0041
+110F3 0041
+11139 0041
+111D3 0041
+111E3 0041
+112F3 0041
+114D3 0041
+11653 0041
+116C3 0041
+118E3 0041
12401 0041
12408 0041
12417 0041
@@ -32711,49 +37824,49 @@ A623 0041
1243B 0041
1244B 0041
12451 0041
-1091B 0061
-1091B 0041
-1085A 0061
-1085A 0041
-10B5A 0061
-10B5A 0041
-10B7A 0061
-10B7A 0041
-111D3 0061
-111D3 0041
-116C3 0061
-116C3 0041
-11069 0061
-11069 0041
-11054 0061
-11054 0041
-10A42 0061
-10A42 0041
-1D362 0061
+12457 0041
+16A63 0041
+16B53 0041
1D362 0041
+1E8C9 0041
+FF13 0061
+FF13 0041
+2476 0061
+1F104 0061
+248A 0061
+0F2C 0061
+2476 0041
+1F104 0041
+248A 0041
+0F2C 0041
+1D7D1 0061
+1D7DB 0061
+1D7E5 0061
+1D7EF 0061
+1D7F9 0061
+1D7D1 0041
+1D7DB 0041
+1D7E5 0041
+1D7EF 0041
+1D7F9 0041
+2462 0061
+24F7 0061
+2778 0061
+2782 0061
+278C 0061
+2462 0041
+24F7 0041
+2778 0041
+2782 0041
+278C 0041
+00B3 0061
+00B3 0041
+2083 0061
+2083 0041
0033 0062
-FF13 0062
-2476 0062
-1F104 0062
-248A 0062
-1D7D1 0062
-1D7DB 0062
-1D7E5 0062
-1D7EF 0062
-1D7F9 0062
-2462 0062
-24F7 0062
-2778 0062
-2782 0062
-278C 0062
-00B3 0062
-2083 0062
0663 0062
06F3 0062
-10E62 0062
07C3 0062
-136B 0062
-104A3 0062
0969 0062
09E9 0062
0A69 0062
@@ -32765,33 +37878,55 @@ FF13 0062
0C7E 0062
0CE9 0062
0D69 0062
-ABF3 0062
-A8D3 0062
-1949 0062
-19D3 0062
-1A83 0062
-1A93 0062
+0DE9 0062
0E53 0062
0ED3 0062
0F23 0062
-0F2C 0062
-1C43 0062
-A903 0062
1043 0062
1093 0062
-11139 0062
+136B 0062
17E3 0062
17F3 0062
-AA53 0062
+1813 0062
+1949 0062
+19D3 0062
+1A83 0062
+1A93 0062
1B53 0062
-A9D3 0062
1BB3 0062
-1813 0062
+1C43 0062
1C53 0062
-A623 0062
-110F3 0062
3023 0062
+A623 0062
+A8D3 0062
+A903 0062
+A9D3 0062
+A9F3 0062
+AA53 0062
+ABF3 0062
10109 0062
+102E3 0062
+104A3 0062
+1085A 0062
+1087B 0062
+108A9 0062
+1091B 0062
+10A42 0062
+10B5A 0062
+10B7A 0062
+10BAB 0062
+10E62 0062
+11054 0062
+11069 0062
+110F3 0062
+11139 0062
+111D3 0062
+111E3 0062
+112F3 0062
+114D3 0062
+11653 0062
+116C3 0062
+118E3 0062
12401 0062
12408 0062
12417 0062
@@ -32806,16 +37941,28 @@ A623 0062
1243B 0062
1244B 0062
12451 0062
-1091B 0062
-1085A 0062
-10B5A 0062
-10B7A 0062
-111D3 0062
-116C3 0062
-11069 0062
-11054 0062
-10A42 0062
+12457 0062
+16A63 0062
+16B53 0062
1D362 0062
+1E8C9 0062
+FF13 0062
+2476 0062
+1F104 0062
+248A 0062
+0F2C 0062
+1D7D1 0062
+1D7DB 0062
+1D7E5 0062
+1D7EF 0062
+1D7F9 0062
+2462 0062
+24F7 0062
+2778 0062
+2782 0062
+278C 0062
+00B3 0062
+2083 0062
33E2 0021
33E2 003F
33E2 0061
@@ -32832,134 +37979,66 @@ A623 0062
335B 0041
335B 0062
0034 0021
-0034 003F
-FF14 0021
-FF14 003F
-2477 0021
-2477 003F
-1F105 0334
-1F105 0021
-1F105 003F
-248B 0021
-248B 003F
-1D7D2 0021
-1D7DC 0021
-1D7E6 0021
-1D7F0 0021
-1D7FA 0021
-1D7D2 003F
-1D7DC 003F
-1D7E6 003F
-1D7F0 003F
-1D7FA 003F
-2463 0021
-24F8 0021
-2779 0021
-2783 0021
-278D 0021
-2463 003F
-24F8 003F
-2779 003F
-2783 003F
-278D 003F
-2074 0021
-2074 003F
-2084 0021
-2084 003F
-1D7D2 0334
-1D7DC 0334
-1D7E6 0334
-1D7F0 0334
-1D7FA 0334
0664 0021
-0664 003F
06F4 0021
-06F4 003F
-10E63 0021
-10E63 003F
-10E63 0334
07C4 0021
-07C4 003F
-136C 0021
-136C 003F
-104A4 0021
-104A4 003F
-104A4 0334
096A 0021
-096A 003F
09EA 0021
-09EA 003F
0A6A 0021
-0A6A 003F
0AEA 0021
-0AEA 003F
0B6A 0021
-0B6A 003F
0BEA 0021
-0BEA 003F
0C6A 0021
-0C6A 003F
0CEA 0021
-0CEA 003F
0D6A 0021
-0D6A 003F
-ABF4 0021
-ABF4 003F
-A8D4 0021
-A8D4 003F
-194A 0021
-194A 003F
-19D4 0021
-19D4 003F
-1A84 0021
-1A84 003F
-1A94 0021
-1A94 003F
+0DEA 0021
0E54 0021
-0E54 003F
0ED4 0021
-0ED4 003F
0F24 0021
-0F24 003F
-0F2D 0021
-0F2D 003F
-1C44 0021
-1C44 003F
-A904 0021
-A904 003F
1044 0021
-1044 003F
1094 0021
-1094 003F
-1113A 0021
-1113A 003F
-1113A 0334
+136C 0021
17E4 0021
-17E4 003F
17F4 0021
-17F4 003F
-AA54 0021
-AA54 003F
+1814 0021
+194A 0021
+19D4 0021
+1A84 0021
+1A94 0021
1B54 0021
-1B54 003F
-A9D4 0021
-A9D4 003F
1BB4 0021
-1BB4 003F
-1814 0021
-1814 003F
+1C44 0021
1C54 0021
-1C54 003F
-A624 0021
-A624 003F
-110F4 0021
-110F4 003F
-110F4 0334
3024 0021
-3024 003F
+A624 0021
+A8D4 0021
+A904 0021
+A9D4 0021
+A9F4 0021
+AA54 0021
+ABF4 0021
1010A 0021
-1010A 003F
-1010A 0334
+102E4 0021
+104A4 0021
+1087C 0021
+108AA 0021
+108AB 0021
+10A43 0021
+10B5B 0021
+10B7B 0021
+10BAC 0021
+10E63 0021
+11055 0021
+1106A 0021
+110F4 0021
+1113A 0021
+111D4 0021
+111E4 0021
+112F4 0021
+114D4 0021
+11654 0021
+116C4 0021
+118E4 0021
12402 0021
12409 0021
1240F 0021
@@ -32975,6 +38054,72 @@ A624 003F
1244C 0021
12452 0021
12453 0021
+12469 0021
+16A64 0021
+16B54 0021
+1D363 0021
+1E8CA 0021
+0034 003F
+0664 003F
+06F4 003F
+07C4 003F
+096A 003F
+09EA 003F
+0A6A 003F
+0AEA 003F
+0B6A 003F
+0BEA 003F
+0C6A 003F
+0CEA 003F
+0D6A 003F
+0DEA 003F
+0E54 003F
+0ED4 003F
+0F24 003F
+1044 003F
+1094 003F
+136C 003F
+17E4 003F
+17F4 003F
+1814 003F
+194A 003F
+19D4 003F
+1A84 003F
+1A94 003F
+1B54 003F
+1BB4 003F
+1C44 003F
+1C54 003F
+3024 003F
+A624 003F
+A8D4 003F
+A904 003F
+A9D4 003F
+A9F4 003F
+AA54 003F
+ABF4 003F
+1010A 003F
+102E4 003F
+104A4 003F
+1087C 003F
+108AA 003F
+108AB 003F
+10A43 003F
+10B5B 003F
+10B7B 003F
+10BAC 003F
+10E63 003F
+11055 003F
+1106A 003F
+110F4 003F
+1113A 003F
+111D4 003F
+111E4 003F
+112F4 003F
+114D4 003F
+11654 003F
+116C4 003F
+118E4 003F
12402 003F
12409 003F
1240F 003F
@@ -32990,6 +38135,68 @@ A624 003F
1244C 003F
12452 003F
12453 003F
+12469 003F
+16A64 003F
+16B54 003F
+1D363 003F
+1E8CA 003F
+FF14 0021
+FF14 003F
+2477 0021
+2477 003F
+1F105 0334
+1F105 0021
+1F105 003F
+0F2D 0021
+0F2D 003F
+248B 0021
+248B 003F
+1D7D2 0021
+1D7DC 0021
+1D7E6 0021
+1D7F0 0021
+1D7FA 0021
+1D7D2 003F
+1D7DC 003F
+1D7E6 003F
+1D7F0 003F
+1D7FA 003F
+2463 0021
+24F8 0021
+2779 0021
+2783 0021
+278D 0021
+2463 003F
+24F8 003F
+2779 003F
+2783 003F
+278D 003F
+2074 0021
+2074 003F
+2084 0021
+2084 003F
+1010A 0334
+102E4 0334
+104A4 0334
+1087C 0334
+108AA 0334
+108AB 0334
+10A43 0334
+10B5B 0334
+10B7B 0334
+10BAC 0334
+10E63 0334
+11055 0334
+1106A 0334
+110F4 0334
+1113A 0334
+111D4 0334
+111E4 0334
+112F4 0334
+114D4 0334
+11654 0334
+116C4 0334
+118E4 0334
12402 0334
12409 0334
1240F 0334
@@ -33005,30 +38212,16 @@ A624 003F
1244C 0334
12452 0334
12453 0334
-10B5B 0021
-10B5B 003F
-10B5B 0334
-10B7B 0021
-10B7B 003F
-10B7B 0334
-111D4 0021
-111D4 003F
-111D4 0334
-116C4 0021
-116C4 003F
-116C4 0334
-1106A 0021
-1106A 003F
-1106A 0334
-11055 0021
-11055 003F
-11055 0334
-10A43 0021
-10A43 003F
-10A43 0334
-1D363 0021
-1D363 003F
+12469 0334
+16A64 0334
+16B54 0334
1D363 0334
+1E8CA 0334
+1D7D2 0334
+1D7DC 0334
+1D7E6 0334
+1D7F0 0334
+1D7FA 0334
2158 0021
2158 003F
2158 0061
@@ -33090,123 +38283,66 @@ A624 003F
32BE 0041
32BE 0062
0034 0061
-0034 0041
-FF14 0061
-FF14 0041
-2477 0061
-1F105 0061
-248B 0061
-2477 0041
-1F105 0041
-248B 0041
-1D7D2 0061
-1D7DC 0061
-1D7E6 0061
-1D7F0 0061
-1D7FA 0061
-1D7D2 0041
-1D7DC 0041
-1D7E6 0041
-1D7F0 0041
-1D7FA 0041
-2463 0061
-24F8 0061
-2779 0061
-2783 0061
-278D 0061
-2463 0041
-24F8 0041
-2779 0041
-2783 0041
-278D 0041
-2074 0061
-2074 0041
-2084 0061
-2084 0041
0664 0061
-0664 0041
06F4 0061
-06F4 0041
-10E63 0061
-10E63 0041
07C4 0061
-07C4 0041
-136C 0061
-136C 0041
-104A4 0061
-104A4 0041
096A 0061
-096A 0041
09EA 0061
-09EA 0041
0A6A 0061
-0A6A 0041
0AEA 0061
-0AEA 0041
0B6A 0061
-0B6A 0041
0BEA 0061
-0BEA 0041
0C6A 0061
-0C6A 0041
0CEA 0061
-0CEA 0041
0D6A 0061
-0D6A 0041
-ABF4 0061
-ABF4 0041
-A8D4 0061
-A8D4 0041
-194A 0061
-194A 0041
-19D4 0061
-19D4 0041
-1A84 0061
-1A84 0041
-1A94 0061
-1A94 0041
+0DEA 0061
0E54 0061
-0E54 0041
0ED4 0061
-0ED4 0041
0F24 0061
-0F24 0041
-0F2D 0061
-0F2D 0041
-1C44 0061
-1C44 0041
-A904 0061
-A904 0041
1044 0061
-1044 0041
1094 0061
-1094 0041
-1113A 0061
-1113A 0041
+136C 0061
17E4 0061
-17E4 0041
17F4 0061
-17F4 0041
-AA54 0061
-AA54 0041
+1814 0061
+194A 0061
+19D4 0061
+1A84 0061
+1A94 0061
1B54 0061
-1B54 0041
-A9D4 0061
-A9D4 0041
1BB4 0061
-1BB4 0041
-1814 0061
-1814 0041
+1C44 0061
1C54 0061
-1C54 0041
-A624 0061
-A624 0041
-110F4 0061
-110F4 0041
3024 0061
-3024 0041
+A624 0061
+A8D4 0061
+A904 0061
+A9D4 0061
+A9F4 0061
+AA54 0061
+ABF4 0061
1010A 0061
-1010A 0041
+102E4 0061
+104A4 0061
+1087C 0061
+108AA 0061
+108AB 0061
+10A43 0061
+10B5B 0061
+10B7B 0061
+10BAC 0061
+10E63 0061
+11055 0061
+1106A 0061
+110F4 0061
+1113A 0061
+111D4 0061
+111E4 0061
+112F4 0061
+114D4 0061
+11654 0061
+116C4 0061
+118E4 0061
12402 0061
12409 0061
1240F 0061
@@ -33222,6 +38358,72 @@ A624 0041
1244C 0061
12452 0061
12453 0061
+12469 0061
+16A64 0061
+16B54 0061
+1D363 0061
+1E8CA 0061
+0034 0041
+0664 0041
+06F4 0041
+07C4 0041
+096A 0041
+09EA 0041
+0A6A 0041
+0AEA 0041
+0B6A 0041
+0BEA 0041
+0C6A 0041
+0CEA 0041
+0D6A 0041
+0DEA 0041
+0E54 0041
+0ED4 0041
+0F24 0041
+1044 0041
+1094 0041
+136C 0041
+17E4 0041
+17F4 0041
+1814 0041
+194A 0041
+19D4 0041
+1A84 0041
+1A94 0041
+1B54 0041
+1BB4 0041
+1C44 0041
+1C54 0041
+3024 0041
+A624 0041
+A8D4 0041
+A904 0041
+A9D4 0041
+A9F4 0041
+AA54 0041
+ABF4 0041
+1010A 0041
+102E4 0041
+104A4 0041
+1087C 0041
+108AA 0041
+108AB 0041
+10A43 0041
+10B5B 0041
+10B7B 0041
+10BAC 0041
+10E63 0041
+11055 0041
+1106A 0041
+110F4 0041
+1113A 0041
+111D4 0041
+111E4 0041
+112F4 0041
+114D4 0041
+11654 0041
+116C4 0041
+118E4 0041
12402 0041
12409 0041
1240F 0041
@@ -33237,45 +38439,49 @@ A624 0041
1244C 0041
12452 0041
12453 0041
-10B5B 0061
-10B5B 0041
-10B7B 0061
-10B7B 0041
-111D4 0061
-111D4 0041
-116C4 0061
-116C4 0041
-1106A 0061
-1106A 0041
-11055 0061
-11055 0041
-10A43 0061
-10A43 0041
-1D363 0061
+12469 0041
+16A64 0041
+16B54 0041
1D363 0041
+1E8CA 0041
+FF14 0061
+FF14 0041
+2477 0061
+1F105 0061
+248B 0061
+0F2D 0061
+2477 0041
+1F105 0041
+248B 0041
+0F2D 0041
+1D7D2 0061
+1D7DC 0061
+1D7E6 0061
+1D7F0 0061
+1D7FA 0061
+1D7D2 0041
+1D7DC 0041
+1D7E6 0041
+1D7F0 0041
+1D7FA 0041
+2463 0061
+24F8 0061
+2779 0061
+2783 0061
+278D 0061
+2463 0041
+24F8 0041
+2779 0041
+2783 0041
+278D 0041
+2074 0061
+2074 0041
+2084 0061
+2084 0041
0034 0062
-FF14 0062
-2477 0062
-1F105 0062
-248B 0062
-1D7D2 0062
-1D7DC 0062
-1D7E6 0062
-1D7F0 0062
-1D7FA 0062
-2463 0062
-24F8 0062
-2779 0062
-2783 0062
-278D 0062
-2074 0062
-2084 0062
0664 0062
06F4 0062
-10E63 0062
07C4 0062
-136C 0062
-104A4 0062
096A 0062
09EA 0062
0A6A 0062
@@ -33285,33 +38491,54 @@ FF14 0062
0C6A 0062
0CEA 0062
0D6A 0062
-ABF4 0062
-A8D4 0062
-194A 0062
-19D4 0062
-1A84 0062
-1A94 0062
+0DEA 0062
0E54 0062
0ED4 0062
0F24 0062
-0F2D 0062
-1C44 0062
-A904 0062
1044 0062
1094 0062
-1113A 0062
+136C 0062
17E4 0062
17F4 0062
-AA54 0062
+1814 0062
+194A 0062
+19D4 0062
+1A84 0062
+1A94 0062
1B54 0062
-A9D4 0062
1BB4 0062
-1814 0062
+1C44 0062
1C54 0062
-A624 0062
-110F4 0062
3024 0062
+A624 0062
+A8D4 0062
+A904 0062
+A9D4 0062
+A9F4 0062
+AA54 0062
+ABF4 0062
1010A 0062
+102E4 0062
+104A4 0062
+1087C 0062
+108AA 0062
+108AB 0062
+10A43 0062
+10B5B 0062
+10B7B 0062
+10BAC 0062
+10E63 0062
+11055 0062
+1106A 0062
+110F4 0062
+1113A 0062
+111D4 0062
+111E4 0062
+112F4 0062
+114D4 0062
+11654 0062
+116C4 0062
+118E4 0062
12402 0062
12409 0062
1240F 0062
@@ -33327,14 +38554,28 @@ A624 0062
1244C 0062
12452 0062
12453 0062
-10B5B 0062
-10B7B 0062
-111D4 0062
-116C4 0062
-1106A 0062
-11055 0062
-10A43 0062
+12469 0062
+16A64 0062
+16B54 0062
1D363 0062
+1E8CA 0062
+FF14 0062
+2477 0062
+1F105 0062
+248B 0062
+0F2D 0062
+1D7D2 0062
+1D7DC 0062
+1D7E6 0062
+1D7F0 0062
+1D7FA 0062
+2463 0062
+24F8 0062
+2779 0062
+2783 0062
+278D 0062
+2074 0062
+2084 0062
33E3 0021
33E3 003F
33E3 0061
@@ -33351,152 +38592,68 @@ A624 0062
335C 0041
335C 0062
0035 0021
-0035 003F
-FF15 0021
-FF15 003F
-2478 0021
-2478 003F
-1F106 0334
-1F106 0021
-1F106 003F
-248C 0021
-248C 003F
-1D7D3 0021
-1D7DD 0021
-1D7E7 0021
-1D7F1 0021
-1D7FB 0021
-1D7D3 003F
-1D7DD 003F
-1D7E7 003F
-1D7F1 003F
-1D7FB 003F
-2464 0021
-24F9 0021
-277A 0021
-2784 0021
-278E 0021
-2464 003F
-24F9 003F
-277A 003F
-2784 003F
-278E 003F
-2075 0021
-2075 003F
-2085 0021
-2085 003F
-1D7D3 0334
-1D7DD 0334
-1D7E7 0334
-1D7F1 0334
-1D7FB 0334
0665 0021
-0665 003F
06F5 0021
-06F5 003F
-10E64 0021
-10E64 003F
-10E64 0334
07C5 0021
-07C5 003F
-136D 0021
-136D 003F
-104A5 0021
-104A5 003F
-104A5 0334
096B 0021
-096B 003F
09EB 0021
-09EB 003F
0A6B 0021
-0A6B 003F
0AEB 0021
-0AEB 003F
0B6B 0021
-0B6B 003F
0BEB 0021
-0BEB 003F
0C6B 0021
-0C6B 003F
0CEB 0021
-0CEB 003F
0D6B 0021
-0D6B 003F
-ABF5 0021
-ABF5 003F
-A8D5 0021
-A8D5 003F
-194B 0021
-194B 003F
-19D5 0021
-19D5 003F
-1A85 0021
-1A85 003F
-1A95 0021
-1A95 003F
+0DEB 0021
0E55 0021
-0E55 003F
0ED5 0021
-0ED5 003F
0F25 0021
-0F25 003F
-0F2E 0021
-0F2E 003F
-1C45 0021
-1C45 003F
-A905 0021
-A905 003F
1045 0021
-1045 003F
1095 0021
-1095 003F
-1113B 0021
-1113B 003F
-1113B 0334
+136D 0021
17E5 0021
-17E5 003F
17F5 0021
-17F5 003F
-AA55 0021
-AA55 003F
+1815 0021
+194B 0021
+19D5 0021
+1A85 0021
+1A95 0021
1B55 0021
-1B55 003F
-A9D5 0021
-A9D5 003F
1BB5 0021
-1BB5 003F
-1815 0021
-1815 003F
+1C45 0021
1C55 0021
-1C55 003F
-A625 0021
-A625 003F
-110F5 0021
-110F5 003F
-110F5 0334
3025 0021
-3025 003F
+A625 0021
+A8D5 0021
+A905 0021
+A9D5 0021
+A9F5 0021
+AA55 0021
+ABF5 0021
1010B 0021
-1010B 003F
-1010B 0334
10143 0021
10148 0021
1014F 0021
1015F 0021
10173 0021
-10143 003F
-10148 003F
-1014F 003F
-1015F 003F
-10173 003F
-10143 0334
-10148 0334
-1014F 0334
-1015F 0334
-10173 0334
+102E5 0021
10321 0021
-10321 003F
-10321 0334
+104A5 0021
+1087D 0021
+108AC 0021
+10AEC 0021
+10E64 0021
+11056 0021
+1106B 0021
+110F5 0021
+1113B 0021
+111D5 0021
+111E5 0021
+112F5 0021
+114D5 0021
+11655 0021
+116C5 0021
+118E5 0021
12403 0021
1240A 0021
12410 0021
@@ -33508,6 +38665,74 @@ A625 003F
1244D 0021
12454 0021
12455 0021
+1246A 0021
+16A65 0021
+16B55 0021
+1D364 0021
+1E8CB 0021
+0035 003F
+0665 003F
+06F5 003F
+07C5 003F
+096B 003F
+09EB 003F
+0A6B 003F
+0AEB 003F
+0B6B 003F
+0BEB 003F
+0C6B 003F
+0CEB 003F
+0D6B 003F
+0DEB 003F
+0E55 003F
+0ED5 003F
+0F25 003F
+1045 003F
+1095 003F
+136D 003F
+17E5 003F
+17F5 003F
+1815 003F
+194B 003F
+19D5 003F
+1A85 003F
+1A95 003F
+1B55 003F
+1BB5 003F
+1C45 003F
+1C55 003F
+3025 003F
+A625 003F
+A8D5 003F
+A905 003F
+A9D5 003F
+A9F5 003F
+AA55 003F
+ABF5 003F
+1010B 003F
+10143 003F
+10148 003F
+1014F 003F
+1015F 003F
+10173 003F
+102E5 003F
+10321 003F
+104A5 003F
+1087D 003F
+108AC 003F
+10AEC 003F
+10E64 003F
+11056 003F
+1106B 003F
+110F5 003F
+1113B 003F
+111D5 003F
+111E5 003F
+112F5 003F
+114D5 003F
+11655 003F
+116C5 003F
+118E5 003F
12403 003F
1240A 003F
12410 003F
@@ -33519,6 +38744,70 @@ A625 003F
1244D 003F
12454 003F
12455 003F
+1246A 003F
+16A65 003F
+16B55 003F
+1D364 003F
+1E8CB 003F
+FF15 0021
+FF15 003F
+2478 0021
+2478 003F
+1F106 0334
+1F106 0021
+1F106 003F
+0F2E 0021
+0F2E 003F
+248C 0021
+248C 003F
+1D7D3 0021
+1D7DD 0021
+1D7E7 0021
+1D7F1 0021
+1D7FB 0021
+1D7D3 003F
+1D7DD 003F
+1D7E7 003F
+1D7F1 003F
+1D7FB 003F
+2464 0021
+24F9 0021
+277A 0021
+2784 0021
+278E 0021
+2464 003F
+24F9 003F
+277A 003F
+2784 003F
+278E 003F
+2075 0021
+2075 003F
+2085 0021
+2085 003F
+1010B 0334
+10143 0334
+10148 0334
+1014F 0334
+1015F 0334
+10173 0334
+102E5 0334
+10321 0334
+104A5 0334
+1087D 0334
+108AC 0334
+10AEC 0334
+10E64 0334
+11056 0334
+1106B 0334
+110F5 0334
+1113B 0334
+111D5 0334
+111E5 0334
+112F5 0334
+114D5 0334
+11655 0334
+116C5 0334
+118E5 0334
12403 0334
1240A 0334
12410 0334
@@ -33530,21 +38819,16 @@ A625 003F
1244D 0334
12454 0334
12455 0334
-111D5 0021
-111D5 003F
-111D5 0334
-116C5 0021
-116C5 003F
-116C5 0334
-1106B 0021
-1106B 003F
-1106B 0334
-11056 0021
-11056 003F
-11056 0334
-1D364 0021
-1D364 003F
+1246A 0334
+16A65 0334
+16B55 0334
1D364 0334
+1E8CB 0334
+1D7D3 0334
+1D7DD 0334
+1D7E7 0334
+1D7F1 0334
+1D7FB 0334
215A 0021
215A 003F
215A 0061
@@ -33566,135 +38850,68 @@ A625 003F
324C 0062
32BF 0062
0035 0061
-0035 0041
-FF15 0061
-FF15 0041
-2478 0061
-1F106 0061
-248C 0061
-2478 0041
-1F106 0041
-248C 0041
-1D7D3 0061
-1D7DD 0061
-1D7E7 0061
-1D7F1 0061
-1D7FB 0061
-1D7D3 0041
-1D7DD 0041
-1D7E7 0041
-1D7F1 0041
-1D7FB 0041
-2464 0061
-24F9 0061
-277A 0061
-2784 0061
-278E 0061
-2464 0041
-24F9 0041
-277A 0041
-2784 0041
-278E 0041
-2075 0061
-2075 0041
-2085 0061
-2085 0041
0665 0061
-0665 0041
06F5 0061
-06F5 0041
-10E64 0061
-10E64 0041
07C5 0061
-07C5 0041
-136D 0061
-136D 0041
-104A5 0061
-104A5 0041
096B 0061
-096B 0041
09EB 0061
-09EB 0041
0A6B 0061
-0A6B 0041
0AEB 0061
-0AEB 0041
0B6B 0061
-0B6B 0041
0BEB 0061
-0BEB 0041
0C6B 0061
-0C6B 0041
0CEB 0061
-0CEB 0041
0D6B 0061
-0D6B 0041
-ABF5 0061
-ABF5 0041
-A8D5 0061
-A8D5 0041
-194B 0061
-194B 0041
-19D5 0061
-19D5 0041
-1A85 0061
-1A85 0041
-1A95 0061
-1A95 0041
+0DEB 0061
0E55 0061
-0E55 0041
0ED5 0061
-0ED5 0041
0F25 0061
-0F25 0041
-0F2E 0061
-0F2E 0041
-1C45 0061
-1C45 0041
-A905 0061
-A905 0041
1045 0061
-1045 0041
1095 0061
-1095 0041
-1113B 0061
-1113B 0041
+136D 0061
17E5 0061
-17E5 0041
17F5 0061
-17F5 0041
-AA55 0061
-AA55 0041
+1815 0061
+194B 0061
+19D5 0061
+1A85 0061
+1A95 0061
1B55 0061
-1B55 0041
-A9D5 0061
-A9D5 0041
1BB5 0061
-1BB5 0041
-1815 0061
-1815 0041
+1C45 0061
1C55 0061
-1C55 0041
-A625 0061
-A625 0041
-110F5 0061
-110F5 0041
3025 0061
-3025 0041
+A625 0061
+A8D5 0061
+A905 0061
+A9D5 0061
+A9F5 0061
+AA55 0061
+ABF5 0061
1010B 0061
-1010B 0041
10143 0061
10148 0061
1014F 0061
1015F 0061
10173 0061
-10143 0041
-10148 0041
-1014F 0041
-1015F 0041
-10173 0041
+102E5 0061
10321 0061
-10321 0041
+104A5 0061
+1087D 0061
+108AC 0061
+10AEC 0061
+10E64 0061
+11056 0061
+1106B 0061
+110F5 0061
+1113B 0061
+111D5 0061
+111E5 0061
+112F5 0061
+114D5 0061
+11655 0061
+116C5 0061
+118E5 0061
12403 0061
1240A 0061
12410 0061
@@ -33706,6 +38923,74 @@ A625 0041
1244D 0061
12454 0061
12455 0061
+1246A 0061
+16A65 0061
+16B55 0061
+1D364 0061
+1E8CB 0061
+0035 0041
+0665 0041
+06F5 0041
+07C5 0041
+096B 0041
+09EB 0041
+0A6B 0041
+0AEB 0041
+0B6B 0041
+0BEB 0041
+0C6B 0041
+0CEB 0041
+0D6B 0041
+0DEB 0041
+0E55 0041
+0ED5 0041
+0F25 0041
+1045 0041
+1095 0041
+136D 0041
+17E5 0041
+17F5 0041
+1815 0041
+194B 0041
+19D5 0041
+1A85 0041
+1A95 0041
+1B55 0041
+1BB5 0041
+1C45 0041
+1C55 0041
+3025 0041
+A625 0041
+A8D5 0041
+A905 0041
+A9D5 0041
+A9F5 0041
+AA55 0041
+ABF5 0041
+1010B 0041
+10143 0041
+10148 0041
+1014F 0041
+1015F 0041
+10173 0041
+102E5 0041
+10321 0041
+104A5 0041
+1087D 0041
+108AC 0041
+10AEC 0041
+10E64 0041
+11056 0041
+1106B 0041
+110F5 0041
+1113B 0041
+111D5 0041
+111E5 0041
+112F5 0041
+114D5 0041
+11655 0041
+116C5 0041
+118E5 0041
12403 0041
1240A 0041
12410 0041
@@ -33717,39 +39002,49 @@ A625 0041
1244D 0041
12454 0041
12455 0041
-111D5 0061
-111D5 0041
-116C5 0061
-116C5 0041
-1106B 0061
-1106B 0041
-11056 0061
-11056 0041
-1D364 0061
+1246A 0041
+16A65 0041
+16B55 0041
1D364 0041
+1E8CB 0041
+FF15 0061
+FF15 0041
+2478 0061
+1F106 0061
+248C 0061
+0F2E 0061
+2478 0041
+1F106 0041
+248C 0041
+0F2E 0041
+1D7D3 0061
+1D7DD 0061
+1D7E7 0061
+1D7F1 0061
+1D7FB 0061
+1D7D3 0041
+1D7DD 0041
+1D7E7 0041
+1D7F1 0041
+1D7FB 0041
+2464 0061
+24F9 0061
+277A 0061
+2784 0061
+278E 0061
+2464 0041
+24F9 0041
+277A 0041
+2784 0041
+278E 0041
+2075 0061
+2075 0041
+2085 0061
+2085 0041
0035 0062
-FF15 0062
-2478 0062
-1F106 0062
-248C 0062
-1D7D3 0062
-1D7DD 0062
-1D7E7 0062
-1D7F1 0062
-1D7FB 0062
-2464 0062
-24F9 0062
-277A 0062
-2784 0062
-278E 0062
-2075 0062
-2085 0062
0665 0062
06F5 0062
-10E64 0062
07C5 0062
-136D 0062
-104A5 0062
096B 0062
09EB 0062
0A6B 0062
@@ -33759,39 +39054,56 @@ FF15 0062
0C6B 0062
0CEB 0062
0D6B 0062
-ABF5 0062
-A8D5 0062
-194B 0062
-19D5 0062
-1A85 0062
-1A95 0062
+0DEB 0062
0E55 0062
0ED5 0062
0F25 0062
-0F2E 0062
-1C45 0062
-A905 0062
1045 0062
1095 0062
-1113B 0062
+136D 0062
17E5 0062
17F5 0062
-AA55 0062
+1815 0062
+194B 0062
+19D5 0062
+1A85 0062
+1A95 0062
1B55 0062
-A9D5 0062
1BB5 0062
-1815 0062
+1C45 0062
1C55 0062
-A625 0062
-110F5 0062
3025 0062
+A625 0062
+A8D5 0062
+A905 0062
+A9D5 0062
+A9F5 0062
+AA55 0062
+ABF5 0062
1010B 0062
10143 0062
10148 0062
1014F 0062
1015F 0062
10173 0062
+102E5 0062
10321 0062
+104A5 0062
+1087D 0062
+108AC 0062
+10AEC 0062
+10E64 0062
+11056 0062
+1106B 0062
+110F5 0062
+1113B 0062
+111D5 0062
+111E5 0062
+112F5 0062
+114D5 0062
+11655 0062
+116C5 0062
+118E5 0062
12403 0062
1240A 0062
12410 0062
@@ -33803,11 +39115,28 @@ A625 0062
1244D 0062
12454 0062
12455 0062
-111D5 0062
-116C5 0062
-1106B 0062
-11056 0062
+1246A 0062
+16A65 0062
+16B55 0062
1D364 0062
+1E8CB 0062
+FF15 0062
+2478 0062
+1F106 0062
+248C 0062
+0F2E 0062
+1D7D3 0062
+1D7DD 0062
+1D7E7 0062
+1D7F1 0062
+1D7FB 0062
+2464 0062
+24F9 0062
+277A 0062
+2784 0062
+278E 0062
+2075 0062
+2085 0062
33E4 0021
33E4 003F
33E4 0061
@@ -33824,136 +39153,60 @@ A625 0062
335D 0041
335D 0062
0036 0021
-0036 003F
-FF16 0021
-FF16 003F
-2479 0021
-2479 003F
-1F107 0334
-1F107 0021
-1F107 003F
-248D 0021
-248D 003F
-1D7D4 0021
-1D7DE 0021
-1D7E8 0021
-1D7F2 0021
-1D7FC 0021
-1D7D4 003F
-1D7DE 003F
-1D7E8 003F
-1D7F2 003F
-1D7FC 003F
-2465 0021
-24FA 0021
-277B 0021
-2785 0021
-278F 0021
-2465 003F
-24FA 003F
-277B 003F
-2785 003F
-278F 003F
-2076 0021
-2076 003F
-2086 0021
-2086 003F
-1D7D4 0334
-1D7DE 0334
-1D7E8 0334
-1D7F2 0334
-1D7FC 0334
0666 0021
-0666 003F
06F6 0021
-06F6 003F
-10E65 0021
-10E65 003F
-10E65 0334
07C6 0021
-07C6 003F
-136E 0021
-136E 003F
-104A6 0021
-104A6 003F
-104A6 0334
096C 0021
-096C 003F
09EC 0021
-09EC 003F
0A6C 0021
-0A6C 003F
0AEC 0021
-0AEC 003F
0B6C 0021
-0B6C 003F
0BEC 0021
-0BEC 003F
0C6C 0021
-0C6C 003F
0CEC 0021
-0CEC 003F
0D6C 0021
-0D6C 003F
-ABF6 0021
-ABF6 003F
-A8D6 0021
-A8D6 003F
-194C 0021
-194C 003F
-19D6 0021
-19D6 003F
-1A86 0021
-1A86 003F
-1A96 0021
-1A96 003F
+0DEC 0021
0E56 0021
-0E56 003F
0ED6 0021
-0ED6 003F
0F26 0021
-0F26 003F
-0F2F 0021
-0F2F 003F
-1C46 0021
-1C46 003F
-A906 0021
-A906 003F
1046 0021
-1046 003F
1096 0021
-1096 003F
-1113C 0021
-1113C 003F
-1113C 0334
+136E 0021
17E6 0021
-17E6 003F
17F6 0021
-17F6 003F
-AA56 0021
-AA56 003F
+1816 0021
+194C 0021
+19D6 0021
+1A86 0021
+1A96 0021
1B56 0021
-1B56 003F
-A9D6 0021
-A9D6 003F
1BB6 0021
-1BB6 003F
-1816 0021
-1816 003F
+1C46 0021
1C56 0021
-1C56 003F
-A626 0021
-A626 003F
-110F6 0021
-110F6 003F
-110F6 0334
+2185 0021
3026 0021
-3026 003F
+A626 0021
+A8D6 0021
+A906 0021
+A9D6 0021
+A9F6 0021
+AA56 0021
+ABF6 0021
1010C 0021
-1010C 003F
-1010C 0334
-2185 0021
-2185 003F
+102E6 0021
+104A6 0021
+10E65 0021
+11057 0021
+1106C 0021
+110F6 0021
+1113C 0021
+111D6 0021
+111E6 0021
+112F6 0021
+114D6 0021
+11656 0021
+116C6 0021
+118E6 0021
12404 0021
1240B 0021
12411 0021
@@ -33961,6 +39214,66 @@ A626 003F
12428 0021
12440 0021
1244E 0021
+1246B 0021
+16A66 0021
+16B56 0021
+1D365 0021
+1E8CC 0021
+0036 003F
+0666 003F
+06F6 003F
+07C6 003F
+096C 003F
+09EC 003F
+0A6C 003F
+0AEC 003F
+0B6C 003F
+0BEC 003F
+0C6C 003F
+0CEC 003F
+0D6C 003F
+0DEC 003F
+0E56 003F
+0ED6 003F
+0F26 003F
+1046 003F
+1096 003F
+136E 003F
+17E6 003F
+17F6 003F
+1816 003F
+194C 003F
+19D6 003F
+1A86 003F
+1A96 003F
+1B56 003F
+1BB6 003F
+1C46 003F
+1C56 003F
+2185 003F
+3026 003F
+A626 003F
+A8D6 003F
+A906 003F
+A9D6 003F
+A9F6 003F
+AA56 003F
+ABF6 003F
+1010C 003F
+102E6 003F
+104A6 003F
+10E65 003F
+11057 003F
+1106C 003F
+110F6 003F
+1113C 003F
+111D6 003F
+111E6 003F
+112F6 003F
+114D6 003F
+11656 003F
+116C6 003F
+118E6 003F
12404 003F
1240B 003F
12411 003F
@@ -33968,6 +39281,61 @@ A626 003F
12428 003F
12440 003F
1244E 003F
+1246B 003F
+16A66 003F
+16B56 003F
+1D365 003F
+1E8CC 003F
+FF16 0021
+FF16 003F
+2479 0021
+2479 003F
+1F107 0334
+1F107 0021
+1F107 003F
+0F2F 0021
+0F2F 003F
+248D 0021
+248D 003F
+1D7D4 0021
+1D7DE 0021
+1D7E8 0021
+1D7F2 0021
+1D7FC 0021
+1D7D4 003F
+1D7DE 003F
+1D7E8 003F
+1D7F2 003F
+1D7FC 003F
+2465 0021
+24FA 0021
+277B 0021
+2785 0021
+278F 0021
+2465 003F
+24FA 003F
+277B 003F
+2785 003F
+278F 003F
+2076 0021
+2076 003F
+2086 0021
+2086 003F
+1010C 0334
+102E6 0334
+104A6 0334
+10E65 0334
+11057 0334
+1106C 0334
+110F6 0334
+1113C 0334
+111D6 0334
+111E6 0334
+112F6 0334
+114D6 0334
+11656 0334
+116C6 0334
+118E6 0334
12404 0334
1240B 0334
12411 0334
@@ -33975,146 +39343,76 @@ A626 003F
12428 0334
12440 0334
1244E 0334
-111D6 0021
-111D6 003F
-111D6 0334
-116C6 0021
-116C6 003F
-116C6 0334
-1106C 0021
-1106C 003F
-1106C 0334
-11057 0021
-11057 003F
-11057 0334
-1D365 0021
-1D365 003F
+1246B 0334
+16A66 0334
+16B56 0334
1D365 0334
+1E8CC 0334
+1D7D4 0334
+1D7DE 0334
+1D7E8 0334
+1D7F2 0334
+1D7FC 0334
324D 0021
324D 003F
324D 0061
324D 0041
324D 0062
0036 0061
-0036 0041
-FF16 0061
-FF16 0041
-2479 0061
-1F107 0061
-248D 0061
-2479 0041
-1F107 0041
-248D 0041
-1D7D4 0061
-1D7DE 0061
-1D7E8 0061
-1D7F2 0061
-1D7FC 0061
-1D7D4 0041
-1D7DE 0041
-1D7E8 0041
-1D7F2 0041
-1D7FC 0041
-2465 0061
-24FA 0061
-277B 0061
-2785 0061
-278F 0061
-2465 0041
-24FA 0041
-277B 0041
-2785 0041
-278F 0041
-2076 0061
-2076 0041
-2086 0061
-2086 0041
0666 0061
-0666 0041
06F6 0061
-06F6 0041
-10E65 0061
-10E65 0041
07C6 0061
-07C6 0041
-136E 0061
-136E 0041
-104A6 0061
-104A6 0041
096C 0061
-096C 0041
09EC 0061
-09EC 0041
0A6C 0061
-0A6C 0041
0AEC 0061
-0AEC 0041
0B6C 0061
-0B6C 0041
0BEC 0061
-0BEC 0041
0C6C 0061
-0C6C 0041
0CEC 0061
-0CEC 0041
0D6C 0061
-0D6C 0041
-ABF6 0061
-ABF6 0041
-A8D6 0061
-A8D6 0041
-194C 0061
-194C 0041
-19D6 0061
-19D6 0041
-1A86 0061
-1A86 0041
-1A96 0061
-1A96 0041
+0DEC 0061
0E56 0061
-0E56 0041
0ED6 0061
-0ED6 0041
0F26 0061
-0F26 0041
-0F2F 0061
-0F2F 0041
-1C46 0061
-1C46 0041
-A906 0061
-A906 0041
1046 0061
-1046 0041
1096 0061
-1096 0041
-1113C 0061
-1113C 0041
+136E 0061
17E6 0061
-17E6 0041
17F6 0061
-17F6 0041
-AA56 0061
-AA56 0041
+1816 0061
+194C 0061
+19D6 0061
+1A86 0061
+1A96 0061
1B56 0061
-1B56 0041
-A9D6 0061
-A9D6 0041
1BB6 0061
-1BB6 0041
-1816 0061
-1816 0041
+1C46 0061
1C56 0061
-1C56 0041
-A626 0061
-A626 0041
-110F6 0061
-110F6 0041
+2185 0061
3026 0061
-3026 0041
+A626 0061
+A8D6 0061
+A906 0061
+A9D6 0061
+A9F6 0061
+AA56 0061
+ABF6 0061
1010C 0061
-1010C 0041
-2185 0061
-2185 0041
+102E6 0061
+104A6 0061
+10E65 0061
+11057 0061
+1106C 0061
+110F6 0061
+1113C 0061
+111D6 0061
+111E6 0061
+112F6 0061
+114D6 0061
+11656 0061
+116C6 0061
+118E6 0061
12404 0061
1240B 0061
12411 0061
@@ -34122,6 +39420,66 @@ A626 0041
12428 0061
12440 0061
1244E 0061
+1246B 0061
+16A66 0061
+16B56 0061
+1D365 0061
+1E8CC 0061
+0036 0041
+0666 0041
+06F6 0041
+07C6 0041
+096C 0041
+09EC 0041
+0A6C 0041
+0AEC 0041
+0B6C 0041
+0BEC 0041
+0C6C 0041
+0CEC 0041
+0D6C 0041
+0DEC 0041
+0E56 0041
+0ED6 0041
+0F26 0041
+1046 0041
+1096 0041
+136E 0041
+17E6 0041
+17F6 0041
+1816 0041
+194C 0041
+19D6 0041
+1A86 0041
+1A96 0041
+1B56 0041
+1BB6 0041
+1C46 0041
+1C56 0041
+2185 0041
+3026 0041
+A626 0041
+A8D6 0041
+A906 0041
+A9D6 0041
+A9F6 0041
+AA56 0041
+ABF6 0041
+1010C 0041
+102E6 0041
+104A6 0041
+10E65 0041
+11057 0041
+1106C 0041
+110F6 0041
+1113C 0041
+111D6 0041
+111E6 0041
+112F6 0041
+114D6 0041
+11656 0041
+116C6 0041
+118E6 0041
12404 0041
1240B 0041
12411 0041
@@ -34129,39 +39487,49 @@ A626 0041
12428 0041
12440 0041
1244E 0041
-111D6 0061
-111D6 0041
-116C6 0061
-116C6 0041
-1106C 0061
-1106C 0041
-11057 0061
-11057 0041
-1D365 0061
+1246B 0041
+16A66 0041
+16B56 0041
1D365 0041
+1E8CC 0041
+FF16 0061
+FF16 0041
+2479 0061
+1F107 0061
+248D 0061
+0F2F 0061
+2479 0041
+1F107 0041
+248D 0041
+0F2F 0041
+1D7D4 0061
+1D7DE 0061
+1D7E8 0061
+1D7F2 0061
+1D7FC 0061
+1D7D4 0041
+1D7DE 0041
+1D7E8 0041
+1D7F2 0041
+1D7FC 0041
+2465 0061
+24FA 0061
+277B 0061
+2785 0061
+278F 0061
+2465 0041
+24FA 0041
+277B 0041
+2785 0041
+278F 0041
+2076 0061
+2076 0041
+2086 0061
+2086 0041
0036 0062
-FF16 0062
-2479 0062
-1F107 0062
-248D 0062
-1D7D4 0062
-1D7DE 0062
-1D7E8 0062
-1D7F2 0062
-1D7FC 0062
-2465 0062
-24FA 0062
-277B 0062
-2785 0062
-278F 0062
-2076 0062
-2086 0062
0666 0062
06F6 0062
-10E65 0062
07C6 0062
-136E 0062
-104A6 0062
096C 0062
09EC 0062
0A6C 0062
@@ -34171,34 +39539,48 @@ FF16 0062
0C6C 0062
0CEC 0062
0D6C 0062
-ABF6 0062
-A8D6 0062
-194C 0062
-19D6 0062
-1A86 0062
-1A96 0062
+0DEC 0062
0E56 0062
0ED6 0062
0F26 0062
-0F2F 0062
-1C46 0062
-A906 0062
1046 0062
1096 0062
-1113C 0062
+136E 0062
17E6 0062
17F6 0062
-AA56 0062
+1816 0062
+194C 0062
+19D6 0062
+1A86 0062
+1A96 0062
1B56 0062
-A9D6 0062
1BB6 0062
-1816 0062
+1C46 0062
1C56 0062
-A626 0062
-110F6 0062
+2185 0062
3026 0062
+A626 0062
+A8D6 0062
+A906 0062
+A9D6 0062
+A9F6 0062
+AA56 0062
+ABF6 0062
1010C 0062
-2185 0062
+102E6 0062
+104A6 0062
+10E65 0062
+11057 0062
+1106C 0062
+110F6 0062
+1113C 0062
+111D6 0062
+111E6 0062
+112F6 0062
+114D6 0062
+11656 0062
+116C6 0062
+118E6 0062
12404 0062
1240B 0062
12411 0062
@@ -34206,11 +39588,28 @@ A626 0062
12428 0062
12440 0062
1244E 0062
-111D6 0062
-116C6 0062
-1106C 0062
-11057 0062
+1246B 0062
+16A66 0062
+16B56 0062
1D365 0062
+1E8CC 0062
+FF16 0062
+2479 0062
+1F107 0062
+248D 0062
+0F2F 0062
+1D7D4 0062
+1D7DE 0062
+1D7E8 0062
+1D7F2 0062
+1D7FC 0062
+2465 0062
+24FA 0062
+277B 0062
+2785 0062
+278F 0062
+2076 0062
+2086 0062
33E5 0021
33E5 003F
33E5 0061
@@ -34227,134 +39626,59 @@ A626 0062
335E 0041
335E 0062
0037 0021
-0037 003F
-FF17 0021
-FF17 003F
-247A 0021
-247A 003F
-1F108 0334
-1F108 0021
-1F108 003F
-248E 0021
-248E 003F
-1D7D5 0021
-1D7DF 0021
-1D7E9 0021
-1D7F3 0021
-1D7FD 0021
-1D7D5 003F
-1D7DF 003F
-1D7E9 003F
-1D7F3 003F
-1D7FD 003F
-2466 0021
-24FB 0021
-277C 0021
-2786 0021
-2790 0021
-2466 003F
-24FB 003F
-277C 003F
-2786 003F
-2790 003F
-2077 0021
-2077 003F
-2087 0021
-2087 003F
-1D7D5 0334
-1D7DF 0334
-1D7E9 0334
-1D7F3 0334
-1D7FD 0334
0667 0021
-0667 003F
06F7 0021
-06F7 003F
-10E66 0021
-10E66 003F
-10E66 0334
07C7 0021
-07C7 003F
-136F 0021
-136F 003F
-104A7 0021
-104A7 003F
-104A7 0334
096D 0021
-096D 003F
09ED 0021
-09ED 003F
0A6D 0021
-0A6D 003F
0AED 0021
-0AED 003F
0B6D 0021
-0B6D 003F
0BED 0021
-0BED 003F
0C6D 0021
-0C6D 003F
0CED 0021
-0CED 003F
0D6D 0021
-0D6D 003F
-ABF7 0021
-ABF7 003F
-A8D7 0021
-A8D7 003F
-194D 0021
-194D 003F
-19D7 0021
-19D7 003F
-1A87 0021
-1A87 003F
-1A97 0021
-1A97 003F
+0DED 0021
0E57 0021
-0E57 003F
0ED7 0021
-0ED7 003F
0F27 0021
-0F27 003F
-0F30 0021
-0F30 003F
-1C47 0021
-1C47 003F
-A907 0021
-A907 003F
1047 0021
-1047 003F
1097 0021
-1097 003F
-1113D 0021
-1113D 003F
-1113D 0334
+136F 0021
17E7 0021
-17E7 003F
17F7 0021
-17F7 003F
-AA57 0021
-AA57 003F
+1817 0021
+194D 0021
+19D7 0021
+1A87 0021
+1A97 0021
1B57 0021
-1B57 003F
-A9D7 0021
-A9D7 003F
1BB7 0021
-1BB7 003F
-1817 0021
-1817 003F
+1C47 0021
1C57 0021
-1C57 003F
-A627 0021
-A627 003F
-110F7 0021
-110F7 003F
-110F7 0334
3027 0021
-3027 003F
+A627 0021
+A8D7 0021
+A907 0021
+A9D7 0021
+A9F7 0021
+AA57 0021
+ABF7 0021
1010D 0021
-1010D 003F
-1010D 0334
+102E7 0021
+104A7 0021
+10E66 0021
+11058 0021
+1106D 0021
+110F7 0021
+1113D 0021
+111D7 0021
+111E7 0021
+112F7 0021
+114D7 0021
+11657 0021
+116C7 0021
+118E7 0021
12405 0021
1240C 0021
12412 0021
@@ -34363,6 +39687,65 @@ A627 003F
12441 0021
12442 0021
12443 0021
+1246C 0021
+16A67 0021
+16B57 0021
+1D366 0021
+1E8CD 0021
+0037 003F
+0667 003F
+06F7 003F
+07C7 003F
+096D 003F
+09ED 003F
+0A6D 003F
+0AED 003F
+0B6D 003F
+0BED 003F
+0C6D 003F
+0CED 003F
+0D6D 003F
+0DED 003F
+0E57 003F
+0ED7 003F
+0F27 003F
+1047 003F
+1097 003F
+136F 003F
+17E7 003F
+17F7 003F
+1817 003F
+194D 003F
+19D7 003F
+1A87 003F
+1A97 003F
+1B57 003F
+1BB7 003F
+1C47 003F
+1C57 003F
+3027 003F
+A627 003F
+A8D7 003F
+A907 003F
+A9D7 003F
+A9F7 003F
+AA57 003F
+ABF7 003F
+1010D 003F
+102E7 003F
+104A7 003F
+10E66 003F
+11058 003F
+1106D 003F
+110F7 003F
+1113D 003F
+111D7 003F
+111E7 003F
+112F7 003F
+114D7 003F
+11657 003F
+116C7 003F
+118E7 003F
12405 003F
1240C 003F
12412 003F
@@ -34371,6 +39754,61 @@ A627 003F
12441 003F
12442 003F
12443 003F
+1246C 003F
+16A67 003F
+16B57 003F
+1D366 003F
+1E8CD 003F
+FF17 0021
+FF17 003F
+247A 0021
+247A 003F
+1F108 0334
+1F108 0021
+1F108 003F
+0F30 0021
+0F30 003F
+248E 0021
+248E 003F
+1D7D5 0021
+1D7DF 0021
+1D7E9 0021
+1D7F3 0021
+1D7FD 0021
+1D7D5 003F
+1D7DF 003F
+1D7E9 003F
+1D7F3 003F
+1D7FD 003F
+2466 0021
+24FB 0021
+277C 0021
+2786 0021
+2790 0021
+2466 003F
+24FB 003F
+277C 003F
+2786 003F
+2790 003F
+2077 0021
+2077 003F
+2087 0021
+2087 003F
+1010D 0334
+102E7 0334
+104A7 0334
+10E66 0334
+11058 0334
+1106D 0334
+110F7 0334
+1113D 0334
+111D7 0334
+111E7 0334
+112F7 0334
+114D7 0334
+11657 0334
+116C7 0334
+118E7 0334
12405 0334
1240C 0334
12412 0334
@@ -34379,21 +39817,16 @@ A627 003F
12441 0334
12442 0334
12443 0334
-111D7 0021
-111D7 003F
-111D7 0334
-116C7 0021
-116C7 003F
-116C7 0334
-1106D 0021
-1106D 003F
-1106D 0334
-11058 0021
-11058 003F
-11058 0334
-1D366 0021
-1D366 003F
+1246C 0334
+16A67 0334
+16B57 0334
1D366 0334
+1E8CD 0334
+1D7D5 0334
+1D7DF 0334
+1D7E9 0334
+1D7F3 0334
+1D7FD 0334
215E 0021
215E 003F
215E 0061
@@ -34405,123 +39838,59 @@ A627 003F
324E 0041
324E 0062
0037 0061
-0037 0041
-FF17 0061
-FF17 0041
-247A 0061
-1F108 0061
-248E 0061
-247A 0041
-1F108 0041
-248E 0041
-1D7D5 0061
-1D7DF 0061
-1D7E9 0061
-1D7F3 0061
-1D7FD 0061
-1D7D5 0041
-1D7DF 0041
-1D7E9 0041
-1D7F3 0041
-1D7FD 0041
-2466 0061
-24FB 0061
-277C 0061
-2786 0061
-2790 0061
-2466 0041
-24FB 0041
-277C 0041
-2786 0041
-2790 0041
-2077 0061
-2077 0041
-2087 0061
-2087 0041
0667 0061
-0667 0041
06F7 0061
-06F7 0041
-10E66 0061
-10E66 0041
07C7 0061
-07C7 0041
-136F 0061
-136F 0041
-104A7 0061
-104A7 0041
096D 0061
-096D 0041
09ED 0061
-09ED 0041
0A6D 0061
-0A6D 0041
0AED 0061
-0AED 0041
0B6D 0061
-0B6D 0041
0BED 0061
-0BED 0041
0C6D 0061
-0C6D 0041
0CED 0061
-0CED 0041
0D6D 0061
-0D6D 0041
-ABF7 0061
-ABF7 0041
-A8D7 0061
-A8D7 0041
-194D 0061
-194D 0041
-19D7 0061
-19D7 0041
-1A87 0061
-1A87 0041
-1A97 0061
-1A97 0041
+0DED 0061
0E57 0061
-0E57 0041
0ED7 0061
-0ED7 0041
0F27 0061
-0F27 0041
-0F30 0061
-0F30 0041
-1C47 0061
-1C47 0041
-A907 0061
-A907 0041
1047 0061
-1047 0041
1097 0061
-1097 0041
-1113D 0061
-1113D 0041
+136F 0061
17E7 0061
-17E7 0041
17F7 0061
-17F7 0041
-AA57 0061
-AA57 0041
+1817 0061
+194D 0061
+19D7 0061
+1A87 0061
+1A97 0061
1B57 0061
-1B57 0041
-A9D7 0061
-A9D7 0041
1BB7 0061
-1BB7 0041
-1817 0061
-1817 0041
+1C47 0061
1C57 0061
-1C57 0041
-A627 0061
-A627 0041
-110F7 0061
-110F7 0041
3027 0061
-3027 0041
+A627 0061
+A8D7 0061
+A907 0061
+A9D7 0061
+A9F7 0061
+AA57 0061
+ABF7 0061
1010D 0061
-1010D 0041
+102E7 0061
+104A7 0061
+10E66 0061
+11058 0061
+1106D 0061
+110F7 0061
+1113D 0061
+111D7 0061
+111E7 0061
+112F7 0061
+114D7 0061
+11657 0061
+116C7 0061
+118E7 0061
12405 0061
1240C 0061
12412 0061
@@ -34530,6 +39899,65 @@ A627 0041
12441 0061
12442 0061
12443 0061
+1246C 0061
+16A67 0061
+16B57 0061
+1D366 0061
+1E8CD 0061
+0037 0041
+0667 0041
+06F7 0041
+07C7 0041
+096D 0041
+09ED 0041
+0A6D 0041
+0AED 0041
+0B6D 0041
+0BED 0041
+0C6D 0041
+0CED 0041
+0D6D 0041
+0DED 0041
+0E57 0041
+0ED7 0041
+0F27 0041
+1047 0041
+1097 0041
+136F 0041
+17E7 0041
+17F7 0041
+1817 0041
+194D 0041
+19D7 0041
+1A87 0041
+1A97 0041
+1B57 0041
+1BB7 0041
+1C47 0041
+1C57 0041
+3027 0041
+A627 0041
+A8D7 0041
+A907 0041
+A9D7 0041
+A9F7 0041
+AA57 0041
+ABF7 0041
+1010D 0041
+102E7 0041
+104A7 0041
+10E66 0041
+11058 0041
+1106D 0041
+110F7 0041
+1113D 0041
+111D7 0041
+111E7 0041
+112F7 0041
+114D7 0041
+11657 0041
+116C7 0041
+118E7 0041
12405 0041
1240C 0041
12412 0041
@@ -34538,39 +39966,49 @@ A627 0041
12441 0041
12442 0041
12443 0041
-111D7 0061
-111D7 0041
-116C7 0061
-116C7 0041
-1106D 0061
-1106D 0041
-11058 0061
-11058 0041
-1D366 0061
+1246C 0041
+16A67 0041
+16B57 0041
1D366 0041
+1E8CD 0041
+FF17 0061
+FF17 0041
+247A 0061
+1F108 0061
+248E 0061
+0F30 0061
+247A 0041
+1F108 0041
+248E 0041
+0F30 0041
+1D7D5 0061
+1D7DF 0061
+1D7E9 0061
+1D7F3 0061
+1D7FD 0061
+1D7D5 0041
+1D7DF 0041
+1D7E9 0041
+1D7F3 0041
+1D7FD 0041
+2466 0061
+24FB 0061
+277C 0061
+2786 0061
+2790 0061
+2466 0041
+24FB 0041
+277C 0041
+2786 0041
+2790 0041
+2077 0061
+2077 0041
+2087 0061
+2087 0041
0037 0062
-FF17 0062
-247A 0062
-1F108 0062
-248E 0062
-1D7D5 0062
-1D7DF 0062
-1D7E9 0062
-1D7F3 0062
-1D7FD 0062
-2466 0062
-24FB 0062
-277C 0062
-2786 0062
-2790 0062
-2077 0062
-2087 0062
0667 0062
06F7 0062
-10E66 0062
07C7 0062
-136F 0062
-104A7 0062
096D 0062
09ED 0062
0A6D 0062
@@ -34580,33 +40018,47 @@ FF17 0062
0C6D 0062
0CED 0062
0D6D 0062
-ABF7 0062
-A8D7 0062
-194D 0062
-19D7 0062
-1A87 0062
-1A97 0062
+0DED 0062
0E57 0062
0ED7 0062
0F27 0062
-0F30 0062
-1C47 0062
-A907 0062
1047 0062
1097 0062
-1113D 0062
+136F 0062
17E7 0062
17F7 0062
-AA57 0062
+1817 0062
+194D 0062
+19D7 0062
+1A87 0062
+1A97 0062
1B57 0062
-A9D7 0062
1BB7 0062
-1817 0062
+1C47 0062
1C57 0062
-A627 0062
-110F7 0062
3027 0062
+A627 0062
+A8D7 0062
+A907 0062
+A9D7 0062
+A9F7 0062
+AA57 0062
+ABF7 0062
1010D 0062
+102E7 0062
+104A7 0062
+10E66 0062
+11058 0062
+1106D 0062
+110F7 0062
+1113D 0062
+111D7 0062
+111E7 0062
+112F7 0062
+114D7 0062
+11657 0062
+116C7 0062
+118E7 0062
12405 0062
1240C 0062
12412 0062
@@ -34615,11 +40067,28 @@ A627 0062
12441 0062
12442 0062
12443 0062
-111D7 0062
-116C7 0062
-1106D 0062
-11058 0062
+1246C 0062
+16A67 0062
+16B57 0062
1D366 0062
+1E8CD 0062
+FF17 0062
+247A 0062
+1F108 0062
+248E 0062
+0F30 0062
+1D7D5 0062
+1D7DF 0062
+1D7E9 0062
+1D7F3 0062
+1D7FD 0062
+2466 0062
+24FB 0062
+277C 0062
+2786 0062
+2790 0062
+2077 0062
+2087 0062
33E6 0021
33E6 003F
33E6 0061
@@ -34636,134 +40105,59 @@ A627 0062
335F 0041
335F 0062
0038 0021
-0038 003F
-FF18 0021
-FF18 003F
-247B 0021
-247B 003F
-1F109 0334
-1F109 0021
-1F109 003F
-248F 0021
-248F 003F
-1D7D6 0021
-1D7E0 0021
-1D7EA 0021
-1D7F4 0021
-1D7FE 0021
-1D7D6 003F
-1D7E0 003F
-1D7EA 003F
-1D7F4 003F
-1D7FE 003F
-2467 0021
-24FC 0021
-277D 0021
-2787 0021
-2791 0021
-2467 003F
-24FC 003F
-277D 003F
-2787 003F
-2791 003F
-2078 0021
-2078 003F
-2088 0021
-2088 003F
-1D7D6 0334
-1D7E0 0334
-1D7EA 0334
-1D7F4 0334
-1D7FE 0334
0668 0021
-0668 003F
06F8 0021
-06F8 003F
-10E67 0021
-10E67 003F
-10E67 0334
07C8 0021
-07C8 003F
-1370 0021
-1370 003F
-104A8 0021
-104A8 003F
-104A8 0334
096E 0021
-096E 003F
09EE 0021
-09EE 003F
0A6E 0021
-0A6E 003F
0AEE 0021
-0AEE 003F
0B6E 0021
-0B6E 003F
0BEE 0021
-0BEE 003F
0C6E 0021
-0C6E 003F
0CEE 0021
-0CEE 003F
0D6E 0021
-0D6E 003F
-ABF8 0021
-ABF8 003F
-A8D8 0021
-A8D8 003F
-194E 0021
-194E 003F
-19D8 0021
-19D8 003F
-1A88 0021
-1A88 003F
-1A98 0021
-1A98 003F
+0DEE 0021
0E58 0021
-0E58 003F
0ED8 0021
-0ED8 003F
0F28 0021
-0F28 003F
-0F31 0021
-0F31 003F
-1C48 0021
-1C48 003F
-A908 0021
-A908 003F
1048 0021
-1048 003F
1098 0021
-1098 003F
-1113E 0021
-1113E 003F
-1113E 0334
+1370 0021
17E8 0021
-17E8 003F
17F8 0021
-17F8 003F
-AA58 0021
-AA58 003F
+1818 0021
+194E 0021
+19D8 0021
+1A88 0021
+1A98 0021
1B58 0021
-1B58 003F
-A9D8 0021
-A9D8 003F
1BB8 0021
-1BB8 003F
-1818 0021
-1818 003F
+1C48 0021
1C58 0021
-1C58 003F
-A628 0021
-A628 003F
-110F8 0021
-110F8 003F
-110F8 0334
3028 0021
-3028 003F
+A628 0021
+A8D8 0021
+A908 0021
+A9D8 0021
+A9F8 0021
+AA58 0021
+ABF8 0021
1010E 0021
-1010E 003F
-1010E 0334
+102E8 0021
+104A8 0021
+10E67 0021
+11059 0021
+1106E 0021
+110F8 0021
+1113E 0021
+111D8 0021
+111E8 0021
+112F8 0021
+114D8 0021
+11658 0021
+116C8 0021
+118E8 0021
12406 0021
1240D 0021
12413 0021
@@ -34771,6 +40165,65 @@ A628 003F
1242A 0021
12444 0021
12445 0021
+1246D 0021
+16A68 0021
+16B58 0021
+1D367 0021
+1E8CE 0021
+0038 003F
+0668 003F
+06F8 003F
+07C8 003F
+096E 003F
+09EE 003F
+0A6E 003F
+0AEE 003F
+0B6E 003F
+0BEE 003F
+0C6E 003F
+0CEE 003F
+0D6E 003F
+0DEE 003F
+0E58 003F
+0ED8 003F
+0F28 003F
+1048 003F
+1098 003F
+1370 003F
+17E8 003F
+17F8 003F
+1818 003F
+194E 003F
+19D8 003F
+1A88 003F
+1A98 003F
+1B58 003F
+1BB8 003F
+1C48 003F
+1C58 003F
+3028 003F
+A628 003F
+A8D8 003F
+A908 003F
+A9D8 003F
+A9F8 003F
+AA58 003F
+ABF8 003F
+1010E 003F
+102E8 003F
+104A8 003F
+10E67 003F
+11059 003F
+1106E 003F
+110F8 003F
+1113E 003F
+111D8 003F
+111E8 003F
+112F8 003F
+114D8 003F
+11658 003F
+116C8 003F
+118E8 003F
12406 003F
1240D 003F
12413 003F
@@ -34778,6 +40231,61 @@ A628 003F
1242A 003F
12444 003F
12445 003F
+1246D 003F
+16A68 003F
+16B58 003F
+1D367 003F
+1E8CE 003F
+FF18 0021
+FF18 003F
+247B 0021
+247B 003F
+1F109 0334
+1F109 0021
+1F109 003F
+0F31 0021
+0F31 003F
+248F 0021
+248F 003F
+1D7D6 0021
+1D7E0 0021
+1D7EA 0021
+1D7F4 0021
+1D7FE 0021
+1D7D6 003F
+1D7E0 003F
+1D7EA 003F
+1D7F4 003F
+1D7FE 003F
+2467 0021
+24FC 0021
+277D 0021
+2787 0021
+2791 0021
+2467 003F
+24FC 003F
+277D 003F
+2787 003F
+2791 003F
+2078 0021
+2078 003F
+2088 0021
+2088 003F
+1010E 0334
+102E8 0334
+104A8 0334
+10E67 0334
+11059 0334
+1106E 0334
+110F8 0334
+1113E 0334
+111D8 0334
+111E8 0334
+112F8 0334
+114D8 0334
+11658 0334
+116C8 0334
+118E8 0334
12406 0334
1240D 0334
12413 0334
@@ -34785,144 +40293,75 @@ A628 003F
1242A 0334
12444 0334
12445 0334
-111D8 0021
-111D8 003F
-111D8 0334
-116C8 0021
-116C8 003F
-116C8 0334
-1106E 0021
-1106E 003F
-1106E 0334
-11059 0021
-11059 003F
-11059 0334
-1D367 0021
-1D367 003F
+1246D 0334
+16A68 0334
+16B58 0334
1D367 0334
+1E8CE 0334
+1D7D6 0334
+1D7E0 0334
+1D7EA 0334
+1D7F4 0334
+1D7FE 0334
324F 0021
324F 003F
324F 0061
324F 0041
324F 0062
0038 0061
-0038 0041
-FF18 0061
-FF18 0041
-247B 0061
-1F109 0061
-248F 0061
-247B 0041
-1F109 0041
-248F 0041
-1D7D6 0061
-1D7E0 0061
-1D7EA 0061
-1D7F4 0061
-1D7FE 0061
-1D7D6 0041
-1D7E0 0041
-1D7EA 0041
-1D7F4 0041
-1D7FE 0041
-2467 0061
-24FC 0061
-277D 0061
-2787 0061
-2791 0061
-2467 0041
-24FC 0041
-277D 0041
-2787 0041
-2791 0041
-2078 0061
-2078 0041
-2088 0061
-2088 0041
0668 0061
-0668 0041
06F8 0061
-06F8 0041
-10E67 0061
-10E67 0041
07C8 0061
-07C8 0041
-1370 0061
-1370 0041
-104A8 0061
-104A8 0041
096E 0061
-096E 0041
09EE 0061
-09EE 0041
0A6E 0061
-0A6E 0041
0AEE 0061
-0AEE 0041
0B6E 0061
-0B6E 0041
0BEE 0061
-0BEE 0041
0C6E 0061
-0C6E 0041
0CEE 0061
-0CEE 0041
0D6E 0061
-0D6E 0041
-ABF8 0061
-ABF8 0041
-A8D8 0061
-A8D8 0041
-194E 0061
-194E 0041
-19D8 0061
-19D8 0041
-1A88 0061
-1A88 0041
-1A98 0061
-1A98 0041
+0DEE 0061
0E58 0061
-0E58 0041
0ED8 0061
-0ED8 0041
0F28 0061
-0F28 0041
-0F31 0061
-0F31 0041
-1C48 0061
-1C48 0041
-A908 0061
-A908 0041
1048 0061
-1048 0041
1098 0061
-1098 0041
-1113E 0061
-1113E 0041
+1370 0061
17E8 0061
-17E8 0041
17F8 0061
-17F8 0041
-AA58 0061
-AA58 0041
+1818 0061
+194E 0061
+19D8 0061
+1A88 0061
+1A98 0061
1B58 0061
-1B58 0041
-A9D8 0061
-A9D8 0041
1BB8 0061
-1BB8 0041
-1818 0061
-1818 0041
+1C48 0061
1C58 0061
-1C58 0041
-A628 0061
-A628 0041
-110F8 0061
-110F8 0041
3028 0061
-3028 0041
+A628 0061
+A8D8 0061
+A908 0061
+A9D8 0061
+A9F8 0061
+AA58 0061
+ABF8 0061
1010E 0061
-1010E 0041
+102E8 0061
+104A8 0061
+10E67 0061
+11059 0061
+1106E 0061
+110F8 0061
+1113E 0061
+111D8 0061
+111E8 0061
+112F8 0061
+114D8 0061
+11658 0061
+116C8 0061
+118E8 0061
12406 0061
1240D 0061
12413 0061
@@ -34930,6 +40369,65 @@ A628 0041
1242A 0061
12444 0061
12445 0061
+1246D 0061
+16A68 0061
+16B58 0061
+1D367 0061
+1E8CE 0061
+0038 0041
+0668 0041
+06F8 0041
+07C8 0041
+096E 0041
+09EE 0041
+0A6E 0041
+0AEE 0041
+0B6E 0041
+0BEE 0041
+0C6E 0041
+0CEE 0041
+0D6E 0041
+0DEE 0041
+0E58 0041
+0ED8 0041
+0F28 0041
+1048 0041
+1098 0041
+1370 0041
+17E8 0041
+17F8 0041
+1818 0041
+194E 0041
+19D8 0041
+1A88 0041
+1A98 0041
+1B58 0041
+1BB8 0041
+1C48 0041
+1C58 0041
+3028 0041
+A628 0041
+A8D8 0041
+A908 0041
+A9D8 0041
+A9F8 0041
+AA58 0041
+ABF8 0041
+1010E 0041
+102E8 0041
+104A8 0041
+10E67 0041
+11059 0041
+1106E 0041
+110F8 0041
+1113E 0041
+111D8 0041
+111E8 0041
+112F8 0041
+114D8 0041
+11658 0041
+116C8 0041
+118E8 0041
12406 0041
1240D 0041
12413 0041
@@ -34937,39 +40435,49 @@ A628 0041
1242A 0041
12444 0041
12445 0041
-111D8 0061
-111D8 0041
-116C8 0061
-116C8 0041
-1106E 0061
-1106E 0041
-11059 0061
-11059 0041
-1D367 0061
+1246D 0041
+16A68 0041
+16B58 0041
1D367 0041
+1E8CE 0041
+FF18 0061
+FF18 0041
+247B 0061
+1F109 0061
+248F 0061
+0F31 0061
+247B 0041
+1F109 0041
+248F 0041
+0F31 0041
+1D7D6 0061
+1D7E0 0061
+1D7EA 0061
+1D7F4 0061
+1D7FE 0061
+1D7D6 0041
+1D7E0 0041
+1D7EA 0041
+1D7F4 0041
+1D7FE 0041
+2467 0061
+24FC 0061
+277D 0061
+2787 0061
+2791 0061
+2467 0041
+24FC 0041
+277D 0041
+2787 0041
+2791 0041
+2078 0061
+2078 0041
+2088 0061
+2088 0041
0038 0062
-FF18 0062
-247B 0062
-1F109 0062
-248F 0062
-1D7D6 0062
-1D7E0 0062
-1D7EA 0062
-1D7F4 0062
-1D7FE 0062
-2467 0062
-24FC 0062
-277D 0062
-2787 0062
-2791 0062
-2078 0062
-2088 0062
0668 0062
06F8 0062
-10E67 0062
07C8 0062
-1370 0062
-104A8 0062
096E 0062
09EE 0062
0A6E 0062
@@ -34979,33 +40487,47 @@ FF18 0062
0C6E 0062
0CEE 0062
0D6E 0062
-ABF8 0062
-A8D8 0062
-194E 0062
-19D8 0062
-1A88 0062
-1A98 0062
+0DEE 0062
0E58 0062
0ED8 0062
0F28 0062
-0F31 0062
-1C48 0062
-A908 0062
1048 0062
1098 0062
-1113E 0062
+1370 0062
17E8 0062
17F8 0062
-AA58 0062
+1818 0062
+194E 0062
+19D8 0062
+1A88 0062
+1A98 0062
1B58 0062
-A9D8 0062
1BB8 0062
-1818 0062
+1C48 0062
1C58 0062
-A628 0062
-110F8 0062
3028 0062
+A628 0062
+A8D8 0062
+A908 0062
+A9D8 0062
+A9F8 0062
+AA58 0062
+ABF8 0062
1010E 0062
+102E8 0062
+104A8 0062
+10E67 0062
+11059 0062
+1106E 0062
+110F8 0062
+1113E 0062
+111D8 0062
+111E8 0062
+112F8 0062
+114D8 0062
+11658 0062
+116C8 0062
+118E8 0062
12406 0062
1240D 0062
12413 0062
@@ -35013,11 +40535,28 @@ A628 0062
1242A 0062
12444 0062
12445 0062
-111D8 0062
-116C8 0062
-1106E 0062
-11059 0062
+1246D 0062
+16A68 0062
+16B58 0062
1D367 0062
+1E8CE 0062
+FF18 0062
+247B 0062
+1F109 0062
+248F 0062
+0F31 0062
+1D7D6 0062
+1D7E0 0062
+1D7EA 0062
+1D7F4 0062
+1D7FE 0062
+2467 0062
+24FC 0062
+277D 0062
+2787 0062
+2791 0062
+2078 0062
+2088 0062
33E7 0021
33E7 003F
33E7 0061
@@ -35034,134 +40573,59 @@ A628 0062
3360 0041
3360 0062
0039 0021
-0039 003F
-FF19 0021
-FF19 003F
-247C 0021
-247C 003F
-1F10A 0334
-1F10A 0021
-1F10A 003F
-2490 0021
-2490 003F
-1D7D7 0021
-1D7E1 0021
-1D7EB 0021
-1D7F5 0021
-1D7FF 0021
-1D7D7 003F
-1D7E1 003F
-1D7EB 003F
-1D7F5 003F
-1D7FF 003F
-2468 0021
-24FD 0021
-277E 0021
-2788 0021
-2792 0021
-2468 003F
-24FD 003F
-277E 003F
-2788 003F
-2792 003F
-2079 0021
-2079 003F
-2089 0021
-2089 003F
-1D7D7 0334
-1D7E1 0334
-1D7EB 0334
-1D7F5 0334
-1D7FF 0334
0669 0021
-0669 003F
06F9 0021
-06F9 003F
-10E68 0021
-10E68 003F
-10E68 0334
07C9 0021
-07C9 003F
-1371 0021
-1371 003F
-104A9 0021
-104A9 003F
-104A9 0334
096F 0021
-096F 003F
09EF 0021
-09EF 003F
0A6F 0021
-0A6F 003F
0AEF 0021
-0AEF 003F
0B6F 0021
-0B6F 003F
0BEF 0021
-0BEF 003F
0C6F 0021
-0C6F 003F
0CEF 0021
-0CEF 003F
0D6F 0021
-0D6F 003F
-ABF9 0021
-ABF9 003F
-A8D9 0021
-A8D9 003F
-194F 0021
-194F 003F
-19D9 0021
-19D9 003F
-1A89 0021
-1A89 003F
-1A99 0021
-1A99 003F
+0DEF 0021
0E59 0021
-0E59 003F
0ED9 0021
-0ED9 003F
0F29 0021
-0F29 003F
-0F32 0021
-0F32 003F
-1C49 0021
-1C49 003F
-A909 0021
-A909 003F
1049 0021
-1049 003F
1099 0021
-1099 003F
-1113F 0021
-1113F 003F
-1113F 0334
+1371 0021
17E9 0021
-17E9 003F
17F9 0021
-17F9 003F
-AA59 0021
-AA59 003F
+1819 0021
+194F 0021
+19D9 0021
+1A89 0021
+1A99 0021
1B59 0021
-1B59 003F
-A9D9 0021
-A9D9 003F
1BB9 0021
-1BB9 003F
-1819 0021
-1819 003F
+1C49 0021
1C59 0021
-1C59 003F
-A629 0021
-A629 003F
-110F9 0021
-110F9 003F
-110F9 0334
3029 0021
-3029 003F
+A629 0021
+A8D9 0021
+A909 0021
+A9D9 0021
+A9F9 0021
+AA59 0021
+ABF9 0021
1010F 0021
-1010F 003F
-1010F 0334
+102E9 0021
+104A9 0021
+10E68 0021
+1105A 0021
+1106F 0021
+110F9 0021
+1113F 0021
+111D9 0021
+111E9 0021
+112F9 0021
+114D9 0021
+11659 0021
+116C9 0021
+118E9 0021
12407 0021
1240E 0021
12414 0021
@@ -35171,6 +40635,65 @@ A629 003F
12447 0021
12448 0021
12449 0021
+1246E 0021
+16A69 0021
+16B59 0021
+1D368 0021
+1E8CF 0021
+0039 003F
+0669 003F
+06F9 003F
+07C9 003F
+096F 003F
+09EF 003F
+0A6F 003F
+0AEF 003F
+0B6F 003F
+0BEF 003F
+0C6F 003F
+0CEF 003F
+0D6F 003F
+0DEF 003F
+0E59 003F
+0ED9 003F
+0F29 003F
+1049 003F
+1099 003F
+1371 003F
+17E9 003F
+17F9 003F
+1819 003F
+194F 003F
+19D9 003F
+1A89 003F
+1A99 003F
+1B59 003F
+1BB9 003F
+1C49 003F
+1C59 003F
+3029 003F
+A629 003F
+A8D9 003F
+A909 003F
+A9D9 003F
+A9F9 003F
+AA59 003F
+ABF9 003F
+1010F 003F
+102E9 003F
+104A9 003F
+10E68 003F
+1105A 003F
+1106F 003F
+110F9 003F
+1113F 003F
+111D9 003F
+111E9 003F
+112F9 003F
+114D9 003F
+11659 003F
+116C9 003F
+118E9 003F
12407 003F
1240E 003F
12414 003F
@@ -35180,6 +40703,61 @@ A629 003F
12447 003F
12448 003F
12449 003F
+1246E 003F
+16A69 003F
+16B59 003F
+1D368 003F
+1E8CF 003F
+FF19 0021
+FF19 003F
+247C 0021
+247C 003F
+1F10A 0334
+1F10A 0021
+1F10A 003F
+0F32 0021
+0F32 003F
+2490 0021
+2490 003F
+1D7D7 0021
+1D7E1 0021
+1D7EB 0021
+1D7F5 0021
+1D7FF 0021
+1D7D7 003F
+1D7E1 003F
+1D7EB 003F
+1D7F5 003F
+1D7FF 003F
+2468 0021
+24FD 0021
+277E 0021
+2788 0021
+2792 0021
+2468 003F
+24FD 003F
+277E 003F
+2788 003F
+2792 003F
+2079 0021
+2079 003F
+2089 0021
+2089 003F
+1010F 0334
+102E9 0334
+104A9 0334
+10E68 0334
+1105A 0334
+1106F 0334
+110F9 0334
+1113F 0334
+111D9 0334
+111E9 0334
+112F9 0334
+114D9 0334
+11659 0334
+116C9 0334
+118E9 0334
12407 0334
1240E 0334
12414 0334
@@ -35189,139 +40767,70 @@ A629 003F
12447 0334
12448 0334
12449 0334
-111D9 0021
-111D9 003F
-111D9 0334
-116C9 0021
-116C9 003F
-116C9 0334
-1106F 0021
-1106F 003F
-1106F 0334
-1105A 0021
-1105A 003F
-1105A 0334
-1D368 0021
-1D368 003F
+1246E 0334
+16A69 0334
+16B59 0334
1D368 0334
+1E8CF 0334
+1D7D7 0334
+1D7E1 0334
+1D7EB 0334
+1D7F5 0334
+1D7FF 0334
0039 0061
-0039 0041
-FF19 0061
-FF19 0041
-247C 0061
-1F10A 0061
-2490 0061
-247C 0041
-1F10A 0041
-2490 0041
-1D7D7 0061
-1D7E1 0061
-1D7EB 0061
-1D7F5 0061
-1D7FF 0061
-1D7D7 0041
-1D7E1 0041
-1D7EB 0041
-1D7F5 0041
-1D7FF 0041
-2468 0061
-24FD 0061
-277E 0061
-2788 0061
-2792 0061
-2468 0041
-24FD 0041
-277E 0041
-2788 0041
-2792 0041
-2079 0061
-2079 0041
-2089 0061
-2089 0041
0669 0061
-0669 0041
06F9 0061
-06F9 0041
-10E68 0061
-10E68 0041
07C9 0061
-07C9 0041
-1371 0061
-1371 0041
-104A9 0061
-104A9 0041
096F 0061
-096F 0041
09EF 0061
-09EF 0041
0A6F 0061
-0A6F 0041
0AEF 0061
-0AEF 0041
0B6F 0061
-0B6F 0041
0BEF 0061
-0BEF 0041
0C6F 0061
-0C6F 0041
0CEF 0061
-0CEF 0041
0D6F 0061
-0D6F 0041
-ABF9 0061
-ABF9 0041
-A8D9 0061
-A8D9 0041
-194F 0061
-194F 0041
-19D9 0061
-19D9 0041
-1A89 0061
-1A89 0041
-1A99 0061
-1A99 0041
+0DEF 0061
0E59 0061
-0E59 0041
0ED9 0061
-0ED9 0041
0F29 0061
-0F29 0041
-0F32 0061
-0F32 0041
-1C49 0061
-1C49 0041
-A909 0061
-A909 0041
1049 0061
-1049 0041
1099 0061
-1099 0041
-1113F 0061
-1113F 0041
+1371 0061
17E9 0061
-17E9 0041
17F9 0061
-17F9 0041
-AA59 0061
-AA59 0041
+1819 0061
+194F 0061
+19D9 0061
+1A89 0061
+1A99 0061
1B59 0061
-1B59 0041
-A9D9 0061
-A9D9 0041
1BB9 0061
-1BB9 0041
-1819 0061
-1819 0041
+1C49 0061
1C59 0061
-1C59 0041
-A629 0061
-A629 0041
-110F9 0061
-110F9 0041
3029 0061
-3029 0041
+A629 0061
+A8D9 0061
+A909 0061
+A9D9 0061
+A9F9 0061
+AA59 0061
+ABF9 0061
1010F 0061
-1010F 0041
+102E9 0061
+104A9 0061
+10E68 0061
+1105A 0061
+1106F 0061
+110F9 0061
+1113F 0061
+111D9 0061
+111E9 0061
+112F9 0061
+114D9 0061
+11659 0061
+116C9 0061
+118E9 0061
12407 0061
1240E 0061
12414 0061
@@ -35331,6 +40840,65 @@ A629 0041
12447 0061
12448 0061
12449 0061
+1246E 0061
+16A69 0061
+16B59 0061
+1D368 0061
+1E8CF 0061
+0039 0041
+0669 0041
+06F9 0041
+07C9 0041
+096F 0041
+09EF 0041
+0A6F 0041
+0AEF 0041
+0B6F 0041
+0BEF 0041
+0C6F 0041
+0CEF 0041
+0D6F 0041
+0DEF 0041
+0E59 0041
+0ED9 0041
+0F29 0041
+1049 0041
+1099 0041
+1371 0041
+17E9 0041
+17F9 0041
+1819 0041
+194F 0041
+19D9 0041
+1A89 0041
+1A99 0041
+1B59 0041
+1BB9 0041
+1C49 0041
+1C59 0041
+3029 0041
+A629 0041
+A8D9 0041
+A909 0041
+A9D9 0041
+A9F9 0041
+AA59 0041
+ABF9 0041
+1010F 0041
+102E9 0041
+104A9 0041
+10E68 0041
+1105A 0041
+1106F 0041
+110F9 0041
+1113F 0041
+111D9 0041
+111E9 0041
+112F9 0041
+114D9 0041
+11659 0041
+116C9 0041
+118E9 0041
12407 0041
1240E 0041
12414 0041
@@ -35340,39 +40908,49 @@ A629 0041
12447 0041
12448 0041
12449 0041
-111D9 0061
-111D9 0041
-116C9 0061
-116C9 0041
-1106F 0061
-1106F 0041
-1105A 0061
-1105A 0041
-1D368 0061
+1246E 0041
+16A69 0041
+16B59 0041
1D368 0041
+1E8CF 0041
+FF19 0061
+FF19 0041
+247C 0061
+1F10A 0061
+2490 0061
+0F32 0061
+247C 0041
+1F10A 0041
+2490 0041
+0F32 0041
+1D7D7 0061
+1D7E1 0061
+1D7EB 0061
+1D7F5 0061
+1D7FF 0061
+1D7D7 0041
+1D7E1 0041
+1D7EB 0041
+1D7F5 0041
+1D7FF 0041
+2468 0061
+24FD 0061
+277E 0061
+2788 0061
+2792 0061
+2468 0041
+24FD 0041
+277E 0041
+2788 0041
+2792 0041
+2079 0061
+2079 0041
+2089 0061
+2089 0041
0039 0062
-FF19 0062
-247C 0062
-1F10A 0062
-2490 0062
-1D7D7 0062
-1D7E1 0062
-1D7EB 0062
-1D7F5 0062
-1D7FF 0062
-2468 0062
-24FD 0062
-277E 0062
-2788 0062
-2792 0062
-2079 0062
-2089 0062
0669 0062
06F9 0062
-10E68 0062
07C9 0062
-1371 0062
-104A9 0062
096F 0062
09EF 0062
0A6F 0062
@@ -35382,33 +40960,47 @@ FF19 0062
0C6F 0062
0CEF 0062
0D6F 0062
-ABF9 0062
-A8D9 0062
-194F 0062
-19D9 0062
-1A89 0062
-1A99 0062
+0DEF 0062
0E59 0062
0ED9 0062
0F29 0062
-0F32 0062
-1C49 0062
-A909 0062
1049 0062
1099 0062
-1113F 0062
+1371 0062
17E9 0062
17F9 0062
-AA59 0062
+1819 0062
+194F 0062
+19D9 0062
+1A89 0062
+1A99 0062
1B59 0062
-A9D9 0062
1BB9 0062
-1819 0062
+1C49 0062
1C59 0062
-A629 0062
-110F9 0062
3029 0062
+A629 0062
+A8D9 0062
+A909 0062
+A9D9 0062
+A9F9 0062
+AA59 0062
+ABF9 0062
1010F 0062
+102E9 0062
+104A9 0062
+10E68 0062
+1105A 0062
+1106F 0062
+110F9 0062
+1113F 0062
+111D9 0062
+111E9 0062
+112F9 0062
+114D9 0062
+11659 0062
+116C9 0062
+118E9 0062
12407 0062
1240E 0062
12414 0062
@@ -35418,11 +41010,28 @@ A629 0062
12447 0062
12448 0062
12449 0062
-111D9 0062
-116C9 0062
-1106F 0062
-1105A 0062
+1246E 0062
+16A69 0062
+16B59 0062
1D368 0062
+1E8CF 0062
+FF19 0062
+247C 0062
+1F10A 0062
+2490 0062
+0F32 0062
+1D7D7 0062
+1D7E1 0062
+1D7EB 0062
+1D7F5 0062
+1D7FF 0062
+2468 0062
+24FD 0062
+277E 0062
+2788 0062
+2792 0062
+2079 0062
+2089 0062
33E8 0021
33E8 003F
33E8 0061
@@ -35444,7 +41053,6 @@ A629 0062
000C 0061
000D 0061
0085 0061
-180E 0061
2028 0061
2029 0061
0020 0061
@@ -35498,6 +41106,7 @@ FE58 0061
2E3B 0061
2053 0061
2E17 0061
+2E40 0061
301C 0061
3030 0061
30A0 0061
@@ -35509,6 +41118,7 @@ FE50 0061
FF0C 0061
2E34 0061
2E32 0061
+2E41 0061
055D 0061
060C 0061
060D 0061
@@ -35628,9 +41238,12 @@ FF0E 0061
2CF9 0061
2CFE 0061
2E30 0061
+2E3C 0061
A4FF 0061
A60E 0061
A6F3 0061
+16AF5 0061
+1BC9F 0061
3002 0061
FE12 0061
FF61 0061
@@ -35676,6 +41289,14 @@ ABEB 0061
11142 0061
111C5 0061
111C6 0061
+11238 0061
+11239 0061
+115C2 0061
+115C3 0061
+11641 0061
+11642 0061
+16A6E 0061
+16A6F 0061
1C7E 0061
1C7F 0061
0700 0061
@@ -35723,6 +41344,7 @@ A95F 0061
2E2B 0061
2E2C 0061
2E2D 0061
+2E3D 0061
2CFC 0061
2CFF 0061
2E19 0061
@@ -35737,6 +41359,7 @@ A95F 0061
12471 0061
12472 0061
12473 0061
+12474 0061
0027 0061
FF07 0061
2018 0061
@@ -35751,6 +41374,7 @@ FF02 0061
201D 0061
201E 0061
201F 0061
+2E42 0061
301D 0061
301E 0061
301F 0061
@@ -35790,6 +41414,10 @@ FF5D 0061
169C 0061
2045 0061
2046 0061
+2308 0061
+2309 0061
+230A 0061
+230B 0061
29FC 0061
29FD 0061
2983 0061
@@ -35903,6 +41531,7 @@ FE18 0061
FD3E 0061
FD3F 0061
2016 0061
+2E3E 0061
29D8 0061
29D9 0061
29DA 0061
@@ -35911,6 +41540,7 @@ FD3F 0061
2E39 0061
00B6 0061
204B 0061
+2E3F 0061
0040 0061
FE6B 0061
FF20 0061
@@ -36077,6 +41707,7 @@ A92E 0061
A9DE 0061
A9DF 0061
AA5C 0061
+1056F 0061
11049 0061
1104A 0061
1104B 0061
@@ -36090,9 +41721,42 @@ AA5C 0061
10A55 0061
10A58 0061
10B39 0061
+10AF0 0061
+10AF1 0061
+10AF2 0061
+10AF3 0061
+10AF4 0061
+10AF5 0061
+10AF6 0061
+10B99 0061
+10B9A 0061
+10B9B 0061
+10B9C 0061
110BB 0061
110BC 0061
+11174 0061
+11175 0061
+111CD 0061
111C7 0061
+1123A 0061
+1123B 0061
+1123C 0061
+1123D 0061
+114C6 0061
+115C1 0061
+115C4 0061
+115C5 0061
+115C6 0061
+115C7 0061
+115C8 0061
+115C9 0061
+11643 0061
+16B37 0061
+16B38 0061
+16B39 0061
+16B3A 0061
+16B3B 0061
+16B44 0061
10A7F 0061
0000 0061
0001 0061
@@ -36196,6 +41860,7 @@ AA5C 0061
0602 0061
0603 0061
0604 0061
+0605 0061
0610 0061
0611 0061
0612 0061
@@ -36207,6 +41872,7 @@ AA5C 0061
0618 0061
0619 0061
061A 0061
+061C 0061
0640 0061
06D6 0061
06D7 0061
@@ -36264,6 +41930,7 @@ AA5C 0061
180B 0061
180C 0061
180D 0061
+180E 0061
1A7F 0061
1B6B 0061
1B6C 0061
@@ -36300,6 +41967,8 @@ AA5C 0061
1CE7 0061
1CE8 0061
1CF4 0061
+1CF8 0061
+1CF9 0061
200B 0061
200C 0061
200D 0061
@@ -36315,6 +41984,10 @@ AA5C 0061
2062 0061
2063 0061
2064 0061
+2066 0061
+2067 0061
+2068 0061
+2069 0061
206A 0061
206B 0061
206C 0061
@@ -36364,12 +42037,34 @@ FE23 0061
FE24 0061
FE25 0061
FE26 0061
+FE28 0061
+FE2A 0061
+FE2B 0061
+FE2C 0061
+FE2D 0061
FE73 0061
FEFF 0061
FFF9 0061
FFFA 0061
FFFB 0061
+102E0 0061
110BD 0061
+11366 0061
+11367 0061
+11368 0061
+11369 0061
+1136A 0061
+1136B 0061
+1136C 0061
+11370 0061
+11371 0061
+11372 0061
+11373 0061
+11374 0061
+1BCA0 0061
+1BCA1 0061
+1BCA2 0061
+1BCA3 0061
1D165 0061
1D166 0061
1D167 0061
@@ -36411,6 +42106,13 @@ FFFB 0061
1D242 0061
1D243 0061
1D244 0061
+1E8D0 0061
+1E8D1 0061
+1E8D2 0061
+1E8D3 0061
+1E8D4 0061
+1E8D5 0061
+1E8D6 0061
E0001 0061
E0020 0061
E0021 0061
@@ -36790,7 +42492,6 @@ FF41 003F
000C 0041
000D 0041
0085 0041
-180E 0041
2028 0041
2029 0041
0020 0041
@@ -36844,6 +42545,7 @@ FE58 0041
2E3B 0041
2053 0041
2E17 0041
+2E40 0041
301C 0041
3030 0041
30A0 0041
@@ -36855,6 +42557,7 @@ FE50 0041
FF0C 0041
2E34 0041
2E32 0041
+2E41 0041
055D 0041
060C 0041
060D 0041
@@ -36974,9 +42677,12 @@ FF0E 0041
2CF9 0041
2CFE 0041
2E30 0041
+2E3C 0041
A4FF 0041
A60E 0041
A6F3 0041
+16AF5 0041
+1BC9F 0041
3002 0041
FE12 0041
FF61 0041
@@ -37022,6 +42728,14 @@ ABEB 0041
11142 0041
111C5 0041
111C6 0041
+11238 0041
+11239 0041
+115C2 0041
+115C3 0041
+11641 0041
+11642 0041
+16A6E 0041
+16A6F 0041
1C7E 0041
1C7F 0041
0700 0041
@@ -37069,6 +42783,7 @@ A95F 0041
2E2B 0041
2E2C 0041
2E2D 0041
+2E3D 0041
2CFC 0041
2CFF 0041
2E19 0041
@@ -37083,6 +42798,7 @@ A95F 0041
12471 0041
12472 0041
12473 0041
+12474 0041
0027 0041
FF07 0041
2018 0041
@@ -37097,6 +42813,7 @@ FF02 0041
201D 0041
201E 0041
201F 0041
+2E42 0041
301D 0041
301E 0041
301F 0041
@@ -37136,6 +42853,10 @@ FF5D 0041
169C 0041
2045 0041
2046 0041
+2308 0041
+2309 0041
+230A 0041
+230B 0041
29FC 0041
29FD 0041
2983 0041
@@ -37249,6 +42970,7 @@ FE18 0041
FD3E 0041
FD3F 0041
2016 0041
+2E3E 0041
29D8 0041
29D9 0041
29DA 0041
@@ -37257,6 +42979,7 @@ FD3F 0041
2E39 0041
00B6 0041
204B 0041
+2E3F 0041
0040 0041
FE6B 0041
FF20 0041
@@ -37423,6 +43146,7 @@ A92E 0041
A9DE 0041
A9DF 0041
AA5C 0041
+1056F 0041
11049 0041
1104A 0041
1104B 0041
@@ -37436,9 +43160,42 @@ AA5C 0041
10A55 0041
10A58 0041
10B39 0041
+10AF0 0041
+10AF1 0041
+10AF2 0041
+10AF3 0041
+10AF4 0041
+10AF5 0041
+10AF6 0041
+10B99 0041
+10B9A 0041
+10B9B 0041
+10B9C 0041
110BB 0041
110BC 0041
+11174 0041
+11175 0041
+111CD 0041
111C7 0041
+1123A 0041
+1123B 0041
+1123C 0041
+1123D 0041
+114C6 0041
+115C1 0041
+115C4 0041
+115C5 0041
+115C6 0041
+115C7 0041
+115C8 0041
+115C9 0041
+11643 0041
+16B37 0041
+16B38 0041
+16B39 0041
+16B3A 0041
+16B3B 0041
+16B44 0041
10A7F 0041
0000 0041
0001 0041
@@ -37542,6 +43299,7 @@ AA5C 0041
0602 0041
0603 0041
0604 0041
+0605 0041
0610 0041
0611 0041
0612 0041
@@ -37553,6 +43311,7 @@ AA5C 0041
0618 0041
0619 0041
061A 0041
+061C 0041
0640 0041
06D6 0041
06D7 0041
@@ -37610,6 +43369,7 @@ AA5C 0041
180B 0041
180C 0041
180D 0041
+180E 0041
1A7F 0041
1B6B 0041
1B6C 0041
@@ -37646,6 +43406,8 @@ AA5C 0041
1CE7 0041
1CE8 0041
1CF4 0041
+1CF8 0041
+1CF9 0041
200B 0041
200C 0041
200D 0041
@@ -37661,6 +43423,10 @@ AA5C 0041
2062 0041
2063 0041
2064 0041
+2066 0041
+2067 0041
+2068 0041
+2069 0041
206A 0041
206B 0041
206C 0041
@@ -37710,12 +43476,34 @@ FE23 0041
FE24 0041
FE25 0041
FE26 0041
+FE28 0041
+FE2A 0041
+FE2B 0041
+FE2C 0041
+FE2D 0041
FE73 0041
FEFF 0041
FFF9 0041
FFFA 0041
FFFB 0041
+102E0 0041
110BD 0041
+11366 0041
+11367 0041
+11368 0041
+11369 0041
+1136A 0041
+1136B 0041
+1136C 0041
+11370 0041
+11371 0041
+11372 0041
+11373 0041
+11374 0041
+1BCA0 0041
+1BCA1 0041
+1BCA2 0041
+1BCA3 0041
1D165 0041
1D166 0041
1D167 0041
@@ -37757,6 +43545,13 @@ FFFB 0041
1D242 0041
1D243 0041
1D244 0041
+1E8D0 0041
+1E8D1 0041
+1E8D2 0041
+1E8D3 0041
+1E8D4 0041
+1E8D5 0041
+1E8D6 0041
E0001 0041
E0020 0041
E0021 0041
@@ -38207,8 +44002,14 @@ FF21 003F
01FA 003F
00E4 0021
00E4 003F
+1DF2 0021
+A79B 0021
+1DF2 003F
+A79B 003F
00C4 0021
00C4 003F
+A79A 0021
+A79A 003F
01DF 0021
01DF 003F
01DE 0021
@@ -38584,6 +44385,13 @@ FF21 003F
17D0 0061
17D1 0061
17DD 0061
+1AB0 0061
+1AB1 0061
+1AB2 0061
+1AB3 0061
+1AB4 0061
+1ABB 0061
+1ABC 0061
1DC0 0061
1DC1 0061
1DC3 0061
@@ -38598,11 +44406,14 @@ FF21 003F
1DCD 0061
1DCE 0061
1DD1 0061
+1DF5 0061
1DFE 0061
20F0 0061
2CEF 0061
A67C 0061
A67D 0061
+10AE5 0061
+1BC9D 0061
030D 0041
030E 0041
0312 0041
@@ -38634,6 +44445,13 @@ A67D 0061
17D0 0041
17D1 0041
17DD 0041
+1AB0 0041
+1AB1 0041
+1AB2 0041
+1AB3 0041
+1AB4 0041
+1ABB 0041
+1ABC 0041
1DC0 0041
1DC1 0041
1DC3 0041
@@ -38648,11 +44466,14 @@ A67D 0061
1DCD 0041
1DCE 0041
1DD1 0041
+1DF5 0041
1DFE 0041
20F0 0041
2CEF 0041
A67C 0041
A67D 0041
+10AE5 0041
+1BC9D 0041
0316 0061
0317 0061
0318 0061
@@ -38690,6 +44511,13 @@ A67D 0041
0859 0061
085A 0061
085B 0061
+1AB5 0061
+1AB6 0061
+1AB7 0061
+1AB8 0061
+1AB9 0061
+1ABA 0061
+1ABD 0061
1DC2 0061
1DCF 0061
1DD0 0061
@@ -38700,7 +44528,9 @@ A67D 0041
20ED 0061
20EE 0061
20EF 0061
+FE27 0061
10A0D 0061
+10AE6 0061
0316 0041
0317 0041
0318 0041
@@ -38738,6 +44568,13 @@ A67D 0041
0859 0041
085A 0041
085B 0041
+1AB5 0041
+1AB6 0041
+1AB7 0041
+1AB8 0041
+1AB9 0041
+1ABA 0041
+1ABD 0041
1DC2 0041
1DCF 0041
1DD0 0041
@@ -38748,7 +44585,9 @@ A67D 0041
20ED 0041
20EE 0041
20EF 0041
+FE27 0041
10A0D 0041
+10AE6 0041
0336 0061
0337 0061
20D8 0061
@@ -38757,6 +44596,7 @@ A67D 0041
20E5 0061
20EA 0061
20EB 0061
+1BC9E 0061
0336 0041
0337 0041
20D8 0041
@@ -38765,6 +44605,8 @@ A67D 0041
20E5 0041
20EA 0041
20EB 0041
+1BC9E 0041
+1ABE 0061
20DD 0061
20DE 0061
20DF 0061
@@ -38772,6 +44614,7 @@ A67D 0041
20E2 0061
20E3 0061
20E4 0061
+1ABE 0041
20DD 0041
20DE 0041
20DF 0041
@@ -38779,6 +44622,16 @@ A67D 0041
20E2 0041
20E3 0041
20E4 0041
+3099 0061
+3099 0041
+FF9E 0061
+FF9E 0041
+309A 0061
+309A 0041
+FF9F 0061
+FF9F 0041
+0335 0061
+0335 0041
0305 0061
0305 0041
0309 0061
@@ -38815,10 +44668,10 @@ A67D 0041
0334 0363
0363 0334
0334 0041
+0334 1DF2
+1DF2 0334
0334 1DD3
1DD3 0334
-0335 0061
-0335 0041
0339 0061
0339 0041
0345 0061
@@ -38827,8 +44680,10 @@ A67D 0041
0358 0041
0360 0061
FE22 0061
+FE29 0061
0360 0041
FE22 0041
+FE29 0041
0361 0061
FE20 0061
0361 0041
@@ -38988,7 +44843,9 @@ FC62 0041
08F6 0061
08F6 0041
0651 0061
+11237 0061
0651 0041
+11237 0041
FE7D 0061
FE7D 0041
FE7C 0061
@@ -39015,6 +44872,8 @@ FE7E 0041
0657 0041
0658 0061
0658 0041
+08FF 0061
+08FF 0041
0659 0061
0659 0041
065A 0061
@@ -39105,6 +44964,16 @@ A6F0 0061
A6F0 0041
A6F1 0061
A6F1 0041
+16AF0 0061
+16AF0 0041
+16AF1 0061
+16AF1 0041
+16AF2 0061
+16AF2 0041
+16AF3 0061
+16AF3 0041
+16AF4 0061
+16AF4 0041
093C 0061
09BC 0061
0A3C 0061
@@ -39116,6 +44985,12 @@ A6F1 0041
1C37 0061
A9B3 0061
110BA 0061
+11173 0061
+11236 0061
+112E9 0061
+1133C 0061
+114C3 0061
+115C0 0061
116B7 0061
093C 0041
09BC 0041
@@ -39128,6 +45003,12 @@ A9B3 0061
1C37 0041
A9B3 0041
110BA 0041
+11173 0041
+11236 0041
+112E9 0041
+1133C 0041
+114C3 0041
+115C0 0041
116B7 0041
0900 0061
0901 0061
@@ -39135,7 +45016,10 @@ A9B3 0041
0A01 0061
0A81 0061
0B01 0061
+0C00 0061
0C01 0061
+0C81 0061
+0D01 0061
1B00 0061
1B01 0061
A980 0061
@@ -39143,13 +45027,20 @@ A980 0061
11080 0061
11100 0061
11180 0061
+11301 0061
+114BF 0061
+115BC 0061
+11640 0061
0900 0041
0901 0041
0981 0041
0A01 0041
0A81 0041
0B01 0041
+0C00 0041
0C01 0041
+0C81 0041
+0D01 0041
1B00 0041
1B01 0041
A980 0041
@@ -39157,6 +45048,10 @@ A980 0041
11080 0041
11100 0041
11180 0041
+11301 0041
+114BF 0041
+115BC 0041
+11640 0041
0902 0061
0982 0061
0A02 0061
@@ -39182,6 +45077,12 @@ A981 0061
11081 0061
11101 0061
11181 0061
+11234 0061
+112DF 0061
+11302 0061
+114C0 0061
+115BD 0061
+1163D 0061
116AB 0061
0902 0041
0982 0041
@@ -39208,6 +45109,12 @@ A981 0041
11081 0041
11101 0041
11181 0041
+11234 0041
+112DF 0041
+11302 0041
+114C0 0041
+115BD 0041
+1163D 0041
116AB 0041
0903 0061
0983 0061
@@ -39232,6 +45139,10 @@ A983 0061
11082 0061
11102 0061
11182 0061
+11303 0061
+114C1 0061
+115BE 0061
+1163E 0061
116AC 0061
0903 0041
0983 0041
@@ -39256,6 +45167,10 @@ A983 0041
11082 0041
11102 0041
11182 0041
+11303 0041
+114C1 0041
+115BE 0041
+1163E 0041
116AC 0041
0A70 0061
0A70 0041
@@ -39317,8 +45232,6 @@ A92D 0061
A92D 0041
1037 0061
1037 0041
-108D 0061
-108D 0041
17C8 0061
17C8 0041
17C9 0061
@@ -39347,6 +45260,20 @@ A92D 0041
193A 0041
193B 0061
193B 0041
+16B30 0061
+16B30 0041
+16B31 0061
+16B31 0041
+16B32 0061
+16B32 0041
+16B33 0061
+16B33 0041
+16B34 0061
+16B34 0041
+16B35 0061
+16B35 0041
+16B36 0061
+16B36 0041
302A 0061
302A 0041
302B 0061
@@ -39359,14 +45286,6 @@ A92D 0041
302E 0041
302F 0061
302F 0041
-3099 0061
-3099 0041
-FF9E 0061
-FF9E 0041
-309A 0061
-309A 0041
-FF9F 0061
-FF9F 0041
20D0 0061
20D0 0041
20D1 0061
@@ -39556,8 +45475,14 @@ A732 003F
01FA 0041
00E4 0061
00E4 0041
+1DF2 0061
+A79B 0061
+1DF2 0041
+A79B 0041
00C4 0061
00C4 0041
+A79A 0061
+A79A 0041
01DF 0061
01DF 0041
01DE 0061
@@ -39695,7 +45620,10 @@ FF21 0062
01FB 0062
01FA 0062
00E4 0062
+1DF2 0062
+A79B 0062
00C4 0062
+A79A 0062
01DF 0062
01DE 0062
00E3 0062
@@ -39911,6 +45839,11 @@ A73C 0062
1D46 0041
1D02 0062
1D46 0062
+AB31 0021
+AB31 003F
+AB31 0061
+AB31 0041
+AB31 0062
0250 0021
0250 003F
2C6F 0021
@@ -39928,19 +45861,31 @@ A73C 0062
1D44 0062
0251 0021
0251 003F
+1DE7 0021
+1DE7 003F
2C6D 0021
2C6D 003F
1D45 0021
1D45 003F
+0334 1DE7
+1DE7 0334
0251 0061
0251 0041
+1DE7 0061
+1DE7 0041
2C6D 0061
2C6D 0041
1D45 0061
1D45 0041
0251 0062
+1DE7 0062
2C6D 0062
1D45 0062
+AB30 0021
+AB30 003F
+AB30 0061
+AB30 0041
+AB30 0062
1D90 0021
1D90 003F
1D90 0061
@@ -39961,13 +45906,17 @@ A73C 0062
0252 0062
2C70 0062
1D9B 0062
+AB64 0021
+AB64 003F
+AB64 0061
+AB64 0041
+AB64 0062
0009 0062
000A 0062
000B 0062
000C 0062
000D 0062
0085 0062
-180E 0062
2028 0062
2029 0062
0020 0062
@@ -40021,6 +45970,7 @@ FE58 0062
2E3B 0062
2053 0062
2E17 0062
+2E40 0062
301C 0062
3030 0062
30A0 0062
@@ -40032,6 +45982,7 @@ FE50 0062
FF0C 0062
2E34 0062
2E32 0062
+2E41 0062
055D 0062
060C 0062
060D 0062
@@ -40151,9 +46102,12 @@ FF0E 0062
2CF9 0062
2CFE 0062
2E30 0062
+2E3C 0062
A4FF 0062
A60E 0062
A6F3 0062
+16AF5 0062
+1BC9F 0062
3002 0062
FE12 0062
FF61 0062
@@ -40199,6 +46153,14 @@ ABEB 0062
11142 0062
111C5 0062
111C6 0062
+11238 0062
+11239 0062
+115C2 0062
+115C3 0062
+11641 0062
+11642 0062
+16A6E 0062
+16A6F 0062
1C7E 0062
1C7F 0062
0700 0062
@@ -40246,6 +46208,7 @@ A95F 0062
2E2B 0062
2E2C 0062
2E2D 0062
+2E3D 0062
2CFC 0062
2CFF 0062
2E19 0062
@@ -40260,6 +46223,7 @@ A95F 0062
12471 0062
12472 0062
12473 0062
+12474 0062
0027 0062
FF07 0062
2018 0062
@@ -40274,6 +46238,7 @@ FF02 0062
201D 0062
201E 0062
201F 0062
+2E42 0062
301D 0062
301E 0062
301F 0062
@@ -40313,6 +46278,10 @@ FF5D 0062
169C 0062
2045 0062
2046 0062
+2308 0062
+2309 0062
+230A 0062
+230B 0062
29FC 0062
29FD 0062
2983 0062
@@ -40426,6 +46395,7 @@ FE18 0062
FD3E 0062
FD3F 0062
2016 0062
+2E3E 0062
29D8 0062
29D9 0062
29DA 0062
@@ -40434,6 +46404,7 @@ FD3F 0062
2E39 0062
00B6 0062
204B 0062
+2E3F 0062
0040 0062
FE6B 0062
FF20 0062
@@ -40600,6 +46571,7 @@ A92E 0062
A9DE 0062
A9DF 0062
AA5C 0062
+1056F 0062
11049 0062
1104A 0062
1104B 0062
@@ -40613,9 +46585,42 @@ AA5C 0062
10A55 0062
10A58 0062
10B39 0062
+10AF0 0062
+10AF1 0062
+10AF2 0062
+10AF3 0062
+10AF4 0062
+10AF5 0062
+10AF6 0062
+10B99 0062
+10B9A 0062
+10B9B 0062
+10B9C 0062
110BB 0062
110BC 0062
+11174 0062
+11175 0062
+111CD 0062
111C7 0062
+1123A 0062
+1123B 0062
+1123C 0062
+1123D 0062
+114C6 0062
+115C1 0062
+115C4 0062
+115C5 0062
+115C6 0062
+115C7 0062
+115C8 0062
+115C9 0062
+11643 0062
+16B37 0062
+16B38 0062
+16B39 0062
+16B3A 0062
+16B3B 0062
+16B44 0062
10A7F 0062
0000 0062
0001 0062
@@ -40719,6 +46724,7 @@ AA5C 0062
0602 0062
0603 0062
0604 0062
+0605 0062
0610 0062
0611 0062
0612 0062
@@ -40730,6 +46736,7 @@ AA5C 0062
0618 0062
0619 0062
061A 0062
+061C 0062
0640 0062
06D6 0062
06D7 0062
@@ -40787,6 +46794,7 @@ AA5C 0062
180B 0062
180C 0062
180D 0062
+180E 0062
1A7F 0062
1B6B 0062
1B6C 0062
@@ -40823,6 +46831,8 @@ AA5C 0062
1CE7 0062
1CE8 0062
1CF4 0062
+1CF8 0062
+1CF9 0062
200B 0062
200C 0062
200D 0062
@@ -40838,6 +46848,10 @@ AA5C 0062
2062 0062
2063 0062
2064 0062
+2066 0062
+2067 0062
+2068 0062
+2069 0062
206A 0062
206B 0062
206C 0062
@@ -40887,12 +46901,34 @@ FE23 0062
FE24 0062
FE25 0062
FE26 0062
+FE28 0062
+FE2A 0062
+FE2B 0062
+FE2C 0062
+FE2D 0062
FE73 0062
FEFF 0062
FFF9 0062
FFFA 0062
FFFB 0062
+102E0 0062
110BD 0062
+11366 0062
+11367 0062
+11368 0062
+11369 0062
+1136A 0062
+1136B 0062
+1136C 0062
+11370 0062
+11371 0062
+11372 0062
+11373 0062
+11374 0062
+1BCA0 0062
+1BCA1 0062
+1BCA2 0062
+1BCA3 0062
1D165 0062
1D166 0062
1D167 0062
@@ -40934,6 +46970,13 @@ FFFB 0062
1D242 0062
1D243 0062
1D244 0062
+1E8D0 0062
+1E8D1 0062
+1E8D2 0062
+1E8D3 0062
+1E8D4 0062
+1E8D5 0062
+1E8D6 0062
E0001 0062
E0020 0062
E0021 0062
@@ -41277,6 +47320,8 @@ FF42 0021
FF42 003F
249D 0021
249D 003F
+1DE8 0021
+1DE8 003F
1D41B 0021
1D44F 0021
1D483 0021
@@ -41467,6 +47512,13 @@ FF22 003F
17D0 0062
17D1 0062
17DD 0062
+1AB0 0062
+1AB1 0062
+1AB2 0062
+1AB3 0062
+1AB4 0062
+1ABB 0062
+1ABC 0062
1DC0 0062
1DC1 0062
1DC3 0062
@@ -41481,11 +47533,14 @@ FF22 003F
1DCD 0062
1DCE 0062
1DD1 0062
+1DF5 0062
1DFE 0062
20F0 0062
2CEF 0062
A67C 0062
A67D 0062
+10AE5 0062
+1BC9D 0062
0316 0062
0317 0062
0318 0062
@@ -41523,6 +47578,13 @@ A67D 0062
0859 0062
085A 0062
085B 0062
+1AB5 0062
+1AB6 0062
+1AB7 0062
+1AB8 0062
+1AB9 0062
+1ABA 0062
+1ABD 0062
1DC2 0062
1DCF 0062
1DD0 0062
@@ -41533,7 +47595,9 @@ A67D 0062
20ED 0062
20EE 0062
20EF 0062
+FE27 0062
10A0D 0062
+10AE6 0062
0336 0062
0337 0062
20D8 0062
@@ -41542,6 +47606,8 @@ A67D 0062
20E5 0062
20EA 0062
20EB 0062
+1BC9E 0062
+1ABE 0062
20DD 0062
20DE 0062
20DF 0062
@@ -41549,6 +47615,11 @@ A67D 0062
20E2 0062
20E3 0062
20E4 0062
+3099 0062
+FF9E 0062
+309A 0062
+FF9F 0062
+0335 0062
0305 0062
0309 0062
030F 0062
@@ -41566,12 +47637,14 @@ A67D 0062
0330 0062
0331 0062
0334 0062
-0335 0062
+0334 1DE8
+1DE8 0334
0339 0062
0345 0062
0358 0062
0360 0062
FE22 0062
+FE29 0062
0361 0062
FE20 0062
0483 0062
@@ -41652,6 +47725,7 @@ FC62 0062
08E6 0062
08F6 0062
0651 0062
+11237 0062
FE7D 0062
FE7C 0062
FC63 0062
@@ -41665,6 +47739,7 @@ FE7E 0062
0656 0062
0657 0062
0658 0062
+08FF 0062
0659 0062
065A 0062
065B 0062
@@ -41710,6 +47785,11 @@ FE7E 0062
135D 0062
A6F0 0062
A6F1 0062
+16AF0 0062
+16AF1 0062
+16AF2 0062
+16AF3 0062
+16AF4 0062
093C 0062
09BC 0062
0A3C 0062
@@ -41721,6 +47801,12 @@ A6F1 0062
1C37 0062
A9B3 0062
110BA 0062
+11173 0062
+11236 0062
+112E9 0062
+1133C 0062
+114C3 0062
+115C0 0062
116B7 0062
0900 0062
0901 0062
@@ -41728,7 +47814,10 @@ A9B3 0062
0A01 0062
0A81 0062
0B01 0062
+0C00 0062
0C01 0062
+0C81 0062
+0D01 0062
1B00 0062
1B01 0062
A980 0062
@@ -41736,6 +47825,10 @@ A980 0062
11080 0062
11100 0062
11180 0062
+11301 0062
+114BF 0062
+115BC 0062
+11640 0062
0902 0062
0982 0062
0A02 0062
@@ -41761,6 +47854,12 @@ A981 0062
11081 0062
11101 0062
11181 0062
+11234 0062
+112DF 0062
+11302 0062
+114C0 0062
+115BD 0062
+1163D 0062
116AB 0062
0903 0062
0983 0062
@@ -41785,6 +47884,10 @@ A983 0062
11082 0062
11102 0062
11182 0062
+11303 0062
+114C1 0062
+115BE 0062
+1163E 0062
116AC 0062
0A70 0062
0A71 0062
@@ -41816,7 +47919,6 @@ A92B 0062
A92C 0062
A92D 0062
1037 0062
-108D 0062
17C8 0062
17C9 0062
17CA 0062
@@ -41831,16 +47933,19 @@ A92D 0062
1939 0062
193A 0062
193B 0062
+16B30 0062
+16B31 0062
+16B32 0062
+16B33 0062
+16B34 0062
+16B35 0062
+16B36 0062
302A 0062
302B 0062
302C 0062
302D 0062
302E 0062
302F 0062
-3099 0062
-FF9E 0062
-309A 0062
-FF9F 0062
20D0 0062
20D1 0062
20D2 0062
@@ -41862,7 +47967,9 @@ FF9F 0062
FF42 0061
FF42 0041
249D 0061
+1DE8 0061
249D 0041
+1DE8 0041
1D41B 0061
1D44F 0061
1D483 0061
@@ -41955,6 +48062,7 @@ FF22 0041
0062 0062
FF42 0062
249D 0062
+1DE8 0062
1D41B 0062
1D44F 0062
1D483 0062
@@ -42032,6 +48140,16 @@ FF22 0062
1D6C 0061
1D6C 0041
1D6C 0062
+A797 0021
+A797 003F
+A796 0021
+A796 003F
+A797 0061
+A797 0041
+A796 0061
+A796 0041
+A797 0062
+A796 0062
1D80 0021
1D80 003F
1D80 0061
@@ -42498,6 +48616,11 @@ A792 0061
A792 0041
A793 0062
A792 0062
+A794 0021
+A794 003F
+A794 0061
+A794 0041
+A794 0062
0188 0021
0188 003F
0187 0021
@@ -42639,6 +48762,10 @@ FF24 003F
1E11 003F
1E10 0021
1E10 003F
+0111 0021
+0111 003F
+0110 0021
+0110 003F
1E0D 0021
1E0D 003F
1E0C 0021
@@ -42716,10 +48843,6 @@ FF24 003F
0044 0331 0334
0044 0334 0331
1E0E 0334
-0111 0021
-0111 003F
-0110 0021
-0110 003F
00F0 0021
1DD9 0021
00F0 003F
@@ -42842,6 +48965,10 @@ FF24 0041
1E11 0041
1E10 0061
1E10 0041
+0111 0061
+0111 0041
+0110 0061
+0110 0041
1E0D 0061
1E0D 0041
1E0C 0061
@@ -42854,10 +48981,6 @@ FF24 0041
1E0F 0041
1E0E 0061
1E0E 0041
-0111 0061
-0111 0041
-0110 0061
-0110 0041
00F0 0061
1DD9 0061
00F0 0041
@@ -42929,14 +49052,14 @@ FF24 0062
1E0A 0062
1E11 0062
1E10 0062
+0111 0062
+0110 0062
1E0D 0062
1E0C 0062
1E13 0062
1E12 0062
1E0F 0062
1E0E 0062
-0111 0062
-0110 0062
00F0 0062
1DD9 0062
00D0 0062
@@ -43766,6 +49889,16 @@ FF25 0062
1D07 0061
1D07 0041
1D07 0062
+AB32 0021
+AB32 003F
+AB32 0061
+AB32 0041
+AB32 0062
+AB33 0021
+AB33 003F
+AB33 0061
+AB33 0041
+AB33 0062
0247 0021
0247 003F
0246 0021
@@ -43781,6 +49914,11 @@ FF25 0062
1D92 0061
1D92 0041
1D92 0062
+AB34 0021
+AB34 003F
+AB34 0061
+AB34 0041
+AB34 0062
2C78 0021
2C78 003F
2C78 0061
@@ -43808,14 +49946,20 @@ FF25 0062
2C7B 0062
0259 0021
0259 003F
+1DEA 0021
+1DEA 003F
018F 0021
018F 003F
1D4A 0021
1D4A 003F
2094 0021
2094 003F
+0334 1DEA
+1DEA 0334
0259 0061
0259 0041
+1DEA 0061
+1DEA 0041
018F 0061
018F 0041
1D4A 0061
@@ -43823,6 +49967,7 @@ FF25 0062
2094 0061
2094 0041
0259 0062
+1DEA 0062
018F 0062
1D4A 0062
2094 0062
@@ -43868,13 +50013,18 @@ FF25 0062
025A 0062
025C 0021
025C 003F
+A7AB 0021
+A7AB 003F
1D9F 0021
1D9F 003F
025C 0061
025C 0041
+A7AB 0061
+A7AB 0041
1D9F 0061
1D9F 0041
025C 0062
+A7AB 0062
1D9F 0062
1D94 0021
1D94 003F
@@ -43917,6 +50067,8 @@ FF46 0021
FF46 003F
24A1 0021
24A1 003F
+1DEB 0021
+1DEB 003F
1D41F 0021
1D453 0021
1D487 0021
@@ -44030,12 +50182,16 @@ A77C 0021
A77C 003F
A77B 0021
A77B 003F
+0334 1DEB
+1DEB 0334
0066 0061
0066 0041
FF46 0061
FF46 0041
24A1 0061
+1DEB 0061
24A1 0041
+1DEB 0041
1D41F 0061
1D453 0061
1D487 0061
@@ -44122,6 +50278,7 @@ A77B 0041
0066 0062
FF46 0062
24A1 0062
+1DEB 0062
1D41F 0062
1D453 0062
1D487 0062
@@ -44207,6 +50364,21 @@ A730 003F
A730 0061
A730 0041
A730 0062
+AB35 0021
+AB35 003F
+AB35 0061
+AB35 0041
+AB35 0062
+A799 0021
+A799 003F
+A798 0021
+A798 003F
+A799 0061
+A799 0041
+A798 0061
+A798 0041
+A799 0062
+A798 0062
1D6E 0021
1D6E 003F
1D6E 0061
@@ -44634,14 +50806,24 @@ A77D 0062
33C9 0062
0261 0021
0261 003F
+A7AC 0021
+A7AC 003F
1DA2 0021
1DA2 003F
0261 0061
0261 0041
+A7AC 0061
+A7AC 0041
1DA2 0061
1DA2 0041
0261 0062
+A7AC 0062
1DA2 0062
+AB36 0021
+AB36 003F
+AB36 0061
+AB36 0041
+AB36 0062
0262 0021
0262 003F
1DDB 0021
@@ -44827,6 +51009,14 @@ FF28 003F
1E29 003F
1E28 0021
1E28 003F
+0127 0021
+210F 0021
+0127 003F
+210F 003F
+0126 0021
+0126 003F
+A7F8 0021
+A7F8 003F
1E25 0021
1E25 003F
1E24 0021
@@ -44907,14 +51097,6 @@ FF28 003F
0068 0331 0334
0068 0334 0331
1E96 0334
-0127 0021
-210F 0021
-0127 003F
-210F 003F
-0126 0021
-0126 003F
-A7F8 0021
-A7F8 003F
0334 036A
036A 0334
0068 0061
@@ -45021,6 +51203,14 @@ FF28 0041
1E29 0041
1E28 0061
1E28 0041
+0127 0061
+210F 0061
+0127 0041
+210F 0041
+0126 0061
+0126 0041
+A7F8 0061
+A7F8 0041
1E25 0061
1E25 0041
1E24 0061
@@ -45031,14 +51221,6 @@ FF28 0041
1E2A 0041
1E96 0061
1E96 0041
-0127 0061
-210F 0061
-0127 0041
-210F 0041
-0126 0061
-0126 0041
-A7F8 0061
-A7F8 0041
33CA 0061
33CA 0041
33CA 0062
@@ -45093,15 +51275,15 @@ FF28 0062
1E22 0062
1E29 0062
1E28 0062
+0127 0062
+210F 0062
+0126 0062
+A7F8 0062
1E25 0062
1E24 0062
1E2B 0062
1E2A 0062
1E96 0062
-0127 0062
-210F 0062
-0126 0062
-A7F8 0062
32CC 0021
32CC 003F
32CC 0061
@@ -45143,6 +51325,11 @@ A7F8 0062
01F6 0041
0195 0062
01F6 0062
+A795 0021
+A795 003F
+A795 0061
+A795 0041
+A795 0062
0266 0021
0266 003F
A7AA 0021
@@ -45182,12 +51369,17 @@ A727 0021
A727 003F
A726 0021
A726 003F
+AB5C 0021
+AB5C 003F
A727 0061
A727 0041
A726 0061
A726 0041
+AB5C 0061
+AB5C 0041
A727 0062
A726 0062
+AB5C 0062
0267 0021
0267 003F
0267 0061
@@ -45426,7 +51618,7 @@ FF29 003F
0069 0308 0301 0334
0069 0308 0334 0341
00EF 0301 0334
-1E2F 0334
+00EF 0334 0341
0049 0308 0334 0301
0049 0308 0341 0334
00CF 0334 0301
@@ -45810,6 +52002,11 @@ A7FE 003F
A7FE 0061
A7FE 0041
A7FE 0062
+A7F7 0021
+A7F7 003F
+A7F7 0061
+A7F7 0041
+A7F7 0062
1D09 0021
1D09 003F
1D4E 0021
@@ -46660,9 +52857,14 @@ A745 0062
A744 0062
029E 0021
029E 003F
+A7B0 0021
+A7B0 003F
029E 0061
029E 0041
+A7B0 0061
+A7B0 0041
029E 0062
+A7B0 0062
006C 0021
006C 003F
FF4C 0021
@@ -46764,6 +52966,10 @@ FF2C 003F
013C 003F
013B 0021
013B 003F
+0142 0021
+0142 003F
+0141 0021
+0141 003F
1E37 0021
1E37 003F
1E36 0021
@@ -46854,10 +53060,6 @@ FF2C 003F
004C 0331 0334
004C 0334 0331
1E3A 0334
-0142 0021
-0142 003F
-0141 0021
-0141 003F
006C 00B7 0021
006C 0387 0021
0140 0021
@@ -46984,6 +53186,10 @@ FF2C 0041
013C 0041
013B 0061
013B 0041
+0142 0061
+0142 0041
+0141 0061
+0141 0041
1E37 0061
1E37 0041
1E36 0061
@@ -47000,10 +53206,6 @@ FF2C 0041
1E3B 0041
1E3A 0061
1E3A 0041
-0142 0061
-0142 0041
-0141 0061
-0141 0041
006C 00B7 0061
006C 0387 0061
0140 0061
@@ -47066,6 +53268,8 @@ FF2C 0062
013D 0062
013C 0062
013B 0062
+0142 0062
+0141 0062
1E37 0062
1E36 0062
1E39 0062
@@ -47074,8 +53278,6 @@ FF2C 0062
1E3C 0062
1E3B 0062
1E3A 0062
-0142 0062
-0141 0062
006C 00B7 0062
006C 0387 0062
0140 0062
@@ -47208,17 +53410,54 @@ A748 0062
026B 003F
2C62 0021
2C62 003F
+AB5E 0021
+AB5E 003F
026B 0061
026B 0041
2C62 0061
2C62 0041
+AB5E 0061
+AB5E 0041
026B 0062
2C62 0062
+AB5E 0062
+AB38 0021
+AB38 003F
+1DEC 0021
+1DEC 003F
+0334 1DEC
+1DEC 0334
+AB38 0061
+AB38 0041
+1DEC 0061
+1DEC 0041
+AB38 0062
+1DEC 0062
+AB39 0021
+AB39 003F
+AB39 0061
+AB39 0041
+AB39 0062
026C 0021
026C 003F
+A7AD 0021
+A7AD 003F
026C 0061
026C 0041
+A7AD 0061
+A7AD 0041
026C 0062
+A7AD 0062
+AB37 0021
+AB37 003F
+AB5D 0021
+AB5D 003F
+AB37 0061
+AB37 0041
+AB5D 0061
+AB5D 0041
+AB37 0062
+AB5D 0062
1D85 0021
1D85 003F
1DAA 0021
@@ -47740,6 +53979,11 @@ FF2D 0062
0271 0062
2C6E 0062
1DAC 0062
+AB3A 0021
+AB3A 003F
+AB3A 0061
+AB3A 0041
+AB3A 0062
A7FD 0021
A7FD 003F
A7FD 0061
@@ -48298,6 +54542,11 @@ A790 0062
0235 0061
0235 0041
0235 0062
+AB3B 0021
+AB3B 003F
+AB3B 0061
+AB3B 0041
+AB3B 0062
A774 0021
A774 003F
A774 0061
@@ -48318,6 +54567,11 @@ A774 0062
014B 0062
014A 0062
1D51 0062
+AB3C 0021
+AB3C 003F
+AB3C 0061
+AB3C 0041
+AB3C 0062
006F 0021
006F 003F
FF4F 0021
@@ -48441,8 +54695,14 @@ FF2F 003F
01D1 003F
00F6 0021
00F6 003F
+1DF3 0021
+A79D 0021
+1DF3 003F
+A79D 003F
00D6 0021
00D6 003F
+A79C 0021
+A79C 003F
022B 0021
022B 003F
022A 0021
@@ -48511,6 +54771,8 @@ FF2F 003F
1E51 003F
1E50 0021
1E50 003F
+1DED 0021
+1DED 003F
1ECF 0021
1ECF 003F
1ECE 0021
@@ -48829,6 +55091,10 @@ FF2F 003F
1ECC 0334 0302
0334 0366
0366 0334
+0334 1DF3
+1DF3 0334
+0334 1DED
+1DED 0334
006F 0061
006F 0041
FF4F 0061
@@ -48951,8 +55217,14 @@ FF2F 0041
01D1 0041
00F6 0061
00F6 0041
+1DF3 0061
+A79D 0061
+1DF3 0041
+A79D 0041
00D6 0061
00D6 0041
+A79C 0061
+A79C 0041
022B 0061
022B 0041
022A 0061
@@ -49013,6 +55285,8 @@ FF2F 0041
1E51 0041
1E50 0061
1E50 0041
+1DED 0061
+1DED 0041
1ECF 0061
1ECF 0041
1ECE 0061
@@ -49118,7 +55392,10 @@ FF2F 0062
01D2 0062
01D1 0062
00F6 0062
+1DF3 0062
+A79D 0062
00D6 0062
+A79C 0062
022B 0062
022A 0062
0151 0062
@@ -49149,6 +55426,7 @@ FF2F 0062
1E52 0062
1E51 0062
1E50 0062
+1DED 0062
1ECF 0062
1ECE 0062
020D 0062
@@ -49217,6 +55495,11 @@ A74E 0062
1D11 0061
1D11 0041
1D11 0062
+AB3D 0021
+AB3D 003F
+AB3D 0061
+AB3D 0041
+AB3D 0062
0276 0021
0276 003F
0276 0061
@@ -49227,11 +55510,41 @@ A74E 0062
1D14 0061
1D14 0041
1D14 0062
+AB41 0021
+AB41 003F
+AB41 0061
+AB41 0041
+AB41 0062
+AB42 0021
+AB42 003F
+AB42 0061
+AB42 0041
+AB42 0062
+AB40 0021
+AB40 003F
+AB40 0061
+AB40 0041
+AB40 0062
+AB43 0021
+AB43 003F
+AB43 0061
+AB43 0041
+AB43 0062
+AB44 0021
+AB44 003F
+AB44 0061
+AB44 0041
+AB44 0062
1D13 0021
1D13 003F
1D13 0061
1D13 0041
1D13 0062
+AB3E 0021
+AB3E 003F
+AB3E 0061
+AB3E 0041
+AB3E 0062
0254 0021
0254 003F
0186 0021
@@ -49257,6 +55570,11 @@ A74E 0062
1D12 0061
1D12 0041
1D12 0062
+AB3F 0021
+AB3F 003F
+AB3F 0061
+AB3F 0041
+AB3F 0062
1D97 0021
1D97 003F
1D97 0061
@@ -49353,6 +55671,8 @@ FF50 0021
FF50 003F
24AB 0021
24AB 003F
+1DEE 0021
+1DEE 003F
1D429 0021
1D45D 0021
1D491 0021
@@ -49481,12 +55801,16 @@ FF30 003F
0050 0307 0334
0050 0334 0307
1E56 0334
+0334 1DEE
+1DEE 0334
0070 0061
0070 0041
FF50 0061
FF50 0041
24AB 0061
+1DEE 0061
24AB 0041
+1DEE 0041
1D429 0061
1D45D 0061
1D491 0061
@@ -49590,6 +55914,7 @@ FF30 0041
0070 0062
FF50 0062
24AB 0062
+1DEE 0062
1D429 0062
1D45D 0062
1D491 0062
@@ -50462,6 +56787,11 @@ A7A6 0062
1E5E 0062
A783 0062
A782 0062
+AB45 0021
+AB45 003F
+AB45 0061
+AB45 0041
+AB45 0062
0280 0021
0280 003F
1DE2 0021
@@ -50479,6 +56809,11 @@ A782 0062
0280 0062
1DE2 0062
01A6 0062
+AB46 0021
+AB46 003F
+AB46 0061
+AB46 0041
+AB46 0062
A75B 0021
A75B 003F
1DE3 0021
@@ -50571,6 +56906,11 @@ A75A 0062
2C64 0041
027D 0062
2C64 0062
+AB49 0021
+AB49 003F
+AB49 0061
+AB49 0041
+AB49 0062
027E 0021
027E 003F
027E 0061
@@ -50586,6 +56926,31 @@ A75A 0062
027F 0061
027F 0041
027F 0062
+AB47 0021
+AB47 003F
+AB47 0061
+AB47 0041
+AB47 0062
+AB48 0021
+AB48 003F
+AB48 0061
+AB48 0041
+AB48 0062
+AB4A 0021
+AB4A 003F
+AB4A 0061
+AB4A 0041
+AB4A 0062
+AB4B 0021
+AB4B 003F
+AB4B 0061
+AB4B 0041
+AB4B 0062
+AB4C 0021
+AB4C 003F
+AB4C 0061
+AB4C 0041
+AB4C 0062
0281 0021
0281 003F
02B6 0021
@@ -51168,19 +57533,31 @@ A731 0062
1E9D 0062
0283 0021
0283 003F
+1DEF 0021
+1DEF 003F
01A9 0021
01A9 003F
1DB4 0021
1DB4 003F
+0334 1DEF
+1DEF 0334
0283 0061
0283 0041
+1DEF 0061
+1DEF 0041
01A9 0061
01A9 0041
1DB4 0061
1DB4 0041
0283 0062
+1DEF 0062
01A9 0062
1DB4 0062
+AB4D 0021
+AB4D 003F
+AB4D 0061
+AB4D 0041
+AB4D 0062
1D8B 0021
1D8B 003F
1D8B 0061
@@ -51695,9 +58072,14 @@ A777 0041
A777 0062
0287 0021
0287 003F
+A7B1 0021
+A7B1 003F
0287 0061
0287 0041
+A7B1 0061
+A7B1 0041
0287 0062
+A7B1 0062
0075 0021
0075 003F
FF55 0021
@@ -51807,8 +58189,14 @@ FF35 003F
016E 003F
00FC 0021
00FC 003F
+1DF4 0021
+A79F 0021
+1DF4 003F
+A79F 003F
00DC 0021
00DC 003F
+A79E 0021
+A79E 003F
01D8 0021
01D8 003F
01D7 0021
@@ -51849,6 +58237,8 @@ FF35 003F
1E7B 003F
1E7A 0021
1E7A 003F
+1DF0 0021
+1DF0 003F
1EE7 0021
1EE7 003F
1EE6 0021
@@ -51980,10 +58370,10 @@ FF35 003F
0075 0334 0344
0075 0344 0334
01D8 0334
-0055 0308 0341 0334
+0055 0308 0301 0334
0055 0334 0308 0301
-0055 0334 0308 0341
00DC 0301 0334
+00DC 0334 0301
0075 0308 0340 0334
0075 0334 0308 0340
00FC 0300 0334
@@ -52138,6 +58528,10 @@ FF35 003F
1E74 0334
0334 0367
0367 0334
+0334 1DF4
+1DF4 0334
+0334 1DF0
+1DF0 0334
0075 0061
0075 0041
FF55 0061
@@ -52246,8 +58640,14 @@ FF35 0041
016E 0041
00FC 0061
00FC 0041
+1DF4 0061
+A79F 0061
+1DF4 0041
+A79F 0041
00DC 0061
00DC 0041
+A79E 0061
+A79E 0041
01D8 0061
01D8 0041
01D7 0061
@@ -52288,6 +58688,8 @@ FF35 0041
1E7B 0041
1E7A 0061
1E7A 0041
+1DF0 0061
+1DF0 0041
1EE7 0061
1EE7 0041
1EE6 0061
@@ -52394,7 +58796,10 @@ FF35 0062
016F 0062
016E 0062
00FC 0062
+1DF4 0062
+A79F 0062
00DC 0062
+A79E 0062
01D8 0062
01D7 0062
01DC 0062
@@ -52415,6 +58820,7 @@ FF35 0062
016A 0062
1E7B 0062
1E7A 0062
+1DF0 0062
1EE7 0062
1EE6 0062
0215 0062
@@ -52457,6 +58863,11 @@ FF35 0062
1DB8 0041
1D1C 0062
1DB8 0062
+AB4E 0021
+AB4E 003F
+AB4E 0061
+AB4E 0041
+AB4E 0062
1D1D 0021
1D1D 003F
1D59 0021
@@ -52477,6 +58888,16 @@ FF35 0062
1D6B 0061
1D6B 0041
1D6B 0062
+AB50 0021
+AB50 003F
+AB50 0061
+AB50 0041
+AB50 0062
+AB51 0021
+AB51 003F
+AB51 0061
+AB51 0041
+AB51 0062
0289 0021
0289 003F
0244 0021
@@ -52492,6 +58913,11 @@ FF35 0062
0289 0062
0244 0062
1DB6 0062
+AB4F 0021
+AB4F 003F
+AB4F 0061
+AB4F 0041
+AB4F 0062
1D7E 0021
1D7E 003F
1D7E 0061
@@ -52502,6 +58928,16 @@ FF35 0062
1D99 0061
1D99 0041
1D99 0062
+AB52 0021
+AB52 003F
+AB5F 0021
+AB5F 003F
+AB52 0061
+AB52 0041
+AB5F 0061
+AB5F 0041
+AB52 0062
+AB5F 0062
0265 0021
0265 003F
A78D 0021
@@ -52988,6 +59424,8 @@ FF57 0021
FF57 003F
24B2 0021
24B2 003F
+1DF1 0021
+1DF1 003F
1D430 0021
1D464 0021
1D498 0021
@@ -53159,12 +59597,16 @@ FF37 003F
0057 0323 0334
0057 0334 0323
1E88 0334
+0334 1DF1
+1DF1 0334
0077 0061
0077 0041
FF57 0061
FF57 0041
24B2 0061
+1DF1 0061
24B2 0041
+1DF1 0041
1D430 0061
1D464 0061
1D498 0061
@@ -53266,6 +59708,7 @@ FF37 0041
0077 0062
FF57 0062
24B2 0062
+1DF1 0062
1D430 0062
1D464 0062
1D498 0062
@@ -53657,6 +60100,41 @@ FF38 0062
1D8D 0061
1D8D 0041
1D8D 0062
+AB56 0021
+AB56 003F
+AB56 0061
+AB56 0041
+AB56 0062
+AB57 0021
+AB57 003F
+AB57 0061
+AB57 0041
+AB57 0062
+AB58 0021
+AB58 003F
+AB58 0061
+AB58 0041
+AB58 0062
+AB59 0021
+AB59 003F
+AB59 0061
+AB59 0041
+AB59 0062
+AB53 0021
+AB53 003F
+AB53 0061
+AB53 0041
+AB53 0062
+AB54 0021
+AB54 003F
+AB54 0061
+AB54 0041
+AB54 0062
+AB55 0021
+AB55 003F
+AB55 0061
+AB55 0041
+AB55 0062
0079 0021
0079 003F
FF59 0021
@@ -54068,6 +60546,11 @@ FF39 0062
1EFE 0041
1EFF 0062
1EFE 0062
+AB5A 0021
+AB5A 003F
+AB5A 0061
+AB5A 0041
+AB5A 0062
021D 0021
021D 003F
021C 0021
@@ -55032,10 +61515,10 @@ A724 0062
0391 0334 0313 0340
1F08 0300 0334
1F0A 0334
-03B1 0313 0300 0334 0345
03B1 0343 0300 0345 0334
03B1 0343 0345 0334 0340
03B1 0345 0313 0300 0334
+1F00 0345 0340 0334
0391 0343 0334 0345 0340
0391 0345 0313 0334 0340
1F08 0300 0345 0334
@@ -55095,13 +61578,13 @@ A724 0062
1F09 0300 0334
1F09 0340 0334
03B1 0314 0334 0300 0345
-03B1 0334 0314 0345 0300
-03B1 0345 0314 0300 0334
-03B1 0345 0334 0314 0340
+03B1 0314 0345 0340 0334
+1F81 0340 0334
+1F83 0334
0391 0334 0345 0314 0300
1F09 0334 0345 0300
-1F09 0345 0300 0334
1F0B 0345 0334
+1FBC 0314 0300 0334
03B1 0314 0334 0342
03B1 0314 0342 0334
03B1 0334 0314 0342
@@ -55362,7 +61845,9 @@ A724 0062
03B2 0021
03B2 003F
03D0 0021
+1DE9 0021
03D0 003F
+1DE9 003F
1D6C3 0021
1D6FD 0021
1D737 0021
@@ -55399,10 +61884,14 @@ A724 0062
1D71D 0334
1D757 0334
1D791 0334
+0334 1DE9
+1DE9 0334
03B2 0061
03B2 0041
03D0 0061
+1DE9 0061
03D0 0041
+1DE9 0041
1D6C3 0061
1D6FD 0061
1D737 0061
@@ -55431,6 +61920,7 @@ A724 0062
1D66 0041
03B2 0062
03D0 0062
+1DE9 0062
1D6C3 0062
1D6FD 0062
1D737 0062
@@ -56120,9 +62610,9 @@ A724 0062
0397 0334 0343
1F28 0334
03B7 0334 0313 0341
-03B7 0334 0343 0301
03B7 0334 0343 0341
-1F20 0334 0341
+03B7 0343 0341 0334
+1F20 0341 0334
0397 0313 0334 0301
0397 0313 0341 0334
0397 0334 0313 0301
@@ -56145,8 +62635,8 @@ A724 0062
0397 0343 0300 0334
03B7 0313 0345 0334 0300
03B7 0313 0345 0340 0334
-03B7 0343 0340 0334 0345
03B7 0343 0345 0340 0334
+1FC3 0334 0313 0300
0397 0313 0334 0300 0345
0397 0343 0334 0345 0340
0397 0343 0340 0345 0334
@@ -56190,9 +62680,9 @@ A724 0062
1F29 0334 0301
1F2D 0334
03B7 0314 0301 0345 0334
+03B7 0314 0334 0345 0301
03B7 0314 0334 0345 0341
-1F21 0334 0341 0345
-1F21 0345 0301 0334
+03B7 0314 0345 0334 0301
0397 0314 0334 0345 0341
0397 0334 0314 0345 0301
1F29 0334 0301 0345
@@ -56954,9 +63444,14 @@ A724 0062
1FD9 0062
03F3 0021
03F3 003F
+037F 0021
+037F 003F
03F3 0061
03F3 0041
+037F 0061
+037F 0041
03F3 0062
+037F 0062
03BA 0021
03BA 003F
03F0 0021
@@ -58240,7 +64735,7 @@ A724 0062
03C5 0334 0343 0341
1F50 0334 0301
1F50 0334 0341
-03C5 0334 0313 0340
+03C5 0313 0340 0334
03C5 0334 0343 0340
1F50 0334 0340
1F52 0334
@@ -58316,9 +64811,9 @@ A724 0062
03D2 0308 0334
03D2 0334 0308
03D4 0334
+03B0 0334
03C5 0308 0341 0334
03C5 0344 0334
-03CB 0334 0341
03CB 0341 0334
03C5 0308 0300 0334
03C5 0308 0340 0334
@@ -58936,8 +65431,8 @@ A724 0062
2126 0334 0314 0301
2126 0334 0314 0341
03C9 0314 0334 0345 0301
-1F61 0334 0301 0345
-1F61 0341 0345 0334
+03C9 0345 0314 0334 0301
+1F61 0301 0345 0334
1F65 0345 0334
03A9 0314 0301 0345 0334
03A9 0345 0334 0314 0301
@@ -58952,9 +65447,9 @@ A724 0062
2126 0314 0334 0340
2126 0334 0314 0340
03C9 0314 0334 0345 0300
-03C9 0314 0340 0334 0345
03C9 0314 0345 0300 0334
-03C9 0334 0314 0340 0345
+03C9 0345 0314 0300 0334
+03C9 0345 0314 0334 0300
03A9 0314 0300 0345 0334
03A9 0345 0334 0314 0300
1F6B 0345 0334
@@ -59196,6 +65691,11 @@ A724 0062
1FF7 0062
1FF3 0062
1FFC 0062
+AB65 0021
+AB65 003F
+AB65 0061
+AB65 0041
+AB65 0062
03E1 0021
03E1 003F
03E0 0021
@@ -59837,100 +66337,56 @@ A724 0062
2DF6 003F
0410 0021
0410 003F
-0334 2DF6
-2DF6 0334
-0430 0061
-0430 0041
-2DF6 0061
-2DF6 0041
-0410 0061
-0410 0041
-0430 0001 0306 0061
-0410 0001 0306 0061
-0430 0001 0308 0061
-0410 0001 0308 0061
-0430 0062
-2DF6 0062
-0410 0062
-0430 0306 0021
04D1 0021
-0430 0306 003F
04D1 003F
-0410 0306 0021
04D0 0021
-0410 0306 003F
04D0 003F
+04D3 0021
+04D3 003F
+04D2 0021
+04D2 003F
0430 0306 0334
0430 0334 0306
04D1 0334
0410 0306 0334
0410 0334 0306
04D0 0334
-0430 0306 0061
-04D1 0061
-0430 0591 0306 0061
-0430 1D165 0306 0061
-0430 0306 0041
-04D1 0041
-0410 0306 0061
-04D0 0061
-0410 0591 0306 0061
-0410 1D165 0306 0061
-0410 0306 0041
-04D0 0041
-0430 0306 0062
-04D1 0062
-0410 0306 0062
-04D0 0062
-0430 0308 0021
-04D3 0021
-0430 0308 003F
-04D3 003F
-0410 0308 0021
-04D2 0021
-0410 0308 003F
-04D2 003F
0430 0308 0334
0430 0334 0308
04D3 0334
0410 0308 0334
0410 0334 0308
04D2 0334
-0430 0308 0061
+0334 2DF6
+2DF6 0334
+0430 0061
+0430 0041
+2DF6 0061
+2DF6 0041
+0410 0061
+0410 0041
+04D1 0061
+04D1 0041
+04D0 0061
+04D0 0041
04D3 0061
-0430 0591 0308 0061
-0430 1D165 0308 0061
-0430 0308 0041
04D3 0041
-0410 0308 0061
04D2 0061
-0410 0591 0308 0061
-0410 1D165 0308 0061
-0410 0308 0041
04D2 0041
-0430 0308 0062
+0430 0062
+2DF6 0062
+0410 0062
+04D1 0062
+04D0 0062
04D3 0062
-0410 0308 0062
04D2 0062
04D9 0021
04D9 003F
04D8 0021
04D8 003F
-04D9 0061
-04D9 0041
-04D8 0061
-04D8 0041
-04D9 0001 0308 0061
-04D8 0001 0308 0061
-04D9 0062
-04D8 0062
-04D9 0308 0021
04DB 0021
-04D9 0308 003F
04DB 003F
-04D8 0308 0021
04DA 0021
-04D8 0308 003F
04DA 003F
04D9 0308 0334
04D9 0334 0308
@@ -59938,21 +66394,17 @@ A724 0062
04D8 0308 0334
04D8 0334 0308
04DA 0334
-04D9 0308 0061
+04D9 0061
+04D9 0041
+04D8 0061
+04D8 0041
04DB 0061
-04D9 0591 0308 0061
-04D9 1D165 0308 0061
-04D9 0308 0041
04DB 0041
-04D8 0308 0061
04DA 0061
-04D8 0591 0308 0061
-04D8 1D165 0308 0061
-04D8 0308 0041
04DA 0041
-04D9 0308 0062
+04D9 0062
+04D8 0062
04DB 0062
-04D8 0308 0062
04DA 0062
04D5 0021
04D5 003F
@@ -60004,6 +66456,18 @@ A724 0062
2DE2 003F
0413 0021
0413 003F
+0453 0021
+0453 003F
+0403 0021
+0403 003F
+0433 0301 0334
+0433 0334 0301
+0433 0334 0341
+0433 0341 0334
+0403 0334
+0413 0334 0301
+0413 0334 0341
+0413 0341 0334
0491 0021
0491 003F
0490 0021
@@ -60016,10 +66480,10 @@ A724 0062
2DE2 0041
0413 0061
0413 0041
-0433 0001 0301 0061
-0433 0001 0341 0061
-0413 0001 0301 0061
-0413 0001 0341 0061
+0453 0061
+0453 0041
+0403 0061
+0403 0041
0491 0061
0491 0041
0490 0061
@@ -60027,6 +66491,8 @@ A724 0062
0433 0062
2DE2 0062
0413 0062
+0453 0062
+0403 0062
0491 0062
0490 0062
0493 0021
@@ -60136,52 +66602,6 @@ A662 0062
0502 0041
0503 0062
0502 0062
-0433 0301 0021
-0433 0341 0021
-0453 0021
-0433 0301 003F
-0433 0341 003F
-0453 003F
-0403 0021
-0413 0301 0021
-0413 0341 0021
-0403 003F
-0413 0301 003F
-0413 0341 003F
-0433 0301 0334
-0433 0334 0301
-0433 0334 0341
-0433 0341 0334
-0403 0334
-0413 0334 0301
-0413 0334 0341
-0413 0341 0334
-0433 0301 0061
-0433 0341 0061
-0453 0061
-0433 0591 0301 0061
-0433 0591 0341 0061
-0433 1D165 0301 0061
-0433 1D165 0341 0061
-0433 0301 0041
-0433 0341 0041
-0453 0041
-0403 0061
-0413 0301 0061
-0413 0341 0061
-0413 0591 0301 0061
-0413 0591 0341 0061
-0413 1D165 0301 0061
-0413 1D165 0341 0061
-0403 0041
-0413 0301 0041
-0413 0341 0041
-0433 0301 0062
-0433 0341 0062
-0453 0062
-0403 0062
-0413 0301 0062
-0413 0341 0062
0499 0021
0499 003F
0498 0021
@@ -60202,6 +66622,10 @@ A662 0062
0450 003F
0400 0021
0400 003F
+04D7 0021
+04D7 003F
+04D6 0021
+04D6 003F
0451 0021
0451 003F
0401 0021
@@ -60214,6 +66638,12 @@ A662 0062
0415 0334 0300
0415 0334 0340
0415 0340 0334
+0435 0306 0334
+0435 0334 0306
+04D7 0334
+0415 0306 0334
+0415 0334 0306
+04D6 0334
0435 0308 0334
0435 0334 0308
0451 0334
@@ -60232,8 +66662,10 @@ A662 0062
0450 0041
0400 0061
0400 0041
-0435 0001 0306 0061
-0415 0001 0306 0061
+04D7 0061
+04D7 0041
+04D6 0061
+04D6 0041
0451 0061
0451 0041
0401 0061
@@ -60243,38 +66675,10 @@ A662 0062
0415 0062
0450 0062
0400 0062
-0451 0062
-0401 0062
-0435 0306 0021
-04D7 0021
-0435 0306 003F
-04D7 003F
-0415 0306 0021
-04D6 0021
-0415 0306 003F
-04D6 003F
-0435 0306 0334
-0435 0334 0306
-04D7 0334
-0415 0306 0334
-0415 0334 0306
-04D6 0334
-0435 0306 0061
-04D7 0061
-0435 0591 0306 0061
-0435 1D165 0306 0061
-0435 0306 0041
-04D7 0041
-0415 0306 0061
-04D6 0061
-0415 0591 0306 0061
-0415 1D165 0306 0061
-0415 0306 0041
-04D6 0041
-0435 0306 0062
04D7 0062
-0415 0306 0062
04D6 0062
+0451 0062
+0401 0062
0454 0021
0454 003F
A674 0021
@@ -60302,12 +66706,22 @@ A674 0062
04C2 003F
04C1 0021
04C1 003F
+04DD 0021
+04DD 003F
+04DC 0021
+04DC 003F
0436 0306 0334
0436 0334 0306
04C2 0334
0416 0306 0334
0416 0334 0306
04C1 0334
+0436 0308 0334
+0436 0334 0308
+04DD 0334
+0416 0308 0334
+0416 0334 0308
+04DC 0334
0334 2DE4
2DE4 0334
0436 0061
@@ -60320,13 +66734,27 @@ A674 0062
04C2 0041
04C1 0061
04C1 0041
-0436 0001 0308 0061
-0416 0001 0308 0061
+04DD 0061
+04DD 0041
+04DC 0061
+04DC 0041
0436 0062
2DE4 0062
0416 0062
04C2 0062
04C1 0062
+04DD 0062
+04DC 0062
+052B 0021
+052B 003F
+052A 0021
+052A 003F
+052B 0061
+052B 0041
+052A 0061
+052A 0041
+052B 0062
+052A 0062
A685 0021
A685 003F
A684 0021
@@ -60337,36 +66765,6 @@ A684 0061
A684 0041
A685 0062
A684 0062
-0436 0308 0021
-04DD 0021
-0436 0308 003F
-04DD 003F
-0416 0308 0021
-04DC 0021
-0416 0308 003F
-04DC 003F
-0436 0308 0334
-0436 0334 0308
-04DD 0334
-0416 0308 0334
-0416 0334 0308
-04DC 0334
-0436 0308 0061
-04DD 0061
-0436 0591 0308 0061
-0436 1D165 0308 0061
-0436 0308 0041
-04DD 0041
-0416 0308 0061
-04DC 0061
-0416 0591 0308 0061
-0416 1D165 0308 0061
-0416 0308 0041
-04DC 0041
-0436 0308 0062
-04DD 0062
-0416 0308 0062
-04DC 0062
0497 0021
0497 003F
0496 0021
@@ -60383,6 +66781,16 @@ A684 0062
2DE5 003F
0417 0021
0417 003F
+04DF 0021
+04DF 003F
+04DE 0021
+04DE 003F
+0437 0308 0334
+0437 0334 0308
+04DF 0334
+0417 0308 0334
+0417 0334 0308
+04DE 0334
0334 2DE5
2DE5 0334
0437 0061
@@ -60391,11 +66799,15 @@ A684 0062
2DE5 0041
0417 0061
0417 0041
-0437 0001 0308 0061
-0417 0001 0308 0061
+04DF 0061
+04DF 0041
+04DE 0061
+04DE 0041
0437 0062
2DE5 0062
0417 0062
+04DF 0062
+04DE 0062
A641 0021
A641 003F
A640 0021
@@ -60426,36 +66838,6 @@ A640 0062
0510 0041
0511 0062
0510 0062
-0437 0308 0021
-04DF 0021
-0437 0308 003F
-04DF 003F
-0417 0308 0021
-04DE 0021
-0417 0308 003F
-04DE 003F
-0437 0308 0334
-0437 0334 0308
-04DF 0334
-0417 0308 0334
-0417 0334 0308
-04DE 0334
-0437 0308 0061
-04DF 0061
-0437 0591 0308 0061
-0437 1D165 0308 0061
-0437 0308 0041
-04DF 0041
-0417 0308 0061
-04DE 0061
-0417 0591 0308 0061
-0417 1D165 0308 0061
-0417 0308 0041
-04DE 0041
-0437 0308 0062
-04DF 0062
-0417 0308 0062
-04DE 0062
A643 0021
A643 003F
A642 0021
@@ -60536,6 +66918,10 @@ A675 003F
045D 003F
040D 0021
040D 003F
+04E5 0021
+04E5 003F
+04E4 0021
+04E4 003F
04E3 0021
04E3 003F
04E2 0021
@@ -60548,6 +66934,12 @@ A675 003F
0418 0300 0334
0418 0334 0340
0418 0340 0334
+0438 0308 0334
+0438 0334 0308
+04E5 0334
+0418 0308 0334
+0418 0334 0308
+04E4 0334
0438 0304 0334
0438 0334 0304
04E3 0334
@@ -60568,8 +66960,10 @@ A675 0041
040D 0041
0438 0001 0306 0061
0418 0001 0306 0061
-0438 0001 0308 0061
-0418 0001 0308 0061
+04E5 0061
+04E5 0041
+04E4 0061
+04E4 0041
04E3 0061
04E3 0041
04E2 0061
@@ -60579,6 +66973,8 @@ A675 0062
0418 0062
045D 0062
040D 0062
+04E5 0062
+04E4 0062
04E3 0062
04E2 0062
048B 0021
@@ -60591,67 +66987,15 @@ A675 0062
048A 0041
048B 0062
048A 0062
-0438 0308 0021
-04E5 0021
-0438 0308 003F
-04E5 003F
-0418 0308 0021
-04E4 0021
-0418 0308 003F
-04E4 003F
-0438 0308 0334
-0438 0334 0308
-04E5 0334
-0418 0308 0334
-0418 0334 0308
-04E4 0334
-0438 0308 0061
-04E5 0061
-0438 0591 0308 0061
-0438 1D165 0308 0061
-0438 0308 0041
-04E5 0041
-0418 0308 0061
-04E4 0061
-0418 0591 0308 0061
-0418 1D165 0308 0061
-0418 0308 0041
-04E4 0041
-0438 0308 0062
-04E5 0062
-0418 0308 0062
-04E4 0062
0456 0021
0456 003F
0406 0021
0406 003F
-0456 0061
-0456 0041
-0406 0061
-0406 0041
-0456 0001 0308 0061
-0406 0001 0308 0061
-0456 0062
-0406 0062
-A647 0021
-A647 003F
-A646 0021
-A646 003F
-A647 0061
-A647 0041
-A646 0061
-A646 0041
-A647 0062
-A646 0062
-0456 0308 0021
0457 0021
-0456 0308 003F
0457 003F
A676 0021
A676 003F
-0406 0308 0021
0407 0021
-0406 0308 003F
0407 003F
0456 0308 0334
0456 0334 0308
@@ -60661,25 +67005,31 @@ A676 003F
0407 0334
0334 A676
A676 0334
-0456 0308 0061
+0456 0061
+0456 0041
+0406 0061
+0406 0041
0457 0061
-0456 0591 0308 0061
-0456 1D165 0308 0061
-0456 0308 0041
0457 0041
A676 0061
A676 0041
-0406 0308 0061
0407 0061
-0406 0591 0308 0061
-0406 1D165 0308 0061
-0406 0308 0041
0407 0041
-0456 0308 0062
+0456 0062
+0406 0062
0457 0062
A676 0062
-0406 0308 0062
0407 0062
+A647 0021
+A647 003F
+A646 0021
+A646 003F
+A647 0061
+A647 0041
+A646 0061
+A646 0041
+A647 0062
+A646 0062
0438 0306 0021
0439 0021
0438 0306 003F
@@ -60743,6 +67093,18 @@ A648 0062
2DE6 003F
041A 0021
041A 003F
+045C 0021
+045C 003F
+040C 0021
+040C 003F
+043A 0301 0334
+043A 0334 0301
+043A 0334 0341
+045C 0334
+040C 0334
+041A 0301 0334
+041A 0334 0301
+041A 0341 0334
0334 2DE6
2DE6 0334
043A 0061
@@ -60751,13 +67113,15 @@ A648 0062
2DE6 0041
041A 0061
041A 0041
-043A 0001 0301 0061
-043A 0001 0341 0061
-041A 0001 0301 0061
-041A 0001 0341 0061
+045C 0061
+045C 0041
+040C 0061
+040C 0041
043A 0062
2DE6 0062
041A 0062
+045C 0062
+040C 0062
049B 0021
049B 003F
049A 0021
@@ -60860,6 +67224,16 @@ A648 0062
04C5 0041
04C6 0062
04C5 0062
+052F 0021
+052F 003F
+052E 0021
+052E 003F
+052F 0061
+052F 0041
+052E 0061
+052E 0041
+052F 0062
+052E 0062
0513 0021
0513 003F
0512 0021
@@ -60979,6 +67353,16 @@ A666 0062
2DE9 0062
041D 0062
1D78 0062
+0529 0021
+0529 003F
+0528 0021
+0528 003F
+0529 0061
+0529 0041
+0528 0061
+0528 0041
+0529 0062
+0528 0062
04CA 0021
04CA 003F
04C9 0021
@@ -61056,19 +67440,37 @@ A669 0021
A66B 0021
A66D 0021
A66E 0021
+A699 0021
+A69B 0021
2DEA 003F
A669 003F
A66B 003F
A66D 003F
A66E 003F
+A699 003F
+A69B 003F
041E 0021
041E 003F
A668 0021
A66A 0021
A66C 0021
+A698 0021
+A69A 0021
A668 003F
A66A 003F
A66C 003F
+A698 003F
+A69A 003F
+04E7 0021
+04E7 003F
+04E6 0021
+04E6 003F
+043E 0308 0334
+043E 0334 0308
+04E7 0334
+041E 0308 0334
+041E 0334 0308
+04E6 0334
0334 2DEA
2DEA 0334
043E 0061
@@ -61078,80 +67480,54 @@ A669 0061
A66B 0061
A66D 0061
A66E 0061
+A699 0061
+A69B 0061
2DEA 0041
A669 0041
A66B 0041
A66D 0041
A66E 0041
+A699 0041
+A69B 0041
041E 0061
041E 0041
A668 0061
A66A 0061
A66C 0061
+A698 0061
+A69A 0061
A668 0041
A66A 0041
A66C 0041
-043E 0001 0308 0061
-041E 0001 0308 0061
+A698 0041
+A69A 0041
+04E7 0061
+04E7 0041
+04E6 0061
+04E6 0041
043E 0062
2DEA 0062
A669 0062
A66B 0062
A66D 0062
A66E 0062
+A699 0062
+A69B 0062
041E 0062
A668 0062
A66A 0062
A66C 0062
-043E 0308 0021
-04E7 0021
-043E 0308 003F
-04E7 003F
-041E 0308 0021
-04E6 0021
-041E 0308 003F
-04E6 003F
-043E 0308 0334
-043E 0334 0308
-04E7 0334
-041E 0308 0334
-041E 0334 0308
-04E6 0334
-043E 0308 0061
-04E7 0061
-043E 0591 0308 0061
-043E 1D165 0308 0061
-043E 0308 0041
-04E7 0041
-041E 0308 0061
-04E6 0061
-041E 0591 0308 0061
-041E 1D165 0308 0061
-041E 0308 0041
-04E6 0041
-043E 0308 0062
+A698 0062
+A69A 0062
04E7 0062
-041E 0308 0062
04E6 0062
04E9 0021
04E9 003F
04E8 0021
04E8 003F
-04E9 0061
-04E9 0041
-04E8 0061
-04E8 0041
-04E9 0001 0308 0061
-04E8 0001 0308 0061
-04E9 0062
-04E8 0062
-04E9 0308 0021
04EB 0021
-04E9 0308 003F
04EB 003F
-04E8 0308 0021
04EA 0021
-04E8 0308 003F
04EA 003F
04E9 0308 0334
04E9 0334 0308
@@ -61159,21 +67535,17 @@ A66C 0062
04E8 0308 0334
04E8 0334 0308
04EA 0334
-04E9 0308 0061
+04E9 0061
+04E9 0041
+04E8 0061
+04E8 0041
04EB 0061
-04E9 0591 0308 0061
-04E9 1D165 0308 0061
-04E9 0308 0041
04EB 0041
-04E8 0308 0061
04EA 0061
-04E8 0591 0308 0061
-04E8 1D165 0308 0061
-04E8 0308 0041
04EA 0041
-04E9 0308 0062
+04E9 0062
+04E8 0062
04EB 0062
-04E8 0308 0062
04EA 0062
043F 0021
043F 003F
@@ -61370,62 +67742,46 @@ A68A 0062
040B 0041
045B 0062
040B 0062
-043A 0301 0021
-043A 0341 0021
-045C 0021
-043A 0301 003F
-043A 0341 003F
-045C 003F
-040C 0021
-041A 0301 0021
-041A 0341 0021
-040C 003F
-041A 0301 003F
-041A 0341 003F
-043A 0301 0334
-043A 0334 0301
-043A 0334 0341
-045C 0334
-040C 0334
-041A 0301 0334
-041A 0334 0301
-041A 0341 0334
-043A 0301 0061
-043A 0341 0061
-045C 0061
-043A 0591 0301 0061
-043A 0591 0341 0061
-043A 1D165 0301 0061
-043A 1D165 0341 0061
-043A 0301 0041
-043A 0341 0041
-045C 0041
-040C 0061
-041A 0301 0061
-041A 0341 0061
-041A 0591 0301 0061
-041A 0591 0341 0061
-041A 1D165 0301 0061
-041A 1D165 0341 0061
-040C 0041
-041A 0301 0041
-041A 0341 0041
-043A 0301 0062
-043A 0341 0062
-045C 0062
-040C 0062
-041A 0301 0062
-041A 0341 0062
0443 0021
0443 003F
A677 0021
A677 003F
0423 0021
0423 003F
+045E 0021
+045E 003F
+040E 0021
+040E 003F
+04F1 0021
+04F1 003F
+04F0 0021
+04F0 003F
+04F3 0021
+04F3 003F
+04F2 0021
+04F2 003F
04EF 0021
04EF 003F
04EE 0021
04EE 003F
+0443 0306 0334
+0443 0334 0306
+045E 0334
+040E 0334
+0423 0306 0334
+0423 0334 0306
+0443 0308 0334
+0443 0334 0308
+04F1 0334
+0423 0308 0334
+0423 0334 0308
+04F0 0334
+0443 030B 0334
+0443 0334 030B
+04F3 0334
+0423 030B 0334
+0423 0334 030B
+04F2 0334
0443 0304 0334
0443 0334 0304
04EF 0334
@@ -61440,111 +67796,33 @@ A677 0061
A677 0041
0423 0061
0423 0041
-0443 0001 0306 0061
-0423 0001 0306 0061
-0443 0001 0308 0061
-0423 0001 0308 0061
-0443 0001 030B 0061
-0423 0001 030B 0061
-04EF 0061
-04EF 0041
-04EE 0061
-04EE 0041
-0443 0062
-A677 0062
-0423 0062
-04EF 0062
-04EE 0062
-0443 0306 0021
-045E 0021
-0443 0306 003F
-045E 003F
-040E 0021
-0423 0306 0021
-040E 003F
-0423 0306 003F
-0443 0306 0334
-0443 0334 0306
-045E 0334
-040E 0334
-0423 0306 0334
-0423 0334 0306
-0443 0306 0061
045E 0061
-0443 0591 0306 0061
-0443 1D165 0306 0061
-0443 0306 0041
045E 0041
040E 0061
-0423 0306 0061
-0423 0591 0306 0061
-0423 1D165 0306 0061
040E 0041
-0423 0306 0041
-0443 0306 0062
-045E 0062
-040E 0062
-0423 0306 0062
-0443 0308 0021
-04F1 0021
-0443 0308 003F
-04F1 003F
-0423 0308 0021
-04F0 0021
-0423 0308 003F
-04F0 003F
-0443 0308 0334
-0443 0334 0308
-04F1 0334
-0423 0308 0334
-0423 0334 0308
-04F0 0334
-0443 0308 0061
04F1 0061
-0443 0591 0308 0061
-0443 1D165 0308 0061
-0443 0308 0041
04F1 0041
-0423 0308 0061
04F0 0061
-0423 0591 0308 0061
-0423 1D165 0308 0061
-0423 0308 0041
04F0 0041
-0443 0308 0062
-04F1 0062
-0423 0308 0062
-04F0 0062
-0443 030B 0021
-04F3 0021
-0443 030B 003F
-04F3 003F
-0423 030B 0021
-04F2 0021
-0423 030B 003F
-04F2 003F
-0443 030B 0334
-0443 0334 030B
-04F3 0334
-0423 030B 0334
-0423 0334 030B
-04F2 0334
-0443 030B 0061
04F3 0061
-0443 0591 030B 0061
-0443 1D165 030B 0061
-0443 030B 0041
04F3 0041
-0423 030B 0061
04F2 0061
-0423 0591 030B 0061
-0423 1D165 030B 0061
-0423 030B 0041
04F2 0041
-0443 030B 0062
+04EF 0061
+04EF 0041
+04EE 0061
+04EE 0041
+0443 0062
+A677 0062
+0423 0062
+045E 0062
+040E 0062
+04F1 0062
+04F0 0062
04F3 0062
-0423 030B 0062
04F2 0062
+04EF 0062
+04EE 0062
04AF 0021
04AF 003F
04AE 0021
@@ -61799,6 +68077,16 @@ A690 0062
2DF1 003F
0427 0021
0427 003F
+04F5 0021
+04F5 003F
+04F4 0021
+04F4 003F
+0447 0308 0334
+0447 0334 0308
+04F5 0334
+0427 0308 0334
+0427 0334 0308
+04F4 0334
0334 2DF1
2DF1 0334
0447 0061
@@ -61807,11 +68095,25 @@ A690 0062
2DF1 0041
0427 0061
0427 0041
-0447 0001 0308 0061
-0427 0001 0308 0061
+04F5 0061
+04F5 0041
+04F4 0061
+04F4 0041
0447 0062
2DF1 0062
0427 0062
+04F5 0062
+04F4 0062
+052D 0021
+052D 003F
+052C 0021
+052C 003F
+052D 0061
+052D 0041
+052C 0061
+052C 0041
+052D 0062
+052C 0062
A693 0021
A693 003F
A692 0021
@@ -61822,36 +68124,6 @@ A692 0061
A692 0041
A693 0062
A692 0062
-0447 0308 0021
-04F5 0021
-0447 0308 003F
-04F5 003F
-0427 0308 0021
-04F4 0021
-0427 0308 003F
-04F4 003F
-0447 0308 0334
-0447 0334 0308
-04F5 0334
-0427 0308 0334
-0427 0334 0308
-04F4 0334
-0447 0308 0061
-04F5 0061
-0447 0591 0308 0061
-0447 1D165 0308 0061
-0447 0308 0041
-04F5 0041
-0427 0308 0061
-04F4 0061
-0427 0591 0308 0061
-0427 1D165 0308 0061
-0427 0308 0041
-04F4 0041
-0447 0308 0062
-04F5 0062
-0427 0308 0062
-04F4 0062
04B7 0021
04B7 003F
04B6 0021
@@ -61992,6 +68264,8 @@ A678 0021
A678 003F
042A 0021
042A 003F
+A69C 0021
+A69C 003F
0334 A678
A678 0334
044A 0061
@@ -62000,9 +68274,12 @@ A678 0061
A678 0041
042A 0061
042A 0041
+A69C 0061
+A69C 0041
044A 0062
A678 0062
042A 0062
+A69C 0062
A651 0021
A651 003F
A650 0021
@@ -62019,26 +68296,9 @@ A679 0021
A679 003F
042B 0021
042B 003F
-0334 A679
-A679 0334
-044B 0061
-044B 0041
-A679 0061
-A679 0041
-042B 0061
-042B 0041
-044B 0001 0308 0061
-042B 0001 0308 0061
-044B 0062
-A679 0062
-042B 0062
-044B 0308 0021
04F9 0021
-044B 0308 003F
04F9 003F
-042B 0308 0021
04F8 0021
-042B 0308 003F
04F8 003F
044B 0308 0334
044B 0334 0308
@@ -62046,21 +68306,22 @@ A679 0062
042B 0308 0334
042B 0334 0308
04F8 0334
-044B 0308 0061
+0334 A679
+A679 0334
+044B 0061
+044B 0041
+A679 0061
+A679 0041
+042B 0061
+042B 0041
04F9 0061
-044B 0591 0308 0061
-044B 1D165 0308 0061
-044B 0308 0041
04F9 0041
-042B 0308 0061
04F8 0061
-042B 0591 0308 0061
-042B 1D165 0308 0061
-042B 0308 0041
04F8 0041
-044B 0308 0062
+044B 0062
+A679 0062
+042B 0062
04F9 0062
-042B 0308 0062
04F8 0062
044C 0021
044C 003F
@@ -62068,6 +68329,8 @@ A67A 0021
A67A 003F
042C 0021
042C 003F
+A69D 0021
+A69D 003F
0334 A67A
A67A 0334
044C 0061
@@ -62076,9 +68339,12 @@ A67A 0061
A67A 0041
042C 0061
042C 0041
+A69D 0061
+A69D 0041
044C 0062
A67A 0062
042C 0062
+A69D 0062
048D 0021
048D 003F
048C 0021
@@ -62120,21 +68386,9 @@ A652 0062
044D 003F
042D 0021
042D 003F
-044D 0061
-044D 0041
-042D 0061
-042D 0041
-044D 0001 0308 0061
-042D 0001 0308 0061
-044D 0062
-042D 0062
-044D 0308 0021
04ED 0021
-044D 0308 003F
04ED 003F
-042D 0308 0021
04EC 0021
-042D 0308 003F
04EC 003F
044D 0308 0334
044D 0334 0308
@@ -62142,21 +68396,17 @@ A652 0062
042D 0308 0334
042D 0334 0308
04EC 0334
-044D 0308 0061
+044D 0061
+044D 0041
+042D 0061
+042D 0041
04ED 0061
-044D 0591 0308 0061
-044D 1D165 0308 0061
-044D 0308 0041
04ED 0041
-042D 0308 0061
04EC 0061
-042D 0591 0308 0061
-042D 1D165 0308 0061
-042D 0308 0041
04EC 0041
-044D 0308 0062
+044D 0062
+042D 0062
04ED 0062
-042D 0308 0062
04EC 0062
044E 0021
044E 003F
@@ -62371,21 +68621,9 @@ A65C 0062
0475 003F
0474 0021
0474 003F
-0475 0061
-0475 0041
-0474 0061
-0474 0041
-0475 0001 030F 0061
-0474 0001 030F 0061
-0475 0062
-0474 0062
-0475 030F 0021
0477 0021
-0475 030F 003F
0477 003F
-0474 030F 0021
0476 0021
-0474 030F 003F
0476 003F
0475 030F 0334
0475 0334 030F
@@ -62393,21 +68631,17 @@ A65C 0062
0474 030F 0334
0474 0334 030F
0476 0334
-0475 030F 0061
+0475 0061
+0475 0041
+0474 0061
+0474 0041
0477 0061
-0475 0591 030F 0061
-0475 1D165 030F 0061
-0475 030F 0041
0477 0041
-0474 030F 0061
0476 0061
-0474 0591 030F 0061
-0474 1D165 030F 0061
-0474 030F 0041
0476 0041
-0475 030F 0062
+0475 0062
+0474 0062
0477 0062
-0474 030F 0062
0476 0062
A65F 0021
A65F 003F
@@ -62919,6 +69153,269 @@ A65E 0062
2C2E 0041
2C5E 0062
2C2E 0062
+10350 0021
+10350 003F
+10376 0021
+10376 003F
+10350 0334
+0334 10376
+10376 0334
+10350 0061
+10350 0041
+10376 0061
+10376 0041
+10350 0062
+10376 0062
+10351 0021
+10351 003F
+10351 0334
+10351 0061
+10351 0041
+10351 0062
+10352 0021
+10352 003F
+10352 0334
+10352 0061
+10352 0041
+10352 0062
+10353 0021
+10353 003F
+10377 0021
+10377 003F
+10353 0334
+0334 10377
+10377 0334
+10353 0061
+10353 0041
+10377 0061
+10377 0041
+10353 0062
+10377 0062
+10354 0021
+10354 003F
+10354 0334
+10354 0061
+10354 0041
+10354 0062
+10355 0021
+10355 003F
+10355 0334
+10355 0061
+10355 0041
+10355 0062
+10356 0021
+10356 003F
+10356 0334
+10356 0061
+10356 0041
+10356 0062
+10357 0021
+10357 003F
+10378 0021
+10378 003F
+10357 0334
+0334 10378
+10378 0334
+10357 0061
+10357 0041
+10378 0061
+10378 0041
+10357 0062
+10378 0062
+10358 0021
+10358 003F
+10358 0334
+10358 0061
+10358 0041
+10358 0062
+10359 0021
+10359 003F
+10359 0334
+10359 0061
+10359 0041
+10359 0062
+1035A 0021
+1035A 003F
+1035A 0334
+1035A 0061
+1035A 0041
+1035A 0062
+1035B 0021
+1035B 003F
+1035B 0334
+1035B 0061
+1035B 0041
+1035B 0062
+1035C 0021
+1035C 003F
+1035C 0334
+1035C 0061
+1035C 0041
+1035C 0062
+1035D 0021
+1035D 003F
+10379 0021
+10379 003F
+1035D 0334
+0334 10379
+10379 0334
+1035D 0061
+1035D 0041
+10379 0061
+10379 0041
+1035D 0062
+10379 0062
+1035E 0021
+1035E 003F
+1035E 0334
+1035E 0061
+1035E 0041
+1035E 0062
+1035F 0021
+1035F 003F
+1035F 0334
+1035F 0061
+1035F 0041
+1035F 0062
+10360 0021
+10360 003F
+10360 0334
+10360 0061
+10360 0041
+10360 0062
+10361 0021
+10361 003F
+1037A 0021
+1037A 003F
+10361 0334
+0334 1037A
+1037A 0334
+10361 0061
+10361 0041
+1037A 0061
+1037A 0041
+10361 0062
+1037A 0062
+10362 0021
+10362 003F
+10362 0334
+10362 0061
+10362 0041
+10362 0062
+10363 0021
+10363 003F
+10363 0334
+10363 0061
+10363 0041
+10363 0062
+10364 0021
+10364 003F
+10364 0334
+10364 0061
+10364 0041
+10364 0062
+10365 0021
+10365 003F
+10365 0334
+10365 0061
+10365 0041
+10365 0062
+10366 0021
+10366 003F
+10366 0334
+10366 0061
+10366 0041
+10366 0062
+10367 0021
+10367 003F
+10367 0334
+10367 0061
+10367 0041
+10367 0062
+10368 0021
+10368 003F
+10368 0334
+10368 0061
+10368 0041
+10368 0062
+10369 0021
+10369 003F
+10369 0334
+10369 0061
+10369 0041
+10369 0062
+1036A 0021
+1036A 003F
+1036A 0334
+1036A 0061
+1036A 0041
+1036A 0062
+1036B 0021
+1036B 003F
+1036B 0334
+1036B 0061
+1036B 0041
+1036B 0062
+1036C 0021
+1036C 003F
+1036C 0334
+1036C 0061
+1036C 0041
+1036C 0062
+1036D 0021
+1036D 003F
+1036D 0334
+1036D 0061
+1036D 0041
+1036D 0062
+1036E 0021
+1036E 003F
+1036E 0334
+1036E 0061
+1036E 0041
+1036E 0062
+1036F 0021
+1036F 003F
+1036F 0334
+1036F 0061
+1036F 0041
+1036F 0062
+10370 0021
+10370 003F
+10370 0334
+10370 0061
+10370 0041
+10370 0062
+10371 0021
+10371 003F
+10371 0334
+10371 0061
+10371 0041
+10371 0062
+10372 0021
+10372 003F
+10372 0334
+10372 0061
+10372 0041
+10372 0062
+10373 0021
+10373 003F
+10373 0334
+10373 0061
+10373 0041
+10373 0062
+10374 0021
+10374 003F
+10374 0334
+10374 0061
+10374 0041
+10374 0062
+10375 0021
+10375 003F
+10375 0334
+10375 0061
+10375 0041
+10375 0062
10D0 0021
10D0 003F
10D0 0061
@@ -65117,6 +71614,8 @@ FBF6 0062
08AC 0062
0627 0021
0627 003F
+08AD 0021
+08AD 003F
1EE00 0021
1EE80 0021
1EE00 003F
@@ -65133,6 +71632,8 @@ FD3D 0021
FD3D 003F
0627 0061
0627 0041
+08AD 0061
+08AD 0041
1EE00 0061
1EE80 0061
1EE00 0041
@@ -65150,6 +71651,7 @@ FD3D 0041
0627 0001 0655 0061
0627 0591 0655 0061
0627 0062
+08AD 0062
1EE00 0062
1EE80 0062
FE8E 0062
@@ -65463,6 +71965,11 @@ FB5A 0062
0756 0061
0756 0041
0756 0062
+08A1 0021
+08A1 003F
+08A1 0061
+08A1 0041
+08A1 0062
0629 0021
0629 003F
FE94 0021
@@ -66547,6 +73054,11 @@ FB82 0041
068D 0062
FB83 0062
FB82 0062
+08AE 0021
+08AE 003F
+08AE 0061
+08AE 0041
+08AE 0062
068E 0021
068E 003F
FB87 0021
@@ -66758,6 +73270,11 @@ FB8A 0062
08AA 0061
08AA 0041
08AA 0062
+08B2 0021
+08B2 003F
+08B2 0061
+08B2 0041
+08B2 0062
0633 0021
0633 003F
1EE0E 0021
@@ -67552,6 +74069,11 @@ FD08 0062
069D 0061
069D 0041
069D 0062
+08AF 0021
+08AF 003F
+08AF 0061
+08AF 0041
+08AF 0062
069E 0021
069E 003F
069E 0061
@@ -68670,6 +75192,11 @@ FB94 0062
FB95 0062
FB93 0062
FB92 0062
+08B0 0021
+08B0 003F
+08B0 0061
+08B0 0041
+08B0 0062
06B0 0021
06B0 003F
06B0 0061
@@ -69856,6 +76383,11 @@ FBDE 0041
06CB 0062
FBDF 0062
FBDE 0062
+08B1 0021
+08B1 003F
+08B1 0061
+08B1 0041
+08B1 0062
06CF 0021
06CF 003F
06CF 0061
@@ -73753,6 +80285,11 @@ AB2E 0062
0920 0061
0920 0041
0920 0062
+0978 0021
+0978 003F
+0978 0061
+0978 0041
+0978 0062
0921 0021
0921 003F
0921 0334 093C
@@ -74156,6 +80693,11 @@ A8FB 0062
094D 0061
094D 0041
094D 0062
+0980 0021
+0980 003F
+0980 0061
+0980 0041
+0980 0062
0985 0021
0985 003F
0985 0061
@@ -76126,6 +82668,11 @@ A8FB 0062
0C33 0061
0C33 0041
0C33 0062
+0C34 0021
+0C34 003F
+0C34 0061
+0C34 0041
+0C34 0062
0C3D 0021
0C3D 003F
0C3D 0061
@@ -78704,12 +85251,234 @@ A8C4 0062
110B9 0061
110B9 0041
110B9 0062
+11150 0021
+11150 003F
+11150 0334
+11150 0061
+11150 0041
+11150 0062
+11151 0021
+11151 003F
+11151 0334
+11151 0061
+11151 0041
+11151 0062
+11152 0021
+11152 003F
+11152 0334
+11152 0061
+11152 0041
+11152 0062
+11153 0021
+11153 003F
+11153 0334
+11153 0061
+11153 0041
+11153 0062
+11154 0021
+11154 003F
+11154 0334
+11154 0061
+11154 0041
+11154 0062
+11155 0021
+11155 003F
+11155 0334
+11155 0061
+11155 0041
+11155 0062
+11156 0021
+11156 003F
+11156 0334
+11156 0061
+11156 0041
+11156 0062
+11157 0021
+11157 003F
+11157 0334
+11157 0061
+11157 0041
+11157 0062
+11158 0021
+11158 003F
+11158 0334
+11158 0061
+11158 0041
+11158 0062
+11159 0021
+11159 003F
+11159 0334
+11159 0061
+11159 0041
+11159 0062
+1115A 0021
+1115A 003F
+1115A 0334
+1115A 0061
+1115A 0041
+1115A 0062
+1115B 0021
+1115B 003F
+1115B 0334
+1115B 0061
+1115B 0041
+1115B 0062
+1115C 0021
+1115C 003F
+1115C 0334
+1115C 0061
+1115C 0041
+1115C 0062
+1115D 0021
+1115D 003F
+1115D 0334
+1115D 0061
+1115D 0041
+1115D 0062
+1115E 0021
+1115E 003F
+1115E 0334
+1115E 0061
+1115E 0041
+1115E 0062
+1115F 0021
+1115F 003F
+1115F 0334
+1115F 0061
+1115F 0041
+1115F 0062
+11160 0021
+11160 003F
+11160 0334
+11160 0061
+11160 0041
+11160 0062
+11161 0021
+11161 003F
+11161 0334
+11161 0061
+11161 0041
+11161 0062
+11162 0021
+11162 003F
+11162 0334
+11162 0061
+11162 0041
+11162 0062
+11163 0021
+11163 003F
+11163 0334
+11163 0061
+11163 0041
+11163 0062
+11164 0021
+11164 003F
+11164 0334
+11164 0061
+11164 0041
+11164 0062
+11165 0021
+11165 003F
+11165 0334
+11165 0061
+11165 0041
+11165 0062
+11166 0021
+11166 003F
+11166 0334
+11166 0061
+11166 0041
+11166 0062
+11167 0021
+11167 003F
+11167 0334
+11167 0061
+11167 0041
+11167 0062
+11168 0021
+11168 003F
+11168 0334
+11168 0061
+11168 0041
+11168 0062
+11169 0021
+11169 003F
+11169 0334
+11169 0061
+11169 0041
+11169 0062
+1116A 0021
+1116A 003F
+1116A 0334
+1116A 0061
+1116A 0041
+1116A 0062
+1116B 0021
+1116B 003F
+1116B 0334
+1116B 0061
+1116B 0041
+1116B 0062
+1116C 0021
+1116C 003F
+1116C 0334
+1116C 0061
+1116C 0041
+1116C 0062
+1116D 0021
+1116D 003F
+1116D 0334
+1116D 0061
+1116D 0041
+1116D 0062
+1116E 0021
+1116E 003F
+1116E 0334
+1116E 0061
+1116E 0041
+1116E 0062
+1116F 0021
+1116F 003F
+1116F 0334
+1116F 0061
+1116F 0041
+1116F 0062
+11176 0021
+11176 003F
+11176 0334
+11176 0061
+11176 0041
+11176 0062
+11170 0021
+11170 003F
+11170 0334
+11170 0061
+11170 0041
+11170 0062
+11171 0021
+11171 003F
+11171 0334
+11171 0061
+11171 0041
+11171 0062
+11172 0021
+11172 003F
+11172 0334
+11172 0061
+11172 0041
+11172 0062
111C4 0021
111C4 003F
111C4 0334
111C4 0061
111C4 0041
111C4 0062
+111DA 0021
+111DA 003F
+111DA 0334
+111DA 0061
+111DA 0041
+111DA 0062
11183 0021
11183 003F
11183 0334
@@ -78998,6 +85767,24 @@ A8C4 0062
111B2 0061
111B2 0041
111B2 0062
+111C1 0021
+111C1 003F
+111C1 0334
+111C1 0061
+111C1 0041
+111C1 0062
+111C2 0021
+111C2 003F
+111C2 0334
+111C2 0061
+111C2 0041
+111C2 0062
+111C3 0021
+111C3 003F
+111C3 0334
+111C3 0061
+111C3 0041
+111C3 0062
111B3 0021
111B3 003F
111B3 0334
@@ -79083,24 +85870,2265 @@ A8C4 0062
111C0 0061
111C0 0041
111C0 0062
-111C1 0021
-111C1 003F
-111C1 0334
-111C1 0061
-111C1 0041
-111C1 0062
-111C2 0021
-111C2 003F
-111C2 0334
-111C2 0061
-111C2 0041
-111C2 0062
-111C3 0021
-111C3 003F
-111C3 0334
-111C3 0061
-111C3 0041
-111C3 0062
+11200 0021
+11200 003F
+11200 0334
+11200 0061
+11200 0041
+11200 0062
+11201 0021
+11201 003F
+11201 0334
+11201 0061
+11201 0041
+11201 0062
+11202 0021
+11202 003F
+11202 0334
+11202 0061
+11202 0041
+11202 0062
+11203 0021
+11203 003F
+11203 0334
+11203 0061
+11203 0041
+11203 0062
+11204 0021
+11204 003F
+11204 0334
+11204 0061
+11204 0041
+11204 0062
+11205 0021
+11205 003F
+11205 0334
+11205 0061
+11205 0041
+11205 0062
+11206 0021
+11206 003F
+11206 0334
+11206 0061
+11206 0041
+11206 0062
+11207 0021
+11207 003F
+11207 0334
+11207 0061
+11207 0041
+11207 0062
+11208 0021
+11208 003F
+11208 0334
+11208 0061
+11208 0041
+11208 0062
+11209 0021
+11209 003F
+11209 0334
+11209 0061
+11209 0041
+11209 0062
+1120A 0021
+1120A 003F
+1120A 0334
+1120A 0061
+1120A 0041
+1120A 0062
+1120B 0021
+1120B 003F
+1120B 0334
+1120B 0061
+1120B 0041
+1120B 0062
+1120C 0021
+1120C 003F
+1120C 0334
+1120C 0061
+1120C 0041
+1120C 0062
+1120D 0021
+1120D 003F
+1120D 0334
+1120D 0061
+1120D 0041
+1120D 0062
+1120E 0021
+1120E 003F
+1120E 0334
+1120E 0061
+1120E 0041
+1120E 0062
+1120F 0021
+1120F 003F
+1120F 0334
+1120F 0061
+1120F 0041
+1120F 0062
+11210 0021
+11210 003F
+11210 0334
+11210 0061
+11210 0041
+11210 0062
+11211 0021
+11211 003F
+11211 0334
+11211 0061
+11211 0041
+11211 0062
+11213 0021
+11213 003F
+11213 0334
+11213 0061
+11213 0041
+11213 0062
+11214 0021
+11214 003F
+11214 0334
+11214 0061
+11214 0041
+11214 0062
+11215 0021
+11215 003F
+11215 0334
+11215 0061
+11215 0041
+11215 0062
+11216 0021
+11216 003F
+11216 0334
+11216 0061
+11216 0041
+11216 0062
+11217 0021
+11217 003F
+11217 0334
+11217 0061
+11217 0041
+11217 0062
+11218 0021
+11218 003F
+11218 0334
+11218 0061
+11218 0041
+11218 0062
+11219 0021
+11219 003F
+11219 0334
+11219 0061
+11219 0041
+11219 0062
+1121A 0021
+1121A 003F
+1121A 0334
+1121A 0061
+1121A 0041
+1121A 0062
+1121B 0021
+1121B 003F
+1121B 0334
+1121B 0061
+1121B 0041
+1121B 0062
+1121C 0021
+1121C 003F
+1121C 0334
+1121C 0061
+1121C 0041
+1121C 0062
+1121D 0021
+1121D 003F
+1121D 0334
+1121D 0061
+1121D 0041
+1121D 0062
+1121E 0021
+1121E 003F
+1121E 0334
+1121E 0061
+1121E 0041
+1121E 0062
+1121F 0021
+1121F 003F
+1121F 0334
+1121F 0061
+1121F 0041
+1121F 0062
+11220 0021
+11220 003F
+11220 0334
+11220 0061
+11220 0041
+11220 0062
+11221 0021
+11221 003F
+11221 0334
+11221 0061
+11221 0041
+11221 0062
+11222 0021
+11222 003F
+11222 0334
+11222 0061
+11222 0041
+11222 0062
+11223 0021
+11223 003F
+11223 0334
+11223 0061
+11223 0041
+11223 0062
+11224 0021
+11224 003F
+11224 0334
+11224 0061
+11224 0041
+11224 0062
+11225 0021
+11225 003F
+11225 0334
+11225 0061
+11225 0041
+11225 0062
+11226 0021
+11226 003F
+11226 0334
+11226 0061
+11226 0041
+11226 0062
+11227 0021
+11227 003F
+11227 0334
+11227 0061
+11227 0041
+11227 0062
+11228 0021
+11228 003F
+11228 0334
+11228 0061
+11228 0041
+11228 0062
+11229 0021
+11229 003F
+11229 0334
+11229 0061
+11229 0041
+11229 0062
+1122A 0021
+1122A 003F
+1122A 0334
+1122A 0061
+1122A 0041
+1122A 0062
+1122B 0021
+1122B 003F
+1122B 0334
+1122B 0061
+1122B 0041
+1122B 0062
+1122C 0021
+1122C 003F
+1122C 0334
+1122C 0061
+1122C 0041
+1122C 0062
+1122D 0021
+1122D 003F
+1122D 0334
+1122D 0061
+1122D 0041
+1122D 0062
+1122E 0021
+1122E 003F
+1122E 0334
+1122E 0061
+1122E 0041
+1122E 0062
+1122F 0021
+1122F 003F
+1122F 0334
+1122F 0061
+1122F 0041
+1122F 0062
+11230 0021
+11230 003F
+11230 0334
+11230 0061
+11230 0041
+11230 0062
+11231 0021
+11231 003F
+11231 0334
+11231 0061
+11231 0041
+11231 0062
+11232 0021
+11232 003F
+11232 0334
+11232 0061
+11232 0041
+11232 0062
+11233 0021
+11233 003F
+11233 0334
+11233 0061
+11233 0041
+11233 0062
+11235 0021
+11235 003F
+0334 11235
+11235 0334
+11235 0061
+11235 0041
+11235 0062
+112B0 0021
+112B0 003F
+112B0 0334
+112B0 0061
+112B0 0041
+112B0 0062
+112B1 0021
+112B1 003F
+112B1 0334
+112B1 0061
+112B1 0041
+112B1 0062
+112B2 0021
+112B2 003F
+112B2 0334
+112B2 0061
+112B2 0041
+112B2 0062
+112B3 0021
+112B3 003F
+112B3 0334
+112B3 0061
+112B3 0041
+112B3 0062
+112B4 0021
+112B4 003F
+112B4 0334
+112B4 0061
+112B4 0041
+112B4 0062
+112B5 0021
+112B5 003F
+112B5 0334
+112B5 0061
+112B5 0041
+112B5 0062
+112B6 0021
+112B6 003F
+112B6 0334
+112B6 0061
+112B6 0041
+112B6 0062
+112B7 0021
+112B7 003F
+112B7 0334
+112B7 0061
+112B7 0041
+112B7 0062
+112B8 0021
+112B8 003F
+112B8 0334
+112B8 0061
+112B8 0041
+112B8 0062
+112B9 0021
+112B9 003F
+112B9 0334
+112B9 0061
+112B9 0041
+112B9 0062
+112BA 0021
+112BA 003F
+112BA 0334
+112BA 0061
+112BA 0041
+112BA 0062
+112BB 0021
+112BB 003F
+112BB 0334
+112BB 0061
+112BB 0041
+112BB 0062
+112BC 0021
+112BC 003F
+112BC 0334
+112BC 0061
+112BC 0041
+112BC 0062
+112BD 0021
+112BD 003F
+112BD 0334
+112BD 0061
+112BD 0041
+112BD 0062
+112BE 0021
+112BE 003F
+112BE 0334
+112BE 0061
+112BE 0041
+112BE 0062
+112BF 0021
+112BF 003F
+112BF 0334
+112BF 0061
+112BF 0041
+112BF 0062
+112C0 0021
+112C0 003F
+112C0 0334
+112C0 0061
+112C0 0041
+112C0 0062
+112C1 0021
+112C1 003F
+112C1 0334
+112C1 0061
+112C1 0041
+112C1 0062
+112C2 0021
+112C2 003F
+112C2 0334
+112C2 0061
+112C2 0041
+112C2 0062
+112C3 0021
+112C3 003F
+112C3 0334
+112C3 0061
+112C3 0041
+112C3 0062
+112C4 0021
+112C4 003F
+112C4 0334
+112C4 0061
+112C4 0041
+112C4 0062
+112C5 0021
+112C5 003F
+112C5 0334
+112C5 0061
+112C5 0041
+112C5 0062
+112C6 0021
+112C6 003F
+112C6 0334
+112C6 0061
+112C6 0041
+112C6 0062
+112C7 0021
+112C7 003F
+112C7 0334
+112C7 0061
+112C7 0041
+112C7 0062
+112C8 0021
+112C8 003F
+112C8 0334
+112C8 0061
+112C8 0041
+112C8 0062
+112C9 0021
+112C9 003F
+112C9 0334
+112C9 0061
+112C9 0041
+112C9 0062
+112CA 0021
+112CA 003F
+112CA 0334
+112CA 0061
+112CA 0041
+112CA 0062
+112CB 0021
+112CB 003F
+112CB 0334
+112CB 0061
+112CB 0041
+112CB 0062
+112CC 0021
+112CC 003F
+112CC 0334
+112CC 0061
+112CC 0041
+112CC 0062
+112CD 0021
+112CD 003F
+112CD 0334
+112CD 0061
+112CD 0041
+112CD 0062
+112CE 0021
+112CE 003F
+112CE 0334
+112CE 0061
+112CE 0041
+112CE 0062
+112CF 0021
+112CF 003F
+112CF 0334
+112CF 0061
+112CF 0041
+112CF 0062
+112D0 0021
+112D0 003F
+112D0 0334
+112D0 0061
+112D0 0041
+112D0 0062
+112D1 0021
+112D1 003F
+112D1 0334
+112D1 0061
+112D1 0041
+112D1 0062
+112D2 0021
+112D2 003F
+112D2 0334
+112D2 0061
+112D2 0041
+112D2 0062
+112D3 0021
+112D3 003F
+112D3 0334
+112D3 0061
+112D3 0041
+112D3 0062
+112D4 0021
+112D4 003F
+112D4 0334
+112D4 0061
+112D4 0041
+112D4 0062
+112D5 0021
+112D5 003F
+112D5 0334
+112D5 0061
+112D5 0041
+112D5 0062
+112D6 0021
+112D6 003F
+112D6 0334
+112D6 0061
+112D6 0041
+112D6 0062
+112D7 0021
+112D7 003F
+112D7 0334
+112D7 0061
+112D7 0041
+112D7 0062
+112D8 0021
+112D8 003F
+112D8 0334
+112D8 0061
+112D8 0041
+112D8 0062
+112D9 0021
+112D9 003F
+112D9 0334
+112D9 0061
+112D9 0041
+112D9 0062
+112DA 0021
+112DA 003F
+112DA 0334
+112DA 0061
+112DA 0041
+112DA 0062
+112DB 0021
+112DB 003F
+112DB 0334
+112DB 0061
+112DB 0041
+112DB 0062
+112DC 0021
+112DC 003F
+112DC 0334
+112DC 0061
+112DC 0041
+112DC 0062
+112DD 0021
+112DD 003F
+112DD 0334
+112DD 0061
+112DD 0041
+112DD 0062
+112DE 0021
+112DE 003F
+112DE 0334
+112DE 0061
+112DE 0041
+112DE 0062
+112E0 0021
+112E0 003F
+112E0 0334
+112E0 0061
+112E0 0041
+112E0 0062
+112E1 0021
+112E1 003F
+112E1 0334
+112E1 0061
+112E1 0041
+112E1 0062
+112E2 0021
+112E2 003F
+112E2 0334
+112E2 0061
+112E2 0041
+112E2 0062
+112E3 0021
+112E3 003F
+112E3 0334
+112E3 0061
+112E3 0041
+112E3 0062
+112E4 0021
+112E4 003F
+112E4 0334
+112E4 0061
+112E4 0041
+112E4 0062
+112E5 0021
+112E5 003F
+112E5 0334
+112E5 0061
+112E5 0041
+112E5 0062
+112E6 0021
+112E6 003F
+112E6 0334
+112E6 0061
+112E6 0041
+112E6 0062
+112E7 0021
+112E7 003F
+112E7 0334
+112E7 0061
+112E7 0041
+112E7 0062
+112E8 0021
+112E8 003F
+112E8 0334
+112E8 0061
+112E8 0041
+112E8 0062
+112EA 0021
+112EA 003F
+0334 112EA
+112EA 0334
+112EA 0061
+112EA 0041
+112EA 0062
+11305 0021
+11305 003F
+11305 0334
+11305 0061
+11305 0041
+11305 0062
+11306 0021
+11306 003F
+11306 0334
+11306 0061
+11306 0041
+11306 0062
+11307 0021
+11307 003F
+11307 0334
+11307 0061
+11307 0041
+11307 0062
+11308 0021
+11308 003F
+11308 0334
+11308 0061
+11308 0041
+11308 0062
+11309 0021
+11309 003F
+11309 0334
+11309 0061
+11309 0041
+11309 0062
+1130A 0021
+1130A 003F
+1130A 0334
+1130A 0061
+1130A 0041
+1130A 0062
+1130B 0021
+1130B 003F
+1130B 0334
+1130B 0061
+1130B 0041
+1130B 0062
+11360 0021
+11360 003F
+11360 0334
+11360 0061
+11360 0041
+11360 0062
+1130C 0021
+1130C 003F
+1130C 0334
+1130C 0061
+1130C 0041
+1130C 0062
+11361 0021
+11361 003F
+11361 0334
+11361 0061
+11361 0041
+11361 0062
+1130F 0021
+1130F 003F
+1130F 0334
+1130F 0061
+1130F 0041
+1130F 0062
+11310 0021
+11310 003F
+11310 0334
+11310 0061
+11310 0041
+11310 0062
+11313 0021
+11313 003F
+11313 0334
+11313 0061
+11313 0041
+11313 0062
+11314 0021
+11314 003F
+11314 0334
+11314 0061
+11314 0041
+11314 0062
+11315 0021
+11315 003F
+11315 0334
+11315 0061
+11315 0041
+11315 0062
+11316 0021
+11316 003F
+11316 0334
+11316 0061
+11316 0041
+11316 0062
+11317 0021
+11317 003F
+11317 0334
+11317 0061
+11317 0041
+11317 0062
+11318 0021
+11318 003F
+11318 0334
+11318 0061
+11318 0041
+11318 0062
+11319 0021
+11319 003F
+11319 0334
+11319 0061
+11319 0041
+11319 0062
+1131A 0021
+1131A 003F
+1131A 0334
+1131A 0061
+1131A 0041
+1131A 0062
+1131B 0021
+1131B 003F
+1131B 0334
+1131B 0061
+1131B 0041
+1131B 0062
+1131C 0021
+1131C 003F
+1131C 0334
+1131C 0061
+1131C 0041
+1131C 0062
+1131D 0021
+1131D 003F
+1131D 0334
+1131D 0061
+1131D 0041
+1131D 0062
+1131E 0021
+1131E 003F
+1131E 0334
+1131E 0061
+1131E 0041
+1131E 0062
+1131F 0021
+1131F 003F
+1131F 0334
+1131F 0061
+1131F 0041
+1131F 0062
+11320 0021
+11320 003F
+11320 0334
+11320 0061
+11320 0041
+11320 0062
+11321 0021
+11321 003F
+11321 0334
+11321 0061
+11321 0041
+11321 0062
+11322 0021
+11322 003F
+11322 0334
+11322 0061
+11322 0041
+11322 0062
+11323 0021
+11323 003F
+11323 0334
+11323 0061
+11323 0041
+11323 0062
+11324 0021
+11324 003F
+11324 0334
+11324 0061
+11324 0041
+11324 0062
+11325 0021
+11325 003F
+11325 0334
+11325 0061
+11325 0041
+11325 0062
+11326 0021
+11326 003F
+11326 0334
+11326 0061
+11326 0041
+11326 0062
+11327 0021
+11327 003F
+11327 0334
+11327 0061
+11327 0041
+11327 0062
+11328 0021
+11328 003F
+11328 0334
+11328 0061
+11328 0041
+11328 0062
+1132A 0021
+1132A 003F
+1132A 0334
+1132A 0061
+1132A 0041
+1132A 0062
+1132B 0021
+1132B 003F
+1132B 0334
+1132B 0061
+1132B 0041
+1132B 0062
+1132C 0021
+1132C 003F
+1132C 0334
+1132C 0061
+1132C 0041
+1132C 0062
+1132D 0021
+1132D 003F
+1132D 0334
+1132D 0061
+1132D 0041
+1132D 0062
+1132E 0021
+1132E 003F
+1132E 0334
+1132E 0061
+1132E 0041
+1132E 0062
+1132F 0021
+1132F 003F
+1132F 0334
+1132F 0061
+1132F 0041
+1132F 0062
+11330 0021
+11330 003F
+11330 0334
+11330 0061
+11330 0041
+11330 0062
+11332 0021
+11332 003F
+11332 0334
+11332 0061
+11332 0041
+11332 0062
+11333 0021
+11333 003F
+11333 0334
+11333 0061
+11333 0041
+11333 0062
+11335 0021
+11335 003F
+11335 0334
+11335 0061
+11335 0041
+11335 0062
+11336 0021
+11336 003F
+11336 0334
+11336 0061
+11336 0041
+11336 0062
+11337 0021
+11337 003F
+11337 0334
+11337 0061
+11337 0041
+11337 0062
+11338 0021
+11338 003F
+11338 0334
+11338 0061
+11338 0041
+11338 0062
+11339 0021
+11339 003F
+11339 0334
+11339 0061
+11339 0041
+11339 0062
+1133D 0021
+1133D 003F
+1133D 0334
+1133D 0061
+1133D 0041
+1133D 0062
+1135E 0021
+1135E 003F
+1135E 0334
+1135E 0061
+1135E 0041
+1135E 0062
+1135F 0021
+1135F 003F
+1135F 0334
+1135F 0061
+1135F 0041
+1135F 0062
+1133E 0021
+1133E 003F
+1133E 0334
+1133E 0061
+1133E 0041
+1133E 0062
+1133F 0021
+1133F 003F
+1133F 0334
+1133F 0061
+1133F 0041
+1133F 0062
+11340 0021
+11340 003F
+11340 0334
+11340 0061
+11340 0041
+11340 0062
+11341 0021
+11341 003F
+11341 0334
+11341 0061
+11341 0041
+11341 0062
+11342 0021
+11342 003F
+11342 0334
+11342 0061
+11342 0041
+11342 0062
+11343 0021
+11343 003F
+11343 0334
+11343 0061
+11343 0041
+11343 0062
+11344 0021
+11344 003F
+11344 0334
+11344 0061
+11344 0041
+11344 0062
+11362 0021
+11362 003F
+11362 0334
+11362 0061
+11362 0041
+11362 0062
+11363 0021
+11363 003F
+11363 0334
+11363 0061
+11363 0041
+11363 0062
+11347 0021
+11347 003F
+11347 0334
+11347 0061
+11347 0041
+11347 0062
+11347 0001 1133E 0061
+11347 0591 1133E 0061
+11347 1D165 1133E 0061
+11347 0001 11357 0061
+11347 0591 11357 0061
+11347 1D165 11357 0061
+11348 0021
+11348 003F
+11348 0334
+11348 0061
+11348 0041
+11348 0062
+11347 1133E 0021
+1134B 0021
+11347 1133E 003F
+1134B 003F
+11347 1133E 0334
+1134B 0334
+11347 1133E 0061
+1134B 0061
+11347 1133E 0041
+1134B 0041
+11347 1133E 0062
+1134B 0062
+11347 11357 0021
+1134C 0021
+11347 11357 003F
+1134C 003F
+11347 11357 0334
+1134C 0334
+11347 11357 0061
+1134C 0061
+11347 11357 0041
+1134C 0041
+11347 11357 0062
+1134C 0062
+1134D 0021
+1134D 003F
+0334 1134D
+1134D 0334
+1134D 0061
+1134D 0041
+1134D 0062
+11357 0021
+11357 003F
+11357 0334
+11357 0061
+11357 0041
+11357 0062
+1135D 0021
+1135D 003F
+1135D 0334
+1135D 0061
+1135D 0041
+1135D 0062
+114C7 0021
+114C7 003F
+114C7 0334
+114C7 0061
+114C7 0041
+114C7 0062
+11480 0021
+11480 003F
+11480 0334
+11480 0061
+11480 0041
+11480 0062
+11481 0021
+11481 003F
+11481 0334
+11481 0061
+11481 0041
+11481 0062
+11482 0021
+11482 003F
+11482 0334
+11482 0061
+11482 0041
+11482 0062
+11483 0021
+11483 003F
+11483 0334
+11483 0061
+11483 0041
+11483 0062
+11484 0021
+11484 003F
+11484 0334
+11484 0061
+11484 0041
+11484 0062
+11485 0021
+11485 003F
+11485 0334
+11485 0061
+11485 0041
+11485 0062
+11486 0021
+11486 003F
+11486 0334
+11486 0061
+11486 0041
+11486 0062
+11487 0021
+11487 003F
+11487 0334
+11487 0061
+11487 0041
+11487 0062
+11488 0021
+11488 003F
+11488 0334
+11488 0061
+11488 0041
+11488 0062
+11489 0021
+11489 003F
+11489 0334
+11489 0061
+11489 0041
+11489 0062
+1148A 0021
+1148A 003F
+1148A 0334
+1148A 0061
+1148A 0041
+1148A 0062
+1148B 0021
+1148B 003F
+1148B 0334
+1148B 0061
+1148B 0041
+1148B 0062
+1148C 0021
+1148C 003F
+1148C 0334
+1148C 0061
+1148C 0041
+1148C 0062
+1148D 0021
+1148D 003F
+1148D 0334
+1148D 0061
+1148D 0041
+1148D 0062
+1148E 0021
+1148E 003F
+1148E 0334
+1148E 0061
+1148E 0041
+1148E 0062
+1148F 0021
+1148F 003F
+1148F 0334
+1148F 0061
+1148F 0041
+1148F 0062
+11490 0021
+11490 003F
+11490 0334
+11490 0061
+11490 0041
+11490 0062
+11491 0021
+11491 003F
+11491 0334
+11491 0061
+11491 0041
+11491 0062
+11492 0021
+11492 003F
+11492 0334
+11492 0061
+11492 0041
+11492 0062
+11493 0021
+11493 003F
+11493 0334
+11493 0061
+11493 0041
+11493 0062
+11494 0021
+11494 003F
+11494 0334
+11494 0061
+11494 0041
+11494 0062
+11495 0021
+11495 003F
+11495 0334
+11495 0061
+11495 0041
+11495 0062
+11496 0021
+11496 003F
+11496 0334
+11496 0061
+11496 0041
+11496 0062
+11497 0021
+11497 003F
+11497 0334
+11497 0061
+11497 0041
+11497 0062
+11498 0021
+11498 003F
+11498 0334
+11498 0061
+11498 0041
+11498 0062
+11499 0021
+11499 003F
+11499 0334
+11499 0061
+11499 0041
+11499 0062
+1149A 0021
+1149A 003F
+1149A 0334
+1149A 0061
+1149A 0041
+1149A 0062
+1149B 0021
+1149B 003F
+1149B 0334
+1149B 0061
+1149B 0041
+1149B 0062
+1149C 0021
+1149C 003F
+1149C 0334
+1149C 0061
+1149C 0041
+1149C 0062
+1149D 0021
+1149D 003F
+1149D 0334
+1149D 0061
+1149D 0041
+1149D 0062
+1149E 0021
+1149E 003F
+1149E 0334
+1149E 0061
+1149E 0041
+1149E 0062
+1149F 0021
+1149F 003F
+1149F 0334
+1149F 0061
+1149F 0041
+1149F 0062
+114A0 0021
+114A0 003F
+114A0 0334
+114A0 0061
+114A0 0041
+114A0 0062
+114A1 0021
+114A1 003F
+114A1 0334
+114A1 0061
+114A1 0041
+114A1 0062
+114A2 0021
+114A2 003F
+114A2 0334
+114A2 0061
+114A2 0041
+114A2 0062
+114A3 0021
+114A3 003F
+114A3 0334
+114A3 0061
+114A3 0041
+114A3 0062
+114A4 0021
+114A4 003F
+114A4 0334
+114A4 0061
+114A4 0041
+114A4 0062
+114A5 0021
+114A5 003F
+114A5 0334
+114A5 0061
+114A5 0041
+114A5 0062
+114A6 0021
+114A6 003F
+114A6 0334
+114A6 0061
+114A6 0041
+114A6 0062
+114A7 0021
+114A7 003F
+114A7 0334
+114A7 0061
+114A7 0041
+114A7 0062
+114A8 0021
+114A8 003F
+114A8 0334
+114A8 0061
+114A8 0041
+114A8 0062
+114A9 0021
+114A9 003F
+114A9 0334
+114A9 0061
+114A9 0041
+114A9 0062
+114AA 0021
+114AA 003F
+114AA 0334
+114AA 0061
+114AA 0041
+114AA 0062
+114AB 0021
+114AB 003F
+114AB 0334
+114AB 0061
+114AB 0041
+114AB 0062
+114AC 0021
+114AC 003F
+114AC 0334
+114AC 0061
+114AC 0041
+114AC 0062
+114AD 0021
+114AD 003F
+114AD 0334
+114AD 0061
+114AD 0041
+114AD 0062
+114AE 0021
+114AE 003F
+114AE 0334
+114AE 0061
+114AE 0041
+114AE 0062
+114AF 0021
+114AF 003F
+114AF 0334
+114AF 0061
+114AF 0041
+114AF 0062
+114C4 0021
+114C4 003F
+114C4 0334
+114C4 0061
+114C4 0041
+114C4 0062
+114C5 0021
+114C5 003F
+114C5 0334
+114C5 0061
+114C5 0041
+114C5 0062
+114B0 0021
+114B0 003F
+114B0 0334
+114B0 0061
+114B0 0041
+114B0 0062
+114B1 0021
+114B1 003F
+114B1 0334
+114B1 0061
+114B1 0041
+114B1 0062
+114B2 0021
+114B2 003F
+114B2 0334
+114B2 0061
+114B2 0041
+114B2 0062
+114B3 0021
+114B3 003F
+114B3 0334
+114B3 0061
+114B3 0041
+114B3 0062
+114B4 0021
+114B4 003F
+114B4 0334
+114B4 0061
+114B4 0041
+114B4 0062
+114B5 0021
+114B5 003F
+114B5 0334
+114B5 0061
+114B5 0041
+114B5 0062
+114B6 0021
+114B6 003F
+114B6 0334
+114B6 0061
+114B6 0041
+114B6 0062
+114B7 0021
+114B7 003F
+114B7 0334
+114B7 0061
+114B7 0041
+114B7 0062
+114B8 0021
+114B8 003F
+114B8 0334
+114B8 0061
+114B8 0041
+114B8 0062
+114B9 0021
+114B9 003F
+114B9 0334
+114B9 0061
+114B9 0041
+114B9 0062
+114B9 0001 114B0 0061
+114B9 0591 114B0 0061
+114B9 1D165 114B0 0061
+114B9 0001 114BA 0061
+114B9 0591 114BA 0061
+114B9 1D165 114BA 0061
+114B9 0001 114BD 0061
+114B9 0591 114BD 0061
+114B9 1D165 114BD 0061
+114BA 0021
+114BA 003F
+114BA 0334
+114BA 0061
+114BA 0041
+114BA 0062
+114B9 114BA 0021
+114BB 0021
+114B9 114BA 003F
+114BB 003F
+114B9 114BA 0334
+114BB 0334
+114B9 114BA 0061
+114BB 0061
+114B9 114BA 0041
+114BB 0041
+114B9 114BA 0062
+114BB 0062
+114B9 114B0 0021
+114BC 0021
+114B9 114B0 003F
+114BC 003F
+114B9 114B0 0334
+114BC 0334
+114B9 114B0 0061
+114BC 0061
+114B9 114B0 0041
+114BC 0041
+114B9 114B0 0062
+114BC 0062
+114BD 0021
+114BD 003F
+114BD 0334
+114BD 0061
+114BD 0041
+114BD 0062
+114B9 114BD 0021
+114BE 0021
+114B9 114BD 003F
+114BE 003F
+114B9 114BD 0334
+114BE 0334
+114B9 114BD 0061
+114BE 0061
+114B9 114BD 0041
+114BE 0041
+114B9 114BD 0062
+114BE 0062
+114C2 0021
+114C2 003F
+0334 114C2
+114C2 0334
+114C2 0061
+114C2 0041
+114C2 0062
+11580 0021
+11580 003F
+11580 0334
+11580 0061
+11580 0041
+11580 0062
+11581 0021
+11581 003F
+11581 0334
+11581 0061
+11581 0041
+11581 0062
+11582 0021
+11582 003F
+11582 0334
+11582 0061
+11582 0041
+11582 0062
+11583 0021
+11583 003F
+11583 0334
+11583 0061
+11583 0041
+11583 0062
+11584 0021
+11584 003F
+11584 0334
+11584 0061
+11584 0041
+11584 0062
+11585 0021
+11585 003F
+11585 0334
+11585 0061
+11585 0041
+11585 0062
+11586 0021
+11586 003F
+11586 0334
+11586 0061
+11586 0041
+11586 0062
+11587 0021
+11587 003F
+11587 0334
+11587 0061
+11587 0041
+11587 0062
+11588 0021
+11588 003F
+11588 0334
+11588 0061
+11588 0041
+11588 0062
+11589 0021
+11589 003F
+11589 0334
+11589 0061
+11589 0041
+11589 0062
+1158A 0021
+1158A 003F
+1158A 0334
+1158A 0061
+1158A 0041
+1158A 0062
+1158B 0021
+1158B 003F
+1158B 0334
+1158B 0061
+1158B 0041
+1158B 0062
+1158C 0021
+1158C 003F
+1158C 0334
+1158C 0061
+1158C 0041
+1158C 0062
+1158D 0021
+1158D 003F
+1158D 0334
+1158D 0061
+1158D 0041
+1158D 0062
+1158E 0021
+1158E 003F
+1158E 0334
+1158E 0061
+1158E 0041
+1158E 0062
+1158F 0021
+1158F 003F
+1158F 0334
+1158F 0061
+1158F 0041
+1158F 0062
+11590 0021
+11590 003F
+11590 0334
+11590 0061
+11590 0041
+11590 0062
+11591 0021
+11591 003F
+11591 0334
+11591 0061
+11591 0041
+11591 0062
+11592 0021
+11592 003F
+11592 0334
+11592 0061
+11592 0041
+11592 0062
+11593 0021
+11593 003F
+11593 0334
+11593 0061
+11593 0041
+11593 0062
+11594 0021
+11594 003F
+11594 0334
+11594 0061
+11594 0041
+11594 0062
+11595 0021
+11595 003F
+11595 0334
+11595 0061
+11595 0041
+11595 0062
+11596 0021
+11596 003F
+11596 0334
+11596 0061
+11596 0041
+11596 0062
+11597 0021
+11597 003F
+11597 0334
+11597 0061
+11597 0041
+11597 0062
+11598 0021
+11598 003F
+11598 0334
+11598 0061
+11598 0041
+11598 0062
+11599 0021
+11599 003F
+11599 0334
+11599 0061
+11599 0041
+11599 0062
+1159A 0021
+1159A 003F
+1159A 0334
+1159A 0061
+1159A 0041
+1159A 0062
+1159B 0021
+1159B 003F
+1159B 0334
+1159B 0061
+1159B 0041
+1159B 0062
+1159C 0021
+1159C 003F
+1159C 0334
+1159C 0061
+1159C 0041
+1159C 0062
+1159D 0021
+1159D 003F
+1159D 0334
+1159D 0061
+1159D 0041
+1159D 0062
+1159E 0021
+1159E 003F
+1159E 0334
+1159E 0061
+1159E 0041
+1159E 0062
+1159F 0021
+1159F 003F
+1159F 0334
+1159F 0061
+1159F 0041
+1159F 0062
+115A0 0021
+115A0 003F
+115A0 0334
+115A0 0061
+115A0 0041
+115A0 0062
+115A1 0021
+115A1 003F
+115A1 0334
+115A1 0061
+115A1 0041
+115A1 0062
+115A2 0021
+115A2 003F
+115A2 0334
+115A2 0061
+115A2 0041
+115A2 0062
+115A3 0021
+115A3 003F
+115A3 0334
+115A3 0061
+115A3 0041
+115A3 0062
+115A4 0021
+115A4 003F
+115A4 0334
+115A4 0061
+115A4 0041
+115A4 0062
+115A5 0021
+115A5 003F
+115A5 0334
+115A5 0061
+115A5 0041
+115A5 0062
+115A6 0021
+115A6 003F
+115A6 0334
+115A6 0061
+115A6 0041
+115A6 0062
+115A7 0021
+115A7 003F
+115A7 0334
+115A7 0061
+115A7 0041
+115A7 0062
+115A8 0021
+115A8 003F
+115A8 0334
+115A8 0061
+115A8 0041
+115A8 0062
+115A9 0021
+115A9 003F
+115A9 0334
+115A9 0061
+115A9 0041
+115A9 0062
+115AA 0021
+115AA 003F
+115AA 0334
+115AA 0061
+115AA 0041
+115AA 0062
+115AB 0021
+115AB 003F
+115AB 0334
+115AB 0061
+115AB 0041
+115AB 0062
+115AC 0021
+115AC 003F
+115AC 0334
+115AC 0061
+115AC 0041
+115AC 0062
+115AD 0021
+115AD 003F
+115AD 0334
+115AD 0061
+115AD 0041
+115AD 0062
+115AE 0021
+115AE 003F
+115AE 0334
+115AE 0061
+115AE 0041
+115AE 0062
+115AF 0021
+115AF 003F
+115AF 0334
+115AF 0061
+115AF 0041
+115AF 0062
+115B0 0021
+115B0 003F
+115B0 0334
+115B0 0061
+115B0 0041
+115B0 0062
+115B1 0021
+115B1 003F
+115B1 0334
+115B1 0061
+115B1 0041
+115B1 0062
+115B2 0021
+115B2 003F
+115B2 0334
+115B2 0061
+115B2 0041
+115B2 0062
+115B3 0021
+115B3 003F
+115B3 0334
+115B3 0061
+115B3 0041
+115B3 0062
+115B4 0021
+115B4 003F
+115B4 0334
+115B4 0061
+115B4 0041
+115B4 0062
+115B5 0021
+115B5 003F
+115B5 0334
+115B5 0061
+115B5 0041
+115B5 0062
+115B8 0021
+115B8 003F
+115B8 0334
+115B8 0061
+115B8 0041
+115B8 0062
+115B8 0001 115AF 0061
+115B8 0591 115AF 0061
+115B8 1D165 115AF 0061
+115B9 0021
+115B9 003F
+115B9 0334
+115B9 0061
+115B9 0041
+115B9 0062
+115B9 0001 115AF 0061
+115B9 0591 115AF 0061
+115B9 1D165 115AF 0061
+115B8 115AF 0021
+115BA 0021
+115B8 115AF 003F
+115BA 003F
+115B8 115AF 0334
+115BA 0334
+115B8 115AF 0061
+115BA 0061
+115B8 115AF 0041
+115BA 0041
+115B8 115AF 0062
+115BA 0062
+115B9 115AF 0021
+115BB 0021
+115B9 115AF 003F
+115BB 003F
+115B9 115AF 0334
+115BB 0334
+115B9 115AF 0061
+115BB 0061
+115B9 115AF 0041
+115BB 0041
+115B9 115AF 0062
+115BB 0062
+115BF 0021
+115BF 003F
+0334 115BF
+115BF 0334
+115BF 0061
+115BF 0041
+115BF 0062
+11600 0021
+11600 003F
+11600 0334
+11600 0061
+11600 0041
+11600 0062
+11601 0021
+11601 003F
+11601 0334
+11601 0061
+11601 0041
+11601 0062
+11602 0021
+11602 003F
+11602 0334
+11602 0061
+11602 0041
+11602 0062
+11603 0021
+11603 003F
+11603 0334
+11603 0061
+11603 0041
+11603 0062
+11604 0021
+11604 003F
+11604 0334
+11604 0061
+11604 0041
+11604 0062
+11605 0021
+11605 003F
+11605 0334
+11605 0061
+11605 0041
+11605 0062
+11606 0021
+11606 003F
+11606 0334
+11606 0061
+11606 0041
+11606 0062
+11607 0021
+11607 003F
+11607 0334
+11607 0061
+11607 0041
+11607 0062
+11608 0021
+11608 003F
+11608 0334
+11608 0061
+11608 0041
+11608 0062
+11609 0021
+11609 003F
+11609 0334
+11609 0061
+11609 0041
+11609 0062
+1160A 0021
+1160A 003F
+1160A 0334
+1160A 0061
+1160A 0041
+1160A 0062
+1160B 0021
+1160B 003F
+1160B 0334
+1160B 0061
+1160B 0041
+1160B 0062
+1160C 0021
+1160C 003F
+1160C 0334
+1160C 0061
+1160C 0041
+1160C 0062
+1160D 0021
+1160D 003F
+1160D 0334
+1160D 0061
+1160D 0041
+1160D 0062
+1160E 0021
+1160E 003F
+1160E 0334
+1160E 0061
+1160E 0041
+1160E 0062
+1160F 0021
+1160F 003F
+1160F 0334
+1160F 0061
+1160F 0041
+1160F 0062
+11610 0021
+11610 003F
+11610 0334
+11610 0061
+11610 0041
+11610 0062
+11611 0021
+11611 003F
+11611 0334
+11611 0061
+11611 0041
+11611 0062
+11612 0021
+11612 003F
+11612 0334
+11612 0061
+11612 0041
+11612 0062
+11613 0021
+11613 003F
+11613 0334
+11613 0061
+11613 0041
+11613 0062
+11614 0021
+11614 003F
+11614 0334
+11614 0061
+11614 0041
+11614 0062
+11615 0021
+11615 003F
+11615 0334
+11615 0061
+11615 0041
+11615 0062
+11616 0021
+11616 003F
+11616 0334
+11616 0061
+11616 0041
+11616 0062
+11617 0021
+11617 003F
+11617 0334
+11617 0061
+11617 0041
+11617 0062
+11618 0021
+11618 003F
+11618 0334
+11618 0061
+11618 0041
+11618 0062
+11619 0021
+11619 003F
+11619 0334
+11619 0061
+11619 0041
+11619 0062
+1161A 0021
+1161A 003F
+1161A 0334
+1161A 0061
+1161A 0041
+1161A 0062
+1161B 0021
+1161B 003F
+1161B 0334
+1161B 0061
+1161B 0041
+1161B 0062
+1161C 0021
+1161C 003F
+1161C 0334
+1161C 0061
+1161C 0041
+1161C 0062
+1161D 0021
+1161D 003F
+1161D 0334
+1161D 0061
+1161D 0041
+1161D 0062
+1161E 0021
+1161E 003F
+1161E 0334
+1161E 0061
+1161E 0041
+1161E 0062
+1161F 0021
+1161F 003F
+1161F 0334
+1161F 0061
+1161F 0041
+1161F 0062
+11620 0021
+11620 003F
+11620 0334
+11620 0061
+11620 0041
+11620 0062
+11621 0021
+11621 003F
+11621 0334
+11621 0061
+11621 0041
+11621 0062
+11622 0021
+11622 003F
+11622 0334
+11622 0061
+11622 0041
+11622 0062
+11623 0021
+11623 003F
+11623 0334
+11623 0061
+11623 0041
+11623 0062
+11624 0021
+11624 003F
+11624 0334
+11624 0061
+11624 0041
+11624 0062
+11625 0021
+11625 003F
+11625 0334
+11625 0061
+11625 0041
+11625 0062
+11626 0021
+11626 003F
+11626 0334
+11626 0061
+11626 0041
+11626 0062
+11627 0021
+11627 003F
+11627 0334
+11627 0061
+11627 0041
+11627 0062
+11628 0021
+11628 003F
+11628 0334
+11628 0061
+11628 0041
+11628 0062
+11629 0021
+11629 003F
+11629 0334
+11629 0061
+11629 0041
+11629 0062
+1162A 0021
+1162A 003F
+1162A 0334
+1162A 0061
+1162A 0041
+1162A 0062
+1162B 0021
+1162B 003F
+1162B 0334
+1162B 0061
+1162B 0041
+1162B 0062
+1162C 0021
+1162C 003F
+1162C 0334
+1162C 0061
+1162C 0041
+1162C 0062
+1162D 0021
+1162D 003F
+1162D 0334
+1162D 0061
+1162D 0041
+1162D 0062
+1162E 0021
+1162E 003F
+1162E 0334
+1162E 0061
+1162E 0041
+1162E 0062
+1162F 0021
+1162F 003F
+1162F 0334
+1162F 0061
+1162F 0041
+1162F 0062
+11630 0021
+11630 003F
+11630 0334
+11630 0061
+11630 0041
+11630 0062
+11631 0021
+11631 003F
+11631 0334
+11631 0061
+11631 0041
+11631 0062
+11632 0021
+11632 003F
+11632 0334
+11632 0061
+11632 0041
+11632 0062
+11633 0021
+11633 003F
+11633 0334
+11633 0061
+11633 0041
+11633 0062
+11634 0021
+11634 003F
+11634 0334
+11634 0061
+11634 0041
+11634 0062
+11635 0021
+11635 003F
+11635 0334
+11635 0061
+11635 0041
+11635 0062
+11636 0021
+11636 003F
+11636 0334
+11636 0061
+11636 0041
+11636 0062
+11637 0021
+11637 003F
+11637 0334
+11637 0061
+11637 0041
+11637 0062
+11638 0021
+11638 003F
+11638 0334
+11638 0061
+11638 0041
+11638 0062
+11639 0021
+11639 003F
+11639 0334
+11639 0061
+11639 0041
+11639 0062
+1163A 0021
+1163A 003F
+1163A 0334
+1163A 0061
+1163A 0041
+1163A 0062
+1163B 0021
+1163B 003F
+1163B 0334
+1163B 0061
+1163B 0041
+1163B 0062
+1163C 0021
+1163C 003F
+1163C 0334
+1163C 0061
+1163C 0041
+1163C 0062
+1163F 0021
+1163F 003F
+0334 1163F
+1163F 0334
+1163F 0061
+1163F 0041
+1163F 0062
+11644 0021
+11644 003F
+11644 0334
+11644 0061
+11644 0041
+11644 0062
11680 0021
11680 003F
11680 0334
@@ -80088,6 +89116,13 @@ A8C4 0062
11046 0061
11046 0041
11046 0062
+1107F 0021
+1107F 003F
+0334 1107F
+1107F 0334
+1107F 0061
+1107F 0041
+1107F 0062
10A00 0021
10A00 003F
10A00 0334
@@ -87676,6 +96711,11 @@ A873 0062
1908 0061
1908 0041
1908 0062
+191D 0021
+191D 003F
+191D 0061
+191D 0041
+191D 0062
1909 0021
1909 003F
1909 0061
@@ -87691,6 +96731,11 @@ A873 0062
190B 0061
190B 0041
190B 0062
+191E 0021
+191E 003F
+191E 0061
+191E 0041
+191E 0062
190C 0021
190C 003F
190C 0061
@@ -89065,11 +98110,26 @@ AA60 003F
AA60 0061
AA60 0041
AA60 0062
+A9E9 0021
+A9E9 003F
+A9E9 0061
+A9E9 0041
+A9E9 0062
1003 0021
1003 003F
1003 0061
1003 0041
1003 0062
+A9E0 0021
+A9E0 003F
+A9E0 0061
+A9E0 0041
+A9E0 0062
+A9EA 0021
+A9EA 003F
+A9EA 0061
+A9EA 0041
+A9EA 0062
1004 0021
1004 003F
1004 0061
@@ -89100,11 +98160,21 @@ AA61 0062
1006 0061
1006 0041
1006 0062
+A9E1 0021
+A9E1 003F
+A9E1 0061
+A9E1 0041
+A9E1 0062
AA62 0021
AA62 003F
AA62 0061
AA62 0041
AA62 0062
+AA7E 0021
+AA7E 003F
+AA7E 0061
+AA7E 0041
+AA7E 0062
1007 0021
1007 003F
1007 0061
@@ -89115,6 +98185,11 @@ AA63 003F
AA63 0061
AA63 0041
AA63 0062
+A9EB 0021
+A9EB 003F
+A9EB 0061
+A9EB 0041
+A9EB 0062
1079 0021
1079 003F
1079 0061
@@ -89135,16 +98210,31 @@ AA72 0062
105B 0061
105B 0041
105B 0062
+A9E2 0021
+A9E2 003F
+A9E2 0061
+A9E2 0041
+A9E2 0062
AA64 0021
AA64 003F
AA64 0061
AA64 0041
AA64 0062
+A9EC 0021
+A9EC 003F
+A9EC 0061
+A9EC 0041
+A9EC 0062
1061 0021
1061 003F
1061 0061
1061 0041
1061 0062
+AA7F 0021
+AA7F 003F
+AA7F 0061
+AA7F 0041
+AA7F 0062
1009 0021
1009 003F
1009 0061
@@ -89160,6 +98250,11 @@ AA65 003F
AA65 0061
AA65 0041
AA65 0062
+A9E7 0021
+A9E7 003F
+A9E7 0061
+A9E7 0041
+A9E7 0062
100A 0021
100A 003F
100A 0061
@@ -89195,6 +98290,11 @@ AA68 003F
AA68 0061
AA68 0041
AA68 0062
+A9ED 0021
+A9ED 003F
+A9ED 0061
+A9ED 0041
+A9ED 0062
100E 0021
100E 003F
100E 0061
@@ -89205,6 +98305,11 @@ AA69 003F
AA69 0061
AA69 0041
AA69 0062
+A9EE 0021
+A9EE 003F
+A9EE 0061
+A9EE 0041
+A9EE 0062
100F 0021
100F 003F
100F 0061
@@ -89215,6 +98320,16 @@ AA69 0062
106E 0061
106E 0041
106E 0062
+A9E3 0021
+A9E3 003F
+A9E3 0061
+A9E3 0041
+A9E3 0062
+A9EF 0021
+A9EF 003F
+A9EF 0061
+A9EF 0041
+A9EF 0062
1010 0021
1010 003F
1010 0061
@@ -89235,6 +98350,11 @@ AA69 0062
107B 0061
107B 0041
107B 0062
+A9FB 0021
+A9FB 003F
+A9FB 0061
+A9FB 0041
+A9FB 0062
1013 0021
1013 003F
1013 0061
@@ -89245,6 +98365,11 @@ AA6A 003F
AA6A 0061
AA6A 0041
AA6A 0062
+A9FC 0021
+A9FC 003F
+A9FC 0061
+A9FC 0041
+A9FC 0062
1014 0021
1014 003F
1014 0061
@@ -89295,6 +98420,11 @@ AA6F 0062
108E 0061
108E 0041
108E 0062
+A9E8 0021
+A9E8 003F
+A9E8 0061
+A9E8 0041
+A9E8 0062
1017 0021
1017 003F
1017 0061
@@ -89305,11 +98435,26 @@ AA6F 0062
107F 0061
107F 0041
107F 0062
+A9FD 0021
+A9FD 003F
+A9FD 0061
+A9FD 0041
+A9FD 0062
1018 0021
1018 003F
1018 0061
1018 0041
1018 0062
+A9E4 0021
+A9E4 003F
+A9E4 0061
+A9E4 0041
+A9E4 0062
+A9FE 0021
+A9FE 003F
+A9FE 0061
+A9FE 0041
+A9FE 0062
1019 0021
1019 003F
1019 0061
@@ -89445,6 +98590,11 @@ AA71 0062
1020 0061
1020 0041
1020 0062
+A9FA 0021
+A9FA 003F
+A9FA 0061
+A9FA 0041
+A9FA 0062
105C 0021
105C 003F
105C 0061
@@ -89683,6 +98833,11 @@ AA71 0062
1068 0061
1068 0041
1068 0062
+A9E5 0021
+A9E5 003F
+A9E5 0061
+A9E5 0041
+A9E5 0062
1086 0021
1086 003F
1086 0061
@@ -89757,6 +98912,13 @@ AA71 0062
108C 0061
108C 0041
108C 0062
+108D 0021
+108D 003F
+0334 108D
+108D 0334
+108D 0061
+108D 0041
+108D 0062
1089 0021
1089 003F
1089 0061
@@ -89787,6 +98949,16 @@ AA7B 003F
AA7B 0061
AA7B 0041
AA7B 0062
+AA7C 0021
+AA7C 003F
+AA7C 0061
+AA7C 0041
+AA7C 0062
+AA7D 0021
+AA7D 003F
+AA7D 0061
+AA7D 0041
+AA7D 0062
AA74 0021
AA74 003F
AA74 0061
@@ -97505,6 +106677,11 @@ A9C0 0062
16AC 0062
16AD 0062
16AE 0062
+16F4 0021
+16F4 003F
+16F4 0061
+16F4 0041
+16F4 0062
16AF 0021
16AF 003F
16AF 0061
@@ -97545,6 +106722,11 @@ A9C0 0062
16B4 0062
16B5 0062
16B6 0062
+16F1 0021
+16F1 003F
+16F1 0061
+16F1 0041
+16F1 0062
16B7 0021
16B7 003F
16B7 0061
@@ -97605,6 +106787,11 @@ A9C0 0062
16C2 0041
16C1 0062
16C2 0062
+16F5 0021
+16F5 003F
+16F5 0061
+16F5 0041
+16F5 0062
16C3 0021
16C3 003F
16C4 0021
@@ -97680,6 +106867,11 @@ A9C0 0062
16CC 0062
16CD 0062
16CE 0062
+16F2 0021
+16F2 003F
+16F2 0061
+16F2 0041
+16F2 0062
16CF 0021
16CF 003F
16D0 0021
@@ -97715,6 +106907,11 @@ A9C0 0062
16D6 0061
16D6 0041
16D6 0062
+16F6 0021
+16F6 003F
+16F6 0061
+16F6 0041
+16F6 0062
16D7 0021
16D7 003F
16D8 0021
@@ -97765,16 +106962,31 @@ A9C0 0062
16DF 0061
16DF 0041
16DF 0062
+16F3 0021
+16F3 003F
+16F3 0061
+16F3 0041
+16F3 0062
16AA 0021
16AA 003F
16AA 0061
16AA 0041
16AA 0062
+16F7 0021
+16F7 003F
+16F7 0061
+16F7 0041
+16F7 0062
16AB 0021
16AB 003F
16AB 0061
16AB 0041
16AB 0062
+16F8 0021
+16F8 003F
+16F8 0061
+16F8 0041
+16F8 0062
16A3 0021
16A3 003F
16A3 0061
@@ -103517,6 +112729,1368 @@ A6EF 0062
16A38 0061
16A38 0041
16A38 0062
+16AD0 0021
+16AD0 003F
+16AD0 0334
+16AD0 0061
+16AD0 0041
+16AD0 0062
+16AD1 0021
+16AD1 003F
+16AD1 0334
+16AD1 0061
+16AD1 0041
+16AD1 0062
+16AD2 0021
+16AD2 003F
+16AD2 0334
+16AD2 0061
+16AD2 0041
+16AD2 0062
+16AD3 0021
+16AD3 003F
+16AD3 0334
+16AD3 0061
+16AD3 0041
+16AD3 0062
+16AD4 0021
+16AD4 003F
+16AD4 0334
+16AD4 0061
+16AD4 0041
+16AD4 0062
+16AD5 0021
+16AD5 003F
+16AD5 0334
+16AD5 0061
+16AD5 0041
+16AD5 0062
+16AD6 0021
+16AD6 003F
+16AD6 0334
+16AD6 0061
+16AD6 0041
+16AD6 0062
+16AD7 0021
+16AD7 003F
+16AD7 0334
+16AD7 0061
+16AD7 0041
+16AD7 0062
+16AD8 0021
+16AD8 003F
+16AD8 0334
+16AD8 0061
+16AD8 0041
+16AD8 0062
+16AD9 0021
+16AD9 003F
+16AD9 0334
+16AD9 0061
+16AD9 0041
+16AD9 0062
+16ADA 0021
+16ADA 003F
+16ADA 0334
+16ADA 0061
+16ADA 0041
+16ADA 0062
+16ADB 0021
+16ADB 003F
+16ADB 0334
+16ADB 0061
+16ADB 0041
+16ADB 0062
+16ADC 0021
+16ADC 003F
+16ADC 0334
+16ADC 0061
+16ADC 0041
+16ADC 0062
+16ADD 0021
+16ADD 003F
+16ADD 0334
+16ADD 0061
+16ADD 0041
+16ADD 0062
+16ADE 0021
+16ADE 003F
+16ADE 0334
+16ADE 0061
+16ADE 0041
+16ADE 0062
+16ADF 0021
+16ADF 003F
+16ADF 0334
+16ADF 0061
+16ADF 0041
+16ADF 0062
+16AE0 0021
+16AE0 003F
+16AE0 0334
+16AE0 0061
+16AE0 0041
+16AE0 0062
+16AE1 0021
+16AE1 003F
+16AE1 0334
+16AE1 0061
+16AE1 0041
+16AE1 0062
+16AE2 0021
+16AE2 003F
+16AE2 0334
+16AE2 0061
+16AE2 0041
+16AE2 0062
+16AE3 0021
+16AE3 003F
+16AE3 0334
+16AE3 0061
+16AE3 0041
+16AE3 0062
+16AE4 0021
+16AE4 003F
+16AE4 0334
+16AE4 0061
+16AE4 0041
+16AE4 0062
+16AE5 0021
+16AE5 003F
+16AE5 0334
+16AE5 0061
+16AE5 0041
+16AE5 0062
+16AE6 0021
+16AE6 003F
+16AE6 0334
+16AE6 0061
+16AE6 0041
+16AE6 0062
+16AE7 0021
+16AE7 003F
+16AE7 0334
+16AE7 0061
+16AE7 0041
+16AE7 0062
+16AE8 0021
+16AE8 003F
+16AE8 0334
+16AE8 0061
+16AE8 0041
+16AE8 0062
+16AE9 0021
+16AE9 003F
+16AE9 0334
+16AE9 0061
+16AE9 0041
+16AE9 0062
+16AEA 0021
+16AEA 003F
+16AEA 0334
+16AEA 0061
+16AEA 0041
+16AEA 0062
+16AEB 0021
+16AEB 003F
+16AEB 0334
+16AEB 0061
+16AEB 0041
+16AEB 0062
+16AEC 0021
+16AEC 003F
+16AEC 0334
+16AEC 0061
+16AEC 0041
+16AEC 0062
+16AED 0021
+16AED 003F
+16AED 0334
+16AED 0061
+16AED 0041
+16AED 0062
+1E800 0021
+1E800 003F
+1E800 0334
+1E800 0061
+1E800 0041
+1E800 0062
+1E801 0021
+1E801 003F
+1E801 0334
+1E801 0061
+1E801 0041
+1E801 0062
+1E802 0021
+1E802 003F
+1E802 0334
+1E802 0061
+1E802 0041
+1E802 0062
+1E803 0021
+1E803 003F
+1E803 0334
+1E803 0061
+1E803 0041
+1E803 0062
+1E804 0021
+1E804 003F
+1E804 0334
+1E804 0061
+1E804 0041
+1E804 0062
+1E805 0021
+1E805 003F
+1E805 0334
+1E805 0061
+1E805 0041
+1E805 0062
+1E806 0021
+1E806 003F
+1E806 0334
+1E806 0061
+1E806 0041
+1E806 0062
+1E807 0021
+1E807 003F
+1E807 0334
+1E807 0061
+1E807 0041
+1E807 0062
+1E808 0021
+1E808 003F
+1E808 0334
+1E808 0061
+1E808 0041
+1E808 0062
+1E809 0021
+1E809 003F
+1E809 0334
+1E809 0061
+1E809 0041
+1E809 0062
+1E80A 0021
+1E80A 003F
+1E80A 0334
+1E80A 0061
+1E80A 0041
+1E80A 0062
+1E80B 0021
+1E80B 003F
+1E80B 0334
+1E80B 0061
+1E80B 0041
+1E80B 0062
+1E80C 0021
+1E80C 003F
+1E80C 0334
+1E80C 0061
+1E80C 0041
+1E80C 0062
+1E80D 0021
+1E80D 003F
+1E80D 0334
+1E80D 0061
+1E80D 0041
+1E80D 0062
+1E80E 0021
+1E80E 003F
+1E80E 0334
+1E80E 0061
+1E80E 0041
+1E80E 0062
+1E80F 0021
+1E80F 003F
+1E80F 0334
+1E80F 0061
+1E80F 0041
+1E80F 0062
+1E810 0021
+1E810 003F
+1E810 0334
+1E810 0061
+1E810 0041
+1E810 0062
+1E811 0021
+1E811 003F
+1E811 0334
+1E811 0061
+1E811 0041
+1E811 0062
+1E812 0021
+1E812 003F
+1E812 0334
+1E812 0061
+1E812 0041
+1E812 0062
+1E813 0021
+1E813 003F
+1E813 0334
+1E813 0061
+1E813 0041
+1E813 0062
+1E814 0021
+1E814 003F
+1E814 0334
+1E814 0061
+1E814 0041
+1E814 0062
+1E815 0021
+1E815 003F
+1E815 0334
+1E815 0061
+1E815 0041
+1E815 0062
+1E816 0021
+1E816 003F
+1E816 0334
+1E816 0061
+1E816 0041
+1E816 0062
+1E817 0021
+1E817 003F
+1E817 0334
+1E817 0061
+1E817 0041
+1E817 0062
+1E818 0021
+1E818 003F
+1E818 0334
+1E818 0061
+1E818 0041
+1E818 0062
+1E819 0021
+1E819 003F
+1E819 0334
+1E819 0061
+1E819 0041
+1E819 0062
+1E81A 0021
+1E81A 003F
+1E81A 0334
+1E81A 0061
+1E81A 0041
+1E81A 0062
+1E81B 0021
+1E81B 003F
+1E81B 0334
+1E81B 0061
+1E81B 0041
+1E81B 0062
+1E81C 0021
+1E81C 003F
+1E81C 0334
+1E81C 0061
+1E81C 0041
+1E81C 0062
+1E81D 0021
+1E81D 003F
+1E81D 0334
+1E81D 0061
+1E81D 0041
+1E81D 0062
+1E81E 0021
+1E81E 003F
+1E81E 0334
+1E81E 0061
+1E81E 0041
+1E81E 0062
+1E81F 0021
+1E81F 003F
+1E81F 0334
+1E81F 0061
+1E81F 0041
+1E81F 0062
+1E820 0021
+1E820 003F
+1E820 0334
+1E820 0061
+1E820 0041
+1E820 0062
+1E821 0021
+1E821 003F
+1E821 0334
+1E821 0061
+1E821 0041
+1E821 0062
+1E822 0021
+1E822 003F
+1E822 0334
+1E822 0061
+1E822 0041
+1E822 0062
+1E823 0021
+1E823 003F
+1E823 0334
+1E823 0061
+1E823 0041
+1E823 0062
+1E824 0021
+1E824 003F
+1E824 0334
+1E824 0061
+1E824 0041
+1E824 0062
+1E825 0021
+1E825 003F
+1E825 0334
+1E825 0061
+1E825 0041
+1E825 0062
+1E826 0021
+1E826 003F
+1E826 0334
+1E826 0061
+1E826 0041
+1E826 0062
+1E827 0021
+1E827 003F
+1E827 0334
+1E827 0061
+1E827 0041
+1E827 0062
+1E828 0021
+1E828 003F
+1E828 0334
+1E828 0061
+1E828 0041
+1E828 0062
+1E829 0021
+1E829 003F
+1E829 0334
+1E829 0061
+1E829 0041
+1E829 0062
+1E82A 0021
+1E82A 003F
+1E82A 0334
+1E82A 0061
+1E82A 0041
+1E82A 0062
+1E82B 0021
+1E82B 003F
+1E82B 0334
+1E82B 0061
+1E82B 0041
+1E82B 0062
+1E82C 0021
+1E82C 003F
+1E82C 0334
+1E82C 0061
+1E82C 0041
+1E82C 0062
+1E82D 0021
+1E82D 003F
+1E82D 0334
+1E82D 0061
+1E82D 0041
+1E82D 0062
+1E82E 0021
+1E82E 003F
+1E82E 0334
+1E82E 0061
+1E82E 0041
+1E82E 0062
+1E82F 0021
+1E82F 003F
+1E82F 0334
+1E82F 0061
+1E82F 0041
+1E82F 0062
+1E830 0021
+1E830 003F
+1E830 0334
+1E830 0061
+1E830 0041
+1E830 0062
+1E831 0021
+1E831 003F
+1E831 0334
+1E831 0061
+1E831 0041
+1E831 0062
+1E832 0021
+1E832 003F
+1E832 0334
+1E832 0061
+1E832 0041
+1E832 0062
+1E833 0021
+1E833 003F
+1E833 0334
+1E833 0061
+1E833 0041
+1E833 0062
+1E834 0021
+1E834 003F
+1E834 0334
+1E834 0061
+1E834 0041
+1E834 0062
+1E835 0021
+1E835 003F
+1E835 0334
+1E835 0061
+1E835 0041
+1E835 0062
+1E836 0021
+1E836 003F
+1E836 0334
+1E836 0061
+1E836 0041
+1E836 0062
+1E837 0021
+1E837 003F
+1E837 0334
+1E837 0061
+1E837 0041
+1E837 0062
+1E838 0021
+1E838 003F
+1E838 0334
+1E838 0061
+1E838 0041
+1E838 0062
+1E839 0021
+1E839 003F
+1E839 0334
+1E839 0061
+1E839 0041
+1E839 0062
+1E83A 0021
+1E83A 003F
+1E83A 0334
+1E83A 0061
+1E83A 0041
+1E83A 0062
+1E83B 0021
+1E83B 003F
+1E83B 0334
+1E83B 0061
+1E83B 0041
+1E83B 0062
+1E83C 0021
+1E83C 003F
+1E83C 0334
+1E83C 0061
+1E83C 0041
+1E83C 0062
+1E83D 0021
+1E83D 003F
+1E83D 0334
+1E83D 0061
+1E83D 0041
+1E83D 0062
+1E83E 0021
+1E83E 003F
+1E83E 0334
+1E83E 0061
+1E83E 0041
+1E83E 0062
+1E83F 0021
+1E83F 003F
+1E83F 0334
+1E83F 0061
+1E83F 0041
+1E83F 0062
+1E840 0021
+1E840 003F
+1E840 0334
+1E840 0061
+1E840 0041
+1E840 0062
+1E841 0021
+1E841 003F
+1E841 0334
+1E841 0061
+1E841 0041
+1E841 0062
+1E842 0021
+1E842 003F
+1E842 0334
+1E842 0061
+1E842 0041
+1E842 0062
+1E843 0021
+1E843 003F
+1E843 0334
+1E843 0061
+1E843 0041
+1E843 0062
+1E844 0021
+1E844 003F
+1E844 0334
+1E844 0061
+1E844 0041
+1E844 0062
+1E845 0021
+1E845 003F
+1E845 0334
+1E845 0061
+1E845 0041
+1E845 0062
+1E846 0021
+1E846 003F
+1E846 0334
+1E846 0061
+1E846 0041
+1E846 0062
+1E847 0021
+1E847 003F
+1E847 0334
+1E847 0061
+1E847 0041
+1E847 0062
+1E848 0021
+1E848 003F
+1E848 0334
+1E848 0061
+1E848 0041
+1E848 0062
+1E849 0021
+1E849 003F
+1E849 0334
+1E849 0061
+1E849 0041
+1E849 0062
+1E84A 0021
+1E84A 003F
+1E84A 0334
+1E84A 0061
+1E84A 0041
+1E84A 0062
+1E84B 0021
+1E84B 003F
+1E84B 0334
+1E84B 0061
+1E84B 0041
+1E84B 0062
+1E84C 0021
+1E84C 003F
+1E84C 0334
+1E84C 0061
+1E84C 0041
+1E84C 0062
+1E84D 0021
+1E84D 003F
+1E84D 0334
+1E84D 0061
+1E84D 0041
+1E84D 0062
+1E84E 0021
+1E84E 003F
+1E84E 0334
+1E84E 0061
+1E84E 0041
+1E84E 0062
+1E84F 0021
+1E84F 003F
+1E84F 0334
+1E84F 0061
+1E84F 0041
+1E84F 0062
+1E850 0021
+1E850 003F
+1E850 0334
+1E850 0061
+1E850 0041
+1E850 0062
+1E851 0021
+1E851 003F
+1E851 0334
+1E851 0061
+1E851 0041
+1E851 0062
+1E852 0021
+1E852 003F
+1E852 0334
+1E852 0061
+1E852 0041
+1E852 0062
+1E853 0021
+1E853 003F
+1E853 0334
+1E853 0061
+1E853 0041
+1E853 0062
+1E854 0021
+1E854 003F
+1E854 0334
+1E854 0061
+1E854 0041
+1E854 0062
+1E855 0021
+1E855 003F
+1E855 0334
+1E855 0061
+1E855 0041
+1E855 0062
+1E856 0021
+1E856 003F
+1E856 0334
+1E856 0061
+1E856 0041
+1E856 0062
+1E857 0021
+1E857 003F
+1E857 0334
+1E857 0061
+1E857 0041
+1E857 0062
+1E858 0021
+1E858 003F
+1E858 0334
+1E858 0061
+1E858 0041
+1E858 0062
+1E859 0021
+1E859 003F
+1E859 0334
+1E859 0061
+1E859 0041
+1E859 0062
+1E85A 0021
+1E85A 003F
+1E85A 0334
+1E85A 0061
+1E85A 0041
+1E85A 0062
+1E85B 0021
+1E85B 003F
+1E85B 0334
+1E85B 0061
+1E85B 0041
+1E85B 0062
+1E85C 0021
+1E85C 003F
+1E85C 0334
+1E85C 0061
+1E85C 0041
+1E85C 0062
+1E85D 0021
+1E85D 003F
+1E85D 0334
+1E85D 0061
+1E85D 0041
+1E85D 0062
+1E85E 0021
+1E85E 003F
+1E85E 0334
+1E85E 0061
+1E85E 0041
+1E85E 0062
+1E85F 0021
+1E85F 003F
+1E85F 0334
+1E85F 0061
+1E85F 0041
+1E85F 0062
+1E860 0021
+1E860 003F
+1E860 0334
+1E860 0061
+1E860 0041
+1E860 0062
+1E861 0021
+1E861 003F
+1E861 0334
+1E861 0061
+1E861 0041
+1E861 0062
+1E862 0021
+1E862 003F
+1E862 0334
+1E862 0061
+1E862 0041
+1E862 0062
+1E863 0021
+1E863 003F
+1E863 0334
+1E863 0061
+1E863 0041
+1E863 0062
+1E864 0021
+1E864 003F
+1E864 0334
+1E864 0061
+1E864 0041
+1E864 0062
+1E865 0021
+1E865 003F
+1E865 0334
+1E865 0061
+1E865 0041
+1E865 0062
+1E866 0021
+1E866 003F
+1E866 0334
+1E866 0061
+1E866 0041
+1E866 0062
+1E867 0021
+1E867 003F
+1E867 0334
+1E867 0061
+1E867 0041
+1E867 0062
+1E868 0021
+1E868 003F
+1E868 0334
+1E868 0061
+1E868 0041
+1E868 0062
+1E869 0021
+1E869 003F
+1E869 0334
+1E869 0061
+1E869 0041
+1E869 0062
+1E86A 0021
+1E86A 003F
+1E86A 0334
+1E86A 0061
+1E86A 0041
+1E86A 0062
+1E86B 0021
+1E86B 003F
+1E86B 0334
+1E86B 0061
+1E86B 0041
+1E86B 0062
+1E86C 0021
+1E86C 003F
+1E86C 0334
+1E86C 0061
+1E86C 0041
+1E86C 0062
+1E86D 0021
+1E86D 003F
+1E86D 0334
+1E86D 0061
+1E86D 0041
+1E86D 0062
+1E86E 0021
+1E86E 003F
+1E86E 0334
+1E86E 0061
+1E86E 0041
+1E86E 0062
+1E86F 0021
+1E86F 003F
+1E86F 0334
+1E86F 0061
+1E86F 0041
+1E86F 0062
+1E870 0021
+1E870 003F
+1E870 0334
+1E870 0061
+1E870 0041
+1E870 0062
+1E871 0021
+1E871 003F
+1E871 0334
+1E871 0061
+1E871 0041
+1E871 0062
+1E872 0021
+1E872 003F
+1E872 0334
+1E872 0061
+1E872 0041
+1E872 0062
+1E873 0021
+1E873 003F
+1E873 0334
+1E873 0061
+1E873 0041
+1E873 0062
+1E874 0021
+1E874 003F
+1E874 0334
+1E874 0061
+1E874 0041
+1E874 0062
+1E875 0021
+1E875 003F
+1E875 0334
+1E875 0061
+1E875 0041
+1E875 0062
+1E876 0021
+1E876 003F
+1E876 0334
+1E876 0061
+1E876 0041
+1E876 0062
+1E877 0021
+1E877 003F
+1E877 0334
+1E877 0061
+1E877 0041
+1E877 0062
+1E878 0021
+1E878 003F
+1E878 0334
+1E878 0061
+1E878 0041
+1E878 0062
+1E879 0021
+1E879 003F
+1E879 0334
+1E879 0061
+1E879 0041
+1E879 0062
+1E87A 0021
+1E87A 003F
+1E87A 0334
+1E87A 0061
+1E87A 0041
+1E87A 0062
+1E87B 0021
+1E87B 003F
+1E87B 0334
+1E87B 0061
+1E87B 0041
+1E87B 0062
+1E87C 0021
+1E87C 003F
+1E87C 0334
+1E87C 0061
+1E87C 0041
+1E87C 0062
+1E87D 0021
+1E87D 003F
+1E87D 0334
+1E87D 0061
+1E87D 0041
+1E87D 0062
+1E87E 0021
+1E87E 003F
+1E87E 0334
+1E87E 0061
+1E87E 0041
+1E87E 0062
+1E87F 0021
+1E87F 003F
+1E87F 0334
+1E87F 0061
+1E87F 0041
+1E87F 0062
+1E880 0021
+1E880 003F
+1E880 0334
+1E880 0061
+1E880 0041
+1E880 0062
+1E881 0021
+1E881 003F
+1E881 0334
+1E881 0061
+1E881 0041
+1E881 0062
+1E882 0021
+1E882 003F
+1E882 0334
+1E882 0061
+1E882 0041
+1E882 0062
+1E883 0021
+1E883 003F
+1E883 0334
+1E883 0061
+1E883 0041
+1E883 0062
+1E884 0021
+1E884 003F
+1E884 0334
+1E884 0061
+1E884 0041
+1E884 0062
+1E885 0021
+1E885 003F
+1E885 0334
+1E885 0061
+1E885 0041
+1E885 0062
+1E886 0021
+1E886 003F
+1E886 0334
+1E886 0061
+1E886 0041
+1E886 0062
+1E887 0021
+1E887 003F
+1E887 0334
+1E887 0061
+1E887 0041
+1E887 0062
+1E888 0021
+1E888 003F
+1E888 0334
+1E888 0061
+1E888 0041
+1E888 0062
+1E889 0021
+1E889 003F
+1E889 0334
+1E889 0061
+1E889 0041
+1E889 0062
+1E88A 0021
+1E88A 003F
+1E88A 0334
+1E88A 0061
+1E88A 0041
+1E88A 0062
+1E88B 0021
+1E88B 003F
+1E88B 0334
+1E88B 0061
+1E88B 0041
+1E88B 0062
+1E88C 0021
+1E88C 003F
+1E88C 0334
+1E88C 0061
+1E88C 0041
+1E88C 0062
+1E88D 0021
+1E88D 003F
+1E88D 0334
+1E88D 0061
+1E88D 0041
+1E88D 0062
+1E88E 0021
+1E88E 003F
+1E88E 0334
+1E88E 0061
+1E88E 0041
+1E88E 0062
+1E88F 0021
+1E88F 003F
+1E88F 0334
+1E88F 0061
+1E88F 0041
+1E88F 0062
+1E890 0021
+1E890 003F
+1E890 0334
+1E890 0061
+1E890 0041
+1E890 0062
+1E891 0021
+1E891 003F
+1E891 0334
+1E891 0061
+1E891 0041
+1E891 0062
+1E892 0021
+1E892 003F
+1E892 0334
+1E892 0061
+1E892 0041
+1E892 0062
+1E893 0021
+1E893 003F
+1E893 0334
+1E893 0061
+1E893 0041
+1E893 0062
+1E894 0021
+1E894 003F
+1E894 0334
+1E894 0061
+1E894 0041
+1E894 0062
+1E895 0021
+1E895 003F
+1E895 0334
+1E895 0061
+1E895 0041
+1E895 0062
+1E896 0021
+1E896 003F
+1E896 0334
+1E896 0061
+1E896 0041
+1E896 0062
+1E897 0021
+1E897 003F
+1E897 0334
+1E897 0061
+1E897 0041
+1E897 0062
+1E898 0021
+1E898 003F
+1E898 0334
+1E898 0061
+1E898 0041
+1E898 0062
+1E899 0021
+1E899 003F
+1E899 0334
+1E899 0061
+1E899 0041
+1E899 0062
+1E89A 0021
+1E89A 003F
+1E89A 0334
+1E89A 0061
+1E89A 0041
+1E89A 0062
+1E89B 0021
+1E89B 003F
+1E89B 0334
+1E89B 0061
+1E89B 0041
+1E89B 0062
+1E89C 0021
+1E89C 003F
+1E89C 0334
+1E89C 0061
+1E89C 0041
+1E89C 0062
+1E89D 0021
+1E89D 003F
+1E89D 0334
+1E89D 0061
+1E89D 0041
+1E89D 0062
+1E89E 0021
+1E89E 003F
+1E89E 0334
+1E89E 0061
+1E89E 0041
+1E89E 0062
+1E89F 0021
+1E89F 003F
+1E89F 0334
+1E89F 0061
+1E89F 0041
+1E89F 0062
+1E8A0 0021
+1E8A0 003F
+1E8A0 0334
+1E8A0 0061
+1E8A0 0041
+1E8A0 0062
+1E8A1 0021
+1E8A1 003F
+1E8A1 0334
+1E8A1 0061
+1E8A1 0041
+1E8A1 0062
+1E8A2 0021
+1E8A2 003F
+1E8A2 0334
+1E8A2 0061
+1E8A2 0041
+1E8A2 0062
+1E8A3 0021
+1E8A3 003F
+1E8A3 0334
+1E8A3 0061
+1E8A3 0041
+1E8A3 0062
+1E8A4 0021
+1E8A4 003F
+1E8A4 0334
+1E8A4 0061
+1E8A4 0041
+1E8A4 0062
+1E8A5 0021
+1E8A5 003F
+1E8A5 0334
+1E8A5 0061
+1E8A5 0041
+1E8A5 0062
+1E8A6 0021
+1E8A6 003F
+1E8A6 0334
+1E8A6 0061
+1E8A6 0041
+1E8A6 0062
+1E8A7 0021
+1E8A7 003F
+1E8A7 0334
+1E8A7 0061
+1E8A7 0041
+1E8A7 0062
+1E8A8 0021
+1E8A8 003F
+1E8A8 0334
+1E8A8 0061
+1E8A8 0041
+1E8A8 0062
+1E8A9 0021
+1E8A9 003F
+1E8A9 0334
+1E8A9 0061
+1E8A9 0041
+1E8A9 0062
+1E8AA 0021
+1E8AA 003F
+1E8AA 0334
+1E8AA 0061
+1E8AA 0041
+1E8AA 0062
+1E8AB 0021
+1E8AB 003F
+1E8AB 0334
+1E8AB 0061
+1E8AB 0041
+1E8AB 0062
+1E8AC 0021
+1E8AC 003F
+1E8AC 0334
+1E8AC 0061
+1E8AC 0041
+1E8AC 0062
+1E8AD 0021
+1E8AD 003F
+1E8AD 0334
+1E8AD 0061
+1E8AD 0041
+1E8AD 0062
+1E8AE 0021
+1E8AE 003F
+1E8AE 0334
+1E8AE 0061
+1E8AE 0041
+1E8AE 0062
+1E8AF 0021
+1E8AF 003F
+1E8AF 0334
+1E8AF 0061
+1E8AF 0041
+1E8AF 0062
+1E8B0 0021
+1E8B0 003F
+1E8B0 0334
+1E8B0 0061
+1E8B0 0041
+1E8B0 0062
+1E8B1 0021
+1E8B1 003F
+1E8B1 0334
+1E8B1 0061
+1E8B1 0041
+1E8B1 0062
+1E8B2 0021
+1E8B2 003F
+1E8B2 0334
+1E8B2 0061
+1E8B2 0041
+1E8B2 0062
+1E8B3 0021
+1E8B3 003F
+1E8B3 0334
+1E8B3 0061
+1E8B3 0041
+1E8B3 0062
+1E8B4 0021
+1E8B4 003F
+1E8B4 0334
+1E8B4 0061
+1E8B4 0041
+1E8B4 0062
+1E8B5 0021
+1E8B5 003F
+1E8B5 0334
+1E8B5 0061
+1E8B5 0041
+1E8B5 0062
+1E8B6 0021
+1E8B6 003F
+1E8B6 0334
+1E8B6 0061
+1E8B6 0041
+1E8B6 0062
+1E8B7 0021
+1E8B7 003F
+1E8B7 0334
+1E8B7 0061
+1E8B7 0041
+1E8B7 0062
+1E8B8 0021
+1E8B8 003F
+1E8B8 0334
+1E8B8 0061
+1E8B8 0041
+1E8B8 0062
+1E8B9 0021
+1E8B9 003F
+1E8B9 0334
+1E8B9 0061
+1E8B9 0041
+1E8B9 0062
+1E8BA 0021
+1E8BA 003F
+1E8BA 0334
+1E8BA 0061
+1E8BA 0041
+1E8BA 0062
+1E8BB 0021
+1E8BB 003F
+1E8BB 0334
+1E8BB 0061
+1E8BB 0041
+1E8BB 0062
+1E8BC 0021
+1E8BC 003F
+1E8BC 0334
+1E8BC 0061
+1E8BC 0041
+1E8BC 0062
+1E8BD 0021
+1E8BD 003F
+1E8BD 0334
+1E8BD 0061
+1E8BD 0041
+1E8BD 0062
+1E8BE 0021
+1E8BE 003F
+1E8BE 0334
+1E8BE 0061
+1E8BE 0041
+1E8BE 0062
+1E8BF 0021
+1E8BF 003F
+1E8BF 0334
+1E8BF 0061
+1E8BF 0041
+1E8BF 0062
+1E8C0 0021
+1E8C0 003F
+1E8C0 0334
+1E8C0 0061
+1E8C0 0041
+1E8C0 0062
+1E8C1 0021
+1E8C1 003F
+1E8C1 0334
+1E8C1 0061
+1E8C1 0041
+1E8C1 0062
+1E8C2 0021
+1E8C2 003F
+1E8C2 0334
+1E8C2 0061
+1E8C2 0041
+1E8C2 0062
+1E8C3 0021
+1E8C3 003F
+1E8C3 0334
+1E8C3 0061
+1E8C3 0041
+1E8C3 0062
+1E8C4 0021
+1E8C4 003F
+1E8C4 0334
+1E8C4 0061
+1E8C4 0041
+1E8C4 0062
1100 0021
1100 003F
3200 0021
@@ -106580,16 +117154,16 @@ FF73 0021
FF73 003F
32D2 0021
32D2 003F
+3094 0021
+3094 003F
+30F4 0021
+30F4 003F
3046 0334 3099
3046 3099 0334
3094 0334
30A6 0334 3099
30A6 3099 0334
30F4 0334
-3094 0021
-3094 003F
-30F4 0021
-30F4 003F
3045 0061
3045 0041
3046 0061
@@ -106730,16 +117304,16 @@ FF76 0021
FF76 003F
32D5 0021
32D5 003F
+304C 0021
+304C 003F
+30AC 0021
+30AC 003F
304B 0334 3099
304B 3099 0334
304C 0334
30AB 0334 3099
30AB 3099 0334
30AC 0334
-304C 0021
-304C 003F
-30AC 0021
-30AC 003F
3095 0061
3095 0041
304B 0061
@@ -106797,16 +117371,16 @@ FF77 0021
FF77 003F
32D6 0021
32D6 003F
+304E 0021
+304E 003F
+30AE 0021
+30AE 003F
304D 0334 3099
304D 3099 0334
304E 0334
30AD 0334 3099
30AD 3099 0334
30AE 0334
-304E 0021
-304E 003F
-30AE 0021
-30AE 003F
304D 0061
304D 0041
30AD 0061
@@ -106875,16 +117449,16 @@ FF78 0021
FF78 003F
32D7 0021
32D7 003F
+3050 0021
+3050 003F
+30B0 0021
+30B0 003F
304F 0334 3099
304F 3099 0334
3050 0334
30AF 0334 3099
30AF 3099 0334
30B0 0334
-3050 0021
-3050 003F
-30B0 0021
-30B0 003F
304F 0061
304F 0041
31F0 0061
@@ -106938,16 +117512,16 @@ FF79 0021
FF79 003F
32D8 0021
32D8 003F
+3052 0021
+3052 003F
+30B2 0021
+30B2 003F
3051 0334 3099
3051 3099 0334
3052 0334
30B1 0334 3099
30B1 3099 0334
30B2 0334
-3052 0021
-3052 003F
-30B2 0021
-30B2 003F
331C 0021
331C 003F
331C 0061
@@ -106985,16 +117559,16 @@ FF7A 0021
FF7A 003F
32D9 0021
32D9 003F
+3054 0021
+3054 003F
+30B4 0021
+30B4 003F
3053 0334 3099
3053 3099 0334
3054 0334
30B3 0334 3099
30B3 3099 0334
30B4 0334
-3054 0021
-3054 003F
-30B4 0021
-30B4 003F
331E 0021
331E 003F
331E 0061
@@ -107044,6 +117618,10 @@ FF7B 003F
32DA 003F
1F202 0021
1F202 003F
+3056 0021
+3056 003F
+30B6 0021
+30B6 003F
1F202 0334
3055 0334 3099
3055 3099 0334
@@ -107051,10 +117629,6 @@ FF7B 003F
30B5 0334 3099
30B5 3099 0334
30B6 0334
-3056 0021
-3056 003F
-30B6 0021
-30B6 003F
3055 0061
3055 0041
30B5 0061
@@ -107096,16 +117670,16 @@ FF7C 0021
FF7C 003F
32DB 0021
32DB 003F
+3058 0021
+3058 003F
+30B8 0021
+30B8 003F
3057 0334 3099
3057 3099 0334
3058 0334
30B7 0334 3099
30B7 3099 0334
30B8 0334
-3058 0021
-3058 003F
-30B8 0021
-30B8 003F
3057 0061
3057 0041
31F1 0061
@@ -107147,16 +117721,16 @@ FF7D 0021
FF7D 003F
32DC 0021
32DC 003F
+305A 0021
+305A 003F
+30BA 0021
+30BA 003F
3059 0334 3099
3059 3099 0334
305A 0334
30B9 0334 3099
30B9 3099 0334
30BA 0334
-305A 0021
-305A 003F
-30BA 0021
-30BA 003F
3059 0061
3059 0041
31F2 0061
@@ -107186,16 +117760,16 @@ FF7E 0021
FF7E 003F
32DD 0021
32DD 003F
+305C 0021
+305C 003F
+30BC 0021
+30BC 003F
305B 0334 3099
305B 3099 0334
305C 0334
30BB 0334 3099
30BB 3099 0334
30BC 0334
-305C 0021
-305C 003F
-30BC 0021
-30BC 003F
305B 0061
305B 0041
30BB 0061
@@ -107232,16 +117806,16 @@ FF7F 0021
FF7F 003F
32DE 0021
32DE 003F
+305E 0021
+305E 003F
+30BE 0021
+30BE 003F
305D 0334 3099
305D 3099 0334
305E 0334
30BD 0334 3099
30BD 3099 0334
30BE 0334
-305E 0021
-305E 003F
-30BE 0021
-30BE 003F
305D 0061
305D 0041
30BD 0061
@@ -107268,16 +117842,16 @@ FF80 0021
FF80 003F
32DF 0021
32DF 003F
+3060 0021
+3060 003F
+30C0 0021
+30C0 003F
305F 0334 3099
305F 3099 0334
3060 0334
30BF 0334 3099
30BF 3099 0334
30C0 0334
-3060 0021
-3060 003F
-30C0 0021
-30C0 003F
3324 0021
3324 003F
3324 0061
@@ -107309,16 +117883,16 @@ FF81 0021
FF81 003F
32E0 0021
32E0 003F
+3062 0021
+3062 003F
+30C2 0021
+30C2 003F
3061 0334 3099
3061 3099 0334
3062 0334
30C1 0334 3099
30C1 3099 0334
30C2 0334
-3062 0021
-3062 003F
-30C2 0021
-30C2 003F
3061 0061
3061 0041
30C1 0061
@@ -107351,16 +117925,16 @@ FF82 0021
FF82 003F
32E1 0021
32E1 003F
+3065 0021
+3065 003F
+30C5 0021
+30C5 003F
3064 0334 3099
3064 3099 0334
3065 0334
30C4 0334 3099
30C4 3099 0334
30C5 0334
-3065 0021
-3065 003F
-30C5 0021
-30C5 003F
3063 0061
3063 0041
3064 0061
@@ -107396,12 +117970,6 @@ FF83 0021
FF83 003F
32E2 0021
32E2 003F
-3066 0334 3099
-3066 3099 0334
-3067 0334
-30C6 0334 3099
-30C6 3099 0334
-30C7 0334
3067 0021
3067 003F
30C7 0021
@@ -107409,6 +117977,12 @@ FF83 003F
1F213 0021
1F213 003F
1F213 0334
+3066 0334 3099
+3066 3099 0334
+3067 0334
+30C6 0334 3099
+30C6 3099 0334
+30C7 0334
3066 0061
3066 0041
30C6 0061
@@ -107445,16 +118019,16 @@ FF84 0021
FF84 003F
32E3 0021
32E3 003F
+3069 0021
+3069 003F
+30C9 0021
+30C9 003F
3068 0334 3099
3068 3099 0334
3069 0334
30C8 0334 3099
30C8 3099 0334
30C9 0334
-3069 0021
-3069 003F
-30C9 0021
-30C9 003F
3068 0061
3068 0041
31F3 0061
@@ -107611,6 +118185,14 @@ FF8A 0021
FF8A 003F
32E9 0021
32E9 003F
+3070 0021
+3070 003F
+30D0 0021
+30D0 003F
+3071 0021
+3071 003F
+30D1 0021
+30D1 003F
306F 0334 3099
306F 3099 0334
3070 0334
@@ -107623,14 +118205,6 @@ FF8A 003F
30CF 0334 309A
30CF 309A 0334
30D1 0334
-3070 0021
-3070 003F
-30D0 0021
-30D0 003F
-3071 0021
-3071 003F
-30D1 0021
-30D1 003F
332B 0021
332B 003F
332B 0061
@@ -107688,6 +118262,14 @@ FF8B 0021
FF8B 003F
32EA 0021
32EA 003F
+3073 0021
+3073 003F
+30D3 0021
+30D3 003F
+3074 0021
+3074 003F
+30D4 0021
+30D4 003F
3072 0334 3099
3072 3099 0334
3073 0334
@@ -107700,14 +118282,6 @@ FF8B 003F
30D2 0334 309A
30D2 309A 0334
30D4 0334
-3073 0021
-3073 003F
-30D3 0021
-30D3 003F
-3074 0021
-3074 003F
-30D4 0021
-30D4 003F
3072 0061
3072 0041
31F6 0061
@@ -107765,6 +118339,14 @@ FF8C 0021
FF8C 003F
32EB 0021
32EB 003F
+3076 0021
+3076 003F
+30D6 0021
+30D6 003F
+3077 0021
+3077 003F
+30D7 0021
+30D7 003F
3075 0334 3099
3075 3099 0334
3076 0334
@@ -107777,14 +118359,6 @@ FF8C 003F
30D5 0334 309A
30D5 309A 0334
30D7 0334
-3076 0021
-3076 003F
-30D6 0021
-30D6 003F
-3077 0021
-3077 003F
-30D7 0021
-30D7 003F
3075 0061
3075 0041
31F7 0061
@@ -107842,6 +118416,14 @@ FF8D 0021
FF8D 003F
32EC 0021
32EC 003F
+3079 0021
+3079 003F
+30D9 0021
+30D9 003F
+307A 0021
+307A 003F
+30DA 0021
+30DA 003F
3078 0334 3099
3078 3099 0334
3079 0334
@@ -107854,14 +118436,6 @@ FF8D 003F
30D8 0334 309A
30D8 309A 0334
30DA 0334
-3079 0021
-3079 003F
-30D9 0021
-30D9 003F
-307A 0021
-307A 003F
-30DA 0021
-30DA 003F
333B 0021
333B 003F
333B 0061
@@ -107934,6 +118508,14 @@ FF8E 0021
FF8E 003F
32ED 0021
32ED 003F
+307C 0021
+307C 003F
+30DC 0021
+30DC 003F
+307D 0021
+307D 003F
+30DD 0021
+30DD 003F
307B 0334 3099
307B 3099 0334
307C 0334
@@ -107946,14 +118528,6 @@ FF8E 003F
30DB 0334 309A
30DB 309A 0334
30DD 0334
-307C 0021
-307C 003F
-30DC 0021
-30DC 003F
-307D 0021
-307D 003F
-30DD 0021
-30DD 003F
3341 0021
3341 003F
3341 0061
@@ -108480,11 +119054,11 @@ FF9C 0021
FF9C 003F
32FB 0021
32FB 003F
+30F7 0021
+30F7 003F
30EF 0334 3099
30EF 3099 0334
30F7 0334
-30F7 0021
-30F7 003F
308E 0061
308E 0041
308F 0061
@@ -108517,11 +119091,11 @@ FF9C 0062
30F0 003F
32FC 0021
32FC 003F
+30F8 0021
+30F8 003F
30F0 0334 3099
30F0 3099 0334
30F8 0334
-30F8 0021
-30F8 003F
3090 0061
3090 0041
30F0 0061
@@ -108540,11 +119114,11 @@ FF9C 0062
30F1 003F
32FD 0021
32FD 003F
+30F9 0021
+30F9 003F
30F1 0334 3099
30F1 3099 0334
30F9 0334
-30F9 0021
-30F9 003F
3091 0061
3091 0041
30F1 0061
@@ -108565,11 +119139,11 @@ FF66 0021
FF66 003F
32FE 0021
32FE 003F
+30FA 0021
+30FA 003F
30F2 0334 3099
30F2 3099 0334
30FA 0334
-30FA 0021
-30FA 003F
3092 0061
3092 0041
30F2 0061
@@ -115793,6 +126367,1278 @@ A4F7 0062
16F9F 0061
16F9F 0041
16F9F 0062
+118FF 0021
+118FF 003F
+118FF 0334
+118FF 0061
+118FF 0041
+118FF 0062
+118C0 0021
+118C0 003F
+118A0 0021
+118A0 003F
+118C0 0334
+118A0 0334
+118C0 0061
+118C0 0041
+118A0 0061
+118A0 0041
+118C0 0062
+118A0 0062
+118C1 0021
+118C1 003F
+118A1 0021
+118A1 003F
+118C1 0334
+118A1 0334
+118C1 0061
+118C1 0041
+118A1 0061
+118A1 0041
+118C1 0062
+118A1 0062
+118C2 0021
+118C2 003F
+118A2 0021
+118A2 003F
+118C2 0334
+118A2 0334
+118C2 0061
+118C2 0041
+118A2 0061
+118A2 0041
+118C2 0062
+118A2 0062
+118C3 0021
+118C3 003F
+118A3 0021
+118A3 003F
+118C3 0334
+118A3 0334
+118C3 0061
+118C3 0041
+118A3 0061
+118A3 0041
+118C3 0062
+118A3 0062
+118C4 0021
+118C4 003F
+118A4 0021
+118A4 003F
+118C4 0334
+118A4 0334
+118C4 0061
+118C4 0041
+118A4 0061
+118A4 0041
+118C4 0062
+118A4 0062
+118C5 0021
+118C5 003F
+118A5 0021
+118A5 003F
+118C5 0334
+118A5 0334
+118C5 0061
+118C5 0041
+118A5 0061
+118A5 0041
+118C5 0062
+118A5 0062
+118C6 0021
+118C6 003F
+118A6 0021
+118A6 003F
+118C6 0334
+118A6 0334
+118C6 0061
+118C6 0041
+118A6 0061
+118A6 0041
+118C6 0062
+118A6 0062
+118C7 0021
+118C7 003F
+118A7 0021
+118A7 003F
+118C7 0334
+118A7 0334
+118C7 0061
+118C7 0041
+118A7 0061
+118A7 0041
+118C7 0062
+118A7 0062
+118C8 0021
+118C8 003F
+118A8 0021
+118A8 003F
+118C8 0334
+118A8 0334
+118C8 0061
+118C8 0041
+118A8 0061
+118A8 0041
+118C8 0062
+118A8 0062
+118C9 0021
+118C9 003F
+118A9 0021
+118A9 003F
+118C9 0334
+118A9 0334
+118C9 0061
+118C9 0041
+118A9 0061
+118A9 0041
+118C9 0062
+118A9 0062
+118CA 0021
+118CA 003F
+118AA 0021
+118AA 003F
+118CA 0334
+118AA 0334
+118CA 0061
+118CA 0041
+118AA 0061
+118AA 0041
+118CA 0062
+118AA 0062
+118CB 0021
+118CB 003F
+118AB 0021
+118AB 003F
+118CB 0334
+118AB 0334
+118CB 0061
+118CB 0041
+118AB 0061
+118AB 0041
+118CB 0062
+118AB 0062
+118CC 0021
+118CC 003F
+118AC 0021
+118AC 003F
+118CC 0334
+118AC 0334
+118CC 0061
+118CC 0041
+118AC 0061
+118AC 0041
+118CC 0062
+118AC 0062
+118CD 0021
+118CD 003F
+118AD 0021
+118AD 003F
+118CD 0334
+118AD 0334
+118CD 0061
+118CD 0041
+118AD 0061
+118AD 0041
+118CD 0062
+118AD 0062
+118CE 0021
+118CE 003F
+118AE 0021
+118AE 003F
+118CE 0334
+118AE 0334
+118CE 0061
+118CE 0041
+118AE 0061
+118AE 0041
+118CE 0062
+118AE 0062
+118CF 0021
+118CF 003F
+118AF 0021
+118AF 003F
+118CF 0334
+118AF 0334
+118CF 0061
+118CF 0041
+118AF 0061
+118AF 0041
+118CF 0062
+118AF 0062
+118D0 0021
+118D0 003F
+118B0 0021
+118B0 003F
+118D0 0334
+118B0 0334
+118D0 0061
+118D0 0041
+118B0 0061
+118B0 0041
+118D0 0062
+118B0 0062
+118D1 0021
+118D1 003F
+118B1 0021
+118B1 003F
+118D1 0334
+118B1 0334
+118D1 0061
+118D1 0041
+118B1 0061
+118B1 0041
+118D1 0062
+118B1 0062
+118D2 0021
+118D2 003F
+118B2 0021
+118B2 003F
+118D2 0334
+118B2 0334
+118D2 0061
+118D2 0041
+118B2 0061
+118B2 0041
+118D2 0062
+118B2 0062
+118D3 0021
+118D3 003F
+118B3 0021
+118B3 003F
+118D3 0334
+118B3 0334
+118D3 0061
+118D3 0041
+118B3 0061
+118B3 0041
+118D3 0062
+118B3 0062
+118D4 0021
+118D4 003F
+118B4 0021
+118B4 003F
+118D4 0334
+118B4 0334
+118D4 0061
+118D4 0041
+118B4 0061
+118B4 0041
+118D4 0062
+118B4 0062
+118D5 0021
+118D5 003F
+118B5 0021
+118B5 003F
+118D5 0334
+118B5 0334
+118D5 0061
+118D5 0041
+118B5 0061
+118B5 0041
+118D5 0062
+118B5 0062
+118D6 0021
+118D6 003F
+118B6 0021
+118B6 003F
+118D6 0334
+118B6 0334
+118D6 0061
+118D6 0041
+118B6 0061
+118B6 0041
+118D6 0062
+118B6 0062
+118D7 0021
+118D7 003F
+118B7 0021
+118B7 003F
+118D7 0334
+118B7 0334
+118D7 0061
+118D7 0041
+118B7 0061
+118B7 0041
+118D7 0062
+118B7 0062
+118D8 0021
+118D8 003F
+118B8 0021
+118B8 003F
+118D8 0334
+118B8 0334
+118D8 0061
+118D8 0041
+118B8 0061
+118B8 0041
+118D8 0062
+118B8 0062
+118D9 0021
+118D9 003F
+118B9 0021
+118B9 003F
+118D9 0334
+118B9 0334
+118D9 0061
+118D9 0041
+118B9 0061
+118B9 0041
+118D9 0062
+118B9 0062
+118DA 0021
+118DA 003F
+118BA 0021
+118BA 003F
+118DA 0334
+118BA 0334
+118DA 0061
+118DA 0041
+118BA 0061
+118BA 0041
+118DA 0062
+118BA 0062
+118DB 0021
+118DB 003F
+118BB 0021
+118BB 003F
+118DB 0334
+118BB 0334
+118DB 0061
+118DB 0041
+118BB 0061
+118BB 0041
+118DB 0062
+118BB 0062
+118DC 0021
+118DC 003F
+118BC 0021
+118BC 003F
+118DC 0334
+118BC 0334
+118DC 0061
+118DC 0041
+118BC 0061
+118BC 0041
+118DC 0062
+118BC 0062
+118DD 0021
+118DD 003F
+118BD 0021
+118BD 003F
+118DD 0334
+118BD 0334
+118DD 0061
+118DD 0041
+118BD 0061
+118BD 0041
+118DD 0062
+118BD 0062
+118DE 0021
+118DE 003F
+118BE 0021
+118BE 003F
+118DE 0334
+118BE 0334
+118DE 0061
+118DE 0041
+118BE 0061
+118BE 0041
+118DE 0062
+118BE 0062
+118DF 0021
+118DF 003F
+118BF 0021
+118BF 003F
+118DF 0334
+118BF 0334
+118DF 0061
+118DF 0041
+118BF 0061
+118BF 0041
+118DF 0062
+118BF 0062
+11AD5 0021
+11AD5 003F
+11AD5 0334
+11AD5 0061
+11AD5 0041
+11AD5 0062
+11AD6 0021
+11AD6 003F
+11AD6 0334
+11AD6 0061
+11AD6 0041
+11AD6 0062
+11AD7 0021
+11AD7 003F
+11AD7 0334
+11AD7 0061
+11AD7 0041
+11AD7 0062
+11AD8 0021
+11AD8 003F
+11AD8 0334
+11AD8 0061
+11AD8 0041
+11AD8 0062
+11AD9 0021
+11AD9 003F
+11AD9 0334
+11AD9 0061
+11AD9 0041
+11AD9 0062
+11ADA 0021
+11ADA 003F
+11ADA 0334
+11ADA 0061
+11ADA 0041
+11ADA 0062
+11ADB 0021
+11ADB 003F
+11ADB 0334
+11ADB 0061
+11ADB 0041
+11ADB 0062
+11AC0 0021
+11AC0 003F
+11AC0 0334
+11AC0 0061
+11AC0 0041
+11AC0 0062
+11AC1 0021
+11AC1 003F
+11AC1 0334
+11AC1 0061
+11AC1 0041
+11AC1 0062
+11AC2 0021
+11AC2 003F
+11AC2 0334
+11AC2 0061
+11AC2 0041
+11AC2 0062
+11AC3 0021
+11AC3 003F
+11AC3 0334
+11AC3 0061
+11AC3 0041
+11AC3 0062
+11AC4 0021
+11AC4 003F
+11AC4 0334
+11AC4 0061
+11AC4 0041
+11AC4 0062
+11AC5 0021
+11AC5 003F
+11AC5 0334
+11AC5 0061
+11AC5 0041
+11AC5 0062
+11AC6 0021
+11AC6 003F
+11AC6 0334
+11AC6 0061
+11AC6 0041
+11AC6 0062
+11AC7 0021
+11AC7 003F
+11AC7 0334
+11AC7 0061
+11AC7 0041
+11AC7 0062
+11AC8 0021
+11AC8 003F
+11AC8 0334
+11AC8 0061
+11AC8 0041
+11AC8 0062
+11AC9 0021
+11AC9 003F
+11AC9 0334
+11AC9 0061
+11AC9 0041
+11AC9 0062
+11ACA 0021
+11ACA 003F
+11ACA 0334
+11ACA 0061
+11ACA 0041
+11ACA 0062
+11ACB 0021
+11ACB 003F
+11ACB 0334
+11ACB 0061
+11ACB 0041
+11ACB 0062
+11ACC 0021
+11ACC 003F
+11ACC 0334
+11ACC 0061
+11ACC 0041
+11ACC 0062
+11ACD 0021
+11ACD 003F
+11ACD 0334
+11ACD 0061
+11ACD 0041
+11ACD 0062
+11ACE 0021
+11ACE 003F
+11ACE 0334
+11ACE 0061
+11ACE 0041
+11ACE 0062
+11ACF 0021
+11ACF 003F
+11ACF 0334
+11ACF 0061
+11ACF 0041
+11ACF 0062
+11AD0 0021
+11AD0 003F
+11AD0 0334
+11AD0 0061
+11AD0 0041
+11AD0 0062
+11AD1 0021
+11AD1 003F
+11AD1 0334
+11AD1 0061
+11AD1 0041
+11AD1 0062
+11AD2 0021
+11AD2 003F
+11AD2 0334
+11AD2 0061
+11AD2 0041
+11AD2 0062
+11AD3 0021
+11AD3 003F
+11AD3 0334
+11AD3 0061
+11AD3 0041
+11AD3 0062
+11AD4 0021
+11AD4 003F
+11AD4 0334
+11AD4 0061
+11AD4 0041
+11AD4 0062
+11ADC 0021
+11ADC 003F
+11ADC 0334
+11ADC 0061
+11ADC 0041
+11ADC 0062
+11ADD 0021
+11ADD 003F
+11ADD 0334
+11ADD 0061
+11ADD 0041
+11ADD 0062
+11ADF 0021
+11ADF 003F
+11ADF 0334
+11ADF 0061
+11ADF 0041
+11ADF 0062
+11AE0 0021
+11AE0 003F
+11AE0 0334
+11AE0 0061
+11AE0 0041
+11AE0 0062
+11AE1 0021
+11AE1 003F
+11AE1 0334
+11AE1 0061
+11AE1 0041
+11AE1 0062
+11AE2 0021
+11AE2 003F
+11AE2 0334
+11AE2 0061
+11AE2 0041
+11AE2 0062
+11AE3 0021
+11AE3 003F
+11AE3 0334
+11AE3 0061
+11AE3 0041
+11AE3 0062
+11ADE 0021
+11ADE 003F
+11ADE 0334
+11ADE 0061
+11ADE 0041
+11ADE 0062
+11AE4 0021
+11AE4 003F
+11AE4 0334
+11AE4 0061
+11AE4 0041
+11AE4 0062
+11AEF 0021
+11AEF 003F
+11AEF 0334
+11AEF 0061
+11AEF 0041
+11AEF 0062
+11AF2 0021
+11AF2 003F
+11AF2 0334
+11AF2 0061
+11AF2 0041
+11AF2 0062
+11AF1 0021
+11AF1 003F
+11AF1 0334
+11AF1 0061
+11AF1 0041
+11AF1 0062
+11AE6 0021
+11AE6 003F
+11AE6 0334
+11AE6 0061
+11AE6 0041
+11AE6 0062
+11AE9 0021
+11AE9 003F
+11AE9 0334
+11AE9 0061
+11AE9 0041
+11AE9 0062
+11AE5 0021
+11AE5 003F
+11AE5 0334
+11AE5 0061
+11AE5 0041
+11AE5 0062
+11AE8 0021
+11AE8 003F
+11AE8 0334
+11AE8 0061
+11AE8 0041
+11AE8 0062
+11AF4 0021
+11AF4 003F
+11AF4 0334
+11AF4 0061
+11AF4 0041
+11AF4 0062
+11AF7 0021
+11AF7 003F
+11AF7 0334
+11AF7 0061
+11AF7 0041
+11AF7 0062
+11AF3 0021
+11AF3 003F
+11AF3 0334
+11AF3 0061
+11AF3 0041
+11AF3 0062
+11AF6 0021
+11AF6 003F
+11AF6 0334
+11AF6 0061
+11AF6 0041
+11AF6 0062
+11AEC 0021
+11AEC 003F
+11AEC 0334
+11AEC 0061
+11AEC 0041
+11AEC 0062
+11AEE 0021
+11AEE 003F
+11AEE 0334
+11AEE 0061
+11AEE 0041
+11AEE 0062
+11AEB 0021
+11AEB 003F
+11AEB 0334
+11AEB 0061
+11AEB 0041
+11AEB 0062
+11AED 0021
+11AED 003F
+11AED 0334
+11AED 0061
+11AED 0041
+11AED 0062
+11AF5 0021
+11AF5 003F
+11AF5 0334
+11AF5 0061
+11AF5 0041
+11AF5 0062
+11AF8 0021
+11AF8 003F
+11AF8 0334
+11AF8 0061
+11AF8 0041
+11AF8 0062
+11AE7 0021
+11AE7 003F
+11AE7 0334
+11AE7 0061
+11AE7 0041
+11AE7 0062
+11AEA 0021
+11AEA 003F
+11AEA 0334
+11AEA 0061
+11AEA 0041
+11AEA 0062
+11AF0 0021
+11AF0 003F
+11AF0 0334
+11AF0 0061
+11AF0 0041
+11AF0 0062
+16B00 0021
+16B00 003F
+16B00 0334
+16B00 0061
+16B00 0041
+16B00 0062
+16B01 0021
+16B01 003F
+16B01 0334
+16B01 0061
+16B01 0041
+16B01 0062
+16B02 0021
+16B02 003F
+16B02 0334
+16B02 0061
+16B02 0041
+16B02 0062
+16B03 0021
+16B03 003F
+16B03 0334
+16B03 0061
+16B03 0041
+16B03 0062
+16B04 0021
+16B04 003F
+16B04 0334
+16B04 0061
+16B04 0041
+16B04 0062
+16B05 0021
+16B05 003F
+16B05 0334
+16B05 0061
+16B05 0041
+16B05 0062
+16B06 0021
+16B06 003F
+16B06 0334
+16B06 0061
+16B06 0041
+16B06 0062
+16B07 0021
+16B07 003F
+16B07 0334
+16B07 0061
+16B07 0041
+16B07 0062
+16B08 0021
+16B08 003F
+16B08 0334
+16B08 0061
+16B08 0041
+16B08 0062
+16B09 0021
+16B09 003F
+16B09 0334
+16B09 0061
+16B09 0041
+16B09 0062
+16B0A 0021
+16B0A 003F
+16B0A 0334
+16B0A 0061
+16B0A 0041
+16B0A 0062
+16B0B 0021
+16B0B 003F
+16B0B 0334
+16B0B 0061
+16B0B 0041
+16B0B 0062
+16B0C 0021
+16B0C 003F
+16B0C 0334
+16B0C 0061
+16B0C 0041
+16B0C 0062
+16B0D 0021
+16B0D 003F
+16B0D 0334
+16B0D 0061
+16B0D 0041
+16B0D 0062
+16B0E 0021
+16B0E 003F
+16B0E 0334
+16B0E 0061
+16B0E 0041
+16B0E 0062
+16B0F 0021
+16B0F 003F
+16B0F 0334
+16B0F 0061
+16B0F 0041
+16B0F 0062
+16B10 0021
+16B10 003F
+16B10 0334
+16B10 0061
+16B10 0041
+16B10 0062
+16B11 0021
+16B11 003F
+16B11 0334
+16B11 0061
+16B11 0041
+16B11 0062
+16B12 0021
+16B12 003F
+16B12 0334
+16B12 0061
+16B12 0041
+16B12 0062
+16B13 0021
+16B13 003F
+16B13 0334
+16B13 0061
+16B13 0041
+16B13 0062
+16B14 0021
+16B14 003F
+16B14 0334
+16B14 0061
+16B14 0041
+16B14 0062
+16B15 0021
+16B15 003F
+16B15 0334
+16B15 0061
+16B15 0041
+16B15 0062
+16B16 0021
+16B16 003F
+16B16 0334
+16B16 0061
+16B16 0041
+16B16 0062
+16B17 0021
+16B17 003F
+16B17 0334
+16B17 0061
+16B17 0041
+16B17 0062
+16B18 0021
+16B18 003F
+16B18 0334
+16B18 0061
+16B18 0041
+16B18 0062
+16B19 0021
+16B19 003F
+16B19 0334
+16B19 0061
+16B19 0041
+16B19 0062
+16B1A 0021
+16B1A 003F
+16B1A 0334
+16B1A 0061
+16B1A 0041
+16B1A 0062
+16B1B 0021
+16B1B 003F
+16B1B 0334
+16B1B 0061
+16B1B 0041
+16B1B 0062
+16B1C 0021
+16B1C 003F
+16B1C 0334
+16B1C 0061
+16B1C 0041
+16B1C 0062
+16B1D 0021
+16B1D 003F
+16B1D 0334
+16B1D 0061
+16B1D 0041
+16B1D 0062
+16B1E 0021
+16B1E 003F
+16B1E 0334
+16B1E 0061
+16B1E 0041
+16B1E 0062
+16B1F 0021
+16B1F 003F
+16B1F 0334
+16B1F 0061
+16B1F 0041
+16B1F 0062
+16B20 0021
+16B20 003F
+16B20 0334
+16B20 0061
+16B20 0041
+16B20 0062
+16B21 0021
+16B21 003F
+16B21 0334
+16B21 0061
+16B21 0041
+16B21 0062
+16B22 0021
+16B22 003F
+16B22 0334
+16B22 0061
+16B22 0041
+16B22 0062
+16B23 0021
+16B23 003F
+16B23 0334
+16B23 0061
+16B23 0041
+16B23 0062
+16B24 0021
+16B24 003F
+16B24 0334
+16B24 0061
+16B24 0041
+16B24 0062
+16B25 0021
+16B25 003F
+16B25 0334
+16B25 0061
+16B25 0041
+16B25 0062
+16B26 0021
+16B26 003F
+16B26 0334
+16B26 0061
+16B26 0041
+16B26 0062
+16B27 0021
+16B27 003F
+16B27 0334
+16B27 0061
+16B27 0041
+16B27 0062
+16B28 0021
+16B28 003F
+16B28 0334
+16B28 0061
+16B28 0041
+16B28 0062
+16B29 0021
+16B29 003F
+16B29 0334
+16B29 0061
+16B29 0041
+16B29 0062
+16B2A 0021
+16B2A 003F
+16B2A 0334
+16B2A 0061
+16B2A 0041
+16B2A 0062
+16B2B 0021
+16B2B 003F
+16B2B 0334
+16B2B 0061
+16B2B 0041
+16B2B 0062
+16B2C 0021
+16B2C 003F
+16B2C 0334
+16B2C 0061
+16B2C 0041
+16B2C 0062
+16B2D 0021
+16B2D 003F
+16B2D 0334
+16B2D 0061
+16B2D 0041
+16B2D 0062
+16B2E 0021
+16B2E 003F
+16B2E 0334
+16B2E 0061
+16B2E 0041
+16B2E 0062
+16B2F 0021
+16B2F 003F
+16B2F 0334
+16B2F 0061
+16B2F 0041
+16B2F 0062
+16B40 0021
+16B40 003F
+16B40 0334
+16B40 0061
+16B40 0041
+16B40 0062
+16B41 0021
+16B41 003F
+16B41 0334
+16B41 0061
+16B41 0041
+16B41 0062
+16B63 0021
+16B63 003F
+16B63 0334
+16B63 0061
+16B63 0041
+16B63 0062
+16B64 0021
+16B64 003F
+16B64 0334
+16B64 0061
+16B64 0041
+16B64 0062
+16B65 0021
+16B65 003F
+16B65 0334
+16B65 0061
+16B65 0041
+16B65 0062
+16B66 0021
+16B66 003F
+16B66 0334
+16B66 0061
+16B66 0041
+16B66 0062
+16B67 0021
+16B67 003F
+16B67 0334
+16B67 0061
+16B67 0041
+16B67 0062
+16B68 0021
+16B68 003F
+16B68 0334
+16B68 0061
+16B68 0041
+16B68 0062
+16B69 0021
+16B69 003F
+16B69 0334
+16B69 0061
+16B69 0041
+16B69 0062
+16B6A 0021
+16B6A 003F
+16B6A 0334
+16B6A 0061
+16B6A 0041
+16B6A 0062
+16B6B 0021
+16B6B 003F
+16B6B 0334
+16B6B 0061
+16B6B 0041
+16B6B 0062
+16B6C 0021
+16B6C 003F
+16B6C 0334
+16B6C 0061
+16B6C 0041
+16B6C 0062
+16B6D 0021
+16B6D 003F
+16B6D 0334
+16B6D 0061
+16B6D 0041
+16B6D 0062
+16B6E 0021
+16B6E 003F
+16B6E 0334
+16B6E 0061
+16B6E 0041
+16B6E 0062
+16B6F 0021
+16B6F 003F
+16B6F 0334
+16B6F 0061
+16B6F 0041
+16B6F 0062
+16B70 0021
+16B70 003F
+16B70 0334
+16B70 0061
+16B70 0041
+16B70 0062
+16B71 0021
+16B71 003F
+16B71 0334
+16B71 0061
+16B71 0041
+16B71 0062
+16B72 0021
+16B72 003F
+16B72 0334
+16B72 0061
+16B72 0041
+16B72 0062
+16B73 0021
+16B73 003F
+16B73 0334
+16B73 0061
+16B73 0041
+16B73 0062
+16B74 0021
+16B74 003F
+16B74 0334
+16B74 0061
+16B74 0041
+16B74 0062
+16B75 0021
+16B75 003F
+16B75 0334
+16B75 0061
+16B75 0041
+16B75 0062
+16B76 0021
+16B76 003F
+16B76 0334
+16B76 0061
+16B76 0041
+16B76 0062
+16B77 0021
+16B77 003F
+16B77 0334
+16B77 0061
+16B77 0041
+16B77 0062
+16B7D 0021
+16B7D 003F
+16B7D 0334
+16B7D 0061
+16B7D 0041
+16B7D 0062
+16B7E 0021
+16B7E 003F
+16B7E 0334
+16B7E 0061
+16B7E 0041
+16B7E 0062
+16B7F 0021
+16B7F 003F
+16B7F 0334
+16B7F 0061
+16B7F 0041
+16B7F 0062
+16B80 0021
+16B80 003F
+16B80 0334
+16B80 0061
+16B80 0041
+16B80 0062
+16B81 0021
+16B81 003F
+16B81 0334
+16B81 0061
+16B81 0041
+16B81 0062
+16B82 0021
+16B82 003F
+16B82 0334
+16B82 0061
+16B82 0041
+16B82 0062
+16B83 0021
+16B83 003F
+16B83 0334
+16B83 0061
+16B83 0041
+16B83 0062
+16B84 0021
+16B84 003F
+16B84 0334
+16B84 0061
+16B84 0041
+16B84 0062
+16B85 0021
+16B85 003F
+16B85 0334
+16B85 0061
+16B85 0041
+16B85 0062
+16B86 0021
+16B86 003F
+16B86 0334
+16B86 0061
+16B86 0041
+16B86 0062
+16B87 0021
+16B87 003F
+16B87 0334
+16B87 0061
+16B87 0041
+16B87 0062
+16B88 0021
+16B88 003F
+16B88 0334
+16B88 0061
+16B88 0041
+16B88 0062
+16B89 0021
+16B89 003F
+16B89 0334
+16B89 0061
+16B89 0041
+16B89 0062
+16B8A 0021
+16B8A 003F
+16B8A 0334
+16B8A 0061
+16B8A 0041
+16B8A 0062
+16B8B 0021
+16B8B 003F
+16B8B 0334
+16B8B 0061
+16B8B 0041
+16B8B 0062
+16B8C 0021
+16B8C 003F
+16B8C 0334
+16B8C 0061
+16B8C 0041
+16B8C 0062
+16B8D 0021
+16B8D 003F
+16B8D 0334
+16B8D 0061
+16B8D 0041
+16B8D 0062
+16B8E 0021
+16B8E 003F
+16B8E 0334
+16B8E 0061
+16B8E 0041
+16B8E 0062
+16B8F 0021
+16B8F 003F
+16B8F 0334
+16B8F 0061
+16B8F 0041
+16B8F 0062
10280 0021
10280 003F
10280 0334
@@ -116507,6 +128353,12 @@ A4F7 0062
1030E 0061
1030E 0041
1030E 0062
+1031F 0021
+1031F 003F
+1031F 0334
+1031F 0061
+1031F 0041
+1031F 0062
1030F 0021
1030F 003F
1030F 0334
@@ -117533,6 +129385,840 @@ A4F7 0062
1047F 0061
1047F 0041
1047F 0062
+1BC00 0021
+1BC00 003F
+1BC00 0334
+1BC00 0061
+1BC00 0041
+1BC00 0062
+1BC01 0021
+1BC01 003F
+1BC01 0334
+1BC01 0061
+1BC01 0041
+1BC01 0062
+1BC02 0021
+1BC02 003F
+1BC02 0334
+1BC02 0061
+1BC02 0041
+1BC02 0062
+1BC03 0021
+1BC03 003F
+1BC03 0334
+1BC03 0061
+1BC03 0041
+1BC03 0062
+1BC04 0021
+1BC04 003F
+1BC04 0334
+1BC04 0061
+1BC04 0041
+1BC04 0062
+1BC05 0021
+1BC05 003F
+1BC05 0334
+1BC05 0061
+1BC05 0041
+1BC05 0062
+1BC06 0021
+1BC06 003F
+1BC06 0334
+1BC06 0061
+1BC06 0041
+1BC06 0062
+1BC07 0021
+1BC07 003F
+1BC07 0334
+1BC07 0061
+1BC07 0041
+1BC07 0062
+1BC08 0021
+1BC08 003F
+1BC08 0334
+1BC08 0061
+1BC08 0041
+1BC08 0062
+1BC09 0021
+1BC09 003F
+1BC09 0334
+1BC09 0061
+1BC09 0041
+1BC09 0062
+1BC0A 0021
+1BC0A 003F
+1BC0A 0334
+1BC0A 0061
+1BC0A 0041
+1BC0A 0062
+1BC0B 0021
+1BC0B 003F
+1BC0B 0334
+1BC0B 0061
+1BC0B 0041
+1BC0B 0062
+1BC0C 0021
+1BC0C 003F
+1BC0C 0334
+1BC0C 0061
+1BC0C 0041
+1BC0C 0062
+1BC0D 0021
+1BC0D 003F
+1BC0D 0334
+1BC0D 0061
+1BC0D 0041
+1BC0D 0062
+1BC0E 0021
+1BC0E 003F
+1BC0E 0334
+1BC0E 0061
+1BC0E 0041
+1BC0E 0062
+1BC0F 0021
+1BC0F 003F
+1BC0F 0334
+1BC0F 0061
+1BC0F 0041
+1BC0F 0062
+1BC10 0021
+1BC10 003F
+1BC10 0334
+1BC10 0061
+1BC10 0041
+1BC10 0062
+1BC11 0021
+1BC11 003F
+1BC11 0334
+1BC11 0061
+1BC11 0041
+1BC11 0062
+1BC12 0021
+1BC12 003F
+1BC12 0334
+1BC12 0061
+1BC12 0041
+1BC12 0062
+1BC13 0021
+1BC13 003F
+1BC13 0334
+1BC13 0061
+1BC13 0041
+1BC13 0062
+1BC14 0021
+1BC14 003F
+1BC14 0334
+1BC14 0061
+1BC14 0041
+1BC14 0062
+1BC15 0021
+1BC15 003F
+1BC15 0334
+1BC15 0061
+1BC15 0041
+1BC15 0062
+1BC16 0021
+1BC16 003F
+1BC16 0334
+1BC16 0061
+1BC16 0041
+1BC16 0062
+1BC17 0021
+1BC17 003F
+1BC17 0334
+1BC17 0061
+1BC17 0041
+1BC17 0062
+1BC18 0021
+1BC18 003F
+1BC18 0334
+1BC18 0061
+1BC18 0041
+1BC18 0062
+1BC19 0021
+1BC19 003F
+1BC19 0334
+1BC19 0061
+1BC19 0041
+1BC19 0062
+1BC1A 0021
+1BC1A 003F
+1BC1A 0334
+1BC1A 0061
+1BC1A 0041
+1BC1A 0062
+1BC1B 0021
+1BC1B 003F
+1BC1B 0334
+1BC1B 0061
+1BC1B 0041
+1BC1B 0062
+1BC1C 0021
+1BC1C 003F
+1BC1C 0334
+1BC1C 0061
+1BC1C 0041
+1BC1C 0062
+1BC1D 0021
+1BC1D 003F
+1BC1D 0334
+1BC1D 0061
+1BC1D 0041
+1BC1D 0062
+1BC1E 0021
+1BC1E 003F
+1BC1E 0334
+1BC1E 0061
+1BC1E 0041
+1BC1E 0062
+1BC1F 0021
+1BC1F 003F
+1BC1F 0334
+1BC1F 0061
+1BC1F 0041
+1BC1F 0062
+1BC20 0021
+1BC20 003F
+1BC20 0334
+1BC20 0061
+1BC20 0041
+1BC20 0062
+1BC21 0021
+1BC21 003F
+1BC21 0334
+1BC21 0061
+1BC21 0041
+1BC21 0062
+1BC22 0021
+1BC22 003F
+1BC22 0334
+1BC22 0061
+1BC22 0041
+1BC22 0062
+1BC23 0021
+1BC23 003F
+1BC23 0334
+1BC23 0061
+1BC23 0041
+1BC23 0062
+1BC24 0021
+1BC24 003F
+1BC24 0334
+1BC24 0061
+1BC24 0041
+1BC24 0062
+1BC25 0021
+1BC25 003F
+1BC25 0334
+1BC25 0061
+1BC25 0041
+1BC25 0062
+1BC26 0021
+1BC26 003F
+1BC26 0334
+1BC26 0061
+1BC26 0041
+1BC26 0062
+1BC27 0021
+1BC27 003F
+1BC27 0334
+1BC27 0061
+1BC27 0041
+1BC27 0062
+1BC28 0021
+1BC28 003F
+1BC28 0334
+1BC28 0061
+1BC28 0041
+1BC28 0062
+1BC29 0021
+1BC29 003F
+1BC29 0334
+1BC29 0061
+1BC29 0041
+1BC29 0062
+1BC2A 0021
+1BC2A 003F
+1BC2A 0334
+1BC2A 0061
+1BC2A 0041
+1BC2A 0062
+1BC2B 0021
+1BC2B 003F
+1BC2B 0334
+1BC2B 0061
+1BC2B 0041
+1BC2B 0062
+1BC2C 0021
+1BC2C 003F
+1BC2C 0334
+1BC2C 0061
+1BC2C 0041
+1BC2C 0062
+1BC2D 0021
+1BC2D 003F
+1BC2D 0334
+1BC2D 0061
+1BC2D 0041
+1BC2D 0062
+1BC2E 0021
+1BC2E 003F
+1BC2E 0334
+1BC2E 0061
+1BC2E 0041
+1BC2E 0062
+1BC2F 0021
+1BC2F 003F
+1BC2F 0334
+1BC2F 0061
+1BC2F 0041
+1BC2F 0062
+1BC30 0021
+1BC30 003F
+1BC30 0334
+1BC30 0061
+1BC30 0041
+1BC30 0062
+1BC31 0021
+1BC31 003F
+1BC31 0334
+1BC31 0061
+1BC31 0041
+1BC31 0062
+1BC32 0021
+1BC32 003F
+1BC32 0334
+1BC32 0061
+1BC32 0041
+1BC32 0062
+1BC33 0021
+1BC33 003F
+1BC33 0334
+1BC33 0061
+1BC33 0041
+1BC33 0062
+1BC34 0021
+1BC34 003F
+1BC34 0334
+1BC34 0061
+1BC34 0041
+1BC34 0062
+1BC35 0021
+1BC35 003F
+1BC35 0334
+1BC35 0061
+1BC35 0041
+1BC35 0062
+1BC36 0021
+1BC36 003F
+1BC36 0334
+1BC36 0061
+1BC36 0041
+1BC36 0062
+1BC37 0021
+1BC37 003F
+1BC37 0334
+1BC37 0061
+1BC37 0041
+1BC37 0062
+1BC38 0021
+1BC38 003F
+1BC38 0334
+1BC38 0061
+1BC38 0041
+1BC38 0062
+1BC39 0021
+1BC39 003F
+1BC39 0334
+1BC39 0061
+1BC39 0041
+1BC39 0062
+1BC3A 0021
+1BC3A 003F
+1BC3A 0334
+1BC3A 0061
+1BC3A 0041
+1BC3A 0062
+1BC3B 0021
+1BC3B 003F
+1BC3B 0334
+1BC3B 0061
+1BC3B 0041
+1BC3B 0062
+1BC3C 0021
+1BC3C 003F
+1BC3C 0334
+1BC3C 0061
+1BC3C 0041
+1BC3C 0062
+1BC3D 0021
+1BC3D 003F
+1BC3D 0334
+1BC3D 0061
+1BC3D 0041
+1BC3D 0062
+1BC3E 0021
+1BC3E 003F
+1BC3E 0334
+1BC3E 0061
+1BC3E 0041
+1BC3E 0062
+1BC3F 0021
+1BC3F 003F
+1BC3F 0334
+1BC3F 0061
+1BC3F 0041
+1BC3F 0062
+1BC40 0021
+1BC40 003F
+1BC40 0334
+1BC40 0061
+1BC40 0041
+1BC40 0062
+1BC41 0021
+1BC41 003F
+1BC41 0334
+1BC41 0061
+1BC41 0041
+1BC41 0062
+1BC42 0021
+1BC42 003F
+1BC42 0334
+1BC42 0061
+1BC42 0041
+1BC42 0062
+1BC43 0021
+1BC43 003F
+1BC43 0334
+1BC43 0061
+1BC43 0041
+1BC43 0062
+1BC44 0021
+1BC44 003F
+1BC44 0334
+1BC44 0061
+1BC44 0041
+1BC44 0062
+1BC45 0021
+1BC45 003F
+1BC45 0334
+1BC45 0061
+1BC45 0041
+1BC45 0062
+1BC46 0021
+1BC46 003F
+1BC46 0334
+1BC46 0061
+1BC46 0041
+1BC46 0062
+1BC47 0021
+1BC47 003F
+1BC47 0334
+1BC47 0061
+1BC47 0041
+1BC47 0062
+1BC48 0021
+1BC48 003F
+1BC48 0334
+1BC48 0061
+1BC48 0041
+1BC48 0062
+1BC49 0021
+1BC49 003F
+1BC49 0334
+1BC49 0061
+1BC49 0041
+1BC49 0062
+1BC4A 0021
+1BC4A 003F
+1BC4A 0334
+1BC4A 0061
+1BC4A 0041
+1BC4A 0062
+1BC4B 0021
+1BC4B 003F
+1BC4B 0334
+1BC4B 0061
+1BC4B 0041
+1BC4B 0062
+1BC4C 0021
+1BC4C 003F
+1BC4C 0334
+1BC4C 0061
+1BC4C 0041
+1BC4C 0062
+1BC4D 0021
+1BC4D 003F
+1BC4D 0334
+1BC4D 0061
+1BC4D 0041
+1BC4D 0062
+1BC4E 0021
+1BC4E 003F
+1BC4E 0334
+1BC4E 0061
+1BC4E 0041
+1BC4E 0062
+1BC4F 0021
+1BC4F 003F
+1BC4F 0334
+1BC4F 0061
+1BC4F 0041
+1BC4F 0062
+1BC50 0021
+1BC50 003F
+1BC50 0334
+1BC50 0061
+1BC50 0041
+1BC50 0062
+1BC51 0021
+1BC51 003F
+1BC51 0334
+1BC51 0061
+1BC51 0041
+1BC51 0062
+1BC52 0021
+1BC52 003F
+1BC52 0334
+1BC52 0061
+1BC52 0041
+1BC52 0062
+1BC53 0021
+1BC53 003F
+1BC53 0334
+1BC53 0061
+1BC53 0041
+1BC53 0062
+1BC54 0021
+1BC54 003F
+1BC54 0334
+1BC54 0061
+1BC54 0041
+1BC54 0062
+1BC55 0021
+1BC55 003F
+1BC55 0334
+1BC55 0061
+1BC55 0041
+1BC55 0062
+1BC56 0021
+1BC56 003F
+1BC56 0334
+1BC56 0061
+1BC56 0041
+1BC56 0062
+1BC57 0021
+1BC57 003F
+1BC57 0334
+1BC57 0061
+1BC57 0041
+1BC57 0062
+1BC58 0021
+1BC58 003F
+1BC58 0334
+1BC58 0061
+1BC58 0041
+1BC58 0062
+1BC59 0021
+1BC59 003F
+1BC59 0334
+1BC59 0061
+1BC59 0041
+1BC59 0062
+1BC5A 0021
+1BC5A 003F
+1BC5A 0334
+1BC5A 0061
+1BC5A 0041
+1BC5A 0062
+1BC5B 0021
+1BC5B 003F
+1BC5B 0334
+1BC5B 0061
+1BC5B 0041
+1BC5B 0062
+1BC5C 0021
+1BC5C 003F
+1BC5C 0334
+1BC5C 0061
+1BC5C 0041
+1BC5C 0062
+1BC5D 0021
+1BC5D 003F
+1BC5D 0334
+1BC5D 0061
+1BC5D 0041
+1BC5D 0062
+1BC5E 0021
+1BC5E 003F
+1BC5E 0334
+1BC5E 0061
+1BC5E 0041
+1BC5E 0062
+1BC5F 0021
+1BC5F 003F
+1BC5F 0334
+1BC5F 0061
+1BC5F 0041
+1BC5F 0062
+1BC60 0021
+1BC60 003F
+1BC60 0334
+1BC60 0061
+1BC60 0041
+1BC60 0062
+1BC61 0021
+1BC61 003F
+1BC61 0334
+1BC61 0061
+1BC61 0041
+1BC61 0062
+1BC62 0021
+1BC62 003F
+1BC62 0334
+1BC62 0061
+1BC62 0041
+1BC62 0062
+1BC63 0021
+1BC63 003F
+1BC63 0334
+1BC63 0061
+1BC63 0041
+1BC63 0062
+1BC64 0021
+1BC64 003F
+1BC64 0334
+1BC64 0061
+1BC64 0041
+1BC64 0062
+1BC65 0021
+1BC65 003F
+1BC65 0334
+1BC65 0061
+1BC65 0041
+1BC65 0062
+1BC66 0021
+1BC66 003F
+1BC66 0334
+1BC66 0061
+1BC66 0041
+1BC66 0062
+1BC67 0021
+1BC67 003F
+1BC67 0334
+1BC67 0061
+1BC67 0041
+1BC67 0062
+1BC68 0021
+1BC68 003F
+1BC68 0334
+1BC68 0061
+1BC68 0041
+1BC68 0062
+1BC69 0021
+1BC69 003F
+1BC69 0334
+1BC69 0061
+1BC69 0041
+1BC69 0062
+1BC6A 0021
+1BC6A 003F
+1BC6A 0334
+1BC6A 0061
+1BC6A 0041
+1BC6A 0062
+1BC70 0021
+1BC70 003F
+1BC70 0334
+1BC70 0061
+1BC70 0041
+1BC70 0062
+1BC71 0021
+1BC71 003F
+1BC71 0334
+1BC71 0061
+1BC71 0041
+1BC71 0062
+1BC72 0021
+1BC72 003F
+1BC72 0334
+1BC72 0061
+1BC72 0041
+1BC72 0062
+1BC73 0021
+1BC73 003F
+1BC73 0334
+1BC73 0061
+1BC73 0041
+1BC73 0062
+1BC74 0021
+1BC74 003F
+1BC74 0334
+1BC74 0061
+1BC74 0041
+1BC74 0062
+1BC75 0021
+1BC75 003F
+1BC75 0334
+1BC75 0061
+1BC75 0041
+1BC75 0062
+1BC76 0021
+1BC76 003F
+1BC76 0334
+1BC76 0061
+1BC76 0041
+1BC76 0062
+1BC77 0021
+1BC77 003F
+1BC77 0334
+1BC77 0061
+1BC77 0041
+1BC77 0062
+1BC78 0021
+1BC78 003F
+1BC78 0334
+1BC78 0061
+1BC78 0041
+1BC78 0062
+1BC79 0021
+1BC79 003F
+1BC79 0334
+1BC79 0061
+1BC79 0041
+1BC79 0062
+1BC7A 0021
+1BC7A 003F
+1BC7A 0334
+1BC7A 0061
+1BC7A 0041
+1BC7A 0062
+1BC7B 0021
+1BC7B 003F
+1BC7B 0334
+1BC7B 0061
+1BC7B 0041
+1BC7B 0062
+1BC7C 0021
+1BC7C 003F
+1BC7C 0334
+1BC7C 0061
+1BC7C 0041
+1BC7C 0062
+1BC80 0021
+1BC80 003F
+1BC80 0334
+1BC80 0061
+1BC80 0041
+1BC80 0062
+1BC81 0021
+1BC81 003F
+1BC81 0334
+1BC81 0061
+1BC81 0041
+1BC81 0062
+1BC82 0021
+1BC82 003F
+1BC82 0334
+1BC82 0061
+1BC82 0041
+1BC82 0062
+1BC83 0021
+1BC83 003F
+1BC83 0334
+1BC83 0061
+1BC83 0041
+1BC83 0062
+1BC84 0021
+1BC84 003F
+1BC84 0334
+1BC84 0061
+1BC84 0041
+1BC84 0062
+1BC85 0021
+1BC85 003F
+1BC85 0334
+1BC85 0061
+1BC85 0041
+1BC85 0062
+1BC86 0021
+1BC86 003F
+1BC86 0334
+1BC86 0061
+1BC86 0041
+1BC86 0062
+1BC87 0021
+1BC87 003F
+1BC87 0334
+1BC87 0061
+1BC87 0041
+1BC87 0062
+1BC88 0021
+1BC88 003F
+1BC88 0334
+1BC88 0061
+1BC88 0041
+1BC88 0062
+1BC90 0021
+1BC90 003F
+1BC90 0334
+1BC90 0061
+1BC90 0041
+1BC90 0062
+1BC91 0021
+1BC91 003F
+1BC91 0334
+1BC91 0061
+1BC91 0041
+1BC91 0062
+1BC92 0021
+1BC92 003F
+1BC92 0334
+1BC92 0061
+1BC92 0041
+1BC92 0062
+1BC93 0021
+1BC93 003F
+1BC93 0334
+1BC93 0061
+1BC93 0041
+1BC93 0062
+1BC94 0021
+1BC94 003F
+1BC94 0334
+1BC94 0061
+1BC94 0041
+1BC94 0062
+1BC95 0021
+1BC95 003F
+1BC95 0334
+1BC95 0061
+1BC95 0041
+1BC95 0062
+1BC96 0021
+1BC96 003F
+1BC96 0334
+1BC96 0061
+1BC96 0041
+1BC96 0062
+1BC97 0021
+1BC97 003F
+1BC97 0334
+1BC97 0061
+1BC97 0041
+1BC97 0062
+1BC98 0021
+1BC98 003F
+1BC98 0334
+1BC98 0061
+1BC98 0041
+1BC98 0062
+1BC99 0021
+1BC99 003F
+1BC99 0334
+1BC99 0061
+1BC99 0041
+1BC99 0062
10480 0021
10480 003F
10480 0334
@@ -117713,6 +130399,558 @@ A4F7 0062
1049D 0061
1049D 0041
1049D 0062
+10500 0021
+10500 003F
+10500 0334
+10500 0061
+10500 0041
+10500 0062
+10501 0021
+10501 003F
+10501 0334
+10501 0061
+10501 0041
+10501 0062
+10502 0021
+10502 003F
+10502 0334
+10502 0061
+10502 0041
+10502 0062
+10503 0021
+10503 003F
+10503 0334
+10503 0061
+10503 0041
+10503 0062
+10504 0021
+10504 003F
+10504 0334
+10504 0061
+10504 0041
+10504 0062
+10505 0021
+10505 003F
+10505 0334
+10505 0061
+10505 0041
+10505 0062
+10506 0021
+10506 003F
+10506 0334
+10506 0061
+10506 0041
+10506 0062
+10507 0021
+10507 003F
+10507 0334
+10507 0061
+10507 0041
+10507 0062
+10508 0021
+10508 003F
+10508 0334
+10508 0061
+10508 0041
+10508 0062
+10509 0021
+10509 003F
+10509 0334
+10509 0061
+10509 0041
+10509 0062
+1050A 0021
+1050A 003F
+1050A 0334
+1050A 0061
+1050A 0041
+1050A 0062
+1050B 0021
+1050B 003F
+1050B 0334
+1050B 0061
+1050B 0041
+1050B 0062
+1050C 0021
+1050C 003F
+1050C 0334
+1050C 0061
+1050C 0041
+1050C 0062
+1050D 0021
+1050D 003F
+1050D 0334
+1050D 0061
+1050D 0041
+1050D 0062
+1050E 0021
+1050E 003F
+1050E 0334
+1050E 0061
+1050E 0041
+1050E 0062
+1050F 0021
+1050F 003F
+1050F 0334
+1050F 0061
+1050F 0041
+1050F 0062
+10510 0021
+10510 003F
+10510 0334
+10510 0061
+10510 0041
+10510 0062
+10511 0021
+10511 003F
+10511 0334
+10511 0061
+10511 0041
+10511 0062
+10512 0021
+10512 003F
+10512 0334
+10512 0061
+10512 0041
+10512 0062
+10513 0021
+10513 003F
+10513 0334
+10513 0061
+10513 0041
+10513 0062
+10514 0021
+10514 003F
+10514 0334
+10514 0061
+10514 0041
+10514 0062
+10515 0021
+10515 003F
+10515 0334
+10515 0061
+10515 0041
+10515 0062
+10516 0021
+10516 003F
+10516 0334
+10516 0061
+10516 0041
+10516 0062
+10517 0021
+10517 003F
+10517 0334
+10517 0061
+10517 0041
+10517 0062
+10518 0021
+10518 003F
+10518 0334
+10518 0061
+10518 0041
+10518 0062
+10519 0021
+10519 003F
+10519 0334
+10519 0061
+10519 0041
+10519 0062
+1051A 0021
+1051A 003F
+1051A 0334
+1051A 0061
+1051A 0041
+1051A 0062
+1051B 0021
+1051B 003F
+1051B 0334
+1051B 0061
+1051B 0041
+1051B 0062
+1051C 0021
+1051C 003F
+1051C 0334
+1051C 0061
+1051C 0041
+1051C 0062
+1051D 0021
+1051D 003F
+1051D 0334
+1051D 0061
+1051D 0041
+1051D 0062
+1051E 0021
+1051E 003F
+1051E 0334
+1051E 0061
+1051E 0041
+1051E 0062
+1051F 0021
+1051F 003F
+1051F 0334
+1051F 0061
+1051F 0041
+1051F 0062
+10520 0021
+10520 003F
+10520 0334
+10520 0061
+10520 0041
+10520 0062
+10521 0021
+10521 003F
+10521 0334
+10521 0061
+10521 0041
+10521 0062
+10522 0021
+10522 003F
+10522 0334
+10522 0061
+10522 0041
+10522 0062
+10523 0021
+10523 003F
+10523 0334
+10523 0061
+10523 0041
+10523 0062
+10524 0021
+10524 003F
+10524 0334
+10524 0061
+10524 0041
+10524 0062
+10525 0021
+10525 003F
+10525 0334
+10525 0061
+10525 0041
+10525 0062
+10526 0021
+10526 003F
+10526 0334
+10526 0061
+10526 0041
+10526 0062
+10527 0021
+10527 003F
+10527 0334
+10527 0061
+10527 0041
+10527 0062
+10530 0021
+10530 003F
+10530 0334
+10530 0061
+10530 0041
+10530 0062
+10531 0021
+10531 003F
+10531 0334
+10531 0061
+10531 0041
+10531 0062
+10532 0021
+10532 003F
+10532 0334
+10532 0061
+10532 0041
+10532 0062
+10533 0021
+10533 003F
+10533 0334
+10533 0061
+10533 0041
+10533 0062
+10534 0021
+10534 003F
+10534 0334
+10534 0061
+10534 0041
+10534 0062
+10535 0021
+10535 003F
+10535 0334
+10535 0061
+10535 0041
+10535 0062
+10536 0021
+10536 003F
+10536 0334
+10536 0061
+10536 0041
+10536 0062
+10537 0021
+10537 003F
+10537 0334
+10537 0061
+10537 0041
+10537 0062
+10538 0021
+10538 003F
+10538 0334
+10538 0061
+10538 0041
+10538 0062
+10539 0021
+10539 003F
+10539 0334
+10539 0061
+10539 0041
+10539 0062
+1053A 0021
+1053A 003F
+1053A 0334
+1053A 0061
+1053A 0041
+1053A 0062
+1053B 0021
+1053B 003F
+1053B 0334
+1053B 0061
+1053B 0041
+1053B 0062
+1053C 0021
+1053C 003F
+1053C 0334
+1053C 0061
+1053C 0041
+1053C 0062
+1053D 0021
+1053D 003F
+1053D 0334
+1053D 0061
+1053D 0041
+1053D 0062
+1053E 0021
+1053E 003F
+1053E 0334
+1053E 0061
+1053E 0041
+1053E 0062
+1053F 0021
+1053F 003F
+1053F 0334
+1053F 0061
+1053F 0041
+1053F 0062
+10540 0021
+10540 003F
+10540 0334
+10540 0061
+10540 0041
+10540 0062
+10541 0021
+10541 003F
+10541 0334
+10541 0061
+10541 0041
+10541 0062
+10542 0021
+10542 003F
+10542 0334
+10542 0061
+10542 0041
+10542 0062
+10543 0021
+10543 003F
+10543 0334
+10543 0061
+10543 0041
+10543 0062
+10544 0021
+10544 003F
+10544 0334
+10544 0061
+10544 0041
+10544 0062
+10545 0021
+10545 003F
+10545 0334
+10545 0061
+10545 0041
+10545 0062
+10546 0021
+10546 003F
+10546 0334
+10546 0061
+10546 0041
+10546 0062
+10547 0021
+10547 003F
+10547 0334
+10547 0061
+10547 0041
+10547 0062
+10548 0021
+10548 003F
+10548 0334
+10548 0061
+10548 0041
+10548 0062
+10549 0021
+10549 003F
+10549 0334
+10549 0061
+10549 0041
+10549 0062
+1054A 0021
+1054A 003F
+1054A 0334
+1054A 0061
+1054A 0041
+1054A 0062
+1054B 0021
+1054B 003F
+1054B 0334
+1054B 0061
+1054B 0041
+1054B 0062
+1054C 0021
+1054C 003F
+1054C 0334
+1054C 0061
+1054C 0041
+1054C 0062
+1054D 0021
+1054D 003F
+1054D 0334
+1054D 0061
+1054D 0041
+1054D 0062
+1054E 0021
+1054E 003F
+1054E 0334
+1054E 0061
+1054E 0041
+1054E 0062
+1054F 0021
+1054F 003F
+1054F 0334
+1054F 0061
+1054F 0041
+1054F 0062
+10550 0021
+10550 003F
+10550 0334
+10550 0061
+10550 0041
+10550 0062
+10551 0021
+10551 003F
+10551 0334
+10551 0061
+10551 0041
+10551 0062
+10552 0021
+10552 003F
+10552 0334
+10552 0061
+10552 0041
+10552 0062
+10553 0021
+10553 003F
+10553 0334
+10553 0061
+10553 0041
+10553 0062
+10554 0021
+10554 003F
+10554 0334
+10554 0061
+10554 0041
+10554 0062
+10555 0021
+10555 003F
+10555 0334
+10555 0061
+10555 0041
+10555 0062
+10556 0021
+10556 003F
+10556 0334
+10556 0061
+10556 0041
+10556 0062
+10557 0021
+10557 003F
+10557 0334
+10557 0061
+10557 0041
+10557 0062
+10558 0021
+10558 003F
+10558 0334
+10558 0061
+10558 0041
+10558 0062
+10559 0021
+10559 003F
+10559 0334
+10559 0061
+10559 0041
+10559 0062
+1055A 0021
+1055A 003F
+1055A 0334
+1055A 0061
+1055A 0041
+1055A 0062
+1055B 0021
+1055B 003F
+1055B 0334
+1055B 0061
+1055B 0041
+1055B 0062
+1055C 0021
+1055C 003F
+1055C 0334
+1055C 0061
+1055C 0041
+1055C 0062
+1055D 0021
+1055D 003F
+1055D 0334
+1055D 0061
+1055D 0041
+1055D 0062
+1055E 0021
+1055E 003F
+1055E 0334
+1055E 0061
+1055E 0041
+1055E 0062
+1055F 0021
+1055F 003F
+1055F 0334
+1055F 0061
+1055F 0041
+1055F 0062
+10560 0021
+10560 003F
+10560 0334
+10560 0061
+10560 0041
+10560 0062
+10561 0021
+10561 003F
+10561 0334
+10561 0061
+10561 0041
+10561 0062
+10562 0021
+10562 003F
+10562 0334
+10562 0061
+10562 0041
+10562 0062
+10563 0021
+10563 003F
+10563 0334
+10563 0061
+10563 0041
+10563 0062
110D0 0021
110D0 003F
110D0 0334
@@ -117863,6 +131101,192 @@ A4F7 0062
110E8 0061
110E8 0041
110E8 0062
+16A40 0021
+16A40 003F
+16A40 0334
+16A40 0061
+16A40 0041
+16A40 0062
+16A41 0021
+16A41 003F
+16A41 0334
+16A41 0061
+16A41 0041
+16A41 0062
+16A42 0021
+16A42 003F
+16A42 0334
+16A42 0061
+16A42 0041
+16A42 0062
+16A43 0021
+16A43 003F
+16A43 0334
+16A43 0061
+16A43 0041
+16A43 0062
+16A44 0021
+16A44 003F
+16A44 0334
+16A44 0061
+16A44 0041
+16A44 0062
+16A45 0021
+16A45 003F
+16A45 0334
+16A45 0061
+16A45 0041
+16A45 0062
+16A46 0021
+16A46 003F
+16A46 0334
+16A46 0061
+16A46 0041
+16A46 0062
+16A47 0021
+16A47 003F
+16A47 0334
+16A47 0061
+16A47 0041
+16A47 0062
+16A48 0021
+16A48 003F
+16A48 0334
+16A48 0061
+16A48 0041
+16A48 0062
+16A49 0021
+16A49 003F
+16A49 0334
+16A49 0061
+16A49 0041
+16A49 0062
+16A4A 0021
+16A4A 003F
+16A4A 0334
+16A4A 0061
+16A4A 0041
+16A4A 0062
+16A4B 0021
+16A4B 003F
+16A4B 0334
+16A4B 0061
+16A4B 0041
+16A4B 0062
+16A4C 0021
+16A4C 003F
+16A4C 0334
+16A4C 0061
+16A4C 0041
+16A4C 0062
+16A4D 0021
+16A4D 003F
+16A4D 0334
+16A4D 0061
+16A4D 0041
+16A4D 0062
+16A4E 0021
+16A4E 003F
+16A4E 0334
+16A4E 0061
+16A4E 0041
+16A4E 0062
+16A4F 0021
+16A4F 003F
+16A4F 0334
+16A4F 0061
+16A4F 0041
+16A4F 0062
+16A50 0021
+16A50 003F
+16A50 0334
+16A50 0061
+16A50 0041
+16A50 0062
+16A51 0021
+16A51 003F
+16A51 0334
+16A51 0061
+16A51 0041
+16A51 0062
+16A52 0021
+16A52 003F
+16A52 0334
+16A52 0061
+16A52 0041
+16A52 0062
+16A53 0021
+16A53 003F
+16A53 0334
+16A53 0061
+16A53 0041
+16A53 0062
+16A54 0021
+16A54 003F
+16A54 0334
+16A54 0061
+16A54 0041
+16A54 0062
+16A55 0021
+16A55 003F
+16A55 0334
+16A55 0061
+16A55 0041
+16A55 0062
+16A56 0021
+16A56 003F
+16A56 0334
+16A56 0061
+16A56 0041
+16A56 0062
+16A57 0021
+16A57 003F
+16A57 0334
+16A57 0061
+16A57 0041
+16A57 0062
+16A58 0021
+16A58 003F
+16A58 0334
+16A58 0061
+16A58 0041
+16A58 0062
+16A59 0021
+16A59 003F
+16A59 0334
+16A59 0061
+16A59 0041
+16A59 0062
+16A5A 0021
+16A5A 003F
+16A5A 0334
+16A5A 0061
+16A5A 0041
+16A5A 0062
+16A5B 0021
+16A5B 003F
+16A5B 0334
+16A5B 0061
+16A5B 0041
+16A5B 0062
+16A5C 0021
+16A5C 003F
+16A5C 0334
+16A5C 0061
+16A5C 0041
+16A5C 0062
+16A5D 0021
+16A5D 003F
+16A5D 0334
+16A5D 0061
+16A5D 0041
+16A5D 0062
+16A5E 0021
+16A5E 003F
+16A5E 0334
+16A5E 0061
+16A5E 0041
+16A5E 0062
10000 0021
10000 003F
10000 0334
@@ -119129,6 +132553,2052 @@ A4F7 0062
100FA 0061
100FA 0041
100FA 0062
+10600 0021
+10600 003F
+10600 0334
+10600 0061
+10600 0041
+10600 0062
+10601 0021
+10601 003F
+10601 0334
+10601 0061
+10601 0041
+10601 0062
+10602 0021
+10602 003F
+10602 0334
+10602 0061
+10602 0041
+10602 0062
+10603 0021
+10603 003F
+10603 0334
+10603 0061
+10603 0041
+10603 0062
+10604 0021
+10604 003F
+10604 0334
+10604 0061
+10604 0041
+10604 0062
+10605 0021
+10605 003F
+10605 0334
+10605 0061
+10605 0041
+10605 0062
+10606 0021
+10606 003F
+10606 0334
+10606 0061
+10606 0041
+10606 0062
+10607 0021
+10607 003F
+10607 0334
+10607 0061
+10607 0041
+10607 0062
+10608 0021
+10608 003F
+10608 0334
+10608 0061
+10608 0041
+10608 0062
+10609 0021
+10609 003F
+10609 0334
+10609 0061
+10609 0041
+10609 0062
+1060A 0021
+1060A 003F
+1060A 0334
+1060A 0061
+1060A 0041
+1060A 0062
+1060B 0021
+1060B 003F
+1060B 0334
+1060B 0061
+1060B 0041
+1060B 0062
+1060C 0021
+1060C 003F
+1060C 0334
+1060C 0061
+1060C 0041
+1060C 0062
+1060D 0021
+1060D 003F
+1060D 0334
+1060D 0061
+1060D 0041
+1060D 0062
+1060E 0021
+1060E 003F
+1060E 0334
+1060E 0061
+1060E 0041
+1060E 0062
+1060F 0021
+1060F 003F
+1060F 0334
+1060F 0061
+1060F 0041
+1060F 0062
+10610 0021
+10610 003F
+10610 0334
+10610 0061
+10610 0041
+10610 0062
+10611 0021
+10611 003F
+10611 0334
+10611 0061
+10611 0041
+10611 0062
+10612 0021
+10612 003F
+10612 0334
+10612 0061
+10612 0041
+10612 0062
+10613 0021
+10613 003F
+10613 0334
+10613 0061
+10613 0041
+10613 0062
+10614 0021
+10614 003F
+10614 0334
+10614 0061
+10614 0041
+10614 0062
+10615 0021
+10615 003F
+10615 0334
+10615 0061
+10615 0041
+10615 0062
+10616 0021
+10616 003F
+10616 0334
+10616 0061
+10616 0041
+10616 0062
+10617 0021
+10617 003F
+10617 0334
+10617 0061
+10617 0041
+10617 0062
+10618 0021
+10618 003F
+10618 0334
+10618 0061
+10618 0041
+10618 0062
+10619 0021
+10619 003F
+10619 0334
+10619 0061
+10619 0041
+10619 0062
+1061A 0021
+1061A 003F
+1061A 0334
+1061A 0061
+1061A 0041
+1061A 0062
+1061B 0021
+1061B 003F
+1061B 0334
+1061B 0061
+1061B 0041
+1061B 0062
+1061C 0021
+1061C 003F
+1061C 0334
+1061C 0061
+1061C 0041
+1061C 0062
+1061D 0021
+1061D 003F
+1061D 0334
+1061D 0061
+1061D 0041
+1061D 0062
+1061E 0021
+1061E 003F
+1061E 0334
+1061E 0061
+1061E 0041
+1061E 0062
+1061F 0021
+1061F 003F
+1061F 0334
+1061F 0061
+1061F 0041
+1061F 0062
+10620 0021
+10620 003F
+10620 0334
+10620 0061
+10620 0041
+10620 0062
+10621 0021
+10621 003F
+10621 0334
+10621 0061
+10621 0041
+10621 0062
+10622 0021
+10622 003F
+10622 0334
+10622 0061
+10622 0041
+10622 0062
+10623 0021
+10623 003F
+10623 0334
+10623 0061
+10623 0041
+10623 0062
+10624 0021
+10624 003F
+10624 0334
+10624 0061
+10624 0041
+10624 0062
+10625 0021
+10625 003F
+10625 0334
+10625 0061
+10625 0041
+10625 0062
+10626 0021
+10626 003F
+10626 0334
+10626 0061
+10626 0041
+10626 0062
+10627 0021
+10627 003F
+10627 0334
+10627 0061
+10627 0041
+10627 0062
+10628 0021
+10628 003F
+10628 0334
+10628 0061
+10628 0041
+10628 0062
+10629 0021
+10629 003F
+10629 0334
+10629 0061
+10629 0041
+10629 0062
+1062A 0021
+1062A 003F
+1062A 0334
+1062A 0061
+1062A 0041
+1062A 0062
+1062B 0021
+1062B 003F
+1062B 0334
+1062B 0061
+1062B 0041
+1062B 0062
+1062C 0021
+1062C 003F
+1062C 0334
+1062C 0061
+1062C 0041
+1062C 0062
+1062D 0021
+1062D 003F
+1062D 0334
+1062D 0061
+1062D 0041
+1062D 0062
+1062E 0021
+1062E 003F
+1062E 0334
+1062E 0061
+1062E 0041
+1062E 0062
+1062F 0021
+1062F 003F
+1062F 0334
+1062F 0061
+1062F 0041
+1062F 0062
+10630 0021
+10630 003F
+10630 0334
+10630 0061
+10630 0041
+10630 0062
+10631 0021
+10631 003F
+10631 0334
+10631 0061
+10631 0041
+10631 0062
+10632 0021
+10632 003F
+10632 0334
+10632 0061
+10632 0041
+10632 0062
+10633 0021
+10633 003F
+10633 0334
+10633 0061
+10633 0041
+10633 0062
+10634 0021
+10634 003F
+10634 0334
+10634 0061
+10634 0041
+10634 0062
+10635 0021
+10635 003F
+10635 0334
+10635 0061
+10635 0041
+10635 0062
+10636 0021
+10636 003F
+10636 0334
+10636 0061
+10636 0041
+10636 0062
+10637 0021
+10637 003F
+10637 0334
+10637 0061
+10637 0041
+10637 0062
+10638 0021
+10638 003F
+10638 0334
+10638 0061
+10638 0041
+10638 0062
+10639 0021
+10639 003F
+10639 0334
+10639 0061
+10639 0041
+10639 0062
+1063A 0021
+1063A 003F
+1063A 0334
+1063A 0061
+1063A 0041
+1063A 0062
+1063B 0021
+1063B 003F
+1063B 0334
+1063B 0061
+1063B 0041
+1063B 0062
+1063C 0021
+1063C 003F
+1063C 0334
+1063C 0061
+1063C 0041
+1063C 0062
+1063D 0021
+1063D 003F
+1063D 0334
+1063D 0061
+1063D 0041
+1063D 0062
+1063E 0021
+1063E 003F
+1063E 0334
+1063E 0061
+1063E 0041
+1063E 0062
+1063F 0021
+1063F 003F
+1063F 0334
+1063F 0061
+1063F 0041
+1063F 0062
+10640 0021
+10640 003F
+10640 0334
+10640 0061
+10640 0041
+10640 0062
+10641 0021
+10641 003F
+10641 0334
+10641 0061
+10641 0041
+10641 0062
+10642 0021
+10642 003F
+10642 0334
+10642 0061
+10642 0041
+10642 0062
+10643 0021
+10643 003F
+10643 0334
+10643 0061
+10643 0041
+10643 0062
+10644 0021
+10644 003F
+10644 0334
+10644 0061
+10644 0041
+10644 0062
+10645 0021
+10645 003F
+10645 0334
+10645 0061
+10645 0041
+10645 0062
+10646 0021
+10646 003F
+10646 0334
+10646 0061
+10646 0041
+10646 0062
+10647 0021
+10647 003F
+10647 0334
+10647 0061
+10647 0041
+10647 0062
+10648 0021
+10648 003F
+10648 0334
+10648 0061
+10648 0041
+10648 0062
+10649 0021
+10649 003F
+10649 0334
+10649 0061
+10649 0041
+10649 0062
+1064A 0021
+1064A 003F
+1064A 0334
+1064A 0061
+1064A 0041
+1064A 0062
+1064B 0021
+1064B 003F
+1064B 0334
+1064B 0061
+1064B 0041
+1064B 0062
+1064C 0021
+1064C 003F
+1064C 0334
+1064C 0061
+1064C 0041
+1064C 0062
+1064D 0021
+1064D 003F
+1064D 0334
+1064D 0061
+1064D 0041
+1064D 0062
+1064E 0021
+1064E 003F
+1064E 0334
+1064E 0061
+1064E 0041
+1064E 0062
+1064F 0021
+1064F 003F
+1064F 0334
+1064F 0061
+1064F 0041
+1064F 0062
+10650 0021
+10650 003F
+10650 0334
+10650 0061
+10650 0041
+10650 0062
+10651 0021
+10651 003F
+10651 0334
+10651 0061
+10651 0041
+10651 0062
+10652 0021
+10652 003F
+10652 0334
+10652 0061
+10652 0041
+10652 0062
+10653 0021
+10653 003F
+10653 0334
+10653 0061
+10653 0041
+10653 0062
+10654 0021
+10654 003F
+10654 0334
+10654 0061
+10654 0041
+10654 0062
+10655 0021
+10655 003F
+10655 0334
+10655 0061
+10655 0041
+10655 0062
+10656 0021
+10656 003F
+10656 0334
+10656 0061
+10656 0041
+10656 0062
+10657 0021
+10657 003F
+10657 0334
+10657 0061
+10657 0041
+10657 0062
+10658 0021
+10658 003F
+10658 0334
+10658 0061
+10658 0041
+10658 0062
+10659 0021
+10659 003F
+10659 0334
+10659 0061
+10659 0041
+10659 0062
+1065A 0021
+1065A 003F
+1065A 0334
+1065A 0061
+1065A 0041
+1065A 0062
+1065B 0021
+1065B 003F
+1065B 0334
+1065B 0061
+1065B 0041
+1065B 0062
+1065C 0021
+1065C 003F
+1065C 0334
+1065C 0061
+1065C 0041
+1065C 0062
+1065D 0021
+1065D 003F
+1065D 0334
+1065D 0061
+1065D 0041
+1065D 0062
+1065E 0021
+1065E 003F
+1065E 0334
+1065E 0061
+1065E 0041
+1065E 0062
+1065F 0021
+1065F 003F
+1065F 0334
+1065F 0061
+1065F 0041
+1065F 0062
+10660 0021
+10660 003F
+10660 0334
+10660 0061
+10660 0041
+10660 0062
+10661 0021
+10661 003F
+10661 0334
+10661 0061
+10661 0041
+10661 0062
+10662 0021
+10662 003F
+10662 0334
+10662 0061
+10662 0041
+10662 0062
+10663 0021
+10663 003F
+10663 0334
+10663 0061
+10663 0041
+10663 0062
+10664 0021
+10664 003F
+10664 0334
+10664 0061
+10664 0041
+10664 0062
+10665 0021
+10665 003F
+10665 0334
+10665 0061
+10665 0041
+10665 0062
+10666 0021
+10666 003F
+10666 0334
+10666 0061
+10666 0041
+10666 0062
+10667 0021
+10667 003F
+10667 0334
+10667 0061
+10667 0041
+10667 0062
+10668 0021
+10668 003F
+10668 0334
+10668 0061
+10668 0041
+10668 0062
+10669 0021
+10669 003F
+10669 0334
+10669 0061
+10669 0041
+10669 0062
+1066A 0021
+1066A 003F
+1066A 0334
+1066A 0061
+1066A 0041
+1066A 0062
+1066B 0021
+1066B 003F
+1066B 0334
+1066B 0061
+1066B 0041
+1066B 0062
+1066C 0021
+1066C 003F
+1066C 0334
+1066C 0061
+1066C 0041
+1066C 0062
+1066D 0021
+1066D 003F
+1066D 0334
+1066D 0061
+1066D 0041
+1066D 0062
+1066E 0021
+1066E 003F
+1066E 0334
+1066E 0061
+1066E 0041
+1066E 0062
+1066F 0021
+1066F 003F
+1066F 0334
+1066F 0061
+1066F 0041
+1066F 0062
+10670 0021
+10670 003F
+10670 0334
+10670 0061
+10670 0041
+10670 0062
+10671 0021
+10671 003F
+10671 0334
+10671 0061
+10671 0041
+10671 0062
+10672 0021
+10672 003F
+10672 0334
+10672 0061
+10672 0041
+10672 0062
+10673 0021
+10673 003F
+10673 0334
+10673 0061
+10673 0041
+10673 0062
+10674 0021
+10674 003F
+10674 0334
+10674 0061
+10674 0041
+10674 0062
+10675 0021
+10675 003F
+10675 0334
+10675 0061
+10675 0041
+10675 0062
+10676 0021
+10676 003F
+10676 0334
+10676 0061
+10676 0041
+10676 0062
+10677 0021
+10677 003F
+10677 0334
+10677 0061
+10677 0041
+10677 0062
+10678 0021
+10678 003F
+10678 0334
+10678 0061
+10678 0041
+10678 0062
+10679 0021
+10679 003F
+10679 0334
+10679 0061
+10679 0041
+10679 0062
+1067A 0021
+1067A 003F
+1067A 0334
+1067A 0061
+1067A 0041
+1067A 0062
+1067B 0021
+1067B 003F
+1067B 0334
+1067B 0061
+1067B 0041
+1067B 0062
+1067C 0021
+1067C 003F
+1067C 0334
+1067C 0061
+1067C 0041
+1067C 0062
+1067D 0021
+1067D 003F
+1067D 0334
+1067D 0061
+1067D 0041
+1067D 0062
+1067E 0021
+1067E 003F
+1067E 0334
+1067E 0061
+1067E 0041
+1067E 0062
+1067F 0021
+1067F 003F
+1067F 0334
+1067F 0061
+1067F 0041
+1067F 0062
+10680 0021
+10680 003F
+10680 0334
+10680 0061
+10680 0041
+10680 0062
+10681 0021
+10681 003F
+10681 0334
+10681 0061
+10681 0041
+10681 0062
+10682 0021
+10682 003F
+10682 0334
+10682 0061
+10682 0041
+10682 0062
+10683 0021
+10683 003F
+10683 0334
+10683 0061
+10683 0041
+10683 0062
+10684 0021
+10684 003F
+10684 0334
+10684 0061
+10684 0041
+10684 0062
+10685 0021
+10685 003F
+10685 0334
+10685 0061
+10685 0041
+10685 0062
+10686 0021
+10686 003F
+10686 0334
+10686 0061
+10686 0041
+10686 0062
+10687 0021
+10687 003F
+10687 0334
+10687 0061
+10687 0041
+10687 0062
+10688 0021
+10688 003F
+10688 0334
+10688 0061
+10688 0041
+10688 0062
+10689 0021
+10689 003F
+10689 0334
+10689 0061
+10689 0041
+10689 0062
+1068A 0021
+1068A 003F
+1068A 0334
+1068A 0061
+1068A 0041
+1068A 0062
+1068B 0021
+1068B 003F
+1068B 0334
+1068B 0061
+1068B 0041
+1068B 0062
+1068C 0021
+1068C 003F
+1068C 0334
+1068C 0061
+1068C 0041
+1068C 0062
+1068D 0021
+1068D 003F
+1068D 0334
+1068D 0061
+1068D 0041
+1068D 0062
+1068E 0021
+1068E 003F
+1068E 0334
+1068E 0061
+1068E 0041
+1068E 0062
+1068F 0021
+1068F 003F
+1068F 0334
+1068F 0061
+1068F 0041
+1068F 0062
+10690 0021
+10690 003F
+10690 0334
+10690 0061
+10690 0041
+10690 0062
+10691 0021
+10691 003F
+10691 0334
+10691 0061
+10691 0041
+10691 0062
+10692 0021
+10692 003F
+10692 0334
+10692 0061
+10692 0041
+10692 0062
+10693 0021
+10693 003F
+10693 0334
+10693 0061
+10693 0041
+10693 0062
+10694 0021
+10694 003F
+10694 0334
+10694 0061
+10694 0041
+10694 0062
+10695 0021
+10695 003F
+10695 0334
+10695 0061
+10695 0041
+10695 0062
+10696 0021
+10696 003F
+10696 0334
+10696 0061
+10696 0041
+10696 0062
+10697 0021
+10697 003F
+10697 0334
+10697 0061
+10697 0041
+10697 0062
+10698 0021
+10698 003F
+10698 0334
+10698 0061
+10698 0041
+10698 0062
+10699 0021
+10699 003F
+10699 0334
+10699 0061
+10699 0041
+10699 0062
+1069A 0021
+1069A 003F
+1069A 0334
+1069A 0061
+1069A 0041
+1069A 0062
+1069B 0021
+1069B 003F
+1069B 0334
+1069B 0061
+1069B 0041
+1069B 0062
+1069C 0021
+1069C 003F
+1069C 0334
+1069C 0061
+1069C 0041
+1069C 0062
+1069D 0021
+1069D 003F
+1069D 0334
+1069D 0061
+1069D 0041
+1069D 0062
+1069E 0021
+1069E 003F
+1069E 0334
+1069E 0061
+1069E 0041
+1069E 0062
+1069F 0021
+1069F 003F
+1069F 0334
+1069F 0061
+1069F 0041
+1069F 0062
+106A0 0021
+106A0 003F
+106A0 0334
+106A0 0061
+106A0 0041
+106A0 0062
+106A1 0021
+106A1 003F
+106A1 0334
+106A1 0061
+106A1 0041
+106A1 0062
+106A2 0021
+106A2 003F
+106A2 0334
+106A2 0061
+106A2 0041
+106A2 0062
+106A3 0021
+106A3 003F
+106A3 0334
+106A3 0061
+106A3 0041
+106A3 0062
+106A4 0021
+106A4 003F
+106A4 0334
+106A4 0061
+106A4 0041
+106A4 0062
+106A5 0021
+106A5 003F
+106A5 0334
+106A5 0061
+106A5 0041
+106A5 0062
+106A6 0021
+106A6 003F
+106A6 0334
+106A6 0061
+106A6 0041
+106A6 0062
+106A7 0021
+106A7 003F
+106A7 0334
+106A7 0061
+106A7 0041
+106A7 0062
+106A8 0021
+106A8 003F
+106A8 0334
+106A8 0061
+106A8 0041
+106A8 0062
+106A9 0021
+106A9 003F
+106A9 0334
+106A9 0061
+106A9 0041
+106A9 0062
+106AA 0021
+106AA 003F
+106AA 0334
+106AA 0061
+106AA 0041
+106AA 0062
+106AB 0021
+106AB 003F
+106AB 0334
+106AB 0061
+106AB 0041
+106AB 0062
+106AC 0021
+106AC 003F
+106AC 0334
+106AC 0061
+106AC 0041
+106AC 0062
+106AD 0021
+106AD 003F
+106AD 0334
+106AD 0061
+106AD 0041
+106AD 0062
+106AE 0021
+106AE 003F
+106AE 0334
+106AE 0061
+106AE 0041
+106AE 0062
+106AF 0021
+106AF 003F
+106AF 0334
+106AF 0061
+106AF 0041
+106AF 0062
+106B0 0021
+106B0 003F
+106B0 0334
+106B0 0061
+106B0 0041
+106B0 0062
+106B1 0021
+106B1 003F
+106B1 0334
+106B1 0061
+106B1 0041
+106B1 0062
+106B2 0021
+106B2 003F
+106B2 0334
+106B2 0061
+106B2 0041
+106B2 0062
+106B3 0021
+106B3 003F
+106B3 0334
+106B3 0061
+106B3 0041
+106B3 0062
+106B4 0021
+106B4 003F
+106B4 0334
+106B4 0061
+106B4 0041
+106B4 0062
+106B5 0021
+106B5 003F
+106B5 0334
+106B5 0061
+106B5 0041
+106B5 0062
+106B6 0021
+106B6 003F
+106B6 0334
+106B6 0061
+106B6 0041
+106B6 0062
+106B7 0021
+106B7 003F
+106B7 0334
+106B7 0061
+106B7 0041
+106B7 0062
+106B8 0021
+106B8 003F
+106B8 0334
+106B8 0061
+106B8 0041
+106B8 0062
+106B9 0021
+106B9 003F
+106B9 0334
+106B9 0061
+106B9 0041
+106B9 0062
+106BA 0021
+106BA 003F
+106BA 0334
+106BA 0061
+106BA 0041
+106BA 0062
+106BB 0021
+106BB 003F
+106BB 0334
+106BB 0061
+106BB 0041
+106BB 0062
+106BC 0021
+106BC 003F
+106BC 0334
+106BC 0061
+106BC 0041
+106BC 0062
+106BD 0021
+106BD 003F
+106BD 0334
+106BD 0061
+106BD 0041
+106BD 0062
+106BE 0021
+106BE 003F
+106BE 0334
+106BE 0061
+106BE 0041
+106BE 0062
+106BF 0021
+106BF 003F
+106BF 0334
+106BF 0061
+106BF 0041
+106BF 0062
+106C0 0021
+106C0 003F
+106C0 0334
+106C0 0061
+106C0 0041
+106C0 0062
+106C1 0021
+106C1 003F
+106C1 0334
+106C1 0061
+106C1 0041
+106C1 0062
+106C2 0021
+106C2 003F
+106C2 0334
+106C2 0061
+106C2 0041
+106C2 0062
+106C3 0021
+106C3 003F
+106C3 0334
+106C3 0061
+106C3 0041
+106C3 0062
+106C4 0021
+106C4 003F
+106C4 0334
+106C4 0061
+106C4 0041
+106C4 0062
+106C5 0021
+106C5 003F
+106C5 0334
+106C5 0061
+106C5 0041
+106C5 0062
+106C6 0021
+106C6 003F
+106C6 0334
+106C6 0061
+106C6 0041
+106C6 0062
+106C7 0021
+106C7 003F
+106C7 0334
+106C7 0061
+106C7 0041
+106C7 0062
+106C8 0021
+106C8 003F
+106C8 0334
+106C8 0061
+106C8 0041
+106C8 0062
+106C9 0021
+106C9 003F
+106C9 0334
+106C9 0061
+106C9 0041
+106C9 0062
+106CA 0021
+106CA 003F
+106CA 0334
+106CA 0061
+106CA 0041
+106CA 0062
+106CB 0021
+106CB 003F
+106CB 0334
+106CB 0061
+106CB 0041
+106CB 0062
+106CC 0021
+106CC 003F
+106CC 0334
+106CC 0061
+106CC 0041
+106CC 0062
+106CD 0021
+106CD 003F
+106CD 0334
+106CD 0061
+106CD 0041
+106CD 0062
+106CE 0021
+106CE 003F
+106CE 0334
+106CE 0061
+106CE 0041
+106CE 0062
+106CF 0021
+106CF 003F
+106CF 0334
+106CF 0061
+106CF 0041
+106CF 0062
+106D0 0021
+106D0 003F
+106D0 0334
+106D0 0061
+106D0 0041
+106D0 0062
+106D1 0021
+106D1 003F
+106D1 0334
+106D1 0061
+106D1 0041
+106D1 0062
+106D2 0021
+106D2 003F
+106D2 0334
+106D2 0061
+106D2 0041
+106D2 0062
+106D3 0021
+106D3 003F
+106D3 0334
+106D3 0061
+106D3 0041
+106D3 0062
+106D4 0021
+106D4 003F
+106D4 0334
+106D4 0061
+106D4 0041
+106D4 0062
+106D5 0021
+106D5 003F
+106D5 0334
+106D5 0061
+106D5 0041
+106D5 0062
+106D6 0021
+106D6 003F
+106D6 0334
+106D6 0061
+106D6 0041
+106D6 0062
+106D7 0021
+106D7 003F
+106D7 0334
+106D7 0061
+106D7 0041
+106D7 0062
+106D8 0021
+106D8 003F
+106D8 0334
+106D8 0061
+106D8 0041
+106D8 0062
+106D9 0021
+106D9 003F
+106D9 0334
+106D9 0061
+106D9 0041
+106D9 0062
+106DA 0021
+106DA 003F
+106DA 0334
+106DA 0061
+106DA 0041
+106DA 0062
+106DB 0021
+106DB 003F
+106DB 0334
+106DB 0061
+106DB 0041
+106DB 0062
+106DC 0021
+106DC 003F
+106DC 0334
+106DC 0061
+106DC 0041
+106DC 0062
+106DD 0021
+106DD 003F
+106DD 0334
+106DD 0061
+106DD 0041
+106DD 0062
+106DE 0021
+106DE 003F
+106DE 0334
+106DE 0061
+106DE 0041
+106DE 0062
+106DF 0021
+106DF 003F
+106DF 0334
+106DF 0061
+106DF 0041
+106DF 0062
+106E0 0021
+106E0 003F
+106E0 0334
+106E0 0061
+106E0 0041
+106E0 0062
+106E1 0021
+106E1 003F
+106E1 0334
+106E1 0061
+106E1 0041
+106E1 0062
+106E2 0021
+106E2 003F
+106E2 0334
+106E2 0061
+106E2 0041
+106E2 0062
+106E3 0021
+106E3 003F
+106E3 0334
+106E3 0061
+106E3 0041
+106E3 0062
+106E4 0021
+106E4 003F
+106E4 0334
+106E4 0061
+106E4 0041
+106E4 0062
+106E5 0021
+106E5 003F
+106E5 0334
+106E5 0061
+106E5 0041
+106E5 0062
+106E6 0021
+106E6 003F
+106E6 0334
+106E6 0061
+106E6 0041
+106E6 0062
+106E7 0021
+106E7 003F
+106E7 0334
+106E7 0061
+106E7 0041
+106E7 0062
+106E8 0021
+106E8 003F
+106E8 0334
+106E8 0061
+106E8 0041
+106E8 0062
+106E9 0021
+106E9 003F
+106E9 0334
+106E9 0061
+106E9 0041
+106E9 0062
+106EA 0021
+106EA 003F
+106EA 0334
+106EA 0061
+106EA 0041
+106EA 0062
+106EB 0021
+106EB 003F
+106EB 0334
+106EB 0061
+106EB 0041
+106EB 0062
+106EC 0021
+106EC 003F
+106EC 0334
+106EC 0061
+106EC 0041
+106EC 0062
+106ED 0021
+106ED 003F
+106ED 0334
+106ED 0061
+106ED 0041
+106ED 0062
+106EE 0021
+106EE 003F
+106EE 0334
+106EE 0061
+106EE 0041
+106EE 0062
+106EF 0021
+106EF 003F
+106EF 0334
+106EF 0061
+106EF 0041
+106EF 0062
+106F0 0021
+106F0 003F
+106F0 0334
+106F0 0061
+106F0 0041
+106F0 0062
+106F1 0021
+106F1 003F
+106F1 0334
+106F1 0061
+106F1 0041
+106F1 0062
+106F2 0021
+106F2 003F
+106F2 0334
+106F2 0061
+106F2 0041
+106F2 0062
+106F3 0021
+106F3 003F
+106F3 0334
+106F3 0061
+106F3 0041
+106F3 0062
+106F4 0021
+106F4 003F
+106F4 0334
+106F4 0061
+106F4 0041
+106F4 0062
+106F5 0021
+106F5 003F
+106F5 0334
+106F5 0061
+106F5 0041
+106F5 0062
+106F6 0021
+106F6 003F
+106F6 0334
+106F6 0061
+106F6 0041
+106F6 0062
+106F7 0021
+106F7 003F
+106F7 0334
+106F7 0061
+106F7 0041
+106F7 0062
+106F8 0021
+106F8 003F
+106F8 0334
+106F8 0061
+106F8 0041
+106F8 0062
+106F9 0021
+106F9 003F
+106F9 0334
+106F9 0061
+106F9 0041
+106F9 0062
+106FA 0021
+106FA 003F
+106FA 0334
+106FA 0061
+106FA 0041
+106FA 0062
+106FB 0021
+106FB 003F
+106FB 0334
+106FB 0061
+106FB 0041
+106FB 0062
+106FC 0021
+106FC 003F
+106FC 0334
+106FC 0061
+106FC 0041
+106FC 0062
+106FD 0021
+106FD 003F
+106FD 0334
+106FD 0061
+106FD 0041
+106FD 0062
+106FE 0021
+106FE 003F
+106FE 0334
+106FE 0061
+106FE 0041
+106FE 0062
+106FF 0021
+106FF 003F
+106FF 0334
+106FF 0061
+106FF 0041
+106FF 0062
+10700 0021
+10700 003F
+10700 0334
+10700 0061
+10700 0041
+10700 0062
+10701 0021
+10701 003F
+10701 0334
+10701 0061
+10701 0041
+10701 0062
+10702 0021
+10702 003F
+10702 0334
+10702 0061
+10702 0041
+10702 0062
+10703 0021
+10703 003F
+10703 0334
+10703 0061
+10703 0041
+10703 0062
+10704 0021
+10704 003F
+10704 0334
+10704 0061
+10704 0041
+10704 0062
+10705 0021
+10705 003F
+10705 0334
+10705 0061
+10705 0041
+10705 0062
+10706 0021
+10706 003F
+10706 0334
+10706 0061
+10706 0041
+10706 0062
+10707 0021
+10707 003F
+10707 0334
+10707 0061
+10707 0041
+10707 0062
+10708 0021
+10708 003F
+10708 0334
+10708 0061
+10708 0041
+10708 0062
+10709 0021
+10709 003F
+10709 0334
+10709 0061
+10709 0041
+10709 0062
+1070A 0021
+1070A 003F
+1070A 0334
+1070A 0061
+1070A 0041
+1070A 0062
+1070B 0021
+1070B 003F
+1070B 0334
+1070B 0061
+1070B 0041
+1070B 0062
+1070C 0021
+1070C 003F
+1070C 0334
+1070C 0061
+1070C 0041
+1070C 0062
+1070D 0021
+1070D 003F
+1070D 0334
+1070D 0061
+1070D 0041
+1070D 0062
+1070E 0021
+1070E 003F
+1070E 0334
+1070E 0061
+1070E 0041
+1070E 0062
+1070F 0021
+1070F 003F
+1070F 0334
+1070F 0061
+1070F 0041
+1070F 0062
+10710 0021
+10710 003F
+10710 0334
+10710 0061
+10710 0041
+10710 0062
+10711 0021
+10711 003F
+10711 0334
+10711 0061
+10711 0041
+10711 0062
+10712 0021
+10712 003F
+10712 0334
+10712 0061
+10712 0041
+10712 0062
+10713 0021
+10713 003F
+10713 0334
+10713 0061
+10713 0041
+10713 0062
+10714 0021
+10714 003F
+10714 0334
+10714 0061
+10714 0041
+10714 0062
+10715 0021
+10715 003F
+10715 0334
+10715 0061
+10715 0041
+10715 0062
+10716 0021
+10716 003F
+10716 0334
+10716 0061
+10716 0041
+10716 0062
+10717 0021
+10717 003F
+10717 0334
+10717 0061
+10717 0041
+10717 0062
+10718 0021
+10718 003F
+10718 0334
+10718 0061
+10718 0041
+10718 0062
+10719 0021
+10719 003F
+10719 0334
+10719 0061
+10719 0041
+10719 0062
+1071A 0021
+1071A 003F
+1071A 0334
+1071A 0061
+1071A 0041
+1071A 0062
+1071B 0021
+1071B 003F
+1071B 0334
+1071B 0061
+1071B 0041
+1071B 0062
+1071C 0021
+1071C 003F
+1071C 0334
+1071C 0061
+1071C 0041
+1071C 0062
+1071D 0021
+1071D 003F
+1071D 0334
+1071D 0061
+1071D 0041
+1071D 0062
+1071E 0021
+1071E 003F
+1071E 0334
+1071E 0061
+1071E 0041
+1071E 0062
+1071F 0021
+1071F 003F
+1071F 0334
+1071F 0061
+1071F 0041
+1071F 0062
+10720 0021
+10720 003F
+10720 0334
+10720 0061
+10720 0041
+10720 0062
+10721 0021
+10721 003F
+10721 0334
+10721 0061
+10721 0041
+10721 0062
+10722 0021
+10722 003F
+10722 0334
+10722 0061
+10722 0041
+10722 0062
+10723 0021
+10723 003F
+10723 0334
+10723 0061
+10723 0041
+10723 0062
+10724 0021
+10724 003F
+10724 0334
+10724 0061
+10724 0041
+10724 0062
+10725 0021
+10725 003F
+10725 0334
+10725 0061
+10725 0041
+10725 0062
+10726 0021
+10726 003F
+10726 0334
+10726 0061
+10726 0041
+10726 0062
+10727 0021
+10727 003F
+10727 0334
+10727 0061
+10727 0041
+10727 0062
+10728 0021
+10728 003F
+10728 0334
+10728 0061
+10728 0041
+10728 0062
+10729 0021
+10729 003F
+10729 0334
+10729 0061
+10729 0041
+10729 0062
+1072A 0021
+1072A 003F
+1072A 0334
+1072A 0061
+1072A 0041
+1072A 0062
+1072B 0021
+1072B 003F
+1072B 0334
+1072B 0061
+1072B 0041
+1072B 0062
+1072C 0021
+1072C 003F
+1072C 0334
+1072C 0061
+1072C 0041
+1072C 0062
+1072D 0021
+1072D 003F
+1072D 0334
+1072D 0061
+1072D 0041
+1072D 0062
+1072E 0021
+1072E 003F
+1072E 0334
+1072E 0061
+1072E 0041
+1072E 0062
+1072F 0021
+1072F 003F
+1072F 0334
+1072F 0061
+1072F 0041
+1072F 0062
+10730 0021
+10730 003F
+10730 0334
+10730 0061
+10730 0041
+10730 0062
+10731 0021
+10731 003F
+10731 0334
+10731 0061
+10731 0041
+10731 0062
+10732 0021
+10732 003F
+10732 0334
+10732 0061
+10732 0041
+10732 0062
+10733 0021
+10733 003F
+10733 0334
+10733 0061
+10733 0041
+10733 0062
+10734 0021
+10734 003F
+10734 0334
+10734 0061
+10734 0041
+10734 0062
+10735 0021
+10735 003F
+10735 0334
+10735 0061
+10735 0041
+10735 0062
+10736 0021
+10736 003F
+10736 0334
+10736 0061
+10736 0041
+10736 0062
+10740 0021
+10740 003F
+10740 0334
+10740 0061
+10740 0041
+10740 0062
+10741 0021
+10741 003F
+10741 0334
+10741 0061
+10741 0041
+10741 0062
+10742 0021
+10742 003F
+10742 0334
+10742 0061
+10742 0041
+10742 0062
+10743 0021
+10743 003F
+10743 0334
+10743 0061
+10743 0041
+10743 0062
+10744 0021
+10744 003F
+10744 0334
+10744 0061
+10744 0041
+10744 0062
+10745 0021
+10745 003F
+10745 0334
+10745 0061
+10745 0041
+10745 0062
+10746 0021
+10746 003F
+10746 0334
+10746 0061
+10746 0041
+10746 0062
+10747 0021
+10747 003F
+10747 0334
+10747 0061
+10747 0041
+10747 0062
+10748 0021
+10748 003F
+10748 0334
+10748 0061
+10748 0041
+10748 0062
+10749 0021
+10749 003F
+10749 0334
+10749 0061
+10749 0041
+10749 0062
+1074A 0021
+1074A 003F
+1074A 0334
+1074A 0061
+1074A 0041
+1074A 0062
+1074B 0021
+1074B 003F
+1074B 0334
+1074B 0061
+1074B 0041
+1074B 0062
+1074C 0021
+1074C 003F
+1074C 0334
+1074C 0061
+1074C 0041
+1074C 0062
+1074D 0021
+1074D 003F
+1074D 0334
+1074D 0061
+1074D 0041
+1074D 0062
+1074E 0021
+1074E 003F
+1074E 0334
+1074E 0061
+1074E 0041
+1074E 0062
+1074F 0021
+1074F 003F
+1074F 0334
+1074F 0061
+1074F 0041
+1074F 0062
+10750 0021
+10750 003F
+10750 0334
+10750 0061
+10750 0041
+10750 0062
+10751 0021
+10751 003F
+10751 0334
+10751 0061
+10751 0041
+10751 0062
+10752 0021
+10752 003F
+10752 0334
+10752 0061
+10752 0041
+10752 0062
+10753 0021
+10753 003F
+10753 0334
+10753 0061
+10753 0041
+10753 0062
+10754 0021
+10754 003F
+10754 0334
+10754 0061
+10754 0041
+10754 0062
+10755 0021
+10755 003F
+10755 0334
+10755 0061
+10755 0041
+10755 0062
+10760 0021
+10760 003F
+10760 0334
+10760 0061
+10760 0041
+10760 0062
+10761 0021
+10761 003F
+10761 0334
+10761 0061
+10761 0041
+10761 0062
+10762 0021
+10762 003F
+10762 0334
+10762 0061
+10762 0041
+10762 0062
+10763 0021
+10763 003F
+10763 0334
+10763 0061
+10763 0041
+10763 0062
+10764 0021
+10764 003F
+10764 0334
+10764 0061
+10764 0041
+10764 0062
+10765 0021
+10765 003F
+10765 0334
+10765 0061
+10765 0041
+10765 0062
+10766 0021
+10766 003F
+10766 0334
+10766 0061
+10766 0041
+10766 0062
+10767 0021
+10767 003F
+10767 0334
+10767 0061
+10767 0041
+10767 0062
10800 0021
10800 003F
10800 0334
@@ -119633,6 +135103,180 @@ A4F7 0062
10A7C 0061
10A7C 0041
10A7C 0062
+10A80 0021
+10A80 003F
+10A80 0334
+10A80 0061
+10A80 0041
+10A80 0062
+10A81 0021
+10A81 003F
+10A81 0334
+10A81 0061
+10A81 0041
+10A81 0062
+10A82 0021
+10A82 003F
+10A82 0334
+10A82 0061
+10A82 0041
+10A82 0062
+10A83 0021
+10A83 003F
+10A83 0334
+10A83 0061
+10A83 0041
+10A83 0062
+10A84 0021
+10A84 003F
+10A84 0334
+10A84 0061
+10A84 0041
+10A84 0062
+10A85 0021
+10A85 003F
+10A85 0334
+10A85 0061
+10A85 0041
+10A85 0062
+10A86 0021
+10A86 003F
+10A86 0334
+10A86 0061
+10A86 0041
+10A86 0062
+10A87 0021
+10A87 003F
+10A87 0334
+10A87 0061
+10A87 0041
+10A87 0062
+10A88 0021
+10A88 003F
+10A88 0334
+10A88 0061
+10A88 0041
+10A88 0062
+10A89 0021
+10A89 003F
+10A89 0334
+10A89 0061
+10A89 0041
+10A89 0062
+10A8A 0021
+10A8A 003F
+10A8A 0334
+10A8A 0061
+10A8A 0041
+10A8A 0062
+10A8B 0021
+10A8B 003F
+10A8B 0334
+10A8B 0061
+10A8B 0041
+10A8B 0062
+10A8C 0021
+10A8C 003F
+10A8C 0334
+10A8C 0061
+10A8C 0041
+10A8C 0062
+10A8D 0021
+10A8D 003F
+10A8D 0334
+10A8D 0061
+10A8D 0041
+10A8D 0062
+10A8E 0021
+10A8E 003F
+10A8E 0334
+10A8E 0061
+10A8E 0041
+10A8E 0062
+10A8F 0021
+10A8F 003F
+10A8F 0334
+10A8F 0061
+10A8F 0041
+10A8F 0062
+10A90 0021
+10A90 003F
+10A90 0334
+10A90 0061
+10A90 0041
+10A90 0062
+10A91 0021
+10A91 003F
+10A91 0334
+10A91 0061
+10A91 0041
+10A91 0062
+10A92 0021
+10A92 003F
+10A92 0334
+10A92 0061
+10A92 0041
+10A92 0062
+10A93 0021
+10A93 003F
+10A93 0334
+10A93 0061
+10A93 0041
+10A93 0062
+10A94 0021
+10A94 003F
+10A94 0334
+10A94 0061
+10A94 0041
+10A94 0062
+10A95 0021
+10A95 003F
+10A95 0334
+10A95 0061
+10A95 0041
+10A95 0062
+10A96 0021
+10A96 003F
+10A96 0334
+10A96 0061
+10A96 0041
+10A96 0062
+10A97 0021
+10A97 003F
+10A97 0334
+10A97 0061
+10A97 0041
+10A97 0062
+10A98 0021
+10A98 003F
+10A98 0334
+10A98 0061
+10A98 0041
+10A98 0062
+10A99 0021
+10A99 003F
+10A99 0334
+10A99 0061
+10A99 0041
+10A99 0062
+10A9A 0021
+10A9A 003F
+10A9A 0334
+10A9A 0061
+10A9A 0041
+10A9A 0062
+10A9B 0021
+10A9B 003F
+10A9B 0334
+10A9B 0061
+10A9B 0041
+10A9B 0062
+10A9C 0021
+10A9C 003F
+10A9C 0334
+10A9C 0061
+10A9C 0041
+10A9C 0062
10B00 0021
10B00 003F
10B00 0334
@@ -119957,6 +135601,330 @@ A4F7 0062
10B35 0061
10B35 0041
10B35 0062
+10860 0021
+10860 003F
+10860 0334
+10860 0061
+10860 0041
+10860 0062
+10861 0021
+10861 003F
+10861 0334
+10861 0061
+10861 0041
+10861 0062
+10862 0021
+10862 003F
+10862 0334
+10862 0061
+10862 0041
+10862 0062
+10863 0021
+10863 003F
+10863 0334
+10863 0061
+10863 0041
+10863 0062
+10864 0021
+10864 003F
+10864 0334
+10864 0061
+10864 0041
+10864 0062
+10865 0021
+10865 003F
+10865 0334
+10865 0061
+10865 0041
+10865 0062
+10866 0021
+10866 003F
+10866 0334
+10866 0061
+10866 0041
+10866 0062
+10867 0021
+10867 003F
+10867 0334
+10867 0061
+10867 0041
+10867 0062
+10868 0021
+10868 003F
+10868 0334
+10868 0061
+10868 0041
+10868 0062
+10869 0021
+10869 003F
+10869 0334
+10869 0061
+10869 0041
+10869 0062
+1086A 0021
+1086A 003F
+1086A 0334
+1086A 0061
+1086A 0041
+1086A 0062
+1086B 0021
+1086B 003F
+1086B 0334
+1086B 0061
+1086B 0041
+1086B 0062
+1086C 0021
+1086C 003F
+1086C 0334
+1086C 0061
+1086C 0041
+1086C 0062
+1086E 0021
+1086E 003F
+1086D 0021
+1086D 003F
+1086E 0334
+1086D 0334
+1086E 0061
+1086E 0041
+1086D 0061
+1086D 0041
+1086E 0062
+1086D 0062
+1086F 0021
+1086F 003F
+1086F 0334
+1086F 0061
+1086F 0041
+1086F 0062
+10870 0021
+10870 003F
+10870 0334
+10870 0061
+10870 0041
+10870 0062
+10871 0021
+10871 003F
+10871 0334
+10871 0061
+10871 0041
+10871 0062
+10872 0021
+10872 003F
+10872 0334
+10872 0061
+10872 0041
+10872 0062
+10873 0021
+10873 003F
+10873 0334
+10873 0061
+10873 0041
+10873 0062
+10874 0021
+10874 003F
+10874 0334
+10874 0061
+10874 0041
+10874 0062
+10875 0021
+10875 003F
+10875 0334
+10875 0061
+10875 0041
+10875 0062
+10876 0021
+10876 003F
+10876 0334
+10876 0061
+10876 0041
+10876 0062
+10881 0021
+10881 003F
+10880 0021
+10880 003F
+10881 0334
+10880 0334
+10881 0061
+10881 0041
+10880 0061
+10880 0041
+10881 0062
+10880 0062
+10883 0021
+10883 003F
+10882 0021
+10882 003F
+10883 0334
+10882 0334
+10883 0061
+10883 0041
+10882 0061
+10882 0041
+10883 0062
+10882 0062
+10884 0021
+10884 003F
+10884 0334
+10884 0061
+10884 0041
+10884 0062
+10885 0021
+10885 003F
+10885 0334
+10885 0061
+10885 0041
+10885 0062
+10887 0021
+10887 003F
+10886 0021
+10886 003F
+10887 0334
+10886 0334
+10887 0061
+10887 0041
+10886 0061
+10886 0041
+10887 0062
+10886 0062
+10888 0021
+10888 003F
+10888 0334
+10888 0061
+10888 0041
+10888 0062
+10889 0021
+10889 003F
+10889 0334
+10889 0061
+10889 0041
+10889 0062
+1088A 0021
+1088A 003F
+1088A 0334
+1088A 0061
+1088A 0041
+1088A 0062
+1088B 0021
+1088B 003F
+1088B 0334
+1088B 0061
+1088B 0041
+1088B 0062
+1088D 0021
+1088D 003F
+1088C 0021
+1088C 003F
+1088D 0334
+1088C 0334
+1088D 0061
+1088D 0041
+1088C 0061
+1088C 0041
+1088D 0062
+1088C 0062
+1088F 0021
+1088F 003F
+1088E 0021
+1088E 003F
+1088F 0334
+1088E 0334
+1088F 0061
+1088F 0041
+1088E 0061
+1088E 0041
+1088F 0062
+1088E 0062
+10891 0021
+10891 003F
+10890 0021
+10890 003F
+10891 0334
+10890 0334
+10891 0061
+10891 0041
+10890 0061
+10890 0041
+10891 0062
+10890 0062
+10893 0021
+10893 003F
+10892 0021
+10892 003F
+10893 0334
+10892 0334
+10893 0061
+10893 0041
+10892 0061
+10892 0041
+10893 0062
+10892 0062
+10895 0021
+10895 003F
+10894 0021
+10894 003F
+10895 0334
+10894 0334
+10895 0061
+10895 0041
+10894 0061
+10894 0041
+10895 0062
+10894 0062
+10896 0021
+10896 003F
+10896 0334
+10896 0061
+10896 0041
+10896 0062
+10897 0021
+10897 003F
+10897 0334
+10897 0061
+10897 0041
+10897 0062
+10898 0021
+10898 003F
+10898 0334
+10898 0061
+10898 0041
+10898 0062
+10899 0021
+10899 003F
+10899 0334
+10899 0061
+10899 0041
+10899 0062
+1089A 0021
+1089A 003F
+1089A 0334
+1089A 0061
+1089A 0041
+1089A 0062
+1089B 0021
+1089B 003F
+1089B 0334
+1089B 0061
+1089B 0041
+1089B 0062
+1089D 0021
+1089D 003F
+1089C 0021
+1089C 003F
+1089D 0334
+1089C 0334
+1089D 0061
+1089D 0041
+1089C 0061
+1089C 0041
+1089D 0062
+1089C 0062
+1089E 0021
+1089E 003F
+1089E 0334
+1089E 0061
+1089E 0041
+1089E 0062
10840 0021
10840 003F
10840 0334
@@ -120335,6 +136303,336 @@ A4F7 0062
10B72 0061
10B72 0041
10B72 0062
+10B80 0021
+10B80 003F
+10B80 0334
+10B80 0061
+10B80 0041
+10B80 0062
+10B81 0021
+10B81 003F
+10B81 0334
+10B81 0061
+10B81 0041
+10B81 0062
+10B82 0021
+10B82 003F
+10B82 0334
+10B82 0061
+10B82 0041
+10B82 0062
+10B83 0021
+10B83 003F
+10B83 0334
+10B83 0061
+10B83 0041
+10B83 0062
+10B84 0021
+10B84 003F
+10B84 0334
+10B84 0061
+10B84 0041
+10B84 0062
+10B85 0021
+10B85 003F
+10B85 0334
+10B85 0061
+10B85 0041
+10B85 0062
+10B86 0021
+10B86 003F
+10B86 0334
+10B86 0061
+10B86 0041
+10B86 0062
+10B87 0021
+10B87 003F
+10B87 0334
+10B87 0061
+10B87 0041
+10B87 0062
+10B88 0021
+10B88 003F
+10B88 0334
+10B88 0061
+10B88 0041
+10B88 0062
+10B89 0021
+10B89 003F
+10B89 0334
+10B89 0061
+10B89 0041
+10B89 0062
+10B8A 0021
+10B8A 003F
+10B8A 0334
+10B8A 0061
+10B8A 0041
+10B8A 0062
+10B8B 0021
+10B8B 003F
+10B8B 0334
+10B8B 0061
+10B8B 0041
+10B8B 0062
+10B8C 0021
+10B8C 003F
+10B8C 0334
+10B8C 0061
+10B8C 0041
+10B8C 0062
+10B8D 0021
+10B8D 003F
+10B8D 0334
+10B8D 0061
+10B8D 0041
+10B8D 0062
+10B8E 0021
+10B8E 003F
+10B8E 0334
+10B8E 0061
+10B8E 0041
+10B8E 0062
+10B8F 0021
+10B8F 003F
+10B8F 0334
+10B8F 0061
+10B8F 0041
+10B8F 0062
+10B90 0021
+10B90 003F
+10B90 0334
+10B90 0061
+10B90 0041
+10B90 0062
+10B91 0021
+10B91 003F
+10B91 0334
+10B91 0061
+10B91 0041
+10B91 0062
+10AC0 0021
+10AC0 003F
+10AC0 0334
+10AC0 0061
+10AC0 0041
+10AC0 0062
+10AC1 0021
+10AC1 003F
+10AC1 0334
+10AC1 0061
+10AC1 0041
+10AC1 0062
+10AC2 0021
+10AC2 003F
+10AC2 0334
+10AC2 0061
+10AC2 0041
+10AC2 0062
+10AC3 0021
+10AC3 003F
+10AC3 0334
+10AC3 0061
+10AC3 0041
+10AC3 0062
+10AC4 0021
+10AC4 003F
+10AC4 0334
+10AC4 0061
+10AC4 0041
+10AC4 0062
+10AC5 0021
+10AC5 003F
+10AC5 0334
+10AC5 0061
+10AC5 0041
+10AC5 0062
+10AC6 0021
+10AC6 003F
+10AC6 0334
+10AC6 0061
+10AC6 0041
+10AC6 0062
+10AC7 0021
+10AC7 003F
+10AC7 0334
+10AC8 0021
+10AC8 003F
+10AC8 0334
+10AC7 0061
+10AC7 0041
+10AC8 0061
+10AC8 0041
+10AC7 0062
+10AC8 0062
+10AC9 0021
+10AC9 003F
+10AC9 0334
+10AC9 0061
+10AC9 0041
+10AC9 0062
+10ACA 0021
+10ACA 003F
+10ACA 0334
+10ACA 0061
+10ACA 0041
+10ACA 0062
+10ACB 0021
+10ACB 003F
+10ACB 0334
+10ACB 0061
+10ACB 0041
+10ACB 0062
+10ACC 0021
+10ACC 003F
+10ACC 0334
+10ACC 0061
+10ACC 0041
+10ACC 0062
+10ACD 0021
+10ACD 003F
+10ACD 0334
+10ACD 0061
+10ACD 0041
+10ACD 0062
+10ACE 0021
+10ACE 003F
+10ACE 0334
+10ACE 0061
+10ACE 0041
+10ACE 0062
+10ACF 0021
+10ACF 003F
+10ACF 0334
+10ACF 0061
+10ACF 0041
+10ACF 0062
+10AD0 0021
+10AD0 003F
+10AD0 0334
+10AD0 0061
+10AD0 0041
+10AD0 0062
+10AD1 0021
+10AD1 003F
+10AD1 0334
+10AD1 0061
+10AD1 0041
+10AD1 0062
+10AD2 0021
+10AD2 003F
+10AD2 0334
+10AD2 0061
+10AD2 0041
+10AD2 0062
+10AD3 0021
+10AD3 003F
+10AD3 0334
+10AD3 0061
+10AD3 0041
+10AD3 0062
+10AD4 0021
+10AD4 003F
+10AD4 0334
+10AD4 0061
+10AD4 0041
+10AD4 0062
+10AD5 0021
+10AD5 003F
+10AD5 0334
+10AD5 0061
+10AD5 0041
+10AD5 0062
+10AD6 0021
+10AD6 003F
+10AD6 0334
+10AD6 0061
+10AD6 0041
+10AD6 0062
+10AD7 0021
+10AD7 003F
+10AD7 0334
+10AD7 0061
+10AD7 0041
+10AD7 0062
+10AD8 0021
+10AD8 003F
+10AD8 0334
+10AD8 0061
+10AD8 0041
+10AD8 0062
+10AD9 0021
+10AD9 003F
+10AD9 0334
+10AD9 0061
+10AD9 0041
+10AD9 0062
+10ADA 0021
+10ADA 003F
+10ADA 0334
+10ADA 0061
+10ADA 0041
+10ADA 0062
+10ADB 0021
+10ADB 003F
+10ADB 0334
+10ADB 0061
+10ADB 0041
+10ADB 0062
+10ADC 0021
+10ADC 003F
+10ADC 0334
+10ADC 0061
+10ADC 0041
+10ADC 0062
+10ADD 0021
+10ADD 003F
+10ADD 0334
+10ADD 0061
+10ADD 0041
+10ADD 0062
+10ADE 0021
+10ADE 003F
+10ADE 0334
+10ADE 0061
+10ADE 0041
+10ADE 0062
+10ADF 0021
+10ADF 003F
+10ADF 0334
+10ADF 0061
+10ADF 0041
+10ADF 0062
+10AE0 0021
+10AE0 003F
+10AE0 0334
+10AE0 0061
+10AE0 0041
+10AE0 0062
+10AE1 0021
+10AE1 003F
+10AE1 0334
+10AE1 0061
+10AE1 0041
+10AE1 0062
+10AE2 0021
+10AE2 003F
+10AE2 0334
+10AE2 0061
+10AE2 0041
+10AE2 0062
+10AE3 0021
+10AE3 003F
+10AE3 0334
+10AE3 0061
+10AE3 0041
+10AE3 0062
+10AE4 0021
+10AE4 003F
+10AE4 0334
+10AE4 0061
+10AE4 0041
+10AE4 0062
10380 0021
10380 003F
10380 0334
@@ -124445,6 +140743,18 @@ A4F7 0062
12262 0061
12262 0041
12262 0062
+122D4 0021
+122D4 003F
+122D4 0334
+122D4 0061
+122D4 0041
+122D4 0062
+122D5 0021
+122D5 003F
+122D5 0334
+122D5 0061
+122D5 0041
+122D5 0062
12263 0021
12263 003F
12263 0334
@@ -125123,18 +141433,6 @@ A4F7 0062
122D3 0061
122D3 0041
122D3 0062
-122D4 0021
-122D4 003F
-122D4 0334
-122D4 0061
-122D4 0041
-122D4 0062
-122D5 0021
-122D5 003F
-122D5 0334
-122D5 0061
-122D5 0041
-122D5 0062
122D6 0021
122D6 003F
122D6 0334
@@ -126053,6 +142351,258 @@ A4F7 0062
1236E 0061
1236E 0041
1236E 0062
+1236F 0021
+1236F 003F
+1236F 0334
+1236F 0061
+1236F 0041
+1236F 0062
+12370 0021
+12370 003F
+12370 0334
+12370 0061
+12370 0041
+12370 0062
+12371 0021
+12371 003F
+12371 0334
+12371 0061
+12371 0041
+12371 0062
+12372 0021
+12372 003F
+12372 0334
+12372 0061
+12372 0041
+12372 0062
+12373 0021
+12373 003F
+12373 0334
+12373 0061
+12373 0041
+12373 0062
+12374 0021
+12374 003F
+12374 0334
+12374 0061
+12374 0041
+12374 0062
+12375 0021
+12375 003F
+12375 0334
+12375 0061
+12375 0041
+12375 0062
+12376 0021
+12376 003F
+12376 0334
+12376 0061
+12376 0041
+12376 0062
+12377 0021
+12377 003F
+12377 0334
+12377 0061
+12377 0041
+12377 0062
+12378 0021
+12378 003F
+12378 0334
+12378 0061
+12378 0041
+12378 0062
+12379 0021
+12379 003F
+12379 0334
+12379 0061
+12379 0041
+12379 0062
+1237A 0021
+1237A 003F
+1237A 0334
+1237A 0061
+1237A 0041
+1237A 0062
+1237B 0021
+1237B 003F
+1237B 0334
+1237B 0061
+1237B 0041
+1237B 0062
+1237C 0021
+1237C 003F
+1237C 0334
+1237C 0061
+1237C 0041
+1237C 0062
+1237D 0021
+1237D 003F
+1237D 0334
+1237D 0061
+1237D 0041
+1237D 0062
+1237E 0021
+1237E 003F
+1237E 0334
+1237E 0061
+1237E 0041
+1237E 0062
+1237F 0021
+1237F 003F
+1237F 0334
+1237F 0061
+1237F 0041
+1237F 0062
+12380 0021
+12380 003F
+12380 0334
+12380 0061
+12380 0041
+12380 0062
+12381 0021
+12381 003F
+12381 0334
+12381 0061
+12381 0041
+12381 0062
+12382 0021
+12382 003F
+12382 0334
+12382 0061
+12382 0041
+12382 0062
+12383 0021
+12383 003F
+12383 0334
+12383 0061
+12383 0041
+12383 0062
+12384 0021
+12384 003F
+12384 0334
+12384 0061
+12384 0041
+12384 0062
+12385 0021
+12385 003F
+12385 0334
+12385 0061
+12385 0041
+12385 0062
+12386 0021
+12386 003F
+12386 0334
+12386 0061
+12386 0041
+12386 0062
+12387 0021
+12387 003F
+12387 0334
+12387 0061
+12387 0041
+12387 0062
+12388 0021
+12388 003F
+12388 0334
+12388 0061
+12388 0041
+12388 0062
+12389 0021
+12389 003F
+12389 0334
+12389 0061
+12389 0041
+12389 0062
+1238A 0021
+1238A 003F
+1238A 0334
+1238A 0061
+1238A 0041
+1238A 0062
+1238B 0021
+1238B 003F
+1238B 0334
+1238B 0061
+1238B 0041
+1238B 0062
+1238C 0021
+1238C 003F
+1238C 0334
+1238C 0061
+1238C 0041
+1238C 0062
+1238D 0021
+1238D 003F
+1238D 0334
+1238D 0061
+1238D 0041
+1238D 0062
+1238E 0021
+1238E 003F
+1238E 0334
+1238E 0061
+1238E 0041
+1238E 0062
+1238F 0021
+1238F 003F
+1238F 0334
+1238F 0061
+1238F 0041
+1238F 0062
+12390 0021
+12390 003F
+12390 0334
+12390 0061
+12390 0041
+12390 0062
+12391 0021
+12391 003F
+12391 0334
+12391 0061
+12391 0041
+12391 0062
+12392 0021
+12392 003F
+12392 0334
+12392 0061
+12392 0041
+12392 0062
+12393 0021
+12393 003F
+12393 0334
+12393 0061
+12393 0041
+12393 0062
+12394 0021
+12394 003F
+12394 0334
+12394 0061
+12394 0041
+12394 0062
+12395 0021
+12395 003F
+12395 0334
+12395 0061
+12395 0041
+12395 0062
+12396 0021
+12396 003F
+12396 0334
+12396 0061
+12396 0041
+12396 0062
+12397 0021
+12397 003F
+12397 0334
+12397 0061
+12397 0041
+12397 0062
+12398 0021
+12398 003F
+12398 0334
+12398 0061
+12398 0041
+12398 0062
13000 0021
13000 003F
13000 0334
@@ -132965,11 +149515,6 @@ FA70 0062
2F01 0061
2F01 0041
2F01 0062
-2EA6 0021
-2EA6 003F
-2EA6 0061
-2EA6 0041
-2EA6 0062
32A5 0021
32A5 003F
3197 0021
@@ -133012,12 +149557,6 @@ F95E 003F
F95E 0061
F95E 0041
F95E 0062
-2F800 0021
-2F800 003F
-2F800 0334
-2F800 0061
-2F800 0041
-2F800 0062
2F03 0021
2F03 003F
2F03 0061
@@ -133773,11 +150312,6 @@ F9EB 0062
2F17 0062
3038 0062
3289 0062
-3039 0021
-3039 003F
-3039 0061
-3039 0041
-3039 0062
303A 0021
303A 003F
303A 0061
@@ -134158,23 +150692,11 @@ FA37 0041
2F84C 0041
FA37 0062
2F84C 0062
-2F84E 0021
-2F84E 003F
-2F84E 0334
-2F84E 0061
-2F84E 0041
-2F84E 0062
FA38 0021
FA38 003F
FA38 0061
FA38 0041
FA38 0062
-2F84F 0021
-2F84F 003F
-2F84F 0334
-2F84F 0061
-2F84F 0041
-2F84F 0062
2F1E 0021
2F1E 003F
2F1E 0061
@@ -134238,12 +150760,6 @@ F9A9 0062
2F855 0061
2F855 0041
2F855 0062
-2F852 0021
-2F852 003F
-2F852 0334
-2F852 0061
-2F852 0041
-2F852 0062
2F853 0021
2F853 003F
2F853 0334
@@ -134288,11 +150804,6 @@ F96C 003F
F96C 0061
F96C 0041
F96C 0062
-FA3A 0021
-FA3A 003F
-FA3A 0061
-FA3A 0041
-FA3A 0062
2F858 0021
2F858 003F
2F858 0334
@@ -134455,12 +150966,6 @@ F981 0062
2F865 0061
2F865 0041
2F865 0062
-2F862 0021
-2F862 003F
-2F862 0334
-2F862 0061
-2F862 0041
-2F862 0062
2F863 0021
2F863 003F
2F863 0334
@@ -134605,12 +151110,6 @@ F9BC 0062
2F872 0061
2F872 0041
2F872 0062
-2F873 0021
-2F873 003F
-2F873 0334
-2F873 0061
-2F873 0041
-2F873 0062
2F29 0021
2F29 003F
2E8C 0021
@@ -134709,12 +151208,6 @@ FA3C 0062
2F2D 0061
2F2D 0041
2F2D 0062
-2F87A 0021
-2F87A 003F
-2F87A 0334
-2F87A 0061
-2F87A 0041
-2F87A 0062
2F879 0021
2F879 003F
2F879 0334
@@ -134771,12 +151264,6 @@ F9AB 0062
2F2E 0061
2F2E 0041
2F2E 0062
-2F881 0021
-2F881 003F
-2F881 0334
-2F881 0061
-2F881 0041
-2F881 0062
2F882 0021
2F882 003F
2F882 0334
@@ -134901,17 +151388,6 @@ F9A2 003F
F9A2 0061
F9A2 0041
F9A2 0062
-F928 0021
-2F88E 0021
-F928 003F
-2F88E 003F
-2F88E 0334
-F928 0061
-2F88E 0061
-F928 0041
-2F88E 0041
-F928 0062
-2F88E 0062
FA82 0021
FA82 003F
FA82 0061
@@ -135040,12 +151516,6 @@ F9D8 0062
1F250 0061
1F250 0041
1F250 0062
-2F89C 0021
-2F89C 003F
-2F89C 0334
-2F89C 0061
-2F89C 0041
-2F89C 0062
F966 0021
F966 003F
F966 0061
@@ -135186,11 +151656,6 @@ FA8A 003F
FA8A 0061
FA8A 0041
FA8A 0062
-FA3E 0021
-FA3E 003F
-FA3E 0061
-FA3E 0041
-FA3E 0062
2F8AA 0021
2F8AA 003F
2F8AA 0334
@@ -135441,12 +151906,6 @@ FA8D 003F
FA8D 0061
FA8D 0041
FA8D 0062
-2F8C0 0021
-2F8C0 003F
-2F8C0 0334
-2F8C0 0061
-2F8C0 0041
-2F8C0 0062
2F8BD 0021
2F8BD 003F
2F8BD 0334
@@ -135464,11 +151923,6 @@ FA8E 0062
2F8BF 0061
2F8BF 0041
2F8BF 0062
-FA8F 0021
-FA8F 003F
-FA8F 0061
-FA8F 0041
-FA8F 0062
2F8C3 0021
2F8C3 003F
2F8C3 0334
@@ -135681,17 +152135,6 @@ F9C5 003F
F9C5 0061
F9C5 0041
F9C5 0062
-FA43 0021
-2F8CF 0021
-FA43 003F
-2F8CF 003F
-2F8CF 0334
-FA43 0061
-2F8CF 0061
-FA43 0041
-2F8CF 0041
-FA43 0062
-2F8CF 0062
2F8D5 0021
2F8D5 003F
2F8D5 0334
@@ -135724,12 +152167,6 @@ F901 0062
2F8CC 0061
2F8CC 0041
2F8CC 0062
-2F8D4 0021
-2F8D4 003F
-2F8D4 0334
-2F8D4 0061
-2F8D4 0041
-2F8D4 0062
322A 0021
322A 003F
2F49 0021
@@ -136195,12 +152632,6 @@ F9E3 0062
329F 0061
329F 0041
329F 0062
-2F8FF 0021
-2F8FF 003F
-2F8FF 0334
-2F8FF 0061
-2F8FF 0041
-2F8FF 0062
F915 0021
F915 003F
F915 0061
@@ -136294,11 +152725,6 @@ F9D6 0062
2F90E 0061
2F90E 0041
2F90E 0062
-FA46 0021
-FA46 003F
-FA46 0061
-FA46 0041
-FA46 0062
2F908 0021
2F908 003F
2F908 0334
@@ -136333,17 +152759,6 @@ F9EC 0062
2F90C 0061
2F90C 0041
2F90C 0062
-FA99 0021
-2F90B 0021
-FA99 003F
-2F90B 003F
-2F90B 0334
-FA99 0061
-2F90B 0061
-FA99 0041
-2F90B 0041
-FA99 0062
-2F90B 0062
F904 0021
F904 003F
F904 0061
@@ -136513,16 +152928,6 @@ F993 003F
F993 0061
F993 0041
F993 0062
-FA48 0021
-FA9C 0021
-FA48 003F
-FA9C 003F
-FA48 0061
-FA9C 0061
-FA48 0041
-FA9C 0041
-FA48 0062
-FA9C 0062
2F91E 0021
2F91E 003F
2F91E 0334
@@ -136642,12 +153047,6 @@ F946 0062
3295 0041
3235 0062
3295 0062
-2F924 0021
-2F924 003F
-2F924 0334
-2F924 0061
-2F924 0041
-2F924 0062
2F925 0021
2F925 003F
2F925 0334
@@ -136679,16 +153078,6 @@ F92B 003F
F92B 0061
F92B 0041
F92B 0062
-FA16 0021
-FAA0 0021
-FA16 003F
-FAA0 003F
-FA16 0061
-FAA0 0061
-FA16 0041
-FAA0 0041
-FA16 0062
-FAA0 0062
F9A7 0021
F9A7 003F
F9A7 0061
@@ -136752,11 +153141,6 @@ F9E4 003F
F9E4 0061
F9E4 0041
F9E4 0062
-F9CC 0021
-F9CC 003F
-F9CC 0061
-F9CC 0041
-F9CC 0062
FA4A 0021
FA4A 003F
FA4A 0061
@@ -136875,11 +153259,6 @@ FAA2 0062
329A 0061
329A 0041
329A 0062
-FAA3 0021
-FAA3 003F
-FAA3 0061
-FAA3 0041
-FAA3 0062
2F936 0021
2F936 003F
2F936 0334
@@ -136896,17 +153275,6 @@ F976 003F
F976 0061
F976 0041
F976 0062
-F962 0021
-2F938 0021
-F962 003F
-2F938 003F
-2F938 0334
-F962 0061
-2F938 0061
-F962 0041
-2F938 0041
-F962 0062
-2F938 0062
2F66 0021
2F66 003F
2EAA 0021
@@ -136938,11 +153306,6 @@ FAA4 003F
FAA4 0061
FAA4 0041
FAA4 0062
-FAA5 0021
-FAA5 003F
-FAA5 0061
-FAA5 0041
-FAA5 0062
F9C1 0021
F9C1 003F
F9C1 0061
@@ -136989,11 +153352,6 @@ FAA6 0062
1F246 0061
1F246 0041
1F246 0062
-FAA7 0021
-FAA7 003F
-FAA7 0061
-FAA7 0041
-FAA7 0062
323C 0021
323C 003F
32AC 0021
@@ -137053,11 +153411,6 @@ F96D 0062
2F947 0041
2F946 0062
2F947 0062
-FAAA 0021
-FAAA 003F
-FAAA 0061
-FAAA 0041
-FAAA 0062
FAA9 0021
2F948 0021
FAA9 003F
@@ -137318,12 +153671,6 @@ FA54 0041
2F959 0041
FA54 0062
2F959 0062
-2F95A 0021
-2F95A 003F
-2F95A 0334
-2F95A 0061
-2F95A 0041
-2F95A 0062
2F95B 0021
2F95B 003F
2F95B 0334
@@ -137361,12 +153708,6 @@ F9F7 0041
2F74 0041
F9F7 0062
2F74 0062
-2F95F 0021
-2F95F 003F
-2F95F 0334
-2F95F 0061
-2F95F 0041
-2F95F 0062
2F75 0021
2F75 003F
2EAE 0021
@@ -137387,28 +153728,12 @@ F9F8 0062
3247 0061
3247 0041
3247 0062
-FA56 0021
-FAAD 0021
-FA56 003F
-FAAD 003F
-FA56 0061
-FAAD 0061
-FA56 0041
-FAAD 0041
-FA56 0062
-FAAD 0062
2F962 0021
2F962 003F
2F962 0334
2F962 0061
2F962 0041
2F962 0062
-2F963 0021
-2F963 003F
-2F963 0334
-2F963 0061
-2F963 0041
-2F963 0062
F9A6 0021
F9A6 003F
F9A6 0061
@@ -137461,12 +153786,6 @@ F97B 003F
F97B 0061
F97B 0041
F97B 0062
-2F968 0021
-2F968 003F
-2F968 0334
-2F968 0061
-2F968 0041
-2F968 0062
2F77 0021
2F77 003F
2F77 0061
@@ -137504,11 +153823,6 @@ F94F 0062
1F221 0061
1F221 0041
1F221 0062
-FAAF 0021
-FAAF 003F
-FAAF 0061
-FAAF 0041
-FAAF 0062
2F96C 0021
2F96C 003F
2F96C 0334
@@ -137618,11 +153932,6 @@ FAB1 0062
2EB1 0062
2EB3 0062
2EB4 0062
-FA5A 0021
-FA5A 003F
-FA5A 0061
-FA5A 0041
-FA5A 0062
F9E6 0021
F9E6 003F
F9E6 0061
@@ -137659,12 +153968,6 @@ F90F 0062
2EB8 0061
2EB8 0041
2EB8 0062
-2F978 0021
-2F978 003F
-2F978 0334
-2F978 0061
-2F978 0041
-2F978 0062
F9AF 0021
F9AF 003F
F9AF 0061
@@ -137737,12 +154040,6 @@ F9B0 003F
F9B0 0061
F9B0 0041
F9B0 0062
-2F97D 0021
-2F97D 003F
-2F97D 0334
-2F97D 0061
-2F97D 0041
-2F97D 0062
F997 0021
F997 003F
F997 0061
@@ -137999,18 +154296,6 @@ F974 0062
2F996 0061
2F996 0041
2F996 0062
-2F999 0021
-2F999 003F
-2F999 0334
-2F999 0061
-2F999 0041
-2F999 0062
-2F99C 0021
-2F99C 003F
-2F99C 0334
-2F99C 0061
-2F99C 0041
-2F99C 0062
F9FE 0021
F9FE 003F
F9FE 0061
@@ -138021,24 +154306,12 @@ FAB3 003F
FAB3 0061
FAB3 0041
FAB3 0062
-2F9A0 0021
-2F9A0 003F
-2F9A0 0334
-2F9A0 0061
-2F9A0 0041
-2F9A0 0062
2F99A 0021
2F99A 003F
2F99A 0334
2F99A 0061
2F99A 0041
2F99A 0062
-2F99B 0021
-2F99B 003F
-2F99B 0334
-2F99B 0061
-2F99B 0041
-2F99B 0062
2F99D 0021
2F99D 003F
2F99D 0334
@@ -138094,17 +154367,6 @@ F96E 003F
F96E 0061
F96E 0041
F96E 0062
-FA5F 0021
-2F99F 0021
-FA5F 003F
-2F99F 003F
-2F99F 0334
-FA5F 0061
-2F99F 0061
-FA5F 0041
-2F99F 0041
-FA5F 0062
-2F99F 0062
F999 0021
F999 003F
F999 0061
@@ -138154,11 +154416,6 @@ F935 003F
F935 0061
F935 0041
F935 0062
-FA20 0021
-FA20 003F
-FA20 0061
-FA20 0041
-FA20 0062
F91F 0021
F91F 003F
F91F 0061
@@ -138213,12 +154470,6 @@ F936 0062
2F8D 0061
2F8D 0041
2F8D 0062
-2F9B8 0021
-2F9B8 003F
-2F9B8 0334
-2F9B8 0061
-2F9B8 0041
-2F9B8 0062
2F9B7 0021
2F9B7 003F
2F9B7 0334
@@ -138249,17 +154500,6 @@ F936 0062
2F9BD 0061
2F9BD 0041
2F9BD 0062
-FAB5 0021
-2F9BB 0021
-FAB5 003F
-2F9BB 003F
-2F9BB 0334
-FAB5 0061
-2F9BB 0061
-FAB5 0041
-2F9BB 0041
-FAB5 0062
-2F9BB 0062
2F9BE 0021
2F9BE 003F
2F9BE 0334
@@ -138271,18 +154511,6 @@ F911 003F
F911 0061
F911 0041
F911 0062
-2F9C0 0021
-2F9C0 003F
-2F9C0 0334
-2F9C0 0061
-2F9C0 0041
-2F9C0 0062
-2F9C1 0021
-2F9C1 003F
-2F9C1 0334
-2F9C1 0061
-2F9C1 0041
-2F9C1 0062
F927 0021
F927 003F
F927 0061
@@ -138408,16 +154636,6 @@ FA0A 0041
2F92 0041
FA0A 0062
2F92 0062
-FA61 0021
-FAB8 0021
-FA61 003F
-FAB8 003F
-FA61 0061
-FAB8 0061
-FA61 0041
-FAB8 0041
-FA61 0062
-FAB8 0062
2EC5 0021
2EC5 003F
2EC5 0061
@@ -138449,12 +154667,6 @@ FAB8 0062
2F94 0061
2F94 0041
2F94 0062
-2F9CF 0021
-2F9CF 003F
-2F9CF 0334
-2F9CF 0061
-2F9CF 0041
-2F9CF 0062
F96F 0021
F9A1 0021
F96F 003F
@@ -138704,12 +154916,6 @@ FAC1 0062
2ECA 0041
2F9C 0062
2ECA 0062
-2F9DB 0021
-2F9DB 003F
-2F9DB 0334
-2F9DB 0061
-2F9DB 0041
-2F9DB 0062
2F9DA 0021
2F9DA 003F
2F9DA 0334
@@ -138856,11 +155062,6 @@ FA67 0062
329C 0061
329C 0041
329C 0062
-FAC3 0021
-FAC3 003F
-FAC3 0061
-FAC3 0041
-FAC3 0062
F9C3 0021
F9C3 003F
F9C3 0061
@@ -138996,12 +155197,6 @@ FAC5 003F
FAC5 0061
FAC5 0041
FAC5 0062
-2F9EA 0021
-2F9EA 003F
-2F9EA 0334
-2F9EA 0061
-2F9EA 0041
-2F9EA 0062
2F9E8 0021
2F9E8 003F
2F9E8 0334
@@ -139024,12 +155219,6 @@ F99B 003F
F99B 0061
F99B 0041
F99B 0062
-2F9EB 0021
-2F9EB 003F
-2F9EB 0334
-2F9EB 0061
-2F9EB 0041
-2F9EB 0062
2F9EC 0021
2F9EC 003F
2F9EC 0334
@@ -139077,12 +155266,6 @@ F986 003F
F986 0061
F986 0041
F986 0062
-2F9F0 0021
-2F9F0 003F
-2F9F0 0334
-2F9F0 0061
-2F9F0 0041
-2F9F0 0062
2ED4 0021
2ED4 003F
2ED4 0061
@@ -139260,11 +155443,6 @@ FAC8 0062
2FB1 0061
2FB1 0041
2FB1 0062
-FAC9 0021
-FAC9 003F
-FAC9 0061
-FAC9 0041
-FAC9 0062
2F9FA 0021
2F9FA 003F
2F9FA 0334
@@ -139690,17 +155868,6 @@ F989 0062
2FCC 0061
2FCC 0041
2FCC 0062
-2FA18 0021
-2FA18 003F
-2EEA 0021
-2EEA 003F
-2FA18 0334
-2FA18 0061
-2FA18 0041
-2EEA 0061
-2EEA 0041
-2FA18 0062
-2EEA 0062
2FA19 0021
2FA19 003F
2FA19 0334
@@ -139845,34281 +156012,6 @@ FACE 0062
2FD5 0061
2FD5 0041
2FD5 0062
-9FC8 0021
-9FC8 003F
-9FC8 0061
-9FC8 0041
-9FC8 0062
-9FC9 0021
-9FC9 003F
-9FC9 0061
-9FC9 0041
-9FC9 0062
-9FCA 0021
-9FCA 003F
-9FCA 0061
-9FCA 0041
-9FCA 0062
-9FCB 0021
-9FCB 003F
-9FCB 0061
-9FCB 0041
-9FCB 0062
-9FCC 0021
-9FCC 003F
-9FCC 0061
-9FCC 0041
-9FCC 0062
-FA0E 0021
-FA0E 003F
-FA0E 0061
-FA0E 0041
-FA0E 0062
-FA0F 0021
-FA0F 003F
-FA0F 0061
-FA0F 0041
-FA0F 0062
-FA11 0021
-FA11 003F
-FA11 0061
-FA11 0041
-FA11 0062
-FA13 0021
-FA13 003F
-FA13 0061
-FA13 0041
-FA13 0062
-FA14 0021
-FA14 003F
-FA14 0061
-FA14 0041
-FA14 0062
-FA1F 0021
-FA1F 003F
-FA1F 0061
-FA1F 0041
-FA1F 0062
-FA21 0021
-FA21 003F
-FA21 0061
-FA21 0041
-FA21 0062
-FA23 0021
-FA23 003F
-FA23 0061
-FA23 0041
-FA23 0062
-FA24 0021
-FA24 003F
-FA24 0061
-FA24 0041
-FA24 0062
-FA27 0021
-FA27 003F
-FA27 0061
-FA27 0041
-FA27 0062
-FA28 0021
-FA28 003F
-FA28 0061
-FA28 0041
-FA28 0062
-FA29 0021
-FA29 003F
-FA29 0061
-FA29 0041
-FA29 0062
-3400 0021
-3400 003F
-3400 0061
-3400 0041
-3400 0062
-3401 0021
-3401 003F
-3401 0061
-3401 0041
-3401 0062
-3402 0021
-3402 003F
-3402 0061
-3402 0041
-3402 0062
-3403 0021
-3403 003F
-3403 0061
-3403 0041
-3403 0062
-3404 0021
-3404 003F
-3404 0061
-3404 0041
-3404 0062
-3405 0021
-3405 003F
-3405 0061
-3405 0041
-3405 0062
-3406 0021
-3406 003F
-3406 0061
-3406 0041
-3406 0062
-3407 0021
-3407 003F
-3407 0061
-3407 0041
-3407 0062
-3408 0021
-3408 003F
-3408 0061
-3408 0041
-3408 0062
-3409 0021
-3409 003F
-3409 0061
-3409 0041
-3409 0062
-340A 0021
-340A 003F
-340A 0061
-340A 0041
-340A 0062
-340B 0021
-340B 003F
-340B 0061
-340B 0041
-340B 0062
-340C 0021
-340C 003F
-340C 0061
-340C 0041
-340C 0062
-340D 0021
-340D 003F
-340D 0061
-340D 0041
-340D 0062
-340E 0021
-340E 003F
-340E 0061
-340E 0041
-340E 0062
-340F 0021
-340F 003F
-340F 0061
-340F 0041
-340F 0062
-3410 0021
-3410 003F
-3410 0061
-3410 0041
-3410 0062
-3411 0021
-3411 003F
-3411 0061
-3411 0041
-3411 0062
-3412 0021
-3412 003F
-3412 0061
-3412 0041
-3412 0062
-3413 0021
-3413 003F
-3413 0061
-3413 0041
-3413 0062
-3414 0021
-3414 003F
-3414 0061
-3414 0041
-3414 0062
-3415 0021
-3415 003F
-3415 0061
-3415 0041
-3415 0062
-3416 0021
-3416 003F
-3416 0061
-3416 0041
-3416 0062
-3417 0021
-3417 003F
-3417 0061
-3417 0041
-3417 0062
-3418 0021
-3418 003F
-3418 0061
-3418 0041
-3418 0062
-3419 0021
-3419 003F
-3419 0061
-3419 0041
-3419 0062
-341A 0021
-341A 003F
-341A 0061
-341A 0041
-341A 0062
-341B 0021
-341B 003F
-341B 0061
-341B 0041
-341B 0062
-341C 0021
-341C 003F
-341C 0061
-341C 0041
-341C 0062
-341D 0021
-341D 003F
-341D 0061
-341D 0041
-341D 0062
-341E 0021
-341E 003F
-341E 0061
-341E 0041
-341E 0062
-341F 0021
-341F 003F
-341F 0061
-341F 0041
-341F 0062
-3420 0021
-3420 003F
-3420 0061
-3420 0041
-3420 0062
-3421 0021
-3421 003F
-3421 0061
-3421 0041
-3421 0062
-3422 0021
-3422 003F
-3422 0061
-3422 0041
-3422 0062
-3423 0021
-3423 003F
-3423 0061
-3423 0041
-3423 0062
-3424 0021
-3424 003F
-3424 0061
-3424 0041
-3424 0062
-3425 0021
-3425 003F
-3425 0061
-3425 0041
-3425 0062
-3426 0021
-3426 003F
-3426 0061
-3426 0041
-3426 0062
-3427 0021
-3427 003F
-3427 0061
-3427 0041
-3427 0062
-3428 0021
-3428 003F
-3428 0061
-3428 0041
-3428 0062
-3429 0021
-3429 003F
-3429 0061
-3429 0041
-3429 0062
-342A 0021
-342A 003F
-342A 0061
-342A 0041
-342A 0062
-342B 0021
-342B 003F
-342B 0061
-342B 0041
-342B 0062
-342C 0021
-342C 003F
-342C 0061
-342C 0041
-342C 0062
-342D 0021
-342D 003F
-342D 0061
-342D 0041
-342D 0062
-342E 0021
-342E 003F
-342E 0061
-342E 0041
-342E 0062
-342F 0021
-342F 003F
-342F 0061
-342F 0041
-342F 0062
-3430 0021
-3430 003F
-3430 0061
-3430 0041
-3430 0062
-3431 0021
-3431 003F
-3431 0061
-3431 0041
-3431 0062
-3432 0021
-3432 003F
-3432 0061
-3432 0041
-3432 0062
-3433 0021
-3433 003F
-3433 0061
-3433 0041
-3433 0062
-3434 0021
-3434 003F
-3434 0061
-3434 0041
-3434 0062
-3435 0021
-3435 003F
-3435 0061
-3435 0041
-3435 0062
-3436 0021
-3436 003F
-3436 0061
-3436 0041
-3436 0062
-3437 0021
-3437 003F
-3437 0061
-3437 0041
-3437 0062
-3438 0021
-3438 003F
-3438 0061
-3438 0041
-3438 0062
-3439 0021
-3439 003F
-3439 0061
-3439 0041
-3439 0062
-343A 0021
-343A 003F
-343A 0061
-343A 0041
-343A 0062
-343B 0021
-343B 003F
-343B 0061
-343B 0041
-343B 0062
-343C 0021
-343C 003F
-343C 0061
-343C 0041
-343C 0062
-343D 0021
-343D 003F
-343D 0061
-343D 0041
-343D 0062
-343E 0021
-343E 003F
-343E 0061
-343E 0041
-343E 0062
-343F 0021
-343F 003F
-343F 0061
-343F 0041
-343F 0062
-3440 0021
-3440 003F
-3440 0061
-3440 0041
-3440 0062
-3441 0021
-3441 003F
-3441 0061
-3441 0041
-3441 0062
-3442 0021
-3442 003F
-3442 0061
-3442 0041
-3442 0062
-3443 0021
-3443 003F
-3443 0061
-3443 0041
-3443 0062
-3444 0021
-3444 003F
-3444 0061
-3444 0041
-3444 0062
-3445 0021
-3445 003F
-3445 0061
-3445 0041
-3445 0062
-3446 0021
-3446 003F
-3446 0061
-3446 0041
-3446 0062
-3447 0021
-3447 003F
-3447 0061
-3447 0041
-3447 0062
-3448 0021
-3448 003F
-3448 0061
-3448 0041
-3448 0062
-3449 0021
-3449 003F
-3449 0061
-3449 0041
-3449 0062
-344A 0021
-344A 003F
-344A 0061
-344A 0041
-344A 0062
-344B 0021
-344B 003F
-344B 0061
-344B 0041
-344B 0062
-344C 0021
-344C 003F
-344C 0061
-344C 0041
-344C 0062
-344D 0021
-344D 003F
-344D 0061
-344D 0041
-344D 0062
-344E 0021
-344E 003F
-344E 0061
-344E 0041
-344E 0062
-344F 0021
-344F 003F
-344F 0061
-344F 0041
-344F 0062
-3450 0021
-3450 003F
-3450 0061
-3450 0041
-3450 0062
-3451 0021
-3451 003F
-3451 0061
-3451 0041
-3451 0062
-3452 0021
-3452 003F
-3452 0061
-3452 0041
-3452 0062
-3453 0021
-3453 003F
-3453 0061
-3453 0041
-3453 0062
-3454 0021
-3454 003F
-3454 0061
-3454 0041
-3454 0062
-3455 0021
-3455 003F
-3455 0061
-3455 0041
-3455 0062
-3456 0021
-3456 003F
-3456 0061
-3456 0041
-3456 0062
-3457 0021
-3457 003F
-3457 0061
-3457 0041
-3457 0062
-3458 0021
-3458 003F
-3458 0061
-3458 0041
-3458 0062
-3459 0021
-3459 003F
-3459 0061
-3459 0041
-3459 0062
-345A 0021
-345A 003F
-345A 0061
-345A 0041
-345A 0062
-345B 0021
-345B 003F
-345B 0061
-345B 0041
-345B 0062
-345C 0021
-345C 003F
-345C 0061
-345C 0041
-345C 0062
-345D 0021
-345D 003F
-345D 0061
-345D 0041
-345D 0062
-345E 0021
-345E 003F
-345E 0061
-345E 0041
-345E 0062
-345F 0021
-345F 003F
-345F 0061
-345F 0041
-345F 0062
-3460 0021
-3460 003F
-3460 0061
-3460 0041
-3460 0062
-3461 0021
-3461 003F
-3461 0061
-3461 0041
-3461 0062
-3462 0021
-3462 003F
-3462 0061
-3462 0041
-3462 0062
-3463 0021
-3463 003F
-3463 0061
-3463 0041
-3463 0062
-3464 0021
-3464 003F
-3464 0061
-3464 0041
-3464 0062
-3465 0021
-3465 003F
-3465 0061
-3465 0041
-3465 0062
-3466 0021
-3466 003F
-3466 0061
-3466 0041
-3466 0062
-3467 0021
-3467 003F
-3467 0061
-3467 0041
-3467 0062
-3468 0021
-3468 003F
-3468 0061
-3468 0041
-3468 0062
-3469 0021
-3469 003F
-3469 0061
-3469 0041
-3469 0062
-346A 0021
-346A 003F
-346A 0061
-346A 0041
-346A 0062
-346B 0021
-346B 003F
-346B 0061
-346B 0041
-346B 0062
-346C 0021
-346C 003F
-346C 0061
-346C 0041
-346C 0062
-346D 0021
-346D 003F
-346D 0061
-346D 0041
-346D 0062
-346E 0021
-346E 003F
-346E 0061
-346E 0041
-346E 0062
-346F 0021
-346F 003F
-346F 0061
-346F 0041
-346F 0062
-3470 0021
-3470 003F
-3470 0061
-3470 0041
-3470 0062
-3471 0021
-3471 003F
-3471 0061
-3471 0041
-3471 0062
-3472 0021
-3472 003F
-3472 0061
-3472 0041
-3472 0062
-3473 0021
-3473 003F
-3473 0061
-3473 0041
-3473 0062
-3474 0021
-3474 003F
-3474 0061
-3474 0041
-3474 0062
-3475 0021
-3475 003F
-3475 0061
-3475 0041
-3475 0062
-3476 0021
-3476 003F
-3476 0061
-3476 0041
-3476 0062
-3477 0021
-3477 003F
-3477 0061
-3477 0041
-3477 0062
-3478 0021
-3478 003F
-3478 0061
-3478 0041
-3478 0062
-3479 0021
-3479 003F
-3479 0061
-3479 0041
-3479 0062
-347A 0021
-347A 003F
-347A 0061
-347A 0041
-347A 0062
-347B 0021
-347B 003F
-347B 0061
-347B 0041
-347B 0062
-347C 0021
-347C 003F
-347C 0061
-347C 0041
-347C 0062
-347D 0021
-347D 003F
-347D 0061
-347D 0041
-347D 0062
-347E 0021
-347E 003F
-347E 0061
-347E 0041
-347E 0062
-347F 0021
-347F 003F
-347F 0061
-347F 0041
-347F 0062
-3480 0021
-3480 003F
-3480 0061
-3480 0041
-3480 0062
-3481 0021
-3481 003F
-3481 0061
-3481 0041
-3481 0062
-3482 0021
-3482 003F
-3482 0061
-3482 0041
-3482 0062
-3483 0021
-3483 003F
-3483 0061
-3483 0041
-3483 0062
-3484 0021
-3484 003F
-3484 0061
-3484 0041
-3484 0062
-3485 0021
-3485 003F
-3485 0061
-3485 0041
-3485 0062
-3486 0021
-3486 003F
-3486 0061
-3486 0041
-3486 0062
-3487 0021
-3487 003F
-3487 0061
-3487 0041
-3487 0062
-3488 0021
-3488 003F
-3488 0061
-3488 0041
-3488 0062
-3489 0021
-3489 003F
-3489 0061
-3489 0041
-3489 0062
-348A 0021
-348A 003F
-348A 0061
-348A 0041
-348A 0062
-348B 0021
-348B 003F
-348B 0061
-348B 0041
-348B 0062
-348C 0021
-348C 003F
-348C 0061
-348C 0041
-348C 0062
-348D 0021
-348D 003F
-348D 0061
-348D 0041
-348D 0062
-348E 0021
-348E 003F
-348E 0061
-348E 0041
-348E 0062
-348F 0021
-348F 003F
-348F 0061
-348F 0041
-348F 0062
-3490 0021
-3490 003F
-3490 0061
-3490 0041
-3490 0062
-3491 0021
-3491 003F
-3491 0061
-3491 0041
-3491 0062
-3492 0021
-3492 003F
-3492 0061
-3492 0041
-3492 0062
-3493 0021
-3493 003F
-3493 0061
-3493 0041
-3493 0062
-3494 0021
-3494 003F
-3494 0061
-3494 0041
-3494 0062
-3495 0021
-3495 003F
-3495 0061
-3495 0041
-3495 0062
-3496 0021
-3496 003F
-3496 0061
-3496 0041
-3496 0062
-3497 0021
-3497 003F
-3497 0061
-3497 0041
-3497 0062
-3498 0021
-3498 003F
-3498 0061
-3498 0041
-3498 0062
-3499 0021
-3499 003F
-3499 0061
-3499 0041
-3499 0062
-349A 0021
-349A 003F
-349A 0061
-349A 0041
-349A 0062
-349B 0021
-349B 003F
-349B 0061
-349B 0041
-349B 0062
-349C 0021
-349C 003F
-349C 0061
-349C 0041
-349C 0062
-349D 0021
-349D 003F
-349D 0061
-349D 0041
-349D 0062
-349E 0021
-2F80C 0021
-349E 003F
-2F80C 003F
-2F80C 0334
-349E 0061
-2F80C 0061
-349E 0041
-2F80C 0041
-349E 0062
-2F80C 0062
-349F 0021
-349F 003F
-349F 0061
-349F 0041
-349F 0062
-34A0 0021
-34A0 003F
-34A0 0061
-34A0 0041
-34A0 0062
-34A1 0021
-34A1 003F
-34A1 0061
-34A1 0041
-34A1 0062
-34A2 0021
-34A2 003F
-34A2 0061
-34A2 0041
-34A2 0062
-34A3 0021
-34A3 003F
-34A3 0061
-34A3 0041
-34A3 0062
-34A4 0021
-34A4 003F
-34A4 0061
-34A4 0041
-34A4 0062
-34A5 0021
-34A5 003F
-34A5 0061
-34A5 0041
-34A5 0062
-34A6 0021
-34A6 003F
-34A6 0061
-34A6 0041
-34A6 0062
-34A7 0021
-34A7 003F
-34A7 0061
-34A7 0041
-34A7 0062
-34A8 0021
-34A8 003F
-34A8 0061
-34A8 0041
-34A8 0062
-34A9 0021
-34A9 003F
-34A9 0061
-34A9 0041
-34A9 0062
-34AA 0021
-34AA 003F
-34AA 0061
-34AA 0041
-34AA 0062
-34AB 0021
-34AB 003F
-34AB 0061
-34AB 0041
-34AB 0062
-34AC 0021
-34AC 003F
-34AC 0061
-34AC 0041
-34AC 0062
-34AD 0021
-34AD 003F
-34AD 0061
-34AD 0041
-34AD 0062
-34AE 0021
-34AE 003F
-34AE 0061
-34AE 0041
-34AE 0062
-34AF 0021
-34AF 003F
-34AF 0061
-34AF 0041
-34AF 0062
-34B0 0021
-34B0 003F
-34B0 0061
-34B0 0041
-34B0 0062
-34B1 0021
-34B1 003F
-34B1 0061
-34B1 0041
-34B1 0062
-34B2 0021
-34B2 003F
-34B2 0061
-34B2 0041
-34B2 0062
-34B3 0021
-34B3 003F
-34B3 0061
-34B3 0041
-34B3 0062
-34B4 0021
-34B4 003F
-34B4 0061
-34B4 0041
-34B4 0062
-34B5 0021
-34B5 003F
-34B5 0061
-34B5 0041
-34B5 0062
-34B6 0021
-34B6 003F
-34B6 0061
-34B6 0041
-34B6 0062
-34B7 0021
-34B7 003F
-34B7 0061
-34B7 0041
-34B7 0062
-34B8 0021
-34B8 003F
-34B8 0061
-34B8 0041
-34B8 0062
-34B9 0021
-2F813 0021
-34B9 003F
-2F813 003F
-2F813 0334
-34B9 0061
-2F813 0061
-34B9 0041
-2F813 0041
-34B9 0062
-2F813 0062
-34BA 0021
-34BA 003F
-34BA 0061
-34BA 0041
-34BA 0062
-34BB 0021
-2F9CA 0021
-34BB 003F
-2F9CA 003F
-2F9CA 0334
-34BB 0061
-2F9CA 0061
-34BB 0041
-2F9CA 0041
-34BB 0062
-2F9CA 0062
-34BC 0021
-34BC 003F
-34BC 0061
-34BC 0041
-34BC 0062
-34BD 0021
-34BD 003F
-34BD 0061
-34BD 0041
-34BD 0062
-34BE 0021
-34BE 003F
-34BE 0061
-34BE 0041
-34BE 0062
-34BF 0021
-34BF 003F
-34BF 0061
-34BF 0041
-34BF 0062
-34C0 0021
-34C0 003F
-34C0 0061
-34C0 0041
-34C0 0062
-34C1 0021
-34C1 003F
-34C1 0061
-34C1 0041
-34C1 0062
-34C2 0021
-34C2 003F
-34C2 0061
-34C2 0041
-34C2 0062
-34C3 0021
-34C3 003F
-34C3 0061
-34C3 0041
-34C3 0062
-34C4 0021
-34C4 003F
-34C4 0061
-34C4 0041
-34C4 0062
-34C5 0021
-34C5 003F
-34C5 0061
-34C5 0041
-34C5 0062
-34C6 0021
-34C6 003F
-34C6 0061
-34C6 0041
-34C6 0062
-34C7 0021
-34C7 003F
-34C7 0061
-34C7 0041
-34C7 0062
-34C8 0021
-34C8 003F
-34C8 0061
-34C8 0041
-34C8 0062
-34C9 0021
-34C9 003F
-34C9 0061
-34C9 0041
-34C9 0062
-34CA 0021
-34CA 003F
-34CA 0061
-34CA 0041
-34CA 0062
-34CB 0021
-34CB 003F
-34CB 0061
-34CB 0041
-34CB 0062
-34CC 0021
-34CC 003F
-34CC 0061
-34CC 0041
-34CC 0062
-34CD 0021
-34CD 003F
-34CD 0061
-34CD 0041
-34CD 0062
-34CE 0021
-34CE 003F
-34CE 0061
-34CE 0041
-34CE 0062
-34CF 0021
-34CF 003F
-34CF 0061
-34CF 0041
-34CF 0062
-34D0 0021
-34D0 003F
-34D0 0061
-34D0 0041
-34D0 0062
-34D1 0021
-34D1 003F
-34D1 0061
-34D1 0041
-34D1 0062
-34D2 0021
-34D2 003F
-34D2 0061
-34D2 0041
-34D2 0062
-34D3 0021
-34D3 003F
-34D3 0061
-34D3 0041
-34D3 0062
-34D4 0021
-34D4 003F
-34D4 0061
-34D4 0041
-34D4 0062
-34D5 0021
-34D5 003F
-34D5 0061
-34D5 0041
-34D5 0062
-34D6 0021
-34D6 003F
-34D6 0061
-34D6 0041
-34D6 0062
-34D7 0021
-34D7 003F
-34D7 0061
-34D7 0041
-34D7 0062
-34D8 0021
-34D8 003F
-34D8 0061
-34D8 0041
-34D8 0062
-34D9 0021
-34D9 003F
-34D9 0061
-34D9 0041
-34D9 0062
-34DA 0021
-34DA 003F
-34DA 0061
-34DA 0041
-34DA 0062
-34DB 0021
-34DB 003F
-34DB 0061
-34DB 0041
-34DB 0062
-34DC 0021
-34DC 003F
-34DC 0061
-34DC 0041
-34DC 0062
-34DD 0021
-34DD 003F
-34DD 0061
-34DD 0041
-34DD 0062
-34DE 0021
-34DE 003F
-34DE 0061
-34DE 0041
-34DE 0062
-34DF 0021
-2F81F 0021
-34DF 003F
-2F81F 003F
-2F81F 0334
-34DF 0061
-2F81F 0061
-34DF 0041
-2F81F 0041
-34DF 0062
-2F81F 0062
-34E0 0021
-34E0 003F
-34E0 0061
-34E0 0041
-34E0 0062
-34E1 0021
-34E1 003F
-34E1 0061
-34E1 0041
-34E1 0062
-34E2 0021
-34E2 003F
-34E2 0061
-34E2 0041
-34E2 0062
-34E3 0021
-34E3 003F
-34E3 0061
-34E3 0041
-34E3 0062
-34E4 0021
-34E4 003F
-34E4 0061
-34E4 0041
-34E4 0062
-34E5 0021
-34E5 003F
-34E5 0061
-34E5 0041
-34E5 0062
-34E6 0021
-34E6 003F
-34E6 0061
-34E6 0041
-34E6 0062
-34E7 0021
-34E7 003F
-34E7 0061
-34E7 0041
-34E7 0062
-34E8 0021
-34E8 003F
-34E8 0061
-34E8 0041
-34E8 0062
-34E9 0021
-34E9 003F
-34E9 0061
-34E9 0041
-34E9 0062
-34EA 0021
-34EA 003F
-34EA 0061
-34EA 0041
-34EA 0062
-34EB 0021
-34EB 003F
-34EB 0061
-34EB 0041
-34EB 0062
-34EC 0021
-34EC 003F
-34EC 0061
-34EC 0041
-34EC 0062
-34ED 0021
-34ED 003F
-34ED 0061
-34ED 0041
-34ED 0062
-34EE 0021
-34EE 003F
-34EE 0061
-34EE 0041
-34EE 0062
-34EF 0021
-34EF 003F
-34EF 0061
-34EF 0041
-34EF 0062
-34F0 0021
-34F0 003F
-34F0 0061
-34F0 0041
-34F0 0062
-34F1 0021
-34F1 003F
-34F1 0061
-34F1 0041
-34F1 0062
-34F2 0021
-34F2 003F
-34F2 0061
-34F2 0041
-34F2 0062
-34F3 0021
-34F3 003F
-34F3 0061
-34F3 0041
-34F3 0062
-34F4 0021
-34F4 003F
-34F4 0061
-34F4 0041
-34F4 0062
-34F5 0021
-34F5 003F
-34F5 0061
-34F5 0041
-34F5 0062
-34F6 0021
-34F6 003F
-34F6 0061
-34F6 0041
-34F6 0062
-34F7 0021
-34F7 003F
-34F7 0061
-34F7 0041
-34F7 0062
-34F8 0021
-34F8 003F
-34F8 0061
-34F8 0041
-34F8 0062
-34F9 0021
-34F9 003F
-34F9 0061
-34F9 0041
-34F9 0062
-34FA 0021
-34FA 003F
-34FA 0061
-34FA 0041
-34FA 0062
-34FB 0021
-34FB 003F
-34FB 0061
-34FB 0041
-34FB 0062
-34FC 0021
-34FC 003F
-34FC 0061
-34FC 0041
-34FC 0062
-34FD 0021
-34FD 003F
-34FD 0061
-34FD 0041
-34FD 0062
-34FE 0021
-34FE 003F
-34FE 0061
-34FE 0041
-34FE 0062
-34FF 0021
-34FF 003F
-34FF 0061
-34FF 0041
-34FF 0062
-3500 0021
-3500 003F
-3500 0061
-3500 0041
-3500 0062
-3501 0021
-3501 003F
-3501 0061
-3501 0041
-3501 0062
-3502 0021
-3502 003F
-3502 0061
-3502 0041
-3502 0062
-3503 0021
-3503 003F
-3503 0061
-3503 0041
-3503 0062
-3504 0021
-3504 003F
-3504 0061
-3504 0041
-3504 0062
-3505 0021
-3505 003F
-3505 0061
-3505 0041
-3505 0062
-3506 0021
-3506 003F
-3506 0061
-3506 0041
-3506 0062
-3507 0021
-3507 003F
-3507 0061
-3507 0041
-3507 0062
-3508 0021
-3508 003F
-3508 0061
-3508 0041
-3508 0062
-3509 0021
-3509 003F
-3509 0061
-3509 0041
-3509 0062
-350A 0021
-350A 003F
-350A 0061
-350A 0041
-350A 0062
-350B 0021
-350B 003F
-350B 0061
-350B 0041
-350B 0062
-350C 0021
-350C 003F
-350C 0061
-350C 0041
-350C 0062
-350D 0021
-350D 003F
-350D 0061
-350D 0041
-350D 0062
-350E 0021
-350E 003F
-350E 0061
-350E 0041
-350E 0062
-350F 0021
-350F 003F
-350F 0061
-350F 0041
-350F 0062
-3510 0021
-3510 003F
-3510 0061
-3510 0041
-3510 0062
-3511 0021
-3511 003F
-3511 0061
-3511 0041
-3511 0062
-3512 0021
-3512 003F
-3512 0061
-3512 0041
-3512 0062
-3513 0021
-3513 003F
-3513 0061
-3513 0041
-3513 0062
-3514 0021
-3514 003F
-3514 0061
-3514 0041
-3514 0062
-3515 0021
-2F824 0021
-3515 003F
-2F824 003F
-2F824 0334
-3515 0061
-2F824 0061
-3515 0041
-2F824 0041
-3515 0062
-2F824 0062
-3516 0021
-3516 003F
-3516 0061
-3516 0041
-3516 0062
-3517 0021
-3517 003F
-3517 0061
-3517 0041
-3517 0062
-3518 0021
-3518 003F
-3518 0061
-3518 0041
-3518 0062
-3519 0021
-3519 003F
-3519 0061
-3519 0041
-3519 0062
-351A 0021
-351A 003F
-351A 0061
-351A 0041
-351A 0062
-351B 0021
-351B 003F
-351B 0061
-351B 0041
-351B 0062
-351C 0021
-351C 003F
-351C 0061
-351C 0041
-351C 0062
-351D 0021
-351D 003F
-351D 0061
-351D 0041
-351D 0062
-351E 0021
-351E 003F
-351E 0061
-351E 0041
-351E 0062
-351F 0021
-351F 003F
-351F 0061
-351F 0041
-351F 0062
-3520 0021
-3520 003F
-3520 0061
-3520 0041
-3520 0062
-3521 0021
-3521 003F
-3521 0061
-3521 0041
-3521 0062
-3522 0021
-3522 003F
-3522 0061
-3522 0041
-3522 0062
-3523 0021
-3523 003F
-3523 0061
-3523 0041
-3523 0062
-3524 0021
-3524 003F
-3524 0061
-3524 0041
-3524 0062
-3525 0021
-3525 003F
-3525 0061
-3525 0041
-3525 0062
-3526 0021
-3526 003F
-3526 0061
-3526 0041
-3526 0062
-3527 0021
-3527 003F
-3527 0061
-3527 0041
-3527 0062
-3528 0021
-3528 003F
-3528 0061
-3528 0041
-3528 0062
-3529 0021
-3529 003F
-3529 0061
-3529 0041
-3529 0062
-352A 0021
-352A 003F
-352A 0061
-352A 0041
-352A 0062
-352B 0021
-352B 003F
-352B 0061
-352B 0041
-352B 0062
-352C 0021
-352C 003F
-352C 0061
-352C 0041
-352C 0062
-352D 0021
-352D 003F
-352D 0061
-352D 0041
-352D 0062
-352E 0021
-352E 003F
-352E 0061
-352E 0041
-352E 0062
-352F 0021
-352F 003F
-352F 0061
-352F 0041
-352F 0062
-3530 0021
-3530 003F
-3530 0061
-3530 0041
-3530 0062
-3531 0021
-3531 003F
-3531 0061
-3531 0041
-3531 0062
-3532 0021
-3532 003F
-3532 0061
-3532 0041
-3532 0062
-3533 0021
-3533 003F
-3533 0061
-3533 0041
-3533 0062
-3534 0021
-3534 003F
-3534 0061
-3534 0041
-3534 0062
-3535 0021
-3535 003F
-3535 0061
-3535 0041
-3535 0062
-3536 0021
-3536 003F
-3536 0061
-3536 0041
-3536 0062
-3537 0021
-3537 003F
-3537 0061
-3537 0041
-3537 0062
-3538 0021
-3538 003F
-3538 0061
-3538 0041
-3538 0062
-3539 0021
-3539 003F
-3539 0061
-3539 0041
-3539 0062
-353A 0021
-353A 003F
-353A 0061
-353A 0041
-353A 0062
-353B 0021
-353B 003F
-353B 0061
-353B 0041
-353B 0062
-353C 0021
-353C 003F
-353C 0061
-353C 0041
-353C 0062
-353D 0021
-353D 003F
-353D 0061
-353D 0041
-353D 0062
-353E 0021
-353E 003F
-353E 0061
-353E 0041
-353E 0062
-353F 0021
-353F 003F
-353F 0061
-353F 0041
-353F 0062
-3540 0021
-3540 003F
-3540 0061
-3540 0041
-3540 0062
-3541 0021
-3541 003F
-3541 0061
-3541 0041
-3541 0062
-3542 0021
-3542 003F
-3542 0061
-3542 0041
-3542 0062
-3543 0021
-3543 003F
-3543 0061
-3543 0041
-3543 0062
-3544 0021
-3544 003F
-3544 0061
-3544 0041
-3544 0062
-3545 0021
-3545 003F
-3545 0061
-3545 0041
-3545 0062
-3546 0021
-3546 003F
-3546 0061
-3546 0041
-3546 0062
-3547 0021
-3547 003F
-3547 0061
-3547 0041
-3547 0062
-3548 0021
-3548 003F
-3548 0061
-3548 0041
-3548 0062
-3549 0021
-3549 003F
-3549 0061
-3549 0041
-3549 0062
-354A 0021
-354A 003F
-354A 0061
-354A 0041
-354A 0062
-354B 0021
-354B 003F
-354B 0061
-354B 0041
-354B 0062
-354C 0021
-354C 003F
-354C 0061
-354C 0041
-354C 0062
-354D 0021
-354D 003F
-354D 0061
-354D 0041
-354D 0062
-354E 0021
-354E 003F
-354E 0061
-354E 0041
-354E 0062
-354F 0021
-354F 003F
-354F 0061
-354F 0041
-354F 0062
-3550 0021
-3550 003F
-3550 0061
-3550 0041
-3550 0062
-3551 0021
-3551 003F
-3551 0061
-3551 0041
-3551 0062
-3552 0021
-3552 003F
-3552 0061
-3552 0041
-3552 0062
-3553 0021
-3553 003F
-3553 0061
-3553 0041
-3553 0062
-3554 0021
-3554 003F
-3554 0061
-3554 0041
-3554 0062
-3555 0021
-3555 003F
-3555 0061
-3555 0041
-3555 0062
-3556 0021
-3556 003F
-3556 0061
-3556 0041
-3556 0062
-3557 0021
-3557 003F
-3557 0061
-3557 0041
-3557 0062
-3558 0021
-3558 003F
-3558 0061
-3558 0041
-3558 0062
-3559 0021
-3559 003F
-3559 0061
-3559 0041
-3559 0062
-355A 0021
-355A 003F
-355A 0061
-355A 0041
-355A 0062
-355B 0021
-355B 003F
-355B 0061
-355B 0041
-355B 0062
-355C 0021
-355C 003F
-355C 0061
-355C 0041
-355C 0062
-355D 0021
-355D 003F
-355D 0061
-355D 0041
-355D 0062
-355E 0021
-355E 003F
-355E 0061
-355E 0041
-355E 0062
-355F 0021
-355F 003F
-355F 0061
-355F 0041
-355F 0062
-3560 0021
-3560 003F
-3560 0061
-3560 0041
-3560 0062
-3561 0021
-3561 003F
-3561 0061
-3561 0041
-3561 0062
-3562 0021
-3562 003F
-3562 0061
-3562 0041
-3562 0062
-3563 0021
-3563 003F
-3563 0061
-3563 0041
-3563 0062
-3564 0021
-3564 003F
-3564 0061
-3564 0041
-3564 0062
-3565 0021
-3565 003F
-3565 0061
-3565 0041
-3565 0062
-3566 0021
-3566 003F
-3566 0061
-3566 0041
-3566 0062
-3567 0021
-3567 003F
-3567 0061
-3567 0041
-3567 0062
-3568 0021
-3568 003F
-3568 0061
-3568 0041
-3568 0062
-3569 0021
-3569 003F
-3569 0061
-3569 0041
-3569 0062
-356A 0021
-356A 003F
-356A 0061
-356A 0041
-356A 0062
-356B 0021
-356B 003F
-356B 0061
-356B 0041
-356B 0062
-356C 0021
-356C 003F
-356C 0061
-356C 0041
-356C 0062
-356D 0021
-356D 003F
-356D 0061
-356D 0041
-356D 0062
-356E 0021
-356E 003F
-356E 0061
-356E 0041
-356E 0062
-356F 0021
-356F 003F
-356F 0061
-356F 0041
-356F 0062
-3570 0021
-3570 003F
-3570 0061
-3570 0041
-3570 0062
-3571 0021
-3571 003F
-3571 0061
-3571 0041
-3571 0062
-3572 0021
-3572 003F
-3572 0061
-3572 0041
-3572 0062
-3573 0021
-3573 003F
-3573 0061
-3573 0041
-3573 0062
-3574 0021
-3574 003F
-3574 0061
-3574 0041
-3574 0062
-3575 0021
-3575 003F
-3575 0061
-3575 0041
-3575 0062
-3576 0021
-3576 003F
-3576 0061
-3576 0041
-3576 0062
-3577 0021
-3577 003F
-3577 0061
-3577 0041
-3577 0062
-3578 0021
-3578 003F
-3578 0061
-3578 0041
-3578 0062
-3579 0021
-3579 003F
-3579 0061
-3579 0041
-3579 0062
-357A 0021
-357A 003F
-357A 0061
-357A 0041
-357A 0062
-357B 0021
-357B 003F
-357B 0061
-357B 0041
-357B 0062
-357C 0021
-357C 003F
-357C 0061
-357C 0041
-357C 0062
-357D 0021
-357D 003F
-357D 0061
-357D 0041
-357D 0062
-357E 0021
-357E 003F
-357E 0061
-357E 0041
-357E 0062
-357F 0021
-357F 003F
-357F 0061
-357F 0041
-357F 0062
-3580 0021
-3580 003F
-3580 0061
-3580 0041
-3580 0062
-3581 0021
-3581 003F
-3581 0061
-3581 0041
-3581 0062
-3582 0021
-3582 003F
-3582 0061
-3582 0041
-3582 0062
-3583 0021
-3583 003F
-3583 0061
-3583 0041
-3583 0062
-3584 0021
-3584 003F
-3584 0061
-3584 0041
-3584 0062
-3585 0021
-3585 003F
-3585 0061
-3585 0041
-3585 0062
-3586 0021
-3586 003F
-3586 0061
-3586 0041
-3586 0062
-3587 0021
-3587 003F
-3587 0061
-3587 0041
-3587 0062
-3588 0021
-3588 003F
-3588 0061
-3588 0041
-3588 0062
-3589 0021
-3589 003F
-3589 0061
-3589 0041
-3589 0062
-358A 0021
-358A 003F
-358A 0061
-358A 0041
-358A 0062
-358B 0021
-358B 003F
-358B 0061
-358B 0041
-358B 0062
-358C 0021
-358C 003F
-358C 0061
-358C 0041
-358C 0062
-358D 0021
-358D 003F
-358D 0061
-358D 0041
-358D 0062
-358E 0021
-358E 003F
-358E 0061
-358E 0041
-358E 0062
-358F 0021
-358F 003F
-358F 0061
-358F 0041
-358F 0062
-3590 0021
-3590 003F
-3590 0061
-3590 0041
-3590 0062
-3591 0021
-3591 003F
-3591 0061
-3591 0041
-3591 0062
-3592 0021
-3592 003F
-3592 0061
-3592 0041
-3592 0062
-3593 0021
-3593 003F
-3593 0061
-3593 0041
-3593 0062
-3594 0021
-3594 003F
-3594 0061
-3594 0041
-3594 0062
-3595 0021
-3595 003F
-3595 0061
-3595 0041
-3595 0062
-3596 0021
-3596 003F
-3596 0061
-3596 0041
-3596 0062
-3597 0021
-3597 003F
-3597 0061
-3597 0041
-3597 0062
-3598 0021
-3598 003F
-3598 0061
-3598 0041
-3598 0062
-3599 0021
-3599 003F
-3599 0061
-3599 0041
-3599 0062
-359A 0021
-359A 003F
-359A 0061
-359A 0041
-359A 0062
-359B 0021
-359B 003F
-359B 0061
-359B 0041
-359B 0062
-359C 0021
-359C 003F
-359C 0061
-359C 0041
-359C 0062
-359D 0021
-359D 003F
-359D 0061
-359D 0041
-359D 0062
-359E 0021
-359E 003F
-359E 0061
-359E 0041
-359E 0062
-359F 0021
-359F 003F
-359F 0061
-359F 0041
-359F 0062
-35A0 0021
-35A0 003F
-35A0 0061
-35A0 0041
-35A0 0062
-35A1 0021
-35A1 003F
-35A1 0061
-35A1 0041
-35A1 0062
-35A2 0021
-35A2 003F
-35A2 0061
-35A2 0041
-35A2 0062
-35A3 0021
-35A3 003F
-35A3 0061
-35A3 0041
-35A3 0062
-35A4 0021
-35A4 003F
-35A4 0061
-35A4 0041
-35A4 0062
-35A5 0021
-35A5 003F
-35A5 0061
-35A5 0041
-35A5 0062
-35A6 0021
-35A6 003F
-35A6 0061
-35A6 0041
-35A6 0062
-35A7 0021
-35A7 003F
-35A7 0061
-35A7 0041
-35A7 0062
-35A8 0021
-35A8 003F
-35A8 0061
-35A8 0041
-35A8 0062
-35A9 0021
-35A9 003F
-35A9 0061
-35A9 0041
-35A9 0062
-35AA 0021
-35AA 003F
-35AA 0061
-35AA 0041
-35AA 0062
-35AB 0021
-35AB 003F
-35AB 0061
-35AB 0041
-35AB 0062
-35AC 0021
-35AC 003F
-35AC 0061
-35AC 0041
-35AC 0062
-35AD 0021
-35AD 003F
-35AD 0061
-35AD 0041
-35AD 0062
-35AE 0021
-35AE 003F
-35AE 0061
-35AE 0041
-35AE 0062
-35AF 0021
-35AF 003F
-35AF 0061
-35AF 0041
-35AF 0062
-35B0 0021
-35B0 003F
-35B0 0061
-35B0 0041
-35B0 0062
-35B1 0021
-35B1 003F
-35B1 0061
-35B1 0041
-35B1 0062
-35B2 0021
-35B2 003F
-35B2 0061
-35B2 0041
-35B2 0062
-35B3 0021
-35B3 003F
-35B3 0061
-35B3 0041
-35B3 0062
-35B4 0021
-35B4 003F
-35B4 0061
-35B4 0041
-35B4 0062
-35B5 0021
-35B5 003F
-35B5 0061
-35B5 0041
-35B5 0062
-35B6 0021
-35B6 003F
-35B6 0061
-35B6 0041
-35B6 0062
-35B7 0021
-35B7 003F
-35B7 0061
-35B7 0041
-35B7 0062
-35B8 0021
-35B8 003F
-35B8 0061
-35B8 0041
-35B8 0062
-35B9 0021
-35B9 003F
-35B9 0061
-35B9 0041
-35B9 0062
-35BA 0021
-35BA 003F
-35BA 0061
-35BA 0041
-35BA 0062
-35BB 0021
-35BB 003F
-35BB 0061
-35BB 0041
-35BB 0062
-35BC 0021
-35BC 003F
-35BC 0061
-35BC 0041
-35BC 0062
-35BD 0021
-35BD 003F
-35BD 0061
-35BD 0041
-35BD 0062
-35BE 0021
-35BE 003F
-35BE 0061
-35BE 0041
-35BE 0062
-35BF 0021
-35BF 003F
-35BF 0061
-35BF 0041
-35BF 0062
-35C0 0021
-35C0 003F
-35C0 0061
-35C0 0041
-35C0 0062
-35C1 0021
-35C1 003F
-35C1 0061
-35C1 0041
-35C1 0062
-35C2 0021
-35C2 003F
-35C2 0061
-35C2 0041
-35C2 0062
-35C3 0021
-35C3 003F
-35C3 0061
-35C3 0041
-35C3 0062
-35C4 0021
-35C4 003F
-35C4 0061
-35C4 0041
-35C4 0062
-35C5 0021
-35C5 003F
-35C5 0061
-35C5 0041
-35C5 0062
-35C6 0021
-35C6 003F
-35C6 0061
-35C6 0041
-35C6 0062
-35C7 0021
-35C7 003F
-35C7 0061
-35C7 0041
-35C7 0062
-35C8 0021
-35C8 003F
-35C8 0061
-35C8 0041
-35C8 0062
-35C9 0021
-35C9 003F
-35C9 0061
-35C9 0041
-35C9 0062
-35CA 0021
-35CA 003F
-35CA 0061
-35CA 0041
-35CA 0062
-35CB 0021
-35CB 003F
-35CB 0061
-35CB 0041
-35CB 0062
-35CC 0021
-35CC 003F
-35CC 0061
-35CC 0041
-35CC 0062
-35CD 0021
-35CD 003F
-35CD 0061
-35CD 0041
-35CD 0062
-35CE 0021
-35CE 003F
-35CE 0061
-35CE 0041
-35CE 0062
-35CF 0021
-35CF 003F
-35CF 0061
-35CF 0041
-35CF 0062
-35D0 0021
-35D0 003F
-35D0 0061
-35D0 0041
-35D0 0062
-35D1 0021
-35D1 003F
-35D1 0061
-35D1 0041
-35D1 0062
-35D2 0021
-35D2 003F
-35D2 0061
-35D2 0041
-35D2 0062
-35D3 0021
-35D3 003F
-35D3 0061
-35D3 0041
-35D3 0062
-35D4 0021
-35D4 003F
-35D4 0061
-35D4 0041
-35D4 0062
-35D5 0021
-35D5 003F
-35D5 0061
-35D5 0041
-35D5 0062
-35D6 0021
-35D6 003F
-35D6 0061
-35D6 0041
-35D6 0062
-35D7 0021
-35D7 003F
-35D7 0061
-35D7 0041
-35D7 0062
-35D8 0021
-35D8 003F
-35D8 0061
-35D8 0041
-35D8 0062
-35D9 0021
-35D9 003F
-35D9 0061
-35D9 0041
-35D9 0062
-35DA 0021
-35DA 003F
-35DA 0061
-35DA 0041
-35DA 0062
-35DB 0021
-35DB 003F
-35DB 0061
-35DB 0041
-35DB 0062
-35DC 0021
-35DC 003F
-35DC 0061
-35DC 0041
-35DC 0062
-35DD 0021
-35DD 003F
-35DD 0061
-35DD 0041
-35DD 0062
-35DE 0021
-35DE 003F
-35DE 0061
-35DE 0041
-35DE 0062
-35DF 0021
-35DF 003F
-35DF 0061
-35DF 0041
-35DF 0062
-35E0 0021
-35E0 003F
-35E0 0061
-35E0 0041
-35E0 0062
-35E1 0021
-35E1 003F
-35E1 0061
-35E1 0041
-35E1 0062
-35E2 0021
-35E2 003F
-35E2 0061
-35E2 0041
-35E2 0062
-35E3 0021
-35E3 003F
-35E3 0061
-35E3 0041
-35E3 0062
-35E4 0021
-35E4 003F
-35E4 0061
-35E4 0041
-35E4 0062
-35E5 0021
-35E5 003F
-35E5 0061
-35E5 0041
-35E5 0062
-35E6 0021
-35E6 003F
-35E6 0061
-35E6 0041
-35E6 0062
-35E7 0021
-35E7 003F
-35E7 0061
-35E7 0041
-35E7 0062
-35E8 0021
-35E8 003F
-35E8 0061
-35E8 0041
-35E8 0062
-35E9 0021
-35E9 003F
-35E9 0061
-35E9 0041
-35E9 0062
-35EA 0021
-35EA 003F
-35EA 0061
-35EA 0041
-35EA 0062
-35EB 0021
-35EB 003F
-35EB 0061
-35EB 0041
-35EB 0062
-35EC 0021
-35EC 003F
-35EC 0061
-35EC 0041
-35EC 0062
-35ED 0021
-35ED 003F
-35ED 0061
-35ED 0041
-35ED 0062
-35EE 0021
-35EE 003F
-35EE 0061
-35EE 0041
-35EE 0062
-35EF 0021
-35EF 003F
-35EF 0061
-35EF 0041
-35EF 0062
-35F0 0021
-35F0 003F
-35F0 0061
-35F0 0041
-35F0 0062
-35F1 0021
-35F1 003F
-35F1 0061
-35F1 0041
-35F1 0062
-35F2 0021
-35F2 003F
-35F2 0061
-35F2 0041
-35F2 0062
-35F3 0021
-35F3 003F
-35F3 0061
-35F3 0041
-35F3 0062
-35F4 0021
-35F4 003F
-35F4 0061
-35F4 0041
-35F4 0062
-35F5 0021
-35F5 003F
-35F5 0061
-35F5 0041
-35F5 0062
-35F6 0021
-35F6 003F
-35F6 0061
-35F6 0041
-35F6 0062
-35F7 0021
-35F7 003F
-35F7 0061
-35F7 0041
-35F7 0062
-35F8 0021
-35F8 003F
-35F8 0061
-35F8 0041
-35F8 0062
-35F9 0021
-35F9 003F
-35F9 0061
-35F9 0041
-35F9 0062
-35FA 0021
-35FA 003F
-35FA 0061
-35FA 0041
-35FA 0062
-35FB 0021
-35FB 003F
-35FB 0061
-35FB 0041
-35FB 0062
-35FC 0021
-35FC 003F
-35FC 0061
-35FC 0041
-35FC 0062
-35FD 0021
-35FD 003F
-35FD 0061
-35FD 0041
-35FD 0062
-35FE 0021
-35FE 003F
-35FE 0061
-35FE 0041
-35FE 0062
-35FF 0021
-35FF 003F
-35FF 0061
-35FF 0041
-35FF 0062
-3600 0021
-3600 003F
-3600 0061
-3600 0041
-3600 0062
-3601 0021
-3601 003F
-3601 0061
-3601 0041
-3601 0062
-3602 0021
-3602 003F
-3602 0061
-3602 0041
-3602 0062
-3603 0021
-3603 003F
-3603 0061
-3603 0041
-3603 0062
-3604 0021
-3604 003F
-3604 0061
-3604 0041
-3604 0062
-3605 0021
-3605 003F
-3605 0061
-3605 0041
-3605 0062
-3606 0021
-3606 003F
-3606 0061
-3606 0041
-3606 0062
-3607 0021
-3607 003F
-3607 0061
-3607 0041
-3607 0062
-3608 0021
-3608 003F
-3608 0061
-3608 0041
-3608 0062
-3609 0021
-3609 003F
-3609 0061
-3609 0041
-3609 0062
-360A 0021
-360A 003F
-360A 0061
-360A 0041
-360A 0062
-360B 0021
-360B 003F
-360B 0061
-360B 0041
-360B 0062
-360C 0021
-360C 003F
-360C 0061
-360C 0041
-360C 0062
-360D 0021
-360D 003F
-360D 0061
-360D 0041
-360D 0062
-360E 0021
-360E 003F
-360E 0061
-360E 0041
-360E 0062
-360F 0021
-360F 003F
-360F 0061
-360F 0041
-360F 0062
-3610 0021
-3610 003F
-3610 0061
-3610 0041
-3610 0062
-3611 0021
-3611 003F
-3611 0061
-3611 0041
-3611 0062
-3612 0021
-3612 003F
-3612 0061
-3612 0041
-3612 0062
-3613 0021
-3613 003F
-3613 0061
-3613 0041
-3613 0062
-3614 0021
-3614 003F
-3614 0061
-3614 0041
-3614 0062
-3615 0021
-3615 003F
-3615 0061
-3615 0041
-3615 0062
-3616 0021
-3616 003F
-3616 0061
-3616 0041
-3616 0062
-3617 0021
-3617 003F
-3617 0061
-3617 0041
-3617 0062
-3618 0021
-3618 003F
-3618 0061
-3618 0041
-3618 0062
-3619 0021
-3619 003F
-3619 0061
-3619 0041
-3619 0062
-361A 0021
-361A 003F
-361A 0061
-361A 0041
-361A 0062
-361B 0021
-361B 003F
-361B 0061
-361B 0041
-361B 0062
-361C 0021
-361C 003F
-361C 0061
-361C 0041
-361C 0062
-361D 0021
-361D 003F
-361D 0061
-361D 0041
-361D 0062
-361E 0021
-361E 003F
-361E 0061
-361E 0041
-361E 0062
-361F 0021
-361F 003F
-361F 0061
-361F 0041
-361F 0062
-3620 0021
-3620 003F
-3620 0061
-3620 0041
-3620 0062
-3621 0021
-3621 003F
-3621 0061
-3621 0041
-3621 0062
-3622 0021
-3622 003F
-3622 0061
-3622 0041
-3622 0062
-3623 0021
-3623 003F
-3623 0061
-3623 0041
-3623 0062
-3624 0021
-3624 003F
-3624 0061
-3624 0041
-3624 0062
-3625 0021
-3625 003F
-3625 0061
-3625 0041
-3625 0062
-3626 0021
-3626 003F
-3626 0061
-3626 0041
-3626 0062
-3627 0021
-3627 003F
-3627 0061
-3627 0041
-3627 0062
-3628 0021
-3628 003F
-3628 0061
-3628 0041
-3628 0062
-3629 0021
-3629 003F
-3629 0061
-3629 0041
-3629 0062
-362A 0021
-362A 003F
-362A 0061
-362A 0041
-362A 0062
-362B 0021
-362B 003F
-362B 0061
-362B 0041
-362B 0062
-362C 0021
-362C 003F
-362C 0061
-362C 0041
-362C 0062
-362D 0021
-362D 003F
-362D 0061
-362D 0041
-362D 0062
-362E 0021
-362E 003F
-362E 0061
-362E 0041
-362E 0062
-362F 0021
-362F 003F
-362F 0061
-362F 0041
-362F 0062
-3630 0021
-3630 003F
-3630 0061
-3630 0041
-3630 0062
-3631 0021
-3631 003F
-3631 0061
-3631 0041
-3631 0062
-3632 0021
-3632 003F
-3632 0061
-3632 0041
-3632 0062
-3633 0021
-3633 003F
-3633 0061
-3633 0041
-3633 0062
-3634 0021
-3634 003F
-3634 0061
-3634 0041
-3634 0062
-3635 0021
-3635 003F
-3635 0061
-3635 0041
-3635 0062
-3636 0021
-3636 003F
-3636 0061
-3636 0041
-3636 0062
-3637 0021
-3637 003F
-3637 0061
-3637 0041
-3637 0062
-3638 0021
-3638 003F
-3638 0061
-3638 0041
-3638 0062
-3639 0021
-3639 003F
-3639 0061
-3639 0041
-3639 0062
-363A 0021
-363A 003F
-363A 0061
-363A 0041
-363A 0062
-363B 0021
-363B 003F
-363B 0061
-363B 0041
-363B 0062
-363C 0021
-363C 003F
-363C 0061
-363C 0041
-363C 0062
-363D 0021
-363D 003F
-363D 0061
-363D 0041
-363D 0062
-363E 0021
-363E 003F
-363E 0061
-363E 0041
-363E 0062
-363F 0021
-363F 003F
-363F 0061
-363F 0041
-363F 0062
-3640 0021
-3640 003F
-3640 0061
-3640 0041
-3640 0062
-3641 0021
-3641 003F
-3641 0061
-3641 0041
-3641 0062
-3642 0021
-3642 003F
-3642 0061
-3642 0041
-3642 0062
-3643 0021
-3643 003F
-3643 0061
-3643 0041
-3643 0062
-3644 0021
-3644 003F
-3644 0061
-3644 0041
-3644 0062
-3645 0021
-3645 003F
-3645 0061
-3645 0041
-3645 0062
-3646 0021
-3646 003F
-3646 0061
-3646 0041
-3646 0062
-3647 0021
-3647 003F
-3647 0061
-3647 0041
-3647 0062
-3648 0021
-3648 003F
-3648 0061
-3648 0041
-3648 0062
-3649 0021
-3649 003F
-3649 0061
-3649 0041
-3649 0062
-364A 0021
-364A 003F
-364A 0061
-364A 0041
-364A 0062
-364B 0021
-364B 003F
-364B 0061
-364B 0041
-364B 0062
-364C 0021
-364C 003F
-364C 0061
-364C 0041
-364C 0062
-364D 0021
-364D 003F
-364D 0061
-364D 0041
-364D 0062
-364E 0021
-364E 003F
-364E 0061
-364E 0041
-364E 0062
-364F 0021
-364F 003F
-364F 0061
-364F 0041
-364F 0062
-3650 0021
-3650 003F
-3650 0061
-3650 0041
-3650 0062
-3651 0021
-3651 003F
-3651 0061
-3651 0041
-3651 0062
-3652 0021
-3652 003F
-3652 0061
-3652 0041
-3652 0062
-3653 0021
-3653 003F
-3653 0061
-3653 0041
-3653 0062
-3654 0021
-3654 003F
-3654 0061
-3654 0041
-3654 0062
-3655 0021
-3655 003F
-3655 0061
-3655 0041
-3655 0062
-3656 0021
-3656 003F
-3656 0061
-3656 0041
-3656 0062
-3657 0021
-3657 003F
-3657 0061
-3657 0041
-3657 0062
-3658 0021
-3658 003F
-3658 0061
-3658 0041
-3658 0062
-3659 0021
-3659 003F
-3659 0061
-3659 0041
-3659 0062
-365A 0021
-365A 003F
-365A 0061
-365A 0041
-365A 0062
-365B 0021
-365B 003F
-365B 0061
-365B 0041
-365B 0062
-365C 0021
-365C 003F
-365C 0061
-365C 0041
-365C 0062
-365D 0021
-365D 003F
-365D 0061
-365D 0041
-365D 0062
-365E 0021
-365E 003F
-365E 0061
-365E 0041
-365E 0062
-365F 0021
-365F 003F
-365F 0061
-365F 0041
-365F 0062
-3660 0021
-3660 003F
-3660 0061
-3660 0041
-3660 0062
-3661 0021
-3661 003F
-3661 0061
-3661 0041
-3661 0062
-3662 0021
-3662 003F
-3662 0061
-3662 0041
-3662 0062
-3663 0021
-3663 003F
-3663 0061
-3663 0041
-3663 0062
-3664 0021
-3664 003F
-3664 0061
-3664 0041
-3664 0062
-3665 0021
-3665 003F
-3665 0061
-3665 0041
-3665 0062
-3666 0021
-3666 003F
-3666 0061
-3666 0041
-3666 0062
-3667 0021
-3667 003F
-3667 0061
-3667 0041
-3667 0062
-3668 0021
-3668 003F
-3668 0061
-3668 0041
-3668 0062
-3669 0021
-3669 003F
-3669 0061
-3669 0041
-3669 0062
-366A 0021
-366A 003F
-366A 0061
-366A 0041
-366A 0062
-366B 0021
-366B 003F
-366B 0061
-366B 0041
-366B 0062
-366C 0021
-366C 003F
-366C 0061
-366C 0041
-366C 0062
-366D 0021
-366D 003F
-366D 0061
-366D 0041
-366D 0062
-366E 0021
-366E 003F
-366E 0061
-366E 0041
-366E 0062
-366F 0021
-366F 003F
-366F 0061
-366F 0041
-366F 0062
-3670 0021
-3670 003F
-3670 0061
-3670 0041
-3670 0062
-3671 0021
-3671 003F
-3671 0061
-3671 0041
-3671 0062
-3672 0021
-3672 003F
-3672 0061
-3672 0041
-3672 0062
-3673 0021
-3673 003F
-3673 0061
-3673 0041
-3673 0062
-3674 0021
-3674 003F
-3674 0061
-3674 0041
-3674 0062
-3675 0021
-3675 003F
-3675 0061
-3675 0041
-3675 0062
-3676 0021
-3676 003F
-3676 0061
-3676 0041
-3676 0062
-3677 0021
-3677 003F
-3677 0061
-3677 0041
-3677 0062
-3678 0021
-3678 003F
-3678 0061
-3678 0041
-3678 0062
-3679 0021
-3679 003F
-3679 0061
-3679 0041
-3679 0062
-367A 0021
-367A 003F
-367A 0061
-367A 0041
-367A 0062
-367B 0021
-367B 003F
-367B 0061
-367B 0041
-367B 0062
-367C 0021
-367C 003F
-367C 0061
-367C 0041
-367C 0062
-367D 0021
-367D 003F
-367D 0061
-367D 0041
-367D 0062
-367E 0021
-367E 003F
-367E 0061
-367E 0041
-367E 0062
-367F 0021
-367F 003F
-367F 0061
-367F 0041
-367F 0062
-3680 0021
-3680 003F
-3680 0061
-3680 0041
-3680 0062
-3681 0021
-3681 003F
-3681 0061
-3681 0041
-3681 0062
-3682 0021
-3682 003F
-3682 0061
-3682 0041
-3682 0062
-3683 0021
-3683 003F
-3683 0061
-3683 0041
-3683 0062
-3684 0021
-3684 003F
-3684 0061
-3684 0041
-3684 0062
-3685 0021
-3685 003F
-3685 0061
-3685 0041
-3685 0062
-3686 0021
-3686 003F
-3686 0061
-3686 0041
-3686 0062
-3687 0021
-3687 003F
-3687 0061
-3687 0041
-3687 0062
-3688 0021
-3688 003F
-3688 0061
-3688 0041
-3688 0062
-3689 0021
-3689 003F
-3689 0061
-3689 0041
-3689 0062
-368A 0021
-368A 003F
-368A 0061
-368A 0041
-368A 0062
-368B 0021
-368B 003F
-368B 0061
-368B 0041
-368B 0062
-368C 0021
-368C 003F
-368C 0061
-368C 0041
-368C 0062
-368D 0021
-368D 003F
-368D 0061
-368D 0041
-368D 0062
-368E 0021
-368E 003F
-368E 0061
-368E 0041
-368E 0062
-368F 0021
-368F 003F
-368F 0061
-368F 0041
-368F 0062
-3690 0021
-3690 003F
-3690 0061
-3690 0041
-3690 0062
-3691 0021
-3691 003F
-3691 0061
-3691 0041
-3691 0062
-3692 0021
-3692 003F
-3692 0061
-3692 0041
-3692 0062
-3693 0021
-3693 003F
-3693 0061
-3693 0041
-3693 0062
-3694 0021
-3694 003F
-3694 0061
-3694 0041
-3694 0062
-3695 0021
-3695 003F
-3695 0061
-3695 0041
-3695 0062
-3696 0021
-3696 003F
-3696 0061
-3696 0041
-3696 0062
-3697 0021
-3697 003F
-3697 0061
-3697 0041
-3697 0062
-3698 0021
-3698 003F
-3698 0061
-3698 0041
-3698 0062
-3699 0021
-3699 003F
-3699 0061
-3699 0041
-3699 0062
-369A 0021
-369A 003F
-369A 0061
-369A 0041
-369A 0062
-369B 0021
-369B 003F
-369B 0061
-369B 0041
-369B 0062
-369C 0021
-369C 003F
-369C 0061
-369C 0041
-369C 0062
-369D 0021
-369D 003F
-369D 0061
-369D 0041
-369D 0062
-369E 0021
-369E 003F
-369E 0061
-369E 0041
-369E 0062
-369F 0021
-369F 003F
-369F 0061
-369F 0041
-369F 0062
-36A0 0021
-36A0 003F
-36A0 0061
-36A0 0041
-36A0 0062
-36A1 0021
-36A1 003F
-36A1 0061
-36A1 0041
-36A1 0062
-36A2 0021
-36A2 003F
-36A2 0061
-36A2 0041
-36A2 0062
-36A3 0021
-36A3 003F
-36A3 0061
-36A3 0041
-36A3 0062
-36A4 0021
-36A4 003F
-36A4 0061
-36A4 0041
-36A4 0062
-36A5 0021
-36A5 003F
-36A5 0061
-36A5 0041
-36A5 0062
-36A6 0021
-36A6 003F
-36A6 0061
-36A6 0041
-36A6 0062
-36A7 0021
-36A7 003F
-36A7 0061
-36A7 0041
-36A7 0062
-36A8 0021
-36A8 003F
-36A8 0061
-36A8 0041
-36A8 0062
-36A9 0021
-36A9 003F
-36A9 0061
-36A9 0041
-36A9 0062
-36AA 0021
-36AA 003F
-36AA 0061
-36AA 0041
-36AA 0062
-36AB 0021
-36AB 003F
-36AB 0061
-36AB 0041
-36AB 0062
-36AC 0021
-36AC 003F
-36AC 0061
-36AC 0041
-36AC 0062
-36AD 0021
-36AD 003F
-36AD 0061
-36AD 0041
-36AD 0062
-36AE 0021
-36AE 003F
-36AE 0061
-36AE 0041
-36AE 0062
-36AF 0021
-36AF 003F
-36AF 0061
-36AF 0041
-36AF 0062
-36B0 0021
-36B0 003F
-36B0 0061
-36B0 0041
-36B0 0062
-36B1 0021
-36B1 003F
-36B1 0061
-36B1 0041
-36B1 0062
-36B2 0021
-36B2 003F
-36B2 0061
-36B2 0041
-36B2 0062
-36B3 0021
-36B3 003F
-36B3 0061
-36B3 0041
-36B3 0062
-36B4 0021
-36B4 003F
-36B4 0061
-36B4 0041
-36B4 0062
-36B5 0021
-36B5 003F
-36B5 0061
-36B5 0041
-36B5 0062
-36B6 0021
-36B6 003F
-36B6 0061
-36B6 0041
-36B6 0062
-36B7 0021
-36B7 003F
-36B7 0061
-36B7 0041
-36B7 0062
-36B8 0021
-36B8 003F
-36B8 0061
-36B8 0041
-36B8 0062
-36B9 0021
-36B9 003F
-36B9 0061
-36B9 0041
-36B9 0062
-36BA 0021
-36BA 003F
-36BA 0061
-36BA 0041
-36BA 0062
-36BB 0021
-36BB 003F
-36BB 0061
-36BB 0041
-36BB 0062
-36BC 0021
-36BC 003F
-36BC 0061
-36BC 0041
-36BC 0062
-36BD 0021
-36BD 003F
-36BD 0061
-36BD 0041
-36BD 0062
-36BE 0021
-36BE 003F
-36BE 0061
-36BE 0041
-36BE 0062
-36BF 0021
-36BF 003F
-36BF 0061
-36BF 0041
-36BF 0062
-36C0 0021
-36C0 003F
-36C0 0061
-36C0 0041
-36C0 0062
-36C1 0021
-36C1 003F
-36C1 0061
-36C1 0041
-36C1 0062
-36C2 0021
-36C2 003F
-36C2 0061
-36C2 0041
-36C2 0062
-36C3 0021
-36C3 003F
-36C3 0061
-36C3 0041
-36C3 0062
-36C4 0021
-36C4 003F
-36C4 0061
-36C4 0041
-36C4 0062
-36C5 0021
-36C5 003F
-36C5 0061
-36C5 0041
-36C5 0062
-36C6 0021
-36C6 003F
-36C6 0061
-36C6 0041
-36C6 0062
-36C7 0021
-36C7 003F
-36C7 0061
-36C7 0041
-36C7 0062
-36C8 0021
-36C8 003F
-36C8 0061
-36C8 0041
-36C8 0062
-36C9 0021
-36C9 003F
-36C9 0061
-36C9 0041
-36C9 0062
-36CA 0021
-36CA 003F
-36CA 0061
-36CA 0041
-36CA 0062
-36CB 0021
-36CB 003F
-36CB 0061
-36CB 0041
-36CB 0062
-36CC 0021
-36CC 003F
-36CC 0061
-36CC 0041
-36CC 0062
-36CD 0021
-36CD 003F
-36CD 0061
-36CD 0041
-36CD 0062
-36CE 0021
-36CE 003F
-36CE 0061
-36CE 0041
-36CE 0062
-36CF 0021
-36CF 003F
-36CF 0061
-36CF 0041
-36CF 0062
-36D0 0021
-36D0 003F
-36D0 0061
-36D0 0041
-36D0 0062
-36D1 0021
-36D1 003F
-36D1 0061
-36D1 0041
-36D1 0062
-36D2 0021
-36D2 003F
-36D2 0061
-36D2 0041
-36D2 0062
-36D3 0021
-36D3 003F
-36D3 0061
-36D3 0041
-36D3 0062
-36D4 0021
-36D4 003F
-36D4 0061
-36D4 0041
-36D4 0062
-36D5 0021
-36D5 003F
-36D5 0061
-36D5 0041
-36D5 0062
-36D6 0021
-36D6 003F
-36D6 0061
-36D6 0041
-36D6 0062
-36D7 0021
-36D7 003F
-36D7 0061
-36D7 0041
-36D7 0062
-36D8 0021
-36D8 003F
-36D8 0061
-36D8 0041
-36D8 0062
-36D9 0021
-36D9 003F
-36D9 0061
-36D9 0041
-36D9 0062
-36DA 0021
-36DA 003F
-36DA 0061
-36DA 0041
-36DA 0062
-36DB 0021
-36DB 003F
-36DB 0061
-36DB 0041
-36DB 0062
-36DC 0021
-36DC 003F
-36DC 0061
-36DC 0041
-36DC 0062
-36DD 0021
-36DD 003F
-36DD 0061
-36DD 0041
-36DD 0062
-36DE 0021
-36DE 003F
-36DE 0061
-36DE 0041
-36DE 0062
-36DF 0021
-36DF 003F
-36DF 0061
-36DF 0041
-36DF 0062
-36E0 0021
-36E0 003F
-36E0 0061
-36E0 0041
-36E0 0062
-36E1 0021
-36E1 003F
-36E1 0061
-36E1 0041
-36E1 0062
-36E2 0021
-36E2 003F
-36E2 0061
-36E2 0041
-36E2 0062
-36E3 0021
-36E3 003F
-36E3 0061
-36E3 0041
-36E3 0062
-36E4 0021
-36E4 003F
-36E4 0061
-36E4 0041
-36E4 0062
-36E5 0021
-36E5 003F
-36E5 0061
-36E5 0041
-36E5 0062
-36E6 0021
-36E6 003F
-36E6 0061
-36E6 0041
-36E6 0062
-36E7 0021
-36E7 003F
-36E7 0061
-36E7 0041
-36E7 0062
-36E8 0021
-36E8 003F
-36E8 0061
-36E8 0041
-36E8 0062
-36E9 0021
-36E9 003F
-36E9 0061
-36E9 0041
-36E9 0062
-36EA 0021
-36EA 003F
-36EA 0061
-36EA 0041
-36EA 0062
-36EB 0021
-36EB 003F
-36EB 0061
-36EB 0041
-36EB 0062
-36EC 0021
-36EC 003F
-36EC 0061
-36EC 0041
-36EC 0062
-36ED 0021
-36ED 003F
-36ED 0061
-36ED 0041
-36ED 0062
-36EE 0021
-2F867 0021
-36EE 003F
-2F867 003F
-2F867 0334
-36EE 0061
-2F867 0061
-36EE 0041
-2F867 0041
-36EE 0062
-2F867 0062
-36EF 0021
-36EF 003F
-36EF 0061
-36EF 0041
-36EF 0062
-36F0 0021
-36F0 003F
-36F0 0061
-36F0 0041
-36F0 0062
-36F1 0021
-36F1 003F
-36F1 0061
-36F1 0041
-36F1 0062
-36F2 0021
-36F2 003F
-36F2 0061
-36F2 0041
-36F2 0062
-36F3 0021
-36F3 003F
-36F3 0061
-36F3 0041
-36F3 0062
-36F4 0021
-36F4 003F
-36F4 0061
-36F4 0041
-36F4 0062
-36F5 0021
-36F5 003F
-36F5 0061
-36F5 0041
-36F5 0062
-36F6 0021
-36F6 003F
-36F6 0061
-36F6 0041
-36F6 0062
-36F7 0021
-36F7 003F
-36F7 0061
-36F7 0041
-36F7 0062
-36F8 0021
-36F8 003F
-36F8 0061
-36F8 0041
-36F8 0062
-36F9 0021
-36F9 003F
-36F9 0061
-36F9 0041
-36F9 0062
-36FA 0021
-36FA 003F
-36FA 0061
-36FA 0041
-36FA 0062
-36FB 0021
-36FB 003F
-36FB 0061
-36FB 0041
-36FB 0062
-36FC 0021
-2F868 0021
-36FC 003F
-2F868 003F
-2F868 0334
-36FC 0061
-2F868 0061
-36FC 0041
-2F868 0041
-36FC 0062
-2F868 0062
-36FD 0021
-36FD 003F
-36FD 0061
-36FD 0041
-36FD 0062
-36FE 0021
-36FE 003F
-36FE 0061
-36FE 0041
-36FE 0062
-36FF 0021
-36FF 003F
-36FF 0061
-36FF 0041
-36FF 0062
-3700 0021
-3700 003F
-3700 0061
-3700 0041
-3700 0062
-3701 0021
-3701 003F
-3701 0061
-3701 0041
-3701 0062
-3702 0021
-3702 003F
-3702 0061
-3702 0041
-3702 0062
-3703 0021
-3703 003F
-3703 0061
-3703 0041
-3703 0062
-3704 0021
-3704 003F
-3704 0061
-3704 0041
-3704 0062
-3705 0021
-3705 003F
-3705 0061
-3705 0041
-3705 0062
-3706 0021
-3706 003F
-3706 0061
-3706 0041
-3706 0062
-3707 0021
-3707 003F
-3707 0061
-3707 0041
-3707 0062
-3708 0021
-3708 003F
-3708 0061
-3708 0041
-3708 0062
-3709 0021
-3709 003F
-3709 0061
-3709 0041
-3709 0062
-370A 0021
-370A 003F
-370A 0061
-370A 0041
-370A 0062
-370B 0021
-370B 003F
-370B 0061
-370B 0041
-370B 0062
-370C 0021
-370C 003F
-370C 0061
-370C 0041
-370C 0062
-370D 0021
-370D 003F
-370D 0061
-370D 0041
-370D 0062
-370E 0021
-370E 003F
-370E 0061
-370E 0041
-370E 0062
-370F 0021
-370F 003F
-370F 0061
-370F 0041
-370F 0062
-3710 0021
-3710 003F
-3710 0061
-3710 0041
-3710 0062
-3711 0021
-3711 003F
-3711 0061
-3711 0041
-3711 0062
-3712 0021
-3712 003F
-3712 0061
-3712 0041
-3712 0062
-3713 0021
-3713 003F
-3713 0061
-3713 0041
-3713 0062
-3714 0021
-3714 003F
-3714 0061
-3714 0041
-3714 0062
-3715 0021
-3715 003F
-3715 0061
-3715 0041
-3715 0062
-3716 0021
-3716 003F
-3716 0061
-3716 0041
-3716 0062
-3717 0021
-3717 003F
-3717 0061
-3717 0041
-3717 0062
-3718 0021
-3718 003F
-3718 0061
-3718 0041
-3718 0062
-3719 0021
-3719 003F
-3719 0061
-3719 0041
-3719 0062
-371A 0021
-371A 003F
-371A 0061
-371A 0041
-371A 0062
-371B 0021
-371B 003F
-371B 0061
-371B 0041
-371B 0062
-371C 0021
-371C 003F
-371C 0061
-371C 0041
-371C 0062
-371D 0021
-371D 003F
-371D 0061
-371D 0041
-371D 0062
-371E 0021
-371E 003F
-371E 0061
-371E 0041
-371E 0062
-371F 0021
-371F 003F
-371F 0061
-371F 0041
-371F 0062
-3720 0021
-3720 003F
-3720 0061
-3720 0041
-3720 0062
-3721 0021
-3721 003F
-3721 0061
-3721 0041
-3721 0062
-3722 0021
-3722 003F
-3722 0061
-3722 0041
-3722 0062
-3723 0021
-3723 003F
-3723 0061
-3723 0041
-3723 0062
-3724 0021
-3724 003F
-3724 0061
-3724 0041
-3724 0062
-3725 0021
-3725 003F
-3725 0061
-3725 0041
-3725 0062
-3726 0021
-3726 003F
-3726 0061
-3726 0041
-3726 0062
-3727 0021
-3727 003F
-3727 0061
-3727 0041
-3727 0062
-3728 0021
-3728 003F
-3728 0061
-3728 0041
-3728 0062
-3729 0021
-3729 003F
-3729 0061
-3729 0041
-3729 0062
-372A 0021
-372A 003F
-372A 0061
-372A 0041
-372A 0062
-372B 0021
-372B 003F
-372B 0061
-372B 0041
-372B 0062
-372C 0021
-372C 003F
-372C 0061
-372C 0041
-372C 0062
-372D 0021
-372D 003F
-372D 0061
-372D 0041
-372D 0062
-372E 0021
-372E 003F
-372E 0061
-372E 0041
-372E 0062
-372F 0021
-372F 003F
-372F 0061
-372F 0041
-372F 0062
-3730 0021
-3730 003F
-3730 0061
-3730 0041
-3730 0062
-3731 0021
-3731 003F
-3731 0061
-3731 0041
-3731 0062
-3732 0021
-3732 003F
-3732 0061
-3732 0041
-3732 0062
-3733 0021
-3733 003F
-3733 0061
-3733 0041
-3733 0062
-3734 0021
-3734 003F
-3734 0061
-3734 0041
-3734 0062
-3735 0021
-3735 003F
-3735 0061
-3735 0041
-3735 0062
-3736 0021
-3736 003F
-3736 0061
-3736 0041
-3736 0062
-3737 0021
-3737 003F
-3737 0061
-3737 0041
-3737 0062
-3738 0021
-3738 003F
-3738 0061
-3738 0041
-3738 0062
-3739 0021
-3739 003F
-3739 0061
-3739 0041
-3739 0062
-373A 0021
-373A 003F
-373A 0061
-373A 0041
-373A 0062
-373B 0021
-373B 003F
-373B 0061
-373B 0041
-373B 0062
-373C 0021
-373C 003F
-373C 0061
-373C 0041
-373C 0062
-373D 0021
-373D 003F
-373D 0061
-373D 0041
-373D 0062
-373E 0021
-373E 003F
-373E 0061
-373E 0041
-373E 0062
-373F 0021
-373F 003F
-373F 0061
-373F 0041
-373F 0062
-3740 0021
-3740 003F
-3740 0061
-3740 0041
-3740 0062
-3741 0021
-3741 003F
-3741 0061
-3741 0041
-3741 0062
-3742 0021
-3742 003F
-3742 0061
-3742 0041
-3742 0062
-3743 0021
-3743 003F
-3743 0061
-3743 0041
-3743 0062
-3744 0021
-3744 003F
-3744 0061
-3744 0041
-3744 0062
-3745 0021
-3745 003F
-3745 0061
-3745 0041
-3745 0062
-3746 0021
-3746 003F
-3746 0061
-3746 0041
-3746 0062
-3747 0021
-3747 003F
-3747 0061
-3747 0041
-3747 0062
-3748 0021
-3748 003F
-3748 0061
-3748 0041
-3748 0062
-3749 0021
-3749 003F
-3749 0061
-3749 0041
-3749 0062
-374A 0021
-374A 003F
-374A 0061
-374A 0041
-374A 0062
-374B 0021
-374B 003F
-374B 0061
-374B 0041
-374B 0062
-374C 0021
-374C 003F
-374C 0061
-374C 0041
-374C 0062
-374D 0021
-374D 003F
-374D 0061
-374D 0041
-374D 0062
-374E 0021
-374E 003F
-374E 0061
-374E 0041
-374E 0062
-374F 0021
-374F 003F
-374F 0061
-374F 0041
-374F 0062
-3750 0021
-3750 003F
-3750 0061
-3750 0041
-3750 0062
-3751 0021
-3751 003F
-3751 0061
-3751 0041
-3751 0062
-3752 0021
-3752 003F
-3752 0061
-3752 0041
-3752 0062
-3753 0021
-3753 003F
-3753 0061
-3753 0041
-3753 0062
-3754 0021
-3754 003F
-3754 0061
-3754 0041
-3754 0062
-3755 0021
-3755 003F
-3755 0061
-3755 0041
-3755 0062
-3756 0021
-3756 003F
-3756 0061
-3756 0041
-3756 0062
-3757 0021
-3757 003F
-3757 0061
-3757 0041
-3757 0062
-3758 0021
-3758 003F
-3758 0061
-3758 0041
-3758 0062
-3759 0021
-3759 003F
-3759 0061
-3759 0041
-3759 0062
-375A 0021
-375A 003F
-375A 0061
-375A 0041
-375A 0062
-375B 0021
-375B 003F
-375B 0061
-375B 0041
-375B 0062
-375C 0021
-375C 003F
-375C 0061
-375C 0041
-375C 0062
-375D 0021
-375D 003F
-375D 0061
-375D 0041
-375D 0062
-375E 0021
-375E 003F
-375E 0061
-375E 0041
-375E 0062
-375F 0021
-375F 003F
-375F 0061
-375F 0041
-375F 0062
-3760 0021
-3760 003F
-3760 0061
-3760 0041
-3760 0062
-3761 0021
-3761 003F
-3761 0061
-3761 0041
-3761 0062
-3762 0021
-3762 003F
-3762 0061
-3762 0041
-3762 0062
-3763 0021
-3763 003F
-3763 0061
-3763 0041
-3763 0062
-3764 0021
-3764 003F
-3764 0061
-3764 0041
-3764 0062
-3765 0021
-3765 003F
-3765 0061
-3765 0041
-3765 0062
-3766 0021
-3766 003F
-3766 0061
-3766 0041
-3766 0062
-3767 0021
-3767 003F
-3767 0061
-3767 0041
-3767 0062
-3768 0021
-3768 003F
-3768 0061
-3768 0041
-3768 0062
-3769 0021
-3769 003F
-3769 0061
-3769 0041
-3769 0062
-376A 0021
-376A 003F
-376A 0061
-376A 0041
-376A 0062
-376B 0021
-376B 003F
-376B 0061
-376B 0041
-376B 0062
-376C 0021
-376C 003F
-376C 0061
-376C 0041
-376C 0062
-376D 0021
-376D 003F
-376D 0061
-376D 0041
-376D 0062
-376E 0021
-376E 003F
-376E 0061
-376E 0041
-376E 0062
-376F 0021
-376F 003F
-376F 0061
-376F 0041
-376F 0062
-3770 0021
-3770 003F
-3770 0061
-3770 0041
-3770 0062
-3771 0021
-3771 003F
-3771 0061
-3771 0041
-3771 0062
-3772 0021
-3772 003F
-3772 0061
-3772 0041
-3772 0062
-3773 0021
-3773 003F
-3773 0061
-3773 0041
-3773 0062
-3774 0021
-3774 003F
-3774 0061
-3774 0041
-3774 0062
-3775 0021
-3775 003F
-3775 0061
-3775 0041
-3775 0062
-3776 0021
-3776 003F
-3776 0061
-3776 0041
-3776 0062
-3777 0021
-3777 003F
-3777 0061
-3777 0041
-3777 0062
-3778 0021
-3778 003F
-3778 0061
-3778 0041
-3778 0062
-3779 0021
-3779 003F
-3779 0061
-3779 0041
-3779 0062
-377A 0021
-377A 003F
-377A 0061
-377A 0041
-377A 0062
-377B 0021
-377B 003F
-377B 0061
-377B 0041
-377B 0062
-377C 0021
-377C 003F
-377C 0061
-377C 0041
-377C 0062
-377D 0021
-377D 003F
-377D 0061
-377D 0041
-377D 0062
-377E 0021
-377E 003F
-377E 0061
-377E 0041
-377E 0062
-377F 0021
-377F 003F
-377F 0061
-377F 0041
-377F 0062
-3780 0021
-3780 003F
-3780 0061
-3780 0041
-3780 0062
-3781 0021
-2F876 0021
-3781 003F
-2F876 003F
-2F876 0334
-3781 0061
-2F876 0061
-3781 0041
-2F876 0041
-3781 0062
-2F876 0062
-3782 0021
-3782 003F
-3782 0061
-3782 0041
-3782 0062
-3783 0021
-3783 003F
-3783 0061
-3783 0041
-3783 0062
-3784 0021
-3784 003F
-3784 0061
-3784 0041
-3784 0062
-3785 0021
-3785 003F
-3785 0061
-3785 0041
-3785 0062
-3786 0021
-3786 003F
-3786 0061
-3786 0041
-3786 0062
-3787 0021
-3787 003F
-3787 0061
-3787 0041
-3787 0062
-3788 0021
-3788 003F
-3788 0061
-3788 0041
-3788 0062
-3789 0021
-3789 003F
-3789 0061
-3789 0041
-3789 0062
-378A 0021
-378A 003F
-378A 0061
-378A 0041
-378A 0062
-378B 0021
-378B 003F
-378B 0061
-378B 0041
-378B 0062
-378C 0021
-378C 003F
-378C 0061
-378C 0041
-378C 0062
-378D 0021
-378D 003F
-378D 0061
-378D 0041
-378D 0062
-378E 0021
-378E 003F
-378E 0061
-378E 0041
-378E 0062
-378F 0021
-378F 003F
-378F 0061
-378F 0041
-378F 0062
-3790 0021
-3790 003F
-3790 0061
-3790 0041
-3790 0062
-3791 0021
-3791 003F
-3791 0061
-3791 0041
-3791 0062
-3792 0021
-3792 003F
-3792 0061
-3792 0041
-3792 0062
-3793 0021
-3793 003F
-3793 0061
-3793 0041
-3793 0062
-3794 0021
-3794 003F
-3794 0061
-3794 0041
-3794 0062
-3795 0021
-3795 003F
-3795 0061
-3795 0041
-3795 0062
-3796 0021
-3796 003F
-3796 0061
-3796 0041
-3796 0062
-3797 0021
-3797 003F
-3797 0061
-3797 0041
-3797 0062
-3798 0021
-3798 003F
-3798 0061
-3798 0041
-3798 0062
-3799 0021
-3799 003F
-3799 0061
-3799 0041
-3799 0062
-379A 0021
-379A 003F
-379A 0061
-379A 0041
-379A 0062
-379B 0021
-379B 003F
-379B 0061
-379B 0041
-379B 0062
-379C 0021
-379C 003F
-379C 0061
-379C 0041
-379C 0062
-379D 0021
-379D 003F
-379D 0061
-379D 0041
-379D 0062
-379E 0021
-379E 003F
-379E 0061
-379E 0041
-379E 0062
-379F 0021
-379F 003F
-379F 0061
-379F 0041
-379F 0062
-37A0 0021
-37A0 003F
-37A0 0061
-37A0 0041
-37A0 0062
-37A1 0021
-37A1 003F
-37A1 0061
-37A1 0041
-37A1 0062
-37A2 0021
-37A2 003F
-37A2 0061
-37A2 0041
-37A2 0062
-37A3 0021
-37A3 003F
-37A3 0061
-37A3 0041
-37A3 0062
-37A4 0021
-37A4 003F
-37A4 0061
-37A4 0041
-37A4 0062
-37A5 0021
-37A5 003F
-37A5 0061
-37A5 0041
-37A5 0062
-37A6 0021
-37A6 003F
-37A6 0061
-37A6 0041
-37A6 0062
-37A7 0021
-37A7 003F
-37A7 0061
-37A7 0041
-37A7 0062
-37A8 0021
-37A8 003F
-37A8 0061
-37A8 0041
-37A8 0062
-37A9 0021
-37A9 003F
-37A9 0061
-37A9 0041
-37A9 0062
-37AA 0021
-37AA 003F
-37AA 0061
-37AA 0041
-37AA 0062
-37AB 0021
-37AB 003F
-37AB 0061
-37AB 0041
-37AB 0062
-37AC 0021
-37AC 003F
-37AC 0061
-37AC 0041
-37AC 0062
-37AD 0021
-37AD 003F
-37AD 0061
-37AD 0041
-37AD 0062
-37AE 0021
-37AE 003F
-37AE 0061
-37AE 0041
-37AE 0062
-37AF 0021
-37AF 003F
-37AF 0061
-37AF 0041
-37AF 0062
-37B0 0021
-37B0 003F
-37B0 0061
-37B0 0041
-37B0 0062
-37B1 0021
-37B1 003F
-37B1 0061
-37B1 0041
-37B1 0062
-37B2 0021
-37B2 003F
-37B2 0061
-37B2 0041
-37B2 0062
-37B3 0021
-37B3 003F
-37B3 0061
-37B3 0041
-37B3 0062
-37B4 0021
-37B4 003F
-37B4 0061
-37B4 0041
-37B4 0062
-37B5 0021
-37B5 003F
-37B5 0061
-37B5 0041
-37B5 0062
-37B6 0021
-37B6 003F
-37B6 0061
-37B6 0041
-37B6 0062
-37B7 0021
-37B7 003F
-37B7 0061
-37B7 0041
-37B7 0062
-37B8 0021
-37B8 003F
-37B8 0061
-37B8 0041
-37B8 0062
-37B9 0021
-37B9 003F
-37B9 0061
-37B9 0041
-37B9 0062
-37BA 0021
-37BA 003F
-37BA 0061
-37BA 0041
-37BA 0062
-37BB 0021
-37BB 003F
-37BB 0061
-37BB 0041
-37BB 0062
-37BC 0021
-37BC 003F
-37BC 0061
-37BC 0041
-37BC 0062
-37BD 0021
-37BD 003F
-37BD 0061
-37BD 0041
-37BD 0062
-37BE 0021
-37BE 003F
-37BE 0061
-37BE 0041
-37BE 0062
-37BF 0021
-37BF 003F
-37BF 0061
-37BF 0041
-37BF 0062
-37C0 0021
-37C0 003F
-37C0 0061
-37C0 0041
-37C0 0062
-37C1 0021
-37C1 003F
-37C1 0061
-37C1 0041
-37C1 0062
-37C2 0021
-37C2 003F
-37C2 0061
-37C2 0041
-37C2 0062
-37C3 0021
-37C3 003F
-37C3 0061
-37C3 0041
-37C3 0062
-37C4 0021
-37C4 003F
-37C4 0061
-37C4 0041
-37C4 0062
-37C5 0021
-37C5 003F
-37C5 0061
-37C5 0041
-37C5 0062
-37C6 0021
-37C6 003F
-37C6 0061
-37C6 0041
-37C6 0062
-37C7 0021
-37C7 003F
-37C7 0061
-37C7 0041
-37C7 0062
-37C8 0021
-37C8 003F
-37C8 0061
-37C8 0041
-37C8 0062
-37C9 0021
-37C9 003F
-37C9 0061
-37C9 0041
-37C9 0062
-37CA 0021
-37CA 003F
-37CA 0061
-37CA 0041
-37CA 0062
-37CB 0021
-37CB 003F
-37CB 0061
-37CB 0041
-37CB 0062
-37CC 0021
-37CC 003F
-37CC 0061
-37CC 0041
-37CC 0062
-37CD 0021
-37CD 003F
-37CD 0061
-37CD 0041
-37CD 0062
-37CE 0021
-37CE 003F
-37CE 0061
-37CE 0041
-37CE 0062
-37CF 0021
-37CF 003F
-37CF 0061
-37CF 0041
-37CF 0062
-37D0 0021
-37D0 003F
-37D0 0061
-37D0 0041
-37D0 0062
-37D1 0021
-37D1 003F
-37D1 0061
-37D1 0041
-37D1 0062
-37D2 0021
-37D2 003F
-37D2 0061
-37D2 0041
-37D2 0062
-37D3 0021
-37D3 003F
-37D3 0061
-37D3 0041
-37D3 0062
-37D4 0021
-37D4 003F
-37D4 0061
-37D4 0041
-37D4 0062
-37D5 0021
-37D5 003F
-37D5 0061
-37D5 0041
-37D5 0062
-37D6 0021
-37D6 003F
-37D6 0061
-37D6 0041
-37D6 0062
-37D7 0021
-37D7 003F
-37D7 0061
-37D7 0041
-37D7 0062
-37D8 0021
-37D8 003F
-37D8 0061
-37D8 0041
-37D8 0062
-37D9 0021
-37D9 003F
-37D9 0061
-37D9 0041
-37D9 0062
-37DA 0021
-37DA 003F
-37DA 0061
-37DA 0041
-37DA 0062
-37DB 0021
-37DB 003F
-37DB 0061
-37DB 0041
-37DB 0062
-37DC 0021
-37DC 003F
-37DC 0061
-37DC 0041
-37DC 0062
-37DD 0021
-37DD 003F
-37DD 0061
-37DD 0041
-37DD 0062
-37DE 0021
-37DE 003F
-37DE 0061
-37DE 0041
-37DE 0062
-37DF 0021
-37DF 003F
-37DF 0061
-37DF 0041
-37DF 0062
-37E0 0021
-37E0 003F
-37E0 0061
-37E0 0041
-37E0 0062
-37E1 0021
-37E1 003F
-37E1 0061
-37E1 0041
-37E1 0062
-37E2 0021
-37E2 003F
-37E2 0061
-37E2 0041
-37E2 0062
-37E3 0021
-37E3 003F
-37E3 0061
-37E3 0041
-37E3 0062
-37E4 0021
-37E4 003F
-37E4 0061
-37E4 0041
-37E4 0062
-37E5 0021
-37E5 003F
-37E5 0061
-37E5 0041
-37E5 0062
-37E6 0021
-37E6 003F
-37E6 0061
-37E6 0041
-37E6 0062
-37E7 0021
-37E7 003F
-37E7 0061
-37E7 0041
-37E7 0062
-37E8 0021
-37E8 003F
-37E8 0061
-37E8 0041
-37E8 0062
-37E9 0021
-37E9 003F
-37E9 0061
-37E9 0041
-37E9 0062
-37EA 0021
-37EA 003F
-37EA 0061
-37EA 0041
-37EA 0062
-37EB 0021
-37EB 003F
-37EB 0061
-37EB 0041
-37EB 0062
-37EC 0021
-37EC 003F
-37EC 0061
-37EC 0041
-37EC 0062
-37ED 0021
-37ED 003F
-37ED 0061
-37ED 0041
-37ED 0062
-37EE 0021
-37EE 003F
-37EE 0061
-37EE 0041
-37EE 0062
-37EF 0021
-37EF 003F
-37EF 0061
-37EF 0041
-37EF 0062
-37F0 0021
-37F0 003F
-37F0 0061
-37F0 0041
-37F0 0062
-37F1 0021
-37F1 003F
-37F1 0061
-37F1 0041
-37F1 0062
-37F2 0021
-37F2 003F
-37F2 0061
-37F2 0041
-37F2 0062
-37F3 0021
-37F3 003F
-37F3 0061
-37F3 0041
-37F3 0062
-37F4 0021
-37F4 003F
-37F4 0061
-37F4 0041
-37F4 0062
-37F5 0021
-37F5 003F
-37F5 0061
-37F5 0041
-37F5 0062
-37F6 0021
-37F6 003F
-37F6 0061
-37F6 0041
-37F6 0062
-37F7 0021
-37F7 003F
-37F7 0061
-37F7 0041
-37F7 0062
-37F8 0021
-37F8 003F
-37F8 0061
-37F8 0041
-37F8 0062
-37F9 0021
-37F9 003F
-37F9 0061
-37F9 0041
-37F9 0062
-37FA 0021
-37FA 003F
-37FA 0061
-37FA 0041
-37FA 0062
-37FB 0021
-37FB 003F
-37FB 0061
-37FB 0041
-37FB 0062
-37FC 0021
-37FC 003F
-37FC 0061
-37FC 0041
-37FC 0062
-37FD 0021
-37FD 003F
-37FD 0061
-37FD 0041
-37FD 0062
-37FE 0021
-37FE 003F
-37FE 0061
-37FE 0041
-37FE 0062
-37FF 0021
-37FF 003F
-37FF 0061
-37FF 0041
-37FF 0062
-3800 0021
-3800 003F
-3800 0061
-3800 0041
-3800 0062
-3801 0021
-3801 003F
-3801 0061
-3801 0041
-3801 0062
-3802 0021
-3802 003F
-3802 0061
-3802 0041
-3802 0062
-3803 0021
-3803 003F
-3803 0061
-3803 0041
-3803 0062
-3804 0021
-3804 003F
-3804 0061
-3804 0041
-3804 0062
-3805 0021
-3805 003F
-3805 0061
-3805 0041
-3805 0062
-3806 0021
-3806 003F
-3806 0061
-3806 0041
-3806 0062
-3807 0021
-3807 003F
-3807 0061
-3807 0041
-3807 0062
-3808 0021
-3808 003F
-3808 0061
-3808 0041
-3808 0062
-3809 0021
-3809 003F
-3809 0061
-3809 0041
-3809 0062
-380A 0021
-380A 003F
-380A 0061
-380A 0041
-380A 0062
-380B 0021
-380B 003F
-380B 0061
-380B 0041
-380B 0062
-380C 0021
-380C 003F
-380C 0061
-380C 0041
-380C 0062
-380D 0021
-380D 003F
-380D 0061
-380D 0041
-380D 0062
-380E 0021
-380E 003F
-380E 0061
-380E 0041
-380E 0062
-380F 0021
-380F 003F
-380F 0061
-380F 0041
-380F 0062
-3810 0021
-3810 003F
-3810 0061
-3810 0041
-3810 0062
-3811 0021
-3811 003F
-3811 0061
-3811 0041
-3811 0062
-3812 0021
-3812 003F
-3812 0061
-3812 0041
-3812 0062
-3813 0021
-3813 003F
-3813 0061
-3813 0041
-3813 0062
-3814 0021
-3814 003F
-3814 0061
-3814 0041
-3814 0062
-3815 0021
-3815 003F
-3815 0061
-3815 0041
-3815 0062
-3816 0021
-3816 003F
-3816 0061
-3816 0041
-3816 0062
-3817 0021
-3817 003F
-3817 0061
-3817 0041
-3817 0062
-3818 0021
-3818 003F
-3818 0061
-3818 0041
-3818 0062
-3819 0021
-3819 003F
-3819 0061
-3819 0041
-3819 0062
-381A 0021
-381A 003F
-381A 0061
-381A 0041
-381A 0062
-381B 0021
-381B 003F
-381B 0061
-381B 0041
-381B 0062
-381C 0021
-381C 003F
-381C 0061
-381C 0041
-381C 0062
-381D 0021
-381D 003F
-381D 0061
-381D 0041
-381D 0062
-381E 0021
-381E 003F
-381E 0061
-381E 0041
-381E 0062
-381F 0021
-381F 003F
-381F 0061
-381F 0041
-381F 0062
-3820 0021
-3820 003F
-3820 0061
-3820 0041
-3820 0062
-3821 0021
-3821 003F
-3821 0061
-3821 0041
-3821 0062
-3822 0021
-3822 003F
-3822 0061
-3822 0041
-3822 0062
-3823 0021
-3823 003F
-3823 0061
-3823 0041
-3823 0062
-3824 0021
-3824 003F
-3824 0061
-3824 0041
-3824 0062
-3825 0021
-3825 003F
-3825 0061
-3825 0041
-3825 0062
-3826 0021
-3826 003F
-3826 0061
-3826 0041
-3826 0062
-3827 0021
-3827 003F
-3827 0061
-3827 0041
-3827 0062
-3828 0021
-3828 003F
-3828 0061
-3828 0041
-3828 0062
-3829 0021
-3829 003F
-3829 0061
-3829 0041
-3829 0062
-382A 0021
-382A 003F
-382A 0061
-382A 0041
-382A 0062
-382B 0021
-382B 003F
-382B 0061
-382B 0041
-382B 0062
-382C 0021
-382C 003F
-382C 0061
-382C 0041
-382C 0062
-382D 0021
-382D 003F
-382D 0061
-382D 0041
-382D 0062
-382E 0021
-382E 003F
-382E 0061
-382E 0041
-382E 0062
-382F 0021
-2F883 0021
-382F 003F
-2F883 003F
-2F883 0334
-382F 0061
-2F883 0061
-382F 0041
-2F883 0041
-382F 0062
-2F883 0062
-3830 0021
-3830 003F
-3830 0061
-3830 0041
-3830 0062
-3831 0021
-3831 003F
-3831 0061
-3831 0041
-3831 0062
-3832 0021
-3832 003F
-3832 0061
-3832 0041
-3832 0062
-3833 0021
-3833 003F
-3833 0061
-3833 0041
-3833 0062
-3834 0021
-3834 003F
-3834 0061
-3834 0041
-3834 0062
-3835 0021
-3835 003F
-3835 0061
-3835 0041
-3835 0062
-3836 0021
-3836 003F
-3836 0061
-3836 0041
-3836 0062
-3837 0021
-3837 003F
-3837 0061
-3837 0041
-3837 0062
-3838 0021
-3838 003F
-3838 0061
-3838 0041
-3838 0062
-3839 0021
-3839 003F
-3839 0061
-3839 0041
-3839 0062
-383A 0021
-383A 003F
-383A 0061
-383A 0041
-383A 0062
-383B 0021
-383B 003F
-383B 0061
-383B 0041
-383B 0062
-383C 0021
-383C 003F
-383C 0061
-383C 0041
-383C 0062
-383D 0021
-383D 003F
-383D 0061
-383D 0041
-383D 0062
-383E 0021
-383E 003F
-383E 0061
-383E 0041
-383E 0062
-383F 0021
-383F 003F
-383F 0061
-383F 0041
-383F 0062
-3840 0021
-3840 003F
-3840 0061
-3840 0041
-3840 0062
-3841 0021
-3841 003F
-3841 0061
-3841 0041
-3841 0062
-3842 0021
-3842 003F
-3842 0061
-3842 0041
-3842 0062
-3843 0021
-3843 003F
-3843 0061
-3843 0041
-3843 0062
-3844 0021
-3844 003F
-3844 0061
-3844 0041
-3844 0062
-3845 0021
-3845 003F
-3845 0061
-3845 0041
-3845 0062
-3846 0021
-3846 003F
-3846 0061
-3846 0041
-3846 0062
-3847 0021
-3847 003F
-3847 0061
-3847 0041
-3847 0062
-3848 0021
-3848 003F
-3848 0061
-3848 0041
-3848 0062
-3849 0021
-3849 003F
-3849 0061
-3849 0041
-3849 0062
-384A 0021
-384A 003F
-384A 0061
-384A 0041
-384A 0062
-384B 0021
-384B 003F
-384B 0061
-384B 0041
-384B 0062
-384C 0021
-384C 003F
-384C 0061
-384C 0041
-384C 0062
-384D 0021
-384D 003F
-384D 0061
-384D 0041
-384D 0062
-384E 0021
-384E 003F
-384E 0061
-384E 0041
-384E 0062
-384F 0021
-384F 003F
-384F 0061
-384F 0041
-384F 0062
-3850 0021
-3850 003F
-3850 0061
-3850 0041
-3850 0062
-3851 0021
-3851 003F
-3851 0061
-3851 0041
-3851 0062
-3852 0021
-3852 003F
-3852 0061
-3852 0041
-3852 0062
-3853 0021
-3853 003F
-3853 0061
-3853 0041
-3853 0062
-3854 0021
-3854 003F
-3854 0061
-3854 0041
-3854 0062
-3855 0021
-3855 003F
-3855 0061
-3855 0041
-3855 0062
-3856 0021
-3856 003F
-3856 0061
-3856 0041
-3856 0062
-3857 0021
-3857 003F
-3857 0061
-3857 0041
-3857 0062
-3858 0021
-3858 003F
-3858 0061
-3858 0041
-3858 0062
-3859 0021
-3859 003F
-3859 0061
-3859 0041
-3859 0062
-385A 0021
-385A 003F
-385A 0061
-385A 0041
-385A 0062
-385B 0021
-385B 003F
-385B 0061
-385B 0041
-385B 0062
-385C 0021
-385C 003F
-385C 0061
-385C 0041
-385C 0062
-385D 0021
-385D 003F
-385D 0061
-385D 0041
-385D 0062
-385E 0021
-385E 003F
-385E 0061
-385E 0041
-385E 0062
-385F 0021
-385F 003F
-385F 0061
-385F 0041
-385F 0062
-3860 0021
-3860 003F
-3860 0061
-3860 0041
-3860 0062
-3861 0021
-3861 003F
-3861 0061
-3861 0041
-3861 0062
-3862 0021
-2F888 0021
-3862 003F
-2F888 003F
-2F888 0334
-3862 0061
-2F888 0061
-3862 0041
-2F888 0041
-3862 0062
-2F888 0062
-3863 0021
-3863 003F
-3863 0061
-3863 0041
-3863 0062
-3864 0021
-3864 003F
-3864 0061
-3864 0041
-3864 0062
-3865 0021
-3865 003F
-3865 0061
-3865 0041
-3865 0062
-3866 0021
-3866 003F
-3866 0061
-3866 0041
-3866 0062
-3867 0021
-3867 003F
-3867 0061
-3867 0041
-3867 0062
-3868 0021
-3868 003F
-3868 0061
-3868 0041
-3868 0062
-3869 0021
-3869 003F
-3869 0061
-3869 0041
-3869 0062
-386A 0021
-386A 003F
-386A 0061
-386A 0041
-386A 0062
-386B 0021
-386B 003F
-386B 0061
-386B 0041
-386B 0062
-386C 0021
-386C 003F
-386C 0061
-386C 0041
-386C 0062
-386D 0021
-386D 003F
-386D 0061
-386D 0041
-386D 0062
-386E 0021
-386E 003F
-386E 0061
-386E 0041
-386E 0062
-386F 0021
-386F 003F
-386F 0061
-386F 0041
-386F 0062
-3870 0021
-3870 003F
-3870 0061
-3870 0041
-3870 0062
-3871 0021
-3871 003F
-3871 0061
-3871 0041
-3871 0062
-3872 0021
-3872 003F
-3872 0061
-3872 0041
-3872 0062
-3873 0021
-3873 003F
-3873 0061
-3873 0041
-3873 0062
-3874 0021
-3874 003F
-3874 0061
-3874 0041
-3874 0062
-3875 0021
-3875 003F
-3875 0061
-3875 0041
-3875 0062
-3876 0021
-3876 003F
-3876 0061
-3876 0041
-3876 0062
-3877 0021
-3877 003F
-3877 0061
-3877 0041
-3877 0062
-3878 0021
-3878 003F
-3878 0061
-3878 0041
-3878 0062
-3879 0021
-3879 003F
-3879 0061
-3879 0041
-3879 0062
-387A 0021
-387A 003F
-387A 0061
-387A 0041
-387A 0062
-387B 0021
-387B 003F
-387B 0061
-387B 0041
-387B 0062
-387C 0021
-2F88A 0021
-387C 003F
-2F88A 003F
-2F88A 0334
-387C 0061
-2F88A 0061
-387C 0041
-2F88A 0041
-387C 0062
-2F88A 0062
-387D 0021
-387D 003F
-387D 0061
-387D 0041
-387D 0062
-387E 0021
-387E 003F
-387E 0061
-387E 0041
-387E 0062
-387F 0021
-387F 003F
-387F 0061
-387F 0041
-387F 0062
-3880 0021
-3880 003F
-3880 0061
-3880 0041
-3880 0062
-3881 0021
-3881 003F
-3881 0061
-3881 0041
-3881 0062
-3882 0021
-3882 003F
-3882 0061
-3882 0041
-3882 0062
-3883 0021
-3883 003F
-3883 0061
-3883 0041
-3883 0062
-3884 0021
-3884 003F
-3884 0061
-3884 0041
-3884 0062
-3885 0021
-3885 003F
-3885 0061
-3885 0041
-3885 0062
-3886 0021
-3886 003F
-3886 0061
-3886 0041
-3886 0062
-3887 0021
-3887 003F
-3887 0061
-3887 0041
-3887 0062
-3888 0021
-3888 003F
-3888 0061
-3888 0041
-3888 0062
-3889 0021
-3889 003F
-3889 0061
-3889 0041
-3889 0062
-388A 0021
-388A 003F
-388A 0061
-388A 0041
-388A 0062
-388B 0021
-388B 003F
-388B 0061
-388B 0041
-388B 0062
-388C 0021
-388C 003F
-388C 0061
-388C 0041
-388C 0062
-388D 0021
-388D 003F
-388D 0061
-388D 0041
-388D 0062
-388E 0021
-388E 003F
-388E 0061
-388E 0041
-388E 0062
-388F 0021
-388F 003F
-388F 0061
-388F 0041
-388F 0062
-3890 0021
-3890 003F
-3890 0061
-3890 0041
-3890 0062
-3891 0021
-3891 003F
-3891 0061
-3891 0041
-3891 0062
-3892 0021
-3892 003F
-3892 0061
-3892 0041
-3892 0062
-3893 0021
-3893 003F
-3893 0061
-3893 0041
-3893 0062
-3894 0021
-3894 003F
-3894 0061
-3894 0041
-3894 0062
-3895 0021
-3895 003F
-3895 0061
-3895 0041
-3895 0062
-3896 0021
-3896 003F
-3896 0061
-3896 0041
-3896 0062
-3897 0021
-3897 003F
-3897 0061
-3897 0041
-3897 0062
-3898 0021
-3898 003F
-3898 0061
-3898 0041
-3898 0062
-3899 0021
-3899 003F
-3899 0061
-3899 0041
-3899 0062
-389A 0021
-389A 003F
-389A 0061
-389A 0041
-389A 0062
-389B 0021
-389B 003F
-389B 0061
-389B 0041
-389B 0062
-389C 0021
-389C 003F
-389C 0061
-389C 0041
-389C 0062
-389D 0021
-389D 003F
-389D 0061
-389D 0041
-389D 0062
-389E 0021
-389E 003F
-389E 0061
-389E 0041
-389E 0062
-389F 0021
-389F 003F
-389F 0061
-389F 0041
-389F 0062
-38A0 0021
-38A0 003F
-38A0 0061
-38A0 0041
-38A0 0062
-38A1 0021
-38A1 003F
-38A1 0061
-38A1 0041
-38A1 0062
-38A2 0021
-38A2 003F
-38A2 0061
-38A2 0041
-38A2 0062
-38A3 0021
-38A3 003F
-38A3 0061
-38A3 0041
-38A3 0062
-38A4 0021
-38A4 003F
-38A4 0061
-38A4 0041
-38A4 0062
-38A5 0021
-38A5 003F
-38A5 0061
-38A5 0041
-38A5 0062
-38A6 0021
-38A6 003F
-38A6 0061
-38A6 0041
-38A6 0062
-38A7 0021
-38A7 003F
-38A7 0061
-38A7 0041
-38A7 0062
-38A8 0021
-38A8 003F
-38A8 0061
-38A8 0041
-38A8 0062
-38A9 0021
-38A9 003F
-38A9 0061
-38A9 0041
-38A9 0062
-38AA 0021
-38AA 003F
-38AA 0061
-38AA 0041
-38AA 0062
-38AB 0021
-38AB 003F
-38AB 0061
-38AB 0041
-38AB 0062
-38AC 0021
-38AC 003F
-38AC 0061
-38AC 0041
-38AC 0062
-38AD 0021
-38AD 003F
-38AD 0061
-38AD 0041
-38AD 0062
-38AE 0021
-38AE 003F
-38AE 0061
-38AE 0041
-38AE 0062
-38AF 0021
-38AF 003F
-38AF 0061
-38AF 0041
-38AF 0062
-38B0 0021
-38B0 003F
-38B0 0061
-38B0 0041
-38B0 0062
-38B1 0021
-38B1 003F
-38B1 0061
-38B1 0041
-38B1 0062
-38B2 0021
-38B2 003F
-38B2 0061
-38B2 0041
-38B2 0062
-38B3 0021
-38B3 003F
-38B3 0061
-38B3 0041
-38B3 0062
-38B4 0021
-38B4 003F
-38B4 0061
-38B4 0041
-38B4 0062
-38B5 0021
-38B5 003F
-38B5 0061
-38B5 0041
-38B5 0062
-38B6 0021
-38B6 003F
-38B6 0061
-38B6 0041
-38B6 0062
-38B7 0021
-38B7 003F
-38B7 0061
-38B7 0041
-38B7 0062
-38B8 0021
-38B8 003F
-38B8 0061
-38B8 0041
-38B8 0062
-38B9 0021
-38B9 003F
-38B9 0061
-38B9 0041
-38B9 0062
-38BA 0021
-38BA 003F
-38BA 0061
-38BA 0041
-38BA 0062
-38BB 0021
-38BB 003F
-38BB 0061
-38BB 0041
-38BB 0062
-38BC 0021
-38BC 003F
-38BC 0061
-38BC 0041
-38BC 0062
-38BD 0021
-38BD 003F
-38BD 0061
-38BD 0041
-38BD 0062
-38BE 0021
-38BE 003F
-38BE 0061
-38BE 0041
-38BE 0062
-38BF 0021
-38BF 003F
-38BF 0061
-38BF 0041
-38BF 0062
-38C0 0021
-38C0 003F
-38C0 0061
-38C0 0041
-38C0 0062
-38C1 0021
-38C1 003F
-38C1 0061
-38C1 0041
-38C1 0062
-38C2 0021
-38C2 003F
-38C2 0061
-38C2 0041
-38C2 0062
-38C3 0021
-38C3 003F
-38C3 0061
-38C3 0041
-38C3 0062
-38C4 0021
-38C4 003F
-38C4 0061
-38C4 0041
-38C4 0062
-38C5 0021
-38C5 003F
-38C5 0061
-38C5 0041
-38C5 0062
-38C6 0021
-38C6 003F
-38C6 0061
-38C6 0041
-38C6 0062
-38C7 0021
-2F896 0021
-38C7 003F
-2F896 003F
-2F896 0334
-38C7 0061
-2F896 0061
-38C7 0041
-2F896 0041
-38C7 0062
-2F896 0062
-38C8 0021
-38C8 003F
-38C8 0061
-38C8 0041
-38C8 0062
-38C9 0021
-38C9 003F
-38C9 0061
-38C9 0041
-38C9 0062
-38CA 0021
-38CA 003F
-38CA 0061
-38CA 0041
-38CA 0062
-38CB 0021
-38CB 003F
-38CB 0061
-38CB 0041
-38CB 0062
-38CC 0021
-38CC 003F
-38CC 0061
-38CC 0041
-38CC 0062
-38CD 0021
-38CD 003F
-38CD 0061
-38CD 0041
-38CD 0062
-38CE 0021
-38CE 003F
-38CE 0061
-38CE 0041
-38CE 0062
-38CF 0021
-38CF 003F
-38CF 0061
-38CF 0041
-38CF 0062
-38D0 0021
-38D0 003F
-38D0 0061
-38D0 0041
-38D0 0062
-38D1 0021
-38D1 003F
-38D1 0061
-38D1 0041
-38D1 0062
-38D2 0021
-38D2 003F
-38D2 0061
-38D2 0041
-38D2 0062
-38D3 0021
-38D3 003F
-38D3 0061
-38D3 0041
-38D3 0062
-38D4 0021
-38D4 003F
-38D4 0061
-38D4 0041
-38D4 0062
-38D5 0021
-38D5 003F
-38D5 0061
-38D5 0041
-38D5 0062
-38D6 0021
-38D6 003F
-38D6 0061
-38D6 0041
-38D6 0062
-38D7 0021
-38D7 003F
-38D7 0061
-38D7 0041
-38D7 0062
-38D8 0021
-38D8 003F
-38D8 0061
-38D8 0041
-38D8 0062
-38D9 0021
-38D9 003F
-38D9 0061
-38D9 0041
-38D9 0062
-38DA 0021
-38DA 003F
-38DA 0061
-38DA 0041
-38DA 0062
-38DB 0021
-38DB 003F
-38DB 0061
-38DB 0041
-38DB 0062
-38DC 0021
-38DC 003F
-38DC 0061
-38DC 0041
-38DC 0062
-38DD 0021
-38DD 003F
-38DD 0061
-38DD 0041
-38DD 0062
-38DE 0021
-38DE 003F
-38DE 0061
-38DE 0041
-38DE 0062
-38DF 0021
-38DF 003F
-38DF 0061
-38DF 0041
-38DF 0062
-38E0 0021
-38E0 003F
-38E0 0061
-38E0 0041
-38E0 0062
-38E1 0021
-38E1 003F
-38E1 0061
-38E1 0041
-38E1 0062
-38E2 0021
-38E2 003F
-38E2 0061
-38E2 0041
-38E2 0062
-38E3 0021
-2F89B 0021
-38E3 003F
-2F89B 003F
-2F89B 0334
-38E3 0061
-2F89B 0061
-38E3 0041
-2F89B 0041
-38E3 0062
-2F89B 0062
-38E4 0021
-38E4 003F
-38E4 0061
-38E4 0041
-38E4 0062
-38E5 0021
-38E5 003F
-38E5 0061
-38E5 0041
-38E5 0062
-38E6 0021
-38E6 003F
-38E6 0061
-38E6 0041
-38E6 0062
-38E7 0021
-38E7 003F
-38E7 0061
-38E7 0041
-38E7 0062
-38E8 0021
-38E8 003F
-38E8 0061
-38E8 0041
-38E8 0062
-38E9 0021
-38E9 003F
-38E9 0061
-38E9 0041
-38E9 0062
-38EA 0021
-38EA 003F
-38EA 0061
-38EA 0041
-38EA 0062
-38EB 0021
-38EB 003F
-38EB 0061
-38EB 0041
-38EB 0062
-38EC 0021
-38EC 003F
-38EC 0061
-38EC 0041
-38EC 0062
-38ED 0021
-38ED 003F
-38ED 0061
-38ED 0041
-38ED 0062
-38EE 0021
-38EE 003F
-38EE 0061
-38EE 0041
-38EE 0062
-38EF 0021
-38EF 003F
-38EF 0061
-38EF 0041
-38EF 0062
-38F0 0021
-38F0 003F
-38F0 0061
-38F0 0041
-38F0 0062
-38F1 0021
-38F1 003F
-38F1 0061
-38F1 0041
-38F1 0062
-38F2 0021
-38F2 003F
-38F2 0061
-38F2 0041
-38F2 0062
-38F3 0021
-38F3 003F
-38F3 0061
-38F3 0041
-38F3 0062
-38F4 0021
-38F4 003F
-38F4 0061
-38F4 0041
-38F4 0062
-38F5 0021
-38F5 003F
-38F5 0061
-38F5 0041
-38F5 0062
-38F6 0021
-38F6 003F
-38F6 0061
-38F6 0041
-38F6 0062
-38F7 0021
-38F7 003F
-38F7 0061
-38F7 0041
-38F7 0062
-38F8 0021
-38F8 003F
-38F8 0061
-38F8 0041
-38F8 0062
-38F9 0021
-38F9 003F
-38F9 0061
-38F9 0041
-38F9 0062
-38FA 0021
-38FA 003F
-38FA 0061
-38FA 0041
-38FA 0062
-38FB 0021
-38FB 003F
-38FB 0061
-38FB 0041
-38FB 0062
-38FC 0021
-38FC 003F
-38FC 0061
-38FC 0041
-38FC 0062
-38FD 0021
-38FD 003F
-38FD 0061
-38FD 0041
-38FD 0062
-38FE 0021
-38FE 003F
-38FE 0061
-38FE 0041
-38FE 0062
-38FF 0021
-38FF 003F
-38FF 0061
-38FF 0041
-38FF 0062
-3900 0021
-3900 003F
-3900 0061
-3900 0041
-3900 0062
-3901 0021
-3901 003F
-3901 0061
-3901 0041
-3901 0062
-3902 0021
-3902 003F
-3902 0061
-3902 0041
-3902 0062
-3903 0021
-3903 003F
-3903 0061
-3903 0041
-3903 0062
-3904 0021
-3904 003F
-3904 0061
-3904 0041
-3904 0062
-3905 0021
-3905 003F
-3905 0061
-3905 0041
-3905 0062
-3906 0021
-3906 003F
-3906 0061
-3906 0041
-3906 0062
-3907 0021
-3907 003F
-3907 0061
-3907 0041
-3907 0062
-3908 0021
-3908 003F
-3908 0061
-3908 0041
-3908 0062
-3909 0021
-3909 003F
-3909 0061
-3909 0041
-3909 0062
-390A 0021
-390A 003F
-390A 0061
-390A 0041
-390A 0062
-390B 0021
-390B 003F
-390B 0061
-390B 0041
-390B 0062
-390C 0021
-390C 003F
-390C 0061
-390C 0041
-390C 0062
-390D 0021
-390D 003F
-390D 0061
-390D 0041
-390D 0062
-390E 0021
-390E 003F
-390E 0061
-390E 0041
-390E 0062
-390F 0021
-390F 003F
-390F 0061
-390F 0041
-390F 0062
-3910 0021
-3910 003F
-3910 0061
-3910 0041
-3910 0062
-3911 0021
-3911 003F
-3911 0061
-3911 0041
-3911 0062
-3912 0021
-3912 003F
-3912 0061
-3912 0041
-3912 0062
-3913 0021
-3913 003F
-3913 0061
-3913 0041
-3913 0062
-3914 0021
-3914 003F
-3914 0061
-3914 0041
-3914 0062
-3915 0021
-3915 003F
-3915 0061
-3915 0041
-3915 0062
-3916 0021
-3916 003F
-3916 0061
-3916 0041
-3916 0062
-3917 0021
-3917 003F
-3917 0061
-3917 0041
-3917 0062
-3918 0021
-3918 003F
-3918 0061
-3918 0041
-3918 0062
-3919 0021
-3919 003F
-3919 0061
-3919 0041
-3919 0062
-391A 0021
-391A 003F
-391A 0061
-391A 0041
-391A 0062
-391B 0021
-391B 003F
-391B 0061
-391B 0041
-391B 0062
-391C 0021
-2F8A2 0021
-391C 003F
-2F8A2 003F
-2F8A2 0334
-391C 0061
-2F8A2 0061
-391C 0041
-2F8A2 0041
-391C 0062
-2F8A2 0062
-391D 0021
-391D 003F
-391D 0061
-391D 0041
-391D 0062
-391E 0021
-391E 003F
-391E 0061
-391E 0041
-391E 0062
-391F 0021
-391F 003F
-391F 0061
-391F 0041
-391F 0062
-3920 0021
-3920 003F
-3920 0061
-3920 0041
-3920 0062
-3921 0021
-3921 003F
-3921 0061
-3921 0041
-3921 0062
-3922 0021
-3922 003F
-3922 0061
-3922 0041
-3922 0062
-3923 0021
-3923 003F
-3923 0061
-3923 0041
-3923 0062
-3924 0021
-3924 003F
-3924 0061
-3924 0041
-3924 0062
-3925 0021
-3925 003F
-3925 0061
-3925 0041
-3925 0062
-3926 0021
-3926 003F
-3926 0061
-3926 0041
-3926 0062
-3927 0021
-3927 003F
-3927 0061
-3927 0041
-3927 0062
-3928 0021
-3928 003F
-3928 0061
-3928 0041
-3928 0062
-3929 0021
-3929 003F
-3929 0061
-3929 0041
-3929 0062
-392A 0021
-392A 003F
-392A 0061
-392A 0041
-392A 0062
-392B 0021
-392B 003F
-392B 0061
-392B 0041
-392B 0062
-392C 0021
-392C 003F
-392C 0061
-392C 0041
-392C 0062
-392D 0021
-392D 003F
-392D 0061
-392D 0041
-392D 0062
-392E 0021
-392E 003F
-392E 0061
-392E 0041
-392E 0062
-392F 0021
-392F 003F
-392F 0061
-392F 0041
-392F 0062
-3930 0021
-3930 003F
-3930 0061
-3930 0041
-3930 0062
-3931 0021
-3931 003F
-3931 0061
-3931 0041
-3931 0062
-3932 0021
-3932 003F
-3932 0061
-3932 0041
-3932 0062
-3933 0021
-3933 003F
-3933 0061
-3933 0041
-3933 0062
-3934 0021
-3934 003F
-3934 0061
-3934 0041
-3934 0062
-3935 0021
-3935 003F
-3935 0061
-3935 0041
-3935 0062
-3936 0021
-3936 003F
-3936 0061
-3936 0041
-3936 0062
-3937 0021
-3937 003F
-3937 0061
-3937 0041
-3937 0062
-3938 0021
-3938 003F
-3938 0061
-3938 0041
-3938 0062
-3939 0021
-3939 003F
-3939 0061
-3939 0041
-3939 0062
-393A 0021
-2F8A1 0021
-393A 003F
-2F8A1 003F
-2F8A1 0334
-393A 0061
-2F8A1 0061
-393A 0041
-2F8A1 0041
-393A 0062
-2F8A1 0062
-393B 0021
-393B 003F
-393B 0061
-393B 0041
-393B 0062
-393C 0021
-393C 003F
-393C 0061
-393C 0041
-393C 0062
-393D 0021
-393D 003F
-393D 0061
-393D 0041
-393D 0062
-393E 0021
-393E 003F
-393E 0061
-393E 0041
-393E 0062
-393F 0021
-393F 003F
-393F 0061
-393F 0041
-393F 0062
-3940 0021
-3940 003F
-3940 0061
-3940 0041
-3940 0062
-3941 0021
-3941 003F
-3941 0061
-3941 0041
-3941 0062
-3942 0021
-3942 003F
-3942 0061
-3942 0041
-3942 0062
-3943 0021
-3943 003F
-3943 0061
-3943 0041
-3943 0062
-3944 0021
-3944 003F
-3944 0061
-3944 0041
-3944 0062
-3945 0021
-3945 003F
-3945 0061
-3945 0041
-3945 0062
-3946 0021
-3946 003F
-3946 0061
-3946 0041
-3946 0062
-3947 0021
-3947 003F
-3947 0061
-3947 0041
-3947 0062
-3948 0021
-3948 003F
-3948 0061
-3948 0041
-3948 0062
-3949 0021
-3949 003F
-3949 0061
-3949 0041
-3949 0062
-394A 0021
-394A 003F
-394A 0061
-394A 0041
-394A 0062
-394B 0021
-394B 003F
-394B 0061
-394B 0041
-394B 0062
-394C 0021
-394C 003F
-394C 0061
-394C 0041
-394C 0062
-394D 0021
-394D 003F
-394D 0061
-394D 0041
-394D 0062
-394E 0021
-394E 003F
-394E 0061
-394E 0041
-394E 0062
-394F 0021
-394F 003F
-394F 0061
-394F 0041
-394F 0062
-3950 0021
-3950 003F
-3950 0061
-3950 0041
-3950 0062
-3951 0021
-3951 003F
-3951 0061
-3951 0041
-3951 0062
-3952 0021
-3952 003F
-3952 0061
-3952 0041
-3952 0062
-3953 0021
-3953 003F
-3953 0061
-3953 0041
-3953 0062
-3954 0021
-3954 003F
-3954 0061
-3954 0041
-3954 0062
-3955 0021
-3955 003F
-3955 0061
-3955 0041
-3955 0062
-3956 0021
-3956 003F
-3956 0061
-3956 0041
-3956 0062
-3957 0021
-3957 003F
-3957 0061
-3957 0041
-3957 0062
-3958 0021
-3958 003F
-3958 0061
-3958 0041
-3958 0062
-3959 0021
-3959 003F
-3959 0061
-3959 0041
-3959 0062
-395A 0021
-395A 003F
-395A 0061
-395A 0041
-395A 0062
-395B 0021
-395B 003F
-395B 0061
-395B 0041
-395B 0062
-395C 0021
-395C 003F
-395C 0061
-395C 0041
-395C 0062
-395D 0021
-395D 003F
-395D 0061
-395D 0041
-395D 0062
-395E 0021
-395E 003F
-395E 0061
-395E 0041
-395E 0062
-395F 0021
-395F 003F
-395F 0061
-395F 0041
-395F 0062
-3960 0021
-3960 003F
-3960 0061
-3960 0041
-3960 0062
-3961 0021
-3961 003F
-3961 0061
-3961 0041
-3961 0062
-3962 0021
-3962 003F
-3962 0061
-3962 0041
-3962 0062
-3963 0021
-3963 003F
-3963 0061
-3963 0041
-3963 0062
-3964 0021
-3964 003F
-3964 0061
-3964 0041
-3964 0062
-3965 0021
-3965 003F
-3965 0061
-3965 0041
-3965 0062
-3966 0021
-3966 003F
-3966 0061
-3966 0041
-3966 0062
-3967 0021
-3967 003F
-3967 0061
-3967 0041
-3967 0062
-3968 0021
-3968 003F
-3968 0061
-3968 0041
-3968 0062
-3969 0021
-3969 003F
-3969 0061
-3969 0041
-3969 0062
-396A 0021
-396A 003F
-396A 0061
-396A 0041
-396A 0062
-396B 0021
-396B 003F
-396B 0061
-396B 0041
-396B 0062
-396C 0021
-396C 003F
-396C 0061
-396C 0041
-396C 0062
-396D 0021
-396D 003F
-396D 0061
-396D 0041
-396D 0062
-396E 0021
-396E 003F
-396E 0061
-396E 0041
-396E 0062
-396F 0021
-396F 003F
-396F 0061
-396F 0041
-396F 0062
-3970 0021
-3970 003F
-3970 0061
-3970 0041
-3970 0062
-3971 0021
-3971 003F
-3971 0061
-3971 0041
-3971 0062
-3972 0021
-3972 003F
-3972 0061
-3972 0041
-3972 0062
-3973 0021
-3973 003F
-3973 0061
-3973 0041
-3973 0062
-3974 0021
-3974 003F
-3974 0061
-3974 0041
-3974 0062
-3975 0021
-3975 003F
-3975 0061
-3975 0041
-3975 0062
-3976 0021
-3976 003F
-3976 0061
-3976 0041
-3976 0062
-3977 0021
-3977 003F
-3977 0061
-3977 0041
-3977 0062
-3978 0021
-3978 003F
-3978 0061
-3978 0041
-3978 0062
-3979 0021
-3979 003F
-3979 0061
-3979 0041
-3979 0062
-397A 0021
-397A 003F
-397A 0061
-397A 0041
-397A 0062
-397B 0021
-397B 003F
-397B 0061
-397B 0041
-397B 0062
-397C 0021
-397C 003F
-397C 0061
-397C 0041
-397C 0062
-397D 0021
-397D 003F
-397D 0061
-397D 0041
-397D 0062
-397E 0021
-397E 003F
-397E 0061
-397E 0041
-397E 0062
-397F 0021
-397F 003F
-397F 0061
-397F 0041
-397F 0062
-3980 0021
-3980 003F
-3980 0061
-3980 0041
-3980 0062
-3981 0021
-3981 003F
-3981 0061
-3981 0041
-3981 0062
-3982 0021
-3982 003F
-3982 0061
-3982 0041
-3982 0062
-3983 0021
-3983 003F
-3983 0061
-3983 0041
-3983 0062
-3984 0021
-3984 003F
-3984 0061
-3984 0041
-3984 0062
-3985 0021
-3985 003F
-3985 0061
-3985 0041
-3985 0062
-3986 0021
-3986 003F
-3986 0061
-3986 0041
-3986 0062
-3987 0021
-3987 003F
-3987 0061
-3987 0041
-3987 0062
-3988 0021
-3988 003F
-3988 0061
-3988 0041
-3988 0062
-3989 0021
-3989 003F
-3989 0061
-3989 0041
-3989 0062
-398A 0021
-398A 003F
-398A 0061
-398A 0041
-398A 0062
-398B 0021
-398B 003F
-398B 0061
-398B 0041
-398B 0062
-398C 0021
-398C 003F
-398C 0061
-398C 0041
-398C 0062
-398D 0021
-398D 003F
-398D 0061
-398D 0041
-398D 0062
-398E 0021
-398E 003F
-398E 0061
-398E 0041
-398E 0062
-398F 0021
-398F 003F
-398F 0061
-398F 0041
-398F 0062
-3990 0021
-3990 003F
-3990 0061
-3990 0041
-3990 0062
-3991 0021
-3991 003F
-3991 0061
-3991 0041
-3991 0062
-3992 0021
-3992 003F
-3992 0061
-3992 0041
-3992 0062
-3993 0021
-3993 003F
-3993 0061
-3993 0041
-3993 0062
-3994 0021
-3994 003F
-3994 0061
-3994 0041
-3994 0062
-3995 0021
-3995 003F
-3995 0061
-3995 0041
-3995 0062
-3996 0021
-3996 003F
-3996 0061
-3996 0041
-3996 0062
-3997 0021
-3997 003F
-3997 0061
-3997 0041
-3997 0062
-3998 0021
-3998 003F
-3998 0061
-3998 0041
-3998 0062
-3999 0021
-3999 003F
-3999 0061
-3999 0041
-3999 0062
-399A 0021
-399A 003F
-399A 0061
-399A 0041
-399A 0062
-399B 0021
-399B 003F
-399B 0061
-399B 0041
-399B 0062
-399C 0021
-399C 003F
-399C 0061
-399C 0041
-399C 0062
-399D 0021
-399D 003F
-399D 0061
-399D 0041
-399D 0062
-399E 0021
-399E 003F
-399E 0061
-399E 0041
-399E 0062
-399F 0021
-399F 003F
-399F 0061
-399F 0041
-399F 0062
-39A0 0021
-39A0 003F
-39A0 0061
-39A0 0041
-39A0 0062
-39A1 0021
-39A1 003F
-39A1 0061
-39A1 0041
-39A1 0062
-39A2 0021
-39A2 003F
-39A2 0061
-39A2 0041
-39A2 0062
-39A3 0021
-39A3 003F
-39A3 0061
-39A3 0041
-39A3 0062
-39A4 0021
-39A4 003F
-39A4 0061
-39A4 0041
-39A4 0062
-39A5 0021
-39A5 003F
-39A5 0061
-39A5 0041
-39A5 0062
-39A6 0021
-39A6 003F
-39A6 0061
-39A6 0041
-39A6 0062
-39A7 0021
-39A7 003F
-39A7 0061
-39A7 0041
-39A7 0062
-39A8 0021
-39A8 003F
-39A8 0061
-39A8 0041
-39A8 0062
-39A9 0021
-39A9 003F
-39A9 0061
-39A9 0041
-39A9 0062
-39AA 0021
-39AA 003F
-39AA 0061
-39AA 0041
-39AA 0062
-39AB 0021
-39AB 003F
-39AB 0061
-39AB 0041
-39AB 0062
-39AC 0021
-39AC 003F
-39AC 0061
-39AC 0041
-39AC 0062
-39AD 0021
-39AD 003F
-39AD 0061
-39AD 0041
-39AD 0062
-39AE 0021
-39AE 003F
-39AE 0061
-39AE 0041
-39AE 0062
-39AF 0021
-39AF 003F
-39AF 0061
-39AF 0041
-39AF 0062
-39B0 0021
-39B0 003F
-39B0 0061
-39B0 0041
-39B0 0062
-39B1 0021
-39B1 003F
-39B1 0061
-39B1 0041
-39B1 0062
-39B2 0021
-39B2 003F
-39B2 0061
-39B2 0041
-39B2 0062
-39B3 0021
-39B3 003F
-39B3 0061
-39B3 0041
-39B3 0062
-39B4 0021
-39B4 003F
-39B4 0061
-39B4 0041
-39B4 0062
-39B5 0021
-39B5 003F
-39B5 0061
-39B5 0041
-39B5 0062
-39B6 0021
-39B6 003F
-39B6 0061
-39B6 0041
-39B6 0062
-39B7 0021
-39B7 003F
-39B7 0061
-39B7 0041
-39B7 0062
-39B8 0021
-39B8 003F
-39B8 0061
-39B8 0041
-39B8 0062
-39B9 0021
-39B9 003F
-39B9 0061
-39B9 0041
-39B9 0062
-39BA 0021
-39BA 003F
-39BA 0061
-39BA 0041
-39BA 0062
-39BB 0021
-39BB 003F
-39BB 0061
-39BB 0041
-39BB 0062
-39BC 0021
-39BC 003F
-39BC 0061
-39BC 0041
-39BC 0062
-39BD 0021
-39BD 003F
-39BD 0061
-39BD 0041
-39BD 0062
-39BE 0021
-39BE 003F
-39BE 0061
-39BE 0041
-39BE 0062
-39BF 0021
-39BF 003F
-39BF 0061
-39BF 0041
-39BF 0062
-39C0 0021
-39C0 003F
-39C0 0061
-39C0 0041
-39C0 0062
-39C1 0021
-39C1 003F
-39C1 0061
-39C1 0041
-39C1 0062
-39C2 0021
-39C2 003F
-39C2 0061
-39C2 0041
-39C2 0062
-39C3 0021
-39C3 003F
-39C3 0061
-39C3 0041
-39C3 0062
-39C4 0021
-39C4 003F
-39C4 0061
-39C4 0041
-39C4 0062
-39C5 0021
-39C5 003F
-39C5 0061
-39C5 0041
-39C5 0062
-39C6 0021
-39C6 003F
-39C6 0061
-39C6 0041
-39C6 0062
-39C7 0021
-39C7 003F
-39C7 0061
-39C7 0041
-39C7 0062
-39C8 0021
-39C8 003F
-39C8 0061
-39C8 0041
-39C8 0062
-39C9 0021
-39C9 003F
-39C9 0061
-39C9 0041
-39C9 0062
-39CA 0021
-39CA 003F
-39CA 0061
-39CA 0041
-39CA 0062
-39CB 0021
-39CB 003F
-39CB 0061
-39CB 0041
-39CB 0062
-39CC 0021
-39CC 003F
-39CC 0061
-39CC 0041
-39CC 0062
-39CD 0021
-39CD 003F
-39CD 0061
-39CD 0041
-39CD 0062
-39CE 0021
-39CE 003F
-39CE 0061
-39CE 0041
-39CE 0062
-39CF 0021
-39CF 003F
-39CF 0061
-39CF 0041
-39CF 0062
-39D0 0021
-39D0 003F
-39D0 0061
-39D0 0041
-39D0 0062
-39D1 0021
-39D1 003F
-39D1 0061
-39D1 0041
-39D1 0062
-39D2 0021
-39D2 003F
-39D2 0061
-39D2 0041
-39D2 0062
-39D3 0021
-39D3 003F
-39D3 0061
-39D3 0041
-39D3 0062
-39D4 0021
-39D4 003F
-39D4 0061
-39D4 0041
-39D4 0062
-39D5 0021
-39D5 003F
-39D5 0061
-39D5 0041
-39D5 0062
-39D6 0021
-39D6 003F
-39D6 0061
-39D6 0041
-39D6 0062
-39D7 0021
-39D7 003F
-39D7 0061
-39D7 0041
-39D7 0062
-39D8 0021
-39D8 003F
-39D8 0061
-39D8 0041
-39D8 0062
-39D9 0021
-39D9 003F
-39D9 0061
-39D9 0041
-39D9 0062
-39DA 0021
-39DA 003F
-39DA 0061
-39DA 0041
-39DA 0062
-39DB 0021
-39DB 003F
-39DB 0061
-39DB 0041
-39DB 0062
-39DC 0021
-39DC 003F
-39DC 0061
-39DC 0041
-39DC 0062
-39DD 0021
-39DD 003F
-39DD 0061
-39DD 0041
-39DD 0062
-39DE 0021
-39DE 003F
-39DE 0061
-39DE 0041
-39DE 0062
-39DF 0021
-39DF 003F
-39DF 0061
-39DF 0041
-39DF 0062
-39E0 0021
-39E0 003F
-39E0 0061
-39E0 0041
-39E0 0062
-39E1 0021
-39E1 003F
-39E1 0061
-39E1 0041
-39E1 0062
-39E2 0021
-39E2 003F
-39E2 0061
-39E2 0041
-39E2 0062
-39E3 0021
-39E3 003F
-39E3 0061
-39E3 0041
-39E3 0062
-39E4 0021
-39E4 003F
-39E4 0061
-39E4 0041
-39E4 0062
-39E5 0021
-39E5 003F
-39E5 0061
-39E5 0041
-39E5 0062
-39E6 0021
-39E6 003F
-39E6 0061
-39E6 0041
-39E6 0062
-39E7 0021
-39E7 003F
-39E7 0061
-39E7 0041
-39E7 0062
-39E8 0021
-39E8 003F
-39E8 0061
-39E8 0041
-39E8 0062
-39E9 0021
-39E9 003F
-39E9 0061
-39E9 0041
-39E9 0062
-39EA 0021
-39EA 003F
-39EA 0061
-39EA 0041
-39EA 0062
-39EB 0021
-39EB 003F
-39EB 0061
-39EB 0041
-39EB 0062
-39EC 0021
-39EC 003F
-39EC 0061
-39EC 0041
-39EC 0062
-39ED 0021
-39ED 003F
-39ED 0061
-39ED 0041
-39ED 0062
-39EE 0021
-39EE 003F
-39EE 0061
-39EE 0041
-39EE 0062
-39EF 0021
-39EF 003F
-39EF 0061
-39EF 0041
-39EF 0062
-39F0 0021
-39F0 003F
-39F0 0061
-39F0 0041
-39F0 0062
-39F1 0021
-39F1 003F
-39F1 0061
-39F1 0041
-39F1 0062
-39F2 0021
-39F2 003F
-39F2 0061
-39F2 0041
-39F2 0062
-39F3 0021
-39F3 003F
-39F3 0061
-39F3 0041
-39F3 0062
-39F4 0021
-39F4 003F
-39F4 0061
-39F4 0041
-39F4 0062
-39F5 0021
-39F5 003F
-39F5 0061
-39F5 0041
-39F5 0062
-39F6 0021
-39F6 003F
-39F6 0061
-39F6 0041
-39F6 0062
-39F7 0021
-39F7 003F
-39F7 0061
-39F7 0041
-39F7 0062
-39F8 0021
-39F8 003F
-39F8 0061
-39F8 0041
-39F8 0062
-39F9 0021
-39F9 003F
-39F9 0061
-39F9 0041
-39F9 0062
-39FA 0021
-39FA 003F
-39FA 0061
-39FA 0041
-39FA 0062
-39FB 0021
-39FB 003F
-39FB 0061
-39FB 0041
-39FB 0062
-39FC 0021
-39FC 003F
-39FC 0061
-39FC 0041
-39FC 0062
-39FD 0021
-39FD 003F
-39FD 0061
-39FD 0041
-39FD 0062
-39FE 0021
-39FE 003F
-39FE 0061
-39FE 0041
-39FE 0062
-39FF 0021
-39FF 003F
-39FF 0061
-39FF 0041
-39FF 0062
-3A00 0021
-3A00 003F
-3A00 0061
-3A00 0041
-3A00 0062
-3A01 0021
-3A01 003F
-3A01 0061
-3A01 0041
-3A01 0062
-3A02 0021
-3A02 003F
-3A02 0061
-3A02 0041
-3A02 0062
-3A03 0021
-3A03 003F
-3A03 0061
-3A03 0041
-3A03 0062
-3A04 0021
-3A04 003F
-3A04 0061
-3A04 0041
-3A04 0062
-3A05 0021
-3A05 003F
-3A05 0061
-3A05 0041
-3A05 0062
-3A06 0021
-3A06 003F
-3A06 0061
-3A06 0041
-3A06 0062
-3A07 0021
-3A07 003F
-3A07 0061
-3A07 0041
-3A07 0062
-3A08 0021
-3A08 003F
-3A08 0061
-3A08 0041
-3A08 0062
-3A09 0021
-3A09 003F
-3A09 0061
-3A09 0041
-3A09 0062
-3A0A 0021
-3A0A 003F
-3A0A 0061
-3A0A 0041
-3A0A 0062
-3A0B 0021
-3A0B 003F
-3A0B 0061
-3A0B 0041
-3A0B 0062
-3A0C 0021
-3A0C 003F
-3A0C 0061
-3A0C 0041
-3A0C 0062
-3A0D 0021
-3A0D 003F
-3A0D 0061
-3A0D 0041
-3A0D 0062
-3A0E 0021
-3A0E 003F
-3A0E 0061
-3A0E 0041
-3A0E 0062
-3A0F 0021
-3A0F 003F
-3A0F 0061
-3A0F 0041
-3A0F 0062
-3A10 0021
-3A10 003F
-3A10 0061
-3A10 0041
-3A10 0062
-3A11 0021
-3A11 003F
-3A11 0061
-3A11 0041
-3A11 0062
-3A12 0021
-3A12 003F
-3A12 0061
-3A12 0041
-3A12 0062
-3A13 0021
-3A13 003F
-3A13 0061
-3A13 0041
-3A13 0062
-3A14 0021
-3A14 003F
-3A14 0061
-3A14 0041
-3A14 0062
-3A15 0021
-3A15 003F
-3A15 0061
-3A15 0041
-3A15 0062
-3A16 0021
-3A16 003F
-3A16 0061
-3A16 0041
-3A16 0062
-3A17 0021
-3A17 003F
-3A17 0061
-3A17 0041
-3A17 0062
-3A18 0021
-3A18 003F
-3A18 0061
-3A18 0041
-3A18 0062
-3A19 0021
-3A19 003F
-3A19 0061
-3A19 0041
-3A19 0062
-3A1A 0021
-3A1A 003F
-3A1A 0061
-3A1A 0041
-3A1A 0062
-3A1B 0021
-3A1B 003F
-3A1B 0061
-3A1B 0041
-3A1B 0062
-3A1C 0021
-3A1C 003F
-3A1C 0061
-3A1C 0041
-3A1C 0062
-3A1D 0021
-3A1D 003F
-3A1D 0061
-3A1D 0041
-3A1D 0062
-3A1E 0021
-3A1E 003F
-3A1E 0061
-3A1E 0041
-3A1E 0062
-3A1F 0021
-3A1F 003F
-3A1F 0061
-3A1F 0041
-3A1F 0062
-3A20 0021
-3A20 003F
-3A20 0061
-3A20 0041
-3A20 0062
-3A21 0021
-3A21 003F
-3A21 0061
-3A21 0041
-3A21 0062
-3A22 0021
-3A22 003F
-3A22 0061
-3A22 0041
-3A22 0062
-3A23 0021
-3A23 003F
-3A23 0061
-3A23 0041
-3A23 0062
-3A24 0021
-3A24 003F
-3A24 0061
-3A24 0041
-3A24 0062
-3A25 0021
-3A25 003F
-3A25 0061
-3A25 0041
-3A25 0062
-3A26 0021
-3A26 003F
-3A26 0061
-3A26 0041
-3A26 0062
-3A27 0021
-3A27 003F
-3A27 0061
-3A27 0041
-3A27 0062
-3A28 0021
-3A28 003F
-3A28 0061
-3A28 0041
-3A28 0062
-3A29 0021
-3A29 003F
-3A29 0061
-3A29 0041
-3A29 0062
-3A2A 0021
-3A2A 003F
-3A2A 0061
-3A2A 0041
-3A2A 0062
-3A2B 0021
-3A2B 003F
-3A2B 0061
-3A2B 0041
-3A2B 0062
-3A2C 0021
-3A2C 003F
-3A2C 0061
-3A2C 0041
-3A2C 0062
-3A2D 0021
-3A2D 003F
-3A2D 0061
-3A2D 0041
-3A2D 0062
-3A2E 0021
-2F8C2 0021
-3A2E 003F
-2F8C2 003F
-2F8C2 0334
-3A2E 0061
-2F8C2 0061
-3A2E 0041
-2F8C2 0041
-3A2E 0062
-2F8C2 0062
-3A2F 0021
-3A2F 003F
-3A2F 0061
-3A2F 0041
-3A2F 0062
-3A30 0021
-3A30 003F
-3A30 0061
-3A30 0041
-3A30 0062
-3A31 0021
-3A31 003F
-3A31 0061
-3A31 0041
-3A31 0062
-3A32 0021
-3A32 003F
-3A32 0061
-3A32 0041
-3A32 0062
-3A33 0021
-3A33 003F
-3A33 0061
-3A33 0041
-3A33 0062
-3A34 0021
-3A34 003F
-3A34 0061
-3A34 0041
-3A34 0062
-3A35 0021
-3A35 003F
-3A35 0061
-3A35 0041
-3A35 0062
-3A36 0021
-3A36 003F
-3A36 0061
-3A36 0041
-3A36 0062
-3A37 0021
-3A37 003F
-3A37 0061
-3A37 0041
-3A37 0062
-3A38 0021
-3A38 003F
-3A38 0061
-3A38 0041
-3A38 0062
-3A39 0021
-3A39 003F
-3A39 0061
-3A39 0041
-3A39 0062
-3A3A 0021
-3A3A 003F
-3A3A 0061
-3A3A 0041
-3A3A 0062
-3A3B 0021
-3A3B 003F
-3A3B 0061
-3A3B 0041
-3A3B 0062
-3A3C 0021
-3A3C 003F
-3A3C 0061
-3A3C 0041
-3A3C 0062
-3A3D 0021
-3A3D 003F
-3A3D 0061
-3A3D 0041
-3A3D 0062
-3A3E 0021
-3A3E 003F
-3A3E 0061
-3A3E 0041
-3A3E 0062
-3A3F 0021
-3A3F 003F
-3A3F 0061
-3A3F 0041
-3A3F 0062
-3A40 0021
-3A40 003F
-3A40 0061
-3A40 0041
-3A40 0062
-3A41 0021
-3A41 003F
-3A41 0061
-3A41 0041
-3A41 0062
-3A42 0021
-3A42 003F
-3A42 0061
-3A42 0041
-3A42 0062
-3A43 0021
-3A43 003F
-3A43 0061
-3A43 0041
-3A43 0062
-3A44 0021
-3A44 003F
-3A44 0061
-3A44 0041
-3A44 0062
-3A45 0021
-3A45 003F
-3A45 0061
-3A45 0041
-3A45 0062
-3A46 0021
-3A46 003F
-3A46 0061
-3A46 0041
-3A46 0062
-3A47 0021
-3A47 003F
-3A47 0061
-3A47 0041
-3A47 0062
-3A48 0021
-3A48 003F
-3A48 0061
-3A48 0041
-3A48 0062
-3A49 0021
-3A49 003F
-3A49 0061
-3A49 0041
-3A49 0062
-3A4A 0021
-3A4A 003F
-3A4A 0061
-3A4A 0041
-3A4A 0062
-3A4B 0021
-3A4B 003F
-3A4B 0061
-3A4B 0041
-3A4B 0062
-3A4C 0021
-3A4C 003F
-3A4C 0061
-3A4C 0041
-3A4C 0062
-3A4D 0021
-3A4D 003F
-3A4D 0061
-3A4D 0041
-3A4D 0062
-3A4E 0021
-3A4E 003F
-3A4E 0061
-3A4E 0041
-3A4E 0062
-3A4F 0021
-3A4F 003F
-3A4F 0061
-3A4F 0041
-3A4F 0062
-3A50 0021
-3A50 003F
-3A50 0061
-3A50 0041
-3A50 0062
-3A51 0021
-3A51 003F
-3A51 0061
-3A51 0041
-3A51 0062
-3A52 0021
-3A52 003F
-3A52 0061
-3A52 0041
-3A52 0062
-3A53 0021
-3A53 003F
-3A53 0061
-3A53 0041
-3A53 0062
-3A54 0021
-3A54 003F
-3A54 0061
-3A54 0041
-3A54 0062
-3A55 0021
-3A55 003F
-3A55 0061
-3A55 0041
-3A55 0062
-3A56 0021
-3A56 003F
-3A56 0061
-3A56 0041
-3A56 0062
-3A57 0021
-3A57 003F
-3A57 0061
-3A57 0041
-3A57 0062
-3A58 0021
-3A58 003F
-3A58 0061
-3A58 0041
-3A58 0062
-3A59 0021
-3A59 003F
-3A59 0061
-3A59 0041
-3A59 0062
-3A5A 0021
-3A5A 003F
-3A5A 0061
-3A5A 0041
-3A5A 0062
-3A5B 0021
-3A5B 003F
-3A5B 0061
-3A5B 0041
-3A5B 0062
-3A5C 0021
-3A5C 003F
-3A5C 0061
-3A5C 0041
-3A5C 0062
-3A5D 0021
-3A5D 003F
-3A5D 0061
-3A5D 0041
-3A5D 0062
-3A5E 0021
-3A5E 003F
-3A5E 0061
-3A5E 0041
-3A5E 0062
-3A5F 0021
-3A5F 003F
-3A5F 0061
-3A5F 0041
-3A5F 0062
-3A60 0021
-3A60 003F
-3A60 0061
-3A60 0041
-3A60 0062
-3A61 0021
-3A61 003F
-3A61 0061
-3A61 0041
-3A61 0062
-3A62 0021
-3A62 003F
-3A62 0061
-3A62 0041
-3A62 0062
-3A63 0021
-3A63 003F
-3A63 0061
-3A63 0041
-3A63 0062
-3A64 0021
-3A64 003F
-3A64 0061
-3A64 0041
-3A64 0062
-3A65 0021
-3A65 003F
-3A65 0061
-3A65 0041
-3A65 0062
-3A66 0021
-3A66 003F
-3A66 0061
-3A66 0041
-3A66 0062
-3A67 0021
-3A67 003F
-3A67 0061
-3A67 0041
-3A67 0062
-3A68 0021
-3A68 003F
-3A68 0061
-3A68 0041
-3A68 0062
-3A69 0021
-3A69 003F
-3A69 0061
-3A69 0041
-3A69 0062
-3A6A 0021
-3A6A 003F
-3A6A 0061
-3A6A 0041
-3A6A 0062
-3A6B 0021
-3A6B 003F
-3A6B 0061
-3A6B 0041
-3A6B 0062
-3A6C 0021
-2F8C7 0021
-3A6C 003F
-2F8C7 003F
-2F8C7 0334
-3A6C 0061
-2F8C7 0061
-3A6C 0041
-2F8C7 0041
-3A6C 0062
-2F8C7 0062
-3A6D 0021
-3A6D 003F
-3A6D 0061
-3A6D 0041
-3A6D 0062
-3A6E 0021
-3A6E 003F
-3A6E 0061
-3A6E 0041
-3A6E 0062
-3A6F 0021
-3A6F 003F
-3A6F 0061
-3A6F 0041
-3A6F 0062
-3A70 0021
-3A70 003F
-3A70 0061
-3A70 0041
-3A70 0062
-3A71 0021
-3A71 003F
-3A71 0061
-3A71 0041
-3A71 0062
-3A72 0021
-3A72 003F
-3A72 0061
-3A72 0041
-3A72 0062
-3A73 0021
-3A73 003F
-3A73 0061
-3A73 0041
-3A73 0062
-3A74 0021
-3A74 003F
-3A74 0061
-3A74 0041
-3A74 0062
-3A75 0021
-3A75 003F
-3A75 0061
-3A75 0041
-3A75 0062
-3A76 0021
-3A76 003F
-3A76 0061
-3A76 0041
-3A76 0062
-3A77 0021
-3A77 003F
-3A77 0061
-3A77 0041
-3A77 0062
-3A78 0021
-3A78 003F
-3A78 0061
-3A78 0041
-3A78 0062
-3A79 0021
-3A79 003F
-3A79 0061
-3A79 0041
-3A79 0062
-3A7A 0021
-3A7A 003F
-3A7A 0061
-3A7A 0041
-3A7A 0062
-3A7B 0021
-3A7B 003F
-3A7B 0061
-3A7B 0041
-3A7B 0062
-3A7C 0021
-3A7C 003F
-3A7C 0061
-3A7C 0041
-3A7C 0062
-3A7D 0021
-3A7D 003F
-3A7D 0061
-3A7D 0041
-3A7D 0062
-3A7E 0021
-3A7E 003F
-3A7E 0061
-3A7E 0041
-3A7E 0062
-3A7F 0021
-3A7F 003F
-3A7F 0061
-3A7F 0041
-3A7F 0062
-3A80 0021
-3A80 003F
-3A80 0061
-3A80 0041
-3A80 0062
-3A81 0021
-3A81 003F
-3A81 0061
-3A81 0041
-3A81 0062
-3A82 0021
-3A82 003F
-3A82 0061
-3A82 0041
-3A82 0062
-3A83 0021
-3A83 003F
-3A83 0061
-3A83 0041
-3A83 0062
-3A84 0021
-3A84 003F
-3A84 0061
-3A84 0041
-3A84 0062
-3A85 0021
-3A85 003F
-3A85 0061
-3A85 0041
-3A85 0062
-3A86 0021
-3A86 003F
-3A86 0061
-3A86 0041
-3A86 0062
-3A87 0021
-3A87 003F
-3A87 0061
-3A87 0041
-3A87 0062
-3A88 0021
-3A88 003F
-3A88 0061
-3A88 0041
-3A88 0062
-3A89 0021
-3A89 003F
-3A89 0061
-3A89 0041
-3A89 0062
-3A8A 0021
-3A8A 003F
-3A8A 0061
-3A8A 0041
-3A8A 0062
-3A8B 0021
-3A8B 003F
-3A8B 0061
-3A8B 0041
-3A8B 0062
-3A8C 0021
-3A8C 003F
-3A8C 0061
-3A8C 0041
-3A8C 0062
-3A8D 0021
-3A8D 003F
-3A8D 0061
-3A8D 0041
-3A8D 0062
-3A8E 0021
-3A8E 003F
-3A8E 0061
-3A8E 0041
-3A8E 0062
-3A8F 0021
-3A8F 003F
-3A8F 0061
-3A8F 0041
-3A8F 0062
-3A90 0021
-3A90 003F
-3A90 0061
-3A90 0041
-3A90 0062
-3A91 0021
-3A91 003F
-3A91 0061
-3A91 0041
-3A91 0062
-3A92 0021
-3A92 003F
-3A92 0061
-3A92 0041
-3A92 0062
-3A93 0021
-3A93 003F
-3A93 0061
-3A93 0041
-3A93 0062
-3A94 0021
-3A94 003F
-3A94 0061
-3A94 0041
-3A94 0062
-3A95 0021
-3A95 003F
-3A95 0061
-3A95 0041
-3A95 0062
-3A96 0021
-3A96 003F
-3A96 0061
-3A96 0041
-3A96 0062
-3A97 0021
-3A97 003F
-3A97 0061
-3A97 0041
-3A97 0062
-3A98 0021
-3A98 003F
-3A98 0061
-3A98 0041
-3A98 0062
-3A99 0021
-3A99 003F
-3A99 0061
-3A99 0041
-3A99 0062
-3A9A 0021
-3A9A 003F
-3A9A 0061
-3A9A 0041
-3A9A 0062
-3A9B 0021
-3A9B 003F
-3A9B 0061
-3A9B 0041
-3A9B 0062
-3A9C 0021
-3A9C 003F
-3A9C 0061
-3A9C 0041
-3A9C 0062
-3A9D 0021
-3A9D 003F
-3A9D 0061
-3A9D 0041
-3A9D 0062
-3A9E 0021
-3A9E 003F
-3A9E 0061
-3A9E 0041
-3A9E 0062
-3A9F 0021
-3A9F 003F
-3A9F 0061
-3A9F 0041
-3A9F 0062
-3AA0 0021
-3AA0 003F
-3AA0 0061
-3AA0 0041
-3AA0 0062
-3AA1 0021
-3AA1 003F
-3AA1 0061
-3AA1 0041
-3AA1 0062
-3AA2 0021
-3AA2 003F
-3AA2 0061
-3AA2 0041
-3AA2 0062
-3AA3 0021
-3AA3 003F
-3AA3 0061
-3AA3 0041
-3AA3 0062
-3AA4 0021
-3AA4 003F
-3AA4 0061
-3AA4 0041
-3AA4 0062
-3AA5 0021
-3AA5 003F
-3AA5 0061
-3AA5 0041
-3AA5 0062
-3AA6 0021
-3AA6 003F
-3AA6 0061
-3AA6 0041
-3AA6 0062
-3AA7 0021
-3AA7 003F
-3AA7 0061
-3AA7 0041
-3AA7 0062
-3AA8 0021
-3AA8 003F
-3AA8 0061
-3AA8 0041
-3AA8 0062
-3AA9 0021
-3AA9 003F
-3AA9 0061
-3AA9 0041
-3AA9 0062
-3AAA 0021
-3AAA 003F
-3AAA 0061
-3AAA 0041
-3AAA 0062
-3AAB 0021
-3AAB 003F
-3AAB 0061
-3AAB 0041
-3AAB 0062
-3AAC 0021
-3AAC 003F
-3AAC 0061
-3AAC 0041
-3AAC 0062
-3AAD 0021
-3AAD 003F
-3AAD 0061
-3AAD 0041
-3AAD 0062
-3AAE 0021
-3AAE 003F
-3AAE 0061
-3AAE 0041
-3AAE 0062
-3AAF 0021
-3AAF 003F
-3AAF 0061
-3AAF 0041
-3AAF 0062
-3AB0 0021
-3AB0 003F
-3AB0 0061
-3AB0 0041
-3AB0 0062
-3AB1 0021
-3AB1 003F
-3AB1 0061
-3AB1 0041
-3AB1 0062
-3AB2 0021
-3AB2 003F
-3AB2 0061
-3AB2 0041
-3AB2 0062
-3AB3 0021
-3AB3 003F
-3AB3 0061
-3AB3 0041
-3AB3 0062
-3AB4 0021
-3AB4 003F
-3AB4 0061
-3AB4 0041
-3AB4 0062
-3AB5 0021
-3AB5 003F
-3AB5 0061
-3AB5 0041
-3AB5 0062
-3AB6 0021
-3AB6 003F
-3AB6 0061
-3AB6 0041
-3AB6 0062
-3AB7 0021
-3AB7 003F
-3AB7 0061
-3AB7 0041
-3AB7 0062
-3AB8 0021
-3AB8 003F
-3AB8 0061
-3AB8 0041
-3AB8 0062
-3AB9 0021
-3AB9 003F
-3AB9 0061
-3AB9 0041
-3AB9 0062
-3ABA 0021
-3ABA 003F
-3ABA 0061
-3ABA 0041
-3ABA 0062
-3ABB 0021
-3ABB 003F
-3ABB 0061
-3ABB 0041
-3ABB 0062
-3ABC 0021
-3ABC 003F
-3ABC 0061
-3ABC 0041
-3ABC 0062
-3ABD 0021
-3ABD 003F
-3ABD 0061
-3ABD 0041
-3ABD 0062
-3ABE 0021
-3ABE 003F
-3ABE 0061
-3ABE 0041
-3ABE 0062
-3ABF 0021
-3ABF 003F
-3ABF 0061
-3ABF 0041
-3ABF 0062
-3AC0 0021
-3AC0 003F
-3AC0 0061
-3AC0 0041
-3AC0 0062
-3AC1 0021
-3AC1 003F
-3AC1 0061
-3AC1 0041
-3AC1 0062
-3AC2 0021
-3AC2 003F
-3AC2 0061
-3AC2 0041
-3AC2 0062
-3AC3 0021
-3AC3 003F
-3AC3 0061
-3AC3 0041
-3AC3 0062
-3AC4 0021
-3AC4 003F
-3AC4 0061
-3AC4 0041
-3AC4 0062
-3AC5 0021
-3AC5 003F
-3AC5 0061
-3AC5 0041
-3AC5 0062
-3AC6 0021
-3AC6 003F
-3AC6 0061
-3AC6 0041
-3AC6 0062
-3AC7 0021
-3AC7 003F
-3AC7 0061
-3AC7 0041
-3AC7 0062
-3AC8 0021
-3AC8 003F
-3AC8 0061
-3AC8 0041
-3AC8 0062
-3AC9 0021
-3AC9 003F
-3AC9 0061
-3AC9 0041
-3AC9 0062
-3ACA 0021
-3ACA 003F
-3ACA 0061
-3ACA 0041
-3ACA 0062
-3ACB 0021
-3ACB 003F
-3ACB 0061
-3ACB 0041
-3ACB 0062
-3ACC 0021
-3ACC 003F
-3ACC 0061
-3ACC 0041
-3ACC 0062
-3ACD 0021
-3ACD 003F
-3ACD 0061
-3ACD 0041
-3ACD 0062
-3ACE 0021
-3ACE 003F
-3ACE 0061
-3ACE 0041
-3ACE 0062
-3ACF 0021
-3ACF 003F
-3ACF 0061
-3ACF 0041
-3ACF 0062
-3AD0 0021
-3AD0 003F
-3AD0 0061
-3AD0 0041
-3AD0 0062
-3AD1 0021
-3AD1 003F
-3AD1 0061
-3AD1 0041
-3AD1 0062
-3AD2 0021
-3AD2 003F
-3AD2 0061
-3AD2 0041
-3AD2 0062
-3AD3 0021
-3AD3 003F
-3AD3 0061
-3AD3 0041
-3AD3 0062
-3AD4 0021
-3AD4 003F
-3AD4 0061
-3AD4 0041
-3AD4 0062
-3AD5 0021
-3AD5 003F
-3AD5 0061
-3AD5 0041
-3AD5 0062
-3AD6 0021
-3AD6 003F
-3AD6 0061
-3AD6 0041
-3AD6 0062
-3AD7 0021
-3AD7 003F
-3AD7 0061
-3AD7 0041
-3AD7 0062
-3AD8 0021
-3AD8 003F
-3AD8 0061
-3AD8 0041
-3AD8 0062
-3AD9 0021
-3AD9 003F
-3AD9 0061
-3AD9 0041
-3AD9 0062
-3ADA 0021
-3ADA 003F
-3ADA 0061
-3ADA 0041
-3ADA 0062
-3ADB 0021
-3ADB 003F
-3ADB 0061
-3ADB 0041
-3ADB 0062
-3ADC 0021
-3ADC 003F
-3ADC 0061
-3ADC 0041
-3ADC 0062
-3ADD 0021
-3ADD 003F
-3ADD 0061
-3ADD 0041
-3ADD 0062
-3ADE 0021
-3ADE 003F
-3ADE 0061
-3ADE 0041
-3ADE 0062
-3ADF 0021
-3ADF 003F
-3ADF 0061
-3ADF 0041
-3ADF 0062
-3AE0 0021
-3AE0 003F
-3AE0 0061
-3AE0 0041
-3AE0 0062
-3AE1 0021
-3AE1 003F
-3AE1 0061
-3AE1 0041
-3AE1 0062
-3AE2 0021
-3AE2 003F
-3AE2 0061
-3AE2 0041
-3AE2 0062
-3AE3 0021
-3AE3 003F
-3AE3 0061
-3AE3 0041
-3AE3 0062
-3AE4 0021
-2F8D1 0021
-3AE4 003F
-2F8D1 003F
-2F8D1 0334
-3AE4 0061
-2F8D1 0061
-3AE4 0041
-2F8D1 0041
-3AE4 0062
-2F8D1 0062
-3AE5 0021
-3AE5 003F
-3AE5 0061
-3AE5 0041
-3AE5 0062
-3AE6 0021
-3AE6 003F
-3AE6 0061
-3AE6 0041
-3AE6 0062
-3AE7 0021
-3AE7 003F
-3AE7 0061
-3AE7 0041
-3AE7 0062
-3AE8 0021
-3AE8 003F
-3AE8 0061
-3AE8 0041
-3AE8 0062
-3AE9 0021
-3AE9 003F
-3AE9 0061
-3AE9 0041
-3AE9 0062
-3AEA 0021
-3AEA 003F
-3AEA 0061
-3AEA 0041
-3AEA 0062
-3AEB 0021
-3AEB 003F
-3AEB 0061
-3AEB 0041
-3AEB 0062
-3AEC 0021
-3AEC 003F
-3AEC 0061
-3AEC 0041
-3AEC 0062
-3AED 0021
-3AED 003F
-3AED 0061
-3AED 0041
-3AED 0062
-3AEE 0021
-3AEE 003F
-3AEE 0061
-3AEE 0041
-3AEE 0062
-3AEF 0021
-3AEF 003F
-3AEF 0061
-3AEF 0041
-3AEF 0062
-3AF0 0021
-3AF0 003F
-3AF0 0061
-3AF0 0041
-3AF0 0062
-3AF1 0021
-3AF1 003F
-3AF1 0061
-3AF1 0041
-3AF1 0062
-3AF2 0021
-3AF2 003F
-3AF2 0061
-3AF2 0041
-3AF2 0062
-3AF3 0021
-3AF3 003F
-3AF3 0061
-3AF3 0041
-3AF3 0062
-3AF4 0021
-3AF4 003F
-3AF4 0061
-3AF4 0041
-3AF4 0062
-3AF5 0021
-3AF5 003F
-3AF5 0061
-3AF5 0041
-3AF5 0062
-3AF6 0021
-3AF6 003F
-3AF6 0061
-3AF6 0041
-3AF6 0062
-3AF7 0021
-3AF7 003F
-3AF7 0061
-3AF7 0041
-3AF7 0062
-3AF8 0021
-3AF8 003F
-3AF8 0061
-3AF8 0041
-3AF8 0062
-3AF9 0021
-3AF9 003F
-3AF9 0061
-3AF9 0041
-3AF9 0062
-3AFA 0021
-3AFA 003F
-3AFA 0061
-3AFA 0041
-3AFA 0062
-3AFB 0021
-3AFB 003F
-3AFB 0061
-3AFB 0041
-3AFB 0062
-3AFC 0021
-3AFC 003F
-3AFC 0061
-3AFC 0041
-3AFC 0062
-3AFD 0021
-3AFD 003F
-3AFD 0061
-3AFD 0041
-3AFD 0062
-3AFE 0021
-3AFE 003F
-3AFE 0061
-3AFE 0041
-3AFE 0062
-3AFF 0021
-3AFF 003F
-3AFF 0061
-3AFF 0041
-3AFF 0062
-3B00 0021
-3B00 003F
-3B00 0061
-3B00 0041
-3B00 0062
-3B01 0021
-3B01 003F
-3B01 0061
-3B01 0041
-3B01 0062
-3B02 0021
-3B02 003F
-3B02 0061
-3B02 0041
-3B02 0062
-3B03 0021
-3B03 003F
-3B03 0061
-3B03 0041
-3B03 0062
-3B04 0021
-3B04 003F
-3B04 0061
-3B04 0041
-3B04 0062
-3B05 0021
-3B05 003F
-3B05 0061
-3B05 0041
-3B05 0062
-3B06 0021
-3B06 003F
-3B06 0061
-3B06 0041
-3B06 0062
-3B07 0021
-3B07 003F
-3B07 0061
-3B07 0041
-3B07 0062
-3B08 0021
-2F8D0 0021
-3B08 003F
-2F8D0 003F
-2F8D0 0334
-3B08 0061
-2F8D0 0061
-3B08 0041
-2F8D0 0041
-3B08 0062
-2F8D0 0062
-3B09 0021
-3B09 003F
-3B09 0061
-3B09 0041
-3B09 0062
-3B0A 0021
-3B0A 003F
-3B0A 0061
-3B0A 0041
-3B0A 0062
-3B0B 0021
-3B0B 003F
-3B0B 0061
-3B0B 0041
-3B0B 0062
-3B0C 0021
-3B0C 003F
-3B0C 0061
-3B0C 0041
-3B0C 0062
-3B0D 0021
-3B0D 003F
-3B0D 0061
-3B0D 0041
-3B0D 0062
-3B0E 0021
-3B0E 003F
-3B0E 0061
-3B0E 0041
-3B0E 0062
-3B0F 0021
-3B0F 003F
-3B0F 0061
-3B0F 0041
-3B0F 0062
-3B10 0021
-3B10 003F
-3B10 0061
-3B10 0041
-3B10 0062
-3B11 0021
-3B11 003F
-3B11 0061
-3B11 0041
-3B11 0062
-3B12 0021
-3B12 003F
-3B12 0061
-3B12 0041
-3B12 0062
-3B13 0021
-3B13 003F
-3B13 0061
-3B13 0041
-3B13 0062
-3B14 0021
-3B14 003F
-3B14 0061
-3B14 0041
-3B14 0062
-3B15 0021
-3B15 003F
-3B15 0061
-3B15 0041
-3B15 0062
-3B16 0021
-3B16 003F
-3B16 0061
-3B16 0041
-3B16 0062
-3B17 0021
-3B17 003F
-3B17 0061
-3B17 0041
-3B17 0062
-3B18 0021
-3B18 003F
-3B18 0061
-3B18 0041
-3B18 0062
-3B19 0021
-2F8CE 0021
-3B19 003F
-2F8CE 003F
-2F8CE 0334
-3B19 0061
-2F8CE 0061
-3B19 0041
-2F8CE 0041
-3B19 0062
-2F8CE 0062
-3B1A 0021
-3B1A 003F
-3B1A 0061
-3B1A 0041
-3B1A 0062
-3B1B 0021
-3B1B 003F
-3B1B 0061
-3B1B 0041
-3B1B 0062
-3B1C 0021
-3B1C 003F
-3B1C 0061
-3B1C 0041
-3B1C 0062
-3B1D 0021
-3B1D 003F
-3B1D 0061
-3B1D 0041
-3B1D 0062
-3B1E 0021
-3B1E 003F
-3B1E 0061
-3B1E 0041
-3B1E 0062
-3B1F 0021
-3B1F 003F
-3B1F 0061
-3B1F 0041
-3B1F 0062
-3B20 0021
-3B20 003F
-3B20 0061
-3B20 0041
-3B20 0062
-3B21 0021
-3B21 003F
-3B21 0061
-3B21 0041
-3B21 0062
-3B22 0021
-3B22 003F
-3B22 0061
-3B22 0041
-3B22 0062
-3B23 0021
-3B23 003F
-3B23 0061
-3B23 0041
-3B23 0062
-3B24 0021
-3B24 003F
-3B24 0061
-3B24 0041
-3B24 0062
-3B25 0021
-3B25 003F
-3B25 0061
-3B25 0041
-3B25 0062
-3B26 0021
-3B26 003F
-3B26 0061
-3B26 0041
-3B26 0062
-3B27 0021
-3B27 003F
-3B27 0061
-3B27 0041
-3B27 0062
-3B28 0021
-3B28 003F
-3B28 0061
-3B28 0041
-3B28 0062
-3B29 0021
-3B29 003F
-3B29 0061
-3B29 0041
-3B29 0062
-3B2A 0021
-3B2A 003F
-3B2A 0061
-3B2A 0041
-3B2A 0062
-3B2B 0021
-3B2B 003F
-3B2B 0061
-3B2B 0041
-3B2B 0062
-3B2C 0021
-3B2C 003F
-3B2C 0061
-3B2C 0041
-3B2C 0062
-3B2D 0021
-3B2D 003F
-3B2D 0061
-3B2D 0041
-3B2D 0062
-3B2E 0021
-3B2E 003F
-3B2E 0061
-3B2E 0041
-3B2E 0062
-3B2F 0021
-3B2F 003F
-3B2F 0061
-3B2F 0041
-3B2F 0062
-3B30 0021
-3B30 003F
-3B30 0061
-3B30 0041
-3B30 0062
-3B31 0021
-3B31 003F
-3B31 0061
-3B31 0041
-3B31 0062
-3B32 0021
-3B32 003F
-3B32 0061
-3B32 0041
-3B32 0062
-3B33 0021
-3B33 003F
-3B33 0061
-3B33 0041
-3B33 0062
-3B34 0021
-3B34 003F
-3B34 0061
-3B34 0041
-3B34 0062
-3B35 0021
-3B35 003F
-3B35 0061
-3B35 0041
-3B35 0062
-3B36 0021
-3B36 003F
-3B36 0061
-3B36 0041
-3B36 0062
-3B37 0021
-3B37 003F
-3B37 0061
-3B37 0041
-3B37 0062
-3B38 0021
-3B38 003F
-3B38 0061
-3B38 0041
-3B38 0062
-3B39 0021
-3B39 003F
-3B39 0061
-3B39 0041
-3B39 0062
-3B3A 0021
-3B3A 003F
-3B3A 0061
-3B3A 0041
-3B3A 0062
-3B3B 0021
-3B3B 003F
-3B3B 0061
-3B3B 0041
-3B3B 0062
-3B3C 0021
-3B3C 003F
-3B3C 0061
-3B3C 0041
-3B3C 0062
-3B3D 0021
-3B3D 003F
-3B3D 0061
-3B3D 0041
-3B3D 0062
-3B3E 0021
-3B3E 003F
-3B3E 0061
-3B3E 0041
-3B3E 0062
-3B3F 0021
-3B3F 003F
-3B3F 0061
-3B3F 0041
-3B3F 0062
-3B40 0021
-3B40 003F
-3B40 0061
-3B40 0041
-3B40 0062
-3B41 0021
-3B41 003F
-3B41 0061
-3B41 0041
-3B41 0062
-3B42 0021
-3B42 003F
-3B42 0061
-3B42 0041
-3B42 0062
-3B43 0021
-3B43 003F
-3B43 0061
-3B43 0041
-3B43 0062
-3B44 0021
-3B44 003F
-3B44 0061
-3B44 0041
-3B44 0062
-3B45 0021
-3B45 003F
-3B45 0061
-3B45 0041
-3B45 0062
-3B46 0021
-3B46 003F
-3B46 0061
-3B46 0041
-3B46 0062
-3B47 0021
-3B47 003F
-3B47 0061
-3B47 0041
-3B47 0062
-3B48 0021
-3B48 003F
-3B48 0061
-3B48 0041
-3B48 0062
-3B49 0021
-2F8DE 0021
-3B49 003F
-2F8DE 003F
-2F8DE 0334
-3B49 0061
-2F8DE 0061
-3B49 0041
-2F8DE 0041
-3B49 0062
-2F8DE 0062
-3B4A 0021
-3B4A 003F
-3B4A 0061
-3B4A 0041
-3B4A 0062
-3B4B 0021
-3B4B 003F
-3B4B 0061
-3B4B 0041
-3B4B 0062
-3B4C 0021
-3B4C 003F
-3B4C 0061
-3B4C 0041
-3B4C 0062
-3B4D 0021
-3B4D 003F
-3B4D 0061
-3B4D 0041
-3B4D 0062
-3B4E 0021
-3B4E 003F
-3B4E 0061
-3B4E 0041
-3B4E 0062
-3B4F 0021
-3B4F 003F
-3B4F 0061
-3B4F 0041
-3B4F 0062
-3B50 0021
-3B50 003F
-3B50 0061
-3B50 0041
-3B50 0062
-3B51 0021
-3B51 003F
-3B51 0061
-3B51 0041
-3B51 0062
-3B52 0021
-3B52 003F
-3B52 0061
-3B52 0041
-3B52 0062
-3B53 0021
-3B53 003F
-3B53 0061
-3B53 0041
-3B53 0062
-3B54 0021
-3B54 003F
-3B54 0061
-3B54 0041
-3B54 0062
-3B55 0021
-3B55 003F
-3B55 0061
-3B55 0041
-3B55 0062
-3B56 0021
-3B56 003F
-3B56 0061
-3B56 0041
-3B56 0062
-3B57 0021
-3B57 003F
-3B57 0061
-3B57 0041
-3B57 0062
-3B58 0021
-3B58 003F
-3B58 0061
-3B58 0041
-3B58 0062
-3B59 0021
-3B59 003F
-3B59 0061
-3B59 0041
-3B59 0062
-3B5A 0021
-3B5A 003F
-3B5A 0061
-3B5A 0041
-3B5A 0062
-3B5B 0021
-3B5B 003F
-3B5B 0061
-3B5B 0041
-3B5B 0062
-3B5C 0021
-3B5C 003F
-3B5C 0061
-3B5C 0041
-3B5C 0062
-3B5D 0021
-3B5D 003F
-3B5D 0061
-3B5D 0041
-3B5D 0062
-3B5E 0021
-3B5E 003F
-3B5E 0061
-3B5E 0041
-3B5E 0062
-3B5F 0021
-3B5F 003F
-3B5F 0061
-3B5F 0041
-3B5F 0062
-3B60 0021
-3B60 003F
-3B60 0061
-3B60 0041
-3B60 0062
-3B61 0021
-3B61 003F
-3B61 0061
-3B61 0041
-3B61 0062
-3B62 0021
-3B62 003F
-3B62 0061
-3B62 0041
-3B62 0062
-3B63 0021
-3B63 003F
-3B63 0061
-3B63 0041
-3B63 0062
-3B64 0021
-3B64 003F
-3B64 0061
-3B64 0041
-3B64 0062
-3B65 0021
-3B65 003F
-3B65 0061
-3B65 0041
-3B65 0062
-3B66 0021
-3B66 003F
-3B66 0061
-3B66 0041
-3B66 0062
-3B67 0021
-3B67 003F
-3B67 0061
-3B67 0041
-3B67 0062
-3B68 0021
-3B68 003F
-3B68 0061
-3B68 0041
-3B68 0062
-3B69 0021
-3B69 003F
-3B69 0061
-3B69 0041
-3B69 0062
-3B6A 0021
-3B6A 003F
-3B6A 0061
-3B6A 0041
-3B6A 0062
-3B6B 0021
-3B6B 003F
-3B6B 0061
-3B6B 0041
-3B6B 0062
-3B6C 0021
-3B6C 003F
-3B6C 0061
-3B6C 0041
-3B6C 0062
-3B6D 0021
-3B6D 003F
-3B6D 0061
-3B6D 0041
-3B6D 0062
-3B6E 0021
-3B6E 003F
-3B6E 0061
-3B6E 0041
-3B6E 0062
-3B6F 0021
-3B6F 003F
-3B6F 0061
-3B6F 0041
-3B6F 0062
-3B70 0021
-3B70 003F
-3B70 0061
-3B70 0041
-3B70 0062
-3B71 0021
-3B71 003F
-3B71 0061
-3B71 0041
-3B71 0062
-3B72 0021
-3B72 003F
-3B72 0061
-3B72 0041
-3B72 0062
-3B73 0021
-3B73 003F
-3B73 0061
-3B73 0041
-3B73 0062
-3B74 0021
-3B74 003F
-3B74 0061
-3B74 0041
-3B74 0062
-3B75 0021
-3B75 003F
-3B75 0061
-3B75 0041
-3B75 0062
-3B76 0021
-3B76 003F
-3B76 0061
-3B76 0041
-3B76 0062
-3B77 0021
-3B77 003F
-3B77 0061
-3B77 0041
-3B77 0062
-3B78 0021
-3B78 003F
-3B78 0061
-3B78 0041
-3B78 0062
-3B79 0021
-3B79 003F
-3B79 0061
-3B79 0041
-3B79 0062
-3B7A 0021
-3B7A 003F
-3B7A 0061
-3B7A 0041
-3B7A 0062
-3B7B 0021
-3B7B 003F
-3B7B 0061
-3B7B 0041
-3B7B 0062
-3B7C 0021
-3B7C 003F
-3B7C 0061
-3B7C 0041
-3B7C 0062
-3B7D 0021
-3B7D 003F
-3B7D 0061
-3B7D 0041
-3B7D 0062
-3B7E 0021
-3B7E 003F
-3B7E 0061
-3B7E 0041
-3B7E 0062
-3B7F 0021
-3B7F 003F
-3B7F 0061
-3B7F 0041
-3B7F 0062
-3B80 0021
-3B80 003F
-3B80 0061
-3B80 0041
-3B80 0062
-3B81 0021
-3B81 003F
-3B81 0061
-3B81 0041
-3B81 0062
-3B82 0021
-3B82 003F
-3B82 0061
-3B82 0041
-3B82 0062
-3B83 0021
-3B83 003F
-3B83 0061
-3B83 0041
-3B83 0062
-3B84 0021
-3B84 003F
-3B84 0061
-3B84 0041
-3B84 0062
-3B85 0021
-3B85 003F
-3B85 0061
-3B85 0041
-3B85 0062
-3B86 0021
-3B86 003F
-3B86 0061
-3B86 0041
-3B86 0062
-3B87 0021
-3B87 003F
-3B87 0061
-3B87 0041
-3B87 0062
-3B88 0021
-3B88 003F
-3B88 0061
-3B88 0041
-3B88 0062
-3B89 0021
-3B89 003F
-3B89 0061
-3B89 0041
-3B89 0062
-3B8A 0021
-3B8A 003F
-3B8A 0061
-3B8A 0041
-3B8A 0062
-3B8B 0021
-3B8B 003F
-3B8B 0061
-3B8B 0041
-3B8B 0062
-3B8C 0021
-3B8C 003F
-3B8C 0061
-3B8C 0041
-3B8C 0062
-3B8D 0021
-3B8D 003F
-3B8D 0061
-3B8D 0041
-3B8D 0062
-3B8E 0021
-3B8E 003F
-3B8E 0061
-3B8E 0041
-3B8E 0062
-3B8F 0021
-3B8F 003F
-3B8F 0061
-3B8F 0041
-3B8F 0062
-3B90 0021
-3B90 003F
-3B90 0061
-3B90 0041
-3B90 0062
-3B91 0021
-3B91 003F
-3B91 0061
-3B91 0041
-3B91 0062
-3B92 0021
-3B92 003F
-3B92 0061
-3B92 0041
-3B92 0062
-3B93 0021
-3B93 003F
-3B93 0061
-3B93 0041
-3B93 0062
-3B94 0021
-3B94 003F
-3B94 0061
-3B94 0041
-3B94 0062
-3B95 0021
-3B95 003F
-3B95 0061
-3B95 0041
-3B95 0062
-3B96 0021
-3B96 003F
-3B96 0061
-3B96 0041
-3B96 0062
-3B97 0021
-3B97 003F
-3B97 0061
-3B97 0041
-3B97 0062
-3B98 0021
-3B98 003F
-3B98 0061
-3B98 0041
-3B98 0062
-3B99 0021
-3B99 003F
-3B99 0061
-3B99 0041
-3B99 0062
-3B9A 0021
-3B9A 003F
-3B9A 0061
-3B9A 0041
-3B9A 0062
-3B9B 0021
-3B9B 003F
-3B9B 0061
-3B9B 0041
-3B9B 0062
-3B9C 0021
-3B9C 003F
-3B9C 0061
-3B9C 0041
-3B9C 0062
-3B9D 0021
-FAD2 0021
-2F8E7 0021
-3B9D 003F
-FAD2 003F
-2F8E7 003F
-2F8E7 0334
-3B9D 0061
-FAD2 0061
-2F8E7 0061
-3B9D 0041
-FAD2 0041
-2F8E7 0041
-3B9D 0062
-FAD2 0062
-2F8E7 0062
-3B9E 0021
-3B9E 003F
-3B9E 0061
-3B9E 0041
-3B9E 0062
-3B9F 0021
-3B9F 003F
-3B9F 0061
-3B9F 0041
-3B9F 0062
-3BA0 0021
-3BA0 003F
-3BA0 0061
-3BA0 0041
-3BA0 0062
-3BA1 0021
-3BA1 003F
-3BA1 0061
-3BA1 0041
-3BA1 0062
-3BA2 0021
-3BA2 003F
-3BA2 0061
-3BA2 0041
-3BA2 0062
-3BA3 0021
-3BA3 003F
-3BA3 0061
-3BA3 0041
-3BA3 0062
-3BA4 0021
-3BA4 003F
-3BA4 0061
-3BA4 0041
-3BA4 0062
-3BA5 0021
-3BA5 003F
-3BA5 0061
-3BA5 0041
-3BA5 0062
-3BA6 0021
-3BA6 003F
-3BA6 0061
-3BA6 0041
-3BA6 0062
-3BA7 0021
-3BA7 003F
-3BA7 0061
-3BA7 0041
-3BA7 0062
-3BA8 0021
-3BA8 003F
-3BA8 0061
-3BA8 0041
-3BA8 0062
-3BA9 0021
-3BA9 003F
-3BA9 0061
-3BA9 0041
-3BA9 0062
-3BAA 0021
-3BAA 003F
-3BAA 0061
-3BAA 0041
-3BAA 0062
-3BAB 0021
-3BAB 003F
-3BAB 0061
-3BAB 0041
-3BAB 0062
-3BAC 0021
-3BAC 003F
-3BAC 0061
-3BAC 0041
-3BAC 0062
-3BAD 0021
-3BAD 003F
-3BAD 0061
-3BAD 0041
-3BAD 0062
-3BAE 0021
-3BAE 003F
-3BAE 0061
-3BAE 0041
-3BAE 0062
-3BAF 0021
-3BAF 003F
-3BAF 0061
-3BAF 0041
-3BAF 0062
-3BB0 0021
-3BB0 003F
-3BB0 0061
-3BB0 0041
-3BB0 0062
-3BB1 0021
-3BB1 003F
-3BB1 0061
-3BB1 0041
-3BB1 0062
-3BB2 0021
-3BB2 003F
-3BB2 0061
-3BB2 0041
-3BB2 0062
-3BB3 0021
-3BB3 003F
-3BB3 0061
-3BB3 0041
-3BB3 0062
-3BB4 0021
-3BB4 003F
-3BB4 0061
-3BB4 0041
-3BB4 0062
-3BB5 0021
-3BB5 003F
-3BB5 0061
-3BB5 0041
-3BB5 0062
-3BB6 0021
-3BB6 003F
-3BB6 0061
-3BB6 0041
-3BB6 0062
-3BB7 0021
-3BB7 003F
-3BB7 0061
-3BB7 0041
-3BB7 0062
-3BB8 0021
-3BB8 003F
-3BB8 0061
-3BB8 0041
-3BB8 0062
-3BB9 0021
-3BB9 003F
-3BB9 0061
-3BB9 0041
-3BB9 0062
-3BBA 0021
-3BBA 003F
-3BBA 0061
-3BBA 0041
-3BBA 0062
-3BBB 0021
-3BBB 003F
-3BBB 0061
-3BBB 0041
-3BBB 0062
-3BBC 0021
-3BBC 003F
-3BBC 0061
-3BBC 0041
-3BBC 0062
-3BBD 0021
-3BBD 003F
-3BBD 0061
-3BBD 0041
-3BBD 0062
-3BBE 0021
-3BBE 003F
-3BBE 0061
-3BBE 0041
-3BBE 0062
-3BBF 0021
-3BBF 003F
-3BBF 0061
-3BBF 0041
-3BBF 0062
-3BC0 0021
-3BC0 003F
-3BC0 0061
-3BC0 0041
-3BC0 0062
-3BC1 0021
-3BC1 003F
-3BC1 0061
-3BC1 0041
-3BC1 0062
-3BC2 0021
-3BC2 003F
-3BC2 0061
-3BC2 0041
-3BC2 0062
-3BC3 0021
-3BC3 003F
-3BC3 0061
-3BC3 0041
-3BC3 0062
-3BC4 0021
-3BC4 003F
-3BC4 0061
-3BC4 0041
-3BC4 0062
-3BC5 0021
-3BC5 003F
-3BC5 0061
-3BC5 0041
-3BC5 0062
-3BC6 0021
-3BC6 003F
-3BC6 0061
-3BC6 0041
-3BC6 0062
-3BC7 0021
-3BC7 003F
-3BC7 0061
-3BC7 0041
-3BC7 0062
-3BC8 0021
-3BC8 003F
-3BC8 0061
-3BC8 0041
-3BC8 0062
-3BC9 0021
-3BC9 003F
-3BC9 0061
-3BC9 0041
-3BC9 0062
-3BCA 0021
-3BCA 003F
-3BCA 0061
-3BCA 0041
-3BCA 0062
-3BCB 0021
-3BCB 003F
-3BCB 0061
-3BCB 0041
-3BCB 0062
-3BCC 0021
-3BCC 003F
-3BCC 0061
-3BCC 0041
-3BCC 0062
-3BCD 0021
-3BCD 003F
-3BCD 0061
-3BCD 0041
-3BCD 0062
-3BCE 0021
-3BCE 003F
-3BCE 0061
-3BCE 0041
-3BCE 0062
-3BCF 0021
-3BCF 003F
-3BCF 0061
-3BCF 0041
-3BCF 0062
-3BD0 0021
-3BD0 003F
-3BD0 0061
-3BD0 0041
-3BD0 0062
-3BD1 0021
-3BD1 003F
-3BD1 0061
-3BD1 0041
-3BD1 0062
-3BD2 0021
-3BD2 003F
-3BD2 0061
-3BD2 0041
-3BD2 0062
-3BD3 0021
-3BD3 003F
-3BD3 0061
-3BD3 0041
-3BD3 0062
-3BD4 0021
-3BD4 003F
-3BD4 0061
-3BD4 0041
-3BD4 0062
-3BD5 0021
-3BD5 003F
-3BD5 0061
-3BD5 0041
-3BD5 0062
-3BD6 0021
-3BD6 003F
-3BD6 0061
-3BD6 0041
-3BD6 0062
-3BD7 0021
-3BD7 003F
-3BD7 0061
-3BD7 0041
-3BD7 0062
-3BD8 0021
-3BD8 003F
-3BD8 0061
-3BD8 0041
-3BD8 0062
-3BD9 0021
-3BD9 003F
-3BD9 0061
-3BD9 0041
-3BD9 0062
-3BDA 0021
-3BDA 003F
-3BDA 0061
-3BDA 0041
-3BDA 0062
-3BDB 0021
-3BDB 003F
-3BDB 0061
-3BDB 0041
-3BDB 0062
-3BDC 0021
-3BDC 003F
-3BDC 0061
-3BDC 0041
-3BDC 0062
-3BDD 0021
-3BDD 003F
-3BDD 0061
-3BDD 0041
-3BDD 0062
-3BDE 0021
-3BDE 003F
-3BDE 0061
-3BDE 0041
-3BDE 0062
-3BDF 0021
-3BDF 003F
-3BDF 0061
-3BDF 0041
-3BDF 0062
-3BE0 0021
-3BE0 003F
-3BE0 0061
-3BE0 0041
-3BE0 0062
-3BE1 0021
-3BE1 003F
-3BE1 0061
-3BE1 0041
-3BE1 0062
-3BE2 0021
-3BE2 003F
-3BE2 0061
-3BE2 0041
-3BE2 0062
-3BE3 0021
-3BE3 003F
-3BE3 0061
-3BE3 0041
-3BE3 0062
-3BE4 0021
-3BE4 003F
-3BE4 0061
-3BE4 0041
-3BE4 0062
-3BE5 0021
-3BE5 003F
-3BE5 0061
-3BE5 0041
-3BE5 0062
-3BE6 0021
-3BE6 003F
-3BE6 0061
-3BE6 0041
-3BE6 0062
-3BE7 0021
-3BE7 003F
-3BE7 0061
-3BE7 0041
-3BE7 0062
-3BE8 0021
-3BE8 003F
-3BE8 0061
-3BE8 0041
-3BE8 0062
-3BE9 0021
-3BE9 003F
-3BE9 0061
-3BE9 0041
-3BE9 0062
-3BEA 0021
-3BEA 003F
-3BEA 0061
-3BEA 0041
-3BEA 0062
-3BEB 0021
-3BEB 003F
-3BEB 0061
-3BEB 0041
-3BEB 0062
-3BEC 0021
-3BEC 003F
-3BEC 0061
-3BEC 0041
-3BEC 0062
-3BED 0021
-3BED 003F
-3BED 0061
-3BED 0041
-3BED 0062
-3BEE 0021
-3BEE 003F
-3BEE 0061
-3BEE 0041
-3BEE 0062
-3BEF 0021
-3BEF 003F
-3BEF 0061
-3BEF 0041
-3BEF 0062
-3BF0 0021
-3BF0 003F
-3BF0 0061
-3BF0 0041
-3BF0 0062
-3BF1 0021
-3BF1 003F
-3BF1 0061
-3BF1 0041
-3BF1 0062
-3BF2 0021
-3BF2 003F
-3BF2 0061
-3BF2 0041
-3BF2 0062
-3BF3 0021
-3BF3 003F
-3BF3 0061
-3BF3 0041
-3BF3 0062
-3BF4 0021
-3BF4 003F
-3BF4 0061
-3BF4 0041
-3BF4 0062
-3BF5 0021
-3BF5 003F
-3BF5 0061
-3BF5 0041
-3BF5 0062
-3BF6 0021
-3BF6 003F
-3BF6 0061
-3BF6 0041
-3BF6 0062
-3BF7 0021
-3BF7 003F
-3BF7 0061
-3BF7 0041
-3BF7 0062
-3BF8 0021
-3BF8 003F
-3BF8 0061
-3BF8 0041
-3BF8 0062
-3BF9 0021
-3BF9 003F
-3BF9 0061
-3BF9 0041
-3BF9 0062
-3BFA 0021
-3BFA 003F
-3BFA 0061
-3BFA 0041
-3BFA 0062
-3BFB 0021
-3BFB 003F
-3BFB 0061
-3BFB 0041
-3BFB 0062
-3BFC 0021
-3BFC 003F
-3BFC 0061
-3BFC 0041
-3BFC 0062
-3BFD 0021
-3BFD 003F
-3BFD 0061
-3BFD 0041
-3BFD 0062
-3BFE 0021
-3BFE 003F
-3BFE 0061
-3BFE 0041
-3BFE 0062
-3BFF 0021
-3BFF 003F
-3BFF 0061
-3BFF 0041
-3BFF 0062
-3C00 0021
-3C00 003F
-3C00 0061
-3C00 0041
-3C00 0062
-3C01 0021
-3C01 003F
-3C01 0061
-3C01 0041
-3C01 0062
-3C02 0021
-3C02 003F
-3C02 0061
-3C02 0041
-3C02 0062
-3C03 0021
-3C03 003F
-3C03 0061
-3C03 0041
-3C03 0062
-3C04 0021
-3C04 003F
-3C04 0061
-3C04 0041
-3C04 0062
-3C05 0021
-3C05 003F
-3C05 0061
-3C05 0041
-3C05 0062
-3C06 0021
-3C06 003F
-3C06 0061
-3C06 0041
-3C06 0062
-3C07 0021
-3C07 003F
-3C07 0061
-3C07 0041
-3C07 0062
-3C08 0021
-3C08 003F
-3C08 0061
-3C08 0041
-3C08 0062
-3C09 0021
-3C09 003F
-3C09 0061
-3C09 0041
-3C09 0062
-3C0A 0021
-3C0A 003F
-3C0A 0061
-3C0A 0041
-3C0A 0062
-3C0B 0021
-3C0B 003F
-3C0B 0061
-3C0B 0041
-3C0B 0062
-3C0C 0021
-3C0C 003F
-3C0C 0061
-3C0C 0041
-3C0C 0062
-3C0D 0021
-3C0D 003F
-3C0D 0061
-3C0D 0041
-3C0D 0062
-3C0E 0021
-3C0E 003F
-3C0E 0061
-3C0E 0041
-3C0E 0062
-3C0F 0021
-3C0F 003F
-3C0F 0061
-3C0F 0041
-3C0F 0062
-3C10 0021
-3C10 003F
-3C10 0061
-3C10 0041
-3C10 0062
-3C11 0021
-3C11 003F
-3C11 0061
-3C11 0041
-3C11 0062
-3C12 0021
-3C12 003F
-3C12 0061
-3C12 0041
-3C12 0062
-3C13 0021
-3C13 003F
-3C13 0061
-3C13 0041
-3C13 0062
-3C14 0021
-3C14 003F
-3C14 0061
-3C14 0041
-3C14 0062
-3C15 0021
-3C15 003F
-3C15 0061
-3C15 0041
-3C15 0062
-3C16 0021
-3C16 003F
-3C16 0061
-3C16 0041
-3C16 0062
-3C17 0021
-3C17 003F
-3C17 0061
-3C17 0041
-3C17 0062
-3C18 0021
-2F8EE 0021
-3C18 003F
-2F8EE 003F
-2F8EE 0334
-3C18 0061
-2F8EE 0061
-3C18 0041
-2F8EE 0041
-3C18 0062
-2F8EE 0062
-3C19 0021
-3C19 003F
-3C19 0061
-3C19 0041
-3C19 0062
-3C1A 0021
-3C1A 003F
-3C1A 0061
-3C1A 0041
-3C1A 0062
-3C1B 0021
-3C1B 003F
-3C1B 0061
-3C1B 0041
-3C1B 0062
-3C1C 0021
-3C1C 003F
-3C1C 0061
-3C1C 0041
-3C1C 0062
-3C1D 0021
-3C1D 003F
-3C1D 0061
-3C1D 0041
-3C1D 0062
-3C1E 0021
-3C1E 003F
-3C1E 0061
-3C1E 0041
-3C1E 0062
-3C1F 0021
-3C1F 003F
-3C1F 0061
-3C1F 0041
-3C1F 0062
-3C20 0021
-3C20 003F
-3C20 0061
-3C20 0041
-3C20 0062
-3C21 0021
-3C21 003F
-3C21 0061
-3C21 0041
-3C21 0062
-3C22 0021
-3C22 003F
-3C22 0061
-3C22 0041
-3C22 0062
-3C23 0021
-3C23 003F
-3C23 0061
-3C23 0041
-3C23 0062
-3C24 0021
-3C24 003F
-3C24 0061
-3C24 0041
-3C24 0062
-3C25 0021
-3C25 003F
-3C25 0061
-3C25 0041
-3C25 0062
-3C26 0021
-3C26 003F
-3C26 0061
-3C26 0041
-3C26 0062
-3C27 0021
-3C27 003F
-3C27 0061
-3C27 0041
-3C27 0062
-3C28 0021
-3C28 003F
-3C28 0061
-3C28 0041
-3C28 0062
-3C29 0021
-3C29 003F
-3C29 0061
-3C29 0041
-3C29 0062
-3C2A 0021
-3C2A 003F
-3C2A 0061
-3C2A 0041
-3C2A 0062
-3C2B 0021
-3C2B 003F
-3C2B 0061
-3C2B 0041
-3C2B 0062
-3C2C 0021
-3C2C 003F
-3C2C 0061
-3C2C 0041
-3C2C 0062
-3C2D 0021
-3C2D 003F
-3C2D 0061
-3C2D 0041
-3C2D 0062
-3C2E 0021
-3C2E 003F
-3C2E 0061
-3C2E 0041
-3C2E 0062
-3C2F 0021
-3C2F 003F
-3C2F 0061
-3C2F 0041
-3C2F 0062
-3C30 0021
-3C30 003F
-3C30 0061
-3C30 0041
-3C30 0062
-3C31 0021
-3C31 003F
-3C31 0061
-3C31 0041
-3C31 0062
-3C32 0021
-3C32 003F
-3C32 0061
-3C32 0041
-3C32 0062
-3C33 0021
-3C33 003F
-3C33 0061
-3C33 0041
-3C33 0062
-3C34 0021
-3C34 003F
-3C34 0061
-3C34 0041
-3C34 0062
-3C35 0021
-3C35 003F
-3C35 0061
-3C35 0041
-3C35 0062
-3C36 0021
-3C36 003F
-3C36 0061
-3C36 0041
-3C36 0062
-3C37 0021
-3C37 003F
-3C37 0061
-3C37 0041
-3C37 0062
-3C38 0021
-3C38 003F
-3C38 0061
-3C38 0041
-3C38 0062
-3C39 0021
-3C39 003F
-3C39 0061
-3C39 0041
-3C39 0062
-3C3A 0021
-3C3A 003F
-3C3A 0061
-3C3A 0041
-3C3A 0062
-3C3B 0021
-3C3B 003F
-3C3B 0061
-3C3B 0041
-3C3B 0062
-3C3C 0021
-3C3C 003F
-3C3C 0061
-3C3C 0041
-3C3C 0062
-3C3D 0021
-3C3D 003F
-3C3D 0061
-3C3D 0041
-3C3D 0062
-3C3E 0021
-3C3E 003F
-3C3E 0061
-3C3E 0041
-3C3E 0062
-3C3F 0021
-3C3F 003F
-3C3F 0061
-3C3F 0041
-3C3F 0062
-3C40 0021
-3C40 003F
-3C40 0061
-3C40 0041
-3C40 0062
-3C41 0021
-3C41 003F
-3C41 0061
-3C41 0041
-3C41 0062
-3C42 0021
-3C42 003F
-3C42 0061
-3C42 0041
-3C42 0062
-3C43 0021
-3C43 003F
-3C43 0061
-3C43 0041
-3C43 0062
-3C44 0021
-3C44 003F
-3C44 0061
-3C44 0041
-3C44 0062
-3C45 0021
-3C45 003F
-3C45 0061
-3C45 0041
-3C45 0062
-3C46 0021
-3C46 003F
-3C46 0061
-3C46 0041
-3C46 0062
-3C47 0021
-3C47 003F
-3C47 0061
-3C47 0041
-3C47 0062
-3C48 0021
-3C48 003F
-3C48 0061
-3C48 0041
-3C48 0062
-3C49 0021
-3C49 003F
-3C49 0061
-3C49 0041
-3C49 0062
-3C4A 0021
-3C4A 003F
-3C4A 0061
-3C4A 0041
-3C4A 0062
-3C4B 0021
-3C4B 003F
-3C4B 0061
-3C4B 0041
-3C4B 0062
-3C4C 0021
-3C4C 003F
-3C4C 0061
-3C4C 0041
-3C4C 0062
-3C4D 0021
-3C4D 003F
-3C4D 0061
-3C4D 0041
-3C4D 0062
-3C4E 0021
-2F8F2 0021
-3C4E 003F
-2F8F2 003F
-2F8F2 0334
-3C4E 0061
-2F8F2 0061
-3C4E 0041
-2F8F2 0041
-3C4E 0062
-2F8F2 0062
-3C4F 0021
-3C4F 003F
-3C4F 0061
-3C4F 0041
-3C4F 0062
-3C50 0021
-3C50 003F
-3C50 0061
-3C50 0041
-3C50 0062
-3C51 0021
-3C51 003F
-3C51 0061
-3C51 0041
-3C51 0062
-3C52 0021
-3C52 003F
-3C52 0061
-3C52 0041
-3C52 0062
-3C53 0021
-3C53 003F
-3C53 0061
-3C53 0041
-3C53 0062
-3C54 0021
-3C54 003F
-3C54 0061
-3C54 0041
-3C54 0062
-3C55 0021
-3C55 003F
-3C55 0061
-3C55 0041
-3C55 0062
-3C56 0021
-3C56 003F
-3C56 0061
-3C56 0041
-3C56 0062
-3C57 0021
-3C57 003F
-3C57 0061
-3C57 0041
-3C57 0062
-3C58 0021
-3C58 003F
-3C58 0061
-3C58 0041
-3C58 0062
-3C59 0021
-3C59 003F
-3C59 0061
-3C59 0041
-3C59 0062
-3C5A 0021
-3C5A 003F
-3C5A 0061
-3C5A 0041
-3C5A 0062
-3C5B 0021
-3C5B 003F
-3C5B 0061
-3C5B 0041
-3C5B 0062
-3C5C 0021
-3C5C 003F
-3C5C 0061
-3C5C 0041
-3C5C 0062
-3C5D 0021
-3C5D 003F
-3C5D 0061
-3C5D 0041
-3C5D 0062
-3C5E 0021
-3C5E 003F
-3C5E 0061
-3C5E 0041
-3C5E 0062
-3C5F 0021
-3C5F 003F
-3C5F 0061
-3C5F 0041
-3C5F 0062
-3C60 0021
-3C60 003F
-3C60 0061
-3C60 0041
-3C60 0062
-3C61 0021
-3C61 003F
-3C61 0061
-3C61 0041
-3C61 0062
-3C62 0021
-3C62 003F
-3C62 0061
-3C62 0041
-3C62 0062
-3C63 0021
-3C63 003F
-3C63 0061
-3C63 0041
-3C63 0062
-3C64 0021
-3C64 003F
-3C64 0061
-3C64 0041
-3C64 0062
-3C65 0021
-3C65 003F
-3C65 0061
-3C65 0041
-3C65 0062
-3C66 0021
-3C66 003F
-3C66 0061
-3C66 0041
-3C66 0062
-3C67 0021
-3C67 003F
-3C67 0061
-3C67 0041
-3C67 0062
-3C68 0021
-3C68 003F
-3C68 0061
-3C68 0041
-3C68 0062
-3C69 0021
-3C69 003F
-3C69 0061
-3C69 0041
-3C69 0062
-3C6A 0021
-3C6A 003F
-3C6A 0061
-3C6A 0041
-3C6A 0062
-3C6B 0021
-3C6B 003F
-3C6B 0061
-3C6B 0041
-3C6B 0062
-3C6C 0021
-3C6C 003F
-3C6C 0061
-3C6C 0041
-3C6C 0062
-3C6D 0021
-3C6D 003F
-3C6D 0061
-3C6D 0041
-3C6D 0062
-3C6E 0021
-3C6E 003F
-3C6E 0061
-3C6E 0041
-3C6E 0062
-3C6F 0021
-3C6F 003F
-3C6F 0061
-3C6F 0041
-3C6F 0062
-3C70 0021
-3C70 003F
-3C70 0061
-3C70 0041
-3C70 0062
-3C71 0021
-3C71 003F
-3C71 0061
-3C71 0041
-3C71 0062
-3C72 0021
-3C72 003F
-3C72 0061
-3C72 0041
-3C72 0062
-3C73 0021
-3C73 003F
-3C73 0061
-3C73 0041
-3C73 0062
-3C74 0021
-3C74 003F
-3C74 0061
-3C74 0041
-3C74 0062
-3C75 0021
-3C75 003F
-3C75 0061
-3C75 0041
-3C75 0062
-3C76 0021
-3C76 003F
-3C76 0061
-3C76 0041
-3C76 0062
-3C77 0021
-3C77 003F
-3C77 0061
-3C77 0041
-3C77 0062
-3C78 0021
-3C78 003F
-3C78 0061
-3C78 0041
-3C78 0062
-3C79 0021
-3C79 003F
-3C79 0061
-3C79 0041
-3C79 0062
-3C7A 0021
-3C7A 003F
-3C7A 0061
-3C7A 0041
-3C7A 0062
-3C7B 0021
-3C7B 003F
-3C7B 0061
-3C7B 0041
-3C7B 0062
-3C7C 0021
-3C7C 003F
-3C7C 0061
-3C7C 0041
-3C7C 0062
-3C7D 0021
-3C7D 003F
-3C7D 0061
-3C7D 0041
-3C7D 0062
-3C7E 0021
-3C7E 003F
-3C7E 0061
-3C7E 0041
-3C7E 0062
-3C7F 0021
-3C7F 003F
-3C7F 0061
-3C7F 0041
-3C7F 0062
-3C80 0021
-3C80 003F
-3C80 0061
-3C80 0041
-3C80 0062
-3C81 0021
-3C81 003F
-3C81 0061
-3C81 0041
-3C81 0062
-3C82 0021
-3C82 003F
-3C82 0061
-3C82 0041
-3C82 0062
-3C83 0021
-3C83 003F
-3C83 0061
-3C83 0041
-3C83 0062
-3C84 0021
-3C84 003F
-3C84 0061
-3C84 0041
-3C84 0062
-3C85 0021
-3C85 003F
-3C85 0061
-3C85 0041
-3C85 0062
-3C86 0021
-3C86 003F
-3C86 0061
-3C86 0041
-3C86 0062
-3C87 0021
-3C87 003F
-3C87 0061
-3C87 0041
-3C87 0062
-3C88 0021
-3C88 003F
-3C88 0061
-3C88 0041
-3C88 0062
-3C89 0021
-3C89 003F
-3C89 0061
-3C89 0041
-3C89 0062
-3C8A 0021
-3C8A 003F
-3C8A 0061
-3C8A 0041
-3C8A 0062
-3C8B 0021
-3C8B 003F
-3C8B 0061
-3C8B 0041
-3C8B 0062
-3C8C 0021
-3C8C 003F
-3C8C 0061
-3C8C 0041
-3C8C 0062
-3C8D 0021
-3C8D 003F
-3C8D 0061
-3C8D 0041
-3C8D 0062
-3C8E 0021
-3C8E 003F
-3C8E 0061
-3C8E 0041
-3C8E 0062
-3C8F 0021
-3C8F 003F
-3C8F 0061
-3C8F 0041
-3C8F 0062
-3C90 0021
-3C90 003F
-3C90 0061
-3C90 0041
-3C90 0062
-3C91 0021
-3C91 003F
-3C91 0061
-3C91 0041
-3C91 0062
-3C92 0021
-3C92 003F
-3C92 0061
-3C92 0041
-3C92 0062
-3C93 0021
-3C93 003F
-3C93 0061
-3C93 0041
-3C93 0062
-3C94 0021
-3C94 003F
-3C94 0061
-3C94 0041
-3C94 0062
-3C95 0021
-3C95 003F
-3C95 0061
-3C95 0041
-3C95 0062
-3C96 0021
-3C96 003F
-3C96 0061
-3C96 0041
-3C96 0062
-3C97 0021
-3C97 003F
-3C97 0061
-3C97 0041
-3C97 0062
-3C98 0021
-3C98 003F
-3C98 0061
-3C98 0041
-3C98 0062
-3C99 0021
-3C99 003F
-3C99 0061
-3C99 0041
-3C99 0062
-3C9A 0021
-3C9A 003F
-3C9A 0061
-3C9A 0041
-3C9A 0062
-3C9B 0021
-3C9B 003F
-3C9B 0061
-3C9B 0041
-3C9B 0062
-3C9C 0021
-3C9C 003F
-3C9C 0061
-3C9C 0041
-3C9C 0062
-3C9D 0021
-3C9D 003F
-3C9D 0061
-3C9D 0041
-3C9D 0062
-3C9E 0021
-3C9E 003F
-3C9E 0061
-3C9E 0041
-3C9E 0062
-3C9F 0021
-3C9F 003F
-3C9F 0061
-3C9F 0041
-3C9F 0062
-3CA0 0021
-3CA0 003F
-3CA0 0061
-3CA0 0041
-3CA0 0062
-3CA1 0021
-3CA1 003F
-3CA1 0061
-3CA1 0041
-3CA1 0062
-3CA2 0021
-3CA2 003F
-3CA2 0061
-3CA2 0041
-3CA2 0062
-3CA3 0021
-3CA3 003F
-3CA3 0061
-3CA3 0041
-3CA3 0062
-3CA4 0021
-3CA4 003F
-3CA4 0061
-3CA4 0041
-3CA4 0062
-3CA5 0021
-3CA5 003F
-3CA5 0061
-3CA5 0041
-3CA5 0062
-3CA6 0021
-3CA6 003F
-3CA6 0061
-3CA6 0041
-3CA6 0062
-3CA7 0021
-3CA7 003F
-3CA7 0061
-3CA7 0041
-3CA7 0062
-3CA8 0021
-3CA8 003F
-3CA8 0061
-3CA8 0041
-3CA8 0062
-3CA9 0021
-3CA9 003F
-3CA9 0061
-3CA9 0041
-3CA9 0062
-3CAA 0021
-3CAA 003F
-3CAA 0061
-3CAA 0041
-3CAA 0062
-3CAB 0021
-3CAB 003F
-3CAB 0061
-3CAB 0041
-3CAB 0062
-3CAC 0021
-3CAC 003F
-3CAC 0061
-3CAC 0041
-3CAC 0062
-3CAD 0021
-3CAD 003F
-3CAD 0061
-3CAD 0041
-3CAD 0062
-3CAE 0021
-3CAE 003F
-3CAE 0061
-3CAE 0041
-3CAE 0062
-3CAF 0021
-3CAF 003F
-3CAF 0061
-3CAF 0041
-3CAF 0062
-3CB0 0021
-3CB0 003F
-3CB0 0061
-3CB0 0041
-3CB0 0062
-3CB1 0021
-3CB1 003F
-3CB1 0061
-3CB1 0041
-3CB1 0062
-3CB2 0021
-3CB2 003F
-3CB2 0061
-3CB2 0041
-3CB2 0062
-3CB3 0021
-3CB3 003F
-3CB3 0061
-3CB3 0041
-3CB3 0062
-3CB4 0021
-3CB4 003F
-3CB4 0061
-3CB4 0041
-3CB4 0062
-3CB5 0021
-3CB5 003F
-3CB5 0061
-3CB5 0041
-3CB5 0062
-3CB6 0021
-3CB6 003F
-3CB6 0061
-3CB6 0041
-3CB6 0062
-3CB7 0021
-3CB7 003F
-3CB7 0061
-3CB7 0041
-3CB7 0062
-3CB8 0021
-3CB8 003F
-3CB8 0061
-3CB8 0041
-3CB8 0062
-3CB9 0021
-3CB9 003F
-3CB9 0061
-3CB9 0041
-3CB9 0062
-3CBA 0021
-3CBA 003F
-3CBA 0061
-3CBA 0041
-3CBA 0062
-3CBB 0021
-3CBB 003F
-3CBB 0061
-3CBB 0041
-3CBB 0062
-3CBC 0021
-3CBC 003F
-3CBC 0061
-3CBC 0041
-3CBC 0062
-3CBD 0021
-3CBD 003F
-3CBD 0061
-3CBD 0041
-3CBD 0062
-3CBE 0021
-3CBE 003F
-3CBE 0061
-3CBE 0041
-3CBE 0062
-3CBF 0021
-3CBF 003F
-3CBF 0061
-3CBF 0041
-3CBF 0062
-3CC0 0021
-3CC0 003F
-3CC0 0061
-3CC0 0041
-3CC0 0062
-3CC1 0021
-3CC1 003F
-3CC1 0061
-3CC1 0041
-3CC1 0062
-3CC2 0021
-3CC2 003F
-3CC2 0061
-3CC2 0041
-3CC2 0062
-3CC3 0021
-3CC3 003F
-3CC3 0061
-3CC3 0041
-3CC3 0062
-3CC4 0021
-3CC4 003F
-3CC4 0061
-3CC4 0041
-3CC4 0062
-3CC5 0021
-3CC5 003F
-3CC5 0061
-3CC5 0041
-3CC5 0062
-3CC6 0021
-3CC6 003F
-3CC6 0061
-3CC6 0041
-3CC6 0062
-3CC7 0021
-3CC7 003F
-3CC7 0061
-3CC7 0041
-3CC7 0062
-3CC8 0021
-3CC8 003F
-3CC8 0061
-3CC8 0041
-3CC8 0062
-3CC9 0021
-3CC9 003F
-3CC9 0061
-3CC9 0041
-3CC9 0062
-3CCA 0021
-3CCA 003F
-3CCA 0061
-3CCA 0041
-3CCA 0062
-3CCB 0021
-3CCB 003F
-3CCB 0061
-3CCB 0041
-3CCB 0062
-3CCC 0021
-3CCC 003F
-3CCC 0061
-3CCC 0041
-3CCC 0062
-3CCD 0021
-3CCD 003F
-3CCD 0061
-3CCD 0041
-3CCD 0062
-3CCE 0021
-3CCE 003F
-3CCE 0061
-3CCE 0041
-3CCE 0062
-3CCF 0021
-3CCF 003F
-3CCF 0061
-3CCF 0041
-3CCF 0062
-3CD0 0021
-3CD0 003F
-3CD0 0061
-3CD0 0041
-3CD0 0062
-3CD1 0021
-3CD1 003F
-3CD1 0061
-3CD1 0041
-3CD1 0062
-3CD2 0021
-3CD2 003F
-3CD2 0061
-3CD2 0041
-3CD2 0062
-3CD3 0021
-3CD3 003F
-3CD3 0061
-3CD3 0041
-3CD3 0062
-3CD4 0021
-3CD4 003F
-3CD4 0061
-3CD4 0041
-3CD4 0062
-3CD5 0021
-3CD5 003F
-3CD5 0061
-3CD5 0041
-3CD5 0062
-3CD6 0021
-3CD6 003F
-3CD6 0061
-3CD6 0041
-3CD6 0062
-3CD7 0021
-3CD7 003F
-3CD7 0061
-3CD7 0041
-3CD7 0062
-3CD8 0021
-3CD8 003F
-3CD8 0061
-3CD8 0041
-3CD8 0062
-3CD9 0021
-3CD9 003F
-3CD9 0061
-3CD9 0041
-3CD9 0062
-3CDA 0021
-3CDA 003F
-3CDA 0061
-3CDA 0041
-3CDA 0062
-3CDB 0021
-3CDB 003F
-3CDB 0061
-3CDB 0041
-3CDB 0062
-3CDC 0021
-3CDC 003F
-3CDC 0061
-3CDC 0041
-3CDC 0062
-3CDD 0021
-3CDD 003F
-3CDD 0061
-3CDD 0041
-3CDD 0062
-3CDE 0021
-3CDE 003F
-3CDE 0061
-3CDE 0041
-3CDE 0062
-3CDF 0021
-3CDF 003F
-3CDF 0061
-3CDF 0041
-3CDF 0062
-3CE0 0021
-3CE0 003F
-3CE0 0061
-3CE0 0041
-3CE0 0062
-3CE1 0021
-3CE1 003F
-3CE1 0061
-3CE1 0041
-3CE1 0062
-3CE2 0021
-3CE2 003F
-3CE2 0061
-3CE2 0041
-3CE2 0062
-3CE3 0021
-3CE3 003F
-3CE3 0061
-3CE3 0041
-3CE3 0062
-3CE4 0021
-3CE4 003F
-3CE4 0061
-3CE4 0041
-3CE4 0062
-3CE5 0021
-3CE5 003F
-3CE5 0061
-3CE5 0041
-3CE5 0062
-3CE6 0021
-3CE6 003F
-3CE6 0061
-3CE6 0041
-3CE6 0062
-3CE7 0021
-3CE7 003F
-3CE7 0061
-3CE7 0041
-3CE7 0062
-3CE8 0021
-3CE8 003F
-3CE8 0061
-3CE8 0041
-3CE8 0062
-3CE9 0021
-3CE9 003F
-3CE9 0061
-3CE9 0041
-3CE9 0062
-3CEA 0021
-3CEA 003F
-3CEA 0061
-3CEA 0041
-3CEA 0062
-3CEB 0021
-3CEB 003F
-3CEB 0061
-3CEB 0041
-3CEB 0062
-3CEC 0021
-3CEC 003F
-3CEC 0061
-3CEC 0041
-3CEC 0062
-3CED 0021
-3CED 003F
-3CED 0061
-3CED 0041
-3CED 0062
-3CEE 0021
-3CEE 003F
-3CEE 0061
-3CEE 0041
-3CEE 0062
-3CEF 0021
-3CEF 003F
-3CEF 0061
-3CEF 0041
-3CEF 0062
-3CF0 0021
-3CF0 003F
-3CF0 0061
-3CF0 0041
-3CF0 0062
-3CF1 0021
-3CF1 003F
-3CF1 0061
-3CF1 0041
-3CF1 0062
-3CF2 0021
-3CF2 003F
-3CF2 0061
-3CF2 0041
-3CF2 0062
-3CF3 0021
-3CF3 003F
-3CF3 0061
-3CF3 0041
-3CF3 0062
-3CF4 0021
-3CF4 003F
-3CF4 0061
-3CF4 0041
-3CF4 0062
-3CF5 0021
-3CF5 003F
-3CF5 0061
-3CF5 0041
-3CF5 0062
-3CF6 0021
-3CF6 003F
-3CF6 0061
-3CF6 0041
-3CF6 0062
-3CF7 0021
-3CF7 003F
-3CF7 0061
-3CF7 0041
-3CF7 0062
-3CF8 0021
-3CF8 003F
-3CF8 0061
-3CF8 0041
-3CF8 0062
-3CF9 0021
-3CF9 003F
-3CF9 0061
-3CF9 0041
-3CF9 0062
-3CFA 0021
-3CFA 003F
-3CFA 0061
-3CFA 0041
-3CFA 0062
-3CFB 0021
-3CFB 003F
-3CFB 0061
-3CFB 0041
-3CFB 0062
-3CFC 0021
-3CFC 003F
-3CFC 0061
-3CFC 0041
-3CFC 0062
-3CFD 0021
-3CFD 003F
-3CFD 0061
-3CFD 0041
-3CFD 0062
-3CFE 0021
-3CFE 003F
-3CFE 0061
-3CFE 0041
-3CFE 0062
-3CFF 0021
-3CFF 003F
-3CFF 0061
-3CFF 0041
-3CFF 0062
-3D00 0021
-3D00 003F
-3D00 0061
-3D00 0041
-3D00 0062
-3D01 0021
-3D01 003F
-3D01 0061
-3D01 0041
-3D01 0062
-3D02 0021
-3D02 003F
-3D02 0061
-3D02 0041
-3D02 0062
-3D03 0021
-3D03 003F
-3D03 0061
-3D03 0041
-3D03 0062
-3D04 0021
-3D04 003F
-3D04 0061
-3D04 0041
-3D04 0062
-3D05 0021
-3D05 003F
-3D05 0061
-3D05 0041
-3D05 0062
-3D06 0021
-3D06 003F
-3D06 0061
-3D06 0041
-3D06 0062
-3D07 0021
-3D07 003F
-3D07 0061
-3D07 0041
-3D07 0062
-3D08 0021
-3D08 003F
-3D08 0061
-3D08 0041
-3D08 0062
-3D09 0021
-3D09 003F
-3D09 0061
-3D09 0041
-3D09 0062
-3D0A 0021
-3D0A 003F
-3D0A 0061
-3D0A 0041
-3D0A 0062
-3D0B 0021
-3D0B 003F
-3D0B 0061
-3D0B 0041
-3D0B 0062
-3D0C 0021
-3D0C 003F
-3D0C 0061
-3D0C 0041
-3D0C 0062
-3D0D 0021
-3D0D 003F
-3D0D 0061
-3D0D 0041
-3D0D 0062
-3D0E 0021
-3D0E 003F
-3D0E 0061
-3D0E 0041
-3D0E 0062
-3D0F 0021
-3D0F 003F
-3D0F 0061
-3D0F 0041
-3D0F 0062
-3D10 0021
-3D10 003F
-3D10 0061
-3D10 0041
-3D10 0062
-3D11 0021
-3D11 003F
-3D11 0061
-3D11 0041
-3D11 0062
-3D12 0021
-3D12 003F
-3D12 0061
-3D12 0041
-3D12 0062
-3D13 0021
-3D13 003F
-3D13 0061
-3D13 0041
-3D13 0062
-3D14 0021
-3D14 003F
-3D14 0061
-3D14 0041
-3D14 0062
-3D15 0021
-3D15 003F
-3D15 0061
-3D15 0041
-3D15 0062
-3D16 0021
-3D16 003F
-3D16 0061
-3D16 0041
-3D16 0062
-3D17 0021
-3D17 003F
-3D17 0061
-3D17 0041
-3D17 0062
-3D18 0021
-3D18 003F
-3D18 0061
-3D18 0041
-3D18 0062
-3D19 0021
-3D19 003F
-3D19 0061
-3D19 0041
-3D19 0062
-3D1A 0021
-3D1A 003F
-3D1A 0061
-3D1A 0041
-3D1A 0062
-3D1B 0021
-3D1B 003F
-3D1B 0061
-3D1B 0041
-3D1B 0062
-3D1C 0021
-3D1C 003F
-3D1C 0061
-3D1C 0041
-3D1C 0062
-3D1D 0021
-3D1D 003F
-3D1D 0061
-3D1D 0041
-3D1D 0062
-3D1E 0021
-3D1E 003F
-3D1E 0061
-3D1E 0041
-3D1E 0062
-3D1F 0021
-3D1F 003F
-3D1F 0061
-3D1F 0041
-3D1F 0062
-3D20 0021
-3D20 003F
-3D20 0061
-3D20 0041
-3D20 0062
-3D21 0021
-3D21 003F
-3D21 0061
-3D21 0041
-3D21 0062
-3D22 0021
-3D22 003F
-3D22 0061
-3D22 0041
-3D22 0062
-3D23 0021
-3D23 003F
-3D23 0061
-3D23 0041
-3D23 0062
-3D24 0021
-3D24 003F
-3D24 0061
-3D24 0041
-3D24 0062
-3D25 0021
-3D25 003F
-3D25 0061
-3D25 0041
-3D25 0062
-3D26 0021
-3D26 003F
-3D26 0061
-3D26 0041
-3D26 0062
-3D27 0021
-3D27 003F
-3D27 0061
-3D27 0041
-3D27 0062
-3D28 0021
-3D28 003F
-3D28 0061
-3D28 0041
-3D28 0062
-3D29 0021
-3D29 003F
-3D29 0061
-3D29 0041
-3D29 0062
-3D2A 0021
-3D2A 003F
-3D2A 0061
-3D2A 0041
-3D2A 0062
-3D2B 0021
-3D2B 003F
-3D2B 0061
-3D2B 0041
-3D2B 0062
-3D2C 0021
-3D2C 003F
-3D2C 0061
-3D2C 0041
-3D2C 0062
-3D2D 0021
-3D2D 003F
-3D2D 0061
-3D2D 0041
-3D2D 0062
-3D2E 0021
-3D2E 003F
-3D2E 0061
-3D2E 0041
-3D2E 0062
-3D2F 0021
-3D2F 003F
-3D2F 0061
-3D2F 0041
-3D2F 0062
-3D30 0021
-3D30 003F
-3D30 0061
-3D30 0041
-3D30 0062
-3D31 0021
-3D31 003F
-3D31 0061
-3D31 0041
-3D31 0062
-3D32 0021
-3D32 003F
-3D32 0061
-3D32 0041
-3D32 0062
-3D33 0021
-2F90A 0021
-3D33 003F
-2F90A 003F
-2F90A 0334
-3D33 0061
-2F90A 0061
-3D33 0041
-2F90A 0041
-3D33 0062
-2F90A 0062
-3D34 0021
-3D34 003F
-3D34 0061
-3D34 0041
-3D34 0062
-3D35 0021
-3D35 003F
-3D35 0061
-3D35 0041
-3D35 0062
-3D36 0021
-3D36 003F
-3D36 0061
-3D36 0041
-3D36 0062
-3D37 0021
-3D37 003F
-3D37 0061
-3D37 0041
-3D37 0062
-3D38 0021
-3D38 003F
-3D38 0061
-3D38 0041
-3D38 0062
-3D39 0021
-3D39 003F
-3D39 0061
-3D39 0041
-3D39 0062
-3D3A 0021
-3D3A 003F
-3D3A 0061
-3D3A 0041
-3D3A 0062
-3D3B 0021
-3D3B 003F
-3D3B 0061
-3D3B 0041
-3D3B 0062
-3D3C 0021
-3D3C 003F
-3D3C 0061
-3D3C 0041
-3D3C 0062
-3D3D 0021
-3D3D 003F
-3D3D 0061
-3D3D 0041
-3D3D 0062
-3D3E 0021
-3D3E 003F
-3D3E 0061
-3D3E 0041
-3D3E 0062
-3D3F 0021
-3D3F 003F
-3D3F 0061
-3D3F 0041
-3D3F 0062
-3D40 0021
-3D40 003F
-3D40 0061
-3D40 0041
-3D40 0062
-3D41 0021
-3D41 003F
-3D41 0061
-3D41 0041
-3D41 0062
-3D42 0021
-3D42 003F
-3D42 0061
-3D42 0041
-3D42 0062
-3D43 0021
-3D43 003F
-3D43 0061
-3D43 0041
-3D43 0062
-3D44 0021
-3D44 003F
-3D44 0061
-3D44 0041
-3D44 0062
-3D45 0021
-3D45 003F
-3D45 0061
-3D45 0041
-3D45 0062
-3D46 0021
-3D46 003F
-3D46 0061
-3D46 0041
-3D46 0062
-3D47 0021
-3D47 003F
-3D47 0061
-3D47 0041
-3D47 0062
-3D48 0021
-3D48 003F
-3D48 0061
-3D48 0041
-3D48 0062
-3D49 0021
-3D49 003F
-3D49 0061
-3D49 0041
-3D49 0062
-3D4A 0021
-3D4A 003F
-3D4A 0061
-3D4A 0041
-3D4A 0062
-3D4B 0021
-3D4B 003F
-3D4B 0061
-3D4B 0041
-3D4B 0062
-3D4C 0021
-3D4C 003F
-3D4C 0061
-3D4C 0041
-3D4C 0062
-3D4D 0021
-3D4D 003F
-3D4D 0061
-3D4D 0041
-3D4D 0062
-3D4E 0021
-3D4E 003F
-3D4E 0061
-3D4E 0041
-3D4E 0062
-3D4F 0021
-3D4F 003F
-3D4F 0061
-3D4F 0041
-3D4F 0062
-3D50 0021
-3D50 003F
-3D50 0061
-3D50 0041
-3D50 0062
-3D51 0021
-3D51 003F
-3D51 0061
-3D51 0041
-3D51 0062
-3D52 0021
-3D52 003F
-3D52 0061
-3D52 0041
-3D52 0062
-3D53 0021
-3D53 003F
-3D53 0061
-3D53 0041
-3D53 0062
-3D54 0021
-3D54 003F
-3D54 0061
-3D54 0041
-3D54 0062
-3D55 0021
-3D55 003F
-3D55 0061
-3D55 0041
-3D55 0062
-3D56 0021
-3D56 003F
-3D56 0061
-3D56 0041
-3D56 0062
-3D57 0021
-3D57 003F
-3D57 0061
-3D57 0041
-3D57 0062
-3D58 0021
-3D58 003F
-3D58 0061
-3D58 0041
-3D58 0062
-3D59 0021
-3D59 003F
-3D59 0061
-3D59 0041
-3D59 0062
-3D5A 0021
-3D5A 003F
-3D5A 0061
-3D5A 0041
-3D5A 0062
-3D5B 0021
-3D5B 003F
-3D5B 0061
-3D5B 0041
-3D5B 0062
-3D5C 0021
-3D5C 003F
-3D5C 0061
-3D5C 0041
-3D5C 0062
-3D5D 0021
-3D5D 003F
-3D5D 0061
-3D5D 0041
-3D5D 0062
-3D5E 0021
-3D5E 003F
-3D5E 0061
-3D5E 0041
-3D5E 0062
-3D5F 0021
-3D5F 003F
-3D5F 0061
-3D5F 0041
-3D5F 0062
-3D60 0021
-3D60 003F
-3D60 0061
-3D60 0041
-3D60 0062
-3D61 0021
-3D61 003F
-3D61 0061
-3D61 0041
-3D61 0062
-3D62 0021
-3D62 003F
-3D62 0061
-3D62 0041
-3D62 0062
-3D63 0021
-3D63 003F
-3D63 0061
-3D63 0041
-3D63 0062
-3D64 0021
-3D64 003F
-3D64 0061
-3D64 0041
-3D64 0062
-3D65 0021
-3D65 003F
-3D65 0061
-3D65 0041
-3D65 0062
-3D66 0021
-3D66 003F
-3D66 0061
-3D66 0041
-3D66 0062
-3D67 0021
-3D67 003F
-3D67 0061
-3D67 0041
-3D67 0062
-3D68 0021
-3D68 003F
-3D68 0061
-3D68 0041
-3D68 0062
-3D69 0021
-3D69 003F
-3D69 0061
-3D69 0041
-3D69 0062
-3D6A 0021
-3D6A 003F
-3D6A 0061
-3D6A 0041
-3D6A 0062
-3D6B 0021
-3D6B 003F
-3D6B 0061
-3D6B 0041
-3D6B 0062
-3D6C 0021
-3D6C 003F
-3D6C 0061
-3D6C 0041
-3D6C 0062
-3D6D 0021
-3D6D 003F
-3D6D 0061
-3D6D 0041
-3D6D 0062
-3D6E 0021
-3D6E 003F
-3D6E 0061
-3D6E 0041
-3D6E 0062
-3D6F 0021
-3D6F 003F
-3D6F 0061
-3D6F 0041
-3D6F 0062
-3D70 0021
-3D70 003F
-3D70 0061
-3D70 0041
-3D70 0062
-3D71 0021
-3D71 003F
-3D71 0061
-3D71 0041
-3D71 0062
-3D72 0021
-3D72 003F
-3D72 0061
-3D72 0041
-3D72 0062
-3D73 0021
-3D73 003F
-3D73 0061
-3D73 0041
-3D73 0062
-3D74 0021
-3D74 003F
-3D74 0061
-3D74 0041
-3D74 0062
-3D75 0021
-3D75 003F
-3D75 0061
-3D75 0041
-3D75 0062
-3D76 0021
-3D76 003F
-3D76 0061
-3D76 0041
-3D76 0062
-3D77 0021
-3D77 003F
-3D77 0061
-3D77 0041
-3D77 0062
-3D78 0021
-3D78 003F
-3D78 0061
-3D78 0041
-3D78 0062
-3D79 0021
-3D79 003F
-3D79 0061
-3D79 0041
-3D79 0062
-3D7A 0021
-3D7A 003F
-3D7A 0061
-3D7A 0041
-3D7A 0062
-3D7B 0021
-3D7B 003F
-3D7B 0061
-3D7B 0041
-3D7B 0062
-3D7C 0021
-3D7C 003F
-3D7C 0061
-3D7C 0041
-3D7C 0062
-3D7D 0021
-3D7D 003F
-3D7D 0061
-3D7D 0041
-3D7D 0062
-3D7E 0021
-3D7E 003F
-3D7E 0061
-3D7E 0041
-3D7E 0062
-3D7F 0021
-3D7F 003F
-3D7F 0061
-3D7F 0041
-3D7F 0062
-3D80 0021
-3D80 003F
-3D80 0061
-3D80 0041
-3D80 0062
-3D81 0021
-3D81 003F
-3D81 0061
-3D81 0041
-3D81 0062
-3D82 0021
-3D82 003F
-3D82 0061
-3D82 0041
-3D82 0062
-3D83 0021
-3D83 003F
-3D83 0061
-3D83 0041
-3D83 0062
-3D84 0021
-3D84 003F
-3D84 0061
-3D84 0041
-3D84 0062
-3D85 0021
-3D85 003F
-3D85 0061
-3D85 0041
-3D85 0062
-3D86 0021
-3D86 003F
-3D86 0061
-3D86 0041
-3D86 0062
-3D87 0021
-3D87 003F
-3D87 0061
-3D87 0041
-3D87 0062
-3D88 0021
-3D88 003F
-3D88 0061
-3D88 0041
-3D88 0062
-3D89 0021
-3D89 003F
-3D89 0061
-3D89 0041
-3D89 0062
-3D8A 0021
-3D8A 003F
-3D8A 0061
-3D8A 0041
-3D8A 0062
-3D8B 0021
-3D8B 003F
-3D8B 0061
-3D8B 0041
-3D8B 0062
-3D8C 0021
-3D8C 003F
-3D8C 0061
-3D8C 0041
-3D8C 0062
-3D8D 0021
-3D8D 003F
-3D8D 0061
-3D8D 0041
-3D8D 0062
-3D8E 0021
-3D8E 003F
-3D8E 0061
-3D8E 0041
-3D8E 0062
-3D8F 0021
-3D8F 003F
-3D8F 0061
-3D8F 0041
-3D8F 0062
-3D90 0021
-3D90 003F
-3D90 0061
-3D90 0041
-3D90 0062
-3D91 0021
-3D91 003F
-3D91 0061
-3D91 0041
-3D91 0062
-3D92 0021
-3D92 003F
-3D92 0061
-3D92 0041
-3D92 0062
-3D93 0021
-3D93 003F
-3D93 0061
-3D93 0041
-3D93 0062
-3D94 0021
-3D94 003F
-3D94 0061
-3D94 0041
-3D94 0062
-3D95 0021
-3D95 003F
-3D95 0061
-3D95 0041
-3D95 0062
-3D96 0021
-2F916 0021
-3D96 003F
-2F916 003F
-2F916 0334
-3D96 0061
-2F916 0061
-3D96 0041
-2F916 0041
-3D96 0062
-2F916 0062
-3D97 0021
-3D97 003F
-3D97 0061
-3D97 0041
-3D97 0062
-3D98 0021
-3D98 003F
-3D98 0061
-3D98 0041
-3D98 0062
-3D99 0021
-3D99 003F
-3D99 0061
-3D99 0041
-3D99 0062
-3D9A 0021
-3D9A 003F
-3D9A 0061
-3D9A 0041
-3D9A 0062
-3D9B 0021
-3D9B 003F
-3D9B 0061
-3D9B 0041
-3D9B 0062
-3D9C 0021
-3D9C 003F
-3D9C 0061
-3D9C 0041
-3D9C 0062
-3D9D 0021
-3D9D 003F
-3D9D 0061
-3D9D 0041
-3D9D 0062
-3D9E 0021
-3D9E 003F
-3D9E 0061
-3D9E 0041
-3D9E 0062
-3D9F 0021
-3D9F 003F
-3D9F 0061
-3D9F 0041
-3D9F 0062
-3DA0 0021
-3DA0 003F
-3DA0 0061
-3DA0 0041
-3DA0 0062
-3DA1 0021
-3DA1 003F
-3DA1 0061
-3DA1 0041
-3DA1 0062
-3DA2 0021
-3DA2 003F
-3DA2 0061
-3DA2 0041
-3DA2 0062
-3DA3 0021
-3DA3 003F
-3DA3 0061
-3DA3 0041
-3DA3 0062
-3DA4 0021
-3DA4 003F
-3DA4 0061
-3DA4 0041
-3DA4 0062
-3DA5 0021
-3DA5 003F
-3DA5 0061
-3DA5 0041
-3DA5 0062
-3DA6 0021
-3DA6 003F
-3DA6 0061
-3DA6 0041
-3DA6 0062
-3DA7 0021
-3DA7 003F
-3DA7 0061
-3DA7 0041
-3DA7 0062
-3DA8 0021
-3DA8 003F
-3DA8 0061
-3DA8 0041
-3DA8 0062
-3DA9 0021
-3DA9 003F
-3DA9 0061
-3DA9 0041
-3DA9 0062
-3DAA 0021
-3DAA 003F
-3DAA 0061
-3DAA 0041
-3DAA 0062
-3DAB 0021
-3DAB 003F
-3DAB 0061
-3DAB 0041
-3DAB 0062
-3DAC 0021
-3DAC 003F
-3DAC 0061
-3DAC 0041
-3DAC 0062
-3DAD 0021
-3DAD 003F
-3DAD 0061
-3DAD 0041
-3DAD 0062
-3DAE 0021
-3DAE 003F
-3DAE 0061
-3DAE 0041
-3DAE 0062
-3DAF 0021
-3DAF 003F
-3DAF 0061
-3DAF 0041
-3DAF 0062
-3DB0 0021
-3DB0 003F
-3DB0 0061
-3DB0 0041
-3DB0 0062
-3DB1 0021
-3DB1 003F
-3DB1 0061
-3DB1 0041
-3DB1 0062
-3DB2 0021
-3DB2 003F
-3DB2 0061
-3DB2 0041
-3DB2 0062
-3DB3 0021
-3DB3 003F
-3DB3 0061
-3DB3 0041
-3DB3 0062
-3DB4 0021
-3DB4 003F
-3DB4 0061
-3DB4 0041
-3DB4 0062
-3DB5 0021
-3DB5 003F
-3DB5 0061
-3DB5 0041
-3DB5 0062
-3DB6 0021
-3DB6 003F
-3DB6 0061
-3DB6 0041
-3DB6 0062
-3DB7 0021
-3DB7 003F
-3DB7 0061
-3DB7 0041
-3DB7 0062
-3DB8 0021
-3DB8 003F
-3DB8 0061
-3DB8 0041
-3DB8 0062
-3DB9 0021
-3DB9 003F
-3DB9 0061
-3DB9 0041
-3DB9 0062
-3DBA 0021
-3DBA 003F
-3DBA 0061
-3DBA 0041
-3DBA 0062
-3DBB 0021
-3DBB 003F
-3DBB 0061
-3DBB 0041
-3DBB 0062
-3DBC 0021
-3DBC 003F
-3DBC 0061
-3DBC 0041
-3DBC 0062
-3DBD 0021
-3DBD 003F
-3DBD 0061
-3DBD 0041
-3DBD 0062
-3DBE 0021
-3DBE 003F
-3DBE 0061
-3DBE 0041
-3DBE 0062
-3DBF 0021
-3DBF 003F
-3DBF 0061
-3DBF 0041
-3DBF 0062
-3DC0 0021
-3DC0 003F
-3DC0 0061
-3DC0 0041
-3DC0 0062
-3DC1 0021
-3DC1 003F
-3DC1 0061
-3DC1 0041
-3DC1 0062
-3DC2 0021
-3DC2 003F
-3DC2 0061
-3DC2 0041
-3DC2 0062
-3DC3 0021
-3DC3 003F
-3DC3 0061
-3DC3 0041
-3DC3 0062
-3DC4 0021
-3DC4 003F
-3DC4 0061
-3DC4 0041
-3DC4 0062
-3DC5 0021
-3DC5 003F
-3DC5 0061
-3DC5 0041
-3DC5 0062
-3DC6 0021
-3DC6 003F
-3DC6 0061
-3DC6 0041
-3DC6 0062
-3DC7 0021
-3DC7 003F
-3DC7 0061
-3DC7 0041
-3DC7 0062
-3DC8 0021
-3DC8 003F
-3DC8 0061
-3DC8 0041
-3DC8 0062
-3DC9 0021
-3DC9 003F
-3DC9 0061
-3DC9 0041
-3DC9 0062
-3DCA 0021
-3DCA 003F
-3DCA 0061
-3DCA 0041
-3DCA 0062
-3DCB 0021
-3DCB 003F
-3DCB 0061
-3DCB 0041
-3DCB 0062
-3DCC 0021
-3DCC 003F
-3DCC 0061
-3DCC 0041
-3DCC 0062
-3DCD 0021
-3DCD 003F
-3DCD 0061
-3DCD 0041
-3DCD 0062
-3DCE 0021
-3DCE 003F
-3DCE 0061
-3DCE 0041
-3DCE 0062
-3DCF 0021
-3DCF 003F
-3DCF 0061
-3DCF 0041
-3DCF 0062
-3DD0 0021
-3DD0 003F
-3DD0 0061
-3DD0 0041
-3DD0 0062
-3DD1 0021
-3DD1 003F
-3DD1 0061
-3DD1 0041
-3DD1 0062
-3DD2 0021
-3DD2 003F
-3DD2 0061
-3DD2 0041
-3DD2 0062
-3DD3 0021
-3DD3 003F
-3DD3 0061
-3DD3 0041
-3DD3 0062
-3DD4 0021
-3DD4 003F
-3DD4 0061
-3DD4 0041
-3DD4 0062
-3DD5 0021
-3DD5 003F
-3DD5 0061
-3DD5 0041
-3DD5 0062
-3DD6 0021
-3DD6 003F
-3DD6 0061
-3DD6 0041
-3DD6 0062
-3DD7 0021
-3DD7 003F
-3DD7 0061
-3DD7 0041
-3DD7 0062
-3DD8 0021
-3DD8 003F
-3DD8 0061
-3DD8 0041
-3DD8 0062
-3DD9 0021
-3DD9 003F
-3DD9 0061
-3DD9 0041
-3DD9 0062
-3DDA 0021
-3DDA 003F
-3DDA 0061
-3DDA 0041
-3DDA 0062
-3DDB 0021
-3DDB 003F
-3DDB 0061
-3DDB 0041
-3DDB 0062
-3DDC 0021
-3DDC 003F
-3DDC 0061
-3DDC 0041
-3DDC 0062
-3DDD 0021
-3DDD 003F
-3DDD 0061
-3DDD 0041
-3DDD 0062
-3DDE 0021
-3DDE 003F
-3DDE 0061
-3DDE 0041
-3DDE 0062
-3DDF 0021
-3DDF 003F
-3DDF 0061
-3DDF 0041
-3DDF 0062
-3DE0 0021
-3DE0 003F
-3DE0 0061
-3DE0 0041
-3DE0 0062
-3DE1 0021
-3DE1 003F
-3DE1 0061
-3DE1 0041
-3DE1 0062
-3DE2 0021
-3DE2 003F
-3DE2 0061
-3DE2 0041
-3DE2 0062
-3DE3 0021
-3DE3 003F
-3DE3 0061
-3DE3 0041
-3DE3 0062
-3DE4 0021
-3DE4 003F
-3DE4 0061
-3DE4 0041
-3DE4 0062
-3DE5 0021
-3DE5 003F
-3DE5 0061
-3DE5 0041
-3DE5 0062
-3DE6 0021
-3DE6 003F
-3DE6 0061
-3DE6 0041
-3DE6 0062
-3DE7 0021
-3DE7 003F
-3DE7 0061
-3DE7 0041
-3DE7 0062
-3DE8 0021
-3DE8 003F
-3DE8 0061
-3DE8 0041
-3DE8 0062
-3DE9 0021
-3DE9 003F
-3DE9 0061
-3DE9 0041
-3DE9 0062
-3DEA 0021
-3DEA 003F
-3DEA 0061
-3DEA 0041
-3DEA 0062
-3DEB 0021
-3DEB 003F
-3DEB 0061
-3DEB 0041
-3DEB 0062
-3DEC 0021
-3DEC 003F
-3DEC 0061
-3DEC 0041
-3DEC 0062
-3DED 0021
-3DED 003F
-3DED 0061
-3DED 0041
-3DED 0062
-3DEE 0021
-3DEE 003F
-3DEE 0061
-3DEE 0041
-3DEE 0062
-3DEF 0021
-3DEF 003F
-3DEF 0061
-3DEF 0041
-3DEF 0062
-3DF0 0021
-3DF0 003F
-3DF0 0061
-3DF0 0041
-3DF0 0062
-3DF1 0021
-3DF1 003F
-3DF1 0061
-3DF1 0041
-3DF1 0062
-3DF2 0021
-3DF2 003F
-3DF2 0061
-3DF2 0041
-3DF2 0062
-3DF3 0021
-3DF3 003F
-3DF3 0061
-3DF3 0041
-3DF3 0062
-3DF4 0021
-3DF4 003F
-3DF4 0061
-3DF4 0041
-3DF4 0062
-3DF5 0021
-3DF5 003F
-3DF5 0061
-3DF5 0041
-3DF5 0062
-3DF6 0021
-3DF6 003F
-3DF6 0061
-3DF6 0041
-3DF6 0062
-3DF7 0021
-3DF7 003F
-3DF7 0061
-3DF7 0041
-3DF7 0062
-3DF8 0021
-3DF8 003F
-3DF8 0061
-3DF8 0041
-3DF8 0062
-3DF9 0021
-3DF9 003F
-3DF9 0061
-3DF9 0041
-3DF9 0062
-3DFA 0021
-3DFA 003F
-3DFA 0061
-3DFA 0041
-3DFA 0062
-3DFB 0021
-3DFB 003F
-3DFB 0061
-3DFB 0041
-3DFB 0062
-3DFC 0021
-3DFC 003F
-3DFC 0061
-3DFC 0041
-3DFC 0062
-3DFD 0021
-3DFD 003F
-3DFD 0061
-3DFD 0041
-3DFD 0062
-3DFE 0021
-3DFE 003F
-3DFE 0061
-3DFE 0041
-3DFE 0062
-3DFF 0021
-3DFF 003F
-3DFF 0061
-3DFF 0041
-3DFF 0062
-3E00 0021
-3E00 003F
-3E00 0061
-3E00 0041
-3E00 0062
-3E01 0021
-3E01 003F
-3E01 0061
-3E01 0041
-3E01 0062
-3E02 0021
-3E02 003F
-3E02 0061
-3E02 0041
-3E02 0062
-3E03 0021
-3E03 003F
-3E03 0061
-3E03 0041
-3E03 0062
-3E04 0021
-3E04 003F
-3E04 0061
-3E04 0041
-3E04 0062
-3E05 0021
-3E05 003F
-3E05 0061
-3E05 0041
-3E05 0062
-3E06 0021
-3E06 003F
-3E06 0061
-3E06 0041
-3E06 0062
-3E07 0021
-3E07 003F
-3E07 0061
-3E07 0041
-3E07 0062
-3E08 0021
-3E08 003F
-3E08 0061
-3E08 0041
-3E08 0062
-3E09 0021
-3E09 003F
-3E09 0061
-3E09 0041
-3E09 0062
-3E0A 0021
-3E0A 003F
-3E0A 0061
-3E0A 0041
-3E0A 0062
-3E0B 0021
-3E0B 003F
-3E0B 0061
-3E0B 0041
-3E0B 0062
-3E0C 0021
-3E0C 003F
-3E0C 0061
-3E0C 0041
-3E0C 0062
-3E0D 0021
-3E0D 003F
-3E0D 0061
-3E0D 0041
-3E0D 0062
-3E0E 0021
-3E0E 003F
-3E0E 0061
-3E0E 0041
-3E0E 0062
-3E0F 0021
-3E0F 003F
-3E0F 0061
-3E0F 0041
-3E0F 0062
-3E10 0021
-3E10 003F
-3E10 0061
-3E10 0041
-3E10 0062
-3E11 0021
-3E11 003F
-3E11 0061
-3E11 0041
-3E11 0062
-3E12 0021
-3E12 003F
-3E12 0061
-3E12 0041
-3E12 0062
-3E13 0021
-3E13 003F
-3E13 0061
-3E13 0041
-3E13 0062
-3E14 0021
-3E14 003F
-3E14 0061
-3E14 0041
-3E14 0062
-3E15 0021
-3E15 003F
-3E15 0061
-3E15 0041
-3E15 0062
-3E16 0021
-3E16 003F
-3E16 0061
-3E16 0041
-3E16 0062
-3E17 0021
-3E17 003F
-3E17 0061
-3E17 0041
-3E17 0062
-3E18 0021
-3E18 003F
-3E18 0061
-3E18 0041
-3E18 0062
-3E19 0021
-3E19 003F
-3E19 0061
-3E19 0041
-3E19 0062
-3E1A 0021
-3E1A 003F
-3E1A 0061
-3E1A 0041
-3E1A 0062
-3E1B 0021
-3E1B 003F
-3E1B 0061
-3E1B 0041
-3E1B 0062
-3E1C 0021
-3E1C 003F
-3E1C 0061
-3E1C 0041
-3E1C 0062
-3E1D 0021
-3E1D 003F
-3E1D 0061
-3E1D 0041
-3E1D 0062
-3E1E 0021
-3E1E 003F
-3E1E 0061
-3E1E 0041
-3E1E 0062
-3E1F 0021
-3E1F 003F
-3E1F 0061
-3E1F 0041
-3E1F 0062
-3E20 0021
-3E20 003F
-3E20 0061
-3E20 0041
-3E20 0062
-3E21 0021
-3E21 003F
-3E21 0061
-3E21 0041
-3E21 0062
-3E22 0021
-3E22 003F
-3E22 0061
-3E22 0041
-3E22 0062
-3E23 0021
-3E23 003F
-3E23 0061
-3E23 0041
-3E23 0062
-3E24 0021
-3E24 003F
-3E24 0061
-3E24 0041
-3E24 0062
-3E25 0021
-3E25 003F
-3E25 0061
-3E25 0041
-3E25 0062
-3E26 0021
-3E26 003F
-3E26 0061
-3E26 0041
-3E26 0062
-3E27 0021
-3E27 003F
-3E27 0061
-3E27 0041
-3E27 0062
-3E28 0021
-3E28 003F
-3E28 0061
-3E28 0041
-3E28 0062
-3E29 0021
-3E29 003F
-3E29 0061
-3E29 0041
-3E29 0062
-3E2A 0021
-3E2A 003F
-3E2A 0061
-3E2A 0041
-3E2A 0062
-3E2B 0021
-3E2B 003F
-3E2B 0061
-3E2B 0041
-3E2B 0062
-3E2C 0021
-3E2C 003F
-3E2C 0061
-3E2C 0041
-3E2C 0062
-3E2D 0021
-3E2D 003F
-3E2D 0061
-3E2D 0041
-3E2D 0062
-3E2E 0021
-3E2E 003F
-3E2E 0061
-3E2E 0041
-3E2E 0062
-3E2F 0021
-3E2F 003F
-3E2F 0061
-3E2F 0041
-3E2F 0062
-3E30 0021
-3E30 003F
-3E30 0061
-3E30 0041
-3E30 0062
-3E31 0021
-3E31 003F
-3E31 0061
-3E31 0041
-3E31 0062
-3E32 0021
-3E32 003F
-3E32 0061
-3E32 0041
-3E32 0062
-3E33 0021
-3E33 003F
-3E33 0061
-3E33 0041
-3E33 0062
-3E34 0021
-3E34 003F
-3E34 0061
-3E34 0041
-3E34 0062
-3E35 0021
-3E35 003F
-3E35 0061
-3E35 0041
-3E35 0062
-3E36 0021
-3E36 003F
-3E36 0061
-3E36 0041
-3E36 0062
-3E37 0021
-3E37 003F
-3E37 0061
-3E37 0041
-3E37 0062
-3E38 0021
-3E38 003F
-3E38 0061
-3E38 0041
-3E38 0062
-3E39 0021
-3E39 003F
-3E39 0061
-3E39 0041
-3E39 0062
-3E3A 0021
-3E3A 003F
-3E3A 0061
-3E3A 0041
-3E3A 0062
-3E3B 0021
-3E3B 003F
-3E3B 0061
-3E3B 0041
-3E3B 0062
-3E3C 0021
-3E3C 003F
-3E3C 0061
-3E3C 0041
-3E3C 0062
-3E3D 0021
-3E3D 003F
-3E3D 0061
-3E3D 0041
-3E3D 0062
-3E3E 0021
-3E3E 003F
-3E3E 0061
-3E3E 0041
-3E3E 0062
-3E3F 0021
-3E3F 003F
-3E3F 0061
-3E3F 0041
-3E3F 0062
-3E40 0021
-3E40 003F
-3E40 0061
-3E40 0041
-3E40 0062
-3E41 0021
-3E41 003F
-3E41 0061
-3E41 0041
-3E41 0062
-3E42 0021
-3E42 003F
-3E42 0061
-3E42 0041
-3E42 0062
-3E43 0021
-3E43 003F
-3E43 0061
-3E43 0041
-3E43 0062
-3E44 0021
-3E44 003F
-3E44 0061
-3E44 0041
-3E44 0062
-3E45 0021
-3E45 003F
-3E45 0061
-3E45 0041
-3E45 0062
-3E46 0021
-3E46 003F
-3E46 0061
-3E46 0041
-3E46 0062
-3E47 0021
-3E47 003F
-3E47 0061
-3E47 0041
-3E47 0062
-3E48 0021
-3E48 003F
-3E48 0061
-3E48 0041
-3E48 0062
-3E49 0021
-3E49 003F
-3E49 0061
-3E49 0041
-3E49 0062
-3E4A 0021
-3E4A 003F
-3E4A 0061
-3E4A 0041
-3E4A 0062
-3E4B 0021
-3E4B 003F
-3E4B 0061
-3E4B 0041
-3E4B 0062
-3E4C 0021
-3E4C 003F
-3E4C 0061
-3E4C 0041
-3E4C 0062
-3E4D 0021
-3E4D 003F
-3E4D 0061
-3E4D 0041
-3E4D 0062
-3E4E 0021
-3E4E 003F
-3E4E 0061
-3E4E 0041
-3E4E 0062
-3E4F 0021
-3E4F 003F
-3E4F 0061
-3E4F 0041
-3E4F 0062
-3E50 0021
-3E50 003F
-3E50 0061
-3E50 0041
-3E50 0062
-3E51 0021
-3E51 003F
-3E51 0061
-3E51 0041
-3E51 0062
-3E52 0021
-3E52 003F
-3E52 0061
-3E52 0041
-3E52 0062
-3E53 0021
-3E53 003F
-3E53 0061
-3E53 0041
-3E53 0062
-3E54 0021
-3E54 003F
-3E54 0061
-3E54 0041
-3E54 0062
-3E55 0021
-3E55 003F
-3E55 0061
-3E55 0041
-3E55 0062
-3E56 0021
-3E56 003F
-3E56 0061
-3E56 0041
-3E56 0062
-3E57 0021
-3E57 003F
-3E57 0061
-3E57 0041
-3E57 0062
-3E58 0021
-3E58 003F
-3E58 0061
-3E58 0041
-3E58 0062
-3E59 0021
-3E59 003F
-3E59 0061
-3E59 0041
-3E59 0062
-3E5A 0021
-3E5A 003F
-3E5A 0061
-3E5A 0041
-3E5A 0062
-3E5B 0021
-3E5B 003F
-3E5B 0061
-3E5B 0041
-3E5B 0062
-3E5C 0021
-3E5C 003F
-3E5C 0061
-3E5C 0041
-3E5C 0062
-3E5D 0021
-3E5D 003F
-3E5D 0061
-3E5D 0041
-3E5D 0062
-3E5E 0021
-3E5E 003F
-3E5E 0061
-3E5E 0041
-3E5E 0062
-3E5F 0021
-3E5F 003F
-3E5F 0061
-3E5F 0041
-3E5F 0062
-3E60 0021
-3E60 003F
-3E60 0061
-3E60 0041
-3E60 0062
-3E61 0021
-3E61 003F
-3E61 0061
-3E61 0041
-3E61 0062
-3E62 0021
-3E62 003F
-3E62 0061
-3E62 0041
-3E62 0062
-3E63 0021
-3E63 003F
-3E63 0061
-3E63 0041
-3E63 0062
-3E64 0021
-3E64 003F
-3E64 0061
-3E64 0041
-3E64 0062
-3E65 0021
-3E65 003F
-3E65 0061
-3E65 0041
-3E65 0062
-3E66 0021
-3E66 003F
-3E66 0061
-3E66 0041
-3E66 0062
-3E67 0021
-3E67 003F
-3E67 0061
-3E67 0041
-3E67 0062
-3E68 0021
-3E68 003F
-3E68 0061
-3E68 0041
-3E68 0062
-3E69 0021
-3E69 003F
-3E69 0061
-3E69 0041
-3E69 0062
-3E6A 0021
-3E6A 003F
-3E6A 0061
-3E6A 0041
-3E6A 0062
-3E6B 0021
-3E6B 003F
-3E6B 0061
-3E6B 0041
-3E6B 0062
-3E6C 0021
-3E6C 003F
-3E6C 0061
-3E6C 0041
-3E6C 0062
-3E6D 0021
-3E6D 003F
-3E6D 0061
-3E6D 0041
-3E6D 0062
-3E6E 0021
-3E6E 003F
-3E6E 0061
-3E6E 0041
-3E6E 0062
-3E6F 0021
-3E6F 003F
-3E6F 0061
-3E6F 0041
-3E6F 0062
-3E70 0021
-3E70 003F
-3E70 0061
-3E70 0041
-3E70 0062
-3E71 0021
-3E71 003F
-3E71 0061
-3E71 0041
-3E71 0062
-3E72 0021
-3E72 003F
-3E72 0061
-3E72 0041
-3E72 0062
-3E73 0021
-3E73 003F
-3E73 0061
-3E73 0041
-3E73 0062
-3E74 0021
-3E74 003F
-3E74 0061
-3E74 0041
-3E74 0062
-3E75 0021
-3E75 003F
-3E75 0061
-3E75 0041
-3E75 0062
-3E76 0021
-3E76 003F
-3E76 0061
-3E76 0041
-3E76 0062
-3E77 0021
-3E77 003F
-3E77 0061
-3E77 0041
-3E77 0062
-3E78 0021
-3E78 003F
-3E78 0061
-3E78 0041
-3E78 0062
-3E79 0021
-3E79 003F
-3E79 0061
-3E79 0041
-3E79 0062
-3E7A 0021
-3E7A 003F
-3E7A 0061
-3E7A 0041
-3E7A 0062
-3E7B 0021
-3E7B 003F
-3E7B 0061
-3E7B 0041
-3E7B 0062
-3E7C 0021
-3E7C 003F
-3E7C 0061
-3E7C 0041
-3E7C 0062
-3E7D 0021
-3E7D 003F
-3E7D 0061
-3E7D 0041
-3E7D 0062
-3E7E 0021
-3E7E 003F
-3E7E 0061
-3E7E 0041
-3E7E 0062
-3E7F 0021
-3E7F 003F
-3E7F 0061
-3E7F 0041
-3E7F 0062
-3E80 0021
-3E80 003F
-3E80 0061
-3E80 0041
-3E80 0062
-3E81 0021
-3E81 003F
-3E81 0061
-3E81 0041
-3E81 0062
-3E82 0021
-3E82 003F
-3E82 0061
-3E82 0041
-3E82 0062
-3E83 0021
-3E83 003F
-3E83 0061
-3E83 0041
-3E83 0062
-3E84 0021
-3E84 003F
-3E84 0061
-3E84 0041
-3E84 0062
-3E85 0021
-3E85 003F
-3E85 0061
-3E85 0041
-3E85 0062
-3E86 0021
-3E86 003F
-3E86 0061
-3E86 0041
-3E86 0062
-3E87 0021
-3E87 003F
-3E87 0061
-3E87 0041
-3E87 0062
-3E88 0021
-3E88 003F
-3E88 0061
-3E88 0041
-3E88 0062
-3E89 0021
-3E89 003F
-3E89 0061
-3E89 0041
-3E89 0062
-3E8A 0021
-3E8A 003F
-3E8A 0061
-3E8A 0041
-3E8A 0062
-3E8B 0021
-3E8B 003F
-3E8B 0061
-3E8B 0041
-3E8B 0062
-3E8C 0021
-3E8C 003F
-3E8C 0061
-3E8C 0041
-3E8C 0062
-3E8D 0021
-3E8D 003F
-3E8D 0061
-3E8D 0041
-3E8D 0062
-3E8E 0021
-3E8E 003F
-3E8E 0061
-3E8E 0041
-3E8E 0062
-3E8F 0021
-3E8F 003F
-3E8F 0061
-3E8F 0041
-3E8F 0062
-3E90 0021
-3E90 003F
-3E90 0061
-3E90 0041
-3E90 0062
-3E91 0021
-3E91 003F
-3E91 0061
-3E91 0041
-3E91 0062
-3E92 0021
-3E92 003F
-3E92 0061
-3E92 0041
-3E92 0062
-3E93 0021
-3E93 003F
-3E93 0061
-3E93 0041
-3E93 0062
-3E94 0021
-3E94 003F
-3E94 0061
-3E94 0041
-3E94 0062
-3E95 0021
-3E95 003F
-3E95 0061
-3E95 0041
-3E95 0062
-3E96 0021
-3E96 003F
-3E96 0061
-3E96 0041
-3E96 0062
-3E97 0021
-3E97 003F
-3E97 0061
-3E97 0041
-3E97 0062
-3E98 0021
-3E98 003F
-3E98 0061
-3E98 0041
-3E98 0062
-3E99 0021
-3E99 003F
-3E99 0061
-3E99 0041
-3E99 0062
-3E9A 0021
-3E9A 003F
-3E9A 0061
-3E9A 0041
-3E9A 0062
-3E9B 0021
-3E9B 003F
-3E9B 0061
-3E9B 0041
-3E9B 0062
-3E9C 0021
-3E9C 003F
-3E9C 0061
-3E9C 0041
-3E9C 0062
-3E9D 0021
-3E9D 003F
-3E9D 0061
-3E9D 0041
-3E9D 0062
-3E9E 0021
-3E9E 003F
-3E9E 0061
-3E9E 0041
-3E9E 0062
-3E9F 0021
-3E9F 003F
-3E9F 0061
-3E9F 0041
-3E9F 0062
-3EA0 0021
-3EA0 003F
-3EA0 0061
-3EA0 0041
-3EA0 0062
-3EA1 0021
-3EA1 003F
-3EA1 0061
-3EA1 0041
-3EA1 0062
-3EA2 0021
-3EA2 003F
-3EA2 0061
-3EA2 0041
-3EA2 0062
-3EA3 0021
-3EA3 003F
-3EA3 0061
-3EA3 0041
-3EA3 0062
-3EA4 0021
-3EA4 003F
-3EA4 0061
-3EA4 0041
-3EA4 0062
-3EA5 0021
-3EA5 003F
-3EA5 0061
-3EA5 0041
-3EA5 0062
-3EA6 0021
-3EA6 003F
-3EA6 0061
-3EA6 0041
-3EA6 0062
-3EA7 0021
-3EA7 003F
-3EA7 0061
-3EA7 0041
-3EA7 0062
-3EA8 0021
-3EA8 003F
-3EA8 0061
-3EA8 0041
-3EA8 0062
-3EA9 0021
-3EA9 003F
-3EA9 0061
-3EA9 0041
-3EA9 0062
-3EAA 0021
-3EAA 003F
-3EAA 0061
-3EAA 0041
-3EAA 0062
-3EAB 0021
-3EAB 003F
-3EAB 0061
-3EAB 0041
-3EAB 0062
-3EAC 0021
-2F92A 0021
-3EAC 003F
-2F92A 003F
-2F92A 0334
-3EAC 0061
-2F92A 0061
-3EAC 0041
-2F92A 0041
-3EAC 0062
-2F92A 0062
-3EAD 0021
-3EAD 003F
-3EAD 0061
-3EAD 0041
-3EAD 0062
-3EAE 0021
-3EAE 003F
-3EAE 0061
-3EAE 0041
-3EAE 0062
-3EAF 0021
-3EAF 003F
-3EAF 0061
-3EAF 0041
-3EAF 0062
-3EB0 0021
-3EB0 003F
-3EB0 0061
-3EB0 0041
-3EB0 0062
-3EB1 0021
-3EB1 003F
-3EB1 0061
-3EB1 0041
-3EB1 0062
-3EB2 0021
-3EB2 003F
-3EB2 0061
-3EB2 0041
-3EB2 0062
-3EB3 0021
-3EB3 003F
-3EB3 0061
-3EB3 0041
-3EB3 0062
-3EB4 0021
-3EB4 003F
-3EB4 0061
-3EB4 0041
-3EB4 0062
-3EB5 0021
-3EB5 003F
-3EB5 0061
-3EB5 0041
-3EB5 0062
-3EB6 0021
-3EB6 003F
-3EB6 0061
-3EB6 0041
-3EB6 0062
-3EB7 0021
-3EB7 003F
-3EB7 0061
-3EB7 0041
-3EB7 0062
-3EB8 0021
-2F92C 0021
-2F92D 0021
-3EB8 003F
-2F92C 003F
-2F92D 003F
-2F92C 0334
-2F92D 0334
-3EB8 0061
-2F92C 0061
-2F92D 0061
-3EB8 0041
-2F92C 0041
-2F92D 0041
-3EB8 0062
-2F92C 0062
-2F92D 0062
-3EB9 0021
-3EB9 003F
-3EB9 0061
-3EB9 0041
-3EB9 0062
-3EBA 0021
-3EBA 003F
-3EBA 0061
-3EBA 0041
-3EBA 0062
-3EBB 0021
-3EBB 003F
-3EBB 0061
-3EBB 0041
-3EBB 0062
-3EBC 0021
-3EBC 003F
-3EBC 0061
-3EBC 0041
-3EBC 0062
-3EBD 0021
-3EBD 003F
-3EBD 0061
-3EBD 0041
-3EBD 0062
-3EBE 0021
-3EBE 003F
-3EBE 0061
-3EBE 0041
-3EBE 0062
-3EBF 0021
-3EBF 003F
-3EBF 0061
-3EBF 0041
-3EBF 0062
-3EC0 0021
-3EC0 003F
-3EC0 0061
-3EC0 0041
-3EC0 0062
-3EC1 0021
-3EC1 003F
-3EC1 0061
-3EC1 0041
-3EC1 0062
-3EC2 0021
-3EC2 003F
-3EC2 0061
-3EC2 0041
-3EC2 0062
-3EC3 0021
-3EC3 003F
-3EC3 0061
-3EC3 0041
-3EC3 0062
-3EC4 0021
-3EC4 003F
-3EC4 0061
-3EC4 0041
-3EC4 0062
-3EC5 0021
-3EC5 003F
-3EC5 0061
-3EC5 0041
-3EC5 0062
-3EC6 0021
-3EC6 003F
-3EC6 0061
-3EC6 0041
-3EC6 0062
-3EC7 0021
-3EC7 003F
-3EC7 0061
-3EC7 0041
-3EC7 0062
-3EC8 0021
-3EC8 003F
-3EC8 0061
-3EC8 0041
-3EC8 0062
-3EC9 0021
-3EC9 003F
-3EC9 0061
-3EC9 0041
-3EC9 0062
-3ECA 0021
-3ECA 003F
-3ECA 0061
-3ECA 0041
-3ECA 0062
-3ECB 0021
-3ECB 003F
-3ECB 0061
-3ECB 0041
-3ECB 0062
-3ECC 0021
-3ECC 003F
-3ECC 0061
-3ECC 0041
-3ECC 0062
-3ECD 0021
-3ECD 003F
-3ECD 0061
-3ECD 0041
-3ECD 0062
-3ECE 0021
-3ECE 003F
-3ECE 0061
-3ECE 0041
-3ECE 0062
-3ECF 0021
-3ECF 003F
-3ECF 0061
-3ECF 0041
-3ECF 0062
-3ED0 0021
-3ED0 003F
-3ED0 0061
-3ED0 0041
-3ED0 0062
-3ED1 0021
-3ED1 003F
-3ED1 0061
-3ED1 0041
-3ED1 0062
-3ED2 0021
-3ED2 003F
-3ED2 0061
-3ED2 0041
-3ED2 0062
-3ED3 0021
-3ED3 003F
-3ED3 0061
-3ED3 0041
-3ED3 0062
-3ED4 0021
-3ED4 003F
-3ED4 0061
-3ED4 0041
-3ED4 0062
-3ED5 0021
-3ED5 003F
-3ED5 0061
-3ED5 0041
-3ED5 0062
-3ED6 0021
-3ED6 003F
-3ED6 0061
-3ED6 0041
-3ED6 0062
-3ED7 0021
-3ED7 003F
-3ED7 0061
-3ED7 0041
-3ED7 0062
-3ED8 0021
-3ED8 003F
-3ED8 0061
-3ED8 0041
-3ED8 0062
-3ED9 0021
-3ED9 003F
-3ED9 0061
-3ED9 0041
-3ED9 0062
-3EDA 0021
-3EDA 003F
-3EDA 0061
-3EDA 0041
-3EDA 0062
-3EDB 0021
-3EDB 003F
-3EDB 0061
-3EDB 0041
-3EDB 0062
-3EDC 0021
-3EDC 003F
-3EDC 0061
-3EDC 0041
-3EDC 0062
-3EDD 0021
-3EDD 003F
-3EDD 0061
-3EDD 0041
-3EDD 0062
-3EDE 0021
-3EDE 003F
-3EDE 0061
-3EDE 0041
-3EDE 0062
-3EDF 0021
-3EDF 003F
-3EDF 0061
-3EDF 0041
-3EDF 0062
-3EE0 0021
-3EE0 003F
-3EE0 0061
-3EE0 0041
-3EE0 0062
-3EE1 0021
-3EE1 003F
-3EE1 0061
-3EE1 0041
-3EE1 0062
-3EE2 0021
-3EE2 003F
-3EE2 0061
-3EE2 0041
-3EE2 0062
-3EE3 0021
-3EE3 003F
-3EE3 0061
-3EE3 0041
-3EE3 0062
-3EE4 0021
-3EE4 003F
-3EE4 0061
-3EE4 0041
-3EE4 0062
-3EE5 0021
-3EE5 003F
-3EE5 0061
-3EE5 0041
-3EE5 0062
-3EE6 0021
-3EE6 003F
-3EE6 0061
-3EE6 0041
-3EE6 0062
-3EE7 0021
-3EE7 003F
-3EE7 0061
-3EE7 0041
-3EE7 0062
-3EE8 0021
-3EE8 003F
-3EE8 0061
-3EE8 0041
-3EE8 0062
-3EE9 0021
-3EE9 003F
-3EE9 0061
-3EE9 0041
-3EE9 0062
-3EEA 0021
-3EEA 003F
-3EEA 0061
-3EEA 0041
-3EEA 0062
-3EEB 0021
-3EEB 003F
-3EEB 0061
-3EEB 0041
-3EEB 0062
-3EEC 0021
-3EEC 003F
-3EEC 0061
-3EEC 0041
-3EEC 0062
-3EED 0021
-3EED 003F
-3EED 0061
-3EED 0041
-3EED 0062
-3EEE 0021
-3EEE 003F
-3EEE 0061
-3EEE 0041
-3EEE 0062
-3EEF 0021
-3EEF 003F
-3EEF 0061
-3EEF 0041
-3EEF 0062
-3EF0 0021
-3EF0 003F
-3EF0 0061
-3EF0 0041
-3EF0 0062
-3EF1 0021
-3EF1 003F
-3EF1 0061
-3EF1 0041
-3EF1 0062
-3EF2 0021
-3EF2 003F
-3EF2 0061
-3EF2 0041
-3EF2 0062
-3EF3 0021
-3EF3 003F
-3EF3 0061
-3EF3 0041
-3EF3 0062
-3EF4 0021
-3EF4 003F
-3EF4 0061
-3EF4 0041
-3EF4 0062
-3EF5 0021
-3EF5 003F
-3EF5 0061
-3EF5 0041
-3EF5 0062
-3EF6 0021
-3EF6 003F
-3EF6 0061
-3EF6 0041
-3EF6 0062
-3EF7 0021
-3EF7 003F
-3EF7 0061
-3EF7 0041
-3EF7 0062
-3EF8 0021
-3EF8 003F
-3EF8 0061
-3EF8 0041
-3EF8 0062
-3EF9 0021
-3EF9 003F
-3EF9 0061
-3EF9 0041
-3EF9 0062
-3EFA 0021
-3EFA 003F
-3EFA 0061
-3EFA 0041
-3EFA 0062
-3EFB 0021
-3EFB 003F
-3EFB 0061
-3EFB 0041
-3EFB 0062
-3EFC 0021
-3EFC 003F
-3EFC 0061
-3EFC 0041
-3EFC 0062
-3EFD 0021
-3EFD 003F
-3EFD 0061
-3EFD 0041
-3EFD 0062
-3EFE 0021
-3EFE 003F
-3EFE 0061
-3EFE 0041
-3EFE 0062
-3EFF 0021
-3EFF 003F
-3EFF 0061
-3EFF 0041
-3EFF 0062
-3F00 0021
-3F00 003F
-3F00 0061
-3F00 0041
-3F00 0062
-3F01 0021
-3F01 003F
-3F01 0061
-3F01 0041
-3F01 0062
-3F02 0021
-3F02 003F
-3F02 0061
-3F02 0041
-3F02 0062
-3F03 0021
-3F03 003F
-3F03 0061
-3F03 0041
-3F03 0062
-3F04 0021
-3F04 003F
-3F04 0061
-3F04 0041
-3F04 0062
-3F05 0021
-3F05 003F
-3F05 0061
-3F05 0041
-3F05 0062
-3F06 0021
-3F06 003F
-3F06 0061
-3F06 0041
-3F06 0062
-3F07 0021
-3F07 003F
-3F07 0061
-3F07 0041
-3F07 0062
-3F08 0021
-3F08 003F
-3F08 0061
-3F08 0041
-3F08 0062
-3F09 0021
-3F09 003F
-3F09 0061
-3F09 0041
-3F09 0062
-3F0A 0021
-3F0A 003F
-3F0A 0061
-3F0A 0041
-3F0A 0062
-3F0B 0021
-3F0B 003F
-3F0B 0061
-3F0B 0041
-3F0B 0062
-3F0C 0021
-3F0C 003F
-3F0C 0061
-3F0C 0041
-3F0C 0062
-3F0D 0021
-3F0D 003F
-3F0D 0061
-3F0D 0041
-3F0D 0062
-3F0E 0021
-3F0E 003F
-3F0E 0061
-3F0E 0041
-3F0E 0062
-3F0F 0021
-3F0F 003F
-3F0F 0061
-3F0F 0041
-3F0F 0062
-3F10 0021
-3F10 003F
-3F10 0061
-3F10 0041
-3F10 0062
-3F11 0021
-3F11 003F
-3F11 0061
-3F11 0041
-3F11 0062
-3F12 0021
-3F12 003F
-3F12 0061
-3F12 0041
-3F12 0062
-3F13 0021
-3F13 003F
-3F13 0061
-3F13 0041
-3F13 0062
-3F14 0021
-3F14 003F
-3F14 0061
-3F14 0041
-3F14 0062
-3F15 0021
-3F15 003F
-3F15 0061
-3F15 0041
-3F15 0062
-3F16 0021
-3F16 003F
-3F16 0061
-3F16 0041
-3F16 0062
-3F17 0021
-3F17 003F
-3F17 0061
-3F17 0041
-3F17 0062
-3F18 0021
-3F18 003F
-3F18 0061
-3F18 0041
-3F18 0062
-3F19 0021
-3F19 003F
-3F19 0061
-3F19 0041
-3F19 0062
-3F1A 0021
-3F1A 003F
-3F1A 0061
-3F1A 0041
-3F1A 0062
-3F1B 0021
-2F933 0021
-3F1B 003F
-2F933 003F
-2F933 0334
-3F1B 0061
-2F933 0061
-3F1B 0041
-2F933 0041
-3F1B 0062
-2F933 0062
-3F1C 0021
-3F1C 003F
-3F1C 0061
-3F1C 0041
-3F1C 0062
-3F1D 0021
-3F1D 003F
-3F1D 0061
-3F1D 0041
-3F1D 0062
-3F1E 0021
-3F1E 003F
-3F1E 0061
-3F1E 0041
-3F1E 0062
-3F1F 0021
-3F1F 003F
-3F1F 0061
-3F1F 0041
-3F1F 0062
-3F20 0021
-3F20 003F
-3F20 0061
-3F20 0041
-3F20 0062
-3F21 0021
-3F21 003F
-3F21 0061
-3F21 0041
-3F21 0062
-3F22 0021
-3F22 003F
-3F22 0061
-3F22 0041
-3F22 0062
-3F23 0021
-3F23 003F
-3F23 0061
-3F23 0041
-3F23 0062
-3F24 0021
-3F24 003F
-3F24 0061
-3F24 0041
-3F24 0062
-3F25 0021
-3F25 003F
-3F25 0061
-3F25 0041
-3F25 0062
-3F26 0021
-3F26 003F
-3F26 0061
-3F26 0041
-3F26 0062
-3F27 0021
-3F27 003F
-3F27 0061
-3F27 0041
-3F27 0062
-3F28 0021
-3F28 003F
-3F28 0061
-3F28 0041
-3F28 0062
-3F29 0021
-3F29 003F
-3F29 0061
-3F29 0041
-3F29 0062
-3F2A 0021
-3F2A 003F
-3F2A 0061
-3F2A 0041
-3F2A 0062
-3F2B 0021
-3F2B 003F
-3F2B 0061
-3F2B 0041
-3F2B 0062
-3F2C 0021
-3F2C 003F
-3F2C 0061
-3F2C 0041
-3F2C 0062
-3F2D 0021
-3F2D 003F
-3F2D 0061
-3F2D 0041
-3F2D 0062
-3F2E 0021
-3F2E 003F
-3F2E 0061
-3F2E 0041
-3F2E 0062
-3F2F 0021
-3F2F 003F
-3F2F 0061
-3F2F 0041
-3F2F 0062
-3F30 0021
-3F30 003F
-3F30 0061
-3F30 0041
-3F30 0062
-3F31 0021
-3F31 003F
-3F31 0061
-3F31 0041
-3F31 0062
-3F32 0021
-3F32 003F
-3F32 0061
-3F32 0041
-3F32 0062
-3F33 0021
-3F33 003F
-3F33 0061
-3F33 0041
-3F33 0062
-3F34 0021
-3F34 003F
-3F34 0061
-3F34 0041
-3F34 0062
-3F35 0021
-3F35 003F
-3F35 0061
-3F35 0041
-3F35 0062
-3F36 0021
-3F36 003F
-3F36 0061
-3F36 0041
-3F36 0062
-3F37 0021
-3F37 003F
-3F37 0061
-3F37 0041
-3F37 0062
-3F38 0021
-3F38 003F
-3F38 0061
-3F38 0041
-3F38 0062
-3F39 0021
-3F39 003F
-3F39 0061
-3F39 0041
-3F39 0062
-3F3A 0021
-3F3A 003F
-3F3A 0061
-3F3A 0041
-3F3A 0062
-3F3B 0021
-3F3B 003F
-3F3B 0061
-3F3B 0041
-3F3B 0062
-3F3C 0021
-3F3C 003F
-3F3C 0061
-3F3C 0041
-3F3C 0062
-3F3D 0021
-3F3D 003F
-3F3D 0061
-3F3D 0041
-3F3D 0062
-3F3E 0021
-3F3E 003F
-3F3E 0061
-3F3E 0041
-3F3E 0062
-3F3F 0021
-3F3F 003F
-3F3F 0061
-3F3F 0041
-3F3F 0062
-3F40 0021
-3F40 003F
-3F40 0061
-3F40 0041
-3F40 0062
-3F41 0021
-3F41 003F
-3F41 0061
-3F41 0041
-3F41 0062
-3F42 0021
-3F42 003F
-3F42 0061
-3F42 0041
-3F42 0062
-3F43 0021
-3F43 003F
-3F43 0061
-3F43 0041
-3F43 0062
-3F44 0021
-3F44 003F
-3F44 0061
-3F44 0041
-3F44 0062
-3F45 0021
-3F45 003F
-3F45 0061
-3F45 0041
-3F45 0062
-3F46 0021
-3F46 003F
-3F46 0061
-3F46 0041
-3F46 0062
-3F47 0021
-3F47 003F
-3F47 0061
-3F47 0041
-3F47 0062
-3F48 0021
-3F48 003F
-3F48 0061
-3F48 0041
-3F48 0062
-3F49 0021
-3F49 003F
-3F49 0061
-3F49 0041
-3F49 0062
-3F4A 0021
-3F4A 003F
-3F4A 0061
-3F4A 0041
-3F4A 0062
-3F4B 0021
-3F4B 003F
-3F4B 0061
-3F4B 0041
-3F4B 0062
-3F4C 0021
-3F4C 003F
-3F4C 0061
-3F4C 0041
-3F4C 0062
-3F4D 0021
-3F4D 003F
-3F4D 0061
-3F4D 0041
-3F4D 0062
-3F4E 0021
-3F4E 003F
-3F4E 0061
-3F4E 0041
-3F4E 0062
-3F4F 0021
-3F4F 003F
-3F4F 0061
-3F4F 0041
-3F4F 0062
-3F50 0021
-3F50 003F
-3F50 0061
-3F50 0041
-3F50 0062
-3F51 0021
-3F51 003F
-3F51 0061
-3F51 0041
-3F51 0062
-3F52 0021
-3F52 003F
-3F52 0061
-3F52 0041
-3F52 0062
-3F53 0021
-3F53 003F
-3F53 0061
-3F53 0041
-3F53 0062
-3F54 0021
-3F54 003F
-3F54 0061
-3F54 0041
-3F54 0062
-3F55 0021
-3F55 003F
-3F55 0061
-3F55 0041
-3F55 0062
-3F56 0021
-3F56 003F
-3F56 0061
-3F56 0041
-3F56 0062
-3F57 0021
-3F57 003F
-3F57 0061
-3F57 0041
-3F57 0062
-3F58 0021
-3F58 003F
-3F58 0061
-3F58 0041
-3F58 0062
-3F59 0021
-3F59 003F
-3F59 0061
-3F59 0041
-3F59 0062
-3F5A 0021
-3F5A 003F
-3F5A 0061
-3F5A 0041
-3F5A 0062
-3F5B 0021
-3F5B 003F
-3F5B 0061
-3F5B 0041
-3F5B 0062
-3F5C 0021
-3F5C 003F
-3F5C 0061
-3F5C 0041
-3F5C 0062
-3F5D 0021
-3F5D 003F
-3F5D 0061
-3F5D 0041
-3F5D 0062
-3F5E 0021
-3F5E 003F
-3F5E 0061
-3F5E 0041
-3F5E 0062
-3F5F 0021
-3F5F 003F
-3F5F 0061
-3F5F 0041
-3F5F 0062
-3F60 0021
-3F60 003F
-3F60 0061
-3F60 0041
-3F60 0062
-3F61 0021
-3F61 003F
-3F61 0061
-3F61 0041
-3F61 0062
-3F62 0021
-3F62 003F
-3F62 0061
-3F62 0041
-3F62 0062
-3F63 0021
-3F63 003F
-3F63 0061
-3F63 0041
-3F63 0062
-3F64 0021
-3F64 003F
-3F64 0061
-3F64 0041
-3F64 0062
-3F65 0021
-3F65 003F
-3F65 0061
-3F65 0041
-3F65 0062
-3F66 0021
-3F66 003F
-3F66 0061
-3F66 0041
-3F66 0062
-3F67 0021
-3F67 003F
-3F67 0061
-3F67 0041
-3F67 0062
-3F68 0021
-3F68 003F
-3F68 0061
-3F68 0041
-3F68 0062
-3F69 0021
-3F69 003F
-3F69 0061
-3F69 0041
-3F69 0062
-3F6A 0021
-3F6A 003F
-3F6A 0061
-3F6A 0041
-3F6A 0062
-3F6B 0021
-3F6B 003F
-3F6B 0061
-3F6B 0041
-3F6B 0062
-3F6C 0021
-3F6C 003F
-3F6C 0061
-3F6C 0041
-3F6C 0062
-3F6D 0021
-3F6D 003F
-3F6D 0061
-3F6D 0041
-3F6D 0062
-3F6E 0021
-3F6E 003F
-3F6E 0061
-3F6E 0041
-3F6E 0062
-3F6F 0021
-3F6F 003F
-3F6F 0061
-3F6F 0041
-3F6F 0062
-3F70 0021
-3F70 003F
-3F70 0061
-3F70 0041
-3F70 0062
-3F71 0021
-3F71 003F
-3F71 0061
-3F71 0041
-3F71 0062
-3F72 0021
-3F72 003F
-3F72 0061
-3F72 0041
-3F72 0062
-3F73 0021
-3F73 003F
-3F73 0061
-3F73 0041
-3F73 0062
-3F74 0021
-3F74 003F
-3F74 0061
-3F74 0041
-3F74 0062
-3F75 0021
-3F75 003F
-3F75 0061
-3F75 0041
-3F75 0062
-3F76 0021
-3F76 003F
-3F76 0061
-3F76 0041
-3F76 0062
-3F77 0021
-3F77 003F
-3F77 0061
-3F77 0041
-3F77 0062
-3F78 0021
-3F78 003F
-3F78 0061
-3F78 0041
-3F78 0062
-3F79 0021
-3F79 003F
-3F79 0061
-3F79 0041
-3F79 0062
-3F7A 0021
-3F7A 003F
-3F7A 0061
-3F7A 0041
-3F7A 0062
-3F7B 0021
-3F7B 003F
-3F7B 0061
-3F7B 0041
-3F7B 0062
-3F7C 0021
-3F7C 003F
-3F7C 0061
-3F7C 0041
-3F7C 0062
-3F7D 0021
-3F7D 003F
-3F7D 0061
-3F7D 0041
-3F7D 0062
-3F7E 0021
-3F7E 003F
-3F7E 0061
-3F7E 0041
-3F7E 0062
-3F7F 0021
-3F7F 003F
-3F7F 0061
-3F7F 0041
-3F7F 0062
-3F80 0021
-3F80 003F
-3F80 0061
-3F80 0041
-3F80 0062
-3F81 0021
-3F81 003F
-3F81 0061
-3F81 0041
-3F81 0062
-3F82 0021
-3F82 003F
-3F82 0061
-3F82 0041
-3F82 0062
-3F83 0021
-3F83 003F
-3F83 0061
-3F83 0041
-3F83 0062
-3F84 0021
-3F84 003F
-3F84 0061
-3F84 0041
-3F84 0062
-3F85 0021
-3F85 003F
-3F85 0061
-3F85 0041
-3F85 0062
-3F86 0021
-3F86 003F
-3F86 0061
-3F86 0041
-3F86 0062
-3F87 0021
-3F87 003F
-3F87 0061
-3F87 0041
-3F87 0062
-3F88 0021
-3F88 003F
-3F88 0061
-3F88 0041
-3F88 0062
-3F89 0021
-3F89 003F
-3F89 0061
-3F89 0041
-3F89 0062
-3F8A 0021
-3F8A 003F
-3F8A 0061
-3F8A 0041
-3F8A 0062
-3F8B 0021
-3F8B 003F
-3F8B 0061
-3F8B 0041
-3F8B 0062
-3F8C 0021
-3F8C 003F
-3F8C 0061
-3F8C 0041
-3F8C 0062
-3F8D 0021
-3F8D 003F
-3F8D 0061
-3F8D 0041
-3F8D 0062
-3F8E 0021
-3F8E 003F
-3F8E 0061
-3F8E 0041
-3F8E 0062
-3F8F 0021
-3F8F 003F
-3F8F 0061
-3F8F 0041
-3F8F 0062
-3F90 0021
-3F90 003F
-3F90 0061
-3F90 0041
-3F90 0062
-3F91 0021
-3F91 003F
-3F91 0061
-3F91 0041
-3F91 0062
-3F92 0021
-3F92 003F
-3F92 0061
-3F92 0041
-3F92 0062
-3F93 0021
-3F93 003F
-3F93 0061
-3F93 0041
-3F93 0062
-3F94 0021
-3F94 003F
-3F94 0061
-3F94 0041
-3F94 0062
-3F95 0021
-3F95 003F
-3F95 0061
-3F95 0041
-3F95 0062
-3F96 0021
-3F96 003F
-3F96 0061
-3F96 0041
-3F96 0062
-3F97 0021
-3F97 003F
-3F97 0061
-3F97 0041
-3F97 0062
-3F98 0021
-3F98 003F
-3F98 0061
-3F98 0041
-3F98 0062
-3F99 0021
-3F99 003F
-3F99 0061
-3F99 0041
-3F99 0062
-3F9A 0021
-3F9A 003F
-3F9A 0061
-3F9A 0041
-3F9A 0062
-3F9B 0021
-3F9B 003F
-3F9B 0061
-3F9B 0041
-3F9B 0062
-3F9C 0021
-3F9C 003F
-3F9C 0061
-3F9C 0041
-3F9C 0062
-3F9D 0021
-3F9D 003F
-3F9D 0061
-3F9D 0041
-3F9D 0062
-3F9E 0021
-3F9E 003F
-3F9E 0061
-3F9E 0041
-3F9E 0062
-3F9F 0021
-3F9F 003F
-3F9F 0061
-3F9F 0041
-3F9F 0062
-3FA0 0021
-3FA0 003F
-3FA0 0061
-3FA0 0041
-3FA0 0062
-3FA1 0021
-3FA1 003F
-3FA1 0061
-3FA1 0041
-3FA1 0062
-3FA2 0021
-3FA2 003F
-3FA2 0061
-3FA2 0041
-3FA2 0062
-3FA3 0021
-3FA3 003F
-3FA3 0061
-3FA3 0041
-3FA3 0062
-3FA4 0021
-3FA4 003F
-3FA4 0061
-3FA4 0041
-3FA4 0062
-3FA5 0021
-3FA5 003F
-3FA5 0061
-3FA5 0041
-3FA5 0062
-3FA6 0021
-3FA6 003F
-3FA6 0061
-3FA6 0041
-3FA6 0062
-3FA7 0021
-3FA7 003F
-3FA7 0061
-3FA7 0041
-3FA7 0062
-3FA8 0021
-3FA8 003F
-3FA8 0061
-3FA8 0041
-3FA8 0062
-3FA9 0021
-3FA9 003F
-3FA9 0061
-3FA9 0041
-3FA9 0062
-3FAA 0021
-3FAA 003F
-3FAA 0061
-3FAA 0041
-3FAA 0062
-3FAB 0021
-3FAB 003F
-3FAB 0061
-3FAB 0041
-3FAB 0062
-3FAC 0021
-3FAC 003F
-3FAC 0061
-3FAC 0041
-3FAC 0062
-3FAD 0021
-3FAD 003F
-3FAD 0061
-3FAD 0041
-3FAD 0062
-3FAE 0021
-3FAE 003F
-3FAE 0061
-3FAE 0041
-3FAE 0062
-3FAF 0021
-3FAF 003F
-3FAF 0061
-3FAF 0041
-3FAF 0062
-3FB0 0021
-3FB0 003F
-3FB0 0061
-3FB0 0041
-3FB0 0062
-3FB1 0021
-3FB1 003F
-3FB1 0061
-3FB1 0041
-3FB1 0062
-3FB2 0021
-3FB2 003F
-3FB2 0061
-3FB2 0041
-3FB2 0062
-3FB3 0021
-3FB3 003F
-3FB3 0061
-3FB3 0041
-3FB3 0062
-3FB4 0021
-3FB4 003F
-3FB4 0061
-3FB4 0041
-3FB4 0062
-3FB5 0021
-3FB5 003F
-3FB5 0061
-3FB5 0041
-3FB5 0062
-3FB6 0021
-3FB6 003F
-3FB6 0061
-3FB6 0041
-3FB6 0062
-3FB7 0021
-3FB7 003F
-3FB7 0061
-3FB7 0041
-3FB7 0062
-3FB8 0021
-3FB8 003F
-3FB8 0061
-3FB8 0041
-3FB8 0062
-3FB9 0021
-3FB9 003F
-3FB9 0061
-3FB9 0041
-3FB9 0062
-3FBA 0021
-3FBA 003F
-3FBA 0061
-3FBA 0041
-3FBA 0062
-3FBB 0021
-3FBB 003F
-3FBB 0061
-3FBB 0041
-3FBB 0062
-3FBC 0021
-3FBC 003F
-3FBC 0061
-3FBC 0041
-3FBC 0062
-3FBD 0021
-3FBD 003F
-3FBD 0061
-3FBD 0041
-3FBD 0062
-3FBE 0021
-3FBE 003F
-3FBE 0061
-3FBE 0041
-3FBE 0062
-3FBF 0021
-3FBF 003F
-3FBF 0061
-3FBF 0041
-3FBF 0062
-3FC0 0021
-3FC0 003F
-3FC0 0061
-3FC0 0041
-3FC0 0062
-3FC1 0021
-3FC1 003F
-3FC1 0061
-3FC1 0041
-3FC1 0062
-3FC2 0021
-3FC2 003F
-3FC2 0061
-3FC2 0041
-3FC2 0062
-3FC3 0021
-3FC3 003F
-3FC3 0061
-3FC3 0041
-3FC3 0062
-3FC4 0021
-3FC4 003F
-3FC4 0061
-3FC4 0041
-3FC4 0062
-3FC5 0021
-3FC5 003F
-3FC5 0061
-3FC5 0041
-3FC5 0062
-3FC6 0021
-3FC6 003F
-3FC6 0061
-3FC6 0041
-3FC6 0062
-3FC7 0021
-3FC7 003F
-3FC7 0061
-3FC7 0041
-3FC7 0062
-3FC8 0021
-3FC8 003F
-3FC8 0061
-3FC8 0041
-3FC8 0062
-3FC9 0021
-3FC9 003F
-3FC9 0061
-3FC9 0041
-3FC9 0062
-3FCA 0021
-3FCA 003F
-3FCA 0061
-3FCA 0041
-3FCA 0062
-3FCB 0021
-3FCB 003F
-3FCB 0061
-3FCB 0041
-3FCB 0062
-3FCC 0021
-3FCC 003F
-3FCC 0061
-3FCC 0041
-3FCC 0062
-3FCD 0021
-3FCD 003F
-3FCD 0061
-3FCD 0041
-3FCD 0062
-3FCE 0021
-3FCE 003F
-3FCE 0061
-3FCE 0041
-3FCE 0062
-3FCF 0021
-3FCF 003F
-3FCF 0061
-3FCF 0041
-3FCF 0062
-3FD0 0021
-3FD0 003F
-3FD0 0061
-3FD0 0041
-3FD0 0062
-3FD1 0021
-3FD1 003F
-3FD1 0061
-3FD1 0041
-3FD1 0062
-3FD2 0021
-3FD2 003F
-3FD2 0061
-3FD2 0041
-3FD2 0062
-3FD3 0021
-3FD3 003F
-3FD3 0061
-3FD3 0041
-3FD3 0062
-3FD4 0021
-3FD4 003F
-3FD4 0061
-3FD4 0041
-3FD4 0062
-3FD5 0021
-3FD5 003F
-3FD5 0061
-3FD5 0041
-3FD5 0062
-3FD6 0021
-3FD6 003F
-3FD6 0061
-3FD6 0041
-3FD6 0062
-3FD7 0021
-3FD7 003F
-3FD7 0061
-3FD7 0041
-3FD7 0062
-3FD8 0021
-3FD8 003F
-3FD8 0061
-3FD8 0041
-3FD8 0062
-3FD9 0021
-3FD9 003F
-3FD9 0061
-3FD9 0041
-3FD9 0062
-3FDA 0021
-3FDA 003F
-3FDA 0061
-3FDA 0041
-3FDA 0062
-3FDB 0021
-3FDB 003F
-3FDB 0061
-3FDB 0041
-3FDB 0062
-3FDC 0021
-3FDC 003F
-3FDC 0061
-3FDC 0041
-3FDC 0062
-3FDD 0021
-3FDD 003F
-3FDD 0061
-3FDD 0041
-3FDD 0062
-3FDE 0021
-3FDE 003F
-3FDE 0061
-3FDE 0041
-3FDE 0062
-3FDF 0021
-3FDF 003F
-3FDF 0061
-3FDF 0041
-3FDF 0062
-3FE0 0021
-3FE0 003F
-3FE0 0061
-3FE0 0041
-3FE0 0062
-3FE1 0021
-3FE1 003F
-3FE1 0061
-3FE1 0041
-3FE1 0062
-3FE2 0021
-3FE2 003F
-3FE2 0061
-3FE2 0041
-3FE2 0062
-3FE3 0021
-3FE3 003F
-3FE3 0061
-3FE3 0041
-3FE3 0062
-3FE4 0021
-3FE4 003F
-3FE4 0061
-3FE4 0041
-3FE4 0062
-3FE5 0021
-3FE5 003F
-3FE5 0061
-3FE5 0041
-3FE5 0062
-3FE6 0021
-3FE6 003F
-3FE6 0061
-3FE6 0041
-3FE6 0062
-3FE7 0021
-3FE7 003F
-3FE7 0061
-3FE7 0041
-3FE7 0062
-3FE8 0021
-3FE8 003F
-3FE8 0061
-3FE8 0041
-3FE8 0062
-3FE9 0021
-3FE9 003F
-3FE9 0061
-3FE9 0041
-3FE9 0062
-3FEA 0021
-3FEA 003F
-3FEA 0061
-3FEA 0041
-3FEA 0062
-3FEB 0021
-3FEB 003F
-3FEB 0061
-3FEB 0041
-3FEB 0062
-3FEC 0021
-3FEC 003F
-3FEC 0061
-3FEC 0041
-3FEC 0062
-3FED 0021
-3FED 003F
-3FED 0061
-3FED 0041
-3FED 0062
-3FEE 0021
-3FEE 003F
-3FEE 0061
-3FEE 0041
-3FEE 0062
-3FEF 0021
-3FEF 003F
-3FEF 0061
-3FEF 0041
-3FEF 0062
-3FF0 0021
-3FF0 003F
-3FF0 0061
-3FF0 0041
-3FF0 0062
-3FF1 0021
-3FF1 003F
-3FF1 0061
-3FF1 0041
-3FF1 0062
-3FF2 0021
-3FF2 003F
-3FF2 0061
-3FF2 0041
-3FF2 0062
-3FF3 0021
-3FF3 003F
-3FF3 0061
-3FF3 0041
-3FF3 0062
-3FF4 0021
-3FF4 003F
-3FF4 0061
-3FF4 0041
-3FF4 0062
-3FF5 0021
-3FF5 003F
-3FF5 0061
-3FF5 0041
-3FF5 0062
-3FF6 0021
-3FF6 003F
-3FF6 0061
-3FF6 0041
-3FF6 0062
-3FF7 0021
-3FF7 003F
-3FF7 0061
-3FF7 0041
-3FF7 0062
-3FF8 0021
-3FF8 003F
-3FF8 0061
-3FF8 0041
-3FF8 0062
-3FF9 0021
-3FF9 003F
-3FF9 0061
-3FF9 0041
-3FF9 0062
-3FFA 0021
-3FFA 003F
-3FFA 0061
-3FFA 0041
-3FFA 0062
-3FFB 0021
-3FFB 003F
-3FFB 0061
-3FFB 0041
-3FFB 0062
-3FFC 0021
-2F93E 0021
-3FFC 003F
-2F93E 003F
-2F93E 0334
-3FFC 0061
-2F93E 0061
-3FFC 0041
-2F93E 0041
-3FFC 0062
-2F93E 0062
-3FFD 0021
-3FFD 003F
-3FFD 0061
-3FFD 0041
-3FFD 0062
-3FFE 0021
-3FFE 003F
-3FFE 0061
-3FFE 0041
-3FFE 0062
-3FFF 0021
-3FFF 003F
-3FFF 0061
-3FFF 0041
-3FFF 0062
-4000 0021
-4000 003F
-4000 0061
-4000 0041
-4000 0062
-4001 0021
-4001 003F
-4001 0061
-4001 0041
-4001 0062
-4002 0021
-4002 003F
-4002 0061
-4002 0041
-4002 0062
-4003 0021
-4003 003F
-4003 0061
-4003 0041
-4003 0062
-4004 0021
-4004 003F
-4004 0061
-4004 0041
-4004 0062
-4005 0021
-4005 003F
-4005 0061
-4005 0041
-4005 0062
-4006 0021
-4006 003F
-4006 0061
-4006 0041
-4006 0062
-4007 0021
-4007 003F
-4007 0061
-4007 0041
-4007 0062
-4008 0021
-2F93F 0021
-4008 003F
-2F93F 003F
-2F93F 0334
-4008 0061
-2F93F 0061
-4008 0041
-2F93F 0041
-4008 0062
-2F93F 0062
-4009 0021
-4009 003F
-4009 0061
-4009 0041
-4009 0062
-400A 0021
-400A 003F
-400A 0061
-400A 0041
-400A 0062
-400B 0021
-400B 003F
-400B 0061
-400B 0041
-400B 0062
-400C 0021
-400C 003F
-400C 0061
-400C 0041
-400C 0062
-400D 0021
-400D 003F
-400D 0061
-400D 0041
-400D 0062
-400E 0021
-400E 003F
-400E 0061
-400E 0041
-400E 0062
-400F 0021
-400F 003F
-400F 0061
-400F 0041
-400F 0062
-4010 0021
-4010 003F
-4010 0061
-4010 0041
-4010 0062
-4011 0021
-4011 003F
-4011 0061
-4011 0041
-4011 0062
-4012 0021
-4012 003F
-4012 0061
-4012 0041
-4012 0062
-4013 0021
-4013 003F
-4013 0061
-4013 0041
-4013 0062
-4014 0021
-4014 003F
-4014 0061
-4014 0041
-4014 0062
-4015 0021
-4015 003F
-4015 0061
-4015 0041
-4015 0062
-4016 0021
-4016 003F
-4016 0061
-4016 0041
-4016 0062
-4017 0021
-4017 003F
-4017 0061
-4017 0041
-4017 0062
-4018 0021
-FAD3 0021
-4018 003F
-FAD3 003F
-4018 0061
-FAD3 0061
-4018 0041
-FAD3 0041
-4018 0062
-FAD3 0062
-4019 0021
-4019 003F
-4019 0061
-4019 0041
-4019 0062
-401A 0021
-401A 003F
-401A 0061
-401A 0041
-401A 0062
-401B 0021
-401B 003F
-401B 0061
-401B 0041
-401B 0062
-401C 0021
-401C 003F
-401C 0061
-401C 0041
-401C 0062
-401D 0021
-401D 003F
-401D 0061
-401D 0041
-401D 0062
-401E 0021
-401E 003F
-401E 0061
-401E 0041
-401E 0062
-401F 0021
-401F 003F
-401F 0061
-401F 0041
-401F 0062
-4020 0021
-4020 003F
-4020 0061
-4020 0041
-4020 0062
-4021 0021
-4021 003F
-4021 0061
-4021 0041
-4021 0062
-4022 0021
-4022 003F
-4022 0061
-4022 0041
-4022 0062
-4023 0021
-4023 003F
-4023 0061
-4023 0041
-4023 0062
-4024 0021
-4024 003F
-4024 0061
-4024 0041
-4024 0062
-4025 0021
-4025 003F
-4025 0061
-4025 0041
-4025 0062
-4026 0021
-4026 003F
-4026 0061
-4026 0041
-4026 0062
-4027 0021
-4027 003F
-4027 0061
-4027 0041
-4027 0062
-4028 0021
-4028 003F
-4028 0061
-4028 0041
-4028 0062
-4029 0021
-4029 003F
-4029 0061
-4029 0041
-4029 0062
-402A 0021
-402A 003F
-402A 0061
-402A 0041
-402A 0062
-402B 0021
-402B 003F
-402B 0061
-402B 0041
-402B 0062
-402C 0021
-402C 003F
-402C 0061
-402C 0041
-402C 0062
-402D 0021
-402D 003F
-402D 0061
-402D 0041
-402D 0062
-402E 0021
-402E 003F
-402E 0061
-402E 0041
-402E 0062
-402F 0021
-402F 003F
-402F 0061
-402F 0041
-402F 0062
-4030 0021
-4030 003F
-4030 0061
-4030 0041
-4030 0062
-4031 0021
-4031 003F
-4031 0061
-4031 0041
-4031 0062
-4032 0021
-4032 003F
-4032 0061
-4032 0041
-4032 0062
-4033 0021
-4033 003F
-4033 0061
-4033 0041
-4033 0062
-4034 0021
-4034 003F
-4034 0061
-4034 0041
-4034 0062
-4035 0021
-4035 003F
-4035 0061
-4035 0041
-4035 0062
-4036 0021
-4036 003F
-4036 0061
-4036 0041
-4036 0062
-4037 0021
-4037 003F
-4037 0061
-4037 0041
-4037 0062
-4038 0021
-4038 003F
-4038 0061
-4038 0041
-4038 0062
-4039 0021
-FAD4 0021
-2F949 0021
-4039 003F
-FAD4 003F
-2F949 003F
-2F949 0334
-4039 0061
-FAD4 0061
-2F949 0061
-4039 0041
-FAD4 0041
-2F949 0041
-4039 0062
-FAD4 0062
-2F949 0062
-403A 0021
-403A 003F
-403A 0061
-403A 0041
-403A 0062
-403B 0021
-403B 003F
-403B 0061
-403B 0041
-403B 0062
-403C 0021
-403C 003F
-403C 0061
-403C 0041
-403C 0062
-403D 0021
-403D 003F
-403D 0061
-403D 0041
-403D 0062
-403E 0021
-403E 003F
-403E 0061
-403E 0041
-403E 0062
-403F 0021
-403F 003F
-403F 0061
-403F 0041
-403F 0062
-4040 0021
-4040 003F
-4040 0061
-4040 0041
-4040 0062
-4041 0021
-4041 003F
-4041 0061
-4041 0041
-4041 0062
-4042 0021
-4042 003F
-4042 0061
-4042 0041
-4042 0062
-4043 0021
-4043 003F
-4043 0061
-4043 0041
-4043 0062
-4044 0021
-4044 003F
-4044 0061
-4044 0041
-4044 0062
-4045 0021
-4045 003F
-4045 0061
-4045 0041
-4045 0062
-4046 0021
-2F94B 0021
-4046 003F
-2F94B 003F
-2F94B 0334
-4046 0061
-2F94B 0061
-4046 0041
-2F94B 0041
-4046 0062
-2F94B 0062
-4047 0021
-4047 003F
-4047 0061
-4047 0041
-4047 0062
-4048 0021
-4048 003F
-4048 0061
-4048 0041
-4048 0062
-4049 0021
-4049 003F
-4049 0061
-4049 0041
-4049 0062
-404A 0021
-404A 003F
-404A 0061
-404A 0041
-404A 0062
-404B 0021
-404B 003F
-404B 0061
-404B 0041
-404B 0062
-404C 0021
-404C 003F
-404C 0061
-404C 0041
-404C 0062
-404D 0021
-404D 003F
-404D 0061
-404D 0041
-404D 0062
-404E 0021
-404E 003F
-404E 0061
-404E 0041
-404E 0062
-404F 0021
-404F 003F
-404F 0061
-404F 0041
-404F 0062
-4050 0021
-4050 003F
-4050 0061
-4050 0041
-4050 0062
-4051 0021
-4051 003F
-4051 0061
-4051 0041
-4051 0062
-4052 0021
-4052 003F
-4052 0061
-4052 0041
-4052 0062
-4053 0021
-4053 003F
-4053 0061
-4053 0041
-4053 0062
-4054 0021
-4054 003F
-4054 0061
-4054 0041
-4054 0062
-4055 0021
-4055 003F
-4055 0061
-4055 0041
-4055 0062
-4056 0021
-4056 003F
-4056 0061
-4056 0041
-4056 0062
-4057 0021
-4057 003F
-4057 0061
-4057 0041
-4057 0062
-4058 0021
-4058 003F
-4058 0061
-4058 0041
-4058 0062
-4059 0021
-4059 003F
-4059 0061
-4059 0041
-4059 0062
-405A 0021
-405A 003F
-405A 0061
-405A 0041
-405A 0062
-405B 0021
-405B 003F
-405B 0061
-405B 0041
-405B 0062
-405C 0021
-405C 003F
-405C 0061
-405C 0041
-405C 0062
-405D 0021
-405D 003F
-405D 0061
-405D 0041
-405D 0062
-405E 0021
-405E 003F
-405E 0061
-405E 0041
-405E 0062
-405F 0021
-405F 003F
-405F 0061
-405F 0041
-405F 0062
-4060 0021
-4060 003F
-4060 0061
-4060 0041
-4060 0062
-4061 0021
-4061 003F
-4061 0061
-4061 0041
-4061 0062
-4062 0021
-4062 003F
-4062 0061
-4062 0041
-4062 0062
-4063 0021
-4063 003F
-4063 0061
-4063 0041
-4063 0062
-4064 0021
-4064 003F
-4064 0061
-4064 0041
-4064 0062
-4065 0021
-4065 003F
-4065 0061
-4065 0041
-4065 0062
-4066 0021
-4066 003F
-4066 0061
-4066 0041
-4066 0062
-4067 0021
-4067 003F
-4067 0061
-4067 0041
-4067 0062
-4068 0021
-4068 003F
-4068 0061
-4068 0041
-4068 0062
-4069 0021
-4069 003F
-4069 0061
-4069 0041
-4069 0062
-406A 0021
-406A 003F
-406A 0061
-406A 0041
-406A 0062
-406B 0021
-406B 003F
-406B 0061
-406B 0041
-406B 0062
-406C 0021
-406C 003F
-406C 0061
-406C 0041
-406C 0062
-406D 0021
-406D 003F
-406D 0061
-406D 0041
-406D 0062
-406E 0021
-406E 003F
-406E 0061
-406E 0041
-406E 0062
-406F 0021
-406F 003F
-406F 0061
-406F 0041
-406F 0062
-4070 0021
-4070 003F
-4070 0061
-4070 0041
-4070 0062
-4071 0021
-4071 003F
-4071 0061
-4071 0041
-4071 0062
-4072 0021
-4072 003F
-4072 0061
-4072 0041
-4072 0062
-4073 0021
-4073 003F
-4073 0061
-4073 0041
-4073 0062
-4074 0021
-4074 003F
-4074 0061
-4074 0041
-4074 0062
-4075 0021
-4075 003F
-4075 0061
-4075 0041
-4075 0062
-4076 0021
-4076 003F
-4076 0061
-4076 0041
-4076 0062
-4077 0021
-4077 003F
-4077 0061
-4077 0041
-4077 0062
-4078 0021
-4078 003F
-4078 0061
-4078 0041
-4078 0062
-4079 0021
-4079 003F
-4079 0061
-4079 0041
-4079 0062
-407A 0021
-407A 003F
-407A 0061
-407A 0041
-407A 0062
-407B 0021
-407B 003F
-407B 0061
-407B 0041
-407B 0062
-407C 0021
-407C 003F
-407C 0061
-407C 0041
-407C 0062
-407D 0021
-407D 003F
-407D 0061
-407D 0041
-407D 0062
-407E 0021
-407E 003F
-407E 0061
-407E 0041
-407E 0062
-407F 0021
-407F 003F
-407F 0061
-407F 0041
-407F 0062
-4080 0021
-4080 003F
-4080 0061
-4080 0041
-4080 0062
-4081 0021
-4081 003F
-4081 0061
-4081 0041
-4081 0062
-4082 0021
-4082 003F
-4082 0061
-4082 0041
-4082 0062
-4083 0021
-4083 003F
-4083 0061
-4083 0041
-4083 0062
-4084 0021
-4084 003F
-4084 0061
-4084 0041
-4084 0062
-4085 0021
-4085 003F
-4085 0061
-4085 0041
-4085 0062
-4086 0021
-4086 003F
-4086 0061
-4086 0041
-4086 0062
-4087 0021
-4087 003F
-4087 0061
-4087 0041
-4087 0062
-4088 0021
-4088 003F
-4088 0061
-4088 0041
-4088 0062
-4089 0021
-4089 003F
-4089 0061
-4089 0041
-4089 0062
-408A 0021
-408A 003F
-408A 0061
-408A 0041
-408A 0062
-408B 0021
-408B 003F
-408B 0061
-408B 0041
-408B 0062
-408C 0021
-408C 003F
-408C 0061
-408C 0041
-408C 0062
-408D 0021
-408D 003F
-408D 0061
-408D 0041
-408D 0062
-408E 0021
-408E 003F
-408E 0061
-408E 0041
-408E 0062
-408F 0021
-408F 003F
-408F 0061
-408F 0041
-408F 0062
-4090 0021
-4090 003F
-4090 0061
-4090 0041
-4090 0062
-4091 0021
-4091 003F
-4091 0061
-4091 0041
-4091 0062
-4092 0021
-4092 003F
-4092 0061
-4092 0041
-4092 0062
-4093 0021
-4093 003F
-4093 0061
-4093 0041
-4093 0062
-4094 0021
-4094 003F
-4094 0061
-4094 0041
-4094 0062
-4095 0021
-4095 003F
-4095 0061
-4095 0041
-4095 0062
-4096 0021
-2F94C 0021
-4096 003F
-2F94C 003F
-2F94C 0334
-4096 0061
-2F94C 0061
-4096 0041
-2F94C 0041
-4096 0062
-2F94C 0062
-4097 0021
-4097 003F
-4097 0061
-4097 0041
-4097 0062
-4098 0021
-4098 003F
-4098 0061
-4098 0041
-4098 0062
-4099 0021
-4099 003F
-4099 0061
-4099 0041
-4099 0062
-409A 0021
-409A 003F
-409A 0061
-409A 0041
-409A 0062
-409B 0021
-409B 003F
-409B 0061
-409B 0041
-409B 0062
-409C 0021
-409C 003F
-409C 0061
-409C 0041
-409C 0062
-409D 0021
-409D 003F
-409D 0061
-409D 0041
-409D 0062
-409E 0021
-409E 003F
-409E 0061
-409E 0041
-409E 0062
-409F 0021
-409F 003F
-409F 0061
-409F 0041
-409F 0062
-40A0 0021
-40A0 003F
-40A0 0061
-40A0 0041
-40A0 0062
-40A1 0021
-40A1 003F
-40A1 0061
-40A1 0041
-40A1 0062
-40A2 0021
-40A2 003F
-40A2 0061
-40A2 0041
-40A2 0062
-40A3 0021
-40A3 003F
-40A3 0061
-40A3 0041
-40A3 0062
-40A4 0021
-40A4 003F
-40A4 0061
-40A4 0041
-40A4 0062
-40A5 0021
-40A5 003F
-40A5 0061
-40A5 0041
-40A5 0062
-40A6 0021
-40A6 003F
-40A6 0061
-40A6 0041
-40A6 0062
-40A7 0021
-40A7 003F
-40A7 0061
-40A7 0041
-40A7 0062
-40A8 0021
-40A8 003F
-40A8 0061
-40A8 0041
-40A8 0062
-40A9 0021
-40A9 003F
-40A9 0061
-40A9 0041
-40A9 0062
-40AA 0021
-40AA 003F
-40AA 0061
-40AA 0041
-40AA 0062
-40AB 0021
-40AB 003F
-40AB 0061
-40AB 0041
-40AB 0062
-40AC 0021
-40AC 003F
-40AC 0061
-40AC 0041
-40AC 0062
-40AD 0021
-40AD 003F
-40AD 0061
-40AD 0041
-40AD 0062
-40AE 0021
-40AE 003F
-40AE 0061
-40AE 0041
-40AE 0062
-40AF 0021
-40AF 003F
-40AF 0061
-40AF 0041
-40AF 0062
-40B0 0021
-40B0 003F
-40B0 0061
-40B0 0041
-40B0 0062
-40B1 0021
-40B1 003F
-40B1 0061
-40B1 0041
-40B1 0062
-40B2 0021
-40B2 003F
-40B2 0061
-40B2 0041
-40B2 0062
-40B3 0021
-40B3 003F
-40B3 0061
-40B3 0041
-40B3 0062
-40B4 0021
-40B4 003F
-40B4 0061
-40B4 0041
-40B4 0062
-40B5 0021
-40B5 003F
-40B5 0061
-40B5 0041
-40B5 0062
-40B6 0021
-40B6 003F
-40B6 0061
-40B6 0041
-40B6 0062
-40B7 0021
-40B7 003F
-40B7 0061
-40B7 0041
-40B7 0062
-40B8 0021
-40B8 003F
-40B8 0061
-40B8 0041
-40B8 0062
-40B9 0021
-40B9 003F
-40B9 0061
-40B9 0041
-40B9 0062
-40BA 0021
-40BA 003F
-40BA 0061
-40BA 0041
-40BA 0062
-40BB 0021
-40BB 003F
-40BB 0061
-40BB 0041
-40BB 0062
-40BC 0021
-40BC 003F
-40BC 0061
-40BC 0041
-40BC 0062
-40BD 0021
-40BD 003F
-40BD 0061
-40BD 0041
-40BD 0062
-40BE 0021
-40BE 003F
-40BE 0061
-40BE 0041
-40BE 0062
-40BF 0021
-40BF 003F
-40BF 0061
-40BF 0041
-40BF 0062
-40C0 0021
-40C0 003F
-40C0 0061
-40C0 0041
-40C0 0062
-40C1 0021
-40C1 003F
-40C1 0061
-40C1 0041
-40C1 0062
-40C2 0021
-40C2 003F
-40C2 0061
-40C2 0041
-40C2 0062
-40C3 0021
-40C3 003F
-40C3 0061
-40C3 0041
-40C3 0062
-40C4 0021
-40C4 003F
-40C4 0061
-40C4 0041
-40C4 0062
-40C5 0021
-40C5 003F
-40C5 0061
-40C5 0041
-40C5 0062
-40C6 0021
-40C6 003F
-40C6 0061
-40C6 0041
-40C6 0062
-40C7 0021
-40C7 003F
-40C7 0061
-40C7 0041
-40C7 0062
-40C8 0021
-40C8 003F
-40C8 0061
-40C8 0041
-40C8 0062
-40C9 0021
-40C9 003F
-40C9 0061
-40C9 0041
-40C9 0062
-40CA 0021
-40CA 003F
-40CA 0061
-40CA 0041
-40CA 0062
-40CB 0021
-40CB 003F
-40CB 0061
-40CB 0041
-40CB 0062
-40CC 0021
-40CC 003F
-40CC 0061
-40CC 0041
-40CC 0062
-40CD 0021
-40CD 003F
-40CD 0061
-40CD 0041
-40CD 0062
-40CE 0021
-40CE 003F
-40CE 0061
-40CE 0041
-40CE 0062
-40CF 0021
-40CF 003F
-40CF 0061
-40CF 0041
-40CF 0062
-40D0 0021
-40D0 003F
-40D0 0061
-40D0 0041
-40D0 0062
-40D1 0021
-40D1 003F
-40D1 0061
-40D1 0041
-40D1 0062
-40D2 0021
-40D2 003F
-40D2 0061
-40D2 0041
-40D2 0062
-40D3 0021
-40D3 003F
-40D3 0061
-40D3 0041
-40D3 0062
-40D4 0021
-40D4 003F
-40D4 0061
-40D4 0041
-40D4 0062
-40D5 0021
-40D5 003F
-40D5 0061
-40D5 0041
-40D5 0062
-40D6 0021
-40D6 003F
-40D6 0061
-40D6 0041
-40D6 0062
-40D7 0021
-40D7 003F
-40D7 0061
-40D7 0041
-40D7 0062
-40D8 0021
-40D8 003F
-40D8 0061
-40D8 0041
-40D8 0062
-40D9 0021
-40D9 003F
-40D9 0061
-40D9 0041
-40D9 0062
-40DA 0021
-40DA 003F
-40DA 0061
-40DA 0041
-40DA 0062
-40DB 0021
-40DB 003F
-40DB 0061
-40DB 0041
-40DB 0062
-40DC 0021
-40DC 003F
-40DC 0061
-40DC 0041
-40DC 0062
-40DD 0021
-40DD 003F
-40DD 0061
-40DD 0041
-40DD 0062
-40DE 0021
-40DE 003F
-40DE 0061
-40DE 0041
-40DE 0062
-40DF 0021
-40DF 003F
-40DF 0061
-40DF 0041
-40DF 0062
-40E0 0021
-40E0 003F
-40E0 0061
-40E0 0041
-40E0 0062
-40E1 0021
-40E1 003F
-40E1 0061
-40E1 0041
-40E1 0062
-40E2 0021
-40E2 003F
-40E2 0061
-40E2 0041
-40E2 0062
-40E3 0021
-2F951 0021
-40E3 003F
-2F951 003F
-2F951 0334
-40E3 0061
-2F951 0061
-40E3 0041
-2F951 0041
-40E3 0062
-2F951 0062
-40E4 0021
-40E4 003F
-40E4 0061
-40E4 0041
-40E4 0062
-40E5 0021
-40E5 003F
-40E5 0061
-40E5 0041
-40E5 0062
-40E6 0021
-40E6 003F
-40E6 0061
-40E6 0041
-40E6 0062
-40E7 0021
-40E7 003F
-40E7 0061
-40E7 0041
-40E7 0062
-40E8 0021
-40E8 003F
-40E8 0061
-40E8 0041
-40E8 0062
-40E9 0021
-40E9 003F
-40E9 0061
-40E9 0041
-40E9 0062
-40EA 0021
-40EA 003F
-40EA 0061
-40EA 0041
-40EA 0062
-40EB 0021
-40EB 003F
-40EB 0061
-40EB 0041
-40EB 0062
-40EC 0021
-40EC 003F
-40EC 0061
-40EC 0041
-40EC 0062
-40ED 0021
-40ED 003F
-40ED 0061
-40ED 0041
-40ED 0062
-40EE 0021
-40EE 003F
-40EE 0061
-40EE 0041
-40EE 0062
-40EF 0021
-40EF 003F
-40EF 0061
-40EF 0041
-40EF 0062
-40F0 0021
-40F0 003F
-40F0 0061
-40F0 0041
-40F0 0062
-40F1 0021
-40F1 003F
-40F1 0061
-40F1 0041
-40F1 0062
-40F2 0021
-40F2 003F
-40F2 0061
-40F2 0041
-40F2 0062
-40F3 0021
-40F3 003F
-40F3 0061
-40F3 0041
-40F3 0062
-40F4 0021
-40F4 003F
-40F4 0061
-40F4 0041
-40F4 0062
-40F5 0021
-40F5 003F
-40F5 0061
-40F5 0041
-40F5 0062
-40F6 0021
-40F6 003F
-40F6 0061
-40F6 0041
-40F6 0062
-40F7 0021
-40F7 003F
-40F7 0061
-40F7 0041
-40F7 0062
-40F8 0021
-40F8 003F
-40F8 0061
-40F8 0041
-40F8 0062
-40F9 0021
-40F9 003F
-40F9 0061
-40F9 0041
-40F9 0062
-40FA 0021
-40FA 003F
-40FA 0061
-40FA 0041
-40FA 0062
-40FB 0021
-40FB 003F
-40FB 0061
-40FB 0041
-40FB 0062
-40FC 0021
-40FC 003F
-40FC 0061
-40FC 0041
-40FC 0062
-40FD 0021
-40FD 003F
-40FD 0061
-40FD 0041
-40FD 0062
-40FE 0021
-40FE 003F
-40FE 0061
-40FE 0041
-40FE 0062
-40FF 0021
-40FF 003F
-40FF 0061
-40FF 0041
-40FF 0062
-4100 0021
-4100 003F
-4100 0061
-4100 0041
-4100 0062
-4101 0021
-4101 003F
-4101 0061
-4101 0041
-4101 0062
-4102 0021
-4102 003F
-4102 0061
-4102 0041
-4102 0062
-4103 0021
-4103 003F
-4103 0061
-4103 0041
-4103 0062
-4104 0021
-4104 003F
-4104 0061
-4104 0041
-4104 0062
-4105 0021
-4105 003F
-4105 0061
-4105 0041
-4105 0062
-4106 0021
-4106 003F
-4106 0061
-4106 0041
-4106 0062
-4107 0021
-4107 003F
-4107 0061
-4107 0041
-4107 0062
-4108 0021
-4108 003F
-4108 0061
-4108 0041
-4108 0062
-4109 0021
-4109 003F
-4109 0061
-4109 0041
-4109 0062
-410A 0021
-410A 003F
-410A 0061
-410A 0041
-410A 0062
-410B 0021
-410B 003F
-410B 0061
-410B 0041
-410B 0062
-410C 0021
-410C 003F
-410C 0061
-410C 0041
-410C 0062
-410D 0021
-410D 003F
-410D 0061
-410D 0041
-410D 0062
-410E 0021
-410E 003F
-410E 0061
-410E 0041
-410E 0062
-410F 0021
-410F 003F
-410F 0061
-410F 0041
-410F 0062
-4110 0021
-4110 003F
-4110 0061
-4110 0041
-4110 0062
-4111 0021
-4111 003F
-4111 0061
-4111 0041
-4111 0062
-4112 0021
-4112 003F
-4112 0061
-4112 0041
-4112 0062
-4113 0021
-4113 003F
-4113 0061
-4113 0041
-4113 0062
-4114 0021
-4114 003F
-4114 0061
-4114 0041
-4114 0062
-4115 0021
-4115 003F
-4115 0061
-4115 0041
-4115 0062
-4116 0021
-4116 003F
-4116 0061
-4116 0041
-4116 0062
-4117 0021
-4117 003F
-4117 0061
-4117 0041
-4117 0062
-4118 0021
-4118 003F
-4118 0061
-4118 0041
-4118 0062
-4119 0021
-4119 003F
-4119 0061
-4119 0041
-4119 0062
-411A 0021
-411A 003F
-411A 0061
-411A 0041
-411A 0062
-411B 0021
-411B 003F
-411B 0061
-411B 0041
-411B 0062
-411C 0021
-411C 003F
-411C 0061
-411C 0041
-411C 0062
-411D 0021
-411D 003F
-411D 0061
-411D 0041
-411D 0062
-411E 0021
-411E 003F
-411E 0061
-411E 0041
-411E 0062
-411F 0021
-411F 003F
-411F 0061
-411F 0041
-411F 0062
-4120 0021
-4120 003F
-4120 0061
-4120 0041
-4120 0062
-4121 0021
-4121 003F
-4121 0061
-4121 0041
-4121 0062
-4122 0021
-4122 003F
-4122 0061
-4122 0041
-4122 0062
-4123 0021
-4123 003F
-4123 0061
-4123 0041
-4123 0062
-4124 0021
-4124 003F
-4124 0061
-4124 0041
-4124 0062
-4125 0021
-4125 003F
-4125 0061
-4125 0041
-4125 0062
-4126 0021
-4126 003F
-4126 0061
-4126 0041
-4126 0062
-4127 0021
-4127 003F
-4127 0061
-4127 0041
-4127 0062
-4128 0021
-4128 003F
-4128 0061
-4128 0041
-4128 0062
-4129 0021
-4129 003F
-4129 0061
-4129 0041
-4129 0062
-412A 0021
-412A 003F
-412A 0061
-412A 0041
-412A 0062
-412B 0021
-412B 003F
-412B 0061
-412B 0041
-412B 0062
-412C 0021
-412C 003F
-412C 0061
-412C 0041
-412C 0062
-412D 0021
-412D 003F
-412D 0061
-412D 0041
-412D 0062
-412E 0021
-412E 003F
-412E 0061
-412E 0041
-412E 0062
-412F 0021
-2F958 0021
-412F 003F
-2F958 003F
-2F958 0334
-412F 0061
-2F958 0061
-412F 0041
-2F958 0041
-412F 0062
-2F958 0062
-4130 0021
-4130 003F
-4130 0061
-4130 0041
-4130 0062
-4131 0021
-4131 003F
-4131 0061
-4131 0041
-4131 0062
-4132 0021
-4132 003F
-4132 0061
-4132 0041
-4132 0062
-4133 0021
-4133 003F
-4133 0061
-4133 0041
-4133 0062
-4134 0021
-4134 003F
-4134 0061
-4134 0041
-4134 0062
-4135 0021
-4135 003F
-4135 0061
-4135 0041
-4135 0062
-4136 0021
-4136 003F
-4136 0061
-4136 0041
-4136 0062
-4137 0021
-4137 003F
-4137 0061
-4137 0041
-4137 0062
-4138 0021
-4138 003F
-4138 0061
-4138 0041
-4138 0062
-4139 0021
-4139 003F
-4139 0061
-4139 0041
-4139 0062
-413A 0021
-413A 003F
-413A 0061
-413A 0041
-413A 0062
-413B 0021
-413B 003F
-413B 0061
-413B 0041
-413B 0062
-413C 0021
-413C 003F
-413C 0061
-413C 0041
-413C 0062
-413D 0021
-413D 003F
-413D 0061
-413D 0041
-413D 0062
-413E 0021
-413E 003F
-413E 0061
-413E 0041
-413E 0062
-413F 0021
-413F 003F
-413F 0061
-413F 0041
-413F 0062
-4140 0021
-4140 003F
-4140 0061
-4140 0041
-4140 0062
-4141 0021
-4141 003F
-4141 0061
-4141 0041
-4141 0062
-4142 0021
-4142 003F
-4142 0061
-4142 0041
-4142 0062
-4143 0021
-4143 003F
-4143 0061
-4143 0041
-4143 0062
-4144 0021
-4144 003F
-4144 0061
-4144 0041
-4144 0062
-4145 0021
-4145 003F
-4145 0061
-4145 0041
-4145 0062
-4146 0021
-4146 003F
-4146 0061
-4146 0041
-4146 0062
-4147 0021
-4147 003F
-4147 0061
-4147 0041
-4147 0062
-4148 0021
-4148 003F
-4148 0061
-4148 0041
-4148 0062
-4149 0021
-4149 003F
-4149 0061
-4149 0041
-4149 0062
-414A 0021
-414A 003F
-414A 0061
-414A 0041
-414A 0062
-414B 0021
-414B 003F
-414B 0061
-414B 0041
-414B 0062
-414C 0021
-414C 003F
-414C 0061
-414C 0041
-414C 0062
-414D 0021
-414D 003F
-414D 0061
-414D 0041
-414D 0062
-414E 0021
-414E 003F
-414E 0061
-414E 0041
-414E 0062
-414F 0021
-414F 003F
-414F 0061
-414F 0041
-414F 0062
-4150 0021
-4150 003F
-4150 0061
-4150 0041
-4150 0062
-4151 0021
-4151 003F
-4151 0061
-4151 0041
-4151 0062
-4152 0021
-4152 003F
-4152 0061
-4152 0041
-4152 0062
-4153 0021
-4153 003F
-4153 0061
-4153 0041
-4153 0062
-4154 0021
-4154 003F
-4154 0061
-4154 0041
-4154 0062
-4155 0021
-4155 003F
-4155 0061
-4155 0041
-4155 0062
-4156 0021
-4156 003F
-4156 0061
-4156 0041
-4156 0062
-4157 0021
-4157 003F
-4157 0061
-4157 0041
-4157 0062
-4158 0021
-4158 003F
-4158 0061
-4158 0041
-4158 0062
-4159 0021
-4159 003F
-4159 0061
-4159 0041
-4159 0062
-415A 0021
-415A 003F
-415A 0061
-415A 0041
-415A 0062
-415B 0021
-415B 003F
-415B 0061
-415B 0041
-415B 0062
-415C 0021
-415C 003F
-415C 0061
-415C 0041
-415C 0062
-415D 0021
-415D 003F
-415D 0061
-415D 0041
-415D 0062
-415E 0021
-415E 003F
-415E 0061
-415E 0041
-415E 0062
-415F 0021
-415F 003F
-415F 0061
-415F 0041
-415F 0062
-4160 0021
-4160 003F
-4160 0061
-4160 0041
-4160 0062
-4161 0021
-4161 003F
-4161 0061
-4161 0041
-4161 0062
-4162 0021
-4162 003F
-4162 0061
-4162 0041
-4162 0062
-4163 0021
-4163 003F
-4163 0061
-4163 0041
-4163 0062
-4164 0021
-4164 003F
-4164 0061
-4164 0041
-4164 0062
-4165 0021
-4165 003F
-4165 0061
-4165 0041
-4165 0062
-4166 0021
-4166 003F
-4166 0061
-4166 0041
-4166 0062
-4167 0021
-4167 003F
-4167 0061
-4167 0041
-4167 0062
-4168 0021
-4168 003F
-4168 0061
-4168 0041
-4168 0062
-4169 0021
-4169 003F
-4169 0061
-4169 0041
-4169 0062
-416A 0021
-416A 003F
-416A 0061
-416A 0041
-416A 0062
-416B 0021
-416B 003F
-416B 0061
-416B 0041
-416B 0062
-416C 0021
-416C 003F
-416C 0061
-416C 0041
-416C 0062
-416D 0021
-416D 003F
-416D 0061
-416D 0041
-416D 0062
-416E 0021
-416E 003F
-416E 0061
-416E 0041
-416E 0062
-416F 0021
-416F 003F
-416F 0061
-416F 0041
-416F 0062
-4170 0021
-4170 003F
-4170 0061
-4170 0041
-4170 0062
-4171 0021
-4171 003F
-4171 0061
-4171 0041
-4171 0062
-4172 0021
-4172 003F
-4172 0061
-4172 0041
-4172 0062
-4173 0021
-4173 003F
-4173 0061
-4173 0041
-4173 0062
-4174 0021
-4174 003F
-4174 0061
-4174 0041
-4174 0062
-4175 0021
-4175 003F
-4175 0061
-4175 0041
-4175 0062
-4176 0021
-4176 003F
-4176 0061
-4176 0041
-4176 0062
-4177 0021
-4177 003F
-4177 0061
-4177 0041
-4177 0062
-4178 0021
-4178 003F
-4178 0061
-4178 0041
-4178 0062
-4179 0021
-4179 003F
-4179 0061
-4179 0041
-4179 0062
-417A 0021
-417A 003F
-417A 0061
-417A 0041
-417A 0062
-417B 0021
-417B 003F
-417B 0061
-417B 0041
-417B 0062
-417C 0021
-417C 003F
-417C 0061
-417C 0041
-417C 0062
-417D 0021
-417D 003F
-417D 0061
-417D 0041
-417D 0062
-417E 0021
-417E 003F
-417E 0061
-417E 0041
-417E 0062
-417F 0021
-417F 003F
-417F 0061
-417F 0041
-417F 0062
-4180 0021
-4180 003F
-4180 0061
-4180 0041
-4180 0062
-4181 0021
-4181 003F
-4181 0061
-4181 0041
-4181 0062
-4182 0021
-4182 003F
-4182 0061
-4182 0041
-4182 0062
-4183 0021
-4183 003F
-4183 0061
-4183 0041
-4183 0062
-4184 0021
-4184 003F
-4184 0061
-4184 0041
-4184 0062
-4185 0021
-4185 003F
-4185 0061
-4185 0041
-4185 0062
-4186 0021
-4186 003F
-4186 0061
-4186 0041
-4186 0062
-4187 0021
-4187 003F
-4187 0061
-4187 0041
-4187 0062
-4188 0021
-4188 003F
-4188 0061
-4188 0041
-4188 0062
-4189 0021
-4189 003F
-4189 0061
-4189 0041
-4189 0062
-418A 0021
-418A 003F
-418A 0061
-418A 0041
-418A 0062
-418B 0021
-418B 003F
-418B 0061
-418B 0041
-418B 0062
-418C 0021
-418C 003F
-418C 0061
-418C 0041
-418C 0062
-418D 0021
-418D 003F
-418D 0061
-418D 0041
-418D 0062
-418E 0021
-418E 003F
-418E 0061
-418E 0041
-418E 0062
-418F 0021
-418F 003F
-418F 0061
-418F 0041
-418F 0062
-4190 0021
-4190 003F
-4190 0061
-4190 0041
-4190 0062
-4191 0021
-4191 003F
-4191 0061
-4191 0041
-4191 0062
-4192 0021
-4192 003F
-4192 0061
-4192 0041
-4192 0062
-4193 0021
-4193 003F
-4193 0061
-4193 0041
-4193 0062
-4194 0021
-4194 003F
-4194 0061
-4194 0041
-4194 0062
-4195 0021
-4195 003F
-4195 0061
-4195 0041
-4195 0062
-4196 0021
-4196 003F
-4196 0061
-4196 0041
-4196 0062
-4197 0021
-4197 003F
-4197 0061
-4197 0041
-4197 0062
-4198 0021
-4198 003F
-4198 0061
-4198 0041
-4198 0062
-4199 0021
-4199 003F
-4199 0061
-4199 0041
-4199 0062
-419A 0021
-419A 003F
-419A 0061
-419A 0041
-419A 0062
-419B 0021
-419B 003F
-419B 0061
-419B 0041
-419B 0062
-419C 0021
-419C 003F
-419C 0061
-419C 0041
-419C 0062
-419D 0021
-419D 003F
-419D 0061
-419D 0041
-419D 0062
-419E 0021
-419E 003F
-419E 0061
-419E 0041
-419E 0062
-419F 0021
-419F 003F
-419F 0061
-419F 0041
-419F 0062
-41A0 0021
-41A0 003F
-41A0 0061
-41A0 0041
-41A0 0062
-41A1 0021
-41A1 003F
-41A1 0061
-41A1 0041
-41A1 0062
-41A2 0021
-41A2 003F
-41A2 0061
-41A2 0041
-41A2 0062
-41A3 0021
-41A3 003F
-41A3 0061
-41A3 0041
-41A3 0062
-41A4 0021
-41A4 003F
-41A4 0061
-41A4 0041
-41A4 0062
-41A5 0021
-41A5 003F
-41A5 0061
-41A5 0041
-41A5 0062
-41A6 0021
-41A6 003F
-41A6 0061
-41A6 0041
-41A6 0062
-41A7 0021
-41A7 003F
-41A7 0061
-41A7 0041
-41A7 0062
-41A8 0021
-41A8 003F
-41A8 0061
-41A8 0041
-41A8 0062
-41A9 0021
-41A9 003F
-41A9 0061
-41A9 0041
-41A9 0062
-41AA 0021
-41AA 003F
-41AA 0061
-41AA 0041
-41AA 0062
-41AB 0021
-41AB 003F
-41AB 0061
-41AB 0041
-41AB 0062
-41AC 0021
-41AC 003F
-41AC 0061
-41AC 0041
-41AC 0062
-41AD 0021
-41AD 003F
-41AD 0061
-41AD 0041
-41AD 0062
-41AE 0021
-41AE 003F
-41AE 0061
-41AE 0041
-41AE 0062
-41AF 0021
-41AF 003F
-41AF 0061
-41AF 0041
-41AF 0062
-41B0 0021
-41B0 003F
-41B0 0061
-41B0 0041
-41B0 0062
-41B1 0021
-41B1 003F
-41B1 0061
-41B1 0041
-41B1 0062
-41B2 0021
-41B2 003F
-41B2 0061
-41B2 0041
-41B2 0062
-41B3 0021
-41B3 003F
-41B3 0061
-41B3 0041
-41B3 0062
-41B4 0021
-41B4 003F
-41B4 0061
-41B4 0041
-41B4 0062
-41B5 0021
-41B5 003F
-41B5 0061
-41B5 0041
-41B5 0062
-41B6 0021
-41B6 003F
-41B6 0061
-41B6 0041
-41B6 0062
-41B7 0021
-41B7 003F
-41B7 0061
-41B7 0041
-41B7 0062
-41B8 0021
-41B8 003F
-41B8 0061
-41B8 0041
-41B8 0062
-41B9 0021
-41B9 003F
-41B9 0061
-41B9 0041
-41B9 0062
-41BA 0021
-41BA 003F
-41BA 0061
-41BA 0041
-41BA 0062
-41BB 0021
-41BB 003F
-41BB 0061
-41BB 0041
-41BB 0062
-41BC 0021
-41BC 003F
-41BC 0061
-41BC 0041
-41BC 0062
-41BD 0021
-41BD 003F
-41BD 0061
-41BD 0041
-41BD 0062
-41BE 0021
-41BE 003F
-41BE 0061
-41BE 0041
-41BE 0062
-41BF 0021
-41BF 003F
-41BF 0061
-41BF 0041
-41BF 0062
-41C0 0021
-41C0 003F
-41C0 0061
-41C0 0041
-41C0 0062
-41C1 0021
-41C1 003F
-41C1 0061
-41C1 0041
-41C1 0062
-41C2 0021
-41C2 003F
-41C2 0061
-41C2 0041
-41C2 0062
-41C3 0021
-41C3 003F
-41C3 0061
-41C3 0041
-41C3 0062
-41C4 0021
-41C4 003F
-41C4 0061
-41C4 0041
-41C4 0062
-41C5 0021
-41C5 003F
-41C5 0061
-41C5 0041
-41C5 0062
-41C6 0021
-41C6 003F
-41C6 0061
-41C6 0041
-41C6 0062
-41C7 0021
-41C7 003F
-41C7 0061
-41C7 0041
-41C7 0062
-41C8 0021
-41C8 003F
-41C8 0061
-41C8 0041
-41C8 0062
-41C9 0021
-41C9 003F
-41C9 0061
-41C9 0041
-41C9 0062
-41CA 0021
-41CA 003F
-41CA 0061
-41CA 0041
-41CA 0062
-41CB 0021
-41CB 003F
-41CB 0061
-41CB 0041
-41CB 0062
-41CC 0021
-41CC 003F
-41CC 0061
-41CC 0041
-41CC 0062
-41CD 0021
-41CD 003F
-41CD 0061
-41CD 0041
-41CD 0062
-41CE 0021
-41CE 003F
-41CE 0061
-41CE 0041
-41CE 0062
-41CF 0021
-41CF 003F
-41CF 0061
-41CF 0041
-41CF 0062
-41D0 0021
-41D0 003F
-41D0 0061
-41D0 0041
-41D0 0062
-41D1 0021
-41D1 003F
-41D1 0061
-41D1 0041
-41D1 0062
-41D2 0021
-41D2 003F
-41D2 0061
-41D2 0041
-41D2 0062
-41D3 0021
-41D3 003F
-41D3 0061
-41D3 0041
-41D3 0062
-41D4 0021
-41D4 003F
-41D4 0061
-41D4 0041
-41D4 0062
-41D5 0021
-41D5 003F
-41D5 0061
-41D5 0041
-41D5 0062
-41D6 0021
-41D6 003F
-41D6 0061
-41D6 0041
-41D6 0062
-41D7 0021
-41D7 003F
-41D7 0061
-41D7 0041
-41D7 0062
-41D8 0021
-41D8 003F
-41D8 0061
-41D8 0041
-41D8 0062
-41D9 0021
-41D9 003F
-41D9 0061
-41D9 0041
-41D9 0062
-41DA 0021
-41DA 003F
-41DA 0061
-41DA 0041
-41DA 0062
-41DB 0021
-41DB 003F
-41DB 0061
-41DB 0041
-41DB 0062
-41DC 0021
-41DC 003F
-41DC 0061
-41DC 0041
-41DC 0062
-41DD 0021
-41DD 003F
-41DD 0061
-41DD 0041
-41DD 0062
-41DE 0021
-41DE 003F
-41DE 0061
-41DE 0041
-41DE 0062
-41DF 0021
-41DF 003F
-41DF 0061
-41DF 0041
-41DF 0062
-41E0 0021
-41E0 003F
-41E0 0061
-41E0 0041
-41E0 0062
-41E1 0021
-41E1 003F
-41E1 0061
-41E1 0041
-41E1 0062
-41E2 0021
-41E2 003F
-41E2 0061
-41E2 0041
-41E2 0062
-41E3 0021
-41E3 003F
-41E3 0061
-41E3 0041
-41E3 0062
-41E4 0021
-41E4 003F
-41E4 0061
-41E4 0041
-41E4 0062
-41E5 0021
-41E5 003F
-41E5 0061
-41E5 0041
-41E5 0062
-41E6 0021
-41E6 003F
-41E6 0061
-41E6 0041
-41E6 0062
-41E7 0021
-41E7 003F
-41E7 0061
-41E7 0041
-41E7 0062
-41E8 0021
-41E8 003F
-41E8 0061
-41E8 0041
-41E8 0062
-41E9 0021
-41E9 003F
-41E9 0061
-41E9 0041
-41E9 0062
-41EA 0021
-41EA 003F
-41EA 0061
-41EA 0041
-41EA 0062
-41EB 0021
-41EB 003F
-41EB 0061
-41EB 0041
-41EB 0062
-41EC 0021
-41EC 003F
-41EC 0061
-41EC 0041
-41EC 0062
-41ED 0021
-41ED 003F
-41ED 0061
-41ED 0041
-41ED 0062
-41EE 0021
-41EE 003F
-41EE 0061
-41EE 0041
-41EE 0062
-41EF 0021
-41EF 003F
-41EF 0061
-41EF 0041
-41EF 0062
-41F0 0021
-41F0 003F
-41F0 0061
-41F0 0041
-41F0 0062
-41F1 0021
-41F1 003F
-41F1 0061
-41F1 0041
-41F1 0062
-41F2 0021
-41F2 003F
-41F2 0061
-41F2 0041
-41F2 0062
-41F3 0021
-41F3 003F
-41F3 0061
-41F3 0041
-41F3 0062
-41F4 0021
-41F4 003F
-41F4 0061
-41F4 0041
-41F4 0062
-41F5 0021
-41F5 003F
-41F5 0061
-41F5 0041
-41F5 0062
-41F6 0021
-41F6 003F
-41F6 0061
-41F6 0041
-41F6 0062
-41F7 0021
-41F7 003F
-41F7 0061
-41F7 0041
-41F7 0062
-41F8 0021
-41F8 003F
-41F8 0061
-41F8 0041
-41F8 0062
-41F9 0021
-41F9 003F
-41F9 0061
-41F9 0041
-41F9 0062
-41FA 0021
-41FA 003F
-41FA 0061
-41FA 0041
-41FA 0062
-41FB 0021
-41FB 003F
-41FB 0061
-41FB 0041
-41FB 0062
-41FC 0021
-41FC 003F
-41FC 0061
-41FC 0041
-41FC 0062
-41FD 0021
-41FD 003F
-41FD 0061
-41FD 0041
-41FD 0062
-41FE 0021
-41FE 003F
-41FE 0061
-41FE 0041
-41FE 0062
-41FF 0021
-41FF 003F
-41FF 0061
-41FF 0041
-41FF 0062
-4200 0021
-4200 003F
-4200 0061
-4200 0041
-4200 0062
-4201 0021
-4201 003F
-4201 0061
-4201 0041
-4201 0062
-4202 0021
-2F960 0021
-4202 003F
-2F960 003F
-2F960 0334
-4202 0061
-2F960 0061
-4202 0041
-2F960 0041
-4202 0062
-2F960 0062
-4203 0021
-4203 003F
-4203 0061
-4203 0041
-4203 0062
-4204 0021
-4204 003F
-4204 0061
-4204 0041
-4204 0062
-4205 0021
-4205 003F
-4205 0061
-4205 0041
-4205 0062
-4206 0021
-4206 003F
-4206 0061
-4206 0041
-4206 0062
-4207 0021
-4207 003F
-4207 0061
-4207 0041
-4207 0062
-4208 0021
-4208 003F
-4208 0061
-4208 0041
-4208 0062
-4209 0021
-4209 003F
-4209 0061
-4209 0041
-4209 0062
-420A 0021
-420A 003F
-420A 0061
-420A 0041
-420A 0062
-420B 0021
-420B 003F
-420B 0061
-420B 0041
-420B 0062
-420C 0021
-420C 003F
-420C 0061
-420C 0041
-420C 0062
-420D 0021
-420D 003F
-420D 0061
-420D 0041
-420D 0062
-420E 0021
-420E 003F
-420E 0061
-420E 0041
-420E 0062
-420F 0021
-420F 003F
-420F 0061
-420F 0041
-420F 0062
-4210 0021
-4210 003F
-4210 0061
-4210 0041
-4210 0062
-4211 0021
-4211 003F
-4211 0061
-4211 0041
-4211 0062
-4212 0021
-4212 003F
-4212 0061
-4212 0041
-4212 0062
-4213 0021
-4213 003F
-4213 0061
-4213 0041
-4213 0062
-4214 0021
-4214 003F
-4214 0061
-4214 0041
-4214 0062
-4215 0021
-4215 003F
-4215 0061
-4215 0041
-4215 0062
-4216 0021
-4216 003F
-4216 0061
-4216 0041
-4216 0062
-4217 0021
-4217 003F
-4217 0061
-4217 0041
-4217 0062
-4218 0021
-4218 003F
-4218 0061
-4218 0041
-4218 0062
-4219 0021
-4219 003F
-4219 0061
-4219 0041
-4219 0062
-421A 0021
-421A 003F
-421A 0061
-421A 0041
-421A 0062
-421B 0021
-421B 003F
-421B 0061
-421B 0041
-421B 0062
-421C 0021
-421C 003F
-421C 0061
-421C 0041
-421C 0062
-421D 0021
-421D 003F
-421D 0061
-421D 0041
-421D 0062
-421E 0021
-421E 003F
-421E 0061
-421E 0041
-421E 0062
-421F 0021
-421F 003F
-421F 0061
-421F 0041
-421F 0062
-4220 0021
-4220 003F
-4220 0061
-4220 0041
-4220 0062
-4221 0021
-4221 003F
-4221 0061
-4221 0041
-4221 0062
-4222 0021
-4222 003F
-4222 0061
-4222 0041
-4222 0062
-4223 0021
-4223 003F
-4223 0061
-4223 0041
-4223 0062
-4224 0021
-4224 003F
-4224 0061
-4224 0041
-4224 0062
-4225 0021
-4225 003F
-4225 0061
-4225 0041
-4225 0062
-4226 0021
-4226 003F
-4226 0061
-4226 0041
-4226 0062
-4227 0021
-2F964 0021
-4227 003F
-2F964 003F
-2F964 0334
-4227 0061
-2F964 0061
-4227 0041
-2F964 0041
-4227 0062
-2F964 0062
-4228 0021
-4228 003F
-4228 0061
-4228 0041
-4228 0062
-4229 0021
-4229 003F
-4229 0061
-4229 0041
-4229 0062
-422A 0021
-422A 003F
-422A 0061
-422A 0041
-422A 0062
-422B 0021
-422B 003F
-422B 0061
-422B 0041
-422B 0062
-422C 0021
-422C 003F
-422C 0061
-422C 0041
-422C 0062
-422D 0021
-422D 003F
-422D 0061
-422D 0041
-422D 0062
-422E 0021
-422E 003F
-422E 0061
-422E 0041
-422E 0062
-422F 0021
-422F 003F
-422F 0061
-422F 0041
-422F 0062
-4230 0021
-4230 003F
-4230 0061
-4230 0041
-4230 0062
-4231 0021
-4231 003F
-4231 0061
-4231 0041
-4231 0062
-4232 0021
-4232 003F
-4232 0061
-4232 0041
-4232 0062
-4233 0021
-4233 003F
-4233 0061
-4233 0041
-4233 0062
-4234 0021
-4234 003F
-4234 0061
-4234 0041
-4234 0062
-4235 0021
-4235 003F
-4235 0061
-4235 0041
-4235 0062
-4236 0021
-4236 003F
-4236 0061
-4236 0041
-4236 0062
-4237 0021
-4237 003F
-4237 0061
-4237 0041
-4237 0062
-4238 0021
-4238 003F
-4238 0061
-4238 0041
-4238 0062
-4239 0021
-4239 003F
-4239 0061
-4239 0041
-4239 0062
-423A 0021
-423A 003F
-423A 0061
-423A 0041
-423A 0062
-423B 0021
-423B 003F
-423B 0061
-423B 0041
-423B 0062
-423C 0021
-423C 003F
-423C 0061
-423C 0041
-423C 0062
-423D 0021
-423D 003F
-423D 0061
-423D 0041
-423D 0062
-423E 0021
-423E 003F
-423E 0061
-423E 0041
-423E 0062
-423F 0021
-423F 003F
-423F 0061
-423F 0041
-423F 0062
-4240 0021
-4240 003F
-4240 0061
-4240 0041
-4240 0062
-4241 0021
-4241 003F
-4241 0061
-4241 0041
-4241 0062
-4242 0021
-4242 003F
-4242 0061
-4242 0041
-4242 0062
-4243 0021
-4243 003F
-4243 0061
-4243 0041
-4243 0062
-4244 0021
-4244 003F
-4244 0061
-4244 0041
-4244 0062
-4245 0021
-4245 003F
-4245 0061
-4245 0041
-4245 0062
-4246 0021
-4246 003F
-4246 0061
-4246 0041
-4246 0062
-4247 0021
-4247 003F
-4247 0061
-4247 0041
-4247 0062
-4248 0021
-4248 003F
-4248 0061
-4248 0041
-4248 0062
-4249 0021
-4249 003F
-4249 0061
-4249 0041
-4249 0062
-424A 0021
-424A 003F
-424A 0061
-424A 0041
-424A 0062
-424B 0021
-424B 003F
-424B 0061
-424B 0041
-424B 0062
-424C 0021
-424C 003F
-424C 0061
-424C 0041
-424C 0062
-424D 0021
-424D 003F
-424D 0061
-424D 0041
-424D 0062
-424E 0021
-424E 003F
-424E 0061
-424E 0041
-424E 0062
-424F 0021
-424F 003F
-424F 0061
-424F 0041
-424F 0062
-4250 0021
-4250 003F
-4250 0061
-4250 0041
-4250 0062
-4251 0021
-4251 003F
-4251 0061
-4251 0041
-4251 0062
-4252 0021
-4252 003F
-4252 0061
-4252 0041
-4252 0062
-4253 0021
-4253 003F
-4253 0061
-4253 0041
-4253 0062
-4254 0021
-4254 003F
-4254 0061
-4254 0041
-4254 0062
-4255 0021
-4255 003F
-4255 0061
-4255 0041
-4255 0062
-4256 0021
-4256 003F
-4256 0061
-4256 0041
-4256 0062
-4257 0021
-4257 003F
-4257 0061
-4257 0041
-4257 0062
-4258 0021
-4258 003F
-4258 0061
-4258 0041
-4258 0062
-4259 0021
-4259 003F
-4259 0061
-4259 0041
-4259 0062
-425A 0021
-425A 003F
-425A 0061
-425A 0041
-425A 0062
-425B 0021
-425B 003F
-425B 0061
-425B 0041
-425B 0062
-425C 0021
-425C 003F
-425C 0061
-425C 0041
-425C 0062
-425D 0021
-425D 003F
-425D 0061
-425D 0041
-425D 0062
-425E 0021
-425E 003F
-425E 0061
-425E 0041
-425E 0062
-425F 0021
-425F 003F
-425F 0061
-425F 0041
-425F 0062
-4260 0021
-4260 003F
-4260 0061
-4260 0041
-4260 0062
-4261 0021
-4261 003F
-4261 0061
-4261 0041
-4261 0062
-4262 0021
-4262 003F
-4262 0061
-4262 0041
-4262 0062
-4263 0021
-4263 003F
-4263 0061
-4263 0041
-4263 0062
-4264 0021
-4264 003F
-4264 0061
-4264 0041
-4264 0062
-4265 0021
-4265 003F
-4265 0061
-4265 0041
-4265 0062
-4266 0021
-4266 003F
-4266 0061
-4266 0041
-4266 0062
-4267 0021
-4267 003F
-4267 0061
-4267 0041
-4267 0062
-4268 0021
-4268 003F
-4268 0061
-4268 0041
-4268 0062
-4269 0021
-4269 003F
-4269 0061
-4269 0041
-4269 0062
-426A 0021
-426A 003F
-426A 0061
-426A 0041
-426A 0062
-426B 0021
-426B 003F
-426B 0061
-426B 0041
-426B 0062
-426C 0021
-426C 003F
-426C 0061
-426C 0041
-426C 0062
-426D 0021
-426D 003F
-426D 0061
-426D 0041
-426D 0062
-426E 0021
-426E 003F
-426E 0061
-426E 0041
-426E 0062
-426F 0021
-426F 003F
-426F 0061
-426F 0041
-426F 0062
-4270 0021
-4270 003F
-4270 0061
-4270 0041
-4270 0062
-4271 0021
-4271 003F
-4271 0061
-4271 0041
-4271 0062
-4272 0021
-4272 003F
-4272 0061
-4272 0041
-4272 0062
-4273 0021
-4273 003F
-4273 0061
-4273 0041
-4273 0062
-4274 0021
-4274 003F
-4274 0061
-4274 0041
-4274 0062
-4275 0021
-4275 003F
-4275 0061
-4275 0041
-4275 0062
-4276 0021
-4276 003F
-4276 0061
-4276 0041
-4276 0062
-4277 0021
-4277 003F
-4277 0061
-4277 0041
-4277 0062
-4278 0021
-4278 003F
-4278 0061
-4278 0041
-4278 0062
-4279 0021
-4279 003F
-4279 0061
-4279 0041
-4279 0062
-427A 0021
-427A 003F
-427A 0061
-427A 0041
-427A 0062
-427B 0021
-427B 003F
-427B 0061
-427B 0041
-427B 0062
-427C 0021
-427C 003F
-427C 0061
-427C 0041
-427C 0062
-427D 0021
-427D 003F
-427D 0061
-427D 0041
-427D 0062
-427E 0021
-427E 003F
-427E 0061
-427E 0041
-427E 0062
-427F 0021
-427F 003F
-427F 0061
-427F 0041
-427F 0062
-4280 0021
-4280 003F
-4280 0061
-4280 0041
-4280 0062
-4281 0021
-4281 003F
-4281 0061
-4281 0041
-4281 0062
-4282 0021
-4282 003F
-4282 0061
-4282 0041
-4282 0062
-4283 0021
-4283 003F
-4283 0061
-4283 0041
-4283 0062
-4284 0021
-4284 003F
-4284 0061
-4284 0041
-4284 0062
-4285 0021
-4285 003F
-4285 0061
-4285 0041
-4285 0062
-4286 0021
-4286 003F
-4286 0061
-4286 0041
-4286 0062
-4287 0021
-4287 003F
-4287 0061
-4287 0041
-4287 0062
-4288 0021
-4288 003F
-4288 0061
-4288 0041
-4288 0062
-4289 0021
-4289 003F
-4289 0061
-4289 0041
-4289 0062
-428A 0021
-428A 003F
-428A 0061
-428A 0041
-428A 0062
-428B 0021
-428B 003F
-428B 0061
-428B 0041
-428B 0062
-428C 0021
-428C 003F
-428C 0061
-428C 0041
-428C 0062
-428D 0021
-428D 003F
-428D 0061
-428D 0041
-428D 0062
-428E 0021
-428E 003F
-428E 0061
-428E 0041
-428E 0062
-428F 0021
-428F 003F
-428F 0061
-428F 0041
-428F 0062
-4290 0021
-4290 003F
-4290 0061
-4290 0041
-4290 0062
-4291 0021
-4291 003F
-4291 0061
-4291 0041
-4291 0062
-4292 0021
-4292 003F
-4292 0061
-4292 0041
-4292 0062
-4293 0021
-4293 003F
-4293 0061
-4293 0041
-4293 0062
-4294 0021
-4294 003F
-4294 0061
-4294 0041
-4294 0062
-4295 0021
-4295 003F
-4295 0061
-4295 0041
-4295 0062
-4296 0021
-4296 003F
-4296 0061
-4296 0041
-4296 0062
-4297 0021
-4297 003F
-4297 0061
-4297 0041
-4297 0062
-4298 0021
-4298 003F
-4298 0061
-4298 0041
-4298 0062
-4299 0021
-4299 003F
-4299 0061
-4299 0041
-4299 0062
-429A 0021
-429A 003F
-429A 0061
-429A 0041
-429A 0062
-429B 0021
-429B 003F
-429B 0061
-429B 0041
-429B 0062
-429C 0021
-429C 003F
-429C 0061
-429C 0041
-429C 0062
-429D 0021
-429D 003F
-429D 0061
-429D 0041
-429D 0062
-429E 0021
-429E 003F
-429E 0061
-429E 0041
-429E 0062
-429F 0021
-429F 003F
-429F 0061
-429F 0041
-429F 0062
-42A0 0021
-2F967 0021
-42A0 003F
-2F967 003F
-2F967 0334
-42A0 0061
-2F967 0061
-42A0 0041
-2F967 0041
-42A0 0062
-2F967 0062
-42A1 0021
-42A1 003F
-42A1 0061
-42A1 0041
-42A1 0062
-42A2 0021
-42A2 003F
-42A2 0061
-42A2 0041
-42A2 0062
-42A3 0021
-42A3 003F
-42A3 0061
-42A3 0041
-42A3 0062
-42A4 0021
-42A4 003F
-42A4 0061
-42A4 0041
-42A4 0062
-42A5 0021
-42A5 003F
-42A5 0061
-42A5 0041
-42A5 0062
-42A6 0021
-42A6 003F
-42A6 0061
-42A6 0041
-42A6 0062
-42A7 0021
-42A7 003F
-42A7 0061
-42A7 0041
-42A7 0062
-42A8 0021
-42A8 003F
-42A8 0061
-42A8 0041
-42A8 0062
-42A9 0021
-42A9 003F
-42A9 0061
-42A9 0041
-42A9 0062
-42AA 0021
-42AA 003F
-42AA 0061
-42AA 0041
-42AA 0062
-42AB 0021
-42AB 003F
-42AB 0061
-42AB 0041
-42AB 0062
-42AC 0021
-42AC 003F
-42AC 0061
-42AC 0041
-42AC 0062
-42AD 0021
-42AD 003F
-42AD 0061
-42AD 0041
-42AD 0062
-42AE 0021
-42AE 003F
-42AE 0061
-42AE 0041
-42AE 0062
-42AF 0021
-42AF 003F
-42AF 0061
-42AF 0041
-42AF 0062
-42B0 0021
-42B0 003F
-42B0 0061
-42B0 0041
-42B0 0062
-42B1 0021
-42B1 003F
-42B1 0061
-42B1 0041
-42B1 0062
-42B2 0021
-42B2 003F
-42B2 0061
-42B2 0041
-42B2 0062
-42B3 0021
-42B3 003F
-42B3 0061
-42B3 0041
-42B3 0062
-42B4 0021
-42B4 003F
-42B4 0061
-42B4 0041
-42B4 0062
-42B5 0021
-42B5 003F
-42B5 0061
-42B5 0041
-42B5 0062
-42B6 0021
-42B6 003F
-42B6 0061
-42B6 0041
-42B6 0062
-42B7 0021
-42B7 003F
-42B7 0061
-42B7 0041
-42B7 0062
-42B8 0021
-42B8 003F
-42B8 0061
-42B8 0041
-42B8 0062
-42B9 0021
-42B9 003F
-42B9 0061
-42B9 0041
-42B9 0062
-42BA 0021
-42BA 003F
-42BA 0061
-42BA 0041
-42BA 0062
-42BB 0021
-42BB 003F
-42BB 0061
-42BB 0041
-42BB 0062
-42BC 0021
-42BC 003F
-42BC 0061
-42BC 0041
-42BC 0062
-42BD 0021
-42BD 003F
-42BD 0061
-42BD 0041
-42BD 0062
-42BE 0021
-42BE 003F
-42BE 0061
-42BE 0041
-42BE 0062
-42BF 0021
-42BF 003F
-42BF 0061
-42BF 0041
-42BF 0062
-42C0 0021
-42C0 003F
-42C0 0061
-42C0 0041
-42C0 0062
-42C1 0021
-42C1 003F
-42C1 0061
-42C1 0041
-42C1 0062
-42C2 0021
-42C2 003F
-42C2 0061
-42C2 0041
-42C2 0062
-42C3 0021
-42C3 003F
-42C3 0061
-42C3 0041
-42C3 0062
-42C4 0021
-42C4 003F
-42C4 0061
-42C4 0041
-42C4 0062
-42C5 0021
-42C5 003F
-42C5 0061
-42C5 0041
-42C5 0062
-42C6 0021
-42C6 003F
-42C6 0061
-42C6 0041
-42C6 0062
-42C7 0021
-42C7 003F
-42C7 0061
-42C7 0041
-42C7 0062
-42C8 0021
-42C8 003F
-42C8 0061
-42C8 0041
-42C8 0062
-42C9 0021
-42C9 003F
-42C9 0061
-42C9 0041
-42C9 0062
-42CA 0021
-42CA 003F
-42CA 0061
-42CA 0041
-42CA 0062
-42CB 0021
-42CB 003F
-42CB 0061
-42CB 0041
-42CB 0062
-42CC 0021
-42CC 003F
-42CC 0061
-42CC 0041
-42CC 0062
-42CD 0021
-42CD 003F
-42CD 0061
-42CD 0041
-42CD 0062
-42CE 0021
-42CE 003F
-42CE 0061
-42CE 0041
-42CE 0062
-42CF 0021
-42CF 003F
-42CF 0061
-42CF 0041
-42CF 0062
-42D0 0021
-42D0 003F
-42D0 0061
-42D0 0041
-42D0 0062
-42D1 0021
-42D1 003F
-42D1 0061
-42D1 0041
-42D1 0062
-42D2 0021
-42D2 003F
-42D2 0061
-42D2 0041
-42D2 0062
-42D3 0021
-42D3 003F
-42D3 0061
-42D3 0041
-42D3 0062
-42D4 0021
-42D4 003F
-42D4 0061
-42D4 0041
-42D4 0062
-42D5 0021
-42D5 003F
-42D5 0061
-42D5 0041
-42D5 0062
-42D6 0021
-42D6 003F
-42D6 0061
-42D6 0041
-42D6 0062
-42D7 0021
-42D7 003F
-42D7 0061
-42D7 0041
-42D7 0062
-42D8 0021
-42D8 003F
-42D8 0061
-42D8 0041
-42D8 0062
-42D9 0021
-42D9 003F
-42D9 0061
-42D9 0041
-42D9 0062
-42DA 0021
-42DA 003F
-42DA 0061
-42DA 0041
-42DA 0062
-42DB 0021
-42DB 003F
-42DB 0061
-42DB 0041
-42DB 0062
-42DC 0021
-42DC 003F
-42DC 0061
-42DC 0041
-42DC 0062
-42DD 0021
-42DD 003F
-42DD 0061
-42DD 0041
-42DD 0062
-42DE 0021
-42DE 003F
-42DE 0061
-42DE 0041
-42DE 0062
-42DF 0021
-42DF 003F
-42DF 0061
-42DF 0041
-42DF 0062
-42E0 0021
-42E0 003F
-42E0 0061
-42E0 0041
-42E0 0062
-42E1 0021
-42E1 003F
-42E1 0061
-42E1 0041
-42E1 0062
-42E2 0021
-42E2 003F
-42E2 0061
-42E2 0041
-42E2 0062
-42E3 0021
-42E3 003F
-42E3 0061
-42E3 0041
-42E3 0062
-42E4 0021
-42E4 003F
-42E4 0061
-42E4 0041
-42E4 0062
-42E5 0021
-42E5 003F
-42E5 0061
-42E5 0041
-42E5 0062
-42E6 0021
-42E6 003F
-42E6 0061
-42E6 0041
-42E6 0062
-42E7 0021
-42E7 003F
-42E7 0061
-42E7 0041
-42E7 0062
-42E8 0021
-42E8 003F
-42E8 0061
-42E8 0041
-42E8 0062
-42E9 0021
-42E9 003F
-42E9 0061
-42E9 0041
-42E9 0062
-42EA 0021
-42EA 003F
-42EA 0061
-42EA 0041
-42EA 0062
-42EB 0021
-42EB 003F
-42EB 0061
-42EB 0041
-42EB 0062
-42EC 0021
-42EC 003F
-42EC 0061
-42EC 0041
-42EC 0062
-42ED 0021
-42ED 003F
-42ED 0061
-42ED 0041
-42ED 0062
-42EE 0021
-42EE 003F
-42EE 0061
-42EE 0041
-42EE 0062
-42EF 0021
-42EF 003F
-42EF 0061
-42EF 0041
-42EF 0062
-42F0 0021
-42F0 003F
-42F0 0061
-42F0 0041
-42F0 0062
-42F1 0021
-42F1 003F
-42F1 0061
-42F1 0041
-42F1 0062
-42F2 0021
-42F2 003F
-42F2 0061
-42F2 0041
-42F2 0062
-42F3 0021
-42F3 003F
-42F3 0061
-42F3 0041
-42F3 0062
-42F4 0021
-42F4 003F
-42F4 0061
-42F4 0041
-42F4 0062
-42F5 0021
-42F5 003F
-42F5 0061
-42F5 0041
-42F5 0062
-42F6 0021
-42F6 003F
-42F6 0061
-42F6 0041
-42F6 0062
-42F7 0021
-42F7 003F
-42F7 0061
-42F7 0041
-42F7 0062
-42F8 0021
-42F8 003F
-42F8 0061
-42F8 0041
-42F8 0062
-42F9 0021
-42F9 003F
-42F9 0061
-42F9 0041
-42F9 0062
-42FA 0021
-42FA 003F
-42FA 0061
-42FA 0041
-42FA 0062
-42FB 0021
-42FB 003F
-42FB 0061
-42FB 0041
-42FB 0062
-42FC 0021
-42FC 003F
-42FC 0061
-42FC 0041
-42FC 0062
-42FD 0021
-42FD 003F
-42FD 0061
-42FD 0041
-42FD 0062
-42FE 0021
-42FE 003F
-42FE 0061
-42FE 0041
-42FE 0062
-42FF 0021
-42FF 003F
-42FF 0061
-42FF 0041
-42FF 0062
-4300 0021
-4300 003F
-4300 0061
-4300 0041
-4300 0062
-4301 0021
-2F96D 0021
-4301 003F
-2F96D 003F
-2F96D 0334
-4301 0061
-2F96D 0061
-4301 0041
-2F96D 0041
-4301 0062
-2F96D 0062
-4302 0021
-4302 003F
-4302 0061
-4302 0041
-4302 0062
-4303 0021
-4303 003F
-4303 0061
-4303 0041
-4303 0062
-4304 0021
-4304 003F
-4304 0061
-4304 0041
-4304 0062
-4305 0021
-4305 003F
-4305 0061
-4305 0041
-4305 0062
-4306 0021
-4306 003F
-4306 0061
-4306 0041
-4306 0062
-4307 0021
-4307 003F
-4307 0061
-4307 0041
-4307 0062
-4308 0021
-4308 003F
-4308 0061
-4308 0041
-4308 0062
-4309 0021
-4309 003F
-4309 0061
-4309 0041
-4309 0062
-430A 0021
-430A 003F
-430A 0061
-430A 0041
-430A 0062
-430B 0021
-430B 003F
-430B 0061
-430B 0041
-430B 0062
-430C 0021
-430C 003F
-430C 0061
-430C 0041
-430C 0062
-430D 0021
-430D 003F
-430D 0061
-430D 0041
-430D 0062
-430E 0021
-430E 003F
-430E 0061
-430E 0041
-430E 0062
-430F 0021
-430F 003F
-430F 0061
-430F 0041
-430F 0062
-4310 0021
-4310 003F
-4310 0061
-4310 0041
-4310 0062
-4311 0021
-4311 003F
-4311 0061
-4311 0041
-4311 0062
-4312 0021
-4312 003F
-4312 0061
-4312 0041
-4312 0062
-4313 0021
-4313 003F
-4313 0061
-4313 0041
-4313 0062
-4314 0021
-4314 003F
-4314 0061
-4314 0041
-4314 0062
-4315 0021
-4315 003F
-4315 0061
-4315 0041
-4315 0062
-4316 0021
-4316 003F
-4316 0061
-4316 0041
-4316 0062
-4317 0021
-4317 003F
-4317 0061
-4317 0041
-4317 0062
-4318 0021
-4318 003F
-4318 0061
-4318 0041
-4318 0062
-4319 0021
-4319 003F
-4319 0061
-4319 0041
-4319 0062
-431A 0021
-431A 003F
-431A 0061
-431A 0041
-431A 0062
-431B 0021
-431B 003F
-431B 0061
-431B 0041
-431B 0062
-431C 0021
-431C 003F
-431C 0061
-431C 0041
-431C 0062
-431D 0021
-431D 003F
-431D 0061
-431D 0041
-431D 0062
-431E 0021
-431E 003F
-431E 0061
-431E 0041
-431E 0062
-431F 0021
-431F 003F
-431F 0061
-431F 0041
-431F 0062
-4320 0021
-4320 003F
-4320 0061
-4320 0041
-4320 0062
-4321 0021
-4321 003F
-4321 0061
-4321 0041
-4321 0062
-4322 0021
-4322 003F
-4322 0061
-4322 0041
-4322 0062
-4323 0021
-4323 003F
-4323 0061
-4323 0041
-4323 0062
-4324 0021
-4324 003F
-4324 0061
-4324 0041
-4324 0062
-4325 0021
-4325 003F
-4325 0061
-4325 0041
-4325 0062
-4326 0021
-4326 003F
-4326 0061
-4326 0041
-4326 0062
-4327 0021
-4327 003F
-4327 0061
-4327 0041
-4327 0062
-4328 0021
-4328 003F
-4328 0061
-4328 0041
-4328 0062
-4329 0021
-4329 003F
-4329 0061
-4329 0041
-4329 0062
-432A 0021
-432A 003F
-432A 0061
-432A 0041
-432A 0062
-432B 0021
-432B 003F
-432B 0061
-432B 0041
-432B 0062
-432C 0021
-432C 003F
-432C 0061
-432C 0041
-432C 0062
-432D 0021
-432D 003F
-432D 0061
-432D 0041
-432D 0062
-432E 0021
-432E 003F
-432E 0061
-432E 0041
-432E 0062
-432F 0021
-432F 003F
-432F 0061
-432F 0041
-432F 0062
-4330 0021
-4330 003F
-4330 0061
-4330 0041
-4330 0062
-4331 0021
-4331 003F
-4331 0061
-4331 0041
-4331 0062
-4332 0021
-4332 003F
-4332 0061
-4332 0041
-4332 0062
-4333 0021
-4333 003F
-4333 0061
-4333 0041
-4333 0062
-4334 0021
-2F971 0021
-4334 003F
-2F971 003F
-2F971 0334
-4334 0061
-2F971 0061
-4334 0041
-2F971 0041
-4334 0062
-2F971 0062
-4335 0021
-4335 003F
-4335 0061
-4335 0041
-4335 0062
-4336 0021
-4336 003F
-4336 0061
-4336 0041
-4336 0062
-4337 0021
-4337 003F
-4337 0061
-4337 0041
-4337 0062
-4338 0021
-4338 003F
-4338 0061
-4338 0041
-4338 0062
-4339 0021
-4339 003F
-4339 0061
-4339 0041
-4339 0062
-433A 0021
-433A 003F
-433A 0061
-433A 0041
-433A 0062
-433B 0021
-433B 003F
-433B 0061
-433B 0041
-433B 0062
-433C 0021
-433C 003F
-433C 0061
-433C 0041
-433C 0062
-433D 0021
-433D 003F
-433D 0061
-433D 0041
-433D 0062
-433E 0021
-433E 003F
-433E 0061
-433E 0041
-433E 0062
-433F 0021
-433F 003F
-433F 0061
-433F 0041
-433F 0062
-4340 0021
-4340 003F
-4340 0061
-4340 0041
-4340 0062
-4341 0021
-4341 003F
-4341 0061
-4341 0041
-4341 0062
-4342 0021
-4342 003F
-4342 0061
-4342 0041
-4342 0062
-4343 0021
-4343 003F
-4343 0061
-4343 0041
-4343 0062
-4344 0021
-4344 003F
-4344 0061
-4344 0041
-4344 0062
-4345 0021
-4345 003F
-4345 0061
-4345 0041
-4345 0062
-4346 0021
-4346 003F
-4346 0061
-4346 0041
-4346 0062
-4347 0021
-4347 003F
-4347 0061
-4347 0041
-4347 0062
-4348 0021
-4348 003F
-4348 0061
-4348 0041
-4348 0062
-4349 0021
-4349 003F
-4349 0061
-4349 0041
-4349 0062
-434A 0021
-434A 003F
-434A 0061
-434A 0041
-434A 0062
-434B 0021
-434B 003F
-434B 0061
-434B 0041
-434B 0062
-434C 0021
-434C 003F
-434C 0061
-434C 0041
-434C 0062
-434D 0021
-434D 003F
-434D 0061
-434D 0041
-434D 0062
-434E 0021
-434E 003F
-434E 0061
-434E 0041
-434E 0062
-434F 0021
-434F 003F
-434F 0061
-434F 0041
-434F 0062
-4350 0021
-4350 003F
-4350 0061
-4350 0041
-4350 0062
-4351 0021
-4351 003F
-4351 0061
-4351 0041
-4351 0062
-4352 0021
-4352 003F
-4352 0061
-4352 0041
-4352 0062
-4353 0021
-4353 003F
-4353 0061
-4353 0041
-4353 0062
-4354 0021
-4354 003F
-4354 0061
-4354 0041
-4354 0062
-4355 0021
-4355 003F
-4355 0061
-4355 0041
-4355 0062
-4356 0021
-4356 003F
-4356 0061
-4356 0041
-4356 0062
-4357 0021
-4357 003F
-4357 0061
-4357 0041
-4357 0062
-4358 0021
-4358 003F
-4358 0061
-4358 0041
-4358 0062
-4359 0021
-2F974 0021
-4359 003F
-2F974 003F
-2F974 0334
-4359 0061
-2F974 0061
-4359 0041
-2F974 0041
-4359 0062
-2F974 0062
-435A 0021
-435A 003F
-435A 0061
-435A 0041
-435A 0062
-435B 0021
-435B 003F
-435B 0061
-435B 0041
-435B 0062
-435C 0021
-435C 003F
-435C 0061
-435C 0041
-435C 0062
-435D 0021
-435D 003F
-435D 0061
-435D 0041
-435D 0062
-435E 0021
-435E 003F
-435E 0061
-435E 0041
-435E 0062
-435F 0021
-435F 003F
-435F 0061
-435F 0041
-435F 0062
-4360 0021
-4360 003F
-4360 0061
-4360 0041
-4360 0062
-4361 0021
-4361 003F
-4361 0061
-4361 0041
-4361 0062
-4362 0021
-4362 003F
-4362 0061
-4362 0041
-4362 0062
-4363 0021
-4363 003F
-4363 0061
-4363 0041
-4363 0062
-4364 0021
-4364 003F
-4364 0061
-4364 0041
-4364 0062
-4365 0021
-4365 003F
-4365 0061
-4365 0041
-4365 0062
-4366 0021
-4366 003F
-4366 0061
-4366 0041
-4366 0062
-4367 0021
-4367 003F
-4367 0061
-4367 0041
-4367 0062
-4368 0021
-4368 003F
-4368 0061
-4368 0041
-4368 0062
-4369 0021
-4369 003F
-4369 0061
-4369 0041
-4369 0062
-436A 0021
-436A 003F
-436A 0061
-436A 0041
-436A 0062
-436B 0021
-436B 003F
-436B 0061
-436B 0041
-436B 0062
-436C 0021
-436C 003F
-436C 0061
-436C 0041
-436C 0062
-436D 0021
-436D 003F
-436D 0061
-436D 0041
-436D 0062
-436E 0021
-436E 003F
-436E 0061
-436E 0041
-436E 0062
-436F 0021
-436F 003F
-436F 0061
-436F 0041
-436F 0062
-4370 0021
-4370 003F
-4370 0061
-4370 0041
-4370 0062
-4371 0021
-4371 003F
-4371 0061
-4371 0041
-4371 0062
-4372 0021
-4372 003F
-4372 0061
-4372 0041
-4372 0062
-4373 0021
-4373 003F
-4373 0061
-4373 0041
-4373 0062
-4374 0021
-4374 003F
-4374 0061
-4374 0041
-4374 0062
-4375 0021
-4375 003F
-4375 0061
-4375 0041
-4375 0062
-4376 0021
-4376 003F
-4376 0061
-4376 0041
-4376 0062
-4377 0021
-4377 003F
-4377 0061
-4377 0041
-4377 0062
-4378 0021
-4378 003F
-4378 0061
-4378 0041
-4378 0062
-4379 0021
-4379 003F
-4379 0061
-4379 0041
-4379 0062
-437A 0021
-437A 003F
-437A 0061
-437A 0041
-437A 0062
-437B 0021
-437B 003F
-437B 0061
-437B 0041
-437B 0062
-437C 0021
-437C 003F
-437C 0061
-437C 0041
-437C 0062
-437D 0021
-437D 003F
-437D 0061
-437D 0041
-437D 0062
-437E 0021
-437E 003F
-437E 0061
-437E 0041
-437E 0062
-437F 0021
-437F 003F
-437F 0061
-437F 0041
-437F 0062
-4380 0021
-4380 003F
-4380 0061
-4380 0041
-4380 0062
-4381 0021
-4381 003F
-4381 0061
-4381 0041
-4381 0062
-4382 0021
-4382 003F
-4382 0061
-4382 0041
-4382 0062
-4383 0021
-4383 003F
-4383 0061
-4383 0041
-4383 0062
-4384 0021
-4384 003F
-4384 0061
-4384 0041
-4384 0062
-4385 0021
-4385 003F
-4385 0061
-4385 0041
-4385 0062
-4386 0021
-4386 003F
-4386 0061
-4386 0041
-4386 0062
-4387 0021
-4387 003F
-4387 0061
-4387 0041
-4387 0062
-4388 0021
-4388 003F
-4388 0061
-4388 0041
-4388 0062
-4389 0021
-4389 003F
-4389 0061
-4389 0041
-4389 0062
-438A 0021
-438A 003F
-438A 0061
-438A 0041
-438A 0062
-438B 0021
-438B 003F
-438B 0061
-438B 0041
-438B 0062
-438C 0021
-438C 003F
-438C 0061
-438C 0041
-438C 0062
-438D 0021
-438D 003F
-438D 0061
-438D 0041
-438D 0062
-438E 0021
-438E 003F
-438E 0061
-438E 0041
-438E 0062
-438F 0021
-438F 003F
-438F 0061
-438F 0041
-438F 0062
-4390 0021
-4390 003F
-4390 0061
-4390 0041
-4390 0062
-4391 0021
-4391 003F
-4391 0061
-4391 0041
-4391 0062
-4392 0021
-4392 003F
-4392 0061
-4392 0041
-4392 0062
-4393 0021
-4393 003F
-4393 0061
-4393 0041
-4393 0062
-4394 0021
-4394 003F
-4394 0061
-4394 0041
-4394 0062
-4395 0021
-4395 003F
-4395 0061
-4395 0041
-4395 0062
-4396 0021
-4396 003F
-4396 0061
-4396 0041
-4396 0062
-4397 0021
-4397 003F
-4397 0061
-4397 0041
-4397 0062
-4398 0021
-4398 003F
-4398 0061
-4398 0041
-4398 0062
-4399 0021
-4399 003F
-4399 0061
-4399 0041
-4399 0062
-439A 0021
-439A 003F
-439A 0061
-439A 0041
-439A 0062
-439B 0021
-439B 003F
-439B 0061
-439B 0041
-439B 0062
-439C 0021
-439C 003F
-439C 0061
-439C 0041
-439C 0062
-439D 0021
-439D 003F
-439D 0061
-439D 0041
-439D 0062
-439E 0021
-439E 003F
-439E 0061
-439E 0041
-439E 0062
-439F 0021
-439F 003F
-439F 0061
-439F 0041
-439F 0062
-43A0 0021
-43A0 003F
-43A0 0061
-43A0 0041
-43A0 0062
-43A1 0021
-43A1 003F
-43A1 0061
-43A1 0041
-43A1 0062
-43A2 0021
-43A2 003F
-43A2 0061
-43A2 0041
-43A2 0062
-43A3 0021
-43A3 003F
-43A3 0061
-43A3 0041
-43A3 0062
-43A4 0021
-43A4 003F
-43A4 0061
-43A4 0041
-43A4 0062
-43A5 0021
-43A5 003F
-43A5 0061
-43A5 0041
-43A5 0062
-43A6 0021
-43A6 003F
-43A6 0061
-43A6 0041
-43A6 0062
-43A7 0021
-43A7 003F
-43A7 0061
-43A7 0041
-43A7 0062
-43A8 0021
-43A8 003F
-43A8 0061
-43A8 0041
-43A8 0062
-43A9 0021
-43A9 003F
-43A9 0061
-43A9 0041
-43A9 0062
-43AA 0021
-43AA 003F
-43AA 0061
-43AA 0041
-43AA 0062
-43AB 0021
-43AB 003F
-43AB 0061
-43AB 0041
-43AB 0062
-43AC 0021
-43AC 003F
-43AC 0061
-43AC 0041
-43AC 0062
-43AD 0021
-43AD 003F
-43AD 0061
-43AD 0041
-43AD 0062
-43AE 0021
-43AE 003F
-43AE 0061
-43AE 0041
-43AE 0062
-43AF 0021
-43AF 003F
-43AF 0061
-43AF 0041
-43AF 0062
-43B0 0021
-43B0 003F
-43B0 0061
-43B0 0041
-43B0 0062
-43B1 0021
-43B1 003F
-43B1 0061
-43B1 0041
-43B1 0062
-43B2 0021
-43B2 003F
-43B2 0061
-43B2 0041
-43B2 0062
-43B3 0021
-43B3 003F
-43B3 0061
-43B3 0041
-43B3 0062
-43B4 0021
-43B4 003F
-43B4 0061
-43B4 0041
-43B4 0062
-43B5 0021
-43B5 003F
-43B5 0061
-43B5 0041
-43B5 0062
-43B6 0021
-43B6 003F
-43B6 0061
-43B6 0041
-43B6 0062
-43B7 0021
-43B7 003F
-43B7 0061
-43B7 0041
-43B7 0062
-43B8 0021
-43B8 003F
-43B8 0061
-43B8 0041
-43B8 0062
-43B9 0021
-43B9 003F
-43B9 0061
-43B9 0041
-43B9 0062
-43BA 0021
-43BA 003F
-43BA 0061
-43BA 0041
-43BA 0062
-43BB 0021
-43BB 003F
-43BB 0061
-43BB 0041
-43BB 0062
-43BC 0021
-43BC 003F
-43BC 0061
-43BC 0041
-43BC 0062
-43BD 0021
-43BD 003F
-43BD 0061
-43BD 0041
-43BD 0062
-43BE 0021
-43BE 003F
-43BE 0061
-43BE 0041
-43BE 0062
-43BF 0021
-43BF 003F
-43BF 0061
-43BF 0041
-43BF 0062
-43C0 0021
-43C0 003F
-43C0 0061
-43C0 0041
-43C0 0062
-43C1 0021
-43C1 003F
-43C1 0061
-43C1 0041
-43C1 0062
-43C2 0021
-43C2 003F
-43C2 0061
-43C2 0041
-43C2 0062
-43C3 0021
-43C3 003F
-43C3 0061
-43C3 0041
-43C3 0062
-43C4 0021
-43C4 003F
-43C4 0061
-43C4 0041
-43C4 0062
-43C5 0021
-43C5 003F
-43C5 0061
-43C5 0041
-43C5 0062
-43C6 0021
-43C6 003F
-43C6 0061
-43C6 0041
-43C6 0062
-43C7 0021
-43C7 003F
-43C7 0061
-43C7 0041
-43C7 0062
-43C8 0021
-43C8 003F
-43C8 0061
-43C8 0041
-43C8 0062
-43C9 0021
-43C9 003F
-43C9 0061
-43C9 0041
-43C9 0062
-43CA 0021
-43CA 003F
-43CA 0061
-43CA 0041
-43CA 0062
-43CB 0021
-43CB 003F
-43CB 0061
-43CB 0041
-43CB 0062
-43CC 0021
-43CC 003F
-43CC 0061
-43CC 0041
-43CC 0062
-43CD 0021
-43CD 003F
-43CD 0061
-43CD 0041
-43CD 0062
-43CE 0021
-43CE 003F
-43CE 0061
-43CE 0041
-43CE 0062
-43CF 0021
-43CF 003F
-43CF 0061
-43CF 0041
-43CF 0062
-43D0 0021
-43D0 003F
-43D0 0061
-43D0 0041
-43D0 0062
-43D1 0021
-43D1 003F
-43D1 0061
-43D1 0041
-43D1 0062
-43D2 0021
-43D2 003F
-43D2 0061
-43D2 0041
-43D2 0062
-43D3 0021
-43D3 003F
-43D3 0061
-43D3 0041
-43D3 0062
-43D4 0021
-43D4 003F
-43D4 0061
-43D4 0041
-43D4 0062
-43D5 0021
-2F981 0021
-43D5 003F
-2F981 003F
-2F981 0334
-43D5 0061
-2F981 0061
-43D5 0041
-2F981 0041
-43D5 0062
-2F981 0062
-43D6 0021
-43D6 003F
-43D6 0061
-43D6 0041
-43D6 0062
-43D7 0021
-43D7 003F
-43D7 0061
-43D7 0041
-43D7 0062
-43D8 0021
-43D8 003F
-43D8 0061
-43D8 0041
-43D8 0062
-43D9 0021
-2F8D7 0021
-43D9 003F
-2F8D7 003F
-2F8D7 0334
-43D9 0061
-2F8D7 0061
-43D9 0041
-2F8D7 0041
-43D9 0062
-2F8D7 0062
-43DA 0021
-43DA 003F
-43DA 0061
-43DA 0041
-43DA 0062
-43DB 0021
-43DB 003F
-43DB 0061
-43DB 0041
-43DB 0062
-43DC 0021
-43DC 003F
-43DC 0061
-43DC 0041
-43DC 0062
-43DD 0021
-43DD 003F
-43DD 0061
-43DD 0041
-43DD 0062
-43DE 0021
-43DE 003F
-43DE 0061
-43DE 0041
-43DE 0062
-43DF 0021
-43DF 003F
-43DF 0061
-43DF 0041
-43DF 0062
-43E0 0021
-43E0 003F
-43E0 0061
-43E0 0041
-43E0 0062
-43E1 0021
-43E1 003F
-43E1 0061
-43E1 0041
-43E1 0062
-43E2 0021
-43E2 003F
-43E2 0061
-43E2 0041
-43E2 0062
-43E3 0021
-43E3 003F
-43E3 0061
-43E3 0041
-43E3 0062
-43E4 0021
-43E4 003F
-43E4 0061
-43E4 0041
-43E4 0062
-43E5 0021
-43E5 003F
-43E5 0061
-43E5 0041
-43E5 0062
-43E6 0021
-43E6 003F
-43E6 0061
-43E6 0041
-43E6 0062
-43E7 0021
-43E7 003F
-43E7 0061
-43E7 0041
-43E7 0062
-43E8 0021
-43E8 003F
-43E8 0061
-43E8 0041
-43E8 0062
-43E9 0021
-43E9 003F
-43E9 0061
-43E9 0041
-43E9 0062
-43EA 0021
-43EA 003F
-43EA 0061
-43EA 0041
-43EA 0062
-43EB 0021
-43EB 003F
-43EB 0061
-43EB 0041
-43EB 0062
-43EC 0021
-43EC 003F
-43EC 0061
-43EC 0041
-43EC 0062
-43ED 0021
-43ED 003F
-43ED 0061
-43ED 0041
-43ED 0062
-43EE 0021
-43EE 003F
-43EE 0061
-43EE 0041
-43EE 0062
-43EF 0021
-43EF 003F
-43EF 0061
-43EF 0041
-43EF 0062
-43F0 0021
-43F0 003F
-43F0 0061
-43F0 0041
-43F0 0062
-43F1 0021
-43F1 003F
-43F1 0061
-43F1 0041
-43F1 0062
-43F2 0021
-43F2 003F
-43F2 0061
-43F2 0041
-43F2 0062
-43F3 0021
-43F3 003F
-43F3 0061
-43F3 0041
-43F3 0062
-43F4 0021
-43F4 003F
-43F4 0061
-43F4 0041
-43F4 0062
-43F5 0021
-43F5 003F
-43F5 0061
-43F5 0041
-43F5 0062
-43F6 0021
-43F6 003F
-43F6 0061
-43F6 0041
-43F6 0062
-43F7 0021
-43F7 003F
-43F7 0061
-43F7 0041
-43F7 0062
-43F8 0021
-43F8 003F
-43F8 0061
-43F8 0041
-43F8 0062
-43F9 0021
-43F9 003F
-43F9 0061
-43F9 0041
-43F9 0062
-43FA 0021
-43FA 003F
-43FA 0061
-43FA 0041
-43FA 0062
-43FB 0021
-43FB 003F
-43FB 0061
-43FB 0041
-43FB 0062
-43FC 0021
-43FC 003F
-43FC 0061
-43FC 0041
-43FC 0062
-43FD 0021
-43FD 003F
-43FD 0061
-43FD 0041
-43FD 0062
-43FE 0021
-43FE 003F
-43FE 0061
-43FE 0041
-43FE 0062
-43FF 0021
-43FF 003F
-43FF 0061
-43FF 0041
-43FF 0062
-4400 0021
-4400 003F
-4400 0061
-4400 0041
-4400 0062
-4401 0021
-4401 003F
-4401 0061
-4401 0041
-4401 0062
-4402 0021
-4402 003F
-4402 0061
-4402 0041
-4402 0062
-4403 0021
-4403 003F
-4403 0061
-4403 0041
-4403 0062
-4404 0021
-4404 003F
-4404 0061
-4404 0041
-4404 0062
-4405 0021
-4405 003F
-4405 0061
-4405 0041
-4405 0062
-4406 0021
-4406 003F
-4406 0061
-4406 0041
-4406 0062
-4407 0021
-4407 003F
-4407 0061
-4407 0041
-4407 0062
-4408 0021
-4408 003F
-4408 0061
-4408 0041
-4408 0062
-4409 0021
-4409 003F
-4409 0061
-4409 0041
-4409 0062
-440A 0021
-440A 003F
-440A 0061
-440A 0041
-440A 0062
-440B 0021
-2F984 0021
-440B 003F
-2F984 003F
-2F984 0334
-440B 0061
-2F984 0061
-440B 0041
-2F984 0041
-440B 0062
-2F984 0062
-440C 0021
-440C 003F
-440C 0061
-440C 0041
-440C 0062
-440D 0021
-440D 003F
-440D 0061
-440D 0041
-440D 0062
-440E 0021
-440E 003F
-440E 0061
-440E 0041
-440E 0062
-440F 0021
-440F 003F
-440F 0061
-440F 0041
-440F 0062
-4410 0021
-4410 003F
-4410 0061
-4410 0041
-4410 0062
-4411 0021
-4411 003F
-4411 0061
-4411 0041
-4411 0062
-4412 0021
-4412 003F
-4412 0061
-4412 0041
-4412 0062
-4413 0021
-4413 003F
-4413 0061
-4413 0041
-4413 0062
-4414 0021
-4414 003F
-4414 0061
-4414 0041
-4414 0062
-4415 0021
-4415 003F
-4415 0061
-4415 0041
-4415 0062
-4416 0021
-4416 003F
-4416 0061
-4416 0041
-4416 0062
-4417 0021
-4417 003F
-4417 0061
-4417 0041
-4417 0062
-4418 0021
-4418 003F
-4418 0061
-4418 0041
-4418 0062
-4419 0021
-4419 003F
-4419 0061
-4419 0041
-4419 0062
-441A 0021
-441A 003F
-441A 0061
-441A 0041
-441A 0062
-441B 0021
-441B 003F
-441B 0061
-441B 0041
-441B 0062
-441C 0021
-441C 003F
-441C 0061
-441C 0041
-441C 0062
-441D 0021
-441D 003F
-441D 0061
-441D 0041
-441D 0062
-441E 0021
-441E 003F
-441E 0061
-441E 0041
-441E 0062
-441F 0021
-441F 003F
-441F 0061
-441F 0041
-441F 0062
-4420 0021
-4420 003F
-4420 0061
-4420 0041
-4420 0062
-4421 0021
-4421 003F
-4421 0061
-4421 0041
-4421 0062
-4422 0021
-4422 003F
-4422 0061
-4422 0041
-4422 0062
-4423 0021
-4423 003F
-4423 0061
-4423 0041
-4423 0062
-4424 0021
-4424 003F
-4424 0061
-4424 0041
-4424 0062
-4425 0021
-4425 003F
-4425 0061
-4425 0041
-4425 0062
-4426 0021
-4426 003F
-4426 0061
-4426 0041
-4426 0062
-4427 0021
-4427 003F
-4427 0061
-4427 0041
-4427 0062
-4428 0021
-4428 003F
-4428 0061
-4428 0041
-4428 0062
-4429 0021
-4429 003F
-4429 0061
-4429 0041
-4429 0062
-442A 0021
-442A 003F
-442A 0061
-442A 0041
-442A 0062
-442B 0021
-442B 003F
-442B 0061
-442B 0041
-442B 0062
-442C 0021
-442C 003F
-442C 0061
-442C 0041
-442C 0062
-442D 0021
-442D 003F
-442D 0061
-442D 0041
-442D 0062
-442E 0021
-442E 003F
-442E 0061
-442E 0041
-442E 0062
-442F 0021
-442F 003F
-442F 0061
-442F 0041
-442F 0062
-4430 0021
-4430 003F
-4430 0061
-4430 0041
-4430 0062
-4431 0021
-4431 003F
-4431 0061
-4431 0041
-4431 0062
-4432 0021
-4432 003F
-4432 0061
-4432 0041
-4432 0062
-4433 0021
-4433 003F
-4433 0061
-4433 0041
-4433 0062
-4434 0021
-4434 003F
-4434 0061
-4434 0041
-4434 0062
-4435 0021
-4435 003F
-4435 0061
-4435 0041
-4435 0062
-4436 0021
-4436 003F
-4436 0061
-4436 0041
-4436 0062
-4437 0021
-4437 003F
-4437 0061
-4437 0041
-4437 0062
-4438 0021
-4438 003F
-4438 0061
-4438 0041
-4438 0062
-4439 0021
-4439 003F
-4439 0061
-4439 0041
-4439 0062
-443A 0021
-443A 003F
-443A 0061
-443A 0041
-443A 0062
-443B 0021
-443B 003F
-443B 0061
-443B 0041
-443B 0062
-443C 0021
-443C 003F
-443C 0061
-443C 0041
-443C 0062
-443D 0021
-443D 003F
-443D 0061
-443D 0041
-443D 0062
-443E 0021
-443E 003F
-443E 0061
-443E 0041
-443E 0062
-443F 0021
-443F 003F
-443F 0061
-443F 0041
-443F 0062
-4440 0021
-4440 003F
-4440 0061
-4440 0041
-4440 0062
-4441 0021
-4441 003F
-4441 0061
-4441 0041
-4441 0062
-4442 0021
-4442 003F
-4442 0061
-4442 0041
-4442 0062
-4443 0021
-4443 003F
-4443 0061
-4443 0041
-4443 0062
-4444 0021
-4444 003F
-4444 0061
-4444 0041
-4444 0062
-4445 0021
-4445 003F
-4445 0061
-4445 0041
-4445 0062
-4446 0021
-4446 003F
-4446 0061
-4446 0041
-4446 0062
-4447 0021
-4447 003F
-4447 0061
-4447 0041
-4447 0062
-4448 0021
-4448 003F
-4448 0061
-4448 0041
-4448 0062
-4449 0021
-4449 003F
-4449 0061
-4449 0041
-4449 0062
-444A 0021
-444A 003F
-444A 0061
-444A 0041
-444A 0062
-444B 0021
-444B 003F
-444B 0061
-444B 0041
-444B 0062
-444C 0021
-444C 003F
-444C 0061
-444C 0041
-444C 0062
-444D 0021
-444D 003F
-444D 0061
-444D 0041
-444D 0062
-444E 0021
-444E 003F
-444E 0061
-444E 0041
-444E 0062
-444F 0021
-444F 003F
-444F 0061
-444F 0041
-444F 0062
-4450 0021
-4450 003F
-4450 0061
-4450 0041
-4450 0062
-4451 0021
-4451 003F
-4451 0061
-4451 0041
-4451 0062
-4452 0021
-4452 003F
-4452 0061
-4452 0041
-4452 0062
-4453 0021
-4453 003F
-4453 0061
-4453 0041
-4453 0062
-4454 0021
-4454 003F
-4454 0061
-4454 0041
-4454 0062
-4455 0021
-4455 003F
-4455 0061
-4455 0041
-4455 0062
-4456 0021
-4456 003F
-4456 0061
-4456 0041
-4456 0062
-4457 0021
-4457 003F
-4457 0061
-4457 0041
-4457 0062
-4458 0021
-4458 003F
-4458 0061
-4458 0041
-4458 0062
-4459 0021
-4459 003F
-4459 0061
-4459 0041
-4459 0062
-445A 0021
-445A 003F
-445A 0061
-445A 0041
-445A 0062
-445B 0021
-445B 003F
-445B 0061
-445B 0041
-445B 0062
-445C 0021
-445C 003F
-445C 0061
-445C 0041
-445C 0062
-445D 0021
-445D 003F
-445D 0061
-445D 0041
-445D 0062
-445E 0021
-445E 003F
-445E 0061
-445E 0041
-445E 0062
-445F 0021
-445F 003F
-445F 0061
-445F 0041
-445F 0062
-4460 0021
-4460 003F
-4460 0061
-4460 0041
-4460 0062
-4461 0021
-4461 003F
-4461 0061
-4461 0041
-4461 0062
-4462 0021
-4462 003F
-4462 0061
-4462 0041
-4462 0062
-4463 0021
-4463 003F
-4463 0061
-4463 0041
-4463 0062
-4464 0021
-4464 003F
-4464 0061
-4464 0041
-4464 0062
-4465 0021
-4465 003F
-4465 0061
-4465 0041
-4465 0062
-4466 0021
-4466 003F
-4466 0061
-4466 0041
-4466 0062
-4467 0021
-4467 003F
-4467 0061
-4467 0041
-4467 0062
-4468 0021
-4468 003F
-4468 0061
-4468 0041
-4468 0062
-4469 0021
-4469 003F
-4469 0061
-4469 0041
-4469 0062
-446A 0021
-446A 003F
-446A 0061
-446A 0041
-446A 0062
-446B 0021
-2F98E 0021
-446B 003F
-2F98E 003F
-2F98E 0334
-446B 0061
-2F98E 0061
-446B 0041
-2F98E 0041
-446B 0062
-2F98E 0062
-446C 0021
-446C 003F
-446C 0061
-446C 0041
-446C 0062
-446D 0021
-446D 003F
-446D 0061
-446D 0041
-446D 0062
-446E 0021
-446E 003F
-446E 0061
-446E 0041
-446E 0062
-446F 0021
-446F 003F
-446F 0061
-446F 0041
-446F 0062
-4470 0021
-4470 003F
-4470 0061
-4470 0041
-4470 0062
-4471 0021
-4471 003F
-4471 0061
-4471 0041
-4471 0062
-4472 0021
-4472 003F
-4472 0061
-4472 0041
-4472 0062
-4473 0021
-4473 003F
-4473 0061
-4473 0041
-4473 0062
-4474 0021
-4474 003F
-4474 0061
-4474 0041
-4474 0062
-4475 0021
-4475 003F
-4475 0061
-4475 0041
-4475 0062
-4476 0021
-4476 003F
-4476 0061
-4476 0041
-4476 0062
-4477 0021
-4477 003F
-4477 0061
-4477 0041
-4477 0062
-4478 0021
-4478 003F
-4478 0061
-4478 0041
-4478 0062
-4479 0021
-4479 003F
-4479 0061
-4479 0041
-4479 0062
-447A 0021
-447A 003F
-447A 0061
-447A 0041
-447A 0062
-447B 0021
-447B 003F
-447B 0061
-447B 0041
-447B 0062
-447C 0021
-447C 003F
-447C 0061
-447C 0041
-447C 0062
-447D 0021
-447D 003F
-447D 0061
-447D 0041
-447D 0062
-447E 0021
-447E 003F
-447E 0061
-447E 0041
-447E 0062
-447F 0021
-447F 003F
-447F 0061
-447F 0041
-447F 0062
-4480 0021
-4480 003F
-4480 0061
-4480 0041
-4480 0062
-4481 0021
-4481 003F
-4481 0061
-4481 0041
-4481 0062
-4482 0021
-4482 003F
-4482 0061
-4482 0041
-4482 0062
-4483 0021
-4483 003F
-4483 0061
-4483 0041
-4483 0062
-4484 0021
-4484 003F
-4484 0061
-4484 0041
-4484 0062
-4485 0021
-4485 003F
-4485 0061
-4485 0041
-4485 0062
-4486 0021
-4486 003F
-4486 0061
-4486 0041
-4486 0062
-4487 0021
-4487 003F
-4487 0061
-4487 0041
-4487 0062
-4488 0021
-4488 003F
-4488 0061
-4488 0041
-4488 0062
-4489 0021
-4489 003F
-4489 0061
-4489 0041
-4489 0062
-448A 0021
-448A 003F
-448A 0061
-448A 0041
-448A 0062
-448B 0021
-448B 003F
-448B 0061
-448B 0041
-448B 0062
-448C 0021
-448C 003F
-448C 0061
-448C 0041
-448C 0062
-448D 0021
-448D 003F
-448D 0061
-448D 0041
-448D 0062
-448E 0021
-448E 003F
-448E 0061
-448E 0041
-448E 0062
-448F 0021
-448F 003F
-448F 0061
-448F 0041
-448F 0062
-4490 0021
-4490 003F
-4490 0061
-4490 0041
-4490 0062
-4491 0021
-4491 003F
-4491 0061
-4491 0041
-4491 0062
-4492 0021
-4492 003F
-4492 0061
-4492 0041
-4492 0062
-4493 0021
-4493 003F
-4493 0061
-4493 0041
-4493 0062
-4494 0021
-4494 003F
-4494 0061
-4494 0041
-4494 0062
-4495 0021
-4495 003F
-4495 0061
-4495 0041
-4495 0062
-4496 0021
-4496 003F
-4496 0061
-4496 0041
-4496 0062
-4497 0021
-4497 003F
-4497 0061
-4497 0041
-4497 0062
-4498 0021
-4498 003F
-4498 0061
-4498 0041
-4498 0062
-4499 0021
-4499 003F
-4499 0061
-4499 0041
-4499 0062
-449A 0021
-449A 003F
-449A 0061
-449A 0041
-449A 0062
-449B 0021
-449B 003F
-449B 0061
-449B 0041
-449B 0062
-449C 0021
-449C 003F
-449C 0061
-449C 0041
-449C 0062
-449D 0021
-449D 003F
-449D 0061
-449D 0041
-449D 0062
-449E 0021
-449E 003F
-449E 0061
-449E 0041
-449E 0062
-449F 0021
-449F 003F
-449F 0061
-449F 0041
-449F 0062
-44A0 0021
-44A0 003F
-44A0 0061
-44A0 0041
-44A0 0062
-44A1 0021
-44A1 003F
-44A1 0061
-44A1 0041
-44A1 0062
-44A2 0021
-44A2 003F
-44A2 0061
-44A2 0041
-44A2 0062
-44A3 0021
-44A3 003F
-44A3 0061
-44A3 0041
-44A3 0062
-44A4 0021
-44A4 003F
-44A4 0061
-44A4 0041
-44A4 0062
-44A5 0021
-44A5 003F
-44A5 0061
-44A5 0041
-44A5 0062
-44A6 0021
-44A6 003F
-44A6 0061
-44A6 0041
-44A6 0062
-44A7 0021
-44A7 003F
-44A7 0061
-44A7 0041
-44A7 0062
-44A8 0021
-44A8 003F
-44A8 0061
-44A8 0041
-44A8 0062
-44A9 0021
-44A9 003F
-44A9 0061
-44A9 0041
-44A9 0062
-44AA 0021
-44AA 003F
-44AA 0061
-44AA 0041
-44AA 0062
-44AB 0021
-44AB 003F
-44AB 0061
-44AB 0041
-44AB 0062
-44AC 0021
-44AC 003F
-44AC 0061
-44AC 0041
-44AC 0062
-44AD 0021
-44AD 003F
-44AD 0061
-44AD 0041
-44AD 0062
-44AE 0021
-44AE 003F
-44AE 0061
-44AE 0041
-44AE 0062
-44AF 0021
-44AF 003F
-44AF 0061
-44AF 0041
-44AF 0062
-44B0 0021
-44B0 003F
-44B0 0061
-44B0 0041
-44B0 0062
-44B1 0021
-44B1 003F
-44B1 0061
-44B1 0041
-44B1 0062
-44B2 0021
-44B2 003F
-44B2 0061
-44B2 0041
-44B2 0062
-44B3 0021
-44B3 003F
-44B3 0061
-44B3 0041
-44B3 0062
-44B4 0021
-44B4 003F
-44B4 0061
-44B4 0041
-44B4 0062
-44B5 0021
-44B5 003F
-44B5 0061
-44B5 0041
-44B5 0062
-44B6 0021
-44B6 003F
-44B6 0061
-44B6 0041
-44B6 0062
-44B7 0021
-44B7 003F
-44B7 0061
-44B7 0041
-44B7 0062
-44B8 0021
-44B8 003F
-44B8 0061
-44B8 0041
-44B8 0062
-44B9 0021
-44B9 003F
-44B9 0061
-44B9 0041
-44B9 0062
-44BA 0021
-44BA 003F
-44BA 0061
-44BA 0041
-44BA 0062
-44BB 0021
-44BB 003F
-44BB 0061
-44BB 0041
-44BB 0062
-44BC 0021
-44BC 003F
-44BC 0061
-44BC 0041
-44BC 0062
-44BD 0021
-44BD 003F
-44BD 0061
-44BD 0041
-44BD 0062
-44BE 0021
-44BE 003F
-44BE 0061
-44BE 0041
-44BE 0062
-44BF 0021
-44BF 003F
-44BF 0061
-44BF 0041
-44BF 0062
-44C0 0021
-44C0 003F
-44C0 0061
-44C0 0041
-44C0 0062
-44C1 0021
-44C1 003F
-44C1 0061
-44C1 0041
-44C1 0062
-44C2 0021
-44C2 003F
-44C2 0061
-44C2 0041
-44C2 0062
-44C3 0021
-44C3 003F
-44C3 0061
-44C3 0041
-44C3 0062
-44C4 0021
-44C4 003F
-44C4 0061
-44C4 0041
-44C4 0062
-44C5 0021
-44C5 003F
-44C5 0061
-44C5 0041
-44C5 0062
-44C6 0021
-44C6 003F
-44C6 0061
-44C6 0041
-44C6 0062
-44C7 0021
-44C7 003F
-44C7 0061
-44C7 0041
-44C7 0062
-44C8 0021
-44C8 003F
-44C8 0061
-44C8 0041
-44C8 0062
-44C9 0021
-44C9 003F
-44C9 0061
-44C9 0041
-44C9 0062
-44CA 0021
-44CA 003F
-44CA 0061
-44CA 0041
-44CA 0062
-44CB 0021
-44CB 003F
-44CB 0061
-44CB 0041
-44CB 0062
-44CC 0021
-44CC 003F
-44CC 0061
-44CC 0041
-44CC 0062
-44CD 0021
-44CD 003F
-44CD 0061
-44CD 0041
-44CD 0062
-44CE 0021
-44CE 003F
-44CE 0061
-44CE 0041
-44CE 0062
-44CF 0021
-44CF 003F
-44CF 0061
-44CF 0041
-44CF 0062
-44D0 0021
-44D0 003F
-44D0 0061
-44D0 0041
-44D0 0062
-44D1 0021
-44D1 003F
-44D1 0061
-44D1 0041
-44D1 0062
-44D2 0021
-44D2 003F
-44D2 0061
-44D2 0041
-44D2 0062
-44D3 0021
-44D3 003F
-44D3 0061
-44D3 0041
-44D3 0062
-44D4 0021
-44D4 003F
-44D4 0061
-44D4 0041
-44D4 0062
-44D5 0021
-44D5 003F
-44D5 0061
-44D5 0041
-44D5 0062
-44D6 0021
-44D6 003F
-44D6 0061
-44D6 0041
-44D6 0062
-44D7 0021
-44D7 003F
-44D7 0061
-44D7 0041
-44D7 0062
-44D8 0021
-44D8 003F
-44D8 0061
-44D8 0041
-44D8 0062
-44D9 0021
-44D9 003F
-44D9 0061
-44D9 0041
-44D9 0062
-44DA 0021
-44DA 003F
-44DA 0061
-44DA 0041
-44DA 0062
-44DB 0021
-44DB 003F
-44DB 0061
-44DB 0041
-44DB 0062
-44DC 0021
-44DC 003F
-44DC 0061
-44DC 0041
-44DC 0062
-44DD 0021
-44DD 003F
-44DD 0061
-44DD 0041
-44DD 0062
-44DE 0021
-44DE 003F
-44DE 0061
-44DE 0041
-44DE 0062
-44DF 0021
-44DF 003F
-44DF 0061
-44DF 0041
-44DF 0062
-44E0 0021
-44E0 003F
-44E0 0061
-44E0 0041
-44E0 0062
-44E1 0021
-44E1 003F
-44E1 0061
-44E1 0041
-44E1 0062
-44E2 0021
-44E2 003F
-44E2 0061
-44E2 0041
-44E2 0062
-44E3 0021
-44E3 003F
-44E3 0061
-44E3 0041
-44E3 0062
-44E4 0021
-44E4 003F
-44E4 0061
-44E4 0041
-44E4 0062
-44E5 0021
-44E5 003F
-44E5 0061
-44E5 0041
-44E5 0062
-44E6 0021
-44E6 003F
-44E6 0061
-44E6 0041
-44E6 0062
-44E7 0021
-44E7 003F
-44E7 0061
-44E7 0041
-44E7 0062
-44E8 0021
-44E8 003F
-44E8 0061
-44E8 0041
-44E8 0062
-44E9 0021
-44E9 003F
-44E9 0061
-44E9 0041
-44E9 0062
-44EA 0021
-44EA 003F
-44EA 0061
-44EA 0041
-44EA 0062
-44EB 0021
-44EB 003F
-44EB 0061
-44EB 0041
-44EB 0062
-44EC 0021
-44EC 003F
-44EC 0061
-44EC 0041
-44EC 0062
-44ED 0021
-44ED 003F
-44ED 0061
-44ED 0041
-44ED 0062
-44EE 0021
-44EE 003F
-44EE 0061
-44EE 0041
-44EE 0062
-44EF 0021
-44EF 003F
-44EF 0061
-44EF 0041
-44EF 0062
-44F0 0021
-44F0 003F
-44F0 0061
-44F0 0041
-44F0 0062
-44F1 0021
-44F1 003F
-44F1 0061
-44F1 0041
-44F1 0062
-44F2 0021
-44F2 003F
-44F2 0061
-44F2 0041
-44F2 0062
-44F3 0021
-44F3 003F
-44F3 0061
-44F3 0041
-44F3 0062
-44F4 0021
-44F4 003F
-44F4 0061
-44F4 0041
-44F4 0062
-44F5 0021
-44F5 003F
-44F5 0061
-44F5 0041
-44F5 0062
-44F6 0021
-44F6 003F
-44F6 0061
-44F6 0041
-44F6 0062
-44F7 0021
-44F7 003F
-44F7 0061
-44F7 0041
-44F7 0062
-44F8 0021
-44F8 003F
-44F8 0061
-44F8 0041
-44F8 0062
-44F9 0021
-44F9 003F
-44F9 0061
-44F9 0041
-44F9 0062
-44FA 0021
-44FA 003F
-44FA 0061
-44FA 0041
-44FA 0062
-44FB 0021
-44FB 003F
-44FB 0061
-44FB 0041
-44FB 0062
-44FC 0021
-44FC 003F
-44FC 0061
-44FC 0041
-44FC 0062
-44FD 0021
-44FD 003F
-44FD 0061
-44FD 0041
-44FD 0062
-44FE 0021
-44FE 003F
-44FE 0061
-44FE 0041
-44FE 0062
-44FF 0021
-44FF 003F
-44FF 0061
-44FF 0041
-44FF 0062
-4500 0021
-4500 003F
-4500 0061
-4500 0041
-4500 0062
-4501 0021
-4501 003F
-4501 0061
-4501 0041
-4501 0062
-4502 0021
-4502 003F
-4502 0061
-4502 0041
-4502 0062
-4503 0021
-4503 003F
-4503 0061
-4503 0041
-4503 0062
-4504 0021
-4504 003F
-4504 0061
-4504 0041
-4504 0062
-4505 0021
-4505 003F
-4505 0061
-4505 0041
-4505 0062
-4506 0021
-4506 003F
-4506 0061
-4506 0041
-4506 0062
-4507 0021
-4507 003F
-4507 0061
-4507 0041
-4507 0062
-4508 0021
-4508 003F
-4508 0061
-4508 0041
-4508 0062
-4509 0021
-4509 003F
-4509 0061
-4509 0041
-4509 0062
-450A 0021
-450A 003F
-450A 0061
-450A 0041
-450A 0062
-450B 0021
-450B 003F
-450B 0061
-450B 0041
-450B 0062
-450C 0021
-450C 003F
-450C 0061
-450C 0041
-450C 0062
-450D 0021
-450D 003F
-450D 0061
-450D 0041
-450D 0062
-450E 0021
-450E 003F
-450E 0061
-450E 0041
-450E 0062
-450F 0021
-450F 003F
-450F 0061
-450F 0041
-450F 0062
-4510 0021
-4510 003F
-4510 0061
-4510 0041
-4510 0062
-4511 0021
-4511 003F
-4511 0061
-4511 0041
-4511 0062
-4512 0021
-4512 003F
-4512 0061
-4512 0041
-4512 0062
-4513 0021
-4513 003F
-4513 0061
-4513 0041
-4513 0062
-4514 0021
-4514 003F
-4514 0061
-4514 0041
-4514 0062
-4515 0021
-4515 003F
-4515 0061
-4515 0041
-4515 0062
-4516 0021
-4516 003F
-4516 0061
-4516 0041
-4516 0062
-4517 0021
-4517 003F
-4517 0061
-4517 0041
-4517 0062
-4518 0021
-4518 003F
-4518 0061
-4518 0041
-4518 0062
-4519 0021
-4519 003F
-4519 0061
-4519 0041
-4519 0062
-451A 0021
-451A 003F
-451A 0061
-451A 0041
-451A 0062
-451B 0021
-451B 003F
-451B 0061
-451B 0041
-451B 0062
-451C 0021
-451C 003F
-451C 0061
-451C 0041
-451C 0062
-451D 0021
-451D 003F
-451D 0061
-451D 0041
-451D 0062
-451E 0021
-451E 003F
-451E 0061
-451E 0041
-451E 0062
-451F 0021
-451F 003F
-451F 0061
-451F 0041
-451F 0062
-4520 0021
-4520 003F
-4520 0061
-4520 0041
-4520 0062
-4521 0021
-4521 003F
-4521 0061
-4521 0041
-4521 0062
-4522 0021
-4522 003F
-4522 0061
-4522 0041
-4522 0062
-4523 0021
-4523 003F
-4523 0061
-4523 0041
-4523 0062
-4524 0021
-4524 003F
-4524 0061
-4524 0041
-4524 0062
-4525 0021
-4525 003F
-4525 0061
-4525 0041
-4525 0062
-4526 0021
-4526 003F
-4526 0061
-4526 0041
-4526 0062
-4527 0021
-4527 003F
-4527 0061
-4527 0041
-4527 0062
-4528 0021
-4528 003F
-4528 0061
-4528 0041
-4528 0062
-4529 0021
-4529 003F
-4529 0061
-4529 0041
-4529 0062
-452A 0021
-452A 003F
-452A 0061
-452A 0041
-452A 0062
-452B 0021
-2F9A7 0021
-452B 003F
-2F9A7 003F
-2F9A7 0334
-452B 0061
-2F9A7 0061
-452B 0041
-2F9A7 0041
-452B 0062
-2F9A7 0062
-452C 0021
-452C 003F
-452C 0061
-452C 0041
-452C 0062
-452D 0021
-452D 003F
-452D 0061
-452D 0041
-452D 0062
-452E 0021
-452E 003F
-452E 0061
-452E 0041
-452E 0062
-452F 0021
-452F 003F
-452F 0061
-452F 0041
-452F 0062
-4530 0021
-4530 003F
-4530 0061
-4530 0041
-4530 0062
-4531 0021
-4531 003F
-4531 0061
-4531 0041
-4531 0062
-4532 0021
-4532 003F
-4532 0061
-4532 0041
-4532 0062
-4533 0021
-4533 003F
-4533 0061
-4533 0041
-4533 0062
-4534 0021
-4534 003F
-4534 0061
-4534 0041
-4534 0062
-4535 0021
-4535 003F
-4535 0061
-4535 0041
-4535 0062
-4536 0021
-4536 003F
-4536 0061
-4536 0041
-4536 0062
-4537 0021
-4537 003F
-4537 0061
-4537 0041
-4537 0062
-4538 0021
-4538 003F
-4538 0061
-4538 0041
-4538 0062
-4539 0021
-4539 003F
-4539 0061
-4539 0041
-4539 0062
-453A 0021
-453A 003F
-453A 0061
-453A 0041
-453A 0062
-453B 0021
-453B 003F
-453B 0061
-453B 0041
-453B 0062
-453C 0021
-453C 003F
-453C 0061
-453C 0041
-453C 0062
-453D 0021
-453D 003F
-453D 0061
-453D 0041
-453D 0062
-453E 0021
-453E 003F
-453E 0061
-453E 0041
-453E 0062
-453F 0021
-453F 003F
-453F 0061
-453F 0041
-453F 0062
-4540 0021
-4540 003F
-4540 0061
-4540 0041
-4540 0062
-4541 0021
-4541 003F
-4541 0061
-4541 0041
-4541 0062
-4542 0021
-4542 003F
-4542 0061
-4542 0041
-4542 0062
-4543 0021
-4543 003F
-4543 0061
-4543 0041
-4543 0062
-4544 0021
-4544 003F
-4544 0061
-4544 0041
-4544 0062
-4545 0021
-4545 003F
-4545 0061
-4545 0041
-4545 0062
-4546 0021
-4546 003F
-4546 0061
-4546 0041
-4546 0062
-4547 0021
-4547 003F
-4547 0061
-4547 0041
-4547 0062
-4548 0021
-4548 003F
-4548 0061
-4548 0041
-4548 0062
-4549 0021
-4549 003F
-4549 0061
-4549 0041
-4549 0062
-454A 0021
-454A 003F
-454A 0061
-454A 0041
-454A 0062
-454B 0021
-454B 003F
-454B 0061
-454B 0041
-454B 0062
-454C 0021
-454C 003F
-454C 0061
-454C 0041
-454C 0062
-454D 0021
-454D 003F
-454D 0061
-454D 0041
-454D 0062
-454E 0021
-454E 003F
-454E 0061
-454E 0041
-454E 0062
-454F 0021
-454F 003F
-454F 0061
-454F 0041
-454F 0062
-4550 0021
-4550 003F
-4550 0061
-4550 0041
-4550 0062
-4551 0021
-4551 003F
-4551 0061
-4551 0041
-4551 0062
-4552 0021
-4552 003F
-4552 0061
-4552 0041
-4552 0062
-4553 0021
-4553 003F
-4553 0061
-4553 0041
-4553 0062
-4554 0021
-4554 003F
-4554 0061
-4554 0041
-4554 0062
-4555 0021
-4555 003F
-4555 0061
-4555 0041
-4555 0062
-4556 0021
-4556 003F
-4556 0061
-4556 0041
-4556 0062
-4557 0021
-4557 003F
-4557 0061
-4557 0041
-4557 0062
-4558 0021
-4558 003F
-4558 0061
-4558 0041
-4558 0062
-4559 0021
-4559 003F
-4559 0061
-4559 0041
-4559 0062
-455A 0021
-455A 003F
-455A 0061
-455A 0041
-455A 0062
-455B 0021
-455B 003F
-455B 0061
-455B 0041
-455B 0062
-455C 0021
-455C 003F
-455C 0061
-455C 0041
-455C 0062
-455D 0021
-2F9AE 0021
-455D 003F
-2F9AE 003F
-2F9AE 0334
-455D 0061
-2F9AE 0061
-455D 0041
-2F9AE 0041
-455D 0062
-2F9AE 0062
-455E 0021
-455E 003F
-455E 0061
-455E 0041
-455E 0062
-455F 0021
-455F 003F
-455F 0061
-455F 0041
-455F 0062
-4560 0021
-4560 003F
-4560 0061
-4560 0041
-4560 0062
-4561 0021
-2F9AF 0021
-4561 003F
-2F9AF 003F
-2F9AF 0334
-4561 0061
-2F9AF 0061
-4561 0041
-2F9AF 0041
-4561 0062
-2F9AF 0062
-4562 0021
-4562 003F
-4562 0061
-4562 0041
-4562 0062
-4563 0021
-4563 003F
-4563 0061
-4563 0041
-4563 0062
-4564 0021
-4564 003F
-4564 0061
-4564 0041
-4564 0062
-4565 0021
-4565 003F
-4565 0061
-4565 0041
-4565 0062
-4566 0021
-4566 003F
-4566 0061
-4566 0041
-4566 0062
-4567 0021
-4567 003F
-4567 0061
-4567 0041
-4567 0062
-4568 0021
-4568 003F
-4568 0061
-4568 0041
-4568 0062
-4569 0021
-4569 003F
-4569 0061
-4569 0041
-4569 0062
-456A 0021
-456A 003F
-456A 0061
-456A 0041
-456A 0062
-456B 0021
-2F9B2 0021
-456B 003F
-2F9B2 003F
-2F9B2 0334
-456B 0061
-2F9B2 0061
-456B 0041
-2F9B2 0041
-456B 0062
-2F9B2 0062
-456C 0021
-456C 003F
-456C 0061
-456C 0041
-456C 0062
-456D 0021
-456D 003F
-456D 0061
-456D 0041
-456D 0062
-456E 0021
-456E 003F
-456E 0061
-456E 0041
-456E 0062
-456F 0021
-456F 003F
-456F 0061
-456F 0041
-456F 0062
-4570 0021
-4570 003F
-4570 0061
-4570 0041
-4570 0062
-4571 0021
-4571 003F
-4571 0061
-4571 0041
-4571 0062
-4572 0021
-4572 003F
-4572 0061
-4572 0041
-4572 0062
-4573 0021
-4573 003F
-4573 0061
-4573 0041
-4573 0062
-4574 0021
-4574 003F
-4574 0061
-4574 0041
-4574 0062
-4575 0021
-4575 003F
-4575 0061
-4575 0041
-4575 0062
-4576 0021
-4576 003F
-4576 0061
-4576 0041
-4576 0062
-4577 0021
-4577 003F
-4577 0061
-4577 0041
-4577 0062
-4578 0021
-4578 003F
-4578 0061
-4578 0041
-4578 0062
-4579 0021
-4579 003F
-4579 0061
-4579 0041
-4579 0062
-457A 0021
-457A 003F
-457A 0061
-457A 0041
-457A 0062
-457B 0021
-457B 003F
-457B 0061
-457B 0041
-457B 0062
-457C 0021
-457C 003F
-457C 0061
-457C 0041
-457C 0062
-457D 0021
-457D 003F
-457D 0061
-457D 0041
-457D 0062
-457E 0021
-457E 003F
-457E 0061
-457E 0041
-457E 0062
-457F 0021
-457F 003F
-457F 0061
-457F 0041
-457F 0062
-4580 0021
-4580 003F
-4580 0061
-4580 0041
-4580 0062
-4581 0021
-4581 003F
-4581 0061
-4581 0041
-4581 0062
-4582 0021
-4582 003F
-4582 0061
-4582 0041
-4582 0062
-4583 0021
-4583 003F
-4583 0061
-4583 0041
-4583 0062
-4584 0021
-4584 003F
-4584 0061
-4584 0041
-4584 0062
-4585 0021
-4585 003F
-4585 0061
-4585 0041
-4585 0062
-4586 0021
-4586 003F
-4586 0061
-4586 0041
-4586 0062
-4587 0021
-4587 003F
-4587 0061
-4587 0041
-4587 0062
-4588 0021
-4588 003F
-4588 0061
-4588 0041
-4588 0062
-4589 0021
-4589 003F
-4589 0061
-4589 0041
-4589 0062
-458A 0021
-458A 003F
-458A 0061
-458A 0041
-458A 0062
-458B 0021
-458B 003F
-458B 0061
-458B 0041
-458B 0062
-458C 0021
-458C 003F
-458C 0061
-458C 0041
-458C 0062
-458D 0021
-458D 003F
-458D 0061
-458D 0041
-458D 0062
-458E 0021
-458E 003F
-458E 0061
-458E 0041
-458E 0062
-458F 0021
-458F 003F
-458F 0061
-458F 0041
-458F 0062
-4590 0021
-4590 003F
-4590 0061
-4590 0041
-4590 0062
-4591 0021
-4591 003F
-4591 0061
-4591 0041
-4591 0062
-4592 0021
-4592 003F
-4592 0061
-4592 0041
-4592 0062
-4593 0021
-4593 003F
-4593 0061
-4593 0041
-4593 0062
-4594 0021
-4594 003F
-4594 0061
-4594 0041
-4594 0062
-4595 0021
-4595 003F
-4595 0061
-4595 0041
-4595 0062
-4596 0021
-4596 003F
-4596 0061
-4596 0041
-4596 0062
-4597 0021
-4597 003F
-4597 0061
-4597 0041
-4597 0062
-4598 0021
-4598 003F
-4598 0061
-4598 0041
-4598 0062
-4599 0021
-4599 003F
-4599 0061
-4599 0041
-4599 0062
-459A 0021
-459A 003F
-459A 0061
-459A 0041
-459A 0062
-459B 0021
-459B 003F
-459B 0061
-459B 0041
-459B 0062
-459C 0021
-459C 003F
-459C 0061
-459C 0041
-459C 0062
-459D 0021
-459D 003F
-459D 0061
-459D 0041
-459D 0062
-459E 0021
-459E 003F
-459E 0061
-459E 0041
-459E 0062
-459F 0021
-459F 003F
-459F 0061
-459F 0041
-459F 0062
-45A0 0021
-45A0 003F
-45A0 0061
-45A0 0041
-45A0 0062
-45A1 0021
-45A1 003F
-45A1 0061
-45A1 0041
-45A1 0062
-45A2 0021
-45A2 003F
-45A2 0061
-45A2 0041
-45A2 0062
-45A3 0021
-45A3 003F
-45A3 0061
-45A3 0041
-45A3 0062
-45A4 0021
-45A4 003F
-45A4 0061
-45A4 0041
-45A4 0062
-45A5 0021
-45A5 003F
-45A5 0061
-45A5 0041
-45A5 0062
-45A6 0021
-45A6 003F
-45A6 0061
-45A6 0041
-45A6 0062
-45A7 0021
-45A7 003F
-45A7 0061
-45A7 0041
-45A7 0062
-45A8 0021
-45A8 003F
-45A8 0061
-45A8 0041
-45A8 0062
-45A9 0021
-45A9 003F
-45A9 0061
-45A9 0041
-45A9 0062
-45AA 0021
-45AA 003F
-45AA 0061
-45AA 0041
-45AA 0062
-45AB 0021
-45AB 003F
-45AB 0061
-45AB 0041
-45AB 0062
-45AC 0021
-45AC 003F
-45AC 0061
-45AC 0041
-45AC 0062
-45AD 0021
-45AD 003F
-45AD 0061
-45AD 0041
-45AD 0062
-45AE 0021
-45AE 003F
-45AE 0061
-45AE 0041
-45AE 0062
-45AF 0021
-45AF 003F
-45AF 0061
-45AF 0041
-45AF 0062
-45B0 0021
-45B0 003F
-45B0 0061
-45B0 0041
-45B0 0062
-45B1 0021
-45B1 003F
-45B1 0061
-45B1 0041
-45B1 0062
-45B2 0021
-45B2 003F
-45B2 0061
-45B2 0041
-45B2 0062
-45B3 0021
-45B3 003F
-45B3 0061
-45B3 0041
-45B3 0062
-45B4 0021
-45B4 003F
-45B4 0061
-45B4 0041
-45B4 0062
-45B5 0021
-45B5 003F
-45B5 0061
-45B5 0041
-45B5 0062
-45B6 0021
-45B6 003F
-45B6 0061
-45B6 0041
-45B6 0062
-45B7 0021
-45B7 003F
-45B7 0061
-45B7 0041
-45B7 0062
-45B8 0021
-45B8 003F
-45B8 0061
-45B8 0041
-45B8 0062
-45B9 0021
-45B9 003F
-45B9 0061
-45B9 0041
-45B9 0062
-45BA 0021
-45BA 003F
-45BA 0061
-45BA 0041
-45BA 0062
-45BB 0021
-45BB 003F
-45BB 0061
-45BB 0041
-45BB 0062
-45BC 0021
-45BC 003F
-45BC 0061
-45BC 0041
-45BC 0062
-45BD 0021
-45BD 003F
-45BD 0061
-45BD 0041
-45BD 0062
-45BE 0021
-45BE 003F
-45BE 0061
-45BE 0041
-45BE 0062
-45BF 0021
-45BF 003F
-45BF 0061
-45BF 0041
-45BF 0062
-45C0 0021
-45C0 003F
-45C0 0061
-45C0 0041
-45C0 0062
-45C1 0021
-45C1 003F
-45C1 0061
-45C1 0041
-45C1 0062
-45C2 0021
-45C2 003F
-45C2 0061
-45C2 0041
-45C2 0062
-45C3 0021
-45C3 003F
-45C3 0061
-45C3 0041
-45C3 0062
-45C4 0021
-45C4 003F
-45C4 0061
-45C4 0041
-45C4 0062
-45C5 0021
-45C5 003F
-45C5 0061
-45C5 0041
-45C5 0062
-45C6 0021
-45C6 003F
-45C6 0061
-45C6 0041
-45C6 0062
-45C7 0021
-45C7 003F
-45C7 0061
-45C7 0041
-45C7 0062
-45C8 0021
-45C8 003F
-45C8 0061
-45C8 0041
-45C8 0062
-45C9 0021
-45C9 003F
-45C9 0061
-45C9 0041
-45C9 0062
-45CA 0021
-45CA 003F
-45CA 0061
-45CA 0041
-45CA 0062
-45CB 0021
-45CB 003F
-45CB 0061
-45CB 0041
-45CB 0062
-45CC 0021
-45CC 003F
-45CC 0061
-45CC 0041
-45CC 0062
-45CD 0021
-45CD 003F
-45CD 0061
-45CD 0041
-45CD 0062
-45CE 0021
-45CE 003F
-45CE 0061
-45CE 0041
-45CE 0062
-45CF 0021
-45CF 003F
-45CF 0061
-45CF 0041
-45CF 0062
-45D0 0021
-45D0 003F
-45D0 0061
-45D0 0041
-45D0 0062
-45D1 0021
-45D1 003F
-45D1 0061
-45D1 0041
-45D1 0062
-45D2 0021
-45D2 003F
-45D2 0061
-45D2 0041
-45D2 0062
-45D3 0021
-45D3 003F
-45D3 0061
-45D3 0041
-45D3 0062
-45D4 0021
-45D4 003F
-45D4 0061
-45D4 0041
-45D4 0062
-45D5 0021
-45D5 003F
-45D5 0061
-45D5 0041
-45D5 0062
-45D6 0021
-45D6 003F
-45D6 0061
-45D6 0041
-45D6 0062
-45D7 0021
-2F9BF 0021
-45D7 003F
-2F9BF 003F
-2F9BF 0334
-45D7 0061
-2F9BF 0061
-45D7 0041
-2F9BF 0041
-45D7 0062
-2F9BF 0062
-45D8 0021
-45D8 003F
-45D8 0061
-45D8 0041
-45D8 0062
-45D9 0021
-45D9 003F
-45D9 0061
-45D9 0041
-45D9 0062
-45DA 0021
-45DA 003F
-45DA 0061
-45DA 0041
-45DA 0062
-45DB 0021
-45DB 003F
-45DB 0061
-45DB 0041
-45DB 0062
-45DC 0021
-45DC 003F
-45DC 0061
-45DC 0041
-45DC 0062
-45DD 0021
-45DD 003F
-45DD 0061
-45DD 0041
-45DD 0062
-45DE 0021
-45DE 003F
-45DE 0061
-45DE 0041
-45DE 0062
-45DF 0021
-45DF 003F
-45DF 0061
-45DF 0041
-45DF 0062
-45E0 0021
-45E0 003F
-45E0 0061
-45E0 0041
-45E0 0062
-45E1 0021
-45E1 003F
-45E1 0061
-45E1 0041
-45E1 0062
-45E2 0021
-45E2 003F
-45E2 0061
-45E2 0041
-45E2 0062
-45E3 0021
-45E3 003F
-45E3 0061
-45E3 0041
-45E3 0062
-45E4 0021
-45E4 003F
-45E4 0061
-45E4 0041
-45E4 0062
-45E5 0021
-45E5 003F
-45E5 0061
-45E5 0041
-45E5 0062
-45E6 0021
-45E6 003F
-45E6 0061
-45E6 0041
-45E6 0062
-45E7 0021
-45E7 003F
-45E7 0061
-45E7 0041
-45E7 0062
-45E8 0021
-45E8 003F
-45E8 0061
-45E8 0041
-45E8 0062
-45E9 0021
-45E9 003F
-45E9 0061
-45E9 0041
-45E9 0062
-45EA 0021
-45EA 003F
-45EA 0061
-45EA 0041
-45EA 0062
-45EB 0021
-45EB 003F
-45EB 0061
-45EB 0041
-45EB 0062
-45EC 0021
-45EC 003F
-45EC 0061
-45EC 0041
-45EC 0062
-45ED 0021
-45ED 003F
-45ED 0061
-45ED 0041
-45ED 0062
-45EE 0021
-45EE 003F
-45EE 0061
-45EE 0041
-45EE 0062
-45EF 0021
-45EF 003F
-45EF 0061
-45EF 0041
-45EF 0062
-45F0 0021
-45F0 003F
-45F0 0061
-45F0 0041
-45F0 0062
-45F1 0021
-45F1 003F
-45F1 0061
-45F1 0041
-45F1 0062
-45F2 0021
-45F2 003F
-45F2 0061
-45F2 0041
-45F2 0062
-45F3 0021
-45F3 003F
-45F3 0061
-45F3 0041
-45F3 0062
-45F4 0021
-45F4 003F
-45F4 0061
-45F4 0041
-45F4 0062
-45F5 0021
-45F5 003F
-45F5 0061
-45F5 0041
-45F5 0062
-45F6 0021
-45F6 003F
-45F6 0061
-45F6 0041
-45F6 0062
-45F7 0021
-45F7 003F
-45F7 0061
-45F7 0041
-45F7 0062
-45F8 0021
-45F8 003F
-45F8 0061
-45F8 0041
-45F8 0062
-45F9 0021
-2F9C2 0021
-45F9 003F
-2F9C2 003F
-2F9C2 0334
-45F9 0061
-2F9C2 0061
-45F9 0041
-2F9C2 0041
-45F9 0062
-2F9C2 0062
-45FA 0021
-45FA 003F
-45FA 0061
-45FA 0041
-45FA 0062
-45FB 0021
-45FB 003F
-45FB 0061
-45FB 0041
-45FB 0062
-45FC 0021
-45FC 003F
-45FC 0061
-45FC 0041
-45FC 0062
-45FD 0021
-45FD 003F
-45FD 0061
-45FD 0041
-45FD 0062
-45FE 0021
-45FE 003F
-45FE 0061
-45FE 0041
-45FE 0062
-45FF 0021
-45FF 003F
-45FF 0061
-45FF 0041
-45FF 0062
-4600 0021
-4600 003F
-4600 0061
-4600 0041
-4600 0062
-4601 0021
-4601 003F
-4601 0061
-4601 0041
-4601 0062
-4602 0021
-4602 003F
-4602 0061
-4602 0041
-4602 0062
-4603 0021
-4603 003F
-4603 0061
-4603 0041
-4603 0062
-4604 0021
-4604 003F
-4604 0061
-4604 0041
-4604 0062
-4605 0021
-4605 003F
-4605 0061
-4605 0041
-4605 0062
-4606 0021
-4606 003F
-4606 0061
-4606 0041
-4606 0062
-4607 0021
-4607 003F
-4607 0061
-4607 0041
-4607 0062
-4608 0021
-4608 003F
-4608 0061
-4608 0041
-4608 0062
-4609 0021
-4609 003F
-4609 0061
-4609 0041
-4609 0062
-460A 0021
-460A 003F
-460A 0061
-460A 0041
-460A 0062
-460B 0021
-460B 003F
-460B 0061
-460B 0041
-460B 0062
-460C 0021
-460C 003F
-460C 0061
-460C 0041
-460C 0062
-460D 0021
-460D 003F
-460D 0061
-460D 0041
-460D 0062
-460E 0021
-460E 003F
-460E 0061
-460E 0041
-460E 0062
-460F 0021
-460F 003F
-460F 0061
-460F 0041
-460F 0062
-4610 0021
-4610 003F
-4610 0061
-4610 0041
-4610 0062
-4611 0021
-4611 003F
-4611 0061
-4611 0041
-4611 0062
-4612 0021
-4612 003F
-4612 0061
-4612 0041
-4612 0062
-4613 0021
-4613 003F
-4613 0061
-4613 0041
-4613 0062
-4614 0021
-4614 003F
-4614 0061
-4614 0041
-4614 0062
-4615 0021
-4615 003F
-4615 0061
-4615 0041
-4615 0062
-4616 0021
-4616 003F
-4616 0061
-4616 0041
-4616 0062
-4617 0021
-4617 003F
-4617 0061
-4617 0041
-4617 0062
-4618 0021
-4618 003F
-4618 0061
-4618 0041
-4618 0062
-4619 0021
-4619 003F
-4619 0061
-4619 0041
-4619 0062
-461A 0021
-461A 003F
-461A 0061
-461A 0041
-461A 0062
-461B 0021
-461B 003F
-461B 0061
-461B 0041
-461B 0062
-461C 0021
-461C 003F
-461C 0061
-461C 0041
-461C 0062
-461D 0021
-461D 003F
-461D 0061
-461D 0041
-461D 0062
-461E 0021
-461E 003F
-461E 0061
-461E 0041
-461E 0062
-461F 0021
-461F 003F
-461F 0061
-461F 0041
-461F 0062
-4620 0021
-4620 003F
-4620 0061
-4620 0041
-4620 0062
-4621 0021
-4621 003F
-4621 0061
-4621 0041
-4621 0062
-4622 0021
-4622 003F
-4622 0061
-4622 0041
-4622 0062
-4623 0021
-4623 003F
-4623 0061
-4623 0041
-4623 0062
-4624 0021
-4624 003F
-4624 0061
-4624 0041
-4624 0062
-4625 0021
-4625 003F
-4625 0061
-4625 0041
-4625 0062
-4626 0021
-4626 003F
-4626 0061
-4626 0041
-4626 0062
-4627 0021
-4627 003F
-4627 0061
-4627 0041
-4627 0062
-4628 0021
-4628 003F
-4628 0061
-4628 0041
-4628 0062
-4629 0021
-4629 003F
-4629 0061
-4629 0041
-4629 0062
-462A 0021
-462A 003F
-462A 0061
-462A 0041
-462A 0062
-462B 0021
-462B 003F
-462B 0061
-462B 0041
-462B 0062
-462C 0021
-462C 003F
-462C 0061
-462C 0041
-462C 0062
-462D 0021
-462D 003F
-462D 0061
-462D 0041
-462D 0062
-462E 0021
-462E 003F
-462E 0061
-462E 0041
-462E 0062
-462F 0021
-462F 003F
-462F 0061
-462F 0041
-462F 0062
-4630 0021
-4630 003F
-4630 0061
-4630 0041
-4630 0062
-4631 0021
-4631 003F
-4631 0061
-4631 0041
-4631 0062
-4632 0021
-4632 003F
-4632 0061
-4632 0041
-4632 0062
-4633 0021
-4633 003F
-4633 0061
-4633 0041
-4633 0062
-4634 0021
-4634 003F
-4634 0061
-4634 0041
-4634 0062
-4635 0021
-2F9C8 0021
-4635 003F
-2F9C8 003F
-2F9C8 0334
-4635 0061
-2F9C8 0061
-4635 0041
-2F9C8 0041
-4635 0062
-2F9C8 0062
-4636 0021
-4636 003F
-4636 0061
-4636 0041
-4636 0062
-4637 0021
-4637 003F
-4637 0061
-4637 0041
-4637 0062
-4638 0021
-4638 003F
-4638 0061
-4638 0041
-4638 0062
-4639 0021
-4639 003F
-4639 0061
-4639 0041
-4639 0062
-463A 0021
-463A 003F
-463A 0061
-463A 0041
-463A 0062
-463B 0021
-463B 003F
-463B 0061
-463B 0041
-463B 0062
-463C 0021
-463C 003F
-463C 0061
-463C 0041
-463C 0062
-463D 0021
-463D 003F
-463D 0061
-463D 0041
-463D 0062
-463E 0021
-463E 003F
-463E 0061
-463E 0041
-463E 0062
-463F 0021
-463F 003F
-463F 0061
-463F 0041
-463F 0062
-4640 0021
-4640 003F
-4640 0061
-4640 0041
-4640 0062
-4641 0021
-4641 003F
-4641 0061
-4641 0041
-4641 0062
-4642 0021
-4642 003F
-4642 0061
-4642 0041
-4642 0062
-4643 0021
-4643 003F
-4643 0061
-4643 0041
-4643 0062
-4644 0021
-4644 003F
-4644 0061
-4644 0041
-4644 0062
-4645 0021
-4645 003F
-4645 0061
-4645 0041
-4645 0062
-4646 0021
-4646 003F
-4646 0061
-4646 0041
-4646 0062
-4647 0021
-4647 003F
-4647 0061
-4647 0041
-4647 0062
-4648 0021
-4648 003F
-4648 0061
-4648 0041
-4648 0062
-4649 0021
-4649 003F
-4649 0061
-4649 0041
-4649 0062
-464A 0021
-464A 003F
-464A 0061
-464A 0041
-464A 0062
-464B 0021
-464B 003F
-464B 0061
-464B 0041
-464B 0062
-464C 0021
-464C 003F
-464C 0061
-464C 0041
-464C 0062
-464D 0021
-464D 003F
-464D 0061
-464D 0041
-464D 0062
-464E 0021
-464E 003F
-464E 0061
-464E 0041
-464E 0062
-464F 0021
-464F 003F
-464F 0061
-464F 0041
-464F 0062
-4650 0021
-4650 003F
-4650 0061
-4650 0041
-4650 0062
-4651 0021
-4651 003F
-4651 0061
-4651 0041
-4651 0062
-4652 0021
-4652 003F
-4652 0061
-4652 0041
-4652 0062
-4653 0021
-4653 003F
-4653 0061
-4653 0041
-4653 0062
-4654 0021
-4654 003F
-4654 0061
-4654 0041
-4654 0062
-4655 0021
-4655 003F
-4655 0061
-4655 0041
-4655 0062
-4656 0021
-4656 003F
-4656 0061
-4656 0041
-4656 0062
-4657 0021
-4657 003F
-4657 0061
-4657 0041
-4657 0062
-4658 0021
-4658 003F
-4658 0061
-4658 0041
-4658 0062
-4659 0021
-4659 003F
-4659 0061
-4659 0041
-4659 0062
-465A 0021
-465A 003F
-465A 0061
-465A 0041
-465A 0062
-465B 0021
-465B 003F
-465B 0061
-465B 0041
-465B 0062
-465C 0021
-465C 003F
-465C 0061
-465C 0041
-465C 0062
-465D 0021
-465D 003F
-465D 0061
-465D 0041
-465D 0062
-465E 0021
-465E 003F
-465E 0061
-465E 0041
-465E 0062
-465F 0021
-465F 003F
-465F 0061
-465F 0041
-465F 0062
-4660 0021
-4660 003F
-4660 0061
-4660 0041
-4660 0062
-4661 0021
-4661 003F
-4661 0061
-4661 0041
-4661 0062
-4662 0021
-4662 003F
-4662 0061
-4662 0041
-4662 0062
-4663 0021
-4663 003F
-4663 0061
-4663 0041
-4663 0062
-4664 0021
-4664 003F
-4664 0061
-4664 0041
-4664 0062
-4665 0021
-4665 003F
-4665 0061
-4665 0041
-4665 0062
-4666 0021
-4666 003F
-4666 0061
-4666 0041
-4666 0062
-4667 0021
-4667 003F
-4667 0061
-4667 0041
-4667 0062
-4668 0021
-4668 003F
-4668 0061
-4668 0041
-4668 0062
-4669 0021
-4669 003F
-4669 0061
-4669 0041
-4669 0062
-466A 0021
-466A 003F
-466A 0061
-466A 0041
-466A 0062
-466B 0021
-466B 003F
-466B 0061
-466B 0041
-466B 0062
-466C 0021
-466C 003F
-466C 0061
-466C 0041
-466C 0062
-466D 0021
-466D 003F
-466D 0061
-466D 0041
-466D 0062
-466E 0021
-466E 003F
-466E 0061
-466E 0041
-466E 0062
-466F 0021
-466F 003F
-466F 0061
-466F 0041
-466F 0062
-4670 0021
-4670 003F
-4670 0061
-4670 0041
-4670 0062
-4671 0021
-4671 003F
-4671 0061
-4671 0041
-4671 0062
-4672 0021
-4672 003F
-4672 0061
-4672 0041
-4672 0062
-4673 0021
-4673 003F
-4673 0061
-4673 0041
-4673 0062
-4674 0021
-4674 003F
-4674 0061
-4674 0041
-4674 0062
-4675 0021
-4675 003F
-4675 0061
-4675 0041
-4675 0062
-4676 0021
-4676 003F
-4676 0061
-4676 0041
-4676 0062
-4677 0021
-4677 003F
-4677 0061
-4677 0041
-4677 0062
-4678 0021
-4678 003F
-4678 0061
-4678 0041
-4678 0062
-4679 0021
-4679 003F
-4679 0061
-4679 0041
-4679 0062
-467A 0021
-467A 003F
-467A 0061
-467A 0041
-467A 0062
-467B 0021
-467B 003F
-467B 0061
-467B 0041
-467B 0062
-467C 0021
-467C 003F
-467C 0061
-467C 0041
-467C 0062
-467D 0021
-467D 003F
-467D 0061
-467D 0041
-467D 0062
-467E 0021
-467E 003F
-467E 0061
-467E 0041
-467E 0062
-467F 0021
-467F 003F
-467F 0061
-467F 0041
-467F 0062
-4680 0021
-4680 003F
-4680 0061
-4680 0041
-4680 0062
-4681 0021
-4681 003F
-4681 0061
-4681 0041
-4681 0062
-4682 0021
-4682 003F
-4682 0061
-4682 0041
-4682 0062
-4683 0021
-4683 003F
-4683 0061
-4683 0041
-4683 0062
-4684 0021
-4684 003F
-4684 0061
-4684 0041
-4684 0062
-4685 0021
-4685 003F
-4685 0061
-4685 0041
-4685 0062
-4686 0021
-4686 003F
-4686 0061
-4686 0041
-4686 0062
-4687 0021
-4687 003F
-4687 0061
-4687 0041
-4687 0062
-4688 0021
-4688 003F
-4688 0061
-4688 0041
-4688 0062
-4689 0021
-4689 003F
-4689 0061
-4689 0041
-4689 0062
-468A 0021
-468A 003F
-468A 0061
-468A 0041
-468A 0062
-468B 0021
-468B 003F
-468B 0061
-468B 0041
-468B 0062
-468C 0021
-468C 003F
-468C 0061
-468C 0041
-468C 0062
-468D 0021
-468D 003F
-468D 0061
-468D 0041
-468D 0062
-468E 0021
-468E 003F
-468E 0061
-468E 0041
-468E 0062
-468F 0021
-468F 003F
-468F 0061
-468F 0041
-468F 0062
-4690 0021
-4690 003F
-4690 0061
-4690 0041
-4690 0062
-4691 0021
-4691 003F
-4691 0061
-4691 0041
-4691 0062
-4692 0021
-4692 003F
-4692 0061
-4692 0041
-4692 0062
-4693 0021
-4693 003F
-4693 0061
-4693 0041
-4693 0062
-4694 0021
-4694 003F
-4694 0061
-4694 0041
-4694 0062
-4695 0021
-4695 003F
-4695 0061
-4695 0041
-4695 0062
-4696 0021
-4696 003F
-4696 0061
-4696 0041
-4696 0062
-4697 0021
-4697 003F
-4697 0061
-4697 0041
-4697 0062
-4698 0021
-4698 003F
-4698 0061
-4698 0041
-4698 0062
-4699 0021
-4699 003F
-4699 0061
-4699 0041
-4699 0062
-469A 0021
-469A 003F
-469A 0061
-469A 0041
-469A 0062
-469B 0021
-469B 003F
-469B 0061
-469B 0041
-469B 0062
-469C 0021
-469C 003F
-469C 0061
-469C 0041
-469C 0062
-469D 0021
-469D 003F
-469D 0061
-469D 0041
-469D 0062
-469E 0021
-469E 003F
-469E 0061
-469E 0041
-469E 0062
-469F 0021
-469F 003F
-469F 0061
-469F 0041
-469F 0062
-46A0 0021
-46A0 003F
-46A0 0061
-46A0 0041
-46A0 0062
-46A1 0021
-46A1 003F
-46A1 0061
-46A1 0041
-46A1 0062
-46A2 0021
-46A2 003F
-46A2 0061
-46A2 0041
-46A2 0062
-46A3 0021
-46A3 003F
-46A3 0061
-46A3 0041
-46A3 0062
-46A4 0021
-46A4 003F
-46A4 0061
-46A4 0041
-46A4 0062
-46A5 0021
-46A5 003F
-46A5 0061
-46A5 0041
-46A5 0062
-46A6 0021
-46A6 003F
-46A6 0061
-46A6 0041
-46A6 0062
-46A7 0021
-46A7 003F
-46A7 0061
-46A7 0041
-46A7 0062
-46A8 0021
-46A8 003F
-46A8 0061
-46A8 0041
-46A8 0062
-46A9 0021
-46A9 003F
-46A9 0061
-46A9 0041
-46A9 0062
-46AA 0021
-46AA 003F
-46AA 0061
-46AA 0041
-46AA 0062
-46AB 0021
-46AB 003F
-46AB 0061
-46AB 0041
-46AB 0062
-46AC 0021
-46AC 003F
-46AC 0061
-46AC 0041
-46AC 0062
-46AD 0021
-46AD 003F
-46AD 0061
-46AD 0041
-46AD 0062
-46AE 0021
-46AE 003F
-46AE 0061
-46AE 0041
-46AE 0062
-46AF 0021
-46AF 003F
-46AF 0061
-46AF 0041
-46AF 0062
-46B0 0021
-46B0 003F
-46B0 0061
-46B0 0041
-46B0 0062
-46B1 0021
-46B1 003F
-46B1 0061
-46B1 0041
-46B1 0062
-46B2 0021
-46B2 003F
-46B2 0061
-46B2 0041
-46B2 0062
-46B3 0021
-46B3 003F
-46B3 0061
-46B3 0041
-46B3 0062
-46B4 0021
-46B4 003F
-46B4 0061
-46B4 0041
-46B4 0062
-46B5 0021
-46B5 003F
-46B5 0061
-46B5 0041
-46B5 0062
-46B6 0021
-46B6 003F
-46B6 0061
-46B6 0041
-46B6 0062
-46B7 0021
-46B7 003F
-46B7 0061
-46B7 0041
-46B7 0062
-46B8 0021
-46B8 003F
-46B8 0061
-46B8 0041
-46B8 0062
-46B9 0021
-46B9 003F
-46B9 0061
-46B9 0041
-46B9 0062
-46BA 0021
-46BA 003F
-46BA 0061
-46BA 0041
-46BA 0062
-46BB 0021
-46BB 003F
-46BB 0061
-46BB 0041
-46BB 0062
-46BC 0021
-46BC 003F
-46BC 0061
-46BC 0041
-46BC 0062
-46BD 0021
-46BD 003F
-46BD 0061
-46BD 0041
-46BD 0062
-46BE 0021
-2F9CD 0021
-46BE 003F
-2F9CD 003F
-2F9CD 0334
-46BE 0061
-2F9CD 0061
-46BE 0041
-2F9CD 0041
-46BE 0062
-2F9CD 0062
-46BF 0021
-46BF 003F
-46BF 0061
-46BF 0041
-46BF 0062
-46C0 0021
-46C0 003F
-46C0 0061
-46C0 0041
-46C0 0062
-46C1 0021
-46C1 003F
-46C1 0061
-46C1 0041
-46C1 0062
-46C2 0021
-46C2 003F
-46C2 0061
-46C2 0041
-46C2 0062
-46C3 0021
-46C3 003F
-46C3 0061
-46C3 0041
-46C3 0062
-46C4 0021
-46C4 003F
-46C4 0061
-46C4 0041
-46C4 0062
-46C5 0021
-46C5 003F
-46C5 0061
-46C5 0041
-46C5 0062
-46C6 0021
-46C6 003F
-46C6 0061
-46C6 0041
-46C6 0062
-46C7 0021
-2F9CE 0021
-46C7 003F
-2F9CE 003F
-2F9CE 0334
-46C7 0061
-2F9CE 0061
-46C7 0041
-2F9CE 0041
-46C7 0062
-2F9CE 0062
-46C8 0021
-46C8 003F
-46C8 0061
-46C8 0041
-46C8 0062
-46C9 0021
-46C9 003F
-46C9 0061
-46C9 0041
-46C9 0062
-46CA 0021
-46CA 003F
-46CA 0061
-46CA 0041
-46CA 0062
-46CB 0021
-46CB 003F
-46CB 0061
-46CB 0041
-46CB 0062
-46CC 0021
-46CC 003F
-46CC 0061
-46CC 0041
-46CC 0062
-46CD 0021
-46CD 003F
-46CD 0061
-46CD 0041
-46CD 0062
-46CE 0021
-46CE 003F
-46CE 0061
-46CE 0041
-46CE 0062
-46CF 0021
-46CF 003F
-46CF 0061
-46CF 0041
-46CF 0062
-46D0 0021
-46D0 003F
-46D0 0061
-46D0 0041
-46D0 0062
-46D1 0021
-46D1 003F
-46D1 0061
-46D1 0041
-46D1 0062
-46D2 0021
-46D2 003F
-46D2 0061
-46D2 0041
-46D2 0062
-46D3 0021
-46D3 003F
-46D3 0061
-46D3 0041
-46D3 0062
-46D4 0021
-46D4 003F
-46D4 0061
-46D4 0041
-46D4 0062
-46D5 0021
-46D5 003F
-46D5 0061
-46D5 0041
-46D5 0062
-46D6 0021
-46D6 003F
-46D6 0061
-46D6 0041
-46D6 0062
-46D7 0021
-46D7 003F
-46D7 0061
-46D7 0041
-46D7 0062
-46D8 0021
-46D8 003F
-46D8 0061
-46D8 0041
-46D8 0062
-46D9 0021
-46D9 003F
-46D9 0061
-46D9 0041
-46D9 0062
-46DA 0021
-46DA 003F
-46DA 0061
-46DA 0041
-46DA 0062
-46DB 0021
-46DB 003F
-46DB 0061
-46DB 0041
-46DB 0062
-46DC 0021
-46DC 003F
-46DC 0061
-46DC 0041
-46DC 0062
-46DD 0021
-46DD 003F
-46DD 0061
-46DD 0041
-46DD 0062
-46DE 0021
-46DE 003F
-46DE 0061
-46DE 0041
-46DE 0062
-46DF 0021
-46DF 003F
-46DF 0061
-46DF 0041
-46DF 0062
-46E0 0021
-46E0 003F
-46E0 0061
-46E0 0041
-46E0 0062
-46E1 0021
-46E1 003F
-46E1 0061
-46E1 0041
-46E1 0062
-46E2 0021
-46E2 003F
-46E2 0061
-46E2 0041
-46E2 0062
-46E3 0021
-46E3 003F
-46E3 0061
-46E3 0041
-46E3 0062
-46E4 0021
-46E4 003F
-46E4 0061
-46E4 0041
-46E4 0062
-46E5 0021
-46E5 003F
-46E5 0061
-46E5 0041
-46E5 0062
-46E6 0021
-46E6 003F
-46E6 0061
-46E6 0041
-46E6 0062
-46E7 0021
-46E7 003F
-46E7 0061
-46E7 0041
-46E7 0062
-46E8 0021
-46E8 003F
-46E8 0061
-46E8 0041
-46E8 0062
-46E9 0021
-46E9 003F
-46E9 0061
-46E9 0041
-46E9 0062
-46EA 0021
-46EA 003F
-46EA 0061
-46EA 0041
-46EA 0062
-46EB 0021
-46EB 003F
-46EB 0061
-46EB 0041
-46EB 0062
-46EC 0021
-46EC 003F
-46EC 0061
-46EC 0041
-46EC 0062
-46ED 0021
-46ED 003F
-46ED 0061
-46ED 0041
-46ED 0062
-46EE 0021
-46EE 003F
-46EE 0061
-46EE 0041
-46EE 0062
-46EF 0021
-46EF 003F
-46EF 0061
-46EF 0041
-46EF 0062
-46F0 0021
-46F0 003F
-46F0 0061
-46F0 0041
-46F0 0062
-46F1 0021
-46F1 003F
-46F1 0061
-46F1 0041
-46F1 0062
-46F2 0021
-46F2 003F
-46F2 0061
-46F2 0041
-46F2 0062
-46F3 0021
-46F3 003F
-46F3 0061
-46F3 0041
-46F3 0062
-46F4 0021
-46F4 003F
-46F4 0061
-46F4 0041
-46F4 0062
-46F5 0021
-46F5 003F
-46F5 0061
-46F5 0041
-46F5 0062
-46F6 0021
-46F6 003F
-46F6 0061
-46F6 0041
-46F6 0062
-46F7 0021
-46F7 003F
-46F7 0061
-46F7 0041
-46F7 0062
-46F8 0021
-46F8 003F
-46F8 0061
-46F8 0041
-46F8 0062
-46F9 0021
-46F9 003F
-46F9 0061
-46F9 0041
-46F9 0062
-46FA 0021
-46FA 003F
-46FA 0061
-46FA 0041
-46FA 0062
-46FB 0021
-46FB 003F
-46FB 0061
-46FB 0041
-46FB 0062
-46FC 0021
-46FC 003F
-46FC 0061
-46FC 0041
-46FC 0062
-46FD 0021
-46FD 003F
-46FD 0061
-46FD 0041
-46FD 0062
-46FE 0021
-46FE 003F
-46FE 0061
-46FE 0041
-46FE 0062
-46FF 0021
-46FF 003F
-46FF 0061
-46FF 0041
-46FF 0062
-4700 0021
-4700 003F
-4700 0061
-4700 0041
-4700 0062
-4701 0021
-4701 003F
-4701 0061
-4701 0041
-4701 0062
-4702 0021
-4702 003F
-4702 0061
-4702 0041
-4702 0062
-4703 0021
-4703 003F
-4703 0061
-4703 0041
-4703 0062
-4704 0021
-4704 003F
-4704 0061
-4704 0041
-4704 0062
-4705 0021
-4705 003F
-4705 0061
-4705 0041
-4705 0062
-4706 0021
-4706 003F
-4706 0061
-4706 0041
-4706 0062
-4707 0021
-4707 003F
-4707 0061
-4707 0041
-4707 0062
-4708 0021
-4708 003F
-4708 0061
-4708 0041
-4708 0062
-4709 0021
-4709 003F
-4709 0061
-4709 0041
-4709 0062
-470A 0021
-470A 003F
-470A 0061
-470A 0041
-470A 0062
-470B 0021
-470B 003F
-470B 0061
-470B 0041
-470B 0062
-470C 0021
-470C 003F
-470C 0061
-470C 0041
-470C 0062
-470D 0021
-470D 003F
-470D 0061
-470D 0041
-470D 0062
-470E 0021
-470E 003F
-470E 0061
-470E 0041
-470E 0062
-470F 0021
-470F 003F
-470F 0061
-470F 0041
-470F 0062
-4710 0021
-4710 003F
-4710 0061
-4710 0041
-4710 0062
-4711 0021
-4711 003F
-4711 0061
-4711 0041
-4711 0062
-4712 0021
-4712 003F
-4712 0061
-4712 0041
-4712 0062
-4713 0021
-4713 003F
-4713 0061
-4713 0041
-4713 0062
-4714 0021
-4714 003F
-4714 0061
-4714 0041
-4714 0062
-4715 0021
-4715 003F
-4715 0061
-4715 0041
-4715 0062
-4716 0021
-4716 003F
-4716 0061
-4716 0041
-4716 0062
-4717 0021
-4717 003F
-4717 0061
-4717 0041
-4717 0062
-4718 0021
-4718 003F
-4718 0061
-4718 0041
-4718 0062
-4719 0021
-4719 003F
-4719 0061
-4719 0041
-4719 0062
-471A 0021
-471A 003F
-471A 0061
-471A 0041
-471A 0062
-471B 0021
-471B 003F
-471B 0061
-471B 0041
-471B 0062
-471C 0021
-471C 003F
-471C 0061
-471C 0041
-471C 0062
-471D 0021
-471D 003F
-471D 0061
-471D 0041
-471D 0062
-471E 0021
-471E 003F
-471E 0061
-471E 0041
-471E 0062
-471F 0021
-471F 003F
-471F 0061
-471F 0041
-471F 0062
-4720 0021
-4720 003F
-4720 0061
-4720 0041
-4720 0062
-4721 0021
-4721 003F
-4721 0061
-4721 0041
-4721 0062
-4722 0021
-4722 003F
-4722 0061
-4722 0041
-4722 0062
-4723 0021
-4723 003F
-4723 0061
-4723 0041
-4723 0062
-4724 0021
-4724 003F
-4724 0061
-4724 0041
-4724 0062
-4725 0021
-4725 003F
-4725 0061
-4725 0041
-4725 0062
-4726 0021
-4726 003F
-4726 0061
-4726 0041
-4726 0062
-4727 0021
-4727 003F
-4727 0061
-4727 0041
-4727 0062
-4728 0021
-4728 003F
-4728 0061
-4728 0041
-4728 0062
-4729 0021
-4729 003F
-4729 0061
-4729 0041
-4729 0062
-472A 0021
-472A 003F
-472A 0061
-472A 0041
-472A 0062
-472B 0021
-472B 003F
-472B 0061
-472B 0041
-472B 0062
-472C 0021
-472C 003F
-472C 0061
-472C 0041
-472C 0062
-472D 0021
-472D 003F
-472D 0061
-472D 0041
-472D 0062
-472E 0021
-472E 003F
-472E 0061
-472E 0041
-472E 0062
-472F 0021
-472F 003F
-472F 0061
-472F 0041
-472F 0062
-4730 0021
-4730 003F
-4730 0061
-4730 0041
-4730 0062
-4731 0021
-4731 003F
-4731 0061
-4731 0041
-4731 0062
-4732 0021
-4732 003F
-4732 0061
-4732 0041
-4732 0062
-4733 0021
-4733 003F
-4733 0061
-4733 0041
-4733 0062
-4734 0021
-4734 003F
-4734 0061
-4734 0041
-4734 0062
-4735 0021
-4735 003F
-4735 0061
-4735 0041
-4735 0062
-4736 0021
-4736 003F
-4736 0061
-4736 0041
-4736 0062
-4737 0021
-4737 003F
-4737 0061
-4737 0041
-4737 0062
-4738 0021
-4738 003F
-4738 0061
-4738 0041
-4738 0062
-4739 0021
-4739 003F
-4739 0061
-4739 0041
-4739 0062
-473A 0021
-473A 003F
-473A 0061
-473A 0041
-473A 0062
-473B 0021
-473B 003F
-473B 0061
-473B 0041
-473B 0062
-473C 0021
-473C 003F
-473C 0061
-473C 0041
-473C 0062
-473D 0021
-473D 003F
-473D 0061
-473D 0041
-473D 0062
-473E 0021
-473E 003F
-473E 0061
-473E 0041
-473E 0062
-473F 0021
-473F 003F
-473F 0061
-473F 0041
-473F 0062
-4740 0021
-4740 003F
-4740 0061
-4740 0041
-4740 0062
-4741 0021
-4741 003F
-4741 0061
-4741 0041
-4741 0062
-4742 0021
-4742 003F
-4742 0061
-4742 0041
-4742 0062
-4743 0021
-4743 003F
-4743 0061
-4743 0041
-4743 0062
-4744 0021
-4744 003F
-4744 0061
-4744 0041
-4744 0062
-4745 0021
-4745 003F
-4745 0061
-4745 0041
-4745 0062
-4746 0021
-4746 003F
-4746 0061
-4746 0041
-4746 0062
-4747 0021
-4747 003F
-4747 0061
-4747 0041
-4747 0062
-4748 0021
-4748 003F
-4748 0061
-4748 0041
-4748 0062
-4749 0021
-4749 003F
-4749 0061
-4749 0041
-4749 0062
-474A 0021
-474A 003F
-474A 0061
-474A 0041
-474A 0062
-474B 0021
-474B 003F
-474B 0061
-474B 0041
-474B 0062
-474C 0021
-474C 003F
-474C 0061
-474C 0041
-474C 0062
-474D 0021
-474D 003F
-474D 0061
-474D 0041
-474D 0062
-474E 0021
-474E 003F
-474E 0061
-474E 0041
-474E 0062
-474F 0021
-474F 003F
-474F 0061
-474F 0041
-474F 0062
-4750 0021
-4750 003F
-4750 0061
-4750 0041
-4750 0062
-4751 0021
-4751 003F
-4751 0061
-4751 0041
-4751 0062
-4752 0021
-4752 003F
-4752 0061
-4752 0041
-4752 0062
-4753 0021
-4753 003F
-4753 0061
-4753 0041
-4753 0062
-4754 0021
-4754 003F
-4754 0061
-4754 0041
-4754 0062
-4755 0021
-4755 003F
-4755 0061
-4755 0041
-4755 0062
-4756 0021
-4756 003F
-4756 0061
-4756 0041
-4756 0062
-4757 0021
-4757 003F
-4757 0061
-4757 0041
-4757 0062
-4758 0021
-4758 003F
-4758 0061
-4758 0041
-4758 0062
-4759 0021
-4759 003F
-4759 0061
-4759 0041
-4759 0062
-475A 0021
-475A 003F
-475A 0061
-475A 0041
-475A 0062
-475B 0021
-475B 003F
-475B 0061
-475B 0041
-475B 0062
-475C 0021
-475C 003F
-475C 0061
-475C 0041
-475C 0062
-475D 0021
-475D 003F
-475D 0061
-475D 0041
-475D 0062
-475E 0021
-475E 003F
-475E 0061
-475E 0041
-475E 0062
-475F 0021
-475F 003F
-475F 0061
-475F 0041
-475F 0062
-4760 0021
-4760 003F
-4760 0061
-4760 0041
-4760 0062
-4761 0021
-4761 003F
-4761 0061
-4761 0041
-4761 0062
-4762 0021
-4762 003F
-4762 0061
-4762 0041
-4762 0062
-4763 0021
-4763 003F
-4763 0061
-4763 0041
-4763 0062
-4764 0021
-4764 003F
-4764 0061
-4764 0041
-4764 0062
-4765 0021
-4765 003F
-4765 0061
-4765 0041
-4765 0062
-4766 0021
-4766 003F
-4766 0061
-4766 0041
-4766 0062
-4767 0021
-4767 003F
-4767 0061
-4767 0041
-4767 0062
-4768 0021
-4768 003F
-4768 0061
-4768 0041
-4768 0062
-4769 0021
-4769 003F
-4769 0061
-4769 0041
-4769 0062
-476A 0021
-476A 003F
-476A 0061
-476A 0041
-476A 0062
-476B 0021
-476B 003F
-476B 0061
-476B 0041
-476B 0062
-476C 0021
-476C 003F
-476C 0061
-476C 0041
-476C 0062
-476D 0021
-476D 003F
-476D 0061
-476D 0041
-476D 0062
-476E 0021
-476E 003F
-476E 0061
-476E 0041
-476E 0062
-476F 0021
-476F 003F
-476F 0061
-476F 0041
-476F 0062
-4770 0021
-4770 003F
-4770 0061
-4770 0041
-4770 0062
-4771 0021
-4771 003F
-4771 0061
-4771 0041
-4771 0062
-4772 0021
-4772 003F
-4772 0061
-4772 0041
-4772 0062
-4773 0021
-4773 003F
-4773 0061
-4773 0041
-4773 0062
-4774 0021
-4774 003F
-4774 0061
-4774 0041
-4774 0062
-4775 0021
-4775 003F
-4775 0061
-4775 0041
-4775 0062
-4776 0021
-4776 003F
-4776 0061
-4776 0041
-4776 0062
-4777 0021
-4777 003F
-4777 0061
-4777 0041
-4777 0062
-4778 0021
-4778 003F
-4778 0061
-4778 0041
-4778 0062
-4779 0021
-4779 003F
-4779 0061
-4779 0041
-4779 0062
-477A 0021
-477A 003F
-477A 0061
-477A 0041
-477A 0062
-477B 0021
-477B 003F
-477B 0061
-477B 0041
-477B 0062
-477C 0021
-477C 003F
-477C 0061
-477C 0041
-477C 0062
-477D 0021
-477D 003F
-477D 0061
-477D 0041
-477D 0062
-477E 0021
-477E 003F
-477E 0061
-477E 0041
-477E 0062
-477F 0021
-477F 003F
-477F 0061
-477F 0041
-477F 0062
-4780 0021
-4780 003F
-4780 0061
-4780 0041
-4780 0062
-4781 0021
-4781 003F
-4781 0061
-4781 0041
-4781 0062
-4782 0021
-4782 003F
-4782 0061
-4782 0041
-4782 0062
-4783 0021
-4783 003F
-4783 0061
-4783 0041
-4783 0062
-4784 0021
-4784 003F
-4784 0061
-4784 0041
-4784 0062
-4785 0021
-4785 003F
-4785 0061
-4785 0041
-4785 0062
-4786 0021
-4786 003F
-4786 0061
-4786 0041
-4786 0062
-4787 0021
-4787 003F
-4787 0061
-4787 0041
-4787 0062
-4788 0021
-4788 003F
-4788 0061
-4788 0041
-4788 0062
-4789 0021
-4789 003F
-4789 0061
-4789 0041
-4789 0062
-478A 0021
-478A 003F
-478A 0061
-478A 0041
-478A 0062
-478B 0021
-478B 003F
-478B 0061
-478B 0041
-478B 0062
-478C 0021
-478C 003F
-478C 0061
-478C 0041
-478C 0062
-478D 0021
-478D 003F
-478D 0061
-478D 0041
-478D 0062
-478E 0021
-478E 003F
-478E 0061
-478E 0041
-478E 0062
-478F 0021
-478F 003F
-478F 0061
-478F 0041
-478F 0062
-4790 0021
-4790 003F
-4790 0061
-4790 0041
-4790 0062
-4791 0021
-4791 003F
-4791 0061
-4791 0041
-4791 0062
-4792 0021
-4792 003F
-4792 0061
-4792 0041
-4792 0062
-4793 0021
-4793 003F
-4793 0061
-4793 0041
-4793 0062
-4794 0021
-4794 003F
-4794 0061
-4794 0041
-4794 0062
-4795 0021
-4795 003F
-4795 0061
-4795 0041
-4795 0062
-4796 0021
-4796 003F
-4796 0061
-4796 0041
-4796 0062
-4797 0021
-4797 003F
-4797 0061
-4797 0041
-4797 0062
-4798 0021
-4798 003F
-4798 0061
-4798 0041
-4798 0062
-4799 0021
-4799 003F
-4799 0061
-4799 0041
-4799 0062
-479A 0021
-479A 003F
-479A 0061
-479A 0041
-479A 0062
-479B 0021
-479B 003F
-479B 0061
-479B 0041
-479B 0062
-479C 0021
-479C 003F
-479C 0061
-479C 0041
-479C 0062
-479D 0021
-479D 003F
-479D 0061
-479D 0041
-479D 0062
-479E 0021
-479E 003F
-479E 0061
-479E 0041
-479E 0062
-479F 0021
-479F 003F
-479F 0061
-479F 0041
-479F 0062
-47A0 0021
-47A0 003F
-47A0 0061
-47A0 0041
-47A0 0062
-47A1 0021
-47A1 003F
-47A1 0061
-47A1 0041
-47A1 0062
-47A2 0021
-47A2 003F
-47A2 0061
-47A2 0041
-47A2 0062
-47A3 0021
-47A3 003F
-47A3 0061
-47A3 0041
-47A3 0062
-47A4 0021
-47A4 003F
-47A4 0061
-47A4 0041
-47A4 0062
-47A5 0021
-47A5 003F
-47A5 0061
-47A5 0041
-47A5 0062
-47A6 0021
-47A6 003F
-47A6 0061
-47A6 0041
-47A6 0062
-47A7 0021
-47A7 003F
-47A7 0061
-47A7 0041
-47A7 0062
-47A8 0021
-47A8 003F
-47A8 0061
-47A8 0041
-47A8 0062
-47A9 0021
-47A9 003F
-47A9 0061
-47A9 0041
-47A9 0062
-47AA 0021
-47AA 003F
-47AA 0061
-47AA 0041
-47AA 0062
-47AB 0021
-47AB 003F
-47AB 0061
-47AB 0041
-47AB 0062
-47AC 0021
-47AC 003F
-47AC 0061
-47AC 0041
-47AC 0062
-47AD 0021
-47AD 003F
-47AD 0061
-47AD 0041
-47AD 0062
-47AE 0021
-47AE 003F
-47AE 0061
-47AE 0041
-47AE 0062
-47AF 0021
-47AF 003F
-47AF 0061
-47AF 0041
-47AF 0062
-47B0 0021
-47B0 003F
-47B0 0061
-47B0 0041
-47B0 0062
-47B1 0021
-47B1 003F
-47B1 0061
-47B1 0041
-47B1 0062
-47B2 0021
-47B2 003F
-47B2 0061
-47B2 0041
-47B2 0062
-47B3 0021
-47B3 003F
-47B3 0061
-47B3 0041
-47B3 0062
-47B4 0021
-47B4 003F
-47B4 0061
-47B4 0041
-47B4 0062
-47B5 0021
-47B5 003F
-47B5 0061
-47B5 0041
-47B5 0062
-47B6 0021
-47B6 003F
-47B6 0061
-47B6 0041
-47B6 0062
-47B7 0021
-47B7 003F
-47B7 0061
-47B7 0041
-47B7 0062
-47B8 0021
-47B8 003F
-47B8 0061
-47B8 0041
-47B8 0062
-47B9 0021
-47B9 003F
-47B9 0061
-47B9 0041
-47B9 0062
-47BA 0021
-47BA 003F
-47BA 0061
-47BA 0041
-47BA 0062
-47BB 0021
-47BB 003F
-47BB 0061
-47BB 0041
-47BB 0062
-47BC 0021
-47BC 003F
-47BC 0061
-47BC 0041
-47BC 0062
-47BD 0021
-47BD 003F
-47BD 0061
-47BD 0041
-47BD 0062
-47BE 0021
-47BE 003F
-47BE 0061
-47BE 0041
-47BE 0062
-47BF 0021
-47BF 003F
-47BF 0061
-47BF 0041
-47BF 0062
-47C0 0021
-47C0 003F
-47C0 0061
-47C0 0041
-47C0 0062
-47C1 0021
-47C1 003F
-47C1 0061
-47C1 0041
-47C1 0062
-47C2 0021
-47C2 003F
-47C2 0061
-47C2 0041
-47C2 0062
-47C3 0021
-47C3 003F
-47C3 0061
-47C3 0041
-47C3 0062
-47C4 0021
-47C4 003F
-47C4 0061
-47C4 0041
-47C4 0062
-47C5 0021
-47C5 003F
-47C5 0061
-47C5 0041
-47C5 0062
-47C6 0021
-47C6 003F
-47C6 0061
-47C6 0041
-47C6 0062
-47C7 0021
-47C7 003F
-47C7 0061
-47C7 0041
-47C7 0062
-47C8 0021
-47C8 003F
-47C8 0061
-47C8 0041
-47C8 0062
-47C9 0021
-47C9 003F
-47C9 0061
-47C9 0041
-47C9 0062
-47CA 0021
-47CA 003F
-47CA 0061
-47CA 0041
-47CA 0062
-47CB 0021
-47CB 003F
-47CB 0061
-47CB 0041
-47CB 0062
-47CC 0021
-47CC 003F
-47CC 0061
-47CC 0041
-47CC 0062
-47CD 0021
-47CD 003F
-47CD 0061
-47CD 0041
-47CD 0062
-47CE 0021
-47CE 003F
-47CE 0061
-47CE 0041
-47CE 0062
-47CF 0021
-47CF 003F
-47CF 0061
-47CF 0041
-47CF 0062
-47D0 0021
-47D0 003F
-47D0 0061
-47D0 0041
-47D0 0062
-47D1 0021
-47D1 003F
-47D1 0061
-47D1 0041
-47D1 0062
-47D2 0021
-47D2 003F
-47D2 0061
-47D2 0041
-47D2 0062
-47D3 0021
-47D3 003F
-47D3 0061
-47D3 0041
-47D3 0062
-47D4 0021
-47D4 003F
-47D4 0061
-47D4 0041
-47D4 0062
-47D5 0021
-47D5 003F
-47D5 0061
-47D5 0041
-47D5 0062
-47D6 0021
-47D6 003F
-47D6 0061
-47D6 0041
-47D6 0062
-47D7 0021
-47D7 003F
-47D7 0061
-47D7 0041
-47D7 0062
-47D8 0021
-47D8 003F
-47D8 0061
-47D8 0041
-47D8 0062
-47D9 0021
-47D9 003F
-47D9 0061
-47D9 0041
-47D9 0062
-47DA 0021
-47DA 003F
-47DA 0061
-47DA 0041
-47DA 0062
-47DB 0021
-47DB 003F
-47DB 0061
-47DB 0041
-47DB 0062
-47DC 0021
-47DC 003F
-47DC 0061
-47DC 0041
-47DC 0062
-47DD 0021
-47DD 003F
-47DD 0061
-47DD 0041
-47DD 0062
-47DE 0021
-47DE 003F
-47DE 0061
-47DE 0041
-47DE 0062
-47DF 0021
-47DF 003F
-47DF 0061
-47DF 0041
-47DF 0062
-47E0 0021
-47E0 003F
-47E0 0061
-47E0 0041
-47E0 0062
-47E1 0021
-47E1 003F
-47E1 0061
-47E1 0041
-47E1 0062
-47E2 0021
-47E2 003F
-47E2 0061
-47E2 0041
-47E2 0062
-47E3 0021
-47E3 003F
-47E3 0061
-47E3 0041
-47E3 0062
-47E4 0021
-47E4 003F
-47E4 0061
-47E4 0041
-47E4 0062
-47E5 0021
-47E5 003F
-47E5 0061
-47E5 0041
-47E5 0062
-47E6 0021
-47E6 003F
-47E6 0061
-47E6 0041
-47E6 0062
-47E7 0021
-47E7 003F
-47E7 0061
-47E7 0041
-47E7 0062
-47E8 0021
-47E8 003F
-47E8 0061
-47E8 0041
-47E8 0062
-47E9 0021
-47E9 003F
-47E9 0061
-47E9 0041
-47E9 0062
-47EA 0021
-47EA 003F
-47EA 0061
-47EA 0041
-47EA 0062
-47EB 0021
-47EB 003F
-47EB 0061
-47EB 0041
-47EB 0062
-47EC 0021
-47EC 003F
-47EC 0061
-47EC 0041
-47EC 0062
-47ED 0021
-47ED 003F
-47ED 0061
-47ED 0041
-47ED 0062
-47EE 0021
-47EE 003F
-47EE 0061
-47EE 0041
-47EE 0062
-47EF 0021
-47EF 003F
-47EF 0061
-47EF 0041
-47EF 0062
-47F0 0021
-47F0 003F
-47F0 0061
-47F0 0041
-47F0 0062
-47F1 0021
-47F1 003F
-47F1 0061
-47F1 0041
-47F1 0062
-47F2 0021
-47F2 003F
-47F2 0061
-47F2 0041
-47F2 0062
-47F3 0021
-47F3 003F
-47F3 0061
-47F3 0041
-47F3 0062
-47F4 0021
-47F4 003F
-47F4 0061
-47F4 0041
-47F4 0062
-47F5 0021
-47F5 003F
-47F5 0061
-47F5 0041
-47F5 0062
-47F6 0021
-47F6 003F
-47F6 0061
-47F6 0041
-47F6 0062
-47F7 0021
-47F7 003F
-47F7 0061
-47F7 0041
-47F7 0062
-47F8 0021
-47F8 003F
-47F8 0061
-47F8 0041
-47F8 0062
-47F9 0021
-47F9 003F
-47F9 0061
-47F9 0041
-47F9 0062
-47FA 0021
-47FA 003F
-47FA 0061
-47FA 0041
-47FA 0062
-47FB 0021
-47FB 003F
-47FB 0061
-47FB 0041
-47FB 0062
-47FC 0021
-47FC 003F
-47FC 0061
-47FC 0041
-47FC 0062
-47FD 0021
-47FD 003F
-47FD 0061
-47FD 0041
-47FD 0062
-47FE 0021
-47FE 003F
-47FE 0061
-47FE 0041
-47FE 0062
-47FF 0021
-47FF 003F
-47FF 0061
-47FF 0041
-47FF 0062
-4800 0021
-4800 003F
-4800 0061
-4800 0041
-4800 0062
-4801 0021
-4801 003F
-4801 0061
-4801 0041
-4801 0062
-4802 0021
-4802 003F
-4802 0061
-4802 0041
-4802 0062
-4803 0021
-4803 003F
-4803 0061
-4803 0041
-4803 0062
-4804 0021
-4804 003F
-4804 0061
-4804 0041
-4804 0062
-4805 0021
-4805 003F
-4805 0061
-4805 0041
-4805 0062
-4806 0021
-4806 003F
-4806 0061
-4806 0041
-4806 0062
-4807 0021
-4807 003F
-4807 0061
-4807 0041
-4807 0062
-4808 0021
-4808 003F
-4808 0061
-4808 0041
-4808 0062
-4809 0021
-4809 003F
-4809 0061
-4809 0041
-4809 0062
-480A 0021
-480A 003F
-480A 0061
-480A 0041
-480A 0062
-480B 0021
-480B 003F
-480B 0061
-480B 0041
-480B 0062
-480C 0021
-480C 003F
-480C 0061
-480C 0041
-480C 0062
-480D 0021
-480D 003F
-480D 0061
-480D 0041
-480D 0062
-480E 0021
-480E 003F
-480E 0061
-480E 0041
-480E 0062
-480F 0021
-480F 003F
-480F 0061
-480F 0041
-480F 0062
-4810 0021
-4810 003F
-4810 0061
-4810 0041
-4810 0062
-4811 0021
-4811 003F
-4811 0061
-4811 0041
-4811 0062
-4812 0021
-4812 003F
-4812 0061
-4812 0041
-4812 0062
-4813 0021
-4813 003F
-4813 0061
-4813 0041
-4813 0062
-4814 0021
-4814 003F
-4814 0061
-4814 0041
-4814 0062
-4815 0021
-4815 003F
-4815 0061
-4815 0041
-4815 0062
-4816 0021
-4816 003F
-4816 0061
-4816 0041
-4816 0062
-4817 0021
-4817 003F
-4817 0061
-4817 0041
-4817 0062
-4818 0021
-4818 003F
-4818 0061
-4818 0041
-4818 0062
-4819 0021
-4819 003F
-4819 0061
-4819 0041
-4819 0062
-481A 0021
-481A 003F
-481A 0061
-481A 0041
-481A 0062
-481B 0021
-481B 003F
-481B 0061
-481B 0041
-481B 0062
-481C 0021
-481C 003F
-481C 0061
-481C 0041
-481C 0062
-481D 0021
-481D 003F
-481D 0061
-481D 0041
-481D 0062
-481E 0021
-481E 003F
-481E 0061
-481E 0041
-481E 0062
-481F 0021
-481F 003F
-481F 0061
-481F 0041
-481F 0062
-4820 0021
-4820 003F
-4820 0061
-4820 0041
-4820 0062
-4821 0021
-4821 003F
-4821 0061
-4821 0041
-4821 0062
-4822 0021
-4822 003F
-4822 0061
-4822 0041
-4822 0062
-4823 0021
-4823 003F
-4823 0061
-4823 0041
-4823 0062
-4824 0021
-4824 003F
-4824 0061
-4824 0041
-4824 0062
-4825 0021
-4825 003F
-4825 0061
-4825 0041
-4825 0062
-4826 0021
-4826 003F
-4826 0061
-4826 0041
-4826 0062
-4827 0021
-4827 003F
-4827 0061
-4827 0041
-4827 0062
-4828 0021
-4828 003F
-4828 0061
-4828 0041
-4828 0062
-4829 0021
-4829 003F
-4829 0061
-4829 0041
-4829 0062
-482A 0021
-482A 003F
-482A 0061
-482A 0041
-482A 0062
-482B 0021
-482B 003F
-482B 0061
-482B 0041
-482B 0062
-482C 0021
-482C 003F
-482C 0061
-482C 0041
-482C 0062
-482D 0021
-482D 003F
-482D 0061
-482D 0041
-482D 0062
-482E 0021
-482E 003F
-482E 0061
-482E 0041
-482E 0062
-482F 0021
-482F 003F
-482F 0061
-482F 0041
-482F 0062
-4830 0021
-4830 003F
-4830 0061
-4830 0041
-4830 0062
-4831 0021
-4831 003F
-4831 0061
-4831 0041
-4831 0062
-4832 0021
-4832 003F
-4832 0061
-4832 0041
-4832 0062
-4833 0021
-4833 003F
-4833 0061
-4833 0041
-4833 0062
-4834 0021
-4834 003F
-4834 0061
-4834 0041
-4834 0062
-4835 0021
-4835 003F
-4835 0061
-4835 0041
-4835 0062
-4836 0021
-4836 003F
-4836 0061
-4836 0041
-4836 0062
-4837 0021
-4837 003F
-4837 0061
-4837 0041
-4837 0062
-4838 0021
-4838 003F
-4838 0061
-4838 0041
-4838 0062
-4839 0021
-4839 003F
-4839 0061
-4839 0041
-4839 0062
-483A 0021
-483A 003F
-483A 0061
-483A 0041
-483A 0062
-483B 0021
-483B 003F
-483B 0061
-483B 0041
-483B 0062
-483C 0021
-483C 003F
-483C 0061
-483C 0041
-483C 0062
-483D 0021
-483D 003F
-483D 0061
-483D 0041
-483D 0062
-483E 0021
-483E 003F
-483E 0061
-483E 0041
-483E 0062
-483F 0021
-483F 003F
-483F 0061
-483F 0041
-483F 0062
-4840 0021
-4840 003F
-4840 0061
-4840 0041
-4840 0062
-4841 0021
-4841 003F
-4841 0061
-4841 0041
-4841 0062
-4842 0021
-4842 003F
-4842 0061
-4842 0041
-4842 0062
-4843 0021
-4843 003F
-4843 0061
-4843 0041
-4843 0062
-4844 0021
-4844 003F
-4844 0061
-4844 0041
-4844 0062
-4845 0021
-4845 003F
-4845 0061
-4845 0041
-4845 0062
-4846 0021
-4846 003F
-4846 0061
-4846 0041
-4846 0062
-4847 0021
-4847 003F
-4847 0061
-4847 0041
-4847 0062
-4848 0021
-4848 003F
-4848 0061
-4848 0041
-4848 0062
-4849 0021
-4849 003F
-4849 0061
-4849 0041
-4849 0062
-484A 0021
-484A 003F
-484A 0061
-484A 0041
-484A 0062
-484B 0021
-484B 003F
-484B 0061
-484B 0041
-484B 0062
-484C 0021
-484C 003F
-484C 0061
-484C 0041
-484C 0062
-484D 0021
-484D 003F
-484D 0061
-484D 0041
-484D 0062
-484E 0021
-484E 003F
-484E 0061
-484E 0041
-484E 0062
-484F 0021
-484F 003F
-484F 0061
-484F 0041
-484F 0062
-4850 0021
-4850 003F
-4850 0061
-4850 0041
-4850 0062
-4851 0021
-4851 003F
-4851 0061
-4851 0041
-4851 0062
-4852 0021
-4852 003F
-4852 0061
-4852 0041
-4852 0062
-4853 0021
-4853 003F
-4853 0061
-4853 0041
-4853 0062
-4854 0021
-4854 003F
-4854 0061
-4854 0041
-4854 0062
-4855 0021
-4855 003F
-4855 0061
-4855 0041
-4855 0062
-4856 0021
-4856 003F
-4856 0061
-4856 0041
-4856 0062
-4857 0021
-4857 003F
-4857 0061
-4857 0041
-4857 0062
-4858 0021
-4858 003F
-4858 0061
-4858 0041
-4858 0062
-4859 0021
-4859 003F
-4859 0061
-4859 0041
-4859 0062
-485A 0021
-485A 003F
-485A 0061
-485A 0041
-485A 0062
-485B 0021
-485B 003F
-485B 0061
-485B 0041
-485B 0062
-485C 0021
-485C 003F
-485C 0061
-485C 0041
-485C 0062
-485D 0021
-485D 003F
-485D 0061
-485D 0041
-485D 0062
-485E 0021
-485E 003F
-485E 0061
-485E 0041
-485E 0062
-485F 0021
-485F 003F
-485F 0061
-485F 0041
-485F 0062
-4860 0021
-4860 003F
-4860 0061
-4860 0041
-4860 0062
-4861 0021
-4861 003F
-4861 0061
-4861 0041
-4861 0062
-4862 0021
-4862 003F
-4862 0061
-4862 0041
-4862 0062
-4863 0021
-4863 003F
-4863 0061
-4863 0041
-4863 0062
-4864 0021
-4864 003F
-4864 0061
-4864 0041
-4864 0062
-4865 0021
-4865 003F
-4865 0061
-4865 0041
-4865 0062
-4866 0021
-4866 003F
-4866 0061
-4866 0041
-4866 0062
-4867 0021
-4867 003F
-4867 0061
-4867 0041
-4867 0062
-4868 0021
-4868 003F
-4868 0061
-4868 0041
-4868 0062
-4869 0021
-4869 003F
-4869 0061
-4869 0041
-4869 0062
-486A 0021
-486A 003F
-486A 0061
-486A 0041
-486A 0062
-486B 0021
-486B 003F
-486B 0061
-486B 0041
-486B 0062
-486C 0021
-486C 003F
-486C 0061
-486C 0041
-486C 0062
-486D 0021
-486D 003F
-486D 0061
-486D 0041
-486D 0062
-486E 0021
-486E 003F
-486E 0061
-486E 0041
-486E 0062
-486F 0021
-486F 003F
-486F 0061
-486F 0041
-486F 0062
-4870 0021
-4870 003F
-4870 0061
-4870 0041
-4870 0062
-4871 0021
-4871 003F
-4871 0061
-4871 0041
-4871 0062
-4872 0021
-4872 003F
-4872 0061
-4872 0041
-4872 0062
-4873 0021
-4873 003F
-4873 0061
-4873 0041
-4873 0062
-4874 0021
-4874 003F
-4874 0061
-4874 0041
-4874 0062
-4875 0021
-4875 003F
-4875 0061
-4875 0041
-4875 0062
-4876 0021
-4876 003F
-4876 0061
-4876 0041
-4876 0062
-4877 0021
-4877 003F
-4877 0061
-4877 0041
-4877 0062
-4878 0021
-4878 003F
-4878 0061
-4878 0041
-4878 0062
-4879 0021
-4879 003F
-4879 0061
-4879 0041
-4879 0062
-487A 0021
-487A 003F
-487A 0061
-487A 0041
-487A 0062
-487B 0021
-487B 003F
-487B 0061
-487B 0041
-487B 0062
-487C 0021
-487C 003F
-487C 0061
-487C 0041
-487C 0062
-487D 0021
-487D 003F
-487D 0061
-487D 0041
-487D 0062
-487E 0021
-487E 003F
-487E 0061
-487E 0041
-487E 0062
-487F 0021
-487F 003F
-487F 0061
-487F 0041
-487F 0062
-4880 0021
-4880 003F
-4880 0061
-4880 0041
-4880 0062
-4881 0021
-4881 003F
-4881 0061
-4881 0041
-4881 0062
-4882 0021
-4882 003F
-4882 0061
-4882 0041
-4882 0062
-4883 0021
-4883 003F
-4883 0061
-4883 0041
-4883 0062
-4884 0021
-4884 003F
-4884 0061
-4884 0041
-4884 0062
-4885 0021
-4885 003F
-4885 0061
-4885 0041
-4885 0062
-4886 0021
-4886 003F
-4886 0061
-4886 0041
-4886 0062
-4887 0021
-4887 003F
-4887 0061
-4887 0041
-4887 0062
-4888 0021
-4888 003F
-4888 0061
-4888 0041
-4888 0062
-4889 0021
-4889 003F
-4889 0061
-4889 0041
-4889 0062
-488A 0021
-488A 003F
-488A 0061
-488A 0041
-488A 0062
-488B 0021
-488B 003F
-488B 0061
-488B 0041
-488B 0062
-488C 0021
-488C 003F
-488C 0061
-488C 0041
-488C 0062
-488D 0021
-488D 003F
-488D 0061
-488D 0041
-488D 0062
-488E 0021
-488E 003F
-488E 0061
-488E 0041
-488E 0062
-488F 0021
-488F 003F
-488F 0061
-488F 0041
-488F 0062
-4890 0021
-4890 003F
-4890 0061
-4890 0041
-4890 0062
-4891 0021
-4891 003F
-4891 0061
-4891 0041
-4891 0062
-4892 0021
-4892 003F
-4892 0061
-4892 0041
-4892 0062
-4893 0021
-4893 003F
-4893 0061
-4893 0041
-4893 0062
-4894 0021
-4894 003F
-4894 0061
-4894 0041
-4894 0062
-4895 0021
-4895 003F
-4895 0061
-4895 0041
-4895 0062
-4896 0021
-4896 003F
-4896 0061
-4896 0041
-4896 0062
-4897 0021
-4897 003F
-4897 0061
-4897 0041
-4897 0062
-4898 0021
-4898 003F
-4898 0061
-4898 0041
-4898 0062
-4899 0021
-4899 003F
-4899 0061
-4899 0041
-4899 0062
-489A 0021
-489A 003F
-489A 0061
-489A 0041
-489A 0062
-489B 0021
-489B 003F
-489B 0061
-489B 0041
-489B 0062
-489C 0021
-489C 003F
-489C 0061
-489C 0041
-489C 0062
-489D 0021
-489D 003F
-489D 0061
-489D 0041
-489D 0062
-489E 0021
-489E 003F
-489E 0061
-489E 0041
-489E 0062
-489F 0021
-489F 003F
-489F 0061
-489F 0041
-489F 0062
-48A0 0021
-48A0 003F
-48A0 0061
-48A0 0041
-48A0 0062
-48A1 0021
-48A1 003F
-48A1 0061
-48A1 0041
-48A1 0062
-48A2 0021
-48A2 003F
-48A2 0061
-48A2 0041
-48A2 0062
-48A3 0021
-48A3 003F
-48A3 0061
-48A3 0041
-48A3 0062
-48A4 0021
-48A4 003F
-48A4 0061
-48A4 0041
-48A4 0062
-48A5 0021
-48A5 003F
-48A5 0061
-48A5 0041
-48A5 0062
-48A6 0021
-48A6 003F
-48A6 0061
-48A6 0041
-48A6 0062
-48A7 0021
-48A7 003F
-48A7 0061
-48A7 0041
-48A7 0062
-48A8 0021
-48A8 003F
-48A8 0061
-48A8 0041
-48A8 0062
-48A9 0021
-48A9 003F
-48A9 0061
-48A9 0041
-48A9 0062
-48AA 0021
-48AA 003F
-48AA 0061
-48AA 0041
-48AA 0062
-48AB 0021
-48AB 003F
-48AB 0061
-48AB 0041
-48AB 0062
-48AC 0021
-48AC 003F
-48AC 0061
-48AC 0041
-48AC 0062
-48AD 0021
-48AD 003F
-48AD 0061
-48AD 0041
-48AD 0062
-48AE 0021
-48AE 003F
-48AE 0061
-48AE 0041
-48AE 0062
-48AF 0021
-48AF 003F
-48AF 0061
-48AF 0041
-48AF 0062
-48B0 0021
-48B0 003F
-48B0 0061
-48B0 0041
-48B0 0062
-48B1 0021
-48B1 003F
-48B1 0061
-48B1 0041
-48B1 0062
-48B2 0021
-48B2 003F
-48B2 0061
-48B2 0041
-48B2 0062
-48B3 0021
-48B3 003F
-48B3 0061
-48B3 0041
-48B3 0062
-48B4 0021
-48B4 003F
-48B4 0061
-48B4 0041
-48B4 0062
-48B5 0021
-48B5 003F
-48B5 0061
-48B5 0041
-48B5 0062
-48B6 0021
-48B6 003F
-48B6 0061
-48B6 0041
-48B6 0062
-48B7 0021
-48B7 003F
-48B7 0061
-48B7 0041
-48B7 0062
-48B8 0021
-48B8 003F
-48B8 0061
-48B8 0041
-48B8 0062
-48B9 0021
-48B9 003F
-48B9 0061
-48B9 0041
-48B9 0062
-48BA 0021
-48BA 003F
-48BA 0061
-48BA 0041
-48BA 0062
-48BB 0021
-48BB 003F
-48BB 0061
-48BB 0041
-48BB 0062
-48BC 0021
-48BC 003F
-48BC 0061
-48BC 0041
-48BC 0062
-48BD 0021
-48BD 003F
-48BD 0061
-48BD 0041
-48BD 0062
-48BE 0021
-48BE 003F
-48BE 0061
-48BE 0041
-48BE 0062
-48BF 0021
-48BF 003F
-48BF 0061
-48BF 0041
-48BF 0062
-48C0 0021
-48C0 003F
-48C0 0061
-48C0 0041
-48C0 0062
-48C1 0021
-48C1 003F
-48C1 0061
-48C1 0041
-48C1 0062
-48C2 0021
-48C2 003F
-48C2 0061
-48C2 0041
-48C2 0062
-48C3 0021
-48C3 003F
-48C3 0061
-48C3 0041
-48C3 0062
-48C4 0021
-48C4 003F
-48C4 0061
-48C4 0041
-48C4 0062
-48C5 0021
-48C5 003F
-48C5 0061
-48C5 0041
-48C5 0062
-48C6 0021
-48C6 003F
-48C6 0061
-48C6 0041
-48C6 0062
-48C7 0021
-48C7 003F
-48C7 0061
-48C7 0041
-48C7 0062
-48C8 0021
-48C8 003F
-48C8 0061
-48C8 0041
-48C8 0062
-48C9 0021
-48C9 003F
-48C9 0061
-48C9 0041
-48C9 0062
-48CA 0021
-48CA 003F
-48CA 0061
-48CA 0041
-48CA 0062
-48CB 0021
-48CB 003F
-48CB 0061
-48CB 0041
-48CB 0062
-48CC 0021
-48CC 003F
-48CC 0061
-48CC 0041
-48CC 0062
-48CD 0021
-48CD 003F
-48CD 0061
-48CD 0041
-48CD 0062
-48CE 0021
-48CE 003F
-48CE 0061
-48CE 0041
-48CE 0062
-48CF 0021
-48CF 003F
-48CF 0061
-48CF 0041
-48CF 0062
-48D0 0021
-48D0 003F
-48D0 0061
-48D0 0041
-48D0 0062
-48D1 0021
-48D1 003F
-48D1 0061
-48D1 0041
-48D1 0062
-48D2 0021
-48D2 003F
-48D2 0061
-48D2 0041
-48D2 0062
-48D3 0021
-48D3 003F
-48D3 0061
-48D3 0041
-48D3 0062
-48D4 0021
-48D4 003F
-48D4 0061
-48D4 0041
-48D4 0062
-48D5 0021
-48D5 003F
-48D5 0061
-48D5 0041
-48D5 0062
-48D6 0021
-48D6 003F
-48D6 0061
-48D6 0041
-48D6 0062
-48D7 0021
-48D7 003F
-48D7 0061
-48D7 0041
-48D7 0062
-48D8 0021
-48D8 003F
-48D8 0061
-48D8 0041
-48D8 0062
-48D9 0021
-48D9 003F
-48D9 0061
-48D9 0041
-48D9 0062
-48DA 0021
-48DA 003F
-48DA 0061
-48DA 0041
-48DA 0062
-48DB 0021
-48DB 003F
-48DB 0061
-48DB 0041
-48DB 0062
-48DC 0021
-48DC 003F
-48DC 0061
-48DC 0041
-48DC 0062
-48DD 0021
-48DD 003F
-48DD 0061
-48DD 0041
-48DD 0062
-48DE 0021
-48DE 003F
-48DE 0061
-48DE 0041
-48DE 0062
-48DF 0021
-48DF 003F
-48DF 0061
-48DF 0041
-48DF 0062
-48E0 0021
-48E0 003F
-48E0 0061
-48E0 0041
-48E0 0062
-48E1 0021
-48E1 003F
-48E1 0061
-48E1 0041
-48E1 0062
-48E2 0021
-48E2 003F
-48E2 0061
-48E2 0041
-48E2 0062
-48E3 0021
-48E3 003F
-48E3 0061
-48E3 0041
-48E3 0062
-48E4 0021
-48E4 003F
-48E4 0061
-48E4 0041
-48E4 0062
-48E5 0021
-48E5 003F
-48E5 0061
-48E5 0041
-48E5 0062
-48E6 0021
-48E6 003F
-48E6 0061
-48E6 0041
-48E6 0062
-48E7 0021
-48E7 003F
-48E7 0061
-48E7 0041
-48E7 0062
-48E8 0021
-48E8 003F
-48E8 0061
-48E8 0041
-48E8 0062
-48E9 0021
-48E9 003F
-48E9 0061
-48E9 0041
-48E9 0062
-48EA 0021
-48EA 003F
-48EA 0061
-48EA 0041
-48EA 0062
-48EB 0021
-48EB 003F
-48EB 0061
-48EB 0041
-48EB 0062
-48EC 0021
-48EC 003F
-48EC 0061
-48EC 0041
-48EC 0062
-48ED 0021
-48ED 003F
-48ED 0061
-48ED 0041
-48ED 0062
-48EE 0021
-48EE 003F
-48EE 0061
-48EE 0041
-48EE 0062
-48EF 0021
-48EF 003F
-48EF 0061
-48EF 0041
-48EF 0062
-48F0 0021
-48F0 003F
-48F0 0061
-48F0 0041
-48F0 0062
-48F1 0021
-48F1 003F
-48F1 0061
-48F1 0041
-48F1 0062
-48F2 0021
-48F2 003F
-48F2 0061
-48F2 0041
-48F2 0062
-48F3 0021
-48F3 003F
-48F3 0061
-48F3 0041
-48F3 0062
-48F4 0021
-48F4 003F
-48F4 0061
-48F4 0041
-48F4 0062
-48F5 0021
-48F5 003F
-48F5 0061
-48F5 0041
-48F5 0062
-48F6 0021
-48F6 003F
-48F6 0061
-48F6 0041
-48F6 0062
-48F7 0021
-48F7 003F
-48F7 0061
-48F7 0041
-48F7 0062
-48F8 0021
-48F8 003F
-48F8 0061
-48F8 0041
-48F8 0062
-48F9 0021
-48F9 003F
-48F9 0061
-48F9 0041
-48F9 0062
-48FA 0021
-48FA 003F
-48FA 0061
-48FA 0041
-48FA 0062
-48FB 0021
-48FB 003F
-48FB 0061
-48FB 0041
-48FB 0062
-48FC 0021
-48FC 003F
-48FC 0061
-48FC 0041
-48FC 0062
-48FD 0021
-48FD 003F
-48FD 0061
-48FD 0041
-48FD 0062
-48FE 0021
-48FE 003F
-48FE 0061
-48FE 0041
-48FE 0062
-48FF 0021
-48FF 003F
-48FF 0061
-48FF 0041
-48FF 0062
-4900 0021
-4900 003F
-4900 0061
-4900 0041
-4900 0062
-4901 0021
-4901 003F
-4901 0061
-4901 0041
-4901 0062
-4902 0021
-4902 003F
-4902 0061
-4902 0041
-4902 0062
-4903 0021
-4903 003F
-4903 0061
-4903 0041
-4903 0062
-4904 0021
-4904 003F
-4904 0061
-4904 0041
-4904 0062
-4905 0021
-4905 003F
-4905 0061
-4905 0041
-4905 0062
-4906 0021
-4906 003F
-4906 0061
-4906 0041
-4906 0062
-4907 0021
-4907 003F
-4907 0061
-4907 0041
-4907 0062
-4908 0021
-4908 003F
-4908 0061
-4908 0041
-4908 0062
-4909 0021
-4909 003F
-4909 0061
-4909 0041
-4909 0062
-490A 0021
-490A 003F
-490A 0061
-490A 0041
-490A 0062
-490B 0021
-490B 003F
-490B 0061
-490B 0041
-490B 0062
-490C 0021
-490C 003F
-490C 0061
-490C 0041
-490C 0062
-490D 0021
-490D 003F
-490D 0061
-490D 0041
-490D 0062
-490E 0021
-490E 003F
-490E 0061
-490E 0041
-490E 0062
-490F 0021
-490F 003F
-490F 0061
-490F 0041
-490F 0062
-4910 0021
-4910 003F
-4910 0061
-4910 0041
-4910 0062
-4911 0021
-4911 003F
-4911 0061
-4911 0041
-4911 0062
-4912 0021
-4912 003F
-4912 0061
-4912 0041
-4912 0062
-4913 0021
-4913 003F
-4913 0061
-4913 0041
-4913 0062
-4914 0021
-4914 003F
-4914 0061
-4914 0041
-4914 0062
-4915 0021
-4915 003F
-4915 0061
-4915 0041
-4915 0062
-4916 0021
-4916 003F
-4916 0061
-4916 0041
-4916 0062
-4917 0021
-4917 003F
-4917 0061
-4917 0041
-4917 0062
-4918 0021
-4918 003F
-4918 0061
-4918 0041
-4918 0062
-4919 0021
-4919 003F
-4919 0061
-4919 0041
-4919 0062
-491A 0021
-491A 003F
-491A 0061
-491A 0041
-491A 0062
-491B 0021
-491B 003F
-491B 0061
-491B 0041
-491B 0062
-491C 0021
-491C 003F
-491C 0061
-491C 0041
-491C 0062
-491D 0021
-491D 003F
-491D 0061
-491D 0041
-491D 0062
-491E 0021
-491E 003F
-491E 0061
-491E 0041
-491E 0062
-491F 0021
-491F 003F
-491F 0061
-491F 0041
-491F 0062
-4920 0021
-4920 003F
-4920 0061
-4920 0041
-4920 0062
-4921 0021
-4921 003F
-4921 0061
-4921 0041
-4921 0062
-4922 0021
-4922 003F
-4922 0061
-4922 0041
-4922 0062
-4923 0021
-4923 003F
-4923 0061
-4923 0041
-4923 0062
-4924 0021
-4924 003F
-4924 0061
-4924 0041
-4924 0062
-4925 0021
-4925 003F
-4925 0061
-4925 0041
-4925 0062
-4926 0021
-4926 003F
-4926 0061
-4926 0041
-4926 0062
-4927 0021
-4927 003F
-4927 0061
-4927 0041
-4927 0062
-4928 0021
-4928 003F
-4928 0061
-4928 0041
-4928 0062
-4929 0021
-4929 003F
-4929 0061
-4929 0041
-4929 0062
-492A 0021
-492A 003F
-492A 0061
-492A 0041
-492A 0062
-492B 0021
-492B 003F
-492B 0061
-492B 0041
-492B 0062
-492C 0021
-492C 003F
-492C 0061
-492C 0041
-492C 0062
-492D 0021
-492D 003F
-492D 0061
-492D 0041
-492D 0062
-492E 0021
-492E 003F
-492E 0061
-492E 0041
-492E 0062
-492F 0021
-492F 003F
-492F 0061
-492F 0041
-492F 0062
-4930 0021
-4930 003F
-4930 0061
-4930 0041
-4930 0062
-4931 0021
-4931 003F
-4931 0061
-4931 0041
-4931 0062
-4932 0021
-4932 003F
-4932 0061
-4932 0041
-4932 0062
-4933 0021
-4933 003F
-4933 0061
-4933 0041
-4933 0062
-4934 0021
-4934 003F
-4934 0061
-4934 0041
-4934 0062
-4935 0021
-4935 003F
-4935 0061
-4935 0041
-4935 0062
-4936 0021
-4936 003F
-4936 0061
-4936 0041
-4936 0062
-4937 0021
-4937 003F
-4937 0061
-4937 0041
-4937 0062
-4938 0021
-4938 003F
-4938 0061
-4938 0041
-4938 0062
-4939 0021
-4939 003F
-4939 0061
-4939 0041
-4939 0062
-493A 0021
-493A 003F
-493A 0061
-493A 0041
-493A 0062
-493B 0021
-493B 003F
-493B 0061
-493B 0041
-493B 0062
-493C 0021
-493C 003F
-493C 0061
-493C 0041
-493C 0062
-493D 0021
-493D 003F
-493D 0061
-493D 0041
-493D 0062
-493E 0021
-493E 003F
-493E 0061
-493E 0041
-493E 0062
-493F 0021
-493F 003F
-493F 0061
-493F 0041
-493F 0062
-4940 0021
-4940 003F
-4940 0061
-4940 0041
-4940 0062
-4941 0021
-4941 003F
-4941 0061
-4941 0041
-4941 0062
-4942 0021
-4942 003F
-4942 0061
-4942 0041
-4942 0062
-4943 0021
-4943 003F
-4943 0061
-4943 0041
-4943 0062
-4944 0021
-4944 003F
-4944 0061
-4944 0041
-4944 0062
-4945 0021
-4945 003F
-4945 0061
-4945 0041
-4945 0062
-4946 0021
-4946 003F
-4946 0061
-4946 0041
-4946 0062
-4947 0021
-4947 003F
-4947 0061
-4947 0041
-4947 0062
-4948 0021
-4948 003F
-4948 0061
-4948 0041
-4948 0062
-4949 0021
-4949 003F
-4949 0061
-4949 0041
-4949 0062
-494A 0021
-494A 003F
-494A 0061
-494A 0041
-494A 0062
-494B 0021
-494B 003F
-494B 0061
-494B 0041
-494B 0062
-494C 0021
-494C 003F
-494C 0061
-494C 0041
-494C 0062
-494D 0021
-494D 003F
-494D 0061
-494D 0041
-494D 0062
-494E 0021
-494E 003F
-494E 0061
-494E 0041
-494E 0062
-494F 0021
-494F 003F
-494F 0061
-494F 0041
-494F 0062
-4950 0021
-4950 003F
-4950 0061
-4950 0041
-4950 0062
-4951 0021
-4951 003F
-4951 0061
-4951 0041
-4951 0062
-4952 0021
-4952 003F
-4952 0061
-4952 0041
-4952 0062
-4953 0021
-4953 003F
-4953 0061
-4953 0041
-4953 0062
-4954 0021
-4954 003F
-4954 0061
-4954 0041
-4954 0062
-4955 0021
-4955 003F
-4955 0061
-4955 0041
-4955 0062
-4956 0021
-4956 003F
-4956 0061
-4956 0041
-4956 0062
-4957 0021
-4957 003F
-4957 0061
-4957 0041
-4957 0062
-4958 0021
-4958 003F
-4958 0061
-4958 0041
-4958 0062
-4959 0021
-4959 003F
-4959 0061
-4959 0041
-4959 0062
-495A 0021
-495A 003F
-495A 0061
-495A 0041
-495A 0062
-495B 0021
-495B 003F
-495B 0061
-495B 0041
-495B 0062
-495C 0021
-495C 003F
-495C 0061
-495C 0041
-495C 0062
-495D 0021
-495D 003F
-495D 0061
-495D 0041
-495D 0062
-495E 0021
-495E 003F
-495E 0061
-495E 0041
-495E 0062
-495F 0021
-495F 003F
-495F 0061
-495F 0041
-495F 0062
-4960 0021
-4960 003F
-4960 0061
-4960 0041
-4960 0062
-4961 0021
-4961 003F
-4961 0061
-4961 0041
-4961 0062
-4962 0021
-4962 003F
-4962 0061
-4962 0041
-4962 0062
-4963 0021
-4963 003F
-4963 0061
-4963 0041
-4963 0062
-4964 0021
-4964 003F
-4964 0061
-4964 0041
-4964 0062
-4965 0021
-4965 003F
-4965 0061
-4965 0041
-4965 0062
-4966 0021
-4966 003F
-4966 0061
-4966 0041
-4966 0062
-4967 0021
-4967 003F
-4967 0061
-4967 0041
-4967 0062
-4968 0021
-4968 003F
-4968 0061
-4968 0041
-4968 0062
-4969 0021
-4969 003F
-4969 0061
-4969 0041
-4969 0062
-496A 0021
-496A 003F
-496A 0061
-496A 0041
-496A 0062
-496B 0021
-496B 003F
-496B 0061
-496B 0041
-496B 0062
-496C 0021
-496C 003F
-496C 0061
-496C 0041
-496C 0062
-496D 0021
-496D 003F
-496D 0061
-496D 0041
-496D 0062
-496E 0021
-496E 003F
-496E 0061
-496E 0041
-496E 0062
-496F 0021
-496F 003F
-496F 0061
-496F 0041
-496F 0062
-4970 0021
-4970 003F
-4970 0061
-4970 0041
-4970 0062
-4971 0021
-4971 003F
-4971 0061
-4971 0041
-4971 0062
-4972 0021
-4972 003F
-4972 0061
-4972 0041
-4972 0062
-4973 0021
-4973 003F
-4973 0061
-4973 0041
-4973 0062
-4974 0021
-4974 003F
-4974 0061
-4974 0041
-4974 0062
-4975 0021
-4975 003F
-4975 0061
-4975 0041
-4975 0062
-4976 0021
-4976 003F
-4976 0061
-4976 0041
-4976 0062
-4977 0021
-4977 003F
-4977 0061
-4977 0041
-4977 0062
-4978 0021
-4978 003F
-4978 0061
-4978 0041
-4978 0062
-4979 0021
-4979 003F
-4979 0061
-4979 0041
-4979 0062
-497A 0021
-497A 003F
-497A 0061
-497A 0041
-497A 0062
-497B 0021
-497B 003F
-497B 0061
-497B 0041
-497B 0062
-497C 0021
-497C 003F
-497C 0061
-497C 0041
-497C 0062
-497D 0021
-497D 003F
-497D 0061
-497D 0041
-497D 0062
-497E 0021
-497E 003F
-497E 0061
-497E 0041
-497E 0062
-497F 0021
-497F 003F
-497F 0061
-497F 0041
-497F 0062
-4980 0021
-4980 003F
-4980 0061
-4980 0041
-4980 0062
-4981 0021
-4981 003F
-4981 0061
-4981 0041
-4981 0062
-4982 0021
-4982 003F
-4982 0061
-4982 0041
-4982 0062
-4983 0021
-4983 003F
-4983 0061
-4983 0041
-4983 0062
-4984 0021
-4984 003F
-4984 0061
-4984 0041
-4984 0062
-4985 0021
-4985 003F
-4985 0061
-4985 0041
-4985 0062
-4986 0021
-4986 003F
-4986 0061
-4986 0041
-4986 0062
-4987 0021
-4987 003F
-4987 0061
-4987 0041
-4987 0062
-4988 0021
-4988 003F
-4988 0061
-4988 0041
-4988 0062
-4989 0021
-4989 003F
-4989 0061
-4989 0041
-4989 0062
-498A 0021
-498A 003F
-498A 0061
-498A 0041
-498A 0062
-498B 0021
-498B 003F
-498B 0061
-498B 0041
-498B 0062
-498C 0021
-498C 003F
-498C 0061
-498C 0041
-498C 0062
-498D 0021
-498D 003F
-498D 0061
-498D 0041
-498D 0062
-498E 0021
-498E 003F
-498E 0061
-498E 0041
-498E 0062
-498F 0021
-498F 003F
-498F 0061
-498F 0041
-498F 0062
-4990 0021
-4990 003F
-4990 0061
-4990 0041
-4990 0062
-4991 0021
-4991 003F
-4991 0061
-4991 0041
-4991 0062
-4992 0021
-4992 003F
-4992 0061
-4992 0041
-4992 0062
-4993 0021
-4993 003F
-4993 0061
-4993 0041
-4993 0062
-4994 0021
-4994 003F
-4994 0061
-4994 0041
-4994 0062
-4995 0021
-2F9EF 0021
-4995 003F
-2F9EF 003F
-2F9EF 0334
-4995 0061
-2F9EF 0061
-4995 0041
-2F9EF 0041
-4995 0062
-2F9EF 0062
-4996 0021
-4996 003F
-4996 0061
-4996 0041
-4996 0062
-4997 0021
-4997 003F
-4997 0061
-4997 0041
-4997 0062
-4998 0021
-4998 003F
-4998 0061
-4998 0041
-4998 0062
-4999 0021
-4999 003F
-4999 0061
-4999 0041
-4999 0062
-499A 0021
-499A 003F
-499A 0061
-499A 0041
-499A 0062
-499B 0021
-499B 003F
-499B 0061
-499B 0041
-499B 0062
-499C 0021
-499C 003F
-499C 0061
-499C 0041
-499C 0062
-499D 0021
-499D 003F
-499D 0061
-499D 0041
-499D 0062
-499E 0021
-499E 003F
-499E 0061
-499E 0041
-499E 0062
-499F 0021
-499F 003F
-499F 0061
-499F 0041
-499F 0062
-49A0 0021
-49A0 003F
-49A0 0061
-49A0 0041
-49A0 0062
-49A1 0021
-49A1 003F
-49A1 0061
-49A1 0041
-49A1 0062
-49A2 0021
-49A2 003F
-49A2 0061
-49A2 0041
-49A2 0062
-49A3 0021
-49A3 003F
-49A3 0061
-49A3 0041
-49A3 0062
-49A4 0021
-49A4 003F
-49A4 0061
-49A4 0041
-49A4 0062
-49A5 0021
-49A5 003F
-49A5 0061
-49A5 0041
-49A5 0062
-49A6 0021
-49A6 003F
-49A6 0061
-49A6 0041
-49A6 0062
-49A7 0021
-49A7 003F
-49A7 0061
-49A7 0041
-49A7 0062
-49A8 0021
-49A8 003F
-49A8 0061
-49A8 0041
-49A8 0062
-49A9 0021
-49A9 003F
-49A9 0061
-49A9 0041
-49A9 0062
-49AA 0021
-49AA 003F
-49AA 0061
-49AA 0041
-49AA 0062
-49AB 0021
-49AB 003F
-49AB 0061
-49AB 0041
-49AB 0062
-49AC 0021
-49AC 003F
-49AC 0061
-49AC 0041
-49AC 0062
-49AD 0021
-49AD 003F
-49AD 0061
-49AD 0041
-49AD 0062
-49AE 0021
-49AE 003F
-49AE 0061
-49AE 0041
-49AE 0062
-49AF 0021
-49AF 003F
-49AF 0061
-49AF 0041
-49AF 0062
-49B0 0021
-49B0 003F
-49B0 0061
-49B0 0041
-49B0 0062
-49B1 0021
-49B1 003F
-49B1 0061
-49B1 0041
-49B1 0062
-49B2 0021
-49B2 003F
-49B2 0061
-49B2 0041
-49B2 0062
-49B3 0021
-49B3 003F
-49B3 0061
-49B3 0041
-49B3 0062
-49B4 0021
-49B4 003F
-49B4 0061
-49B4 0041
-49B4 0062
-49B5 0021
-49B5 003F
-49B5 0061
-49B5 0041
-49B5 0062
-49B6 0021
-49B6 003F
-49B6 0061
-49B6 0041
-49B6 0062
-49B7 0021
-49B7 003F
-49B7 0061
-49B7 0041
-49B7 0062
-49B8 0021
-49B8 003F
-49B8 0061
-49B8 0041
-49B8 0062
-49B9 0021
-49B9 003F
-49B9 0061
-49B9 0041
-49B9 0062
-49BA 0021
-49BA 003F
-49BA 0061
-49BA 0041
-49BA 0062
-49BB 0021
-49BB 003F
-49BB 0061
-49BB 0041
-49BB 0062
-49BC 0021
-49BC 003F
-49BC 0061
-49BC 0041
-49BC 0062
-49BD 0021
-49BD 003F
-49BD 0061
-49BD 0041
-49BD 0062
-49BE 0021
-49BE 003F
-49BE 0061
-49BE 0041
-49BE 0062
-49BF 0021
-49BF 003F
-49BF 0061
-49BF 0041
-49BF 0062
-49C0 0021
-49C0 003F
-49C0 0061
-49C0 0041
-49C0 0062
-49C1 0021
-49C1 003F
-49C1 0061
-49C1 0041
-49C1 0062
-49C2 0021
-49C2 003F
-49C2 0061
-49C2 0041
-49C2 0062
-49C3 0021
-49C3 003F
-49C3 0061
-49C3 0041
-49C3 0062
-49C4 0021
-49C4 003F
-49C4 0061
-49C4 0041
-49C4 0062
-49C5 0021
-49C5 003F
-49C5 0061
-49C5 0041
-49C5 0062
-49C6 0021
-49C6 003F
-49C6 0061
-49C6 0041
-49C6 0062
-49C7 0021
-49C7 003F
-49C7 0061
-49C7 0041
-49C7 0062
-49C8 0021
-49C8 003F
-49C8 0061
-49C8 0041
-49C8 0062
-49C9 0021
-49C9 003F
-49C9 0061
-49C9 0041
-49C9 0062
-49CA 0021
-49CA 003F
-49CA 0061
-49CA 0041
-49CA 0062
-49CB 0021
-49CB 003F
-49CB 0061
-49CB 0041
-49CB 0062
-49CC 0021
-49CC 003F
-49CC 0061
-49CC 0041
-49CC 0062
-49CD 0021
-49CD 003F
-49CD 0061
-49CD 0041
-49CD 0062
-49CE 0021
-49CE 003F
-49CE 0061
-49CE 0041
-49CE 0062
-49CF 0021
-49CF 003F
-49CF 0061
-49CF 0041
-49CF 0062
-49D0 0021
-49D0 003F
-49D0 0061
-49D0 0041
-49D0 0062
-49D1 0021
-49D1 003F
-49D1 0061
-49D1 0041
-49D1 0062
-49D2 0021
-49D2 003F
-49D2 0061
-49D2 0041
-49D2 0062
-49D3 0021
-49D3 003F
-49D3 0061
-49D3 0041
-49D3 0062
-49D4 0021
-49D4 003F
-49D4 0061
-49D4 0041
-49D4 0062
-49D5 0021
-49D5 003F
-49D5 0061
-49D5 0041
-49D5 0062
-49D6 0021
-49D6 003F
-49D6 0061
-49D6 0041
-49D6 0062
-49D7 0021
-49D7 003F
-49D7 0061
-49D7 0041
-49D7 0062
-49D8 0021
-49D8 003F
-49D8 0061
-49D8 0041
-49D8 0062
-49D9 0021
-49D9 003F
-49D9 0061
-49D9 0041
-49D9 0062
-49DA 0021
-49DA 003F
-49DA 0061
-49DA 0041
-49DA 0062
-49DB 0021
-49DB 003F
-49DB 0061
-49DB 0041
-49DB 0062
-49DC 0021
-49DC 003F
-49DC 0061
-49DC 0041
-49DC 0062
-49DD 0021
-49DD 003F
-49DD 0061
-49DD 0041
-49DD 0062
-49DE 0021
-49DE 003F
-49DE 0061
-49DE 0041
-49DE 0062
-49DF 0021
-49DF 003F
-49DF 0061
-49DF 0041
-49DF 0062
-49E0 0021
-49E0 003F
-49E0 0061
-49E0 0041
-49E0 0062
-49E1 0021
-49E1 003F
-49E1 0061
-49E1 0041
-49E1 0062
-49E2 0021
-49E2 003F
-49E2 0061
-49E2 0041
-49E2 0062
-49E3 0021
-49E3 003F
-49E3 0061
-49E3 0041
-49E3 0062
-49E4 0021
-49E4 003F
-49E4 0061
-49E4 0041
-49E4 0062
-49E5 0021
-49E5 003F
-49E5 0061
-49E5 0041
-49E5 0062
-49E6 0021
-2F9F2 0021
-49E6 003F
-2F9F2 003F
-2F9F2 0334
-49E6 0061
-2F9F2 0061
-49E6 0041
-2F9F2 0041
-49E6 0062
-2F9F2 0062
-49E7 0021
-49E7 003F
-49E7 0061
-49E7 0041
-49E7 0062
-49E8 0021
-49E8 003F
-49E8 0061
-49E8 0041
-49E8 0062
-49E9 0021
-49E9 003F
-49E9 0061
-49E9 0041
-49E9 0062
-49EA 0021
-49EA 003F
-49EA 0061
-49EA 0041
-49EA 0062
-49EB 0021
-49EB 003F
-49EB 0061
-49EB 0041
-49EB 0062
-49EC 0021
-49EC 003F
-49EC 0061
-49EC 0041
-49EC 0062
-49ED 0021
-49ED 003F
-49ED 0061
-49ED 0041
-49ED 0062
-49EE 0021
-49EE 003F
-49EE 0061
-49EE 0041
-49EE 0062
-49EF 0021
-49EF 003F
-49EF 0061
-49EF 0041
-49EF 0062
-49F0 0021
-49F0 003F
-49F0 0061
-49F0 0041
-49F0 0062
-49F1 0021
-49F1 003F
-49F1 0061
-49F1 0041
-49F1 0062
-49F2 0021
-49F2 003F
-49F2 0061
-49F2 0041
-49F2 0062
-49F3 0021
-49F3 003F
-49F3 0061
-49F3 0041
-49F3 0062
-49F4 0021
-49F4 003F
-49F4 0061
-49F4 0041
-49F4 0062
-49F5 0021
-49F5 003F
-49F5 0061
-49F5 0041
-49F5 0062
-49F6 0021
-49F6 003F
-49F6 0061
-49F6 0041
-49F6 0062
-49F7 0021
-49F7 003F
-49F7 0061
-49F7 0041
-49F7 0062
-49F8 0021
-49F8 003F
-49F8 0061
-49F8 0041
-49F8 0062
-49F9 0021
-49F9 003F
-49F9 0061
-49F9 0041
-49F9 0062
-49FA 0021
-49FA 003F
-49FA 0061
-49FA 0041
-49FA 0062
-49FB 0021
-49FB 003F
-49FB 0061
-49FB 0041
-49FB 0062
-49FC 0021
-49FC 003F
-49FC 0061
-49FC 0041
-49FC 0062
-49FD 0021
-49FD 003F
-49FD 0061
-49FD 0041
-49FD 0062
-49FE 0021
-49FE 003F
-49FE 0061
-49FE 0041
-49FE 0062
-49FF 0021
-49FF 003F
-49FF 0061
-49FF 0041
-49FF 0062
-4A00 0021
-4A00 003F
-4A00 0061
-4A00 0041
-4A00 0062
-4A01 0021
-4A01 003F
-4A01 0061
-4A01 0041
-4A01 0062
-4A02 0021
-4A02 003F
-4A02 0061
-4A02 0041
-4A02 0062
-4A03 0021
-4A03 003F
-4A03 0061
-4A03 0041
-4A03 0062
-4A04 0021
-4A04 003F
-4A04 0061
-4A04 0041
-4A04 0062
-4A05 0021
-4A05 003F
-4A05 0061
-4A05 0041
-4A05 0062
-4A06 0021
-4A06 003F
-4A06 0061
-4A06 0041
-4A06 0062
-4A07 0021
-4A07 003F
-4A07 0061
-4A07 0041
-4A07 0062
-4A08 0021
-4A08 003F
-4A08 0061
-4A08 0041
-4A08 0062
-4A09 0021
-4A09 003F
-4A09 0061
-4A09 0041
-4A09 0062
-4A0A 0021
-4A0A 003F
-4A0A 0061
-4A0A 0041
-4A0A 0062
-4A0B 0021
-4A0B 003F
-4A0B 0061
-4A0B 0041
-4A0B 0062
-4A0C 0021
-4A0C 003F
-4A0C 0061
-4A0C 0041
-4A0C 0062
-4A0D 0021
-4A0D 003F
-4A0D 0061
-4A0D 0041
-4A0D 0062
-4A0E 0021
-4A0E 003F
-4A0E 0061
-4A0E 0041
-4A0E 0062
-4A0F 0021
-4A0F 003F
-4A0F 0061
-4A0F 0041
-4A0F 0062
-4A10 0021
-4A10 003F
-4A10 0061
-4A10 0041
-4A10 0062
-4A11 0021
-4A11 003F
-4A11 0061
-4A11 0041
-4A11 0062
-4A12 0021
-4A12 003F
-4A12 0061
-4A12 0041
-4A12 0062
-4A13 0021
-4A13 003F
-4A13 0061
-4A13 0041
-4A13 0062
-4A14 0021
-4A14 003F
-4A14 0061
-4A14 0041
-4A14 0062
-4A15 0021
-4A15 003F
-4A15 0061
-4A15 0041
-4A15 0062
-4A16 0021
-4A16 003F
-4A16 0061
-4A16 0041
-4A16 0062
-4A17 0021
-4A17 003F
-4A17 0061
-4A17 0041
-4A17 0062
-4A18 0021
-4A18 003F
-4A18 0061
-4A18 0041
-4A18 0062
-4A19 0021
-4A19 003F
-4A19 0061
-4A19 0041
-4A19 0062
-4A1A 0021
-4A1A 003F
-4A1A 0061
-4A1A 0041
-4A1A 0062
-4A1B 0021
-4A1B 003F
-4A1B 0061
-4A1B 0041
-4A1B 0062
-4A1C 0021
-4A1C 003F
-4A1C 0061
-4A1C 0041
-4A1C 0062
-4A1D 0021
-4A1D 003F
-4A1D 0061
-4A1D 0041
-4A1D 0062
-4A1E 0021
-4A1E 003F
-4A1E 0061
-4A1E 0041
-4A1E 0062
-4A1F 0021
-4A1F 003F
-4A1F 0061
-4A1F 0041
-4A1F 0062
-4A20 0021
-4A20 003F
-4A20 0061
-4A20 0041
-4A20 0062
-4A21 0021
-4A21 003F
-4A21 0061
-4A21 0041
-4A21 0062
-4A22 0021
-4A22 003F
-4A22 0061
-4A22 0041
-4A22 0062
-4A23 0021
-4A23 003F
-4A23 0061
-4A23 0041
-4A23 0062
-4A24 0021
-4A24 003F
-4A24 0061
-4A24 0041
-4A24 0062
-4A25 0021
-4A25 003F
-4A25 0061
-4A25 0041
-4A25 0062
-4A26 0021
-4A26 003F
-4A26 0061
-4A26 0041
-4A26 0062
-4A27 0021
-4A27 003F
-4A27 0061
-4A27 0041
-4A27 0062
-4A28 0021
-4A28 003F
-4A28 0061
-4A28 0041
-4A28 0062
-4A29 0021
-4A29 003F
-4A29 0061
-4A29 0041
-4A29 0062
-4A2A 0021
-4A2A 003F
-4A2A 0061
-4A2A 0041
-4A2A 0062
-4A2B 0021
-4A2B 003F
-4A2B 0061
-4A2B 0041
-4A2B 0062
-4A2C 0021
-4A2C 003F
-4A2C 0061
-4A2C 0041
-4A2C 0062
-4A2D 0021
-4A2D 003F
-4A2D 0061
-4A2D 0041
-4A2D 0062
-4A2E 0021
-4A2E 003F
-4A2E 0061
-4A2E 0041
-4A2E 0062
-4A2F 0021
-4A2F 003F
-4A2F 0061
-4A2F 0041
-4A2F 0062
-4A30 0021
-4A30 003F
-4A30 0061
-4A30 0041
-4A30 0062
-4A31 0021
-4A31 003F
-4A31 0061
-4A31 0041
-4A31 0062
-4A32 0021
-4A32 003F
-4A32 0061
-4A32 0041
-4A32 0062
-4A33 0021
-4A33 003F
-4A33 0061
-4A33 0041
-4A33 0062
-4A34 0021
-4A34 003F
-4A34 0061
-4A34 0041
-4A34 0062
-4A35 0021
-4A35 003F
-4A35 0061
-4A35 0041
-4A35 0062
-4A36 0021
-4A36 003F
-4A36 0061
-4A36 0041
-4A36 0062
-4A37 0021
-4A37 003F
-4A37 0061
-4A37 0041
-4A37 0062
-4A38 0021
-4A38 003F
-4A38 0061
-4A38 0041
-4A38 0062
-4A39 0021
-4A39 003F
-4A39 0061
-4A39 0041
-4A39 0062
-4A3A 0021
-4A3A 003F
-4A3A 0061
-4A3A 0041
-4A3A 0062
-4A3B 0021
-4A3B 003F
-4A3B 0061
-4A3B 0041
-4A3B 0062
-4A3C 0021
-4A3C 003F
-4A3C 0061
-4A3C 0041
-4A3C 0062
-4A3D 0021
-4A3D 003F
-4A3D 0061
-4A3D 0041
-4A3D 0062
-4A3E 0021
-4A3E 003F
-4A3E 0061
-4A3E 0041
-4A3E 0062
-4A3F 0021
-4A3F 003F
-4A3F 0061
-4A3F 0041
-4A3F 0062
-4A40 0021
-4A40 003F
-4A40 0061
-4A40 0041
-4A40 0062
-4A41 0021
-4A41 003F
-4A41 0061
-4A41 0041
-4A41 0062
-4A42 0021
-4A42 003F
-4A42 0061
-4A42 0041
-4A42 0062
-4A43 0021
-4A43 003F
-4A43 0061
-4A43 0041
-4A43 0062
-4A44 0021
-4A44 003F
-4A44 0061
-4A44 0041
-4A44 0062
-4A45 0021
-4A45 003F
-4A45 0061
-4A45 0041
-4A45 0062
-4A46 0021
-4A46 003F
-4A46 0061
-4A46 0041
-4A46 0062
-4A47 0021
-4A47 003F
-4A47 0061
-4A47 0041
-4A47 0062
-4A48 0021
-4A48 003F
-4A48 0061
-4A48 0041
-4A48 0062
-4A49 0021
-4A49 003F
-4A49 0061
-4A49 0041
-4A49 0062
-4A4A 0021
-4A4A 003F
-4A4A 0061
-4A4A 0041
-4A4A 0062
-4A4B 0021
-4A4B 003F
-4A4B 0061
-4A4B 0041
-4A4B 0062
-4A4C 0021
-4A4C 003F
-4A4C 0061
-4A4C 0041
-4A4C 0062
-4A4D 0021
-4A4D 003F
-4A4D 0061
-4A4D 0041
-4A4D 0062
-4A4E 0021
-4A4E 003F
-4A4E 0061
-4A4E 0041
-4A4E 0062
-4A4F 0021
-4A4F 003F
-4A4F 0061
-4A4F 0041
-4A4F 0062
-4A50 0021
-4A50 003F
-4A50 0061
-4A50 0041
-4A50 0062
-4A51 0021
-4A51 003F
-4A51 0061
-4A51 0041
-4A51 0062
-4A52 0021
-4A52 003F
-4A52 0061
-4A52 0041
-4A52 0062
-4A53 0021
-4A53 003F
-4A53 0061
-4A53 0041
-4A53 0062
-4A54 0021
-4A54 003F
-4A54 0061
-4A54 0041
-4A54 0062
-4A55 0021
-4A55 003F
-4A55 0061
-4A55 0041
-4A55 0062
-4A56 0021
-4A56 003F
-4A56 0061
-4A56 0041
-4A56 0062
-4A57 0021
-4A57 003F
-4A57 0061
-4A57 0041
-4A57 0062
-4A58 0021
-4A58 003F
-4A58 0061
-4A58 0041
-4A58 0062
-4A59 0021
-4A59 003F
-4A59 0061
-4A59 0041
-4A59 0062
-4A5A 0021
-4A5A 003F
-4A5A 0061
-4A5A 0041
-4A5A 0062
-4A5B 0021
-4A5B 003F
-4A5B 0061
-4A5B 0041
-4A5B 0062
-4A5C 0021
-4A5C 003F
-4A5C 0061
-4A5C 0041
-4A5C 0062
-4A5D 0021
-4A5D 003F
-4A5D 0061
-4A5D 0041
-4A5D 0062
-4A5E 0021
-4A5E 003F
-4A5E 0061
-4A5E 0041
-4A5E 0062
-4A5F 0021
-4A5F 003F
-4A5F 0061
-4A5F 0041
-4A5F 0062
-4A60 0021
-4A60 003F
-4A60 0061
-4A60 0041
-4A60 0062
-4A61 0021
-4A61 003F
-4A61 0061
-4A61 0041
-4A61 0062
-4A62 0021
-4A62 003F
-4A62 0061
-4A62 0041
-4A62 0062
-4A63 0021
-4A63 003F
-4A63 0061
-4A63 0041
-4A63 0062
-4A64 0021
-4A64 003F
-4A64 0061
-4A64 0041
-4A64 0062
-4A65 0021
-4A65 003F
-4A65 0061
-4A65 0041
-4A65 0062
-4A66 0021
-4A66 003F
-4A66 0061
-4A66 0041
-4A66 0062
-4A67 0021
-4A67 003F
-4A67 0061
-4A67 0041
-4A67 0062
-4A68 0021
-4A68 003F
-4A68 0061
-4A68 0041
-4A68 0062
-4A69 0021
-4A69 003F
-4A69 0061
-4A69 0041
-4A69 0062
-4A6A 0021
-4A6A 003F
-4A6A 0061
-4A6A 0041
-4A6A 0062
-4A6B 0021
-4A6B 003F
-4A6B 0061
-4A6B 0041
-4A6B 0062
-4A6C 0021
-4A6C 003F
-4A6C 0061
-4A6C 0041
-4A6C 0062
-4A6D 0021
-4A6D 003F
-4A6D 0061
-4A6D 0041
-4A6D 0062
-4A6E 0021
-2F9F8 0021
-4A6E 003F
-2F9F8 003F
-2F9F8 0334
-4A6E 0061
-2F9F8 0061
-4A6E 0041
-2F9F8 0041
-4A6E 0062
-2F9F8 0062
-4A6F 0021
-4A6F 003F
-4A6F 0061
-4A6F 0041
-4A6F 0062
-4A70 0021
-4A70 003F
-4A70 0061
-4A70 0041
-4A70 0062
-4A71 0021
-4A71 003F
-4A71 0061
-4A71 0041
-4A71 0062
-4A72 0021
-4A72 003F
-4A72 0061
-4A72 0041
-4A72 0062
-4A73 0021
-4A73 003F
-4A73 0061
-4A73 0041
-4A73 0062
-4A74 0021
-4A74 003F
-4A74 0061
-4A74 0041
-4A74 0062
-4A75 0021
-4A75 003F
-4A75 0061
-4A75 0041
-4A75 0062
-4A76 0021
-2F9F9 0021
-4A76 003F
-2F9F9 003F
-2F9F9 0334
-4A76 0061
-2F9F9 0061
-4A76 0041
-2F9F9 0041
-4A76 0062
-2F9F9 0062
-4A77 0021
-4A77 003F
-4A77 0061
-4A77 0041
-4A77 0062
-4A78 0021
-4A78 003F
-4A78 0061
-4A78 0041
-4A78 0062
-4A79 0021
-4A79 003F
-4A79 0061
-4A79 0041
-4A79 0062
-4A7A 0021
-4A7A 003F
-4A7A 0061
-4A7A 0041
-4A7A 0062
-4A7B 0021
-4A7B 003F
-4A7B 0061
-4A7B 0041
-4A7B 0062
-4A7C 0021
-4A7C 003F
-4A7C 0061
-4A7C 0041
-4A7C 0062
-4A7D 0021
-4A7D 003F
-4A7D 0061
-4A7D 0041
-4A7D 0062
-4A7E 0021
-4A7E 003F
-4A7E 0061
-4A7E 0041
-4A7E 0062
-4A7F 0021
-4A7F 003F
-4A7F 0061
-4A7F 0041
-4A7F 0062
-4A80 0021
-4A80 003F
-4A80 0061
-4A80 0041
-4A80 0062
-4A81 0021
-4A81 003F
-4A81 0061
-4A81 0041
-4A81 0062
-4A82 0021
-4A82 003F
-4A82 0061
-4A82 0041
-4A82 0062
-4A83 0021
-4A83 003F
-4A83 0061
-4A83 0041
-4A83 0062
-4A84 0021
-4A84 003F
-4A84 0061
-4A84 0041
-4A84 0062
-4A85 0021
-4A85 003F
-4A85 0061
-4A85 0041
-4A85 0062
-4A86 0021
-4A86 003F
-4A86 0061
-4A86 0041
-4A86 0062
-4A87 0021
-4A87 003F
-4A87 0061
-4A87 0041
-4A87 0062
-4A88 0021
-4A88 003F
-4A88 0061
-4A88 0041
-4A88 0062
-4A89 0021
-4A89 003F
-4A89 0061
-4A89 0041
-4A89 0062
-4A8A 0021
-4A8A 003F
-4A8A 0061
-4A8A 0041
-4A8A 0062
-4A8B 0021
-4A8B 003F
-4A8B 0061
-4A8B 0041
-4A8B 0062
-4A8C 0021
-4A8C 003F
-4A8C 0061
-4A8C 0041
-4A8C 0062
-4A8D 0021
-4A8D 003F
-4A8D 0061
-4A8D 0041
-4A8D 0062
-4A8E 0021
-4A8E 003F
-4A8E 0061
-4A8E 0041
-4A8E 0062
-4A8F 0021
-4A8F 003F
-4A8F 0061
-4A8F 0041
-4A8F 0062
-4A90 0021
-4A90 003F
-4A90 0061
-4A90 0041
-4A90 0062
-4A91 0021
-4A91 003F
-4A91 0061
-4A91 0041
-4A91 0062
-4A92 0021
-4A92 003F
-4A92 0061
-4A92 0041
-4A92 0062
-4A93 0021
-4A93 003F
-4A93 0061
-4A93 0041
-4A93 0062
-4A94 0021
-4A94 003F
-4A94 0061
-4A94 0041
-4A94 0062
-4A95 0021
-4A95 003F
-4A95 0061
-4A95 0041
-4A95 0062
-4A96 0021
-4A96 003F
-4A96 0061
-4A96 0041
-4A96 0062
-4A97 0021
-4A97 003F
-4A97 0061
-4A97 0041
-4A97 0062
-4A98 0021
-4A98 003F
-4A98 0061
-4A98 0041
-4A98 0062
-4A99 0021
-4A99 003F
-4A99 0061
-4A99 0041
-4A99 0062
-4A9A 0021
-4A9A 003F
-4A9A 0061
-4A9A 0041
-4A9A 0062
-4A9B 0021
-4A9B 003F
-4A9B 0061
-4A9B 0041
-4A9B 0062
-4A9C 0021
-4A9C 003F
-4A9C 0061
-4A9C 0041
-4A9C 0062
-4A9D 0021
-4A9D 003F
-4A9D 0061
-4A9D 0041
-4A9D 0062
-4A9E 0021
-4A9E 003F
-4A9E 0061
-4A9E 0041
-4A9E 0062
-4A9F 0021
-4A9F 003F
-4A9F 0061
-4A9F 0041
-4A9F 0062
-4AA0 0021
-4AA0 003F
-4AA0 0061
-4AA0 0041
-4AA0 0062
-4AA1 0021
-4AA1 003F
-4AA1 0061
-4AA1 0041
-4AA1 0062
-4AA2 0021
-4AA2 003F
-4AA2 0061
-4AA2 0041
-4AA2 0062
-4AA3 0021
-4AA3 003F
-4AA3 0061
-4AA3 0041
-4AA3 0062
-4AA4 0021
-4AA4 003F
-4AA4 0061
-4AA4 0041
-4AA4 0062
-4AA5 0021
-4AA5 003F
-4AA5 0061
-4AA5 0041
-4AA5 0062
-4AA6 0021
-4AA6 003F
-4AA6 0061
-4AA6 0041
-4AA6 0062
-4AA7 0021
-4AA7 003F
-4AA7 0061
-4AA7 0041
-4AA7 0062
-4AA8 0021
-4AA8 003F
-4AA8 0061
-4AA8 0041
-4AA8 0062
-4AA9 0021
-4AA9 003F
-4AA9 0061
-4AA9 0041
-4AA9 0062
-4AAA 0021
-4AAA 003F
-4AAA 0061
-4AAA 0041
-4AAA 0062
-4AAB 0021
-4AAB 003F
-4AAB 0061
-4AAB 0041
-4AAB 0062
-4AAC 0021
-4AAC 003F
-4AAC 0061
-4AAC 0041
-4AAC 0062
-4AAD 0021
-4AAD 003F
-4AAD 0061
-4AAD 0041
-4AAD 0062
-4AAE 0021
-4AAE 003F
-4AAE 0061
-4AAE 0041
-4AAE 0062
-4AAF 0021
-4AAF 003F
-4AAF 0061
-4AAF 0041
-4AAF 0062
-4AB0 0021
-4AB0 003F
-4AB0 0061
-4AB0 0041
-4AB0 0062
-4AB1 0021
-4AB1 003F
-4AB1 0061
-4AB1 0041
-4AB1 0062
-4AB2 0021
-2F9FC 0021
-4AB2 003F
-2F9FC 003F
-2F9FC 0334
-4AB2 0061
-2F9FC 0061
-4AB2 0041
-2F9FC 0041
-4AB2 0062
-2F9FC 0062
-4AB3 0021
-4AB3 003F
-4AB3 0061
-4AB3 0041
-4AB3 0062
-4AB4 0021
-4AB4 003F
-4AB4 0061
-4AB4 0041
-4AB4 0062
-4AB5 0021
-4AB5 003F
-4AB5 0061
-4AB5 0041
-4AB5 0062
-4AB6 0021
-4AB6 003F
-4AB6 0061
-4AB6 0041
-4AB6 0062
-4AB7 0021
-4AB7 003F
-4AB7 0061
-4AB7 0041
-4AB7 0062
-4AB8 0021
-4AB8 003F
-4AB8 0061
-4AB8 0041
-4AB8 0062
-4AB9 0021
-4AB9 003F
-4AB9 0061
-4AB9 0041
-4AB9 0062
-4ABA 0021
-4ABA 003F
-4ABA 0061
-4ABA 0041
-4ABA 0062
-4ABB 0021
-4ABB 003F
-4ABB 0061
-4ABB 0041
-4ABB 0062
-4ABC 0021
-4ABC 003F
-4ABC 0061
-4ABC 0041
-4ABC 0062
-4ABD 0021
-4ABD 003F
-4ABD 0061
-4ABD 0041
-4ABD 0062
-4ABE 0021
-4ABE 003F
-4ABE 0061
-4ABE 0041
-4ABE 0062
-4ABF 0021
-4ABF 003F
-4ABF 0061
-4ABF 0041
-4ABF 0062
-4AC0 0021
-4AC0 003F
-4AC0 0061
-4AC0 0041
-4AC0 0062
-4AC1 0021
-4AC1 003F
-4AC1 0061
-4AC1 0041
-4AC1 0062
-4AC2 0021
-4AC2 003F
-4AC2 0061
-4AC2 0041
-4AC2 0062
-4AC3 0021
-4AC3 003F
-4AC3 0061
-4AC3 0041
-4AC3 0062
-4AC4 0021
-4AC4 003F
-4AC4 0061
-4AC4 0041
-4AC4 0062
-4AC5 0021
-4AC5 003F
-4AC5 0061
-4AC5 0041
-4AC5 0062
-4AC6 0021
-4AC6 003F
-4AC6 0061
-4AC6 0041
-4AC6 0062
-4AC7 0021
-4AC7 003F
-4AC7 0061
-4AC7 0041
-4AC7 0062
-4AC8 0021
-4AC8 003F
-4AC8 0061
-4AC8 0041
-4AC8 0062
-4AC9 0021
-4AC9 003F
-4AC9 0061
-4AC9 0041
-4AC9 0062
-4ACA 0021
-4ACA 003F
-4ACA 0061
-4ACA 0041
-4ACA 0062
-4ACB 0021
-4ACB 003F
-4ACB 0061
-4ACB 0041
-4ACB 0062
-4ACC 0021
-4ACC 003F
-4ACC 0061
-4ACC 0041
-4ACC 0062
-4ACD 0021
-4ACD 003F
-4ACD 0061
-4ACD 0041
-4ACD 0062
-4ACE 0021
-4ACE 003F
-4ACE 0061
-4ACE 0041
-4ACE 0062
-4ACF 0021
-4ACF 003F
-4ACF 0061
-4ACF 0041
-4ACF 0062
-4AD0 0021
-4AD0 003F
-4AD0 0061
-4AD0 0041
-4AD0 0062
-4AD1 0021
-4AD1 003F
-4AD1 0061
-4AD1 0041
-4AD1 0062
-4AD2 0021
-4AD2 003F
-4AD2 0061
-4AD2 0041
-4AD2 0062
-4AD3 0021
-4AD3 003F
-4AD3 0061
-4AD3 0041
-4AD3 0062
-4AD4 0021
-4AD4 003F
-4AD4 0061
-4AD4 0041
-4AD4 0062
-4AD5 0021
-4AD5 003F
-4AD5 0061
-4AD5 0041
-4AD5 0062
-4AD6 0021
-4AD6 003F
-4AD6 0061
-4AD6 0041
-4AD6 0062
-4AD7 0021
-4AD7 003F
-4AD7 0061
-4AD7 0041
-4AD7 0062
-4AD8 0021
-4AD8 003F
-4AD8 0061
-4AD8 0041
-4AD8 0062
-4AD9 0021
-4AD9 003F
-4AD9 0061
-4AD9 0041
-4AD9 0062
-4ADA 0021
-4ADA 003F
-4ADA 0061
-4ADA 0041
-4ADA 0062
-4ADB 0021
-4ADB 003F
-4ADB 0061
-4ADB 0041
-4ADB 0062
-4ADC 0021
-4ADC 003F
-4ADC 0061
-4ADC 0041
-4ADC 0062
-4ADD 0021
-4ADD 003F
-4ADD 0061
-4ADD 0041
-4ADD 0062
-4ADE 0021
-4ADE 003F
-4ADE 0061
-4ADE 0041
-4ADE 0062
-4ADF 0021
-4ADF 003F
-4ADF 0061
-4ADF 0041
-4ADF 0062
-4AE0 0021
-4AE0 003F
-4AE0 0061
-4AE0 0041
-4AE0 0062
-4AE1 0021
-4AE1 003F
-4AE1 0061
-4AE1 0041
-4AE1 0062
-4AE2 0021
-4AE2 003F
-4AE2 0061
-4AE2 0041
-4AE2 0062
-4AE3 0021
-4AE3 003F
-4AE3 0061
-4AE3 0041
-4AE3 0062
-4AE4 0021
-4AE4 003F
-4AE4 0061
-4AE4 0041
-4AE4 0062
-4AE5 0021
-4AE5 003F
-4AE5 0061
-4AE5 0041
-4AE5 0062
-4AE6 0021
-4AE6 003F
-4AE6 0061
-4AE6 0041
-4AE6 0062
-4AE7 0021
-4AE7 003F
-4AE7 0061
-4AE7 0041
-4AE7 0062
-4AE8 0021
-4AE8 003F
-4AE8 0061
-4AE8 0041
-4AE8 0062
-4AE9 0021
-4AE9 003F
-4AE9 0061
-4AE9 0041
-4AE9 0062
-4AEA 0021
-4AEA 003F
-4AEA 0061
-4AEA 0041
-4AEA 0062
-4AEB 0021
-4AEB 003F
-4AEB 0061
-4AEB 0041
-4AEB 0062
-4AEC 0021
-4AEC 003F
-4AEC 0061
-4AEC 0041
-4AEC 0062
-4AED 0021
-4AED 003F
-4AED 0061
-4AED 0041
-4AED 0062
-4AEE 0021
-4AEE 003F
-4AEE 0061
-4AEE 0041
-4AEE 0062
-4AEF 0021
-4AEF 003F
-4AEF 0061
-4AEF 0041
-4AEF 0062
-4AF0 0021
-4AF0 003F
-4AF0 0061
-4AF0 0041
-4AF0 0062
-4AF1 0021
-4AF1 003F
-4AF1 0061
-4AF1 0041
-4AF1 0062
-4AF2 0021
-4AF2 003F
-4AF2 0061
-4AF2 0041
-4AF2 0062
-4AF3 0021
-4AF3 003F
-4AF3 0061
-4AF3 0041
-4AF3 0062
-4AF4 0021
-4AF4 003F
-4AF4 0061
-4AF4 0041
-4AF4 0062
-4AF5 0021
-4AF5 003F
-4AF5 0061
-4AF5 0041
-4AF5 0062
-4AF6 0021
-4AF6 003F
-4AF6 0061
-4AF6 0041
-4AF6 0062
-4AF7 0021
-4AF7 003F
-4AF7 0061
-4AF7 0041
-4AF7 0062
-4AF8 0021
-4AF8 003F
-4AF8 0061
-4AF8 0041
-4AF8 0062
-4AF9 0021
-4AF9 003F
-4AF9 0061
-4AF9 0041
-4AF9 0062
-4AFA 0021
-4AFA 003F
-4AFA 0061
-4AFA 0041
-4AFA 0062
-4AFB 0021
-4AFB 003F
-4AFB 0061
-4AFB 0041
-4AFB 0062
-4AFC 0021
-4AFC 003F
-4AFC 0061
-4AFC 0041
-4AFC 0062
-4AFD 0021
-4AFD 003F
-4AFD 0061
-4AFD 0041
-4AFD 0062
-4AFE 0021
-4AFE 003F
-4AFE 0061
-4AFE 0041
-4AFE 0062
-4AFF 0021
-4AFF 003F
-4AFF 0061
-4AFF 0041
-4AFF 0062
-4B00 0021
-4B00 003F
-4B00 0061
-4B00 0041
-4B00 0062
-4B01 0021
-4B01 003F
-4B01 0061
-4B01 0041
-4B01 0062
-4B02 0021
-4B02 003F
-4B02 0061
-4B02 0041
-4B02 0062
-4B03 0021
-4B03 003F
-4B03 0061
-4B03 0041
-4B03 0062
-4B04 0021
-4B04 003F
-4B04 0061
-4B04 0041
-4B04 0062
-4B05 0021
-4B05 003F
-4B05 0061
-4B05 0041
-4B05 0062
-4B06 0021
-4B06 003F
-4B06 0061
-4B06 0041
-4B06 0062
-4B07 0021
-4B07 003F
-4B07 0061
-4B07 0041
-4B07 0062
-4B08 0021
-4B08 003F
-4B08 0061
-4B08 0041
-4B08 0062
-4B09 0021
-4B09 003F
-4B09 0061
-4B09 0041
-4B09 0062
-4B0A 0021
-4B0A 003F
-4B0A 0061
-4B0A 0041
-4B0A 0062
-4B0B 0021
-4B0B 003F
-4B0B 0061
-4B0B 0041
-4B0B 0062
-4B0C 0021
-4B0C 003F
-4B0C 0061
-4B0C 0041
-4B0C 0062
-4B0D 0021
-4B0D 003F
-4B0D 0061
-4B0D 0041
-4B0D 0062
-4B0E 0021
-4B0E 003F
-4B0E 0061
-4B0E 0041
-4B0E 0062
-4B0F 0021
-4B0F 003F
-4B0F 0061
-4B0F 0041
-4B0F 0062
-4B10 0021
-4B10 003F
-4B10 0061
-4B10 0041
-4B10 0062
-4B11 0021
-4B11 003F
-4B11 0061
-4B11 0041
-4B11 0062
-4B12 0021
-4B12 003F
-4B12 0061
-4B12 0041
-4B12 0062
-4B13 0021
-4B13 003F
-4B13 0061
-4B13 0041
-4B13 0062
-4B14 0021
-4B14 003F
-4B14 0061
-4B14 0041
-4B14 0062
-4B15 0021
-4B15 003F
-4B15 0061
-4B15 0041
-4B15 0062
-4B16 0021
-4B16 003F
-4B16 0061
-4B16 0041
-4B16 0062
-4B17 0021
-4B17 003F
-4B17 0061
-4B17 0041
-4B17 0062
-4B18 0021
-4B18 003F
-4B18 0061
-4B18 0041
-4B18 0062
-4B19 0021
-4B19 003F
-4B19 0061
-4B19 0041
-4B19 0062
-4B1A 0021
-4B1A 003F
-4B1A 0061
-4B1A 0041
-4B1A 0062
-4B1B 0021
-4B1B 003F
-4B1B 0061
-4B1B 0041
-4B1B 0062
-4B1C 0021
-4B1C 003F
-4B1C 0061
-4B1C 0041
-4B1C 0062
-4B1D 0021
-4B1D 003F
-4B1D 0061
-4B1D 0041
-4B1D 0062
-4B1E 0021
-4B1E 003F
-4B1E 0061
-4B1E 0041
-4B1E 0062
-4B1F 0021
-4B1F 003F
-4B1F 0061
-4B1F 0041
-4B1F 0062
-4B20 0021
-4B20 003F
-4B20 0061
-4B20 0041
-4B20 0062
-4B21 0021
-4B21 003F
-4B21 0061
-4B21 0041
-4B21 0062
-4B22 0021
-4B22 003F
-4B22 0061
-4B22 0041
-4B22 0062
-4B23 0021
-4B23 003F
-4B23 0061
-4B23 0041
-4B23 0062
-4B24 0021
-4B24 003F
-4B24 0061
-4B24 0041
-4B24 0062
-4B25 0021
-4B25 003F
-4B25 0061
-4B25 0041
-4B25 0062
-4B26 0021
-4B26 003F
-4B26 0061
-4B26 0041
-4B26 0062
-4B27 0021
-4B27 003F
-4B27 0061
-4B27 0041
-4B27 0062
-4B28 0021
-4B28 003F
-4B28 0061
-4B28 0041
-4B28 0062
-4B29 0021
-4B29 003F
-4B29 0061
-4B29 0041
-4B29 0062
-4B2A 0021
-4B2A 003F
-4B2A 0061
-4B2A 0041
-4B2A 0062
-4B2B 0021
-4B2B 003F
-4B2B 0061
-4B2B 0041
-4B2B 0062
-4B2C 0021
-4B2C 003F
-4B2C 0061
-4B2C 0041
-4B2C 0062
-4B2D 0021
-4B2D 003F
-4B2D 0061
-4B2D 0041
-4B2D 0062
-4B2E 0021
-4B2E 003F
-4B2E 0061
-4B2E 0041
-4B2E 0062
-4B2F 0021
-4B2F 003F
-4B2F 0061
-4B2F 0041
-4B2F 0062
-4B30 0021
-4B30 003F
-4B30 0061
-4B30 0041
-4B30 0062
-4B31 0021
-4B31 003F
-4B31 0061
-4B31 0041
-4B31 0062
-4B32 0021
-4B32 003F
-4B32 0061
-4B32 0041
-4B32 0062
-4B33 0021
-2FA03 0021
-4B33 003F
-2FA03 003F
-2FA03 0334
-4B33 0061
-2FA03 0061
-4B33 0041
-2FA03 0041
-4B33 0062
-2FA03 0062
-4B34 0021
-4B34 003F
-4B34 0061
-4B34 0041
-4B34 0062
-4B35 0021
-4B35 003F
-4B35 0061
-4B35 0041
-4B35 0062
-4B36 0021
-4B36 003F
-4B36 0061
-4B36 0041
-4B36 0062
-4B37 0021
-4B37 003F
-4B37 0061
-4B37 0041
-4B37 0062
-4B38 0021
-4B38 003F
-4B38 0061
-4B38 0041
-4B38 0062
-4B39 0021
-4B39 003F
-4B39 0061
-4B39 0041
-4B39 0062
-4B3A 0021
-4B3A 003F
-4B3A 0061
-4B3A 0041
-4B3A 0062
-4B3B 0021
-4B3B 003F
-4B3B 0061
-4B3B 0041
-4B3B 0062
-4B3C 0021
-4B3C 003F
-4B3C 0061
-4B3C 0041
-4B3C 0062
-4B3D 0021
-4B3D 003F
-4B3D 0061
-4B3D 0041
-4B3D 0062
-4B3E 0021
-4B3E 003F
-4B3E 0061
-4B3E 0041
-4B3E 0062
-4B3F 0021
-4B3F 003F
-4B3F 0061
-4B3F 0041
-4B3F 0062
-4B40 0021
-4B40 003F
-4B40 0061
-4B40 0041
-4B40 0062
-4B41 0021
-4B41 003F
-4B41 0061
-4B41 0041
-4B41 0062
-4B42 0021
-4B42 003F
-4B42 0061
-4B42 0041
-4B42 0062
-4B43 0021
-4B43 003F
-4B43 0061
-4B43 0041
-4B43 0062
-4B44 0021
-4B44 003F
-4B44 0061
-4B44 0041
-4B44 0062
-4B45 0021
-4B45 003F
-4B45 0061
-4B45 0041
-4B45 0062
-4B46 0021
-4B46 003F
-4B46 0061
-4B46 0041
-4B46 0062
-4B47 0021
-4B47 003F
-4B47 0061
-4B47 0041
-4B47 0062
-4B48 0021
-4B48 003F
-4B48 0061
-4B48 0041
-4B48 0062
-4B49 0021
-4B49 003F
-4B49 0061
-4B49 0041
-4B49 0062
-4B4A 0021
-4B4A 003F
-4B4A 0061
-4B4A 0041
-4B4A 0062
-4B4B 0021
-4B4B 003F
-4B4B 0061
-4B4B 0041
-4B4B 0062
-4B4C 0021
-4B4C 003F
-4B4C 0061
-4B4C 0041
-4B4C 0062
-4B4D 0021
-4B4D 003F
-4B4D 0061
-4B4D 0041
-4B4D 0062
-4B4E 0021
-4B4E 003F
-4B4E 0061
-4B4E 0041
-4B4E 0062
-4B4F 0021
-4B4F 003F
-4B4F 0061
-4B4F 0041
-4B4F 0062
-4B50 0021
-4B50 003F
-4B50 0061
-4B50 0041
-4B50 0062
-4B51 0021
-4B51 003F
-4B51 0061
-4B51 0041
-4B51 0062
-4B52 0021
-4B52 003F
-4B52 0061
-4B52 0041
-4B52 0062
-4B53 0021
-4B53 003F
-4B53 0061
-4B53 0041
-4B53 0062
-4B54 0021
-4B54 003F
-4B54 0061
-4B54 0041
-4B54 0062
-4B55 0021
-4B55 003F
-4B55 0061
-4B55 0041
-4B55 0062
-4B56 0021
-4B56 003F
-4B56 0061
-4B56 0041
-4B56 0062
-4B57 0021
-4B57 003F
-4B57 0061
-4B57 0041
-4B57 0062
-4B58 0021
-4B58 003F
-4B58 0061
-4B58 0041
-4B58 0062
-4B59 0021
-4B59 003F
-4B59 0061
-4B59 0041
-4B59 0062
-4B5A 0021
-4B5A 003F
-4B5A 0061
-4B5A 0041
-4B5A 0062
-4B5B 0021
-4B5B 003F
-4B5B 0061
-4B5B 0041
-4B5B 0062
-4B5C 0021
-4B5C 003F
-4B5C 0061
-4B5C 0041
-4B5C 0062
-4B5D 0021
-4B5D 003F
-4B5D 0061
-4B5D 0041
-4B5D 0062
-4B5E 0021
-4B5E 003F
-4B5E 0061
-4B5E 0041
-4B5E 0062
-4B5F 0021
-4B5F 003F
-4B5F 0061
-4B5F 0041
-4B5F 0062
-4B60 0021
-4B60 003F
-4B60 0061
-4B60 0041
-4B60 0062
-4B61 0021
-4B61 003F
-4B61 0061
-4B61 0041
-4B61 0062
-4B62 0021
-4B62 003F
-4B62 0061
-4B62 0041
-4B62 0062
-4B63 0021
-4B63 003F
-4B63 0061
-4B63 0041
-4B63 0062
-4B64 0021
-4B64 003F
-4B64 0061
-4B64 0041
-4B64 0062
-4B65 0021
-4B65 003F
-4B65 0061
-4B65 0041
-4B65 0062
-4B66 0021
-4B66 003F
-4B66 0061
-4B66 0041
-4B66 0062
-4B67 0021
-4B67 003F
-4B67 0061
-4B67 0041
-4B67 0062
-4B68 0021
-4B68 003F
-4B68 0061
-4B68 0041
-4B68 0062
-4B69 0021
-4B69 003F
-4B69 0061
-4B69 0041
-4B69 0062
-4B6A 0021
-4B6A 003F
-4B6A 0061
-4B6A 0041
-4B6A 0062
-4B6B 0021
-4B6B 003F
-4B6B 0061
-4B6B 0041
-4B6B 0062
-4B6C 0021
-4B6C 003F
-4B6C 0061
-4B6C 0041
-4B6C 0062
-4B6D 0021
-4B6D 003F
-4B6D 0061
-4B6D 0041
-4B6D 0062
-4B6E 0021
-4B6E 003F
-4B6E 0061
-4B6E 0041
-4B6E 0062
-4B6F 0021
-4B6F 003F
-4B6F 0061
-4B6F 0041
-4B6F 0062
-4B70 0021
-4B70 003F
-4B70 0061
-4B70 0041
-4B70 0062
-4B71 0021
-4B71 003F
-4B71 0061
-4B71 0041
-4B71 0062
-4B72 0021
-4B72 003F
-4B72 0061
-4B72 0041
-4B72 0062
-4B73 0021
-4B73 003F
-4B73 0061
-4B73 0041
-4B73 0062
-4B74 0021
-4B74 003F
-4B74 0061
-4B74 0041
-4B74 0062
-4B75 0021
-4B75 003F
-4B75 0061
-4B75 0041
-4B75 0062
-4B76 0021
-4B76 003F
-4B76 0061
-4B76 0041
-4B76 0062
-4B77 0021
-4B77 003F
-4B77 0061
-4B77 0041
-4B77 0062
-4B78 0021
-4B78 003F
-4B78 0061
-4B78 0041
-4B78 0062
-4B79 0021
-4B79 003F
-4B79 0061
-4B79 0041
-4B79 0062
-4B7A 0021
-4B7A 003F
-4B7A 0061
-4B7A 0041
-4B7A 0062
-4B7B 0021
-4B7B 003F
-4B7B 0061
-4B7B 0041
-4B7B 0062
-4B7C 0021
-4B7C 003F
-4B7C 0061
-4B7C 0041
-4B7C 0062
-4B7D 0021
-4B7D 003F
-4B7D 0061
-4B7D 0041
-4B7D 0062
-4B7E 0021
-4B7E 003F
-4B7E 0061
-4B7E 0041
-4B7E 0062
-4B7F 0021
-4B7F 003F
-4B7F 0061
-4B7F 0041
-4B7F 0062
-4B80 0021
-4B80 003F
-4B80 0061
-4B80 0041
-4B80 0062
-4B81 0021
-4B81 003F
-4B81 0061
-4B81 0041
-4B81 0062
-4B82 0021
-4B82 003F
-4B82 0061
-4B82 0041
-4B82 0062
-4B83 0021
-4B83 003F
-4B83 0061
-4B83 0041
-4B83 0062
-4B84 0021
-4B84 003F
-4B84 0061
-4B84 0041
-4B84 0062
-4B85 0021
-4B85 003F
-4B85 0061
-4B85 0041
-4B85 0062
-4B86 0021
-4B86 003F
-4B86 0061
-4B86 0041
-4B86 0062
-4B87 0021
-4B87 003F
-4B87 0061
-4B87 0041
-4B87 0062
-4B88 0021
-4B88 003F
-4B88 0061
-4B88 0041
-4B88 0062
-4B89 0021
-4B89 003F
-4B89 0061
-4B89 0041
-4B89 0062
-4B8A 0021
-4B8A 003F
-4B8A 0061
-4B8A 0041
-4B8A 0062
-4B8B 0021
-4B8B 003F
-4B8B 0061
-4B8B 0041
-4B8B 0062
-4B8C 0021
-4B8C 003F
-4B8C 0061
-4B8C 0041
-4B8C 0062
-4B8D 0021
-4B8D 003F
-4B8D 0061
-4B8D 0041
-4B8D 0062
-4B8E 0021
-4B8E 003F
-4B8E 0061
-4B8E 0041
-4B8E 0062
-4B8F 0021
-4B8F 003F
-4B8F 0061
-4B8F 0041
-4B8F 0062
-4B90 0021
-4B90 003F
-4B90 0061
-4B90 0041
-4B90 0062
-4B91 0021
-4B91 003F
-4B91 0061
-4B91 0041
-4B91 0062
-4B92 0021
-4B92 003F
-4B92 0061
-4B92 0041
-4B92 0062
-4B93 0021
-4B93 003F
-4B93 0061
-4B93 0041
-4B93 0062
-4B94 0021
-4B94 003F
-4B94 0061
-4B94 0041
-4B94 0062
-4B95 0021
-4B95 003F
-4B95 0061
-4B95 0041
-4B95 0062
-4B96 0021
-4B96 003F
-4B96 0061
-4B96 0041
-4B96 0062
-4B97 0021
-4B97 003F
-4B97 0061
-4B97 0041
-4B97 0062
-4B98 0021
-4B98 003F
-4B98 0061
-4B98 0041
-4B98 0062
-4B99 0021
-4B99 003F
-4B99 0061
-4B99 0041
-4B99 0062
-4B9A 0021
-4B9A 003F
-4B9A 0061
-4B9A 0041
-4B9A 0062
-4B9B 0021
-4B9B 003F
-4B9B 0061
-4B9B 0041
-4B9B 0062
-4B9C 0021
-4B9C 003F
-4B9C 0061
-4B9C 0041
-4B9C 0062
-4B9D 0021
-4B9D 003F
-4B9D 0061
-4B9D 0041
-4B9D 0062
-4B9E 0021
-4B9E 003F
-4B9E 0061
-4B9E 0041
-4B9E 0062
-4B9F 0021
-4B9F 003F
-4B9F 0061
-4B9F 0041
-4B9F 0062
-4BA0 0021
-4BA0 003F
-4BA0 0061
-4BA0 0041
-4BA0 0062
-4BA1 0021
-4BA1 003F
-4BA1 0061
-4BA1 0041
-4BA1 0062
-4BA2 0021
-4BA2 003F
-4BA2 0061
-4BA2 0041
-4BA2 0062
-4BA3 0021
-4BA3 003F
-4BA3 0061
-4BA3 0041
-4BA3 0062
-4BA4 0021
-4BA4 003F
-4BA4 0061
-4BA4 0041
-4BA4 0062
-4BA5 0021
-4BA5 003F
-4BA5 0061
-4BA5 0041
-4BA5 0062
-4BA6 0021
-4BA6 003F
-4BA6 0061
-4BA6 0041
-4BA6 0062
-4BA7 0021
-4BA7 003F
-4BA7 0061
-4BA7 0041
-4BA7 0062
-4BA8 0021
-4BA8 003F
-4BA8 0061
-4BA8 0041
-4BA8 0062
-4BA9 0021
-4BA9 003F
-4BA9 0061
-4BA9 0041
-4BA9 0062
-4BAA 0021
-4BAA 003F
-4BAA 0061
-4BAA 0041
-4BAA 0062
-4BAB 0021
-4BAB 003F
-4BAB 0061
-4BAB 0041
-4BAB 0062
-4BAC 0021
-4BAC 003F
-4BAC 0061
-4BAC 0041
-4BAC 0062
-4BAD 0021
-4BAD 003F
-4BAD 0061
-4BAD 0041
-4BAD 0062
-4BAE 0021
-4BAE 003F
-4BAE 0061
-4BAE 0041
-4BAE 0062
-4BAF 0021
-4BAF 003F
-4BAF 0061
-4BAF 0041
-4BAF 0062
-4BB0 0021
-4BB0 003F
-4BB0 0061
-4BB0 0041
-4BB0 0062
-4BB1 0021
-4BB1 003F
-4BB1 0061
-4BB1 0041
-4BB1 0062
-4BB2 0021
-4BB2 003F
-4BB2 0061
-4BB2 0041
-4BB2 0062
-4BB3 0021
-4BB3 003F
-4BB3 0061
-4BB3 0041
-4BB3 0062
-4BB4 0021
-4BB4 003F
-4BB4 0061
-4BB4 0041
-4BB4 0062
-4BB5 0021
-4BB5 003F
-4BB5 0061
-4BB5 0041
-4BB5 0062
-4BB6 0021
-4BB6 003F
-4BB6 0061
-4BB6 0041
-4BB6 0062
-4BB7 0021
-4BB7 003F
-4BB7 0061
-4BB7 0041
-4BB7 0062
-4BB8 0021
-4BB8 003F
-4BB8 0061
-4BB8 0041
-4BB8 0062
-4BB9 0021
-4BB9 003F
-4BB9 0061
-4BB9 0041
-4BB9 0062
-4BBA 0021
-4BBA 003F
-4BBA 0061
-4BBA 0041
-4BBA 0062
-4BBB 0021
-4BBB 003F
-4BBB 0061
-4BBB 0041
-4BBB 0062
-4BBC 0021
-4BBC 003F
-4BBC 0061
-4BBC 0041
-4BBC 0062
-4BBD 0021
-4BBD 003F
-4BBD 0061
-4BBD 0041
-4BBD 0062
-4BBE 0021
-4BBE 003F
-4BBE 0061
-4BBE 0041
-4BBE 0062
-4BBF 0021
-4BBF 003F
-4BBF 0061
-4BBF 0041
-4BBF 0062
-4BC0 0021
-4BC0 003F
-4BC0 0061
-4BC0 0041
-4BC0 0062
-4BC1 0021
-4BC1 003F
-4BC1 0061
-4BC1 0041
-4BC1 0062
-4BC2 0021
-4BC2 003F
-4BC2 0061
-4BC2 0041
-4BC2 0062
-4BC3 0021
-4BC3 003F
-4BC3 0061
-4BC3 0041
-4BC3 0062
-4BC4 0021
-4BC4 003F
-4BC4 0061
-4BC4 0041
-4BC4 0062
-4BC5 0021
-4BC5 003F
-4BC5 0061
-4BC5 0041
-4BC5 0062
-4BC6 0021
-4BC6 003F
-4BC6 0061
-4BC6 0041
-4BC6 0062
-4BC7 0021
-4BC7 003F
-4BC7 0061
-4BC7 0041
-4BC7 0062
-4BC8 0021
-4BC8 003F
-4BC8 0061
-4BC8 0041
-4BC8 0062
-4BC9 0021
-4BC9 003F
-4BC9 0061
-4BC9 0041
-4BC9 0062
-4BCA 0021
-4BCA 003F
-4BCA 0061
-4BCA 0041
-4BCA 0062
-4BCB 0021
-4BCB 003F
-4BCB 0061
-4BCB 0041
-4BCB 0062
-4BCC 0021
-4BCC 003F
-4BCC 0061
-4BCC 0041
-4BCC 0062
-4BCD 0021
-4BCD 003F
-4BCD 0061
-4BCD 0041
-4BCD 0062
-4BCE 0021
-2FA08 0021
-4BCE 003F
-2FA08 003F
-2FA08 0334
-4BCE 0061
-2FA08 0061
-4BCE 0041
-2FA08 0041
-4BCE 0062
-2FA08 0062
-4BCF 0021
-4BCF 003F
-4BCF 0061
-4BCF 0041
-4BCF 0062
-4BD0 0021
-4BD0 003F
-4BD0 0061
-4BD0 0041
-4BD0 0062
-4BD1 0021
-4BD1 003F
-4BD1 0061
-4BD1 0041
-4BD1 0062
-4BD2 0021
-4BD2 003F
-4BD2 0061
-4BD2 0041
-4BD2 0062
-4BD3 0021
-4BD3 003F
-4BD3 0061
-4BD3 0041
-4BD3 0062
-4BD4 0021
-4BD4 003F
-4BD4 0061
-4BD4 0041
-4BD4 0062
-4BD5 0021
-4BD5 003F
-4BD5 0061
-4BD5 0041
-4BD5 0062
-4BD6 0021
-4BD6 003F
-4BD6 0061
-4BD6 0041
-4BD6 0062
-4BD7 0021
-4BD7 003F
-4BD7 0061
-4BD7 0041
-4BD7 0062
-4BD8 0021
-4BD8 003F
-4BD8 0061
-4BD8 0041
-4BD8 0062
-4BD9 0021
-4BD9 003F
-4BD9 0061
-4BD9 0041
-4BD9 0062
-4BDA 0021
-4BDA 003F
-4BDA 0061
-4BDA 0041
-4BDA 0062
-4BDB 0021
-4BDB 003F
-4BDB 0061
-4BDB 0041
-4BDB 0062
-4BDC 0021
-4BDC 003F
-4BDC 0061
-4BDC 0041
-4BDC 0062
-4BDD 0021
-4BDD 003F
-4BDD 0061
-4BDD 0041
-4BDD 0062
-4BDE 0021
-4BDE 003F
-4BDE 0061
-4BDE 0041
-4BDE 0062
-4BDF 0021
-4BDF 003F
-4BDF 0061
-4BDF 0041
-4BDF 0062
-4BE0 0021
-4BE0 003F
-4BE0 0061
-4BE0 0041
-4BE0 0062
-4BE1 0021
-4BE1 003F
-4BE1 0061
-4BE1 0041
-4BE1 0062
-4BE2 0021
-4BE2 003F
-4BE2 0061
-4BE2 0041
-4BE2 0062
-4BE3 0021
-4BE3 003F
-4BE3 0061
-4BE3 0041
-4BE3 0062
-4BE4 0021
-4BE4 003F
-4BE4 0061
-4BE4 0041
-4BE4 0062
-4BE5 0021
-4BE5 003F
-4BE5 0061
-4BE5 0041
-4BE5 0062
-4BE6 0021
-4BE6 003F
-4BE6 0061
-4BE6 0041
-4BE6 0062
-4BE7 0021
-4BE7 003F
-4BE7 0061
-4BE7 0041
-4BE7 0062
-4BE8 0021
-4BE8 003F
-4BE8 0061
-4BE8 0041
-4BE8 0062
-4BE9 0021
-4BE9 003F
-4BE9 0061
-4BE9 0041
-4BE9 0062
-4BEA 0021
-4BEA 003F
-4BEA 0061
-4BEA 0041
-4BEA 0062
-4BEB 0021
-4BEB 003F
-4BEB 0061
-4BEB 0041
-4BEB 0062
-4BEC 0021
-4BEC 003F
-4BEC 0061
-4BEC 0041
-4BEC 0062
-4BED 0021
-4BED 003F
-4BED 0061
-4BED 0041
-4BED 0062
-4BEE 0021
-4BEE 003F
-4BEE 0061
-4BEE 0041
-4BEE 0062
-4BEF 0021
-4BEF 003F
-4BEF 0061
-4BEF 0041
-4BEF 0062
-4BF0 0021
-4BF0 003F
-4BF0 0061
-4BF0 0041
-4BF0 0062
-4BF1 0021
-4BF1 003F
-4BF1 0061
-4BF1 0041
-4BF1 0062
-4BF2 0021
-4BF2 003F
-4BF2 0061
-4BF2 0041
-4BF2 0062
-4BF3 0021
-4BF3 003F
-4BF3 0061
-4BF3 0041
-4BF3 0062
-4BF4 0021
-4BF4 003F
-4BF4 0061
-4BF4 0041
-4BF4 0062
-4BF5 0021
-4BF5 003F
-4BF5 0061
-4BF5 0041
-4BF5 0062
-4BF6 0021
-4BF6 003F
-4BF6 0061
-4BF6 0041
-4BF6 0062
-4BF7 0021
-4BF7 003F
-4BF7 0061
-4BF7 0041
-4BF7 0062
-4BF8 0021
-4BF8 003F
-4BF8 0061
-4BF8 0041
-4BF8 0062
-4BF9 0021
-4BF9 003F
-4BF9 0061
-4BF9 0041
-4BF9 0062
-4BFA 0021
-4BFA 003F
-4BFA 0061
-4BFA 0041
-4BFA 0062
-4BFB 0021
-4BFB 003F
-4BFB 0061
-4BFB 0041
-4BFB 0062
-4BFC 0021
-4BFC 003F
-4BFC 0061
-4BFC 0041
-4BFC 0062
-4BFD 0021
-4BFD 003F
-4BFD 0061
-4BFD 0041
-4BFD 0062
-4BFE 0021
-4BFE 003F
-4BFE 0061
-4BFE 0041
-4BFE 0062
-4BFF 0021
-4BFF 003F
-4BFF 0061
-4BFF 0041
-4BFF 0062
-4C00 0021
-4C00 003F
-4C00 0061
-4C00 0041
-4C00 0062
-4C01 0021
-4C01 003F
-4C01 0061
-4C01 0041
-4C01 0062
-4C02 0021
-4C02 003F
-4C02 0061
-4C02 0041
-4C02 0062
-4C03 0021
-4C03 003F
-4C03 0061
-4C03 0041
-4C03 0062
-4C04 0021
-4C04 003F
-4C04 0061
-4C04 0041
-4C04 0062
-4C05 0021
-4C05 003F
-4C05 0061
-4C05 0041
-4C05 0062
-4C06 0021
-4C06 003F
-4C06 0061
-4C06 0041
-4C06 0062
-4C07 0021
-4C07 003F
-4C07 0061
-4C07 0041
-4C07 0062
-4C08 0021
-4C08 003F
-4C08 0061
-4C08 0041
-4C08 0062
-4C09 0021
-4C09 003F
-4C09 0061
-4C09 0041
-4C09 0062
-4C0A 0021
-4C0A 003F
-4C0A 0061
-4C0A 0041
-4C0A 0062
-4C0B 0021
-4C0B 003F
-4C0B 0061
-4C0B 0041
-4C0B 0062
-4C0C 0021
-4C0C 003F
-4C0C 0061
-4C0C 0041
-4C0C 0062
-4C0D 0021
-4C0D 003F
-4C0D 0061
-4C0D 0041
-4C0D 0062
-4C0E 0021
-4C0E 003F
-4C0E 0061
-4C0E 0041
-4C0E 0062
-4C0F 0021
-4C0F 003F
-4C0F 0061
-4C0F 0041
-4C0F 0062
-4C10 0021
-4C10 003F
-4C10 0061
-4C10 0041
-4C10 0062
-4C11 0021
-4C11 003F
-4C11 0061
-4C11 0041
-4C11 0062
-4C12 0021
-4C12 003F
-4C12 0061
-4C12 0041
-4C12 0062
-4C13 0021
-4C13 003F
-4C13 0061
-4C13 0041
-4C13 0062
-4C14 0021
-4C14 003F
-4C14 0061
-4C14 0041
-4C14 0062
-4C15 0021
-4C15 003F
-4C15 0061
-4C15 0041
-4C15 0062
-4C16 0021
-4C16 003F
-4C16 0061
-4C16 0041
-4C16 0062
-4C17 0021
-4C17 003F
-4C17 0061
-4C17 0041
-4C17 0062
-4C18 0021
-4C18 003F
-4C18 0061
-4C18 0041
-4C18 0062
-4C19 0021
-4C19 003F
-4C19 0061
-4C19 0041
-4C19 0062
-4C1A 0021
-4C1A 003F
-4C1A 0061
-4C1A 0041
-4C1A 0062
-4C1B 0021
-4C1B 003F
-4C1B 0061
-4C1B 0041
-4C1B 0062
-4C1C 0021
-4C1C 003F
-4C1C 0061
-4C1C 0041
-4C1C 0062
-4C1D 0021
-4C1D 003F
-4C1D 0061
-4C1D 0041
-4C1D 0062
-4C1E 0021
-4C1E 003F
-4C1E 0061
-4C1E 0041
-4C1E 0062
-4C1F 0021
-4C1F 003F
-4C1F 0061
-4C1F 0041
-4C1F 0062
-4C20 0021
-4C20 003F
-4C20 0061
-4C20 0041
-4C20 0062
-4C21 0021
-4C21 003F
-4C21 0061
-4C21 0041
-4C21 0062
-4C22 0021
-4C22 003F
-4C22 0061
-4C22 0041
-4C22 0062
-4C23 0021
-4C23 003F
-4C23 0061
-4C23 0041
-4C23 0062
-4C24 0021
-4C24 003F
-4C24 0061
-4C24 0041
-4C24 0062
-4C25 0021
-4C25 003F
-4C25 0061
-4C25 0041
-4C25 0062
-4C26 0021
-4C26 003F
-4C26 0061
-4C26 0041
-4C26 0062
-4C27 0021
-4C27 003F
-4C27 0061
-4C27 0041
-4C27 0062
-4C28 0021
-4C28 003F
-4C28 0061
-4C28 0041
-4C28 0062
-4C29 0021
-4C29 003F
-4C29 0061
-4C29 0041
-4C29 0062
-4C2A 0021
-4C2A 003F
-4C2A 0061
-4C2A 0041
-4C2A 0062
-4C2B 0021
-4C2B 003F
-4C2B 0061
-4C2B 0041
-4C2B 0062
-4C2C 0021
-4C2C 003F
-4C2C 0061
-4C2C 0041
-4C2C 0062
-4C2D 0021
-4C2D 003F
-4C2D 0061
-4C2D 0041
-4C2D 0062
-4C2E 0021
-4C2E 003F
-4C2E 0061
-4C2E 0041
-4C2E 0062
-4C2F 0021
-4C2F 003F
-4C2F 0061
-4C2F 0041
-4C2F 0062
-4C30 0021
-4C30 003F
-4C30 0061
-4C30 0041
-4C30 0062
-4C31 0021
-4C31 003F
-4C31 0061
-4C31 0041
-4C31 0062
-4C32 0021
-4C32 003F
-4C32 0061
-4C32 0041
-4C32 0062
-4C33 0021
-4C33 003F
-4C33 0061
-4C33 0041
-4C33 0062
-4C34 0021
-4C34 003F
-4C34 0061
-4C34 0041
-4C34 0062
-4C35 0021
-4C35 003F
-4C35 0061
-4C35 0041
-4C35 0062
-4C36 0021
-4C36 003F
-4C36 0061
-4C36 0041
-4C36 0062
-4C37 0021
-4C37 003F
-4C37 0061
-4C37 0041
-4C37 0062
-4C38 0021
-4C38 003F
-4C38 0061
-4C38 0041
-4C38 0062
-4C39 0021
-4C39 003F
-4C39 0061
-4C39 0041
-4C39 0062
-4C3A 0021
-4C3A 003F
-4C3A 0061
-4C3A 0041
-4C3A 0062
-4C3B 0021
-4C3B 003F
-4C3B 0061
-4C3B 0041
-4C3B 0062
-4C3C 0021
-4C3C 003F
-4C3C 0061
-4C3C 0041
-4C3C 0062
-4C3D 0021
-4C3D 003F
-4C3D 0061
-4C3D 0041
-4C3D 0062
-4C3E 0021
-4C3E 003F
-4C3E 0061
-4C3E 0041
-4C3E 0062
-4C3F 0021
-4C3F 003F
-4C3F 0061
-4C3F 0041
-4C3F 0062
-4C40 0021
-4C40 003F
-4C40 0061
-4C40 0041
-4C40 0062
-4C41 0021
-4C41 003F
-4C41 0061
-4C41 0041
-4C41 0062
-4C42 0021
-4C42 003F
-4C42 0061
-4C42 0041
-4C42 0062
-4C43 0021
-4C43 003F
-4C43 0061
-4C43 0041
-4C43 0062
-4C44 0021
-4C44 003F
-4C44 0061
-4C44 0041
-4C44 0062
-4C45 0021
-4C45 003F
-4C45 0061
-4C45 0041
-4C45 0062
-4C46 0021
-4C46 003F
-4C46 0061
-4C46 0041
-4C46 0062
-4C47 0021
-4C47 003F
-4C47 0061
-4C47 0041
-4C47 0062
-4C48 0021
-4C48 003F
-4C48 0061
-4C48 0041
-4C48 0062
-4C49 0021
-4C49 003F
-4C49 0061
-4C49 0041
-4C49 0062
-4C4A 0021
-4C4A 003F
-4C4A 0061
-4C4A 0041
-4C4A 0062
-4C4B 0021
-4C4B 003F
-4C4B 0061
-4C4B 0041
-4C4B 0062
-4C4C 0021
-4C4C 003F
-4C4C 0061
-4C4C 0041
-4C4C 0062
-4C4D 0021
-4C4D 003F
-4C4D 0061
-4C4D 0041
-4C4D 0062
-4C4E 0021
-4C4E 003F
-4C4E 0061
-4C4E 0041
-4C4E 0062
-4C4F 0021
-4C4F 003F
-4C4F 0061
-4C4F 0041
-4C4F 0062
-4C50 0021
-4C50 003F
-4C50 0061
-4C50 0041
-4C50 0062
-4C51 0021
-4C51 003F
-4C51 0061
-4C51 0041
-4C51 0062
-4C52 0021
-4C52 003F
-4C52 0061
-4C52 0041
-4C52 0062
-4C53 0021
-4C53 003F
-4C53 0061
-4C53 0041
-4C53 0062
-4C54 0021
-4C54 003F
-4C54 0061
-4C54 0041
-4C54 0062
-4C55 0021
-4C55 003F
-4C55 0061
-4C55 0041
-4C55 0062
-4C56 0021
-4C56 003F
-4C56 0061
-4C56 0041
-4C56 0062
-4C57 0021
-4C57 003F
-4C57 0061
-4C57 0041
-4C57 0062
-4C58 0021
-4C58 003F
-4C58 0061
-4C58 0041
-4C58 0062
-4C59 0021
-4C59 003F
-4C59 0061
-4C59 0041
-4C59 0062
-4C5A 0021
-4C5A 003F
-4C5A 0061
-4C5A 0041
-4C5A 0062
-4C5B 0021
-4C5B 003F
-4C5B 0061
-4C5B 0041
-4C5B 0062
-4C5C 0021
-4C5C 003F
-4C5C 0061
-4C5C 0041
-4C5C 0062
-4C5D 0021
-4C5D 003F
-4C5D 0061
-4C5D 0041
-4C5D 0062
-4C5E 0021
-4C5E 003F
-4C5E 0061
-4C5E 0041
-4C5E 0062
-4C5F 0021
-4C5F 003F
-4C5F 0061
-4C5F 0041
-4C5F 0062
-4C60 0021
-4C60 003F
-4C60 0061
-4C60 0041
-4C60 0062
-4C61 0021
-4C61 003F
-4C61 0061
-4C61 0041
-4C61 0062
-4C62 0021
-4C62 003F
-4C62 0061
-4C62 0041
-4C62 0062
-4C63 0021
-4C63 003F
-4C63 0061
-4C63 0041
-4C63 0062
-4C64 0021
-4C64 003F
-4C64 0061
-4C64 0041
-4C64 0062
-4C65 0021
-4C65 003F
-4C65 0061
-4C65 0041
-4C65 0062
-4C66 0021
-4C66 003F
-4C66 0061
-4C66 0041
-4C66 0062
-4C67 0021
-4C67 003F
-4C67 0061
-4C67 0041
-4C67 0062
-4C68 0021
-4C68 003F
-4C68 0061
-4C68 0041
-4C68 0062
-4C69 0021
-4C69 003F
-4C69 0061
-4C69 0041
-4C69 0062
-4C6A 0021
-4C6A 003F
-4C6A 0061
-4C6A 0041
-4C6A 0062
-4C6B 0021
-4C6B 003F
-4C6B 0061
-4C6B 0041
-4C6B 0062
-4C6C 0021
-4C6C 003F
-4C6C 0061
-4C6C 0041
-4C6C 0062
-4C6D 0021
-4C6D 003F
-4C6D 0061
-4C6D 0041
-4C6D 0062
-4C6E 0021
-4C6E 003F
-4C6E 0061
-4C6E 0041
-4C6E 0062
-4C6F 0021
-4C6F 003F
-4C6F 0061
-4C6F 0041
-4C6F 0062
-4C70 0021
-4C70 003F
-4C70 0061
-4C70 0041
-4C70 0062
-4C71 0021
-4C71 003F
-4C71 0061
-4C71 0041
-4C71 0062
-4C72 0021
-4C72 003F
-4C72 0061
-4C72 0041
-4C72 0062
-4C73 0021
-4C73 003F
-4C73 0061
-4C73 0041
-4C73 0062
-4C74 0021
-4C74 003F
-4C74 0061
-4C74 0041
-4C74 0062
-4C75 0021
-4C75 003F
-4C75 0061
-4C75 0041
-4C75 0062
-4C76 0021
-4C76 003F
-4C76 0061
-4C76 0041
-4C76 0062
-4C77 0021
-4C77 003F
-4C77 0061
-4C77 0041
-4C77 0062
-4C78 0021
-4C78 003F
-4C78 0061
-4C78 0041
-4C78 0062
-4C79 0021
-4C79 003F
-4C79 0061
-4C79 0041
-4C79 0062
-4C7A 0021
-4C7A 003F
-4C7A 0061
-4C7A 0041
-4C7A 0062
-4C7B 0021
-4C7B 003F
-4C7B 0061
-4C7B 0041
-4C7B 0062
-4C7C 0021
-4C7C 003F
-4C7C 0061
-4C7C 0041
-4C7C 0062
-4C7D 0021
-4C7D 003F
-4C7D 0061
-4C7D 0041
-4C7D 0062
-4C7E 0021
-4C7E 003F
-4C7E 0061
-4C7E 0041
-4C7E 0062
-4C7F 0021
-4C7F 003F
-4C7F 0061
-4C7F 0041
-4C7F 0062
-4C80 0021
-4C80 003F
-4C80 0061
-4C80 0041
-4C80 0062
-4C81 0021
-4C81 003F
-4C81 0061
-4C81 0041
-4C81 0062
-4C82 0021
-4C82 003F
-4C82 0061
-4C82 0041
-4C82 0062
-4C83 0021
-4C83 003F
-4C83 0061
-4C83 0041
-4C83 0062
-4C84 0021
-4C84 003F
-4C84 0061
-4C84 0041
-4C84 0062
-4C85 0021
-4C85 003F
-4C85 0061
-4C85 0041
-4C85 0062
-4C86 0021
-4C86 003F
-4C86 0061
-4C86 0041
-4C86 0062
-4C87 0021
-4C87 003F
-4C87 0061
-4C87 0041
-4C87 0062
-4C88 0021
-4C88 003F
-4C88 0061
-4C88 0041
-4C88 0062
-4C89 0021
-4C89 003F
-4C89 0061
-4C89 0041
-4C89 0062
-4C8A 0021
-4C8A 003F
-4C8A 0061
-4C8A 0041
-4C8A 0062
-4C8B 0021
-4C8B 003F
-4C8B 0061
-4C8B 0041
-4C8B 0062
-4C8C 0021
-4C8C 003F
-4C8C 0061
-4C8C 0041
-4C8C 0062
-4C8D 0021
-4C8D 003F
-4C8D 0061
-4C8D 0041
-4C8D 0062
-4C8E 0021
-4C8E 003F
-4C8E 0061
-4C8E 0041
-4C8E 0062
-4C8F 0021
-4C8F 003F
-4C8F 0061
-4C8F 0041
-4C8F 0062
-4C90 0021
-4C90 003F
-4C90 0061
-4C90 0041
-4C90 0062
-4C91 0021
-4C91 003F
-4C91 0061
-4C91 0041
-4C91 0062
-4C92 0021
-4C92 003F
-4C92 0061
-4C92 0041
-4C92 0062
-4C93 0021
-4C93 003F
-4C93 0061
-4C93 0041
-4C93 0062
-4C94 0021
-4C94 003F
-4C94 0061
-4C94 0041
-4C94 0062
-4C95 0021
-4C95 003F
-4C95 0061
-4C95 0041
-4C95 0062
-4C96 0021
-4C96 003F
-4C96 0061
-4C96 0041
-4C96 0062
-4C97 0021
-4C97 003F
-4C97 0061
-4C97 0041
-4C97 0062
-4C98 0021
-4C98 003F
-4C98 0061
-4C98 0041
-4C98 0062
-4C99 0021
-4C99 003F
-4C99 0061
-4C99 0041
-4C99 0062
-4C9A 0021
-4C9A 003F
-4C9A 0061
-4C9A 0041
-4C9A 0062
-4C9B 0021
-4C9B 003F
-4C9B 0061
-4C9B 0041
-4C9B 0062
-4C9C 0021
-4C9C 003F
-4C9C 0061
-4C9C 0041
-4C9C 0062
-4C9D 0021
-4C9D 003F
-4C9D 0061
-4C9D 0041
-4C9D 0062
-4C9E 0021
-4C9E 003F
-4C9E 0061
-4C9E 0041
-4C9E 0062
-4C9F 0021
-4C9F 003F
-4C9F 0061
-4C9F 0041
-4C9F 0062
-4CA0 0021
-4CA0 003F
-4CA0 0061
-4CA0 0041
-4CA0 0062
-4CA1 0021
-4CA1 003F
-4CA1 0061
-4CA1 0041
-4CA1 0062
-4CA2 0021
-4CA2 003F
-4CA2 0061
-4CA2 0041
-4CA2 0062
-4CA3 0021
-4CA3 003F
-4CA3 0061
-4CA3 0041
-4CA3 0062
-4CA4 0021
-4CA4 003F
-4CA4 0061
-4CA4 0041
-4CA4 0062
-4CA5 0021
-4CA5 003F
-4CA5 0061
-4CA5 0041
-4CA5 0062
-4CA6 0021
-4CA6 003F
-4CA6 0061
-4CA6 0041
-4CA6 0062
-4CA7 0021
-4CA7 003F
-4CA7 0061
-4CA7 0041
-4CA7 0062
-4CA8 0021
-4CA8 003F
-4CA8 0061
-4CA8 0041
-4CA8 0062
-4CA9 0021
-4CA9 003F
-4CA9 0061
-4CA9 0041
-4CA9 0062
-4CAA 0021
-4CAA 003F
-4CAA 0061
-4CAA 0041
-4CAA 0062
-4CAB 0021
-4CAB 003F
-4CAB 0061
-4CAB 0041
-4CAB 0062
-4CAC 0021
-4CAC 003F
-4CAC 0061
-4CAC 0041
-4CAC 0062
-4CAD 0021
-4CAD 003F
-4CAD 0061
-4CAD 0041
-4CAD 0062
-4CAE 0021
-4CAE 003F
-4CAE 0061
-4CAE 0041
-4CAE 0062
-4CAF 0021
-4CAF 003F
-4CAF 0061
-4CAF 0041
-4CAF 0062
-4CB0 0021
-4CB0 003F
-4CB0 0061
-4CB0 0041
-4CB0 0062
-4CB1 0021
-4CB1 003F
-4CB1 0061
-4CB1 0041
-4CB1 0062
-4CB2 0021
-4CB2 003F
-4CB2 0061
-4CB2 0041
-4CB2 0062
-4CB3 0021
-4CB3 003F
-4CB3 0061
-4CB3 0041
-4CB3 0062
-4CB4 0021
-4CB4 003F
-4CB4 0061
-4CB4 0041
-4CB4 0062
-4CB5 0021
-4CB5 003F
-4CB5 0061
-4CB5 0041
-4CB5 0062
-4CB6 0021
-4CB6 003F
-4CB6 0061
-4CB6 0041
-4CB6 0062
-4CB7 0021
-4CB7 003F
-4CB7 0061
-4CB7 0041
-4CB7 0062
-4CB8 0021
-4CB8 003F
-4CB8 0061
-4CB8 0041
-4CB8 0062
-4CB9 0021
-4CB9 003F
-4CB9 0061
-4CB9 0041
-4CB9 0062
-4CBA 0021
-4CBA 003F
-4CBA 0061
-4CBA 0041
-4CBA 0062
-4CBB 0021
-4CBB 003F
-4CBB 0061
-4CBB 0041
-4CBB 0062
-4CBC 0021
-4CBC 003F
-4CBC 0061
-4CBC 0041
-4CBC 0062
-4CBD 0021
-4CBD 003F
-4CBD 0061
-4CBD 0041
-4CBD 0062
-4CBE 0021
-4CBE 003F
-4CBE 0061
-4CBE 0041
-4CBE 0062
-4CBF 0021
-4CBF 003F
-4CBF 0061
-4CBF 0041
-4CBF 0062
-4CC0 0021
-4CC0 003F
-4CC0 0061
-4CC0 0041
-4CC0 0062
-4CC1 0021
-4CC1 003F
-4CC1 0061
-4CC1 0041
-4CC1 0062
-4CC2 0021
-4CC2 003F
-4CC2 0061
-4CC2 0041
-4CC2 0062
-4CC3 0021
-4CC3 003F
-4CC3 0061
-4CC3 0041
-4CC3 0062
-4CC4 0021
-4CC4 003F
-4CC4 0061
-4CC4 0041
-4CC4 0062
-4CC5 0021
-4CC5 003F
-4CC5 0061
-4CC5 0041
-4CC5 0062
-4CC6 0021
-4CC6 003F
-4CC6 0061
-4CC6 0041
-4CC6 0062
-4CC7 0021
-4CC7 003F
-4CC7 0061
-4CC7 0041
-4CC7 0062
-4CC8 0021
-4CC8 003F
-4CC8 0061
-4CC8 0041
-4CC8 0062
-4CC9 0021
-4CC9 003F
-4CC9 0061
-4CC9 0041
-4CC9 0062
-4CCA 0021
-4CCA 003F
-4CCA 0061
-4CCA 0041
-4CCA 0062
-4CCB 0021
-4CCB 003F
-4CCB 0061
-4CCB 0041
-4CCB 0062
-4CCC 0021
-4CCC 003F
-4CCC 0061
-4CCC 0041
-4CCC 0062
-4CCD 0021
-4CCD 003F
-4CCD 0061
-4CCD 0041
-4CCD 0062
-4CCE 0021
-2FA0D 0021
-4CCE 003F
-2FA0D 003F
-2FA0D 0334
-4CCE 0061
-2FA0D 0061
-4CCE 0041
-2FA0D 0041
-4CCE 0062
-2FA0D 0062
-4CCF 0021
-4CCF 003F
-4CCF 0061
-4CCF 0041
-4CCF 0062
-4CD0 0021
-4CD0 003F
-4CD0 0061
-4CD0 0041
-4CD0 0062
-4CD1 0021
-4CD1 003F
-4CD1 0061
-4CD1 0041
-4CD1 0062
-4CD2 0021
-4CD2 003F
-4CD2 0061
-4CD2 0041
-4CD2 0062
-4CD3 0021
-4CD3 003F
-4CD3 0061
-4CD3 0041
-4CD3 0062
-4CD4 0021
-4CD4 003F
-4CD4 0061
-4CD4 0041
-4CD4 0062
-4CD5 0021
-4CD5 003F
-4CD5 0061
-4CD5 0041
-4CD5 0062
-4CD6 0021
-4CD6 003F
-4CD6 0061
-4CD6 0041
-4CD6 0062
-4CD7 0021
-4CD7 003F
-4CD7 0061
-4CD7 0041
-4CD7 0062
-4CD8 0021
-4CD8 003F
-4CD8 0061
-4CD8 0041
-4CD8 0062
-4CD9 0021
-4CD9 003F
-4CD9 0061
-4CD9 0041
-4CD9 0062
-4CDA 0021
-4CDA 003F
-4CDA 0061
-4CDA 0041
-4CDA 0062
-4CDB 0021
-4CDB 003F
-4CDB 0061
-4CDB 0041
-4CDB 0062
-4CDC 0021
-4CDC 003F
-4CDC 0061
-4CDC 0041
-4CDC 0062
-4CDD 0021
-4CDD 003F
-4CDD 0061
-4CDD 0041
-4CDD 0062
-4CDE 0021
-4CDE 003F
-4CDE 0061
-4CDE 0041
-4CDE 0062
-4CDF 0021
-4CDF 003F
-4CDF 0061
-4CDF 0041
-4CDF 0062
-4CE0 0021
-4CE0 003F
-4CE0 0061
-4CE0 0041
-4CE0 0062
-4CE1 0021
-4CE1 003F
-4CE1 0061
-4CE1 0041
-4CE1 0062
-4CE2 0021
-4CE2 003F
-4CE2 0061
-4CE2 0041
-4CE2 0062
-4CE3 0021
-4CE3 003F
-4CE3 0061
-4CE3 0041
-4CE3 0062
-4CE4 0021
-4CE4 003F
-4CE4 0061
-4CE4 0041
-4CE4 0062
-4CE5 0021
-4CE5 003F
-4CE5 0061
-4CE5 0041
-4CE5 0062
-4CE6 0021
-4CE6 003F
-4CE6 0061
-4CE6 0041
-4CE6 0062
-4CE7 0021
-4CE7 003F
-4CE7 0061
-4CE7 0041
-4CE7 0062
-4CE8 0021
-4CE8 003F
-4CE8 0061
-4CE8 0041
-4CE8 0062
-4CE9 0021
-4CE9 003F
-4CE9 0061
-4CE9 0041
-4CE9 0062
-4CEA 0021
-4CEA 003F
-4CEA 0061
-4CEA 0041
-4CEA 0062
-4CEB 0021
-4CEB 003F
-4CEB 0061
-4CEB 0041
-4CEB 0062
-4CEC 0021
-4CEC 003F
-4CEC 0061
-4CEC 0041
-4CEC 0062
-4CED 0021
-2FA0E 0021
-4CED 003F
-2FA0E 003F
-2FA0E 0334
-4CED 0061
-2FA0E 0061
-4CED 0041
-2FA0E 0041
-4CED 0062
-2FA0E 0062
-4CEE 0021
-4CEE 003F
-4CEE 0061
-4CEE 0041
-4CEE 0062
-4CEF 0021
-4CEF 003F
-4CEF 0061
-4CEF 0041
-4CEF 0062
-4CF0 0021
-4CF0 003F
-4CF0 0061
-4CF0 0041
-4CF0 0062
-4CF1 0021
-4CF1 003F
-4CF1 0061
-4CF1 0041
-4CF1 0062
-4CF2 0021
-4CF2 003F
-4CF2 0061
-4CF2 0041
-4CF2 0062
-4CF3 0021
-4CF3 003F
-4CF3 0061
-4CF3 0041
-4CF3 0062
-4CF4 0021
-4CF4 003F
-4CF4 0061
-4CF4 0041
-4CF4 0062
-4CF5 0021
-4CF5 003F
-4CF5 0061
-4CF5 0041
-4CF5 0062
-4CF6 0021
-4CF6 003F
-4CF6 0061
-4CF6 0041
-4CF6 0062
-4CF7 0021
-4CF7 003F
-4CF7 0061
-4CF7 0041
-4CF7 0062
-4CF8 0021
-2FA11 0021
-4CF8 003F
-2FA11 003F
-2FA11 0334
-4CF8 0061
-2FA11 0061
-4CF8 0041
-2FA11 0041
-4CF8 0062
-2FA11 0062
-4CF9 0021
-4CF9 003F
-4CF9 0061
-4CF9 0041
-4CF9 0062
-4CFA 0021
-4CFA 003F
-4CFA 0061
-4CFA 0041
-4CFA 0062
-4CFB 0021
-4CFB 003F
-4CFB 0061
-4CFB 0041
-4CFB 0062
-4CFC 0021
-4CFC 003F
-4CFC 0061
-4CFC 0041
-4CFC 0062
-4CFD 0021
-4CFD 003F
-4CFD 0061
-4CFD 0041
-4CFD 0062
-4CFE 0021
-4CFE 003F
-4CFE 0061
-4CFE 0041
-4CFE 0062
-4CFF 0021
-4CFF 003F
-4CFF 0061
-4CFF 0041
-4CFF 0062
-4D00 0021
-4D00 003F
-4D00 0061
-4D00 0041
-4D00 0062
-4D01 0021
-4D01 003F
-4D01 0061
-4D01 0041
-4D01 0062
-4D02 0021
-4D02 003F
-4D02 0061
-4D02 0041
-4D02 0062
-4D03 0021
-4D03 003F
-4D03 0061
-4D03 0041
-4D03 0062
-4D04 0021
-4D04 003F
-4D04 0061
-4D04 0041
-4D04 0062
-4D05 0021
-4D05 003F
-4D05 0061
-4D05 0041
-4D05 0062
-4D06 0021
-4D06 003F
-4D06 0061
-4D06 0041
-4D06 0062
-4D07 0021
-4D07 003F
-4D07 0061
-4D07 0041
-4D07 0062
-4D08 0021
-4D08 003F
-4D08 0061
-4D08 0041
-4D08 0062
-4D09 0021
-4D09 003F
-4D09 0061
-4D09 0041
-4D09 0062
-4D0A 0021
-4D0A 003F
-4D0A 0061
-4D0A 0041
-4D0A 0062
-4D0B 0021
-4D0B 003F
-4D0B 0061
-4D0B 0041
-4D0B 0062
-4D0C 0021
-4D0C 003F
-4D0C 0061
-4D0C 0041
-4D0C 0062
-4D0D 0021
-4D0D 003F
-4D0D 0061
-4D0D 0041
-4D0D 0062
-4D0E 0021
-4D0E 003F
-4D0E 0061
-4D0E 0041
-4D0E 0062
-4D0F 0021
-4D0F 003F
-4D0F 0061
-4D0F 0041
-4D0F 0062
-4D10 0021
-4D10 003F
-4D10 0061
-4D10 0041
-4D10 0062
-4D11 0021
-4D11 003F
-4D11 0061
-4D11 0041
-4D11 0062
-4D12 0021
-4D12 003F
-4D12 0061
-4D12 0041
-4D12 0062
-4D13 0021
-4D13 003F
-4D13 0061
-4D13 0041
-4D13 0062
-4D14 0021
-4D14 003F
-4D14 0061
-4D14 0041
-4D14 0062
-4D15 0021
-4D15 003F
-4D15 0061
-4D15 0041
-4D15 0062
-4D16 0021
-4D16 003F
-4D16 0061
-4D16 0041
-4D16 0062
-4D17 0021
-4D17 003F
-4D17 0061
-4D17 0041
-4D17 0062
-4D18 0021
-4D18 003F
-4D18 0061
-4D18 0041
-4D18 0062
-4D19 0021
-4D19 003F
-4D19 0061
-4D19 0041
-4D19 0062
-4D1A 0021
-4D1A 003F
-4D1A 0061
-4D1A 0041
-4D1A 0062
-4D1B 0021
-4D1B 003F
-4D1B 0061
-4D1B 0041
-4D1B 0062
-4D1C 0021
-4D1C 003F
-4D1C 0061
-4D1C 0041
-4D1C 0062
-4D1D 0021
-4D1D 003F
-4D1D 0061
-4D1D 0041
-4D1D 0062
-4D1E 0021
-4D1E 003F
-4D1E 0061
-4D1E 0041
-4D1E 0062
-4D1F 0021
-4D1F 003F
-4D1F 0061
-4D1F 0041
-4D1F 0062
-4D20 0021
-4D20 003F
-4D20 0061
-4D20 0041
-4D20 0062
-4D21 0021
-4D21 003F
-4D21 0061
-4D21 0041
-4D21 0062
-4D22 0021
-4D22 003F
-4D22 0061
-4D22 0041
-4D22 0062
-4D23 0021
-4D23 003F
-4D23 0061
-4D23 0041
-4D23 0062
-4D24 0021
-4D24 003F
-4D24 0061
-4D24 0041
-4D24 0062
-4D25 0021
-4D25 003F
-4D25 0061
-4D25 0041
-4D25 0062
-4D26 0021
-4D26 003F
-4D26 0061
-4D26 0041
-4D26 0062
-4D27 0021
-4D27 003F
-4D27 0061
-4D27 0041
-4D27 0062
-4D28 0021
-4D28 003F
-4D28 0061
-4D28 0041
-4D28 0062
-4D29 0021
-4D29 003F
-4D29 0061
-4D29 0041
-4D29 0062
-4D2A 0021
-4D2A 003F
-4D2A 0061
-4D2A 0041
-4D2A 0062
-4D2B 0021
-4D2B 003F
-4D2B 0061
-4D2B 0041
-4D2B 0062
-4D2C 0021
-4D2C 003F
-4D2C 0061
-4D2C 0041
-4D2C 0062
-4D2D 0021
-4D2D 003F
-4D2D 0061
-4D2D 0041
-4D2D 0062
-4D2E 0021
-4D2E 003F
-4D2E 0061
-4D2E 0041
-4D2E 0062
-4D2F 0021
-4D2F 003F
-4D2F 0061
-4D2F 0041
-4D2F 0062
-4D30 0021
-4D30 003F
-4D30 0061
-4D30 0041
-4D30 0062
-4D31 0021
-4D31 003F
-4D31 0061
-4D31 0041
-4D31 0062
-4D32 0021
-4D32 003F
-4D32 0061
-4D32 0041
-4D32 0062
-4D33 0021
-4D33 003F
-4D33 0061
-4D33 0041
-4D33 0062
-4D34 0021
-4D34 003F
-4D34 0061
-4D34 0041
-4D34 0062
-4D35 0021
-4D35 003F
-4D35 0061
-4D35 0041
-4D35 0062
-4D36 0021
-4D36 003F
-4D36 0061
-4D36 0041
-4D36 0062
-4D37 0021
-4D37 003F
-4D37 0061
-4D37 0041
-4D37 0062
-4D38 0021
-4D38 003F
-4D38 0061
-4D38 0041
-4D38 0062
-4D39 0021
-4D39 003F
-4D39 0061
-4D39 0041
-4D39 0062
-4D3A 0021
-4D3A 003F
-4D3A 0061
-4D3A 0041
-4D3A 0062
-4D3B 0021
-4D3B 003F
-4D3B 0061
-4D3B 0041
-4D3B 0062
-4D3C 0021
-4D3C 003F
-4D3C 0061
-4D3C 0041
-4D3C 0062
-4D3D 0021
-4D3D 003F
-4D3D 0061
-4D3D 0041
-4D3D 0062
-4D3E 0021
-4D3E 003F
-4D3E 0061
-4D3E 0041
-4D3E 0062
-4D3F 0021
-4D3F 003F
-4D3F 0061
-4D3F 0041
-4D3F 0062
-4D40 0021
-4D40 003F
-4D40 0061
-4D40 0041
-4D40 0062
-4D41 0021
-4D41 003F
-4D41 0061
-4D41 0041
-4D41 0062
-4D42 0021
-4D42 003F
-4D42 0061
-4D42 0041
-4D42 0062
-4D43 0021
-4D43 003F
-4D43 0061
-4D43 0041
-4D43 0062
-4D44 0021
-4D44 003F
-4D44 0061
-4D44 0041
-4D44 0062
-4D45 0021
-4D45 003F
-4D45 0061
-4D45 0041
-4D45 0062
-4D46 0021
-4D46 003F
-4D46 0061
-4D46 0041
-4D46 0062
-4D47 0021
-4D47 003F
-4D47 0061
-4D47 0041
-4D47 0062
-4D48 0021
-4D48 003F
-4D48 0061
-4D48 0041
-4D48 0062
-4D49 0021
-4D49 003F
-4D49 0061
-4D49 0041
-4D49 0062
-4D4A 0021
-4D4A 003F
-4D4A 0061
-4D4A 0041
-4D4A 0062
-4D4B 0021
-4D4B 003F
-4D4B 0061
-4D4B 0041
-4D4B 0062
-4D4C 0021
-4D4C 003F
-4D4C 0061
-4D4C 0041
-4D4C 0062
-4D4D 0021
-4D4D 003F
-4D4D 0061
-4D4D 0041
-4D4D 0062
-4D4E 0021
-4D4E 003F
-4D4E 0061
-4D4E 0041
-4D4E 0062
-4D4F 0021
-4D4F 003F
-4D4F 0061
-4D4F 0041
-4D4F 0062
-4D50 0021
-4D50 003F
-4D50 0061
-4D50 0041
-4D50 0062
-4D51 0021
-4D51 003F
-4D51 0061
-4D51 0041
-4D51 0062
-4D52 0021
-4D52 003F
-4D52 0061
-4D52 0041
-4D52 0062
-4D53 0021
-4D53 003F
-4D53 0061
-4D53 0041
-4D53 0062
-4D54 0021
-4D54 003F
-4D54 0061
-4D54 0041
-4D54 0062
-4D55 0021
-4D55 003F
-4D55 0061
-4D55 0041
-4D55 0062
-4D56 0021
-2FA16 0021
-4D56 003F
-2FA16 003F
-2FA16 0334
-4D56 0061
-2FA16 0061
-4D56 0041
-2FA16 0041
-4D56 0062
-2FA16 0062
-4D57 0021
-4D57 003F
-4D57 0061
-4D57 0041
-4D57 0062
-4D58 0021
-4D58 003F
-4D58 0061
-4D58 0041
-4D58 0062
-4D59 0021
-4D59 003F
-4D59 0061
-4D59 0041
-4D59 0062
-4D5A 0021
-4D5A 003F
-4D5A 0061
-4D5A 0041
-4D5A 0062
-4D5B 0021
-4D5B 003F
-4D5B 0061
-4D5B 0041
-4D5B 0062
-4D5C 0021
-4D5C 003F
-4D5C 0061
-4D5C 0041
-4D5C 0062
-4D5D 0021
-4D5D 003F
-4D5D 0061
-4D5D 0041
-4D5D 0062
-4D5E 0021
-4D5E 003F
-4D5E 0061
-4D5E 0041
-4D5E 0062
-4D5F 0021
-4D5F 003F
-4D5F 0061
-4D5F 0041
-4D5F 0062
-4D60 0021
-4D60 003F
-4D60 0061
-4D60 0041
-4D60 0062
-4D61 0021
-4D61 003F
-4D61 0061
-4D61 0041
-4D61 0062
-4D62 0021
-4D62 003F
-4D62 0061
-4D62 0041
-4D62 0062
-4D63 0021
-4D63 003F
-4D63 0061
-4D63 0041
-4D63 0062
-4D64 0021
-4D64 003F
-4D64 0061
-4D64 0041
-4D64 0062
-4D65 0021
-4D65 003F
-4D65 0061
-4D65 0041
-4D65 0062
-4D66 0021
-4D66 003F
-4D66 0061
-4D66 0041
-4D66 0062
-4D67 0021
-4D67 003F
-4D67 0061
-4D67 0041
-4D67 0062
-4D68 0021
-4D68 003F
-4D68 0061
-4D68 0041
-4D68 0062
-4D69 0021
-4D69 003F
-4D69 0061
-4D69 0041
-4D69 0062
-4D6A 0021
-4D6A 003F
-4D6A 0061
-4D6A 0041
-4D6A 0062
-4D6B 0021
-4D6B 003F
-4D6B 0061
-4D6B 0041
-4D6B 0062
-4D6C 0021
-4D6C 003F
-4D6C 0061
-4D6C 0041
-4D6C 0062
-4D6D 0021
-4D6D 003F
-4D6D 0061
-4D6D 0041
-4D6D 0062
-4D6E 0021
-4D6E 003F
-4D6E 0061
-4D6E 0041
-4D6E 0062
-4D6F 0021
-4D6F 003F
-4D6F 0061
-4D6F 0041
-4D6F 0062
-4D70 0021
-4D70 003F
-4D70 0061
-4D70 0041
-4D70 0062
-4D71 0021
-4D71 003F
-4D71 0061
-4D71 0041
-4D71 0062
-4D72 0021
-4D72 003F
-4D72 0061
-4D72 0041
-4D72 0062
-4D73 0021
-4D73 003F
-4D73 0061
-4D73 0041
-4D73 0062
-4D74 0021
-4D74 003F
-4D74 0061
-4D74 0041
-4D74 0062
-4D75 0021
-4D75 003F
-4D75 0061
-4D75 0041
-4D75 0062
-4D76 0021
-4D76 003F
-4D76 0061
-4D76 0041
-4D76 0062
-4D77 0021
-4D77 003F
-4D77 0061
-4D77 0041
-4D77 0062
-4D78 0021
-4D78 003F
-4D78 0061
-4D78 0041
-4D78 0062
-4D79 0021
-4D79 003F
-4D79 0061
-4D79 0041
-4D79 0062
-4D7A 0021
-4D7A 003F
-4D7A 0061
-4D7A 0041
-4D7A 0062
-4D7B 0021
-4D7B 003F
-4D7B 0061
-4D7B 0041
-4D7B 0062
-4D7C 0021
-4D7C 003F
-4D7C 0061
-4D7C 0041
-4D7C 0062
-4D7D 0021
-4D7D 003F
-4D7D 0061
-4D7D 0041
-4D7D 0062
-4D7E 0021
-4D7E 003F
-4D7E 0061
-4D7E 0041
-4D7E 0062
-4D7F 0021
-4D7F 003F
-4D7F 0061
-4D7F 0041
-4D7F 0062
-4D80 0021
-4D80 003F
-4D80 0061
-4D80 0041
-4D80 0062
-4D81 0021
-4D81 003F
-4D81 0061
-4D81 0041
-4D81 0062
-4D82 0021
-4D82 003F
-4D82 0061
-4D82 0041
-4D82 0062
-4D83 0021
-4D83 003F
-4D83 0061
-4D83 0041
-4D83 0062
-4D84 0021
-4D84 003F
-4D84 0061
-4D84 0041
-4D84 0062
-4D85 0021
-4D85 003F
-4D85 0061
-4D85 0041
-4D85 0062
-4D86 0021
-4D86 003F
-4D86 0061
-4D86 0041
-4D86 0062
-4D87 0021
-4D87 003F
-4D87 0061
-4D87 0041
-4D87 0062
-4D88 0021
-4D88 003F
-4D88 0061
-4D88 0041
-4D88 0062
-4D89 0021
-4D89 003F
-4D89 0061
-4D89 0041
-4D89 0062
-4D8A 0021
-4D8A 003F
-4D8A 0061
-4D8A 0041
-4D8A 0062
-4D8B 0021
-4D8B 003F
-4D8B 0061
-4D8B 0041
-4D8B 0062
-4D8C 0021
-4D8C 003F
-4D8C 0061
-4D8C 0041
-4D8C 0062
-4D8D 0021
-4D8D 003F
-4D8D 0061
-4D8D 0041
-4D8D 0062
-4D8E 0021
-4D8E 003F
-4D8E 0061
-4D8E 0041
-4D8E 0062
-4D8F 0021
-4D8F 003F
-4D8F 0061
-4D8F 0041
-4D8F 0062
-4D90 0021
-4D90 003F
-4D90 0061
-4D90 0041
-4D90 0062
-4D91 0021
-4D91 003F
-4D91 0061
-4D91 0041
-4D91 0062
-4D92 0021
-4D92 003F
-4D92 0061
-4D92 0041
-4D92 0062
-4D93 0021
-4D93 003F
-4D93 0061
-4D93 0041
-4D93 0062
-4D94 0021
-4D94 003F
-4D94 0061
-4D94 0041
-4D94 0062
-4D95 0021
-4D95 003F
-4D95 0061
-4D95 0041
-4D95 0062
-4D96 0021
-4D96 003F
-4D96 0061
-4D96 0041
-4D96 0062
-4D97 0021
-4D97 003F
-4D97 0061
-4D97 0041
-4D97 0062
-4D98 0021
-4D98 003F
-4D98 0061
-4D98 0041
-4D98 0062
-4D99 0021
-4D99 003F
-4D99 0061
-4D99 0041
-4D99 0062
-4D9A 0021
-4D9A 003F
-4D9A 0061
-4D9A 0041
-4D9A 0062
-4D9B 0021
-4D9B 003F
-4D9B 0061
-4D9B 0041
-4D9B 0062
-4D9C 0021
-4D9C 003F
-4D9C 0061
-4D9C 0041
-4D9C 0062
-4D9D 0021
-4D9D 003F
-4D9D 0061
-4D9D 0041
-4D9D 0062
-4D9E 0021
-4D9E 003F
-4D9E 0061
-4D9E 0041
-4D9E 0062
-4D9F 0021
-4D9F 003F
-4D9F 0061
-4D9F 0041
-4D9F 0062
-4DA0 0021
-4DA0 003F
-4DA0 0061
-4DA0 0041
-4DA0 0062
-4DA1 0021
-4DA1 003F
-4DA1 0061
-4DA1 0041
-4DA1 0062
-4DA2 0021
-4DA2 003F
-4DA2 0061
-4DA2 0041
-4DA2 0062
-4DA3 0021
-4DA3 003F
-4DA3 0061
-4DA3 0041
-4DA3 0062
-4DA4 0021
-4DA4 003F
-4DA4 0061
-4DA4 0041
-4DA4 0062
-4DA5 0021
-4DA5 003F
-4DA5 0061
-4DA5 0041
-4DA5 0062
-4DA6 0021
-4DA6 003F
-4DA6 0061
-4DA6 0041
-4DA6 0062
-4DA7 0021
-4DA7 003F
-4DA7 0061
-4DA7 0041
-4DA7 0062
-4DA8 0021
-4DA8 003F
-4DA8 0061
-4DA8 0041
-4DA8 0062
-4DA9 0021
-4DA9 003F
-4DA9 0061
-4DA9 0041
-4DA9 0062
-4DAA 0021
-4DAA 003F
-4DAA 0061
-4DAA 0041
-4DAA 0062
-4DAB 0021
-4DAB 003F
-4DAB 0061
-4DAB 0041
-4DAB 0062
-4DAC 0021
-4DAC 003F
-4DAC 0061
-4DAC 0041
-4DAC 0062
-4DAD 0021
-4DAD 003F
-4DAD 0061
-4DAD 0041
-4DAD 0062
-4DAE 0021
-4DAE 003F
-4DAE 0061
-4DAE 0041
-4DAE 0062
-4DAF 0021
-4DAF 003F
-4DAF 0061
-4DAF 0041
-4DAF 0062
-4DB0 0021
-4DB0 003F
-4DB0 0061
-4DB0 0041
-4DB0 0062
-4DB1 0021
-4DB1 003F
-4DB1 0061
-4DB1 0041
-4DB1 0062
-4DB2 0021
-4DB2 003F
-4DB2 0061
-4DB2 0041
-4DB2 0062
-4DB3 0021
-4DB3 003F
-4DB3 0061
-4DB3 0041
-4DB3 0062
-4DB4 0021
-4DB4 003F
-4DB4 0061
-4DB4 0041
-4DB4 0062
-4DB5 0021
-4DB5 003F
-4DB5 0061
-4DB5 0041
-4DB5 0062
-20000 0021
-20000 003F
-20000 0334
-20000 0061
-20000 0041
-20000 0062
-20001 0021
-20001 003F
-20001 0334
-20001 0061
-20001 0041
-20001 0062
-20002 0021
-20002 003F
-20002 0334
-20002 0061
-20002 0041
-20002 0062
-20003 0021
-20003 003F
-20003 0334
-20003 0061
-20003 0041
-20003 0062
-20004 0021
-20004 003F
-20004 0334
-20004 0061
-20004 0041
-20004 0062
-20005 0021
-20005 003F
-20005 0334
-20005 0061
-20005 0041
-20005 0062
-2F803 0021
-2F803 003F
-2F803 0334
-2F803 0061
-2F803 0041
-2F803 0062
-2F812 0021
-2F812 003F
-2F812 0334
-2F812 0061
-2F812 0041
-2F812 0062
-2F91B 0021
-2F91B 003F
-2F91B 0334
-2F91B 0061
-2F91B 0041
-2F91B 0062
-2F816 0021
-2F816 003F
-2F816 0334
-2F816 0061
-2F816 0041
-2F816 0062
-2F80D 0021
-2F80D 003F
-2F80D 0334
-2F80D 0061
-2F80D 0041
-2F80D 0062
-2F9D9 0021
-2F9D9 003F
-2F9D9 0334
-2F9D9 0061
-2F9D9 0041
-2F9D9 0062
-2F9DD 0021
-2F9DD 003F
-2F9DD 0334
-2F9DD 0061
-2F9DD 0041
-2F9DD 0062
-2F834 0021
-2F834 003F
-2F834 0334
-2F834 0061
-2F834 0041
-2F834 0062
-2F838 0021
-2F838 003F
-2F838 0334
-2F838 0061
-2F838 0041
-2F838 0062
-2F859 0021
-2F859 003F
-2F859 0334
-2F859 0061
-2F859 0041
-2F859 0062
-2F860 0021
-2F860 003F
-2F860 0334
-2F860 0061
-2F860 0041
-2F860 0062
-2F861 0021
-2F861 003F
-2F861 0334
-2F861 0061
-2F861 0041
-2F861 0062
-2F86C 0021
-2F86C 003F
-2F86C 0334
-2F86C 0061
-2F86C 0041
-2F86C 0062
-2F871 0021
-2F871 003F
-2F871 0334
-2F871 0061
-2F871 0041
-2F871 0062
-2F8F8 0021
-2F8F8 003F
-2F8F8 0334
-2F8F8 0061
-2F8F8 0041
-2F8F8 0062
-2F87B 0021
-2F87B 003F
-2F87B 0334
-2F87B 0061
-2F87B 0041
-2F87B 0062
-2F87D 0021
-2F87D 003F
-2F87D 0334
-2F87D 0061
-2F87D 0041
-2F87D 0062
-2F889 0021
-2F889 003F
-2F889 0334
-2F889 0061
-2F889 0041
-2F889 0062
-2F939 0021
-2F939 003F
-2F939 0334
-2F939 0061
-2F939 0041
-2F939 0062
-2F891 0021
-2F892 0021
-2F891 003F
-2F892 003F
-2F891 0334
-2F892 0334
-2F891 0061
-2F892 0061
-2F891 0041
-2F892 0041
-2F891 0062
-2F892 0062
-2F8A4 0021
-2F8A4 003F
-2F8A4 0334
-2F8A4 0061
-2F8A4 0041
-2F8A4 0062
-FAD0 0021
-FAD0 003F
-FAD0 0061
-FAD0 0041
-FAD0 0062
-FACF 0021
-FACF 003F
-FACF 0061
-FACF 0041
-FACF 0062
-2F8B8 0021
-2F8B8 003F
-2F8B8 0334
-2F8B8 0061
-2F8B8 0041
-2F8B8 0062
-2F8BE 0021
-2F8BE 003F
-2F8BE 0334
-2F8BE 0061
-2F8BE 0041
-2F8BE 0062
-2F8CA 0021
-2F8CA 003F
-2F8CA 0334
-2F8CA 0061
-2F8CA 0041
-2F8CA 0062
-2F897 0021
-2F897 003F
-2F897 0334
-2F897 0061
-2F897 0041
-2F897 0062
-2F980 0021
-2F980 003F
-2F980 0334
-2F980 0061
-2F980 0041
-2F980 0062
-2F989 0021
-2F989 003F
-2F989 0334
-2F989 0061
-2F989 0041
-2F989 0062
-2F98A 0021
-2F98A 003F
-2F98A 0334
-2F98A 0061
-2F98A 0041
-2F98A 0062
-2F8DD 0021
-2F8DD 003F
-2F8DD 0334
-2F8DD 0061
-2F8DD 0041
-2F8DD 0062
-FAD1 0021
-FAD1 003F
-FAD1 0061
-FAD1 0041
-FAD1 0062
-2F8E3 0021
-2F8E3 003F
-2F8E3 0334
-2F8E3 0061
-2F8E3 0041
-2F8E3 0062
-2F8EC 0021
-2F8EC 003F
-2F8EC 0334
-2F8EC 0061
-2F8EC 0041
-2F8EC 0062
-2F8F0 0021
-2F8F0 003F
-2F8F0 0334
-2F8F0 0061
-2F8F0 0041
-2F8F0 0062
-2F8F7 0021
-2F8F7 003F
-2F8F7 0334
-2F8F7 0061
-2F8F7 0041
-2F8F7 0062
-2F8F9 0021
-2F8F9 003F
-2F8F9 0334
-2F8F9 0061
-2F8F9 0041
-2F8F9 0062
-2F8FB 0021
-2F8FB 003F
-2F8FB 0334
-2F8FB 0061
-2F8FB 0041
-2F8FB 0062
-2F906 0021
-2F906 003F
-2F906 0334
-2F906 0061
-2F906 0041
-2F906 0062
-2F90D 0021
-2F90D 003F
-2F90D 0334
-2F90D 0061
-2F90D 0041
-2F90D 0062
-2F910 0021
-2F910 003F
-2F910 0334
-2F910 0061
-2F910 0041
-2F910 0062
-2F911 0021
-2F911 003F
-2F911 0334
-2F911 0061
-2F911 0041
-2F911 0062
-2F91D 0021
-2F91D 003F
-2F91D 0334
-2F91D 0061
-2F91D 0041
-2F91D 0062
-FA6C 0021
-FA6C 003F
-FA6C 0061
-FA6C 0041
-FA6C 0062
-2F91F 0021
-2F91F 003F
-2F91F 0334
-2F91F 0061
-2F91F 0041
-2F91F 0062
-2F923 0021
-2F923 003F
-2F923 0334
-2F923 0061
-2F923 0041
-2F923 0062
-2F926 0021
-2F926 003F
-2F926 0334
-2F926 0061
-2F926 0041
-2F926 0062
-2F927 0021
-2F927 003F
-2F927 0334
-2F927 0061
-2F927 0041
-2F927 0062
-2F935 0021
-2F935 003F
-2F935 0334
-2F935 0061
-2F935 0041
-2F935 0062
-2F937 0021
-2F937 003F
-2F937 0334
-2F937 0061
-2F937 0041
-2F937 0062
-2F93B 0021
-2F93B 003F
-2F93B 0334
-2F93B 0061
-2F93B 0041
-2F93B 0062
-2F93C 0021
-2F93C 003F
-2F93C 0334
-2F93C 0061
-2F93C 0041
-2F93C 0062
-2F93D 0021
-2F93D 003F
-2F93D 0334
-2F93D 0061
-2F93D 0041
-2F93D 0062
-2F942 0021
-2F942 003F
-2F942 0334
-2F942 0061
-2F942 0041
-2F942 0062
-2F941 0021
-2F941 003F
-2F941 0334
-2F941 0061
-2F941 0041
-2F941 0062
-2F943 0021
-2F943 003F
-2F943 0334
-2F943 0061
-2F943 0041
-2F943 0062
-2F944 0021
-2F944 003F
-2F944 0334
-2F944 0061
-2F944 0041
-2F944 0062
-FAD5 0021
-FAD5 003F
-FAD5 0061
-FAD5 0041
-FAD5 0062
-2F94D 0021
-2F94D 003F
-2F94D 0334
-2F94D 0061
-2F94D 0041
-2F94D 0062
-2F952 0021
-2F952 003F
-2F952 0334
-2F952 0061
-2F952 0041
-2F952 0062
-2F954 0021
-2F954 003F
-2F954 0334
-2F954 0061
-2F954 0041
-2F954 0062
-2F955 0021
-2F955 003F
-2F955 0334
-2F955 0061
-2F955 0041
-2F955 0062
-2F95C 0021
-2F95C 003F
-2F95C 0334
-2F95C 0061
-2F95C 0041
-2F95C 0062
-2F95D 0021
-2F95E 0021
-2F95D 003F
-2F95E 003F
-2F95D 0334
-2F95E 0334
-2F95D 0061
-2F95E 0061
-2F95D 0041
-2F95E 0041
-2F95D 0062
-2F95E 0062
-2F961 0021
-2F961 003F
-2F961 0334
-2F961 0061
-2F961 0041
-2F961 0062
-2F965 0021
-2F965 003F
-2F965 0334
-2F965 0061
-2F965 0041
-2F965 0062
-FAD6 0021
-FAD6 003F
-FAD6 0061
-FAD6 0041
-FAD6 0062
-2F96B 0021
-2F96B 003F
-2F96B 0334
-2F96B 0061
-2F96B 0041
-2F96B 0062
-2F898 0021
-2F898 003F
-2F898 0334
-2F898 0061
-2F898 0041
-2F898 0062
-2F972 0021
-2F972 003F
-2F972 0334
-2F972 0061
-2F972 0041
-2F972 0062
-2F973 0021
-2F973 003F
-2F973 0334
-2F973 0061
-2F973 0041
-2F973 0062
-2F975 0021
-2F975 003F
-2F975 0334
-2F975 0061
-2F975 0041
-2F975 0062
-2F977 0021
-2F977 003F
-2F977 0334
-2F977 0061
-2F977 0041
-2F977 0062
-2F97B 0021
-2F97B 003F
-2F97B 0334
-2F97B 0061
-2F97B 0041
-2F97B 0062
-2F97C 0021
-2F97C 003F
-2F97C 0334
-2F97C 0061
-2F97C 0041
-2F97C 0062
-2F97E 0021
-2F97E 003F
-2F97E 0334
-2F97E 0061
-2F97E 0041
-2F97E 0062
-2F987 0021
-2F987 003F
-2F987 0334
-2F987 0061
-2F987 0041
-2F987 0062
-2F988 0021
-2F988 003F
-2F988 0334
-2F988 0061
-2F988 0041
-2F988 0062
-2F997 0021
-2F997 003F
-2F997 0334
-2F997 0061
-2F997 0041
-2F997 0062
-2F9A4 0021
-2F9A4 003F
-2F9A4 0334
-2F9A4 0061
-2F9A4 0041
-2F9A4 0062
-2F9A6 0021
-2F9A6 003F
-2F9A6 0334
-2F9A6 0061
-2F9A6 0041
-2F9A6 0062
-2F9A5 0021
-2F9A5 003F
-2F9A5 0334
-2F9A5 0061
-2F9A5 0041
-2F9A5 0062
-2F9AD 0021
-2F9AD 003F
-2F9AD 0334
-2F9AD 0061
-2F9AD 0041
-2F9AD 0062
-2F9B0 0021
-2F9B0 003F
-2F9B0 0334
-2F9B0 0061
-2F9B0 0041
-2F9B0 0062
-2F9B1 0021
-2F9B1 003F
-2F9B1 0334
-2F9B1 0061
-2F9B1 0041
-2F9B1 0062
-2F9AB 0021
-2F9AB 003F
-2F9AB 0334
-2F9AB 0061
-2F9AB 0041
-2F9AB 0062
-2F9C5 0021
-2F9C5 003F
-2F9C5 0334
-2F9C5 0061
-2F9C5 0041
-2F9C5 0062
-2F9CB 0021
-2F9CB 003F
-2F9CB 0334
-2F9CB 0061
-2F9CB 0041
-2F9CB 0062
-2F9CC 0021
-2F9CC 003F
-2F9CC 0334
-2F9CC 0061
-2F9CC 0041
-2F9CC 0062
-2F9D3 0021
-2F9D3 003F
-2F9D3 0334
-2F9D3 0061
-2F9D3 0041
-2F9D3 0062
-FAD7 0021
-FAD7 003F
-FAD7 0061
-FAD7 0041
-FAD7 0062
-2F9D8 0021
-2F9D8 003F
-2F9D8 0334
-2F9D8 0061
-2F9D8 0041
-2F9D8 0062
-2F9E0 0021
-2F9E0 003F
-2F9E0 0334
-2F9E0 0061
-2F9E0 0041
-2F9E0 0062
-2F9E1 0021
-2F9E1 003F
-2F9E1 0334
-2F9E1 0061
-2F9E1 0041
-2F9E1 0062
-2F9E5 0021
-2F9E5 003F
-2F9E5 0334
-2F9E5 0061
-2F9E5 0041
-2F9E5 0062
-2F9ED 0021
-2F9ED 003F
-2F9ED 0334
-2F9ED 0061
-2F9ED 0041
-2F9ED 0062
-2F9F1 0021
-2F9F1 003F
-2F9F1 0334
-2F9F1 0061
-2F9F1 0041
-2F9F1 0062
-2F9F6 0021
-2F9F6 003F
-2F9F6 0334
-2F9F6 0061
-2F9F6 0041
-2F9F6 0062
-2F81C 0021
-2F81C 003F
-2F81C 0334
-2F81C 0061
-2F81C 0041
-2F81C 0062
-2F9F7 0021
-2F9F7 003F
-2F9F7 0334
-2F9F7 0061
-2F9F7 0041
-2F9F7 0062
-2F9FB 0021
-2F9FB 003F
-2F9FB 0334
-2F9FB 0061
-2F9FB 0041
-2F9FB 0062
-2F9FD 0021
-2F9FD 003F
-2F9FD 0334
-2F9FD 0061
-2F9FD 0041
-2F9FD 0062
-2FA01 0021
-2FA01 003F
-2FA01 0334
-2FA01 0061
-2FA01 0041
-2FA01 0062
-2FA09 0021
-2FA09 003F
-2FA09 0334
-2FA09 0061
-2FA09 0041
-2FA09 0062
-2FA10 0021
-2FA10 003F
-2FA10 0334
-2FA10 0061
-2FA10 0041
-2FA10 0062
-2FA12 0021
-2FA12 003F
-2FA12 0334
-2FA12 0061
-2FA12 0041
-2FA12 0062
-2FA13 0021
-2FA13 003F
-2FA13 0334
-2FA13 0061
-2FA13 0041
-2FA13 0062
-2FA14 0021
-2FA14 003F
-2FA14 0334
-2FA14 0061
-2FA14 0041
-2FA14 0062
-2F88F 0021
-2F88F 003F
-2F88F 0334
-2F88F 0061
-2F88F 0041
-2F88F 0062
-2FA1D 0021
-2FA1D 003F
-2FA1D 0334
-2FA1D 0061
-2FA1D 0041
-2FA1D 0062
-2A6D2 0021
-2A6D2 003F
-2A6D2 0334
-2A6D2 0061
-2A6D2 0041
-2A6D2 0062
-2A6D3 0021
-2A6D3 003F
-2A6D3 0334
-2A6D3 0061
-2A6D3 0041
-2A6D3 0062
-2A6D4 0021
-2A6D4 003F
-2A6D4 0334
-2A6D4 0061
-2A6D4 0041
-2A6D4 0062
-2A6D5 0021
-2A6D5 003F
-2A6D5 0334
-2A6D5 0061
-2A6D5 0041
-2A6D5 0062
-2A6D6 0021
-2A6D6 003F
-2A6D6 0334
-2A6D6 0061
-2A6D6 0041
-2A6D6 0062
-2A700 0021
-2A700 003F
-2A700 0334
-2A700 0061
-2A700 0041
-2A700 0062
-2A701 0021
-2A701 003F
-2A701 0334
-2A701 0061
-2A701 0041
-2A701 0062
-2A702 0021
-2A702 003F
-2A702 0334
-2A702 0061
-2A702 0041
-2A702 0062
-2A703 0021
-2A703 003F
-2A703 0334
-2A703 0061
-2A703 0041
-2A703 0062
-2A704 0021
-2A704 003F
-2A704 0334
-2A704 0061
-2A704 0041
-2A704 0062
-2A705 0021
-2A705 003F
-2A705 0334
-2A705 0061
-2A705 0041
-2A705 0062
-2B730 0021
-2B730 003F
-2B730 0334
-2B730 0061
-2B730 0041
-2B730 0062
-2B731 0021
-2B731 003F
-2B731 0334
-2B731 0061
-2B731 0041
-2B731 0062
-2B732 0021
-2B732 003F
-2B732 0334
-2B732 0061
-2B732 0041
-2B732 0062
-2B733 0021
-2B733 003F
-2B733 0334
-2B733 0061
-2B733 0041
-2B733 0062
-2B734 0021
-2B734 003F
-2B734 0334
-2B734 0061
-2B734 0041
-2B734 0062
-2B740 0021
-2B740 003F
-2B740 0334
-2B740 0061
-2B740 0041
-2B740 0062
-2B741 0021
-2B741 003F
-2B741 0334
-2B741 0061
-2B741 0041
-2B741 0062
-2B742 0021
-2B742 003F
-2B742 0334
-2B742 0061
-2B742 0041
-2B742 0062
-2B743 0021
-2B743 003F
-2B743 0334
-2B743 0061
-2B743 0041
-2B743 0062
-2B744 0021
-2B744 003F
-2B744 0334
-2B744 0061
-2B744 0041
-2B744 0062
-2B745 0021
-2B745 003F
-2B745 0334
-2B745 0061
-2B745 0041
-2B745 0062
-2B819 0021
-2B819 003F
-2B819 0334
-2B819 0061
-2B819 0041
-2B819 0062
-2B81A 0021
-2B81A 003F
-2B81A 0334
-2B81A 0061
-2B81A 0041
-2B81A 0062
-2B81B 0021
-2B81B 003F
-2B81B 0334
-2B81B 0061
-2B81B 0041
-2B81B 0062
-2B81C 0021
-2B81C 003F
-2B81C 0334
-2B81C 0061
-2B81C 0041
-2B81C 0062
-2B81D 0021
-2B81D 003F
-2B81D 0334
-2B81D 0061
-2B81D 0041
-2B81D 0062
0378 0021
0378 003F
0378 0061
@@ -174788,6 +156680,11 @@ FFFFD 0062
10FFFF 0061
10FFFF 0041
10FFFF 0062
+FFFD 0021
+FFFD 003F
+FFFD 0061
+FFFD 0041
+FFFD 0062
FFFF 0021
FFFF 003F
FFFF 0061
diff --git a/tests/test/units/system/tseg.pp b/tests/test/units/system/tseg.pp
index 82d5f3a8d3..d13e160044 100644
--- a/tests/test/units/system/tseg.pp
+++ b/tests/test/units/system/tseg.pp
@@ -2,6 +2,14 @@
{ Carl Eric Codere Copyright (c) 2002 }
program tseg;
+{$ifdef CPUI8086}
+const
+ seg_should_be_zero = false;
+{$else}
+const
+ seg_should_be_zero = true;
+{$endif}
+
const
cst : integer = 0;
var
@@ -16,7 +24,8 @@ procedure fail;
procedure test_cseg;
begin
Write('Testing CSeg()...');
- if cseg <> 0 then
+ if ((cseg <> 0) and seg_should_be_zero) or
+ ((cseg=0) and not seg_should_be_zero) then
fail
else
WriteLn('Success!');
@@ -25,7 +34,8 @@ procedure test_cseg;
procedure test_dseg;
begin
Write('Testing DSeg()...');
- if dseg <> 0 then
+ if ((dseg <> 0) and seg_should_be_zero) or
+ ((dseg=0) and not seg_should_be_zero) then
fail
else
WriteLn('Success!');
@@ -34,7 +44,8 @@ procedure test_dseg;
procedure test_sseg;
begin
Write('Testing SSeg()...');
- if sseg <> 0 then
+ if ((sseg <> 0) and seg_should_be_zero) or
+ ((sseg=0) and not seg_should_be_zero) then
fail
else
WriteLn('Success!');
@@ -47,11 +58,14 @@ procedure test_seg;
begin
_result := true;
Write('Testing Seg()...');
- if seg(x) <> 0 then
+ if ((seg(x) <> 0) and seg_should_be_zero) or
+ ((seg(x)=0) and not seg_should_be_zero) then
_result := false;
- if seg(cst) <> 0 then
+ if ((seg(cst) <> 0) and seg_should_be_zero) or
+ ((seg(cst)=0) and not seg_should_be_zero) then
_result := false;
- if seg(variable) <> 0 then
+ if ((seg(variable) <> 0) and seg_should_be_zero) or
+ ((seg(variable)=0) and not seg_should_be_zero) then
_result := false;
if not _result then
fail
diff --git a/tests/test/units/windows/twinrawinput32.pp b/tests/test/units/windows/twinrawinput32.pp
new file mode 100644
index 0000000000..1d00ab7fab
--- /dev/null
+++ b/tests/test/units/windows/twinrawinput32.pp
@@ -0,0 +1,101 @@
+{ %TARGET=win32 }
+
+uses windows;
+
+var
+ errors_found: Boolean = false;
+
+procedure DoCheckSize(const StructName: string; ActualSize, ExpectedSize: SizeUInt);
+begin
+ if ActualSize <> ExpectedSize then
+ begin
+ Writeln('SizeOf(', StructName, ') is wrong - got ', ActualSize, ', expected ', ExpectedSize);
+ errors_found := true;
+ end;
+end;
+
+procedure DoCheckOffset(const StructAndFieldName: string; ActualOffset, ExpectedOffset: SizeUInt);
+begin
+ if ActualOffset <> ExpectedOffset then
+ begin
+ Writeln('Offset of ', StructAndFieldName, ' is wrong - got ', ActualOffset, ', expected ', ExpectedOffset);
+ errors_found := true;
+ end;
+end;
+
+
+
+
+begin
+ DoCheckSize('RAWINPUTHEADER', SizeOf( RAWINPUTHEADER ), 16 ) ;
+ DoCheckOffset('RAWINPUTHEADER'+'.'+'dwType', SizeUInt(@(PRAWINPUTHEADER (nil)^. dwType )), 0 ) ;
+ DoCheckOffset('RAWINPUTHEADER'+'.'+'dwSize', SizeUInt(@(PRAWINPUTHEADER (nil)^. dwSize )), 4 ) ;
+ DoCheckOffset('RAWINPUTHEADER'+'.'+'hDevice', SizeUInt(@(PRAWINPUTHEADER (nil)^. hDevice )), 8 ) ;
+ DoCheckOffset('RAWINPUTHEADER'+'.'+'wParam', SizeUInt(@(PRAWINPUTHEADER (nil)^. wParam )), 12 ) ;
+ DoCheckSize('RAWMOUSE', SizeOf( RAWMOUSE ), 24 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'usFlags', SizeUInt(@(PRAWMOUSE (nil)^. usFlags )), 0 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'ulButtons', SizeUInt(@(PRAWMOUSE (nil)^. ulButtons )), 4 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'ulRawButtons', SizeUInt(@(PRAWMOUSE (nil)^. ulRawButtons )), 8 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'lLastX', SizeUInt(@(PRAWMOUSE (nil)^. lLastX )), 12 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'lLastY', SizeUInt(@(PRAWMOUSE (nil)^. lLastY )), 16 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'ulExtraInformation', SizeUInt(@(PRAWMOUSE (nil)^. ulExtraInformation )), 20 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'usButtonFlags', SizeUInt(@(PRAWMOUSE (nil)^. usButtonFlags )), 4 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'usButtonData', SizeUInt(@(PRAWMOUSE (nil)^. usButtonData )), 6 ) ;
+ DoCheckSize('RAWKEYBOARD', SizeOf( RAWKEYBOARD ), 16 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'MakeCode', SizeUInt(@(PRAWKEYBOARD (nil)^. MakeCode )), 0 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'Flags', SizeUInt(@(PRAWKEYBOARD (nil)^. Flags )), 2 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'Reserved', SizeUInt(@(PRAWKEYBOARD (nil)^. Reserved )), 4 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'VKey', SizeUInt(@(PRAWKEYBOARD (nil)^. VKey )), 6 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'Message', SizeUInt(@(PRAWKEYBOARD (nil)^. Message )), 8 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'ExtraInformation', SizeUInt(@(PRAWKEYBOARD (nil)^. ExtraInformation )), 12 ) ;
+ DoCheckSize('RAWHID', SizeOf( RAWHID ), 12 ) ;
+ DoCheckOffset('RAWHID'+'.'+'dwSizeHid', SizeUInt(@(PRAWHID (nil)^. dwSizeHid )), 0 ) ;
+ DoCheckOffset('RAWHID'+'.'+'dwCount', SizeUInt(@(PRAWHID (nil)^. dwCount )), 4 ) ;
+ DoCheckOffset('RAWHID'+'.'+'bRawData', SizeUInt(@(PRAWHID (nil)^. bRawData )), 8 ) ;
+ DoCheckSize('RAWINPUT', SizeOf( RAWINPUT ), 40 ) ;
+ DoCheckOffset('RAWINPUT'+'.'+'header', SizeUInt(@(PRAWINPUT (nil)^. header )), 0 ) ;
+ DoCheckOffset('RAWINPUT'+'.'+'data', SizeUInt(@(PRAWINPUT (nil)^. data )), 16 ) ;
+ DoCheckOffset('RAWINPUT'+'.'+'data.mouse', SizeUInt(@(PRAWINPUT (nil)^. data.mouse )), 16 ) ;
+ DoCheckOffset('RAWINPUT'+'.'+'data.keyboard', SizeUInt(@(PRAWINPUT (nil)^. data.keyboard )), 16 ) ;
+ DoCheckOffset('RAWINPUT'+'.'+'data.hid', SizeUInt(@(PRAWINPUT (nil)^. data.hid )), 16 ) ;
+ DoCheckSize('RID_DEVICE_INFO_MOUSE', SizeOf( RID_DEVICE_INFO_MOUSE ), 16 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_MOUSE'+'.'+'dwId', SizeUInt(@(PRID_DEVICE_INFO_MOUSE (nil)^. dwId )), 0 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_MOUSE'+'.'+'dwNumberOfButtons', SizeUInt(@(PRID_DEVICE_INFO_MOUSE (nil)^. dwNumberOfButtons )), 4 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_MOUSE'+'.'+'dwSampleRate', SizeUInt(@(PRID_DEVICE_INFO_MOUSE (nil)^. dwSampleRate )), 8 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_MOUSE'+'.'+'fHasHorizontalWheel', SizeUInt(@(PRID_DEVICE_INFO_MOUSE (nil)^. fHasHorizontalWheel )), 12 ) ;
+ DoCheckSize('RID_DEVICE_INFO_KEYBOARD', SizeOf( RID_DEVICE_INFO_KEYBOARD ), 24 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwType', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwType )), 0 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwSubType', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwSubType )), 4 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwKeyboardMode', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwKeyboardMode )), 8 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwNumberOfFunctionKeys', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwNumberOfFunctionKeys )), 12 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwNumberOfIndicators', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwNumberOfIndicators )), 16 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwNumberOfKeysTotal', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwNumberOfKeysTotal )), 20 ) ;
+ DoCheckSize('RID_DEVICE_INFO_HID', SizeOf( RID_DEVICE_INFO_HID ), 16 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_HID'+'.'+'dwVendorId', SizeUInt(@(PRID_DEVICE_INFO_HID (nil)^. dwVendorId )), 0 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_HID'+'.'+'dwProductId', SizeUInt(@(PRID_DEVICE_INFO_HID (nil)^. dwProductId )), 4 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_HID'+'.'+'dwVersionNumber', SizeUInt(@(PRID_DEVICE_INFO_HID (nil)^. dwVersionNumber )), 8 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_HID'+'.'+'usUsagePage', SizeUInt(@(PRID_DEVICE_INFO_HID (nil)^. usUsagePage )), 12 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_HID'+'.'+'usUsage', SizeUInt(@(PRID_DEVICE_INFO_HID (nil)^. usUsage )), 14 ) ;
+ DoCheckSize('RID_DEVICE_INFO', SizeOf( RID_DEVICE_INFO ), 32 ) ;
+ DoCheckOffset('RID_DEVICE_INFO'+'.'+'cbSize', SizeUInt(@(PRID_DEVICE_INFO (nil)^. cbSize )), 0 ) ;
+ DoCheckOffset('RID_DEVICE_INFO'+'.'+'dwType', SizeUInt(@(PRID_DEVICE_INFO (nil)^. dwType )), 4 ) ;
+ DoCheckOffset('RID_DEVICE_INFO'+'.'+'mouse', SizeUInt(@(PRID_DEVICE_INFO (nil)^. mouse )), 8 ) ;
+ DoCheckOffset('RID_DEVICE_INFO'+'.'+'keyboard', SizeUInt(@(PRID_DEVICE_INFO (nil)^. keyboard )), 8 ) ;
+ DoCheckOffset('RID_DEVICE_INFO'+'.'+'hid', SizeUInt(@(PRID_DEVICE_INFO (nil)^. hid )), 8 ) ;
+ DoCheckSize('RAWINPUTDEVICE', SizeOf( RAWINPUTDEVICE ), 12 ) ;
+ DoCheckOffset('RAWINPUTDEVICE'+'.'+'usUsagePage', SizeUInt(@(PRAWINPUTDEVICE (nil)^. usUsagePage )), 0 ) ;
+ DoCheckOffset('RAWINPUTDEVICE'+'.'+'usUsage', SizeUInt(@(PRAWINPUTDEVICE (nil)^. usUsage )), 2 ) ;
+ DoCheckOffset('RAWINPUTDEVICE'+'.'+'dwFlags', SizeUInt(@(PRAWINPUTDEVICE (nil)^. dwFlags )), 4 ) ;
+ DoCheckOffset('RAWINPUTDEVICE'+'.'+'hwndTarget', SizeUInt(@(PRAWINPUTDEVICE (nil)^. hwndTarget )), 8 ) ;
+ DoCheckSize('RAWINPUTDEVICELIST', SizeOf( RAWINPUTDEVICELIST ), 8 ) ;
+ DoCheckOffset('RAWINPUTDEVICELIST'+'.'+'hDevice', SizeUInt(@(PRAWINPUTDEVICELIST (nil)^. hDevice )), 0 ) ;
+ DoCheckOffset('RAWINPUTDEVICELIST'+'.'+'dwType', SizeUInt(@(PRAWINPUTDEVICELIST (nil)^. dwType )), 4 ) ;
+ if errors_found then
+ begin
+ Writeln('Errors found!');
+ Halt(1);
+ end
+ else
+ Writeln('Ok!');
+
+end.
diff --git a/tests/test/units/windows/twinrawinput64.pp b/tests/test/units/windows/twinrawinput64.pp
new file mode 100644
index 0000000000..6e969c5fe7
--- /dev/null
+++ b/tests/test/units/windows/twinrawinput64.pp
@@ -0,0 +1,101 @@
+{ %TARGET=win64 }
+
+uses windows;
+
+var
+ errors_found: Boolean = false;
+
+procedure DoCheckSize(const StructName: string; ActualSize, ExpectedSize: SizeUInt);
+begin
+ if ActualSize <> ExpectedSize then
+ begin
+ Writeln('SizeOf(', StructName, ') is wrong - got ', ActualSize, ', expected ', ExpectedSize);
+ errors_found := true;
+ end;
+end;
+
+procedure DoCheckOffset(const StructAndFieldName: string; ActualOffset, ExpectedOffset: SizeUInt);
+begin
+ if ActualOffset <> ExpectedOffset then
+ begin
+ Writeln('Offset of ', StructAndFieldName, ' is wrong - got ', ActualOffset, ', expected ', ExpectedOffset);
+ errors_found := true;
+ end;
+end;
+
+
+
+
+begin
+ DoCheckSize('RAWINPUTHEADER', SizeOf( RAWINPUTHEADER ), 24 ) ;
+ DoCheckOffset('RAWINPUTHEADER'+'.'+'dwType', SizeUInt(@(PRAWINPUTHEADER (nil)^. dwType )), 0 ) ;
+ DoCheckOffset('RAWINPUTHEADER'+'.'+'dwSize', SizeUInt(@(PRAWINPUTHEADER (nil)^. dwSize )), 4 ) ;
+ DoCheckOffset('RAWINPUTHEADER'+'.'+'hDevice', SizeUInt(@(PRAWINPUTHEADER (nil)^. hDevice )), 8 ) ;
+ DoCheckOffset('RAWINPUTHEADER'+'.'+'wParam', SizeUInt(@(PRAWINPUTHEADER (nil)^. wParam )), 16 ) ;
+ DoCheckSize('RAWMOUSE', SizeOf( RAWMOUSE ), 24 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'usFlags', SizeUInt(@(PRAWMOUSE (nil)^. usFlags )), 0 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'ulButtons', SizeUInt(@(PRAWMOUSE (nil)^. ulButtons )), 4 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'ulRawButtons', SizeUInt(@(PRAWMOUSE (nil)^. ulRawButtons )), 8 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'lLastX', SizeUInt(@(PRAWMOUSE (nil)^. lLastX )), 12 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'lLastY', SizeUInt(@(PRAWMOUSE (nil)^. lLastY )), 16 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'ulExtraInformation', SizeUInt(@(PRAWMOUSE (nil)^. ulExtraInformation )), 20 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'usButtonFlags', SizeUInt(@(PRAWMOUSE (nil)^. usButtonFlags )), 4 ) ;
+ DoCheckOffset('RAWMOUSE'+'.'+'usButtonData', SizeUInt(@(PRAWMOUSE (nil)^. usButtonData )), 6 ) ;
+ DoCheckSize('RAWKEYBOARD', SizeOf( RAWKEYBOARD ), 16 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'MakeCode', SizeUInt(@(PRAWKEYBOARD (nil)^. MakeCode )), 0 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'Flags', SizeUInt(@(PRAWKEYBOARD (nil)^. Flags )), 2 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'Reserved', SizeUInt(@(PRAWKEYBOARD (nil)^. Reserved )), 4 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'VKey', SizeUInt(@(PRAWKEYBOARD (nil)^. VKey )), 6 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'Message', SizeUInt(@(PRAWKEYBOARD (nil)^. Message )), 8 ) ;
+ DoCheckOffset('RAWKEYBOARD'+'.'+'ExtraInformation', SizeUInt(@(PRAWKEYBOARD (nil)^. ExtraInformation )), 12 ) ;
+ DoCheckSize('RAWHID', SizeOf( RAWHID ), 12 ) ;
+ DoCheckOffset('RAWHID'+'.'+'dwSizeHid', SizeUInt(@(PRAWHID (nil)^. dwSizeHid )), 0 ) ;
+ DoCheckOffset('RAWHID'+'.'+'dwCount', SizeUInt(@(PRAWHID (nil)^. dwCount )), 4 ) ;
+ DoCheckOffset('RAWHID'+'.'+'bRawData', SizeUInt(@(PRAWHID (nil)^. bRawData )), 8 ) ;
+ DoCheckSize('RAWINPUT', SizeOf( RAWINPUT ), 48 ) ;
+ DoCheckOffset('RAWINPUT'+'.'+'header', SizeUInt(@(PRAWINPUT (nil)^. header )), 0 ) ;
+ DoCheckOffset('RAWINPUT'+'.'+'data', SizeUInt(@(PRAWINPUT (nil)^. data )), 24 ) ;
+ DoCheckOffset('RAWINPUT'+'.'+'data.mouse', SizeUInt(@(PRAWINPUT (nil)^. data.mouse )), 24 ) ;
+ DoCheckOffset('RAWINPUT'+'.'+'data.keyboard', SizeUInt(@(PRAWINPUT (nil)^. data.keyboard )), 24 ) ;
+ DoCheckOffset('RAWINPUT'+'.'+'data.hid', SizeUInt(@(PRAWINPUT (nil)^. data.hid )), 24 ) ;
+ DoCheckSize('RID_DEVICE_INFO_MOUSE', SizeOf( RID_DEVICE_INFO_MOUSE ), 16 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_MOUSE'+'.'+'dwId', SizeUInt(@(PRID_DEVICE_INFO_MOUSE (nil)^. dwId )), 0 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_MOUSE'+'.'+'dwNumberOfButtons', SizeUInt(@(PRID_DEVICE_INFO_MOUSE (nil)^. dwNumberOfButtons )), 4 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_MOUSE'+'.'+'dwSampleRate', SizeUInt(@(PRID_DEVICE_INFO_MOUSE (nil)^. dwSampleRate )), 8 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_MOUSE'+'.'+'fHasHorizontalWheel', SizeUInt(@(PRID_DEVICE_INFO_MOUSE (nil)^. fHasHorizontalWheel )), 12 ) ;
+ DoCheckSize('RID_DEVICE_INFO_KEYBOARD', SizeOf( RID_DEVICE_INFO_KEYBOARD ), 24 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwType', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwType )), 0 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwSubType', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwSubType )), 4 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwKeyboardMode', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwKeyboardMode )), 8 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwNumberOfFunctionKeys', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwNumberOfFunctionKeys )), 12 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwNumberOfIndicators', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwNumberOfIndicators )), 16 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_KEYBOARD'+'.'+'dwNumberOfKeysTotal', SizeUInt(@(PRID_DEVICE_INFO_KEYBOARD (nil)^. dwNumberOfKeysTotal )), 20 ) ;
+ DoCheckSize('RID_DEVICE_INFO_HID', SizeOf( RID_DEVICE_INFO_HID ), 16 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_HID'+'.'+'dwVendorId', SizeUInt(@(PRID_DEVICE_INFO_HID (nil)^. dwVendorId )), 0 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_HID'+'.'+'dwProductId', SizeUInt(@(PRID_DEVICE_INFO_HID (nil)^. dwProductId )), 4 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_HID'+'.'+'dwVersionNumber', SizeUInt(@(PRID_DEVICE_INFO_HID (nil)^. dwVersionNumber )), 8 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_HID'+'.'+'usUsagePage', SizeUInt(@(PRID_DEVICE_INFO_HID (nil)^. usUsagePage )), 12 ) ;
+ DoCheckOffset('RID_DEVICE_INFO_HID'+'.'+'usUsage', SizeUInt(@(PRID_DEVICE_INFO_HID (nil)^. usUsage )), 14 ) ;
+ DoCheckSize('RID_DEVICE_INFO', SizeOf( RID_DEVICE_INFO ), 32 ) ;
+ DoCheckOffset('RID_DEVICE_INFO'+'.'+'cbSize', SizeUInt(@(PRID_DEVICE_INFO (nil)^. cbSize )), 0 ) ;
+ DoCheckOffset('RID_DEVICE_INFO'+'.'+'dwType', SizeUInt(@(PRID_DEVICE_INFO (nil)^. dwType )), 4 ) ;
+ DoCheckOffset('RID_DEVICE_INFO'+'.'+'mouse', SizeUInt(@(PRID_DEVICE_INFO (nil)^. mouse )), 8 ) ;
+ DoCheckOffset('RID_DEVICE_INFO'+'.'+'keyboard', SizeUInt(@(PRID_DEVICE_INFO (nil)^. keyboard )), 8 ) ;
+ DoCheckOffset('RID_DEVICE_INFO'+'.'+'hid', SizeUInt(@(PRID_DEVICE_INFO (nil)^. hid )), 8 ) ;
+ DoCheckSize('RAWINPUTDEVICE', SizeOf( RAWINPUTDEVICE ), 16 ) ;
+ DoCheckOffset('RAWINPUTDEVICE'+'.'+'usUsagePage', SizeUInt(@(PRAWINPUTDEVICE (nil)^. usUsagePage )), 0 ) ;
+ DoCheckOffset('RAWINPUTDEVICE'+'.'+'usUsage', SizeUInt(@(PRAWINPUTDEVICE (nil)^. usUsage )), 2 ) ;
+ DoCheckOffset('RAWINPUTDEVICE'+'.'+'dwFlags', SizeUInt(@(PRAWINPUTDEVICE (nil)^. dwFlags )), 4 ) ;
+ DoCheckOffset('RAWINPUTDEVICE'+'.'+'hwndTarget', SizeUInt(@(PRAWINPUTDEVICE (nil)^. hwndTarget )), 8 ) ;
+ DoCheckSize('RAWINPUTDEVICELIST', SizeOf( RAWINPUTDEVICELIST ), 16 ) ;
+ DoCheckOffset('RAWINPUTDEVICELIST'+'.'+'hDevice', SizeUInt(@(PRAWINPUTDEVICELIST (nil)^. hDevice )), 0 ) ;
+ DoCheckOffset('RAWINPUTDEVICELIST'+'.'+'dwType', SizeUInt(@(PRAWINPUTDEVICELIST (nil)^. dwType )), 8 ) ;
+ if errors_found then
+ begin
+ Writeln('Errors found!');
+ Halt(1);
+ end
+ else
+ Writeln('Ok!');
+
+end.
diff --git a/tests/utils/dotest.pp b/tests/utils/dotest.pp
index 7b0cb3bf63..6025aee6ca 100644
--- a/tests/utils/dotest.pp
+++ b/tests/utils/dotest.pp
@@ -686,11 +686,13 @@ begin
TargetHasDosStyleDirectories :=
(LTarget='emx') or
(LTarget='go32v2') or
+ (LTarget='msdos') or
(LTarget='nativent') or
(LTarget='os2') or
(LTarget='symbian') or
(LTarget='watcom') or
(LTarget='wdosx') or
+ (LTarget='win16') or
(LTarget='win32') or
(LTarget='win64');
TargetAmigaLike:=
diff --git a/tests/webtbs/tw30119a.pp b/tests/webtbs/tw30119a.pp
new file mode 100644
index 0000000000..7b86bd4220
--- /dev/null
+++ b/tests/webtbs/tw30119a.pp
@@ -0,0 +1,154 @@
+//{$codepage cp_acp}
+//{$codepage cp1250}
+
+
+program tw30119;
+//uses
+// fkdane,
+ // fkrecord;
+//uses
+// cwstring;
+{$H+}
+
+
+type
+
+ rButikPtr = ^rButik;
+ rButik =
+ packed record
+ data : word; {2}
+ dowod : word; {4}
+ numer : int64; {12}
+ dataDost : word; {14} {w zamowieniu otwarte 00 }
+ memoa, {16} { 1- dot zamowienia zamkniete 10
+ 2- par fisk --> WNT z importu zawieszone 01 anulowane 11
+
+ 4- paleta pilne
+ 8- (nazwa zestawu) (stare :dot produkcji
+ 16- numer odbiorcy w tww
+ 32- zablokowane (stare:druga jednostkia cenaP
+ 64- poprano z produkcji - wyrob (stere data WZ w twn (norm numer WZ))
+ 128 : pole memo w tww
+
+ }
+ vat : byte;
+ towar, {18}
+ dostawca, {20}
+ odbiorca : word; {22}
+ typ : shortint; {23}
+ ilosc, {27}
+ cenaZ, {31}
+ cenaS : single; {35}
+ akwizytor : byte; {36}
+ wolne1 : word; {38} {nr dostawy}
+ cenaE : single; {42}
+
+ end;
+
+
+const
+
+ ntFakturaIMP = 2;
+ ntKoszt = 3;
+ ntWOC = 4;
+ ntFI = 5;
+ ntPW = 14;
+ ntPrzyjecieTow = 15;
+ ntFakturaExp = 25;
+ ntFakturaSprz = 26;
+ ntKP = 27;
+ ntUslUnia = 28;
+ ntfakturaUSL = 29;{ *}
+ ntPzRWS = 30;
+ ntFakturaSprzVat= 34;
+ ntFakturaUslVat = 35; { faktura do paragonu*}
+ ntZamowienieSprz= 36;
+ ntDetal = 55;
+ ntRW = 65;
+ ntPrzesun = 66;
+ ntDekompl = 67;
+ ntPZO = 68;
+// ntWymiana = 69;{*}
+ ntFakturaSprzDew = 69;
+ ntReklamacjaVAT = 70;
+ ntPZOVat = 71;
+ ntBO = 77;
+ ntZobowImp = 78;
+ ntWZ = 79;
+ ntZwrotPW = 80;
+ ntKpZ = 81;
+ ntKWz = 82;
+ ntPZOEXP = 83;
+ ntFakturaW = 84;
+
+
+
+ ntExpUnia = 98;
+ ntImpUnia = 99;
+ ntImpUniaM = 100;
+
+
+ ntPZOUnia = 103;
+
+var
+ tab : array [0..10] of double;
+
+
+procedure testCaseRaw(const rr : rButik);
+var
+ kwz: Double;
+begin
+ kwz:=20;
+
+
+ case rr.typ of
+ ntFakturaSprz,ntFakturaSPrzVat,
+ ntPzoExp,ntPzoUnia,
+ ntPzoVat,ntPzo,
+
+ ntDetal,ntPzRWS,
+
+ ntExpUnia,ntFakturaEXP: begin
+ tab[1]:=tab[1]+rr.ilosc;
+ tab[2]:=tab[2]+kwz;
+ end;
+ ntRW : begin
+ tab[4]:=tab[4]+kwz;
+ end;
+
+ -ntFakturaIMP,
+ -ntPrzyjecietow : begin
+ tab[3]:=tab[3]+kwz;
+ end;
+ -ntBO : begin
+ tab[5]:=tab[5]+kwz;
+ end;
+
+ end;
+
+end;
+
+procedure testCaseA;
+var
+ r : rButik;
+begin
+ // zeruj(r);
+ r.ilosc:=1;
+ r.cenaZ:=10;
+ r.typ:=65;
+ testCaseRaw(r);
+// checkEquals(10,tab[4]);
+ r.typ:=-ntPrzyjecieTow;
+ testCaseRaw(r);
+// checkEquals(10,tab[3]);
+ r.typ:=65;
+ testCaseRaw(r);
+end;
+
+
+
+begin
+ writeln('start');
+ testCaseA;
+ writeln('stop') ;
+end.
diff --git a/tests/webtbs/tw30119b.pp b/tests/webtbs/tw30119b.pp
new file mode 100644
index 0000000000..8e02d3774f
--- /dev/null
+++ b/tests/webtbs/tw30119b.pp
@@ -0,0 +1,158 @@
+//{$codepage cp_acp}
+//{$codepage cp1250}
+
+
+program tw30119;
+//uses
+// fkdane,
+ // fkrecord;
+//uses
+// cwstring;
+{$H+}
+
+
+type
+
+ rButikPtr = ^rButik;
+ rButik =
+ packed record
+ data : word; {2}
+ dowod : word; {4}
+ numer : int64; {12}
+ dataDost : word; {14} {w zamowieniu otwarte 00 }
+ memoa, {16} { 1- dot zamowienia zamkniete 10
+ 2- par fisk --> WNT z importu zawieszone 01 anulowane 11
+
+ 4- paleta pilne
+ 8- (nazwa zestawu) (stare :dot produkcji
+ 16- numer odbiorcy w tww
+ 32- zablokowane (stare:druga jednostkia cenaP
+ 64- poprano z produkcji - wyrob (stere data WZ w twn (norm numer WZ))
+ 128 : pole memo w tww
+
+ }
+ vat : byte;
+ towar, {18}
+ dostawca, {20}
+ odbiorca : word; {22}
+ typ : -77..103; {23}
+ ilosc, {27}
+ cenaZ, {31}
+ cenaS : single; {35}
+ akwizytor : byte; {36}
+ wolne1 : word; {38} {nr dostawy}
+ cenaE : single; {42}
+
+ end;
+
+
+const
+
+ ntFakturaIMP = 2;
+ ntKoszt = 3;
+ ntWOC = 4;
+ ntFI = 5;
+ ntPW = 14;
+ ntPrzyjecieTow = 15;
+ ntFakturaExp = 25;
+ ntFakturaSprz = 26;
+ ntKP = 27;
+ ntUslUnia = 28;
+ ntfakturaUSL = 29;{ *}
+ ntPzRWS = 30;
+ ntFakturaSprzVat= 34;
+ ntFakturaUslVat = 35; { faktura do paragonu*}
+ ntZamowienieSprz= 36;
+ ntDetal = 55;
+ ntRW = 65;
+ ntPrzesun = 66;
+ ntDekompl = 67;
+ ntPZO = 68;
+// ntWymiana = 69;{*}
+ ntFakturaSprzDew = 69;
+ ntReklamacjaVAT = 70;
+ ntPZOVat = 71;
+ ntBO = 77;
+ ntZobowImp = 78;
+ ntWZ = 79;
+ ntZwrotPW = 80;
+ ntKpZ = 81;
+ ntKWz = 82;
+ ntPZOEXP = 83;
+ ntFakturaW = 84;
+
+
+
+ ntExpUnia = 98;
+ ntImpUnia = 99;
+ ntImpUniaM = 100;
+
+
+ ntPZOUnia = 103;
+
+var
+ tab : array [0..10] of double;
+
+
+procedure testCaseRaw(const rr : rButik);
+var
+ kwz: Double;
+begin
+ kwz:=20;
+
+
+ case rr.typ of
+ ntFakturaSprz,ntFakturaSPrzVat,
+ ntPzoExp,ntPzoUnia,
+ ntPzoVat,ntPzo,
+
+ ntDetal,ntPzRWS,
+
+ ntExpUnia,ntFakturaEXP: begin
+ tab[1]:=tab[1]+rr.ilosc;
+ tab[2]:=tab[2]+kwz;
+ end;
+ -20..-16:
+ ;
+ -30..-21:
+ ;
+ ntRW : begin
+ tab[4]:=tab[4]+kwz;
+ end;
+
+ -ntFakturaIMP,
+ -ntPrzyjecietow : begin
+ tab[3]:=tab[3]+kwz;
+ end;
+ -ntBO : begin
+ tab[5]:=tab[5]+kwz;
+ end;
+
+ end;
+
+end;
+
+procedure testCaseA;
+var
+ r : rButik;
+begin
+ // zeruj(r);
+ r.ilosc:=1;
+ r.cenaZ:=10;
+ r.typ:=65;
+ testCaseRaw(r);
+// checkEquals(10,tab[4]);
+ r.typ:=-ntPrzyjecieTow;
+ testCaseRaw(r);
+// checkEquals(10,tab[3]);
+ r.typ:=65;
+ testCaseRaw(r);
+end;
+
+
+
+begin
+ writeln('start');
+ testCaseA;
+ writeln('stop') ;
+end.
diff --git a/tests/webtbs/tw30166.pp b/tests/webtbs/tw30166.pp
new file mode 100644
index 0000000000..bd975dd795
--- /dev/null
+++ b/tests/webtbs/tw30166.pp
@@ -0,0 +1,32 @@
+{ Test against Mantis #30166, an issue in the i386 fpc_div_int64 helper. }
+Uses sysutils;
+
+Var cc, dd: int64;
+ a, b: int64;
+
+Begin
+ dd:=int64($0000000A6BB38805);
+ cc:=int64($0000000000142E04);
+ cc:=cc-2822400; { $FF11813BCCC3B114 }
+ dd:=dd*cc;
+
+{ dd:=int64($FF11813BCCC3B114); }
+
+ a:=dd div int64($00000000002B1100);
+ b:=int64($FF11813BCCC3B114) div int64($00000000002B1100);
+
+ WriteLn(IntToHex(cc,16));
+ WriteLn(IntToHex(dd,16));
+ WriteLn('FF11813BCCC3B114:00000000002B1100='#9, IntToHex(a,16));
+ WriteLn('FF11813BCCC3B114:00000000002B1100='#9, IntToHex(b,16));
+
+ if a<>b then
+ begin
+ writeln('Failed!');
+ halt(1);
+ end
+ else
+ begin
+ writeln('Passed!');
+ end;
+End.
diff --git a/utils/unicode/cldrhelper.pas b/utils/unicode/cldrhelper.pas
index a1495244f5..1ae155cba4 100644
--- a/utils/unicode/cldrhelper.pas
+++ b/utils/unicode/cldrhelper.pas
@@ -1,6 +1,6 @@
{ CLDR collation helper unit.
- Copyright (c) 2013 by Inoussa OUEDRAOGO
+ Copyright (c) 2013-2015 by Inoussa OUEDRAOGO
The source code is distributed under the Library GNU
General Public License with the following modification:
@@ -47,9 +47,6 @@ type
TUCA_LineRecArray = array of TUCA_LineRec;
-
-//----------------------------------------------------
-
ECldrException = class(Exception)
end;
@@ -66,12 +63,23 @@ type
FirstNonIgnorable, LastNonIgnorable,
FirstTrailing, LastTrailing
);
+const
+ FixableReorderLogicalSet = [
+ TReorderLogicalReset.LastRegular,TReorderLogicalReset.FirstTrailing,
+ TReorderLogicalReset.LastTrailing
+ ];
+
+type
TCollationField = (BackWard, VariableLowLimit, VariableHighLimit);
TCollationFields = set of TCollationField;
+ PReorderUnit = ^TReorderUnit;
+
{ TReorderUnit }
TReorderUnit = X_PACKED record
+ private
+ FVirtualPosition : TReorderLogicalReset;
public
Context : TUnicodeCodePointArray;
ExpansionChars : TUnicodeCodePointArray;
@@ -80,6 +88,9 @@ type
InitialPosition : Integer;
Changed : Boolean;
public
+ property VirtualPosition : TReorderLogicalReset read FVirtualPosition;
+ function IsVirtual() : Boolean;inline;
+ public
class function From(
const AChars,
AContext : array of TUnicodeCodePoint;
@@ -102,15 +113,19 @@ type
const AWeigthKind : TReorderWeigthKind;
const AInitialPosition : Integer
) : TReorderUnit;static;overload;
+ class function From(
+ const AReset : TReorderLogicalReset
+ ) : TReorderUnit;static;overload;
procedure SetExpansion(const AChars : array of TUnicodeCodePoint);
procedure SetExpansion(const AChar : TUnicodeCodePoint);
procedure Clear();
- procedure Assign(const AItem : TReorderUnit);
+ procedure Assign(const AItem : PReorderUnit);
function HasContext() : Boolean;
function IsExpansion() : Boolean;
end;
- PReorderUnit = ^TReorderUnit;
+
+ PReorderSequence = ^TReorderSequence;
{ TReorderSequence }
@@ -122,8 +137,9 @@ type
Before : Boolean;
public
procedure Clear();
+ procedure SetElementCount(const ALength : Integer);
+ procedure Assign(ASource : PReorderSequence);
end;
- PReorderSequence = ^TReorderSequence;
TReorderSequenceArray = array of TReorderSequence;
{ TOrderedCharacters }
@@ -150,28 +166,68 @@ type
end;
POrderedCharacters = ^TOrderedCharacters;
+ { TCldrImport }
+
+ TCldrImport = class
+ private
+ FSource: string;
+ FTypeName: string;
+ public
+ property Source : string read FSource;
+ property TypeName : string read FTypeName;
+ end;
+
+ { TCldrImportList }
+
+ TCldrImportList = class
+ private
+ FItems : array of TCldrImport;
+ private
+ function GetCount: Integer;
+ function GetItem(AIndex : Integer): TCldrImport;
+ public
+ destructor Destroy();override;
+ procedure Clear();
+ function IndexOf(const ASource, AType : string) : Integer;
+ function Find(const ASource, AType : string) : TCldrImport;
+ function Add(const ASource, AType : string) : TCldrImport;
+ property Count : Integer read GetCount;
+ property Item[AIndex : Integer] : TCldrImport read GetItem;default;
+ end;
+
TCldrCollation = class;
{ TCldrCollationItem }
TCldrCollationItem = class
private
+ FAlt: string;
FBackwards: Boolean;
FBase: string;
FChangedFields: TCollationFields;
+ FImports: TCldrImportList;
FParent: TCldrCollation;
FRules: TReorderSequenceArray;
FTypeName: string;
public
+ constructor Create();
+ destructor Destroy;override;
procedure Clear();
+ function IsPrivate() : Boolean;
property Parent : TCldrCollation read FParent;
property TypeName : string read FTypeName write FTypeName;
+ property Alt : string read FAlt write FAlt;
property Base : string read FBase write FBase;
property Backwards : Boolean read FBackwards write FBackwards;
property Rules : TReorderSequenceArray read FRules write FRules;
property ChangedFields : TCollationFields read FChangedFields write FChangedFields;
+ property Imports : TCldrImportList read FImports;
end;
+ TCldrParserMode = (HeaderParsing, FullParsing);
+
+ TCldrCollationRepository = class;
+
{ TCldrCollation }
TCldrCollation = class
@@ -181,24 +237,81 @@ type
FDefaultType: string;
FVersion: string;
FLanguage: string;
+ FMode: TCldrParserMode;
+ FRepository: TCldrCollationRepository;
private
function GetItem(Index : Integer): TCldrCollationItem;
function GetItemCount: Integer;
public
destructor Destroy();override;
procedure Clear();
- function IndexOf(const AItemName : string) : Integer;
- function Find(const AItemName : string) : TCldrCollationItem;
+ function IndexOf(const AItemName : string) : Integer;overload;
+ function IndexOf(const AItemName, AItemAlt : string) : Integer;overload;
+ function Find(const AItemName : string) : TCldrCollationItem;overload;
+ function Find(const AItemName, AItemAlt : string) : TCldrCollationItem;overload;
function Add(AItem : TCldrCollationItem) : Integer;
+ function FindPublicItemCount() : Integer;
property Language : string read FLanguage write FLanguage;
property LocalID : string read FLocalID write FLocalID;
property Version : string read FVersion write FVersion;
property DefaultType : string read FDefaultType write FDefaultType;
property ItemCount : Integer read GetItemCount;
property Items[Index : Integer] : TCldrCollationItem read GetItem;
+ property Mode : TCldrParserMode read FMode write FMode;
+ property Repository : TCldrCollationRepository read FRepository;
end;
- TCldrParserMode = (HeaderParsing, FullParsing);
+ ICldrCollationLoader = interface
+ ['{117AAC84-06CE-4EC8-9B07-4E81EC23930C}']
+ procedure LoadCollation(
+ const ALanguage : string;
+ ACollation : TCldrCollation;
+ AMode : TCldrParserMode
+ );
+ procedure LoadCollationType(
+ const ALanguage,
+ ATypeName : string;
+ AType : TCldrCollationItem
+ );
+ end;
+
+ { TCldrCollationRepository }
+
+ TCldrCollationRepository = class
+ private
+ FItems : array of TCldrCollation;
+ FLoader: ICldrCollationLoader;
+ private
+ function GetItem(const AIndex : Integer): TCldrCollation;
+ function GetItemCount: Integer;
+ function IndexOfItem(AItem : TCldrCollation) : Integer;
+ procedure Add(AItem : TCldrCollation);
+ public
+ constructor Create(ALoader : ICldrCollationLoader);
+ destructor Destroy;override;
+ procedure FreeItems();
+ procedure Clear();
+ procedure SetLoader(AValue : ICldrCollationLoader);
+ function IndexOf(const ALanguage : string) : Integer;
+ function Find(const ALanguage : string) : TCldrCollation;
+ function Load(const ALanguage : string; const AMode : TCldrParserMode) : TCldrCollation;
+ property ItemCount : Integer read GetItemCount;
+ property Items[const AIndex : Integer] : TCldrCollation read GetItem;
+ property Loader : ICldrCollationLoader read FLoader;
+ end;
+
+ TRuleVisiterFunction =
+ function(
+ ARule : PReorderSequence;
+ AOwner : TCldrCollationItem;
+ AData : Pointer
+ ) : Boolean;
+
+ function ForEachRule(
+ ACollationType : TCldrCollationItem;
+ AVisitFunc : TRuleVisiterFunction;
+ ACustomData : Pointer
+ ) : Boolean;
function ComputeWeigths(
const AData : PReorderUnit;
@@ -240,10 +353,47 @@ type
const ASequenceLength : Integer
) : Integer;
+ function TryStrToLogicalReorder(
+ const AValue : string;
+ out AResult : TReorderLogicalReset
+ ) : Boolean;
+
+
+resourcestring
+ sCaseNothandled = 'This case is not handled : "%s", Position = %d.';
+ sCodePointExpected = 'Code Point node expected as child at this position "%d".';
+ sCollationsExistsAlready = 'This collation already exists : "%s"';
+ sCollationsNodeNotFound = '"collations" node not found.';
+ sCollationTypeNotFound = 'collation "Type" not found : "%s".';
+ sHexAttributeExpected = '"hex" attribute expected at this position "%d".';
+ sInvalidResetClause = 'Invalid "Reset" clause.';
+ sNodeNameAssertMessage = 'Expected NodeName "%s", got "%s".';
+ sRulesNodeNotFound = '"rules" node not found.';
+ sTextNodeChildExpected = '(Child) text node expected at this position "%d", but got "%s".';
+ sUniqueChildNodeExpected = 'Unique child node expected at this position "%d".';
+ sUnknownResetLogicalPosition = 'Unknown reset logical position : "%s".';
+ sVirtualIsReadOnly = 'Virtual logical "Reset" items are read only.';
+
implementation
uses
RtlConsts, typinfo;
+function TryStrToLogicalReorder(
+ const AValue : string;
+ out AResult : TReorderLogicalReset
+) : Boolean;
+var
+ s : string;
+ i : Integer;
+begin
+ s := StringReplace(AValue,' ','',[rfReplaceAll]);
+ s := StringReplace(s,'_','',[rfReplaceAll]);
+ i := GetEnumValue(TypeInfo(TReorderLogicalReset),s);
+ Result := (i > -1);
+ if Result then
+ AResult := TReorderLogicalReset(i);
+end;
+
function ToStr(const ACharacters : array of TUnicodeCodePoint): string;
var
i : Integer;
@@ -457,6 +607,11 @@ begin
end;
if (APosition = TReorderLogicalReset.LastNonIgnorable) then
exit(c);
+ for i := 0 to c - 1 do begin
+ if (p^.VirtualPosition = APosition) then
+ exit(i);
+ Inc(p);
+ end;
end;
procedure ApplyStatementToSequence(
@@ -491,6 +646,12 @@ var
end else begin
if (kr = 0) then
exit(0);
+ pd := @ASequence.Data[kr];
+ if pd^.IsVirtual() and (pd^.VirtualPosition in FixableReorderLogicalSet) then begin
+ kr := kr-1;
+ if (kr = 0) then
+ exit;
+ end;
kk := kr;
pd := @ASequence.Data[kk];
if (pd^.WeigthKind = TReorderWeigthKind.Primary) then begin
@@ -518,8 +679,8 @@ begin
pst := AStatement;
for h := 0 to AStatementCount - 1 do begin
locResetPos := -1;
- if (AStatement^.LogicalPosition > TReorderLogicalReset.None) then
- locResetPos := FindLogicalPos(@ASequence,AStatement^.LogicalPosition)
+ if (pst^.LogicalPosition > TReorderLogicalReset.None) then
+ locResetPos := FindLogicalPos(@ASequence,pst^.LogicalPosition)
else if (Length(pst^.Reset) > 0) then begin
locResetPos := IndexOf(pst^.Reset,[],@ASequence.Data[0],ASequence.ActualLength);
{if (locResetPos = -1) then
@@ -527,6 +688,15 @@ begin
if (locResetPos = -1) then
locResetPos := ASequence.ActualLength;
end;
+ if (pst^.LogicalPosition in FixableReorderLogicalSet) then begin
+ if (locResetPos < 0) or
+ (locResetPos >= ASequence.ActualLength) or
+ not(ASequence.Data[locResetPos].VirtualPosition in FixableReorderLogicalSet)
+ then begin
+ locResetPos := ASequence.Append(TReorderUnit.From(pst^.LogicalPosition));
+ end;
+ end;
+
pse := @pst^.Elements[0];
kr := locResetPos;
k := GetNextInsertPos();
@@ -718,6 +888,47 @@ begin
end;
end;
+function IsIgnorable(AWeight : TUCA_WeightRecArray) : Boolean;
+var
+ i : Integer;
+begin
+ if (Length(AWeight) = 0) then
+ exit(True);
+ for i := Low(AWeight) to High(AWeight) do begin
+ if (AWeight[i].Weights[0] <> 0) or
+ (AWeight[i].Weights[1] <> 0) or
+ (AWeight[i].Weights[2] <> 0)
+ then begin
+ exit(False);
+ end;
+ end;
+ Result := True;
+end;
+
+function RemoveIgnorables(
+ AItem : TUnicodeCodePointArray;
+ const AList : PUCA_LineRec;
+ const AListLen : Integer
+) : TUnicodeCodePointArray;
+var
+ i, c, k : Integer;
+begin
+ SetLength(Result,Length(AItem));
+ c := 0;
+ for i := 0 to Length(AItem) - 1 do begin
+ k := IndexOf([AItem[i]],AList,AListLen);
+ if (k >= 0) and
+ IsIgnorable(AList[k].Weights)
+ then
+ k := -1;
+ if (k >= 0) then begin
+ Result[c] := AItem[i];
+ c := c+1;
+ end;
+ end;
+ SetLength(Result,c);
+end;
+
function Compress(
const AData : TUCA_LineRecArray;
out AResult : TUCA_LineRecArray
@@ -806,7 +1017,7 @@ begin
q := AData;
p := AData;
for i := 0 to ADataLen - 1 do begin
- if p^.Changed then begin
+ if not(p^.IsVirtual()) and p^.Changed then begin
suffixChar := p^.Characters[0];
for k := 0 to ADataLen - 1 do begin
if not(q[k].Changed) and (q[k].Characters[0] = suffixChar) then begin
@@ -821,7 +1032,7 @@ end;
{$include weight_derivation.inc}
-function ComputeWeigths(
+function InternalComputeWeigths(
const AData : PReorderUnit;
const ADataLen : Integer;
const ADataWeigths : TUCA_LineRecArray;
@@ -1116,6 +1327,41 @@ begin
Result := Length(AResult);
end;
+function ComputeWeigths(
+ const AData : PReorderUnit;
+ const ADataLen : Integer;
+ const ADataWeigths : TUCA_LineRecArray;
+ out AResult : TUCA_LineRecArray
+) : Integer;
+var
+ locData : array of TReorderUnit;
+ i, actualLength : Integer;
+ p : PReorderUnit;
+begin
+ SetLength(locData,ADataLen);
+ actualLength := 0;
+ p := AData;
+ for i := 0 to ADataLen-1 do begin
+ if not p^.IsVirtual() then begin
+ locData[actualLength].Assign(p);
+ actualLength := actualLength+1;
+ end;
+ Inc(p);
+ end;
+ if (Length(locData) <> actualLength) then
+ SetLength(locData,actualLength);
+ Result := InternalComputeWeigths(@locData[0],actualLength,ADataWeigths,AResult);
+
+ p := AData;
+ for i := 0 to actualLength-1 do begin
+ while p^.IsVirtual() do begin
+ Inc(p);
+ end;
+ p^.Assign(@locData[i]);
+ Inc(p);
+ end;
+end;
+
function FillInitialPositions(
AData : PReorderUnit;
const ADataLen : Integer;
@@ -1125,6 +1371,7 @@ var
locNotFound, i, cw : Integer;
p : PReorderUnit;
pw : PUCA_LineRec;
+ chars : TUnicodeCodePointArray;
begin
locNotFound := 0;
cw := Length(ADataWeigths);
@@ -1135,6 +1382,10 @@ begin
p := AData;
for i := 0 to ADataLen - 1 do begin
p^.InitialPosition := IndexOf(p^.Characters,pw,cw) + 1;
+ if (p^.InitialPosition = 0) then begin
+ chars := RemoveIgnorables(p^.Characters,pw,cw);
+ p^.InitialPosition := IndexOf(chars,pw,cw) + 1;
+ end;
if (p^.InitialPosition = 0) then
Inc(locNotFound);
Inc(p);
@@ -1142,8 +1393,212 @@ begin
Result := locNotFound;
end;
+{ TCldrImportList }
+
+function TCldrImportList.GetCount: Integer;
+begin
+ Result := Length(FItems);
+end;
+
+function TCldrImportList.GetItem(AIndex : Integer): TCldrImport;
+begin
+ if (AIndex < 0) or (AIndex >= Length(FItems)) then
+ raise ERangeError.CreateFmt(SListIndexError,[AIndex]);
+ Result := FItems[AIndex];
+end;
+
+destructor TCldrImportList.Destroy();
+begin
+ Clear();
+ inherited;
+end;
+
+procedure TCldrImportList.Clear();
+var
+ i : Integer;
+begin
+ for i := Low(FItems) to High(FItems) do
+ FreeAndNil(FItems[i]);
+ SetLength(FItems,0);
+end;
+
+function TCldrImportList.IndexOf(const ASource, AType: string): Integer;
+var
+ i : Integer;
+begin
+ for i := Low(FItems) to High(FItems) do begin
+ if (FItems[i].Source = ASource) and (FItems[i].TypeName = AType) then begin
+ Result := i;
+ exit;
+ end;
+ end;
+ Result := -1;
+end;
+
+function TCldrImportList.Find(const ASource, AType: string): TCldrImport;
+var
+ i : Integer;
+begin
+ i := IndexOf(ASource,AType);
+ if (i >= 0) then
+ Result := FItems[i]
+ else
+ Result := nil;
+end;
+
+function TCldrImportList.Add(const ASource, AType: string): TCldrImport;
+var
+ i : Integer;
+begin
+ i := IndexOf(ASource,AType);
+ if (i >= 0) then begin
+ Result := FItems[i];
+ end else begin
+ Result := TCldrImport.Create();
+ Result.FSource := ASource;
+ Result.FTypeName := AType;
+ i := Length(FItems);
+ SetLength(FItems,(i+1));
+ FItems[i] := Result;
+ end;
+end;
+
+{ TCldrCollationRepository }
+
+function TCldrCollationRepository.GetItem(const AIndex : Integer): TCldrCollation;
+begin
+ if (AIndex < 0) or (AIndex >= Length(FItems)) then
+ raise ERangeError.CreateFmt(SListIndexError,[AIndex]);
+ Result := FItems[AIndex];
+end;
+
+function TCldrCollationRepository.GetItemCount: Integer;
+begin
+ Result := Length(FItems);
+end;
+
+function TCldrCollationRepository.IndexOfItem(AItem: TCldrCollation): Integer;
+var
+ i : Integer;
+begin
+ for i := Low(FItems) to High(FItems) do begin
+ if (FItems[i] = AItem) then begin
+ Result := i;
+ exit;
+ end;
+ end;
+ Result := -1;
+end;
+
+procedure TCldrCollationRepository.Add(AItem: TCldrCollation);
+var
+ i : Integer;
+begin
+ if (AItem = nil) then
+ raise EArgumentException.CreateFmt(SParamIsNil,['AItem: TCldrCollation']);
+ if (IndexOfItem(AItem) >= 0) then
+ raise EArgumentException.CreateFmt(sCollationsExistsAlready,[AItem.Language]);
+ i := Length(FItems);
+ SetLength(FItems,(i+1));
+ AItem.FRepository := Self;
+ FItems[i] := AItem;
+end;
+
+constructor TCldrCollationRepository.Create(ALoader: ICldrCollationLoader);
+begin
+ if (ALoader = nil) then
+ raise EArgumentException.CreateFmt(SInvalidPropertyElement,['Loader']);
+ SetLoader(ALoader);
+end;
+
+destructor TCldrCollationRepository.Destroy;
+begin
+ Clear();
+ inherited Destroy;
+end;
+
+procedure TCldrCollationRepository.FreeItems();
+var
+ i : Integer;
+begin
+ for i := 0 to Length(FItems) - 1 do
+ FreeAndNil(FItems[i]);
+ SetLength(FItems,0);
+end;
+
+procedure TCldrCollationRepository.Clear();
+begin
+ FreeItems();
+end;
+
+procedure TCldrCollationRepository.SetLoader(AValue: ICldrCollationLoader);
+begin
+ if (FLoader <> AValue) then
+ FLoader := AValue;
+end;
+
+function TCldrCollationRepository.IndexOf(const ALanguage: string): Integer;
+var
+ i : Integer;
+begin
+ for i := Low(FItems) to High(FItems) do begin
+ if (FItems[i].Language = ALanguage) then begin
+ Result := i;
+ exit;
+ end
+ end;
+ Result := -1;
+end;
+
+function TCldrCollationRepository.Find(const ALanguage: string): TCldrCollation;
+var
+ i : Integer;
+begin
+ i := IndexOf(ALanguage);
+ if (i >= 0) then
+ Result := FItems[i]
+ else
+ Result := nil;
+end;
+
+function TCldrCollationRepository.Load(
+ const ALanguage : string;
+ const AMode : TCldrParserMode
+) : TCldrCollation;
+var
+ isnew : Boolean;
+begin
+ Result := Find(ALanguage);
+ if (Result <> nil) then begin
+ if (Result.Mode = TCldrParserMode.FullParsing) or (Result.Mode = AMode) then
+ exit;
+ end;
+ isnew := (Result = nil);
+ if isnew then
+ Result := TCldrCollation.Create();
+ try
+ Loader.LoadCollation(ALanguage,Result,AMode);
+ Add(Result);
+ except
+ if isnew then
+ FreeAndNil(Result);
+ raise;
+ end;
+end;
+
{ TCldrCollationItem }
+constructor TCldrCollationItem.Create;
+begin
+ FImports := TCldrImportList.Create();
+end;
+
+destructor TCldrCollationItem.Destroy;
+begin
+ FImports.Free();
+ inherited Destroy;
+end;
+
procedure TCldrCollationItem.Clear();
begin
FBackwards := False;
@@ -1151,6 +1606,12 @@ begin
FChangedFields := [];
SetLength(FRules,0);
FTypeName := '';
+ FImports.Clear();
+end;
+
+function TCldrCollationItem.IsPrivate() : Boolean;
+begin
+ Result := (Pos('private-',TypeName) = 1);
end;
{ TCldrCollation }
@@ -1195,6 +1656,20 @@ begin
Result := -1;
end;
+function TCldrCollation.IndexOf(const AItemName, AItemAlt: string): Integer;
+var
+ i : Integer;
+begin
+ for i := 0 to ItemCount - 1 do begin
+ if SameText(AItemName,Items[i].TypeName) and
+ SameText(AItemAlt,Items[i].Alt)
+ then begin
+ exit(i);
+ end;
+ end;
+ Result := -1;
+end;
+
function TCldrCollation.Find(const AItemName: string): TCldrCollationItem;
var
i : Integer;
@@ -1206,6 +1681,17 @@ begin
Result := Items[i];
end;
+function TCldrCollation.Find(const AItemName, AItemAlt: string): TCldrCollationItem;
+var
+ i : Integer;
+begin
+ i := IndexOf(AItemName,AItemAlt);
+ if (i = - 1) then
+ Result := nil
+ else
+ Result := Items[i];
+end;
+
function TCldrCollation.Add(AItem: TCldrCollationItem): Integer;
begin
Result := Length(FItems);
@@ -1214,6 +1700,18 @@ begin
AItem.FParent := Self;
end;
+function TCldrCollation.FindPublicItemCount() : Integer;
+var
+ r, i : Integer;
+begin
+ r := 0;
+ for i := 0 to ItemCount-1 do begin
+ if not Items[i].IsPrivate() then
+ r := r+1;
+ end;
+ Result := r;
+end;
+
{ TReorderSequence }
procedure TReorderSequence.Clear();
@@ -1224,8 +1722,34 @@ begin
Before := False;
end;
+procedure TReorderSequence.SetElementCount(const ALength: Integer);
+begin
+ SetLength(Elements,ALength);
+end;
+
+procedure TReorderSequence.Assign(ASource: PReorderSequence);
+var
+ c, i : Integer;
+begin
+ if (ASource = nil) then begin
+ Self.Clear();
+ exit;
+ end;
+ Self.Reset := Copy(ASource^.Reset);
+ c := Length(ASource^.Elements);
+ SetLength(Self.Elements,c);
+ for i := 0 to c-1 do
+ Self.Elements[i].Assign(@ASource^.Elements[i]);
+ Self.Before := ASource^.Before;
+end;
+
{ TReorderUnit }
+function TReorderUnit.IsVirtual() : Boolean;
+begin
+ Result := (FVirtualPosition > TReorderLogicalReset.None);
+end;
+
class function TReorderUnit.From(
const AChars,
AContext : array of TUnicodeCodePoint;
@@ -1235,6 +1759,7 @@ class function TReorderUnit.From(
var
c : Integer;
begin
+ Result.Clear();
c := Length(AChars);
SetLength(Result.Characters,c);
if (c > 0) then
@@ -1276,10 +1801,19 @@ begin
Result := From([AChar],AContext,AWeigthKind,AInitialPosition);
end;
+class function TReorderUnit.From(const AReset: TReorderLogicalReset): TReorderUnit;
+begin
+ Result.Clear();
+ Result.FVirtualPosition := AReset;
+end;
+
procedure TReorderUnit.SetExpansion(const AChars: array of TUnicodeCodePoint);
var
c : Integer;
begin
+ if IsVirtual() then
+ raise ECldrException.Create(sVirtualIsReadOnly);
+
c := Length(AChars);
SetLength(ExpansionChars,c);
if (c > 0) then
@@ -1288,11 +1822,15 @@ end;
procedure TReorderUnit.SetExpansion(const AChar: TUnicodeCodePoint);
begin
+ if IsVirtual() then
+ raise ECldrException.Create(sVirtualIsReadOnly);
+
SetExpansion([AChar]);
end;
procedure TReorderUnit.Clear();
begin
+ Self.FVirtualPosition := TReorderLogicalReset(0);
Self.Characters := nil;
Self.Context := nil;
Self.ExpansionChars := nil;
@@ -1301,16 +1839,19 @@ begin
Self.Changed := False;
end;
-procedure TReorderUnit.Assign(const AItem : TReorderUnit);
+procedure TReorderUnit.Assign(const AItem : PReorderUnit);
begin
Clear();
- Self.Characters := Copy(AItem.Characters);
- //SetLength(Self.Context,Length(AItem.Context));
- Self.Context := Copy(AItem.Context);
- Self.ExpansionChars := Copy(AItem.ExpansionChars);
- Self.WeigthKind := AItem.WeigthKind;
- Self.InitialPosition := AItem.InitialPosition;
- Self.Changed := AItem.Changed;
+ if (AItem <> nil) then begin
+ Self.FVirtualPosition := AItem^.VirtualPosition;
+ Self.Characters := Copy(AItem^.Characters);
+ //SetLength(Self.Context,Length(AItem^.Context));
+ Self.Context := Copy(AItem^.Context);
+ Self.ExpansionChars := Copy(AItem^.ExpansionChars);
+ Self.WeigthKind := AItem^.WeigthKind;
+ Self.InitialPosition := AItem^.InitialPosition;
+ Self.Changed := AItem^.Changed;
+ end;
end;
function TReorderUnit.HasContext() : Boolean;
@@ -1365,7 +1906,7 @@ begin
Result.Clear();
SetLength(Result.Data,Self.ActualLength);
for i := 0 to Length(Result.Data) - 1 do
- Result.Data[i].Assign(Self.Data[i]);
+ Result.Data[i].Assign(@Self.Data[i]);
Result.FActualLength := Self.FActualLength;
end;
@@ -1381,13 +1922,13 @@ begin
if (ActualLength=0) then begin
EnsureSize(ActualLength + 1);
p := @Data[0];
- p^.Assign(AItem);
+ p^.Assign(@AItem);
p^.Changed := True;
exit(0);
end;
k := IndexOf(AItem.Characters,AItem.Context,@Data[0],ActualLength);
if (k = ADestPos) then begin
- Data[ADestPos].Assign(AItem);
+ Data[ADestPos].Assign(@AItem);
Data[ADestPos].Changed := True;
exit(k);
end;
@@ -1399,7 +1940,7 @@ begin
Data[c].Clear();
p := @Data[finalPos];
if (finalPos = ActualLength) then begin
- p^.Assign(AItem);
+ p^.Assign(@AItem);
p^.Changed := True;
end else begin
if (c > 0) then begin
@@ -1416,7 +1957,7 @@ begin
(ActualLength-(finalPos+1))*SizeOf(TReorderUnit)
);}
FillChar(Pointer(p)^,SizeOf(TReorderUnit),0);
- p^.Assign(AItem);
+ p^.Assign(@AItem);
p^.Changed := True;
end;
if (k >= 0) then begin
@@ -1636,6 +2177,42 @@ begin
CompareProps(ASource^.Items, PUCA_PropItemRec(@y[0]),ASource^.ItemSize);
end;
+function ForEachRule(
+ ACollationType : TCldrCollationItem;
+ AVisitFunc : TRuleVisiterFunction;
+ ACustomData : Pointer
+) : Boolean;
+var
+ i : Integer;
+ locImport : TCldrImport;
+ locRep : TCldrCollationRepository;
+ locCollation : TCldrCollation;
+ locType : TCldrCollationItem;
+ locRules : TReorderSequenceArray;
+begin
+ Result := False;
+ if not Assigned(AVisitFunc) then
+ exit;
+ if (ACollationType.Imports.Count > 0) then begin
+ locRep := ACollationType.Parent.Repository;
+ for i := 0 to ACollationType.Imports.Count-1 do begin
+ locImport := ACollationType.Imports[i];
+ locCollation := locRep.Load(locImport.Source,TCldrParserMode.FullParsing);
+ locType := locCollation.Find(locImport.TypeName);
+ if (locType = nil) then
+ raise ECldrException.CreateFmt(sCollationTypeNotFound,[locImport.TypeName]);
+ if not ForEachRule(locType,AVisitFunc,ACustomData) then
+ exit;
+ end;
+ end;
+ locRules := ACollationType.Rules;
+ for i := Low(locRules) to High(locRules) do begin
+ if not AVisitFunc(@locRules[i],ACollationType,ACustomData) then
+ exit;
+ end;
+ Result := True;
+end;
+
procedure GenerateCdlrCollation(
ACollation : TCldrCollation;
AItemName : string;
diff --git a/utils/unicode/cldrparser.lpr b/utils/unicode/cldrparser.lpr
index a8d98796c1..d4030de3f0 100644
--- a/utils/unicode/cldrparser.lpr
+++ b/utils/unicode/cldrparser.lpr
@@ -1,5 +1,5 @@
{ Unicode CLDR's collation parser.
- Copyright (c) 2013 by Inoussa OUEDRAOGO
+ Copyright (c) 2013-2015 by Inoussa OUEDRAOGO
It creates units from CLDR's collation files.
@@ -23,16 +23,18 @@ program cldrparser;
{$mode objfpc}{$H+}
{ $define WINCE_TEST}
+{$TYPEDADDRESS ON}
uses
SysUtils, classes, getopts,{$ifdef WINCE}StreamIO,{$endif}
- cldrhelper, helper, cldrtest, cldrxml, unicodeset;
+ cldrhelper, helper, cldrtest, cldrxml, unicodeset, cldrtxt;
const
+ SROOT_RULES_FILE = 'UCA_Rules_SHORT.txt';
SUsageText =
'This program creates pascal units from CLDR''s collation files for usage ' + sLineBreak +
'with the FreePascal Native Unicode Manager.' + sLineBreak + sLineBreak +
- 'Usage : cldrparser <collationFileName> [<typeName>] [-d<dataDir>] [-o<outputDir>] [-t]' + sLineBreak + sLineBreak +
+ 'Usage : cldrparser <collationFileName> [<typeName>] [-a<alt>] [-d<dataDir>] [-o<outputDir>] [-t<HaltOnFail>]' + sLineBreak + sLineBreak +
' where :' + sLineBreak +
' ' + sLineBreak +
' - collationFileName : specify the target file.' + sLineBreak +
@@ -43,24 +45,30 @@ const
' * the type named "standard" ' + sLineBreak +
' * the type named "search" ' + sLineBreak +
' * the first type.' + sLineBreak +
+ ' - a : this provides the "alt" property to select specific "type".' + sLineBreak +
' - dataDir : specify the directory that contains the collation files.' + sLineBreak +
' The default value is the program''s directory.' + sLineBreak +
' - outputDir : specify the directory where the generated files will be stored.' + sLineBreak +
' The default value is the program''s directory.' + sLineBreak +
' - t : to execute parser the test suite. The program will execute only the test suite and exit.' + sLineBreak +
+ ' <HaltOnFail> may be one of (y, Y, t, T, 1) to halt the execution on the first failing.' + sLineBreak +
' ' + sLineBreak +
' The program expects some files to be present in the <dataDir> folder : ' + sLineBreak +
- ' - UCA_Rules_SHORT.xml found in the CollationAuxiliary.zip available on unicode.org' + sLineBreak +
- ' - allkeys.txt this is the file allkeys_CLDR.txt contained in CollationAuxiliary.zip renamed to allkeys.txt' + sLineBreak +
- ' The CollationAuxiliary.zip archive is provided by unicode in the "unicode collation algorithm data files" section.';
+ ' - UCA_Rules_SHORT.xml ' + sLineBreak +
+ ' - allkeys.txt this is the file allkeys_CLDR.txt renamed to allkeys.txt' + sLineBreak +
+ ' These files are in the core.zip file of the CLDR release files. The CLDR''version used should be synchronized the' + sLineBreak +
+ ' version of the Unicode version used, for example for Uniocde 7 it will be CLDR 26.' + sLineBreak +
+ ' The CLDR files are provided by the Unicode Consortium at http://cldr.unicode.org/index/downloads';
function ParseOptions(
var ADataDir,
AOuputDir,
ACollationFileName,
- ACollationTypeName : string;
- var AExecTestSuite : Boolean
+ ACollationTypeName,
+ ACollationTypeAlt : string;
+ var AExecTestSuite,
+ ATestHaltOnFail : Boolean
) : Boolean;
var
c : Char;
@@ -78,8 +86,9 @@ begin
Result := True;
AExecTestSuite := False;
repeat
- c := GetOpt('d:o:ht');
+ c := GetOpt('a:d:o:ht:');
case c of
+ 'a' : ACollationTypeAlt := Trim(OptArg);
'd' : ADataDir := ExpandFileName(Trim(OptArg));
'o' : AOuputDir := ExpandFileName(Trim(OptArg));
'h', '?' :
@@ -87,7 +96,12 @@ begin
WriteLn(SUsageText);
Result := False;
end;
- 't' : AExecTestSuite := True;
+ 't' :
+ begin
+ AExecTestSuite := True;
+ s := Trim(OptArg);
+ ATestHaltOnFail := (s <> '') and CharInSet(s[1],['y','Y','t','T','1']);
+ end;
end;
until (c = EndOfOptions);
idx := 0;
@@ -109,12 +123,12 @@ var
orderedChars : TOrderedCharacters;
ucaBook : TUCA_DataBook;
stream, streamNE, streamOE, binaryStreamNE, binaryStreamOE : TMemoryStream;
- s, collationFileName, collationTypeName : string;
+ s, collationFileName, collationTypeName, collationTypeAlt : string;
i , c: Integer;
collation : TCldrCollation;
dataPath, outputPath : string;
collationItem : TCldrCollationItem;
- testSuiteFlag : Boolean;
+ testSuiteFlag, testSuiteHaltOnFailFlag : Boolean;
{$ifdef WINCE}
fs : TFileStream;
{$endif WINCE}
@@ -147,11 +161,20 @@ begin
outputPath := '';
collationFileName := '';
collationTypeName := '';
+ collationTypeAlt := '';
testSuiteFlag := False;
- if not ParseOptions(dataPath,outputPath,collationFileName,collationTypeName,testSuiteFlag) then
+ testSuiteHaltOnFailFlag := True;
+ if not ParseOptions(
+ dataPath,outputPath,collationFileName,collationTypeName,
+ collationTypeAlt,testSuiteFlag,testSuiteHaltOnFailFlag
+ )
+ then begin
+ WriteLn(SUsageText);
Halt(1);
+ end;
if testSuiteFlag then begin
- exec_tests();
+ WriteLn('Executing the test suite ...');
+ exec_tests(testSuiteHaltOnFailFlag);
Halt;
end;
if (dataPath <> '') and not(DirectoryExists(dataPath)) then begin
@@ -173,11 +196,11 @@ begin
end;
{$endif WINCE_TEST}
if not(
- FileExists(dataPath+'UCA_Rules_SHORT.xml') and
+ FileExists(dataPath+SROOT_RULES_FILE) and
FileExists(dataPath+'allkeys.txt')
)
then begin
- WriteLn(Format('File not found : %s or %s.',[dataPath+'UCA_Rules_SHORT.xml',dataPath+'allkeys.txt']));
+ WriteLn(Format('File not found : %s or %s.',[dataPath+SROOT_RULES_FILE,dataPath+'allkeys.txt']));
Halt(1);
end;
@@ -195,22 +218,35 @@ begin
binaryStreamOE := nil;
collation := TCldrCollation.Create();
try
- ParseCollationDocument(collationFileName,collation,TCldrParserMode.HeaderParsing);
- WriteLn(Format(' Collation Count = %d',[collation.ItemCount]));
- if (collation.ItemCount = 0) then begin
+ ParseCollationDocument2(collationFileName,collation,TCldrParserMode.HeaderParsing);
+ WriteLn(Format(' Collation Count = %d',[collation.FindPublicItemCount()]));
+ if (collation.FindPublicItemCount() = 0) then begin
WriteLn('No collation in this file.');
end else begin
- for i := 0 to collation.ItemCount - 1 do
- WriteLn(Format(' Item[%d] = (Type = %s)',[i, collation.Items[i].TypeName]));
- collationItem := collation.Find(collationTypeName);
+ for i := 0 to collation.ItemCount - 1 do begin
+ if not collation.Items[i].IsPrivate() then begin
+ s := collation.Items[i].TypeName;
+ if (collation.Items[i].Alt <> '') then
+ s := s + ', Alt = ' + collation.Items[i].Alt;
+ WriteLn(Format(' Item[%d] = (Type = %s)',[i,s]));
+ end;
+ end;
+ if (collationTypeAlt = '') then
+ collationItem := collation.Find(collationTypeName)
+ else
+ collationItem := collation.Find(collationTypeName,collationTypeAlt);
if (collationItem = nil) then begin
collationTypeName := FindCollationDefaultItemName(collation);
collationItem := collation.Find(collationTypeName);
+ collationTypeAlt := collationItem.Alt;
end;
- WriteLn(Format('Parsing Collation Item "%s" ...',[collationTypeName]));
- ParseCollationDocument(collationFileName,collationItem,collationTypeName);
+ s := collationTypeName;
+ if (collationTypeAlt <> '') then
+ s := Format('%s (%s)',[s,collationTypeAlt]);
+ WriteLn(Format('Parsing Collation Item "%s" ...',[s]));
+ ParseCollationDocument2(collationFileName,collationItem,collationTypeName);
- s := dataPath + 'UCA_Rules_SHORT.xml';
+ s := dataPath + SROOT_RULES_FILE;
WriteLn;
WriteLn('Parsing ',QuotedStr(s),' ...');
FillByte(orderedChars,SizeOf(orderedChars),0);
@@ -223,6 +259,9 @@ begin
s := dataPath + 'allkeys.txt';
stream.LoadFromFile(s);
ParseUCAFile(stream,ucaBook);
+ //WriteLn(' LEVEL-2''s items Value = ',CalcMaxLevel2Value(ucaBook.Lines));
+ //RewriteLevel2Values(@ucaBook.Lines[0],Length(ucaBook.Lines));
+ //WriteLn(' LEVEL-2''s items Value (after rewrite) = ',CalcMaxLevel2Value(ucaBook.Lines));
c := FillInitialPositions(@orderedChars.Data[0],orderedChars.ActualLength,ucaBook.Lines);
if (c > 0) then
WriteLn(' Missed Initial Positions = ',c);
@@ -240,18 +279,18 @@ begin
binaryStreamNE,binaryStreamOE,
orderedChars,ucaBook.Lines
);
- stream.SaveToFile(ExtractFilePath(collationFileName)+s);
+ stream.SaveToFile(outputPath+s);
if (streamNE.Size > 0) then begin
- streamNE.SaveToFile(ExtractFilePath(collationFileName)+GenerateEndianIncludeFileName(s,ENDIAN_NATIVE));
- streamOE.SaveToFile(ExtractFilePath(collationFileName)+GenerateEndianIncludeFileName(s,ENDIAN_NON_NATIVE));
+ streamNE.SaveToFile(outputPath+GenerateEndianIncludeFileName(s,ENDIAN_NATIVE));
+ streamOE.SaveToFile(outputPath+GenerateEndianIncludeFileName(s,ENDIAN_NON_NATIVE));
end;
if (binaryStreamNE.Size > 0) then begin
binaryStreamNE.SaveToFile(
- ExtractFilePath(collationFileName) +
+ outputPath +
ChangeFileExt(s,Format('_%s.bco',[ENDIAN_SUFFIX[ENDIAN_NATIVE]]))
);
binaryStreamOE.SaveToFile(
- ExtractFilePath(collationFileName) +
+ outputPath +
ChangeFileExt(s,Format('_%s.bco',[ENDIAN_SUFFIX[ENDIAN_NON_NATIVE]]))
);
end;
diff --git a/utils/unicode/cldrtest.pas b/utils/unicode/cldrtest.pas
index b5b74e545a..6f0abcbbb9 100644
--- a/utils/unicode/cldrtest.pas
+++ b/utils/unicode/cldrtest.pas
@@ -1,6 +1,6 @@
{ CLDR collation Algorithm test routines.
- Copyright (c) 2013 by Inoussa OUEDRAOGO
+ Copyright (c) 2013-2015 by Inoussa OUEDRAOGO
The source code is distributed under the Library GNU
General Public License with the following modification:
@@ -29,7 +29,7 @@ interface
uses
Classes, SysUtils,
- helper, cldrhelper, unicodedata;
+ unicodeset, helper, cldrhelper, unicodedata, cldrtxt, cldrxml;
function ToAnsiChars(const AValue : array of TUnicodeCodePoint) : string;
function DumpSequenceAnsi(const ASequence : TOrderedCharacters) : string;
@@ -42,7 +42,7 @@ uses
function ToWeight(const APrimary, ASecondary, ATertiary : Cardinal) : TUCA_WeightRecArray;overload;
function ToWeight(const AWeigths : array of Cardinal) : TUCA_WeightRecArray;overload;
- procedure exec_tests();
+ procedure exec_tests(const APropagateException : Boolean = True);
procedure test1();
procedure test2();
@@ -59,41 +59,363 @@ uses
procedure test13();
procedure test14();
procedure test15();
+ procedure test16a();
+ procedure test16b();
+ procedure test16c();
+ procedure test16d();
+ procedure test16e();
+
+ procedure test_parser_1();
+ procedure test_parser_2();
+ procedure test_parser_3();
+ procedure test_parser_4();
+ procedure test_parser_5();
+ procedure test_parser_6();
+ procedure test_parser_7();
+ procedure test_parser_8();
+ procedure test_parser_9();
+ procedure test_parser_abreviating_1();
+ procedure test_parser_abreviating_2();
+ procedure test_parser_abreviating_3();
+ procedure test_parser_abreviating_4();
+ procedure test_parser_abreviating_5();
+ procedure test_parser_abreviating_6();
+ procedure test_parser_abreviating_7();
+ procedure test_parser_abreviating_8();
+ procedure test_parser_abreviating_9();
+ procedure test_parser_abreviating_10();
+ procedure test_parser_contraction_1();
+ procedure test_parser_contraction_2();
+ procedure test_parser_expansion_1();
+ procedure test_parser_special_char_1();
+ procedure test_parser_special_char_2();
+ procedure test_parser_special_char_3();
+ procedure test_parser_special_char_4();
+ procedure test_parser_special_char_5();
+ procedure test_parser_special_char_6();
+ procedure test_parser_special_char_7();
+ procedure test_parser_skip_comment_1();
+ procedure test_parser_skip_comment_2();
+ procedure test_parser_skip_comment_3();
+ procedure test_parser_quoted_string_1();
+ procedure test_parser_quoted_string_2();
+ procedure test_parser_quoted_string_3();
+ procedure test_parser_quoted_string_4();
+ procedure test_parser_quoted_string_5();
+ procedure test_parser_quoted_string_6();
+ procedure test_parser_quoted_string_7();
+ procedure test_parser_quoted_string_8();
+ procedure test_parser_contexte_before_1();
+ procedure test_parser_contexte_before_2();
+ procedure test_parser_contexte_before_3();
+ procedure test_parser_contexte_before_4();
+ procedure test_parser_placement_before_1();
+ procedure test_parser_placement_before_2();
+ procedure test_parser_placement_before_3();
+ procedure test_parser_multi_unit_statement_line_1();
+ procedure test_parser_multi_unit_statement_line_2();
+ procedure test_parser_multi_unit_statement_line_3();
+ procedure test_parser_multi_statement_line_1();
+ procedure test_parser_multi_statement_line_2();
+ procedure test_parser_multi_statement_line_3();
+ procedure test_parser_multi_statement_line_4();
+
+ procedure test_parser_multi_line_statements_1();
+
+ procedure test_collation_parser_HeaderParsing();
+ procedure test_collation_parser_HeaderParsing_2();
+ procedure test_collation_parser_FullParsing();
+ procedure test_collation_parser_FullParsing_2();
+ procedure test_collation_parser_complete_rules();
+ procedure test_collation_parser_complete_rules_2();
+
+ procedure test_unicode_set_1();
+ procedure test_unicode_set_2();
+ procedure test_unicode_set_3();
implementation
+uses
+ typinfo;
+
+procedure do_exec_test(ATest : TProcedure; const APropagateException : Boolean);
+begin
+ if APropagateException then begin
+ ATest();
+ end else begin
+ try
+ ATest();
+ except
+ on e : Exception do begin
+ writeln(e.Message);
+ end;
+ end;
+ end;
+end;
-procedure exec_tests();
+procedure exec_utils_tests(const APropagateException : Boolean);
begin
+ WriteLn;WriteLn;WriteLn;WriteLn;
+ WriteLn('UTILITIES TESTS - START');
+ WriteLn('***************************** TEST UNICODESET 1 ******************');
+ do_exec_test(@test_unicode_set_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST UNICODESET 2 ******************');
+ do_exec_test(@test_unicode_set_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST UNICODESET 3 ******************');
+ do_exec_test(@test_unicode_set_3,APropagateException);
+ WriteLn;
+ WriteLn('UTILITIES TESTS - START');
+ WriteLn;
+ WriteLn;
+end;
+
+procedure exec_parser_tests(const APropagateException : Boolean);
+begin
+ WriteLn;WriteLn;WriteLn;WriteLn;
+ WriteLn('PARSER TESTS');
+ WriteLn('***************************** TEST PARSER 1 ******************');
+ do_exec_test(@test_parser_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST PARSER 2 ******************');
+ do_exec_test(@test_parser_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST PARSER 3 ******************');
+ do_exec_test(@test_parser_3,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST PARSER 4 ******************');
+ do_exec_test(@test_parser_4,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST PARSER 5 ******************');
+ do_exec_test(@test_parser_5,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST PARSER 6 ******************');
+ do_exec_test(@test_parser_6,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST PARSER 7 ******************');
+ do_exec_test(@test_parser_7,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST PARSER 8 ******************');
+ do_exec_test(@test_parser_7,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST PARSER 9 ******************');
+ do_exec_test(@test_parser_9,APropagateException);
+ WriteLn;
+ WriteLn;
+ WriteLn('***************************** TEST ABREVIATING 1 ******************');
+ do_exec_test(@test_parser_abreviating_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST ABREVIATING 2 ******************');
+ do_exec_test(@test_parser_abreviating_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST ABREVIATING 3 ******************');
+ do_exec_test(@test_parser_abreviating_3,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST ABREVIATING 4 ******************');
+ do_exec_test(@test_parser_abreviating_4,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST ABREVIATING 5 ******************');
+ do_exec_test(@test_parser_abreviating_5,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST ABREVIATING 6 ******************');
+ do_exec_test(@test_parser_abreviating_6,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST ABREVIATING 7 ******************');
+ do_exec_test(@test_parser_abreviating_7,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST ABREVIATING 8 ******************');
+ do_exec_test(@test_parser_abreviating_8,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST ABREVIATING 9 ******************');
+ do_exec_test(@test_parser_abreviating_9,APropagateException);
+ WriteLn;
+ WriteLn;
+ WriteLn('***************************** TEST ABREVIATING 10 ******************');
+ do_exec_test(@test_parser_abreviating_10,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST CONTRACTION 1 ******************');
+ do_exec_test(@test_parser_contraction_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST CONTRACTION 2 ******************');
+ do_exec_test(@test_parser_contraction_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST EXPANSION 1 ******************');
+ do_exec_test(@test_parser_expansion_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST SPECIAL CHAR 1 ******************');
+ do_exec_test(@test_parser_special_char_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST SPECIAL CHAR 2 ******************');
+ do_exec_test(@test_parser_special_char_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST SPECIAL CHAR 3 ******************');
+ do_exec_test(@test_parser_special_char_3,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST SPECIAL CHAR 4 ******************');
+ do_exec_test(@test_parser_special_char_4,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST SPECIAL CHAR 5 ******************');
+ do_exec_test(@test_parser_special_char_5,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST SPECIAL CHAR 6 ******************');
+ do_exec_test(@test_parser_special_char_6,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST SPECIAL CHAR 7 ******************');
+ do_exec_test(@test_parser_special_char_7,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST SKIP COMMENT 1 ******************');
+ do_exec_test(@test_parser_skip_comment_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST SKIP COMMENT 2 ******************');
+ do_exec_test(@test_parser_skip_comment_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST SKIP COMMENT 3 ******************');
+ do_exec_test(@test_parser_skip_comment_3,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST QUOTED STRING 1 ******************');
+ do_exec_test(@test_parser_quoted_string_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST QUOTED STRING 2 ******************');
+ do_exec_test(@test_parser_quoted_string_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST QUOTED STRING 3 ******************');
+ do_exec_test(@test_parser_quoted_string_3,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST QUOTED STRING 4 ******************');
+ do_exec_test(@test_parser_quoted_string_4,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST QUOTED STRING 5 ******************');
+ do_exec_test(@test_parser_quoted_string_5,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST QUOTED STRING 6 ******************');
+ do_exec_test(@test_parser_quoted_string_6,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST QUOTED STRING 7 ******************');
+ do_exec_test(@test_parser_quoted_string_7,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST QUOTED STRING 8 ******************');
+ do_exec_test(@test_parser_quoted_string_8,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST CONTEXT BEFORE 1 ******************');
+ do_exec_test(@test_parser_contexte_before_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST CONTEXT BEFORE 2 ******************');
+ do_exec_test(@test_parser_contexte_before_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST CONTEXT BEFORE 3 ******************');
+ do_exec_test(@test_parser_contexte_before_3,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST CONTEXT BEFORE 4 ******************');
+ do_exec_test(@test_parser_contexte_before_4,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST PLACEMENT BEFORE 1 ******************');
+ do_exec_test(@test_parser_placement_before_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST PLACEMENT BEFORE 2 ******************');
+ do_exec_test(@test_parser_placement_before_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST PLACEMENT BEFORE 3 ******************');
+ do_exec_test(@test_parser_placement_before_3,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST MULTI UNIT STATEMENT LINE 1 ******************');
+ do_exec_test(@test_parser_multi_unit_statement_line_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST MULTI UNIT STATEMENT LINE 2 ******************');
+ do_exec_test(@test_parser_multi_unit_statement_line_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST MULTI UNIT STATEMENT LINE 3 ******************');
+ do_exec_test(@test_parser_multi_unit_statement_line_3,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST MULTI STATEMENT LINE 1 ******************');
+ do_exec_test(@test_parser_multi_statement_line_1,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST MULTI STATEMENT LINE 2 ******************');
+ do_exec_test(@test_parser_multi_statement_line_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST MULTI STATEMENT LINE 3 ******************');
+ do_exec_test(@test_parser_multi_statement_line_3,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST MULTI STATEMENT LINE 4 ******************');
+ do_exec_test(@test_parser_multi_statement_line_4,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST MULTI LINE STATEMENTS 1 ******************');
+ do_exec_test(@test_parser_multi_line_statements_1,APropagateException);
+ WriteLn;
+ WriteLn;
+ WriteLn('***************************** TEST REPOSITORY 1 ******************');
+ do_exec_test(@test_collation_parser_HeaderParsing,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST REPOSITORY 2 ******************');
+ do_exec_test(@test_collation_parser_FullParsing,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST REPOSITORY 3 ******************');
+ do_exec_test(@test_collation_parser_complete_rules,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST REPOSITORY 4 ******************');
+ do_exec_test(@test_collation_parser_HeaderParsing_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST REPOSITORY 5 ******************');
+ do_exec_test(@test_collation_parser_FullParsing_2,APropagateException);
+ WriteLn;
+ WriteLn('***************************** TEST REPOSITORY 6 ******************');
+ do_exec_test(@test_collation_parser_complete_rules_2,APropagateException);
+ WriteLn;
+
+ WriteLn;
+ WriteLn;
+end;
+
+procedure exec_tests(const APropagateException : Boolean);
+begin
+ exec_utils_tests(APropagateException);
+
+ exec_parser_tests(APropagateException);
+
+ WriteLn('END PARSER TESTS');
+ WriteLn('*******************************************************');
+
WriteLn('***************************** TEST 1 ******************');
- test1();
+ do_exec_test(@test1,APropagateException);
WriteLn('***************************** TEST 2 ******************');
- test2();
+ do_exec_test(@test2,APropagateException);
WriteLn('***************************** TEST 3 ******************');
- test3();
+ do_exec_test(@test3,APropagateException);
WriteLn('***************************** TEST 4 ******************');
- test4();
+ do_exec_test(@test4,APropagateException);
WriteLn('***************************** TEST 5 ******************');
- test5();
+ do_exec_test(@test5,APropagateException);
WriteLn('***************************** TEST 6 ******************');
- test6();
+ do_exec_test(@test6,APropagateException);
WriteLn('***************************** TEST 7 ******************');
- test7();
+ do_exec_test(@test7,APropagateException);
WriteLn('***************************** TEST 8 ******************');
- test8();
+ do_exec_test(@test8,APropagateException);
WriteLn('***************************** TEST 9 ******************');
- test9();
+ do_exec_test(@test9,APropagateException);
WriteLn('***************************** TEST 10 ******************');
- test10();
+ do_exec_test(@test10,APropagateException);
WriteLn('***************************** TEST 11 ******************');
- test11();
+ do_exec_test(@test11,APropagateException);
WriteLn('***************************** TEST 12 ******************');
- test12();
+ do_exec_test(@test12,APropagateException);
WriteLn('***************************** TEST 13 ******************');
- test13();
+ do_exec_test(@test13,APropagateException);
WriteLn('***************************** TEST 14 ******************');
- test14();
+ do_exec_test(@test14,APropagateException);
WriteLn('***************************** TEST 15 ******************');
- test15();
+ do_exec_test(@test15,APropagateException);
+ WriteLn('***************************** TEST 16 A ******************');
+ do_exec_test(@test16a,APropagateException);
+ WriteLn('***************************** TEST 16 B ******************');
+ do_exec_test(@test16b,APropagateException);
+ WriteLn('***************************** TEST 16 C ******************');
+ do_exec_test(@test16c,APropagateException);
+ WriteLn('***************************** TEST 16 D ******************');
+ do_exec_test(@test16d,APropagateException);
+ WriteLn('***************************** TEST 16 E ******************');
+ do_exec_test(@test16e,APropagateException);
+
+ WriteLn('**** END TESTS');
end;
function ToAnsiChars(const AValue : array of TUnicodeCodePoint) : string;
@@ -140,7 +462,10 @@ begin
Inc(p);
for i := i to ASequence.ActualLength - 1 do begin
//WriteStr(s,s,AnsiChar(p^.Characters[0]),' <',(1+Ord(p^.WeigthKind)),' ');
- WriteStr(s,s,'<',(1+Ord(p^.WeigthKind)),' ',ToAnsiChars(p^.Characters),' ');
+ if p^.IsVirtual() then
+ WriteStr(s,s,' [',GetEnumName(TypeInfo(TReorderLogicalReset),Ord(p^.VirtualPosition)),'] ')
+ else
+ WriteStr(s,s,'<',(1+Ord(p^.WeigthKind)),' ',ToAnsiChars(p^.Characters),' ');
Inc(p);
end;
end;
@@ -478,7 +803,7 @@ begin
SetLength(statement.Reset,1);
statement.Reset[0] := Ord('a');
- SetLength(statement.Elements,1);
+ statement.SetElementCount(1);
statement.Elements[0] := TReorderUnit.From(Ord('g'),TReorderWeigthKind.Primary,0);
sequence.ApplyStatement(@statement);
WriteLn('Statement #1 = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
@@ -491,7 +816,7 @@ begin
SetLength(statement.Reset,1);
statement.Reset[0] := Ord('a');
- SetLength(statement.Elements,2);
+ statement.SetElementCount(2);
statement.Elements[0] := TReorderUnit.From(Ord('h'),TReorderWeigthKind.Primary,0);
statement.Elements[1] := TReorderUnit.From(Ord('k'),TReorderWeigthKind.Primary,0);
sequence.ApplyStatement(@statement);
@@ -504,7 +829,7 @@ begin
SetLength(statement.Reset,1);
statement.Reset[0] := Ord('h');
- SetLength(statement.Elements,1);
+ statement.SetElementCount(1);
statement.Elements[0] := TReorderUnit.From(Ord('g'),TReorderWeigthKind.Secondary,0);
sequence.ApplyStatement(@statement);
WriteLn('Statement #3 = ',sLineBreak,' ',DumpSequenceAnsi(sequence));
@@ -3264,4 +3589,1916 @@ begin
end;
+procedure test16_prepareWeigth(var AData : TUCA_LineRecArray);
+var
+ p : PUCA_LineRec;
+begin
+ SetLength(AData,3);
+ p := @AData[Low(AData)];
+ p^.CodePoints := CodePointToArray(Ord('a'));
+ p^.Weights := ToWeight($15EF,$0020,$0002);
+ Inc(p);
+ p^.CodePoints := CodePointToArray(Ord('b'));
+ p^.Weights := ToWeight($1605,$0020,$0002);
+ Inc(p);
+ p^.CodePoints := CodePointToArray(Ord('c'));
+ p^.Weights := ToWeight($161D,$0020,$0002);
+end;
+
+procedure test16a();
+var
+ sequence : TOrderedCharacters;
+ statement : TReorderSequence;
+ wfirst, wresult : TUCA_LineRecArray;
+ i : Integer;
+ unicodeBook1, unicodeBook2 : unicodedata.TUCA_DataBook;
+begin
+ statement.Clear();
+ test16_prepareWeigth(wfirst);
+ sequence := TOrderedCharacters.Create();
+ sequence.Append(TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,1));
+ sequence.Append(TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,2));
+ sequence.Append(TReorderUnit.From(TReorderLogicalReset.LastRegular));
+ sequence.Append(TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,3));
+ for i := 0 to sequence.ActualLength - 1 do
+ sequence.Data[i].Changed := False;
+ WriteLn('Initial = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ WriteLn(DumpLines(wfirst),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wfirst,'test1','first',nil,unicodeBook1);
+ CheckInf(['a','b','c'],@unicodeBook1);
+
+ // --- test 1
+ SetLength(statement.Reset,1);
+ statement.LogicalPosition := TReorderLogicalReset.LastRegular;
+ SetLength(statement.Elements,1);
+ statement.Elements[0] := TReorderUnit.From(Ord('x'),TReorderWeigthKind.Primary,0);
+ sequence.ApplyStatement(@statement);
+ WriteLn('Statement #1 = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ wresult := nil;
+ ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
+ WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wresult,'test1','1',@unicodeBook1,unicodeBook2);
+ CheckInf(['a','b','x'{*},'c'],@unicodeBook2);
+ WriteLn(' -- test 1 - ok');
+end;
+
+procedure test16b();
+var
+ sequence : TOrderedCharacters;
+ statement : TReorderSequence;
+ wfirst, wresult : TUCA_LineRecArray;
+ i : Integer;
+ unicodeBook1, unicodeBook2 : unicodedata.TUCA_DataBook;
+begin
+ statement.Clear();
+ test16_prepareWeigth(wfirst);
+ sequence := TOrderedCharacters.Create();
+ sequence.Append(TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,1));
+ sequence.Append(TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,2));
+ sequence.Append(TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,3));
+ for i := 0 to sequence.ActualLength - 1 do
+ sequence.Data[i].Changed := False;
+ WriteLn('Initial = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ WriteLn(DumpLines(wfirst),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wfirst,'test1','first',nil,unicodeBook1);
+ CheckInf(['a','b','c'],@unicodeBook1);
+
+ // --- test 1
+ SetLength(statement.Reset,1);
+ statement.LogicalPosition := TReorderLogicalReset.LastRegular;
+ SetLength(statement.Elements,1);
+ statement.Elements[0] := TReorderUnit.From(Ord('x'),TReorderWeigthKind.Primary,0);
+ sequence.ApplyStatement(@statement);
+ WriteLn('Statement #1 = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ wresult := nil;
+ ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
+ WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wresult,'test1','1',@unicodeBook1,unicodeBook2);
+ CheckInf(['a','b','c','x'{*}],@unicodeBook2);
+ WriteLn(' -- test 1 - ok');
+ writeln;
+ writeln;
+
+ // test 2
+ statement.Clear();
+ SetLength(statement.Reset,1);
+ statement.Reset[0] := Ord('x');
+ SetLength(statement.Elements,1);
+ statement.Elements[0] := TReorderUnit.From(Ord('y'),TReorderWeigthKind.Primary,0);
+ sequence.ApplyStatement(@statement);
+ WriteLn('Statement #2 = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ wresult := nil;
+ ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
+ WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wresult,'test2','2',@unicodeBook1,unicodeBook2);
+ CheckInf(['a','b','c','x'{*},'y'{*}],@unicodeBook2);
+ WriteLn(' -- test 2 - ok');
+end;
+
+procedure test16c();
+var
+ sequence : TOrderedCharacters;
+ statement : TReorderSequence;
+ wfirst, wresult : TUCA_LineRecArray;
+ i : Integer;
+ unicodeBook1, unicodeBook2 : unicodedata.TUCA_DataBook;
+begin
+ statement.Clear();
+ test16_prepareWeigth(wfirst);
+ sequence := TOrderedCharacters.Create();
+ sequence.Append(TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,1));
+ sequence.Append(TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,2));
+ sequence.Append(TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,3));
+ for i := 0 to sequence.ActualLength - 1 do
+ sequence.Data[i].Changed := False;
+ WriteLn('Initial = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ WriteLn(DumpLines(wfirst),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wfirst,'test1','first',nil,unicodeBook1);
+ CheckInf(['a','b','c'],@unicodeBook1);
+
+ // --- test 1
+ SetLength(statement.Reset,1);
+ statement.LogicalPosition := TReorderLogicalReset.LastRegular;
+ SetLength(statement.Elements,1);
+ statement.Elements[0] := TReorderUnit.From(Ord('x'),TReorderWeigthKind.Secondary,0);
+ sequence.ApplyStatement(@statement);
+ WriteLn('Statement #1 = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ wresult := nil;
+ ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
+ WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wresult,'test1','1',@unicodeBook1,unicodeBook2);
+ CheckInf(['a','b','c','x'{*}],@unicodeBook2);
+ WriteLn(' -- test 1 - ok');
+ writeln;
+ writeln;
+
+ // test 2
+ statement.Clear();
+ SetLength(statement.Reset,1);
+ statement.Reset[0] := Ord('x');
+ SetLength(statement.Elements,1);
+ statement.Elements[0] := TReorderUnit.From(Ord('y'),TReorderWeigthKind.Primary,0);
+ sequence.ApplyStatement(@statement);
+ WriteLn('Statement #2 = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ wresult := nil;
+ ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
+ WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wresult,'test2','2',@unicodeBook1,unicodeBook2);
+ CheckInf(['a','b','c','x'{*},'y'{*}],@unicodeBook2);
+ WriteLn(' -- test 2 - ok');
+end;
+
+procedure test16d();
+var
+ sequence : TOrderedCharacters;
+ statement : TReorderSequence;
+ wfirst, wresult : TUCA_LineRecArray;
+ i : Integer;
+ unicodeBook1, unicodeBook2 : unicodedata.TUCA_DataBook;
+begin
+ statement.Clear();
+ test16_prepareWeigth(wfirst);
+ sequence := TOrderedCharacters.Create();
+ sequence.Append(TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,1));
+ sequence.Append(TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,2));
+ sequence.Append(TReorderUnit.From(TReorderLogicalReset.LastRegular));
+ sequence.Append(TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,3));
+ for i := 0 to sequence.ActualLength - 1 do
+ sequence.Data[i].Changed := False;
+ WriteLn('Initial = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ WriteLn(DumpLines(wfirst),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wfirst,'test1','first',nil,unicodeBook1);
+ CheckInf(['a','b','c'],@unicodeBook1);
+
+ // --- test 1
+ SetLength(statement.Reset,1);
+ statement.LogicalPosition := TReorderLogicalReset.LastRegular;
+ statement.Before := True;
+ SetLength(statement.Elements,1);
+ statement.Elements[0] := TReorderUnit.From(Ord('x'),TReorderWeigthKind.Primary,0);
+ sequence.ApplyStatement(@statement);
+ WriteLn('Statement #1 = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ wresult := nil;
+ ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
+ WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wresult,'test1','1',@unicodeBook1,unicodeBook2);
+ CheckInf(['a','x'{*},'b','c'],@unicodeBook2);
+ WriteLn(' -- test 1 - ok');
+end;
+
+procedure test16e_prepareWeigth(var AData : TUCA_LineRecArray);
+var
+ p : PUCA_LineRec;
+begin
+ SetLength(AData,5);
+ p := @AData[Low(AData)];
+ p^.CodePoints := CodePointToArray(Ord('a'));
+ p^.Weights := ToWeight(1,10,10);
+ Inc(p);
+ p^.CodePoints := CodePointToArray(Ord('b'));
+ p^.Weights := ToWeight(2,10,10);
+ Inc(p);
+ p^.CodePoints := CodePointToArray([Ord('b'),Ord('2')]);
+ p^.Weights := ToWeight(2,20,10);
+ Inc(p);
+ p^.CodePoints := CodePointToArray([Ord('b'),Ord('3')]);
+ p^.Weights := ToWeight(2,20,20);
+ Inc(p);
+ p^.CodePoints := CodePointToArray(Ord('c'));
+ p^.Weights := ToWeight(3,10,10);
+end;
+
+procedure test16e();
+var
+ sequence : TOrderedCharacters;
+ statement : TReorderSequence;
+ wfirst, wresult : TUCA_LineRecArray;
+ i : Integer;
+ unicodeBook1, unicodeBook2 : unicodedata.TUCA_DataBook;
+begin
+ statement.Clear();
+ test16e_prepareWeigth(wfirst);
+ sequence := TOrderedCharacters.Create();
+ sequence.Append(TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,1));
+ sequence.Append(TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,2));
+ sequence.Append(TReorderUnit.From([Ord('b'),Ord('2')],TReorderWeigthKind.Secondary,3));
+ sequence.Append(TReorderUnit.From([Ord('b'),Ord('3')],TReorderWeigthKind.Tertiary,4));
+ sequence.Append(TReorderUnit.From(TReorderLogicalReset.LastRegular));
+ sequence.Append(TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,5));
+ for i := 0 to sequence.ActualLength - 1 do
+ sequence.Data[i].Changed := False;
+ WriteLn('Initial = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ WriteLn(DumpLines(wfirst),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wfirst,'test1','first',nil,unicodeBook1);
+ CheckInf(['a','b','b2','b3','c'],@unicodeBook1);
+
+ // --- test 1
+ SetLength(statement.Reset,1);
+ statement.LogicalPosition := TReorderLogicalReset.LastRegular;
+ statement.Before := True;
+ SetLength(statement.Elements,1);
+ statement.Elements[0] := TReorderUnit.From(Ord('x'),TReorderWeigthKind.Secondary,0);
+ sequence.ApplyStatement(@statement);
+ WriteLn('Statement #1 = ',sLineBreak,' ',DumpSequenceAnsi(sequence),sLineBreak);
+ wresult := nil;
+ ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
+ WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
+ ConstructUnicodeBook(wresult,'test1','1',@unicodeBook1,unicodeBook2);
+ CheckInf(['a','b','x'{*},'b2','b3','c'],@unicodeBook2);
+ WriteLn(' -- test 1 - ok');
+end;
+
+procedure CheckEqual(A,B : array of TUnicodeCodePoint; const AMsg : string);overload;
+var
+ i : Integer;
+begin
+ Check((Length(A)=Length(B)),'Length() <>');
+ if (Length(A) > 0) then begin
+ for i := Low(A) to High(A) do
+ Check(A[i] = B[i],'%s, A[%d] <>',[AMsg,i]);
+ end;
+end;
+
+procedure CheckEqual(A,B : TReorderUnit; const AMsg : string);overload;
+var
+ i : Integer;
+begin
+ Check((A.VirtualPosition=B.VirtualPosition),'VirtualPosition <>');
+ Check((A.InitialPosition=B.InitialPosition),'InitialPosition <>');
+ Check((A.Changed=B.Changed),'Changed <>');
+ Check((A.WeigthKind=B.WeigthKind),'WeigthKind <>');
+ CheckEqual(A.Context,B.Context,'Context');
+ CheckEqual(A.ExpansionChars,B.ExpansionChars,'ExpansionChars');
+ CheckEqual(A.Characters,B.Characters,'Characters');
+ CheckEqual(A.Context,B.Context,'Context');
+end;
+
+procedure CheckEqual(A,B : TReorderSequence);overload;
+var
+ i : Integer;
+begin
+ Check((A.LogicalPosition=B.LogicalPosition),'LogicalPosition <>');
+ Check((A.Before=B.Before),'Before <>');
+ CheckEqual(A.Reset,B.Reset,'Reset');
+ Check((Length(A.Elements)=Length(B.Elements)),'Length(Elements) <>');
+ for i := Low(A.Elements) to High(A.Elements) do
+ CheckEqual(A.Elements[i],B.Elements[i],Format('Elements[%d]',[i]));
+end;
+
+function CountLines(const AStr : ansistring) : Integer;
+var
+ c, i : Integer;
+begin
+ c := 0;
+ for i := 1 to Length(AStr) do begin
+ if (AStr[i] = #10) then
+ c := c+1;
+ end;
+ if (c = 0) and (AStr <> '') then
+ c := c+1;
+ Result := c;
+end;
+
+procedure do_test_parser(
+ AText : ansistring;
+ const AExpected : TReorderSequence;
+ const ALineCount : Integer
+);overload;
+var
+ locText : UTF8String;
+ locTextPointer : PAnsiChar;
+ locStartPosition,
+ locMaxLen : Integer;
+ locStatement : TReorderSequence;
+ locNextPos,
+ locLineCount : Integer;
+begin
+ locText := AText;
+ WriteLn('Parsing "',locText,'" ...');
+ locTextPointer := @locText[1];
+ locMaxLen := Length(locText);
+ locStartPosition := 0;
+ locNextPos := 0;
+ locLineCount := 0;
+ locStatement.Clear();
+ Check(
+ ParseStatement(
+ locTextPointer,locStartPosition,locMaxLen,@locStatement,locNextPos,locLineCount
+ ),
+ 'Fail to Parse : "%s".', [locText]
+ );
+ if (locLineCount > 1) then
+ WriteLn;
+ WriteLn(' Next Position : ',locNextPos);
+ WriteLn(' Line Count : ',locLineCount);
+ if (CountLines(locText) = 1) then
+ Check((locNextPos>=locMaxLen),'Next Position');
+ if (ALineCount > 0) then
+ Check((locLineCount=ALineCount),'Line Count');
+ CheckEqual(locStatement,AExpected);
+
+ WriteLn(' -- test ok');
+end;
+
+procedure do_test_parser(AText : ansistring; const AExpected : TReorderSequence);inline;overload;
+begin
+ do_test_parser(AText,AExpected,1);
+end;
+
+procedure test_parser_1();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ locStatement.LogicalPosition := TReorderLogicalReset.LastTertiaryIgnorable;
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Identity,0);
+ do_test_parser('& [last tertiary ignorable] = a',locStatement);
+end;
+
+procedure test_parser_2();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ locStatement.LogicalPosition := TReorderLogicalReset.LastTertiaryIgnorable;
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,0);
+ do_test_parser('& [last tertiary ignorable] < b',locStatement);
+end;
+
+procedure test_parser_3();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ locStatement.LogicalPosition := TReorderLogicalReset.LastTertiaryIgnorable;
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Secondary,0);
+ do_test_parser('& [last tertiary ignorable] << c',locStatement);
+end;
+
+procedure test_parser_4();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ locStatement.LogicalPosition := TReorderLogicalReset.LastTertiaryIgnorable;
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('d'),TReorderWeigthKind.Tertiary,0);
+ do_test_parser('& [last tertiary ignorable] <<< d',locStatement);
+end;
+
+procedure test_parser_5();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ locStatement.LogicalPosition := TReorderLogicalReset.LastTertiaryIgnorable;
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(1,TReorderWeigthKind.Primary,0);
+ do_test_parser('& [last tertiary ignorable] < ''\u0001''',locStatement);
+end;
+
+procedure test_parser_6();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ locStatement.LogicalPosition := TReorderLogicalReset.LastTertiaryIgnorable;
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(7,TReorderWeigthKind.Secondary,0);
+ do_test_parser('& [last tertiary ignorable] << ''\u0007''',locStatement);
+end;
+
+procedure test_parser_7();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ locStatement.LogicalPosition := TReorderLogicalReset.LastTertiaryIgnorable;
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(9,TReorderWeigthKind.Secondary,0);
+ do_test_parser('& [last tertiary ignorable] << ''\u0009''',locStatement);
+end;
+
+procedure test_parser_8();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ locStatement.LogicalPosition := TReorderLogicalReset.LastTertiaryIgnorable;
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From($000110BD,TReorderWeigthKind.Primary,0);
+ do_test_parser('& [last tertiary ignorable] < ''\U000110BD''',locStatement);
+end;
+
+procedure test_parser_9();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < a',locStatement);
+end;
+
+procedure test_parser_abreviating_1();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(3);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x <* abc',locStatement);
+end;
+
+procedure test_parser_abreviating_2();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(7);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[3] := TReorderUnit.From(Ord('d'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[4] := TReorderUnit.From(Ord('e'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[5] := TReorderUnit.From(Ord('f'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[6] := TReorderUnit.From(Ord('g'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x <* abcd-g',locStatement);
+end;
+
+procedure test_parser_abreviating_3();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(8);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[3] := TReorderUnit.From(Ord('d'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[4] := TReorderUnit.From(Ord('e'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[5] := TReorderUnit.From(Ord('f'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[6] := TReorderUnit.From(Ord('g'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[7] := TReorderUnit.From(Ord('p'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x <* abcd-gp',locStatement);
+end;
+
+procedure test_parser_abreviating_4();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(11);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[3] := TReorderUnit.From(Ord('d'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[4] := TReorderUnit.From(Ord('e'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[5] := TReorderUnit.From(Ord('f'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[6] := TReorderUnit.From(Ord('g'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[7] := TReorderUnit.From(Ord('p'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[8] := TReorderUnit.From(Ord('q'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[9] := TReorderUnit.From(Ord('r'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[10] := TReorderUnit.From(Ord('s'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x <* abcd-gp-s',locStatement);
+end;
+
+procedure test_parser_abreviating_5();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(3);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Secondary,0);
+ do_test_parser('&x <<* abc',locStatement);
+end;
+
+procedure test_parser_abreviating_6();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(11);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[3] := TReorderUnit.From(Ord('d'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[4] := TReorderUnit.From(Ord('e'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[5] := TReorderUnit.From(Ord('f'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[6] := TReorderUnit.From(Ord('g'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[7] := TReorderUnit.From(Ord('p'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[8] := TReorderUnit.From(Ord('q'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[9] := TReorderUnit.From(Ord('r'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[10] := TReorderUnit.From(Ord('s'),TReorderWeigthKind.Secondary,0);
+ do_test_parser('&x <<* abcd-gp-s',locStatement);
+end;
+
+procedure test_parser_abreviating_7();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(3);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Tertiary,0);
+ do_test_parser('&x <<<* abc',locStatement);
+end;
+
+procedure test_parser_abreviating_8();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(11);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[3] := TReorderUnit.From(Ord('d'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[4] := TReorderUnit.From(Ord('e'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[5] := TReorderUnit.From(Ord('f'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[6] := TReorderUnit.From(Ord('g'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[7] := TReorderUnit.From(Ord('p'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[8] := TReorderUnit.From(Ord('q'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[9] := TReorderUnit.From(Ord('r'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[10] := TReorderUnit.From(Ord('s'),TReorderWeigthKind.Tertiary,0);
+ do_test_parser('&x <<<* abcd-gp-s',locStatement);
+end;
+
+procedure test_parser_abreviating_9();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(3);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Identity,0);
+ do_test_parser('&x =* abc',locStatement);
+end;
+
+procedure test_parser_abreviating_10();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(11);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[3] := TReorderUnit.From(Ord('d'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[4] := TReorderUnit.From(Ord('e'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[5] := TReorderUnit.From(Ord('f'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[6] := TReorderUnit.From(Ord('g'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[7] := TReorderUnit.From(Ord('p'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[8] := TReorderUnit.From(Ord('q'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[9] := TReorderUnit.From(Ord('r'),TReorderWeigthKind.Identity,0);
+ locStatement.Elements[10] := TReorderUnit.From(Ord('s'),TReorderWeigthKind.Identity,0);
+ do_test_parser('&x =* abcd-gp-s',locStatement);
+end;
+
+procedure test_parser_contraction_1();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('k');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From([Ord('c'),Ord('h')],TReorderWeigthKind.Primary,0);
+ do_test_parser('&k < ch',locStatement);
+end;
+
+procedure test_parser_contraction_2();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,3);
+ locStatement.Reset[0] := Ord('a');
+ locStatement.Reset[1] := Ord('b');
+ locStatement.Reset[2] := Ord('c');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From([Ord('c'),Ord('h')],TReorderWeigthKind.Primary,0);
+ do_test_parser('&abc < ch',locStatement);
+end;
+
+procedure test_parser_expansion_1();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('a');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('z'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[0].ExpansionChars := CodePointToArray(Ord('e'));
+ do_test_parser('&a < z/e',locStatement);
+end;
+
+procedure test_parser_special_char_1();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('/'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < ''/''',locStatement);
+end;
+
+procedure test_parser_special_char_2();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('&'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < ''&''',locStatement);
+end;
+
+procedure test_parser_special_char_3();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('<'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < ''<''',locStatement);
+end;
+
+procedure test_parser_special_char_4();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('|'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < ''|''',locStatement);
+end;
+
+procedure test_parser_special_char_5();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('*'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < ''*''',locStatement);
+end;
+
+procedure test_parser_special_char_6();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('['),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < ''[''',locStatement);
+end;
+
+procedure test_parser_special_char_7();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord(']'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < '']''',locStatement);
+end;
+
+procedure test_parser_skip_comment_1();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ do_test_parser(
+ '&x #' + sLineBreak +
+ ' < a',
+ locStatement, 2
+ );
+end;
+
+procedure test_parser_skip_comment_2();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ do_test_parser(
+ '&x # hello' + sLineBreak +
+ ' < a',
+ locStatement, 2
+ );
+end;
+
+procedure test_parser_skip_comment_3();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ do_test_parser(
+ '&x # hello' + sLineBreak +
+ sLineBreak +
+ #9#9' ' + sLineBreak +
+ ' < a',
+ locStatement, 4
+ );
+end;
+
+procedure test_parser_quoted_string_1();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From(
+ [Ord('<'),Ord('#'),Ord('|'),Ord('/'),Ord('!')],
+ TReorderWeigthKind.Primary,0
+ );
+ do_test_parser('&x < ''<#|/!''',locStatement);
+end;
+
+procedure test_parser_quoted_string_2();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From(
+ [Ord('<'),Ord('#'),Ord('|'),Ord('/'),Ord('!'),Ord('A')],
+ TReorderWeigthKind.Primary,0
+ );
+ do_test_parser('&x < ''<#|/!''A',locStatement);
+end;
+
+procedure test_parser_quoted_string_3();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From(
+ [Ord('<'),Ord('#'),Ord('|'),Ord('/'),Ord('!')],
+ TReorderWeigthKind.Primary,0
+ );
+ do_test_parser('&x < ''<#|/!''#',locStatement);
+end;
+
+procedure test_parser_quoted_string_4();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From(
+ [Ord('<'),Ord('#'),Ord('|'),Ord('/'),Ord('!'),Ord('A')],
+ TReorderWeigthKind.Primary,0
+ );
+ do_test_parser('&x < ''<#|/!''A#',locStatement);
+end;
+
+procedure test_parser_quoted_string_5();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,3);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.Reset[1] := Ord('-');
+ locStatement.Reset[2] := Ord('y');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From(Ord('k'),TReorderWeigthKind.Tertiary,0);
+ do_test_parser('&''x''-''y''<<<k',locStatement);
+end;
+
+procedure test_parser_quoted_string_6();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From(Ord('|'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < ''|''',locStatement);
+end;
+
+procedure test_parser_quoted_string_7();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From([Ord('a'),Ord('|')],TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < a''|''',locStatement);
+end;
+
+procedure test_parser_quoted_string_8();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From([Ord('a'),Ord('|'),Ord('c')],TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < a''|''c',locStatement);
+end;
+
+procedure test_parser_contexte_before_1();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From(Ord('-'),[Ord('a')],TReorderWeigthKind.Secondary,0);
+ do_test_parser('&x << a|-',locStatement);
+end;
+
+procedure test_parser_contexte_before_2();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('a');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From(Ord('-'),[Ord('a')],TReorderWeigthKind.Tertiary,0);
+ do_test_parser('&a <<< a|-',locStatement);
+end;
+
+procedure test_parser_contexte_before_3();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From(
+ Ord('-'),[Ord('a'),Ord('z'),Ord('k')],TReorderWeigthKind.Secondary,0
+ );
+ do_test_parser('&x << azk|-',locStatement);
+end;
+
+procedure test_parser_contexte_before_4();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From(
+ [Ord('a'),Ord(':')],[Ord('a'),Ord('z'),Ord('k')],
+ TReorderWeigthKind.Secondary,0
+ );
+ do_test_parser('&x << azk|a:',locStatement);
+end;
+
+procedure test_parser_placement_before_1();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.Before := True;
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('k'),TReorderWeigthKind.Secondary,0);
+ do_test_parser('&[before 2] x << k',locStatement);
+end;
+
+procedure test_parser_placement_before_2();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.Before := True;
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] :=
+ TReorderUnit.From([Ord('z'),Ord('k')],TReorderWeigthKind.Tertiary,0);
+ do_test_parser('&[before 3] x <<< zk',locStatement);
+end;
+
+procedure test_parser_placement_before_3();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.Before := True;
+ locStatement.SetElementCount(1);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('z'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&[before 1] x < z',locStatement);
+end;
+
+procedure test_parser_multi_unit_statement_line_1();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(3);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,0);
+ do_test_parser('&x < a < b < c',locStatement);
+ do_test_parser('&x <a <b <c',locStatement);
+ do_test_parser('&x <a<b<c',locStatement);
+end;
+
+procedure test_parser_multi_unit_statement_line_2();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(3);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Tertiary,0);
+ do_test_parser('&x < a << b <<< c',locStatement);
+ do_test_parser('&x <a <<b <<<c',locStatement);
+ do_test_parser('&x <a<<b<<<c',locStatement);
+end;
+
+procedure test_parser_multi_unit_statement_line_3();
+var
+ locStatement : TReorderSequence;
+begin
+ locStatement.Clear();
+ SetLength(locStatement.Reset,1);
+ locStatement.Reset[0] := Ord('x');
+ locStatement.SetElementCount(3);
+ locStatement.Elements[0] := TReorderUnit.From(Ord('a'),TReorderWeigthKind.Tertiary,0);
+ locStatement.Elements[1] := TReorderUnit.From(Ord('b'),TReorderWeigthKind.Secondary,0);
+ locStatement.Elements[2] := TReorderUnit.From(Ord('c'),TReorderWeigthKind.Tertiary,0);
+ do_test_parser('&x <<< a << b <<< c',locStatement);
+ do_test_parser('&x <<<a <<b <<<c',locStatement);
+ do_test_parser('&x <<<a<<b<<<c',locStatement);
+end;
+
+procedure test_parser_multi_statement_line_1();
+const STATEMENT_BUFFER : UTF8String = '&r <<a &s <<< b';
+var
+ locStatements : array of TReorderSequence;
+ locStatement : PReorderSequence;
+ locExpectedStatement : TReorderSequence;
+ lineCount, i, bufferLength, k, nextPost : Integer;
+ buffer : PAnsiChar;
+begin
+ buffer := @STATEMENT_BUFFER[1];
+ WriteLn('Parsing "',buffer,'" ...');
+ bufferLength := Length(buffer);
+ SetLength(locStatements,10);
+ lineCount := 0;
+ nextPost := 0;
+ i := 0;
+ k := 0;
+ while (i < bufferLength) do begin
+ locStatement := @locStatements[k];
+ locStatement^.Clear();
+ if not ParseStatement(buffer,i,bufferLength,locStatement,nextPost,lineCount) then
+ Break;
+ i := nextPost;
+ k := k+1;
+ if (k > 2) then
+ raise Exception.Create('2 Statements expected, more was parsed.');
+ end;
+ Check((k=2), 'Statement Count');
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('r');
+ locExpectedStatement.SetElementCount(1);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('a'),TReorderWeigthKind.Secondary,0);
+ CheckEqual(locStatements[0],locExpectedStatement);
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('s');
+ locExpectedStatement.SetElementCount(1);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('b'),TReorderWeigthKind.Tertiary,0);
+ CheckEqual(locStatements[1],locExpectedStatement);
+
+ WriteLn(' -- test ok');
+end;
+
+procedure test_parser_multi_statement_line_2();
+const STATEMENT_BUFFER : UTF8String = '&r <a <b <<B &s <<< b <c';
+var
+ locStatements : array of TReorderSequence;
+ locStatement : PReorderSequence;
+ locExpectedStatement : TReorderSequence;
+ lineCount, i, bufferLength, k, nextPost : Integer;
+ buffer : PAnsiChar;
+begin
+ buffer := @STATEMENT_BUFFER[1];
+ WriteLn('Parsing "',buffer,'" ...');
+ bufferLength := Length(buffer);
+ SetLength(locStatements,10);
+ lineCount := 0;
+ nextPost := 0;
+ i := 0;
+ k := 0;
+ while (i < bufferLength) do begin
+ locStatement := @locStatements[k];
+ locStatement^.Clear();
+ if not ParseStatement(buffer,i,bufferLength,locStatement,nextPost,lineCount) then
+ Break;
+ i := nextPost;
+ k := k+1;
+ if (k > 2) then
+ raise Exception.Create('2 Statements expected, more was parsed.');
+ end;
+ Check((k=2), 'Statement Count');
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('r');
+ locExpectedStatement.SetElementCount(3);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ locExpectedStatement.Elements[1] :=
+ TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,0);
+ locExpectedStatement.Elements[2] :=
+ TReorderUnit.From(Ord('B'),TReorderWeigthKind.Secondary,0);
+ CheckEqual(locStatements[0],locExpectedStatement);
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('s');
+ locExpectedStatement.SetElementCount(2);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('b'),TReorderWeigthKind.Tertiary,0);
+ locExpectedStatement.Elements[1] :=
+ TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,0);
+ CheckEqual(locStatements[1],locExpectedStatement);
+
+ WriteLn(' -- test ok');
+end;
+
+procedure test_parser_multi_statement_line_3();
+const STATEMENT_BUFFER : UTF8String = '&r <a <b <<B &s <<< b <c &x <A <W';
+var
+ locStatements : array of TReorderSequence;
+ locStatement : PReorderSequence;
+ locExpectedStatement : TReorderSequence;
+ lineCount, i, bufferLength, k, nextPost : Integer;
+ buffer : PAnsiChar;
+begin
+ buffer := @STATEMENT_BUFFER[1];
+ WriteLn('Parsing "',buffer,'" ...');
+ bufferLength := Length(buffer);
+ SetLength(locStatements,10);
+ lineCount := 0;
+ nextPost := 0;
+ i := 0;
+ k := 0;
+ while (i < bufferLength) do begin
+ locStatement := @locStatements[k];
+ locStatement^.Clear();
+ if not ParseStatement(buffer,i,bufferLength,locStatement,nextPost,lineCount) then
+ Break;
+ i := nextPost;
+ k := k+1;
+ if (k > 3) then
+ raise Exception.Create('3 Statements expected, more was parsed.');
+ end;
+ Check((k=3), 'Statement Count');
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('r');
+ locExpectedStatement.SetElementCount(3);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ locExpectedStatement.Elements[1] :=
+ TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,0);
+ locExpectedStatement.Elements[2] :=
+ TReorderUnit.From(Ord('B'),TReorderWeigthKind.Secondary,0);
+ CheckEqual(locStatements[0],locExpectedStatement);
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('s');
+ locExpectedStatement.SetElementCount(2);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('b'),TReorderWeigthKind.Tertiary,0);
+ locExpectedStatement.Elements[1] :=
+ TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,0);
+ CheckEqual(locStatements[1],locExpectedStatement);
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('x');
+ locExpectedStatement.SetElementCount(2);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('A'),TReorderWeigthKind.Primary,0);
+ locExpectedStatement.Elements[1] :=
+ TReorderUnit.From(Ord('W'),TReorderWeigthKind.Primary,0);
+ CheckEqual(locStatements[2],locExpectedStatement);
+
+ WriteLn(' -- test ok');
+end;
+
+procedure test_parser_multi_statement_line_4();
+const STATEMENT_BUFFER : UTF8String =
+ ' &r <a <b <<B &s <<< b <c &x <A <W';
+var
+ locStatements : array of TReorderSequence;
+ locStatement : PReorderSequence;
+ locExpectedStatement : TReorderSequence;
+ lineCount, i, bufferLength, k, nextPost : Integer;
+ buffer : PAnsiChar;
+begin
+ buffer := @STATEMENT_BUFFER[1];
+ WriteLn('Parsing "',buffer,'" ...');
+ bufferLength := Length(buffer);
+ SetLength(locStatements,10);
+ lineCount := 0;
+ nextPost := 0;
+ i := 0;
+ k := 0;
+ while (i < bufferLength) do begin
+ locStatement := @locStatements[k];
+ locStatement^.Clear();
+ if not ParseStatement(buffer,i,bufferLength,locStatement,nextPost,lineCount) then
+ Break;
+ i := nextPost;
+ k := k+1;
+ if (k > 3) then
+ raise Exception.Create('3 Statements expected, more was parsed.');
+ end;
+ Check((k=3), 'Statement Count');
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('r');
+ locExpectedStatement.SetElementCount(3);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ locExpectedStatement.Elements[1] :=
+ TReorderUnit.From(Ord('b'),TReorderWeigthKind.Primary,0);
+ locExpectedStatement.Elements[2] :=
+ TReorderUnit.From(Ord('B'),TReorderWeigthKind.Secondary,0);
+ CheckEqual(locStatements[0],locExpectedStatement);
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('s');
+ locExpectedStatement.SetElementCount(2);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('b'),TReorderWeigthKind.Tertiary,0);
+ locExpectedStatement.Elements[1] :=
+ TReorderUnit.From(Ord('c'),TReorderWeigthKind.Primary,0);
+ CheckEqual(locStatements[1],locExpectedStatement);
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('x');
+ locExpectedStatement.SetElementCount(2);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('A'),TReorderWeigthKind.Primary,0);
+ locExpectedStatement.Elements[1] :=
+ TReorderUnit.From(Ord('W'),TReorderWeigthKind.Primary,0);
+ CheckEqual(locStatements[2],locExpectedStatement);
+
+ WriteLn(' -- test ok');
+end;
+
+procedure test_parser_multi_line_statements_1();
+const STATEMENT_BUFFER : UTF8String =
+ '&r <a #123'#10 +
+ '&s <<< b ';
+var
+ locStatements : array of TReorderSequence;
+ locStatement : PReorderSequence;
+ locExpectedStatement : TReorderSequence;
+ lineCount, i, bufferLength, k, nextPost : Integer;
+ buffer : PAnsiChar;
+begin
+ buffer := @STATEMENT_BUFFER[1];
+ WriteLn('Parsing "',buffer,'" ...');
+ bufferLength := Length(buffer);
+ SetLength(locStatements,10);
+ lineCount := 0;
+ nextPost := 0;
+ i := 0;
+ k := 0;
+ while (i < bufferLength) do begin
+ locStatement := @locStatements[k];
+ locStatement^.Clear();
+ if not ParseStatement(buffer,i,bufferLength,locStatement,nextPost,lineCount) then
+ Break;
+ i := nextPost;
+ k := k+1;
+ if (k > 2) then
+ raise Exception.Create('2 Statements expected, more was parsed.');
+ end;
+ Check((k=2), 'Statement Count');
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('r');
+ locExpectedStatement.SetElementCount(1);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('a'),TReorderWeigthKind.Primary,0);
+ CheckEqual(locStatements[0],locExpectedStatement);
+
+ locExpectedStatement.Clear();
+ SetLength(locExpectedStatement.Reset,1);
+ locExpectedStatement.Reset[0] := Ord('s');
+ locExpectedStatement.SetElementCount(1);
+ locExpectedStatement.Elements[0] :=
+ TReorderUnit.From(Ord('b'),TReorderWeigthKind.Tertiary,0);
+ CheckEqual(locStatements[1],locExpectedStatement);
+
+ WriteLn(' -- test ok');
+end;
+
+//----------------------------------------------------------------------------//
+const
+ UNICODE_LINE_BREAK = #10;
+ COLLATION_XML_TEXT =
+ '<ldml>' + UNICODE_LINE_BREAK +
+ ' <identity>' + UNICODE_LINE_BREAK +
+ ' <version number="1.2.3"/>' + UNICODE_LINE_BREAK +
+ ' <generation date="$Date: 2014-07-08 21:39:31 -0500 (Tue, 08 Jul 2014) $"/>' + UNICODE_LINE_BREAK +
+ ' <language type="xy" />' + UNICODE_LINE_BREAK +
+ ' </identity>' + UNICODE_LINE_BREAK +
+ ' <collations >' + UNICODE_LINE_BREAK +
+ ' <defaultCollation>one</defaultCollation>' + UNICODE_LINE_BREAK +
+ ' <collation type="abc" >' + UNICODE_LINE_BREAK +
+ ' <import source="xy" type="private-two"/>' + UNICODE_LINE_BREAK +
+ ' <import source="xy" type="one"/>' + UNICODE_LINE_BREAK +
+ ' <suppress_contractions>[qh]</suppress_contractions>' + UNICODE_LINE_BREAK +
+ ' <cr><![CDATA[' + UNICODE_LINE_BREAK +
+ ' &w<u<v' + UNICODE_LINE_BREAK +
+ ' ]]></cr>' + UNICODE_LINE_BREAK +
+ ' </collation>' + UNICODE_LINE_BREAK +
+ ' <collation type="one" >' + UNICODE_LINE_BREAK +
+ ' <cr><![CDATA[' + UNICODE_LINE_BREAK +
+ ' &h<z<b' + UNICODE_LINE_BREAK +
+ ' ]]></cr>' + UNICODE_LINE_BREAK +
+ ' </collation>' + UNICODE_LINE_BREAK +
+ ' <collation type="private-two" >' + UNICODE_LINE_BREAK +
+ ' <cr><![CDATA[' + UNICODE_LINE_BREAK +
+ ' &f<c<<<ce' + UNICODE_LINE_BREAK +
+ ' &q<qh<<<p' + UNICODE_LINE_BREAK +
+ ' ]]></cr>' + UNICODE_LINE_BREAK +
+ ' </collation >' + UNICODE_LINE_BREAK +
+ ' <collation type="three" >' + UNICODE_LINE_BREAK +
+ ' <cr><![CDATA[' + UNICODE_LINE_BREAK +
+ ' &d<c<b<a' + UNICODE_LINE_BREAK +
+ ' ]]></cr>' + UNICODE_LINE_BREAK +
+ ' </collation>' + UNICODE_LINE_BREAK +
+ ' </collations>' + UNICODE_LINE_BREAK +
+ '</ldml>';
+ COLLATION_XML_TEXT2 =
+ '<ldml>' + UNICODE_LINE_BREAK +
+ ' <identity>' + UNICODE_LINE_BREAK +
+ ' <version number="1.2.3"/>' + UNICODE_LINE_BREAK +
+ ' <generation date="$Date: 2014-07-08 21:39:31 -0500 (Tue, 08 Jul 2014) $"/>' + UNICODE_LINE_BREAK +
+ ' <language type="kw" />' + UNICODE_LINE_BREAK +
+ ' </identity>' + UNICODE_LINE_BREAK +
+ ' <collations >' + UNICODE_LINE_BREAK +
+ ' <defaultCollation>wend</defaultCollation>' + UNICODE_LINE_BREAK +
+ ' <collation type="kis" >' + UNICODE_LINE_BREAK +
+ ' <cr><![CDATA[' + UNICODE_LINE_BREAK +
+ ' &x<c<v' + UNICODE_LINE_BREAK +
+ ' ]]></cr>' + UNICODE_LINE_BREAK +
+ ' </collation>' + UNICODE_LINE_BREAK +
+ ' <collation type="wend" >' + UNICODE_LINE_BREAK +
+ ' <import source="xy" type="one"/>' + UNICODE_LINE_BREAK +
+ ' <cr><![CDATA[' + UNICODE_LINE_BREAK +
+ ' &F<<P<<<C' + UNICODE_LINE_BREAK +
+ ' &L<a<<<Z' + UNICODE_LINE_BREAK +
+ ' ]]></cr>' + UNICODE_LINE_BREAK +
+ ' </collation>' + UNICODE_LINE_BREAK +
+ ' </collations>' + UNICODE_LINE_BREAK +
+ '</ldml>';
+
+function PrepareCollationStream(const AText : string) : TStream;
+begin
+ Result := TMemoryStream.Create();
+ if (AText <> '') then
+ Result.Write(AText[1],(Length(AText)*SizeOf(Char)));
+end;
+
+function PrepareRepositoryLoader() : ICldrCollationLoader;
+var
+ s : array of TStream;
+begin
+ SetLength(s,2);
+ s[0] := PrepareCollationStream(COLLATION_XML_TEXT);
+ s[1] := PrepareCollationStream(COLLATION_XML_TEXT2);
+ Result := TCldrCollationStreamLoader.Create(['xy','kw'],s) as ICldrCollationLoader;
+end;
+
+procedure test_collation_parser_HeaderParsing();
+var
+ rep : TCldrCollationRepository;
+ col : TCldrCollation;
+ typ : TCldrCollationItem;
+ imp : TCldrImport;
+begin
+ rep := TCldrCollationRepository.Create(PrepareRepositoryLoader());
+ try
+ Check(rep.Find('xy')=nil, 'Find() before load.');
+ Check(rep.Find('ab')=nil, 'Find() before load.');
+ col := rep.Load('xy',TCldrParserMode.HeaderParsing);
+ Check(col <> nil, 'load()');
+ Check(col.Mode=TCldrParserMode.HeaderParsing, 'Mode');
+ Check(rep.Find('xy') <> nil, 'Find() after load.');
+ Check(rep.Find('ab')=nil);
+ WriteLn(' - Step 1 ok');
+
+ Check(col.DefaultType='one', 'DefaultType');
+ Check(col.ItemCount=4, 'col.ItemCount');
+ Check(col.Find('one')<>nil, 'col.Find()');
+ Check(col.Find('private-two')<>nil, 'col.Find()');
+ Check(col.Find('three')<>nil, 'col.Find()');
+ Check(col.Find('abc')<>nil, 'col.Find()');
+
+ WriteLn(' - Step 2 ok');
+
+ typ := col.Find('private-two');
+ check(typ.IsPrivate(),'IsPrivate()');
+
+ WriteLn(' - Step 3 ok');
+
+ Check(col.Find('one').Imports.Count=0, 'one.imports=0');
+ Check(col.Find('private-two').Imports.Count=0, 'private-two.imports=0');
+ Check(col.Find('three').Imports.Count=0, 'three.imports=0');
+
+ WriteLn(' - Step 4 ok');
+
+ typ := col.Find('abc');
+ check(typ.Imports.Count=2,'abc.imports=2');
+ imp := typ.Imports[0];
+ check(imp<>nil, 'abc.Imports[0]');
+ check(
+ (imp.Source = 'xy') and (imp.TypeName = 'private-two'),
+ 'abc.Imports[0]'
+ );
+ imp := typ.Imports[1];
+ check(imp<>nil, 'abc.Imports[1]');
+ check(
+ (imp.Source = 'xy') and (imp.TypeName = 'one'),
+ 'abc.Imports[1]'
+ );
+
+ WriteLn(' - Step 5 ok');
+ finally
+ rep.Free();
+ end;
+
+ WriteLn(' -- test ok');
+end;
+
+procedure test_collation_parser_HeaderParsing_2();
+var
+ rep : TCldrCollationRepository;
+ col : TCldrCollation;
+ typ : TCldrCollationItem;
+ imp : TCldrImport;
+begin
+ rep := TCldrCollationRepository.Create(PrepareRepositoryLoader());
+ try
+ Check(rep.Find('kw')=nil, 'Find() before load.');
+ Check(rep.Find('xy')=nil, 'Find() before load.');
+ col := rep.Load('kw',TCldrParserMode.HeaderParsing);
+ Check(col <> nil, 'load()');
+ Check(col.Mode=TCldrParserMode.HeaderParsing, 'Mode');
+ Check(rep.Find('kw') <> nil, 'Find() after load.');
+ WriteLn(' - Step 1 ok');
+
+ Check(rep.Find('xy')=nil, 'Find(xy) after load.');
+ WriteLn(' - Step 2 ok');
+
+ typ := col.Find('wend');
+ check(typ.Imports.Count=1,'wend.imports=1');
+ imp := typ.Imports[0];
+ check(imp<>nil, 'wend.Imports[0]');
+ check(
+ (imp.Source = 'xy') and (imp.TypeName = 'one'),
+ 'wend.Imports[0]'
+ );
+
+ WriteLn(' - Step 3 ok');
+ finally
+ rep.Free();
+ end;
+
+ WriteLn(' -- test ok');
+end;
+
+function ParseSingleStatement(
+ const AText : UnicodeString;
+ AStatement : PReorderSequence
+) : Boolean;
+var
+ np, lc : Integer;
+ u8 : UTF8String;
+begin
+ u8 := UTF8Encode(AText);
+ np := 0;
+ lc := 0;
+ Result := ParseStatement(@u8[1],0,Length(u8),AStatement,np,lc);
+end;
+
+function ParseMultiStatements(
+ AText : UnicodeString;
+ AStatementList : PReorderSequence;
+ const AListLength : Integer
+) : Integer;
+var
+ c, nextPos, lineCount, i : Integer;
+ u8 : UTF8String;
+ buffer : PAnsiChar;
+ statement, lastStatement : PReorderSequence;
+begin
+ u8 := UTF8Encode(AText);
+ c := Length(u8);
+ buffer := @u8[1];
+ nextPos := 0;
+ i := 0;
+ lineCount := 0;
+ statement := AStatementList;
+ lastStatement := AStatementList+AListLength;
+ while (i < c) and (statement < lastStatement) do begin
+ statement^.Clear();
+ if not ParseStatement(buffer,i,c,statement,nextPos,lineCount) then
+ Break;
+ i := nextPos;
+ Inc(statement);
+ end;
+ Result := statement-AStatementList;
+end;
+
+type
+ TReorderSequenceArrayRec = record
+ Data : TReorderSequenceArray;
+ ActualLengh : Integer;
+ end;
+ PReorderSequenceArrayRec = ^TReorderSequenceArrayRec;
+
+function CopyVisitorFunc(
+ ARule : PReorderSequence;
+ AOwner : TCldrCollationItem;
+ AData : Pointer
+) : Boolean;
+var
+ p : PReorderSequenceArrayRec;
+begin
+ p := PReorderSequenceArrayRec(AData);
+ Result := (p^.ActualLengh < Length(p^.Data));
+ if Result then begin
+ p^.Data[p^.ActualLengh].Assign(ARule);
+ p^.ActualLengh := p^.ActualLengh+1;
+ end;
+end;
+
+procedure test_collation_parser_FullParsing();
+var
+ rep : TCldrCollationRepository;
+ col : TCldrCollation;
+ typ : TCldrCollationItem;
+ imp : TCldrImport;
+ locStatement : TReorderSequence;
+ locStatementList : TReorderSequenceArray;
+ c, i : Integer;
+begin
+ rep := TCldrCollationRepository.Create(PrepareRepositoryLoader());
+ try
+ Check(rep.Find('xy')=nil, 'Find() before load.');
+ Check(rep.Find('ab')=nil, 'Find() before load.');
+ col := rep.Load('xy',TCldrParserMode.FullParsing);
+ Check(col <> nil, 'load()');
+ Check(col.Mode=TCldrParserMode.FullParsing, 'Mode');
+ Check(rep.Find('xy') <> nil, 'Find() after load.');
+ Check(rep.Find('ab')=nil);
+ WriteLn(' - Step 1 ok');
+
+ Check(col.DefaultType='one', 'DefaultType');
+ Check(col.ItemCount=4, 'col.ItemCount');
+ Check(col.Find('one')<>nil, 'col.Find()');
+ Check(col.Find('private-two')<>nil, 'col.Find()');
+ Check(col.Find('three')<>nil, 'col.Find()');
+ Check(col.Find('abc')<>nil, 'col.Find()');
+
+ WriteLn(' - Step 2 ok');
+
+ typ := col.Find('private-two');
+ check(typ.IsPrivate(),'IsPrivate()');
+
+ WriteLn(' - Step 3 ok');
+
+ Check(col.Find('one').Imports.Count=0, 'one.imports=0');
+ Check(col.Find('private-two').Imports.Count=0, 'private-two.imports=0');
+ Check(col.Find('three').Imports.Count=0, 'three.imports=0');
+
+ WriteLn(' - Step 4 ok');
+
+ typ := col.Find('abc');
+ check(typ.Imports.Count=2,'abc.imports=2');
+ imp := typ.Imports[0];
+ check(imp<>nil, 'abc.Imports[0]');
+ check(
+ (imp.Source = 'xy') and (imp.TypeName = 'private-two'),
+ 'abc.Imports[0]'
+ );
+ imp := typ.Imports[1];
+ check(imp<>nil, 'abc.Imports[1]');
+ check(
+ (imp.Source = 'xy') and (imp.TypeName = 'one'),
+ 'abc.Imports[1]'
+ );
+ Check(Length(typ.Rules)=2,'Length(abc.Rules)=2');
+ Check(Length(typ.Rules[0].Elements)=2,'Length(typ.Rules[0].Elements)=2');
+ Check(typ.Rules[0].Elements[0].WeigthKind=TReorderWeigthKind.Deletion,'typ.Rules[0].Elements[0].WeigthKind=TReorderWeigthKind.Deletion');
+ Check(Length(typ.Rules[0].Elements[0].Characters)=1,'Length(typ.Rules[0].Elements[0].Characters)=1');
+ Check(typ.Rules[0].Elements[0].Characters[0]=Ord('h'),'typ.Rules[0].Elements[0].Characters[0]=h');
+ Check(typ.Rules[0].Elements[1].Characters[0]=Ord('q'),'typ.Rules[0].Elements[1].Characters[0]=q');
+ WriteLn(' - Step 5 ok');
+
+ typ := col.Find('one');
+ Check(Length(typ.Rules)>0, 'one.Rules <> nil');
+ locStatement.Clear();
+ Check(ParseSingleStatement('&h<z<b',@locStatement));
+ CheckEqual(locStatement,typ.Rules[0]);
+ WriteLn(' - Step 6 ok');
+
+ typ := col.Find('private-two');
+ Check(Length(typ.Rules)>0, 'private-two.Rules <> nil');
+ c := 2;
+ SetLength(locStatementList,5);
+ Check(
+ ParseMultiStatements(
+ '&f<c<<<ce' + UNICODE_LINE_BREAK+'&q<qh<<<p ',
+ @locStatementList[0],
+ Length(locStatementList)
+ ) = c
+ );
+ for i := 0 to c-1 do
+ CheckEqual(locStatementList[i],typ.Rules[i]);
+ WriteLn(' - Step 7 ok');
+
+ typ := col.Find('three');
+ Check(Length(typ.Rules)>0, 'three.Rules <> nil');
+ locStatement.Clear();
+ Check(ParseSingleStatement('&d<c<b<a',@locStatement));
+ CheckEqual(locStatement,typ.Rules[0]);
+ WriteLn(' - Step 8 ok');
+ finally
+ rep.Free();
+ end;
+
+ WriteLn(' -- test ok');
+end;
+
+procedure test_collation_parser_FullParsing_2();
+var
+ rep : TCldrCollationRepository;
+ col : TCldrCollation;
+ typ : TCldrCollationItem;
+ imp : TCldrImport;
+ locStatementList : TReorderSequenceArray;
+ c, i : Integer;
+begin
+ rep := TCldrCollationRepository.Create(PrepareRepositoryLoader());
+ try
+ Check(rep.Find('kw')=nil, 'Find() before load.');
+ Check(rep.Find('xy')=nil, 'Find() before load.');
+ col := rep.Load('kw',TCldrParserMode.FullParsing);
+ Check(col <> nil, 'load()');
+ Check(col.Mode=TCldrParserMode.FullParsing, 'Mode');
+ Check(rep.Find('kw') <> nil, 'Find() after load.');
+ WriteLn(' - Step 1 ok');
+
+ typ := col.Find('wend');
+ check(typ.Imports.Count=1,'wend.imports=1');
+ imp := typ.Imports[0];
+ check(imp<>nil, 'wend.Imports[0]');
+ check(
+ (imp.Source = 'xy') and (imp.TypeName = 'one'),
+ 'wend.Imports[0]'
+ );
+ Check(Length(typ.Rules)>0, 'wend.Rules <> nil');
+ c := 2;
+ SetLength(locStatementList,5);
+ Check(
+ ParseMultiStatements(
+ '&F<<P<<<C' + UNICODE_LINE_BREAK+'&L<a<<<Z ',
+ @locStatementList[0],
+ Length(locStatementList)
+ ) = c
+ );
+ for i := 0 to c-1 do
+ CheckEqual(locStatementList[i],typ.Rules[i]);
+ WriteLn(' - Step 2 ok');
+
+ finally
+ rep.Free();
+ end;
+
+ WriteLn(' -- test ok');
+end;
+
+procedure test_collation_parser_complete_rules();
+var
+ rep : TCldrCollationRepository;
+ col : TCldrCollation;
+ typ, xtyp : TCldrCollationItem;
+ c, i : Integer;
+ locData : TReorderSequenceArrayRec;
+begin
+ rep := TCldrCollationRepository.Create(PrepareRepositoryLoader());
+ try
+ col := rep.Load('xy',TCldrParserMode.FullParsing);
+ SetLength(locData.Data,23);
+
+ typ := col.Find('one');
+ locData.ActualLengh := 0;
+ Check(ForEachRule(typ,@CopyVisitorFunc,@locData), 'ForEachRule(one) - 1');
+ Check(locData.ActualLengh = 1, 'ForEachRule(one) - 2');
+ CheckEqual(locData.Data[0],typ.Rules[0]);
+ WriteLn(' - Step 1 ok');
+
+ typ := col.Find('private-two');
+ locData.ActualLengh := 0;
+ Check(ForEachRule(typ,@CopyVisitorFunc,@locData), 'ForEachRule(private-two) - 1');
+ Check(locData.ActualLengh = 2, 'ForEachRule(private-two) - 2');
+ for i := 0 to locData.ActualLengh-1 do
+ CheckEqual(locData.Data[i],typ.Rules[i]);
+ WriteLn(' - Step 2 ok');
+
+ typ := col.Find('abc');
+ locData.ActualLengh := 0;
+ SetLength(locData.Data,23);
+ Check(ForEachRule(typ,@CopyVisitorFunc,@locData), 'ForEachRule(abc) - 1');
+ Check(locData.ActualLengh = 2+2{private-two}+1{one}, 'ForEachRule(abc) - 2');
+ xtyp := col.Find('private-two');
+ c := 0;
+ for i := 0 to Length(xtyp.Rules)-1 do
+ CheckEqual(locData.Data[c+i],xtyp.Rules[i]);
+ c := c+Length(xtyp.Rules);
+ xtyp := col.Find('one');
+ for i := 0 to Length(xtyp.Rules)-1 do
+ CheckEqual(locData.Data[c+i],xtyp.Rules[i]);
+ c := c+Length(xtyp.Rules);
+ for i := 0 to Length(typ.Rules)-1 do
+ CheckEqual(locData.Data[c+i],typ.Rules[i]);
+ WriteLn(' - Step 2 ok');
+ finally
+ rep.Free();
+ end;
+
+ WriteLn(' -- test ok');
+end;
+
+procedure test_collation_parser_complete_rules_2();
+var
+ rep : TCldrCollationRepository;
+ col, xcol : TCldrCollation;
+ typ, xtyp : TCldrCollationItem;
+ locData : TReorderSequenceArrayRec;
+ c, i : Integer;
+begin
+ rep := TCldrCollationRepository.Create(PrepareRepositoryLoader());
+ try
+ col := rep.Load('kw',TCldrParserMode.FullParsing);
+ SetLength(locData.Data,23);
+
+ typ := col.Find('wend');
+ locData.ActualLengh := 0;
+ Check(ForEachRule(typ,@CopyVisitorFunc,@locData), 'ForEachRule(wend) - 1');
+ Check(locData.ActualLengh = 2+1{one}, 'ForEachRule(wend) - 2');
+ xcol := rep.Find('xy');
+ Check(xcol <> nil);
+ xtyp := xcol.Find('one');
+ Check(xtyp <> nil);
+ Check(Length(xtyp.Rules)=1);
+ c := 0;
+ for i := 0 to Length(xtyp.Rules)-1 do
+ CheckEqual(locData.Data[c+i],xtyp.Rules[i]);
+ c := c+Length(xtyp.Rules);
+ for i := 0 to Length(typ.Rules)-1 do
+ CheckEqual(locData.Data[c+i],typ.Rules[i]);
+ WriteLn(' - Step 1 ok');
+
+ finally
+ rep.Free();
+ end;
+
+ WriteLn(' -- test ok');
+end;
+
+procedure test_unicode_set_1();
+var
+ x : TUnicodeSet;
+ i : Integer;
+ s : string;
+begin
+ x := TUnicodeSet.Create();
+ try
+ for i := 0 to 256-1 do
+ Check(not x.Contains(AnsiChar(i)));
+ WriteLn(' - Stept 1 ok');
+
+ s := 'azerty';
+ x.AddPattern(Format('[%s]',[s]));
+ for i := 1 to Length(s) do
+ Check(x.Contains(s[i]));
+ WriteLn(' - Stept 2 ok');
+ finally
+ x.Free();
+ end;
+
+ WriteLn(' -- test ok');
+end;
+
+procedure test_unicode_set_2();
+var
+ x : TUnicodeSet;
+ i : Integer;
+begin
+ x := TUnicodeSet.Create();
+ try
+ x.AddPattern('[d-h]');
+ for i := Ord('d') to Ord('h') do
+ Check(x.Contains(Char(i)));
+ WriteLn(' - Stept 1 ok');
+
+ for i := Ord('a') to Ord('d')-1 do
+ Check(not x.Contains(Char(i)));
+ WriteLn(' - Stept 2 ok');
+
+ for i := Ord('h')+1 to 256-1 do
+ Check(not x.Contains(Char(i)));
+ WriteLn(' - Stept 3 ok');
+ finally
+ x.Free();
+ end;
+
+ WriteLn(' -- test ok');
+end;
+
+procedure test_unicode_set_3();
+var
+ x : TUnicodeSet;
+ s, s1 : string;
+begin
+ x := TUnicodeSet.Create();
+ try
+ s := 'azerty';
+ x.AddPattern(Format('[{%s}]',[s]));
+ Check(x.Contains(s));
+ WriteLn(' - Stept 1 ok');
+
+ Check(not x.Contains(s+'12'));
+ WriteLn(' - Stept 2 ok');
+
+ Check(not x.Contains('qs'+s));
+ WriteLn(' - Stept 3 ok');
+
+ s1 := s+'x';
+ x.AddPattern(Format('[{%s}]',[s1]));
+ Check(x.Contains(s));
+ Check(x.Contains(s1));
+ WriteLn(' - Stept 4 ok');
+ finally
+ x.Free();
+ end;
+
+ WriteLn(' -- test ok');
+end;
+
end.
diff --git a/utils/unicode/cldrtxt.pas b/utils/unicode/cldrtxt.pas
new file mode 100644
index 0000000000..44dd796adc
--- /dev/null
+++ b/utils/unicode/cldrtxt.pas
@@ -0,0 +1,687 @@
+{ Parser of the CLDR collation tailoring files.
+ This parser handle the textual syntax for CLDR version > 23
+
+ Copyright (c) 2014,2015 by Inoussa OUEDRAOGO
+
+ The source code is distributed under the Library GNU
+ General Public License with the following modification:
+
+ - object files and libraries linked into an application may be
+ distributed without source code.
+
+ If you didn't receive a copy of the file COPYING, contact:
+ Free Software Foundation
+ 675 Mass Ave
+ Cambridge, MA 02139
+ USA
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+}
+unit cldrtxt;
+
+{$mode objfpc}{$H+}
+{$TypedAddress on}
+
+interface
+
+uses
+ Classes, SysUtils,
+ cldrhelper, helper;
+
+ procedure ParseInitialDocument(ASequence : POrderedCharacters; ADoc : TCustomMemoryStream);overload;
+ procedure ParseInitialDocument(ASequence : POrderedCharacters; AFileName : string);overload;
+
+ function ParseStatement(
+ AData : PAnsiChar;
+ AStartPosition,
+ AMaxLen : Integer;
+ AStatement : PReorderSequence;
+ var ANextPos,
+ ALineCount : Integer
+ ) : Boolean;
+
+implementation
+uses
+ unicodedata;
+
+const
+ s_BEFORE = 'before';
+
+function String2UnicodeCodePointArray(const AValue : UTF8String): TUnicodeCodePointArray;
+var
+ u4str : UCS4String;
+ k : Integer;
+begin
+ if (Length(AValue) = 0) then
+ exit(nil);
+ if (Length(AValue) = 1) then begin
+ SetLength(Result,1);
+ Result[0] := Ord(AValue[1])
+ end else begin
+ u4str := UnicodeStringToUCS4String(UTF8Decode(AValue));
+ k := Length(u4str) - 1; // remove the last #0
+ SetLength(Result,k);
+ for k := 0 to k - 1 do
+ Result[k] := u4str[k];
+ end;
+end;
+
+function TryStringToReorderWeigthKind(
+ const AStr : UTF8String;
+ out AResult : TReorderWeigthKind
+) : Boolean;
+begin
+ Result := True;
+ if (AStr = '=') then
+ AResult := TReorderWeigthKind.Identity
+ else if (AStr = '<') or (AStr = '>') then
+ AResult := TReorderWeigthKind.Primary
+ else if (AStr = '<<') or (AStr = '>>') then
+ AResult := TReorderWeigthKind.Secondary
+ else if (AStr = '<<<') or (AStr = '>>>') then
+ AResult := TReorderWeigthKind.Tertiary
+ else begin
+ AResult := TReorderWeigthKind.Identity;
+ Result := False;
+ end;
+end;
+
+function ParseStatement(
+ AData : PAnsiChar;
+ AStartPosition,
+ AMaxLen : Integer;
+ AStatement : PReorderSequence;
+ var ANextPos,
+ ALineCount : Integer
+) : Boolean;
+const
+ LINE_LENGTH = 1024;
+var
+ p : PAnsiChar;
+ bufferLength, bufferPos, lineLength, linePos, lineIndex : Integer;
+ line : UTF8String;
+ statement : PReorderSequence;
+ elementActualCount : Integer;
+ specialChararter : Boolean;
+ historyItemIndex : Integer;
+ historyItems : array[0..31] of record
+ p : PAnsiChar;
+ bufferLength,
+ bufferPos,
+ lineLength,
+ linePos,
+ lineIndex : Integer;
+ line : UTF8String;
+ end;
+
+ procedure SaveState();
+ begin
+ if (historyItemIndex >= High(historyItems)) then
+ raise Exception.Create('History buffer is full.');
+ historyItemIndex := historyItemIndex+1;
+ historyItems[historyItemIndex].p := p;
+ historyItems[historyItemIndex].bufferLength := bufferLength;
+ historyItems[historyItemIndex].bufferPos := bufferPos;
+ historyItems[historyItemIndex].lineLength := lineLength;
+ historyItems[historyItemIndex].linePos := linePos;
+ historyItems[historyItemIndex].lineIndex := lineIndex;
+ historyItems[historyItemIndex].line := line;
+ end;
+
+ procedure RestoreState();
+ begin
+ if (historyItemIndex < 0) then
+ raise Exception.Create('History buffer is empty.');
+ p := historyItems[historyItemIndex].p;
+ bufferLength := historyItems[historyItemIndex].bufferLength;
+ bufferPos := historyItems[historyItemIndex].bufferPos;
+ lineLength := historyItems[historyItemIndex].lineLength;
+ linePos := historyItems[historyItemIndex].linePos;
+ lineIndex := historyItems[historyItemIndex].lineIndex;
+ line := historyItems[historyItemIndex].line;
+ historyItemIndex := historyItemIndex-1;
+ end;
+
+ procedure DiscardState();
+ begin
+ if (historyItemIndex < 0) then
+ raise Exception.Create('History buffer is empty.');
+ historyItemIndex := historyItemIndex-1;
+ end;
+
+ function CurrentLine() : UTF8String; inline;
+ begin
+ Result := Copy(line,1,lineLength);
+ end;
+
+ function NextLine() : Boolean;
+ var
+ locOldPos : Integer;
+ locOldPointer : PAnsiChar;
+ begin
+ Result := False;
+ if (p^ = #10) then begin
+ Inc(p);
+ Inc(bufferPos);
+ end;
+ locOldPos := bufferPos;
+ locOldPointer := p;
+ while (bufferPos < bufferLength) and (p^ <> #10) do begin
+ Inc(p);
+ Inc(bufferPos);
+ end;
+ if (locOldPos = bufferPos) and (p^ = #10) then begin
+ lineLength := 0;
+ Inc(p);
+ Inc(bufferPos);
+ linePos := 1;
+ Result := True;
+ end else if (locOldPos < bufferPos) then begin
+ lineLength := (bufferPos - locOldPos);
+ if (lineLength >= Length(line)) then
+ SetLength(line,(2*lineLength));
+ Move(locOldPointer^,line[1],lineLength);
+ {if (p^ = #10) then begin
+ //Dec(lineLength);
+ Inc(p);
+ Inc(bufferPos);
+ end;}
+ linePos := 1;
+ Result := True;
+ end;
+ if Result and (locOldPos < bufferPos) then
+ lineIndex := lineIndex+1;
+ end;
+
+ procedure CheckLineLength(const ALength : Integer);
+ begin
+ if (ALength > lineLength) then
+ raise Exception.CreateFmt('Unexpected end of line : "%s".',[CurrentLine()]);
+ end;
+
+ function ReadChar(out AResult : UTF8String) : Boolean;
+ var
+ k : Integer;
+ us : UnicodeString;
+ begin
+ AResult := '';
+ Result := False;
+ if (linePos > lineLength) then
+ exit;
+ {if CharInSet(line[linePos],['#','=','&','[',']']) then begin
+ AResult := line[linePos];
+ Inc(linePos);
+ exit(True);
+ end;}
+ if (line[linePos] <> '\') then begin
+ AResult := line[linePos];
+ Inc(linePos);
+ exit(True);
+ end;
+ CheckLineLength(linePos+1);
+ Inc(linePos);
+ case line[linePos] of
+ '''': begin
+ AResult := '\';
+ exit(True);
+ end;
+ {'\' : begin
+ AResult := '\';
+ exit(True);
+ end;}
+ 'u' : begin
+ CheckLineLength(linePos+4);
+ AResult := '$'+Copy(line,(linePos+1),4);
+ if not TryStrToInt(AResult,k) then
+ raise Exception.CreateFmt('Hexadecimal Integer expected but found "%s", line = "%s".',[AResult,CurrentLine()]);
+ SetLength(us,1);
+ us[1] := UnicodeChar(k);
+ AResult := UTF8Encode(us);
+ Inc(linePos,5);
+ exit(True);
+ end;
+ 'U' : begin
+ CheckLineLength(linePos+8);
+ AResult := '$'+Copy(line,(linePos+1),8);
+ if not TryStrToInt(AResult,k) then
+ raise Exception.CreateFmt('Hexadecimal Integer expected but found "%s".',[AResult]);
+ if (k > High(Word)) then begin
+ SetLength(us,2);
+ FromUCS4(k,us[1],us[2]);
+ if (Ord(us[2]) = 0) then
+ SetLength(us,1);
+ end else begin
+ SetLength(us,1);
+ us[1] := UnicodeChar(k);
+ end;
+ AResult := UTF8Encode(us);
+ Inc(linePos,9);
+ exit(True);
+ end;
+ else
+ raise Exception.CreateFmt('Invalide escaped string "%s", at %d position.',[CurrentLine(),linePos]);
+ end;
+ end;
+
+ function ReadQuotedString() : UTF8String;
+ var
+ ks : UTF8String;
+ begin
+ if (line[linePos] <> '''') then
+ raise Exception.CreateFmt('Unexpected character found "%s", a quote expected: "%s".',[line[linePos],CurrentLine()]);
+ Inc(linePos);
+ if (linePos > lineLength) then
+ raise Exception.CreateFmt('Unexpected end of line, a quote expected: "%s".',[CurrentLine()]);
+ if (line[linePos] = '''') then begin
+ Inc(linePos);
+ Result := '''';
+ exit;
+ end;
+ Result := '';
+ while (linePos <= lineLength) and ReadChar(ks) do begin
+ Result := Result + ks;
+ if (line[linePos] = '''') then
+ break;
+ end;
+ if (line[linePos] = '''') then begin
+ Inc(linePos);
+ exit;
+ end;
+ raise Exception.CreateFmt('Unexpected end of line, a quote expected: "%s".',[line]);
+ end;
+
+ function ReadUnQuotedString() : UTF8String;
+ var
+ k : Integer;
+ begin
+ k := linePos;
+ while (linePos <= lineLength) and
+ not(CharInSet(line[linePos],[' ',#9,'#', '=','&','[',']','<','>','''','/','|']))
+ do begin
+ Inc(linePos);
+ end;
+ if (linePos > k) then begin
+ if (line[linePos] in [' ',#9,'#', '=','&','[',']','<','>','''','/','|']) then
+ Result := Copy(line,k,(linePos-k))
+ else
+ Result := Copy(line,k,(linePos-k)); //Result := Copy(line,k,(linePos-k+1));
+ end else begin
+ Result := '';
+ end;
+ end;
+
+ function NextToken() : UTF8String; overload;
+ var
+ k : Integer;
+ ks : UTF8String;
+ begin
+ specialChararter := False;
+ while True do begin
+ while (linePos <= lineLength) and CharInSet(line[linePos],[' ', #9, #13]) do begin
+ Inc(linePos);
+ end;
+ if (linePos > lineLength) or (line[linePos] = '#') then begin
+ if not NextLine() then
+ exit('');
+ Continue;
+ end ;
+ Break;
+ end;
+ if (linePos > lineLength) then
+ exit('');
+
+ if (line[linePos] = '*') then begin
+ linePos := linePos+1;
+ specialChararter := True;
+ exit('*');
+ end;
+ k := linePos;
+ if (linePos <= lineLength) and CharInSet(line[linePos],['<','>']) then begin
+ ks := line[linePos];
+ while (linePos <= lineLength) and (line[linePos] = ks) do begin
+ Inc(linePos);
+ end;
+ Result := Copy(line,k,(linePos-k));
+ exit;
+ end;
+ if (linePos <= lineLength) and
+ CharInSet(line[linePos],['=','&','[',']','<','>','/','|'])
+ then begin
+ Inc(linePos);
+ Result := Copy(line,k,(linePos-k));
+ specialChararter := True;
+ exit;
+ end;
+ {if (line[linePos] = '''') then
+ exit(ReadQuotedString()); }
+ Result := '';
+ while (linePos <= lineLength) do begin
+ if CharInSet(line[linePos],[' ',#9,#13,'#', '=','&','[',']','<','>','/','|']) then
+ Break;
+ if (line[linePos] <> '''') then
+ ks := ReadUnQuotedString()
+ else
+ ks := ReadQuotedString();
+ if (ks = '') then
+ Break;
+ Result := Result + ks;
+ end;
+ end;
+
+ function NextToken(const AMustSucceed : Boolean) : UTF8String; overload;
+ begin
+ Result := NextToken();
+ if (Result = '') and AMustSucceed then
+ raise Exception.CreateFmt('Unexpected end of line(%d) : "%s".',[lineIndex,CurrentLine()]);
+ end;
+
+ procedure CheckToken(const AActual, AExpectedToken : UTF8String);
+ begin
+ if (AActual <> AExpectedToken) then
+ raise Exception.CreateFmt(
+ '"%s" expected but "%s" found at position %d, BufferPosition(%d), line(%d) = "%s".',
+ [AExpectedToken,AActual,linePos,bufferPos,lineIndex,CurrentLine()]
+ );
+ end;
+
+ function parse_reset() : Boolean;
+ var
+ s, s1 : UTF8String;
+ logicalPos : TReorderLogicalReset;
+ k : Integer;
+ begin
+ s := NextToken();
+ if (s = '') then
+ exit(False);
+ CheckToken(s,'&');
+ s := NextToken(True);
+ if (s = '[') then begin
+ s := NextToken();
+ if (s = s_BEFORE) then begin
+ s := NextToken();
+ if not(TryStrToInt(s,k)) or (k < 1) or (k > 3) then
+ CheckToken(s,'"1" or "2" or "3"');
+ CheckToken(NextToken(True),']');
+ statement^.Reset := String2UnicodeCodePointArray(NextToken(True));
+ statement^.Before := True;
+ end else begin
+ while True do begin
+ s1 := NextToken();
+ if (s1 = '') or (s1 = ']') then
+ break;
+ s := s + Trim(s1)
+ end;
+ CheckToken(s1,']');
+ if (s = '') then
+ raise Exception.CreateFmt('Unexpected end of line : "%s".',[CurrentLine()]);
+ if not TryStrToLogicalReorder(s,logicalPos) then
+ raise Exception.CreateFmt(sUnknownResetLogicalPosition,[s]);
+ statement^.LogicalPosition := logicalPos;
+ end;
+ end else begin
+ statement^.Reset := String2UnicodeCodePointArray(s);
+ end;
+ if (statement^.LogicalPosition = TReorderLogicalReset.None) and
+ (Length(statement^.Reset) = 0)
+ then
+ raise Exception.Create(sInvalidResetClause);
+ Result := True;
+ end;
+
+ procedure EnsureElementLength(const ALength : Integer);
+ var
+ k, d : Integer;
+ begin
+ k := Length(statement^.Elements);
+ if (k < ALength) then begin
+ k := ALength;
+ if (k = 0) then begin
+ k := 50;
+ end else begin
+ if (k < 10) then
+ d := 10
+ else
+ d := 2;
+ k := k * d;
+ end;
+ statement^.SetElementCount(k);
+ end;
+ end;
+
+ procedure AddElement(
+ const AChars : array of UCS4Char;
+ const AWeigthKind : TReorderWeigthKind;
+ const AContext : UTF8String
+ );overload;
+ var
+ kp : PReorderUnit;
+ kc, k : Integer;
+ begin
+ EnsureElementLength(elementActualCount+1);
+ kp := @statement^.Elements[elementActualCount];
+ kc := Length(AChars)-1;
+ if (kc < 0) then
+ kc := 0;
+ SetLength(kp^.Characters,kc);
+ for k := 0 to kc - 1 do
+ kp^.Characters[k] := AChars[k];
+ kp^.WeigthKind := AWeigthKind;
+ elementActualCount := elementActualCount + 1;
+ if (AContext <> '') then
+ kp^.Context := String2UnicodeCodePointArray(AContext);
+ end;
+
+ procedure AddElement(
+ const AChar : UCS4Char;
+ const AWeigthKind : TReorderWeigthKind;
+ const AContext : UTF8String
+ );overload;
+ var
+ kp : PReorderUnit;
+ kc, k : Integer;
+ begin
+ EnsureElementLength(elementActualCount+1);
+ kp := @statement^.Elements[elementActualCount];
+ SetLength(kp^.Characters,1);
+ kp^.Characters[0] := AChar;
+ kp^.WeigthKind := AWeigthKind;
+ elementActualCount := elementActualCount + 1;
+ if (AContext <> '') then
+ kp^.Context := String2UnicodeCodePointArray(AContext);
+ end;
+
+ function ReadNextItem() : Boolean;
+ var
+ contextStr : UTF8String;
+ w : TReorderWeigthKind;
+ last : PReorderUnit;
+ u4str : UCS4String;
+ s, ts : UTF8String;
+ expandStr : TUnicodeCodePointArray;
+ k, kc, x : Integer;
+ us : UnicodeString;
+ begin
+ contextStr := '';
+ expandStr := nil;
+ Result := False;
+ SaveState();
+ s := NextToken();
+ if (s = '') then begin
+ DiscardState();
+ exit;
+ end;
+ if specialChararter and (s = '&') then begin
+ RestoreState();
+ exit;
+ end;
+ DiscardState();
+ if not TryStringToReorderWeigthKind(s,w) then
+ CheckToken(s,'Reorder Weigth');
+ s := NextToken(True);
+ if specialChararter then begin
+ if (s = '[') then begin
+ k := 1;
+ while True do begin
+ ts := NextToken(True);
+ s := s + ts;
+ if specialChararter then begin
+ if (ts = '[') then
+ k := k+1
+ else if (ts = ']') then begin
+ k := k-1;
+ if (k = 0) then
+ Break;
+ end;
+ end;
+ end;
+ if (Pos('variable',s) > 0) then
+ exit(True);
+ end else if (s = '*') then begin
+ s := NextToken(True);
+ us := UTF8Decode(s);
+ u4str := UnicodeStringToUCS4String(us);
+ kc := Length(u4str)-1;
+ k := 0;
+ while (k <= (kc-1)) do begin
+ if (k > 0) and (u4str[k] = Ord('-')) then begin
+ if (k = (kc-1)) then begin
+ AddElement(u4str[k],w,contextStr);
+ end else begin
+ for x := (u4str[k-1]+1) to u4str[k+1] do
+ AddElement(x,w,contextStr);
+ k := k+1;
+ end;
+ end else begin
+ AddElement(u4str[k],w,contextStr);
+ end;
+ k := k+1;
+ end;
+ exit(True);
+ end;
+ end;
+ SaveState();
+ ts := NextToken();
+ if (ts = '') or not(specialChararter) then begin
+ RestoreState();
+ us := UTF8Decode(s);
+ u4str := UnicodeStringToUCS4String(us);
+ end else begin
+ if (ts = '|') then begin
+ DiscardState();
+ contextStr := s;
+ s := NextToken(True);
+ SaveState();
+ ts := NextToken();
+ end;
+ if specialChararter and (ts = '/') then begin
+ expandStr := String2UnicodeCodePointArray(NextToken(True));
+ DiscardState();
+ end else begin
+ RestoreState();
+ end;
+ u4str := UnicodeStringToUCS4String(UTF8Decode(s));
+ end;
+ AddElement(u4str,w,contextStr);
+ if (Length(expandStr) > 0) then begin
+ last := @statement^.Elements[elementActualCount-1];
+ last^.ExpansionChars := expandStr;
+ end;
+ Result := True;
+ end;
+
+begin
+ Result := False;
+ elementActualCount := 0;
+ if (AStartPosition >= AMaxLen) then
+ exit;
+ historyItemIndex := -1;
+ lineIndex := ALineCount;
+ bufferLength := AMaxLen;
+ bufferPos := AStartPosition;
+ p := AData+AStartPosition;
+ SetLength(line,LINE_LENGTH);
+ statement := AStatement;
+ statement^.Clear();
+ if not NextLine() then
+ exit;
+ if not parse_reset() then
+ exit;
+ while ReadNextItem() do begin
+ // All done in the condition
+ end;
+ statement^.SetElementCount(elementActualCount);
+ if (linePos > lineLength) then
+ linePos := lineLength;
+ ANextPos := bufferPos-lineLength+linePos;
+ Result := (ANextPos > AStartPosition);
+ ALineCount := lineIndex;
+end;
+
+procedure ParseInitialDocument(ASequence : POrderedCharacters; ADoc : TCustomMemoryStream);
+var
+ buffer : PAnsiChar;
+ bufferLength : Integer;
+ i, nextPost : Integer;
+ statement : TReorderSequence;
+ p : PReorderUnit;
+ lineCount : Integer;
+begin
+ if (ADoc.Size < 1) then
+ exit;
+ buffer := ADoc.Memory; //0xEF,0xBB,0xBF
+ bufferLength := ADoc.Size;
+ if (bufferLength >= 3) and
+ (Byte(buffer[0]) = $EF) and
+ (Byte(buffer[1]) = $BB) and
+ (Byte(buffer[2]) = $BF)
+ then begin
+ Inc(buffer,3);
+ Dec(bufferLength,3);
+ end;
+ lineCount := 0;
+ ASequence^.Clear();
+ SetLength(ASequence^.Data,50000);
+ nextPost := 0;
+ i := 0;
+ while (i < bufferLength) do begin
+ statement.Clear();
+ if not ParseStatement(buffer,i,bufferLength,@statement,nextPost,lineCount) then
+ Break;
+ i := nextPost;
+ try
+ ASequence^.ApplyStatement(@statement);
+ except
+ on e : Exception do begin
+ e.Message := Format('%s Position = %d',[e.Message,i]);
+ raise;
+ end;
+ end;
+ end;
+ if (ASequence^.ActualLength > 0) then begin
+ p := @ASequence^.Data[0];
+ for i := 0 to ASequence^.ActualLength - 1 do begin
+ p^.Changed := False;
+ Inc(p);
+ end;
+ end;
+end;
+
+procedure ParseInitialDocument(ASequence : POrderedCharacters; AFileName : string);
+var
+ doc : TMemoryStream;
+begin
+ doc := TMemoryStream.Create();
+ try
+ doc.LoadFromFile(AFileName);
+ doc.Position := 0;
+ ParseInitialDocument(ASequence,doc);
+ finally
+ doc.Free();
+ end;
+end;
+
+
+end.
+
diff --git a/utils/unicode/cldrxml.pas b/utils/unicode/cldrxml.pas
index 49d57d7f08..f14c7f4ed1 100644
--- a/utils/unicode/cldrxml.pas
+++ b/utils/unicode/cldrxml.pas
@@ -1,6 +1,6 @@
{ Parser of the CLDR collation xml files.
- Copyright (c) 2013 by Inoussa OUEDRAOGO
+ Copyright (c) 2013, 2014, 2015 by Inoussa OUEDRAOGO
The source code is distributed under the Library GNU
General Public License with the following modification:
@@ -19,6 +19,12 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
+{ The procedure whoses names lasted by 'XML' (ParseInitialDocumentXML,
+ ParseCollationDocumentXML, ...) are for older CLDR versions (CDLR <= 23); The
+ old version was unsing a XML syntax for collation's rules specifications.
+ The new versions (and going forward) will be using the text syntax.
+}
+
unit cldrxml;
{$mode objfpc}{$H+}
@@ -29,49 +35,123 @@ uses
Classes, SysUtils, DOM,
cldrhelper;
- procedure ParseInitialDocument(ASequence : POrderedCharacters; ADoc : TDOMDocument);overload;
- procedure ParseInitialDocument(ASequence : POrderedCharacters; AFileName : string);overload;
+type
+
+ { TCldrCollationFileLoader }
+
+ TCldrCollationFileLoader = class(TInterfacedObject,ICldrCollationLoader)
+ private
+ FPath : string;
+ private
+ procedure SetPath(APath : string);
+ function BuildFileName(ALanguage : string) : string;
+ procedure CheckFile(AFileName : string);
+ protected
+ procedure LoadCollation(
+ const ALanguage : string;
+ ACollation : TCldrCollation;
+ AMode : TCldrParserMode
+ );
+ procedure LoadCollationType(
+ const ALanguage,
+ ATypeName : string;
+ AType : TCldrCollationItem
+ );
+ public
+ constructor Create(APath : string);
+ end;
+
+ { TCldrCollationStreamLoader }
+
+ TCldrCollationStreamLoader = class(TInterfacedObject,ICldrCollationLoader)
+ private
+ FLanguages : array of string;
+ FStreams : array of TStream;
+ private
+ procedure CheckContent(ALanguage : string);
+ function IndexOf(ALanguage : string) : Integer;
+ protected
+ procedure LoadCollation(
+ const ALanguage : string;
+ ACollation : TCldrCollation;
+ AMode : TCldrParserMode
+ );
+ procedure LoadCollationType(
+ const ALanguage,
+ ATypeName : string;
+ AType : TCldrCollationItem
+ );
+ public
+ constructor Create(
+ const ALanguages : array of string;
+ const AStreams : array of TStream
+ );
+ destructor Destroy();override;
+ end;
+
+ procedure ParseInitialDocumentXML(ASequence : POrderedCharacters; ADoc : TDOMDocument);overload;
+ procedure ParseInitialDocumentXML(ASequence : POrderedCharacters; AFileName : string);overload;
- procedure ParseCollationDocument(
+ procedure ParseCollationDocumentXML(
ADoc : TDOMDocument;
ACollation : TCldrCollation;
AMode : TCldrParserMode
);overload;
- procedure ParseCollationDocument(
+ procedure ParseCollationDocumentXML(
+ ADoc : TDOMDocument;
+ ACollation : TCldrCollationItem;
+ AType : string
+ );overload;
+ procedure ParseCollationDocumentXML(
const AFileName : string;
ACollation : TCldrCollation;
AMode : TCldrParserMode
);overload;
+ procedure ParseCollationDocumentXML(
+ const AFileName : string;
+ ACollation : TCldrCollationItem;
+ AType : string
+ );overload;
- procedure ParseCollationDocument(
+ //-----------------------------------------------------
+ procedure ParseCollationDocument2(
+ ADoc : TDOMDocument;
+ ACollation : TCldrCollation;
+ AMode : TCldrParserMode
+ );overload;
+ procedure ParseCollationDocument2(
+ const AFileName : string;
+ ACollation : TCldrCollation;
+ AMode : TCldrParserMode
+ );overload;
+ procedure ParseCollationDocument2(
+ AStream : TStream;
+ ACollation : TCldrCollation;
+ AMode : TCldrParserMode
+ );overload;
+
+ procedure ParseCollationDocument2(
const AFileName : string;
ACollation : TCldrCollationItem;
AType : string
);overload;
- procedure ParseCollationDocument(
+ procedure ParseCollationDocument2(
ADoc : TDOMDocument;
ACollation : TCldrCollationItem;
AType : string
);overload;
-
-resourcestring
- sCaseNothandled = 'This case is not handled : "%s", Position = %d.';
- sCodePointExpected = 'Code Point node expected as child at this position "%d".';
- sCollationsNodeNotFound = '"collations" node not found.';
- sCollationTypeNotFound = 'collation "Type" not found : "%s".';
- sHexAttributeExpected = '"hex" attribute expected at this position "%d".';
- sInvalidResetClause = 'Invalid "Reset" clause.';
- sNodeNameAssertMessage = 'Expected NodeName "%s", got "%s".';
- sRulesNodeNotFound = '"rules" node not found.';
- sTextNodeChildExpected = '(Child) text node expected at this position "%d", but got "%s".';
- sUniqueChildNodeExpected = 'Unique child node expected at this position "%d".';
- sUnknownResetLogicalPosition = 'Unknown reset logical position : "%s".';
+ procedure ParseCollationDocument2(
+ AStream : TStream;
+ ACollation : TCldrCollationItem;
+ AType : string
+ );overload;
implementation
uses
- typinfo, XMLRead, XPath, Helper, unicodeset;
+ typinfo, RtlConsts, XMLRead, XPath, Helper, unicodeset, cldrtxt;
const
+ s_ALT = 'alt';
s_AT = 'at';
//s_BEFORE = 'before';
s_CODEPOINT = 'codepoint';
@@ -81,12 +161,16 @@ const
//s_DEFAULT = 'default';
s_EXTEND = 'extend';
s_HEX = 'hex';
+ s_IMPORT = 'import';
s_POSITION = 'position';
s_RESET = 'reset';
s_RULES = 'rules';
+ s_SOURCE = 'source';
//s_STANDART = 'standard';
s_TYPE = 'type';
+ s_CR = 'cr';
+
procedure CheckNodeName(ANode : TDOMNode; const AExpectedName : DOMString);
begin
if (ANode.NodeName <> AExpectedName) then
@@ -124,23 +208,7 @@ begin
end;
end;
-function TryStrToLogicalReorder(
- const AValue : string;
- out AResult : TReorderLogicalReset
-) : Boolean;
-var
- s : string;
- i : Integer;
-begin
- s := StringReplace(AValue,' ','',[rfReplaceAll]);
- s := StringReplace(s,'_','',[rfReplaceAll]);
- i := GetEnumValue(TypeInfo(TReorderLogicalReset),s);
- Result := (i > -1);
- if Result then
- AResult := TReorderLogicalReset(i);
-end;
-
-function ParseStatement(
+function ParseStatementXML(
ARules : TDOMElement;
AStartPosition : Integer;
AStatement : PReorderSequence;
@@ -393,7 +461,7 @@ begin
ANextPos := i;
end;
-procedure ParseInitialDocument(ASequence : POrderedCharacters; ADoc : TDOMDocument);
+procedure ParseInitialDocumentXML(ASequence : POrderedCharacters; ADoc : TDOMDocument);
var
n : TDOMNode;
rulesElement : TDOMElement;
@@ -412,7 +480,7 @@ begin
i := 0;
while (i < c) do begin
statement.Clear();
- if not ParseStatement(rulesElement,i,@statement,nextPost) then
+ if not ParseStatementXML(rulesElement,i,@statement,nextPost) then
Break;
i := nextPost;
try
@@ -433,13 +501,13 @@ begin
end;
end;
-procedure ParseInitialDocument(ASequence : POrderedCharacters; AFileName : string);
+procedure ParseInitialDocumentXML(ASequence : POrderedCharacters; AFileName : string);
var
doc : TXMLDocument;
begin
ReadXMLFile(doc,AFileName);
try
- ParseInitialDocument(ASequence,doc);
+ ParseInitialDocumentXML(ASequence,doc);
finally
doc.Free();
end;
@@ -500,10 +568,10 @@ begin
it.Free();
uset.Free();
end;
- SetLength(r,0);
+ r := nil;
end;
-procedure ParseCollationItem(
+procedure ParseCollationItemXML(
ACollationNode : TDOMElement;
AItem : TCldrCollationItem;
AMode : TCldrParserMode
@@ -544,7 +612,105 @@ begin
i := 0;
while (i < c) do begin
statement^.Clear();
- if not ParseStatement(rulesElement,i,statement,nextPos) then
+ if not ParseStatementXML(rulesElement,i,statement,nextPos) then
+ Break;
+ i := nextPos;
+ Inc(statement);
+ Inc(sal);
+ if (sal >= Length(statementList)) then begin
+ SetLength(statementList,(sal*2));
+ statement := @statementList[(sal-1)];
+ end;
+ end;
+ end;
+ SetLength(statementList,sal);
+ AItem.Rules := statementList;
+ end;
+end;
+
+procedure ParseImports(ACollationNode : TDOMElement; AItem : TCldrCollationItem);
+var
+ locList : TXPathVariable;
+ i : Integer;
+ nd, locAtt : TDOMNode;
+ locSource, locType : string;
+begin
+ locList := EvaluateXPathExpression(s_IMPORT,ACollationNode);
+ try
+ if not locList.InheritsFrom(TXPathNodeSetVariable) then
+ exit;
+ for i := 0 to locList.AsNodeSet.Count-1 do begin
+ nd := TDOMNode(locList.AsNodeSet[i]);
+ if (nd.Attributes <> nil) then begin
+ locSource := '';
+ locType := '';
+ locAtt := nd.Attributes.GetNamedItem(s_SOURCE);
+ if (locAtt <> nil) then
+ locSource := locAtt.NodeValue;
+ locAtt := nd.Attributes.GetNamedItem(s_TYPE);
+ if (locAtt <> nil) then
+ locType := locAtt.NodeValue;
+ end;
+ if (locType <> '') then
+ AItem.Imports.Add(locSource,locType);
+ end;
+ finally
+ locList.Free();
+ end;
+end;
+
+procedure ParseCollationItem2(
+ ACollationNode : TDOMElement;
+ AItem : TCldrCollationItem;
+ AMode : TCldrParserMode
+);
+var
+ n : TDOMNode;
+ rulesElement : TDOMCDATASection;
+ i, c, nextPos : Integer;
+ statementList : TReorderSequenceArray;
+ sal : Integer;//statement actual length
+ statement : PReorderSequence;
+ s : DOMString;
+ u8 : UTF8String;
+ buffer : PAnsiChar;
+ lineCount : Integer;
+begin
+ AItem.TypeName := ACollationNode.GetAttribute(s_TYPE);
+ AItem.Alt := ACollationNode.GetAttribute(s_ALT);
+ AItem.Base := EvaluateXPathStr('base',ACollationNode);
+ AItem.Backwards := (EvaluateXPathStr('settings/@backwards',ACollationNode) = 'on');
+ if AItem.Backwards then
+ AItem.ChangedFields := AItem.ChangedFields + [TCollationField.BackWard];
+ ParseImports(ACollationNode,AItem);
+ AItem.Rules := nil;
+ if (AMode = TCldrParserMode.FullParsing) then begin
+ SetLength(statementList,15);
+ sal := 0;
+ statement := @statementList[0];
+ s := EvaluateXPathStr('suppress_contractions',ACollationNode);
+ if (s <> '') then begin
+ if (ParseDeletion(s,statement) > 0) then begin
+ Inc(sal);
+ Inc(statement);
+ end else begin
+ statement^.Clear();
+ end;
+ end;
+ n := ACollationNode.FindNode(s_CR);
+ if (n <> nil) then begin
+ n := (n as TDOMElement).FirstChild;
+ rulesElement := n as TDOMCDATASection;
+ s := rulesElement.Data;
+ u8 := UTF8Encode(s);
+ c := Length(u8);
+ buffer := @u8[1];
+ nextPos := 0;
+ i := 0;
+ lineCount := 0;
+ while (i < c) do begin
+ statement^.Clear();
+ if not ParseStatement(buffer,i,c,statement,nextPos,lineCount) then
Break;
i := nextPos;
Inc(statement);
@@ -560,7 +726,7 @@ begin
end;
end;
-procedure ParseCollationDocument(
+procedure ParseCollationDocumentXML(
ADoc : TDOMDocument;
ACollation : TCldrCollation;
AMode : TCldrParserMode
@@ -577,6 +743,7 @@ begin
raise Exception.Create(sCollationsNodeNotFound);
collationsElement := n as TDOMElement;
ACollation.Clear();
+ ACollation.Mode := AMode;
ACollation.Language := EvaluateXPathStr('identity/language/@type',ADoc.DocumentElement);
ACollation.Version := EvaluateXPathStr('identity/version/@number',ADoc.DocumentElement);
ACollation.DefaultType := EvaluateXPathStr('collations/default/@type',ADoc.DocumentElement);
@@ -589,7 +756,7 @@ begin
n := nl[i];
if (n.NodeName = s_COLLATION) then begin
item := TCldrCollationItem.Create();
- ParseCollationItem((n as TDOMElement),item,AMode);
+ ParseCollationItemXML((n as TDOMElement),item,AMode);
ACollation.Add(item);
item := nil;
end
@@ -601,7 +768,7 @@ begin
end;
end;
-procedure ParseCollationDocument(
+procedure ParseCollationDocumentXML(
ADoc : TDOMDocument;
ACollation : TCldrCollationItem;
AType : string
@@ -614,7 +781,68 @@ begin
if (xv.AsNodeSet.Count = 0) then
raise Exception.CreateFmt(sCollationTypeNotFound,[AType]);
ACollation.Clear();
- ParseCollationItem((TDOMNode(xv.AsNodeSet[0]) as TDOMElement),ACollation,TCldrParserMode.FullParsing);
+ ParseCollationItemXML((TDOMNode(xv.AsNodeSet[0]) as TDOMElement),ACollation,TCldrParserMode.FullParsing);
+ finally
+ xv.Free();
+ end
+end;
+
+procedure ParseCollationDocument2(
+ ADoc : TDOMDocument;
+ ACollation : TCldrCollation;
+ AMode : TCldrParserMode
+);
+var
+ n : TDOMNode;
+ collationsElement : TDOMElement;
+ i, c : Integer;
+ item : TCldrCollationItem;
+ nl : TDOMNodeList;
+begin
+ n := ADoc.DocumentElement.FindNode(s_COLLATIONS);
+ if (n = nil) then
+ raise Exception.Create(sCollationsNodeNotFound);
+ collationsElement := n as TDOMElement;
+ ACollation.Clear();
+ ACollation.Mode := AMode;
+ ACollation.Language := EvaluateXPathStr('identity/language/@type',ADoc.DocumentElement);
+ ACollation.Version := EvaluateXPathStr('identity/version/@number',ADoc.DocumentElement);
+ ACollation.DefaultType := EvaluateXPathStr('collations/defaultCollation',ADoc.DocumentElement);
+ if collationsElement.HasChildNodes() then begin
+ nl := collationsElement.ChildNodes;
+ c := nl.Count;
+ item := nil;
+ try
+ for i := 0 to c - 1 do begin
+ n := nl[i];
+ if (n.NodeName = s_COLLATION) then begin
+ item := TCldrCollationItem.Create();
+ ParseCollationItem2((n as TDOMElement),item,AMode);
+ ACollation.Add(item);
+ item := nil;
+ end
+ end;
+ except
+ FreeAndNil(item);
+ raise;
+ end;
+ end;
+end;
+
+procedure ParseCollationDocument2(
+ ADoc : TDOMDocument;
+ ACollation : TCldrCollationItem;
+ AType : string
+);
+var
+ xv : TXPathVariable;
+begin
+ xv := EvaluateXPathExpression(Format('collations/collation[@type=%s]',[QuotedStr(AType)]),ADoc.DocumentElement);
+ try
+ if (xv.AsNodeSet.Count = 0) then
+ raise Exception.CreateFmt(sCollationTypeNotFound,[AType]);
+ ACollation.Clear();
+ ParseCollationItem2((TDOMNode(xv.AsNodeSet[0]) as TDOMElement),ACollation,TCldrParserMode.FullParsing);
finally
xv.Free();
end
@@ -650,7 +878,40 @@ begin
end;
end;
-procedure ParseCollationDocument(
+procedure ParseCollationDocumentXML(
+ const AFileName : string;
+ ACollation : TCldrCollation;
+ AMode : TCldrParserMode
+);
+var
+ doc : TXMLDocument;
+begin
+ doc := ReadXMLFile(AFileName);
+ try
+ ParseCollationDocumentXML(doc,ACollation,AMode);
+ ACollation.LocalID := ExtractFileName(ChangeFileExt(AFileName,''));
+ finally
+ doc.Free();
+ end;
+end;
+
+procedure ParseCollationDocumentXML(
+ const AFileName : string;
+ ACollation : TCldrCollationItem;
+ AType : string
+);
+var
+ doc : TXMLDocument;
+begin
+ doc := ReadXMLFile(AFileName);
+ try
+ ParseCollationDocumentXML(doc,ACollation,AType);
+ finally
+ doc.Free();
+ end;
+end;
+
+procedure ParseCollationDocument2(
const AFileName : string;
ACollation : TCldrCollation;
AMode : TCldrParserMode
@@ -660,14 +921,30 @@ var
begin
doc := ReadXMLFile(AFileName);
try
- ParseCollationDocument(doc,ACollation,AMode);
+ ParseCollationDocument2(doc,ACollation,AMode);
ACollation.LocalID := ExtractFileName(ChangeFileExt(AFileName,''));
finally
doc.Free();
end;
end;
-procedure ParseCollationDocument(
+procedure ParseCollationDocument2(
+ AStream : TStream;
+ ACollation : TCldrCollation;
+ AMode : TCldrParserMode
+);
+var
+ doc : TXMLDocument;
+begin
+ doc := ReadXMLFile(AStream);
+ try
+ ParseCollationDocument2(doc,ACollation,AMode);
+ finally
+ doc.Free();
+ end;
+end;
+
+procedure ParseCollationDocument2(
const AFileName : string;
ACollation : TCldrCollationItem;
AType : string
@@ -677,10 +954,165 @@ var
begin
doc := ReadXMLFile(AFileName);
try
- ParseCollationDocument(doc,ACollation,AType);
+ ParseCollationDocument2(doc,ACollation,AType);
finally
doc.Free();
end;
end;
+procedure ParseCollationDocument2(
+ AStream : TStream;
+ ACollation : TCldrCollationItem;
+ AType : string
+);
+var
+ doc : TXMLDocument;
+begin
+ doc := ReadXMLFile(AStream);
+ try
+ ParseCollationDocument2(doc,ACollation,AType);
+ finally
+ doc.Free();
+ end;
+end;
+
+{ TCldrCollationStreamLoader }
+
+procedure TCldrCollationStreamLoader.CheckContent(ALanguage: string);
+begin
+ if not FileExists(ALanguage) then
+ raise EFOpenError.CreateFmt(SFOpenError,[ALanguage]);
+end;
+
+function TCldrCollationStreamLoader.IndexOf(ALanguage: string): Integer;
+var
+ i : Integer;
+begin
+ for i := Low(FLanguages) to High(FLanguages) do begin
+ if (FLanguages[i] = ALanguage) then begin
+ Result := i;
+ exit;
+ end;
+ end;
+ Result := -1;
+end;
+
+procedure TCldrCollationStreamLoader.LoadCollation(
+ const ALanguage : string;
+ ACollation : TCldrCollation;
+ AMode : TCldrParserMode
+);
+var
+ i : Integer;
+ locStream : TStream;
+begin
+ i := IndexOf(ALanguage);
+ if (i < 0) then
+ CheckContent(ALanguage);
+ locStream := FStreams[i];
+ locStream.Position := 0;
+ ParseCollationDocument2(locStream,ACollation,AMode);
+end;
+
+procedure TCldrCollationStreamLoader.LoadCollationType(
+ const ALanguage,
+ ATypeName : string;
+ AType : TCldrCollationItem
+);
+var
+ i : Integer;
+ locStream : TStream;
+begin
+ i := IndexOf(ALanguage);
+ if (i < 0) then
+ CheckContent(ALanguage);
+ locStream := FStreams[i];
+ locStream.Position := 0;
+ ParseCollationDocument2(locStream,AType,ATypeName);
+end;
+
+constructor TCldrCollationStreamLoader.Create(
+ const ALanguages : array of string;
+ const AStreams : array of TStream
+);
+var
+ c, i : Integer;
+begin
+ c := Length(ALanguages);
+ if (Length(AStreams) < c) then
+ c := Length(AStreams);
+ SetLength(FLanguages,c);
+ SetLength(FStreams,c);
+ for i := Low(ALanguages) to High(ALanguages) do begin
+ FLanguages[i] := ALanguages[i];
+ FStreams[i] := AStreams[i];
+ end;
+end;
+
+destructor TCldrCollationStreamLoader.Destroy();
+var
+ i : Integer;
+begin
+ for i := Low(FStreams) to High(FStreams) do
+ FreeAndNil(FStreams[i]);
+end;
+
+{ TCldrCollationFileLoader }
+
+procedure TCldrCollationFileLoader.SetPath(APath: string);
+var
+ s : string;
+begin
+ if (APath = '') then
+ s := ''
+ else
+ s := IncludeLeadingPathDelimiter(APath);
+ if (s <> FPath) then
+ FPath := s;
+end;
+
+function TCldrCollationFileLoader.BuildFileName(ALanguage: string): string;
+begin
+ Result := Format('%s%s.xml',[FPath,ALanguage]);
+end;
+
+procedure TCldrCollationFileLoader.CheckFile(AFileName: string);
+begin
+ if not FileExists(AFileName) then
+ raise EFOpenError.CreateFmt(SFOpenError,[AFileName]);
+end;
+
+procedure TCldrCollationFileLoader.LoadCollation(
+ const ALanguage : string;
+ ACollation : TCldrCollation;
+ AMode : TCldrParserMode
+);
+var
+ locFileName : string;
+begin
+ locFileName := BuildFileName(ALanguage);
+ CheckFile(locFileName);
+ ACollation.Clear();
+ ParseCollationDocument2(locFileName,ACollation,AMode);
+end;
+
+procedure TCldrCollationFileLoader.LoadCollationType(
+ const ALanguage,
+ ATypeName : string;
+ AType : TCldrCollationItem
+);
+var
+ locFileName : string;
+begin
+ locFileName := BuildFileName(ALanguage);
+ CheckFile(locFileName);
+ AType.Clear();
+ ParseCollationDocument2(locFileName,AType,ATypeName);
+end;
+
+constructor TCldrCollationFileLoader.Create(APath: string);
+begin
+ SetPath(APath);
+end;
+
end.
diff --git a/utils/unicode/grbtree.pas b/utils/unicode/grbtree.pas
index b493619a43..259fbad54b 100644
--- a/utils/unicode/grbtree.pas
+++ b/utils/unicode/grbtree.pas
@@ -419,8 +419,10 @@ begin
end;
// Stop if found
- if (cp.Compare(q^.Data,AData) = 0) then
+ if (cp.Compare(q^.Data,AData) = 0) then begin
+ Result := q;
break;
+ end;
last := dir;
dir := (cp.Compare(q^.Data,AData) < 0);
diff --git a/utils/unicode/helper.pas b/utils/unicode/helper.pas
index 1e10910f5d..b0a257af96 100644
--- a/utils/unicode/helper.pas
+++ b/utils/unicode/helper.pas
@@ -1,6 +1,6 @@
{ Unicode parser helper unit.
- Copyright (c) 2012 by Inoussa OUEDRAOGO
+ Copyright (c) 2012-2015 by Inoussa OUEDRAOGO
The source code is distributed under the Library GNU
General Public License with the following modification:
@@ -66,6 +66,7 @@ const
' but WITHOUT ANY WARRANTY; without even the implied warranty of ' + sLineBreak +
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. }';
+ WEIGHT_LEVEL_COUNT = 3;
type
// Unicode General Category
@@ -680,6 +681,14 @@ type
procedure ReverseBytes(var AData; const ALength : Integer);
procedure ReverseArray(var AValue; const AArrayLength, AItemSize : PtrInt);
+ function CalcMaxLevel2Value(ALines : array of TUCA_LineRec) : Cardinal;
+ procedure RewriteLevel2Values(ALines : PUCA_LineRec; ALength : Integer);
+ function RewriteLevel2(
+ const ALevel1Value : Cardinal;
+ ALines : PUCA_LineRec;
+ const ALinesLength : Integer
+ ) : Integer;
+
resourcestring
SInsufficientMemoryBuffer = 'Insufficient Memory Buffer';
@@ -1728,6 +1737,8 @@ var
Inc(actualPropLen);
end;
locData.PropID := k;
+ if (actualDataLen >= Length(ADataLineList)) then
+ SetLength(ADataLineList,(2*Length(ADataLineList)));
ADataLineList[actualDataLen] := locData;
Inc(actualDataLen);
end;
@@ -2477,7 +2488,7 @@ var
a := LowerCase(Trim(AToken));
b := LowerCase(Trim(NextToken()));
if (a <> b) then
- raise Exception.CreateFmt('Expected token "%s" but found "%s".',[a,b]);
+ raise Exception.CreateFmt('Expected token "%s" but found "%s", Line = "%s".',[a,b,line]);
end;
function ReadWeightBlock(var ADest : TUCA_WeightRec) : Boolean;
@@ -2498,7 +2509,7 @@ var
ADest.Variable := True;
end;
ADest.Weights[0] := StrToInt('$'+NextToken());
- for k := 1 to 3 do begin
+ for k := 1 to WEIGHT_LEVEL_COUNT-1 do begin
CheckToken('.');
ADest.Weights[k] := StrToInt('$'+NextToken());
end;
@@ -2638,8 +2649,11 @@ begin
exit(-1);
end;
-Procedure QuickSort(var AList: TUCA_DataBookIndex; L, R : Longint;
- ABook : PUCA_DataBook);
+procedure QuickSort(
+ var AList : TUCA_DataBookIndex;
+ L, R : Longint;
+ ABook : PUCA_DataBook
+);overload;
var
I, J : Longint;
P, Q : Integer;
@@ -4673,6 +4687,201 @@ begin
end;
end;
+Procedure QuickSort(AList : PCardinal; L, R : Longint);overload;
+var
+ I, J : Longint;
+ P, Q : Cardinal;
+begin
+ repeat
+ I := L;
+ J := R;
+ P := AList[ (L + R) div 2 ];
+ repeat
+ while (P > AList[i]) do
+ I := I + 1;
+ while (P < AList[J]) do
+ J := J - 1;
+ If I <= J then
+ begin
+ Q := AList[I];
+ AList[I] := AList[J];
+ AList[J] := Q;
+ I := I + 1;
+ J := J - 1;
+ end;
+ until I > J;
+ if J - L < R - I then
+ begin
+ if L < J then
+ QuickSort(AList, L, J);
+ L := I;
+ end
+ else
+ begin
+ if I < R then
+ QuickSort(AList, I, R);
+ R := J;
+ end;
+ until L >= R;
+end;
+
+function CalcMaxLevel2Count(
+ const ALevel1Value : Cardinal;
+ ALines : array of TUCA_LineRec
+) : Integer;
+var
+ i, c, k : Integer;
+ ac : Integer;
+ items : array of Cardinal;
+ p : PUCA_LineRec;
+ pw : ^TUCA_WeightRec;
+begin
+ c := Length(ALines);
+ if (c < 1) then
+ exit(0);
+ SetLength(items,0);
+ ac := 0;
+ p := @ALines[Low(ALines)];
+ for i := 0 to c-1 do begin
+ if (Length(p^.Weights) > 0) then begin
+ pw := @p^.Weights[Low(p^.Weights)];
+ for k := 0 to Length(p^.Weights)-1 do begin
+ if (pw^.Weights[0] = ALevel1Value) then begin
+ if (ac = 0) or (IndexDWord(items[0],ac,pw^.Weights[1]) < 0) then begin
+ if (ac >= Length(items)) then
+ SetLength(items,Length(items)+256);
+ items[ac] := pw^.Weights[1];
+ ac := ac+1;
+ end;
+ end;
+ Inc(pw);
+ end;
+ end;
+ Inc(p);
+ end;
+ Result := ac;
+end;
+
+function RewriteLevel2(
+ const ALevel1Value : Cardinal;
+ ALines : PUCA_LineRec;
+ const ALinesLength : Integer
+) : Integer;
+var
+ i, c, k : Integer;
+ ac : Integer;
+ items : array of Cardinal;
+ p : PUCA_LineRec;
+ pw : ^TUCA_WeightRec;
+ newValue : Cardinal;
+begin
+ c := ALinesLength;
+ if (c < 1) then
+ exit(0);
+ SetLength(items,256);
+ ac := 0;
+ p := ALines;
+ for i := 0 to c-1 do begin
+ if (Length(p^.Weights) > 0) then begin
+ for k := 0 to Length(p^.Weights)-1 do begin
+ pw := @p^.Weights[k];
+ if (pw^.Weights[0] = ALevel1Value) then begin
+ if (ac = 0) or (IndexDWord(items[0],ac,pw^.Weights[1]) < 0) then begin
+ if (ac >= Length(items)) then
+ SetLength(items,Length(items)+256);
+ items[ac] := pw^.Weights[1];
+ ac := ac+1;
+ end;
+ end;
+ end;
+ end;
+ Inc(p);
+ end;
+ SetLength(items,ac);
+ if (ac > 1) then
+ QuickSort(@items[0],0,(ac-1));
+
+ p := ALines;
+ for i := 0 to c-1 do begin
+ if (Length(p^.Weights) > 0) then begin
+ for k := 0 to Length(p^.Weights)-1 do begin
+ pw := @p^.Weights[k];
+ if (pw^.Weights[0] = ALevel1Value) then begin
+ newValue := IndexDWord(items[0],ac,pw^.Weights[1]);
+ if (newValue < 0) then
+ raise Exception.CreateFmt('level 2 value %d missed in rewrite of level 1 value of %d.',[pw^.Weights[1],ALevel1Value]);
+ pw^.Weights[1] := newValue;//+1;
+ end;
+ end;
+ end;
+ Inc(p);
+ end;
+ if (Length(items) > 0) then
+ Result := items[Length(items)-1]
+ else
+ Result := 0;
+end;
+
+procedure RewriteLevel2Values(ALines : PUCA_LineRec; ALength : Integer);
+var
+ c, i, ac, k : Integer;
+ p : PUCA_LineRec;
+ level1List : array of Cardinal;
+ pw : ^TUCA_WeightRec;
+begin
+ c := ALength;
+ if (c < 1) then
+ exit;
+ ac := 0;
+ SetLength(level1List,c);
+ p := ALines;
+ for i := 0 to c-1 do begin
+ if (Length(p^.Weights) > 0) then begin
+ for k := 0 to Length(p^.Weights)-1 do begin
+ pw := @p^.Weights[k];
+ if (ac = 0) or (IndexDWord(level1List[0],ac,pw^.Weights[0]) < 0) then begin
+ if (ac >= Length(level1List)) then
+ SetLength(level1List,ac+1000);
+ level1List[ac] := pw^.Weights[0];
+ RewriteLevel2(level1List[ac],ALines,ALength);
+ ac := ac+1;
+ end;
+ end;
+ end;
+ Inc(p);
+ end;
+end;
+
+function CalcMaxLevel2Value(ALines : array of TUCA_LineRec) : Cardinal;
+var
+ i, c, k, tempValue : Integer;
+ p : PUCA_LineRec;
+ maxLevel : Cardinal;
+ maxValue : Integer;
+begin
+ c := Length(ALines);
+ if (c < 2) then
+ exit(0);
+ maxLevel := 0;
+ maxValue := CalcMaxLevel2Count(maxLevel,ALines);
+ p := @ALines[Low(ALines)+1];
+ for i := 1 to c-1 do begin
+ if (Length(p^.Weights) > 0) then begin
+ for k := 0 to Length(p^.Weights)-1 do begin
+ if (p^.Weights[k].Weights[0] <> maxLevel) then begin
+ tempValue := CalcMaxLevel2Count(p^.Weights[k].Weights[0],ALines);
+ if (tempValue > maxValue) then begin
+ maxLevel := p^.Weights[k].Weights[0];
+ maxValue := tempValue;
+ end;
+ end;
+ end;
+ end;
+ Inc(p);
+ end;
+ Result := maxValue;
+end;
+
initialization
FS := DefaultFormatSettings;
FS.DecimalSeparator := '.';
diff --git a/utils/unicode/unicodeset.pas b/utils/unicode/unicodeset.pas
index 0be30432f4..974e8748e5 100644
--- a/utils/unicode/unicodeset.pas
+++ b/utils/unicode/unicodeset.pas
@@ -1,6 +1,6 @@
{ UnicodeSet implementation.
- Copyright (c) 2013 by Inoussa OUEDRAOGO
+ Copyright (c) 2013-2015 by Inoussa OUEDRAOGO
The source code is distributed under the Library GNU
General Public License with the following modification:
@@ -36,6 +36,8 @@ type
TUnicodeSet = class;
+ { TPatternParser }
+
TPatternParser = class
private
FBufferStr : UnicodeString;
@@ -43,6 +45,7 @@ type
FBufferLength : Integer;
FSet : TUnicodeSet;
FPosition : Integer;
+ FSpecialChar: Boolean;
private
procedure Error(const AMsg : string; const AArgs : array of const);overload;inline;
procedure Error(const AMsg : string);overload;inline;
@@ -58,6 +61,7 @@ type
function NextChar() : TUnicodeCodePoint;
procedure ParseItem();
procedure DoParse();
+ property SpecialChar : Boolean read FSpecialChar;
public
procedure Parse(const APattern : PUnicodeChar; const ALength : Integer);overload;
procedure Parse(const APattern : UnicodeString);overload;inline;
@@ -73,6 +77,8 @@ type
class function Compare(const A, B : TUnicodeCodePointArray) : Integer;static;inline;
end;
+ { TUnicodeSet }
+
TUnicodeSet = class
private type
TItem = TUnicodeCodePointArray;
@@ -84,18 +90,22 @@ type
FParser : TPatternParser;
private
procedure CreateParser();inline;
+ function InternalContains(const AString : UnicodeString) : Boolean;overload;
public
constructor Create();
destructor Destroy;override;
procedure Add(AChar : TUnicodeCodePoint);inline;overload;
procedure Add(AString : TUnicodeCodePointArray);inline;overload;
procedure AddRange(const AStart, AEnd : TUnicodeCodePoint);inline;
- procedure AddPattern(const APattern : UnicodeString);inline;
+ procedure AddPattern(const APattern : UnicodeString);inline;overload;
+ procedure AddPattern(const APattern : RawByteString);inline;overload;
function CreateIterator() : TIterator;
function Contains(const AString : array of TUnicodeCodePoint) : Boolean;overload;
function Contains(const AChar : TUnicodeCodePoint) : Boolean;inline;overload;
function Contains(const AChar : UnicodeChar) : Boolean;inline;overload;
function Contains(const AChar : AnsiChar) : Boolean;inline;overload;
+ function Contains(const AString : UnicodeString) : Boolean;overload;
+ function Contains(const AString : RawByteString) : Boolean;overload;
end;
resourcestring
@@ -267,7 +277,7 @@ begin
CheckEOF(4);
s := Copy(FBufferStr,(FPosition+1),4);
Inc(FPosition,4);
- if not TryStrToInt('$'+s,i) then
+ if not TryStrToInt(string('$'+s),i) then
Error(SExpectedBut,['\uXXXX',s]);
cp := i;
end;
@@ -281,6 +291,7 @@ begin
Inc(FPosition);
end;
end;
+ FSpecialChar := (cp = Ord('{')) or (cp = Ord('}'));
Result := cp;
end;
@@ -292,7 +303,8 @@ end;
procedure TPatternParser.ParseItem();
var
cp, lastCp : TUnicodeCodePoint;
- charCount : Integer;
+ charCount, k : Integer;
+ cpa : TUnicodeCodePointArray;
begin
SkipSpaces();
Expect('[');
@@ -304,13 +316,31 @@ begin
cp := NextChar();
if CompareTo(cp,']') then
Break;
- if CompareTo(cp,'-') then begin
- if (charCount = 0) then
- Error(SExpectedBut,['<char>','-']);
- cp := NextChar();
- FSet.AddRange(lastCp,cp);
+ if SpecialChar and (cp = Ord('{')) then begin
+ SetLength(cpa,12);
+ k := 0;
+ while True do begin
+ cp := NextChar();
+ if SpecialChar and (cp = Ord('}')) then
+ break;
+ if (k >= Length(cpa)) then
+ SetLength(cpa,(2*k));
+ cpa[k] := cp;
+ k := k+1;
+ end;
+ if (k > 0) then begin
+ SetLength(cpa,k);
+ FSet.Add(cpa);
+ end;
end else begin
- FSet.Add(cp);
+ if CompareTo(cp,'-') then begin
+ if (charCount = 0) then
+ Error(SExpectedBut,['<char>','-']);
+ cp := NextChar();
+ FSet.AddRange(lastCp,cp);
+ end else begin
+ FSet.Add(cp);
+ end;
end;
Inc(charCount);
end;
@@ -348,6 +378,22 @@ begin
end;
end;
+function TUnicodeSet.InternalContains(const AString: UnicodeString): Boolean;
+var
+ u4 : UCS4String;
+ c, i : Integer;
+ cpa : TUnicodeCodePointArray;
+begin
+ u4 := UnicodeStringToUCS4String(AString);
+ c := Length(u4)-1;
+ if (c = 1) then
+ exit(Contains(u4[0]));
+ SetLength(cpa,c);
+ for i := 0 to c-1 do
+ cpa[i] := u4[i];
+ Result := Contains(cpa);
+end;
+
constructor TUnicodeSet.Create;
begin
FTree := TTree.Create();
@@ -387,6 +433,14 @@ begin
FParser.Parse(APattern);
end;
+procedure TUnicodeSet.AddPattern(const APattern: RawByteString);
+var
+ us : UnicodeString;
+begin
+ us := UnicodeString(APattern);
+ AddPattern(us);
+end;
+
function TUnicodeSet.CreateIterator() : TIterator;
begin
Result := FTree.CreateForwardIterator();
@@ -422,5 +476,22 @@ begin
Result := Contains(TUnicodeCodePoint(Ord(AChar)));
end;
+function TUnicodeSet.Contains(const AString: UnicodeString): Boolean;
+begin
+ if (AString = '') then
+ exit(Contains([]));
+ if (Length(AString) = 1) then
+ exit(Contains(AString[1]));
+ Result := InternalContains(AString);
+end;
+
+function TUnicodeSet.Contains(const AString: RawByteString): Boolean;
+var
+ us : UnicodeString;
+begin
+ us := UnicodeString(AString);
+ Result := Contains(us);
+end;
+
end.